home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Adventure / ATLANTIS-ADVN (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  14KB  |  331 lines
  1. 0 REM(null)
  2. 1 POKE808,237:POKE818,237:POKE819,245:POKE774,26:POKE775,167
  3. 8 POKE53280,0:POKE53281,0
  4. 10 PRINT"[147][142][154]                            [164][164]
  5. 20 [153]"       (null)(null) (null)(null) FNTHEN (null)USRTHEN(null) FNUSR(null) FNTHENTHENTO(null) (null)USR
  6. 30 PRINT"       [207][208] [204][206] [205][206] [207] [167] [205][165] [165] [204][186][167] [205] [207]
  7. 40 [153]"                TAB(TAB(             TAB(TAB(
  8. 50 PRINT"     [199][167][205] [165]    [206][205] [183][207] [165]  [206][205][167][205] [165][183][207] [199] [207][183]
  9. 60 [153]"     CHR$THEN (null)FN    (null)(null)  FN (null)AND (null)(null)THEN (null)FN FN CHR$ USR(null)
  10. 70 PRINT"                                  [163][163]
  11. 80 [153],"DEFWRITTEN FOR THE TRS-80
  12. 90 PRINT,"         BY
  13. 100 [153],"CONT    GREG HASSETT
  14. 110 PRINT"[150]     ADAPTED AND EXTENSIVELY MODIFIED
  15. 120 [153],"         BY
  16. 130 PRINT,"[154] STEVEN DARNOLD
  17. 131 [153]," P.O. BOX 201
  18. 132 PRINT," ALEXANDRA, NEW ZEALAND"
  19. 133 PRINT"      FURTHER MODIFIED BY GERG SMADA";
  20. 140 FORI=1TO2000:NEXT
  21. 160 NW$="THERE IS NO WRITING THERE.":ZZ=1:GF$="THE MINOTAUR WAS WEARING "
  22. 170 M0$="I DON'T SEE IT HERE.":M1$="I'M NOT HOLDING IT.":M2$=" WON'T LET ME."
  23. 180 M3$="DON'T BE RIDICULOUS.":M5$="THAT'S TOO DANGEROUS."
  24. 190 D1$="I DON'T KNOW WHAT "+CHR$(34):D2$=CHR$(34)+" IS.":POKE59468,12
  25. 200 DO$="PLEASE SUPPLY A DIRECT OBJECT."
  26. 210 NA$="[147]HELP!  NO AIR![154]":M7$="THAT IS NOT POSSIBLE."
  27. 220 SV$="THE SPEAR ZIPS THROUGH THE WATER!"
  28. 230 OH$="THE SPEAR PLUNGES INTO THE OCTOPUS, AND IT EXPLODES!"
  29. 240 MH$="THE SPEAR STRIKES THE MINOTAUR.":GOTO2060
  30. 250 GOSUB440
  31. 260 GOSUB300:IFNO<9ANDNO>0ANDVB=0THENVB=1
  32. 270 IF(VB-15)*(VB-16)*(VB-5)*(VB-6)*(LEN(N1$)>0)*(NO=0)THENPRINTD1$;N1$;D2$:GOTO260
  33. 280 IFN1$=""ANDVB>8ANDVB<>22ANDVB<>15ANDVB<>30THENPRINTDO$:GOTO260
  34. 290 GOTO620
  35. 300 T=T+1:PRINT"[150]WHAT SHOULD I DO?[141][145][145][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164] ";:GOSUB3100:PRINT
  36. 310 IFCM$="[160]"THENPRINT"[145][145]":GOTO300
  37. 320 VB$="":NO$="":VB=0:NO=0
  38. 330 LC=LEN(CM$):FORI=1TOLC:A$=MID$(CM$,I,1):IFA$<>" "THENVB$=VB$+A$:NEXTI
  39. 340 IFLEN(VB$)+1>LEN(CM$)THENNO=0:GOTO360
  40. 350 NO$=RIGHT$(CM$,LC-I)
  41. 360 N1$=NO$:V1$=VB$:VB$=LEFT$(VB$,3):NO$=LEFT$(NO$,3)
  42. 370 FORI=1TONV:IFVB$=VB$(I)THENVB=I:GOTO410
  43. 380 NEXTI:VB=0
  44. 390 IFN1$=""THENNO$=VB$
  45. 400 VB=0:GOTO420
  46. 410 IFVB$=CM$THENNO=0:NO$="":RETURN
  47. 420 FORI=1TONN:IFNO$=NO$(I)THENNO=I:RETURN
  48. 430 NEXTI:NO=0:NO$="":RETURN
  49. 440 PRINT"[147][154]":II=0:IFLEFT$(P$(CP),1)="*"THENP$=RIGHT$(P$(CP),LEN(P$(CP))-1):II=1
  50. 450 IFII=1THEN470
  51. 460 P$="I'M IN "+P$(CP)
  52. 470 IFCP<>1ANDOB(31,0)+1THENPRINTNA$:GOTO2040
  53. 480 PRINTP$".":K=0:FORI=1TOLO:IFOB(I,0)<>CPTHEN520
  54. 490 IFK=0THENPRINT"[129][176][192][192][192][192][192][192][192][192][192][192]VISIBLE ITEMS[192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]";
  55. 500 IF3+POS(0)+LEN(OB$(I))>39THENPRINT
  56. 510 PRINTOB$(I)".  ";:K=K+1
  57. 520 NEXTI:IFK>0THENPRINT
  58. 530 IFCP=31THEN610
  59. 540 K=0:PRINT"[153]OBVIOUS EXITS ARE: ";:FORI=0TO3:IFP(CP,I)=0THEN580
  60. 550 IF2+POS(0)+LEN(D$(I))>39THENPRINT:PRINTTAB(19);:GOTO570
  61. 560 IFK>0THENPRINT", ";
  62. 570 PRINTD$(I);:K=K+1
  63. 580 NEXTI:PRINT".":IFCP-5THEN610
  64. 590 FORI=1TOLO:IFOB(I,0)=-1ANDI<>31THENOB(I,0)=6
  65. 600 NEXTI:IFZZ>1THENPRINT"[129]THE WHIRLPOOL SUCKS DOWN MY BELONGINGS!":ZZ=1
  66. 610 PRINT:I=FRE(0):RETURN
  67. 620 IFVB=0THEN650
  68. 630 ONVBGOTO660,1960,250,840,2950,1510,1090,2040,1130,1190,1200,1400,1430,1500,1510,1550
  69. 640 ONVB-16GOTO890,1560,1610,1720,1750,2880,1810,1860,1910,740,1400,1920,740,2010
  70. 650 PRINT"I DON'T KNOW HOW TO ";CHR$(34);V1$;CHR$(34);" SOMETHING":GOTO260
  71. 660 IFNO=0THENPRINT"I NEED A DIRECTION.":GOTO260
  72. 670 IFNO>8THEN1810
  73. 680 IFNO>4THENNO=NO-4
  74. 690 NO=NO-1:IFP(CP,NO)=0THENPRINT"THERE IS NO WAY TO GO IN THAT DIRECTION.":GOTO260
  75. 700 IFCP=30ANDGF=0THENPRINT"THE DOOR IS LOCKED.":GOTO260
  76. 710 IFCP=25ANDNO=0ANDGF=0THENPRINT"A LOCKED DOOR BARS THE WAY.":GOTO260
  77. 720 IFCP=OB(16,0)ANDNO-3THENPRINT"THE MANTA WON'T LET ME.":GOTO260
  78. 730 CP=P(CP,NO):GOTO250
  79. 740 IFCP<>OB(NO,0)THENPRINTM0$:GOTO260
  80. 750 IFNO=16ORNO=18ORNO=22ORNO=36ORNO=42THENPRINTM5$:GOTO260
  81. 760 IFNO=27ORNO=17ORNO=29ORNO=14ORNO=43THENPRINT"IT'S TOO HEAVY.":GOTO260
  82. 770 IFOB(18,0)=CPTHENPRINT"SQUID";M2$:GOTO260
  83. 780 IFOB(36,0)=CPANDNO=35THENPRINT"OCTOPUS";M2$:GOTO260
  84. 790 IFNO=44ANDOB(42,0)=CPTHENPRINT"MINOTAUR";M2$:GOTO260
  85. 800 IFNO=32THENPRINT"TRY 'USE TRAIN'":GOTO260
  86. 810 IFZZ>4THENPRINT"I'M CARRYING TOO MUCH.":GOTO260
  87. 820 IFNO=41ANDAA=1THENPRINT"IT IS FIRMLY ATTACHED TO THE TREE.":GOTO260
  88. 830 ZZ=ZZ+1:OB(NO,0)=-1:PRINT"OK":GOTO260
  89. 840 IFZZ=0THENPRINT"I'M NOT CARRYING ANYTHING.":GOTO260
  90. 850 PRINT"I'M CARRYING:  [155]";:FORI=1TOLO:IFOB(I,0)+1THEN880
  91. 860 IF3+POS(0)+LEN(OB$(I))>39THENPRINT
  92. 870 PRINTOB$(I)",  ";
  93. 880 NEXTI:PRINT:GOTO260
  94. 890 IFOB(NO,0)+1ANDOB(NO,0)<>CPTHENPRINTM0$:GOTO260
  95. 900 IFNO<>33THEN940
  96. 910 IFCP<>26THENPRINT"THERE'S NOTHING HERE TO USE IT ON.":GOTO260
  97. 920 PRINT"THE TINY PICK BREAKS ON THE OYSTER SHELL":OB(33,1)=0
  98. 930 OB$(33)="A BROKEN OYSTER PICK":GOTO260
  99. 940 IFNO<>15THEN1020
  100. 950 IFCP<>26THEN980
  101. 960 IFOB(39,0)THENPRINT"THE OYSTER IS EMPTY.":GOTO260
  102. 970 PRINT"THE OYSTER FLIES OPEN.":OB(39,0)=CP:GOTO260
  103. 980 IFOB(35,0)<>CPANDOB(35,0)+1THENPRINT"NOTHING HAPPENS.":GOTO260
  104. 990 IFOB(36,0)=CPTHENPRINT"OCTOPUS";M2$:GOTO260
  105. 1000 IFOB(38,0)<>0THENPRINT"THE CHEST IS EMPTY.":GOTO260
  106. 1010 PRINT"THE CHEST IS OPEN.  TWO THINGS FALL OUT.":OB(38,0)=CP:OB(26,0)=CP:GOTO260
  107. 1020 IFNO=9ORNO=34THENPRINT"TRY 'THROW SPEAR'":GOTO260
  108. 1030 IFNO=25THENPRINT"TRY 'CUT'":GOTO260
  109. 1040 IFNO=29THENPRINT"TRY 'FIRE'":GOTO260
  110. 1050 IFNO=32THENCP=63-CP:OB(32,0)=CP:GOTO250
  111. 1060 IFNO=47THENPRINT"MY HAIR IS LOVELY NOW.":GOTO260
  112. 1070 IFNO=13THENPRINT"THAT WOULD BE A WASTE.":GOTO260
  113. 1080 PRINT"I DON'T UNDERSTAND.":GOTO260
  114. 1090 SC=0:FORI=1TOLO:IFOB(I,0)=1THENSC=SC+OB(I,1)
  115. 1100 NEXT:PRINT"YOU SCORE POINTS BY LEAVING VALUABLE    ITEMS IN THE SUBMARINE.
  116. 1110 [153]"SO FAR, YOU HAVE"SC"POINTS OUT OF 100.":[139]SC[179]100[167]260
  117. 1120 [153]"LOADWELL DONE!   DEFYOU HAVE 100 OUT OF 100.":[128]
  118. 1130 [139]OB(NO,0)[170]1[167][153]M1$:[137]260
  119. 1140 [139]NO[179][177]34[176]OB(9,0)[170]1[167]1920
  120. 1150 ZZ[178]ZZ[171]1:OB(34,0)[178]CP
  121. 1160 [139]CP[178]OB(36,0)[167][153]OH$:OB(36,0)[178]0:OB(34,0)[178]0:[137]260
  122. 1170 [139]CP[178]OB(42,0)[167][153]MH$:OB(42,0)[178]0:OB(17,0)[178]CP:[137]260
  123. 1180 [153]SV$:[137]260
  124. 1190 [153]"HOW?":[137]260
  125. 1200 [139]OB(NO,0)[170]1[175]OB(NO,0)[179][177]CP[167][153]M0$:[137]260
  126. 1210 [139](NO[171]11)[172](NO[171]12)[172](NO[171]21)[172](NO[171]28)[172](NO[171]38)[167][153]NW$:[137]260
  127. 1220 [153]"IT SAYS:LIST"
  128. 1230 [139]NO[178]21[167][153],"(null)CMD(null)ON(null)CMDMID$ONRIGHT$CMDMID$ON  _TANTANTAN  TANTANTANTANTAN(null)CMDCMDCMDWAITMID$ WAITGET"
  129. 1240 [139]NO[178]12[167][153],"ONYOU MAY REGRET IT":[153],"IF YOU GO NORTH. "
  130. 1250 [139]NO[171]11[167]1320
  131. 1260 [153],"SOLVING MAZES  --  CHAPTER 5
  132. 1270 PRINT,"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]
  133. 1280 [153],"THE SUREST METHOD OF SOLVING
  134. 1290 PRINT,"A MAZE IS TO LEAVE AN OBJECT
  135. 1300 [153],"IN EACH ROOM.  THEREBY, EACH
  136. 1310 PRINT,"ROOM IS EASILY RECOGNISED.
  137. 1320 [139]NO[179][177]28[167]1380
  138. 1330 [153],"                (null)"
  139. 1340 [153]," YESTERDAY SCIENT"
  140. 1350 [153]," THAT SQUIDS AND(null)"
  141. 1360 [153]," REPELLED BY LOUD"
  142. 1370 [153],"STEP(null)STEP(null)STEP(null)STEP(null)STEP(null)STEP(null)STEP(null)STEP(null)STEP"
  143. 1380 [139]NO[178]38[167][153],"(null)USRCMDCOSLOGCMDONUSRUSRUSRWAIT_(null)"
  144. 1390 [137]260
  145. 1400 [139]NO[171]34[167]1080
  146. 1410 [139]OB(51,0)[170]1[176]OB(52,0)[170]1[167][153]"I DON'T HAVE ALL THE PIECES.":[137]260
  147. 1420 OB(51,0)[178]0:OB(52,0)[178]0:OB(34,0)[178][171]1:ZZ[178]ZZ[171]1:[153]"I'LL TRY.":[137]260
  148. 1430 [139](NO[171]40)[172](NO[171]45)[172](NO[171]35)[172](NO[171]14)[167][153]M7$:[137]260
  149. 1440 [139]OB(NO,0)[170]1[175]OB(NO,0)[179][177]CP[167]890
  150. 1450 [139]NO[178]45[175]OB(19,0)[178]0[167]OB(19,0)[178]CP:[153]"COINS FALL FROM THE SUITCASE."
  151. 1460 [139]NO[178]45[167]260
  152. 1470 [139]NO[178]14[167][153]"USE A TOOL.":[137]260
  153. 1480 [139]OB(36,0)[178]CP[167][153]"OCTOPUS"M2$:[137]260
  154. 1490 [153]"IT'S LOCKED.":[137]260
  155. 1500 [153]"WITH WHAT?":[137]260
  156. 1510 [139]NO[178]29[176]NO[178]20[167][153]"TRY 'FIRE CANNON'":[137]260
  157. 1520 [139]NO[177]0[167][153]"TRY 'THROW SPEAR'":[137]260
  158. 1530 [139]OB(18,0)[179][177]CP[167][153]"NOTHING HAPPENED.":[137]260
  159. 1540 [153]"THE FRIGHTENED SQUID SWIMS AWAY.":OB(18,0)[178]0:[137]260
  160. 1550 [153]"OKAY..."N1$:[137]260
  161. 1560 [139]NO[179][177]29[167][153]M7$:[137]260
  162. 1570 [139]CP[179][177]12[167][153]M0$:[137]260
  163. 1580 [139]OB(20,0)[170]1[167][153]"I DON'T HAVE A CANNONBALL.":[137]260
  164. 1590 [139]P(12,0)[178]20[167][153]"THE SHOT IS DENTED.":[137]260
  165. 1600 [153]"OK":OB(20,0)[178]20:ZZ[178]ZZ[171]1:[137]260
  166. 1610 [139]OB(NO,0)[170]1[175]OB(NO,0)[179][177]CP[167]890
  167. 1620 [139](NO[171]16)[172](NO[171]18)[172](NO[171]22)[172](NO[171]23)[172](NO[171]36)[167][153]M3$:[137]260
  168. 1630 [139](NO[171]22)[172](NO[171]16)[167][153]"IT'S NOT HUNGRY.":[137]260
  169. 1640 [139]NO[178]16[167]1690
  170. 1650 [139]OB(30,0)[170]1[167][153]"I HAVE NO FOOD!":[137]260
  171. 1660 [153]"THE PIRANHAS GULP DOWN THE PEANUT BUTTER";
  172. 1670 [153]"AND BREAK THEIR TEETH EATING THE JAR.
  173. 1680 OB(22,0)=0:OB(23,0)=CP:NO$(22)="'":OB(30,0)=0:ZZ=ZZ-1:OB(24,0)=CP:GOTO260
  174. 1690 IFOB(23,0)+1THENPRINT"I HAVE NO SUITABLE FOOD, SO IT EATS [150]ME[154]!":GOTO2040
  175. 1700 PRINT"THE MANTA SWALLOWS UP THE PIRANHAS AND  SWIMS AWAY."
  176. 1710 ZZ=ZZ-1:OB(16,0)=0:OB(23,0)=0:GOTO260
  177. 1720 IFOB(25,0)+1THENPRINT"I HAVE NO SCISSORS.":GOTO260
  178. 1730 IF(NO=41ORNO=43)ANDAA=1THENAA=2:PRINT"THE APPLE FALLS TO THE GROUND.":GOTO260
  179. 1740 PRINT"NOTHING HAPPENS.":GOTO260
  180. 1750 IF(NO-40)*(NO-35)THENPRINTM7$:GOTO260
  181. 1760 IFOB(26,0)+1THENPRINT"I DON'T HAVE THE KEY.":GOTO260
  182. 1770 IFNO=35THENPRINT"THE KEY DOESN'T FIT THE LOCK.":GOTO260
  183. 1780 IF(CP-25)*(CP-30)THENPRINTM0$:GOTO260
  184. 1790 IFGF=1THENPRINT"IT'S ALREADY OPEN!":GOTO260
  185. 1800 PRINT"OK":GF=1:GOTO260
  186. 1810 IFNO<>27THENPRINTM7$:GOTO260
  187. 1820 IFCP<>9ANDCP<>31THENPRINTM0$:GOTO260
  188. 1830 IFCP=9THENCP=31:GOTO1850
  189. 1840 CP=9
  190. 1850 GOTO250
  191. 1860 IFNO<>29THENPRINTM7$:GOTO260
  192. 1870 IFCP<>12THENPRINTM0$:GOTO260
  193. 1880 IFOB(20,0)-20THENPRINT"IT'S NOT LOADED.":GOTO260
  194. 1890 IFOB(13,0)+1THENPRINT"THERE'S NOTHING TO LIGHT IT WITH.":GOTO260
  195. 1900 PRINT"*** B O O M ***":P(12,0)=20:OB$(13)="A USED FLARE":GOTO260
  196. 1910 PRINT"I'M NOT HUNGRY.":GOTO260
  197. 1920 IFOB(NO,0)+1THENPRINTM1$:GOTO260
  198. 1930 ZZ=ZZ-1:PRINT"OK":OB(NO,0)=CP
  199. 1940 IFNO=23THENOB(23,0)=14:PRINT"THEY SWIM AWAY.
  200. 1950 [137]260
  201. 1960 [139]NO[178]0[167]1510
  202. 1970 [139]OB(NO,0)[170]1[175]OB(NO,0)[179][177]CP[167][153]M0$:[137]260
  203. 1980 [139]NO[179][177]37[167][153]"NOTHING COMES OFF.":[137]260
  204. 1990 [153]"THE IRON-COLOURED PAINT COMES OFF.
  205. 2000 OB$(37)="A GOLD STATUETTE":OB(37,1)=10:GOTO260
  206. 2010 IF(CP-31)*(CP-35)THENPRINT"WHEEEE!":GOTO260
  207. 2020 PRINT"DOWN DOWN DOWN DOWN DOWN":IFCP=31THENCP=9:GOTO260
  208. 2030 CP=37:GOTO260
  209. 2040 FORI=1TO2000:NEXT:FORI=1TOLO:IFOB(I,0)=1THENFS=FS+OB(I,1)
  210. 2050 NEXT:PRINT"YOU SCORED"FS"POINTS OUT OF 100.":END
  211. 2060 CP=1:NP=51:LO=52:NN=LO:NV=30:DIMP$(NP),P(NP,3),OB(NN,1),OB$(NN),NO$(NN)
  212. 2070 DIM VB$(NV):FORI=1TO31:FORJ=0TO3:READP(I,J):NEXTJ:NEXTI
  213. 2080 P$(1)="MY SUBMARINE DOCKED IN THE CITY  OF ATLANTIS"
  214. 2090 P$(2)="A CORRIDOR FILLED WITH WATER"
  215. 2100 P$(3)="AN ALCOVE"
  216. 2110 P$(4)="A CORAL REEF"
  217. 2120 DATA 0,0,2,0,8,0,3,1,9,0,4,2,10,0,5,3
  218. 2130 P$(5)="A WHIRLPOOL"
  219. 2140 P$(6)="A GRAVEYARD
  220. 2150 P$(7)[178]"*DEAD END"
  221. 2160 P$(8)[178]"CMDCMDCMDAT THE END OF THE STREET"
  222. 2170 [131] 11,0,0,4,13,0,7,0,0,8,0,0,7,2,9,0
  223. 2180 P$(9)[178]"CMDCMDCMDON THE STREET"
  224. 2190 P$(10)[178]P$(8)
  225. 2200 P$(11)[178]"A DARK CAVE"
  226. 2210 P$(12)[178]"THE FORTRESS OF ATLANTIS"
  227. 2220 [131] 15,3,10,8,0,4,11,9,0,5,12,10,0,0,0,11
  228. 2230 P$(13)[178]"CAPTAIN AHAB'S QUARTERS"
  229. 2240 P$(14)[178]"A BARREN CHAMBER"
  230. 2250 P$(15)[178]"A BARBER SHOP"
  231. 2260 P$(16)[178]"AN OLYMPIC FIELD"
  232. 2270 [131] 16,6,0,0,17,0,15,0,0,9,0,14,22,13,17,0
  233. 2280 P$(17)[178]"A SUPPLY ROOM"
  234. 2290 P$(18)[178]"*I'M AT THE WEST END OF THE PLAZA
  235. 2300 P$(19)="*I'M AT THE EAST END OF THE PLAZA
  236. 2310 P$(20)[178]"A HOLE BLASTED THROUGH THE WALL
  237. 2320 DATA0,14,18,16,24,0,19,17,25,0,0,18,21,12,0,0
  238. 2330 P$(21)="THE ROYAL COLOSSEUM
  239. 2340 P$(22)[178]"A HALLWAY"
  240. 2350 P$(23)[178]"AN OLD LIBRARY"
  241. 2360 P$(26)[178]"A CRUMBLING PASSAGEWAY
  242. 2370 DATA 26,20,0,0,27,16,0,0,0,0,24,0,29,18,0,23
  243. 2380 P$(25)="A RAIL STATION"
  244. 2390 P$(24)="THE TOWN HALL"
  245. 2400 P$(27)="THE KITCHEN"
  246. 2410 P$(28)="THE DINING HALL"
  247. 2420 DATA 30,19,0,0,32,21,0,0,0,22,28,0,0,0,0,27
  248. 2430 P$(29)="*I'VE FALLEN INTO THE BASEMENT OF THE    TOWN HALL
  249. 2440 P$(30)[178]"THE JAIL"
  250. 2450 P$(31)[178]"CMDCMDCMDAT THE TOP OF A POST.  THE WATER IS TOO MURKY TO SEE VERY FAR"
  251. 2460 [131] 0,0,30,0,0,25,0,0,0,0,0,0
  252. 2470 [131] N,S,E,W,NOR,SOU,EAS,WES,THR,TIN,BOO,PAP,FLA,OYS,CRO,MAN,BOD,SQU,COI
  253. 2480 [131] SHO,JOU,PIR,PIR,TEE,SCI,KEY,POS,NEW,CAN,JAR,SCU,TRA,PIC,SPE,CHE,OCT
  254. 2490 [131] STA,NOT,PEA,DOO,GO,SCR,LOO,INV,EXA,SHO,SCO,QUI,THR,KIL,REA,FIX,OPE
  255. 2500 [131] HIT,YEL,SAY,USE,LOA,FEE,CUT,UNL,HEL,CLI,FIR,EAT,TAK,MAK,DRO,GET,JUM
  256. 2510 [129]I[178]1[164]40:[135]NO$(I):[130]I:[129]I[178]1[164]NV:[135]VB$(I):[130]I
  257. 2520 [131]A SPEAR THROWER,AN EMPTY PAINT TIN,A SMALL BOOK,A PIECE OF PAPER
  258. 2530 [131]A FLARE,A GIANT OYSTER,A CROWBAR,A BLACK MANTA
  259. 2540 [131]THE BODY OF THE MINOTAUR,A GIANT SQUID,MANY COINS,AN IRON SHOTPUT
  260. 2550 [131]CAPTAIN AHAB'S JOURNAL
  261. 2560 [131]SOME FIERCE PIRANHAS,SOME HELPLESS PIRANHAS
  262. 2570 [131]SOME PIRANHA TEETH,A PAIR OF GOLD SCISSORS
  263. 2580 [131]A SILVER KEY,A TALL POST,A TATTERED BIT OF NEWSPAPER,AN OLD CANNON
  264. 2590 [131]A PEANUT BUTTER JAR,SCUBA GEAR,A TRAIN,A PLATINUM OYSTER PICK
  265. 2600 [131]A STEEL SPEAR,A TREASURE CHEST,A FIERCE OCTOPUS,AN IRON STATUETTE
  266. 2610 [131]A NOTE,A HUGE PEARL
  267. 2620 [131]25,0,37,0,23,0,24,0,30,0,26,0,17,0,18,0,0,0,8,0,0,10,16,0,13,0
  268. 2630 [131]14,0,0,0,0,10,15,10,0,10,9,0,31,0,12,0,27,0,-1,0,38,0,8,10,17,0,4,0
  269. 2640 [131]4,0,28,0,0,0,0,10
  270. 2650 [129]I[178]9[164]39:[135]OB$(I):[130]I:[129]I[178]9[164]39:[135]OB(I,0),OB(I,1):[130]I
  271. 2660 D$(0)[178]"NORTH":D$(1)[178]"SOUTH":D$(2)[178]"EAST":D$(3)[178]"WEST"
  272. 2670 P$(32)[178]"AN ORCHARD
  273. 2680 DATA 0,26,0,33
  274. 2690 P$(33)="*I'M ON A STEEP HILL"
  275. 2700 P$(34)="A TEMPLE
  276. 2710 P$(35)[178]"*I'M ON THE EDGE OF A CLIFF. THE WATER   BELOW IS MURKY
  277. 2720 P$(36)="A DARK TUBULAR PASSAGE.  A STRONGCURRENT PULLS ME TOWARD THE SOUTH
  278. 2730 [131] 0,34,32,0,33,36,39,35,0,0,34,0,34,5,0,0
  279. 2740 P$(39)[178]"*DANGERWAIT  LABYRINTH AHEAD":P$(37)[178]"A RUBBISH TIP":P$(38)[178]P$(25)
  280. 2750 [131] 0,0,0,38,0,0,37,0,40,34,34,34,42,39,42,42
  281. 2760 [129]I[178]40[164]50:P$(I)[178]"A LABYRINTH OF PASSAGES DESIGNED BY KING MINOS":[130]
  282. 2770 [131] 43,42,42,42,40,41,41,41,47,42,42,42,42,42,45,42,49,42,42,42,50,51,0,0
  283. 2780 [131]42,42,48,42,42,44,42,42,42,42,50,42,42,46,42,42
  284. 2790 P$(51)[178]P$(7):[131] 46,0,0,0
  285. 2800 [129]I[178]32[164]NP:[129]J[178]0[164]3:[135]P(I,J):[130]J:[130]I
  286. 2810 [129]I[178]41[164]NN:[135]NO$(I),OB$(I),OB(I,0),OB(I,1):[130]I:[141]4000:[137]250
  287. 2820 [131]APP,A GOLDEN APPLE,0,10,MIN,A DEADLY MINOTAUR,51,0
  288. 2830 [131]TRE,AN APPLE TREE,32,0,FLE,A GOLDEN FLEECE,0,20
  289. 2840 [131]SUI,A BROWN SUITCASE,38,0,DIS,A WOODEN DISCUS,16,0
  290. 2850 [131]COM,A TORTOISESHELL COMB,15,0,SKU,A LION'S SKULL,21,0
  291. 2860 [131]HAS,A VELVET HASSOCK,34,0,SAL,A BRASS SALVER,34,0
  292. 2870 [131]HEA,A RUSTY SPEAR HEAD,21,0,SHA,A STEEL SHAFT,37,0
  293. 2880 [139]CP[179]4[167][153]"4 USEFUL WORDS:  READ, FEED, THROW, USE":[137]260
  294. 2890 [139]CP[179]18[167][153]"THE VERTEBRATES ARE HUNGRY; THE MOLLUSKSARE NOT.":[137]260
  295. 2900 [139]CP[178]31[176]CP[178]35[167][153]"REMEMBER, YOU ARE UNDERWATER.":[137]260
  296. 2910 [139]CP[178]30[167][153]"THE ONLY WAY OUT IS TO UNLOCK THE DOOR.":[137]260
  297. 2920 [139]CP[177]38[175]CP[179]51[167][153]"READ THE BOOK ON MAZES.":[137]260
  298. 2930 [139]CP[178]51[167][153]"THE MINOTAUR IS A VERTEBRATE, BUT HE IS NOT HUNGRY.":[137]260
  299. 2940 [153]"TRY EXAMINING THINGS.":[137]260
  300. 2950 [139]NO[179]9[167]250
  301. 2960 [139]NO[178]40[167][153]"IT'S MADE OF STEEL BARS.":[137]260
  302. 2970 [139]OB(NO,0)[170]1[175]OB(NO,0)[179][177]CP[167]890
  303. 2980 [139]NO[178]43[175]AA[178]0[167][153]"THERE'S AN APPLE.":OB(41,0)[178]32:AA[178]1:[137]260
  304. 2990 [139]NO[178]10[167][153]"THERE ARE TRACES OF IRON-COLOURED PAINT IN THE TIN.":[137]260
  305. 3000 [139]NO[178]9[167][153]"IT'S ALUMINIUM WITH A RUBBER LOOP.":[137]260
  306. 3010 [139]NO[178]14[167][153]"IT'S 2 METERS ACROSS.":[137]260
  307. 3020 [139]NO[178]33[167][153]"IT'S 10 CENTIMETERS LONG.":[137]260
  308. 3030 [139]NO[178]15[167][153]"IT'S 80 CENTIMETERS LONG.":[137]260
  309. 3040 [139]NO[178]17[175]OB(44,0)[178]0[167][153]GF$;OB$(44):OB(44,0)[178]CP:[137]260
  310. 3050 [139]NO[178]44[167][153]"THERE'S A SPEAR-HOLE IN IT.":[137]260
  311. 3060 [139]NO[178]30[167][153]"IT'S HALF FULL.":[137]260
  312. 3070 [139]NO[178]24[167][153]"THEY GLISTEN IN THE LIGHT.":[137]260
  313. 3080 [139]NO[178]13[167][153]"LABLE SAYS: LISTBURNS EVEN UNDERWATER":[137]260
  314. 3090 [153]"IT'S JUST "OB$(NO)".":[137]260
  315. 3100 CM$[178]"":[151]198,0:[151]204,0:[153]"                                        ON";
  316. 3110 [146]198,7:[161]Z$:Z[178][198](Z$):[139]Z[177]95[167]3110
  317. 3120 ZL[178][195](CM$):[139]ZL[177]20[167]3140
  318. 3130 [139]Z[177]31[167]CM$[178]CM$[170]Z$:[153]Z$;:[137]3110
  319. 3140 [139]Z[178]13[175]ZL[167][151]204,1:[153]"CONT ";:[142]
  320. 3150 [139]Z[178]20[175]ZL[167]CM$[178][200](CM$,ZL[171]1):[153]Z$;
  321. 3160 [137]3110
  322. 4000 [153]"LOADFORYOU HAVE JUST DISCOVERED THE LOST CITY
  323. 4010 PRINT"OF ATLANTIS AT THE BOTTOM OF THE TASMAN
  324. 4020 [153]"SEA.  YOUR MISSION IS TO EXPLORE THE
  325. 4030 PRINT"RUINS AND BRING BACK ANY VALUABLES YOU
  326. 4040 [153]"FIND.  USE COMPASS DIRECTIONS TO MOVE.
  327. 4050 PRINT"TYPE [154]INVENTORY[129] TO SEE A LIST OF WHAT
  328. 4060 [153]"YOU'RE CARRYING.  TYPE CONTSCOREFOR TO SEE YOUR
  329. 4070 PRINT"RATING.  TYPE [154]HELP[129] IF YOU NEED A HINT.
  330. 4080 [153]"LISTPRESS DEFSHIFTWAITONCMDCMDCMDCMDCMDTOTOTOTOTOLIST TO BEGIN.";:[146]653,1:[142]
  331.