1 print "hello & welcome to the typing game." 
2 print "to play just type the letters as i say them." 
3 print "ready? then lets go." 
4 print "a" 
5 i$=inkey$:if i$="" then 5
8 cls:if i$="a" then print "good job. that is right.":goto 11
10 print "no no. thats wrong." 
11 print "b" 
12 i$=inkey$:if i$="" then 12
15 cls:if i$="b" then print "yay. you got it.":goto 17
16 print "nope. that was wrong." 
 17 print "c" 
18 i$=inkey$:if i$="" then 18
20 cls:if i$="c" then print "hay hay. good job.":goto 22
21 print "aww man. thats wrong."
22 print "d"
23 i$=inkey$:if i$="" then 23
26 cls:if i$="d" then print "woo hoo. your right.":goto 28
27 print "woops. that is wrong."
28 print "e"
29 i$=inkey$:if i$="" then 29
31 cls:if i$="e" then print "hay. Your smart.":goto 33 
32 print "nope. that isn't correct." 
33print "f"
34 i$=inkey$:if i$="" then 34
35 cls:if i$="f" then print "your right.":goto 37
36 print "oh man. that's wrong."
37 print "g"
38 i$=inkey$:if i$="" then 38
39 cls:if i$="g"  then print "rockin'. you're right":goto 41 else 40
40 print "try again next time."
41 print "h"
42 i$=inkey$:if i$="" then 42
43 cls:if i$="h" then print "hurray. that's right.":goto 45
44 print "no. no. wrong answer."
45 print "i"
46 i$=inkey$:if i$="" then 46
47 cls:if i$="i" then print "good job.":goto 49
48 print "nope. that's wrong."
49 print "j"
50 i$=inkey$:if i$="" then 50
51 cls:if i$="j" then print "that's correct. good job.":goto 53
52 print "no. wrong answer."
53 print "k" 
54 i$=inkey$:if i$="" then 54
55 cls:if i$="k" then print "nice job.":goto 57
56 print "whoopsy. that's not right." 
57 print "l"
58 i$=inkey$:if i$="" then 58
59 cls:if i$="l" then print "that is the right letter.":goto 61
60 print "uh oh. that was wrong."
61 print "m"
62 i$=inkey$:if i$="" then 62
63 cls:if i$="m" then print "woo hoo. woo hoo. rite":goto 65
64 print "nope. that's wrong."
65 print "n"
66 i$=inkey$:if i$="" then 66
67 cls:if i$="n" then print "hurray. your smart.":goto 69
68 print "no no. wrong answer."
69 print "o"
70 i$=inkey$:if i$="" then 70
71 cls:if i$="o" then print "rite answer.":goto 73
72 print "no no. that was the wrong answer."
73 print "p"
74 i$=inkey$:if i$="" then 74
75 cls:if i$="p" then print "that is the right answer.":goto 77
76 print "uh oh. You'd better be more careful."
77 print "q"
78 i$=inkey$:if i$="" then 78
79 cls:if i$="q" then print "yay. yay. yay.":goto 81
80 print "no no. that is incorrect."
81 print "r"
82 i$=inkey$:if i$="" then 82
83 cls:if i$="r" then print "your the best at this game.":goto 85
84 print "no no. that is wrong."
85 print "s"
86 i$=inkey$:if i$="" then 86
87 cls:if i$="s" then print "that is exactly what I was looking for.":goto 89
88 print "no no."
89 print "t"
90 i$=inkey$:if i$="" then 90
91 cls:if i$="t" then print "that's correct.":goto 93
92 print "no no. that is wrong."
93 print "u"
94 i$=inkey$:if i$="" then 94
95 cls:if i$="u" then print "good job. that's right.":goto 97
96 print "no. that is wrong."
97 print "v"
98 i$=inkey$:if i$="" then 98
99 cls:if i$="v" then print "woo hoo. your smart.":goto 101
100 print "no no. that was wrong." 
101 print "w"
102 i$=inkey$:if i$="" then 102
103 cls:if i$="w" then print "that is the right one.":goto 105
104 print "no no. you should be more careful."
105 print "x"
106 i$=inkey$:if i$="" then 106
107 cls:if i$="x" then print "yep. that's good.":goto 109
108 print "no no. your wrong."
109 print "y"
110 i$=inkey$:if i$="" then 110
111 cls:if i$="y" then print "woo hoo. rite.":goto 113
112 print "nope. wrong."
113 print "z"
114 i$=inkey$:if i$="" then 114
115 cls:if i$="z" then print "woo hoo. that is about it.":goto 118
116 print "no no. oh welll this is the end of the game anyways."
 118 print "thanks for playing. I hope you had fun."
119 print "send comments to s c l a s s 1 0 1 2 at triad dot r r dot com"  