10 SYMBOL 255,16,56,56,124,124,124,56,16 20 MODE 0:BORDER 0:INK 0,0:r=10:p=1:FOR a%=1 TO 14:INK a%,1:NEXT 30 FOR b%=0 TO 38:MOVE 320+r*COS(k%),170+(r/6)*SIN(k%) 40 DEG:FOR k%=1 TO 360 STEP 6:DRAW 320+r*COS(k%),170+(r/6)*SIN(k%),p:NEXT 50 r=r+10:IF p<>14 THEN p=p+1 ELSE p=1 60 NEXT:PRINT CHR$(22)CHR$(1) 70 FOR a%=1 TO 14:PEN a%:LOCATE 11,a%:PRINT CHR$(255):NEXT 80 FOR a%=1 TO 14:INK a%,0:NEXT 90 FOR a%=1 TO 14:INK a%,14:CALL &BD19:FOR d=0 TO 100:NEXT:CALL &BD19:INK a%,0:NEXT:SOUND 1,0,1,12:GOTO 90