home *** CD-ROM | disk | FTP | other *** search
/ ittybittycomputers.com / www.ittybittycomputers.com.tar / www.ittybittycomputers.com / IttyBitty / TinyBasic / Advent.txt next >
Text File  |  2006-10-18  |  27KB  |  1,631 lines
  1. 100 REM TINY BASIC ADVENTURE GAME COPYRIGHT (C) 1981 T.PITTMAN
  2. 110 Z=276
  3. 180 V=16384
  4. 210 A=23001
  5. 220 B=-24575
  6. 230 C=3
  7. 240 D=25004
  8. 250 E=5
  9. 260 F=30006
  10. 270 G=7
  11. 280 H=8
  12. 290 I=9
  13. 300 J=26010
  14. 310 K=29011
  15. 320 L=30012
  16. 330 M=26013
  17. 340 N=14
  18. 350 O=15
  19. 360 P=16
  20. 370 Q=2129
  21. 380 R=14018
  22. 390 S=18019
  23. 400 T=26020
  24. 410 U=21
  25. 430 W=23
  26. 440 X=24
  27. 450 Y=15325
  28. 510 PR"WELCOME TO TINY ADVENTURE!"
  29. 520 PR"YOU ARE FREE TO WALK AROUND AND"
  30. 530 PR"LOOK AT WHAT YOU MAY SEE."
  31. 540 PR"THERE ARE OTHER INHABITANTS,"
  32. 550 PR"AND VARIOUS OBJECTS YOU CAN PICK UP"
  33. 560 PR"AND CARRY. YOU CAN ONLY HOLD ONE"
  34. 570 PR"THING AT A TIME IN YOUR HANDS,"
  35. 580 PR"BUT YOU CAN KEEP SEVERAL THINGS"
  36. 590 PR"IN YOUR KNAPSACK. BE CAREFUL AS YOU"
  37. 610 PR"GO FROM PLACE TO PLACE -- IT IS"
  38. 620 PR"EASY TO GET TURNED AROUND OR LOST."
  39. 630 PR
  40. 640 PR"I'M SLOW, BUT AFTER I TYPE '?',"
  41. 650 PR"YOU TELL ME WHAT YOU WANT TO DO."
  42. 660 PR"PLEASE TYPE ONLY THE FIRST LETTER"
  43. 670 PR"OF EACH IMPORTANT WORD, AND LEAVE"
  44. 680 PR"THE OTHER WORDS OUT."
  45. 690 PR
  46. 750 PR"FOR HINTS ON WHAT YOU CAN DO,"
  47. 760 PR"TYPE H (FOR HELP). HIT 'RETURN'"
  48. 770 PR"KEY TO ENTER YOUR SELECTION."
  49. 780 PR
  50. 790 PR"HAPPY HUNTING!"
  51. 880 PR"OK";
  52. 890 GOSUB1710
  53. 900
  54. 900 REM REMOVE TO HERE FOR MORE MEMORY SPACE
  55. 900
  56. 1000 REM DESCRIBE SURROUNDINGS
  57. 1000
  58. 1010 W=3023
  59. 1020 GOTO1060
  60. 1050 GOSUB1480
  61. 1060 PR"YOU ARE IN A ";
  62. 1070 U=N+7
  63. 1080 N=Y/1000*1000+14
  64. 1090 GOSUBN-4
  65. 1110 IFW<99GOTO1180
  66. 1120 X=Y-W/10+87
  67. 1130 IFX<NX=X+400
  68. 1140 GOSUBW/10+1208
  69. 1150 GOSUBX
  70. 1160 IFW>99GOTO1120
  71. 1165 GOSUBN+896
  72. 1170
  73. 1170 REM PROCESS DEMONS
  74. 1170
  75. 1180 IFN<23000IFB*V<0B=B-2
  76. 1185 IFV/8*B<0GOSUB6520
  77. 1190 IFT>14000GOSUB3610
  78. 1195 IFM>14000GOSUB7310
  79. 1200
  80. 1200 REM ACCEPT NEXT INPUT LINE
  81. 1200
  82. 1210 H=8
  83. 1230 P=16
  84. 1270 GOSUB1710
  85. 1280 IFX>0IFX<21GOTOX*500+1510
  86. 1290 GOTOV
  87. 1300
  88. 1300 REM PANORAMA SETUP & SMALL PRINTS
  89. 1300
  90. 1310 W=23
  91. 1320 PR"IN FRONT OF";
  92. 1330 GOTO1530
  93. 1340 PR"ON YOUR ";
  94. 1350 RETURN
  95. 1380 PR"FLOWERS BLOOM"
  96. 1390 RETURN
  97. 1410 W=4023
  98. 1420 GOSUB1340
  99. 1430 PR"LEFT ";
  100. 1440 RETURN
  101. 1450 PR"GO THRU WALL"
  102. 1460 RETURN
  103. 1480 IFB*8<0B=B-V/4
  104. 1490 RETURN
  105. 1510 W=2023
  106. 1520 PR"BEHIND";
  107. 1530 PR" YOU ";
  108. 1540 RETURN
  109. 1550 PR"OK";
  110. 1560 GOTO1870
  111. 1610 W=1023
  112. 1620 GOSUB1340
  113. 1630 PR"RIGHT ";
  114. 1640 RETURN
  115. 1650
  116. 1650 REM TEST END OF INPUT LINE (0= YES)
  117. 1650
  118. 1660   X=USR(Z,USR(Z,46))-13
  119. 1660   X=USR(Z,USR(Z,47))-13
  120. 1670 RETURN
  121. 1700
  122. 1700 REM INPUT SUBROUTINES
  123. 1700
  124. 1710   X=USR(Z+4,USR(Z,46),13)
  125. 1710   X=USR(Z+4,USR(Z,47),13)
  126. 1720 X=0
  127. 1730 INPUTX
  128. 1740 IFX=BX=2
  129. 1760 IFX<1GOTO1810
  130. 1770 IFX=YX=0
  131. 1780 X=X-X/1000*1000
  132. 1790 IFX<24RETURN
  133. 1810 PR"WHAT?"
  134. 1820 PR"CHOOSE FROM:"
  135. 1830 X=-1
  136. 1840 RETURN
  137. 1850
  138. 1850 REM INPUT YES/NO ANSWER
  139. 1850
  140. 1860 PR"YES NO"
  141. 1870 GOSUB1710
  142. 1880 IFX*(X-14)<>0GOTO1860
  143. 1890 RETURN
  144. 1910 PR"THERE IS NOTHING ";
  145. 1920 RETURN
  146. 1930 PR"ATTACK ";
  147. 1940 RETURN
  148. 1950 PR"YOU HAVE ";
  149. 1960 RETURN
  150. 1970 PR"IN YOUR HAND"
  151. 1980 RETURN
  152. 2000
  153. 2000 REM ATTACK PROCESSOR
  154. 2000
  155. 2010 GOSUB2340
  156. 2020 IFP>99GOTO2110
  157. 2030 X=1930
  158. 2040 GOTO4840
  159. 2060 IFH>99H=H+4000
  160. 2070 IFH/2000=11H=H+H/23000*1000-21000
  161. 2080 IFP=4916IFH>4000H=H-2000
  162. 2090 RETURN
  163. 2110 GOSUB1930
  164. 2120 GOSUBP/1000*20+12500
  165. 2130 PR"WITH ";
  166. 2140 GOSUB9770
  167. 2150 GOSUBH/50+12500
  168. 2160 GOSUB2060
  169. 2170 IFH<6000GOTO2210
  170. 2180 PR"IS SILLY"
  171. 2190 GOTO1210
  172. 2210 IFH>99IFP<>13116GOTO2250
  173. 2220 PR
  174. 2230 GOSUB1550
  175. 2240 IFX>0GOTO1210
  176. 2250 GOSUB2480
  177. 2260 X=P-P/1000*1000
  178. 2266 IFB*V<0X=X/2
  179. 2270 IFRND(H/5+99)>RND(X)GOTO2410
  180. 2280 IFP=20416IFRND(9)>6GOSUB4660
  181. 2285 IFH<99GOTO7070
  182. 2290 IFRND(9)>3GOTO7070
  183. 2310 GOSUB9610
  184. 2320 PR"YOU DROPPED WEAPON"
  185. 2330 GOTO1180
  186. 2340 P=16
  187. 2350 IFM+1=NP=13116
  188. 2360 IFD+10=NP=4516
  189. 2370 IFT=N+6P=20416
  190. 2380 IFD+10=NIFV/8*B<0P=4916
  191. 2390 RETURN
  192. 2410 GOSUBP/1000*10+13500
  193. 2420 PR
  194. 2430 GOTO1060
  195. 2480 IFY<28000IFY>23000IFV/8*B>0B=B+16
  196. 2490 RETURN
  197. 2500
  198. 2500 REM NO B
  199. 2500
  200. 2510 GOTOV
  201. 2700
  202. 2700 REM PRINT DIRECTION OF MOVE
  203. 2700
  204. 2710 P=P/1000
  205. 2720 IFN=25014P=25316
  206. 2730 IFN=23014P=23416
  207. 2740 IFP=28IFN=27014P=27116
  208. 2750 IFP=24P=N+202
  209. 2770 IFN/28000>0P=N+302-N/30000*100+P/30*300-P/29*200
  210. 2780 IFN=24014P=24316-P/25*100+P/26*200-P/27*300
  211. 2790 IFP/1000=24IFB*8<0P=24416-P/24200*100
  212. 2810 GOTO(Y-P+28491)/10
  213. 2820 GOTO1420
  214. 2830 GOTO1520
  215. 2840 GOTO1620
  216. 2850 GOTO1320
  217. 2860 GOTO1420
  218. 2870 GOTO1520
  219. 2880 GOTO1620
  220. 2900
  221. 2900 REM PRINT CHEST CONTENTS
  222. 2900
  223. 2910 IFX=128IFK=N-3X=1
  224. 2920 IFX<>1IFJ<>N-4GOTO2960
  225. 2930 PR"WITH ";
  226. 2940 IFX=1GOSUB12715
  227. 2945 IFJ=N-4GOSUB12695
  228. 2950 PR"IN IT ";
  229. 2960 PR"IS ";
  230. 2970 PR"OPEN ";
  231. 2980 IFX>0PR
  232. 2990 RETURN
  233. 3000
  234. 3000 REM OPEN/CLOSE PROCESSOR
  235. 3000
  236. 3010 GOSUB9310
  237. 3020 IFX=0GOTO9110
  238. 3025 IFH<0H=H+V+V
  239. 3030 X=X+H-H/2*2
  240. 3035 H=0
  241. 3040 IFX+X=0GOTO3150
  242. 3050 GOSUB1660
  243. 3060 IFX>0GOTO3080
  244. 3070 GOSUB9260
  245. 3075 PR"WHAT";
  246. 3080 GOSUB1720
  247. 3090 H=0
  248. 3110 IFX=4H=1024
  249. 3120 IFX=3H=256
  250. 3130 IFX=23H=1
  251. 3140 IFH=0GOTO9210
  252. 3150 GOSUBN+56
  253. 3160 IFH>0X=X/H*H
  254. 3170 IFH=256X=X-X/1024*1024
  255. 3180 IFH=1X=X-X/256*256
  256. 3190 IFX=0GOTO4610
  257. 3210 IFV/X*2*Q<0GOTO3340
  258. 3220 IFQ<0GOTO3250
  259. 3230 PR"ALREADY ";
  260. 3235 GOSUB3360
  261. 3240 GOTO4860
  262. 3250 IFX>256IFK<>1011GOTO3310
  263. 3255 IFX=512IFB*V>0GOTO3450
  264. 3260 Q=Q+X
  265. 3270 GOSUB3380
  266. 3280 GOTO7070
  267. 3310 GOSUB8390
  268. 3320 GOSUB3370
  269. 3330 GOTO1180
  270. 3340 IFQ<0GOTO3230
  271. 3350 Q=Q-X
  272. 3355 GOTO7070
  273. 3360 GOSUB9260
  274. 3370 IFQ>=0RETURN
  275. 3380 Q=Q+V+V
  276. 3390 RETURN
  277. 3410 X=8650
  278. 3420 GOTO4840
  279. 3450 GOSUB4910
  280. 3455 IFP<NGOTO3260
  281. 3460 PR"TROLL SEES YOU, CLOSES CHEST AGAIN"
  282. 3470 GOTO3320
  283. 3480 IFB*8>0B=B+V/4
  284. 3490 RETURN
  285. 3500
  286. 3500 REM DRINK PROCESSOR
  287. 3500
  288. 3510 IFF=1006IFB*256>0GOTO3550
  289. 3520 X=8610
  290. 3530 GOTO4840
  291. 3550 B=B+128
  292. 3560 IFB*V<0GOTO7070
  293. 3565 B=B+2
  294. 3570 GOSUB4920
  295. 3580 IFP>NIFM+1=NPR"MAIDEN LOOKS & GASPS"
  296. 3590 GOTO7070
  297. 3600
  298. 3600 REM TROLL PROCESSOR
  299. 3600
  300. 3610 GOSUB4910
  301. 3620 IFK+9<>TGOTO3650
  302. 3630 K=13011
  303. 3640 IFP>NPR"TROLL TAKES KEYS"
  304. 3650 IFM+7=TGOTO5810
  305. 3660 X=T
  306. 3670 P=8016
  307. 3680 IFM=1013P=2016
  308. 3690 GOSUB4040
  309. 3710 GOSUB4920
  310. 3720 IFP<NGOTO3850
  311. 3730 IFX=TGOTO3880
  312. 3740 IFX-6=NGOTO3810
  313. 3750 IFT-6<>NGOTO3850
  314. 3760 P=X
  315. 3770 GOSUB8630
  316. 3780 GOSUB2710
  317. 3785 PR
  318. 3790 GOTO3850
  319. 3810 P=T
  320. 3820 GOSUB2710
  321. 3830 PR"TROLL ENTERS"
  322. 3850 T=X
  323. 3860 RETURN
  324. 3880 IFT-6=NPR"TROLL SCOWLS"
  325. 3890 RETURN
  326. 3930
  327. 3930 REM ROTATE DIRECTION RANDOMLY
  328. 3930
  329. 3950 GOSUB1480
  330. 3960 Y=N+111+RND(4)*100
  331. 3990 GOTO1060
  332. 4000
  333. 4000 REM NO E
  334. 4000
  335. 4010 GOTOV
  336. 4030
  337. 4030 REM CHANGE ROOM FOR TROLL
  338. 4030
  339. 4040 IFRND(9999)>PRETURN
  340. 4050 GOTO4410-X/100
  341. 4060 GOTO4290+X/100
  342. 4080 X=26020
  343. 4090 RETURN
  344. 4110 GOTO4220
  345. 4120 GOTO4210
  346. 4130 GOTORND(3)*20+4420
  347. 4140 GOTORND(2)*20+4220
  348. 4150 IFQ*4>0GOTO4250
  349. 4160 GOTO4180
  350. 4170 GOTORND(4)*20+4320
  351. 4180 X=24020
  352. 4190 RETURN
  353. 4210 IFQ*16>0IFK<>13011RETURN
  354. 4220 X=28020
  355. 4230 RETURN
  356. 4240 IFQ*8<0GOTO4180
  357. 4250 IFK=13011GOTO4180
  358. 4260 RETURN
  359. 4320 X=23020
  360. 4330 RETURN
  361. 4340 X=25020
  362. 4350 RETURN
  363. 4360 IFQ*4>0IFK<>13011RETURN
  364. 4370 GOTO4080
  365. 4380 IFQ*8>0IFK<>13011RETURN
  366. 4420 X=27020
  367. 4430 RETURN
  368. 4440 X=30020
  369. 4450 RETURN
  370. 4460 IFQ*16>0IFK<>13011RETURN
  371. 4470 X=29020
  372. 4480 RETURN
  373. 4500
  374. 4500 REM NO F
  375. 4500
  376. 4510 GOTOV
  377. 4520 GOTO4180
  378. 4530 GOTO4360
  379. 4540 GOTO4180
  380. 4550 RETURN
  381. 4560 GOTO4240
  382. 4570 GOTO4420
  383. 4580 GOTO4210
  384. 4590 GOTO4220
  385. 4600
  386. 4600 REM TROLL DUMPS KNAPSACK
  387. 4600
  388. 4610 X=1670
  389. 4620 GOTO4840
  390. 4630 GOSUB4920
  391. 4640 IFP<NGOTO20110
  392. 4650 GOTOX
  393. 4660 PR"HE HITS YOU"
  394. 4670 GOSUB6210
  395. 4680 IFX=0PR"& SPILLS KNAPSACK"
  396. 4690 P=2016
  397. 4695 IFM=P-3M=N-1
  398. 4710 IFA=P-15A=N-13
  399. 4720 IFF=P-10F=N-8
  400. 4730 IFJ=P-6J=N-4
  401. 4740 IFK=P-5K=N-3
  402. 4750 IFL=P-4L=N-2
  403. 4760 IFR=P+2R=N+4
  404. 4770 IFS=P+3S=N+5
  405. 4790 RETURN
  406. 4800
  407. 4800 REM NO CAN DO
  408. 4800
  409. 4810 X=8390
  410. 4820 GOTO4840
  411. 4830 GOSUB3480
  412. 4840 GOSUB7160
  413. 4850 GOSUBX
  414. 4860 PR
  415. 4870 GOTO1210
  416. 4880 GOSUB1480
  417. 4890 GOTO4840
  418. 4900
  419. 4900 REM CHECK IF LIGHT ENOUGH TO SEE
  420. 4900
  421. 4910 IFT-6<>NGOTO4970
  422. 4920 P=N+2
  423. 4930 IFL+2=NRETURN
  424. 4940 IFL=1012RETURN
  425. 4950 IFN<24000IFN<>20014RETURN
  426. 4960 IFN>28000RETURN
  427. 4970 P=13016
  428. 4990 RETURN
  429. 5000
  430. 5000 REM GO PROCESSOR
  431. 5000
  432. 5010 W=1023
  433. 5020 GOSUB1660
  434. 5025 IFX=0PR"GO WHERE";
  435. 5030 GOSUB1720
  436. 5035 IFX>=0GOSUBX*10+5100
  437. 5040 IFX<0GOTO5060
  438. 5045 X=X+N
  439. 5050 IFX<N+500Y=X-15
  440. 5055 GOTOX
  441. 5060 X=0
  442. 5065 GOSUBN+26
  443. 5070 GOSUB5620
  444. 5075 PR
  445. 5080 PR"COMMAND";
  446. 5090 GOTO1210
  447. 5100 REM
  448. 5110 GOTO1810
  449. 5120 X=Y-N-185
  450. 5125 GOTO5350
  451. 5130 GOTO1810
  452. 5140 X=626
  453. 5145 RETURN
  454. 5150 X=226
  455. 5155 RETURN
  456. 5160 X=Y-N+15
  457. 5165 GOTO5350
  458. 5170 GOTO1810
  459. 5180 GOTO1820
  460. 5190 REM
  461. 5200 REM
  462. 5210 GOTO1810
  463. 5220 X=Y-N-85
  464. 5225 GOTO5350
  465. 5230 GOTO1810
  466. 5240 X=126
  467. 5245 RETURN
  468. 5250 REM
  469. 5260 REM
  470. 5270 GOTO1810
  471. 5280 X=Y-N-285
  472. 5285 GOTO5350
  473. 5290 X=326
  474. 5295 RETURN
  475. 5300 GOTO1810
  476. 5310 X=526
  477. 5315 RETURN
  478. 5320 GOTO1810
  479. 5330 X=426
  480. 5335 RETURN
  481. 5350 IFX<99X=X+400
  482. 5360 RETURN
  483. 5500
  484. 5500 REM HELP PROCESSOR
  485. 5500
  486. 5510 GOSUB1820
  487. 5520 GOTO13110
  488. 5600
  489. 5600 REM PRINT AVAILABLE DIRECTIONS
  490. 5600
  491. 5610 IFX*32<0PR"OFF ";
  492. 5620 IFX*1024<0PR"UP ";
  493. 5630 IFX*512<0PR"DOWN ";
  494. 5670 IFX<0RETURN
  495. 5680 X=(X-X/32*32)*17
  496. 5690 GOTO(Y-N)/10+5699
  497. 5710 X=X+X
  498. 5720 X=X+X
  499. 5730 X=X+X
  500. 5740 IFV/8*X<0PR"FORWARD ";
  501. 5750 IFX*512<0PR"BACK ";
  502. 5760 IFX*256<0PR"LEFT ";
  503. 5770 IFX*1024<0PR"RIGHT";
  504. 5780 PR
  505. 5790 RETURN
  506. 5800
  507. 5800 REM CONTINUING TROLL PROCESSOR
  508. 5800
  509. 5810 X=T
  510. 5815 IFP<NGOTO5850
  511. 5820 IFB*64<0GOTO5850
  512. 5825 B=B+512
  513. 5830 GOSUB12895
  514. 5835 PR"OBVIOUSLY DOMINATES ";
  515. 5840 GOSUB12755
  516. 5845 PR
  517. 5850 GOSUB4060
  518. 5860 IFX=TIFP>NGOTO3880
  519. 5870 IFX-6=NRETURN
  520. 5880 T=X
  521. 5890 IFP<NGOTO5980
  522. 5910 GOSUB8630
  523. 5920 P=T
  524. 5930 GOSUB2710
  525. 5940 IFRND(9)<3GOTO7270
  526. 5970 PR"WITH MAIDEN"
  527. 5980 M=T-7
  528. 5990 RETURN
  529. 6000
  530. 6000 REM INVENTORY PROCESSOR
  531. 6000
  532. 6010 GOSUB1950
  533. 6030 GOSUB6440
  534. 6040 PR"KEPT"
  535. 6050 GOSUB9770
  536. 6060 IFH<99GOTO6130
  537. 6070 GOSUB1950
  538. 6080 IFH=13008H=8008
  539. 6110 GOSUBH/50+12495
  540. 6120 GOTO6140
  541. 6130 GOSUB1910
  542. 6140 GOSUB1970
  543. 6160 GOTO1060
  544. 6200
  545. 6200 REM TEST KNAPSACK/ROOM EMPTY
  546. 6200
  547. 6210 X=(A/1000-2)*(F/1000-2)*(J/1000-2)*(K/1000-2)
  548. 6220 X=(L/1000-2)*(R/1000-2)*(S/1000-2)*X
  549. 6230 RETURN
  550. 6240 X=0
  551. 6250 IFN<>A+13IFN<>F+8IFN<>J+4IFN<>K+3X=M
  552. 6260 IFN<>L+2IFN<>R-4IFN<>S-5IFX=MRETURN
  553. 6270 X=0
  554. 6280 RETURN
  555. 6440 GOSUB6210
  556. 6450 P=2016
  557. 6460 IFX=0GOTO13810
  558. 6480 PR"NOTHING ";
  559. 6490 RETURN
  560. 6500
  561. 6500 REM DRAGON PROCESSOR
  562. 6500
  563. 6510 GOTOV
  564. 6520 X=D
  565. 6525 IFF-2=DIFB*256<0B=B-128
  566. 6530 IFD<25000IFRND(9)>3D=D+1000
  567. 6540 IFD>24000IFRND(9)>5D=D-1000
  568. 6550 GOSUB4920
  569. 6560 IFX=DGOTO6790
  570. 6580 IFP<NGOTO6930
  571. 6590 IFD+10=NGOTO6660
  572. 6610 IFX+10<>NGOTO6960
  573. 6620 PR"DRAGON EXITS ";
  574. 6630 P=D
  575. 6640 GOSUB2710
  576. 6650 GOTO6950
  577. 6660 GOSUB12575
  578. 6670 PR"ENTERS ";
  579. 6680 P=X
  580. 6690 GOSUB2710
  581. 6710 PR
  582. 6720 IFM+1=NGOTO7230
  583. 6730 IFM<>1013GOTO6960
  584. 6740 PR"THE ";
  585. 6750 GOSUB12660
  586. 6760 PR"TURNS COLD"
  587. 6770 RETURN
  588. 6790 IFD+10<>NGOTO6910
  589. 6810 IFP<NGOTO6880
  590. 6820 GOSUB12575
  591. 6830 PR"FILLS YOUR VIEW"
  592. 6840 IFV/8*B>0PR"IT SLEEPS"
  593. 6850 IFM+1<>NGOTO6730
  594. 6860 PR"MAIDEN SOBS"
  595. 6870 RETURN
  596. 6880 PR"YOU HEAR BREATHING"
  597. 6890 RETURN
  598. 6910 IFD=25004IFRND(9)>6B=B-16
  599. 6920 RETURN
  600. 6930 IFD+10<>NIFX+10<>NGOTO6960
  601. 6940 PR"YOU HEAR SCUFFLING";
  602. 6950 PR
  603. 6960 IFD+9=MIFM+7<>TGOTO7210
  604. 6960 RETURN
  605. 7000
  606. 7000 REM KEEP PROCESSOR (NO LIMIT)
  607. 7000
  608. 7010 GOSUB9770
  609. 7020 IFH<999GOTO6130
  610. 7030 IFH=13008GOTO7110
  611. 7040 P=2016
  612. 7050 GOSUB9680
  613. 7070 PR"OK"
  614. 7090 GOTO1180
  615. 7110 GOSUB7160
  616. 7120 GOSUB7180
  617. 7130 GOSUB12655
  618. 7140 PR
  619. 7150 GOTO1210
  620. 7160 PR"CAN'T ";
  621. 7170 RETURN
  622. 7180 PR"KEEP ";
  623. 7190 RETURN
  624. 7200
  625. 7200 REM MAIDEN PROCESSOR
  626. 7200
  627. 7210 IFN<22000RETURN
  628. 7220 IFN>28000RETURN
  629. 7230 PR"A SCREAM ";
  630. 7240 IFM+1=NGOTO7280
  631. 7250 PR"ECHOS ";
  632. 7260 GOSUB8020
  633. 7270 PR
  634. 7275 RETURN
  635. 7280 PR"PIERCES AIR"
  636. 7290 RETURN
  637. 7310 GOSUB4920
  638. 7320 IFB*V<0GOTO7380
  639. 7330 IFM+8=UIFN+7<>UIFM+7<>TIFRND(N/3)<P/4GOTO7345
  640. 7335 IFM+1=NGOTO7360
  641. 7340 RETURN
  642. 7345 M=N-1
  643. 7350 PR"YOU HEAR FOOTSTEPS"
  644. 7360 IFP>NPR"MAIDEN HOLDS OUT HAND"
  645. 7370 RETURN
  646. 7380 IFM+1=NIFP>NPR"MAIDEN DOES NOT SEE YOU"
  647. 7390 RETURN
  648. 7500
  649. 7500 REM LOOK PROCESSOR
  650. 7500
  651. 7510 GOSUB1660
  652. 7520 IFX=0PR"LOOK WHERE";
  653. 7530 GOSUB1720
  654. 7540 IFX>=0GOTOX*10+7600
  655. 7550 X=126
  656. 7555 GOSUB5620
  657. 7560 GOTO5080
  658. 7600 GOSUB1810
  659. 7605 GOTO7550
  660. 7610 GOTO1010
  661. 7620 Y=Y-200
  662. 7625 GOTO7655
  663. 7630 GOTO7600
  664. 7640 GOSUBN+596
  665. 7645 GOTO1180
  666. 7650 Y=N+211
  667. 7655 IFY<N+100Y=Y+400
  668. 7660 W=1023
  669. 7665 GOTO1060
  670. 7670 REM
  671. 7680 REM
  672. 7690 REM
  673. 7700 REM
  674. 7710 GOTO7600
  675. 7720 Y=Y-100
  676. 7725 GOTO7655
  677. 7730 GOTO7600
  678. 7740 Y=N+111
  679. 7745 GOTO7660
  680. 7750 REM
  681. 7760 REM
  682. 7770 GOTO7600
  683. 7780 Y=Y-300
  684. 7785 GOTO7655
  685. 7790 Y=N+311
  686. 7795 GOTO7660
  687. 7800 GOTO7600
  688. 7810 GOSUBN+496
  689. 7815 GOTO1180
  690. 7820 GOTO7600
  691. 7830 Y=N+411
  692. 7835 GOTO7660
  693. 8000
  694. 8000 REM SMALL PRINTS
  695. 8000
  696. 8010 GOTOV
  697. 8020 PR"IN THE DISTANCE ";
  698. 8030 RETURN
  699. 8040 PR"A BOAT IS ";
  700. 8045 PR"BEACHED"
  701. 8050 RETURN
  702. 8060 PR"YOU FELL INTO ";
  703. 8070 RETURN
  704. 8080 PR"A WATERFALL"
  705. 8090 RETURN
  706. 8100 PR"A STEEP BLUFF "
  707. 8110 RETURN
  708. 8370 PR"DARK ROOM"
  709. 8380 RETURN
  710. 8390 PR"IT IS LOCKED"
  711. 8400 RETURN
  712. 8500
  713. 8500 REM NO N
  714. 8500
  715. 8510 GOTOV
  716. 8520 GOSUB4920
  717. 8530 IFP<NGOTO20110
  718. 8540 IFX=0GOTO23110
  719. 8550 X=X-V-V
  720. 8560 PR"A CORRIDOR LEADS ";
  721. 8570 GOSUB5610
  722. 8580 PR"INTO THE GLOOM"
  723. 8590 RETURN
  724. 8610 PR"DRINK ";
  725. 8620 RETURN
  726. 8630 PR"TROLL EXITS ";
  727. 8640 RETURN
  728. 8650 PR"FLY"
  729. 8660 RETURN
  730. 8710 PR"SWIM"
  731. 8720 RETURN
  732. 8730 PR"DANK";
  733. 8740 RETURN
  734. 8750 PR"MISTY";
  735. 8760 RETURN
  736. 8770 PR"SOOTY";
  737. 8780 RETURN
  738. 8790 PR"PLAIN";
  739. 8800 RETURN
  740. 8810 PR"DINGY";
  741. 8820 RETURN
  742. 8830 PR"HANDS FULL"
  743. 8840 RETURN
  744. 8950
  745. 8950 REM WALL DESCRIPTOR
  746. 8950
  747. 8960 PR"IS A ";
  748. 8970 GOSUBX
  749. 8980 PR" WALL"
  750.  
  751. 8990 RETURN
  752. 9000
  753. 9000 REM OPEN PROCESSOR
  754. 9000
  755. 9010 GOSUB3380
  756. 9020 GOTO3010
  757. 9110 X=3360
  758. 9150 GOTO4840
  759. 9210 PR"ONLY ";
  760. 9220 GOSUB9260
  761. 9230 PR"DOOR WINDOW CHEST"
  762. 9240 GOSUB3370
  763. 9250 GOTO5080
  764. 9260 X=0
  765. 9270 IFQ<0GOTO2970
  766. 9280 PR"CLOSE ";
  767. 9290 RETURN
  768. 9310 X=0
  769. 9320 GOSUBN+56
  770. 9325 X=X+X
  771. 9330 H=Q+Q
  772. 9340 IFQ<0H=-H
  773. 9350 H=H+H
  774. 9355 IFX<0H=H+1
  775. 9360 IFH/4*4<>HIFX>0H=H+1
  776. 9365 X=X+X
  777. 9370 IFX>0GOTO9350
  778. 9380 IFH>0IFX<0GOTO9350
  779. 9390 RETURN
  780. 9500
  781. 9500 REM PUT PROCESSOR
  782. 9500
  783. 9510 GOSUB9770
  784. 9520 IFH<99GOTO6130
  785. 9530 GOSUB9660
  786. 9540 GOTO7070
  787. 9600
  788. 9600 REM RELEASE HELD OBJECT
  789. 9600
  790. 9610 GOSUB9770
  791. 9660 P=N+2
  792. 9670 IFH<99RETURN
  793. 9680 GOTOH/50+10100
  794. 9700
  795. 9700 REM GET IN HAND
  796. 9700
  797. 9770 H=8
  798. 9810 IFA=1001H=1008
  799. 9820 IFF=1006H=6008
  800. 9830 IFJ=1010H=10008
  801. 9840 IFK=1011H=11008
  802. 9850 IFL=1012H=12008
  803. 9860 IFM=1013H=13008
  804. 9870 IFR=1018H=18008
  805. 9880 IFS=1019H=19008
  806. 9890 RETURN
  807. 10000
  808. 10000 REM NO Q
  809. 10000
  810. 10010 GOTOV
  811. 10100
  812. 10100 REM MOVE AN OBJECT
  813. 10100
  814. 10120 A=P-15
  815. 10125 RETURN
  816. 10220 F=P-10
  817. 10225 RETURN
  818. 10300 J=P-6
  819. 10305 RETURN
  820. 10320 K=P-5
  821. 10325 RETURN
  822. 10340 L=P-4
  823. 10345 RETURN
  824. 10360 M=P-3
  825. 10365 RETURN
  826. 10460 R=P+2
  827. 10465 RETURN
  828. 10480 S=P+3
  829. 10485 RETURN
  830. 10500
  831. 10500 REM NO R
  832. 10500
  833. 10510 GOTOV
  834. 11000
  835. 11000 REM NO S
  836. 11000
  837. 11010 GOTOV
  838. 11500
  839. 11500 REM TAKE PROCESSOR
  840. 11500
  841. 11510 GOSUB9770
  842. 11520 X=8830
  843. 11550 IFH>99GOTO4840
  844. 11560 GOSUB1660
  845. 11570 IFX=0PR"TAKE WHAT";
  846. 11580 GOSUB1720
  847. 11585 P=1016
  848. 11590 IFX>0IFX<20GOSUBX*20+12100
  849. 11600 IFX>0IFX<20GOTO7070
  850. 11610 PR"CAN TAKE:"
  851. 11615 P=2016
  852. 11620 GOSUB13810
  853. 11630 PR
  854. 11640 GOSUB13780
  855. 11660 GOTO5075
  856. 12120 IFA<>2001IFA+13<>NGOTO6270
  857. 12125 GOTO10120
  858. 12140 REM
  859. 12160 REM
  860. 12180 REM
  861. 12200 GOTO6270
  862. 12220 IFF<>2006IFF+8<>NGOTO6270
  863. 12225 GOTO10220
  864. 12240 GOTO6270
  865. 12260 GOTO12360
  866. 12280 GOTO6270
  867. 12300 IFJ<>2010IFJ+4<>NGOTO6270
  868. 12305 IFJ=26010IFQ*64>0GOTO6270
  869. 12310 IFJ=29010IFQ*128>0GOTO6270
  870. 12315 GOTO10300
  871. 12320 IFK<>2011IFK+3<>NGOTO6270
  872. 12325 IFK=29011IFQ*128>0GOTO6270
  873. 12330 GOTO10320
  874. 12340 IFL<>2012IFL+2<>NGOTO6270
  875. 12345 GOTO10340
  876. 12360 IFM<>2099IFM+1<>NGOTO6270
  877. 12365 GOTO10360
  878. 12380 REM
  879. 12400 REM
  880. 12420 REM
  881. 12440 GOTO6270
  882. 12460 IFR<>2018IFR-4<>NGOTO6270
  883. 12465 GOTO10460
  884. 12480 IFS<>2019IFS-5<>NGOTO6270
  885. 12485 GOTO10480
  886. 12490
  887. 12490 REM PRINT OBJECT NAME
  888. 12490
  889. 12495 PR"YOUR ";
  890. 12500 PR"BARE HANDS ";
  891. 12505 RETURN
  892. 12515 PR"AN ";
  893. 12520 PR"AXE ";
  894. 12525 RETURN
  895. 12555 PR"A ";
  896. 12560 PR"CHEST "; 
  897. 12565 RETURN 
  898. 12575 PR"A HUGE "; 
  899. 12580 PR"DRAGON "; 
  900. 12585 RETURN 
  901. 12615 GOSUB12630 
  902. 12620 PR"FLASK "; 
  903. 12625 RETURN 
  904. 12630 PR"A"; 
  905. 12635 IFB*256<OPR"N EMPTY";
  906. 12640 PR" "; 
  907. 12645 RETURN 
  908. 12655 PR"A "; 
  909. 12660 PR"FAIR MAIDEN'S HAND "; 
  910. 12665 RETURN 
  911. 12695 PR"SOME "; 
  912. 12700 PR"JEWELS "; 
  913. 12705 RETURN 
  914. 12715 PR"SOME "; 
  915. 12720 PR"KEYS "; 
  916. 12725 RETURN 
  917. 12735 PR"A "; 
  918. 12740 PR"LANTERN "; 
  919. 12745 RETURN 
  920. 12755 PR"A FAIR "; 
  921. 12760 PR"MAIDEN ";
  922. 12765 RETURN 
  923. 12775 PR"A "; 
  924. 12780 PR"MIRROR "; 
  925. 12785 RETURN
  926. 12855 PR"A "; 
  927. 12860 PR"ROCK "; 
  928. 12865 RETURN 
  929. 12875 PR"A "; 
  930. 12880 PR"SWORD "; 
  931. 12885 RETURN 
  932. 12895 PR"AN EVIL "; 
  933. 12900 PR"TROLL ";
  934. 12905 RETURN 
  935. 12955 PR"A "; 
  936. 12960 PR"WINDOW "; 
  937. 12965 RETURN
  938. 13080 
  939. 13080 REM HELP COMMAND
  940. 13080
  941. 13090 IFX>0GOSUB1810 
  942. 13110 GOSUB4920
  943. 13115 IFP<NGOTO13180 
  944. 13120 GOSUB2340 
  945. 13125 IFP>99GOSUB1930 
  946. 13160 GOSUB9310 
  947. 13170 IFH<0IFX<0GOSUB9270 
  948. 13180 IFF=1006IFB*256>0GOSUB8610
  949. 13190 PR"GO HELP INVENTORY "; 
  950. 13210 GOSUB4920 
  951. 13220 IFP<NGOTO13280
  952. 13230 PR"LOOK "; 
  953. 13240 GOSUB3380 
  954. 13250 GOSUB9310 
  955. 13260 GOSUB3380
  956. 13270 IFH<0IFX<0GOSUB2970 
  957. 13280 GOSUB9770 
  958. 13290 IFH<99GOTO13340
  959. 13310 IFH<>13008GOSUB7180 
  960. 13320 PR"PUTDOWN" 
  961. 13330 GOTO1210
  962. 13340 GOSUB6210 
  963. 13350 IFX=0GOTO13380 
  964. 13360 GOSUB6240 
  965. 13370 IFX>0IFX<>N-1GOTO4860
  966. 13380 PR"TAKE" 
  967. 13390 GOTO1210 
  968. 13500 
  969. 13500 REM DESTROY AN OBJECT (D,M,T) 
  970. 13500 
  971. 13510 PR"YOU KILLED THE "; 
  972. 13520 RETURN 
  973. 13540 IFV/8*B<0B=B-16 
  974. 13600 D=13004 
  975. 13610 GOSUB13510 
  976. 13620 GOTO12580 
  977. 13630 M=13013 
  978. 13680 GOSUB13510 
  979. 13690 GOTO12760 
  980. 13700 T=13020 
  981. 13710 GOSUB13510
  982. 13720 IFK=13011K=N-3 
  983. 13730 GOTO12900 
  984. 13740 
  985. 13740 REM LIST OBJECTS 
  986. 13740
  987. 13745 PR"NEARBY IS "; 
  988. 13750 GOSUB13770 
  989. 13760 GOTO7270 
  990. 13770 X=-5 
  991. 13780 P=N+2 
  992. 13790 GOTO13820 
  993. 13810 IFP>NGOTO13770 
  994. 13815 X=0 
  995. 13820 IFA+15=PGOSUBX+12520
  996. 13830 IFF+10=PGOSUBX+12620 
  997. 13840 IFJ+6<>PGOTO13910
  998. 13850 IFP<>26016IFP<>29016GOTO13890 
  999. 13860 IFX=0IF(P/29000+1)*64*Q<0GOTO13890
  1000. 13870 GOTO13910 
  1001. 13890 GOSUBX+12700 
  1002. 13910 IFK+5<>PGOTO13960 
  1003. 13920 IFP<>29016GOTO13950 
  1004. 13930 IFX=0IFQ*128<0GOTO13950 
  1005. 13940 GOTO13960
  1006. 13950 GOSUBX+12720 
  1007. 13960 IFL+4=PGOSUBX+12740 
  1008. 13970 IFR-2=PGOSUBX+12860
  1009. 13980 IFS-3=PGOTOX+12880 
  1010. 13990 RETURN 
  1011. 14000 
  1012. 14000 REM THE STREAM IN A RAVINE
  1013. 14000 
  1014. 14010 PR"RAVINE"
  1015. 14020 PR"A BROOK AT YOUR FEET"
  1016. 14030 RETURN
  1017. 14040 X=254
  1018. 14070 RETURN
  1019. 14110 IFB*8<0GOSUB8020
  1020. 14115 GOSUB8080
  1021. 14120 PR"CRASHES DOWN ";
  1022. 14130 GOTO16110
  1023. 14140 IFB*8<0GOTO1050
  1024. 14145 GOSUB8060
  1025. 14150 PR"A CREVICE BEHIND ";
  1026. 14160 GOSUB8080
  1027. 14170 Y=25225
  1028. 14180 GOSUB2480
  1029. 14185 PR"YOU TUMBLE FAR"
  1030. 14190 GOTO1060
  1031. 14210 PR"IS A ";
  1032. 14220 GOTO18010
  1033. 14240 Y=18225
  1034. 14250 GOTO1050
  1035. 14310 IFB*8>0GOSUB8020
  1036. 14315 IFB*4>0GOSUB8040
  1037. 14320 IFB*4>0PR"WHERE ";
  1038. 14325 PR"STREAM MEETS SEA"
  1039. 14330 RETURN
  1040. 14340 IFB*8>0GOTO15470
  1041. 14350 IFB*4<0GOTO21640
  1042. 14360 Y=21325
  1043. 14370 GOTO1050
  1044. 14410 PR"IS A ";
  1045. 14420 GOTO15010
  1046. 14440 Y=15425
  1047. 14450 GOTO1050
  1048. 14510 GOTO14110
  1049. 14540 Y=14125
  1050. 14550 GOTO14140
  1051. 14610 PR"THERE ARE ROCKS"
  1052. 14620 RETURN
  1053. 14640 Y=14325
  1054. 14650 GOTO14340
  1055. 14910 GOSUB6240
  1056. 14920 IFX>0RETURN
  1057. 14930 GOTO13745 
  1058. 15000 
  1059. 15000 REM INITIAL POSITION IN MEADOW
  1060. 15000
  1061. 15010 PR"MEADOW"
  1062. 15040 X=30
  1063. 15050 IFB*8<0X=14
  1064. 15070 RETURN
  1065. 15110 GOSUB16110
  1066. 15120 PR"SHIMMER ";
  1067. 15130 GOTO7260
  1068. 15140 Y=16125
  1069. 15150 GOTO1060
  1070. 15210 PR"SOUNDS RUNNING WATER"
  1071. 15220 RETURN
  1072. 15240 IFB*8>0Y=14225
  1073. 15250 GOTO1050
  1074. 15310 GOTO1380
  1075. 15340 Y=17325
  1076. 15350 GOTO1060
  1077. 15410 IFB*8>0GOSUB8020
  1078. 15420 PR"IS A COTTAGE"
  1079. 15430 RETURN
  1080. 15440 IF B*8<0GOTO23140
  1081. 15470 GOSUB3480
  1082. 15490 GOTO1060
  1083. 15510 PR"FLEECY CLOUDS IN BLUE SKY"
  1084. 15530 RETURN
  1085. 15540 GOTO3410
  1086. 15610 GOSUB6240
  1087. 15615 IFX>0GOTO1380
  1088. 15620 PR"HIDDEN IN GRASS:";
  1089. 15630 GOTO22625
  1090. 15640 GOTO4610
  1091. 15910 RETURN
  1092. 16000
  1093. 16000 REM NORTH MEADOW
  1094. 16000
  1095. 16010 GOTO15010
  1096. 16040 X=12
  1097. 16045 IFB*8<0X=14
  1098. 16050 IFV/2*Q>0X=X-X/14*8
  1099. 16060 RETURN
  1100. 16070 IFB*8<0X=4
  1101. 16090 RETURN
  1102. 16100 PR"CLIMB ";
  1103. 16110 PR"SHEER CLIFFS"
  1104. 16120 RETURN
  1105. 16140 X=16100
  1106. 16155 IFB*8<0GOTO1050
  1107. 16160 GOTO4840
  1108. 16210 GOTO1380
  1109. 16240 Y=15225
  1110. 16250 GOTO1060
  1111. 16310 GOSUB15410
  1112. 16320 GOTO29110
  1113. 16340 IFB*8>0GOTO15470
  1114. 16360 IFV/2*Q>0GOTO23140
  1115. 16370 Y=29325
  1116. 16380 GOTO1050
  1117. 16384 GOTO13090
  1118. 16390 PR"ENTER ";
  1119. 16410 PR"A THICK HEDGE"
  1120. 16430 RETURN
  1121. 16440 X=16390
  1122. 16460 GOTO4840
  1123. 16510 GOTO15510
  1124. 16540 GOTO3410
  1125. 16610 GOTO15610
  1126. 16640 GOTO4610
  1127. 16910 RETURN
  1128. 17000
  1129. 17000 REM SOUTH MEADOW
  1130. 17000
  1131. 17010 GOTO15010
  1132. 17040 X=6
  1133. 17050 IFB*8<0X=14
  1134. 17055 IFQ*1024>0X=X-X/7
  1135. 17060 RETURN
  1136. 17070 IFB*8<0X=1024
  1137. 17080 RETURN
  1138. 17110 GOSUB15410
  1139. 17120 GOTO30310
  1140. 17140 IFB*8>0GOTO15470
  1141. 17160 IFQ*32>0GOTO4810
  1142. 17170 Y=30125
  1143. 17180 GOTO1050
  1144. 17210 GOTO1380
  1145. 17240 GOTO16240
  1146. 17310 PR"A BLUFF OVERLOOKS SEA"
  1147. 17315 IFB*4>0RETURN
  1148. 17320 GOSUB8040
  1149. 17325 PR"ON AN ISLAND"
  1150. 17330 RETURN
  1151. 17340 IFB*8<0GOTO1050
  1152. 17350 GOTO4610
  1153. 17410 GOTO16410
  1154. 17440 GOTO16440
  1155. 17510 GOTO15510
  1156. 17540 GOTO3410
  1157. 17610 GOTO15610
  1158. 17640 GOTO4610
  1159. 17910 RETURN
  1160. 18000
  1161. 18000 REM WEST FOREST
  1162. 18000
  1163. 18010 PR"FOREST"
  1164. 18040 X=30
  1165. 18070 RETURN 
  1166. 18110 PR"ARE TREES"
  1167. 18120 RETURN
  1168. 18140 N=19014
  1169. 18150 GOTO3950
  1170. 18210 GOTO18110
  1171. 18240 GOTO18140
  1172. 18310 GOTO18110
  1173. 18340 GOTO18140
  1174. 18410 GOTO15210
  1175. 18440 Y=14425
  1176. 18450 GOTO1050
  1177. 18510 GOSUBY-N+1209
  1178. 18520 PR"MOSS IS GREENER"
  1179. 18535 RETURN
  1180. 18540 GOTO3410
  1181. 18610 GOTO22610
  1182. 18640 GOTO4610
  1183. 18910 IFS<>18019RETURN
  1184. 18920 GOSUB12875
  1185. 18930 PR"CATCHES YOUR EYE"
  1186. 18935 RETURN
  1187. 19000
  1188. 19000 REM LOST IN THE FOREST
  1189. 19000
  1190. 19010 GOSUB18010
  1191. 19020 PR"EVERY DIRECTION LOOKS SAME"
  1192. 19040 X=30
  1193. 19070 RETURN
  1194. 19110 GOTO18110
  1195. 19140 GOTO3950
  1196. 19210 GOTO18110
  1197. 19240 GOTO3950
  1198. 19310 GOTO18110
  1199. 19340 GOTO3950
  1200. 19410 GOTO18110
  1201. 19440 IFB*8<0GOTO19480
  1202. 19450 B=B+V/4
  1203. 19460 GOTO3960
  1204. 19480 N=18014
  1205. 19490 GOTO3960
  1206. 19510 GOTO18510
  1207. 19540 GOTO3410
  1208. 19610 GOTO22610
  1209. 19640 GOTO4610
  1210. 19910 RETURN
  1211. 20000
  1212. 20000 REM LOST AT SEA
  1213. 20000
  1214. 20010 GOSUB21010
  1215. 20020 PR"IT'S DARK"
  1216. 20040 X=30
  1217. 20070 RETURN
  1218. 20110 PR"YOU SEE NOTHING"
  1219. 20120 RETURN
  1220. 20140 IFB*8>0GOTO19450
  1221. 20150 P=N+2
  1222. 20160 N=21014
  1223. 20180 GOSUB4695
  1224. 20190 GOTO3960
  1225. 20210 GOTO20110
  1226. 20240 GOTO3950
  1227. 20310 GOTO20110
  1228. 20340 GOTO3950
  1229. 20410 GOTO20110
  1230. 20440 GOTO3950
  1231. 20510 GOSUBY-N+1209
  1232. 20520 PR"BIG DIPPER TWINKLES"
  1233. 20530 RETURN
  1234. 20540 GOTO3410
  1235. 20610 GOTO21610
  1236. 20640 GOTO21640
  1237. 20910 GOSUB4920
  1238. 20920 IFP>NGOTO21910
  1239. 20930 RETURN
  1240. 21000
  1241. 21000 REM IN BOAT IN WATER
  1242. 21000
  1243. 21010 PR"BOAT ";
  1244. 21015 IFN>21000IFB*8>0GOTO21030
  1245. 21020 PR"AT SEA"
  1246. 21025 RETURN
  1247. 21030 GOSUB8045
  1248. 21035 IFB*4<0GOTO21990
  1249. 21040 X=30
  1250. 21070 RETURN
  1251. 21110 IFB*8>0IFB*4>0GOTO21120
  1252. 21115 GOSUB8020
  1253. 21120 PR"IS MAINLAND"
  1254. 21125 RETURN
  1255. 21140 IFB*8>0IFB*4>0GOTO21180
  1256. 21150 B=B-V/4
  1257. 21170 GOTO1060
  1258. 21180 Y=14125
  1259. 21190 GOTO15470
  1260. 21210 PR"HORIZON IS LOST
  1261. 21220 GOSUB8020
  1262. 21230 GOTO7270
  1263. 21240 P=N+2
  1264. 21250 N=20014
  1265. 21260 GOTO20180
  1266. 21310 IFB*4>0G0SUB8020
  1267. 21320 PR"IS A ";
  1268. 21330 GOTO22010
  1269. 21340 IFB*4<0GOTO21380
  1270. 21350 B=B+V/4
  1271. 21370 GOTO1060
  1272. 21380 Y=22325
  1273. 21390 GOTO1050 
  1274. 21410 GOTO21210
  1275. 21440 GOTO21240
  1276. 21510 GOTO15510
  1277. 21540 GOTO3410
  1278. 21610 PR"WATER IS CLEAR"
  1279. 21620 RETURN
  1280. 21640 X=8710
  1281. 21650 GOTO4840
  1282. 21910 GOSUB6240
  1283. 21915 IFX>0IFN-1<>MRETURN
  1284. 21920 PR"WITH YOU IS"
  1285. 21925 IFM/2000=10GOSUB12755
  1286. 21930 GOTO13750
  1287. 21990 PR"AT A ";
  1288. 22000
  1289. 22000 REM ON AN ISLAND
  1290. 22000
  1291. 22010 PR"SMALL ISLAND"
  1292. 22040 X=16
  1293. 22050 IFB*4<0X=18
  1294. 22070 RETURN
  1295. 22110 IFB*4>0GOTO21115
  1296. 22115 GOTO21010
  1297. 22140 IFB*4>0GOTO21640
  1298. 22150 Y=21125
  1299. 22160 GOTO1050
  1300. 22210 GOTO21210
  1301. 22240 GOTO21640
  1302. 22310 GOTO21210
  1303. 22340 GOTO21640
  1304. 22410 GOTO22990
  1305. 22440 Y=23425
  1306. 22450 GOTO1050
  1307. 22510 GOTO15510
  1308. 22540 GOTO3410
  1309. 22610 PR"ON THE GROUND IS ";
  1310. 22620 GOSUB6240
  1311. 22625 P=N+2
  1312. 22630 GOSUB6460
  1313. 22635 GOTO7270
  1314. 22640 GOTO4610
  1315. 22910 GOSUB6240
  1316. 22920 IFX>0RETURN
  1317. 22930 GOTO22610
  1318. 22990 PR"IS A ";
  1319. 23000
  1320. 23000 REM IN THE CAVE
  1321. 23000
  1322. 23010 PR"CAVE"
  1323. 23040 X=84
  1324. 23070 RETURN
  1325. 23110 X=8730
  1326. 23120 GOTO8960
  1327. 23140 X=1450
  1328. 23150 GOTO4840
  1329. 23210 PR"SUN SHINES IN"
  1330. 23220 RETURN
  1331. 23240 Y=22225
  1332. 23250 GOTO1050
  1333. 23310 PR"ARE GRAFITI"
  1334. 23320 RETURN
  1335. 23340 GOTO23140
  1336. 23410 PR"A TUNNEL SLOPES DOWN"
  1337. 23420 RETURN
  1338. 23440 Y=24125
  1339. 23450 GOTO1050
  1340. 23510 GOTO20110
  1341. 23540 GOTO4610
  1342. 23610 PR"TUNNEL IS DARK"
  1343. 23620 Y=23425
  1344. 23630 RETURN
  1345. 23640 GOTO23440
  1346. 23910 GOTO22910
  1347. 24000
  1348. 24000 REM IN THE TUNNEL
  1349. 24000
  1350. 24010 GOSUB4920
  1351. 24020 IFP<NPR"DARK ";
  1352. 24030 PR"TUNNEL"
  1353. 24040 GOSUB24070
  1354. 24050 IFV/X*2*Q<0X=X+1
  1355. 24060 X=72+X/8000*38+X*16
  1356. 24065 RETURN
  1357. 24070 X=V/4
  1358. 24080 IFB*8>0X=X+X
  1359. 24090 RETURN
  1360. 24110 X=32
  1361. 24120 IFB*8<0X=0
  1362. 24130 GOTO8520
  1363. 24140 IFB*8<0GOTO23140
  1364. 24160 GOTO15470
  1365. 24210 X=64
  1366. 24220 GOTO24120
  1367. 24240 IFB*8<0GOTO23140
  1368. 24250 Y=25225
  1369. 24260 GOTO1050
  1370. 24310 X=1024
  1371. 24320 IFB*8<0X=64
  1372. 24330 GOTO8520
  1373. 24340 IFB*8<0GOTO24650
  1374. 24350 Y=23225
  1375. 24360 GOTO1050
  1376. 24410 X=24420
  1377. 24415 GOTO4630
  1378. 24420 GOSUB24070
  1379. 24425 X=V/X*2
  1380. 24430 GOTO29320
  1381. 24440 GOSUB24070
  1382. 24450 IFV/X*2*Q>0GOTO4610
  1383. 24460 Y=26425
  1384. 24470 IFB*8<0Y=27425
  1385. 24490 GOTO1050
  1386. 24510 X=24520
  1387. 24515 GOTO4630
  1388. 24520 IFB*8<0GOTO20110
  1389. 24525 Y=24125
  1390. 24530 GOSUB1520
  1391. 24535 GOTO24110
  1392. 24540 Y=24125
  1393. 24550 GOTO24140
  1394. 24610 Y=24225
  1395. 24615 IFB*8>0GOTO24210
  1396. 24620 Y=24325
  1397. 24625 GOTO24310
  1398. 24640 IFB*8>0GOTO24350
  1399. 24650 Y=24225
  1400. 24660 GOTO1050
  1401. 24910 GOSUB4920
  1402. 24920 IFP>NIFB*8>0GOTO22910
  1403. 24930 RETURN
  1404. 25000
  1405. 25000 REM IN DRAGON'S LAIR
  1406. 25000
  1407. 25010 GOSUB4920
  1408. 25015 IFP<NGOTO8370
  1409. 25020 PR"CAVERN"
  1410. 25040 X=40
  1411. 25070 RETURN
  1412. 25110 X=25120
  1413. 25115 GOTO4630
  1414. 25120 X=8750
  1415. 25130 GOTO8960
  1416. 25140 GOTO25440
  1417. 25210 X=25220
  1418. 25215 GOTO4630
  1419. 25220 X=8770
  1420. 25230 GOTO8960
  1421. 25240 GOTO25440
  1422. 25310 X=25320
  1423. 25315 GOTO4630
  1424. 25320 X=32
  1425. 25330 GOTO8520
  1426. 25340 Y=24425
  1427. 25350 GOTO1050
  1428. 25410 X=23110
  1429. 25420 GOTO4630
  1430. 25440 IFD>VIFV/8*B>0B=B+16
  1431. 25450 GOSUB4920
  1432. 25460 IFP<NGOTO4610
  1433. 25470 GOTO23140
  1434. 25510 GOTO20110
  1435. 25540 GOTO25340
  1436. 25610 X=25630
  1437. 25620 GOTO4630
  1438. 25630 GOTO22610
  1439. 25640 GOTO4610
  1440. 25910 X=D
  1441. 25920 IFV/8*B>0GOSUB6550
  1442. 25930 GOTO24910
  1443. 26000
  1444. 26000 REM IN THE TROLL'S DEN
  1445. 26000
  1446. 26010 GOSUB4920
  1447. 26015 IFP<NGOTO8370
  1448. 26020 PR"TROLL'S DEN"
  1449. 26040 X=0
  1450. 26050 IFQ*4<0X=16
  1451. 26060 RETURN
  1452. 26070 X=8704
  1453. 26090 RETURN
  1454. 26110 GOTO25410
  1455. 26140 GOTO25440
  1456. 26150 IFQ*4>0GOTO20110
  1457. 26160 PR"IT'S DRAFTY"
  1458. 26170 RETURN
  1459. 26210 GOSUB4920
  1460. 26220 IFP<NGOTO26150
  1461. 26230 X=4
  1462. 26235 GOTO29320
  1463. 26240 IFQ*4>0GOTO4810
  1464. 26250 Y=24225
  1465. 26260 GOTO1050
  1466. 26310 X=26320
  1467. 26315 GOTO4630
  1468. 26320 X=12775
  1469. 26325 IFB*V<0GOTO26350
  1470. 26330 PR"YOU SEE YOURSELF IN ";
  1471. 26335 GOTO26350
  1472. 26340 GOTO25440
  1473. 26350 GOSUBX
  1474. 26360 GOTO7270
  1475. 26410 X=26420
  1476. 26415 GOTO4630
  1477. 26420 X=64
  1478. 26430 GOTO29420
  1479. 26440 GOTO25440
  1480. 26510 X=26520
  1481. 26515 GOTO4630
  1482. 26520 X=8810
  1483. 26530 GOTO29520
  1484. 26540 GOTO4610
  1485. 26610 X=26620
  1486. 26615 GOTO4630
  1487. 26620 PR"NOT MUCH AROUND.."
  1488. 26630 GOTO13750
  1489. 26640 GOTO4610
  1490. 26910 RETURN
  1491. 27000
  1492. 27000 REM IN THE WINE CELLAR
  1493. 27000
  1494. 27010 PR"WINE CELLAR"
  1495. 27020 GOSUB4920
  1496. 27030 IFP<NGOTO20020
  1497. 27040 X=34
  1498. 27050 IFQ*8<0X=38
  1499. 27060 RETURN
  1500. 27070 X=V/4
  1501. 27090 RETURN
  1502. 27110 PR"STEPS UP ARE FAINTLY LIT"
  1503. 27120 RETURN
  1504. 27140 Y=28225
  1505. 27150 GOTO1050
  1506. 27210 X=8
  1507. 27220 GOTO29320
  1508. 27240 IFQ*8>0GOTO4810
  1509. 27250 Y=24325
  1510. 27260 GOTO15470
  1511. 27310 GOTO25410
  1512. 27340 GOTO25440
  1513. 27410 X=27420
  1514. 27415 GOTO4630
  1515. 27420 PR"IS A WINE RACK"
  1516. 27430 RETURN
  1517. 27440 GOTO25440
  1518. 27510 GOTO26510
  1519. 27540 GOTO27140
  1520. 27610 GOTO26610
  1521. 27640 GOTO27240
  1522. 27910 GOTO22910
  1523. 28000
  1524. 28000 REM IN THE HALLSTAIRWELL
  1525. 28000
  1526. 28010 PR"HALLWAY"
  1527. 28020 RETURN
  1528. 28040 X=82
  1529. 28050 RETURN
  1530. 28070 X=V/8
  1531. 28090 RETURN
  1532. 28110 GOTO29310
  1533. 28140 IFQ*16>0GOTO4810
  1534. 28150 Y=29125
  1535. 28160 GOTO1050
  1536. 28210 X=8790
  1537. 28220 GOTO8960
  1538. 28240 GOTO23140
  1539. 28310 PR"A STAIRWAY DESCENDS"
  1540. 28320 GOTO8580
  1541. 28340 Y=27325
  1542. 28350 GOTO1050
  1543. 28410 PR"OPENS TO NEXT ROOM"
  1544. 28420 RETURN
  1545. 28440 Y=30425
  1546. 28450 GOTO1050
  1547. 28510 PR"A SKYLIGHT"
  1548. 28520 RETURN
  1549. 28540 GOTO4610
  1550. 28610 GOTO28310
  1551. 28640 GOTO28340
  1552. 28910 GOSUB6250
  1553. 28920 IFX>0RETURN
  1554. 28930 GOTO26620
  1555. 29000
  1556. 29000 REM IN BEDROOM
  1557. 29000
  1558. 29010 PR"BEDROOM"
  1559. 29040 X=10
  1560. 29050 RETURN
  1561. 29070 X=2308
  1562. 29090 RETURN
  1563. 29110 X=V/2
  1564. 29120 GOSUB12955
  1565. 29125 IFX*Q<0GOTO2960
  1566. 29130 PR"IS CLOSED"
  1567. 29135 RETURN
  1568. 29140 IFV/2*Q>0GOTO23140
  1569. 29150 Y=16125
  1570. 29160 GOTO15470
  1571. 29210 PR"IS A BED"
  1572. 29220 RETURN
  1573. 29240 GOTO23140
  1574. 29310 X=16
  1575. 29320 PR"A DOOR ";
  1576. 29330 GOTO29125
  1577. 29340 IFQ*16>0GOTO4810
  1578. 29350 Y=28325
  1579. 29360 GOTO1050
  1580. 29410 X=128
  1581. 29420 GOSUB12555
  1582. 29425 IFX*Q>0GOTO29130
  1583. 29430 GOTO2910
  1584. 29440 GOTO23140
  1585. 29510 X=8790
  1586. 29520 PR"THE CEILING IS ";
  1587. 29530 GOSUBX
  1588. 29535 GOTO7270
  1589. 29540 GOTO4610
  1590. 29610 GOTO26620
  1591. 29640 GOTO4610
  1592. 29910 GOSUB6240
  1593. 29920 IFX=0GOTO26620
  1594. 29930 RETURN
  1595. 30000
  1596. 30000 REM IN THE TABLE ROOM
  1597. 30000 
  1598. 30010 PR"ROOM WITH TABLE"
  1599. 30040 X=4
  1600. 30050 IFQ*32<0X=12
  1601. 30060 RETURN
  1602. 30070 X=1024
  1603. 30090 RETURN
  1604. 30110 GOTO28210
  1605. 30140 GOTO23140
  1606. 30210 GOTO28410
  1607. 30240 Y=28225
  1608. 30250 GOTO1050
  1609. 30310 X=32
  1610. 30320 GOTO29320
  1611. 30340 IFQ*32>0GOTO4810
  1612. 30350 Y=17325
  1613. 30360 GOTO15470
  1614. 30410 GOTO26310
  1615. 30440 GOTO23140
  1616. 30510 GOTO29510
  1617. 30540 GOTO4610
  1618. 30610 PR"THE FLOOR IS CLEAN"
  1619. 30620 RETURN
  1620. 30640 GOTO4610
  1621. 30910 GOSUB6240
  1622. 30915 IFX<>0RETURN
  1623. 30920 PR"ON THE TABLE ARE"
  1624. 30925 GOSUB13750
  1625. 30930 IFB*128<0RETURN
  1626. 30935 PR"FLASK CONTAINS-MILKY FLUID"
  1627. 30940 PR"LABELLED 'MAGIC DRAGON TEARS'"
  1628. 30950 B=B+256
  1629. 30955 RETURN
  1630. 32000 END
  1631.