home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Demos / SAUCER-INVASION (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  6.3 KB  |  209 lines
  1. 1 POKE54296,0:POKE54277,128:POKE54278,255:POKE54276,129
  2. 5 PRINT"[147]":PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT
  3. 6 PRINT"            SAUCER INVASION"
  4. 10 FOR A =1TO2000:NEXTA
  5. 15 PRINT"[147]":PRINT:PRINT:PRINT:POKE53281,0:POKE53280,0
  6. 20 PRINT"[158]
  7. 21 [153]" .   .               .     .    .
  8. 22 PRINT"  .    [169][146][169][183]   ..         .        .
  9. 23 [153]"   .    WAIT           .      . .      .  .
  10. 24 PRINT"        [146]              .       ..
  11. 25 [153]".   .  (null)(null)WAITAND    .   .       .   .
  12. 26 PRINT"  .  .               .      .  .   ..
  13. 27 [153]"   .       .    .       .        .    .
  14. 28 PRINT"[151]    [206][205]             [171][166]            [213][195][201]
  15. 29 [153]"POKE    (null)(null)             (null)         (null)LENRIGHT$ SPC(SPC(SPC(
  16. 30 PRINT"   [206][183][183][205]       [180]  [170][214][214][214][180]    [213][201] [166][166][166] [180] [170]
  17. 31 [153]"   (null)USRUSRUSRSGN(null)(null)   (null)(null)  +USRUSRUSRSGN   (null)USRUSR(null)SGN + SPC(SPC(SPC(
  18. 32 PRINT"   [180][176][174] [207][207][208][208]  [207][208]  [170][215][215][215][180]  [207][183][183][183][183][208][166][166] [180] [170]
  19. 33 [153]"   SGN/EXP (null)(null)(null)(null)ANDAND(null)(null)(null) +(null)(null)(null)(null)ANDANDSGNOR^OR^+ + SPC(SPC(SPC(
  20. 34 PRINT"   [180][176][174] [207][207][208][208][166][166][207][208] [208][170][215][215][215][191][191][191][180][173][189][173][189][170][166][166] [180] [170]
  21. 35 [153]"   SGN/EXP (null)USRUSR(null)SPC(SPC((null)(null)  (null) (null)CLOSESINSINSINSGN OR^ + + SPC(USRSPC(
  22. 36 PRINT" [183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]
  23. 37 [129]A[178]1[164]1500:[130]A
  24. 38 [151]54273,8:[151]54272,123:[129]A[178]0[164]15:[151]54296,A:[129]B[178]1[164]90:[130]B:[130]A
  25. 48 V[178]53248
  26. 49 [151]V[170]21,8:[151]V[170]23,8:[151]V[170]29,8
  27. 50 [151]2043,13
  28. 51 [129]N[178]0[164]62:[135]Q:[151]832[170]N,Q:[130]
  29. 52 [129]X[178]0[164]202
  30. 53 [151]V[170]6,X
  31. 54 [151]V[170]7,X
  32. 55 [130]X
  33. 56 [131] 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,24,0,0,127,0,0,128,128,7,85,112
  34. 57 [131] 8,0,8,7,255,240,0,219,0,1,36,128,1,24,128,3,129,192,0,0,0,0,0,0,0,0,0,0
  35. 58 [131] 0,0,0,0,0
  36. 59 [129]A[178]15[164]0[169][171]1:[151]54296,A:[129]B[178]1[164]90:[130]B:[130]A
  37. 137 [129]A[178]1[164]1500:[130]A
  38. 138 [136]D[178]0
  39. 139 [151]54273,6:[151]54272,206
  40. 140 [129]A[178]0[164]15:[151]54296,A:[129]B[178]1[164]90:[130]B:[130]A
  41. 141 [129]T[178]1[164]15
  42. 142 [153]""
  43. 150 [153]""
  44. 155 [153][163]D)" STEPWAITUSR(null)AND
  45. 160 PRINTTAB(D)" [215][195][195][215]
  46. 161 [129]Y[178]1[164]50:[130]Y
  47. 165 [136]D[178]D[170]1:[139]T[178]15[167]167
  48. 166 [130]T
  49. 167 [151]54276,0:[151]54273,0:[151]54272,0:[129]A[178]1[164]2000:[130]A
  50. 168 [129]A[178](1923[170]54272)[164](1928[170]54272):[151]A,8:[130]A
  51. 169 [151]54277,128:[151]54278,255:[151]54276,17:[151]54273,163:[151]54272,31
  52. 171 [129]A[178]1928[164]1923[169][171]1:[151]A,111:[130]A
  53. 172 [129]A[178]1928[164]1923[169][171]1:[151]A,32:[130]A
  54. 174 [136]CC[178]28
  55. 175 [129]RF[178]1[164]30
  56. 176 [153]""
  57. 180 [153]""
  58. 185 [153][199](CC);:[153][163]D)"STEPWAITUSR(null)AND
  59. 190 PRINTCHR$(CC);:PRINTTAB(D)"[215][195][195][215]
  60. 191 [139]CC[178]158[167]CC[178]28:[137]193
  61. 192 [136]CC[178]158:[139]RF[178]20[167]300
  62. 193 [130]RF
  63. 194 [153]"ONON                                   "
  64. 195 [153]"                                    "
  65. 196 [151]54276,0:[151]54277,0:[151]54278,0
  66. 197 [129]A[178]1[164]2000:[130]A
  67. 198 [151]54277,128:[151]54278,255:[151]54276,33:[151]54273,1:[151]54272,18
  68. 199 [129]A[178]0[164]15:[151]54296,A:[129]B[178]1[164]90:[130]B:[130]A
  69. 201 [153]""
  70. 202 [129]HC[178]31[164]23[169][171]1
  71. 203 [153]""
  72. 205 [153][163]HC)"PRINTTOTOTOTOTO "
  73. 210 [153][163]HC)" (null)>RIGHT$  (null) "
  74. 220 [153][163]HC)" MID$=(null)LENLENEXP "
  75. 230 [153][163]HC)"  USRUSR "
  76. 240 [129]A[178]1[164]20:[130]A:[130]HC
  77. 245 [129]A[178]1[164]1500:[130]A
  78. 246 [151]1210,79
  79. 247 [129]A[178](1289[170]54272)[164](1849[170]54272)[169]40:[151]A,11:[130]A
  80. 250 [129]BB[178]1289[164]1849[169]40:[151]BB,81:[151]BB[171]40,32:[129]TY[178]1[164]10:[130]TY
  81. 251 [139]BB[178]1369[167][151]1210,119
  82. 252 [139]BB[178]1689[167][151]BB[171]40,78
  83. 253 [139]BB[178]1729[167][151]BB[171]40,119
  84. 254 [139]BB[178]1769[167][151]BB[171]40,112
  85. 255 [139]BB[178]1809[167][151]BB[171]40,109
  86. 256 [139]BB[178]1889[167][151]BB[171]40,119
  87. 259 [130]BB
  88. 260 [151]1849,119
  89. 265 [129]A[178]1[164]1000:[130]A
  90. 270 [129]BB[178]1849[164]1209[169][171]40:[151]BB,81:[151]BB[170]40,32
  91. 275 [139]BB[178]1809[167][151]BB[170]40,119
  92. 280 [139]BB[178]1729[167][151]BB[170]40,109
  93. 285 [139]BB[178]1689[167][151]BB[170]40,112
  94. 290 [139]BB[178]1649[167][151]BB[170]40,119
  95. 295 [139]BB[178]1609[167][151]BB[170]40,78
  96. 296 [130]BB
  97. 310 [151]54276,129:[151]54296,15:[151]54273,8:[151]54272,3
  98. 311 [153]"":[153]"                                     "
  99. 312 [153]"                                    "
  100. 313 [153]"                                     "
  101. 314 [153]"                                     "
  102. 319 [129]T[178]1[164]19:[135]G,H:[151]G,H:[130]T
  103. 320 [131] 1129,81,1130,64,1170,77,1169,93,1168,78,1128,64,1088,77,1089,93
  104. 325 [131] 1090,78,1131,64,1211,77,1209,93,1207,78,1127,64,1047,77,1049,93,1051,78
  105. 330 [131] 1132,64,1126,64
  106. 336 [129]A[178]1[164]300:[130]A:[129]A[178]15[164]0[169][171]1:[151]54296,A:[129]B[178]1[164]30:[130]B:[130]A
  107. 337 [153]"":[153]"ON                                     "
  108. 338 [153]"                                     "
  109. 339 [153]"                                     "
  110. 340 [153]"                                     "
  111. 341 [153]"                                     ":[129]A[178]1[164]1000:[130]A
  112. 349 [151]54273,8:[151]54272,123:[129]A[178]0[164]15:[151]54296,A:[129]B[178]1[164]90:[130]B:[130]A
  113. 350 V[178]53248
  114. 351 [151]V[170]21,8:[151]V[170]23,8:[151]V[170]29,8
  115. 352 [151]2043,13
  116. 353 [129]N[178]0[164]62:[135]Q:[151]832[170]N,Q:[130]
  117. 354 [129]X[178]202[164]0[169][171]1
  118. 355 [151]V[170]6,202
  119. 356 [151]V[170]7,X
  120. 357 [130]X
  121. 358 [131] 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,24,0,0,127,0,0,128,128,7,85,112
  122. 359 [131] 8,0,8,7,255,240,0,219,0,1,36,128,1,24,128,3,129,192,0,0,0,0,0,0,0,0,0,0
  123. 360 [131] 0,0,0,0,0
  124. 361 [129]A[178]15[164]0[169][171]1:[151]54296,A:[129]B[178]1[164]90:[130]B:[130]A
  125. 362 [129]A[178]1[164]1500:[130]A
  126. 363 [153]"LOAD"
  127. 364 [153]"                          (null)(null)
  128. 365 PRINT"                 [206][205]      [206]  [205]
  129. 366 [153]"          (null)(null)    (null)  (null)  (null)(null)PRINT#(null)(null)(null)(null)(null)PRINT#(null)
  130. 367 PRINT"         [206]  [205]  [152][206][205][206][205][206][152][205][206]  [205]   [152]  [205]
  131. 368 [153]"PRINT#        (null)(null)(null)(null)(null)PRINT#(null)(null)     (null)(null)(null)(null)(null)PRINT#(null)     (null)  CLOSECLOSE
  132. 369 PRINT"       [206]      [205]    [206]      [205]     [205][160]
  133. 370 [153]"      (null)        (null)  (null)        (null)    CLOSE(null)
  134. 371 PRINT"     [206]          [205][206]          [205]  [160]  [205]
  135. 372 [153]"    (null)            (null)           (null)CLOSE    (null)
  136. 373 PRINT"   [206]              [205]           [205]     [205]
  137. 374 [153]"  (null)                (null)           (null)     (null)
  138. 375 PRINT" [206]                  [205]           [205]     [205]
  139. 376 [153]"
  140. 377 PRINT"
  141. 378 [153]"USRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR
  142. 380 POKE54273,8:POKE54272,123:FORA=0TO15:POKE54296,A:FORB=1TO90:NEXTB:NEXTA
  143. 381 V=53248
  144. 382 POKEV+21,8:POKEV+23,8:POKEV+29,8
  145. 383 POKE2043,13
  146. 384 FORN=0TO62:READQ:POKE832+N,Q:NEXT
  147. 385 FORX=0TO180
  148. 386 POKEV+6,200
  149. 387 POKEV+7,X
  150. 388 NEXTX
  151. 389 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,24,0,0,127,0,0,128,128,7,85,112
  152. 390 DATA 8,0,8,7,255,240,0,219,0,1,36,128,1,24,128,3,129,192,0,0,0,0,0,0,0,0,0,0
  153. 391 DATA 0,0,0,0,0
  154. 392 FORA=15TO0STEP-1:POKE54296,A:FORB=1TO90:NEXTB:NEXTA
  155. 393 FORA=1TO1500:NEXTA:LETY=0
  156. 394 POKE54273,6:POKE54272,206:FORA=0TO15:POKE54296,A:FORB=1TO90:NEXTB:NEXTA
  157. 395 FORA=1TO8
  158. 396 PRINT"":PRINT""
  159. 397 PRINTTAB(Y)"  [154][206][205][153][175][175][175][175][187]
  160. 400 [153][163]Y)"  (null)ANDSQRAND
  161. 405 PRINTTAB(Y)" [170][215][215][215][215][153][180]
  162. 410 [153][163]Y)"  USRUSRUSRUSR   CONT
  163. 411 LETY=Y+1:FORT=1TO50:NEXTT:NEXTA
  164. 412 FORA=15TO0STEP-1:POKE54296,A:FORB=1TO50:NEXTB:NEXTA
  165. 413 FORA=(1838+54272)TO(1848+54272):POKEA,8:NEXTA
  166. 414 FORA=(1838+54272)TO(2002+54272)STEP41:POKEA,8:NEXTA
  167. 415 FORA=1TO1500:NEXTA:POKE54276,17:POKE54273,163:POKE54272,31
  168. 416 FORK=1TO3
  169. 417 POKE54296,15
  170. 420 FORA=1848TO1838STEP-1:POKEA,119:POKEA+1,32:NEXTA
  171. 425 FORA=1838TO2002STEP41:POKEA,77:POKEA-41,32:NEXTA
  172. 430 POKE2002,32:POKE54296,0
  173. 435 FORA=1TO1000:NEXTA:NEXTK
  174. 436 FORA=1TO1500:NEXTA:POKE54296,15
  175. 437 FORA=1760TO1768:POKEA,111
  176. 438 IFA=1760THEN440
  177. 439 POKEA-1,32
  178. 440 NEXTA:POKE1768,32
  179. 445 FORA=1TO500:NEXTA:POKE54296,0
  180. 450 POKE54276,129:POKE54273,8:POKE54272,3:POKE54296,15
  181. 455 POKEV+21,0
  182. 460 FORT=1TO19:READG,H:POKEG+639,H:NEXTT
  183. 461 DATA 1129,81,1130,64,1170,77,1169,93,1168,78,1128,64,1088,77,1089,93
  184. 462 DATA 1090,78,1131,64,1211,77,1209,93,1207,78,1127,64,1047,77,1049,93,1051,78
  185. 463 DATA 1132,64,1126,64
  186. 464 FORA=1TO300:NEXTA:FORA=15TO0STEP-1:POKE54296,A:FORB=1TO30:NEXTB:NEXTA
  187. 465 PRINTTAB(16)"[145][145][145][145][145][145]                     "
  188. 466 PRINTTAB(16)"                     "
  189. 467 PRINTTAB(16)"                     "
  190. 468 PRINTTAB(16)"                     "
  191. 469 PRINTTAB(16)"                     "
  192. 470 POKE54273,6:POKE54272,206
  193. 471 FORA=0TO15:POKE54296,A:FORB=1TO50:NEXTB:NEXTA
  194. 475 FORA=1TO23
  195. 476 PRINT"":PRINT""
  196. 477 PRINTTAB(Y)"  [154][206][205][153][175][175][175][175][187]
  197. 478 [153][163]Y)"  (null)ANDSQRAND
  198. 479 PRINTTAB(Y)" [170][215][215][215][215][153][180]
  199. 480 [153][163]Y)"  USRUSRUSRUSR   CONT
  200. 481 LETY=Y+1:FORT=1TO50:NEXTT:NEXTA
  201. 483 PRINT"[147]":POKE53281,6:POKE53280,14
  202. 484 PRINT"THE END
  203. 485 [129]A[178]15[164]0[169][171]1:[151]54296,A:[129]B[178]1[164]30:[130]B:[130]A
  204. 486 [129]A[178]1[164]1000:[130]A
  205. 487 [143]       MIKE FLEISCHNER
  206. 488 [143]       96 EMERSON ST.
  207. 489 [143]       SPFLD., MASS. 01118
  208. 490 [143]       (413) 782-4955
  209.