10 KEY OFF
20 Y = 8000:Z=7
30 COLOR 1,0,0:CLS:GOSUB 200
40 FOR X=1 TO Y:NEXT X
50 COLOR 0,Z,0:CLS
60 I$=INKEY$
70 IF I$="s" THEN COLOR 0,Z,0:CLS:GOTO 190
75 IF I$="d" THEN Z=0
80 IF I$="b" THEN Z=1
90 IF I$="g" THEN Z=2
100 IF I$="c" THEN Z=3
110 IF I$="r" THEN Z=4
120 IF I$="p" THEN Z=5
130 IF I$="o" THEN Z=6
140 IF I$="w" THEN Z=7
150 IF I$="q" THEN COLOR 7,0,0:CLS:END
160 IF I$="<" THEN Y=Y+1000
170 IF I$=">" THEN Y=Y-1000
180 GOTO 30
190 I$=INKEY$:IF I$="" THEN 190 ELSE 30
200 PRINT"d=blk b=blue g=grn c=cyan r=red p=ppl o=orange w=wht >=fast <=slow q=quit s=stop";:RETURN