10 DEFFNS="Circles"
   20 MODE1
   30 PROCcircle
   40 PROCdotty
   50 PROCdaft
   60 END
   70 DEFPROCcircle
   80  FOR A=1 TO 360
   90  MOVE 320,200
  100  DRAW 320+190*COS(A),200+190*SIN(A)
  110  NEXT
  120 ENDPROC
  130 DEFPROCdotty
  140 S=200
  150 X=1280/2
  160 Y=1024/2
  170 MOVE X,Y
  180 FOR L=0 TO 370
  190 MOVE X,Y
  200 PLOT 65,S*COS(L),S*SIN(L)
  210 NEXT
  220 ENDPROC
  230 DEFPROCdaft
  240  FOR A=1 TO 360
  250  MOVE 320,200
  260  DRAW 320+190*COS(A),200+190*SIN(A)
  270  L=190
  280  MOVE 320,200
  290  PLOT 7,320+L*COS(A),200+L*SIN(A)
  300  NEXT
  310 ENDPROC