>L.
   10 REM **************
   20 REM   PROCcircle
   30 REM By Tim Surtell
   40 REM **************
   50 REM Routine to draw a circle
   60 REM Downloaded from Tim's NC users' Site
   70 REM http://www.ncus.org.uk
   80 REM Input is (X,Y,XR,YR,IS,OS), IS being inside colour, OS being
   90 REM outside colour.1-Black  2-White  3-Not filled
  100 DEF PROCcircle(X,Y,XR,YR,IS,OS)
  110 MOVEX+XR,Y
  120 FORT=0 TO 360 STEP 10
  130   IF IS=1 MOVEX,Y:PLOT85,X+XR*COS(RAD(T)),Y+YR*SIN(RAD(T))
  140   IF IS=2 MOVEX,Y:PLOT87,X+XR*COS(RAD(T)),Y+YR*SIN(RAD(T))
  150 NEXT
  160 MOVEX+XR,Y
  170 FORT=0 TO 360 STEP 10
  180   IF OS=1 DRAWX+XR*COS(RAD(T)),Y+YR*SIN(RAD(T))
  190   IF OS=2 PLOT7,X+XR*COS(RAD(T)),Y+YR*SIN(RAD(T))
  200 NEXT
  210 ENDPROC
>*SPOOL