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