Appears on
Assembled by Tim Ward from many sources. Contains programs 10122 – 10175.
Source Code
1 REM "KEYBOARD" 5 CLS 10 LET N=0 20 FOR M=1 TO 10 30 FOR B=0 TO RND*100+50 40 NEXT B 50 LET B$=CHR$ (28+35*RND) 60 PRINT B$ 70 LET C$="" 80 FOR B=0 TO 30 90 NEXT B 100 LET C$=INKEY$ 110 IF C$=B$ THEN GOSUB 200 120 CLS 130 NEXT M 140 PRINT "SCORE= ";N 150 PRINT ,,,,"PRESS N/L" 160 INPUT I$ 170 RUN 200 LET N=N+1 210 PRINT "YES" 220 FOR B=0 TO 20 230 NEXT B 240 RETURN 250 SAVE "1017%3" 260 LIST