10 GRAPHICS 7:COLR=1:POKE 752,1›20 SETCOLOR 0,4,6›30 SETCOLOR 1,13,10›40 SETCOLOR 2,8,4›50 COLOR COLR›60 PRINT "}        COLOR ";COLR;"    SETCOLOR ";COLR-1›80 FOR R=10 TO 60›90 PLOT 50,R:DRAWTO 110,R›100 NEXT R›110 COLR=COLR+1:IF COLR=4 THEN COLR=1›120 FOR DELAY=1 TO 250:NEXT DELAY›130 GOTO 50›