10REM By Richard Harker for 8BS 1996. 20a=1:Y=1000:MODE2:Z=820:REPEAT:GCOL0 ,a:MOVE 640,512:FOR I=0 TO 2.1*PI STEP . 2:MOVE 640,512:X=640+Z*SIN(I):Y=512+Z*CO S(I):PLOT 85,X,Y:NEXT I:a=a MOD7+1:Z=Z-1 0:UNTILZ=0:REPEAT:FORc=1TO7:VDU19,c,0;0; :NEXT:REPEAT:FORc=1TO7:VDU19,c,3;0;:FORX =1TO70:NEXT:VDU19,c,0;0;:NEXT:UNTILFALSE