10 REM FAST TYPER  20 GOSUB 330  30 GOES=0  40 SC=0  50 EVERY 1,1 GOSUB 270  60 RESTORE:READ N  70 FOR L=1 TO INT(RND(1)*N+1):READ W$  80 NEXT L  90 IF RND(1)>0.001 THEN GOTO 90 100 INK 12,26:PEN 12 110 LOCATE 8,10:P=1 120 T=0  130 PRINT W$  140 T=T+1:IF INKEY$<>"" THEN GOTO 140  150 T=T+1:A$=INKEY$:IF A$="" THEN GOTO 150 160 IF UPPER$(A$)<>MID$(W$,P,1) THEN GOTO 140  170 P=P+1:IF P<>6 THEN GOTO 140  180 LOCATE 8,10:PRINT"     ";  190 SC=SC+T:GOES=GOES+1:IF GOES<>5 THEN GOTO 60  200 SC=INT(SC/5)  210 CLS:LL=REMAIN(1)  220 LOCATE 5,10:PRINT"AVERAGE TIME :";SC  230 LOCATE 3,15:PRINT"<SPACE> TO TRY AGAIN" 240 IF INKEY$=" " THEN GOTO 240 250 IF INKEY$<>" " THEN GOTO 250 260 RUN  270 REM LINE SLIDING  280 REM USING 10 COLOURS  290 DI  300 ZZ=LL:LL=LL+1:IF LL>10 THEN LL=1  310 INK LL,14:INK ZZ,0 320 EI:RETURN  330 REM PLOT LINES  340 MODE 0  350 FOR L=1 TO 10:INK L,L*2:NEXT L 360 CC=1  370 FOR H=1 TO 639 STEP 4  380 PLOT H,1,CC:DRAW H,399,CC  390 CC=CC+1:IF CC>10 THEN CC=1 400 NEXT H  410 BORDER 4  420 FOR LL=10 TO 1 STEP -1:INK LL,0:NEXT LL 430 RETURN  440 DATA 8  450 DATA MOUSE,HOUSE,WHICH,WITCH 460 DATA MAINS,PLAIN,PLANE,MICRO