10 INPUT"RADIUS";R
 15 FOR I=1 TO 24:PRINT:NEXT
 20 LET K=53776
 30 LET PI=3.1416
 40 FORI=1TO360
 50 Z=PI*(I/180)
 60 X=INT(SIN(Z)*R+.5)
 70 Y=INT(COS(Z)*R+.5)
 80 LET A=K+X
 90 LET A=A-Y*32
 100 POKE A,111
 110 NEXT I
 120 GOTO 10