10 POKE53281,0:POKE53280,0:GOSUB 116:GOTO64
12 POKES1,90:POKES1+1,90:POKES1,0:POKES1+1,0:RETURN
14 POKES2+4,17:POKES2,40:POKES2+1,35:FORX=1TO100:NEXT:POKES2+4,0:RETURN
16 POKES2+4,17:POKES2,40:POKES2+1,35:FORX=1TO100:NEXT:POKEG+21,0:POKES2+4,0
18 RETURN
20 POKEG+16,0:Q=Q+1:IFQ=21THEN178
22 IFHHTHENHH=0:XC(XX)=XC(XX)+300
24 XX=INT(RND(1)*37+1):IFXC(XX)>300THENXC(XX)=XC(XX)-300:POKEG+16,7:HH=1
26 POKEG,XC(XX):POKEG+1,YC(XX):POKEG+2,XC(XX)-1:POKEG+3,YC(XX)
28 POKEG+4,XC(XX):POKEG+5,YC(XX)
30 GETA$:IFA$=L$(XX)THENPOKEG+21,4:GOSUB16:GOTO20
32 POKEG+21,1:FORX=1TO50:NEXT:GOSUB12
34 GETA$:IFA$=L$(XX)THENPOKEG+21,4:GOSUB16:GOTO20
36 POKEG+21,2:FORX=1TO50:NEXT:GOSUB12
38 PRINT"[152]"SPC(17)MID$(TI$,3,2)":"RIGHT$(TI$,2):GOTO30
40 PRINT""SPC(13)SC"[157] [152]OUT OF"Q
42 POKEG+16,0:Q=Q+1:IFQ=21THEN178
44 IFHHTHENHH=0:XC(XX)=XC(XX)+300
46 XX=INT(RND(1)*37+1):IFXC(XX)>300THENXC(XX)=XC(XX)-300:POKEG+16,7:HH=1
48 POKEG,XC(XX):POKEG+1,YC(XX):POKEG+2,XC(XX)-1:POKEG+3,YC(XX)
50 POKEG+4,XC(XX):POKEG+5,YC(XX):Z=0
52 Z=Z+1:IFZ=SKTHENZ=0:POKEG+21,0:GOTO40
54 GETA$:IFA$=L$(XX)THENPOKEG+21,4:GOSUB16:POKEG+21,0:SC=SC+1:GOTO40
56 POKEG+21,1:FORX=1TO50:NEXT:GOSUB12
58 GETA$:IFA$=L$(XX)THENPOKEG+21,4:GOSUB16:POKEG+21,0:SC=SC+1:GOTO40
60 POKEG+21,2:FORX=1TO50:NEXT:GOSUB12
62 GOTO52
64 PRINTCHR$(142)CHR$(8):FORX=858TO1022:POKEX,0:NEXT
66 FORX=832TO857:READY:POKEX,Y:NEXT:FORX=896TO920:READY:POKEX,Y:NEXT
68 FORX=960TO986:READY:POKEX,Y:NEXT
70 DATA192,192,0,255,192,0,109,128,0,204,192,0,255,192,0,63,0,0,243,0,0
72 DATA243,192,0,3,192
74 DATA192,192,0,255,192,0,109,128,0,204,192,0,255,192,0,63,0,0
76 DATA51,192,0,243,192,0,240,21,0,0,21,0,0,21,84,0,21,84,0,21,0,0
78 DATA149,128,0,136,128,0,170,128,0,162,128,0
80 G=53248:POKEG+39,5:POKEG+40,5:POKE2040,13:POKE2041,14:POKEG+29,7:POKEG+23,7
82 POKEG+37,14:POKEG+41,5:POKE2042,15:POKEG+28,4
84 DIMXC(37),YC(37),L$(37),M1(44),M2(44),M3(44):GOSUB182
86 FORX=1TO44:READM1(X),M2(X),M3(X):NEXT
88 FORX=1TO37:READXC(X),YC(X),L$(X):NEXT
90 Z=0:POKEG+21,0
91 PRINTTAB(9)"PRESS ANY KEY TO PLAY"
92 GOSUB196:GETA$:Z=Z+1:IFZ<44THENIFA$=""THEN92
94 IFA$<>""THEN140
96 Z=0:GOSUB224:PRINT""TAB(18)"DEMO":PRINTTAB(9)"[152]PRESS ANY KEY TO PLAY[145]"
98 Z=Z+1
100 Y=INT(RND(1)*37+1):IFXC(Y)>300THEN100
102 POKEG,XC(Y):POKEG+1,YC(Y)
104 POKEG+2,XC(Y):POKEG+3,YC(Y):POKEG+4,XC(Y):POKEG+5,YC(Y)
106 FORX=1TO5:POKEG+21,1:GOSUB12:FORT=1TO70:NEXT:POKEG+21,2:GOSUB12
108 FORT=1TO70:NEXT:NEXT
110 GETA$:IFA$<>""THENPOKEG+21,0:GOTO140
112 POKEG+21,4:GOSUB14:POKEG+21,0:IFZ<10THEN98
114 GOTO90
116 PRINT"[147]"CHR$(142)"[169] [169][146][169][169]   [146][169][169][146][169][169][146][169][169] "
118 PRINT"[169][146][169] [169][146][169][169][146][169][169][146][169][169][146][169][164][169][146][169][169][146][169] "
120 PRINT"[169][146][169][163] [169][146][169][169][146][169][163][163][163][169][146][169][163][169][146][169][169][146][169][163] "
122 PRINT"[169][146][169] [169][146][169][169][146][169][169][146][169][169][146][169][169][146][169] "
124 PRINT"[163][163][163][163]"
126 PRINT"[154]  [223][169] [223]  [223]  [223]     [223]"
128 PRINT"           "
130 PRINT"       [146][169]  [146][169]     "
132 PRINT"         "
134 PRINT"  [146][169][223] [146][169]       "
135 PRINT"[151]BY STEVE ELDER"
138 RETURN
140 POKE 198,0:PRINT"[147]   [207]PTIONS:"
142 PRINT"[152] 0. [201]NSTRUCTIONS":PRINT"[152] 1. [211]TANDARD [193]LPHA[194]OPPER"
144 PRINT" 2. [211]PEED [193]LPHA[194]OPPER":PRINTTAB(9)"[208]RESS '0', '1' OR '2'"
145 PRINT"[152]    ([208]RESS '[198]8' TO RETURN TO [213]P[212]IME)"
146 GETX$:IFX$=""THEN146
148 IFX$="1"THENGOSUB224:TI$="000000":GOTO20
150 IFX$="2"THEN154
151 IFX$="0"THEN300
152 IFX$="[140]"THENSYS(8*4096)+4
153 GOTO146
154 PRINT"[147]"TAB(11)"[211]PEED [193]LPHA[194]OPPER"
156 PRINT"[152] 1. [211]LOWEST"
158 PRINT" 2.":PRINT" 3.":PRINT" 4.":PRINT" 5. [198]ASTEST"
160 PRINTTAB(7)"[197]NTER YOUR SPEED (1 TO 5)
162 [161]X$:[139]X$[178]""[167]162
164 [139]X$[178]"1"[167]SK[178]15:[137]176
166 [139]X$[178]"2"[167]SK[178]12:[137]176
168 [139]X$[178]"3"[167]SK[178]9:[137]176
170 [139]X$[178]"4"[167]SK[178]7:[137]176
172 [139]X$[178]"5"[167]SK[178]5:[137]176
174 [137]162
176 [141]224:[137]42
178 [153]""[166]15)"FINISHED!":[153][163]8)"PRESS RETURN TO CONTINUE"
179 [151]198,0
180 [161] A$:[139] A$[179][177][199](13) [167] 180
181 [138]
182 [129]X[178]54272[164]54296:[151]X,.:[130]
184 [151]54277,192:[151]54278,255
186 [151]54276,129:[151]54296,15
188 S1[178]54272:S2[178]54279:S3[178]54286:K[178]1
190 [151]54284,192:[151]54285,255
192 [151]54283,17
194 [142]
196 [151]S2[170]5,9:[151]S2[170]6,0:[151]S2[170]3,255:[151]S2[170]4,0
198 [151]S2,M1(K):[151]S2[170]1,M2(K):[151]S2[170]4,65
200 [129]X[178]1[164]M3(K):[130]:[151]S2[170]4,0
202 K[178]K[170]1:[139]K[178]45[167]K[178]1
204 [142]
206 [131]195,16,256,195,16,256,30,25,256,30,25,256,49,28,256
208 [131]49,28,256,30,25,512,96,22,256,96,22,256,31,21,256
210 [131]31,21,256,209,18,112,209,18,112,209,18,112,209,18,112
212 [131]195,16,640,30,25,256,30,25,256,96,22,256,96,22,256
214 [131]31,21,256,31,21,256,209,18,512,30,25,256,30,25,256
216 [131]96,22,256,96,22,256,31,21,256,31,21,256,209,18,512
218 [131]195,16,256,195,16,256,30,25,256,30,25,256,49,28,256
220 [131]49,28,256,30,25,512,96,22,256,96,22,256,31,21,256
222 [131]31,21,256,209,18,256,209,18,256,195,16,512
224 [153]"LOAD"[199](142);
225 [153]"SYS   VERIFY(null)SYS   VERIFY(null)SYS   VERIFY(null)SYS   VERIFY(null)SYS   VERIFY(null)SYS   VERIFY(null)SYS   VERIFY(null)SYS   VERIFY(null)SYS   VERIFY(null)SYS   VERIFY(null)";
226 [153]"SYS 1 VERIFY SYS 2 VERIFY SYS 3 VERIFY SYS 4 VERIFY SYS 5 VERIFY SYS 6 VERIFY SYS 7 VERIFY SYS 8 VERIFY SYS 9 VERIFY SYS 0 VERIFY ";
228 [153]"WAIT(null)  (null)WAIT(null)  (null)WAIT(null)  (null)WAIT(null)  (null)WAIT(null)  (null)WAIT(null)  (null)WAIT(null)  (null)WAIT(null)  (null)WAIT(null)  (null)WAIT(null)  (null)";
230 [153]"SYS   VERIFY(null)SYS   VERIFY(null)SYS   VERIFY(null)SYS   VERIFY(null)SYS   VERIFY(null)SYS   VERIFY(null)SYS   VERIFY(null)SYS   VERIFY(null)SYS   VERIFY(null)SYS   VERIFY(null)";
232 [153]"SYS Q VERIFY SYS W VERIFY SYS E VERIFY SYS R VERIFY SYS T VERIFY SYS Y VERIFY SYS U VERIFY SYS I VERIFY SYS O VERIFY SYS P VERIFY ";
234 [153]"VERIFYWAIT(null)  (null)WAIT(null)  (null)WAIT(null)  (null)WAIT(null)  (null)WAIT(null)  (null)WAIT(null)  (null)WAIT(null)  (null)WAIT(null)  (null)WAIT(null)  (null)WAIT(null)  (null)";
236 [153]"SYS   VERIFY(null)SYS   VERIFY(null)SYS   VERIFY(null)SYS   VERIFY(null)SYS   VERIFY(null)SYS   VERIFY(null)SYS   VERIFY(null)SYS   VERIFY(null)SYS   VERIFY(null)"
238 [153]"SYS A VERIFY SYS S VERIFY SYS D VERIFY SYS F VERIFY SYS G VERIFY SYS H VERIFY SYS J VERIFY SYS K VERIFY SYS L VERIFY "
240 [153]"WAIT(null)  (null)WAIT(null)  (null)WAIT(null)  (null)WAIT(null)  (null)WAIT(null)  (null)WAIT(null)  (null)WAIT(null)  (null)WAIT(null)  (null)WAIT(null)  (null)"
242 [153]"SYS   VERIFY(null)SYS   VERIFY(null)SYS   VERIFY(null)SYS   VERIFY(null)SYS   VERIFY(null)SYS   VERIFY(null)SYS   VERIFY(null)"
244 [153]"SYS Z VERIFY SYS X VERIFY SYS C VERIFY SYS V VERIFY SYS B VERIFY SYS N VERIFY SYS M VERIFY "
246 [153]"(null)  (null)WAIT(null)  (null)WAIT(null)  (null)WAIT(null)  (null)WAIT(null)  (null)WAIT(null)  (null)WAIT(null)  (null)"
248 [153]"SYS                                 VERIFY(null)"
250 [153]"SYS              SPACE              VERIFY "
252 [153]"VERIFYWAIT(null)                                (null)"
254 [129]X[178]1[164]1000:[130]:[142]
256 [131]26,80,1,58,80,2,90,80,3,122,80,4,154,80,5,186,80,6,218,80,7
258 [131]250,80,8,326,80,9,358,80,0,26,104,Q,58,104,W,90,104,E,122,104,R
260 [131]154,104,T,186,104,Y,218,104,U,250,104,I,326,104,O,358,104,P
262 [131]42,128,A,74,128,S,106,128,D,138,128,F,170,128,G,202,128,H,234,128,J
264 [131]310,128,K,342,128,L,58,152,Z,90,152,X,122,152,C,154,152,V
266 [131]186,152,B,218,152,N,250,152,M,186,176," "
300 [153]"LOADPRINT#(null)HE (null)EYSTOMPS HAVE RIGHT$NVADED YOUR (null)EYBOARD";
302 [153]"----------------------------------------";
305 [153]"LIST   (null)HEY'RE TROMPING AROUND ON YOUR KEYS.";
310 [153]"(null)HAT'S NO GOOD!  RIGHT$T'S NOT THAT BAD,"
315 [153]"THOUGH, 'CAUSE YOU HAVE A BIG HAMMER."
320 [153]"PRINT#   (null)O 'PEEK(null)(null)' A KEYSTOMP, SIMPLY PRESS"
325 [153]"THE KEY ON YOUR (REAL) KEYBOARD THAT"
330 [153]"THE LITTLE MUTANT IS JUMPING ON."
335 [153]"LIST   (null)HEN YOU'VE BOPPED 20 OF THEM, THE"
340 [153]"GAME IS OVER.  (null)OUR SCORE APPEARS AT THE";
345 [153]"BOTTOM OF THE SCREEN."
350 [153]"PRINT#   RIGHT$N '(null)TANDARD ATNLPHAPEEKOPPER' THE"
355 [153]"KEYSTOMPS STAY ON A KEY 'TIL YOU HIT"
360 [153]"THEM.  (null)OUR SCORE IS THE NUMBER OF"
365 [153]"SECONDS REQUIRED TO GET ALL 20."
370 [153]"LIST   RIGHT$N '(null)PEED ATNLPHAPEEKOPPER' THEY ONLY STAY";
375 [153]"ON THE KEY A SHORT TIME BEFORE MOVING."
380 [153]"(null)OUR SCORE IS HOW MANY YOU BOP OUT OF   THE 20 THAT APPEAR."
385 [153]"(null)RESS (null)VAL(null)(null)(null)(null) TO LENONTINUE";
390 [161]X$:[139]X$[179][177][199](13)[167]390
395 [137]140
400 [137]400