home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 189 / 189.d81 / loader5 (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  2KB  |  69 lines
  1. 10 dv=peek(186):print"[147]":gosub8000:gosub8100:print"[147]"
  2. 52 open1,dv,1,"ch7":poke780,0:sys65493:close1
  3. 54 open1,dv,1,"chset2":poke780,0:sys65493:close1
  4. 56 open1,dv,1,"7sprites":poke780,0:sys65493:close1
  5. 58 goto500
  6. 59 rem***load game***
  7. 60 rem
  8. 62 rem
  9. 200 c$=chr$(34):poke198,4
  10. 210 print"[147]load";c$;b$;c$;",dv";
  11. 230 poke631,13:poke632,82:poke633,117:poke634,13:end
  12. 500 rem*info
  13. 502 print"[147][158]":poke53280,0:poke53281,0:print"quick start information"
  14. 504 print:print"[159]joystick use js in port 2. up/down for"
  15. 506 print"menu choices, left right for steering"
  16. 508 print"choices, firebutton to choose option."
  17. 510 print"some keyboard input also required."
  18. 512 print:print"[159]keyboard use i,k for up/down, j,l for"
  19. 514 print"left/right, spacebar to choose option."
  20. 516 print:print"[159]landing only at a space station (i.e."
  21. 518 print"when large s at top of screen is white).";
  22. 520 print"ship must decelerate before landing."
  23. 530 print:print"[159]taverns vary from planet to planet."
  24. 532 print:print"[159]academies vary from system to system"
  25. 534 print:print"[159]code number as your total worth grows"
  26. 536 print"code numbers become available enabling"
  27. 538 print"you to start with a bonus next game."
  28. 540 print:print"[159]please read instructions for more info"
  29. 542 print:print"[155]press spacebar to continue...";
  30. 550 poke198,0:wait198,1
  31. 552 print"[147]":print:print:print:print:print"[159]a  load the game"
  32. 554 print:print"b  read instruction file"
  33. 560 print:print:print"please choose a or b"
  34. 562 print:print:print"[155]the preceeding quick start info will"
  35. 564 print"get you started in the game."
  36. 566 print"for more detailed info please read the"
  37. 568 print"complete instruction file"
  38. 570 poke198,0:wait198,1:getx$
  39. 574 ifx$="a"thenb$="gt1":goto200
  40. 576 ifx$="b"thenb$="info":goto200
  41. 578 goto570
  42. 4999 end
  43. 5000 rem*mvr
  44. 5010 ea=ea+1:l=ea-sa:ne=l+ns
  45. 5020 x=int(l/256):y=l-256*x
  46. 5030 a=int((ne-y)/256):b=ne-256*a-y
  47. 5040 c=int((ea-y)/256):d=ea-256*c-y
  48. 5050 poke 781,x+1:poke782,y
  49. 5060 poke 88,b+1:poke 89,a
  50. 5070 poke90,d+1:poke 91,c
  51. 5080 sys41964:poke ns,peek(sa)
  52. 5085 return
  53. 7999 remrec3
  54. 8000 sc=50176
  55. 8002 rm=int(sc/16384)
  56. 8004 poke56334,peek(56334)and254
  57. 8006 poke1,peek(1)and251:sa=53248
  58. 8008 ea=55295:ns=51200:gosub5000
  59. 8010 poke1,peek(1)or4
  60. 8012 poke56334,peek(56334)or1
  61. 8014 poke56578,peek(56578)or3
  62. 8016 poke56576,(peek(56576)and252)or(3-rm):poke53272,18:poke648,sc/256
  63. 8018 return:rempk55,0:56,160bstop40960
  64. 8099 rem**spr
  65. 8100 v=53248:pokev,84:pokev+1,101:pokev+39,1:pokev+21,0:poke51192,0
  66. 8102 forp=49152to49215:pokep,0:next
  67. 8104 poke49152,3:poke49153,192
  68. 8106 poke49155,3:poke49156,192:return
  69.