208 Snap
190 NEXT K
200 PEN 1
210 REM GAME DISPLAY
220 PEN 2:LOCATE 22,5:PRINT"	";:LO
CATE 15,7:PRINT"	";:LOCATE 15,8:PRINT"
";:LOCATE 15,9:PRINT"	";:PEN 1
230 LOCATE 1,21:PRINT CHR$(24);"PRESS TH E CORRECT LETTER AS SOONAS YOU RECOGNISE
THE NEW P1CTURE";CHR$(24)
240 N=INT(RND*7):V=189+(N*9)
250 X=200+INT(RND*500):FOR C=1 TO X:NEXT
260 LOCATE 15,7:PRINT CHRS(V+1);CHRS(V+2 );CHR$(V+3);:LOCATE 15,8:PRINT CHRS(V+4) ;CHR$(V+5);CHR$(V+6);:LOCATE 15,9:PRINT CHRS(V+7);CHR$(V+8);CHR$(V+9);
270 TA=0
280 IF INKEY$<>"" THEN 280
290 A$=INKEY$:IF A$="" THEN T=T+1:LOCATE 6,2:PRINT T;:GOTO 310
300 A$=UPPER$(A$):GOTO 330
310 TA=TA+1:IF TA=200 THEN 340
320 GOTO 290
330 A=ASC(A$):IF A=ASC(MID$(0$,(N+1),1))
THEN R=R+1:LOCATE 12,2:PEN 2:PRINT MID$ (STR$(R),2);:LOCATE 22,5:PEN 3:PRINT"COR RECT";:PEN 1:GOTO 350
340 LOCATE 22,5:PRINT CHR$(24);" WRONG!" ;CHR$(24):PEN 1
350 P=P+1:LOCATE 30,2:PRINT MIDS(STR$(P)
360 IF P=10 THEN GOTO 380
370 FOR X=1 TO 500:NEXT:GOTO 220
380 REM*** END GAME ***
390 IF TB>T THEN TB=T
400 PEN 2:LOCATE 1,11:PRINT"YOU HAVE";R; "CORRECT OUT OF 10 IN";:LOCATE 1,12:PRIN T"TIME";:PEN 3:PRINT T;:PEN 2:PRINT". BE ST TIME SO FAR";:PEN 1:PRINT MIDS(STR$(T B),2);
410 PEN 3:LOCATE 1,24:PRINT CHR$(18);CHR $(24);"PRESS ENTER FOR NEXT GAME";CHR$(2 4);:PEN 1
420 INPUT X$:IF X$<>"" THEN 410