1SPEED =75
5REM         "Touch Typing Tutor"
10REM         "Written and Programed by Sherman Murdock "
19TEXT
20VTAB 10:? TAB(8); "Touch Typing Tutor "
21GOSUB 500:TEXT
22VTAB 10:? TAB(5); "Programed by S.L.Murdock "
25GOSUB 500
29TEXT:VTAB 10
30INPUT "      Enter your first name          "; n$
35TEXT:VTAB 10
40? TAB(10); "Hello "; n$
45? TAB(9); "My name is ADAM "
50INPUT " Do you want to see the rules ?              "; a$:GOTO 55
53INPUT " "; a$
55IF a$="yes" THEN GOTO 600
60IF a$="no" THEN GOTO 75
64TEXT:VTAB 10:? "Please answer yes or no "; n$
65GOTO 53
75TEXT:VTAB 10:? TAB(5); "Alright "; n$; " let's play "
77? "Remember don't look at the keys"
78 c=0: s=0: m=0
79SPEED =255
80GOSUB 500
109HIMEM :51455
110DATA      97,98,99,100,101,102
120DATA      103,104,105,106,107,108
130DATA      109,110,111,112,113,114
140DATA      115,116,117,118,119,120
150DATA      121,122,97
160FOR z=0 TO 25
170READ a
180POKE 51456+z, a
190NEXT z
200 n=INT(1+26*RND(1))
210 l=PEEK(51455+n)
220TEXT:VTAB 10
230? TAB(13); "Correct!"
240? TAB(6); "Please type the letter "
250? " "
255 p$=CHR$(l)
260? TAB(16); p$
270GET u$
280IF u$="*" THEN END
290IF u$<>p$ THEN ? TAB(11); "Incorrect":GOTO 700
292 s=s+10
294 c=c+1
296IF c=10 THEN  s=s+25
297IF c=10 THEN  c=0
300IF u$=p$ THEN GOTO 200
500FOR x=1 TO 3500
505NEXT x
510RETURN
600TEXT
605VTAB 10:? " To play the game properly you must not look at the keys "
606GOSUB 500
610TEXT:VTAB 10
620? "You will receive 10 points for each correct key "
625GOSUB 500
630TEXT:VTAB 10
635? "Ten correct keys in a row and you gain 25 bonus points "
640GOSUB 500
650TEXT:VTAB 10
655? "5 incorrect keys ends the game"
660GOSUB 500
665TEXT:VTAB 10
670? "Press shift and '*' to end the game "
680GOSUB 500
690GOTO 75
700 m=m+1
705IF m=5 THEN GOTO 720
710 c=0:GOTO 240
720TEXT:VTAB 10:? TAB(3); "You have made five mistakes."
730? TAB(8); "The game is over."
735? TAB(3); "Your score was "; s
740INPUT "    Do you want to play again ?"; a$
750IF a$="yes" THEN RESTORE:GOTO 75
760IF a$="no" THEN END
770? "Please answer yes or no ":GOTO 740
