Keyboard

Date: 198x
Type: Program
Platform(s): TS 1000

Appears on

Assembled by Tim Ward from many sources. Contains programs 10122 – 10175.

Gallery

Keyboard

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 

People

No people associated with this content.

Scroll to Top