10 R=16:X=0:C=15›20 GRAPHICS 9:SETCOLOR 4,13,0›30 FOR I=130 TO 191›40 COLOR C›50 PLOT 0,I:DRAWTO 79,I›60 X=X+1:IF X=4 THEN X=0:C=C-1›70 NEXT I›80 FOR I=0 TO 79 STEP 8›90 COLOR 3:PLOT 59,130:DRAWTO I,191›100 NEXT I›110 COLOR 1:FOR I=0 TO 7:PLOT 2,164:DRAWTO 21,158+I:NEXT I›120 COLOR 15:FOR I=0 TO 3:PLOT 21,140:DRAWTO 21+I,164-I*2:NEXT I›130 COLOR 4:FOR I=0 TO 4:PLOT 20,140:DRAWTO 17+I,160+I:NEXT I›140 FOR Z=1 TO 15›150 FOR I=0 TO 360 STEP 6›160 X=0.25*R*COS(I)+35›170 Y=R*SIN(I)+50›180 COLOR Z›190 PLOT X,Y›200 PLOT X+10,Y+17›210 PLOT X+30,Y-20›220 PLOT X-2,Y+12›230 PLOT X+21,Y+70›240 NEXT I›250 R=R-1›260 NEXT Z›270 FOR I=2 TO 4:COLOR I:PLOT 46,72:DRAWTO 51+I,106›280 PLOT 43,62:DRAWTO 39,50+I›290 PLOT 47,62:DRAWTO 60+I,35›300 NEXT I›310 GOTO 310›