8-Bit Software Online Conversion
:0.$.Globe - Listing
10MODE4:FORB=25TO500STEP50:PROCA(B,50
0,640,512):NEXT:FORB=25TO500STEP50:PROCA
(500,B,640,512):NEXT:END
20DEFPROCA(C,D,E,F):G=0:H=PI/30:I=2*H
:MOVEE+C,F:FORI%=0TO30:DRAWE+C*COSG,F+D*
SING:G=G+I:NEXT:ENDPROC