home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Adventure / RESCUE_CENTAURI (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  15.6 KB  |  612 lines
  1. 0 REM THIS IS RESCUE! BY ALEX KLOIAN.   WRITTEN MOSTLY ON THE PET. (1982-83)
  2. 1 SO=54272:FORI=SOTOSO+24:POKEI,0:NEXT:PRINT"[147]"CHR$(14):GOSUB59000
  3. 2 POKE53280,0:POKE53281,0:DIMA(12),A$(12)
  4. 3 REM REWRITTEN FOR THE C-64. 1984-1985
  5. 4 PF=0:POKESO+5,136:POKESO+6,24:POKESO+24,15
  6. 5 WP=25:POKESO+3,3:POKESO+2,200:H$="[201]'M HIDING."
  7. 10 B$=CHR$(142)+"[206][183][197][196][195][198][210][175][157][157][157][157][157][157][157][157][205][175][210][198][195][196][197][183]"
  8. 15 PRINT"[147]":FORI=1TO9:PRINT:NEXT
  9. 20 PRINTTAB(10)"[210]ESCUE ON THE [195]ENTAURI"
  10. 30 FORI=1TO2000:NEXT:PRINT:PRINT""
  11. 40 INPUT"[200]OW MANY ALIENS IN THE STATION (10-50)";A
  12. 45 A1=A:IFA<10ORA>50 THEN40
  13. 50 DIML(A+1),C(24),B(24)
  14. 60 FORI=1TOA
  15. 70 L(I)=INT(24*RND(1))+1:IFL(I)=17THEN70
  16. 80 NEXT
  17. 90 LC=30
  18. 100 PL=L(1)
  19. 120 P=17:KI=3
  20. 200 BU=0:TP=TP+1:FORI=1TO200:NEXT:PRINT"[147]":GOSUB3000:IFIT>0THENGOSUB10000
  21. 201 IFA1=0ANDTR=0ANDIT=0THENPRINT"[217]OU KILLED ALL THE ALIENS!":SC=SC+1000:GOTO50105
  22. 202 IFRND(1)>.7ANDH=1THENH=0:PRINT"[156][201]'M NOT HIDDEN ANYMORE."
  23. 203 PRINT"[159][204]ASER CHARGES LEFT:"LC:IFC(P)>1THENPRINT"[212]HERE ARE"C(P)"CORPSES HERE."
  24. 204 PRINT"";:IFC(P)=1THENPRINT"[212]HERE IS A CORPSE HERE."
  25. 205 IFP>10THEN1090
  26. 207 IFP<>1THEN260
  27. 210 PRINT"[217]OU ARE IN AIRLOCK #1.  [197]XITS: [158][211]."
  28. 215 GOSUB5000
  29. 220 GOSUB61000
  30. 230 IFA$="S"THENP=6
  31. 235 IFA$="H"THENH=1:PRINTH$
  32. 240 GOTO200
  33. 260 IFP<>2THEN330
  34. 270 PRINT"[217]OU ARE IN STOREROOM #3.  [197]XITS: [158][197]."
  35. 275 GOSUB5000
  36. 280 GOSUB61000
  37. 290 IFA$="E"THENP=6
  38. 300 IFA$="H"THENH=1:PRINTH$
  39. 310 GOTO200
  40. 330 IFP<>3THEN480
  41. 340 PRINT"[217]OU ARE IN THE ENGINE ROOM.  [197]XITS: [158][215].  [158][211]ABOTAGE SHIP."
  42. 350 GOSUB5000:GOSUB61000
  43. 360 IFA$="W"THENP=6
  44. 370 IFA$="H"THENH=1:PRINTH$
  45. 380 IFA$="S"ANDTY=1ANDIT=0THENGOSUB420
  46. 390 IFA$="S"ANDTY<>1THENPRINT"YOU DON'T HAVE THE TOOLS, YET."
  47. 400 GOTO200
  48. 420 TS=TS+1:SS=INT(10*RND(1))
  49. 430 IFTS<SSTHENPRINT"[201] NEED MORE TIME."
  50. 440 IFTS>=SSTHENIT=INT(RND(1)*9)+5:PRINT"[212]HE ENGINES WILL IMPLODE IN"IT"TURNS!"
  51. 450 FORI=1TO200:NEXT
  52. 460 RETURN
  53. 480 IFP<>4THEN550
  54. 490 PRINT"[217]OU ARE IN STOREROOM #4.  [197]XITS: [193]IR SHAFT #[158]1. [158][211]."
  55. 500 GOSUB5000:GOSUB61000
  56. 510 IFA$="1"THENP=5
  57. 520 IFA$="S"THENP=16
  58. 530 IFA$="H"THENH=1:PRINTH$
  59. 540 GOTO200
  60. 550 IFP<>5THEN620
  61. 560 PRINT"[217]OU ARE IN AIR SHAFT #1.  [197]XITS: [158][197]. [158][215]."
  62. 570 GOSUB5000:GOSUB61000
  63. 580 IFA$="E"THENP=6
  64. 590 IFA$="W"THENP=4
  65. 600 IFA$="H"THENH=1:PRINTH$
  66. 610 GOTO200
  67. 620 IFP<>6THEN720
  68. 630 PRINT"[217]OU ARE IN HALLWAY #1.  [197]XITS: [158][206]. [158][211]. [158][197]. [158][215]. ";
  69. 635 PRINT"[193]IR SHAFT #[158]1. [193]IR SHAFT #[158]2.    [158][195]YCLE AIRLOCK."
  70. 640 GOSUB5000:GOSUB61000
  71. 650 IFA$="H"THENH=1:PRINTH$
  72. 660 IFA$="N"THENP=1
  73. 670 IFA$="S"THENP=15
  74. 682 IFA$="W"THENP=2
  75. 690 IFA$="E"THENP=3
  76. 700 IFA$="1"THENP=5
  77. 710 IFA$="2"THENP=7
  78. 711 IFA$<>"C"THEN200
  79. 712 POKESO+6,12:POKESO+1,30:POKES0,60:POKESO+4,129:POKESO+5,136
  80. 713 FORK=1TO100:NEXT:POKESO+4,128:PRINT"[215]HOOOOOSH!":FORI=1TOA
  81. 714 IFL(I)=1THENPRINT"[203]ILLED A BUG!":L(I)=0:A1=A1-1:SC=SC+50:GOSUB3290
  82. 715 IFPL=1THENPRINT"[203]ILLED THE PRISONER!":SC=SC-500:GOTO50105
  83. 716 NEXT
  84. 717 GOTO200
  85. 720 IFP<>7THEN790
  86. 730 PRINT"[217]OU ARE IN AIR SHAFT #2.  [197]XITS: [158][197]. [158][215]."
  87. 740 GOSUB5000:GOSUB61000
  88. 750 IFA$="W"THENP=6
  89. 760 IFA$="E"THENP=8
  90. 770 IFA$="H"THENH=1:PRINTH$
  91. 780 GOTO200
  92. 790 IFP<>8THEN860
  93. 800 PRINT"[217]OU ARE IN THE MAINTENANCE ROOM.  [197]XITS: [193]IR SHAFT #[158]2. [158][211]. [158][212]A";
  94. 805 PRINT"KE TOOLS."
  95. 810 GOSUB5000:GOSUB61000
  96. 820 IFA$="T"ANDTY<>1THENTY=1:PRINT"[207]K, [201] HAVE THE TOOLS."
  97. 830 IFA$="2"THENP=7
  98. 835 IFA$="H"THENH=1:PRINTH$
  99. 840 IFA$="S"THENP=9
  100. 850 GOTO200
  101. 860 IFP<>9THEN980
  102. 870 PRINT"[217]OU ARE IN HALLWAY #2.  [197]XITS: [158][206]. [158][211]. [158][197]. [158][215]."
  103. 880 GOSUB5000:GOSUB61000
  104. 890 IFA$="H"THENH=1:PRINTH$
  105. 900 IFA$="N"THENP=8
  106. 910 IFA$="S"THENP=11
  107. 920 IFA$="E"THENP=10
  108. 930 IFA$="W"THENP=15
  109. 935 GOTO200
  110. 980 IFP<>10THEN1090
  111. 990 PRINT"[217]OU ARE IN SHUTTLE BAY #2.  [197]XITS: [158][215]. [158][212]AKE OFF IN SHUTTLE."
  112. 1000 GOSUB5000:GOSUB61000
  113. 1010 IFA$="H"THENH=1:PRINTH$
  114. 1020 IFA$="W"THENP=9
  115. 1030 IFA$="T"ANDS2=0THEN1050
  116. 1035 IFA$="T"ANDS2=1THENPRINT"[201]T ISN'T HERE ANY MORE!"
  117. 1040 GOTO200
  118. 1050 Q=INT(RND(1)*3)+1
  119. 1060 IFQ<>1THENPRINT"[204]ETS SEE, WHERE IS THAT KEY?":FU=1:FORM=1TO800:NEXT:GOTO200
  120. 1065 IFFU=1THENPRINT"[200]ERE'S THE LITTLE MOTHER!  [195][204][201][195][203]!"
  121. 1070 PRINT"[204]AUNCHING SHUTTLE!"
  122. 1080 GOTO50000
  123. 1090 IFP<>11THEN1160
  124. 1100 PRINT"[217]OU ARE IN STOREROOM #2.  [197]XITS: [193]IR SHAFT #[158]4. [158]N."
  125. 1110 GOSUB5000:GOSUB61000
  126. 1120 IFA$="H"THENH=1:PRINTH$
  127. 1130 IFA$="N"THENP=9
  128. 1140 IFA$="4"THENP=20
  129. 1150 GOTO200
  130. 1160 IFP<>12THEN1220
  131. 1170 PRINT"[217]OU ARE IN THE FREEZER.  [197]XITS: [158][211]."
  132. 1175 IFPL=12THENPRINT"[212]HE PRISONER IS HERE AND HE IS FROZEN!"
  133. 1180 GOSUB5000:GOSUB61000
  134. 1190 IFA$="H"THENH=1:PRINTH$
  135. 1200 IFA$="S"THENP=15
  136. 1210 GOTO200
  137. 1220 IFP<>13THEN1320
  138. 1230 PRINT"[217]OU ARE IN THE ARMS ROOM.  [197]XITS: [158][211]. [158][210]ECHARGE LASER PACK."
  139. 1240 GOSUB5000:GOSUB61000
  140. 1250 IFA$="H"THENH=1:PRINTH$
  141. 1260 IFA$="S"THENP=15
  142. 1270 IFA$<>"R"THEN200
  143. 1280 IFLC>45THENPRINT"[204]ASER IS FULLY CHARGED!":GOTO200
  144. 1290 LC=LC+10:PRINT"[210]ECHARGING LASER.":KI=3
  145. 1300 IFLC>45THENPRINT"[204]ASER FULLY CHARGED."
  146. 1310 GOTO200
  147. 1320 IFP<>14THEN1390
  148. 1330 PRINT"[217]OU ARE IN THE COMPUTER ROOM.  [197]XITS: [158][206]. [158][205]AP OF SHIP."
  149. 1340 GOSUB5000:GOSUB61000
  150. 1350 IFA$="H"THENH=1:PRINTH$
  151. 1360 IFA$="N"THENP=15
  152. 1365 IFA$="M"THENGOSUB2500
  153. 1370 GOTO200
  154. 1390 IFP<>15THEN1570
  155. 1400 PRINT"[217]OU ARE IN THE COMMAND CENTER.  [197]XITS: [158][206]. [158][211]. [158][197]. [158][215]. ";
  156. 1402 PRINT"[158][198]REEZER. [158][193]RMS ROOM. [158][195]OMPUTER ROOM. [158][212]URN FREEZER ([207][206]/[207][198][198])"
  157. 1410 GOSUB5000:GOSUB61000
  158. 1420 IFA$="H"THENH=1:PRINTH$
  159. 1430 IFA$="N"THENP=6
  160. 1440 IFA$="S"THENP=21
  161. 1450 IFA$="E"THENP=9
  162. 1460 IFA$="W"THENP=16
  163. 1470 IFA$="F"THENP=12
  164. 1480 IFA$="A"THENP=13
  165. 1490 IFA$="C"THENP=14
  166. 1500 IFA$<>"T"THEN200
  167. 1510 IFF=1THENF=0:PRINT"[198]REEZER OFF.":GOTO1525
  168. 1520 IFF=0THENF=1:PRINT"[198]REEZER ON."
  169. 1525 IFF=0THEN200
  170. 1530 FORI=1TOA
  171. 1540 IFL(I)=12THENPRINT"[217]OU FROZE A BUG!":L(I)=0:SC=SC+25:C(12)=C(12)+1:A1=A1-1
  172. 1550 NEXT
  173. 1555 IFPL=12THENPRINT"[217]OU HAVE RECOVERED THE PRISONER!":PL=0:PF=1
  174. 1557 FORJ=1TO500:NEXT
  175. 1560 GOTO200
  176. 1570 IFP<>16THEN1670
  177. 1580 PRINT"[217]OU ARE IN HALLWAY #4.  [197]XITS: [158][206]. [158][215]. [158][211]. [158][197]."
  178. 1590 GOSUB5000:GOSUB61000
  179. 1600 IFA$="H"THENH=1:PRINTH$
  180. 1610 IFA$="N"THENP=4
  181. 1620 IFA$="S"THENP=18
  182. 1630 IFA$="E"THENP=15
  183. 1640 IFA$="W"THENP=17
  184. 1650 GOTO200
  185. 1670 IFP<>17THEN1750
  186. 1680 PRINT"[217]OU ARE IN SHUTTLE BAY #1.  [197]XITS: [158][197].   [158][212]AKE OFF IN SHUTTLE."
  187. 1690 GOSUB5000:GOSUB61000
  188. 1700 IFA$="H"THENH=1:PRINTH$
  189. 1710 IFA$="E"THENP=16
  190. 1720 IFA$<>"T"THEN200
  191. 1725 IFS1=1THENPRINT"[201]T ISN'T HERE ANY MORE!":GOTO200
  192. 1730 PRINT"[211]HUTTLE CRAFT LAUNCHED!"
  193. 1740 GOTO50000
  194. 1750 IFP<>18THEN1840
  195. 1760 PRINT"[217]OU ARE IN THE SCANNER ROOM.  [197]XITS: [158][206]. ";
  196. 1765 PRINT"[193]IR SHAFT #[158]3. [158][211]CAN SHIP FOR ALIENS."
  197. 1770 GOSUB5000:GOSUB61000
  198. 1780 IFA$="H"THENH=1:PRINTH$
  199. 1790 IFA$="N"THENP=16
  200. 1800 IFA$="3"THENP=19
  201. 1810 IFA$<>"S"THEN200
  202. 1820 GOSUB3590
  203. 1830 GOTO200
  204. 1840 IFP<>19THEN1910
  205. 1850 PRINT"[217]OU ARE IN AIR SHAFT #3.  [197]XITS: [158][215]. [158][197]."
  206. 1860 GOSUB5000:GOSUB61000
  207. 1870 IFA$="H"THENH=1:PRINTH$
  208. 1880 IFA$="W"THENP=18
  209. 1890 IFA$="E"THENP=21
  210. 1900 GOTO200
  211. 1910 IFP<>20THEN1980
  212. 1920 PRINT"[217]OU ARE IN AIR SHAFT #4.  [197]XITS: [158][215]. [158][197]."
  213. 1930 GOSUB5000:GOSUB61000
  214. 1940 IFA$="H"THENH=1:PRINTH$
  215. 1950 IFA$="W"THENP=21
  216. 1960 IFA$="E"THENP=11
  217. 1970 GOTO200
  218. 1980 IFP<>21THEN2130
  219. 1990 PRINT"[217]OU ARE IN HALLWAY #3.  [197]XITS: [158][206]. [158][211]. [158][197]. [158][215]. ";
  220. 1994 PRINT"[193]IR SHAFT #[158]4. [193]IR SHAFT #[158]3. [158][195]YCLE AIRLOCK."
  221. 2000 GOSUB5000:GOSUB61000
  222. 2010 IFA$="H"THENH=1:PRINTH$
  223. 2020 IFA$="N"THENP=15
  224. 2030 IFA$="S"THENP=24
  225. 2040 IFA$="E"THENP=23
  226. 2050 IFA$="W"THENP=22
  227. 2060 IFA$="4"THENP=20
  228. 2070 IFA$="3"THENP=19
  229. 2080 IFA$<>"C"THEN200
  230. 2090 POKESO+6,12:POKESO+1,30:POKES0,60:POKESO+4,129:POKESO+5,136
  231. 2092 FORK=1TO100:NEXT:POKESO+4,128
  232. 2093 PRINT"[215]HOOOOOSH!":FORI=1TOA
  233. 2095 IFL(I)=24THENPRINT"[203]ILLED A BUG!":L(I)=0:A1=A1-1:SC=SC+50:GOSUB3290
  234. 2100 IFPL=24THENPRINT"[203]ILLED THE PRISONER!":SC=SC-500:GOTO50105
  235. 2110 NEXT
  236. 2120 GOTO200
  237. 2130 IFP<>22THEN2190
  238. 2140 PRINT"[217]OU ARE IN STOREROOM #1.  [197]XITS: [197]."
  239. 2150 GOSUB5000:GOSUB61000
  240. 2160 IFA$="H"THENH=1:PRINTH$
  241. 2170 IFA$="E"THENP=21
  242. 2180 GOTO200
  243. 2190 IFP<>23THEN2290
  244. 2200 PRINT"[217]OU ARE IN THE SICK BAY.  [197]XITS: [215]. @[195]OVER WOUNDS."
  245. 2210 GOSUB5000:GOSUB61000
  246. 2230 IFA$="W"THENP=21
  247. 2235 IFA$="H"THENH=1:PRINTH$
  248. 2240 IFA$<>"C"THEN200
  249. 2250 IFWP>34THEN200
  250. 2255 H7=1:GOTO2261
  251. 2260 PRINT"[200]EALING UNDERWAY.":WP=WP+5:SC=SC-25:IFWP>25THENWP=25
  252. 2261 PRINT"[205]EDICAL CONDITION: ";
  253. 2262 IFWP=25THENPRINT"[199][210][197][197][206]."
  254. 2264 IFWP<25ANDWP>9THENPRINT"[158][217][197][204][204][207][215]."
  255. 2266 IFWP<10THENPRINT"[210][197][196]."
  256. 2268 IFH7=1THENH7=0:GOTO2260
  257. 2270 FORI=1TO1000:NEXT
  258. 2280 GOTO200
  259. 2290 REM
  260. 2300 PRINT"[217]OU ARE IN AIRLOCK #2.  [197]XITS: [158][206]."
  261. 2310 GOSUB5000:GOSUB61000
  262. 2320 IFA$="H"THENH=1:PRINTH$
  263. 2330 IFA$="N"THENP=21
  264. 2340 GOTO200
  265. 2500 PRINT"[147]";CHR$(142);"SPACE STATION CENTAURI:"
  266. 2505 PRINT:PRINT"           AIRLOCK #2"
  267. 2510 PRINT"             [213][196][184][196][201]"
  268. 2515 PRINT"             [194]   [194]"
  269. 2520 PRINT"             [207]   [208]"
  270. 2525 PRINT"            [206]HALL1[205]"
  271. 2530 PRINT" SHUTTLE [206][163][163]       [163][163][205]SHUTTLE"
  272. 2535 PRINT"      [207][183][183]     [206] [205]     [183][183][208]"
  273. 2537 PRINT"      [181]HALL4  COM  HALL2[182]"
  274. 2540 PRINT"      [204][175][175]     [205] [206]     [175][175][186]"
  275. 2545 PRINT"    #1   [205][164][164]       [164][164][206]   #2   "
  276. 2550 PRINT"            [205]HALL3[206]"
  277. 2555 PRINT"             [204]   [186]"
  278. 2560 PRINT"             [194]   [194]"
  279. 2565 PRINT"             [202][195][162][195][203]"
  280. 2567 PRINT"           AIRLOCK #1"
  281. 2570 IFS1=0THENPRINT"[158]";TAB(4)"[213][195][157][157][194]=[157][157][202][195]";
  282. 2580 IFS2=0THENPRINT"";TAB(25);"[195][201][157][157]=[194][157][157][195][203]";
  283. 2590 IFV>0THENPRINT"";TAB(3);B$;
  284. 2595 IFV>1THENPRINT"[157][157][157][157][157][157][157][157]";B$;
  285. 2600 IFV>2THENPRINT"[145][145][145]";TAB(22);B$;
  286. 2610 IFV>3THENPRINT"[157][157][157][157][157][157][157][157][157][157][157][157]";B$;
  287. 2810 GETA1$:IFA1$=""THEN2810
  288. 2820 PRINTCHR$(14)"[147]":RETURN
  289. 3000 IFTR=0THENRETURN
  290. 3010 IFR1>4THENTR=0:RETURN
  291. 3020 TR=TR-1:IFTR>1THENRETURN
  292. 3030 IFTR=0THEN3040
  293. 3035 PRINT"[150][211]PACE STATION CENTAURI, REINFORCEMENTS  ARE ABOUT TO DOCK.":RETURN
  294. 3040 POKESO+5,155:POKESO+6,76:POKESO+4,129:FORI=1TO20:NEXT:POKESO+4,128
  295. 3050 PRINT"[150][210]EINFORCEMENTS HAVE DOCKED. [212]HE CAVALRY IS HERE GUYS.  ";
  296. 3060 IFA1=0THENPRINT"[199]UYS?  [217]OU THERE?  [193]H HU-MAN WE GOIN' KILL YO' ASS."
  297. 3070 PRINT""
  298. 3080 RE=INT(RND(1)*10)+(R1*4)+3:IFRE>(A-A1)THENRE=(A-A1)
  299. 3082 PRINT"[156][211]QUAD ONE: [212]AKE THE COMMAND CENTER."
  300. 3084 IFRE>5THENPRINT"[211]QUAD TWO: [211]EEK AND DESTROY!"
  301. 3086 IFRE>10THENPRINT"[158][211]QUAD THREE: [211]ECURE THE PRISONER!"
  302. 3088 IFRE>15THENPRINT"[211]QUAD FOUR: [208]ATROL THE BASE."
  303. 3090 FORM=1TOA
  304. 3095 IFL(M)=0ANDRE>0THENL(M)=21:A1=A1+1:RE=RE-1
  305. 3100 NEXTM
  306. 3110 V=V+1:K=0:FORM=1TOA:IFL(M)>0THENK=K+1
  307. 3115 NEXT:IFK<>A1THENSTOP
  308. 3200 RETURN
  309. 3290 POKESO+12,202:POKESO+13,44
  310. 3300 POKESO+8, 8 :POKESO+7,20:POKESO+11,33:FORK=1TO60:NEXTK:POKESO+11,32:RETURN
  311. 3590 SO=54272:POKESO+5,24:POKESO+6,78:POKESO+1,10:POKESO,99:POKESO+4,17
  312. 3600 FORI=1TO24:B(I)=0:NEXT:FORK=1TOA:IFL(K)=0THEN3607
  313. 3605 B(L(K))=B(L(K))+1
  314. 3607 NEXTK:POKESO+4,16
  315. 3610 PRINT"[147]";CHR$(142);
  316. 3700 PRINT"                [185][185][185][185][164][185][185][185][185]"
  317. 3705 PRINT"                [194]  [165] [170]  [194]"
  318. 3710 PRINT"                [194]  [204][166][186]  [194]"
  319. 3715 PRINT"                [207]  [219] [219]  [208]
  320. 3720 [153]"                (null)AND(null)SPC( SPC((null)ANDSQR"
  321. 3725 [153]"               (null) ANDAND(null) (null)ANDAND (null)"
  322. 3730 [153]"           ANDANDAND(null) (null)  (null)SPC((null)  (null) (null)ANDANDAND"
  323. 3735 [153]"          (null)   SPC((null)   THEN FN   (null)SPC(   (null)"
  324. 3740 [153]"     ANDANDANDAND(null)(null)ANDNOTANDSQRANDSQRSPC((null)SQR (null)SQRSPC((null)AND(null)ANDANDNOTSQR(null)ANDANDANDAND"
  325. 3745 [153]"    +    INT    ABS           INT    ABS    SGN"
  326. 3750 [153]"    ABS    INT    SQR           (null)    ABS    INT"
  327. 3755 [153]"    ABS    SPC(    SPC(           SPC(    SPC(    INT"
  328. 3760 [153]"    ABS    INT    (null)           (null)    ABS    INT"
  329. 3765 [153]"    THEN    INT    ABS           INT    ABS    FN"
  330. 3770 [153]"     USRUSRUSRUSR(null)SQRUSRSPC(USR(null)USRUSRUSRUSR(null) (null)(null)SPC((null)USR(null)USRUSRSPC((null)(null)USRUSRUSRUSR"
  331. 3775 [153]"          (null)   SPC((null)+++THEN FN   (null)SPC(   (null)"
  332. 3780 [153]"           USRUSRUSR(null) (null)++SQRSPC((null)  (null) (null)USRUSRUSR"
  333. 3785 [153]"               (null) USRUSR(null) (null)USRUSR (null)"
  334. 3790 [153]"                STEPUSR(null)SPC( SPC((null)USR(null)"
  335. 3795 [153]"                (null)  (null) (null)  SQR"
  336. 3800 [153]"                PEEK  (null)SPC((null)  PEEK"
  337. 3805 [153]"                PEEK  FN THEN  PEEK"
  338. 3810 [153]"                FREFREFREFRETAB(FREFREFREFRE"
  339. 3815 [140]:[129]K[178]1[164]24:[135]D,T:[153]"";:[139]D[178]0[167]3820
  340. 3816 [139]B(K)[179]1[167]3830
  341. 3817 [129]K1[178]1[164]D:[153]"";:[130]K1
  342. 3820 [139]B(K)[177]0[167][153][163]T);"(null)";
  343. 3830 [130]K:[153]"";[163]12);"SYS*";
  344. 3900 [161]A$:[139]A$[178]""[167]3900
  345. 3910 [153][199](14);"LOAD";
  346. 3990 [131] 1,20,3,18,3,22,7,12,5,16,4,20,5,24,7,28,11,28,11,33,15,28,7,17,7,23
  347. 3992 [131]15,23,11,20,11,12,11,7,15,12,17,16,17,24,18,20,19,18,19,22,21,20
  348. 4000 [153]"LOAD":[142]
  349. 5000 BU[178]0:[139]PL[178]P[167][153]"**(null)HE PRISONER IS HERE**"
  350. 5003 [129]I[178]1[164]A
  351. 5005 PR[178][181]([187](1)[172]6)[170]1
  352. 5006 [139]L(I)[178]0[167]5702
  353. 5007 L[178]L(I):[139][187](1)[179]A2[167]5700
  354. 5008 [139]L[178]P[175]H[179][177]1[167]5700
  355. 5010 [145]L[137]5020,5060,5100,5140,5190,5220,5260,5285,5310,5337,5355,5373,5390
  356. 5011 [145](L[171]13)[137]5405,5412,5460,5487,5505,5525,5545,5565,5578,5584,5590
  357. 5020 [139]PR[179]4[167]L[178]1
  358. 5030 [139]PR[177]3[167]L[178]6
  359. 5040 [137]5700
  360. 5060 [139]PR[179]4[167]L[178]2
  361. 5070 [139]PR[177]3[167]L[178]6
  362. 5080 [137]5700
  363. 5100 [139]PR[179]4[167]L[178]3
  364. 5110 [139]PR[177]3[167]L[178]6
  365. 5120 [137]5700
  366. 5140 [139]PR[179]3[167]L[178]4
  367. 5150 [139]PR[179]5[167]L[178]5
  368. 5160 [139]PR[177]4[167]L[178]16
  369. 5170 [137]5700
  370. 5190 [139]PR[179]3[167]L[178]5
  371. 5200 [139]PR[179]5[167]L[178]4
  372. 5205 [139]PR[177]4[167]L[178]6
  373. 5210 [137]5700
  374. 5220 [139]PR[178]1[167]L[178]1
  375. 5225 [139]PR[178]2[167]L[178]3
  376. 5230 [139]PR[178]3[167]L[178]7
  377. 5235 [139]PR[178]4[167]L[178]15
  378. 5240 [139]PR[178]5[167]L[178]5
  379. 5245 [139]PR[178]6[167]L[178]2
  380. 5250 [137]5700
  381. 5260 [139]PR[179]3[167]L[178]7
  382. 5265 [139]PR[179]5[167]L[178]6
  383. 5270 [139]PR[177]4[167]L[178]8
  384. 5275 [137]5700
  385. 5285 [139]PR[179]3[167]L[178]8
  386. 5290 [139]PR[179]5[167]L[178]7
  387. 5295 [139]PR[177]4[167]L[178]9
  388. 5300 [137]5700
  389. 5310 [139]PR[178]1[167]L[178]8
  390. 5315 [139]PR[178]2[167]L[178]10
  391. 5320 [139]PR[178]3[167]L[178]11
  392. 5325 [139]PR[178]4[167]L[178]15
  393. 5330 [137]5700
  394. 5337 [139]IT[177]0[175]S2[178]0[167]S2[178]1:L(I)[178]0:A1[178]A1[171]1:[153]"OPEN(null)LEFT$(null)(null)(null)(null)VAL #2 (null)ATN(null)(null)LENLEFT$VALSTR$":[137]5703
  395. 5340 [139]PR[177]3[167]L[178]9
  396. 5345 [137]5700
  397. 5355 [139]PR[179]3[167]L[178]9
  398. 5360 [139]PR[177]4[167]L[178]20
  399. 5365 [137]5700
  400. 5373 [139]L(1)[178]12[167]5700
  401. 5375 [139]PR[177]3[167]L[178]15
  402. 5380 [137]5700
  403. 5390 [139]PR[177]3[167]L[178]15
  404. 5395 [137]5700
  405. 5405 [139][187](1)[177].5[167][153]"DEFLEFT$U-MAN, YOU WILL SURRENDER, OR DIE!"
  406. 5406 [139]PL[178]14[167][153]"SYSLEFT$ELP ME!  RIGHT$'M IN THE COMPUTER ROOM!"
  407. 5407 [139]PR[177]3[167]L[178]15
  408. 5410 [137]5700
  409. 5412 [139]TR[177]0[167]5420
  410. 5413 [139][187](1)[177].4[175]A1[179]3[175]A1[177]0[167]5418
  411. 5416 [139]A1[177]0[175]A1[179]3[175]IT[178]0[167]IT[178][181]([187](1)[172]6)[170]3:[153]"(null)VAL(null)ASC-STR$VAL(null)(null)(null)(null)LEN(null) RIGHT$(null)"IT"(null)(null)(null)(null)(null).
  412. 5417 IFIT>0THEN5420
  413. 5418 IFA1>0ANDA1<5THENPRINT"[150][205]AYDAY, MAYDAY! [194]ASE UNDER ASSAULT.     [210]EQUEST ";
  414. 5419 IFA1>0ANDA1<5THENPRINT"REINFORCEMENTS.":R1=R1+1:TR=INT(RND(1)*20)+(R1*3)
  415. 5420 PR=INT(RND(1)*7)+1:IFPR=1THENL=16
  416. 5425 IFPR=2THENL=6
  417. 5430 IFPR=3THENL=13
  418. 5435 IFPR=4THENL=14
  419. 5440 IFPR=5THENL=9
  420. 5443 IFPR=7THENL=12
  421. 5445 IFPR=6THENL=21
  422. 5450 GOTO5700
  423. 5460 IFPR=1THENL=4
  424. 5465 IFPR=2THENL=15
  425. 5470 IFPR=3THENL=18
  426. 5475 IFPR=4THENL=17
  427. 5480 GOTO5700
  428. 5487 IFIT>0ANDS1=0THENS1=1:L(I)=0:A1=A1-1:PRINT"[159][211][200][213][212][212][204][197] #1 [204][193][213][206][195][200][197][196]":GOTO5703
  429. 5490 IFPR<4THENL=16
  430. 5495 GOTO5700
  431. 5505 IFPR<3THENL=16
  432. 5510 IFPR>4THENL=19
  433. 5515 GOTO5700
  434. 5525 IFPR<3THENL=18
  435. 5530 IFPR>4THENL=21
  436. 5535 GOTO5700
  437. 5545 IFPR<3THENL=21
  438. 5550 IFPR>4THENL=11
  439. 5555 GOTO5700
  440. 5565 IFPR=1THENL=15
  441. 5567 IFPR=2THENL=20
  442. 5568 IFPR=3THENL=23
  443. 5570 IFPR=4THENL=24
  444. 5572 IFPR=5THENL=22
  445. 5574 IFPR=6THENL=19
  446. 5575 GOTO5700
  447. 5578 IFPR<4THENL=21
  448. 5580 GOTO5700
  449. 5584 IFPR<4THENL=21
  450. 5586 GOTO5700
  451. 5590 IFPR>3THENL=21
  452. 5700 L(I)=L:IFL=PTHENBU=BU+1
  453. 5701 IFPF<>1THENPL=L(1)
  454. 5702 NEXT:IFPL=PTHENPRINT"[217]OU SEE THE PRISONER!"
  455. 5703 IFBU<1THENRETURN
  456. 5704 IFBU>1THENPRINT"[217]OU SEE"BU"ALIENS!"
  457. 5705 IFBU=1THENPRINT"[217]OU SEE AN ALIEN!"
  458. 5706 IFH>0THENPRINT"[217]OU WEREN'T SEEN."
  459. 5707 IFH>0THENPRINT"[196]O YOU ATTACK ANYWAY?":GOSUB61000:IFA$="N"THENRETURN
  460. 5710 GOTO6000
  461. 6000 PRINT"[215]ANT TO EVADE (Y/N)"
  462. 6010 GOSUB61000
  463. 6020 IFA$="Y"ANDRND(1)>.5THENPRINT"[217]OU ESCAPED!":RETURN
  464. 6022 IFA$="Y"THENPRINT"[217]OU CAN'T ESCAPE!"
  465. 6025 IFPL=PTHENPL=0:PF=1
  466. 6030 PRINT"[195]OMBAT!"
  467. 6035 H=0:POKESO+5,136:POKESO+6,24
  468. 6040 FORK=1TOBU
  469. 6050 GOSUB61060
  470. 6060 IFPR>4THENPRINT"[207]W! "
  471. 6063 IFPR>4THENPOKESO+1,253:POKESO,46:POKESO+4,17:FORJ=1TO20:NEXTJ:POKESO+4,16
  472. 6065 IFPR<5THENPRINT"[201]T MISSED! "
  473. 6070 IFPR>4THENGOSUB61060:WP=WP-PR
  474. 6080 NEXTK
  475. 6083 IFWP>4ANDWP<11THENPRINT"[158]++[217]OU ARE BLEEDING++"
  476. 6085 IFWP>0ANDWP<5THENPRINT"++[217]OU ARE BADLY BLEEDING++"
  477. 6090 IFWP<1THENPRINT"[217]OU'VE BEEN KILLED!":SC=SC-1000:GOTO50105
  478. 6095 IFLC>0THENPRINT"[218]AP!":POKESO+1,36:POKESO,85:POKESO+4,65:FORM=1TO10:NEXTM
  479. 6096 IFLC>0THENPOKESO+4,64
  480. 6097 IFLC<1THENPRINT"[200]AND TO CLAW COMBAT!":KI=4
  481. 6100 GOSUB61060:IFPR>KITHENGOSUB7000
  482. 6110 IFLC>0THENLC=LC-1
  483. 6120 IFBU>0THEN6040
  484. 6300 RETURN
  485. 7000 PRINT"[217]OU KILLED ONE!":SC=SC+50:POKESO+4,129:FORM=1TO10:NEXTM:POKESO+4,128
  486. 7005 HI=0:C(P)=C(P)+1
  487. 7010 FORM=1TOA
  488. 7020 IFL(M)<>PTHENNEXTM
  489. 7030 A1=A1-1
  490. 7040 BU=BU-1
  491. 7045 L(M)=0
  492. 7070 IFPF=1THENPRINT"[159][217]OU HAVE THE PRISONER."
  493. 7100 RETURN
  494. 10000 IT=IT-1:FORK=1TO5
  495. 10002 POKESO+5,144:POKESO+6,76:POKESO+1,15:POKESO,75:POKESO+4,33
  496. 10005 FORI=1TO40:NEXT:POKESO+4,32:FORK1=1TO50:NEXTK1:NEXTK
  497. 10010 PRINT"[158]"IT"TURNS TO IMPLOSION!"
  498. 10015 IFIT<1THENPRINT"*******[160][194]OOM! *******":SC=SC+500
  499. 10017 IFIT<1THENPOKESO+4,129:POKESO+1,15:POKESO,75:FORI=1TO300:NEXT:POKESO+4,128
  500. 10020 IFIT<1THENPRINT"[217]OU ARE NOW SUBATOMIC PARTICLES!":SC=SC-1000:GOTO50105
  501. 10100 FORI=1TO500:NEXT
  502. 10200 RETURN
  503. 50000 FORI=1TOA
  504. 50010 IFL(I)=13THEN50200
  505. 50015 NEXT
  506. 50090 IFPF=1THENPRINT"[217]OU HAVE ESCAPED WITH THE PRISONER!"
  507. 50100 IFPF<>1THENPRINT"[217]OU HAVE ESCAPED WITHOUT THE PRISONER!"
  508. 50105 IFPF=1THENSC=SC+500
  509. 50120 IFIT>0THENPRINT"***** [194]OOM! *****":SC=SC+500
  510. 50125 IFIT>0THENPRINT"[217]OU DESTROYED THE ENEMY BASE!"
  511. 50127 IFIT>0THENPOKESO+1,15:POKESO,75
  512. 50130 IFIT>0THENPOKESO+5,155:POKESO+6,76:POKESO+4,129:FORI=1TO300:NEXT
  513. 50135 IFIT>0THENPOKESO+4,128
  514. 50140 IFA1=0THENSC=SC+A
  515. 50150 SC=SC+1000-TP+(R1*100):PRINT"[217]OUR SCORE IS:"SC
  516. 50158 GOSUB50600
  517. 50160 INPUT"[215]ANT TO PLAY AGAIN";A$:IFLEFT$(A$,1)="Y"THENRUN
  518. 50190 END
  519. 50200 PRINT"[212]HERE IS AN ALIEN MANNING THE LASER!"
  520. 50210 FORI=1TO4
  521. 50215 POKESO+1,51:POKESO,97:POKESO+4,129:FORJ=1TO50:NEXTJ:POKESO+4,128
  522. 50220 GOSUB61060:IFPR>5THENPRINT"[203]A-BOOOM!":SC=SC-1000
  523. 50223 IFPR>5THENPOKESO+6,45
  524. 50225 IFPR>5THENPOKESO+1,51:POKESO,97:POKESO+4,129:FORJ=1TO90:NEXT:POKESO+4,128
  525. 50230 IFPR<6THENPRINT"[194]OOOM!"
  526. 50240 IFPR>5THENPRINT"[217]OUR SHIP WAS DESTROYED!":SC=SC-700:GOTO50105
  527. 50250 FORJ=1TO100:NEXTJ:NEXTI
  528. 50260 GOTO50090
  529. 50500 END
  530. 50600 OPEN2,8,2,"0:HIGH SCORES,S,R"
  531. 50610 FORI=1TO10
  532. 50620 INPUT#2,A$(I)
  533. 50625 INPUT#2,A(I)
  534. 50630 NEXT
  535. 50640 CLOSE2
  536. 50680 IFA(1)=0THENRETURN
  537. 50690 FORI=1TO10
  538. 50700 IFSC>=A(I)THEN50720
  539. 50710 NEXT:GOTO50750
  540. 50720 PRINT"[217]OU'RE SCORE IS RANKED NUMBER"I"!"
  541. 50725 INPUT"[208]RINT YOUR NAME (UP TO 20 CHARACTERS)";N$
  542. 50730 IFLEN(N$)>20ORLEN(N$)<1THEN50725
  543. 50735 GOSUB50910:A$(I)=N$:A(I)=SC
  544. 50740 OPEN2,8,2,"@0:HIGH SCORES,S,W"
  545. 50743 FORJ=1TO10
  546. 50745 PRINT#2,A$(J)
  547. 50747 PRINT#2,A(J)
  548. 50748 NEXT
  549. 50749 CLOSE2
  550. 50750 OPEN2,8,2,"0:HIGH SCORES,S,R"
  551. 50755 FORI=1TO10
  552. 50760 INPUT#2,A$(I)
  553. 50763 INPUT#2,A(I)
  554. 50765 NEXT
  555. 50770 CLOSE2
  556. 50775 PRINT"[158][200][201][199][200] [211][195][207][210][197][211]:"
  557. 50780 FORI=1TO10
  558. 50785 PRINTA(I),"- "A$(I)
  559. 50790 NEXT:PRINT""
  560. 50800 RETURN
  561. 50910 FORJ=10TOISTEP-1
  562. 50920 A$(J+1)=A$(J):A(J+1)=A(J)
  563. 50930 NEXT
  564. 50990 RETURN
  565. 59000 INPUT"[206]EED INSTRUCTIONS";A$
  566. 59010 IFLEFT$(A$,1)="N"THENRETURN
  567. 59020 PRINT"[147]"
  568. 59030 PRINT"[210]ESCUE ON THE [195]ENTAURI IS A TEXT BASED  GAME IN WHICH YOUR MISSION IS TO"
  569. 59040 PRINT"RESCUE A CAPTIVE ON A SPACE STATION.    [217]OU PLAY BY ENTERING ONE LETTER"
  570. 59050 PRINT"COMMANDS.  [215]HEN YOU ENTER AN AREA YOU   MAY GET A DESCRIPTION LIKE THIS:
  571. 59060 [153]"(null)(null)(null) ATN(null)VALCLOSERIGHT$(null)CLOSE(null)LEFT$VAL PEEKATN(null)LEFT$(null)(null)(null)(null).  VAL(null)RIGHT$(null)(null): SYS(null). SYSVAL.  SYSASC(null)(null)(null)LEFT$CLOSE(null)(null)RIGHT$(null)VAL(null)."
  572. 59065 [153]"RIGHT$N THIS EXAMPLE YOU CAN HIT SYS(null) TO GO (null)ORTH, OR SYSVAL TO GO VALAST, OR "
  573. 59070 [153]"SYSASC TO FLUSH THE TOILET."
  574. 59080 [153]"LENOMMANDS ARE ALWAYS COLORED IN YELLOW.  (null)HERE IS ONE COMMAND THAT CAN"
  575. 59085 [153]"BE USED IN ALL ROOMS THAT IS THE SYSLEFT$ COMMAND TO HIDE YOURSELF."
  576. 59090 [153]"LEFT$IDING DOESN'T ALWAYS HELP BUT IT SURE  HELPS WHEN YOUR LASER ENERGY IS"
  577. 59095 [153]"RUNNING LOW."
  578. 59100 [133]"LEFT$RIGHT$(null) <(null)VAL(null)(null)(null)(null)> ASC(null)(null)CLOSE(null)(null)(null)VAL";A$
  579. 59110 [153]"LOAD"
  580. 59120 [153]"(null)CORING IS SIMPLE."
  581. 59130 [153]"(null)OU LOSE POINTS FOR DYING AND YOU GAIN  POINTS FOR BLASTING ALIENS."
  582. 59140 [153]"(null)OU ALSO GET POINT FOR:"
  583. 59150 [153]"(null)AVING THE PRISONER AND ESCAPING."
  584. 59160 [153]"(null)AKING OVER THE SPACE STATION."
  585. 59170 [153]"PEEKLOWING UP THE SPACE STATION."
  586. 59180 [153]:[153]"LEFT$RIGHT$(null)(null)(null):"
  587. 59190 [153]"(null)HE SICK BAY IS A GREAT PLACE TO GO IF  YOU GET SHOT."
  588. 59200 [153]"LENYCLE THE AIRLOCKS OFTEN, YOU NEVER KNOWWHO COULD BE IN THEM."
  589. 59205 [153]"(null)HE PRISONER IS ALWAYS GUARDED AND BEINGMOVED FROM ROOM TO ROOM."
  590. 59207 [153]"(null)END COMMENTS TO STR$EVIL STR$OG2."
  591. 59210 [133]"LEFT$RIGHT$(null)CLOSE<(null)VAL(null)(null)(null)(null)> ASC(null)(null) (null)(null)(null)VAL";$
  592. 60011 [151]SO[170]24,15:[151]54273,34:[151]54272,75:[151]54277,4:[151]54278,4
  593. 60015 [153]"LOADVALARTH TO SPACESHIP (null)EBULA:"
  594. 60020 A$[178]"(null)HE (null)UDE-DE-MANN EMPIRE HAS CAPTURED OURAMBASSADOR."
  595. 60025 [141]62000
  596. 60030 A$[178]"(null)OUR MISSION IS TO BEAM DOWN TO THEIR BASE AND RESCUE HIM, ALIVE."
  597. 60035 [141]62000
  598. 60036 [153]
  599. 60040 [153]"STR$O YOU ACCEPT";:[133]A$:[139][200](A$,1)[178]"N"[167][137]63000
  600. 60900 [142]
  601. 61000 [133]"(null)RDERS";A$
  602. 61005 A$[178][200](A$,1)
  603. 61010 [142]
  604. 61060 PR[178][181]([187](1)[172]6)[170]1
  605. 61070 [142]
  606. 62000 [129]I[178]1[164][195](A$):[151]54276,129
  607. 62005 [153][202](A$,I,1);
  608. 62010 [129]K[178]1[164]100:[130]:[151]54276,128
  609. 62020 [130]:[142]
  610. 63000 A$[178]"LENHICKEN!"
  611. 63005 [153]"LOAD":[129]I[178]1[164]9:[153]:[130]:[153][163]14);:[141]62000:[128]
  612.