home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / commodor / stvmanor.prg (.txt) < prev    next >
Commodore BASIC  |  1993-05-20  |  14KB  |  441 lines
  1. 220 POKE53281,0:POKE53280,0
  2. 255 PRINT"[147]";
  3. 256 PRINT"       [164][164][164][164][164][164][164][164][164][164][164][144]   [144]  "
  4. 257 PRINT"      [206]  [206]        [205][168][168][144]  [144]     "
  5. 258 PRINT"     [206]  [206]   [156][176][178][178][174]   [205] [165]    STONEVILLE [144] "
  6. 259 PRINT"    [206]  [206]    [156][173][177][177][189]    [205][165][144]
  7. 260 [153]"   (null)  (null)              (null)STOP      (null)(null)(null)(null)(null)(null)(null)
  8. 261 PRINT"  [206]  [206][165]              [167][205][144]    [214][214][205][214][214][214][206][214][214]
  9. 262 [153]"  (null)TAB(TAB( FNCLROR=^  OR=^  OR=^ THENTAB(STOP    (null)(null)(null)(null)(null)(null)(null)(null)(null)
  10. 263 PRINT"  [167][172][174] [165][156][173][177][189]  [173][177][189]  [173][177][189] [167][144]    [214][214][214][205][206][205][206][205][214][214]"
  11. 264 PRINT" [208][208][173][189] [204][164][164][164][164][164][164][164][164][164][164][164][164][164][164][186][144]     [214][214][214][214][214][214][214][214][214]"
  12. 265 PRINT" [163][208]  [167][205]               [205][144]    [214]  [205] [206] [214]"
  13. 266 PRINT"  [167]  [167] [205]               [205][144]  [206][144]   [149][167][167][144]
  14. 267 [153]"THEN(null)THEN NEWTHEN  (null)(null)TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB((null)(null)STOP      VERIFYTHENTHENSTOP
  15. 268 PRINT"[167][167][208][208][208][208]  [165][165][156][176][178][174][144] [129][207][163][165][156][176][178][178][174][144] [167][167][144]      [149][167][167][144]
  16. 269 [153]"THENTHENTHENTHENTHENTHEN  FNFNCLR/>EXPSTOPFOR FN.FNCLR/>>EXPSTOP THENTHENSTOPCLOSE     VERIFYTHENTHENSTOP
  17. 270 PRINT"[167][167][167][167][167][167][164][164][165][204][164][164][164][129][164][165][144] [129][204][164][164][164][164][164][186][167][144][160][160]    [149][167][167][144]
  18. 271 [153]" (null)THENTHENTHENTHEN(null) FNFN    TAB(TAB(      THENTHEN(null)STOP     VERIFYTHENTHENSTOP
  19. 272 PRINT"  [163][163][163][208][205][207][163][163][163][163][163][163][163][163][163][208][164][164][207][163][163][163][208][144]     [149][206][214][205][144]
  20. 273 [153]"      THEN(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)TANTAN(null)(null)(null)(null)(null)FNSTOP"
  21. 274 [153]"                  (null)CLOSE(null)STOP        MANOR STOP"
  22. 275 [153]"                  THENCLOSETHEN "
  23. 276 [153]"                   (null) (null)  "
  24. 277 [153]"TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(  TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(STOP"
  25. 278 [153]
  26. 279 [153]"ONTAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(STOP"
  27. 300 [134]I$(33),O$(33),L$(46),D$(3,37),O(33),D(3,37)
  28. 320 [129]X[178]1[164]30:[135]I$(X),O$(X),O(X):[130]X
  29. 330 [129]X[178]1[164]46:[135]L$(X):[130]X
  30. 340 [129]Y[178]1[164]37:[129]X[178]1[164]3:[135]D$(X,Y),D(X,Y):[130]X,Y
  31. 350 [129]X[178]1[164]3:[135]P$(X):[130]
  32. 360 [129]X[178]1[164]8:[135]VE(X):[130]:[129]X[178]1[164]3
  33. 370 Z[178][181]([187](1)[172](88[171]1)[170]1)[170]11
  34. 380 N$(X)[178][196](Z):[130]X:[129]X[178]1[164]3
  35. 390 Z[178][181]([187](1)[172](3[171]0)[170]1)
  36. 400 [139]S(Z)[178]Z[167]390
  37. 410 S$(Z)[178]N$(X):S(Z)[178]Z
  38. 420 [130]X
  39. 430 [153]:[133]"LOADINSTRUCTIONS";C$
  40. 440 [139][200](C$,1)[178]"Y"[167][141]3790
  41. 450 L[178][181]([187](1)[172](7[171]1)[170]1)[170]1
  42. 460 [153]"LOAD"
  43. 470 [153]:[133]"DO YOU WANT TO CONTINUE AN OLD GAME";C$
  44. 480 [139][200](C$,1)[178]"Y"[167][141]4360
  45. 490 [153]"LOAD"
  46. 500 [153]"LOCATION:";L$(L)
  47. 510 [153]"DIRECTION:"
  48. 520 [129]X[178]1[164]3
  49. 530 [141]2850
  50. 540 [130]X
  51. 550 [153]"VISIBLE OBJECTS:"
  52. 560 [139]L[178]30[167][139]O(13)[179][177]0[167]620
  53. 570 [139]L[178]31[167][139]O(13)[179][177]0[167]620
  54. 580 [129]X[178]1[164]33
  55. 590 [139]O(X)[178]L[167][153]O$(X)
  56. 600 [130]X
  57. 610 [141]2940
  58. 620 [153]:[133]"NOW WHAT";C$
  59. 630 [139][200](C$,3)[178]"GET"[167]1070
  60. 640 [139]C$[178]"DROP SNORKEL"[167]2760
  61. 650 [139][200](C$,4)[178]"DROP"[167]1250
  62. 660 [139][200](C$,8)[178]"TAKE INV"[167]1360
  63. 670 [139]C$[178]"ENTER VENT"[167]1400
  64. 680 [139]C$[178]"ENTER BALOON"[167]158[255][255][255][241][255][255]6[255][255][255][255][221][185][217][157][224][136][159][156][188][158][196]J@[200][129][255][207][255][164][139]@[255][185][217][157][224][136][153][175][175][224][196]JJ[200][129][255]i[255][164][139]@[157][185][217][157][224][136][236][217][175][232][158][196]N[192][200][129]l[248][255][255][255][164][138][134][206][255]@[157][185][217][157][224][196]N[206][200][129][175]x[255][255][255][164][138][134][255][255]@[157][255][156][191][255][185][158][197][255]^[200][136]    [228][139][200](C$,5)[178]"LOOK "[167]1850
  65. 750 [139][200](C$,6)[178]"GO JOG"[167]2000
  66. 760 [139][200](C$,4)[178]"GO E"[175]L[178]32[167]2830
  67. 770 [139][200](C$,4)[178]"GO O"[167]2050
  68. 780 [139][200](C$,2)[178]"GO"[167]2100
  69. 790 [139]C$[178]"PET SERVAL"[167]2150
  70. 800 [139]C$[178]"FEED SERVAL"[167]2170
  71. 810 [139]C$[178]"GIVE TROUT"[167]2170
  72. 820 [139][200](C$,8)[178]"CUT TREE"[167]2220
  73. 830 [139][200](C$,10)[178]"CLIMB TREE"[167]2790
  74. 840 [139][200](C$,9)[178]"CHOP TREE"[167]2220
  75. 850 [139][200](C$,4)[178]"DIVE"[167]2240
  76. 860 [139]C$[178]"END GAME"[167][153]"LOAD":[128]
  77. 870 [139][200](C$,3)[178]"BUY"[175]L[178]10[167]1130
  78. 880 [139]C$[178]"REMOVE COVER"[167]2300
  79. 890 [139][200](C$,9)[178]"OPEN VENT"[167]2300
  80. 900 [139]C$[178]"OPEN BOOK"[167]1850
  81. 910 [139]C$[178]"OPEN DOOR"[167]2390
  82. 920 [139]C$[178]"OPEN CREDENZA"[167]1850
  83. 930 [139]C$[178]"OPEN BAG"[167]1850
  84. 940 [139]C$[178]"OPEN SAFE"[167]3530
  85. 950 [139]C$[178]"UNLOCK DOOR"[167]2390
  86. 960 [139]C$[178]"INFLATE RAFT"[167]2430
  87. 970 [139]C$[178]"INFLATE BALLOON"[167]2460
  88. 980 [139]C$[178]"BUILD BALLOON"[167]2460
  89. 990 [139]C$[178]"FLY BALLOON"[167]2570
  90. 1000 [139]C$[178]"SAIL BALLOON"[167]2570
  91. 1010 [139]C$[178]"READ WILL"[175]F[178]1[167]3670
  92. 1020 [139]C$[178]"READ BOOK"[167]1850
  93. 1030 [139]C$[178]"READ SIGN"[167]2810
  94. 1040 [139]C$[178]"SAVE GAME"[167]4400
  95. 1050 [139]C$[178]"CLEAR SCREEN"[167]490
  96. 1060 [153]"DON'T UNDERSTAND":[137]620
  97. 1070 [139]C$[178]"GET TROUT"[175]L[178]29[175]O(10)[179][177]0[167][153]"IT SLIPPED OUT OF YOUR HANDS":[137]620
  98. 1080 [139]C$[178]"GET PICTURE"[175]L[178]16[167][153]"TOO VALUABLE":[137]620
  99. 1090 [139]L[178]10[167][153]"CAN ONLY BUY FROM STORE":[137]620
  100. 1100 [139]C$[178]"GET TABLE"[175]L[178]37[167][153]"IT'S NAILED DOWN":[137]620
  101. 1110 [139]S[178]1[167]3120
  102. 1120 [139]I[178]4[167][153]"INVENTORY TOO HEAVY":[137]620
  103. 1130 [139]C$[178]"GET MASK"[167]3190
  104. 1140 [139]C$[178]"GET SNORKEL"[167]3140
  105. 1150 [129]X[178]1[164]19
  106. 1160 G[178][195](I$(X))
  107. 1170 [139][202](C$,5,G)[178]I$(X)[175]O(X)[178]0[167][153]"ALREADY HAVE OBJECT":[137]620
  108. 1180 [139][202](C$,5,G)[178]I$(X)[175]O(X)[178]L[167]O(X)[178]0:I[178]I[170]1:[137]490
  109. 1190 [130]X
  110. 1200 [139]C$[178]"GET SERVAL"[175]O(30)[178]L[167]3230
  111. 1210 [139]C$[178]"GET CREDENZA"[175]L[178]14[167][153]"CAN'T LIFT IT":[137]620
  112. 1220 [139]C$[178]"GET CASE"[175]O(26)[178]L[167][153]"NOT THIRSTY":[137]620
  113. 1230 [139]C$[178]"GET SAFE"[175]O(25)[178]L[167][153]"SAFE IS SECURED TO WALL":[137]620
  114. 1240 [137]1060
  115. 1250 [129]X[178]1[164]19
  116. 1260 G[178][195](I$(X))
  117. 1270 [139][202](C$,6,G)[178]I$(X)[175]O(X)[178]0[167]1300
  118. 1280 [130]X
  119. 1290 [137]1060
  120. 1300 [139]X[178]8[167][139]L[178]28[167]O(8)[178]5:I[178]I[171]1:[153]"RAFT DRIFTS AWAY":[129]X[178]1[164]750:[130]X:[137]490
  121. 1310 [139]X[178]8[167][139]L[178]29[167]O(8)[178]5:I[178]I[171]1:[153]"RAFT DRIFTS AWAY":[129]X[178]1[164]750:[130]X:[137]490
  122. 1320 I[178]I[171]1
  123. 1330 [139]L[178]28[167]O(X)[178]30:[137]490
  124. 1340 [139]L[178]29[167]O(X)[178]31:[137]490
  125. 1350 O(X)[178]L:[137]490
  126. 1360 [129]X[178]1[164]19
  127. 1370 [139]O(X)[178]0[167][153]O$(X)
  128. 1380 [130]X
  129. 1390 [137]620
  130. 1400 [129]X[178]1[164]8
  131. 1410 [139]VE(X)[178]L[167]1440
  132. 1420 [130]X
  133. 1430 [137]1060
  134. 1440 [139]O(8)[178]0[167][139]R[178]1[167][153]P$(2):[137]620
  135. 1450 [129]X[178]1[164]4
  136. 1460 [139]O(X)[178]0[167][153]P$(2):[137]620
  137. 1470 [130]X
  138. 1480 [139]L[178]13[167][139]C1[178]0[167][153]P$(1):[137]620
  139. 1490 [139]L[178]14[167][139]C2[178]0[167][153]P$(1):[137]620
  140. 1500 [139]L[178]17[167][139]C3[178]0[167][153]P$(1):[137]620
  141. 1510 [139]L[178]18[167][139]C4[178]0[167][153]P$(1):[137]620
  142. 1520 [139]W[178]0[167][153]"YOU WEIGH TOO MUCH":[137]620
  143. 1530 [139]L[178]13[167][139]C1[178]1[167]L[178]21:[137]490
  144. 1540 [139]L[178]14[167][139]C2[178]1[167]L[178]24:[137]490
  145. 1550 [139]L[178]17[167][139]C3[178]1[167]L[178]26:[137]490
  146. 1560 [139]L[178]18[167][139]C4[178]1[167]L[178]27:[137]490
  147. 1570 [137]1060
  148. 1580 [139]H[178]0[167][153]"NOT READY YET":[137]620
  149. 1590 [139]L[178]8[167]L[178]34:[137]490
  150. 1600 [139]L[178]36[167]L[178]35:[137]490
  151. 1610 [153]"CAN'T FIND":[137]620
  152. 1620 [139]L[179][177]5[167]1060
  153. 1630 [139]O(8)[179][177]0[167][153]"NEED SOMETHING TO FLOAT ON":[137]620
  154. 1640 [139]R[178]0[167][153]"RAFT IS TOO FLAT":[137]620
  155. 1650 L[178]28:[137]490
  156. 1660 [139]L[178]16[167][139]K[178]0[167][153]"DOOR IS LOCKED":[137]620
  157. 1670 [139]L[178]20[167]L[178]16:K[178]1:[137]490
  158. 1680 [139]L[178]16[167]L[178]20:[137]490
  159. 1690 [137]1060
  160. 1700 [139]L[179][177]9[167]1060
  161. 1710 [129]X[178]1[164]19
  162. 1720 [139]O(X)[178]0[167][153]"CAN'T ENTER STORE WITH INVENTORY":[137]620
  163. 1730 [130]X
  164. 1740 L[178]10:[137]490
  165. 1750 [139]C$[178]"ENTER MANOR"[175]L[178]9[167]L[178]12:[137]490
  166. 1760 [139]C$[178]"ENTER MANOR"[175]L[178]1[167]L[178]17:[137]490
  167. 1770 [139]C$[178]"ENTER HOSPITAL"[175]L[178]9[167]L[178]11:[137]490
  168. 1780 [139]C$[178]"ENTER TUNNEL"[175]L[178]31[175]O(13)[178]0[167]L[178]32:1000
  169. 1790 [139]C$[178]"ENTER CREEK"[175]L[178]4[167][153]"YOU SLIPPED AND FELL":[129]X[178]1[164]750:[130]X:S[178]1:L[178]11:[137]490
  170. 1800 [139]C$[178]"ENTER GORGE"[175]L[178]8[167][153]"TOO STEEP":[137]620
  171. 1810 [139]C$[178]"ENTER SHACK"[175]L[178]36[167]L[178]37:[137]490
  172. 1820 [137]1060
  173. 1830 [139]C$[178]"EXAMINE"[167]490
  174. 1840 G[178][195](C$)[171]8:Q$[178][202](C$,9,G):[137]1860
  175. 1850 G[178][195](C$)[171]5:Q$[178][202](C$,6,G)
  176. 1860 [129]X[178]1[164]33
  177. 1870 [139]Q$[178]I$(X)[175]O(X)[178]L[167]1910
  178. 1880 [139]Q$[178]I$(X)[175]O(X)[178]0[167]1910
  179. 1890 [130]X
  180. 1900 [137]2160
  181. 1910 [139]Q$[178]"BOTTLE"[167][153]P$(3)N$(1):[137]620
  182. 1920 [139]Q$[178]"GOBLET"[167][153]P$(3)N$(2):[137]620
  183. 1930 [139]Q$[178]"TABLE"[167][153]"ON TOP IS A NOTE WITH THE NUMBER"N$(3):[137]620
  184. 1940 [139]Q$[178]"CASE"[167][153]"ONE BOTTLE IS MISSING":[137]620
  185. 1950 [139]Q$[178]"BOOK"[167]3420
  186. 1960 [139]C$[178]"CREDENZA"[175]O(13)[178]40[167][153]"INSIDE IS A SWIM MASK":[137]620
  187. 1970 [139]C$[178]"BAG"[175]O(19)[178]40[167][153]"INSIDE IS A SNORKEL":[137]620
  188. 1980 [139]C$[178]"PICTURE"[167][153]"BEHIND THE PICTURE IS A SAFE":E[178]1:[137]620
  189. 1990 [153]"NOTHING UNUSUAL":[137]620
  190. 2000 [139]O(11)[179][177]0[167][153]"NEED SHOES":[137]620
  191. 2010 [139]L[177]9[167][153]"CAN'T JOG HERE":[137]620
  192. 2020 W[178]1:[153]"WHEW!...DONE":[137]620
  193. 2030 [139]L[178]28[167]L[178]5:[137]490
  194. 2040 [137]1060
  195. 2050 [139]S[178]1[167][153]"NOT WELL":[137]620
  196. 2060 [139]L[178]21[167][139]C1[178]0[167][153]P$(1): [137]620
  197. 2070 [139]L[178]24[167][139]C2[178]0[167][153]P$(1): [137]620
  198. 2080 [139]L[178]26[167][139]C3[178]0[167][153]P$(1): [137]620
  199. 2090 [139]L[178]27[167][139]C4[178]0[167][153]P$(1): [137]620
  200. 2100 [139][200](C$,4)[178]"GO E"[175]L[178]18[167]3240
  201. 2110 [129]X[178]1[164]3
  202. 2120 [139][202](C$,4,1)[178]D$(X,L)[167]L[178]D(X,L):[137]490
  203. 2130 [130]X
  204. 2140 [153]"DIRECTION NOT CLEAR":[137]620
  205. 2150 [139]V[178]0[167][139]L[178]18[167]3230
  206. 2160 [137]1060
  207. 2170 [139]V[178]1[167]1060
  208. 2180 [139]L[179][177]18[167]1060
  209. 2190 [139]O(14)[179][177]0[176]L[179][177]18[167][153]"NEED FOOD":[137]620
  210. 2200 [153]"SERVAL TOOK TROUT AND ESCAPED":[139]O(14)[178]0[167]I[178]I[171]1
  211. 2210 V[178]1:O(14)[178]40:[129]X[178]1[164]750:[130]X:[137]490
  212. 2220 [139]L[178]2[167][139]O(12)[178]0[176]O(12)[178]L[167]O(4)[178]2:[137]490
  213. 2230 [137]1060
  214. 2240 [139]L[178]28[167][139]O(8)[178]0[167][139]O(19)[178]0[167]O(8)[178]5:I[178]I[171]1:L[178]30:[153]"RAFT DRIFTS AWAY":[129]X[178]1[164]750:[130]X:[137]490
  215. 2250 [139]L[178]29[167][139]O(8)[178]0[167][139]O(19)[178]0[167]O(8)[178]5:I[178]I[171]1:L[178]31:[153]"RAFT DRIFTS AWAY":[129]X[178]1[164]750:[130]X:[137]490
  216. 2260 [139]L[178]28[167][139]O(19)[178]0[167]L[178]30:[137]490
  217. 2270 [139]L[178]29[167][139]O(19)[178]0[167]L[178]31:[137]490
  218. 2280 [139]L[178]28[176]L[178]29[167][153]"NEED SNORKEL":[137]620
  219. 2290 [137]1060
  220. 2300 [139]L[178]13[167]C1[178]1:[137]490
  221. 2310 [139]L[178]21[167]C1[178]1:[137]490
  222. 2320 [139]L[178]14[167]C2[178]1:[137]490
  223. 2330 [139]L[178]24[167]C2[178]1:[137]490
  224. 2340 [139]L[178]17[167]C3[178]1:[137]490
  225. 2350 [139]L[178]26[167]C3[178]1:[137]490
  226. 2360 [139]L[178]18[167]C4[178]1:[137]490
  227. 2370 [139]L[178]27[167]C4[178]1:[137]490
  228. 2380 [137]1060
  229. 2390 [139]L[178]16[176]L[178]20[167]2410
  230. 2400 [137]1060
  231. 2410 [139]L[178]16[167][139]K[178]0[167][153]"CAN'T...DOOR IS LOCKED FROM OTHER SIDE":[137]620
  232. 2420 [153]"OK":[137]620
  233. 2430 [139]L[179][177]5[167][153]"NOT HERE":[137]620
  234. 2440 [139]R[178]1[167][153]"ALREADY INFLATED":[137]620
  235. 2450 [153]"OK":R[178]1:[137]620
  236. 2460 [139]L[179][177]8[167][153]"NOT HERE":[137]620
  237. 2470 [129]X[178]1[164]6
  238. 2480 [139]O(X)[178]0[176]O(X)[178]8[167]HB[178]HB[170]1
  239. 2490 [130]X
  240. 2500 [139]HB[178]6[167]2520
  241. 2510 [153]"NOT READY":HB[178]0:[129]X[178]1[164]750:[130]X:[141]3420:[137]490
  242. 2520 [129]X[178]1[164]6
  243. 2530 [139]O(X)[178]0[167]I[178]I[171]1
  244. 2540 O(X)[178]40
  245. 2550 [130]X
  246. 2560 H[178]1:[137]490
  247. 2570 [139]H[178]0[167][153]"NOT READY":[129]X[178]1[164]750:[130]X:[141]3420:[137]490
  248. 2580 [139]L[178]8[176]L[178]36[167][153]"NEED TO GET IN FIRST":[137]620
  249. 2590 [139]L[178]34[167]2620
  250. 2600 [139]L[178]35[167]2690
  251. 2610 [137]1060
  252. 2620 Z[178]6:Y[178]4:[141]3260
  253. 2630 Z[178]3:Y[178]15:[141]3260
  254. 2640 Z[178]0:Y[178]26:[141]3260
  255. 2650 Z[178]3:Y[178]37:[141]3260
  256. 2660 Z[178]6:Y[178]48:[141]3260
  257. 2670 [153]"LOAD"
  258. 2680 L[178]35:[137]490
  259. 2690 Z[178]6:Y[178]48:[141]3260
  260. 2700 Z[178]3:Y[178]37:[141]3260
  261. 2710 Z[178]0:Y[178]26:[141]3260
  262. 2720 Z[178]3:Y[178]15:[141]3260
  263. 2730 Z[178]6:Y[178]4:[141]3260
  264. 2740 [153]"LOAD"
  265. 2750 L[178]34:[137]490
  266. 2760 [139]O(19)[179][177]0[167][153]"DON'T HAVE":[137]620
  267. 2770 [139]L[177]27[167][139]L[177]32[167][153]"YOU QUICKLY GRAB IT BACK!":[137]620
  268. 2780 O(19)[178]L:I[178]I[171]1:[137]490
  269. 2790 [139]L[179][177]2[167]1060
  270. 2800 [153]"YOU FELL OFF":[129]X[178]1[164]750:[130]X:S[178]1:L[178]11:[137]490
  271. 2810 [139]O(9)[178]0[176]O(9)[178]L[167][153]"SIGN SAYS: AN APPROPRIATE PLACE":[137]620
  272. 2820 [153]"CAN'T FIND":[137]620
  273. 2830 [139]O(19)[178]0[167]2100
  274. 2840 [153]"NEED SNORKEL":[137]620
  275. 2850 [139]D$(X,L)[178]"-"[167][142]
  276. 2860 [139]D$(X,L)[178]"O"[167][153]"OUT":[142]
  277. 2870 [139]D$(X,L)[178]"N"[167][153]"NORTH":[142]
  278. 2880 [139]D$(X,L)[178]"E"[167][153]"EAST":[142]
  279. 2890 [139]D$(X,L)[178]"S"[167][153]"SOUTH":[142]
  280. 2900 [139]D$(X,L)[178]"W"[167][153]"WEST":[142]
  281. 2910 [139]D$(X,L)[178]"U"[167][153]"UP":[142]
  282. 2920 [139]D$(X,L)[178]"D"[167][153]"DOWN":[142]
  283. 2930 [143]
  284. 2940 [139]O(13)[178]0[167][139]L[178]31[167][153]"AN UNDERWATER TUNNEL":[142]
  285. 2950 [139]L[178]13[176]L[178]14[176]L[178]17[176]L[178]18[167][153]"VENT"
  286. 2960 [139]L[178]13[167][139]C1[178]1[167][153]"VENT COVER":[142]
  287. 2970 [139]L[178]14[167][139]C2[178]1[167][153]"VENT COVER":[142]
  288. 2980 [139]L[178]17[167][139]C3[178]1[167][153]"VENT COVER":[142]
  289. 2990 [139]L[178]18[167][139]C4[178]1[167][153]"VENT COVER":[142]
  290. 3000 [139]H[178]1[167][139]L[178]8[167][139]L[178]36[167][153]"HOT AIR BALLOON":[142]
  291. 3010 Z[178][181]([187](1)[172](10[171]1)[170]1)
  292. 3020 [139]L[178]6[167][139]Z[178]1[167][153]"THE BUTLER WITH TWO STICKS OF DYNAMITE":[142]
  293. 3030 [139]L[178]3[167][139]Z[178]3[167][153]"THE MAID WITH A PACK OF BLOODHOUNDS":[142]
  294. 3040 [139]L[178]7[167][139]Z[178]5[167][153]"THE GARDENER WITH A BULLDOZER":[142]
  295. 3050 [139]L[178]33[167][139]Z[179]5[167][153]"A BAT PASSES CLOSE BY":[142]
  296. 3060 [139]L[178]27[167][139]Z[179]3[167][153]"YOU HAVE A COBWEB IN YOUR HAIR":[142]
  297. 3070 [139]L[178]25[167][139]Z[179]3[167][153]"A RODENT BRUSHES YOUR LEG":[142]
  298. 3080 [139]L[178]4[167][139]Z[178]7[167][153]"A TOAD JUMPS ACROSS THE CREEK":[142]
  299. 3090 [139]L[178]28[167][139]O(14)[178]0[167][139]Z[179]5[167][153]"A HUNGRY GULL CIRCLES OVERHEAD":[142]
  300. 3100 [139]L[178]2[167][139]Z[178]8[167][153]"A PRIMATE WATCHES FROM ABOVE":[142]
  301. 3110 [142]
  302. 3120 [139]C$[178]"GET WELL"[167]S[178]0:[153]"RECOVERED":[137]620
  303. 3130 [137]1060
  304. 3140 [139]O(19)[178]0[167][153]"ALREADY HAVE OBJECT":[137]620
  305. 3150 [139]O(19)[178]40[167][139]O(7)[178]0[167]O(19)[178]0:I[178]I[170]1:[137]490
  306. 3160 [139]O(19)[178]40[167][139]O(7)[178]L[167]O(19)[178]0:I[178]I[170]1:[137]490
  307. 3170 [139]O(19)[178]L[167]O(19)[178]L:I[178]I[170]1:[137]490
  308. 3180 [137]1060
  309. 3190 [139]O(13)[178]0[167][153]"ALREADY HAVE":[137]620
  310. 3200 [139]O(13)[178]40[167][139]L[178]14[167]O(13)[178]0:I[178]I[170]1:[137]490
  311. 3210 [139]O(13)[178]L[167]O(13)[178]0:I[178]I[170]1:[137]490
  312. 3220 [137]1060
  313. 3230 [153]"YOU HAD JUST ENOUGH STRENGTH TO GET AWAY":[129]X[178]1[164]1000:[130]X:S[178]1:L[178]11:[137]490
  314. 3240 [139]V[178]0[167][153]"SERVAL WON'T LET YOU":[137]620
  315. 3250 L[178]19:[137]490
  316. 3260 [153]"LOAD"
  317. 3270 [129]Y1[178]1[164]Z:[153]:[130]Y1
  318. 3280 [153][163]Y1[170]2)"- - - "
  319. 3290 [153][163]Y1[171]1)" -       -"
  320. 3300 [153][163]Y1[171]1)" ========="
  321. 3310 [153][163]Y1[170]1)"-     -"
  322. 3320 [153][163]Y1[170]2)"-   -"
  323. 3330 [153][163]Y1[170]3)".-."
  324. 3340 [153][163]Y1[170]3)". ."
  325. 3350 [153][163]Y1[170]3)"---"
  326. 3360 [153][163]Y1[170]3)"***"
  327. 3370 [153][163]Y1[170]3)"---";
  328. 3380 [129]X[178]1[164]500:[130]X
  329. 3390 [142]
  330. 3400 [129]X[178]1[164]20:[129]Y[178]1[164]50:[130]Y,X
  331. 3410 [142]
  332. 3420 [153]"LOAD"
  333. 3430 [153]:[153][163]5)"HOW TO BUILD A HOT AIR BALLOON"
  334. 3440 [153]:[153][163]8)"#1 BALLOON"
  335. 3450 [153][163]8)"#2 HEAT SOURCE"
  336. 3460 [153][163]8)"#3 FUEL"
  337. 3470 [153][163]8)"#4 GONDOLA OR CONTAINER"
  338. 3480 [153][163]8)"#5 CABLE OR TWINE"
  339. 3490 [153][163]8)"#6 MATCHES OR LIGHTER"
  340. 3500 [153]:[153]" BUILD BALLOON AT AN APPROPRIATE PLACE"
  341. 3510 [153]:[133]"PRESS <RETURN> TO CONTINUE";C$
  342. 3520 [142]
  343. 3530 [139]E[178]0[167][153]"CAN'T FIND":[137]620
  344. 3540 [139]L[179][177]16[167][153]"NOT HERE":[137]620
  345. 3550 [153]"COMBINATION LOCK"
  346. 3560 [133]"ENTER FIRST NUMBER --";F$(1)
  347. 3570 [141]3400
  348. 3580 [139]F$(1)[179][177]S$(1)[167][153]"NOT CORRECT":[137]620
  349. 3590 [133]"ENTER SECOND NUMBER --";F$(2)
  350. 3600 [141]3400
  351. 3610 [139]F$(1)[170]F$(2)[179][177]S$(1)[170]S$(2)[167][153]"NOT CORRECT":[137]620
  352. 3620 [133]"ENTER LAST NUMBER --";F$(3)
  353. 3630 [141]3400
  354. 3640 [139]F$(1)[170]F$(2)[170]F$(3)[179][177]S$(1)[170]S$(2)[170]S$(3)[167][153]"NOT CORECT":[137]620
  355. 3650 F[178]1
  356. 3660 [153]"CLICK!...............INSIDE IS A WILL":[137]620
  357. 3670 [153]"LOAD"
  358. 3680 [153]:[153]:[153]
  359. 3690 [153]"***************************************"
  360. 3700 [153]"*"[163]38)"*"
  361. 3710 [153]"*"[163]16)"WILL                  *"
  362. 3720 [153]"*"[163]38)"*"
  363. 3730 [153]"*    I, MR. STONE, LEAVE ALL MY       *"
  364. 3740 [153]"*   POSSESSIONS TO WHOMEVER OPENS     *"
  365. 3750 [153]"*          THIS SAFE.                 *"
  366. 3760 [153]"*"[163]38)"*"
  367. 3770 [153]"***************************************"
  368. 3780 [153]:[153][163]9)"<<<CONGRATULATIONS>>>":[128]
  369. 3790 [153]"LOAD"
  370. 3800 [153]"  WELCOME TO STONEVILLE.  YOU RECENTLY "
  371. 3810 [153]"LEARNED THAT WEALTHY MR. STONE DIED AND"
  372. 3820 [153]"RUMOR HAS IT THAT THIS ECCENTRIC MISER"
  373. 3830 [153]"HAS LEFT HIS ENTIRE ESTATE TO WHOMEVER"
  374. 3840 [153]"FINDS AND OPENS HIS SAFE.":[153]
  375. 3850 [153]"TO PLAY, YOU MUST MANIPULATE OBJECTS AND"
  376. 3860 [153]"ONEXPLORE YOUR SURROUNDINGS BY USING TWO"
  377. 3870 [153]"WORD COMMANDS. FOR EXAMPLE, 'GET BASKET'"
  378. 3880 [153]"ONOR 'GO SOUTH'.  TO SPEED UP DIRECTIONAL"
  379. 3890 [153]"MOVEMENT, 'GO' COMMANDS MAYBE SHORTENED"
  380. 3900 [153]"TO INCLUDE ONE LETTER SUCH AS 'GO S'.":[153]
  381. 3910 [153]"THE COMMAND 'SAVE GAME' WILL SAVE YOUR"
  382. 3920 [153]"PROGRESS FOR PLAY AT A LATER DATE OR YOU"
  383. 3930 [153]"ONCAN JUST END THE GAME BY ENTERING 'END  GAME'";
  384. 3940 [153]" AND IF NEEDED 'CLEAR SCREEN' WILL RESET YOUR LOCATION."
  385. 3950 [153]:[133]"PRESS <ENTER> TO START GAME";C$:[142]
  386. 3960 [131]BALLOON,FALLEN WEATHER BALLOON,3,STOVE,SMALL WOOD BURNING STOVE,1,BASKET
  387. 3970 [131]LARGE WICKER BASKET,12
  388. 3980 [131]LOGS,LOGS,40,TWINE,ROLL OF TWINE,17,MATCHES,BOOK OF MATCHES,15
  389. 3990 [131]BAG,BURLAP BAG,18,RAFT,INFLATABLE RAFT,1,SIGN,SIGN,8
  390. 4000 [131]NET,FISH NET,7,SHOES,JOGGING SHOES,10,AXE,AXE,10
  391. 4010 [131]MASK,SWIM MASK,40,TROUT,TROUT,29,GOBLET,CRYSTAL GOBLET,19
  392. 4020 [131]BOTTLE,EMPTY BOTTLE OF CHABLIS,33,BOOK,BOOK,14,PICTURE
  393. 4030 [131]PICTURE OF MR. STONE,16
  394. 4040 [131]SNORKEL,SNORKEL,40,MANOR,STONEVILLE MANOR,9,MANOR,STONEVILLE MANOR,1
  395. 4050 [131]SHACK,OLD ABANDONED SHACK,36,TABLE,WOODEN TABLE,37,CREDENZA
  396. 4060 [131]WALNUT CREDENZA,14
  397. 4070 [131]SAFE,SAFE,40,CASE,CASE OF CHABLIS,18,TREES,TREES,2
  398. 4080 [131]DOOR,DOOR,20,DOOR,DOOR,16,SERVAL,AN IMPORTED SERVAL,18
  399. 4090 [131]STORE,GENERAL STORE,9,STAIRWAY,STAIRWAY,19,HOSPITAL,HOSPITAL,9
  400. 4100 [131]IN THE COURTYARD,IN A WOODED AREA,IN A MEADOW,ALONG A SLIPPERY CREEK
  401. 4110 [131]ON THE BANK OF A LAKE,IN A BARREN FIELD,ON A ROCKY TRAIL
  402. 4120 [131]AT THE EDGE OF A GORGE,ON MAIN STREET,INSIDE THE GENERAL STORE
  403. 4130 [131]INSIDE THE HOSPITAL,IN THE FOYER,IN THE PARLOR
  404. 4140 [131]IN THE STUDY,IN AN ORIEL,IN THE GALLARY,IN THE ATRIUM
  405. 4150 [131]IN THE WEST WING OF THE WINE CELLAR,IN THE EAST WING OF THE WINE CELLAR
  406. 4160 [131]AT THE TOP OF THE STAIRWAY,AT AN OUTLET IN THE DUCT,AT A TURN IN THE DUCT
  407. 4170 [131]AT A FORK IN THE DUCT,AT AN OUTLET IN THE DUCT,AT AN OUTLET IN THE DUCT
  408. 4180 [131]AT AN OUTLET IN THE DUCT,AT AN OUTLET IN THE DUCT,ON THE LAKE
  409. 4190 [131]IN THE SOUTHERN BAY,UNDER THE SURFACE OF THE LAKE
  410. 4200 [131]UNDER THE SURFACE OF THE LAKE
  411. 4210 [131]ALONG AN UNDERGROUND RIVER,INSIDE A CAVERN,IN A HOT AIR BALLOON
  412. 4220 [131]IN A HOT AIR BALLOON,ON TOP OF A PLATEAU,INSIDE THE SHACK
  413. 4230 [131]W,2,S,4,-,0,E,1,S,3,N,9,N,2,E,4,-,0,W,3,E,5,N,1,W,4,-,0,-,0,S,9,E,7,-,0
  414. 4240 [131]W,6,E,8,-,0
  415. 4250 [131]W,7,-,0,-,0,S,2,N,6,-,0,O,9,-,0,-,0,O,9,-,0,-,0,O,9,S,13,-,0,N,12,E,14
  416. 4260 [131]S,17,W,13,E,15,S,16
  417. 4270 [131]W,14,-,0,-,0,N,14,W,17,-,0,O,1,N,13,E,16,E,19,-,0,-,0,W,18,U,20,-,0,D,19
  418. 4280 [131]-,0,-,0,O,13,S,22,-,0,N,21,E,23,-,0
  419. 4290 [131]W,22,N,24,S,25,O,14,S,23,-,0,N,23,W,26,-,0,O,17,D,27,E,25,O,18,U,26,-,0
  420. 4300 [131]O,5,S,29,-,0,N,28,-,0,-,0
  421. 4310 [131]U,28,S,31,-,0,U,29,N,30,-,0,E,31,W,33,-,0,E,32,-,0,-,0,O,8,-,0,-,0,O,36
  422. 4320 [131]-,0,-,0,-,0,-,0,-,0,O,36,-,0,-,0
  423. 4330 [131]VENT IS COVERED,SOMETHING IS TOO BIG,"INSIDE IS A NOTE WITH THE NUMBER"
  424. 4340 [131]13,14,17,18,21,24,26,27
  425. 4360 [133]"PRESS <RETURN> WHEN READY TO LOAD";P$
  426. 4361 CR$[178][199](13)
  427. 4362 [159] 2,8,2,"RESERVED GAME,S,R"
  428. 4370 [132]2,L,CR$,W,CR$,S,CR$,I,CR$,F,CR$,H,CR$,R,CR$,K,CR$
  429. 4374 [132]2,E,CR$,V,CR$,C1,CR$,C2,CR$,C3,CR$,C4,CR$,N$(1),CR$
  430. 4375 [132]2,N$(2),CR$,N$(3),CR$,S$(1),CR$,S$(2),CR$,S$(3),CR$
  431. 4380 [129]X[178]1[164]33:[132]2,O(X):[130]X
  432. 4390 [153]"OK LET'S START":[160]2:[142]
  433. 4400 [133]"PRESS <RETURN> WHEN READY TO SAVE";P$
  434. 4401 CR$[178][199](13)
  435. 4405 [159]2,8,2,"RESERVED GAME,S,W"
  436. 4410 [152]2,L,CR$,W,CR$,S,CR$,I,CR$,F,CR$,H,CR$,R,CR$,K,CR$
  437. 4411 [152]2,E,CR$,V,CR$,C1,CR$,C2,CR$,C3,CR$,C4,CR$,N$(1),CR$
  438. 4412 [152]2,N$(2),CR$,N$(3),CR$,S$(1),CR$,S$(2),CR$,S$(3),CR$
  439. 4420 [129]X[178]1[164]33:[152]2,O(X):[130]
  440. 4430 [153]"ALL DONE":[160]2:[128]
  441.