home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / ENTERPRS / C64 / GFX / KING-TUT.C64 (.txt) < prev    next >
Commodore BASIC  |  2000-06-30  |  15KB  |  351 lines
  1. 5 PRINT"[147]":POKE53280,0:POKE53281,0
  2. 10 WH$="I HAVE NO MORE MATCHES."
  3. 20 W1$="THE GOOBER SEES THEN SNAKE, LEAPS UP ANDRUNS AWAY!":TG=0:NG=0
  4. 30 W2$="YOU ARE OUT OF MATCHES. I AM PREPARED TOGIVE YOU TEN MORE, BUT THIS WILL"
  5. 40 W2$=W2$+"        SUBTRACT 25 POINTS FROM YOUR FINAL      SCORE. DO YOU WANT"
  6. 50 W2$=W2$+" THE EXTRA MATCHES"
  7. 60 DEFFNR(X)=INT(RND(1)*X)+1
  8. 70 I1$="WHAT DIRECT OBJECT DO YOU WANT ME TO DO THAT TO"
  9. 80 W3$="THE GOOBERS' KNIVES VANISH AS THEY HIT  THE WALLS OF THE TOMB."
  10. 90 W4$="      OKAY...[157][157][157][157][157][157][157][157][157][157][157]- - POOF ! - -"+CHR$(13)+"I AM ENGULFED IN A D"
  11. 100 W4$=W4$+"ENSE CLOUD OF ORANGESMOKE AND AWAKEN COUGHING AND GASPING TOFIND..."
  12. 110 W5$="THE SNAKE WHARFS DOWN YOUR FOOD AND RUBSHIS HEAD TO MY LEG TO SHOW"
  13. 120 W5$=W5$+" AFFECTION."
  14. 130 W6$="YOU KILLED A LITTLE SNAKE. THE BODY     VANISHES."
  15. 140 W7$="THE SNAKE STARTLED, JUMPS AWAY FROM ME  AND SCURRIES AWAY INTO THE GLOOM.
  16. 150 W8$[178]"THE SNAKE ATTACKS THE GOOBER AND IN AN  ASTOUNDING FLURRY DRIVES THE"
  17. 160 W8$[178]W8$[170]" IT AWAY!"
  18. 170 W9$[178]"  BUT THE SNAKE RAN AWAY!!"
  19. 180 WA$[178]"I DON'T WANT TO BREAK ANYTHING. THE BOSSSAYS HAVE TO PAY FOR ANYTHIN"
  20. 190 WA$[178]WA$[170]"G I BREAK ONAN ADVENTURE."
  21. 200 WB$[178]"IT DOESN'T BURN."
  22. 210 WC$[178]"A SCARED SNAKE"
  23. 220 WD$[178]"IT IS PITCH DARK. YOU WILL PROBABLY KILLYOURSELF IF YOU PROCEED EXPLOR"
  24. 230 WD$[178]WD$[170]"ING."
  25. 240 WE$[178]"A TAME HUNGRY SNAKE":WF$[178]">=====================================<"
  26. 250 WG$[178]"MY TORCH IS OUT."
  27. 260 [153]"LOAD":[153]"       KING TUT'S TOMB ADVENTURE"
  28. 270 [153]:[153]:[153]"             BY GREG HASSET"
  29. 280 [153]:[153]:[153]"    CONVERTED TO PET BY JOHN O'HARE"
  30. 290 S1$[178]"I DON'T SEE IT HERE.":S2$[178]"DON'T BE RIDICULOUS.":CP[178]1:NM[178]35
  31. 300 S3$[178]"I DON'T KNOW THAT WORD.":[137]2650
  32. 310 [141]2380:[139]NM[179]0[167]NM[178]0
  33. 320 [139][165]R(80)[178]42[175]CP[179][177]1[167]1930
  34. 330 [139][165]R(57)[178]20[167]TG[178]1
  35. 340 [139]TG[178]1[167]NG[178]NG[170]1
  36. 350 [139]CP[178]1[167]TG[178]0:NG[178]0
  37. 360 [139](OB(14,0)[178]CP[176]OB(12,0)[178]CP)[175]TG[178]1[167][153]W1$:TG[178]0:NG[178]0
  38. 370 [139]NG[177]3[167]2050
  39. 380 [139]TG[178]1[167][153]"THERE IS A THREATENING LITTLE GOOBER IN THE ROOM WITH ME."
  40. 390 [139]NM[178]0[175]MF[178]0[167][153]W2$;:[133]EM$:MF[178]1
  41. 400 [139]NM[178]0[175]MF[178]1[167][139][200](EM$,1)[178]"Y"[167][153]"OKAY.":NM[178]10:OB(33,0)[178][171]1:OB(34,0)[178]0
  42. 410 [141]2260:[139]VB[178]32[167]VB[178]6:[137]430
  43. 420 [139]VB$[178]"I"[167]VB[178]4
  44. 430 [139]NM[178]0[167]OB(34,0)[178][171]1:OB(33,0)[178]0
  45. 440 [139]VB$[178]"L"[167]VB[178]3
  46. 450 [139]OB(12,0)[178][171]1[167][137]470
  47. 460 [139]VB$[178]"LIS"[167]VB[178]4
  48. 470 T[178]T[170]1:[143]IFBI>0THENBI=BI+1
  49. 480 [139]VB$[178]"INI"[175]T[178]1[167]OB(35,0)[178][171]1:OB(32,0)[178]0:[153]"ALL RIGHT":NM[178]NM[171][165]R(4):G
  50. 490 [139]NO$[178]"FUC"[176]NO$[178]"SHI"[167][153]"TCH! SUCH LANGUAGE!":[137]390
  51. 500 [139]MF[178]1[175]M2[178]0[167]PL(0)[178]PL(0)[171]25:M2[178]1
  52. 510 [139]VB[177]10[175]VB[179][177]20[175]NO$[178]""[167][153]I1$;:[133]NO$:[141]2340
  53. 520 [139]NO$[179][177]""[175]VB[178]1[175]NO[178]0[167][153]"THAT DOESN'T MAKE ANY SENSE TO ME.":[137]390
  54. 530 [139]VB[178]20[167]1490
  55. 540 [139]VB[178]6[175](NO$[178]"EVE"[176]NO$[178]"ALL")[167]940
  56. 550 [139]VB[177]10[175]NO[178]0[167][153]"I DON'T KNOW WHAT A "N1$" IS!":[137]390
  57. 560 [139]VB[177]19[167]1480
  58. 570 [145]VB[137]590,680,310,800,830,880,960,970,1000,1030,1050,1170,1200,1240,1280,1350,1410
  59. 580 [145]VB[171]17[137]1460,1470
  60. 590 [139]NO$[179][177]""[175]NO[178]0[167][153]S3$:[137]390
  61. 600 [139]NO$[178]""[167][133]"WHERE";NO$:[141]2340
  62. 610 [139]NO[177]28[176]NO[179]21[167][153]"YOU MUST USE COMPASS POINTS.":[137]390
  63. 620 [139]NO[177]24[167]NO[178]NO[171]4
  64. 630 NO[178]NO[171]21
  65. 640 [139]GF[178]0[175]((CP[178]18[175]NO[178]1)[176](CP[178]37[175]NO[178]0))[167][153]"THE GATE IS LOCKED!":[137]390
  66. 650 [139]P(CP,NO)[178]0[175]CP[179][177]1[167][153]"THERE IS A WALL THERE.":[137]390
  67. 660 [139]P(CP,NO)[178]0[167][153]"I CAN'T GO THAT WAY.":[137]390
  68. 670 CP[178]P(CP,NO):[137]310
  69. 680 [139]NO$[178]""[167][133]"WHAT SHOULD I GET";NO$:[141]2340
  70. 690 [139]NO[178]12[175]OB(12,0)[178]CP[167]780
  71. 700 [139]OB(NO,0)[178][171]1[167][153]"I'VE ALREADY GOT  IT!":[137]390
  72. 710 [139]NO[178]12[175]OB(14,0)[178]CP[167][153]"THAT IS BOTH IMPRACTICAL AND VERY DANGEROUS":[137]390
  73. 720 [139]NO$[178]"KNI"[167][153]W3$:[137]390
  74. 730 [139]NO[178]0[167][153]S3$:[137]390
  75. 740 [139]NO[178]29[175]TG[178]1[167][153]"THAT WOULD NOT BE TO BRIGHT.":[137]390
  76. 750 [139]NO[178]32[175]OB(35,0)[178]CP[167][136]NO[178]35
  77. 760 [139]OB(NO,0)[179][177]CP[167][153]S1$:[137]390
  78. 770 [139]NO[178]31[167][153]S22$:[137]390
  79. 780 [139]ZZ[170]1[177]8[167][153]"I CAN'T CARRY ANY MORE.":[137]390
  80. 790 ZZ[178]ZZ[170]1:[153]"ALL RIGHT.":OB(NO,0)[178][171]1:[137]390
  81. 800 [153]"I AM CURRENTLY CARRYING:":ZZ[178]0:[129]I[178]1[164]LO:[139]OB(I,0)[178][171]1[167][153]OB$(I):ZZ[178]ZZ[170]1
  82. 810 [130]I:[139]ZZ[178]0[167][153]"NOTHING!"
  83. 820 [137]390
  84. 830 J[178]0:[129]I[178]1[164]LO:[139]OB(I,0)[178]1[167]J[178]J[170]OB(I,1)
  85. 840 [130]I:[153]"OUT OF A CURRENT MAXIMUM OF 175 POINTS,"
  86. 850 [153]"YOU HAVE"J"POINTS. YOU CAN GET A"
  87. 860 [153]"BONUS OF UP TO 32 POINTS WHEN YOU WIN"
  88. 870 [153]"OR QUIT, MAKING THE ACTUAL MAXIMUM 207.":[137]390
  89. 880 [139] NO[178]0[175]NO$[179][177]""[167][153]"WHAT'S A "N1$"?":[137]390
  90. 890 [139]NO$[178]""[167][133]"WHAT DO YOU WANT ME TO DROP";NO$:[141]2340
  91. 900 [139]NO$[178]""[176]NO[178]0[167][153]"HUH?":[137]390
  92. 910 [139]NO[178]32[175]OB(35,0)[178][171]1[167]NO[178]35:[137]930
  93. 920 [139]OB(NO,0)[179][177][171]1[167][153]"I HAVE NO ";N1$:[137]390
  94. 930 [153]"OKAY.":OB(NO,0)[178]CP:ZZ[178]ZZ[171]1:[137]390
  95. 940 [129]I[178]1[164]LO:[139]OB(I,0)[178][171]1[167]OB(I,0)[178]CP
  96. 950 [130]I:[153]"OK.":ZZ[178]0:[137]390
  97. 960 [139]VB[178]7[167][153]"IT'S AGAINST COMPANY RULES TO GIVE AVERAGE ADVENTURERS HELP.":[137]390
  98. 970 [153]"LOAD":[159]1,1,1:[153]"SAVING...":[129]I[178]1[164]LO:[139]OB$(I)[178]""[167]990
  99. 980 [152]1,OB(I,0)
  100. 990 [130]I:[152]1,NM:[152]1,CP:[152]1,GF:[152]1,ZZ:[152]1,TG:[152]1,NG:[152]1,T:[152]1,GS:[152]1,BI:[137]310
  101. 1000 [153]"LOAD":[159]1:[153]"LOADING...":[129]I[178]1[164]LO:[139]OB$(I)[178]""[167]1020
  102. 1010 [132]1,OB(I,0)
  103. 1020 [130]I:[132]1,NM,CP,GF,ZZ,TG,NG,T,GS,BI:[137]310
  104. 1030 [133]"DO YOU REALLY WANT TO QUIT NOW";QN$:[139][200](QN$,1)[178]"Y"[167]2090
  105. 1040 [137]390
  106. 1050 [139]NO[178]31[175](CP[178]18[176]CP[178]37)[167]1110
  107. 1060 [139]NO[178]31[167][153]"I SEE NO GATE HERE.":[137]390
  108. 1070 [139]OB(NO,0)[179][177][171]1[167][153]"I'M NOT HOLDING IT.":[137]390
  109. 1080 [139]NO[179][177]30[175]NO[179][177]31[175]NO[179][177]20[167][153]"IT CANNOT BE OPENED.":[137]390
  110. 1090 [139]NO[179][177]31[167]1130
  111. 1100 [139]GF[178]1[167][153]"IT IS ALREADY OPEN.":[137]390
  112. 1110 [139]OB(4,0)[178][171]1[167]GF[178]1:[153]"THE GATE IS OPEN.":[137]390
  113. 1120 [153]"IT WOULD HELP IF I HAD A KEY TO OPEN THELOCKED GATE.":[137]390
  114. 1130 [139]NO[178]20[167][153]"THE COFFIN IS OPEN.":[137]390
  115. 1140 TG[178]0:NG[178]0:[153]W4$:[129]I[178]1[164]LO:[139]OB$(I)[178]""[176]OB(I,0)[178]0[167]1160
  116. 1150 [139][182](OB(I,0))[178]1[167]OB(I,0)[178][165]R(36)[170]1
  117. 1160 [130]I:ZZ[178]0:OB(35,0)[178]0:CP[178]1:OB(33,0)[178]1:OB(32,0)[178]1:[129]I[178]1[164]3500:[130]I:PD[178]0:[137]310
  118. 1170 [139]NO[179][177]31[167][153]"I DON'T KNOW HOW TO LOCK SUCH A THING.":[137]390
  119. 1180 [139]CP[179][177]37[175]CP[179][177]18[167][153]"WHAT GATE?":[137]390
  120. 1190 [153]"OKAY. THE GATE IS LOCKED.":GF[178]0:[137]390
  121. 1200 [139]OB(NO,0)[179][177][171]1[167][153]"I HAVE TO BE HOLDING SOMETHING TO READ IT.":[137]390
  122. 1210 [139]NO[179][177]2[175]NO[179][177]16[167][153]S2$:[137]390
  123. 1220 [139]NO[178]2[167][153]"IT SAYS:":[153]"BEST FISHES    --STEVE MARTIN (KING TUT)":[137]390
  124. 1230 [153]"IT IS WRITTEN IN EGYPTIAN HYROGLYPHICS.":[137]390
  125. 1240 [139]OB(NO,0)[179][177][171]1[167][153]"I DON'T THINK I'M CARRYING IT.":[137]390
  126. 1250 [139]NO[179][177]13[167][153]"YOU CAN'T BE SERIOUS.":[137]390
  127. 1260 [139]OB(13,0)[179][177][171]1[167][153]"I HAVE NO FOOD!":[137]390
  128. 1270 ZZ[178]ZZ[171]1:[153]"*SMAK* THAT WAS GOOD!":OB(13,0)[178]0:[137]390
  129. 1280 [139]NO[179][177]12[175]NO[179][177]29[167][153]S2$:[137]390
  130. 1290 [139]NO[178]29[175]TG[178]0[167][153]"WHAT GOOBER?":[137]390
  131. 1300 [139]NO[178]29[167][153]"THERE'S NOTHING HERE IT WANTS TO EAT. (EXCEPT PERHAPS ME!)":[137]110
  132. 1310 [139]OB(13,0)[179][177][171]1[167][153]"I HAVE NO FOOD!":[137]390
  133. 1320 [139]OB(12,0)[179][177]0[167][153]"IT IS FULL.":[137]390
  134. 1330 [139]OB(14,0)[179][177]CP[167][153]"WHAT SNAKE?":[137]390
  135. 1340 ZZ[178]ZZ[171]1:[153]W5$:OB(12,0)[178]CP:OB(14,0)[178]0:OB(13,0)[178]0:[137]390
  136. 1350 [139]NO[178]29[175]TG[178]0[167][153]"I SEE NO GOOBER HERE.":[137]390
  137. 1360 [139]NO[178]29[175]TG[178]1[167][153]"THE GOOBERS ARE IMMORTAL.":[137]390
  138. 1370 [139]NO[179][177]12[167][153]"IT ISN'T ALIVE!":[137]390
  139. 1380 [139]OB(14,0)[178]CP[167][153]"THAT'S A STUPID THING TO TRY!":[137]390
  140. 1390 [139]OB(12,0)[178][171]1[176]OB(12,0)[178]CP[167][153]W6$:OB(12,0)[178]0:[137]390
  141. 1400 [153]S1$:[137]390
  142. 1410 [139]NO[178]29[175]TG[178]1[167][153]"HE IS MAD ENOUGH AT ME ALREADY!":[137]390
  143. 1420 [139]NO[178]29[167][153]"I SEE NO GOOBER HERE.":[137]390
  144. 1430 [139]OB(NO,0)[179][177][171]1[167][153]"I'M NOT HOLDING IT.":[137]390
  145. 1440 [139]NO[179][177]13[167][153]"THAT'S STUPID!":[137]390
  146. 1450 [153]W7$:OB(12,0)[178][171]1:[137]390
  147. 1460 [153]"OKAY...";N1$:[137]390
  148. 1470 [153]"TRY OPEN.":[137]390
  149. 1480 [145]VB[171]19[137]1490,1510,1560,1490,1620,1680,1690,1760,1770,1780,1810,1920
  150. 1490 T[178]T[171]1:[153]"YOU HAVE USED"T"TURNS SO FAR, AND YOU"
  151. 1500 [153]"HAVE USED"35[171]NM"MATCHES.":[137]390
  152. 1510 [139]NO[179][177]20[175]NO[179][177]31[175]NO[179][177]30[167][153]"I DON'T KNOW HOW TO DO THAT.":[137]390
  153. 1520 [139]NO[178]31[175](CP[178]18[176]CP[178]37)[167][153]"THE GATE IS CLOSED AND LOCKED.":GF[178]0:[137]390
  154. 1530 [139]OB(NO,0)[179][177][171]1[167][153]S1$:[137]390
  155. 1540 [139]NO[178]30[167][153]"IT IS ALREADY CLOSED.":[137]390
  156. 1550 [153]"OKAY. IT IS CLOSED.":[137]390
  157. 1560 [139]NO[179][177]12[167]880
  158. 1570 [139]OB(12,0)[179][177][171]1[167][153]"I'M NOT HOLDING A SNAKE.":[137]390
  159. 1580 [139]TG[178]1[167][153]W8$:OB(12,0)[178]CP:NG[178]0:TG[178]0:ZZ[178]ZZ[171]1:[137]390
  160. 1590 ZZ[178]ZZ[171]1:[153]"THE SNAKE VANISHES INTO THE GLOOM.":OB(12,0)[178][165]R(35)[170]1:[137]390
  161. 1600 [139]OB(I,0)[178][171]1[167][153]"NOTHING HAPPENED":[137]390
  162. 1610 [153]"I'M NOT HOLDING IT!":[137]390
  163. 1620 [139]NO[179][177]36[167][153]S2$:[137]390
  164. 1630 [139]OB(36,0)[179][177][171]1[167][153]"I HAVE NO WINE.":[137]390
  165. 1640 [139]BI[178]0[167][153]"OKAY. GULP GULK.":OB(36,0)[178]0:OB(17,0)[178][171]1:[137]390
  166. 1650 [153]"AHH...GOOD CURE FOR SNAKEBITE.";:[139]OB(12,0)[178][171]1[167][153]W9$:OB(12,0)[178]0:[137]1670
  167. 1660 [153]
  168. 1670 OB(36,0)[178]0:OB(17,0)[178][171]1:BI[178][171]32000:[137]390
  169. 1680 [153]WA$:[137]390
  170. 1690 [139]NM[178]0[175]OB(33,0)[179][177][171]1[167]OB(33,0)[178]0:OB(34,0)[178][171]1
  171. 1700 [139]NO[179][177]33[175]NO[179][177]32[167][153]S2$:[137]390
  172. 1710 [139]OB(33,0)[179][177][171]1[167][153]"I DON'T HAVE A MATCH!":[137]390
  173. 1720 [139]NO[178]33[167][153]"OKAY. YOU NOW HAVE ONE LESS MATCH.":NM[178]NM[171]1:[137]390
  174. 1730 [139]OB(35,0)[179][177]0[167][153]"IT IS ALREADY LIT.":[137]390
  175. 1740 [139]OB(32,0)[178][171]1[167]OB(32,0)[178]0:OB(35,0)[178][171]1:NM[178]NM[171][165]R(4):PD[178]0:[137]310
  176. 1750 [153]"I HAVE NO TORCH.":[137]390
  177. 1760 [153]"I AM NOT MOHAMED ALI, YOU KNOW.":[137]390
  178. 1770 [153]"TRY HIT OR KILL":[137]390
  179. 1780 [139]NO[179][177]16[167][153]"I SEE NO WRITING THERE.":[137]390
  180. 1790 [139]OB(NO,0)[179][177][171]1[167][153]"I HAVE NO BOOK.":[137]390
  181. 1800 [153]"IT SAYS: GOOBERS HATE SNAKES.":[153]"         MOM IS FLAMIBLE."
  182. 1810 [139]OB(33,0)[179][177][171]1[167][153]"I HAVE NO MATCHES!":[137]390
  183. 1820 [139]OB(NO,0)[179][177][171]1[167][153]"I AM NOT HOLDING IT RIGHT NOW.":[137]390
  184. 1830 [139]NO[179][177]2[175]NO[179][177]12[175]NO[179][177]13[175]NO[179][177]16[175]NO[179][177]34[175]NO[179][177]32[175]NO[179][177]33[167][153]WB$:[137]390
  185. 1840 [139]NO[178]32[167][153]"YOU MIGHT TRY LIGHT TORCH INSTEAD.":[137]390
  186. 1850 NM[178]NM[171]1
  187. 1860 [139]NO[178]2[167][153]"ALL RIGHT. THE POSTER GOES UP IN FLAMES.":ZZ[178]ZZ[171]1:OB(2,0)[178]0:[137]390
  188. 1870 [139]NO[178]12[167][153]"THE SNAKE BIT ME IN SELF DEFENSE.":BI[178]1:OB$(12)[178]WC$:[137]390
  189. 1880 [139]NO[178]13[167][153]"ALL RIGHT. IT IS NOW COOKED.":OB$(13)[178]"SOME COOKED FOOD":[137]390
  190. 1890 [139]NO[178]16[167][153]"THAT IS A WASTE OF GOOD LITERATURE.":[137]390
  191. 1900 [139]NO[178]34[167][153]"OKAY.":OB(34,0)[178]0:[137]390
  192. 1910 [139]NO[178]33[167][153]"ALL RIGHT.":NM[178]NM[171]1:[137]390
  193. 1920 [153]"THAT IS WORTH";OB(NO,1);"POINTS.":[137]390
  194. 1930 [139][165]R(2)[178]1[167][153]"+=+= HOLY BANDAIDS!";:[137]1950
  195. 1940 [153]"SUFFRIN' SUCCOTASH!";
  196. 1950 [153]" AN ANCIENT MUMMY    WALKED IN TO ";:[139][165]R(2)[178]1[167][153]"TERMINATE ME!":[137]1970
  197. 1960 [153]" PUT ME TO DEATH!"
  198. 1970 [141]2260:[139]VB$[178]"BUR"[167]2020
  199. 1980 [153]"THE MUMMY IS CHARGING AT ME!!":[129]I[178]1[164]300:[130]I
  200. 1990 [139][187](3)[178]1[167][153]"HE KILLED ME!":[137]3310
  201. 2000 [153]"HE SLIPS ON A CONVENIENTLY PLACED BANANAPEEL AND CRACKS HIS SKULL. THE ";
  202. 2010 [153]"BODY     VANISHES.":[137]390
  203. 2020 [139]OB(33,0)[179][177][171]1[167][153]"I HAVE NO MATCHES!":[137]2040
  204. 2030 [153]"THE MUMMY BURNS TO THE GROUND.":NM[178]NM[171]1:[137]390
  205. 2040 [129]I[178]1[164]1000:[130]I:[137]3310
  206. 2050 [153]"THE GOOBER THROWS A KNIFE AT ME!"
  207. 2060 [139][165]R(3)[178]1[167][153]"IT HITS ME!":[137]3310
  208. 2070 [153]"IT MISSES!"
  209. 2080 NG[178]1:[137]390
  210. 2090 J[178]0:[153]"LOAD":[129]I[178]1[164]LO:[139]OB$(I)[178]""[167]2110
  211. 2100 [139]OB(I,0)[178]1[167]J[178]J[170]OB(I,1)
  212. 2110 [130]I
  213. 2120 [139]T[177]310[167]J[178]J[171]10
  214. 2130 [139]T[177]357[167]J[178]J[171]15
  215. 2140 J[178]J[170][181](NM[173]2):[129]I[178]0[164]3:J[178]J[170]PL(I):[130]
  216. 2150 [153]"YOU HAVE SCORED"J"POINTS OUT OF A"
  217. 2160 [153]"MAXIMUM OF 207. A SCORE OF"J"POINTS"
  218. 2170 [153]"QUALIFIES YOU AS A:"
  219. 2180 [139]J[177]182[167][153]"ADVENTURER GRANDMASTER":[128]
  220. 2190 [139]J[177]178[167][153]"MASTER ADVENTURER CLASS A":[128]
  221. 2200 [139]J[177]150[167][153]"MASTER ADVENTURER CLASS B":[128]
  222. 2210 [139]J[177]140[167][153]"EXPERIENCED ADVENTURER.":[128]
  223. 2220 [139]J[177]110[167][153]"SEASONED ADVENTURER.":[128]
  224. 2230 [139]J[177]90[167][153]"NOVICE CLASS ADVENTURER                 BETTER LUCK NEXT TIME.":[128]
  225. 2240 [139]J[177]20[167][153]"PEE WEE CLASS ADVENTURER.":[128]
  226. 2250 [153]"ADVENTURER WITH THE INTELLEGENCE        OF A CARROT.":[128]
  227. 2260 CM$[178]"":[133]" WHAT SHOULD I DO  SINCMDCMDCMD";CM$:[139]CM$[178]"SIN"[167]2260
  228. 2270 NO$[178]"":VB$[178]"":VB[178]0:NO[178]0
  229. 2280 LC[178][195](CM$):[129]I[178]1[164]LC:[139][202](CM$,I,1)[179][177]" "[167]VB$[178]VB$[170][202](CM$,I,1):[130]I
  230. 2290 V1$[178]VB$:VB$[178][200](V1$,3):[129]I[178]1[164]NV:[139]VB$(I)[178]VB$[167]VB[178]I:[137]2320
  231. 2300 [130]I
  232. 2310 VB[178]1:NO$[178]VB$:[137]2340
  233. 2320 [139][195](V1$)[170]1[177][178][195](CM$)[167]NO[178]0:[142]
  234. 2330 NO$[178][201](CM$,[195](CM$)[171]1[171][195](V1$))
  235. 2340 N1$[178]NO$:NO$[178][200](NO$,3):[129]I[178]1[164]NN:[139]NO$[178]NO$(I)[167]2370
  236. 2350 [130]I
  237. 2360 NO[178]0:[142]
  238. 2370 NO[178]I:[142]
  239. 2380 [153]"LOAD"
  240. 2390 [139]PD[177]2[167][153]"YOU FELL INTO A PIT AND BROKE EVERY BONE IN YOUR BODY.":[137]3310
  241. 2400 [139]OB(35,0)[179][177][171]1[175]CP[179][177]1[167][153]WD$:PD[178]PD[170]1:[142]
  242. 2410 [139]T[177][178]1[167]P$(1)[178]"I'M OUTSIDE THE PYRAMID AGAIN."
  243. 2420 [153]P$(CP):PD[178]0
  244. 2430 [139]CP[178]32[167]PL(1)[178]5
  245. 2440 [139]CP[178]34[167]PL(2)[178]5
  246. 2450 [139]CP[178]7[167]PL(3)[178]5
  247. 2460 [129]I[178]1[164]LO:[139]OB(I,0)[178]CP[167][153]"*THERE IS ";OB$(I);" HERE."
  248. 2470 [130]I
  249. 2480 FL[178]0:[139]OB(35,0)[179][177][171]1[167]2570
  250. 2490 [153]"I CAN GO - ";:[129]I[178]0[164]3:[139]P(CP,I)[179][177]0[167][153]D$(I);" ";:FL[178]1
  251. 2500 [130]I
  252. 2510 [153]
  253. 2520 [139]OB(12,0)[178][171]1[167]GS[178]GS[170]1
  254. 2530 [139]BI[177]0[167]BI[178]BI[170]1
  255. 2540 [139]GS[178]30[167][153]"I THINK THE SNAKE IS GETTING HUNGRY.":OB$(12)[178]WE$
  256. 2550 [139]GS[178]50[167][153]"THE SNAKE JUST BIT ME!":BI[178]1:OB$(12)[178]"A VERY ANGRY SNAKE"
  257. 2560 [139]BI[178]10[167][153]"THAT SNAKE BITE! I'M  GETTING WEAKER...WINE! I NEED WINE!"
  258. 2570 [153]WF$:[139]T[179][177]0[175]OB(35,0)[178][171]1[175]T[173]32[178][181](T[173]32)[167][153]WG$:OB(35,0)[178]0:OB(32,0)[178][171]1
  259. 2580 [139]BI[178]45[167][153]"THAT SNAKE BITE! OH...NO...":OB(12,0)[178]0:[129]I[178]1[164]1E3:[130]I:[137]3310
  260. 2590 [139]CP[179][177]18[167][142]
  261. 2600 [139]GF[178]1[167][153]"THE GATE IS OPEN.":[137]2620
  262. 2610 [153]"THE GATE IS LOCKED."
  263. 2620 [139]NM[178]0[175]M3[178]0[175]MF[178]1[167][153]WH$:M3[178]1:OB(34,0)[178][171]1:OB(33,0)[178]0:M3[178]1
  264. 2630 [142]
  265. 2640 [153]"TANTANTAN^ERRORONORTANTANTAN":[144]
  266. 2650 NN[178]36:NV[178]32:P[178]38:LO[178]36:[134]P$(P),P(P,3),OB$(LO),OB(LO,1),VB$(NV),NO$(NN)
  267. 2660 P$(1)[178]"I'M OUTSIDE AN ENORMOUS PYRAMID. AN     OPENING LEADS IN TO THE"
  268. 2670 P$(1)[178]P$(1)[170]" EAST.":[131]0,0,5,0,2,7,3,6,3,3,8,2
  269. 2680 P$(2)[178]"I'M IN THE ANNEX KING TUT'S TOMB."
  270. 2690 P$(3)[178]"I'M IN THE QUARTERS OF PRINCESS ANKA."
  271. 2700 P$(4)[178]"I'M IN KARMAK'S CATHEDRAL.":[131]0,8,12,0,0,9,0,1,2,0,0,14
  272. 2710 P$(5)[178]"I'M IN THE ENTRY CHAMBER TO             KING TUT'S TOMB."
  273. 2720 P$(6)[178]"I'M IN A TWISTING CORRODOR"
  274. 2730 P$(7)[178]"I'M IN THE JEWELRY CHAMBER.":[131]0,7,7,2
  275. 2740 P$(8)[178]"I'M IN THE ARTIST'S STUDIO.":[131]4,0,0,3
  276. 2750 P$(9)[178]"I'M CRAWLING OVER A JUMBLE OF BROKEN    ROCK.":[131]9,13,5,0
  277. 2760 P$(10)[178]"I'M IN A LABYRINTH OF PASSAGES DESIGNED TO KEEP OUT TOMBROBBERS."
  278. 2770 [131] 10,15,11,10
  279. 2780 P$(11)[178]P$(10):[131]11,16,11,10
  280. 2790 P$(12)[178]"I'M IN AN EGYPTIAN LIBRARY.":[131]0,17,4,7
  281. 2800 P$(13)[178]"I'M IN AN AWKWARD N/S PASSAGEWAY.":[131]9,21,0,0
  282. 2810 P$(14)[178]P$(6):[131]14,20,14,6
  283. 2820 P$(15)[178]P$(10):[131]10,18,15,15
  284. 2830 P$(16)[178]P$(10):[131]11,16,19,16
  285. 2840 P$(17)[178]"I'M IN A WINE CLOSET. (ALL CHEAP STUFF)":[131]12,22,0,0
  286. 2850 P$(18)[178]"I'M AT THE END OF THE MAZE. THERE IS A GATE ON THE DOOR LEADING "
  287. 2860 P$(18)[178]P$(18)[170]"SOUTH."
  288. 2870 [131] 18,37,15,18
  289. 2880 P$(19)[178]P$(10):[131]19,23,16,19
  290. 2890 P$(20)[178]P$(6):[131]14,0,0,24
  291. 2900 P$(21)[178]"I'M IN A GAME ROOM.":[131]13,24,0,0
  292. 2910 P$(22)[178]"I'M IN A BEDROOM DESIGNED               FOR THE AFTERLIFE."
  293. 2920 [131] 17,0,27,27
  294. 2930 P$(23)[178]"I'M IN SLAVES' QUARTERS A.":[131]19,26,0,0
  295. 2940 P$(24)[178]"I'M AT THE WEST END OF A TEMPLE.":[131]20,0,25,21
  296. 2950 P$(25)[178]"I'M AT THE EAST END OF A TEMPLE.":[131]25,0,0,24
  297. 2960 P$(26)[178]"I'M IN THE WARRIORS' QUARTERS.":[131]23,30,27,0
  298. 2970 P$(27)[178]"I'M IN A STABLE.":[131]0,31,22,0
  299. 2980 P$(28)[178]"I'M IN THE HIGH PRIEST'S CHAMBER.":[131]0,35,29,0
  300. 2990 P$(29)[178]"I'M IN THE CHAMBER OF ISIS.":[131]30,0,29,28
  301. 3000 P$(30)[178]"I'M IN SLAVES' QUARTERS B.":[131]26,33,31,29
  302. 3010 P$(31)[178]"I'M IN THE ANTECHAMBER.":[131]27,32,0,30
  303. 3020 P$(32)[178]"I'M AT THE ROYAL THRONE.":[131]0,0,0,31
  304. 3030 P$(33)[178]"I'M IN THE STORE ROOM.":[131]0,0,36,30
  305. 3040 P$(34)[178]"I'M IN A MIRROR ROOM.":[131]34,35,34,34
  306. 3050 P$(35)[178]"I'M IN THE KING'S HAREM.":[131] 28,0,35,34
  307. 3060 P$(36)[178]"I'M IN A SNAKE PIT.":[131]0,0,33,36
  308. 3070 P$(37)[178]"I'M IN THE BURIAL CHAMBER.":[131]18,0,0,0
  309. 3080 [131]37,0,0,0
  310. 3090 [129]I[178]1[164]P:[129]J[178]0[164]3:[135]P(I,J):[130]J,I
  311. 3100 [131]5,5,21,0,24,10,25,5,34,10,35,10,2,15,3,5,7,10,11,10,33,5,0,0,1,0,36,0
  312. 3110 [131]8,10,12,0,0,0,26,0,32,10,37,55
  313. 3120 [131]AN OPEL DRINKING CUP,A STEVE MARTIN POSTER,A GOLD CHALLAS,A GOLDEN KEY
  314. 3130 [131]A GOLDEN BURIAL MASK,A DIAMOND HEADRESS,A PLATINUM SPEAR,A RUBY EARRING
  315. 3140 [131]AN ALBASTER NECKLACE,A GIANT PEARL,AN ALBASTER LAMP,A TAME SNAKE
  316. 3150 [131]A PACKAGE OF FOOD,A FIERCE SNAKE,A JADE STATUETTE,THE BOOK OF THE DEAD
  317. 3160 [131]A CRYSTAL GOBLET,A GLASS MEDALIAN,AN IVORY THRONE,A MUMMIFORM COFFIN
  318. 3170 [129]I[178]1[164]20:[135]OB(I,0):[135]OB(I,1):[130]
  319. 3180 [129]I[178]1[164]20:[135]OB$(I):[130]
  320. 3190 [131]28,15,0,0,1,0,1,0,0,0,0,0,17,0
  321. 3200 [129]I[178]30[164]36:[135]OB(I,0):[135]OB(I,1):[130]
  322. 3210 [131] AN IVORY SARCOPHAGOUS,----------------,AN ANCIENT TORCH,SOME MATCHES
  323. 3220 [131]AN EMPTY MATCHBOX,A SHINING TORCH,A GOBLET OF WINE
  324. 3230 [129]I[178]30[164]36:[135]OB$(I):[130]I
  325. 3240 [131]CUP,POS,CHA,KEY,MAS,HEA,SPE,EAR,NEC,PEA,LAM,SNA,FOO,SNA,STA,BOO,GOB
  326. 3250 [131]MED,THR,COF,NOR,SOU,EAS,WES,N,S,E,W,GOO,SAR,GAT,TOR,MAT,BOX,TOR,WIN
  327. 3260 [131]GO,GET,LOO,INV,SCO,DRO,HEL,SAV,LOA,QUI,OPE,LOC,REA,EAT,FEE,KIL,HIT
  328. 3270 [131]SAY,UNL,TUR,CLO,REL,SHO,DRI,BRE,LIG,FIG,DES,TRA,BUR,VAL,THR
  329. 3280 [129]I[178]1[164]NN:[135]NO$(I):[130]:[129]I[178]1[164]NV:[135]VB$(I):[130]
  330. 3290 [131] NORTH,SOUTH,EAST,WEST
  331. 3300 [129]I[178]0[164]3:[135]D$(I):[130]:[137]310
  332. 3310 X[178]X[170]1
  333. 3320 [145] X [137] 3330,3420
  334. 3330 [153]"OH MY! YOU SEEM TO HAVE GOTTEN YOURSELF"
  335. 3340 [153]"KILLED. I COULD TRY AND HELP YOU OUT,"
  336. 3350 [153]"BUT I'VE NEVER REALLY DONE THIS BEFORE."
  337. 3360 [143]
  338. 3370 [133]"WOULD YOU LIKE ME TO TRY AND REINCARNATEYOU";R$
  339. 3380 [139][200](R$,1)[178]"N"[167]2090
  340. 3390 [153]"NOW WHERE DID I PUT MY ORANGE SMOKE?":PL(0)[178]PL(0)[171]20
  341. 3400 [153]"I SEEM TO REMEMBER LEAVING IT IN A "
  342. 3410 [153]"SARCOPHAGOUS SOMEWHERE. AH HERE IT IS.":[137]1140
  343. 3420 [153]"YOU CLUMSY OAF, YOU'VE DONE IT AGAIN!"
  344. 3430 [153]"AND THIS TIME I'M OUT OF ORANGE SMOKE!!!";
  345. 3440 [153]"YOU DON'T EXPECT ME TO PERFORM A DECENT"
  346. 3450 [153]"REINCARNATION WITH NO MORE ORANGE SMOKE"
  347. 3460 WI$[178]"OKAY, IF YOU'RE SO SMART, DO IT         YOURSELF! I'M LEAVING!"
  348. 3470 [133]"LEFT DO YOU";R2$:[139][200](R2$,1)[178]"Y"[167][153]WI$:[128]
  349. 3480 [153]"OK":[137]2090
  350. 0 
  351.