home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 27 / 027.d81 / search holmes (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1986-01-01  |  22.7 KB  |  723 lines
  1. 0 iflf>0then50008
  2. 1 ifx=0thenx=1:print"[147]":load"unpacker",8,1
  3. 2 poke56,120 :clr
  4. 9 rem * * * search/holmes v1.2 * * *
  5. 10 printchr$(14);:poke53280,14:poke53281,14:mu=-1
  6. 11 mo=peek(215):ifmo=128 then print"[147][211]witch to 40 column display":goto60000
  7. 12 ifmo=0 then (NULL)5,2:goto15
  8. 13 poke646,1
  9. 15 dima$(20),b$(50),type(50)
  10. 19 rem title page
  11. 20 print"[147]"
  12. 30 print"[147]":w=1114:x=1133:y=1893:z=1874
  13. 40 for i=0 to18:pokew+i,63:pokex+40*i,63:pokey-i,63:pokez-40*i,63  :nexti
  14. 80 forwa=1 to200:nextwa
  15. 90 print"[212][200][197][160][211][197][193][210][195][200][160][198][207][210]"
  16. 100 nv=nv+1:reada$(nv):ifa$(nv)="ev"thennv=nv-1:goto115
  17. 110 goto100
  18. 115 for wa=1 to 400:nextwa
  19. 117 print"[211][200][197][210][204][207][195][203][160] [200][207][204][205][197][211]"
  20. 120 nm=nm+1:readb$(nm)
  21. 121 ifb$(nm)="pipe"then h(1)=nm
  22. 122 ifb$(nm)="tobacco" then h(2)=nm
  23. 123 ifb$(nm)="matches"thenh(3)=nm
  24. 125 ifb$(nm)="em"thennm=nm-1:goto140
  25. 130 goto120
  26. 140 forwa=1 to 800:nextwa:
  27. 200 print"[147][212][200][197][160][211][197][193][210][195][200][160][198][207][210][160][211][200][197][210][204][207][195][203][160][200][207][204][205][197][211] is a
  28. 205 [153]"text adventure. (NULL)ou will be giving
  29. 210 print"commands to the computer via your
  30. 215 [153]"keyboard. (NULL)f course, not all com-
  31. 220 print"mands will be understood by the
  32. 225 [153]"program: you must follow the rules
  33. 230 print"you will see on the next page."
  34. 260 print"[208]ress 'n' for next page"
  35. 265 geta$:ifa$<>"n"then265
  36. 300 print"[147][199]ame [210]ules[146]"
  37. 310 print"[193]ll commands must be two words, typed
  38. 320 [153]"in lower case.
  39. 330 print"[198]irst word must be from 'verbs' list.
  40. 340 [153]"(NULL)econd must be from 'modifiers' list.
  41. 350 print"[215]ords separated by a single space.
  42. 360 [153]"(NULL)ord list may be viewed by typing
  43. 370 print"'go list' at input prompt.
  44. 380 [153]"(NULL)o review rules, type 'go rules'."
  45. 385 [153]"str$uring play, you may carry at most
  46. 386 print"four items at one time."
  47. 390 print"[208]ress a key to continue"
  48. 395 geta$:ifa$=""then395
  49. 396 ifgame>0 then 20000
  50. 400 print"[147][214]erbs[146]"
  51. 410 k=0:for i=1 to nv:k=k+1:printa$(i)tab(10*k);:ifk=4thenk=0:
  52. 420 nexti
  53. 430 print: print"[205]odifiers[146]
  54. 440 k[178]0:[129] i[178]1 [164] nm:k[178]k[170]1:[153]b$(i)[163]10[172]k);:[139]k[178]4[167]k[178]0:
  55. 450 [130]i
  56. 452 [153]
  57. 455 [139]game[178]0[167]500
  58. 460 [153]:  [153]"(NULL)ress a key to continue"
  59. 470 [161]a$:[139]a$[178]""[167]470
  60. 480 [137] 20000
  61. 500 [153]"(NULL)ress 'p' to print a copy of this
  62. 505 print"   list or 'b' to begin search"
  63. 510 geta$:ifa$=""then510
  64. 520 ifa$="p" then gosub 35000:goto990
  65. 530 ifa$="b" then 990
  66. 540 goto 510
  67. 990 game =1: print"[147][212][200][197][160][211][197][193][210][195][200][160][198][207][210][160][211][200][197][210][204][207][195][203][160][200][207][204][205][197][211]
  68. 1000 [153]"(NULL)our name is (NULL)oby (NULL)tubbins. right$t's the
  69. 1010 print"year 1893 and you live in the back
  70. 1020 [153]"alleys of the teeming metropolis that
  71. 1030 print"is [204]ondon, [197]ngland. [217]ou've been home-
  72. 1040 [153]"less for all of your fifteen years,
  73. 1050 print"but your life is not as hopeless as
  74. 1060 [153]"those around you, for you are a peekaker
  75. 1070 print"[211]treet [201]rregular. [217]ou are the wily
  76. 1080 [153]"eyes and ears of the greatest detective"
  77. 1090 [153]"who ever lived - (NULL)herlock left$olmes. atns a
  78. 1100 print"lifelong inhabitant of the bleak side
  79. 1110 [153]"of (NULL)ondon, you can accomplish things
  80. 1120 print"that no ordinary [204]ondoner can. [217]ou are
  81. 1130 [153]"the crucial link between the dark
  82. 1140 print"underworld and the man who has solved
  83. 1150 [153]"more 'unsolvable' crimes than any other"
  84. 1160 [153]"person in history.
  85. 1170 print"[208]ress a key to continue"
  86. 1180 geta$:ifa$=""then1180
  87. 1200 print"[147][194]ut this morning, tragedy struck in the"
  88. 1210 print"most unlikely manner. [193]s you approached"
  89. 1220 print"[206]umber 221b [194]aker [211]treet, you were
  90. 1230 [153]"stunned by a commotion whose likes you
  91. 1240 print"had never seen there. [208]eople, horses,
  92. 1250 [153]"carriages, and police were all":[153]"scurrying frightfully about."
  93. 1260 [153]"  (NULL)ou fought your way through the"
  94. 1270 [153]"throng and at last spotted str$r. (NULL)atson,"
  95. 1280 [153]"who was speaking heatedly with a young"
  96. 1290 [153]"(NULL)ieutenant from the (NULL)cotland (NULL)ard."
  97. 1300 [153]"(NULL)hen the str$octor saw you, he waved a"
  98. 1310 [153]"disgusted hand at the confused officer"
  99. 1320 [153]"(from whom he wasclosegetting little"
  100. 1330 [153]"satisfaction) and ran to you."
  101. 1340 :
  102. 1350 [153]
  103. 1360 [153]"'(NULL)hank heavens it's you, (NULL)oby. (NULL)he most"
  104. 1370 [153]"awful thing has happened. right$t's left$olmes -"
  105. 1380 [153]"he's been stolen, er, ah, kidnapped.
  106. 1390 print"[217]es, that's it - kidnapped!'
  107. 1400 [153]"(NULL)ress a key to continue"
  108. 1410 [161]a$:[139]a$[178]""[167]1410
  109. 1420 [153]"load'(NULL)oby, you must find him. (NULL)he only
  110. 1430 print"clue we have is this shoe. [201]'m sure
  111. 1440 [153]"left$olmes could make a lot more of it than"
  112. 1450 [153]"right$ have. (NULL)ou see, it has a peculiar type"
  113. 1460 [153]"of mud caked around the sole. right$'m sure"
  114. 1470 [153]"its owner has spent considerable time"
  115. 1480 [153]"in the sewers recently. right$'m afraid"
  116. 1490 [153]"that's all right$ can make out in my present"
  117. 1500 [153]"state of mind. (NULL)oby, we must find him -"
  118. 1510 [153]"and quickly. right$ have reason to believe"
  119. 1520 [153]"he may have been drugged. (NULL)he police"
  120. 1525 [153]"will be of no help - right$'m afraid you're"
  121. 1530 [153]"on your own. (NULL)lease, (NULL)oby - find":[153]"left$olmes!'"
  122. 1550 [153]"(NULL)ress a key to continue"
  123. 1560 [161]a$:[139]a$[178]""[167]1560
  124. 1570 [153]"loadatns you look around, you see:
  125. 1580 print"[193] perplexed [215]atson, holding a shoe;"
  126. 1590 print"[193] hansom cab waiting patiently;
  127. 1610 [153]"atn clock showing the time as 10 atn(NULL);
  128. 1620 print"[193] pound note in [215]atson's pocket;
  129. 1630 [153]"(NULL)he landlady holding left$olmes' pipe;
  130. 1640 print"[193] policeman scratching his head.
  131. 1650 [153]"(NULL)hat will you do, (NULL)oby? (NULL)our pockets
  132. 1660 print"are empty and time is running out.":goto20000
  133. 3000 onfwgoto6900,3000,3100,6900,3200,3250,6900,3350,6900,3450
  134. 3010 onfw-10 goto6900,6900,6900,6900,6900,6900,3800
  135. 3100 ifb$="butcher" then 4360
  136. 3105 ifb$="drygoods" then 4370
  137. 3110 if b$="smokeshop" then 4375
  138. 3115 if b$="sewer" then 4350
  139. 3148 goto 6927
  140. 3200 ifb$="butcher"then4200
  141. 3205 ifb$="smokeshop"then4200
  142. 3210 ifb$="drygoods"then4200
  143. 3248 goto6900
  144. 3250 ifb$="hammer"thenit=3:goto4250
  145. 3255 ifb$="knife"thenit=3:goto4250
  146. 3260 ifb$="matches"thenit=2:goto4250
  147. 3265 ifb$="meat"thenit=1:goto4250
  148. 3270 ifb$="pipe"thenit=2:goto4250
  149. 3275 ifb$="rope"thenit=3:goto 4250
  150. 3280 ifb$="tobacco"thenit=2:goto 4250
  151. 3298 goto 6900
  152. 3350 ifb$="sewer"then4350
  153. 3355 ifb$="221b"then4355
  154. 3360 ifb$="butcher"then4360
  155. 3365 ifb$="hansom"then4365
  156. 3370 ifb$="drygoods"then4370
  157. 3375 ifb$="smokeshop"then4375
  158. 3380 ifb$="dungeon"then4380
  159. 3398 goto 6900
  160. 3450 ifb$="around"then4450
  161. 3498 goto 6900
  162. 3800 ifb$="221b"then 4800
  163. 3810 ifb$="sewer"then 4350
  164. 3848 goto 6900
  165. 4200 ifsh=0then6900
  166. 4201 sh=0:print"[145][207][203], you're back in the street.":goto4901
  167. 4250 ifsh<>itthen6955
  168. 4251 ifty(sw)=3 then6925
  169. 4252 ifni=4 andmy=5  then ni=3:goto 4255
  170. 4253 ifni>3 then 6910:rem ni= # of itemscarried
  171. 4254 ifmy<5 then 6915
  172. 4255 print"[145][217]ou now have ";b$;".":goto6940
  173. 4350 game=3:gosub62000:print"[217]ou're at the entrance to the sewer.
  174. 4351 [153]"atn tunnel lies directly ahead.":[137]4910
  175. 4355 [153]"on(NULL)ou can either walk (slow) or take a
  176. 4356 print"hansom cab (10 shillings)":goto4900
  177. 4360 print"[145][217]ou're in the butcher shop.":sh=1:goto 4902
  178. 4365 ifmy<10 then6915
  179. 4366 game=1:pl=0:gosub62000:print"[217]ou're in [200]olmes' flat. [215]atson is
  180. 4367 [153]"still there.":rm[178]1: my[178]my[171]10:bo[178]0:   [137] 4905
  181. 4370 [153]"on(NULL)ou're in the drygoods shop.":sh[178]3:[137] 4902
  182. 4375 [153]"on(NULL)ou're in the smokeshop.     ":sh[178]2:[137] 4902
  183. 4380 [153]"on(NULL)ou can't go directly there. (NULL)ou must
  184. 4381 print"go by way of the sewer.":goto4900
  185. 4450 ifsh>0 then4460
  186. 4451 print"[145][217]ou see several shops which may prove
  187. 4452 [153]"useful: a drygoods, a butcher and a
  188. 4453 print"smokeshop.":goto4901
  189. 4460 ifsh>1 then 4470
  190. 4461 print"[145][217]ou see lots of meat! 5 shillings
  191. 4462 [153]"per piece.":[137] 4901
  192. 4470 [139]sh[177]2[167]4480
  193. 4471 [153]"on(NULL)ou see pipes, tobacco and matches.
  194. 4472 print"5 shillings per item.":goto 4901
  195. 4480 print"[145][212]he following items catch your eye:
  196. 4481 [153]"a hammer, a knife, and a rope."
  197. 4482 [153]"(NULL)hey cost 5 shillings each.":[137]4901
  198. 4800 game[178]1:[141]62000:[153]"(NULL)ou are now in left$olmes' flat. (NULL)atson
  199. 4801 print"is lying on the divan.":rm=1: pl=0:bo=0:  goto 4920
  200. 4900 goto 20000
  201. 4901 tm=tm+1:goto20000
  202. 4902 tm=tm+2:goto20000
  203. 4903 tm=tm+3:goto20000
  204. 4904 tm=tm+4:goto20000
  205. 4905 if my=0 then ni=ni-1
  206. 4906 tm=tm+5:goto20000
  207. 4910 tm=tm+10:goto20000
  208. 4920 tm=tm+20:goto20000
  209. 5000 onfwgoto5050,5000,5100,5150,5200,5250,6900,5350,6900,5450
  210. 5010 onfw-10 goto5550,6900,6900,6900,6900,5750,5800
  211. 5050 ifb$= "police" then 6050
  212. 5055 ifb$= "watson" then 6055
  213. 5098 goto 6900
  214. 5100 ifb$="room" then6100
  215. 5105 ifb$="221b" then 6375
  216. 5110 ifb$="dungeon" then 6360
  217. 5115 ifb$="sewer" then 6350
  218. 5148 goto 6900
  219. 5150 ifb$="bookcase" then6150
  220. 5160 ifb$="chest" then6160
  221. 5170 ifb$="shoe" then 6170
  222. 5180 ifb$="221b" then 6375
  223. 5198 goto6900
  224. 5200 ifb$="room" then6200
  225. 5248 goto 6900
  226. 5250 ifb$="money"then6250
  227. 5255 ifb$="pipe"then6255
  228. 5260 ifb$="shoe"then6260
  229. 5265 ifb$="tobacco"then6265
  230. 5270 ifb$="locket"then6270
  231. 5275 ifb$="matches" then 6275
  232. 5298 goto 6900
  233. 5350 ifb$="sewer"then6350
  234. 5355 ifb$="cheapside"then6355
  235. 5360 ifb$="dungeon"then6360
  236. 5361 if b$="stairs" then 6360
  237. 5365 ifb$="hansom"then6365
  238. 5370 ifb$="room"then 6370
  239. 5375 ifb$="221b"then6375
  240. 5385 ifb$="chest"then6385
  241. 5390 ifb$="bookcase"then6390
  242. 5395 ifb$="police"then 6050
  243. 5396 if b$="watson" then 6396
  244. 5398 goto 6900
  245. 5450 ifb$="around"then6450
  246. 5498 goto 6900
  247. 5550 ifb$="door"thengoto6550
  248. 5555 ifb$="chest"thengoto6555
  249. 5598 goto 6900
  250. 5750 ifb$="matches"then6750
  251. 5755 ifb$="hansom"then6365
  252. 5798 goto 6900
  253. 5800 ifb$="cheapside"then6800
  254. 5805 ifb$="sewer"then 6350
  255. 5810 if b$="221b"then 6375
  256. 5848 goto 6900
  257. 6050 print"[145][212]he police are totally confused!":goto4901
  258. 6055 ifrm<>1 then print"[145][215]atson isn't making much sense.      ":goto4901
  259. 6056 print"[145][215]atson suggests the side room.":goto4901
  260. 6100 ifpl<>2 then6370
  261. 6101 print"[145][201]t's dark in here.        ":goto4900
  262. 6150 ifty(h(1))>2 then6153
  263. 6151 print"[145][204]ots of books, sheets of music, some
  264. 6152 [153]"matches, a pipe and some tobacco.":[137]4901
  265. 6153 [153]"on(NULL)ots of books, sheets of music, some
  266. 6154 print"matches and some tobacco.":goto4901
  267. 6160 ifpl<4 then6955
  268. 6161 if pl=6thenprint"[145][206]othing more of value here.":goto4901
  269. 6162 print"[145][201]t does not appear to be locked.":goto4910
  270. 6170 print"[145][217]ep, it smells like the sewer.":goto 4901
  271. 6200 print"[145][207][203], you're out.           ":pl=2:  goto4901
  272. 6250 ifty(sw)>2 then6920
  273. 6251 ifni>3 then 6910
  274. 6252 print"[145][217]ou now have 1 pound (20 shillings).":my=20:goto6950
  275. 6255 ifrm<>1 then 6257
  276. 6256 ifbo<>1 then 6955
  277. 6257 ifty(sw)>2 then6920
  278. 6258 ifni>3 then 6910
  279. 6259 print"[145][217]ou have [200]olmes' pipe.  ":goto6950
  280. 6260 ifty(sw)>2 then6920
  281. 6261 ifni>3 then 6910
  282. 6262 print"[145][217]ou now have a smelly shoe.":goto6950
  283. 6265 ifrm<>1 then 6900
  284. 6266 ifbo<>1 then 6955
  285. 6267 ifni>3 then 6910
  286. 6269 print"[145][217]ou now have a slipper of tobacco.":goto6950
  287. 6270 if pl<>5 then6955
  288. 6271 ifni>3 then 6910
  289. 6272 ifty(sw)=3 orty(sw)=4 then6920
  290. 6273 print"[145][217]ou now have the [193]dler locket.":pl=6:goto6950
  291. 6275 ifbo=0then6955
  292. 6276 ifni>3 then 6910
  293. 6277 ifty(sw)=3  then print"[145][217]ou already have some.":goto 4900
  294. 6278 print"[145][217]ou now have [200]olmes' matches.":goto 6950
  295. 6350 print"[145][217]ou can't go directly there. [217]ou must
  296. 6351 [153]"go by way of lenheapside.":[137]4900
  297. 6355 [153]"on(NULL)ou can either walk (slow) or take a
  298. 6356 print"hansom cab (10 shillings)":goto4900
  299. 6360 ifsp=0 then print"[145][217]ou can't go directly there.": goto4900
  300. 6361 rm=0:game=4:pl=0:bo=0:print"[217]ou're back in the dungeon.":goto 4904
  301. 6365 ifmy<10 then 6915
  302. 6366 game=2:pl=0:rm=0:bo=0:gosub62000:print"[217]ou're in [195]heapside, [204]ondon's
  303. 6367 [153]"shopping district.":my[178]my[171]10:  [137] 4905
  304. 6370 [139]rm[179][177]1 [167]6900
  305. 6371 [153]"on(NULL)he door's closed.         ":pl[178]1:bo[178]0:  [137]4900
  306. 6375 [139]sp[178]0 [167]6379
  307. 6376 [153]"on(NULL)ou are now in left$olmes' flat. (NULL)atson
  308. 6377 print"is lying on the divan.":rm=1:pl=0:bo=0:goto 4902
  309. 6379 print"[145][212]he police have barred the door.": goto 4901
  310. 6385 if pl<>3then 6900
  311. 6386 print"[145][217]ou're standing in front of the chest.":pl=4:   goto 4902
  312. 6390 ifrm<>1 then6900
  313. 6391 if pl>2then 6955
  314. 6392 print"[145][217]ou're standing before the bookcase.":bo=1:  goto4901
  315. 6396 if rm<>1 then 6900
  316. 6397 print"[145][215]atson is napping fitfully.":goto 4901
  317. 6450 ifrm<>1 then 6900
  318. 6451 ifpl>2 then6461
  319. 6452 print"[145][212]he following things catch your eye:
  320. 6453 [153]"(NULL)atson napping on the couch, a book-
  321. 6454 print"case with many intersting items and
  322. 6455 [153]"the door to a side room.":[137]4901
  323. 6461 [153]"on(NULL)othing much here but the chest.":[137]4901
  324. 6550 [139] pl[179][177] 1 [167] 6900
  325. 6551 [153]"onright$t's dark in here.   ":pl[178]2:[137]4901
  326. 6555 [139]pl[179]4  [167] 6955
  327. 6556 [139]pl[177]4[167][153]"on(NULL)othing more of value here.":[137]4901
  328. 6557 [153]"onpeekingo! (NULL)nder some papers is a locket.":pl[178]5:     [137]4900
  329. 6750 [139]ty(sw)[179][177]3 [167] 6935
  330. 6755 [139]pl[179][177]2 [167] 6900
  331. 6756 [153]"on(NULL)ou see a small chest in the corner.":pl[178]3:[137]4901
  332. 6800 game[178]2:pl[178]0: [141]62000:[153]"(NULL)ou're in lenheapside, (NULL)ondon's
  333. 6801 print"shopping district.":goto 4920
  334. 6900 print"[145][212]ry another command.       ":goto4900
  335. 6905 print"[145][217]ou've got to be kidding.":goto4900
  336. 6910 print"[145][217]ou have too many items.":goto 4900
  337. 6915 print"[145][217]ou haven't the funds for that.":goto4900
  338. 6920 print"[145][212]hat's no longer available.":goto 4900
  339. 6925 print"[145][217]ou already have that item.":goto 4901
  340. 6927 print"[145][208]lease be more specific.      ":goto 4900
  341. 6930 print"[145][217]ou can't see much in the dark.":goto4901
  342. 6935 print"[145][217]ou don't have ";b$;".          ":goto 4900
  343. 6940 my=my-5:ifmy=0 then ni=ni-1
  344. 6950 type(sw)=3:ni=ni+1:tm=tm+1:goto20000
  345. 6955 print"[145][217]ou can't do that . . . yet.":goto4900
  346. 7000 onfwgoto6900,7000,7100,7150,7200,6900,7300,7350,7400,7450
  347. 7010 onfw-10 goto6900,7550,7650,7600,6900,7750,6900
  348. 7100 ifb$="tunnel" then8100
  349. 7105 if b$="sewer"then8100
  350. 7110 ifb$="dungeon" then8110
  351. 7148 goto 6900
  352. 7150 ifb$="wall" then8150
  353. 7160 ifb$="tunnel" then8150
  354. 7198 goto6900
  355. 7200 ifb$="tunnel" then8200
  356. 7248 goto 6900
  357. 7300 ifb$="meat" then 8300
  358. 7348 goto 6900
  359. 7350 ifb$="dungeon"then8110
  360. 7355 ifb$="left"then8355
  361. 7360 ifb$="right"then8360
  362. 7365 ifb$="straight"then8365
  363. 7375 ifb$="cheapside"then8375
  364. 7380 ifb$="back"then8200
  365. 7385 ifb$="tunnel"then8100
  366. 7390 ifb$="wall"then8390
  367. 7398 goto 6900
  368. 7400 ifb$="dog"then8400
  369. 7448 goto 6900
  370. 7450 ifb$="around"then8450
  371. 7498 goto 6900
  372. 7550 ifb$="wall"then8550
  373. 7555 ifb$="door"then8550
  374. 7598 goto 6900
  375. 7600 ifb$="dog"then8600
  376. 7648 goto 6900
  377. 7650 ifb$="meat"then8650
  378. 7655 ifb$="knife"then8660
  379. 7660 ifb$="hammer"then8660
  380. 7698 goto 6905
  381. 7750 ifb$="hammer"then8750
  382. 7755 ifb$="matches"then 8755
  383. 7760 ifb$="rope"then 8760
  384. 7765 if b$="meat" then 8770
  385. 7798 goto 6905
  386. 8100 ifli=1andju=0then8366
  387. 8101 ifju=0thenprint"[145][201]t's too dark to see anything.":goto4902
  388. 8102 ifju=1 then print"[145][215]hich one?              ":goto4900
  389. 8103 goto6900
  390. 8110 ifju<>2 orwl<>1 then 6900
  391. 8112 game=4:gosub62000:print"[217]ou've entered the long-forgotten
  392. 8113 [153]"dungeon of (NULL)ing left$enry (NULL)right$right$right$.":[137]4901
  393. 8150 [139]ju[179]2 [167] 6900
  394. 8151 [139] ju[177]2[167] [153]"onright$t's singularly dull.":[137]4901
  395. 8152 [139]dd[178]0 [167] [153]"on(NULL)hat dog sure looks hungry.":[137]4901
  396. 8153 [153]"onatnha! (NULL)here appears to be a stone
  397. 8154 print"door in the wall. [215]ith some effort,
  398. 8155 [153]"you may be able to get through.":ew[178]1:[137]4901
  399. 8200 [139]ju[179]2[167] [153]"on(NULL)ou're back at the sewer entrance.":ju[178]0: [137]4905
  400. 8202 [139]ju[177]1 [167] [153]"on(NULL)ou're back at the fork.":ju[178]1:  [137]4903
  401. 8203 [137]6900
  402. 8300 [139]ju[179][177]2 [167] 6900
  403. 8301 [153]"on(NULL)he beast thanks you, but he's still
  404. 8302 print"blocking the way.":ty(sw)=4: goto4901
  405. 8355 if ju<>1 then6900
  406. 8356 ju=2: print"[145][217]ou're walking downhill. [193] terrible
  407. 8357 [153]"noise is getting louder by the moment.
  408. 8358 print"[201]t's the growling of a ravenous dog,
  409. 8359 [153]"who is blocking your way." :[137]4902
  410. 8360 [139]ju[179][177]1 [167]6900
  411. 8361 ju[178]4:[153]"on(NULL)ou walk for two minutes only to
  412. 8362 print"discover you've reached a dead end.":goto4902
  413. 8365 ifli=0 then 6930
  414. 8366 ifju=0then 8373
  415. 8367 if ju>2 then6900
  416. 8368 if dd=0 and ju=2 then 8761
  417. 8369 if dd=1 andju=2thenprint"[145][212]here's an intersting wall here.":goto4901
  418. 8370 ju=3:print"[145][217]ou walk through water (?!?) for 5
  419. 8371 [153]"minutes before concluding this is not
  420. 8372 print"the right tunnel.":goto 4905
  421. 8373 ju=1:print"[145][217]ou have reached a fork: there are
  422. 8374 [153]"tunnels to your left, right and front.":[137] 4903
  423. 8375 [139] ju[178]0 [167] 8378
  424. 8376 [139]ju[177]0 [167] [153]"on(NULL)ou must find your way out of these
  425. 8377 print"tunnels first.":goto4900
  426. 8378 game=2:li=0:gosub62000:print"[217]ou're back in [195]heapside.":goto4910
  427. 8390 ifju<>2 then 6900
  428. 8391 ifdd=0 then 8761
  429. 8392 print"[145][217]ou're standing at the wall.":goto4901
  430. 8400 ifju<>2 then6900
  431. 8401 print"[145][212]he dog has bitten off the end of your
  432. 8402 [153]"arm. left$olmes is doomed.
  433. 8403 print"[194]ut [208]rof. [205]oriarty has some openings!":goto60000
  434. 8450 if li=0 then 6930
  435. 8451 ifju=0thenprint"[145][217]ou see a long tunnel ahead.":goto4901
  436. 8452 ifju=1 then print"[145][212]unnels are left, right and straight.":goto 4901
  437. 8453 ifju>2 then print"[145][206]othing revealing here.":goto4901
  438. 8454 ifdd=0 then print"[145][212]he dog is surely hiding something.":goto4901
  439. 8455 print"[145][212]he wall at the end of this tunnel
  440. 8456 [153]"looks awfully interesting.":[137]4901
  441. 8550 [139]ew[179][177]1 [167] 6900
  442. 8551 [153]"onchr$ood job, (NULL)oby! (NULL)ou're through the
  443. 8552 print"wall. [217]ou see what appears to be a
  444. 8553 [153]"dungeon. (NULL)oaning sounds are heard.":wl[178]1:  [137] 4903
  445. 8600 [139]ju[179][177]2 [167] 6900
  446. 8601 [153]"onleft$ow?                     ":[137]4900
  447. 8650 [139]ju[179][177]2 [167]6900
  448. 8651 [139]ty(sw)[179][177]3 [167] 6900
  449. 8652 dd[178]1:[153]"onchr$ood thinking, (NULL)oby! (NULL)he beast has
  450. 8653 print"taken the bait and is out of your way.":ty(sw)=4:ni=ni-1:goto4901
  451. 8660 ifty(sw)<>3then6900
  452. 8661 ifju<>2 then 6905
  453. 8662 print"[145][217]ou panic and miss. [215]atch it.... he's
  454. 8663 [153]"attacking. (NULL)ou try to run, but you
  455. 8664 print"stumble and become the poor thing's
  456. 8665 [153]"first meal in weeks.
  457. 8666 print"[208]oor [200]olmes.":goto60000
  458. 8750 ifty(sw)<>3 then6935
  459. 8751 ifju<>2 then6900
  460. 8752 ifdd=0 then print"[145][200]ow cruel can you get?!":goto4900
  461. 8753 print"[145][212]oo small to be effective.":goto4902
  462. 8755 ifty(sw)<>3 then6935
  463. 8756 if li=1 then print"[145][207][203] - the more light the better.":goto 4901
  464. 8757 li=1:print"[145][193]h! [212]hat's better. [217]ou may proceed.":goto4901
  465. 8760 ifty(sw)<>3 then6935
  466. 8761 print"[145][214]aliant try, but the dog has found
  467. 8762 [153]"your neck irresistible. (NULL)ou're done
  468. 8763 print"for. [215]atson will never forgive you.":goto60000
  469. 8770 ifju<>2 then 6900
  470. 8771 goto 6927
  471. 8900 goto12000
  472. 9000 onfwgoto9050,9000,9100,6900,9200,9250,9300,9350,9400,9450
  473. 9010 onfw-10 goto9550,9500,9650,9600,9700,9750,6900
  474. 9050 ifb$= "troll" then10050
  475. 9060 ifb$= "holmes" then10060
  476. 9098 goto 6900
  477. 9100 ifb$="cell"then10100
  478. 9105 ifb$="sewer"then10350
  479. 9148 goto 6900
  480. 9200 ifb$="dungeon" then10200
  481. 9205 ifb$="stairs" then10385
  482. 9248 goto 6900
  483. 9250 ifb$="keys"then10250
  484. 9298 goto 6900
  485. 9300 ifb$="money" then10300
  486. 9305 ifb$="locket" then10305
  487. 9348 goto 6900
  488. 9350 ifb$="sewer"then10350
  489. 9355 ifb$="stairs"then10355
  490. 9370 ifb$="221b"then10370
  491. 9375 ifb$="cell"then10375
  492. 9380 ifb$="troll" then 10380
  493. 9385 ifb$="up" then10385
  494. 9390 if b$="holmes" then10100
  495. 9398 goto 6900
  496. 9400 ifb$="troll" then 10400
  497. 9405 ifb$="chain" then 10405
  498. 9448 goto 6900
  499. 9450 ifb$="around"then10450
  500. 9498 goto 6900
  501. 9500 ifb$="cover"then10560
  502. 9548 goto6900
  503. 9550 ifb$="door"then10550
  504. 9555 ifb$="cell"then10550
  505. 9560 ifb$="cover"then10560
  506. 9598 goto 6900
  507. 9600 ifb$="troll"then10600
  508. 9648 goto 6900
  509. 9650 ifb$="knife"then 10650
  510. 9655 ifb$="hammer"then 10650
  511. 9700 ifb$="chain"then10700
  512. 9705 ifb$="door"then10700
  513. 9710 ifb$="cell"then10700
  514. 9748 goto 6900
  515. 9750 ifb$="hammer"then10750
  516. 9755 ifb$="rope"then10755
  517. 9760 ifb$="knife"then 10755
  518. 9798 goto6905
  519. 10050 print"[145][212]he troll has no tongue. [200]is gestures
  520. 10051 [153]"sadly have no meaning for you.":[137]4901
  521. 10060 [153]"onleft$olmes says only one thing will
  522. 10061 print"satisfy the troll: a gold locket
  523. 10062 [153]"with a picture of right$rene atndler, which
  524. 10063 print"is somewhere in [200]olmes' flat. [200]e is
  525. 10064 [153]"too weak to say any more.":[137]4901
  526. 10100 [139] sr[178]1 [167]6900
  527. 10101 [139] ce[179]2 [167] 6955
  528. 10102 [153]"on(NULL)ou're in the cell. (NULL)ou rush to
  529. 10103 print"[200]olmes' side and find that he is
  530. 10104 [153]"still alive.":[137]12000
  531. 10200 [139]sr[178]0 [167] 10350
  532. 10201 [139]sr[179][177]2 [167] [153]"on(NULL)ou're almost there.       ":[137] 4900
  533. 10202 sp[178]1:[141]62000:[153]"right$t's incredible! (NULL)ou're on peekaker
  534. 10203 print"[211]treet, standing near 221b.":game=1:goto4901
  535. 10205 goto6900
  536. 10250 ifty(sw)=3 or ty(sw)=4 then6920
  537. 10251 iftr=0 then 6900
  538. 10252 iflk=0 then print"[145][212]he troll's price has not been met.":goto4900
  539. 10253 print"[145][212]he melancholy troll quietly hands
  540. 10254 [153]"over the keys.":ky[178]1  :[137]4901
  541. 10300 [139]tr[178]0 [167] 6900
  542. 10301 [153]"onleft$e doesn't want money.":[137]4901
  543. 10305 [139] tr[178]0 [167] 6955
  544. 10306 [139] ty(sw)[179][177]3 [167] 6935
  545. 10307 lk[178]1:[153]"onleft$e looks at the picture and tears
  546. 10308 print"come to his eyes. [211]he was the only
  547. 10309 [153]"woman who ever loved him.":ni[178]ni[171]1:ty(sw)[178]4: [137] 4901
  548. 10350 tr[178]0:sr[178]0:  [153]"on(NULL)uch to your dismay, the wall has
  549. 10351 print"closed back up and can not be moved.
  550. 10352 [153]"peekut never fear - there is a way out.":[137]4901
  551. 10355 tr[178]0:sr[178]1:[153]"on(NULL)ou're at the foot of the stairs.":[137]4901
  552. 10370 [139]sp[178]1[167][137] 4800
  553. 10371 [153]"on(NULL)here's not enough time to go back
  554. 10372 print"the way you came. [212]he troll is
  555. 10373 [153]"getting impatient.":[137]4900
  556. 10375 sr[178]0: tr[178]0:[139]ce[178]0[167][153]"on(NULL)hat chain looks pretty strong.":[137]4901
  557. 10376 [139]ce[178]1[167][153]"on(NULL)he chain is off the cell door.":[137]4901
  558. 10377 [137]10102
  559. 10380 sr[178]0:  tr[178]1:[153]"on(NULL)ou're standing before the troll.": [137] 4901
  560. 10385 [139]sr[179][177]1 [167] 6955
  561. 10386 [153]"on(NULL)ou've reached the top and find a
  562. 10387 print"manhole cover. [194]eyond it, you hear
  563. 10388 [153]"street sounds. (NULL)ery encouraging.":[137]4902
  564. 10400 [139]tr[178]0 [167][153]"on(NULL)ou're too far away.         ":[137]4900
  565. 10401 [153]"on(NULL)here's no need for violence.":[137]4900
  566. 10405 [153]"on(NULL)ith what?               ":[137]4900
  567. 10450 [139]sr[178]1 [176]ce[177]0 [167] 10459
  568. 10451 [153]"on(NULL)ou see a cell with a locked chain
  569. 10452 print"around its bars. [201]nside is the barely
  570. 10453 [153]"conscious figure of (NULL)herlock left$olmes.
  571. 10454 print"[201]n a nearby corner sits a menacing
  572. 10455 [153]"troll. left$e has the keys to the cell,
  573. 10456 print"but you don't know his price. [217]ou also
  574. 10457 [153]"see a set of stairs reaching up out
  575. 10458 print"of sight.":goto4902
  576. 10459 ifce>0then print"[145][200]urry! [200]olmes is groaning for you.":goto4901
  577. 10460 print"[145][193]s you look up, you see a crack of
  578. 10461 [153]"light at the top. (NULL)ooks like a quick
  579. 10462 print"way out.":goto 4902
  580. 10550 ifce=0 then print"[145][212]he chain is still locked.":goto4900
  581. 10551 print"[145][212]he cell door is open.         ":ce=2: goto4900
  582. 10560 ifsr=0 then6900
  583. 10561 print"[145][212]he cover is now open and you may
  584. 10562 [153]"exit the dungeon.":sr[178]2: [137]4901
  585. 10600 [139]tr[178]0 [167] 6900
  586. 10601 [153]"on(NULL)ith what?              ":[137]4900
  587. 10650 [139]ty(sw)[179][177]3 [167] 6935
  588. 10651 [139]tr[179][177]1[167]  6900
  589. 10652 [153]"onleft$e's too quick for you. left$e's thrown
  590. 10653 print"[145]the keys away. [212]oo bad. [194]aker [211]t. "
  591. 10654 print"[145]will never be the same.":goto60000
  592. 10700 if ky=0 then6955
  593. 10702 print"[145][207][203], the chain is off the door.      ":ce=1:goto4901
  594. 10750 ifty(sw)<>3 then 6935
  595. 10751 iftr=1 then print"[145][200]e's really not such a bad fellow.":goto4900
  596. 10752 print"[145][201]t's too strong for that.      ":goto4901
  597. 10755 ifty(sw)<>3 then 6935
  598. 10756 iftr=0 then6900
  599. 10757 print"[145][212]he troll will throw the keys down a
  600. 10758 [153]"bottomless pit if you get any closer.":[137]4900
  601. 12000 sn[178]1:[139]tm[177]200 [167] 12600
  602. 12010 [139]tm[177]150 [167] 12700
  603. 12020 [139]tm[177]100 [167] 12800
  604. 12100 [143]
  605. 12105 [153]"(NULL)ou've done a marvelous job, (NULL)oby.
  606. 12110 print"[212]he world is grateful to you for
  607. 12115 [153]"rescuing (NULL)herlock left$olmes in time.
  608. 12130 if ty(h(1))=3 and ty(h(2))=3 andty(h(3))=3 then 12200
  609. 12131 if ty(h(1))=3 and ty(h(2))=3 then       12210
  610. 12132 if ty(h(1))=3  then  12220
  611. 12137 print"[212]oo bad you forgot his beloved pipe.
  612. 12138 [153]"peekut he'll surely recover anyway.":[137]60000
  613. 12200 [153]"atnnd you even remembered his pipe,
  614. 12201 print"tobacco and matches. [212]hese will make
  615. 12202 [153]"make his day. mid$ob well done. ":[137]60000
  616. 12210 [153]"(NULL)ou even remembered his pipe and
  617. 12211 print"tobacco. [193]las, you've dropped your
  618. 12212 [153]"matches. (NULL)erhaps the troll has some.":[137]60000
  619. 12220 [153]"(NULL)ou even remembered his pipe. atnlas,
  620. 12221 print"you brought no tobacco, but at least
  621. 12222 [153]"he has a familiar object to chew on.":[137]61000
  622. 12600 [153]"peekut, sad to say, you're too late.
  623. 12601 print"[200]olmes has suffered irreparable brain
  624. 12602 [153]"damage. (NULL)orry, young fellow, we know
  625. 12603 print"you did your best.":goto60000
  626. 12700 print"[194]ut, dear [212]oby, despite your best
  627. 12701 [153]"efforts, time has been your enemy.
  628. 12702 print"[212]he great detective is near death.
  629. 12703 [153]"left$e may eventually recover, but the
  630. 12704 print"prognosis is grim. [199]ood try, lad.":goto60000
  631. 12800 print"[212]oby, you're barely in time. [200]olmes'
  632. 12801 [153]"condition is perilous, but with (NULL)at-
  633. 12802 print"son's help, he should recover to lead
  634. 12803 [153]"a normal life.":[137]60000
  635. 20000 a$[178]"":b$[178]"":i$[178]"":[133]"(NULL)hat now";i$:le[178][195](i$)
  636. 20001 [153]:[153]
  637. 20002 [139]i$[178]"quit"[167]61000
  638. 20004 [139]i$[178]"hush"[167][141]41000:[137]20000
  639. 20006 [139]i$[178]"music"[167][141]40000:[137]20000
  640. 20010 [129]k[178]1[164]le:[139][202](i$,k,1)[178]" "[167]a$[178][200](i$,k[171]1):b$[178][201](i$,le[171]k):k[178]le
  641. 20020 [130] k
  642. 20030 [129]i[178]1[164]nv:[139]a$[179][177]a$(i) [167] [130]i
  643. 20040 [139]i[178]nv[170]1[167] [137]21000
  644. 20050 fw[178]i:i[178]nv:[130]i
  645. 20060 [129]j[178]1 [164]nm:[139]b$[179][177]b$(j)[167] [130]j
  646. 20070 [139]j[178]nm[170]1[167] [137]21000
  647. 20080 sw[178]j:j[178]nm:[130]j
  648. 20090 [143] printfw,sw :end
  649. 20200 [139]a$[178]"go"[175]b$[178]"list"[167]400
  650. 20210 [139]a$[178]"go"[175]b$[178]"rules"[167]300
  651. 20300 [139]a$[178]"drop" [167]t[178]type(sw):[137]20500
  652. 20310 [145] game[137]5000,3000,7000,9000
  653. 20500 [143] drop anal.
  654. 20510 [139]t[179][177]3 [167] [153]"on(NULL)ou don't have that item.":[137]20000
  655. 20520 [153]"on(NULL)ou no longer have ";b$;".":ni[178]ni[171]1:ty(sw)[178]4
  656. 20525 [139] b$[178]"money" [167] my[178]0
  657. 20530 [137] 20000
  658. 21000 [153]"onlenheck list and/or rules         on":[129]wa[178]1[164]800:[130]wa
  659. 21010 [153]"                             onon":[137] 20000
  660. 30000 [143] * * *  verb data * * *
  661. 30010 [131]ask,drop,enter,examine,exit
  662. 30020 [131]get,give,go,hit,look,open,push
  663. 30030 [131]throw,tie,unlock,use,walk,ev
  664. 30080 [143] * * *  modifier data * * *
  665. 30090 [131]221b,around,back,bookcase,butcher,cell,chain
  666. 30100 [131]cheapside,chest,cover,dog,door
  667. 30110 [131]drygoods,dungeon,hammer,hansom
  668. 30120 [131]holmes,keys,knife,left,list,locket
  669. 30130 [131]matches,meat,money,pipe,police
  670. 30140 [131]right,room,rope,rules
  671. 30150 [131]sewer,shoe,smokeshop,stairs,straight
  672. 30160 [131]tobacco,troll,tunnel
  673. 30170 [131]up,wall,watson,em
  674. 35000 [153]"(NULL)ake your printer ready and press space"
  675. 35001 [153]"   (NULL)r press '(NULL)' to cancel print":[151]198,0
  676. 35002 [161]t$:[139]t$[179][177]" "[175]t$[179][177]"q"[167]35002
  677. 35003 [139]t$[178]"q"[167][142]
  678. 35005 [159]1,4:[157]1
  679. 35010 [152]1,"verbs":[129] w[178]1 [164] nv:[152]1,a$(w);"  ";
  680. 35020 [139] w[173]6[178][181](w[173]6) [167] [152]1," "
  681. 35030 [130]w:[152]1," ":[152]1
  682. 35040 [152]1,"modifiers": [129]v[178]1 [164]nm:[152]1,b$(v);"  ";
  683. 35050 [139]v[173]6[178][181](v[173]6) [167] [152]1," "
  684. 35060 [130]v: [152]1," "
  685. 35070 [160]1:[142]
  686. 40000 [143]   turn music on
  687. 40010 [139][194](788)[178]49[167][153]"turn music on"
  688. 40020 [142]
  689. 41000 [143]   turn music off
  690. 41010 [139][194](788)[179][177]49[167][153]"turn music off"
  691. 41020 [142]
  692. 50000 [143] show shp
  693. 50005 [139]sn[179][177]1[167]ff$[178]"death.shp":[137]50007
  694. 50006 ff$[178]"holmes/win.shp"
  695. 50007 [139]lf[178]0[167]lf[178]1:[147]ff$,8,1
  696. 50008 lf[178]0
  697. 50010 [151]249,224:[151]250,204
  698. 50020 [151]251,0:[151]252,120
  699. 50030 [151]253,0:[151]254,0
  700. 50040 [158]51456:[158]51459
  701. 50050 [151]198,0:[146]198,1:[161]i$
  702. 50060 [158]51459
  703. 50070 [137]60010
  704. 50075 :
  705. 60000 [143]  return to loadstar
  706. 60005 [153][166]10)"(NULL)ress any key":[151]198,0:[146]198,1:[161]a$:[137]50000
  707. 60010 [153]"load(NULL)ould you like to try again?"
  708. 60020 [151]198,0:[146]198,1:[161]a$:[139]a$[179][177]"y"[175]a$[179][177]"n"[167]60020
  709. 60030 [139]a$[178]"y"[167][138]9
  710. 60040 [137]63000
  711. 61000 [143] quit for sure
  712. 61010 [153]"(NULL)uit for sure?"
  713. 61012 [151]198,0:[146]198,1:[161]a$:[139]a$[179][177]"y"[167]20000
  714. 61014 [137]63000
  715. 61020 :
  716. 62000 [143]   print "*"..."*"
  717. 62002 [153]"****************************************"
  718. 62004 [142]
  719. 63000 [159]15,8,15,"r0:hello connect=hello connect":[132]15,er:[160]15
  720. 63005 [151]56,160
  721. 63010 [139]er[179][177]63[167][128]
  722. 63020 [147]"hello connect",8
  723.