8-Bit Software Online Conversion

Graphical Gears - Listing

10MODE1 20a=2 30r=190 40j=1 50i=0 60FORi=0TO360STEP5 70j=j+1 80GCOL0,j 90IFj>2THENj=0 100x=r*SINRADi 110y=r*COSRADi 120VDU29,1020;820; 130MOVEx/2,y/2 140DRAW2*x/6,2*y/6 150NEXT 160FORi=0TO360STEP3 170j=j+1 180GCOL0,j 190IFj>2THENj=0 200x=r*SINRADi 210y=r*COSRADi 220VDU29,360;600; 230MOVEx,y 240DRAW2*x/3,2*y/3 250NEXT 260FORi=360TO0STEP-2 270j=j+1 280GCOL0,j 290IFj>2THENj=0 300x=r*SINRADi 310y=r*COSRADi 320VDU29,820;500; 330MOVEx,y 340DRAW3*x/2,3*y/2 350NEXT 360REPEAT 370VDU19,1,1;0; 380VDU19,2,4;0; 390VDU19,3,7;0; 400PROCWAIT 410VDU19,1,7;0; 420VDU19,2,1;0; 430VDU19,3,4;0; 440PROCWAIT 450VDU19,1,4;0; 460VDU19,2,7;0; 470VDU19,3,1;0; 480PROCWAIT 490UNTIL0 500END 510DEFPROCWAIT 520t=TIME:REPEATUNTILTIME>t+4 530ENDPROC