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