<XMP>
Sub WriteCalc()
   Dim R
   Dim C, A

   R = 10

   C = 2 * 3.14159 * R
   A = 3.14159 * R * R

   Selection.TypeText ("Radius=" & R & vbCrLf)
   Selection.TypeText ("Circumference=" & C & vbCrLf)
   Selection.TypeText ("Area=" & A & vbCrLf)
End Sub
</XMP>