home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 102 / 102.d81 / moonraker / moonraker.0810 / moonraker.a7ae (.txt)
Encoding:
Commodore BASIC  |  1992-01-01  |  33.2 KB  |  37 lines
  1. 100 printchr$(14)"[147]":poke53280,0:poke53281,0
  2. 110 poke45,0:poke46,15:clr:dv=peek(186):ifdv<8thendv=8
  3. 130 remsys57812"moon.font",8,0:poke780,0:poke781,0:poke782,56:sys65493
  4. 140 rem sys57812"moon.ml",8,0:poke780,0:poke781,0:poke782,64:sys65493
  5. 150 sys57812"moon.hi",dv,0:poke780,0:poke781,0:poke782,144:sys65493
  6. 160 rem sys57812"t.moon",8,0:poke780,0:poke781,0:poke782,128:sys65493
  7. 170 remsys57812"moon.inst",8,0:poke780,0:poke781,0:poke782,192:sys65493
  8. 172 rem sys57812"moon.dsphi",8,0:poke780,0:poke781,208:poke782,151:sys65493
  9. 180 poke53272,(peek(53272)and240)or14
  10. 185 gosub51000
  11. 220 poke198,0:wait198,1:geta$
  12. 230 ifa$="[133]"then300
  13. 240 ifa$="[134]"then400
  14. 250 ifa$="[136]"then500
  15. 260 goto220
  16. 300 sys49152:goto185
  17. 400 sys16384:goto185
  18. 500 print"[147]"tab(9)"returning to loadstar."
  19. 540 poke53272,23:goto60000
  20. 630 rem
  21. 51000 print"[147]"tab(7)"[152][164][165] [166][167] [168][169] [170][171] [172][173] [174][175] [176][177] [178][179] [180][181]"
  22. 51005 printtab(7)"[182][183] [184][185] [186][187] [188][189] [190][191] @a[146] bc[146] de[146] fg[146]"         "
  23. 51010 [153][163]7)"      by gus vakalis      "
  24. 51020 [153][163]13)"syscopyright 1992"
  25. 51030 [153][163]8)"softdisk publishing inc."
  26. 51040 [153]"plug joystick into port two:"
  27. 51050 [153][163]16)"f1 contfor instructions."
  28. 51060 [153][163]16)"f3 contto begin game."
  29. 51070 [153][163]16)"f7 contto exit to loadstar."
  30. 51080 [142]
  31. 60000 a$[178]"hello connect":[129]i[178]8[164]9:[160]2:[159]2,i,2:[160]2:[139]st[167]60020
  32. 60010 [160]15:[159]15,i,15,"r0:"[170]a$[170]"="[170]a$:[132]15,er:[160]15:[139]er[178]63[167]60030
  33. 60020 [130]:[153]"load":[128]
  34. 60030 q$[178][199](34):[151]646,[194](53281):[153]"load"
  35. 60040 [153]"loadload"q$a$q$","i
  36. 60050 [153]"run":[151]631,13:[151]632,13:[151]198,2:[128]
  37.