-
Notifications
You must be signed in to change notification settings - Fork 1
/
Copy pathfire.asm-v1.1a.txt
2366 lines (2366 loc) · 67 KB
/
fire.asm-v1.1a.txt
1
00100 ; ***************************00110 ; ** QUEST FOR FIRE **00120 ; ** (C) 1983 ANTHONY WOOD **00130 ; ***************************00140 ;00150 ; 3/1/83 VER. 1.1A00160 ; 11/7/8300170 ORG 05200H00180 LD HL,TABRM200190 LD DE,INVENT+0FFH00200 LD BC,INVENT-TABRM2+200210 LDIR00220 BEG CALL 01C9H00230 LD HL,INTRO00240 CALL PRINT00250 CALL 49H00260 START CALL 01C9H00270 S2 LD A,(RUM)00280 LD HL,PRED00290 CALL PRINT00300 LD HL,PRED200310 CALL PRINT00320 CALL DFIND00330 CALL PRINT00340 CALL RSFIND00350 LD BC,0000360 LD H,(IX+1)00370 LD L,(IX+0)00380 XOR A00390 ADC HL,BC00400 JR Z,MAIN00410 PUSH HL00420 LD HL,MOKEY00430 CALL PRINT00440 POP HL00450 LP1 CALL PRINT00460 LD HL,DSP00470 CALL PRINT00480 INC IX00490 INC IX00500 LD H,(IX+1)00510 LD L,(IX+0)00520 LD BC,0000530 XOR A00540 ADC HL,BC00550 JR NZ,LP100560 LD A,1000570 CALL 33H00580 MAIN CALL PFD00590 LD A,000600 LD A,(IX+0)00610 LD B,(IX+1)00620 ADD A,B00630 LD B,(IX+2)00640 ADD A,B00650 LD B,(IX+3)00660 ADD A,B00670 LD B,(IX+4)00680 ADD A,B00690 LD B,(IX+5)00700 ADD A,B00710 CP 0000720 JR Z,NXT600730 LD HL,EXIT00740 CALL PRINT00750 LD A,(IX+0)00760 CP 000770 JR Z,NXT100780 LD HL,NORTH00790 CALL PRINT00800 LD HL,DSP00810 CALL PRINT00820 NXT1 LD A,(IX+1)00830 CP 0000840 JR Z,NXT200850 LD HL,SOUTH00860 CALL PRINT00870 LD HL,DSP00880 CALL PRINT00890 NXT2 LD A,(IX+2)00900 CP 0000910 JR Z,NXT300920 LD HL,EAST00930 CALL PRINT00940 LD HL,DSP00950 CALL PRINT00960 NXT3 LD A,(IX+3)00970 CP 0000980 JR Z,NXT400990 LD HL,WEST01000 CALL PRINT01010 LD HL,DSP01020 CALL PRINT01030 NXT4 LD A,(IX+4)01040 CP 0001050 JR Z,NXT501060 LD HL,UP01070 CALL PRINT01080 LD HL,DSP01090 CALL PRINT01100 NXT5 LD A,(IX+5)01110 CP 0001120 JR Z,NXT601130 LD HL,DOWN01140 CALL PRINT01150 NXT6 LD A,1001160 CALL 33H01170 LD HL,PRED01180 CALL PRINT01190 STRT CALL CNT001200 LD HL,QUEST01210 CALL PRINT01220 CALL INPUT01230 LD IX,BUFFER01240 LD A,(IX+0)01250 CP 0DH01260 JR Z,STRT01270 LD A,(IX+1)01280 CP 0DH01290 JR NZ,NOPE01300 LD A,(IX+0)01310 CP 'N'01320 JR Z,NRTH01330 CP 'S'01340 JR Z,SOTH01350 CP 'E'01360 JR Z,EST01370 CP 'W'01380 JR Z,WST01390 CP 'U'01400 JP Z,UPP01410 CP 'D'01420 JP Z,DN01430 CP 'I'01440 JP Z,INJN01450 LD HL,BADIN01460 CALL PRINT01470 JP STRT01480 NOPE LD DE,BUFFER01490 LD HL,NORTH01500 CALL CMPR01510 JR Z,NRTH01520 LD HL,SOUTH01530 CALL CMPR01540 JR Z,SOTH01550 LD HL,EAST01560 CALL CMPR01570 JR Z,EST01580 LD HL,WEST01590 CALL CMPR01600 JR Z,WST01610 LD HL,UP01620 CALL CMPR01630 JR Z,UPP01640 LD HL,DOWN01650 CALL CMPR01660 JR Z,DN01670 JP CNT101680 NRTH CALL PFD01690 LD A,(IX+0)01700 CP 0001710 JR Z,ERR101720 LD (RUM),A01730 JP START01740 SOTH CALL PFD01750 LD A,(IX+1)01760 CP 0001770 JR Z,ERR101780 LD (RUM),A01790 JP START01800 EST CALL PFD01810 LD A,(IX+2)01820 CP 0001830 JR Z,ERR101840 LD (RUM),A01850 JP START01860 WST CALL PFD01870 LD A,(IX+3)01880 CP 0001890 JR Z,ERR101900 LD (RUM),A01910 JP START01920 UPP CALL PFD01930 LD A,(IX+4)01940 CP 0001950 JR Z,ERR101960 LD (RUM),A01970 JP START01980 DN CALL PFD01990 LD A,(IX+5)02000 CP 0002010 JR Z,ERR102020 LD (RUM),A02030 JP START02040 ERR1 LD HL,BADDI02050 CALL PRINT02060 JP STRT02070 CNT0 LD A,(RUM)02080 CP 0302090 RET NZ02100 LD DE,EMER02110 CALL INRM02120 RET NZ02130 LD HL,WOWW02140 CALL PRINT02150 JP AGAIN02160 CNT1 LD HL,BUFFER02170 BILL LD A,(HL)02180 CP 20H02190 JR Z,ELDOG02200 CP 0DH02210 INC HL02220 JR NZ,BILL02230 LD A,002240 LD (NFLG),A02250 JR BILL202260 ELDOG INC HL02270 LD A,0FFH02280 LD (NFLG),A02290 LD (NOUN),HL02300 BILL2 CALL CHANGE02310 LD DE,BUFFER02320 LD HL,INVEN02330 CALL CMPR02340 JR NZ,CNT202350 INJN LD IX,INVENT02360 LD H,(IX+1)02370 LD L,(IX+0)02380 LD BC,0002390 XOR A02400 SBC HL,BC02410 JR Z,NOTHIN02420 LOOP CALL PRINT02430 LD HL,DSP02440 CALL PRINT02450 INC IX02460 INC IX02470 LD H,(IX+1)02480 LD L,(IX+0)02490 XOR A02500 SBC HL,BC02510 JR NZ,LOOP02520 LD A,1002530 CALL 33H02540 JP STRT02550 NOTHIN LD HL,NOCAR02560 CALL PRINT02570 JP STRT02580 CNT2 LD HL,EXAM 02590 CALL CMPR02600 JP NZ,CNT302610 CNT2A LD HL,(NOUN)02620 LD DE,AROUND02630 CALL CMPR02640 JP Z,NOSP02650 LD DE,NORTH02660 CALL CMPR02670 JP Z,NOSP02680 LD DE,SOUTH02690 CALL CMPR02700 JP Z,NOSP02710 LD DE,EAST02720 CALL CMPR02730 JP Z,NOSP02740 LD DE,WEST02750 CALL CMPR02760 JP Z,NOSP02770 LD DE,UP02780 CALL CMPR02790 JP Z,NOSP02800 LD DE,DOWN02810 CALL CMPR02820 JP Z,NOSP02830 CALL NOUNCK02840 CALL DISNZ02850 JP NZ,STRT02860 LD DE,MESS02870 LD HL,(NOUN)02880 CALL CMPR02890 JR NZ,GGG02900 LD A,(GOTRG)02910 CP 01H02920 JP Z,NOSP02930 LD HL,RMSG02940 CALL PRINT02950 LD HL,RING02960 CALL RMADD02970 LD A,0102980 LD (GOTRG),A02990 JP STRT03000 GGG LD DE,PYRA03010 CALL CMPR03020 JR NZ,DOG103030 LD HL,PYRDES03040 CALL PRINT03050 JP STRT03060 DOG1 LD DE,COCO03070 CALL CMPR03080 JR NZ,DOG203090 LD HL,COCDES03100 CALL PRINT03110 JP STRT03120 DOG2 LD DE,CHES03130 CALL CMPR03140 JP NZ,DOG303150 LD A,(OPCL)03160 CP 0003170 JR Z,CCL03180 LD HL,COPE03190 CALL PRINT03200 LD A,(CITEM)03210 BIT 0,A03220 JR Z,CAT103230 LD HL,ISEE03240 CALL PRINT03250 LD HL,AQA03260 CALL PRINT03270 LD A,1003280 CALL 33H03290 CALL RMADD03300 LD A,(CITEM)03310 RES 0,A03320 LD (CITEM),A03330 JP STRT03340 CAT1 BIT 1,A03350 JR Z,CAT203360 LD HL,ISEE03370 CALL PRINT03380 LD HL,NOTE03390 CALL PRINT03400 LD A,1003410 CALL 33H03420 CALL RMADD03430 LD A,(CITEM)03440 RES 1,A03450 LD (CITEM),A03460 JP STRT03470 CAT2 BIT 2,A03480 JP Z,STRT 03490 RES 2,A03500 LD (CITEM),A03510 LD HL,ISEE03520 CALL PRINT03530 LD HL,DAG03540 CALL PRINT03550 LD A,1003560 CALL 33H03570 CALL RMADD03580 JP STRT03590 CCL LD HL,LOCK03600 CALL PRINT03610 JP STRT03620 DOG3 LD DE,SLIM03630 CALL CMPR03640 JR NZ,BOXY03650 LD A,(SITEM)03660 BIT 0,A03670 JR Z,SGUN03680 LD HL,ISEE03690 CALL PRINT03700 LD HL,TD03710 CALL PRINT03720 LD A,1003730 CALL 33H03740 CALL RMADD03750 LD A,(SITEM)03760 RES 0,A03770 LD (SITEM),A03780 JP STRT03790 SGUN BIT 1,A03800 JR Z,NOSP03810 LD HL,ISEE03820 CALL PRINT03830 LD HL,GUN03840 CALL PRINT03850 LD A,1003860 CALL 33H03870 CALL RMADD03880 LD A,003890 LD (SITEM),A03900 JP STRT03910 BOXY LD DE,NEST03920 CALL CMPR03930 JR NZ,BOXY203940 LD DE,RAT03950 CALL INRM03960 JR Z,RWAY03970 LD A,(GOTM)03980 CP 0003990 JR NZ,NOSP04000 LD A,104010 LD (GOTM),A04020 LD HL,FBOOK04030 CALL PRINT04040 LD HL,BOOK04050 CALL RMADD04060 JP STRT04070 RWAY LD HL,RNO04080 CALL PRINT04090 JP STRT04100 BOXY2 LD DE,BOTTLE04110 CALL CMPR04120 JR NZ,NOSP04130 LD HL,VMSG04140 CALL PRINT04150 JP STRT04160 NOSP LD HL,NOTH04170 CALL PRINT04180 JP STRT04190 CNT3 LD HL,GET04200 CALL CMPR04210 JR Z,CNT3A04220 LD HL,TAKE04230 CALL CMPR04240 JR Z,CNT3A04250 LD HL,PICK04260 CALL CMPR04270 JP NZ,CNT404280 CNT3A LD DE,(NOUN)04290 LD HL,UP04300 CALL CMPR04310 JP Z,GETUP04320 CALL INRM04330 CALL DISNZ04340 JP NZ,STRT04350 LD HL,FISH04360 CALL CMPR04370 JR NZ,FROG104380 LD HL,NOCAT04390 CALL PRINT04400 JP AGAIN04410 FROG1 LD HL,EMER04420 CALL CMPR04430 JR NZ,FROGG04440 LD A,(RINGW)04450 CP 0104460 JP Z,OK04470 LD HL,TOHEVY04480 CALL PRINT04490 JP STRT04500 FROGG LD HL,SAND04510 CALL CMPR04520 JR NZ,FROG204530 LD HL,SLIPS04540 CALL PRINT04550 JP STRT04560 FROG2 LD HL,CHES04570 CALL CMPR04580 JR NZ,FR104590 LD HL,TOHEVY04600 CALL PRINT04610 JP STRT04620 FR1 LD HL,SLIM04630 CALL CMPR04640 JR NZ,FROG304650 LD HL,SLIMSG04660 CALL PRINT04670 JP STRT04680 FROG3 LD HL,NEST04690 CALL CMPR04700 JR NZ,FROG404710 LD HL,NSTMSG04720 CALL PRINT04730 JP STRT04740 FROG4 LD HL,RAT04750 CALL CMPR04760 JR NZ,FROG504770 LD HL,RATMSG04780 CALL PRINT04790 JP STRT04800 FROG5 LD HL,PYRA04810 CALL CMPR04820 JP Z,NOWAY04830 LD HL,TREE+804840 CALL CMPR04850 JR Z,NOWAY04860 LD HL,KNOB04870 CALL CMPR04880 JR Z,NOWAY04890 LD HL,TD04900 CALL CMPR04910 JR Z,NOWAY04920 LD HL,TREES04930 CALL CMPR04940 JR Z,NOWAY04950 LD HL,CHAIR04960 CALL CMPR04970 JR Z,NOWAY04980 OK LD HL,(NOUN)04990 CALL SEARCH05000 PUSH HL05010 EX DE,HL05020 CALL RMDEL05030 JR CONT05040 RMDEL CALL RSFIND05050 PUSH HL05060 POP IX05070 GROG LD H,(IX+1)05080 LD L,(IX+0)05090 XOR A05100 SBC HL,DE05110 JR Z,FND05120 INC IX05130 INC IX05140 JR GROG05150 FND1 INC IX05160 INC IX05170 FND LD H,(IX+3)05180 LD L,(IX+2)05190 LD (IX+1),H05200 LD (IX+0),L05210 LD BC,0005220 XOR A05230 ADC HL,BC05240 JR NZ,FND105250 RET05260 CONT LD HL,INVENT05270 LD BC,0005280 LD A,0005290 CPIR05300 DEC HL05310 POP BC05320 LD (HL),C05330 INC HL05340 LD (HL),B05350 INC HL05360 LD (HL),005370 INC HL05380 LD (HL),0005390 LD HL,OKK05400 CALL PRINT05410 JP STRT05420 NOWAY LD HL,CANT05430 CALL PRINT05440 JP STRT05450 GETUP LD A,(RUM)05460 CP 0705470 JR Z,GGOD05480 LD HL,BADIN05490 CALL PRINT05500 JP STRT05510 GGOD LD A,1705520 LD (RUM),A05530 JP START05540 CNT4 LD HL,DROP05550 CALL CMPR05560 JR Z,DR05570 LD HL,PUT05580 CALL CMPR05590 JR NZ,CNT505600 DR LD HL,(NOUN)05610 CALL SEARCH05620 CALL SCANIN05630 JR Z,YEP05640 LD HL,NCRRY05650 CALL PRINT05660 JP STRT05670 YEP LD HL,MASK05680 LD DE,(NOUN)05690 CALL CMPR05700 JR NZ,YEP205710 LD A,005720 LD (WEARG),A05730 JR YEP305740 YEP2 LD HL,RING05750 CALL CMPR05760 JR NZ,YEP305770 LD A,005780 LD (RINGW),A05790 YEP3 LD HL,AQA05800 CALL CMPR05810 JR NZ,YEP405820 LD A,(RUM)05830 CP 705840 JR Z,AGG05850 CP 1405860 JR C,YEP405870 AGG LD HL,IDIE05880 CALL PRINT05890 JP AGAIN05900 YEP4 CALL INDEL05910 LD HL,(NOUN)05920 CALL SEARCH05930 CALL RMADD05940 LD HL,OKK05950 CALL PRINT05960 JP STRT05970 CNT5 LD HL,GO05980 CALL CMPR05990 JP NZ,CNT606000 LD DE,(NOUN)06010 LD HL,CHAIR06020 CALL CMPR06030 JR Z,SIT06040 CALL INRM06050 CALL DISNZ06060 JP NZ,STRT06070 LD HL,(NOUN)06080 LD DE,PYRA06090 CALL CMPR06100 JR Z,PRCK06110 LD DE,TD06120 CALL CMPR06130 JR Z,TDCK06140 LD DE,POOL06150 CALL CMPR06160 JR Z,POCK06170 LD DE,DOOR06180 CALL CMPR06190 JR Z,ENTER06200 LD HL,BADIN06210 CALL PRINT06220 JP STRT06230 ENTER LD HL,GOEN06240 CALL PRINT06250 LD A,906260 LD (RUM),A06270 JP S206280 PRCK LD DE,DOOR06290 CALL INRM06300 JP Z,ENTER06310 LD HL,NOD06320 CALL PRINT06330 JP STRT06340 TDCK LD A,(TDOP)06350 CP 0006360 JR NZ,TDCK206370 LD HL,NOTOP06380 CALL PRINT06390 JP STRT06400 TDCK2 LD A,1506410 JR FRF06420 SIT LD A,(RUM)06430 CP 17D06440 CALL DISNZ06450 JP NZ,STRT06460 LD A,0706470 JR FRF06480 POCK LD A,1306490 FRF LD (RUM),A06500 JP START06510 CNT6 LD HL,CLIMB06520 CALL CMPR06530 JR NZ,CNT706540 LD A,(RUM)06550 CP 0506560 JR NZ,CL206570 LD HL,(NOUN)06580 LD DE,TREE+806590 CALL CMPR06600 JR NZ,EROR06610 LD A,0606620 LD (RUM),A06630 JP START06640 CL2 CP 0606650 JR NZ,EROR06660 LD HL,DOWN06670 LD DE,(NOUN)06680 CALL CMPR06690 JR NZ,EROR06700 LD HL,OKK06710 CALL PRINT06720 LD A,0506730 LD (RUM),A06740 JP START06750 EROR LD HL,CANT06760 CALL PRINT06770 JP STRT06780 CNT7 LD HL,THROW06790 CALL CMPR06800 JR NZ,CNT806810 LD HL,(NOUN)06820 CALL SEARCH06830 CALL SCANIN06840 CALL DISNZ206850 JP NZ,STRT06860 LD HL,(NOUN)06870 LD DE,COCO06880 CALL CMPR06890 JP NZ,DR06900 LD A,(RUM)06910 CP 0106920 JP NZ,DR06930 LD HL,SMSG06940 CALL PRINT06950 LD A,0506960 LD (RUM),A06970 LD HL,KEY06980 CALL RMADD06990 LD HL,SHELL07000 CALL RMADD07010 LD A,0107020 LD (RUM),A07030 LD HL,COCO07040 CALL INDEL07050 JP STRT07060 CNT8 LD HL,DIG07070 CALL CMPR07080 JR NZ,CNT907090 LD A,(RUM)07100 CP 0407110 JR NZ,HHH07120 LD A,(CHERE)07130 CP 0007140 JR Z,HHH07150 LD HL,CHES07160 CALL RMADD07170 LD HL,FOUND07180 CALL PRINT07190 LD A,0007200 LD (CHERE),A07210 JP STRT07220 HHH LD HL,CMSG07230 CALL PRINT07240 JP STRT07250 CNT9 LD HL,UNLOCK07260 CALL CMPR07270 JR Z,OO07280 LD HL,OPEN07290 CALL CMPR07300 JP NZ,CNT1007310 CALL NOUNCK07320 JP NZ,YYY07330 OO LD DE,(NOUN)07340 LD HL,SAFE07350 CALL CMPR07360 JP Z,WAY07370 LD HL,CHES07380 CALL CMPR07390 JR Z,O107400 LD HL,TD07410 CALL CMPR07420 JR Z,DORR07430 LD HL,BADIN07440 CALL PRINT07450 JP STRT07460 O1 LD HL,KEY07470 CALL SCANIN07480 JR Z,MEN07490 LD HL,NEED07500 CALL PRINT07510 JP STRT07520 MEN LD A,0107530 LD (OPCL),A07540 LD HL,OKK07550 CALL PRINT07560 JP STRT07570 WAY LD HL,COMBO07580 CALL PRINT07590 CALL INPUT07600 LD DE,BUFFER07610 LD HL,CMB07620 CALL CMPR07630 JR Z,OIL07640 LD HL,WRONG07650 CALL PRINT07660 JP STRT07670 OIL LD HL,RIGHT07680 CALL PRINT07690 LD A,(MSK)07700 CP 0007710 JR Z,HJH07720 LD HL,EMPTY07730 CALL PRINT07740 JP STRT07750 HJH LD HL,FALLS07760 CALL PRINT07770 LD HL,MASK07780 CALL RMADD07790 LD A,107800 LD (MSK),A07810 JP STRT07820 DORR LD HL,OKK07830 CALL PRINT07840 LD A,107850 LD (TDOP),A07860 JP STRT07870 CNT10 LD HL,SWIM07880 CALL CMPR07890 JR NZ,CNT1107900 LD A,(RUM)07910 CP 1307920 JR Z,PIG07930 LD HL,CANT07940 CALL PRINT07950 JP STRT07960 PIG LD HL,(NOUN)07970 LD DE,DOWN07980 CALL CMPR07990 JR NZ,LALA08000 LD HL,AQA08010 CALL SCANIN08020 JR Z,FROL08030 LD HL,UNUN08040 CALL PRINT08050 JP STRT08060 FROL LD A,(REDM)08070 CP 0008080 JR NZ,FROL208090 LD HL,NONO08100 CALL PRINT08110 JP STRT08120 FROL2 LD A,1408130 LD (RUM),A08140 JP START08150 LALA LD HL,BADIN08160 CALL PRINT08170 JP STRT08180 CNT11 LD HL,SACRA08190 CALL CMPR08200 JR Z,TOD08210 LD HL,STAB08220 CALL CMPR08230 JP NZ,CNT1208240 TOD CALL NOUNCK08250 CALL DISNZ08260 JP NZ,STRT08270 LD HL,GOAT08280 LD DE,(NOUN)08290 CALL CMPR08300 JR Z,GT08310 LD DE,(NOUN)08320 LD HL,FISH08330 CALL CMPR08340 JR Z,FSH08350 LD HL,RAT08360 CALL CMPR08370 JR Z,COMB08380 LD HL,CANT08390 CALL PRINT08400 JP STRT08410 COMB LD HL,RAT08420 CALL INRM08430 JP NZ,YYY08440 LD HL,RABID08450 CALL PRINT08460 JP AGAIN08470 GT LD HL,DAG08480 CALL SCANIN08490 JR Z,GT208500 LD HL,NOWEP08510 CALL PRINT08520 JP STRT08530 GT2 LD DE,GOAT08540 CALL NCHK208550 JP NZ,YYY08560 LD HL,GOAT08570 CALL REMOVE08580 LD HL,CARCA08590 CALL RMADD08600 LD HL,OKK08610 CALL PRINT08620 LD A,(RUM)08630 CP 0108640 JP NZ,STRT08650 LD HL,DMSG08660 CALL PRINT08670 LD A,0508680 LD (RUM),A08690 LD HL,DOOR08700 CALL RMADD08710 LD A,0108720 LD (RUM),A08730 JP STRT08740 FSH LD HL,DAG08750 CALL SCANIN08760 JR Z,FSH208770 LD HL,NOWEP08780 CALL PRINT08790 JP STRT08800 FSH2 LD HL,FMSG208810 CALL PRINT08820 JP AGAIN08830 CNT12 LD HL,READ08840 CALL CMPR08850 JR NZ,CNT1308860 LD DE,(NOUN)08870 LD HL,NOTE08880 CALL CMPR08890 JR NZ,PPP08900 LD DE,NOTE08910 CALL NCHK208920 JR NZ,YYY08930 LD HL,SAYS08940 CALL PRINT08950 LD HL,CMB08960 CALL PRINT08970 JP STRT08980 PPP LD HL,BOOK08990 CALL CMPR09000 JR NZ,PP209010 LD DE,BOOK09020 CALL NCHK209030 JR NZ,YYY09040 LD HL,BKSAIS09050 CALL PRINT09060 LD A,0109070 LD (REDM),A09080 JP STRT09090 PP2 LD HL,BADIN09100 CALL PRINT09110 JP STRT09120 YYY LD HL,NTER09130 CALL PRINT09140 JP STRT09150 CNT13 LD HL,PUSH09160 CALL CMPR09170 JR Z,BACK09180 LD HL,PRESS09190 CALL CMPR09200 JR NZ,CNT1409210 BACK LD A,(RUM)09220 CP 0709230 JR Z,TIT09240 LD HL,BADIN09250 CALL PRINT09260 JP STRT09270 TIT LD HL,WOWY09280 CALL PRINT09290 LD A,0309300 LD (RUM),A09310 JP S209320 CNT14 LD HL,TURN09330 CALL CMPR09340 JP NZ,CNT1509350 LD HL,VALVE09360 LD DE,(NOUN)09370 CALL CMPR09380 JR Z,TONG09390 LD HL,KNOB09400 CALL CMPR09410 JR Z,KING09420 LD HL,SPIND09430 CALL CMPR09440 JR NZ,KIK09450 KING LD DE,SAFE09460 CALL INRM09470 JP Z,WAY09480 JP BACK09490 KIK LD HL,BADIN09500 CALL PRINT09510 JP STRT09520 TONG LD DE,BOTTLE09530 CALL NCHK209540 CALL DISNZ09550 JP NZ,STRT09560 LD A,(FULLG)09570 CP 0009580 JR Z,TONG209590 LD HL,GGONE09600 CALL PRINT09610 JP STRT09620 TONG2 LD A,(WEARG)09630 CP 0109640 JP Z,TONG309650 LD HL,DEAD09660 CALL PRINT09670 JP AGAIN09680 TONG3 LD A,0FFH09690 LD (FULLG),A09700 LD A,(RUM)09710 CP 0809720 JR Z,TONG409730 PQR LD HL,NOHAP09740 CALL PRINT09750 JP STRT09760 TONG4 LD DE,RAT09770 CALL INRM09780 JR NZ,PQR09790 CALL RMDEL09800 LD HL,DEADR09810 CALL RMADD09820 LD HL,COUGH09830 CALL PRINT09840 JP STRT09850 CNT15 LD HL,WEAR09860 CALL CMPR09870 JP Z,CNT15A09880 LD HL,USE09890 CALL CMPR09900 JP NZ,CNT1609910 CNT15A LD DE,(NOUN)09920 LD HL,MASK09930 CALL CMPR09940 JR NZ,PISS09950 CALL NOUNCK09960 JR Z,P109970 LD HL,NTER09980 CALL PRINT09990 JP STRT10000 P1 LD A,0110010 LD (WEARG),A10020 LD DE,MASK10030 CALL INRM10040 JR NZ,P1A10050 CALL RMDEL10060 LD HL,MASK10070 PUSH HL10080 JP CONT10090 P1A LD HL,OKK10100 CALL PRINT10110 JP STRT10120 PISS LD HL,RING10130 CALL CMPR10140 JR Z,P210150 LD HL,AQA10160 CALL CMPR10170 JP NZ,LALA10180 LD A,(REDM)10190 CP 0110200 JR Z,KILO10210 LD HL,NONO10220 CALL PRINT10230 JP STRT10240 KILO LD HL,OKK10250 CALL PRINT10260 JP STRT10270 P2 CALL NOUNCK10280 CALL DISNZ10290 JP NZ,STRT10300 LD A,0110310 LD (RINGW),A10320 LD DE,RING10330 CALL INRM10340 JR NZ,P2A10350 CALL RMDEL10360 LD HL,RING10370 PUSH HL10380 LD HL,STRNG10390 CALL PRINT10400 JP CONT10410 P2A LD HL,STRNG10420 CALL PRINT10430 JP STRT10440 CNT16 LD HL,BREAK10450 CALL CMPR10460 JR Z,B110470 LD HL,SMA10480 CALL CMPR10490 JR Z,B110500 LD HL,CRU10510 CALL CMPR10520 JR NZ,CNT1710530 B1 LD HL,STRONG10540 CALL PRINT10550 JP STRT10560 CNT17 LD HL,JUMP10570 CALL CMPR10580 JR NZ,CNT1810590 LD A,(RUM)10600 CP 0110610 JR Z,ABC10620 LD HL,BADIN10630 CALL PRINT10640 JP STRT10650 ABC LD HL,DUMB10660 CALL PRINT10670 JP AGAIN10680 CNT18 LD HL,LOAD10690 CALL CMPR10700 JP Z,LODE10710 LD HL,LOAD+510720 CALL CMPR10730 JP NZ,CNT1910740 LD HL,TDSK10750 CALL PRINT10760 CALL 49H10770 CALL 33H10780 CP 'T'10790 JR Z,TAPE10800 CP 't'10810 JR Z,TAPE10820 CP 'D'10830 JR Z,DISK10840 CP 'd'10850 JR Z,DISK10860 LD A,1010870 CALL 33H10880 JP STRT10890 TAPE LD HL,CASS10900 CALL PRINT10910 CALL 49H10920 CP 0110930 JP Z,STRT10940 DI10950 LD A,010960 CALL 0212H10970 CALL 0284H10980 LD IX,INVENT-210990 FPR INC IX11000 INC IX11010 LD A,(IX+0)11020 CP 0011030 JR NZ,FPR11040 LD A,(IX+1)11050 CP 0011060 JR NZ,FPR11070 PUSH IX11080 POP HL11090 INC HL11100 INC HL11110 LD DE,TABRM211120 XOR A11130 SBC HL,DE11140 PUSH HL11150 POP BC11160 LD HL,TABRM211170 CLP LD A,(HL)11180 CALL 0264H11190 INC HL11200 DEC BC11210 LD A,0011220 OR B11230 JR NZ,CLP11240 LD A,C11250 OR A11260 JR NZ,CLP11270 LD A,0DCH11280 CALL 0264H11290 CALL 0264H11300 CALL 01F8H11310 EI11320 JP STRT11330 DISK LD HL,FNAME11340 CALL PRINT11350 CALL INPUT11360 LD HL,DBUF ;BUFFER11370 LD DE,BUFFER ;DCB11380 LD B,0 ;LRL11390 CALL 4420H ;INIT FILE11400 JP NZ,DERR11410 LD DE,DBUF11420 LD HL,TABRM211430 LD BC,25611440 LDIR11450 LD DE,BUFFER11460 CALL 4439H11470 JP NZ,DERR11480 LD DE,DBUF11490 LD BC,25611500 LDIR11510 LD DE,BUFFER11520 CALL 4439H11530 JR NZ,DERR11540 LD DE,DBUF11550 LD BC,25611560 LDIR11570 LD DE,BUFFER11580 CALL 4439H11590 JR Z,CFILE11600 DERR OR 80H ;LONG ERR MSG11610 CALL 4409H ;PRINT IT11620 JP STRT11630 CFILE LD DE,BUFFER11640 CALL 4428H ;CLOSE11650 JR NZ,DERR11660 JP STRT11670 LODE LD HL,TDSK11680 CALL PRINT11690 CALL 49H11700 CALL 33H11710 CP 'T'11720 JR Z,TAPE211730 CP 't'11740 JR Z,TAPE211750 CP 'D'11760 JR Z,DISK211770 CP 'd'11780 JR Z,DISK211790 LD A,1011800 CALL 33H11810 JP STRT11820 TAPE2 LD HL,CASS11830 CALL PRINT11840 CALL 49H11850 CP 0111860 JP Z,STRT11870 DI11880 LD A,011890 CALL 0212H11900 CALL 0296H11910 LD IX,TABRM2-111920 POOP CALL 0235H11930 INC IX11940 LD (IX+0),A11950 CP 0DCH11960 JR NZ,POOP11970 LD A,(IX-1)11980 CP 0DCH11990 JR NZ,POOP12000 CALL 01F8H12010 EI12020 JP START12030 DISK2 LD HL,FNAME12040 CALL PRINT12050 CALL INPUT12060 LD DE,BUFFER ;DCB12070 LD HL,DBUF ;BUFFER12080 LD B,0 ;LRL12090 CALL 4424H ;OPEN FILE12100 JP NZ,DERR12110 CALL 4436H ;READ12120 JP NZ,DERR12130 LD HL,DBUF12140 LD DE,TABRM212150 LD BC,25612160 LDIR12170 LD DE,BUFFER12180 CALL 4436H12190 JP NZ,DERR12200 LD DE,TABRM2+25612210 LD HL,DBUF12220 LD BC,25612230 LDIR12240 LD DE,BUFFER12250 CALL 4436H12260 JP NZ,DERR12270 LD DE,TABRM2+51212280 LD HL,DBUF12290 LD BC,25612300 LDIR12310 LD DE,BUFFER12320 CALL 4428H ;CLOSE12330 JP NZ,DERR12340 JP START12350 CNT19 LD HL,QUIT12360 CALL CMPR12370 JR NZ,CNT2012380 AGAIN LD HL,NEWG12390 CALL PRINT12400 CALL INPUT12410 LD A,(BUFFER)12420 CP 'N'12430 JP Z,012440 LD HL,INVENT+0FFH12450 LD BC,INVENT-TABRM2+212460 LD DE,TABRM212470 LDIR12480 JP BEG12490 CNT20 LD HL,SITT12500 CALL CMPR12510 JR NZ,CNT2112520 LD DE,(NOUN)12530 LD HL,UP12540 CALL CMPR12550 JP Z,GETUP12560 LD HL,DOWN12570 CALL CMPR12580 JP NZ,LALA12590 JP SIT12600 CNT21 LD HL,LOOK12610 CALL CMPR12620 JR NZ,CNT2212630 LD HL,BUFFER+412640 LD A,0DH12650 CP (HL)12660 JP NZ,CNT2A12670 JP START12680 CNT22 LD HL,KILL12690 CALL CMPR12700 JR NZ,CNT2312710 LD HL,HHOW12720 CALL PRINT12730 JP STRT12740 CNT23 LD HL,SHOOT12750 CALL CMPR12760 JR Z,KSH12770 LD HL,FIRE12780 CALL CMPR12790 JR NZ,CNT2412800 KSH LD HL,GUN12810 CALL SCANIN12820 JR Z,JIJ12830 LD HL,NOWEP12840 CALL PRINT12850 JP STRT12860 JIJ LD DE,FISH12870 CALL INRM12880 JR NZ,POPP12890 LD HL,FMSG12900 CALL PRINT12910 LD DE,FISH12920 CALL RMDEL12930 LD HL,MESS12940 CALL RMADD12950 LD A,0FFH12960 LD (DSHRK),A12970 JP STRT12980 POPP LD HL,OKK12990 CALL PRINT13000 JP STRT13010 CNT24 JP LALA13020 PRINT PUSH HL13030 PUSH AF13040 LP2 LD A,(HL)13050 CP 0013060 JR Z,CLEAN13070 CALL 33H13080 CP 0DH13090 JR Z,CLEAN13100 INC HL13110 JR LP213120 CLEAN POP AF13130 POP HL13140 RET13150 DFIND LD HL,TABRM13160 DEC A13170 SLA A13180 LD C,A13190 LD B,013200 ADD HL,BC13210 PUSH HL13220 POP IX13230 LD H,(IX+1)13240 LD L,(IX+0)13250 RET13260 RSFIND LD A,(RUM)13270 PUSH DE13280 LD E,A13290 LD D,013300 LD B,20D13310 DEC E13320 LD HL,TABRM213330 LOP ADD HL,DE13340 DJNZ LOP13350 PUSH HL13360 POP IX13370 POP DE13380 RET13390 PFD LD A,(RUM)13400 LD E,A13410 DEC E13420 LD B,613430 LD HL,ETAB13440 LD D,013450 LOP2 ADD HL,DE13460 DJNZ LOP213470 PUSH HL13480 POP IX13490 RET13500 INPUT LD A,0EH13510 CALL 33H13520 LD B,50D13530 LD HL,BUFFER13540 INP1 CALL 49H13550 CP 0813560 JR Z,BS13570 CALL 33H13580 CP 6513590 JR C,SPIK13600 AND 223 ;MAKE LC13610 SPIK CP 01FH13620 JR Z,NEWS13630 LD (HL),A13640 INC HL13650 CP 0DH13660 RET Z13670 DJNZ INP113680 RET13690 BS PUSH HL13700 LD DE,BUFFER13710 XOR A13720 SBC HL,DE13730 POP HL13740 JR Z,INP113750 DEC HL13760 LD A,813770 CALL 33H13780 JR INP113790 NEWS POP HL13800 JP START13810 CMPR LD B,04D13820 PUSH HL13830 PUSH DE13840 EX DE,HL13850 HEE LD C,(HL)13860 LD A,(DE)13870 CP 0013880 JR Z,HERE13890 CP 0DH13900 JR Z,HERE13910 SUB C13920 JR NZ,HERE13930 INC HL13940 INC DE13950 DJNZ HEE13960 HERE POP DE13970 POP HL13980 RET 13990 RMADD PUSH HL14000 CALL RSFIND14010 INC HL14020 LIN LD A,(HL)14030 CP 0014040 JR Z,GIN14050 INC HL14060 INC HL14070 JR LIN14080 GIN PUSH HL14090 POP IX14100 DEC IX14110 POP HL14120 LD (IX+0),L14130 LD (IX+1),H14140 LD (IX+2),0014150 LD (IX+3),0014160 RET14170 INRM PUSH DE14180 EX DE,HL14190 CALL SEARCH14200 EX DE,HL14210 CALL RSFIND14220 LD BC,20D14230 LOOPA LD A,E14240 LOOPB CPI14250 JR Z,MAYBE14260 JP PE,LOOPB14270 LD A,0FFH14280 OR A14290 POP DE14300 RET14310 MAYBE LD A,D14320 CP (HL)14330 JP NZ,LOOPA14340 POP DE14350 RET14360 SCANIN LD BC,22D14370 EX DE,HL14380 LD HL,INVENT14390 PUSH DE14400 JR LOOPA14410 SEARCH EX DE,HL14420 LD HL,WRDTAB14430 OPO CALL CMPR14440 RET Z14450 LD BC,0014460 LD A,0014470 CPIR14480 LD A,(HL)14490 CP 0FFH14500 JR NZ,OPO14510 LD HL,0ABCDH14520 OR A14530 RET14540 INDEL LD HL,(NOUN)14550 CALL SEARCH14560 INDEL2 CALL SCANIN14570 PUSH HL14580 POP IX14590 DEC IX14600 YTY LD H,(IX+3)14610 LD L,(IX+2)14620 LD BC,0014630 LD (IX+0),L14640 LD (IX+1),H14650 XOR A14660 SBC HL,BC14670 INC IX14680 INC IX14690 JR NZ,YTY14700 RET14710 NOUNCK LD DE,(NOUN)14720 NCHK2 LD A,(NFLG)14730 CP 014740 JR NZ,WOODY14750 LD A,0FFH14760 OR A14770 RET14780 WOODY CALL INRM14790 RET Z14800 EX DE,HL14810 CALL SEARCH14820 CALL SCANIN14830 RET14840 REMOVE PUSH DE14850 PUSH HL14860 POP DE14870 CALL SCANIN14880 JR NZ,GTT14890 PUSH DE14900 POP HL14910 CALL INDEL14920 POP DE14930 RET14940 GTT CALL RMDEL14950 POP DE14960 RET14970 DISNZ RET Z14980 PUSH AF14990 PUSH HL15000 LD HL,NTER15010 CALL PRINT15020 POP HL15030 POP AF15040 RET15050 DISNZ2 RET Z15060 PUSH AF15070 PUSH HL15080 LD HL,NCRRY15090 CALL PRINT15100 POP HL15110 POP AF15120 RET15130 DISZ RET NZ15140 PUSH HL15150 PUSH AF15160 LD HL,NTER15170 CALL PRINT15180 POP HL15190 POP AF15200 RET15210 CHANGE LD DE,(NOUN)15220 LD HL,MASK+415230 CALL CMPR15240 JR NZ,N415250 LD HL,MASK15260 JR DRM15270 N4 LD HL,NEST+415280 CALL CMPR15290 JR NZ,N515300 LD HL,NEST15310 JR DRM15320 N5 LD HL,RAT+615330 CALL CMPR15340 JR NZ,N615350 LD HL,RAT15360 JR DRM15370 N6 LD HL,TD+515380 CALL CMPR15390 JR NZ,N715400 LD HL,TD15410 JR DRM15420 N7 LD HL,MESS+1015430 CALL CMPR15440 JR NZ,N815450 LD A,(DSHRK)15460 CP 0015470 JR Z,N8 ;SHARK STILL ALIVE15480 LD HL,MESS15490 JR DRM15500 N8 LD HL,CHAIR+615510 CALL CMPR15520 RET NZ15530 LD HL,CHAIR15540 DRM LD (NOUN),HL15550 RET15560 INTRO DEFB 1015570 DEFB 3215580 DEFB 17615590 DEFB 14015600 DEFB 14015610 DEFB 14015620 DEFB 14015630 DEFB 14015640 DEFB 17615650 DEFB 1015660 DEFB 19115670 DEFB 3215680 DEFB 3215690 DEFB 3215700 DEFB 3215710 DEFB 3215720 DEFB 3215730 DEFB 3215740 DEFB 19115750 DEFB 3215760 DEFB 3215770 DEFB 17615780 DEFB 3215790 DEFB 3215800 DEFB 3215810 DEFB 3215820 DEFB 17615830 DEFB 3215840 DEFB 3215850 DEFB 17615860 DEFB 17615870 DEFB 17615880 DEFB 17615890 DEFB 17615900 DEFB 17615910 DEFB 3215920 DEFB 3215930 DEFB 17615940 DEFB 17615950 DEFB 17615960 DEFB 17615970 DEFB 17615980 DEFB 17615990 DEFB 3216000 DEFB 3216010 DEFB 17616020 DEFB 17616030 DEFB 19116040 DEFB 17616050 DEFB 17616060 DEFB 1016070 DEFB 19116080 DEFB 3216090 DEFB 3216100 DEFB 3216110 DEFB 3216120 DEFB 3216130 DEFB 17616140 DEFB 3216150 DEFB 19116160 DEFB 3216170 DEFB 3216180 DEFB 19116190 DEFB 3216200 DEFB 3216210 DEFB 3216220 DEFB 3216230 DEFB 19116240 DEFB 3216250 DEFB 3216260 DEFB 19116270 DEFB 14016280 DEFB 14016290 DEFB 14016300 DEFB 14016310 DEFB 14316320 DEFB 3216330 DEFB 3216340 DEFB 13116350 DEFB 14016360 DEFB 14016370 DEFB 17616380 DEFB 17616390 DEFB 17616400 DEFB 3216410 DEFB 3216420 DEFB 3216430 DEFB 3216440 DEFB 19116450 DEFB 1016460 DEFB 3216470 DEFB 13116480 DEFB 14016490 DEFB 14016500 DEFB 14016510 DEFB 14016520 DEFB 14016530 DEFB 13116540 DEFB 14016550 DEFB 3216560 DEFB 3216570 DEFB 13116580 DEFB 14016590 DEFB 14016600 DEFB 14016610 DEFB 14016620 DEFB 13116630 DEFB 3216640 DEFB 3216650 DEFB 14316660 DEFB 14016670 DEFB 14016680 DEFB 14016690 DEFB 14016700 DEFB 14316710 DEFB 3216720 DEFB 3216730 DEFB 14016740 DEFB 14016750 DEFB 14016760 DEFB 14016770 DEFB 14016780 DEFB 14316790 DEFB 3216800 DEFB 3216810 DEFB 3216820 DEFB 3216830 DEFB 14316840 DEFB 1016850 DEFB 1016860 DEFM ' '16870 DEFB 19116880 DEFB 13116890 DEFB 13116900 DEFB 13116910 DEFB 13116920 DEFB 13116930 DEFB 1016940 DEFM ' '16950 DEFB 19116960 DEFB 14016970 DEFB 14016980 DEFB 14016990 DEFB 14017000 DEFB 3217010 DEFB 3217020 DEFB 3217030 DEFB 18817040 DEFB 13117050 DEFB 13117060 DEFB 13117070 DEFB 13117080 DEFB 18817090 DEFB 3217100 DEFB 3217110 DEFB 19117120 DEFB 14017130 DEFB 13117140 DEFB 13117150 DEFB 14017160 DEFB 1017170 DEFM ' '17180 DEFB 14317190 DEFM ' '17200 DEFB 13117210 DEFB 14017220 DEFB 14017230 DEFB 14017240 DEFB 14017250 DEFB 13117260 DEFB 3217270 DEFB 3217280 DEFB 14317290 DEFB 1017300 DEFB 1017310 DEFM ' '17320 DEFB 19117330 DEFB 13117340 DEFB 13117350 DEFB 13117360 DEFB 13117370 DEFB 13117380 DEFB 3217390 DEFB 17617400 DEFB 1017410 DEFM ' '17420 DEFB 19117430 DEFB 14017440 DEFB 14017450 DEFB 14017460 DEFB 14017470 DEFB 3217480 DEFB 3217490 DEFB 18817500 DEFB 3217510 DEFB 3217520 DEFB 19117530 DEFB 14017540 DEFB 13117550 DEFB 13117560 DEFB 14017570 DEFB 3217580 DEFB 3217590 DEFB 19117600 DEFB 17917610 DEFB 17917620 DEFB 17917630 DEFB 19117640 DEFB 1017650 DEFB 3217660 DEFB 3217670 DEFM ' '17680 DEFB 14317690 DEFM ' '17700 DEFB 14317710 DEFB 3217720 DEFB 3217730 DEFB 14317740 DEFM ' '17750 DEFB 14317760 DEFB 14017770 DEFB 14017780 DEFB 14017790 DEFB 14017800 DEFB 1017810 DEFB 21317820 DEFM 'Ver 1.1'17830 DEFB 1017840 DEFB 21317850 DEFM '(C) COPYRIGHT 1983 By ANTHONY WOOD'17860 DEFB 0DH17870 PRED DEFM '<------------------------------------------------------------->'17880 DEFB 0DH17890 PRED2 DEFM 'You'17900 DEFB 3917910 DEFM 're '17920 DEFB 0017930 MOKEY DEFM 'I CAN SEE: '17940 DEFB 0017950 BKSAIS DEFM 'The book'17960 DEFB 3917970 DEFM 's title is "11 Easy Steps to Scuba Diving"'17980 DEFB 1017990 DEFM 'Not a bad book.'18000 DEFB 0DH18010 STRNG DEFM 'I feel strange.'18020 DEFB 0DH18030 NEWG DEFM 'Do you wish to play another game? '18040 DEFB 0018050 DUMB DEFM 'WEEEEEEEEE.......... ** SPLAT **'18060 DEFB 0DH18070 DSP DEFM '. '18080 DEFB 0018090 NTER DEFM 'There isn'18100 DEFB 3918110 DEFM 't one here!'18120 DEFB 0DH18130 SMSG DEFM 'The coconut sails over the cliff and lands'18140 DEFB 1018150 DEFM 'with a satisfactory thud.'18160 DEFB 0DH18170 WOWW DEFM ' ** CONGRATULATIONS **'18180 DEFB 1018190 DEFM 'You have solved "QUEST FOR FIRE"!!'18200 DEFB 0DH18210 RABID DEFM 'You are no match for a giant rat!! Annoyed'18220 DEFB 1018230 DEFM 'at your feeble blows, the rat rips you apart!!'18240 DEFB 0DH18250 FNAME DEFB 1018260 DEFM 'File name ===--> '18270 DEFB 0018280 CASS DEFB 1018290 DEFM 'Press <ENTER> when you are ready.'18300 DEFB 1318310 TDSK DEFM '<T>ape or <D>isk ? '18320 DEFB 0018330 SLIMSG DEFM 'The slime is too thick and slippery to hold.'18340 DEFB 0DH18350 NSTMSG DEFM 'The nest is too firmly stuck to get.'18360 DEFB 0DH18370 RATMSG DEFM 'The rat is to quick to catch.'18380 DEFB 0DH18390 VMSG DEFM 'The bottle is a small container of gas with a'18400 DEFB 1018410 DEFM 'valve on the neck of the bottle.'18420 DEFB 0DH18430 EXIT DEFM 'OBVIOUS EXITS ARE '18440 DEFB 0018450 NORTH DEFM 'NORTH'18460 DEFB 0018470 SOUTH DEFM 'SOUTH'18480 DEFB 0018490 EAST DEFM 'EAST'18500 DEFB 0018510 WEST DEFM 'WEST'18520 DEFB 0018530 QUEST DEFM 'Tell me what to do now -----> '18540 DEFB 0018550 BADIN DEFM 'Huh?'18560 DEFB 0DH18570 NOD DEFM 'There isn'18580 DEFB 3918590 DEFM 't a door on the pyramid!'18600 DEFB 0DH18610 BADDI DEFM 'You cannot go that way!'18620 DEFB 0DH18630 INVEN DEFM 'INVE'18640 DEFB 0DH18650 NOCAR DEFM 'You arn'18660 DEFB 3918670 DEFM 't carrying anything.'18680 DEFB 0DH18690 PYRDES DEFM 'The pyramid is very old.'18700 DEFB 0DH18710 COCDES DEFM 'Somthing is loose inside.'18720 DEFB 0DH18730 COPE DEFM 'The chest is open.'18740 DEFB 0DH18750 ISEE DEFM 'I SEE '18760 DEFB 0018770 NOTH DEFM 'I see nothing special.'18780 DEFB 0DH18790 NOCAT DEFM 'Bad move my friend, the shark decides it is lunch time...'18800 DEFB 0DH18810 CANT DEFM 'Sorry, I cannot do that.'18820 DEFB 0DH18830 NCRRY DEFM 'You arn'18840 DEFB 3918850 DEFM 't carrying one!'18860 DEFB 0DH18870 OKK DEFM 'OK'18880 DEFB 0DH18890 TOHEVY DEFM 'It'18900 DEFB 3918910 DEFM 's too heavy!!'18920 DEFB 0DH18930 LOCK DEFM 'The chest is locked.'18940 DEFB 0DH18950 FOUND DEFM 'I found a chest!'18960 DEFB 0DH18970 CMSG DEFM 'Nothing here.'18980 DEFB 0DH18990 NEED DEFM 'You need a key!!'19000 DEFB 0DH19010 UP DEFM 'UP'19020 DEFB 0019030 DOWN DEFM 'DOWN'19040 DEFB 0019050 UNUN DEFM 'You'19060 DEFB 3919070 DEFM 're not getting me down there!!'19080 DEFB 1019090 DEFM 'I can'19100 DEFB 3919110 DEFM 't breath underwater!!'19120 DEFB 0DH19130 DMSG DEFM 'The pyramid seems to change below.'19140 DEFB 0DH19150 FMSG DEFM 'KKAAAAAAAPPOOOFFFFFF!! You really totaled'19160 DEFB 1019170 DEFM 'that shark!'19180 DEFB 0DH19190 FMSG2 DEFM 'The shark doesn'19200 DEFB 3919210 DEFM 't take kindly to'19220 DEFB 1019230 DEFM 'being poked at... '19240 DEFB 0DH19250 HHOW DEFM 'How?'19260 DEFB 0DH19270 RMSG DEFM 'There is a ring here that the shark'19280 DEFB 1019290 DEFM 'must have swallowed!'19300 DEFB 0DH19310 NOTOP DEFM 'The door isn'19320 DEFB 3919330 DEFM 't open.'19340 DEFB 0DH19350 SLIPS DEFM 'The sand soon slips back to the ground.'19360 DEFB 1019370 DEFM 'It'19380 DEFB 3919390 DEFM 's to hard to carry.'19400 DEFB 0DH19410 IDIE DEFM 'AGGGHHHH... I can'19420 DEFB 3919430 DEFM 't breath under water.'19440 DEFB 1019450 DEFM 'GURGGLR.. BURBBLE GURBLE....'19460 DEFB 0DH19470 NOWEP DEFM 'You need a weapon.'19480 DEFB 0DH19490 GOEN DEFM 'As you step through the entrance, you'19500 DEFB 1019510 DEFM 'feel dizzy. The door that should be'19520 DEFB 1019530 DEFM 'behind you is gone!'19540 DEFB 0DH19550 COMBO DEFM 'What is the combination? '19560 DEFB 0019570 EMPTY DEFM 'It'19580 DEFB 3919590 DEFM 's empty.'19600 DEFB 0DH19610 FALLS DEFM 'A gas mask falls out!'19620 DEFB 0DH19630 WRONG DEFM 'The safe won'19640 DEFB 3919650 DEFM 't open.'19660 DEFB 0DH19670 RIGHT DEFM 'The safe opens.'19680 DEFB 0DH19690 SAYS DEFM 'It says '19700 DEFB 0019710 WOWY DEFM 'Suddenly your back in the forest!'19720 DEFB 0DH19730 DEAD DEFM 'HISSSSSSSSSS........ Things are getting black...'19740 DEFB 1019750 DEFM 'I do believe i'19760 DEFB 3919770 DEFM 'm dead!'19780 DEFB 0DH19790 GGONE DEFM 'Nothing happens.'19800 DEFB 0DH19810 NOHAP DEFM 'There is a slight hissing sound, but'19820 DEFB 1019830 DEFM 'nothing else exciting happens.'19840 DEFB 0DH19850 COUGH DEFM 'There is a slight hissing..'19860 DEFB 1019870 DEFM 'The rat dies!'19880 DEFB 0DH19890 NONO DEFM 'I never learned how to scuba!'19900 DEFB 0DH19910 FBOOK DEFM 'I found a book here!'19920 DEFB 0DH19930 RNO DEFM 'The rat won'19940 DEFB 3919950 DEFM 't let you!'19960 DEFB 0DH19970 STRONG DEFM 'I can'19980 DEFB 3919990 DEFM 't do that.'20000 DEFB 0DH20010 WRDTAB EQU $20020 GOAT DEFM 'GOAT'20030 DEFB 0020040 EXAM DEFM 'EXAM'20050 DEFB 0020060 LOOK DEFM 'LOOK'20070 DEFB 00H20080 CLIMB DEFM 'CLIM'20090 DEFB 0020100 PYRA DEFM 'PYRAMID'20110 DEFB 0020120 COCO DEFM 'COCONUT'20130 DEFB 0020140 KEY DEFM 'KEY'20150 DEFB 0020160 SHELL DEFM 'SHELL OF COCONUT'20170 DEFB 0020180 QUIT DEFM 'QUIT'20190 DEFB 0020200 THROW DEFM 'THRO'20210 DEFB 0020220 UNLOCK DEFM 'UNLO'20230 DEFB 0020240 CHES DEFM 'CHEST'20250 DEFB 0020260 AQA DEFM 'AQUA-LUNG'20270 DEFB 0020280 NOTE DEFM 'NOTE'20290 DEFB 0020300 DAG DEFM 'DAGGER'20310 DEFB 0020320 DIG DEFM 'DIG'20330 DEFB 0020340 LOAD DEFM 'LOAD'20350 DEFB 0020360 DEFM 'SAVE'20370 DEFB 0020380 TAKE DEFM 'TAKE'20390 DEFB 0020400 PICK DEFM 'PICK'20410 DEFB 0020420 SHOOT DEFM 'SHOO'20430 DEFB 0020440 FIRE DEFM 'FIRE'20450 DEFB 0020460 USE DEFM 'USE'20470 DEFB 0020480 JUMP DEFM 'JUMP'20490 DEFB 0020500 OPEN DEFM 'OPEN'20510 DEFB 0020520 SLIM DEFM 'SLIME'20530 DEFB 0020540 GUN DEFM 'SPEAR-GUN'20550 DEFB 0020560 GET DEFM 'GET'20570 DEFB 0020580 FISH DEFM 'SHARK'20590 DEFB 0020600 TREE DEFM 'COCONUT TREE'20610 DEFB 0020620 KNOB DEFM 'KNOB'20630 DEFB 0020640 TD DEFM 'TRAP DOOR'20650 DEFB 0020660 DROP DEFM 'DROP'20670 DEFB 0020680 PUT DEFM 'PUT'20690 DEFB 0020700 EMER DEFM 'EMERALD OF FIRE'20710 DEFB 0020720 RING DEFM 'RING'20730 DEFB 0020740 GO DEFM 'GO'20750 DEFB 0020760 TREES DEFM 'OAK AND PINE TREES'20770 DEFB 0020780 SITT DEFM 'SIT'20790 DEFB 0020800 SAND DEFM 'SAND'20810 DEFB 0020820 POOL DEFM 'POOL'20830 DEFB 0020840 SWIM DEFM 'SWIM'20850 DEFB 0020860 KILL DEFM 'KILL'20870 DEFB 0020880 STAB DEFM 'STAB'20890 DEFB 0020900 SACRA DEFM 'SACR'20910 DEFB 0020920 CARCA DEFM 'CARCASS'20930 DEFB 0020940 MESS DEFM 'MUTILATED SHARK'20950 DEFB 0020960 DOOR DEFM 'ENTRANCE'20970 DEFB 0020980 SAFE DEFM 'SAFE'20990 DEFB 0021000 SPIND DEFM 'TUMB'21010 DEFB 0021020 BOOK DEFM 'BOOK'21030 DEFB 0021040 RAT DEFM 'GIANT RAT'21050 DEFB 0021060 NEST DEFM 'RAT NEST'21070 DEFB 0021080 BOTTLE DEFM 'BOTTLE OF GAS'21090 DEFB 0021100 MASK DEFM 'GAS MASK'21110 DEFB 0021120 CHAIR DEFM 'WEIRD CHAIR'21130 DEFB 0021140 CMB DEFM '36-26-36'21150 DEFB 0DH21160 READ DEFM 'READ'21170 DEFB 0021180 PRESS DEFM 'PRESS'21190 DEFB 0021200 PUSH DEFM 'PUSH'21210 DEFB 0021220 TURN DEFM 'TURN'21230 DEFB 0021240 VALVE DEFM 'VALVE'21250 DEFB 0021260 DEADR DEFM 'DEAD RAT'21270 DEFB 0021280 WEAR DEFM 'WEAR'21290 DEFB 0021300 BREAK DEFM 'BREA'21310 DEFB 0021320 CRU DEFM 'CRAC'21330 DEFB 0021340 SMA DEFM 'SMAS'21350 DEFB 0021360 AROUND DEFM 'AROU'21370 DEFB 0021380 DEFB 0FFH21390 TABRM DEFW RM121400 DEFW RM221410 DEFW RM321420 DEFW RM421430 DEFW RM521440 DEFW RM621450 DEFW RM721460 DEFW RM821470 DEFW RM921480 DEFW RM1021490 DEFW RM1121500 DEFW RM1221510 DEFW RM1321520 DEFW RM1421530 DEFW RM1521540 DEFW RM1621550 DEFW RM1721560 DEFW RM1821570 DEFW RM1921580 DEFW RM2021590 DEFW RM2121600 RM1 DEFM 'atop a sacrifice cliff overlooking a pyramid far below.'21610 DEFB 0DH21620 RM2 DEFM 'in a small clearing amidst an endless forest.'21630 DEFB 0DH21640 RM3 DEFM 'in a forest. A sign says:'21650 DEFB 1021660 DEFM '"Bring the Emerald of Fire here."'21670 DEFB 0DH21680 RM4 DEFM 'in a forest.'21690 DEFB 0DH21700 RM5 DEFM 'in a large clearing in the middle of an endless forest.'21710 DEFB 0DH21720 RM6 DEFM 'at the top of a coconut tree.'21730 DEFB 0DH21740 RM7 DEFM 'in a chair.'21750 DEFB 0DH21760 RM8 DEFM 'in a small alcove.'21770 DEFB 0DH21780 RM9 DEFM 'inside a magnificant cavern.'21790 DEFB 0DH21800 RM10 DEFM 'in a sloping hallway.'21810 DEFB 0DH21820 RM11 DEFM 'at an intersection.'21830 DEFB 0DH21840 RM12 DEFM 'in a dank cavern.'21850 DEFB 0DH21860 RM13 DEFM 'in a pool of murky water.'21870 DEFB 0DH21880 RM14 DEFM 'at the bottom of a pool of murky water.'21890 DEFB 0DH21900 RM15 DEFM 'in the remains of a well shaft.'21910 DEFB 0DH21920 RM16 DEFM 'in a flooded hall.'21930 DEFB 0DH21940 RM17 DEFM 'in an irregular cavern.'21950 DEFB 0DH21960 RM18 DEFM 'in a large cavern.'21970 DEFB 0DH21980 RM19 DEFM 'in the treasure chamber.'21990 DEFB 0DH22000 RM20 DEFM 'in a narrow hall.'22010 DEFB 0DH22020 RM21 DEFM 'in a cubic shaped room.'22030 DEFB 0DH22040 ETAB EQU $22050 DEFB 00 ;122060 DEFB 0022070 DEFB 422080 DEFB 222090 DEFB 0022100 DEFB 0022110 DEFB 1 ;222120 DEFB 322130 DEFB 522140 DEFB 022150 DEFW 000022160 DEFB 5 ;322170 DEFB 022180 DEFB 422190 DEFB 222200 DEFW 000022210 DEFB 1 ;422220 DEFB 322230 DEFB 022240 DEFB 522250 DEFW 000022260 DEFB 00 ;522270 DEFB 322280 DEFB 422290 DEFB 222300 DEFW 000022310 DEFW 0000 ;622320 DEFW 000022330 DEFB 0022340 DEFB 0522350 DEFW 0000 ;722360 DEFW 000022370 DEFW 000022380 DEFB 00 ;822390 DEFB 1222400 DEFW 000022410 DEFW 000022420 DEFB 00 ;922430 DEFB 1022440 DEFW 000022450 DEFW 000022460 DEFB 9 ;1022470 DEFB 1122480 DEFW 000022490 DEFW 000022500 DEFB 10D ;1122510 DEFB 20D22520 DEFB 12D22530 DEFB 0022540 DEFW 000022550 DEFB 8 ;1222560 DEFB 0022570 DEFB 0022580 DEFB 1122590 DEFW 000022600 DEFW 0000 ;1322610 DEFW 000022620 DEFW 000CH22630 DEFW 0000 ;1422640 DEFW 000022650 DEFB 13D22660 DEFB 0022670 DEFW 0000 ;1522680 DEFW 000022690 DEFB 14D22700 DEFB 16D22710 DEFW 0000 ;1622720 DEFB 1722730 DEFB 1822740 DEFB 1522750 DEFB 0022760 DEFW 0000 ;1722770 DEFB 0022780 DEFB 1622790 DEFB 1922800 DEFB 0022810 DEFW 0000 ;1822820 DEFB 1622830 DEFB 0022840 DEFW 000022850 DEFW 0000 ;1922860 DEFW 000022870 DEFB 022880 DEFB 1722890 DEFB 11 ;2022900 DEFB 2122910 DEFW 000022920 DEFW 000022930 DEFB 20 ;2122940 DEFB 0022950 DEFW 000022960 DEFW 000022970 DBUF DEFS 25722980 BUFFER DEFS 65D22990 TABRM2 DEFW 0000 ;123000 DEFS 1823010 DEFW GOAT ;223020 DEFW TREES23030 DEFW 000023040 DEFS 1423050 DEFW TREES ;323060 DEFW 000023070 DEFS 1623080 DEFW SAND ;423090 DEFW 000023100 DEFS 1623110 DEFW PYRA ;523120 DEFW TREE23130 DEFW 000023140 DEFS 1423150 DEFW COCO ;623160 DEFW 000023170 DEFS 1623180 DEFW KNOB ;723190 DEFW 000023200 DEFS 1623210 DEFW RAT ;823220 DEFW NEST23230 DEFW 000023240 DEFS 1423250 DEFW SAFE ;923260 DEFW 000023270 DEFS 1623280 DEFW 0000 ;1023290 DEFS 1823300 DEFW 0000 ;1123310 DEFS 1823320 DEFW POOL ;1223330 DEFW 000023340 DEFS 1623350 DEFW 0000 ;1323360 DEFS 1823370 DEFW SLIM ;1423380 DEFW 000023390 DEFS 1623400 DEFW 0000 ;1523410 DEFS 1823420 DEFW 0000 ;1623430 DEFS 1823440 DEFW CHAIR ;1723450 DEFW 000023460 DEFS 1623470 DEFW FISH ;1823480 DEFW 000023490 DEFS 1623500 DEFW EMER ;1923510 DEFW 000023520 DEFS 1623530 DEFW 0000 ;2023540 DEFS 1823550 DEFW BOTTLE ;2123560 DEFW 000023570 DEFS 1623580 RUM DEFB 0323590 NOUN DEFW 000023600 OPCL DEFB 0023610 CITEM DEFB 0FFH23620 SITEM DEFB 0FFH23630 CHERE DEFB 0123640 MSK DEFB 0023650 WEARG DEFB 0023660 NFLG DEFB 0023670 FULLG DEFB 0023680 RINGW DEFB 0023690 REDM DEFB 0023700 TDOP DEFB 0023710 GOTRG DEFB 0023720 GOTM DEFB 0023730 DSHRK DEFB 0023740 INVENT DEFW 000023750 END 5200H