10 '*Typing*
20 CLV:CLT
30 CLS:?"SCORE=";S:?
40 GOSUB 100+RND(30)*10:X=0
50 C=SCR(X,2)
60 IF C=0 THEN BEEP 10:WAIT 30:S=S+1:GOTO 30
70 K=INKEY():IF K=0 THEN GOTO 70
80 IF K=C THEN ?CHR$(C);:X=X+1:GOTO 50
90 BEEP 30,30:?:?:?"TIME=";TICK()/60:END
100 ?"RUN":RETURN
110 ?"LIST":RETURN
120 ?"LOAD":RETURN
130 ?"SAVE":RETURN
140 ?"FILES":RETURN
150 ?"NEW":RETURN
160 ?"LED 1":RETURN
170 ?"PRINT":RETURN
180 ?"INPUT":RETURN
190 ?"LOCATE":RETURN
200 ?"CLS":RETURN
210 ?"CLV":RETURN
220 ?"IF":RETURN
230 ?"THEN":RETURN
240 ?"ELSE":RETURN
250 ?"FOR I=1 TO 10":RETURN
260 ?"NEXT":RETURN
270 ?"BEEP":RETURN
280 ?"WAIT":RETURN
290 ?"END":RETURN
300 ?"RETURN":RETURN
310 ?"GOTO 120":RETURN
320 ?"GOSUB 340":RETURN
330 ?"INKEY()":RETURN
340 ?"TICK()":RETURN
350 ?"RND(10)":RETURN
360 ?"SCR(0,0)":RETURN
370 ?"BTN(LEFT)":RETURN
380 ?"CHR$(1)":RETURN
390 ?"X=X+1":RETURN