10 GRAPHICS 5:C=0›20 SETCOLOR 0,3,10:REM COLOR 1›30 SETCOLOR 1,12,14:REM COLOR 2›40 SETCOLOR 2,8,8:REM COLOR 3›50 B=C:SETCOLOR 4,B,6›60 FOR COLR=1 TO 3›70 READ R:COLOR COLR›80 FOR D=0 TO 7›90 PLOT R+D,3:DRAWTO R+D,36›100 NEXT D:NEXT COLR›110 PRINT "}SE.0,3,10     SE.1,12,14    SE.2,8,8"›120 PRINT " COLOR 1       COLOR 2       COLOR 3"›130 TRAP 150:PRINT "SE.4,";B;",6";"   NEW BACKGROUND COLOR";:INPUT C›140 C=INT(C):IF C<0 OR C>15 THEN C=B›150 RESTORE :GOTO 50›160 DATA 9,37,65›