home *** CD-ROM | disk | FTP | other *** search
/ UpTime Volume 1 #10 / uv1n10s1.d64 / rescue (.txt) < prev    next >
Commodore BASIC  |  2022-08-28  |  3KB  |  62 lines
  1. 5 if ld=1 thenprint"[147]"chr$(142):sys 49152
  2. 10 p=p+1:if p>1 then 255
  3. 200 rem b$="title"
  4. 250 rem loadb$,8,1
  5. 255 poke53280,0:poke53281,0:print"";
  6. 300 rem poke 53265,11
  7. 320 rem poke 53272,peek(53272) or 8
  8. 331 rem poke 53265,11
  9. 340 poke 53270,peek(53270) or 16
  10. 414 rem
  11. 420 d=1024:s=16192:u=55296:v=17208
  12. 430 remfori=0to999:poked+i,peek(s+i):pokeu+i,peek(v+i):next
  13. 505 rem  follows after the colour data.
  14. 506 rem
  15. 550 rem poke 53280,peek(17192)
  16. 560 rem poke 53281,peek(17193)
  17. 565 rempoke 53265,59
  18. 566 ti$="000000"
  19. 650 rem get a$
  20. 655 remif a$<>chr$(13) and ti$<"000030" then 650
  21. 660 rempoke 53265,peek(53265) and (255-32)
  22. 670 rempoke 53272,peek(53272) and (255-8)
  23. 680 rempoke 53270,peek(53270) and (255-16)
  24. 690 print"[159][147]       [196]o you want instructions?":poke198,0
  25. 695 printtab(17)"([217]/[206])"
  26. 700 geta$:ifa$="n"then17000
  27. 710 ifa$<>"y"then700
  28. 740 print"[147]   [212]he object of the game is to rescue  the scientists who are ";
  29. 750 print"being held       prisoner by the [197]vil [203]loseyukmson on allthe";
  30. 760 print" planets in the [202]ershan galaxy."
  31. 770 print"[194]ecause of violent atmospheric          conditions, you cannot bring";
  32. 775 print" your ship  too close to the planets surface but    must instead ";
  33. 780 print"drop rocket packs to the   scientists so they can fly up to";
  34. 790 print" meet   you."
  35. 800 print"   [217]ou gain points by rescuing the      scientists.  ";
  36. 810 print"[217]ou lose reserve ships by  having your ship or rocket ";
  37. 820 print"pack         destroyed, or if a scientist is killed."
  38. 830 print"   [215]ith your joystick plugged into port 2 you will guide your ship";
  39. 840 print" through 5    different screens of nonstop action."
  40. 850 print"[212]he screens are........"
  41. 855 print"[158]        [208]ress [210]eturn to [195]ontinue":poke198,0
  42. 860 geta$:ifa$<>chr$(13)then860
  43. 870 print"[147][211]creen 1: [196]escend through space mines tothe planet's surface. ";
  44. 880 print" [208]ress the        joystick button ";
  45. 885 print"to start then guide yourship left or";
  46. 890 print" right to avoid the mines."
  47. 900 print"[211]creen 2: [210]escue scientists on the      planet's surface by dropping";
  48. 910 print" rocket     packs to them that they will use to fly up to your";
  49. 920 print" ship.  [212]hey must catch the   pack to use it.  [193]void the enemy";
  50. 930 print" ships  fire.  [208]ress joystick button to drop thepack."
  51. 940 print"[211]creen 3: [204]ike screen 1 except now you  are going up."
  52. 950 print"[211]creen 4: [198]ly through space avoiding    enemy missiles.  [194]ecause";
  53. 960 print" of cosmic      interference you will not always be ableto see the";
  54. 970 print" missiles."
  55. 980 print"[211]creen 5: [198]ly through the small, moving break in the enemy force";
  56. 990 print" field."
  57. 1000 print"[158]        [208]ress [210]eturn to [195]ontinue";:poke198,0
  58. 1010 geta$:ifa$<>chr$(13)then1010
  59. 1020 print"[147]"tab(12)"[204]oading [210]escue!
  60. 1030 [153][163]11)"(NULL)ne moment please."
  61. 17000 ld[178]1:[153]"stop":[147]"rescue.exe",8,1
  62.