home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
8bitfiles.net/archives
/
archives.tar
/
archives
/
genie-commodore-file-library
/
C64Demos
/
MOON-FLIGHT
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2019-04-13
|
11KB
|
414 lines
0 REM FROM CHUG - HOUSTON TX PUBLIC DOMAIN DISK CHC 204 .
1 REM TITLE BY JIM GREEN .
20 POKE53280,15:POKE53281,15:PRINT"[147][142]";:GOSUB245
25 PRINT" [194]":PRINT" [169] [223]"
30 PRINT"[213][219][219][219][201] [152][172][165][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][167]"
35 PRINT"[209][209][209][209][209] [152][161][165][146] GENIE PUBLIC DOMAIN [167]"
40 PRINT"[188][198][198][198][146][190] [152][161][165][146][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][167]"
45 PRINT"[188] [146][190] [152][188][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162]"
50 PRINT"[194][169] [223][146][194] [152]PRESENTS"
55 PRINT"[175][175][175][175][169] [205] [206] [223][146][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175]";
60 PRINT"[165][129] [213][192][178][192][201][213][192][192][201][213][192][192][201][178][192][192][201] [209] [167]";
65 PRINT"[165][158] [221] [221] [221][221] [221][221] [221][221] [221] [209][150][215][209] [167]";
70 PRINT"[165][150] [202] [203][202][192][192][203][202][192][192][203][202][160][160][203] [209] [167]";
75 PRINT"[165] [209][129] [213][192][192][201][213] [160][160][213] [213][192][192][201][213][160][160][201][213][192][178][192][201] [167]";
80 PRINT"[165] [209][150][215][209][158] [171][192] [221] [221] [221] [201][171][192][192][179] [221] [167]";
85 PRINT"[165] [209][150] [202] [202][192][192][203][202] [202][192][192][203][202] [203] [202] [167]";
90 PRINT"[183][183][183][183] [167][164][165] [146][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]";
95 PRINT"[169] [205] [206][194][205] [206] [223]"
100 PRINT" [146][169] [223][194][146][169] [223] [146]
105 [153]"STEP PEEK (null)":[141]185:[129]D[178]1[164]500:[130]:[137]155
110 [129]Q[178]1[164]3:[129]T[178]1[164]5:[153]"(null)(null)(null)(null)(null)":[141]215:[139]T[178]3[167]120
115 [153]"DEF"[163]T[170]4)"(null)";:[129]D[178]1[164]200:[130]:[137]125
120 [153]""[163]T[170]4)"(null)";:[129]D[178]1[164]200:[130]
125 [141]185:[130]:[130]
130 [153]""[163]7)"(null)(null)";
135 [153]""
140 [153][163]18)" LOADING... "
145 [153][163]18)" WAIT 15 SECONDS"
150 [156]:[137]265
155 [153]""[163]15)"PRINT#*FNNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWTHEN"
160 [153][163]15)"PRINT#GETFNWAIT PROGRAMED BY- THEN"
165 [153][163]15)"PRINT#GETFNWAIT THEN"
170 [153][163]15)"PRINT#GETFNWAIT LARY CAMERON THEN":
175 [153][163]15)"PRINT#GETFNWAITNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWTHEN"
180 [153][163]15)"PRINT#LOGNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEW":[137]110
185 [153]"
190 PRINT"[150]!!"
195 PRINT" !: !! :!"
200 PRINT" ![158]. [150]: [158].[150]!
205 [153]" ! ! ! !
210 PRINT"[158] : : ":POKES+24,11:POKES+24,15:RETURN
215 PRINT"
220 [153]" "
225 [153]" "
230 [153]" "
235 [153]" "
240 [153]" ":[142]
245 S[178]54272:[129]T[178]S[164]S[170]23:[151]T,0:[130]:[151]S[170]24,15:[151]S[170]6,31:[151]S,227
250 [151]S[170]1,65:[151]S,227:[151]S[170]4,129:[142]
255 : MO[145] FLIGHT MAIN PROGRAM .
265 CRT[178]1024:VIC[178]53248:CR$[178][199](13):SID[178]54272:CM[178]55296
270 [151]VIC[170]32,0:[151]VIC[170]33,0
280 [134]S$(7)
285 S$(1)[178]"SYS . . "
290 S$(0)[178]"SYS . . ."
295 S$(2)[178]"SYS . . . "
300 S$(3)[178]"SYS . "
305 S$(4)[178]"SYS . "
310 S$(5)[178]"SYS . . "
315 S$(6)[178]"SYS . . "
320 S$(7)[178]"SYS. "
325 [137]1020
330 [141]2075:[153]:[129]I[178]1[164]25:S[178][181]([187](1)[172]1000):[151]CRT[170]S,46:[151]CM[170]S,7
335 [130]
340 T[178]254:[151]VIC,182:[151]VIC[170]1,155:[151]VIC[170]27,1:[141]1675:N[178]48
345 S2[178]CRT[170]462:S3[178]CRT[170]499
350 C2[178]CM[170]462:C3[178]CM[170]499
355 [129]J[178]1[164]40
360 [153]"WAIT"[163]20)"SYSSTEP(null)WAITCMDCMD WAITCMDCMDSYSFNTHENCMDCMDWAITCONTLOGCOS";
365 [139]J[179]23[167]380
370 [151]S3,78:[151]S3[170]3,77
375 [151]C3,7:[151]C3[170]3,7
380 Z[178](J[170]1)[173]3:[139]Z[179][177][181](Z)[167]395
385 [151]VIC[170]21,1:DE[178]J[172]2.75
390 [141]1585:[151]VIC[170]21,0
395 [141]1520:[129]I[178]1[164](.35[172]J)[174]2[170]125:[130]I:[139]J[178]40[167]465
400 [139]J[179][177]22[167]425
405 [151]S2[171]3,77:[151]C2[171]3,7:[151]S2,78:[151]C2,7
410 [151]S2[171]3,100:[151]S2,100
415 [151]S2[171]3,32:[151]S2,32
420 [151]S3,78:[151]C3,7:[151]S3[170]3,77:[151]C3[170]3,7
425 [139]J[178]38[167][151]S3,82:[151]C3,14:[151]S3[170]3,64:[151]C3[170]3,14:[137]435
430 [139]J[177]21[167][151]S3,32:[151]S3[170]3,32
435 [153]"CMDCMD CMDCMDON CMDCMDON CMDCMDON CMDCMD";
440 [153]"ONONON"
445 [139]J[177]24[167]460
450 S[178][181]([187](1)[172]40):[151]CRT[170]960[170]S,46:[151]CM[170]960[170]S,7
455 [139]J[178]21[167][151]CRT[170]970,81:[151]CM[170]970,6
460 [139]J[177]24[167][135]J$:[153]J$
465 [130]J:[129]I[178]1[164]2000:[130]I
470 [153]"":[153][163]21)"SYS CMDONTO";:YY[178]4
475 [141] 810:[153]"CMDSTEPWAIT";:[141] 810:[153]"CMDFN";
480 [141] 810:[153]"CMD CMDCMD(null)WAIT";:[141] 810:[153]"CMDTO";
485 [151]VIC[170]1,140:[151]VIC[170]5,140:[151]VIC,187:[151]VIC[170]4,187:[151]VIC[170]27,5
490 [151]VIC[170]39,1:[151]VIC[170]41,1
495 [151]2040,250:[151]2042,250:[151]VIC[170]21,5
500 L[178]12:S[178]0:BO[178]4:[141]670:[141] 810
505 M[178]1:L[178]3:G[178]4:[141]710:[151]2040,253:X2[178]X:Y2[178]Y
510 L[178]14:S[178]1:BO[178]0:[141]670:[141] 810
515 [129]I[178]1[164]400:[130]I:[151]2042,253:[129]I[178]1[164]400:[130]I
520 M[178][171]1:L[178]4:G[178]11:[141]710
525 [151]2042,252
530 [153]"";
535 [141] 810:[129]I[178]1[164]1000:[130]
540 [129]I[178]1[164]500:[130]I:YY[178]8
545 [153]"CMDCMDCHR$";:[141] 810:[153]"CMDONCHR$";:[141] 810:[153]"CMDONFN(null)THENWAITCMDCMDCMD";
550 [141]645:[141]1680:[141]1780
555 [151]2042,250
560 [129]I[178]1[164]400:[130]I
565 M[178]1:L[178]5:G[178]7:[141]710
570 X3[178]X:Y3[178]Y
575 [151]2040,250:[153]"";
580 [153]"PEEKCMDTAB(ONONCMD";:[141] 810:[153]"PEEKCMDON";:[141] 810
585 [153]"(null)CMDON";:[141] 810:[153]"SYS18WAITCMDCMDCMD";:[141]645
590 X[178]X2:Y[178]Y2:S[178]0:M[178][171]1:L[178]3:G[178]5:[141]710
595 [141]645:[151]2040,250:[141]645
600 [153]"CMDCMDCMDCMDCMDCMDCMD";
605 YY[178]5:[129]J[178]1[164]7:[153]"CMD .";:[141] 810
610 [130]J:[153]"CMD /ONCLUNK!CMDCMDCMDCMDCMDCMDCMD";:YY[178]20:[141] 810:[129]I[178]1[164]200:[130]
615 [153]" ON ";
620 [129]I[178]1[164]1000:[130]I
625 [137] 820
630 [151]VIC[170]1,134[171]J[172]8
635 [141]1540:[141]1670:[151]SID[170]11,129:[129]I[178]1[164]Q[173]4:[151]SID[170]7,I:[130]
640 Q[178]Q[171]20:[142]
645 [129]I[178]1[164]600:[130]:[142]
650 [129]I[178]1[164]DE:[130]I:[142]
655 [139]S[178]1[167]665
660 T[178]D[171]T:[151]2040,T:[151]VIC,X:[151]VIC[170]1,Y:[141]650:[142]
665 T[178]D[171]T:[151]2042,T:[151]VIC[170]4,X:[151]VIC[170]5,Y:[141]650:[142]
670 DE[178]100:D[178]500:T[178]250:X[178]187:[129]Y[178]140[164]124[169][171]2
675 [141]655:[130]Y:[151]VIC[170]27,BO
680 Y[178]Y[170]2:D[178]D[170]1:[129]Z[178]1[164]6:X[178]X[170]2:[141]655:[130]Z
685 X[178]X[170]1:D[178]D[171]1:T[178]250:[129]Z[178]1[164]5:Y[178]Y[170]2:[141]655:[130]Z
690 D[178]D[170]1:X[178]X[170]2:Y[178]Y[171]1:[141]655:D[178]D[170]1:X[178]X[170]2:[141]655:X[178]X[170]1:[141]655
695 X[178]X[170]2:Y[178]Y[170]1:[141]655
700 T[178]250:D[178]T[172]2:[129]Z[178]1[164]L:DE[178]DE[171]7:Y[178]Y[170]2:[141]655:X[178]X[170].2:[130]Z
705 [142]
710 [129]Z[178]1[164]G
715 DE[178]48:T[178]251[171]M:D[178]T[172]2:[129]Z2[178]1[164]L:X[178]X[170]M:Y[178]Y[171]2:[141]655:[130]Z2
720 DE[178]20:T[178]252[171]M:D[178]T[172]2:[129]Z2[178]1[164]L[172]2:X[178]X[170]M:Y[178]Y[170]1:[141]655:[130]Z2
725 Y[178]Y[171]F:[130]Z
730 [142]
735 [129]BL[178]6[164]10[169]2
740 T[178]251:D[178]T[172]2:DE[178]25
745 [129]Z[178]1[164]BL:[141]655:Y[178]Y[171]2:[130]Z
750 T[178]250:D[178]T[172]2:DE[178]10
755 [129]Z[178]1[164]BL[172]2:[141]655:Y[178]Y[170]1:[130]Z
760 [130]BL
765 T[178]251:D[178]T[172]2:DE[178]17:[129]Z[178]1[164]12:[141]655:Y[178]Y[171]2:[130]Z
770 [141] 810
775 [129]I[178]1[164]50:[130]I:T[178]252:D[178]T[172]2
780 [141]655
785 [129]I[178]1[164]100:[130]I
790 DE[178]28:[129]Z[178]1[164]7:Y[178]Y[171]2:X[178]X[171]2:[141]655:[130]Z
795 [151]VIC[170]27,5
800 [129]Z[178]1[164]21:Y[178]Y[170]1:[141]655:[130]Z
805 [151]VIC[170]21,K:[151]VIC[170]27,0:[142]
810 [141]1690
815 [151]SID[170]4,33:[129]I[178]1[164]65:[130]I:[151]SID[170]4,32:[142]
820 Y[178]Y[171]2:K[178]4:[141] 735
825 X[178]X3:Y[178]Y3
830 S[178]1:M[178]1:L[178]2:G[178]3:F[178]2:[141]710
835 K[178]0:[141] 735
840 [153]"CMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDONONON";
845 [151]VIC[170]21,0
850 [129]I[178]1[164]1500:[130]:YY[178]5
855 [153]"CMDCMDON(null)";:[141] 810:[153]"CMD FN";:[141] 810
860 [153]"CMD(null)";:[141] 810:[153]"CMDTO";
865 [141] 810:[153]"CMD CMD(null)";:[141] 810
870 [129]I[178]1[164]3000:[130]:F[178]500:[129]J[178]1[164]3
875 [151]S2[171]3,77:[151]C2[171]3,14:[151]S2,78:[151]C2,14
880 [151]S2[171]3,32:[151]S2,32:[129]I[178]1[164]F:[130]
885 F[178]F[171]200:[130]J:[153]"CMDCMDCONTLOGCOSCMDCMDONFNTHENCMDCMD ONWAITCMDCMDSYSSTEP(null)WAIT";:Q[178]400
890 [151]VIC,181:[151]VIC[170]39,8:[151]VIC[170]27,255:[151]SID[170]8,5:T[178]254
895 [151]VIC[170]1,144
900 Z$[178]"CMDCMD CMDCMDONCONTLOGCOSCMDCMDONFNTHENCMDCMDONWAITSYSSTEP(null)WAIT"
905 J[178]0:[141]630
910 [153]Z$;
915 [151]VIC[170]21,1:[141]630
920 [129]J[178]1[164]8
925 [153]Z$;
930 [141]630
935 [139]J[179][177]1[167] 945
940 [151]CRT[170]420,100:[151]CM[170]420,14:[151]CRT[170]421,70:[151]CM[170]421,14
945 [130]
950 [153]"CMDCMD CMDCMDON CMDCMDONCONTLOGCOSCMDCMDONFNTHENWAIT";
955 [141]630
960 [153]"CMDCMD CMDCMDON CMDCMDONCONTLOGCOS";
965 J[178]10:[141]630
970 [153]"CMDCMD CMDCMDON ";
975 J[178]11:[141]630
980 [153]"CMDCMD "
985 J[178]12:[141]630:J[178]13:[141]630
990 TM[178]TI[170]60
995 [139]TI[179]TM[167] 995
1000 [141]1680
1005 [141]2075:[153]"";[163]15);" "
1010 [153][163]15);" THE END ":[153][163]15);" "
1015 [129]D[178]1[164]2E3:[130]:[153]"";:[128]
1020 [141]1920
1025 [141]1650
1030 Z[178]1000
1035 [141]2075:[153]""
1040 A$[178]" CMDCMDCMDCMDONCONTSTEPLOGCOSCONT(null)CMDCMDCMDCMDONCONT SYSFNTHENCONT CMDCMDCMDCMDONSTEPSYS(null)(null)CONT(null)CMDCMDCMDON..CMDCMDONTAB(TAB(CMDCMDONVALVALCMDCMDONSYSSTEP(null)WAIT"
1045 [129]I[178]1[164]7:[135]A(I):[130]:[131]56,51,46,39,28,15,4
1050 B$[178]""
1055 [153][163]18);" POKE(null)(null)"
1060 [153][163]18);" PRINT#(null)POKE(null)(null)FN"
1065 [153][163]18);" PRINT#(null)POKE (null)(null)FN"
1070 [153][163]18);" PRINT#(null)TAB(TAB(POKE(null)(null)FN"
1075 [153][163]18);" SYSSTEP(null)WAIT POKE(null)(null)FN"
1080 [153][163]18);" WAIT POKE(null)(null)FNSGN"
1085 [153][163]18);" TAB(TAB(WAIT POKE(null)(null)FNSGN"
1090 [153][163]18);" ..WAIT POKE (null)(null)FNSGN"
1095 [153][163]18);"CONTSTEPSYS(null)(null)CONT(null)WAIT POKE(null)(null)FNSGN"
1100 [153][163]18);"CONT SYSFNTHENCONT WAIT POKE(null)(null)FNSGN"
1105 [153][163]18);"CONTSTEPLOGCOS(null) POKE(null)(null)FNSGN"
1110 [129]I[178]1[164]40:[153]"NOT";:[130]:[129]I[178]1[164]79:[153]"SPC(";:[130]
1115 [151]CRT[170]999,230:[151]CM[170]999,1
1120 [129]I[178]1[164]20
1125 R[178][181]([187](1)[172]1000)
1130 [139][194](CRT[170]R)[179][177]32[167]1125
1135 [151]CRT[170]R,46:[151]CM[170]R,7
1140 [130]
1145 [153]"CONT CMDCMDCMD CMDCMDCMD ONON"
1150 [141]1670:[129]Z[178]9[164]0[169][171]1
1155 [151]SID[170]4,33:[153]"CONTON";Z:TM[178]TI[170]60
1160 [139]TI[179]TM[167]1160
1165 [141]1680:[130]Z
1170 [153]"";[163]20);
1175 [141]1865
1180 [153]"PRINT#WAIT(null)";
1185 [141]1495
1190 [153]"CMDTHEN";
1195 [141]1495
1200 [153]"CMD ONTHENCMDTHEN";
1205 [141]1495
1210 [153]"CMD CMDON ON(null)CMD(null)CMDCHR$";
1215 [141]1495
1220 [153]"CMDONONTHENCMDTHENCMDTHEN";
1225 [151]VIC[170]23,1
1230 [129]J[178]1[164]15
1235 [141]1505
1240 [153]"CMDCMDCMDCMDCMD CMDCMDCMDCMDONCONTSTEPLOGCOS(null)CMDCMDCMDCMDON SYSFNTHENCONT CMDCMDCMDCMDONSTEPSYS(null)(null)CONT(null)CMDCMDCMD";
1245 [153]"ON..CMDCMDONTAB(TAB(CMDCMDON CMDCMDONSYSSTEP(null)ONWAIT";
1250 [151]VIC[170]1,222[171](J[172]8)
1255 [130]
1260 [129]K[178]7[164]1[169][171]1
1265 [141]1505
1270 [153][200](B$,K)""[200](A$,A(8[171]K))
1275 [151]VIC[170]1,222[171](J[172]8):J[178]J[170]1
1280 [130]K
1285 [153]"";
1290 [129]Z[178]1[164]5
1295 [141]1505
1300 [151]VIC[170]1,222[171](J[172]8):J[178]J[170]1
1305 [130]Z
1310 [141]1680:[129]I[178]1[164]1000:[130]
1315 SP$[178]"":[141]2075
1320 [153]SP$A$;:[151]VIC[170]1,174
1325 [129]J[178]1[164]20
1330 [141]1640:[141]1515
1335 [130]
1340 [151]VIC[170]21,0:[151]VIC[170]23,0:[151]VIC[170]39,0:[151]VIC[170]1,149
1345 [129]J[178]1[164]3
1350 [129]K[178]1[164][187](1)[172]1300[170]1:[130]K
1355 [151]CRT[170]458,78:[151]CRT[170]461,77
1360 [151]CM[170]458,6:[151]CM[170]461,6
1365 [129]I[178]1[164]200:[130]
1370 [151]CRT[170]458,32:[151]CRT[170]461,32
1375 [130]J:[153]SP$;A$;
1380 C$[178]" CMDCMDCMDWAITCONT ..WAITCONT CMDCMDCMDCMDSTEPSYS(null)(null)CONT(null)CMDCMDCMDCMD SYSFNTHENCONT CMDCMDCMDCMDWAITSTEPLOGCOS(null)"
1385 [129]I[178]1[164]4:[135]C(I):[130]:[131]41,30,18,4
1390 D$[178]"CMDCMDCMDONONON"
1395 [153]"CMDCMD CMDCMDSYSFNTHENCMDCMD"C$;
1400 [141]1545
1405 [153]"CMDCMDCMDONONONONWAITCONTLOGCOSCMDCMD"C$;
1410 [141]1545
1415 [151]VIC[170]39,8
1420 [129]J[178]1[164]7
1425 [153]"CMDCMDCMDONONONONWAIT CMDCMD"C$;
1430 [141]1545
1435 [130]J
1440 [153]"CMDCMDCMDONONONON";
1445 [129]J[178]1[164]4
1450 [153]"WAIT CMDCMD"[200](C$,C(J))[200](D$,7[171]J);
1455 [141]1545
1460 [130]J
1465 [153]"WAIT ONONON";
1470 [151]VIC[170]21,1
1475 [129]J[178]1[164]30:[141]1640:[141]1515
1480 [130]:[151]VIC[170]21,0:[141]2075
1485 [141]1610
1490 [137]330
1495 Q[178]Q[170]1.2:[151]SID[170]7,Q:T[178]509[171]T:[151]2040,T
1500 [129]I[178]1[164]50:[130]I:[142]
1505 [141]1540:Q[178]Q[170]5:[151]SID[170]7,Q
1510 [129]I[178]1[164]65:[130]I:[142]
1515 [141]1540
1520 [151]SID[170]11,129:[129]I[178]1[164]20:[130]I:[151]SID[170]11,0
1525 [129]I[178]1[164]10:[130]I:[151]SID[170]11,129
1530 [141]1540:[129]I[178]1[164]10:[130]I:[151]SID[170]11,0
1535 [142]
1540 T[178]509[171]T:[151]2040,T:[142]
1545 [151]SID,48:[151]SID[170]1,4
1550 [151]SID[170]4,33:[129]I[178]1[164]20:[130]I
1555 [151]SID[170]4,32:[129]I[178]1[164]20:[130]I
1560 [151]SID,31:[151]SID[170]1,21
1565 [151]SID[170]4,33:[129]I[178]1[164]15:[130]I
1570 [151]SID[170]4,32
1575 [129]I[178]1[164]105:[130]I:[151]SID[170]4,0
1580 [142]
1585 N[178]N[171]3.5:[151]SID[170]14,N
1590 [151]SID[170]18,129
1595 [129]I[178]1[164]DE[173]2:[130]I:[141]1540
1600 [129]I[178]1[164]DE[173]2:[130]I
1605 [151]SID[170]18,128:[142]
1610 [129]I[178]1[164]1500:[130]:[153]"LOAD";
1615 [153]" THREE DAYS LATER..."
1620 [129]I[178]1[164]2000:[130]
1625 [153]"";
1630 [129]I[178]1[164]40:[153]" ";:[130]
1635 [142]
1640 [153]"";:S1[178]S1[170]1:[129]S[178]S1[170]7[164]S1[169][171]1
1645 [153]S$(S[175]7)"":[130]:[142]
1650 [129]Z[178]SID[164]SID[170]24:[151]Z,0:[130]
1655 [151]SID[170]24,15:[151]SID[170]5,7:[151]SID[170]6,7
1660 [151]SID[170]12,31:[151]SID[170]13,241:[151]SID[170]4,0:[151]SID[170]11,0
1665 [151]SID[170]19,0:[151]SID[170]20,240:[142]
1670 [151]SID,99:[151]SID[170]1,56:[151]SID[170]7,0:[151]SID[170]8,1
1675 [151]SID[170]14,48:[151]SID[170]15,11:[142]
1680 [151]SID[170]4,32:[151]SID[170]11,128:[142]
1685 [151]SID[170]5,85:[151]SID[170]6,85:[142]
1690 [151]SID[170]5,5:[151]SID[170]6,5
1695 [151]SID,251:[151]SID[170]1,YY
1700 [142]
1705 [131]"TOTO(null)ASCTANTANLENSTR$LENTANASCTANSTR$TAB(VALSTR$LENTANASC(null)TOASCTANLENSTR$STR$LENTANLENSTR$LENTANASCTANLENTANLENLENTANON"
1710 [131]""
1715 [131]"TANLENSTR$LENTANASC(null)ASCTANLENTANASC(null)ASC(null)TO TANLENVALTAB(STR$VALTAB(VALTAN(null)ONCMDCMDCMDTO(null)TANLENSTR$ON"
1720 [131]" TO(null) TAB(VALSTR$LENON"
1725 [131]" ASC(null)ASCLENVALON"
1730 [131]"ON"
1735 [131]"ON"
1740 [131]"ON"
1745 [131]" TAB(STR$TAN(null)ASCTANLENLENSTR$VALSTR$LENTANASC(null)TOON"
1750 [131]""
1755 [131]""
1760 [131]"TO(null)ASCTANLENSTR$VALTAB(STR$TAN(null)TO(null)ASCLENVALTAB(VALSTR$LENTANASC(null)TO"
1765 [131]" VALSTR$LENTANASC(null)TOTO"
1770 [131]""
1775 [131]""
1780 [141]1685:[129]I[178]1[164]37:[135]NV
1785 [139]NV[178]0[167][151]SID,0:[151]SID[170]1,0:[137]1795
1790 [151]SID,NL(NV):[151]SID[170]1,NH(NV)
1795 [151]SID[170]4,33
1800 [135]D:D[178][171]D:[129]J[178]1[164]D[172]19.5:[130]
1805 [151]SID[170]4,32
1810 [130]
1815 [142]
1820 [131]6,-20,4,-12,0,0,4,-5
1825 [131]8,-24,7,-8,6,-8,5,-8,4,-8
1830 [131]3,-8,7,-28,6,-20,5,-12
1835 [131]0,0,5,-5,4,-24,3,-8,2,-8
1840 [131]0,0,2,-8,3,-8,0,0,3,-8
1845 [131]4,-24,0,-4,4,-20,1,-12,0,0
1850 [131]1,-5,3,-8,5,-8,6,-8,7,-8
1855 [131]4,-24,9,-24,8,-40,0,0
1860 [131]-1
1865 [151]SID[170]11,129
1870 [151]VIC,174:[151]VIC[170]1,222
1875 [151]VIC[170]39,8:[151]2040,254
1880 [151]VIC[170]21,1
1885 T[178]254:S[178]1:[129]Z[178]1[164]42
1890 [141]1540:[151]VIC[170]22,([194](VIC[170]22)[175]248)[170]S
1895 [151]SID[170]7,Z[172]1.2
1900 S[178]1[171]S
1905 [130]Z
1910 Q[178]Z[172]1.2
1915 [142]
1920 [143] PRINT"LOADSETTING UP...WAIT 15 MINUTES...
1925 READZ$:IFZ$<>"-1"THEN1925
1930 B=250*64
1935 READA:IFA=-1THEN2045
1940 POKEB,A:B=B+1:GOTO1935
1945 DATA7,128,0,70,128,0,79,0,0,126,0,0,126,0,0,127,128
1950 DATA0,126,0,0,30,0,0,15,0,0,29,128,0,24,192,0,48
1955 DATA96,0,224,192,0,128,32,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
1960 DATA35,192,0,35,64,0,39,128,0,63,32,0,63,64,0,63,128
1965 DATA0,63,0,0,7,128,0,12,192,0,12,96,0,24,192,0,48
1970 DATA96,0,96,0,0,24,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
1975 DATA60,0,0,44,64,0,30,64,0,15,192,0,15,192,0,63,192
1980 DATA0,15,192,0,15,0,0,30,0,0,55,0,0,99,0,0,193
1985 DATA128,0,96,224,0,128,32,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
1990 DATA120,128,0,88,128,0,60,128,0,159,128,0,95,128,0,63
1995 DATA128,0,31,128,0,60,0,0,102,0,0,198,0,0,99,0,0
2000 DATA193,128,0,0,192,0,3,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
2005 DATA1,252,0,1,252,0,1,236,0,1,126,0,3,248,0,2,120
2010 DATA0,0,252,0,0,124,0,0,114,0,0,126,0,0,120,0,0,48
2015 DATA0,0,48,0,0,56,0,0,80,0,0,56,0,0,64,0,0,0
2020 DATA0,0,0,0,0,0,0,0,0,0,0,1,252,0,3,254,0,5,253
2025 DATA0,5,254,0,7,248,0,6,249,0,2,251,0,6,122,0,3
2030 DATA242,0,0,248,0,0,248,0,0,60,0,0,120,0,0,56,0,0
2035 DATA56,0,0,104,0,0,96,0,0,8,0,0,32,0,0,0,0,0,0,0,0,0
2040 DATA-1
2045 DIMNL(10),NH(10)
2050 FORZ=10TO1STEP-1:READNL(Z),NH(Z):NEXTZ
2055 RESTORE:RETURN
2060 DATA209,18,31,21,96,22,30,25
2065 DATA49,28,165,31,135,33,162,37
2070 DATA62,42,193,44
2075 PRINT"[147]";:RETURN
2080 END