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