home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Adventure / SUPER-DOG-STAR (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  25.1 KB  |  800 lines
  1. 10 POKE53280,1:POKE53281,1:PRINT""
  2. 100 POKE144,49
  3. 110 POKE 59468,12
  4. 120 PRINT"[147]         DOG STAR ADVENTURE[146]"
  5. 130 GOSUB6580
  6. 140 PRINT"   ADAPTED FOR THE PET CIRCA 1980"
  7. 145 REM ORIGINAL VERSION BY LANCE MIKLUS
  8. 147 REM FROM APPLESEED - JANUARY 1980
  9. 150 REM ADAPTED FOR PET BY DAVID MALMBERG
  10. 170 REM DISK VERSION BY JAY $ AND ERIC  R. NELSON-1980
  11. 180 GOSUB3900
  12. 190 DIMA(10)
  13. 200 PRINT"[147]"
  14. 210 PRINT"DO YOU WISH INSTRUCTIONS? "
  15. 220 GETA$:IFA$=""THEN220
  16. 230 IFLEFT$(A$,1)="Y"THENGOSUB5910:GOTO250
  17. 240 IFA$<>"N"THEN220
  18. 250 IFER<>0THENER=0:PRINT"[147]":GOTO290
  19. 260 PRINT"[147]"
  20. 270 LC=2:SL=40:GF=50:TB=1
  21. 280 GOTO2970
  22. 290 IFDG=-1THENDJ=-1
  23. 300 IFTC<25ORINT(RND(1)*GF)<>1THEN420
  24. 310 IFTC=300THENGF=20
  25. 320 IFLC<3ORLC=9ORLC=26ORLC=36ORLC=37THEN420
  26. 330 IFLC>26ANDLC<31THEN420
  27. 340 PRINT"HOLY SMOKES!!  AN ARMED STORMTROOPER"
  28. 350 PRINT"JUST WALKED IN."
  29. 360 GOTO7120
  30. 370 GOSUB3390:IFVB<>12ORNO<>15THEN1650
  31. 380 X=13:GOSUB3840:IFY<>-1THEN1650
  32. 390 IFBL=0THENPRINT"[147]I'M OUT OF AMMUNITION!":GOTO1660
  33. 400 PRINT"ZZZAP!!!  NO MORE STORMTROOPER!"
  34. 410 BL=BL-1:IFBL=0THENPRINT"I'M OUT OF AMMUNITION!"
  35. 420 IFMD<>TCTHEN450
  36. 430 X=22:GOSUB3840:IFY<>-1THEN450
  37. 440 PRINT"YOUR BIG MAC IS COLD."
  38. 450 GOSUB3390:TC=TC+1
  39. 460 IFVB=0ANDNO=0THEN480
  40. 470 GOTO500
  41. 480 PRINT"I DON'T UNDERSTAND.":GOTO290
  42. 490 PRINT"NOTHING HAPPENED.":GOTO290
  43. 500 IFVB>1ORNO>7THEN700
  44. 510 IFNO=0THENVB=0:GOTO460
  45. 520 IFDS(LC,NO-1)=0THENPRINT"I CAN'T GO THAT WAY.":GOTO290
  46. 530 IFDR=1ANDDS(LC,NO-1)>2ANDDS(LC,NO-1)<6THEN550
  47. 540 GOTO580
  48. 550 PRINT"[147]I CAN'T GO THAT WAY.  THE FLIGHT DECK"
  49. 560 PRINT"DOORS NEED TO BE CLOSED....AGH!!!..."
  50. 570 PRINT"..NO AIR!!!":FORI=1TO4000:NEXTI:PRINT"[147]":GOTO3170
  51. 580 IFNO=3ANDLC=31ANDDJ<>-1THENPRINTM0$:GOTO290
  52. 590 IFNO=1ANDLC=34ANDDJ<>-1THENPRINTO8$:GOTO290
  53. 600 IFLC=35ANDDS(LC,NO-1)=36ANDOB(21,1)<>0THEN620
  54. 610 GOTO630
  55. 620 PRINT"THE ROBOT WON'T LET ME.":GOTO290
  56. 630 IFLC=17ANDOB(13,1)=17THEN1650
  57. 640 IFLC=9ANDOB(5,1)=9THEN1650
  58. 650 IFLC=9ORLC=17THENHE$(LC)=""
  59. 660 LC=DS(LC,NO-1)
  60. 670 IFLC=34THENHE$(LC)=""
  61. 680 IFLC=26THEN3310
  62. 690 GOTO2970
  63. 700 IFVB=3THEN2970
  64. 710 IFVB<>2THEN950
  65. 720 IFNO=38THENPRINT"I'D RATHER NOT IF YOU DON'T MIND.":GOTO290
  66. 730 IFNO=35ANDEN=-1THENPRINT"GOOD GUESS, BUT SHE LOOKS A LITTLE BURNT.":GOTO290
  67. 740 IFLEN(NO$(NO))=0THENPRINT"TAKE WHAT?":GOTO290
  68. 750 IFNO=0THENPRINT"I DON'T KNOW WHAT A ";NO$(0);" IS.":GOTO290
  69. 760 IFCR>5THENPRINT"I CAN'T CARRY ANY MORE...TOO HEAVY!":GOTO290
  70. 770 KK=0:I=0
  71. 780 I=I+1
  72. 790 IFOB(I,0)=(NO)THENKK=I
  73. 800 IFI<LOTHEN780
  74. 810 IFKK=0THEN480
  75. 820 I=KK
  76. 830 IFOB(I,1)=-1THENPRINT"I'M ALREADY CARRYING IT.":GOTO290
  77. 840 IFOB(I,1)<>LCTHENPRINT"I DON'T SEE IT.":GOTO290
  78. 850 IFNO<>37THEN880
  79. 860 X=13:GOSUB3840:IFY<>-1THENPRINT"I DON'T HAVE A BLASTER TO PUT IT IN.":GOTO290
  80. 870 BL=10:OB(I,1)=0:PRINT"MY BLASTER'S RELOADED.":GOTO290
  81. 880 IFNO=15ORNO=25ORNO=34THENPRINT"HE LOOKS P-R-E-T-T-Y MEAN TO ME.":GOTO290
  82. 890 CR=CR+1:OB(I,1)=-1:PRINT"OK."
  83. 900 IFNO=14ANDCM<>1THENPRINT"A VOICE SAYS...SESAME![146]":CM=1
  84. 910 IFNO=22ANDMD=0THENMD=TC+50
  85. 920 IFNO=12THENHE$(2)=""
  86. 930 IFNO=13THENHE$(7)=""
  87. 940 GOTO290
  88. 950 IFVB<>4THEN1000
  89. 960 PRINT"I'M CARRYING..."
  90. 970 K=0:FORI=1TOLO:IFOB(I,1)=-1THENPRINTOB$(I):K=1:IFI=3THENPRINT""BL"[146]SHOTS"
  91. 980 NEXTI:IFK=0THENPRINT"NOTHING"
  92. 990 PRINT:GOTO290
  93. 1000 IFVB<>5THEN1020
  94. 1010 GOSUB3780:GOTO290
  95. 1020 IFVB<>6THEN1150
  96. 1030 IFLEN(NO$(NO))=0THENPRINT"PLEASE BE MORE SPECIFIC.":GOTO290
  97. 1040 IFNO=0THEN750
  98. 1050 IFLC=2THENPRINT"THERE'S NO ROOM HERE.":GOTO290
  99. 1060 IC=0:FORI=1TOLO:IFOB(I,1)=LCTHENIC=IC+1
  100. 1070 NEXTI:IFIC>12THENPRINT"THERE'S NOT ENOUGH ROOM...DUMP SOMETHING.":GOTO290
  101. 1080 I=0
  102. 1090 I=I+1
  103. 1100 IFOB(I,0)=(NO)THEN1130
  104. 1110 IFI<LOTHEN1090
  105. 1120 GOTO480
  106. 1130 IFOB(I,1)<>-1THENPRINT"I'M NOT CARRYING IT.":GOTO290
  107. 1140 CR=CR-1:OB(I,1)=LC:PRINT"OK.":GOTO290
  108. 1150 IFVB<>7THEN1180
  109. 1160 IFHE$(LC)=""THENPRINT"HOW AM I SUPPOSED TO KNOW WHAT TO DO?":GOTO290
  110. 1170 PRINT:PRINTHE$(LC):GOTO290
  111. 1180 IFVB<>8THEN1350
  112. 1190 PRINT"[147]"
  113. 1200 INPUT"T[146]APE OR D[146]ISK  D[157][157][157]";Q$:IFQ$<>"T"ANDQ$<>"D"THENPRINT"[145]";:GOTO1200
  114. 1210 IFQ$="T"THEN1230
  115. 1220 INPUT"DRIVE 1 OR  0[157][157][157]";Q$:IFQ$<>"1"ANDQ$<>"0"THENPRINT"[145][145]";:GOTO1220
  116. 1230 POKE144,46:INPUT"TITLE  *[157][157][157]";TL$:IFTL$="*"THENPRINT"[145]";:GOTO1230
  117. 1240 IFQ$="T"THENOPEN1,1,1,TL$:GOTO1270
  118. 1250 DN$=CHR$(34)+Q$+":"
  119. 1260 OPEN1,8,1,DN$+TL$+",S,W"
  120. 1270 PRINT"[147] ****** DATA TRANSFER IN PROCESS ****** "
  121. 1280 A(1)=TB:A(2)=TC:A(3)=CM:A(4)=DR:A(5)=BL
  122. 1290 A(6)=MD:A(7)=GF:A(8)=DJ:A(9)=CR:A(10)=LC
  123. 1300 FORI=0TO10:PRINT#1,A(I);CHR$(13);::PRINT""A(I):NEXTI
  124. 1310 FORI=0TOLO:FORP=0TO2:PRINT#1,OB(I,P);CHR$(13);:PRINT""OB(I,P):NEXTP,I
  125. 1320 CLOSE1:PRINT:PRINT"[147]GAME SAVED.[146]"
  126. 1330 PRINT"TITLE WAS:"TL$
  127. 1340 PRINT"MAY THE FORCE BE WITH YOU.":GOSUB3780:GOTO8060
  128. 1350 IFVB<>9THEN1510
  129. 1360 PRINT"[147]"
  130. 1370 INPUT"T[146]APE OR D[146]ISK  D[157][157][157]";Q$:IFQ$<>"T"ANDQ$<>"D"THENPRINT"[145]";:GOTO1370
  131. 1380 IFQ$="T"THEN1400
  132. 1390 INPUT"DRIVE 1 OR  0[157][157][157]";Q$:IFQ$<>"1"ANDQ$<>"0"THENPRINT"[145][145]";:GOTO1390
  133. 1400 DN$=CHR$(34)+Q$+":"
  134. 1410 POKE144,46:INPUT"TITLE  *[157][157][157]";TL$:IFTL$="*"THENPRINT"[145]";:GOTO1410
  135. 1420 IFQ$="T"THENOPEN1,1,0,TL$:GOTO1440
  136. 1430 OPEN1,8,0,DN$+TL$+",S,R"
  137. 1440 PRINT"[147] ****** DATA TRANSFER IN PROCESS ****** "
  138. 1450 FORI=0TO10:INPUT#1,A(I):PRINT""A(I):NEXTI
  139. 1460 FORI=0TOLO:FORP=0TO2:INPUT#1,OB(I,P):PRINT""OB(I,P):NEXTP,I
  140. 1470 CLOSE1
  141. 1480 TB=A(1):TC=A(2):CM=A(3):DR=A(4):BL=A(5)
  142. 1490 MD=A(6):GF=A(7):DJ=A(8):CR=A(9):LC=A(10)
  143. 1500 POKE144,49:GOTO2970
  144. 1510 IFVB<>10THEN1540
  145. 1520 INPUT"DO YOU WANT TO SAVE GAME Y[157][157][157]";K$:IFLEFT$(K$,1)="Y"THEN1190
  146. 1530 PRINT:PRINT"[147]MAY THE FORCE BE WITH YOU.":GOSUB3780:GOTO8060
  147. 1540 IFVB<>11THEN1750
  148. 1550 IFLEN(NO$(NO))=0THENPRINT"PUSH WHAT?":PRINT:GOTO290
  149. 1560 IFNO<>10THEN480
  150. 1570 IFLC<>2ANDLC<>11THENPRINT"WHAT BUTTON?":GOTO290
  151. 1580 IFLC=11ANDTBTHENTB=0:PRINTN2$:GOTO290
  152. 1590 IFLC=11ANDNOTTBTHENTB=1:PRINTN3$:GOTO290
  153. 1600 X=12:GOSUB3840:IFY<>1THEN490
  154. 1610 X=24:GOSUB3840:IFY<>1THEN490
  155. 1620 IFTB=1THENPRINTN3$:GOTO490
  156. 1630 IFDR=0THENPRINTN4$:GOTO290
  157. 1640 GOTO3140
  158. 1650 PRINT"[147]HELP!!!"
  159. 1660 PRINT"VADER'S SOLDIERS ARE EVERYWHERE."
  160. 1670 PRINT"I'VE BEEN CAPTURED."
  161. 1680 PRINT"I'M A PRISONER...WOE IS ME..."
  162. 1690 FORDU=1TOLO
  163. 1700 IF OB(DU,1)<>-1THEN1720
  164. 1710 OB(DU,1)=LC
  165. 1720 NEXTDU
  166. 1730 CR=0:OB(22,1)=34:OB(19,1)=26:LC=2
  167. 1740 GOTO6810
  168. 1750 IFVB<>12THEN1930
  169. 1760 IFNO=38THENNO=35:NO$(35)="REMAINS"
  170. 1770 IFNO=36ANDDG<>-1THEN7990
  171. 1780 IFLEN(NO$(NO))=0THENPRINTN7$:GOTO290
  172. 1790 X=13:GOSUB3840:IFY<>-1THENPRINT"BUT I DON'T HAVE A BLASTER.":GOTO290
  173. 1800 IFBL=0THENPRINT"BUT I DON'T HAVE ANY AMMUNITION.":GOTO290
  174. 1810 X=NO:GOSUB3840:IFY=-1THENPRINT"I CAN'T...I'M HOLDING IT.":GOTO290
  175. 1820 IFNO=34THENPRINT"ZZZAP!":BL=BL-1:GOTO290
  176. 1830 IFY<>LCTHENPRINT"I DON'T SEE IT.":GOTO290
  177. 1840 I=0
  178. 1850 I=I+1
  179. 1860 IFOB(I,0)=(NO)THEN1890
  180. 1870 IFI<LOTHEN1850
  181. 1880 GOTO480
  182. 1890 IFNO=12THEN7070
  183. 1900 OB(I,1)=0:PRINT"ZZZAP!!!  THE ";NO$(NO);" VAPORIZED!"
  184. 1910 BL=BL-1:IFBL=0THENPRINT"I'M OUT OF AMMUNITION."
  185. 1920 GOTO290
  186. 1930 IFVB<>13THEN2020
  187. 1940 IFLEN(NO$(NO))=0THENPRINT"SAY WHAT?":GOTO290
  188. 1950 X=14:GOSUB3840
  189. 1960 IFY<>-1ORNO<>19THENPRINT"OK... ";NO$(NO):PRINT:GOTO290
  190. 1970 IFDR=1THEN490
  191. 1980 DR=1:PRINT"[147]A VOICE COMES OVER THE P.A...":PRINT"   OPENING FLIGHT DECK DOORS"
  192. 1990 IFLC>2ANDLC<6THENPRINT"...YIPS!!!THERE'S NO AIR!!!...CROAK..."
  193. 2000 IFLC>2ANDLC<6THENFORI=1TO4000:NEXTI:PRINT"[147]":GOTO3170
  194. 2010 GOTO290
  195. 2020 IFVB<>14THEN2200
  196. 2030 IFNO<>20ANDNO<>16ANDNO<>11ANDNO<>33THEN490
  197. 2040 IFNO=20THEN2130
  198. 2050 IFNO<>16THEN2090
  199. 2060 IFOB(6,1)=-1THENGOSUB7210:GOTO290
  200. 2070 IFOB(6,1)=LCTHENPRINT"TRY...TAKE MAP":GOTO290
  201. 2080 PRINT"IT'S NOT HERE.":GOTO290
  202. 2090 X=NO:GOSUB3840:IFY<>LCANDY<>-1THEN2080
  203. 2100 IFNO=11THENPRINT"IT SAYS NEEDS TURBO[146]"
  204. 2110 IFNO=33THENPRINT"IT SAYS OUT OF ORDER[146]"
  205. 2120 GOTO290
  206. 2130 IFLC<>13THENPRINT"I DON'T SEE ANY.":GOTO290
  207. 2140 PRINT"IT SAYS ON THE WALL..."
  208. 2150 PRINT"YOUR MOTHER'S GOT A BIG NOSE"
  209. 2160 PRINT"KILROY WAS HERE"
  210. 2170 PRINT"FOR A GOOD TIME CALL 6557"
  211. 2180 PRINT"SAY SECURITY"
  212. 2190 GOTO290
  213. 2200 IFVB<>15THEN2320
  214. 2210 IFLEN(NO$(NO))=0THENPRINT"EAT WHAT?":GOTO290
  215. 2220 IFNO=0THENPRINT"WHAT'S A ";NO$(NO);"?":GOTO290
  216. 2230 IFNO<>22THENPRINT"DON'T BE RIDICULOUS!":GOTO290
  217. 2240 X=22:GOSUB3840:IFY<>-1THENPRINT"I'M NOT HOLDING IT.":GOTO290
  218. 2250 I=0
  219. 2260 I=I+1
  220. 2270 IFOB(I,0)=22THEN2300
  221. 2280 IFI<LOTHEN2260
  222. 2290 PRINT"I DON'T KNOW WHERE IT IS.":GOTO290
  223. 2300 OB(I,1)=0:PRINT"CHOMP...CHOMP...HUMMM, GOOD!"
  224. 2310 GOTO290
  225. 2320 IFVB<>16ORLC<>16THEN2380
  226. 2330 IFLEN(NO$(NO))=0THENPRINT"COPY WHAT?":GOTO290
  227. 2340 IFNO<>23THEN2380
  228. 2350 X=23:GOSUB3840:IFY<>-1THENPRINT:PRINTM1$:GOTO290
  229. 2360 OB(11,1)=0:OB(14,1)=16:CR=CR-1:PRINT:PRINTM2$
  230. 2370 GOTO290
  231. 2380 IFVB<>18ANDVB<>24THEN2510
  232. 2390 IFNO=19ANDVB=18THEN1970
  233. 2400 IFLEN(NO$(NO))<>0THEN2430
  234. 2410 IFNO=0ANDVB=24THENPRINTN6$:GOTO290
  235. 2420 IFNO=0ANDVB=18THENPRINTN5$:GOTO290
  236. 2430 IFNO<>36THEN480
  237. 2440 IFLC<>34ANDLC<>31THENPRINTO0$:GOTO290
  238. 2450 IFDJ=-1ANDVB=24THENPRINTO2$:GOTO290
  239. 2460 IFDJ=-1ANDVB=18THENPRINTO1$:GOTO290
  240. 2470 IFDJ<>-1ANDVB=18THENPRINT"I CAN'T OPEN A LOCKED DOOR!":GOTO290
  241. 2480 IFLC=34ANDDJ<>-1THENPRINTO3$:GOTO290
  242. 2490 X=17:GOSUB3840:IFY<>-1THENPRINTM3$:GOTO290
  243. 2500 HE$(31)="":DJ=-1:PRINT:PRINTM4$:GOTO290
  244. 2510 IFVB<>22ANDVB<>23THEN2610
  245. 2520 IFLEN(NO$(NO))<>0THEN2550
  246. 2530 IFNO=0ANDVB=22THENPRINTN8$:GOTO290
  247. 2540 IFNO=0ANDVB=23THENPRINTN9$:GOTO290
  248. 2550 IFNO<>36THEN480
  249. 2560 IFLC<>31ANDLC<>34THENPRINTO0$:GOTO290
  250. 2570 IFVB=23ANDDJ=-1THENPRINTO4$:GOTO290
  251. 2580 IFVB=23ANDDJ<>-1THENPRINTO6$:GOTO290
  252. 2590 IFVB=22ANDDJ<>-1THENPRINTO7$:GOTO290
  253. 2600 DJ=1:PRINTO5$:GOTO290
  254. 2610 IFVB<>19ORNO=0THEN2810
  255. 2620 IFLEN(NO$(NO))=0THENPRINT"WHAT OR WHOM?":GOTO270
  256. 2630 IFNO<>34THENPRINT"THAT'S STUPID!":GOTO290
  257. 2640 IFLC<>35THENPRINT:PRINTM5$:GOTO290
  258. 2650 X=22:GOSUB3840:IFY<>-1THENPRINT:PRINTM6$:GOTO290
  259. 2660 IFNO=35THENPRINTM7$:GOTO290
  260. 2670 IFNO<>34THENPRINTNO$(0);M8$:GOTO290
  261. 2680 IFTC>MDTHENPRINTM9$:GOTO290
  262. 2690 I=0
  263. 2700 I=I+1
  264. 2710 IFOB(I,0)=34THENK=I:GOTO2740
  265. 2720 IFI<LOTHEN2700
  266. 2730 GOTO480
  267. 2740 I=0
  268. 2750 I=I+1
  269. 2760 IFOB(I,0)=22THEN2790
  270. 2770 IFI<LOTHEN2750
  271. 2780 GOTO480
  272. 2790 PRINTN0$:HE$(35)=""
  273. 2800 OB(K,1)=0:OB(I,1)=0:GOTO290
  274. 2810 IFVB<>17THEN2830
  275. 2820 IFVB<>20THEN2940
  276. 2830 IFVB<>20THEN2940
  277. 2840 IFLEN(NO$(NO))=0THENPRINT"HIT WHAT?":GOTO290
  278. 2850 IFNO=10THENPRINT"JUST PUSH IT.":GOTO290
  279. 2860 IFNO=0THEN480
  280. 2870 X=NO:GOSUB3840:IFY=-1THENPRINT"THAT'S IMPOSSIBLE...I'M CARRYING IT.":GOTO290
  281. 2880 IFY=LCTHEN2910
  282. 2890 IFNO<11ORNO=19ORNO=20ORNO=30THEN480
  283. 2900 PRINT"I CAN'T HIT IT IF I CAN'T SEE IT!":GOTO290
  284. 2910 IFNO=15ORNO=25ORNO=31THENPRINT"I'D RATHER NOT...HE MIGHT HIT BACK!":GOTO290
  285. 2920 IFNO=35THENPRINT"THAT'S NOT NICE!!!":GOTO290
  286. 2930 GOTO490
  287. 2940 IFVB<>21THEN2960
  288. 2950 PRINT"I'M NOT STRONG ENOUGH TO KILL ANYTHING!":GOTO290
  289. 2960 GOTO480
  290. 2970 PRINT"[147]"DS$(LC):A$=""
  291. 2980 IFLC=35THENGF=10
  292. 2990 IFLC=7THEN3060
  293. 3000 K=0:FORI=1TOLO:IFOB(I,1)<>LCTHEN3040
  294. 3010 IFK=0THENK=1:PRINT:PRINT"AROUND ME I SEE --- ":A$=OB$(I):GOTO3040
  295. 3020 IFLEN(A$)+5+LEN(OB$(I))>40THENPRINTA$:A$=OB$(I):GOTO3040
  296. 3030 A$=A$+"    "+OB$(I)
  297. 3040 NEXTI
  298. 3050 IFA$<>""THENPRINTA$
  299. 3060 PRINT:PRINT"OBVIOUS DIRECTIONS ARE ";:K=0
  300. 3070 FORI=0TO5:IFDS(LC,I)=0THEN3110
  301. 3080 IFK<>0THENPRINT",";
  302. 3090 PRINTNO$(I+1);:K=K+1
  303. 3100 IFK=3THENPRINT""
  304. 3110 NEXTI
  305. 3120 IFK=0THENPRINT"UNKNOWN";
  306. 3130 PRINT".":GOTO290
  307. 3140 J=0:FORI=1TOLO:IFOB(I,1)=1THENJ=J+OB(I,2)
  308. 3150 NEXTI:PRINT"[147]"
  309. 3160 IFJ<>0THEN3200
  310. 3170 PRINT"WE HAVE FAILED IN OUR MISSION.  THE"
  311. 3180 PRINT"FORCES OF PRINCESS LEIA WILL BE"
  312. 3190 PRINT"CONQUERED.":GOTO3290
  313. 3200 IFJ<>SCTHEN3260
  314. 3210 PRINT"WE ARE HEROES.  THE FORCES OF PRINCESS"
  315. 3220 PRINT"LEIA WILL CONQUER THE EVIL IMPERIAL"
  316. 3230 PRINT"SOLDIERS, AND FREEDOM WILL PREVAIL"
  317. 3240 PRINT"THROUGHOUT THE GALAXY!":J=J+10
  318. 3250 PRINT"MAY THE FORCE BE WITH YOU!":GOSUB3800:GOTO8060
  319. 3260 PRINT"WE HAVE HELPED THE FORCES OF PRINCESS"
  320. 3270 PRINT"LEIA DEFEND THE GALAXY.  LONG LIVE THE"
  321. 3280 PRINT"FORCES OF FREEDOM!"
  322. 3290 PRINT"MAY THE FORCE BE WITH YOU!"
  323. 3300 PRINT:PRINT:PRINT:GOSUB 3780:GOTO8060
  324. 3310 PRINT"[147]A VOICE CALLS OUT...WHO GOES THERE?[146]"
  325. 3320 GOSUB3390
  326. 3330 IFVB<>13ORNO<>30THEN1650
  327. 3340 PRINTN1$
  328. 3350 GOSUB3390
  329. 3360 X=31:GOSUB3840:IFY<>-1THEN1650
  330. 3370 IFVB<>17ORNO<>31THEN1650
  331. 3380 GOTO2970
  332. 3390 PRINT"WHAT SHOULD I DO? ";
  333. 3400 CM$=""
  334. 3410 GETCDM$:PRINT" [157]";:IFCDM$=""THENPRINT"[166][157]";:GOTO3410
  335. 3420 IFCDM$=CHR$(13)THENPRINT" [157]":GOTO3490
  336. 3430 IFCDM$=CHR$(20)ANDLEN(CM$)<>0THENCM$=LEFT$(CM$,LEN(CM$)-1):PRINTCDM$;:GOTO3410
  337. 3440 IFCDM$=CHR$(20)ANDLEN(CM$)=0THEN3410
  338. 3450 IFCDM$=CHR$(3)THEN3410
  339. 3460 PRINTCDM$;
  340. 3470 CM$=CM$+CDM$:GOTO3410
  341. 3480 PRINT" ":GOTO3410
  342. 3490 IFLEFT$(CM$,4)=F$ORRIGHT$(CM$,6)=FU$THEN7050
  343. 3500 IF ER<>0 THEN 6880
  344. 3510 IFCQ=1ANDLEFT$(CM$,3)="YES"THENCM$="READ MAP":CQ=2
  345. 3520 IFLEFT$(CM$,3)="YES"THENPRINT"HUH?":GOTO3390
  346. 3530 IFCQ=1ANDLEFT$(CM$,3)<>"YES"THENCQ=0
  347. 3540 IFLEFT$(CM$,2)="NO"THENPRINT"HUH?":GOTO3390
  348. 3550 PRINT:IFCM$="N"THENCM$="NORTH"
  349. 3560 IFCM$="E"THENCM$="EAST"
  350. 3570 IFCM$="S"THENCM$="SOUTH"
  351. 3580 IFCM$="W"THENCM$="WEST"
  352. 3590 IFCM$="U"THENCM$="UP"
  353. 3600 IFCM$="D"THENCM$="DOWN"
  354. 3610 VB$(0)="":NO$(0)="":VB=0:NO=0:IFLEN(CM$)=0THENRETURN
  355. 3620 FORZL=1TOLEN(CM$)
  356. 3630 IFMID$(CM$,ZL,1)<>" "THENVB$(0)=VB$(0)+MID$(CM$,ZL,1):GOTO3650
  357. 3640 ZL=LEN(CM$)
  358. 3650 NEXTZL
  359. 3660 FORZL=1TOLV
  360. 3670 ZZ=4:YY=LEN(VB$(ZL)):IFYY<ZZTHENZZ=YY
  361. 3680 IFVB$(ZL)<>""ANDLEFT$(VB$(0),ZZ)=LEFT$(VB$(ZL),ZZ)THENVB=ZL:ZL=LV
  362. 3690 NEXTZL
  363. 3700 IFVB=0THENNO$(0)=VB$(0):GOTO3730
  364. 3710 IFLEN(VB$(0))+1>LEN(CM$)THENNO=0:RETURN
  365. 3720 NO$(0)=RIGHT$(CM$,LEN(CM$)-1-LEN(VB$(0)))
  366. 3730 NO=0:FORZL=1TOLN
  367. 3740 ZZ=4:YY=LEN(NO$(ZL)):IFYY<ZZTHENZZ=YY
  368. 3750 IFNO$(ZL)<>""THENIFLEFT$(NO$(0),ZZ)=LEFT$(NO$(ZL),ZZ)THENNO=ZL:ZL=LN
  369. 3760 NEXTZL
  370. 3770 RETURN
  371. 3780 J=0:FORI=1TOLO:IFOB(I,1)=1THENJ=J+OB(I,2)
  372. 3790 NEXTI
  373. 3800 PRINT"OUT OF A MAXIMUM OF";225;"POINTS"
  374. 3810 PRINT"YOU HAVE ";J;"POINTS."
  375. 3820 IFJ=0THENPRINT"YOU ARE NOT DOING SPECTACULARLY WELL!"
  376. 3830 RETURN
  377. 3840 ZL=-1
  378. 3850 ZL=ZL+1
  379. 3860 IFOB(ZL,0)=XTHENY=OB(ZL,1):RETURN
  380. 3870 IFZL<LOTHEN3850
  381. 3880 Y=-99:RETURN
  382. 3890 INPUTA$:RETURN
  383. 3900 SC=215:BT=0
  384. 3910 LV=24:DIMVB$(LV)
  385. 3920 FORI=1TOLV:READVB$(I):NEXTI
  386. 3930 DATAGO,TAKE,LOOK,INVENTORY,SCORE,DROP,HELP,SAVE,LOAD,QUIT,PUSH,SHOOT
  387. 3940 DATASAY,READ,EAT,COPY,SHOW,OPEN,FEED,HIT,KILL,CLOSE,LOCK,UNLOCK
  388. 3950 LN=38:DIMNO$(LN)
  389. 3960 FORI=1TOLN:READNO$(I):NEXTI
  390. 3970 DATANORTH,EAST,SOUTH,WEST,UP,DOWN,"","",""
  391. 3980 DATABUTTON,TAG,FUEL,BLASTER,COMMUNICATOR
  392. 3990 DATASTORMTROOPER,MAP,KEYS,NECKLACE,SESAME,GRAFFITI,CAPE,BIG MAC,TAPE,TURBO
  393. 4000 DATASCIENTIST,PLANS,SCHEMATIC,DEVICE,GUN,SECURITY,I.D.,CRYSTAL,SIGN
  394. 4010 DATAROBOT,PRINCESS,DOOR,AMMUNITION,REMAINS
  395. 4020 CL=37:DIMDS$(CL),DS(CL,5),HE$(CL)
  396. 4030 FORI=1TOCL
  397. 4040 FORZL=0TO5:READDS(I,ZL):NEXTZL
  398. 4050 NEXTI
  399. 4060 DS$(1)="I'M IN THE PASSENGER AND STORAGE AREA "
  400. 4070 DS$(1)=DS$(1)+"OF THE MILLENNIUM FALCON.  THERE'S AN"
  401. 4080 DS$(1)=DS$(1)+" EXIT HERE TO LEAVE THE SHIP."
  402. 4090 DATA2,0,0,0,0,3
  403. 4100 DS$(2)="I'M IN THE COCKPIT OF THE FALCON.  A    "
  404. 4110 DS$(2)=DS$(2)+"LARGE RED BUTTON IS LABELED PUSH[146] TO     "
  405. 4120 DS$(2)=DS$(2)+"BLAST OFF."
  406. 4130 DATA0,0,1,0,0,0
  407. 4140 DS$(3)="I'M STANDING NEXT TO THE MILLENNIUM     "
  408. 4150 DS$(3)=DS$(3)+"FALCON WHICH IS LOCATED ON A HUGH DECK."
  409. 4160 DATA18,0,4,0,1,0
  410. 4170 DS$(4)="I'M OUT ON THE FLIGHT DECK OF DARTH     "
  411. 4180 DS$(4)=DS$(4)+"VADER'S BATTLECRUISER."
  412. 4190 DATA3,5,4,4,0,0
  413. 4200 DS$(5)=DS$(4)
  414. 4210 DATA4,6,5,4,0,0
  415. 4220 DS$(6)="I'M IN A HALLWAY.  THERE ARE DOORS ON   "
  416. 4230 DS$(6)=DS$(6)+"ALL SIDES.  THE DOOR TO THE NORTH SAYS: "
  417. 4240 DS$(6)=DS$(6)+"CLOSED FOR THE DAY[146]"
  418. 4250 DATA7,0,8,5,0,0
  419. 4260 DS$(7)="I'M IN THE SUPPLY DEPOT.  AROUND ME I   "
  420. 4270 DS$(7)=DS$(7)+"SEE ALL KINDS OF THINGS."
  421. 4280 DATA0,0,6,0,0,0
  422. 4290 DS$(8)="I'M AT THE END OF ONE OF THE HALLWAYS.  "
  423. 4300 DS$(8)=DS$(8)+"I CAN HEAR VOICES NEARBY.  THEY SOUND   "
  424. 4310 DS$(8)=DS$(8)+"LIKE STORMTROOPERS."
  425. 4320 DATA6,10,0,9,0,12
  426. 4330 DS$(9)="I'M IN THE STRATEGIC PLANNING ROOM."
  427. 4340 DATA11,8,0,0,0,0
  428. 4350 DS$(10)="I'M IN THE DECONTAMINATION ROOM."
  429. 4360 DATA0,14,0,8,0,0
  430. 4370 DS$(11)="THIS AREA IS THE TRACTOR BEAM CONTROL   "
  431. 4380 DS$(11)=DS$(11)+"ROOM. THERE IS A SIGN ON THE BULKHEAD:  "
  432. 4390 DS$(11)=DS$(11)+"      ONLY AUTHORIZED PERSONNEL [146]        "
  433. 4400 DS$(11)=DS$(11)+"          MAY PUSH BUTTONS!     [146]      "
  434. 4410 DATA0,0,9,0,0,0
  435. 4420 DS$(12)="I'M IN ANOTHER HALLWAY.  TO THE EAST IS "
  436. 4430 DS$(12)=DS$(12)+"A RESTROOM."
  437. 4440 DATA15,13,0,0,8,0
  438. 4450 DS$(13)="THIS IS WHAT IS COMMONLY CALLED (ON     "
  439. 4460 DS$(13)=DS$(13)+"EARTH), THE BATHROOM. THERE'S GRAFFITI "
  440. 4470 DS$(13)=DS$(13)+"ON THE WALLS AND PIPES GOING UP THROUGH "
  441. 4480 DS$(13)=DS$(13)+"THE CEILING."
  442. 4490 DATA15,0,0,12,27,0
  443. 4500 DS$(14)="THIS SEEMS TO BE AN INTERROGATION ROOM."
  444. 4510 DATA0,0,0,10,0,0
  445. 4520 DS$(15)="I'M IN THE OFFICERS LOUNGE."
  446. 4530 DATA0,0,13,12,0,0
  447. 4540 DS$(16)="THIS IS THE COMPUTER CENTER.  THE CRT   "
  448. 4550 DS$(16)=DS$(16)+"SAYS: READY FOR DATA COPY[146]"
  449. 4560 DATA17,0,18,0,0,0
  450. 4570 DS$(17)="I'M IN A TESTING LABORATORY."
  451. 4580 DATA0,0,16,0,0,0
  452. 4590 DS$(18)="I'M IN A HALLWAY.  A LARGE ARROW POINTS "
  453. 4600 DS$(18)=DS$(18)+"EAST AND SAYS: TO THE VAULT[146]"
  454. 4610 DATA16,25,3,19,0,0
  455. 4620 DS$(19)="THIS IS THE ENTRANCE TO THE DEVELOPMENT "
  456. 4630 DS$(19)=DS$(19)+"LAB SECTION."
  457. 4640 DATA20,18,21,20,22,0
  458. 4650 DS$(20)="I'M IN A LONG CORRIDOR.  THERE ARE LABS "
  459. 4660 DS$(20)=DS$(20)+"ALL AROUND ME."
  460. 4670 DATA19,23,21,20,22,24
  461. 4680 DS$(21)="I'M IN A RESEARCH LAB."
  462. 4690 DATA20,0,0,0,0,0
  463. 4700 DS$(22)="I'M LOST!!!"
  464. 4710 DATA22,22,22,22,22,20
  465. 4720 DS$(23)=DS$(21)
  466. 4730 DATA0,0,0,0,20,0
  467. 4740 DS$(24)=DS$(21)
  468. 4750 DATA0,0,0,20,0,0
  469. 4760 DS$(25)="I'M NEAR THE ENTRANCE TO THE VAULT.  A  "
  470. 4770 DS$(25)=DS$(25)+"SIGN SAYS: AUTHORIZED PERSONNEL ONLY[146]"
  471. 4780 DATA0,26,0,18,0,0
  472. 4790 DS$(26)="I'M IN THE VAULT."
  473. 4800 DATA0,0,0,25,0,0
  474. 4810 DS$(27)="I'M IN A PIPE TUNNEL THAT LEADS IN ALL  "
  475. 4820 DS$(27)=DS$(27)+"DIRECTIONS."
  476. 4830 DATA28,27,27,27,27,13
  477. 4840 DS$(28)=DS$(27)
  478. 4850 DATA29,29,29,29,30,29
  479. 4860 DS$(29)="I'M LOST IN A MAZE OF PIPES."
  480. 4870 DATA28,29,29,29,29,27
  481. 4880 DS$(30)="I'M IN A MAZE OF PIPES.  BELOW ME I     "
  482. 4890 DS$(30)=DS$(30)+"THINK I SEE THE JAIL. IT'S A LONG DROP. IF I GO DOWN,"
  483. 4900 DS$(30)=DS$(30)+" I MAY NOT BE ABLE TO GET  BACK UP."
  484. 4910 DATA29,29,28,29,29,31
  485. 4920 DS$(31)="I'M IN THE JAIL. FAR ABOVE IS A         VENTILATION SHAFT."
  486. 4930 DATA32,33,34,35,0,0
  487. 4940 DS$(32)="I'M IN A JAIL CELL."
  488. 4950 DATA0,0,31,0,0,0
  489. 4960 DS$(33)=DS$(32)
  490. 4970 DATA0,0,0,31,0,0
  491. 4980 DS$(34)=DS$(32)
  492. 4990 DATA31,0,0,0,0,0
  493. 5000 DS$(35)="I'M AT THE SECURITY DESK.  TO THE NORTH "
  494. 5010 DS$(35)=DS$(35)+"IS AN ELEVATOR."
  495. 5020 DATA36,31,0,0,0,0
  496. 5030 DS$(36)="I'M IN THE ELEVATOR."
  497. 5040 DATA0,0,35,0,37,0
  498. 5050 DS$(37)=DS$(36)
  499. 5060 DATA0,0,14,0,0,36
  500. 5070 LO=23:DIMOB$(LO),OB(LO,2)
  501. 5080 FORI=1TOLO:READOB$(I):NEXTI
  502. 5090 DATA"A TAG WHICH SAYS: NEEDS TURBO","ANTI-MATTER FUEL","BLASTER"
  503. 5100 DATACOMMUNICATOR,A VERY SURPRISED STORMTROOPER,A MAP OF THE SHIP
  504. 5110 DATASOME KEYS,A SHINESTONE NECKLACE,PRINCESS LEIA'S CAPE,A BIG MAC
  505. 5120 DATAA CASSETTE TAPE,A TURBOENCABULATOR,AN EVIL LOOKING SCIENTIST
  506. 5130 DATASECRET ATTACK PLANS,DEATH RAY SCHEMATIC,CLOAKING DEVICE
  507. 5140 DATA MICRO LASER GUN,I.D. CARD,MALIDUM CRYSTALS (THE TREASURY)
  508. 5150 DATA"A SIGN WHICH SAYS: OUT OF ORDER",AN ATTACK ROBOT,PRINCESS LEIA
  509. 5160 DATAAMMUNITION
  510. 5170 FORI=1TOLO:FORZL=0TO2:READOB(I,ZL):NEXTZL,I
  511. 5180 DATA11,5,0
  512. 5190 DATA12,5,5
  513. 5200 DATA13,7,0
  514. 5210 DATA14,9,0
  515. 5220 DATA15,9,0
  516. 5230 DATA16,29,20
  517. 5240 DATA17,9,0
  518. 5250 DATA18,10,20
  519. 5260 DATA21,14,5
  520. 5270 DATA22,15,0
  521. 5280 DATA23,7,0
  522. 5290 DATA24,17,5
  523. 5300 DATA25,17,0
  524. 5310 DATA26,0,20
  525. 5320 DATA27,9,20
  526. 5330 DATA28,17,20
  527. 5340 DATA29,24,20
  528. 5350 DATA31,17,0
  529. 5360 DATA32,26,30
  530. 5370 DATA33,3,0
  531. 5380 DATA34,35,0
  532. 5390 DATA35,34,50
  533. 5400 DATA37,7,0
  534. 5410 HE$(1)="[145]WE'RE SUPPOSE TO LEAVE THE STUFF HERE."
  535. 5420 HE$(2)="[145]I WONDER IF WE HAVE ENOUGH FUEL?"
  536. 5430 HE$(7)="[145]HOW ABOUT A BLASTER?"
  537. 5440 HE$(9)="[145]TRY TO SHOOT THE STORMTROOPER."
  538. 5450 HE$(13)="[145]READ THE GRAFFITI."
  539. 5460 HE$(17)="[145]TRY SHOOTING THE SCIENTIST."
  540. 5470 HE$(22)="[145]I'M AS CONFUSED AS YOU ARE!":HE$(29)=HE$(22)
  541. 5480 HE$(31)="[145]IT MIGHT HELP IF WE HAD SOME KEYS TO    "
  542. 5490 HE$(31)=HE$(31)+"OPEN ANY LOCKED DOORS."
  543. 5500 HE$(35)="[145]DID YOU BRING ANYTHING TO EAT?"
  544. 5510 M0$="[145]CAN'T GO IN THERE.  THE DOOR IS LOCKED. "
  545. 5520 M1$="[145]I'M NOT CARRYING ANY BLANK TAPE."
  546. 5530 M2$="[145]THE PET RECORDED ON THE TAPE, THEN IT   "
  547. 5540 M2$=M2$+"PRINTED: ATTACK PLANS--VERY SECRET[146]"
  548. 5550 M3$="[145]I CAN'T.  I'M NOT CARRYING ANY KEYS."
  549. 5560 M4$="[145]OK...THE DOOR TO THE JAIL IS UNLOCKED."
  550. 5570 M5$="[145]THERE'S NO ROBOT HERE!"
  551. 5580 M6$="[145]BUT I DON'T HAVE ANY BIG MACS."
  552. 5590 M7$="[145]THE PRINCESS THANKS YOU FOR A DELICIOUS"
  553. 5600 M7$=M7$+"MEAL."
  554. 5610 M8$="[145]DOESN'T EAT HAMBURGER."
  555. 5620 M9$="[145]NOTHING HAPPENED.  THE BIG MAC IS COLD."
  556. 5630 N0$="THE ATTACK ROBOT EATS THE BIG MAC AND   "
  557. 5640 N0$=N0$+"DISAPPEARS."
  558. 5650 N1$="I'M AT THE IDENTIFICATION TERMINAL.  ON "
  559. 5660 N1$=N1$+"THE SCREEN IT SAYS: GIVE AUTHORIZATION[146]"
  560. 5670 N2$="THE TRACTOR BEAM IS OFF."
  561. 5680 N3$="THE TRACTOR BEAM IS ON."
  562. 5690 N4$="YOU FORGOT TO OPEN THE FLIGHT DECK      "
  563. 5700 N4$=N4$+"DOORS."
  564. 5710 N5$="OPEN WHAT?"
  565. 5720 N6$="UNLOCK WHAT?"
  566. 5730 N7$="SHOOT WHAT?"
  567. 5740 N8$="CLOSE WHAT?":N9$="LOCK WHAT?"
  568. 5750 O0$="I SEE NO DOOR HERE."
  569. 5760 O1$="IT'S ALREADY OPEN!"
  570. 5770 O2$="IT'S ALREADY UNLOCKED!"
  571. 5780 O3$="I CAN'T..."+CHR$(10)+CHR$(13)+"IT UNLOCKS FROM THE OTHER SIDE."
  572. 5790 O4$="A DOOR HAS TO BE CLOSE TO BE LOCKED."
  573. 5800 O5$="OK... THE DOOR IS NOW CLOSED AND LOCKED."
  574. 5810 O6$="IT'S ALREADY LOCKED!"
  575. 5820 O7$="IT'S ALREADY CLOSED!"
  576. 5830 O8$="I CAN'T GO THAT WAY..."+CHR$(10)+CHR$(13)+"YOU LOCKED THE DOOR."
  577. 5840 S$=CHR$(83)+CHR$(72)+CHR$(73)+CHR$(84)
  578. 5850 E$=CHR$(69)+CHR$(65)+CHR$(84):D$=CHR$(68)+CHR$(73)+CHR$(69)
  579. 5860 F$=CHR$(70)+CHR$(85)+CHR$(67)+CHR$(75):FU$=F$+CHR$(69)+CHR$(68)
  580. 5870 T$=CHR$(84)+CHR$(85)+CHR$(82)+CHR$(75)+CHR$(69)+CHR$(89)
  581. 5880 RETURN
  582. 5890 IFTI<8THEN5890
  583. 5900 RETURN
  584. 5910 PRINT"[147]YOU ARE THE ONLY HOPE OF SAVING"
  585. 5920 PRINT"PRINCESS LEIA AND THE FREEDOM FIGHTING"
  586. 5930 PRINT"FORCE."
  587. 5940 PRINT"HER SHIP HAS BEEN CAPTURED BY DARTH"
  588. 5950 PRINT"VADER AND SHE IS BEING HELD PRISONER ON"
  589. 5960 PRINT"HIS BATTLECRUISER.  ON BOARD HER SHIP"
  590. 5970 PRINT"WAS THE ENTIRE TREASURY OF THE FREEDOM"
  591. 5980 PRINT"FIGHTING FORCES.  THE PRINCESS WAS ALSO"
  592. 5990 PRINT"WEARING A NECKLACE OF SHINESTONES, WITH"
  593. 6000 PRINT"ONE STONE ENCODED WITH THE SECRET"
  594. 6010 PRINT"STRENGTH AND LOCATION OF THE FREEDOM"
  595. 6020 PRINT"FORCES."
  596. 6030 PRINT"DARTH VARDER MUST NOT DISCOVER THE"
  597. 6040 PRINT"SECRET OR ELSE HE WILL LAUNCH AN ATTACK"
  598. 6050 PRINT"AND PEACE WILL BE LOST TO THE GALAXY"
  599. 6060 PRINT"FOR EONS TO COME."
  600. 6070 PRINT"PRESS RETURN[146] TO CONTINUE."
  601. 6080 GETA$:IFA$=""THEN6080
  602. 6090 PRINT"[147]DISGUISED AS A TRADING SHIP, YOU HAVE"
  603. 6100 PRINT"JUST LANDED ON DARTH VADER'S SHIP. YOU"
  604. 6110 PRINT"MUST RESCUE THE PRINCESS, HER NECKLACE,"
  605. 6120 PRINT"AND THE TREASURY.  IF YOU FAIL TO GET"
  606. 6130 PRINT"THE PRINCESS, IN THE INTEREST OF PEACE"
  607. 6140 PRINT"YOU MUST AT LEAST DO EVERYTHING YOU CAN"
  608. 6150 PRINT"TO FOIL VADER'S PLANS."
  609. 6160 PRINT"YOU MUST EXERCISE EXTREME CAUTION."
  610. 6170 PRINT"STORMTROOPERS ARE EVERYWHERE ON THE "
  611. 6180 PRINT"SHIP.  ONLY A SINGLE RESCUER, MOVING"
  612. 6190 PRINT"STEALTHILY, HAS A CHANCE.  THE ODDS"
  613. 6200 PRINT"AGAINST YOU ARE OVERWHELMING--BUT FOR"
  614. 6210 PRINT"THE SAKE OF THE GALAXY, YOU MUST TRY!"
  615. 6220 PRINT"MAY THE FORCE BE WITH YOU."
  616. 6230 PRINT"PRESS RETURN[146] TO CONTINUE."
  617. 6240 GETA$:IFA$=""THEN6240
  618. 6250 PRINT"[147]DURING THIS ADVENTURE THE PET WILL BE"
  619. 6260 PRINT"YOUR ALTER EGO.  YOU TAKE ACTIONS BY"
  620. 6270 PRINT"GIVING THE PET A SERIES OF ORDINARY"
  621. 6280 PRINT"ENGLISH COMMANDS OF ONE OR TWO WORDS."
  622. 6290 PRINT"EXAMPLES ARE: GO NORTH[146], TAKE SIGN[146], DROP[146]"
  623. 6300 PRINT"NECKLACE[146], EAT BIG MAC[146], ETC.  INVENTORY[146]"
  624. 6310 PRINT"WILL CALL UP A LIST OF THE ITEMS YOU"
  625. 6320 PRINT"ARE CARRYING.  HELP[146] MAY RESULT IN A"
  626. 6330 PRINT"HELPFUL HINT.  LOOK[146] MAY REVEAL VERY"
  627. 6340 PRINT"SIGNFICANT DETAILS THAT WILL HELP YOU"
  628. 6350 PRINT"TO WIN.  OTHER WORDS IN THE PET'S "
  629. 6360 PRINT"LEXICON ARE SCORE[146], AND QUIT[146]."
  630. 6370 PRINT"THE PET WILL ACCEPT VARIOUS FORMS FOR"
  631. 6380 PRINT"SOME COMMANDS.  FOR EXAMPLE:N[146], NORTH[146],"
  632. 6390 PRINT"AND GO NORTH[146] ARE EQUIVALENT.  THE PET"
  633. 6400 PRINT"LOOKS AT ONLY THE FIRST FOUR LETTERS OF"
  634. 6410 PRINT"EACH WORD, SO INVE[146] WILL GET THE SAME"
  635. 6420 PRINT"RESULT AS INVENTORY[146]."
  636. 6430 PRINT"PRESS RETURN[146] TO CONTINUE."
  637. 6440 GETA$:IFLEFT$(A$,1)=""THEN6440
  638. 6450 PRINT"[147]SAVE[146] WILL CAUSE THE CURRENT GAME"
  639. 6460 PRINT"STATUS TO BE SAVED ON TAPE OR DISK."
  640. 6470 PRINT"LOAD[146] ENABLE YOU TO RESUME A PREVIOUSLY"
  641. 6480 PRINT"SAVED GAME."
  642. 6490 PRINT"REMEMBER, EVERYTHING YOU ENCOUNTER IN"
  643. 6500 PRINT"YOUR DOG STAR ADVENTURE HAS A PURPOSE."
  644. 6510 PRINT"THERE ARE CLUES EVERYWHERE, BUT IT WILL"
  645. 6520 PRINT"TAKE IMAGINATION, PERSEVERANCE AND LUCK"
  646. 6530 PRINT"TO RESCUE THE PRINCESS AND SAVE THE"
  647. 6540 PRINT"GALAXY."
  648. 6550 PRINT"PRESS RETURN[146] TO BEGIN."
  649. 6560 GETA$:IFLEFT$(A$,1)=""THEN6560
  650. 6570 RETURN
  651. 6580 PRINT"              [198][192][195][195][192][198][210]"
  652. 6590 PRINT"             [206] [200][199]    [205]"
  653. 6600 PRINT"             [165] [212][165]    [167]"
  654. 6610 PRINT"            [206] [200][200]      [165]"
  655. 6620 PRINT"           [206][163][196][177][177][195][197][195][164]  [212]"
  656. 6630 PRINT"          [200] < )([164] > [205] [212]"
  657. 6640 PRINT"          [199] [192][195]  [164][192][192][189] [165][221]"
  658. 6650 PRINT"         [217]  [196][206]HT[205][195][206]  [194][160][205]"
  659. 6660 PRINT"         [165] [213][206][178]T[178] [206][206]  [167]  [165]"
  660. 6670 PRINT"         [205] [202][203][163][163][163][202][203]    [197][205][199]"
  661. 6680 PRINT"          [197][195][192][174]    [206][195][174] [176][195][189]"
  662. 6690 PRINT"           [164][206]    [173][196][163]   [196][192]"
  663. 6700 PRINT"         [192][196]   =         [196][192][198][164]
  664. 6710 [153]"       (null)TAB(    (null) CHR$ (null) (null)        TAB((null)
  665. 6720 PRINT"      [206]     [221][221] [199] [221] [167]          [205]
  666. 6730 [153]"     (null)     FN (null) CHR$ RIGHT$ THEN           (null)
  667. 6740 PRINT"    [167]     [221]  [221]   [221] [221]            [165]
  668. 6750 [153]"    (null)     /  (null)     (null)            CHR$
  669. 6760 PRINT"    [165]      [163][196][192][198][198][192][189]              [167]
  670. 6770 [153]"   THEN       (null)TAB(TAB(TAB(TAB(TAB(TAB((null)             THEN
  671. 6780 PRINT"   [199]      [167][167][176][178][174][160][213][201][165][165]             [165]
  672. 6790 [153]"   CHR$      THENTHENOR=^ MID$(null)FNFN             CHR$
  673. 6800 RETURN
  674. 6810 FORI=1TO4000:NEXTI
  675. 6820 PRINT"[147]YOU ARE LOCKED IN A MAXIMUM SECURITY"
  676. 6830 PRINT"CELL.  YOU WILL SOON BE TORTURED"
  677. 6840 PRINT"MERCILESSLY FOR ANY INFORMATION YOU MAY HAVE."
  678. 6850 PRINT"THERE SEEM TO BE ONLY TWO ALTERNATIVES."
  679. 6860 PRINT"ESCAPE OR DIE..."
  680. 6870 RE=RE+1:ER=RND(0)/(RE):GOTO3390
  681. 6880 IFCM$<>"LOOK"ANDCM$<>"DIE"ANDCM$<>"ESCAPE"THEN6920
  682. 6890 IFCM$="LOOK"THEN6820
  683. 6900 IFCM$="DIE"THEN 6930
  684. 6910 IFCM$="ESCAPE"THEN6960
  685. 6920 PRINT"I SAID THERE WERE ONLY TWO ALTERNATIVES!":GOTO3390
  686. 6930 PRINT"[147]IT WILL BE QUICK AND PAINLESS.":FORI=1TO2000:NEXTI
  687. 6940 PRINT"GOD REST YOUR SOUL.":FORI=1TO3000:NEXTI
  688. 6950 SYS64721
  689. 6960 PRINT"[147]I'LL DO MY BEST...":FORI=1TO2000:NEXTI
  690. 6970 IF ER>.1THEN7000
  691. 6980 PRINT"I'M SORRY, I'M JUST TO WEAK."
  692. 6990 GOTO3170
  693. 7000 PRINT"[147]WE MADE IT!!!"
  694. 7010 PRINT"THE POWER OF THE FORCE HAS TRANSPORTED"
  695. 7020 PRINT"US BACK TO THE COCKPIT OF THE MILLENNIUMFALCON."
  696. 7030 PRINT"BE CAREFULL.  WE WERE LUCKY THIS TIME.":FORI=1TO5000:NEXTI
  697. 7040 GOTO250
  698. 7050 PRINT"[147]"E$" "S$" AND "D$"... "T$"!":FORI=1TO1000:NEXT I
  699. 7060 PRINT"[147]":GOTO3390
  700. 7070 PRINT"[147]CONGRADULATIONS!"
  701. 7080 PRINT"YOU HAVE JUST BLASTED 40 KILOGRAMS OF   HIGH GRADE ANTI-MATTER FUEL."
  702. 7090 PRINT"YOU AND THE SURROUNDING AREA ARE NOW    SPACE DUST."
  703. 7100 FORI=1TO4000:NEXTI
  704. 7110 PRINT"[147]":GOTO3160
  705. 7120 FORI=1TO1000:NEXTI
  706. 7130 PRINT"HE FIRES!!....."
  707. 7140 FORI=1TO1000:NEXTI
  708. 7150 IFRND(1)<.075THEN7180
  709. 7160 PRINT"HE MISSES!!!"
  710. 7170 GOTO370
  711. 7180 PRINT"YOU'VE BEEN STUNNED!!!!"
  712. 7190 FORI=1TO3000:NEXTI
  713. 7200 GOTO1650
  714. 7210 IFCQ=2THEN7240
  715. 7220 PRINT"WHAT AM I... A CARTOGRAPHER?"
  716. 7230 CQ=1:GOTO290
  717. 7240 PRINT"[147]"
  718. 7250 PRINT"CRUISER PLANS: NORTH SECTION[146]"
  719. 7260 PRINT" [166][166][166][166][166][166][166]                  "
  720. 7270 PRINT" [166]  E  [166]        [176][192][192][192][192][192][192][192][174] "
  721. 7280 PRINT" [166]N_[219][192]S[166]        [221] VAULT [221] "
  722. 7290 PRINT" [166]  W  [166]        [173][192][192][178][178][192][192][192][189] "
  723. 7300 PRINT" [166][166][166][166][166][166][166]           [221][221]     PAGE 1"
  724. 7310 PRINT"                   [221][171][209][146]         OF FOUR[145]"
  725. 7320 PRINT"         [176][192][192][192][192][192][192][174]  [221][221]     "
  726. 7330 PRINT"         [221]      [173][192][192][189][173][192][192][192][192][192][192][192][192]
  727. 7340 [153]"         (null) COMP.ORTANTAN^ORTANTANTANTANTANTANTANTANTANTAN
  728. 7350 PRINT"         [221]      [221]  [221][221]
  729. 7360 [153]" ORTANTANTANTANTANTAN^(null) CENT.(null)  (null)/TANTANTANTANTANTANTANTANTANTANTANTANTAN^
  730. 7370 PRINT" [221]      [173][189]      [221]  [221]              [221]
  731. 7380 [153]" (null) TEST.ORTANTANTANTANTANTANTANEXP  (null) RESEARCH     (null)
  732. 7390 PRINT" [221]      [221]   [176][192][192][192][192][192][192][189]              [221]
  733. 7400 [153]" (null) LAB  (null)   (null)         LABS        (null)
  734. 7410 PRINT" [173][192][192][192][192][192][192][189]   [221]                     [221]
  735. 7420 [153]"            (null)  DETAIL RESTRICTEDWAIT  (null)
  736. 7430 PRINT"            [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]
  737. 7440 [141]7930
  738. 7450 [153]" SPC(SPC(SPC(SPC(SPC(SPC(SPC(
  739. 7460 PRINT" [166]  E  [166]
  740. 7470 [153]" SPC(N_(null)TANSSPC(  CRUISER PLANS: MID SECTION"
  741. 7480 [153]" SPC(  W  SPC("
  742. 7490 [153]" SPC(SPC(SPC(SPC(SPC(SPC(SPC(  PAGE 2 OF FOUR"
  743. 7500 [153]"
  744. 7510 PRINT"             SAME SCALE"
  745. 7520 PRINT"                 [176][192][192][192][192][192][174]"
  746. 7530 PRINT"                 [221]SUPP.[173][192][192][192][192][192][192][192] "
  747. 7540 PRINT"                 [173][192][192][192][192][174][176][192][192][192][192][192][192][192] "
  748. 7550 PRINT"    [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][173][146][192][192][192][192][192][192][192][192][192][174] "
  749. 7560 PRINT" [192][192][192][189][146] SHIP                    [221]"
  750. 7570 PRINT"  [192][192][174][146]STORAGE                     [221]"
  751. 7580 PRINT"    [173][192][192][192][192][174]                       [221]"
  752. 7590 PRINT"         [221]                       [221]"
  753. 7600 PRINT"         [221]                       [221]"
  754. 7610 PRINT"         [221]      FLIGHT DECK      [221]"
  755. 7620 PRINT"         [221]                       [221]"
  756. 7630 PRINT"         [221]                       [221]"
  757. 7640 PRINT"         [221]                       [221]"
  758. 7650 PRINT"         [221]                       [221]"
  759. 7660 PRINT"         [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][146][192][192][192][192][192][192][189]"
  760. 7670 GOSUB7930
  761. 7680 PRINT""
  762. 7690 PRINT" [166][166][166][166][166][166][166] "
  763. 7700 PRINT" [166]  S  [166]  CRUISER PLANS: SOUTH SECTION"
  764. 7710 PRINT" [166]E_[219][192]W[166] "
  765. 7720 PRINT" [166]  N  [166]    PAGE 3 OF FOUR         "
  766. 7730 PRINT" [166][166][166][166][166][166][166]      SAME SCALE"
  767. 7740 PRINT
  768. 7750 PRINT"                       [176][192][192][192][192][192][192][192][192][192][174]"
  769. 7760 PRINT" [176][192][192][192][192][192][192][178][192][192][192][192][192][192][192][192][174][176][192][192][192][174][221]STRATI.  [221]"
  770. 7770 PRINT" [221]INTER.[221] DECON. [173][189]   [173][189]         [221]"
  771. 7780 PRINT" [209]      [177]        [176][192][174] [176][192][174]PLANNING [221]"
  772. 7790 PRINT" [221]ROOM  [178] ROOM   [221] [221] [221] [171][192][192][179][171][192][192][192][192][192][179]"
  773. 7800 PRINT" [173][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][189] [221] [221] [221]         [221]"
  774. 7810 PRINT"                   [221] [221] [221] T.B.C.  [221]"
  775. 7820 PRINT"                   [221] [221] [173][192][192][192][192][192][192][192][192][192][189]"
  776. 7830 PRINT"                   [221]   "
  777. 7840 GOSUB7930
  778. 7850 PRINT"CRUISER PLANS: LOWER LEVELS"
  779. 7860 PRINT"PAGE 4 OF 4:SAME SCALE"                                   
  780. 7870 PRINT"[204][206][205][164][164][206][163][163][205][206][205][206][205][164][206][205][206][163][205][206][205][206][163][163][163][205][164][164][164][206][205][206][205][164][164][206][205][206][205][186]"
  781. 7880 PRINT"THE REST SEEMS TO BE MISSING."
  782. 7890 FORF=1024TO1063:POKEF,100:NEXTF
  783. 7900 FORF=1103TO1263STEP40:POKEF,103:NEXTF
  784. 7910 FORF=1064TO1224STEP40:POKEF,101:NEXTF
  785. 7920 PRINT"":RETURN
  786. 7930 FORF=1024TO1063:POKEF,100:NEXTF
  787. 7940 FORF=1984TO2023:POKEF,99:NEXTF
  788. 7950 FORF=1064TO1944STEP40:POKEF,101:NEXTF
  789. 7960 FORF=1103TO1983STEP40:POKEF,103:NEXTF
  790. 7970 GETQ$:IFQ$=""THEN7970
  791. 7980 PRINT"[147]":RETURN
  792. 7990 IFDG=-1THENPRINTO0$:GOTO290
  793. 8000 DG=-1
  794. 8010 O2$=O0$:O3$=O0$:O4$=O0$:O5$=O0$:O56$=O0$:O7$=O0$
  795. 8020 PRINT"ZZZAP!!! THE DOOR BLASTED!"
  796. 8030 IFDJ=-1ORLC<>31THEN290
  797. 8040 OB$(22)="SOMEONE'S CHARRED REMAINS"
  798. 8050 EN=-1:DJ=-1:GOTO290
  799. 8060 POKE144,46:PRINT"THANKS FOR PLAYING.":CLR:END
  800.