home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Demos / MOON-FLIGHT (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  11.1 KB  |  414 lines
  1. 0 REM     FROM CHUG - HOUSTON TX                PUBLIC DOMAIN DISK CHC 204     .
  2. 1 REM       TITLE BY JIM GREEN         .
  3. 20 POKE53280,15:POKE53281,15:PRINT"[147][142]";:GOSUB245
  4. 25 PRINT" [194]":PRINT"      [169] [223]"
  5. 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]"
  6. 35 PRINT"[209][209][209][209][209] [152][161][165][146]   GENIE PUBLIC DOMAIN   [167]"
  7. 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]"
  8. 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]"
  9. 50 PRINT"[194][169] [223][146][194]           [152]PRESENTS"
  10. 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]";
  11. 60 PRINT"[165][129]   [213][192][178][192][201][213][192][192][201][213][192][192][201][178][192][192][201]             [209]    [167]";
  12. 65 PRINT"[165][158]   [221] [221] [221][221]  [221][221]  [221][221]  [221]            [209][150][215][209]   [167]";
  13. 70 PRINT"[165][150]   [202]   [203][202][192][192][203][202][192][192][203][202][160][160][203]             [209]    [167]";
  14. 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]";
  15. 80 PRINT"[165]   [209][150][215][209][158]      [171][192]  [221]   [221] [221]  [201][171][192][192][179]  [221]     [167]";
  16. 85 PRINT"[165]    [209][150]       [202]   [202][192][192][203][202] [202][192][192][203][202]  [203]  [202]     [167]";
  17. 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]";
  18. 95 PRINT"[169] [205] [206][194][205] [206] [223]"
  19. 100 PRINT"  [146][169] [223][194][146][169] [223]  [146]
  20. 105 [153]"STEP    PEEK    (null)":[141]185:[129]D[178]1[164]500:[130]:[137]155
  21. 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
  22. 115 [153]"DEF"[163]T[170]4)"(null)";:[129]D[178]1[164]200:[130]:[137]125
  23. 120 [153]""[163]T[170]4)"(null)";:[129]D[178]1[164]200:[130]
  24. 125 [141]185:[130]:[130]
  25. 130 [153]""[163]7)"(null)(null)";
  26. 135 [153]""
  27. 140 [153][163]18)"    LOADING...  "
  28. 145 [153][163]18)" WAIT 15 SECONDS"
  29. 150 [156]:[137]265
  30. 155 [153]""[163]15)"PRINT#*FNNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWTHEN"
  31. 160 [153][163]15)"PRINT#GETFNWAIT   PROGRAMED BY-   THEN"
  32. 165 [153][163]15)"PRINT#GETFNWAIT                   THEN"
  33. 170 [153][163]15)"PRINT#GETFNWAIT   LARY  CAMERON   THEN":
  34. 175 [153][163]15)"PRINT#GETFNWAITNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWTHEN"
  35. 180 [153][163]15)"PRINT#LOGNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEW":[137]110
  36. 185 [153]"
  37. 190 PRINT"[150]!!"
  38. 195 PRINT"  !: !! :!"
  39. 200 PRINT"    ![158]. [150]: [158].[150]!
  40. 205 [153]"   !  ! !  !
  41. 210 PRINT"[158]     :   : ":POKES+24,11:POKES+24,15:RETURN
  42. 215 PRINT"
  43. 220 [153]"  "
  44. 225 [153]"          "
  45. 230 [153]"           "
  46. 235 [153]"            "
  47. 240 [153]"          ":[142]
  48. 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
  49. 250 [151]S[170]1,65:[151]S,227:[151]S[170]4,129:[142]
  50. 255 :      MO[145] FLIGHT MAIN PROGRAM    .
  51. 265 CRT[178]1024:VIC[178]53248:CR$[178][199](13):SID[178]54272:CM[178]55296
  52. 270 [151]VIC[170]32,0:[151]VIC[170]33,0
  53. 280 [134]S$(7)
  54. 285 S$(1)[178]"SYS           .                  .   "
  55. 290 S$(0)[178]"SYS  .               .              ."
  56. 295 S$(2)[178]"SYS           .           .       .  "
  57. 300 S$(3)[178]"SYS                 .                "
  58. 305 S$(4)[178]"SYS                          .       "
  59. 310 S$(5)[178]"SYS     .         .                  "
  60. 315 S$(6)[178]"SYS        .                .        "
  61. 320 S$(7)[178]"SYS.                                 "
  62. 325 [137]1020
  63. 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
  64. 335 [130]
  65. 340 T[178]254:[151]VIC,182:[151]VIC[170]1,155:[151]VIC[170]27,1:[141]1675:N[178]48
  66. 345 S2[178]CRT[170]462:S3[178]CRT[170]499
  67. 350 C2[178]CM[170]462:C3[178]CM[170]499
  68. 355 [129]J[178]1[164]40
  69. 360 [153]"WAIT"[163]20)"SYSSTEP(null)WAITCMDCMD  WAITCMDCMDSYSFNTHENCMDCMDWAITCONTLOGCOS";
  70. 365 [139]J[179]23[167]380
  71. 370 [151]S3,78:[151]S3[170]3,77
  72. 375 [151]C3,7:[151]C3[170]3,7
  73. 380 Z[178](J[170]1)[173]3:[139]Z[179][177][181](Z)[167]395
  74. 385 [151]VIC[170]21,1:DE[178]J[172]2.75
  75. 390 [141]1585:[151]VIC[170]21,0
  76. 395 [141]1520:[129]I[178]1[164](.35[172]J)[174]2[170]125:[130]I:[139]J[178]40[167]465
  77. 400 [139]J[179][177]22[167]425
  78. 405 [151]S2[171]3,77:[151]C2[171]3,7:[151]S2,78:[151]C2,7
  79. 410 [151]S2[171]3,100:[151]S2,100
  80. 415 [151]S2[171]3,32:[151]S2,32
  81. 420 [151]S3,78:[151]C3,7:[151]S3[170]3,77:[151]C3[170]3,7
  82. 425 [139]J[178]38[167][151]S3,82:[151]C3,14:[151]S3[170]3,64:[151]C3[170]3,14:[137]435
  83. 430 [139]J[177]21[167][151]S3,32:[151]S3[170]3,32
  84. 435 [153]"CMDCMD  CMDCMDON  CMDCMDON  CMDCMDON  CMDCMD";
  85. 440 [153]"ONONON"
  86. 445 [139]J[177]24[167]460
  87. 450 S[178][181]([187](1)[172]40):[151]CRT[170]960[170]S,46:[151]CM[170]960[170]S,7
  88. 455 [139]J[178]21[167][151]CRT[170]970,81:[151]CM[170]970,6
  89. 460 [139]J[177]24[167][135]J$:[153]J$
  90. 465 [130]J:[129]I[178]1[164]2000:[130]I
  91. 470 [153]"":[153][163]21)"SYS CMDONTO";:YY[178]4
  92. 475 [141] 810:[153]"CMDSTEPWAIT";:[141] 810:[153]"CMDFN";
  93. 480 [141] 810:[153]"CMD CMDCMD(null)WAIT";:[141] 810:[153]"CMDTO";
  94. 485 [151]VIC[170]1,140:[151]VIC[170]5,140:[151]VIC,187:[151]VIC[170]4,187:[151]VIC[170]27,5
  95. 490 [151]VIC[170]39,1:[151]VIC[170]41,1
  96. 495 [151]2040,250:[151]2042,250:[151]VIC[170]21,5
  97. 500 L[178]12:S[178]0:BO[178]4:[141]670:[141] 810
  98. 505 M[178]1:L[178]3:G[178]4:[141]710:[151]2040,253:X2[178]X:Y2[178]Y
  99. 510 L[178]14:S[178]1:BO[178]0:[141]670:[141] 810
  100. 515 [129]I[178]1[164]400:[130]I:[151]2042,253:[129]I[178]1[164]400:[130]I
  101. 520 M[178][171]1:L[178]4:G[178]11:[141]710
  102. 525 [151]2042,252
  103. 530 [153]"";
  104. 535 [141] 810:[129]I[178]1[164]1000:[130]
  105. 540 [129]I[178]1[164]500:[130]I:YY[178]8
  106. 545 [153]"CMDCMDCHR$";:[141] 810:[153]"CMDONCHR$";:[141] 810:[153]"CMDONFN(null)THENWAITCMDCMDCMD";
  107. 550 [141]645:[141]1680:[141]1780
  108. 555 [151]2042,250
  109. 560 [129]I[178]1[164]400:[130]I
  110. 565 M[178]1:L[178]5:G[178]7:[141]710
  111. 570 X3[178]X:Y3[178]Y
  112. 575 [151]2040,250:[153]"";
  113. 580 [153]"PEEKCMDTAB(ONONCMD";:[141] 810:[153]"PEEKCMDON";:[141] 810
  114. 585 [153]"(null)CMDON";:[141] 810:[153]"SYS18WAITCMDCMDCMD";:[141]645
  115. 590 X[178]X2:Y[178]Y2:S[178]0:M[178][171]1:L[178]3:G[178]5:[141]710
  116. 595 [141]645:[151]2040,250:[141]645
  117. 600 [153]"CMDCMDCMDCMDCMDCMDCMD";
  118. 605 YY[178]5:[129]J[178]1[164]7:[153]"CMD .";:[141] 810
  119. 610 [130]J:[153]"CMD /ONCLUNK!CMDCMDCMDCMDCMDCMDCMD";:YY[178]20:[141] 810:[129]I[178]1[164]200:[130]
  120. 615 [153]" ON        ";
  121. 620 [129]I[178]1[164]1000:[130]I
  122. 625 [137] 820
  123. 630 [151]VIC[170]1,134[171]J[172]8
  124. 635 [141]1540:[141]1670:[151]SID[170]11,129:[129]I[178]1[164]Q[173]4:[151]SID[170]7,I:[130]
  125. 640 Q[178]Q[171]20:[142]
  126. 645 [129]I[178]1[164]600:[130]:[142]
  127. 650 [129]I[178]1[164]DE:[130]I:[142]
  128. 655 [139]S[178]1[167]665
  129. 660 T[178]D[171]T:[151]2040,T:[151]VIC,X:[151]VIC[170]1,Y:[141]650:[142]
  130. 665 T[178]D[171]T:[151]2042,T:[151]VIC[170]4,X:[151]VIC[170]5,Y:[141]650:[142]
  131. 670 DE[178]100:D[178]500:T[178]250:X[178]187:[129]Y[178]140[164]124[169][171]2
  132. 675 [141]655:[130]Y:[151]VIC[170]27,BO
  133. 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
  134. 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
  135. 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
  136. 695 X[178]X[170]2:Y[178]Y[170]1:[141]655
  137. 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
  138. 705 [142]
  139. 710 [129]Z[178]1[164]G
  140. 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
  141. 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
  142. 725 Y[178]Y[171]F:[130]Z
  143. 730 [142]
  144. 735 [129]BL[178]6[164]10[169]2
  145. 740 T[178]251:D[178]T[172]2:DE[178]25
  146. 745 [129]Z[178]1[164]BL:[141]655:Y[178]Y[171]2:[130]Z
  147. 750 T[178]250:D[178]T[172]2:DE[178]10
  148. 755 [129]Z[178]1[164]BL[172]2:[141]655:Y[178]Y[170]1:[130]Z
  149. 760 [130]BL
  150. 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
  151. 770 [141] 810
  152. 775 [129]I[178]1[164]50:[130]I:T[178]252:D[178]T[172]2
  153. 780 [141]655
  154. 785 [129]I[178]1[164]100:[130]I
  155. 790 DE[178]28:[129]Z[178]1[164]7:Y[178]Y[171]2:X[178]X[171]2:[141]655:[130]Z
  156. 795 [151]VIC[170]27,5
  157. 800 [129]Z[178]1[164]21:Y[178]Y[170]1:[141]655:[130]Z
  158. 805 [151]VIC[170]21,K:[151]VIC[170]27,0:[142]
  159. 810 [141]1690
  160. 815 [151]SID[170]4,33:[129]I[178]1[164]65:[130]I:[151]SID[170]4,32:[142]
  161. 820 Y[178]Y[171]2:K[178]4:[141] 735
  162. 825 X[178]X3:Y[178]Y3
  163. 830 S[178]1:M[178]1:L[178]2:G[178]3:F[178]2:[141]710
  164. 835 K[178]0:[141] 735
  165. 840 [153]"CMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDONONON";
  166. 845 [151]VIC[170]21,0
  167. 850 [129]I[178]1[164]1500:[130]:YY[178]5
  168. 855 [153]"CMDCMDON(null)";:[141] 810:[153]"CMD FN";:[141] 810
  169. 860 [153]"CMD(null)";:[141] 810:[153]"CMDTO";
  170. 865 [141] 810:[153]"CMD CMD(null)";:[141] 810
  171. 870 [129]I[178]1[164]3000:[130]:F[178]500:[129]J[178]1[164]3
  172. 875 [151]S2[171]3,77:[151]C2[171]3,14:[151]S2,78:[151]C2,14
  173. 880 [151]S2[171]3,32:[151]S2,32:[129]I[178]1[164]F:[130]
  174. 885 F[178]F[171]200:[130]J:[153]"CMDCMDCONTLOGCOSCMDCMDONFNTHENCMDCMD  ONWAITCMDCMDSYSSTEP(null)WAIT";:Q[178]400
  175. 890 [151]VIC,181:[151]VIC[170]39,8:[151]VIC[170]27,255:[151]SID[170]8,5:T[178]254
  176. 895 [151]VIC[170]1,144
  177. 900 Z$[178]"CMDCMD  CMDCMDONCONTLOGCOSCMDCMDONFNTHENCMDCMDONWAITSYSSTEP(null)WAIT"
  178. 905 J[178]0:[141]630
  179. 910 [153]Z$;
  180. 915 [151]VIC[170]21,1:[141]630
  181. 920 [129]J[178]1[164]8
  182. 925 [153]Z$;
  183. 930 [141]630
  184. 935 [139]J[179][177]1[167] 945
  185. 940 [151]CRT[170]420,100:[151]CM[170]420,14:[151]CRT[170]421,70:[151]CM[170]421,14
  186. 945 [130]
  187. 950 [153]"CMDCMD  CMDCMDON  CMDCMDONCONTLOGCOSCMDCMDONFNTHENWAIT";
  188. 955 [141]630
  189. 960 [153]"CMDCMD  CMDCMDON  CMDCMDONCONTLOGCOS";
  190. 965 J[178]10:[141]630
  191. 970 [153]"CMDCMD  CMDCMDON  ";
  192. 975 J[178]11:[141]630
  193. 980 [153]"CMDCMD  "
  194. 985 J[178]12:[141]630:J[178]13:[141]630
  195. 990 TM[178]TI[170]60
  196. 995 [139]TI[179]TM[167] 995
  197. 1000 [141]1680
  198. 1005 [141]2075:[153]"";[163]15);"         "
  199. 1010 [153][163]15);" THE END ":[153][163]15);"         "
  200. 1015 [129]D[178]1[164]2E3:[130]:[153]"";:[128]
  201. 1020 [141]1920
  202. 1025 [141]1650
  203. 1030 Z[178]1000
  204. 1035 [141]2075:[153]""
  205. 1040 A$[178]"    CMDCMDCMDCMDONCONTSTEPLOGCOSCONT(null)CMDCMDCMDCMDONCONT SYSFNTHENCONT CMDCMDCMDCMDONSTEPSYS(null)(null)CONT(null)CMDCMDCMDON..CMDCMDONTAB(TAB(CMDCMDONVALVALCMDCMDONSYSSTEP(null)WAIT"
  206. 1045 [129]I[178]1[164]7:[135]A(I):[130]:[131]56,51,46,39,28,15,4
  207. 1050 B$[178]""
  208. 1055 [153][163]18);"     POKE(null)(null)"
  209. 1060 [153][163]18);"    PRINT#(null)POKE(null)(null)FN"
  210. 1065 [153][163]18);"   PRINT#(null)POKE (null)(null)FN"
  211. 1070 [153][163]18);"  PRINT#(null)TAB(TAB(POKE(null)(null)FN"
  212. 1075 [153][163]18);" SYSSTEP(null)WAIT  POKE(null)(null)FN"
  213. 1080 [153][163]18);"   WAIT  POKE(null)(null)FNSGN"
  214. 1085 [153][163]18);" TAB(TAB(WAIT  POKE(null)(null)FNSGN"
  215. 1090 [153][163]18);" ..WAIT POKE (null)(null)FNSGN"
  216. 1095 [153][163]18);"CONTSTEPSYS(null)(null)CONT(null)WAIT POKE(null)(null)FNSGN"
  217. 1100 [153][163]18);"CONT SYSFNTHENCONT WAIT POKE(null)(null)FNSGN"
  218. 1105 [153][163]18);"CONTSTEPLOGCOS(null) POKE(null)(null)FNSGN"
  219. 1110 [129]I[178]1[164]40:[153]"NOT";:[130]:[129]I[178]1[164]79:[153]"SPC(";:[130]
  220. 1115 [151]CRT[170]999,230:[151]CM[170]999,1
  221. 1120 [129]I[178]1[164]20
  222. 1125 R[178][181]([187](1)[172]1000)
  223. 1130 [139][194](CRT[170]R)[179][177]32[167]1125
  224. 1135 [151]CRT[170]R,46:[151]CM[170]R,7
  225. 1140 [130]
  226. 1145 [153]"CONT   CMDCMDCMD   CMDCMDCMD   ONON"
  227. 1150 [141]1670:[129]Z[178]9[164]0[169][171]1
  228. 1155 [151]SID[170]4,33:[153]"CONTON";Z:TM[178]TI[170]60
  229. 1160 [139]TI[179]TM[167]1160
  230. 1165 [141]1680:[130]Z
  231. 1170 [153]"";[163]20);
  232. 1175 [141]1865
  233. 1180 [153]"PRINT#WAIT(null)";
  234. 1185 [141]1495
  235. 1190 [153]"CMDTHEN";
  236. 1195 [141]1495
  237. 1200 [153]"CMD ONTHENCMDTHEN";
  238. 1205 [141]1495
  239. 1210 [153]"CMD CMDON ON(null)CMD(null)CMDCHR$";
  240. 1215 [141]1495
  241. 1220 [153]"CMDONONTHENCMDTHENCMDTHEN";
  242. 1225 [151]VIC[170]23,1
  243. 1230 [129]J[178]1[164]15
  244. 1235 [141]1505
  245. 1240 [153]"CMDCMDCMDCMDCMD    CMDCMDCMDCMDONCONTSTEPLOGCOS(null)CMDCMDCMDCMDON SYSFNTHENCONT CMDCMDCMDCMDONSTEPSYS(null)(null)CONT(null)CMDCMDCMD";
  246. 1245 [153]"ON..CMDCMDONTAB(TAB(CMDCMDON  CMDCMDONSYSSTEP(null)ONWAIT";
  247. 1250 [151]VIC[170]1,222[171](J[172]8)
  248. 1255 [130]
  249. 1260 [129]K[178]7[164]1[169][171]1
  250. 1265 [141]1505
  251. 1270 [153][200](B$,K)""[200](A$,A(8[171]K))
  252. 1275 [151]VIC[170]1,222[171](J[172]8):J[178]J[170]1
  253. 1280 [130]K
  254. 1285 [153]"";
  255. 1290 [129]Z[178]1[164]5
  256. 1295 [141]1505
  257. 1300 [151]VIC[170]1,222[171](J[172]8):J[178]J[170]1
  258. 1305 [130]Z
  259. 1310 [141]1680:[129]I[178]1[164]1000:[130]
  260. 1315 SP$[178]"":[141]2075
  261. 1320 [153]SP$A$;:[151]VIC[170]1,174
  262. 1325 [129]J[178]1[164]20
  263. 1330 [141]1640:[141]1515
  264. 1335 [130]
  265. 1340 [151]VIC[170]21,0:[151]VIC[170]23,0:[151]VIC[170]39,0:[151]VIC[170]1,149
  266. 1345 [129]J[178]1[164]3
  267. 1350 [129]K[178]1[164][187](1)[172]1300[170]1:[130]K
  268. 1355 [151]CRT[170]458,78:[151]CRT[170]461,77
  269. 1360 [151]CM[170]458,6:[151]CM[170]461,6
  270. 1365 [129]I[178]1[164]200:[130]
  271. 1370 [151]CRT[170]458,32:[151]CRT[170]461,32
  272. 1375 [130]J:[153]SP$;A$;
  273. 1380 C$[178]"  CMDCMDCMDWAITCONT ..WAITCONT CMDCMDCMDCMDSTEPSYS(null)(null)CONT(null)CMDCMDCMDCMD SYSFNTHENCONT CMDCMDCMDCMDWAITSTEPLOGCOS(null)"
  274. 1385 [129]I[178]1[164]4:[135]C(I):[130]:[131]41,30,18,4
  275. 1390 D$[178]"CMDCMDCMDONONON"
  276. 1395 [153]"CMDCMD  CMDCMDSYSFNTHENCMDCMD"C$;
  277. 1400 [141]1545
  278. 1405 [153]"CMDCMDCMDONONONONWAITCONTLOGCOSCMDCMD"C$;
  279. 1410 [141]1545
  280. 1415 [151]VIC[170]39,8
  281. 1420 [129]J[178]1[164]7
  282. 1425 [153]"CMDCMDCMDONONONONWAIT  CMDCMD"C$;
  283. 1430 [141]1545
  284. 1435 [130]J
  285. 1440 [153]"CMDCMDCMDONONONON";
  286. 1445 [129]J[178]1[164]4
  287. 1450 [153]"WAIT  CMDCMD"[200](C$,C(J))[200](D$,7[171]J);
  288. 1455 [141]1545
  289. 1460 [130]J
  290. 1465 [153]"WAIT   ONONON";
  291. 1470 [151]VIC[170]21,1
  292. 1475 [129]J[178]1[164]30:[141]1640:[141]1515
  293. 1480 [130]:[151]VIC[170]21,0:[141]2075
  294. 1485 [141]1610
  295. 1490 [137]330
  296. 1495 Q[178]Q[170]1.2:[151]SID[170]7,Q:T[178]509[171]T:[151]2040,T
  297. 1500 [129]I[178]1[164]50:[130]I:[142]
  298. 1505 [141]1540:Q[178]Q[170]5:[151]SID[170]7,Q
  299. 1510 [129]I[178]1[164]65:[130]I:[142]
  300. 1515 [141]1540
  301. 1520 [151]SID[170]11,129:[129]I[178]1[164]20:[130]I:[151]SID[170]11,0
  302. 1525 [129]I[178]1[164]10:[130]I:[151]SID[170]11,129
  303. 1530 [141]1540:[129]I[178]1[164]10:[130]I:[151]SID[170]11,0
  304. 1535 [142]
  305. 1540 T[178]509[171]T:[151]2040,T:[142]
  306. 1545 [151]SID,48:[151]SID[170]1,4
  307. 1550 [151]SID[170]4,33:[129]I[178]1[164]20:[130]I
  308. 1555 [151]SID[170]4,32:[129]I[178]1[164]20:[130]I
  309. 1560 [151]SID,31:[151]SID[170]1,21
  310. 1565 [151]SID[170]4,33:[129]I[178]1[164]15:[130]I
  311. 1570 [151]SID[170]4,32
  312. 1575 [129]I[178]1[164]105:[130]I:[151]SID[170]4,0
  313. 1580 [142]
  314. 1585 N[178]N[171]3.5:[151]SID[170]14,N
  315. 1590 [151]SID[170]18,129
  316. 1595 [129]I[178]1[164]DE[173]2:[130]I:[141]1540
  317. 1600 [129]I[178]1[164]DE[173]2:[130]I
  318. 1605 [151]SID[170]18,128:[142]
  319. 1610 [129]I[178]1[164]1500:[130]:[153]"LOAD";
  320. 1615 [153]"           THREE DAYS LATER..."
  321. 1620 [129]I[178]1[164]2000:[130]
  322. 1625 [153]"";
  323. 1630 [129]I[178]1[164]40:[153]" ";:[130]
  324. 1635 [142]
  325. 1640 [153]"";:S1[178]S1[170]1:[129]S[178]S1[170]7[164]S1[169][171]1
  326. 1645 [153]S$(S[175]7)"":[130]:[142]
  327. 1650 [129]Z[178]SID[164]SID[170]24:[151]Z,0:[130]
  328. 1655 [151]SID[170]24,15:[151]SID[170]5,7:[151]SID[170]6,7
  329. 1660 [151]SID[170]12,31:[151]SID[170]13,241:[151]SID[170]4,0:[151]SID[170]11,0
  330. 1665 [151]SID[170]19,0:[151]SID[170]20,240:[142]
  331. 1670 [151]SID,99:[151]SID[170]1,56:[151]SID[170]7,0:[151]SID[170]8,1
  332. 1675 [151]SID[170]14,48:[151]SID[170]15,11:[142]
  333. 1680 [151]SID[170]4,32:[151]SID[170]11,128:[142]
  334. 1685 [151]SID[170]5,85:[151]SID[170]6,85:[142]
  335. 1690 [151]SID[170]5,5:[151]SID[170]6,5
  336. 1695 [151]SID,251:[151]SID[170]1,YY
  337. 1700 [142]
  338. 1705 [131]"TOTO(null)ASCTANTANLENSTR$LENTANASCTANSTR$TAB(VALSTR$LENTANASC(null)TOASCTANLENSTR$STR$LENTANLENSTR$LENTANASCTANLENTANLENLENTANON"
  339. 1710 [131]""
  340. 1715 [131]"TANLENSTR$LENTANASC(null)ASCTANLENTANASC(null)ASC(null)TO         TANLENVALTAB(STR$VALTAB(VALTAN(null)ONCMDCMDCMDTO(null)TANLENSTR$ON"
  341. 1720 [131]"               TO(null)                  TAB(VALSTR$LENON"
  342. 1725 [131]"          ASC(null)ASCLENVALON"
  343. 1730 [131]"ON"
  344. 1735 [131]"ON"
  345. 1740 [131]"ON"
  346. 1745 [131]"                   TAB(STR$TAN(null)ASCTANLENLENSTR$VALSTR$LENTANASC(null)TOON"
  347. 1750 [131]""
  348. 1755 [131]""
  349. 1760 [131]"TO(null)ASCTANLENSTR$VALTAB(STR$TAN(null)TO(null)ASCLENVALTAB(VALSTR$LENTANASC(null)TO"
  350. 1765 [131]"            VALSTR$LENTANASC(null)TOTO"
  351. 1770 [131]""
  352. 1775 [131]""
  353. 1780 [141]1685:[129]I[178]1[164]37:[135]NV
  354. 1785 [139]NV[178]0[167][151]SID,0:[151]SID[170]1,0:[137]1795
  355. 1790 [151]SID,NL(NV):[151]SID[170]1,NH(NV)
  356. 1795 [151]SID[170]4,33
  357. 1800 [135]D:D[178][171]D:[129]J[178]1[164]D[172]19.5:[130]
  358. 1805 [151]SID[170]4,32
  359. 1810 [130]
  360. 1815 [142]
  361. 1820 [131]6,-20,4,-12,0,0,4,-5
  362. 1825 [131]8,-24,7,-8,6,-8,5,-8,4,-8
  363. 1830 [131]3,-8,7,-28,6,-20,5,-12
  364. 1835 [131]0,0,5,-5,4,-24,3,-8,2,-8
  365. 1840 [131]0,0,2,-8,3,-8,0,0,3,-8
  366. 1845 [131]4,-24,0,-4,4,-20,1,-12,0,0
  367. 1850 [131]1,-5,3,-8,5,-8,6,-8,7,-8
  368. 1855 [131]4,-24,9,-24,8,-40,0,0
  369. 1860 [131]-1
  370. 1865 [151]SID[170]11,129
  371. 1870 [151]VIC,174:[151]VIC[170]1,222
  372. 1875 [151]VIC[170]39,8:[151]2040,254
  373. 1880 [151]VIC[170]21,1
  374. 1885 T[178]254:S[178]1:[129]Z[178]1[164]42
  375. 1890 [141]1540:[151]VIC[170]22,([194](VIC[170]22)[175]248)[170]S
  376. 1895 [151]SID[170]7,Z[172]1.2
  377. 1900 S[178]1[171]S
  378. 1905 [130]Z
  379. 1910 Q[178]Z[172]1.2
  380. 1915 [142]
  381. 1920 [143]  PRINT"LOADSETTING UP...WAIT 15 MINUTES...
  382. 1925 READZ$:IFZ$<>"-1"THEN1925
  383. 1930 B=250*64
  384. 1935 READA:IFA=-1THEN2045
  385. 1940 POKEB,A:B=B+1:GOTO1935
  386. 1945 DATA7,128,0,70,128,0,79,0,0,126,0,0,126,0,0,127,128
  387. 1950 DATA0,126,0,0,30,0,0,15,0,0,29,128,0,24,192,0,48
  388. 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
  389. 1960 DATA35,192,0,35,64,0,39,128,0,63,32,0,63,64,0,63,128
  390. 1965 DATA0,63,0,0,7,128,0,12,192,0,12,96,0,24,192,0,48
  391. 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
  392. 1975 DATA60,0,0,44,64,0,30,64,0,15,192,0,15,192,0,63,192
  393. 1980 DATA0,15,192,0,15,0,0,30,0,0,55,0,0,99,0,0,193
  394. 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
  395. 1990 DATA120,128,0,88,128,0,60,128,0,159,128,0,95,128,0,63
  396. 1995 DATA128,0,31,128,0,60,0,0,102,0,0,198,0,0,99,0,0
  397. 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
  398. 2005 DATA1,252,0,1,252,0,1,236,0,1,126,0,3,248,0,2,120
  399. 2010 DATA0,0,252,0,0,124,0,0,114,0,0,126,0,0,120,0,0,48
  400. 2015 DATA0,0,48,0,0,56,0,0,80,0,0,56,0,0,64,0,0,0
  401. 2020 DATA0,0,0,0,0,0,0,0,0,0,0,1,252,0,3,254,0,5,253
  402. 2025 DATA0,5,254,0,7,248,0,6,249,0,2,251,0,6,122,0,3
  403. 2030 DATA242,0,0,248,0,0,248,0,0,60,0,0,120,0,0,56,0,0
  404. 2035 DATA56,0,0,104,0,0,96,0,0,8,0,0,32,0,0,0,0,0,0,0,0,0
  405. 2040 DATA-1
  406. 2045 DIMNL(10),NH(10)
  407. 2050 FORZ=10TO1STEP-1:READNL(Z),NH(Z):NEXTZ
  408. 2055 RESTORE:RETURN
  409. 2060 DATA209,18,31,21,96,22,30,25
  410. 2065 DATA49,28,165,31,135,33,162,37
  411. 2070 DATA62,42,193,44
  412. 2075 PRINT"[147]";:RETURN
  413. 2080 END
  414.