10 REM By Richard Harker for 8BS 1996.
   20 a=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*COS(I):PLOT 85,X,Y:NEXT I:a=a MOD7+1:Z=Z-10:UNTILZ=0:REPEAT:FORc=1TO7:VDU19,c,0;0;:NEXT:REPEAT:FORc=7TO1 STEP -1:VDU19,c,3;0;:FORX=1TO70:NEXT:VDU19,c,0;0;:NEXT:UNTILFALSE