1 DEG:MODE 0:PAPER 0:INK 0,0:DIM col(14):FOR a=0 TO 14:READ col(a):NEXT: DATA 0,9,0,15,21,24,23,22,19,12,10,4,1,7,8 2 FOR b=450 TO 90 STEP -3:FOR c=1 TO 360 STEP 3:PLOT (320+125*COS(b))+100*COS(c),(200+125*SIN(b))+70*SIN(c),c/3 MOD(13)+1 3 NEXT:NEXT:BORDER 0:FOR d=999 TO 1 STEP -1:FOR e=1 TO 13:INK e,col((d+e)MOD 13):NEXT:NEXT