home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 85 / 64er_Magazin_Sonderheft_85_19xx_Markt__Technik_de_Side_B.d64 / 19 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  10KB  |  210 lines
  1. 10 v=53248:pokev+21,255:pokev+37,7:pokev+38,0:poke53281,14:pokev+16,0:poke648,4:poke56576,195
  2. 15 poke56576,195:poke53272,29:poke648,4:print"[147]":pokev+31,0:y=100
  3. 20 fort=1to15step2:readx:pokev+t,x:next:data100,199,184,190,175,160,147,155,9,2,4,14,3,7,7
  4. 25 pokev+23,6:pokev+29,26:fort=1to7:readx:pokev+39+t,x:next:fort=0to14step2:pokev+t,t*16:next
  5. 50 poke53270,216:poke53282,8:poke53283,9:pokev+28,1:data254,245,252,253,251,255,250
  6. 60 fort=1to7:readx:poke2040+t,x-21:nextt:pokev+27,255:x=100:sys24576:fort=0to7:poke20480+t*2,t
  7. 100 poke20480+t,t:nextt:poke2040,226:pokev+17,23:gosub1000:print"[129]@a"spc(26)"@@@@":pokev+27,255
  8. 104 gosub1000:print"@@@@a"spc(22)"@@@@@":gosub1000:print"@@@@@a"spc(21)"@@@@@
  9. 106 [141]1000:[153]"@@@@@a"[166]20)"@@@@@@":[141]1000:[153]"@@@@a"[166]20)"@@@@@@@"
  10. 110 [141]1000:[153]"@@@@a                    @@@@@@@
  11. 112 gosub1000:print"@@@@@a                  @@@@a  @
  12. 114 [141]1000:[153]"@@@@@@a                @@@@a   @
  13. 116 gosub1000:print"@@@@@@@a             @@@@@a   @@
  14. 118 [141]1000:[153]"@@@@@@@@a          @@@@@@@@a  @@"
  15. 120 [141]1000:[153]"listright$(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)         right$(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)for@@@@@
  16. 122 gosub1000:print"[155][199][198]^^*__[199][198]         [199][198]^^*__[199][198][129]@@@@@
  17. 124 [141]1000:[153]"for@@list^^*__             ^^*__for@@@@@@@
  18. 126 gosub1000:print"[129]@@[155]^^*__             ^^*__[129]@@@@@@@
  19. 128 [141]1000:[153]"for@@list^^*__             ^^*__for@listoraaaa^
  20. 130 gosub1000:print"[129]@@[155]^^*__             ^^*__[129]@[155][172][176]aa[174][172]
  21. 132 [141]1000:[153]"for@@list^^*__print -list<<<print>    list   ^^*__for@*/expexplog*
  22. 134 gosub1000:print"[129]@@[155]^^*__[153] [190][129][187][187][187][153][191]    [155]   ^^*__[129]@[173][189][189][189][189][188]
  23. 136 [141]1000:[153]"for@@list^^*__             ^^*__for@@@@@@@
  24. 138 gosub1000:print"[129]@@[155]^^*__             ^^*__[129]@[155][176]aaaa[174]
  25. 140 [141]1000:[153]"for@@list^^*__             ^^*__for@list*oraa^*"
  26. 142 [141]1000:[153]"for@@list^^*__           list  ^^*__for@*/expexplog*
  27. 144 gosub1000:print"[129]@@[155]^^*__      [153] [171][155][179][179][179][153][177] [155]^^*__[129]@[173][189][189][189][189][188]
  28. 146 [141]1000:[153]"for@@list^^*__      print cosforrndrndrndprintsinlist ^^*__for@@@@@@@
  29. 148 gosub1000:print"[129]@@[155]^^*__             ^^*__[129]@@@@@@@
  30. 150 [141]1000:[153]"for@@list^^*__             ^^*__for@@@@@@@
  31. 152 gosub1000:print"[155][201][203]^^*__[201][203]         [201][203]^^*__[201][203][129]@@@@@
  32. 154 [141]1000:[153]"listchr$<<<<<<<asc         chr$<<<<<<<ascfor@@@@@
  33. 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]
  34. 158 [141]1000:[153]"forggggggggga                  @@@@
  35. 160 gosub1000:print"ggggggga                     @@@
  36. 162 [141]1000:[153]"ggggga                       @@@
  37. 164 gosub1000:print"[155][201][203][129]gga         [155]       [201][203]    [129]   @@
  38. 166 [141]1000:[153]"list(NULL)ascforga        list         chr$(NULL)for       @@
  39. 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]      @@
  40. 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      @@
  41. 172 gosub1000:print"[155][215]iiiiiiiiiiiiiiiiiiiii[146][213][129] [129]      @@"
  42. 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]      @@"
  43. 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]      @@
  44. 178 [141]1000:[153]"list(NULL)(NULL)     right$(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)     right$(NULL) for      @@"
  45. 180 [141]1000:[153]"listchr$asc     chr$asc^^*__chr$asc     chr$asc for     @@@
  46. 182 gosub1000:print"    [155]     ^^*__  [129]             @@@
  47. 184 [141]1000:[153]"      list   ^^*__ for             @@@@
  48. 186 gosub1000:print"     [155]    ^^*__    [129]         @@@@@
  49. 188 [141]1000:[153]"      list   ^^*__ for           @@@@@@
  50. 190 gosub1000:print"       [155]  ^^*__   [129]        @@@@@@@"
  51. 191 gosub1000:print"[153] [171][155][179][179][179][179][153][177] [155] ^^*__   [153] [171][155][179][179][179][153][177] [129] @@@@@@@
  52. 192 [141]1000:[153]"print cosforrndrndrndrndprintsin list ^^*__  print  cosforrndrndrndprintsinfor @@@@@a @
  53. 193 gosub1000:print"  @@@a   [155]^^*__[129]          @@@a   @
  54. 194 [141]1000:[153]" @@@@@@a list^^*__for           @@a   @"
  55. 195 [141]1000:[153]"@@@@@@@@@list^^*__for            @@a  @
  56. 196 gosub1000:print"@@@@@@@@@[155]^^*__[153] [171][155][179][179][179][153][177] [129]     @@@a @
  57. 197 [141]1000:[153]"@@@@@@@@@list^^*__print cosforrndrndrndprintsinfor        @@@@
  58. 198 gosub1000:print"@@@@@@@@@[155]^^*__[129]               @@@
  59. 199 [141]1000:[153]"@@@@@@@@@list^^*__for               @@@
  60. 200 gosub1000:print"@@@@@@@@@[155]^^*__[129]              @@@@
  61. 201 [141]1000:[153]"for@@@@@@@listright$(NULL)^^*__right$(NULL)   for       @@@@@@
  62. 202 gosub1000:print"[129]@@@@@@@[155][199][179][179][179][179][179][179][179][198]  [129]      @@@@@@@@
  63. 203 [141]1000:[153]"verify=================      =========
  64. 204 gosub1000:print"[129]hhhhhhhhhhhhhhhhhhhhhhhhhh
  65. 205 [141]1000:[153]"for    atnlenpeekpeeklenatn                 atnlenpeeklenatn
  66. 206 gosub1000:print"[151][203]  [207][129][193][195][194][194][195][193] [159]    [206][205]   [129]       [193][195][194][195][193]
  67. 207 [141]1000:[153]"peekpoke(NULL)for  atnlenpeekpeeklenatn   pokeright$(NULL)(NULL)(NULL)(NULL)(NULL)(NULL) for      atnlenpeeklenatn
  68. 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]
  69. 209 [141]1000:[153]"chr$lenpeekpoke(NULL)foratnlenpeekpeeklenatn    pokeright$forpeeklenasc    for     atnlenpeeklenatn
  70. 210 gosub1000:print" [199][195][194][193][195][194][194][195][193]   [151][201][129][194][195][198]     [129]     [193][195][194][195][193]
  71. 211 [141]1000:[153]"  chr$lenpeeklenpeekpeeklenatnpoke(NULL) right$forpeeklenasc     poke     (NULL)foratnlenpeeklenatn
  72. 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]
  73. 213 [141]1000:[153]"for    atnlenpeekpeeklenatnpokeright$forpeeklenasc   poke   mid$mid$mid$mid$mid$mid$ foratnlenpeeklenatn
  74. 214 gosub1000:print"    [193][195][194][194][195][193][194][195][198]         [199][194][151][203][129]  [193][195][194][195][193]
  75. 215 [141]1000:[153]"    atnlenpeekpeeklenpeeklenasc           chr$peekpoke(NULL)for atnlenpeeklenatn
  76. 216 gosub1000:print"  [151] [207][129][193][195][194][194][195][193][198]             [199][194][151][203][129][193][195][194][195][193]
  77. 217 [141]1000:[153]"    atnlenpeekpeeklenatn    poke  right$(NULL)(NULL)    for  chr$peekatnlenpeeklenatn
  78. 218 gosub1000:print"    [193][195][194][194][195][193]  [151] [201][203] [201][129][198][129]        [199][194][195][194][195][193]
  79. 219 [141]1000:[153]" poke  (NULL)foratnlenpeekpeeklenatn  poke  (NULL)right$forasc          atnlenpeeklenatn
  80. 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]
  81. 221 [141]1000:[153]"peekpoke(NULL) for atnlenpeekpeeklenatn list oraaaaaaaa^  for   atnlenpeeklenatn
  82. 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]
  83. 223 [141]1000:[153]"chr$lenpeekpoke(NULL)foratnlenpeekpeeklenatn  */expexpexpexpexpexplog*     atnlenpeeklenatn
  84. 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]
  85. 225 [141]1000:[153]"  chr$lenpeeklenpeekpeeklenatn                 atnlenpeeklenatn
  86. 226 gosub1000:print"   [199][193][195][194][194][195][193]               [151] [207][129][193][195][194][195][193]
  87. 227 [141]1000:[153]"    atnlenpeekpeeklenatn                 atnlenpeeklenatn
  88. 228 gosub1000:print"    [193][195][194][194][195][193]                 [193][195][194][195][193]
  89. 229 [141]1000:[153]"    atnlenpeekpeeklenatn      print(NULL)list(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)print(NULL) for  atnlenpeeklenatn
  90. 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]
  91. 231 [141]1000:[153]"    atnlenpeekpeeklenatn     list (NULL)for(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)list(NULL)for   atnlenpeeklenatn
  92. 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]
  93. 233 [141]1000:[153]"printatnatnatnatnatnatnatnatnatnatnatn     atnatnatnatnatnatnatnatnatnatnatnatnatnatnatnatn
  94. 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]
  95. 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$
  96. 236 gosub1000:print"[129]hhhhhhhhhhhhhhhhhhhhhhhhhhh
  97. 237 [141]1000:[153]"@@@@@                  @@@@@@@@@
  98. 238 gosub1000:print"@@@                       [155][201][203][129]@@@@
  99. 239 [141]1000:[153]"@@               list         chr$^for@@@@"
  100. 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@@@@
  101. 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]@@@@
  102. 242 [141]1000:[153]"    list  (NULL)iiiiiiiiiiiiiiiiiiiiwait^for@@@@
  103. 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]@@@@
  104. 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@@@@
  105. 245 gosub1000:print"          [155][201][208][208][208][208][208][208][208][203]       [201]^[129]@@@@
  106. 246 [141]1000:[153]"          listchr$asc^^*__chr$asc       chr$ascfor@@@@"
  107. 247 [141]1000:[153]"@a        list  ^^*__ for          @@@@
  108. 248 gosub1000:print"@@@a      [155]  ^^*__ [129]           @@@
  109. 249 [141]1000:[153]"@@@@@a    list  ^^*__ for           @@@
  110. 250 gosub1000:print"@@@@@@a   [155]  ^^*__ [129]            @@
  111. 251 [141]1000:[153]"@@@@@@a   list  ^^*__ for             @
  112. 252 gosub1000:print"@@@@@@a   [155]  ^^*__ [129]             @
  113. 253 [141]1000:[153]"@@@@@@a   list  (NULL)^*__ for             @
  114. 254 gosub1000:print"@@@@@@a  [155]    [206]*__     [129]         @
  115. 255 [141]1000:[153]"@@@@@@a     list  (NULL)__  print   -list<<print>  for   @
  116. 256 gosub1000:print"[129]@@@@@@@a   [155]    [206]_  [153]   [190][129][187][187][153][191][129]     @
  117. 257 [141]1000:[153]"for@@@@@@@@a                      @
  118. 258 gosub1000:print"[129]@@@@@@@@a         [153]    [171][155][179][179][153][177][129] [160]   @
  119. 259 [141]1000:[153]"for@@@@@@@@a     print        cosforrndrndprintsinfor close   @
  120. 260 gosub1000:print"[155][176]aaaaa[174][129]@a                      @
  121. 261 [141]1000:[153]"list*oraaa^*for@a list ^(NULL)  open        (NULL)(NULL)  closefor   @
  122. 262 gosub1000:print"[129][172][173][189][189][189][188][172]@@a [155]^^[206]    [151]     [201][208][203][129]     @
  123. 263 [141]1000:[153]"for/expexpexpexpexplog@@a list^^*(NULL)  poke   right$(NULL) right$forasc      @
  124. 264 gosub1000:print"[129]@@@@@@@@@a [155]^^*_[206] [151]    [207][201][129][198]       @
  125. 265 [141]1000:[153]"listoraaaaa^for@@a list^^*__     pokeright$forasc        @
  126. 266 gosub1000:print"[155][172][176]aaa[174][172][129]@@[155][201][203]^^*__[201][203] [151] [201][129][198]       @@@
  127. 267 [141]1000:[153]"for*/expexpexplog*@@listchr$<<<<<<<ascpoke right$formid$(NULL)      @@@@
  128. 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]
  129. 269 [141]1000:[153]"pokeatnatnatnatnatnatnatnatnatnatnatnatnatnatnatnatnatnatnatnatnatnatnatn     atnatnatnatn
  130. 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]
  131. 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)
  132. 272 gosub1000:print"[129][194][195][193]                         [193][195][194][194] [160]
  133. 273 [141]1000:[153]"peeklenatn                         atnlenpeekpeek
  134. 274 gosub1000:print"[194][195][193][151][204]                      [129]  [193][195][194][194]
  135. 275 [141]1000:[153]"peeklenatn           poke        right$(NULL)(NULL)(NULL)for  atnlenpeekpeek
  136. 276 gosub1000:print"[194][195][193]        [159]   [206][205]  [206][205] [129]  [199][194][151][203] [129] [193][195][194][194]
  137. 277 [141]1000:[153]"peeklenatn      poke right$(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL) for  chr$peekpoke(NULL) foratnlenpeekpeek
  138. 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]
  139. 279 [141]1000:[153]"forpeeklenatn          atnlenpeeklenatn        chr$peekatnlenpeekpeek"
  140. 280 [141]1000:[153]"forpeeklenatn          atnlenpeeklenatnpokeright$(NULL)for       chr$peeklenpeekpeek
  141. 281 gosub1000:print"[129][194][195][193]          [193][195][194][195][193][151][204][159]    [206][205] [206][205][129][193][195][194][194]
  142. 282 [141]1000:[153]"forpeeklenatnpoke right$(NULL)(NULL)    right$(NULL)foratnlenpeeklenatn    pokeright$(NULL)(NULL)(NULL)(NULL)(NULL)foratnlenpeekpeek
  143. 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]
  144. 284 [141]1000:[153]"forpeeklenatnpokeright$forasc        atnlenpeeklenatnpoke(NULL)    for  chr$peekpoke(NULL)foratnlenpeekpeek
  145. 285 gosub1000:print"[129][194][195][193][198]         [193][195][194][195][193]        [199][194][193][195][194][194]
  146. 286 [141]1000:[153]"forpeeklenatn      poke   right$foratnlenpeeklenatnpoke(NULL)    for    chr$peeklenpeekpeek
  147. 287 gosub1000:print"[129][194][195][193][151][204][155]      [176]aaaaaaaaa[174]       [129][193][195][194][194]
  148. 288 [141]1000:[153]"forpeeklenatn   list    *oraaaaaaa^*       foratnlenpeekpeek
  149. 289 gosub1000:print"[129][194][195][193]       [172][173][189][189][189][189][189][189][189][188][172]       [193][195][194][194]
  150. 290 [141]1000:[153]"forpeeklenatn       /expexpexpexpexpexpexpexpexplog      poke(NULL)foratnlenpeekpeek
  151. 291 gosub1000:print"[129][194][195][193][151][204]                        [129][193][195][194][194]
  152. 292 [141]1000:[153]"forpeeklenatn                         atnlenpeekpeek
  153. 293 gosub1000:print"[129][194][195][193][151][203]               [160]       [201][129][193][195][194][194]
  154. 294 [141]1000:[153]"pokeatnatnatnatnatnatnatnatnatnatnatnatnatnatnatnatnatnatnatn       atnatnatnatnatnatn
  155. 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]
  156. 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)
  157. 297 gosub1000:print"[129]@@@@@@@@@@@@@@@@@@@[151][215]     [213][129]@@@@@@
  158. 298 [141]1000:[153]"for@@@@@@@@@@@@@@@@@@@poke(NULL)     (NULL)for@@@@@@"
  159. 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)
  160. 300 gosub1000:print"[129]                          @@@@@@
  161. 301 [141]1000:[153]"for                          @@@@@@
  162. 302 gosub1000:print" [159]  [206][205] [206][205][129]                 @@@@@@@
  163. 303 [141]1000:[153]" print -list<<<<print> list ^(NULL)         for   @@@@@@@@
  164. 304 gosub1000:print" [153] [190][129][187][187][187][187][153][191] [155] ^^[206]       [176]aaaaaaa[174][129]@@@
  165. 305 [141]1000:[153]"  poke (NULL)foratnatnpoke(NULL) list  ^^*(NULL)      *oraaaaa^*for@@@
  166. 306 gosub1000:print" [129]   [193][193]   [155] ^^*_[206] [129]    [172][173][189][189][189][189][189][188][172]@@@
  167. 307 [141]1000:[153]" for   atnatnpokeright$(NULL)list  ^^*__for     /expexpexpexpexpexpexplog@@@
  168. 308 gosub1000:print"[151]  [201][203][129][193][193][151][204] [155]  ^^*__[129]         @@@@@@@@
  169. 309 [141]1000:[153]"poke   (NULL)foratnatn  list  ^^*__for            @@@@@
  170. 310 gosub1000:print"[155][201][203] [129] [193][193] [155] [201][203]^^*__[201][203]           [129]@@[155][201][203]
  171. 311 [141]1000:[153]"list_asc pokeright$foratnatnpoke(NULL) listchr$<<<<<<<asc            for@listchr$^
  172. 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]^
  173. 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)^
  174. 314 gosub1000:print"[155]_iiiiiiiiiiiiiiiiiiii[146][206]     [206]iii[146]^
  175. 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)^
  176. 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]^
  177. 317 [141]1000:[153]"list_(NULL)   poke   right$(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)          list  right$^
  178. 318 gosub1000:print"[155][199][198]   [151]   [202][202][202][202][202][202][202][202][202][202]          [155]  [199][198]"
  179. 319 gosub1000:print"[129]@a    [160]   [193][195][194][194][195][193]             @@@
  180. 320 [141]1000:[153]"for@@apoke right$(NULL)(NULL)(NULL)(NULL)for atnlenpeekpeeklenatnpoke(NULL)     for     @@@@@
  181. 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]@@@
  182. 322 [141]1000:[153]"for@@@a chr$lenpeekpoke(NULL)for atnlenpeekpeeklenatn     printcosforrndrndrndrndrndrndsin@@@
  183. 323 gosub1000:print"[129]@@@@a [199][195][194][151][203][129][193][195][194][194][195][193]      @@@@@@@@@@
  184. 324 [141]1000:[153]"for@@@@a  chr$lenpeekatnlenpeekpeeklenatn       @@@@@@@@@
  185. 325 gosub1000:print"[129]@@@@a   [199][195][194][195][194][194][195][193][151][204][129]         @@@@@@
  186. 326 [141]1000:[153]"for@@@@a    chr$lenpeekpeekpeeklenatn           (NULL)list(NULL)(NULL)(NULL)for(NULL)
  187. 327 gosub1000:print"[129]@@@@a     [193][195][194][194][195][193][155]           [213][129][214][214][214][155][215] [160]
  188. 328 [141]1000:[153]"for@@@@a     atnlenpeekpeeklenatnpoke right$(NULL)(NULL)(NULL)(NULL)(NULL)    list(NULL)for(NULL)(NULL)(NULL)list(NULL)
  189. 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]
  190. 330 [141]1000:[153]"for@@@a      atnlenpeekpeeklenatn poke right$forpeekasc    list  (NULL)for(NULL)(NULL)(NULL)list(NULL)
  191. 331 gosub1000:print"[129]@@a       [193][195][194][194][195][193][151] [201][129][194][198]      [155] [213][129][214][214][214][155][215]
  192. 332 [141]1000:[153]"for@a        atnlenpeekpeeklenatnpokeright$forpeekasc        (NULL)list(NULL)(NULL)(NULL)for(NULL)
  193. 333 gosub1000:print"[129]@a    [151]   [207][129][193][195][194][194][195][193][194][198]       @@@@@@@
  194. 334 [141]1000:[153]"for@a        atnlenpeekpeeklenatnasc       @@@@@@@@
  195. 335 gosub1000:print"[129]@a [159][206][205] [206][205] [151][201][129][193][195][194][194][195][193][151][203][129]      @@@@@@@@@
  196. 336 [141]1000:[153]"printatnatnatnatnatnatnatnatnatnatnatnatnatnatnatnatnatnatn     atnatnatnatnatnatnatnatnatn
  197. 337 gosub1000:print"[155];;;;;;;;;;;;;;;;;;     ;;;;;;;;;"
  198. 338 gosub1000:ify>215thenpokev,0:print"[147]":sys49283:load"20",8
  199. 339 goto338
  200. 1000 fort=0to5:j=peek(56320):if(jand1)=.theny=y-3:poke2040,228:ify<50theny=y+3
  201. 1001 if(jand2)=.theny=y+3:poke2040,227:ify>220theny=y-3
  202. 1002 if(jand4)=.thenx=x-3:ifx<25thenx=x+3
  203. 1003 if(jand8)=.thenx=x+3:ifx>255thenx=x-3
  204. 1004 if(peek(v+31)and1)=1thenpokev+31,.:gosub2001
  205. 1005 if(jand1)<>.and(jand2)<>.thenpoke2040,226
  206. 1006 wait653,1,1:pokev,x:pokev+1,y:nextt:return
  207. 2001 fort=0to200:pokev+39,t:nextt:ifpeek(139)=0thensys49283:load"02",8
  208. 2002 poke139,(peek(139))-1:print"[144]ship destroyed"
  209. 2003 print"continues:";peek(139):pokev+21,.:fort=0to500:next:print"[147]":run
  210.