10 V=53248:POKEV+21,255:POKEV+37,7:POKEV+38,0:POKE53281,14:POKEV+16,0:POKE648,4:POKE56576,195
15 POKE56576,195:POKE53272,29:POKE648,4:PRINT"[147]":POKEV+31,0:Y=100
20 FORT=1TO15STEP2:READX:POKEV+T,X:NEXT:DATA100,199,184,190,175,160,147,155,9,2,4,14,3,7,7
25 POKEV+23,6:POKEV+29,26:FORT=1TO7:READX:POKEV+39+T,X:NEXT:FORT=0TO14STEP2:POKEV+T,T*16:NEXT
50 POKE53270,216:POKE53282,8:POKE53283,9:POKEV+28,1:DATA254,245,252,253,251,255,250
60 FORT=1TO7:READX:POKE2040+T,X-21:NEXTT:POKEV+27,255:X=100:SYS24576:FORT=0TO7:POKE20480+T*2,T
100 POKE20480+T,T:NEXTT:POKE2040,226:POKEV+17,23:GOSUB1000:PRINT"[129]@A"SPC(26)"@@@@":POKEV+27,255
104 GOSUB1000:PRINT"@@@@A"SPC(22)"@@@@@":GOSUB1000:PRINT"@@@@@A"SPC(21)"@@@@@
106 [141]1000:[153]"@@@@@A"[166]20)"@@@@@@":[141]1000:[153]"@@@@A"[166]20)"@@@@@@@"
110 [141]1000:[153]"@@@@A                    @@@@@@@
112 GOSUB1000:PRINT"@@@@@A                  @@@@A  @
114 [141]1000:[153]"@@@@@@A                @@@@A   @
116 GOSUB1000:PRINT"@@@@@@@A             @@@@@A   @@
118 [141]1000:[153]"@@@@@@@@A          @@@@@@@@A  @@"
120 [141]1000:[153]"LISTRIGHT$(null)(null)(null)(null)(null)(null)(null)(null)         RIGHT$(null)(null)(null)(null)(null)(null)(null)(null)FOR@@@@@
122 GOSUB1000:PRINT"[155][199][198]^^*__[199][198]         [199][198]^^*__[199][198][129]@@@@@
124 [141]1000:[153]"FOR@@LIST^^*__             ^^*__FOR@@@@@@@
126 GOSUB1000:PRINT"[129]@@[155]^^*__             ^^*__[129]@@@@@@@
128 [141]1000:[153]"FOR@@LIST^^*__             ^^*__FOR@LISTORAAAA^
130 GOSUB1000:PRINT"[129]@@[155]^^*__             ^^*__[129]@[155][172][176]AA[174][172]
132 [141]1000:[153]"FOR@@LIST^^*__PRINT -LIST<<<PRINT>    LIST   ^^*__FOR@*/EXPEXPLOG*
134 GOSUB1000:PRINT"[129]@@[155]^^*__[153] [190][129][187][187][187][153][191]    [155]   ^^*__[129]@[173][189][189][189][189][188]
136 [141]1000:[153]"FOR@@LIST^^*__             ^^*__FOR@@@@@@@
138 GOSUB1000:PRINT"[129]@@[155]^^*__             ^^*__[129]@[155][176]AAAA[174]
140 [141]1000:[153]"FOR@@LIST^^*__             ^^*__FOR@LIST*ORAA^*"
142 [141]1000:[153]"FOR@@LIST^^*__           LIST  ^^*__FOR@*/EXPEXPLOG*
144 GOSUB1000:PRINT"[129]@@[155]^^*__      [153] [171][155][179][179][179][153][177] [155]^^*__[129]@[173][189][189][189][189][188]
146 [141]1000:[153]"FOR@@LIST^^*__      PRINT COSFORRNDRNDRNDPRINTSINLIST ^^*__FOR@@@@@@@
148 GOSUB1000:PRINT"[129]@@[155]^^*__             ^^*__[129]@@@@@@@
150 [141]1000:[153]"FOR@@LIST^^*__             ^^*__FOR@@@@@@@
152 GOSUB1000:PRINT"[155][201][203]^^*__[201][203]         [201][203]^^*__[201][203][129]@@@@@
154 [141]1000:[153]"LISTCHR$<<<<<<<ASC         CHR$<<<<<<<ASCFOR@@@@@
156 GOSUB1000:PRINT"[149][196][196][196][196][196][196][196][196][196][196][196][144]A[155]     [196][196][196][196][196][196][196][196][196][196][196][196][196][196][196]
158 [141]1000:[153]"FORGGGGGGGGGA                  @@@@
160 GOSUB1000:PRINT"GGGGGGGA                     @@@
162 [141]1000:[153]"GGGGGA                       @@@
164 GOSUB1000:PRINT"[155][201][203][129]GGA         [155]       [201][203]    [129]   @@
166 [141]1000:[153]"LIST(null)ASCFORGA        LIST         CHR$(null)FOR       @@
168 GOSUB1000:PRINT"[155][215][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][213] [129]      @@
170 [141]1000:[153]"LIST(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null) FOR      @@
172 GOSUB1000:PRINT"[155][215]IIIIIIIIIIIIIIIIIIIII[146][213][129] [129]      @@"
174 GOSUB1000:PRINT"[155][215][217][217][217][217][217][217][217][217][217][217][217][217][217][217][217][217][217][217][217][217][217][213] [129]      @@"
176 GOSUB1000:PRINT"[155][215][217][217][217][217][217][217][217][217][217][217][217][217][217][217][217][217][217][217][217][217][217][213] [129]      @@
178 [141]1000:[153]"LIST(null)(null)     RIGHT$(null)(null)(null)(null)(null)(null)(null)(null)     RIGHT$(null) FOR      @@"
180 [141]1000:[153]"LISTCHR$ASC     CHR$ASC^^*__CHR$ASC     CHR$ASC FOR     @@@
182 GOSUB1000:PRINT"    [155]     ^^*__  [129]             @@@
184 [141]1000:[153]"      LIST   ^^*__ FOR             @@@@
186 GOSUB1000:PRINT"     [155]    ^^*__    [129]         @@@@@
188 [141]1000:[153]"      LIST   ^^*__ FOR           @@@@@@
190 GOSUB1000:PRINT"       [155]  ^^*__   [129]        @@@@@@@"
191 GOSUB1000:PRINT"[153] [171][155][179][179][179][179][153][177] [155] ^^*__   [153] [171][155][179][179][179][153][177] [129] @@@@@@@
192 [141]1000:[153]"PRINT COSFORRNDRNDRNDRNDPRINTSIN LIST ^^*__  PRINT  COSFORRNDRNDRNDPRINTSINFOR @@@@@A @
193 GOSUB1000:PRINT"  @@@A   [155]^^*__[129]          @@@A   @
194 [141]1000:[153]" @@@@@@A LIST^^*__FOR           @@A   @"
195 [141]1000:[153]"@@@@@@@@@LIST^^*__FOR            @@A  @
196 GOSUB1000:PRINT"@@@@@@@@@[155]^^*__[153] [171][155][179][179][179][153][177] [129]     @@@A @
197 [141]1000:[153]"@@@@@@@@@LIST^^*__PRINT COSFORRNDRNDRNDPRINTSINFOR        @@@@
198 GOSUB1000:PRINT"@@@@@@@@@[155]^^*__[129]               @@@
199 [141]1000:[153]"@@@@@@@@@LIST^^*__FOR               @@@
200 GOSUB1000:PRINT"@@@@@@@@@[155]^^*__[129]              @@@@
201 [141]1000:[153]"FOR@@@@@@@LISTRIGHT$(null)^^*__RIGHT$(null)   FOR       @@@@@@
202 GOSUB1000:PRINT"[129]@@@@@@@[155][199][179][179][179][179][179][179][179][198]  [129]      @@@@@@@@
203 [141]1000:[153]"VERIFY=================      =========
204 GOSUB1000:PRINT"[129]HHHHHHHHHHHHHHHHHHHHHHHHHH
205 [141]1000:[153]"FOR    ATNLENPEEKPEEKLENATN                 ATNLENPEEKLENATN
206 GOSUB1000:PRINT"[151][203]  [207][129][193][195][194][194][195][193] [159]    [206][205]   [129]       [193][195][194][195][193]
207 [141]1000:[153]"PEEKPOKE(null)FOR  ATNLENPEEKPEEKLENATN   POKERIGHT$(null)(null)(null)(null)(null)(null) FOR      ATNLENPEEKLENATN
208 GOSUB1000:PRINT"[195][194][151][203][129] [193][195][194][194][195][193][151][204]  [202][202][202][202][202][202][202]      [207][129][193][195][194][195][193]
209 [141]1000:[153]"CHR$LENPEEKPOKE(null)FORATNLENPEEKPEEKLENATN    POKERIGHT$FORPEEKLENASC    FOR     ATNLENPEEKLENATN
210 GOSUB1000:PRINT" [199][195][194][193][195][194][194][195][193]   [151][201][129][194][195][198]     [129]     [193][195][194][195][193]
211 [141]1000:[153]"  CHR$LENPEEKLENPEEKPEEKLENATNPOKE(null) RIGHT$FORPEEKLENASC     POKE     (null)FORATNLENPEEKLENATN
212 GOSUB1000:PRINT"[129]   [199][195][194][194][194][195][193] [151][201][129][194][195][198]   [151]  [201][208][208][208][208][203] [129][193][195][194][195][193]
213 [141]1000:[153]"FOR    ATNLENPEEKPEEKLENATNPOKERIGHT$FORPEEKLENASC   POKE   MID$MID$MID$MID$MID$MID$ FORATNLENPEEKLENATN
214 GOSUB1000:PRINT"    [193][195][194][194][195][193][194][195][198]         [199][194][151][203][129]  [193][195][194][195][193]
215 [141]1000:[153]"    ATNLENPEEKPEEKLENPEEKLENASC           CHR$PEEKPOKE(null)FOR ATNLENPEEKLENATN
216 GOSUB1000:PRINT"  [151] [207][129][193][195][194][194][195][193][198]             [199][194][151][203][129][193][195][194][195][193]
217 [141]1000:[153]"    ATNLENPEEKPEEKLENATN    POKE  RIGHT$(null)(null)    FOR  CHR$PEEKATNLENPEEKLENATN
218 GOSUB1000:PRINT"    [193][195][194][194][195][193]  [151] [201][203] [201][129][198][129]        [199][194][195][194][195][193]
219 [141]1000:[153]" POKE  (null)FORATNLENPEEKPEEKLENATN  POKE  (null)RIGHT$FORASC          ATNLENPEEKLENATN
220 GOSUB1000:PRINT"[151][203]  [129] [193][195][194][194][195][193] [151]   [201][129][198][159]  [206][205]  [129]     [193][195][194][195][193]
221 [141]1000:[153]"PEEKPOKE(null) FOR ATNLENPEEKPEEKLENATN LIST ORAAAAAAAA^  FOR   ATNLENPEEKLENATN
222 GOSUB1000:PRINT"[195][194][151][203][129] [193][195][194][194][195][193] [155] [172][176]AAAAAA[174][172]  [151]  [207][129][193][195][194][195][193]
223 [141]1000:[153]"CHR$LENPEEKPOKE(null)FORATNLENPEEKPEEKLENATN  */EXPEXPEXPEXPEXPEXPLOG*     ATNLENPEEKLENATN
224 GOSUB1000:PRINT" [199][195][194][193][195][194][194][195][193]  [173][189][189][189][189][189][189][189][189][188]     [193][195][194][195][193]
225 [141]1000:[153]"  CHR$LENPEEKLENPEEKPEEKLENATN                 ATNLENPEEKLENATN
226 GOSUB1000:PRINT"   [199][193][195][194][194][195][193]               [151] [207][129][193][195][194][195][193]
227 [141]1000:[153]"    ATNLENPEEKPEEKLENATN                 ATNLENPEEKLENATN
228 GOSUB1000:PRINT"    [193][195][194][194][195][193]                 [193][195][194][195][193]
229 [141]1000:[153]"    ATNLENPEEKPEEKLENATN      PRINT(null)LIST(null)(null)(null)(null)(null)(null)PRINT(null) FOR  ATNLENPEEKLENATN
230 GOSUB1000:PRINT"    [193][195][194][194][195][193]     [155] [213][129][214][214][214][214][214][214][155][215][129]   [193][195][194][195][193]
231 [141]1000:[153]"    ATNLENPEEKPEEKLENATN     LIST (null)FOR(null)(null)(null)(null)(null)(null)LIST(null)FOR   ATNLENPEEKLENATN
232 GOSUB1000:PRINT"[151]   [201][129][193][195][194][194][195][193][151][203]     [153][216][155][217][217][217][217][217][217][153][218][151]  [201][129][193][195][194][195][193]
233 [141]1000:[153]"PRINTATNATNATNATNATNATNATNATNATNATNATN     ATNATNATNATNATNATNATNATNATNATNATNATNATNATNATNATN
234 GOSUB1000:PRINT"[151][193][193][206][205][193][193][193][193][193][193][193]     [193][193][193][193][206][205][193][193][193][193][193][206][205][193][193][193]
235 [141]1000:[153]"LISTSTR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$     STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$
236 GOSUB1000:PRINT"[129]HHHHHHHHHHHHHHHHHHHHHHHHHHH
237 [141]1000:[153]"@@@@@                  @@@@@@@@@
238 GOSUB1000:PRINT"@@@                       [155][201][203][129]@@@@
239 [141]1000:[153]"@@               LIST         CHR$^FOR@@@@"
240 [141]1000:[153]"@      LIST (null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)^FOR@@@@
241 GOSUB1000:PRINT"    [155]   [205][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211]^[129]@@@@
242 [141]1000:[153]"    LIST  (null)IIIIIIIIIIIIIIIIIIIIWAIT^FOR@@@@
243 GOSUB1000:PRINT" [155]    [205][217][217][217][217][217][217][217][217][217][217][217][217][217][217][217][217][217][217][217][217][217]^[129]@@@@
244 [141]1000:[153]" LIST    (null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)^FOR@@@@
245 GOSUB1000:PRINT"          [155][201][208][208][208][208][208][208][208][203]       [201]^[129]@@@@
246 [141]1000:[153]"          LISTCHR$ASC^^*__CHR$ASC       CHR$ASCFOR@@@@"
247 [141]1000:[153]"@A        LIST  ^^*__ FOR          @@@@
248 GOSUB1000:PRINT"@@@A      [155]  ^^*__ [129]           @@@
249 [141]1000:[153]"@@@@@A    LIST  ^^*__ FOR           @@@
250 GOSUB1000:PRINT"@@@@@@A   [155]  ^^*__ [129]            @@
251 [141]1000:[153]"@@@@@@A   LIST  ^^*__ FOR             @
252 GOSUB1000:PRINT"@@@@@@A   [155]  ^^*__ [129]             @
253 [141]1000:[153]"@@@@@@A   LIST  (null)^*__ FOR             @
254 GOSUB1000:PRINT"@@@@@@A  [155]    [206]*__     [129]         @
255 [141]1000:[153]"@@@@@@A     LIST  (null)__  PRINT   -LIST<<PRINT>  FOR   @
256 GOSUB1000:PRINT"[129]@@@@@@@A   [155]    [206]_  [153]   [190][129][187][187][153][191][129]     @
257 [141]1000:[153]"FOR@@@@@@@@A                      @
258 GOSUB1000:PRINT"[129]@@@@@@@@A         [153]    [171][155][179][179][153][177][129] [160]   @
259 [141]1000:[153]"FOR@@@@@@@@A     PRINT        COSFORRNDRNDPRINTSINFOR CLOSE   @
260 GOSUB1000:PRINT"[155][176]AAAAA[174][129]@A                      @
261 [141]1000:[153]"LIST*ORAAA^*FOR@A LIST ^(null)  OPEN        (null)(null)  CLOSEFOR   @
262 GOSUB1000:PRINT"[129][172][173][189][189][189][188][172]@@A [155]^^[206]    [151]     [201][208][203][129]     @
263 [141]1000:[153]"FOR/EXPEXPEXPEXPEXPLOG@@A LIST^^*(null)  POKE   RIGHT$(null) RIGHT$FORASC      @
264 GOSUB1000:PRINT"[129]@@@@@@@@@A [155]^^*_[206] [151]    [207][201][129][198]       @
265 [141]1000:[153]"LISTORAAAAA^FOR@@A LIST^^*__     POKERIGHT$FORASC        @
266 GOSUB1000:PRINT"[155][172][176]AAA[174][172][129]@@[155][201][203]^^*__[201][203] [151] [201][129][198]       @@@
267 [141]1000:[153]"FOR*/EXPEXPEXPLOG*@@LISTCHR$<<<<<<<ASCPOKE RIGHT$FORMID$(null)      @@@@
268 GOSUB1000:PRINT"[153][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193]     [193][193][193][193]
269 [141]1000:[153]"POKEATNATNATNATNATNATNATNATNATNATNATNATNATNATNATNATNATNATNATNATNATNATNATN     ATNATNATNATN
270 GOSUB1000:PRINT"[151][212][210][212][210][212][210][212][210][212][210][212][210][212][210][212][210][212][210][212][210][212][210][212]     [210][212][210][212]
271 [141]1000:[153]"PRINT(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)     (null)(null)(null)(null)
272 GOSUB1000:PRINT"[129][194][195][193]                         [193][195][194][194] [160]
273 [141]1000:[153]"PEEKLENATN                         ATNLENPEEKPEEK
274 GOSUB1000:PRINT"[194][195][193][151][204]                      [129]  [193][195][194][194]
275 [141]1000:[153]"PEEKLENATN           POKE        RIGHT$(null)(null)(null)FOR  ATNLENPEEKPEEK
276 GOSUB1000:PRINT"[194][195][193]        [159]   [206][205]  [206][205] [129]  [199][194][151][203] [129] [193][195][194][194]
277 [141]1000:[153]"PEEKLENATN      POKE RIGHT$(null)(null)(null)(null)(null)(null)(null)(null)(null)(null) FOR  CHR$PEEKPOKE(null) FORATNLENPEEKPEEK
278 GOSUB1000:PRINT"[194][195][193][151][204]      [202][202][202][202][202][202][202][202][202][202][202] [129]   [199][194][151][203][129][193][195][194][194]
279 [141]1000:[153]"FORPEEKLENATN          ATNLENPEEKLENATN        CHR$PEEKATNLENPEEKPEEK"
280 [141]1000:[153]"FORPEEKLENATN          ATNLENPEEKLENATNPOKERIGHT$(null)FOR       CHR$PEEKLENPEEKPEEK
281 GOSUB1000:PRINT"[129][194][195][193]          [193][195][194][195][193][151][204][159]    [206][205] [206][205][129][193][195][194][194]
282 [141]1000:[153]"FORPEEKLENATNPOKE RIGHT$(null)(null)    RIGHT$(null)FORATNLENPEEKLENATN    POKERIGHT$(null)(null)(null)(null)(null)FORATNLENPEEKPEEK
283 GOSUB1000:PRINT"[129][194][195][193] [151][201][129][198][160]     [151][207][129][193][195][194][195][193][151][201][203] [129]   [199][194][151][203][129] [193][195][194][194]
284 [141]1000:[153]"FORPEEKLENATNPOKERIGHT$FORASC        ATNLENPEEKLENATNPOKE(null)    FOR  CHR$PEEKPOKE(null)FORATNLENPEEKPEEK
285 GOSUB1000:PRINT"[129][194][195][193][198]         [193][195][194][195][193]        [199][194][193][195][194][194]
286 [141]1000:[153]"FORPEEKLENATN      POKE   RIGHT$FORATNLENPEEKLENATNPOKE(null)    FOR    CHR$PEEKLENPEEKPEEK
287 GOSUB1000:PRINT"[129][194][195][193][151][204][155]      [176]AAAAAAAAA[174]       [129][193][195][194][194]
288 [141]1000:[153]"FORPEEKLENATN   LIST    *ORAAAAAAA^*       FORATNLENPEEKPEEK
289 GOSUB1000:PRINT"[129][194][195][193]       [172][173][189][189][189][189][189][189][189][188][172]       [193][195][194][194]
290 [141]1000:[153]"FORPEEKLENATN       /EXPEXPEXPEXPEXPEXPEXPEXPEXPLOG      POKE(null)FORATNLENPEEKPEEK
291 GOSUB1000:PRINT"[129][194][195][193][151][204]                        [129][193][195][194][194]
292 [141]1000:[153]"FORPEEKLENATN                         ATNLENPEEKPEEK
293 GOSUB1000:PRINT"[129][194][195][193][151][203]               [160]       [201][129][193][195][194][194]
294 [141]1000:[153]"POKEATNATNATNATNATNATNATNATNATNATNATNATNATNATNATNATNATNATNATN       ATNATNATNATNATNATN
295 GOSUB1000:PRINT"[155][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][212]     [210][211][211][211][211][211][211]
296 [141]1000:[153]"POKE(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)     (null)(null)(null)(null)(null)(null)(null)
297 GOSUB1000:PRINT"[129]@@@@@@@@@@@@@@@@@@@[151][215]     [213][129]@@@@@@
298 [141]1000:[153]"FOR@@@@@@@@@@@@@@@@@@@POKE(null)     (null)FOR@@@@@@"
299 [141]1000:[153]"LIST(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)PRINT(null)     (null)LIST(null)(null)(null)(null)(null)(null)
300 GOSUB1000:PRINT"[129]                          @@@@@@
301 [141]1000:[153]"FOR                          @@@@@@
302 GOSUB1000:PRINT" [159]  [206][205] [206][205][129]                 @@@@@@@
303 [141]1000:[153]" PRINT -LIST<<<<PRINT> LIST ^(null)         FOR   @@@@@@@@
304 GOSUB1000:PRINT" [153] [190][129][187][187][187][187][153][191] [155] ^^[206]       [176]AAAAAAA[174][129]@@@
305 [141]1000:[153]"  POKE (null)FORATNATNPOKE(null) LIST  ^^*(null)      *ORAAAAA^*FOR@@@
306 GOSUB1000:PRINT" [129]   [193][193]   [155] ^^*_[206] [129]    [172][173][189][189][189][189][189][188][172]@@@
307 [141]1000:[153]" FOR   ATNATNPOKERIGHT$(null)LIST  ^^*__FOR     /EXPEXPEXPEXPEXPEXPEXPLOG@@@
308 GOSUB1000:PRINT"[151]  [201][203][129][193][193][151][204] [155]  ^^*__[129]         @@@@@@@@
309 [141]1000:[153]"POKE   (null)FORATNATN  LIST  ^^*__FOR            @@@@@
310 GOSUB1000:PRINT"[155][201][203] [129] [193][193] [155] [201][203]^^*__[201][203]           [129]@@[155][201][203]
311 [141]1000:[153]"LIST_ASC POKERIGHT$FORATNATNPOKE(null) LISTCHR$<<<<<<<ASC            FOR@LISTCHR$^
312 GOSUB1000:PRINT"[155]_[211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][206]      [211][211][211][211][211]^
313 [141]1000:[153]"LIST_(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)     (null)(null)(null)(null)(null)^
314 GOSUB1000:PRINT"[155]_IIIIIIIIIIIIIIIIIIII[146][206]     [206]III[146]^
315 [141]1000:[153]"LIST_(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)     (null)(null)(null)^
316 GOSUB1000:PRINT"[155]_[217][217][217][217][217][217][217][217][217][217][217][217][217][217][217][217][217][217][217][217][217][217]      [206][217]^
317 [141]1000:[153]"LIST_(null)   POKE   RIGHT$(null)(null)(null)(null)(null)(null)(null)(null)(null)          LIST  RIGHT$^
318 GOSUB1000:PRINT"[155][199][198]   [151]   [202][202][202][202][202][202][202][202][202][202]          [155]  [199][198]"
319 GOSUB1000:PRINT"[129]@A    [160]   [193][195][194][194][195][193]             @@@
320 [141]1000:[153]"FOR@@APOKE RIGHT$(null)(null)(null)(null)FOR ATNLENPEEKPEEKLENATNPOKE(null)     FOR     @@@@@
321 GOSUB1000:PRINT"[129]@@A[151] [202][202][202][202][202][129] [193][195][194][194][195][193]     [153][171][155][179][179][179][179][179][179][129][177]@@@
322 [141]1000:[153]"FOR@@@A CHR$LENPEEKPOKE(null)FOR ATNLENPEEKPEEKLENATN     PRINTCOSFORRNDRNDRNDRNDRNDRNDSIN@@@
323 GOSUB1000:PRINT"[129]@@@@A [199][195][194][151][203][129][193][195][194][194][195][193]      @@@@@@@@@@
324 [141]1000:[153]"FOR@@@@A  CHR$LENPEEKATNLENPEEKPEEKLENATN       @@@@@@@@@
325 GOSUB1000:PRINT"[129]@@@@A   [199][195][194][195][194][194][195][193][151][204][129]         @@@@@@
326 [141]1000:[153]"FOR@@@@A    CHR$LENPEEKPEEKPEEKLENATN           (null)LIST(null)(null)(null)FOR(null)
327 GOSUB1000:PRINT"[129]@@@@A     [193][195][194][194][195][193][155]           [213][129][214][214][214][155][215] [160]
328 [141]1000:[153]"FOR@@@@A     ATNLENPEEKPEEKLENATNPOKE RIGHT$(null)(null)(null)(null)(null)    LIST(null)FOR(null)(null)(null)LIST(null)
329 GOSUB1000:PRINT"[129]@@@@A [151]   [207][129][193][195][194][194][195][193][151] [202][202][202][202][202][202]  [155]  [213][129][214][214][214][155][215]
330 [141]1000:[153]"FOR@@@A      ATNLENPEEKPEEKLENATN POKE RIGHT$FORPEEKASC    LIST  (null)FOR(null)(null)(null)LIST(null)
331 GOSUB1000:PRINT"[129]@@A       [193][195][194][194][195][193][151] [201][129][194][198]      [155] [213][129][214][214][214][155][215]
332 [141]1000:[153]"FOR@A        ATNLENPEEKPEEKLENATNPOKERIGHT$FORPEEKASC        (null)LIST(null)(null)(null)FOR(null)
333 GOSUB1000:PRINT"[129]@A    [151]   [207][129][193][195][194][194][195][193][194][198]       @@@@@@@
334 [141]1000:[153]"FOR@A        ATNLENPEEKPEEKLENATNASC       @@@@@@@@
335 GOSUB1000:PRINT"[129]@A [159][206][205] [206][205] [151][201][129][193][195][194][194][195][193][151][203][129]      @@@@@@@@@
336 [141]1000:[153]"PRINTATNATNATNATNATNATNATNATNATNATNATNATNATNATNATNATNATNATN     ATNATNATNATNATNATNATNATNATN
337 GOSUB1000:PRINT"[155];;;;;;;;;;;;;;;;;;     ;;;;;;;;;"
338 GOSUB1000:IFY>215THENPOKEV,0:PRINT"[147]":SYS49283:LOAD"20",8
339 GOTO338
1000 FORT=0TO5:J=PEEK(56320):IF(JAND1)=.THENY=Y-3:POKE2040,228:IFY<50THENY=Y+3
1001 IF(JAND2)=.THENY=Y+3:POKE2040,227:IFY>220THENY=Y-3
1002 IF(JAND4)=.THENX=X-3:IFX<25THENX=X+3
1003 IF(JAND8)=.THENX=X+3:IFX>255THENX=X-3
1004 IF(PEEK(V+31)AND1)=1THENPOKEV+31,.:GOSUB2001
1005 IF(JAND1)<>.AND(JAND2)<>.THENPOKE2040,226
1006 WAIT653,1,1:POKEV,X:POKEV+1,Y:NEXTT:RETURN
2001 FORT=0TO200:POKEV+39,T:NEXTT:IFPEEK(139)=0THENSYS49283:LOAD"02",8
2002 POKE139,(PEEK(139))-1:PRINT"[144]SHIP DESTROYED"
2003 PRINT"CONTINUES:";PEEK(139):POKEV+21,.:FORT=0TO500:NEXT:PRINT"[147]":RUN