10
20
30 MODE 1
40 VDU 29,640;512;
50
60 T%=TIME
70 FOR R%=0 TO 508 STEP 24
80 PROCcircle
90 NEXT
100 PRINT TIME-T%
110 END
120
130 DEFPROCcircle
140 X%=R%:Y%=0
150 Z%=R%DIV16
160 REPEAT
170 PLOT69, X%, Y%
180 PLOT69, X%,-Y%
190 PLOT69,-X%,-Y%
200 PLOT69,-X%, Y%
210 PLOT69, Y%, X%
220 PLOT69, Y%,-X%
230 PLOT69,-Y%,-X%
240 PLOT69,-Y%, X%
250 Y%=Y%+4:Z%=Z%+Y%
260 IF Z%>=X% THEN Z%=Z%-X%:X%=X%-4
270 UNTIL X%<Y%
280 ENDPROC