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