00100 ; *************************** 00110 ; ** QUEST FOR FIRE ** 00120 ; ** (C) 1983 ANTHONY WOOD ** 00130 ; *************************** 00140 ; 00150 ; 3/1/83 VER. 1.1A 00160 ; 11/7/83 00170 ORG 05200H 00180 LD HL,TABRM2 00190 LD DE,INVENT+0FFH 00200 LD BC,INVENT-TABRM2+2 00210 LDIR 00220 BEG CALL 01C9H 00230 LD HL,INTRO 00240 CALL PRINT 00250 CALL 49H 00260 START CALL 01C9H 00270 S2 LD A,(RUM) 00280 LD HL,PRED 00290 CALL PRINT 00300 LD HL,PRED2 00310 CALL PRINT 00320 CALL DFIND 00330 CALL PRINT 00340 CALL RSFIND 00350 LD BC,00 00360 LD H,(IX+1) 00370 LD L,(IX+0) 00380 XOR A 00390 ADC HL,BC 00400 JR Z,MAIN 00410 PUSH HL 00420 LD HL,MOKEY 00430 CALL PRINT 00440 POP HL 00450 LP1 CALL PRINT 00460 LD HL,DSP 00470 CALL PRINT 00480 INC IX 00490 INC IX 00500 LD H,(IX+1) 00510 LD L,(IX+0) 00520 LD BC,00 00530 XOR A 00540 ADC HL,BC 00550 JR NZ,LP1 00560 LD A,10 00570 CALL 33H 00580 MAIN CALL PFD 00590 LD A,0 00600 LD A,(IX+0) 00610 LD B,(IX+1) 00620 ADD A,B 00630 LD B,(IX+2) 00640 ADD A,B 00650 LD B,(IX+3) 00660 ADD A,B 00670 LD B,(IX+4) 00680 ADD A,B 00690 LD B,(IX+5) 00700 ADD A,B 00710 CP 00 00720 JR Z,NXT6 00730 LD HL,EXIT 00740 CALL PRINT 00750 LD A,(IX+0) 00760 CP 0 00770 JR Z,NXT1 00780 LD HL,NORTH 00790 CALL PRINT 00800 LD HL,DSP 00810 CALL PRINT 00820 NXT1 LD A,(IX+1) 00830 CP 00 00840 JR Z,NXT2 00850 LD HL,SOUTH 00860 CALL PRINT 00870 LD HL,DSP 00880 CALL PRINT 00890 NXT2 LD A,(IX+2) 00900 CP 00 00910 JR Z,NXT3 00920 LD HL,EAST 00930 CALL PRINT 00940 LD HL,DSP 00950 CALL PRINT 00960 NXT3 LD A,(IX+3) 00970 CP 00 00980 JR Z,NXT4 00990 LD HL,WEST 01000 CALL PRINT 01010 LD HL,DSP 01020 CALL PRINT 01030 NXT4 LD A,(IX+4) 01040 CP 00 01050 JR Z,NXT5 01060 LD HL,UP 01070 CALL PRINT 01080 LD HL,DSP 01090 CALL PRINT 01100 NXT5 LD A,(IX+5) 01110 CP 00 01120 JR Z,NXT6 01130 LD HL,DOWN 01140 CALL PRINT 01150 NXT6 LD A,10 01160 CALL 33H 01170 LD HL,PRED 01180 CALL PRINT 01190 STRT CALL CNT0 01200 LD HL,QUEST 01210 CALL PRINT 01220 CALL INPUT 01230 LD IX,BUFFER 01240 LD A,(IX+0) 01250 CP 0DH 01260 JR Z,STRT 01270 LD A,(IX+1) 01280 CP 0DH 01290 JR NZ,NOPE 01300 LD A,(IX+0) 01310 CP 'N' 01320 JR Z,NRTH 01330 CP 'S' 01340 JR Z,SOTH 01350 CP 'E' 01360 JR Z,EST 01370 CP 'W' 01380 JR Z,WST 01390 CP 'U' 01400 JP Z,UPP 01410 CP 'D' 01420 JP Z,DN 01430 CP 'I' 01440 JP Z,INJN 01450 LD HL,BADIN 01460 CALL PRINT 01470 JP STRT 01480 NOPE LD DE,BUFFER 01490 LD HL,NORTH 01500 CALL CMPR 01510 JR Z,NRTH 01520 LD HL,SOUTH 01530 CALL CMPR 01540 JR Z,SOTH 01550 LD HL,EAST 01560 CALL CMPR 01570 JR Z,EST 01580 LD HL,WEST 01590 CALL CMPR 01600 JR Z,WST 01610 LD HL,UP 01620 CALL CMPR 01630 JR Z,UPP 01640 LD HL,DOWN 01650 CALL CMPR 01660 JR Z,DN 01670 JP CNT1 01680 NRTH CALL PFD 01690 LD A,(IX+0) 01700 CP 00 01710 JR Z,ERR1 01720 LD (RUM),A 01730 JP START 01740 SOTH CALL PFD 01750 LD A,(IX+1) 01760 CP 00 01770 JR Z,ERR1 01780 LD (RUM),A 01790 JP START 01800 EST CALL PFD 01810 LD A,(IX+2) 01820 CP 00 01830 JR Z,ERR1 01840 LD (RUM),A 01850 JP START 01860 WST CALL PFD 01870 LD A,(IX+3) 01880 CP 00 01890 JR Z,ERR1 01900 LD (RUM),A 01910 JP START 01920 UPP CALL PFD 01930 LD A,(IX+4) 01940 CP 00 01950 JR Z,ERR1 01960 LD (RUM),A 01970 JP START 01980 DN CALL PFD 01990 LD A,(IX+5) 02000 CP 00 02010 JR Z,ERR1 02020 LD (RUM),A 02030 JP START 02040 ERR1 LD HL,BADDI 02050 CALL PRINT 02060 JP STRT 02070 CNT0 LD A,(RUM) 02080 CP 03 02090 RET NZ 02100 LD DE,EMER 02110 CALL INRM 02120 RET NZ 02130 LD HL,WOWW 02140 CALL PRINT 02150 JP AGAIN 02160 CNT1 LD HL,BUFFER 02170 BILL LD A,(HL) 02180 CP 20H 02190 JR Z,ELDOG 02200 CP 0DH 02210 INC HL 02220 JR NZ,BILL 02230 LD A,0 02240 LD (NFLG),A 02250 JR BILL2 02260 ELDOG INC HL 02270 LD A,0FFH 02280 LD (NFLG),A 02290 LD (NOUN),HL 02300 BILL2 CALL CHANGE 02310 LD DE,BUFFER 02320 LD HL,INVEN 02330 CALL CMPR 02340 JR NZ,CNT2 02350 INJN LD IX,INVENT 02360 LD H,(IX+1) 02370 LD L,(IX+0) 02380 LD BC,00 02390 XOR A 02400 SBC HL,BC 02410 JR Z,NOTHIN 02420 LOOP CALL PRINT 02430 LD HL,DSP 02440 CALL PRINT 02450 INC IX 02460 INC IX 02470 LD H,(IX+1) 02480 LD L,(IX+0) 02490 XOR A 02500 SBC HL,BC 02510 JR NZ,LOOP 02520 LD A,10 02530 CALL 33H 02540 JP STRT 02550 NOTHIN LD HL,NOCAR 02560 CALL PRINT 02570 JP STRT 02580 CNT2 LD HL,EXAM 02590 CALL CMPR 02600 JP NZ,CNT3 02610 CNT2A LD HL,(NOUN) 02620 LD DE,AROUND 02630 CALL CMPR 02640 JP Z,NOSP 02650 LD DE,NORTH 02660 CALL CMPR 02670 JP Z,NOSP 02680 LD DE,SOUTH 02690 CALL CMPR 02700 JP Z,NOSP 02710 LD DE,EAST 02720 CALL CMPR 02730 JP Z,NOSP 02740 LD DE,WEST 02750 CALL CMPR 02760 JP Z,NOSP 02770 LD DE,UP 02780 CALL CMPR 02790 JP Z,NOSP 02800 LD DE,DOWN 02810 CALL CMPR 02820 JP Z,NOSP 02830 CALL NOUNCK 02840 CALL DISNZ 02850 JP NZ,STRT 02860 LD DE,MESS 02870 LD HL,(NOUN) 02880 CALL CMPR 02890 JR NZ,GGG 02900 LD A,(GOTRG) 02910 CP 01H 02920 JP Z,NOSP 02930 LD HL,RMSG 02940 CALL PRINT 02950 LD HL,RING 02960 CALL RMADD 02970 LD A,01 02980 LD (GOTRG),A 02990 JP STRT 03000 GGG LD DE,PYRA 03010 CALL CMPR 03020 JR NZ,DOG1 03030 LD HL,PYRDES 03040 CALL PRINT 03050 JP STRT 03060 DOG1 LD DE,COCO 03070 CALL CMPR 03080 JR NZ,DOG2 03090 LD HL,COCDES 03100 CALL PRINT 03110 JP STRT 03120 DOG2 LD DE,CHES 03130 CALL CMPR 03140 JP NZ,DOG3 03150 LD A,(OPCL) 03160 CP 00 03170 JR Z,CCL 03180 LD HL,COPE 03190 CALL PRINT 03200 LD A,(CITEM) 03210 BIT 0,A 03220 JR Z,CAT1 03230 LD HL,ISEE 03240 CALL PRINT 03250 LD HL,AQA 03260 CALL PRINT 03270 LD A,10 03280 CALL 33H 03290 CALL RMADD 03300 LD A,(CITEM) 03310 RES 0,A 03320 LD (CITEM),A 03330 JP STRT 03340 CAT1 BIT 1,A 03350 JR Z,CAT2 03360 LD HL,ISEE 03370 CALL PRINT 03380 LD HL,NOTE 03390 CALL PRINT 03400 LD A,10 03410 CALL 33H 03420 CALL RMADD 03430 LD A,(CITEM) 03440 RES 1,A 03450 LD (CITEM),A 03460 JP STRT 03470 CAT2 BIT 2,A 03480 JP Z,STRT 03490 RES 2,A 03500 LD (CITEM),A 03510 LD HL,ISEE 03520 CALL PRINT 03530 LD HL,DAG 03540 CALL PRINT 03550 LD A,10 03560 CALL 33H 03570 CALL RMADD 03580 JP STRT 03590 CCL LD HL,LOCK 03600 CALL PRINT 03610 JP STRT 03620 DOG3 LD DE,SLIM 03630 CALL CMPR 03640 JR NZ,BOXY 03650 LD A,(SITEM) 03660 BIT 0,A 03670 JR Z,SGUN 03680 LD HL,ISEE 03690 CALL PRINT 03700 LD HL,TD 03710 CALL PRINT 03720 LD A,10 03730 CALL 33H 03740 CALL RMADD 03750 LD A,(SITEM) 03760 RES 0,A 03770 LD (SITEM),A 03780 JP STRT 03790 SGUN BIT 1,A 03800 JR Z,NOSP 03810 LD HL,ISEE 03820 CALL PRINT 03830 LD HL,GUN 03840 CALL PRINT 03850 LD A,10 03860 CALL 33H 03870 CALL RMADD 03880 LD A,0 03890 LD (SITEM),A 03900 JP STRT 03910 BOXY LD DE,NEST 03920 CALL CMPR 03930 JR NZ,BOXY2 03940 LD DE,RAT 03950 CALL INRM 03960 JR Z,RWAY 03970 LD A,(GOTM) 03980 CP 00 03990 JR NZ,NOSP 04000 LD A,1 04010 LD (GOTM),A 04020 LD HL,FBOOK 04030 CALL PRINT 04040 LD HL,BOOK 04050 CALL RMADD 04060 JP STRT 04070 RWAY LD HL,RNO 04080 CALL PRINT 04090 JP STRT 04100 BOXY2 LD DE,BOTTLE 04110 CALL CMPR 04120 JR NZ,NOSP 04130 LD HL,VMSG 04140 CALL PRINT 04150 JP STRT 04160 NOSP LD HL,NOTH 04170 CALL PRINT 04180 JP STRT 04190 CNT3 LD HL,GET 04200 CALL CMPR 04210 JR Z,CNT3A 04220 LD HL,TAKE 04230 CALL CMPR 04240 JR Z,CNT3A 04250 LD HL,PICK 04260 CALL CMPR 04270 JP NZ,CNT4 04280 CNT3A LD DE,(NOUN) 04290 LD HL,UP 04300 CALL CMPR 04310 JP Z,GETUP 04320 CALL INRM 04330 CALL DISNZ 04340 JP NZ,STRT 04350 LD HL,FISH 04360 CALL CMPR 04370 JR NZ,FROG1 04380 LD HL,NOCAT 04390 CALL PRINT 04400 JP AGAIN 04410 FROG1 LD HL,EMER 04420 CALL CMPR 04430 JR NZ,FROGG 04440 LD A,(RINGW) 04450 CP 01 04460 JP Z,OK 04470 LD HL,TOHEVY 04480 CALL PRINT 04490 JP STRT 04500 FROGG LD HL,SAND 04510 CALL CMPR 04520 JR NZ,FROG2 04530 LD HL,SLIPS 04540 CALL PRINT 04550 JP STRT 04560 FROG2 LD HL,CHES 04570 CALL CMPR 04580 JR NZ,FR1 04590 LD HL,TOHEVY 04600 CALL PRINT 04610 JP STRT 04620 FR1 LD HL,SLIM 04630 CALL CMPR 04640 JR NZ,FROG3 04650 LD HL,SLIMSG 04660 CALL PRINT 04670 JP STRT 04680 FROG3 LD HL,NEST 04690 CALL CMPR 04700 JR NZ,FROG4 04710 LD HL,NSTMSG 04720 CALL PRINT 04730 JP STRT 04740 FROG4 LD HL,RAT 04750 CALL CMPR 04760 JR NZ,FROG5 04770 LD HL,RATMSG 04780 CALL PRINT 04790 JP STRT 04800 FROG5 LD HL,PYRA 04810 CALL CMPR 04820 JP Z,NOWAY 04830 LD HL,TREE+8 04840 CALL CMPR 04850 JR Z,NOWAY 04860 LD HL,KNOB 04870 CALL CMPR 04880 JR Z,NOWAY 04890 LD HL,TD 04900 CALL CMPR 04910 JR Z,NOWAY 04920 LD HL,TREES 04930 CALL CMPR 04940 JR Z,NOWAY 04950 LD HL,CHAIR 04960 CALL CMPR 04970 JR Z,NOWAY 04980 OK LD HL,(NOUN) 04990 CALL SEARCH 05000 PUSH HL 05010 EX DE,HL 05020 CALL RMDEL 05030 JR CONT 05040 RMDEL CALL RSFIND 05050 PUSH HL 05060 POP IX 05070 GROG LD H,(IX+1) 05080 LD L,(IX+0) 05090 XOR A 05100 SBC HL,DE 05110 JR Z,FND 05120 INC IX 05130 INC IX 05140 JR GROG 05150 FND1 INC IX 05160 INC IX 05170 FND LD H,(IX+3) 05180 LD L,(IX+2) 05190 LD (IX+1),H 05200 LD (IX+0),L 05210 LD BC,00 05220 XOR A 05230 ADC HL,BC 05240 JR NZ,FND1 05250 RET 05260 CONT LD HL,INVENT 05270 LD BC,00 05280 LD A,00 05290 CPIR 05300 DEC HL 05310 POP BC 05320 LD (HL),C 05330 INC HL 05340 LD (HL),B 05350 INC HL 05360 LD (HL),0 05370 INC HL 05380 LD (HL),00 05390 LD HL,OKK 05400 CALL PRINT 05410 JP STRT 05420 NOWAY LD HL,CANT 05430 CALL PRINT 05440 JP STRT 05450 GETUP LD A,(RUM) 05460 CP 07 05470 JR Z,GGOD 05480 LD HL,BADIN 05490 CALL PRINT 05500 JP STRT 05510 GGOD LD A,17 05520 LD (RUM),A 05530 JP START 05540 CNT4 LD HL,DROP 05550 CALL CMPR 05560 JR Z,DR 05570 LD HL,PUT 05580 CALL CMPR 05590 JR NZ,CNT5 05600 DR LD HL,(NOUN) 05610 CALL SEARCH 05620 CALL SCANIN 05630 JR Z,YEP 05640 LD HL,NCRRY 05650 CALL PRINT 05660 JP STRT 05670 YEP LD HL,MASK 05680 LD DE,(NOUN) 05690 CALL CMPR 05700 JR NZ,YEP2 05710 LD A,0 05720 LD (WEARG),A 05730 JR YEP3 05740 YEP2 LD HL,RING 05750 CALL CMPR 05760 JR NZ,YEP3 05770 LD A,0 05780 LD (RINGW),A 05790 YEP3 LD HL,AQA 05800 CALL CMPR 05810 JR NZ,YEP4 05820 LD A,(RUM) 05830 CP 7 05840 JR Z,AGG 05850 CP 14 05860 JR C,YEP4 05870 AGG LD HL,IDIE 05880 CALL PRINT 05890 JP AGAIN 05900 YEP4 CALL INDEL 05910 LD HL,(NOUN) 05920 CALL SEARCH 05930 CALL RMADD 05940 LD HL,OKK 05950 CALL PRINT 05960 JP STRT 05970 CNT5 LD HL,GO 05980 CALL CMPR 05990 JP NZ,CNT6 06000 LD DE,(NOUN) 06010 LD HL,CHAIR 06020 CALL CMPR 06030 JR Z,SIT 06040 CALL INRM 06050 CALL DISNZ 06060 JP NZ,STRT 06070 LD HL,(NOUN) 06080 LD DE,PYRA 06090 CALL CMPR 06100 JR Z,PRCK 06110 LD DE,TD 06120 CALL CMPR 06130 JR Z,TDCK 06140 LD DE,POOL 06150 CALL CMPR 06160 JR Z,POCK 06170 LD DE,DOOR 06180 CALL CMPR 06190 JR Z,ENTER 06200 LD HL,BADIN 06210 CALL PRINT 06220 JP STRT 06230 ENTER LD HL,GOEN 06240 CALL PRINT 06250 LD A,9 06260 LD (RUM),A 06270 JP S2 06280 PRCK LD DE,DOOR 06290 CALL INRM 06300 JP Z,ENTER 06310 LD HL,NOD 06320 CALL PRINT 06330 JP STRT 06340 TDCK LD A,(TDOP) 06350 CP 00 06360 JR NZ,TDCK2 06370 LD HL,NOTOP 06380 CALL PRINT 06390 JP STRT 06400 TDCK2 LD A,15 06410 JR FRF 06420 SIT LD A,(RUM) 06430 CP 17D 06440 CALL DISNZ 06450 JP NZ,STRT 06460 LD A,07 06470 JR FRF 06480 POCK LD A,13 06490 FRF LD (RUM),A 06500 JP START 06510 CNT6 LD HL,CLIMB 06520 CALL CMPR 06530 JR NZ,CNT7 06540 LD A,(RUM) 06550 CP 05 06560 JR NZ,CL2 06570 LD HL,(NOUN) 06580 LD DE,TREE+8 06590 CALL CMPR 06600 JR NZ,EROR 06610 LD A,06 06620 LD (RUM),A 06630 JP START 06640 CL2 CP 06 06650 JR NZ,EROR 06660 LD HL,DOWN 06670 LD DE,(NOUN) 06680 CALL CMPR 06690 JR NZ,EROR 06700 LD HL,OKK 06710 CALL PRINT 06720 LD A,05 06730 LD (RUM),A 06740 JP START 06750 EROR LD HL,CANT 06760 CALL PRINT 06770 JP STRT 06780 CNT7 LD HL,THROW 06790 CALL CMPR 06800 JR NZ,CNT8 06810 LD HL,(NOUN) 06820 CALL SEARCH 06830 CALL SCANIN 06840 CALL DISNZ2 06850 JP NZ,STRT 06860 LD HL,(NOUN) 06870 LD DE,COCO 06880 CALL CMPR 06890 JP NZ,DR 06900 LD A,(RUM) 06910 CP 01 06920 JP NZ,DR 06930 LD HL,SMSG 06940 CALL PRINT 06950 LD A,05 06960 LD (RUM),A 06970 LD HL,KEY 06980 CALL RMADD 06990 LD HL,SHELL 07000 CALL RMADD 07010 LD A,01 07020 LD (RUM),A 07030 LD HL,COCO 07040 CALL INDEL 07050 JP STRT 07060 CNT8 LD HL,DIG 07070 CALL CMPR 07080 JR NZ,CNT9 07090 LD A,(RUM) 07100 CP 04 07110 JR NZ,HHH 07120 LD A,(CHERE) 07130 CP 00 07140 JR Z,HHH 07150 LD HL,CHES 07160 CALL RMADD 07170 LD HL,FOUND 07180 CALL PRINT 07190 LD A,00 07200 LD (CHERE),A 07210 JP STRT 07220 HHH LD HL,CMSG 07230 CALL PRINT 07240 JP STRT 07250 CNT9 LD HL,UNLOCK 07260 CALL CMPR 07270 JR Z,OO 07280 LD HL,OPEN 07290 CALL CMPR 07300 JP NZ,CNT10 07310 CALL NOUNCK 07320 JP NZ,YYY 07330 OO LD DE,(NOUN) 07340 LD HL,SAFE 07350 CALL CMPR 07360 JP Z,WAY 07370 LD HL,CHES 07380 CALL CMPR 07390 JR Z,O1 07400 LD HL,TD 07410 CALL CMPR 07420 JR Z,DORR 07430 LD HL,BADIN 07440 CALL PRINT 07450 JP STRT 07460 O1 LD HL,KEY 07470 CALL SCANIN 07480 JR Z,MEN 07490 LD HL,NEED 07500 CALL PRINT 07510 JP STRT 07520 MEN LD A,01 07530 LD (OPCL),A 07540 LD HL,OKK 07550 CALL PRINT 07560 JP STRT 07570 WAY LD HL,COMBO 07580 CALL PRINT 07590 CALL INPUT 07600 LD DE,BUFFER 07610 LD HL,CMB 07620 CALL CMPR 07630 JR Z,OIL 07640 LD HL,WRONG 07650 CALL PRINT 07660 JP STRT 07670 OIL LD HL,RIGHT 07680 CALL PRINT 07690 LD A,(MSK) 07700 CP 00 07710 JR Z,HJH 07720 LD HL,EMPTY 07730 CALL PRINT 07740 JP STRT 07750 HJH LD HL,FALLS 07760 CALL PRINT 07770 LD HL,MASK 07780 CALL RMADD 07790 LD A,1 07800 LD (MSK),A 07810 JP STRT 07820 DORR LD HL,OKK 07830 CALL PRINT 07840 LD A,1 07850 LD (TDOP),A 07860 JP STRT 07870 CNT10 LD HL,SWIM 07880 CALL CMPR 07890 JR NZ,CNT11 07900 LD A,(RUM) 07910 CP 13 07920 JR Z,PIG 07930 LD HL,CANT 07940 CALL PRINT 07950 JP STRT 07960 PIG LD HL,(NOUN) 07970 LD DE,DOWN 07980 CALL CMPR 07990 JR NZ,LALA 08000 LD HL,AQA 08010 CALL SCANIN 08020 JR Z,FROL 08030 LD HL,UNUN 08040 CALL PRINT 08050 JP STRT 08060 FROL LD A,(REDM) 08070 CP 00 08080 JR NZ,FROL2 08090 LD HL,NONO 08100 CALL PRINT 08110 JP STRT 08120 FROL2 LD A,14 08130 LD (RUM),A 08140 JP START 08150 LALA LD HL,BADIN 08160 CALL PRINT 08170 JP STRT 08180 CNT11 LD HL,SACRA 08190 CALL CMPR 08200 JR Z,TOD 08210 LD HL,STAB 08220 CALL CMPR 08230 JP NZ,CNT12 08240 TOD CALL NOUNCK 08250 CALL DISNZ 08260 JP NZ,STRT 08270 LD HL,GOAT 08280 LD DE,(NOUN) 08290 CALL CMPR 08300 JR Z,GT 08310 LD DE,(NOUN) 08320 LD HL,FISH 08330 CALL CMPR 08340 JR Z,FSH 08350 LD HL,RAT 08360 CALL CMPR 08370 JR Z,COMB 08380 LD HL,CANT 08390 CALL PRINT 08400 JP STRT 08410 COMB LD HL,RAT 08420 CALL INRM 08430 JP NZ,YYY 08440 LD HL,RABID 08450 CALL PRINT 08460 JP AGAIN 08470 GT LD HL,DAG 08480 CALL SCANIN 08490 JR Z,GT2 08500 LD HL,NOWEP 08510 CALL PRINT 08520 JP STRT 08530 GT2 LD DE,GOAT 08540 CALL NCHK2 08550 JP NZ,YYY 08560 LD HL,GOAT 08570 CALL REMOVE 08580 LD HL,CARCA 08590 CALL RMADD 08600 LD HL,OKK 08610 CALL PRINT 08620 LD A,(RUM) 08630 CP 01 08640 JP NZ,STRT 08650 LD HL,DMSG 08660 CALL PRINT 08670 LD A,05 08680 LD (RUM),A 08690 LD HL,DOOR 08700 CALL RMADD 08710 LD A,01 08720 LD (RUM),A 08730 JP STRT 08740 FSH LD HL,DAG 08750 CALL SCANIN 08760 JR Z,FSH2 08770 LD HL,NOWEP 08780 CALL PRINT 08790 JP STRT 08800 FSH2 LD HL,FMSG2 08810 CALL PRINT 08820 JP AGAIN 08830 CNT12 LD HL,READ 08840 CALL CMPR 08850 JR NZ,CNT13 08860 LD DE,(NOUN) 08870 LD HL,NOTE 08880 CALL CMPR 08890 JR NZ,PPP 08900 LD DE,NOTE 08910 CALL NCHK2 08920 JR NZ,YYY 08930 LD HL,SAYS 08940 CALL PRINT 08950 LD HL,CMB 08960 CALL PRINT 08970 JP STRT 08980 PPP LD HL,BOOK 08990 CALL CMPR 09000 JR NZ,PP2 09010 LD DE,BOOK 09020 CALL NCHK2 09030 JR NZ,YYY 09040 LD HL,BKSAIS 09050 CALL PRINT 09060 LD A,01 09070 LD (REDM),A 09080 JP STRT 09090 PP2 LD HL,BADIN 09100 CALL PRINT 09110 JP STRT 09120 YYY LD HL,NTER 09130 CALL PRINT 09140 JP STRT 09150 CNT13 LD HL,PUSH 09160 CALL CMPR 09170 JR Z,BACK 09180 LD HL,PRESS 09190 CALL CMPR 09200 JR NZ,CNT14 09210 BACK LD A,(RUM) 09220 CP 07 09230 JR Z,TIT 09240 LD HL,BADIN 09250 CALL PRINT 09260 JP STRT 09270 TIT LD HL,WOWY 09280 CALL PRINT 09290 LD A,03 09300 LD (RUM),A 09310 JP S2 09320 CNT14 LD HL,TURN 09330 CALL CMPR 09340 JP NZ,CNT15 09350 LD HL,VALVE 09360 LD DE,(NOUN) 09370 CALL CMPR 09380 JR Z,TONG 09390 LD HL,KNOB 09400 CALL CMPR 09410 JR Z,KING 09420 LD HL,SPIND 09430 CALL CMPR 09440 JR NZ,KIK 09450 KING LD DE,SAFE 09460 CALL INRM 09470 JP Z,WAY 09480 JP BACK 09490 KIK LD HL,BADIN 09500 CALL PRINT 09510 JP STRT 09520 TONG LD DE,BOTTLE 09530 CALL NCHK2 09540 CALL DISNZ 09550 JP NZ,STRT 09560 LD A,(FULLG) 09570 CP 00 09580 JR Z,TONG2 09590 LD HL,GGONE 09600 CALL PRINT 09610 JP STRT 09620 TONG2 LD A,(WEARG) 09630 CP 01 09640 JP Z,TONG3 09650 LD HL,DEAD 09660 CALL PRINT 09670 JP AGAIN 09680 TONG3 LD A,0FFH 09690 LD (FULLG),A 09700 LD A,(RUM) 09710 CP 08 09720 JR Z,TONG4 09730 PQR LD HL,NOHAP 09740 CALL PRINT 09750 JP STRT 09760 TONG4 LD DE,RAT 09770 CALL INRM 09780 JR NZ,PQR 09790 CALL RMDEL 09800 LD HL,DEADR 09810 CALL RMADD 09820 LD HL,COUGH 09830 CALL PRINT 09840 JP STRT 09850 CNT15 LD HL,WEAR 09860 CALL CMPR 09870 JP Z,CNT15A 09880 LD HL,USE 09890 CALL CMPR 09900 JP NZ,CNT16 09910 CNT15A LD DE,(NOUN) 09920 LD HL,MASK 09930 CALL CMPR 09940 JR NZ,PISS 09950 CALL NOUNCK 09960 JR Z,P1 09970 LD HL,NTER 09980 CALL PRINT 09990 JP STRT 10000 P1 LD A,01 10010 LD (WEARG),A 10020 LD DE,MASK 10030 CALL INRM 10040 JR NZ,P1A 10050 CALL RMDEL 10060 LD HL,MASK 10070 PUSH HL 10080 JP CONT 10090 P1A LD HL,OKK 10100 CALL PRINT 10110 JP STRT 10120 PISS LD HL,RING 10130 CALL CMPR 10140 JR Z,P2 10150 LD HL,AQA 10160 CALL CMPR 10170 JP NZ,LALA 10180 LD A,(REDM) 10190 CP 01 10200 JR Z,KILO 10210 LD HL,NONO 10220 CALL PRINT 10230 JP STRT 10240 KILO LD HL,OKK 10250 CALL PRINT 10260 JP STRT 10270 P2 CALL NOUNCK 10280 CALL DISNZ 10290 JP NZ,STRT 10300 LD A,01 10310 LD (RINGW),A 10320 LD DE,RING 10330 CALL INRM 10340 JR NZ,P2A 10350 CALL RMDEL 10360 LD HL,RING 10370 PUSH HL 10380 LD HL,STRNG 10390 CALL PRINT 10400 JP CONT 10410 P2A LD HL,STRNG 10420 CALL PRINT 10430 JP STRT 10440 CNT16 LD HL,BREAK 10450 CALL CMPR 10460 JR Z,B1 10470 LD HL,SMA 10480 CALL CMPR 10490 JR Z,B1 10500 LD HL,CRU 10510 CALL CMPR 10520 JR NZ,CNT17 10530 B1 LD HL,STRONG 10540 CALL PRINT 10550 JP STRT 10560 CNT17 LD HL,JUMP 10570 CALL CMPR 10580 JR NZ,CNT18 10590 LD A,(RUM) 10600 CP 01 10610 JR Z,ABC 10620 LD HL,BADIN 10630 CALL PRINT 10640 JP STRT 10650 ABC LD HL,DUMB 10660 CALL PRINT 10670 JP AGAIN 10680 CNT18 LD HL,LOAD 10690 CALL CMPR 10700 JP Z,LODE 10710 LD HL,LOAD+5 10720 CALL CMPR 10730 JP NZ,CNT19 10740 LD HL,TDSK 10750 CALL PRINT 10760 CALL 49H 10770 CALL 33H 10780 CP 'T' 10790 JR Z,TAPE 10800 CP 't' 10810 JR Z,TAPE 10820 CP 'D' 10830 JR Z,DISK 10840 CP 'd' 10850 JR Z,DISK 10860 LD A,10 10870 CALL 33H 10880 JP STRT 10890 TAPE LD HL,CASS 10900 CALL PRINT 10910 CALL 49H 10920 CP 01 10930 JP Z,STRT 10940 DI 10950 LD A,0 10960 CALL 0212H 10970 CALL 0284H 10980 LD IX,INVENT-2 10990 FPR INC IX 11000 INC IX 11010 LD A,(IX+0) 11020 CP 00 11030 JR NZ,FPR 11040 LD A,(IX+1) 11050 CP 00 11060 JR NZ,FPR 11070 PUSH IX 11080 POP HL 11090 INC HL 11100 INC HL 11110 LD DE,TABRM2 11120 XOR A 11130 SBC HL,DE 11140 PUSH HL 11150 POP BC 11160 LD HL,TABRM2 11170 CLP LD A,(HL) 11180 CALL 0264H 11190 INC HL 11200 DEC BC 11210 LD A,00 11220 OR B 11230 JR NZ,CLP 11240 LD A,C 11250 OR A 11260 JR NZ,CLP 11270 LD A,0DCH 11280 CALL 0264H 11290 CALL 0264H 11300 CALL 01F8H 11310 EI 11320 JP STRT 11330 DISK LD HL,FNAME 11340 CALL PRINT 11350 CALL INPUT 11360 LD HL,DBUF ;BUFFER 11370 LD DE,BUFFER ;DCB 11380 LD B,0 ;LRL 11390 CALL 4420H ;INIT FILE 11400 JP NZ,DERR 11410 LD DE,DBUF 11420 LD HL,TABRM2 11430 LD BC,256 11440 LDIR 11450 LD DE,BUFFER 11460 CALL 4439H 11470 JP NZ,DERR 11480 LD DE,DBUF 11490 LD BC,256 11500 LDIR 11510 LD DE,BUFFER 11520 CALL 4439H 11530 JR NZ,DERR 11540 LD DE,DBUF 11550 LD BC,256 11560 LDIR 11570 LD DE,BUFFER 11580 CALL 4439H 11590 JR Z,CFILE 11600 DERR OR 80H ;LONG ERR MSG 11610 CALL 4409H ;PRINT IT 11620 JP STRT 11630 CFILE LD DE,BUFFER 11640 CALL 4428H ;CLOSE 11650 JR NZ,DERR 11660 JP STRT 11670 LODE LD HL,TDSK 11680 CALL PRINT 11690 CALL 49H 11700 CALL 33H 11710 CP 'T' 11720 JR Z,TAPE2 11730 CP 't' 11740 JR Z,TAPE2 11750 CP 'D' 11760 JR Z,DISK2 11770 CP 'd' 11780 JR Z,DISK2 11790 LD A,10 11800 CALL 33H 11810 JP STRT 11820 TAPE2 LD HL,CASS 11830 CALL PRINT 11840 CALL 49H 11850 CP 01 11860 JP Z,STRT 11870 DI 11880 LD A,0 11890 CALL 0212H 11900 CALL 0296H 11910 LD IX,TABRM2-1 11920 POOP CALL 0235H 11930 INC IX 11940 LD (IX+0),A 11950 CP 0DCH 11960 JR NZ,POOP 11970 LD A,(IX-1) 11980 CP 0DCH 11990 JR NZ,POOP 12000 CALL 01F8H 12010 EI 12020 JP START 12030 DISK2 LD HL,FNAME 12040 CALL PRINT 12050 CALL INPUT 12060 LD DE,BUFFER ;DCB 12070 LD HL,DBUF ;BUFFER 12080 LD B,0 ;LRL 12090 CALL 4424H ;OPEN FILE 12100 JP NZ,DERR 12110 CALL 4436H ;READ 12120 JP NZ,DERR 12130 LD HL,DBUF 12140 LD DE,TABRM2 12150 LD BC,256 12160 LDIR 12170 LD DE,BUFFER 12180 CALL 4436H 12190 JP NZ,DERR 12200 LD DE,TABRM2+256 12210 LD HL,DBUF 12220 LD BC,256 12230 LDIR 12240 LD DE,BUFFER 12250 CALL 4436H 12260 JP NZ,DERR 12270 LD DE,TABRM2+512 12280 LD HL,DBUF 12290 LD BC,256 12300 LDIR 12310 LD DE,BUFFER 12320 CALL 4428H ;CLOSE 12330 JP NZ,DERR 12340 JP START 12350 CNT19 LD HL,QUIT 12360 CALL CMPR 12370 JR NZ,CNT20 12380 AGAIN LD HL,NEWG 12390 CALL PRINT 12400 CALL INPUT 12410 LD A,(BUFFER) 12420 CP 'N' 12430 JP Z,0 12440 LD HL,INVENT+0FFH 12450 LD BC,INVENT-TABRM2+2 12460 LD DE,TABRM2 12470 LDIR 12480 JP BEG 12490 CNT20 LD HL,SITT 12500 CALL CMPR 12510 JR NZ,CNT21 12520 LD DE,(NOUN) 12530 LD HL,UP 12540 CALL CMPR 12550 JP Z,GETUP 12560 LD HL,DOWN 12570 CALL CMPR 12580 JP NZ,LALA 12590 JP SIT 12600 CNT21 LD HL,LOOK 12610 CALL CMPR 12620 JR NZ,CNT22 12630 LD HL,BUFFER+4 12640 LD A,0DH 12650 CP (HL) 12660 JP NZ,CNT2A 12670 JP START 12680 CNT22 LD HL,KILL 12690 CALL CMPR 12700 JR NZ,CNT23 12710 LD HL,HHOW 12720 CALL PRINT 12730 JP STRT 12740 CNT23 LD HL,SHOOT 12750 CALL CMPR 12760 JR Z,KSH 12770 LD HL,FIRE 12780 CALL CMPR 12790 JR NZ,CNT24 12800 KSH LD HL,GUN 12810 CALL SCANIN 12820 JR Z,JIJ 12830 LD HL,NOWEP 12840 CALL PRINT 12850 JP STRT 12860 JIJ LD DE,FISH 12870 CALL INRM 12880 JR NZ,POPP 12890 LD HL,FMSG 12900 CALL PRINT 12910 LD DE,FISH 12920 CALL RMDEL 12930 LD HL,MESS 12940 CALL RMADD 12950 LD A,0FFH 12960 LD (DSHRK),A 12970 JP STRT 12980 POPP LD HL,OKK 12990 CALL PRINT 13000 JP STRT 13010 CNT24 JP LALA 13020 PRINT PUSH HL 13030 PUSH AF 13040 LP2 LD A,(HL) 13050 CP 00 13060 JR Z,CLEAN 13070 CALL 33H 13080 CP 0DH 13090 JR Z,CLEAN 13100 INC HL 13110 JR LP2 13120 CLEAN POP AF 13130 POP HL 13140 RET 13150 DFIND LD HL,TABRM 13160 DEC A 13170 SLA A 13180 LD C,A 13190 LD B,0 13200 ADD HL,BC 13210 PUSH HL 13220 POP IX 13230 LD H,(IX+1) 13240 LD L,(IX+0) 13250 RET 13260 RSFIND LD A,(RUM) 13270 PUSH DE 13280 LD E,A 13290 LD D,0 13300 LD B,20D 13310 DEC E 13320 LD HL,TABRM2 13330 LOP ADD HL,DE 13340 DJNZ LOP 13350 PUSH HL 13360 POP IX 13370 POP DE 13380 RET 13390 PFD LD A,(RUM) 13400 LD E,A 13410 DEC E 13420 LD B,6 13430 LD HL,ETAB 13440 LD D,0 13450 LOP2 ADD HL,DE 13460 DJNZ LOP2 13470 PUSH HL 13480 POP IX 13490 RET 13500 INPUT LD A,0EH 13510 CALL 33H 13520 LD B,50D 13530 LD HL,BUFFER 13540 INP1 CALL 49H 13550 CP 08 13560 JR Z,BS 13570 CALL 33H 13580 CP 65 13590 JR C,SPIK 13600 AND 223 ;MAKE LC 13610 SPIK CP 01FH 13620 JR Z,NEWS 13630 LD (HL),A 13640 INC HL 13650 CP 0DH 13660 RET Z 13670 DJNZ INP1 13680 RET 13690 BS PUSH HL 13700 LD DE,BUFFER 13710 XOR A 13720 SBC HL,DE 13730 POP HL 13740 JR Z,INP1 13750 DEC HL 13760 LD A,8 13770 CALL 33H 13780 JR INP1 13790 NEWS POP HL 13800 JP START 13810 CMPR LD B,04D 13820 PUSH HL 13830 PUSH DE 13840 EX DE,HL 13850 HEE LD C,(HL) 13860 LD A,(DE) 13870 CP 00 13880 JR Z,HERE 13890 CP 0DH 13900 JR Z,HERE 13910 SUB C 13920 JR NZ,HERE 13930 INC HL 13940 INC DE 13950 DJNZ HEE 13960 HERE POP DE 13970 POP HL 13980 RET 13990 RMADD PUSH HL 14000 CALL RSFIND 14010 INC HL 14020 LIN LD A,(HL) 14030 CP 00 14040 JR Z,GIN 14050 INC HL 14060 INC HL 14070 JR LIN 14080 GIN PUSH HL 14090 POP IX 14100 DEC IX 14110 POP HL 14120 LD (IX+0),L 14130 LD (IX+1),H 14140 LD (IX+2),00 14150 LD (IX+3),00 14160 RET 14170 INRM PUSH DE 14180 EX DE,HL 14190 CALL SEARCH 14200 EX DE,HL 14210 CALL RSFIND 14220 LD BC,20D 14230 LOOPA LD A,E 14240 LOOPB CPI 14250 JR Z,MAYBE 14260 JP PE,LOOPB 14270 LD A,0FFH 14280 OR A 14290 POP DE 14300 RET 14310 MAYBE LD A,D 14320 CP (HL) 14330 JP NZ,LOOPA 14340 POP DE 14350 RET 14360 SCANIN LD BC,22D 14370 EX DE,HL 14380 LD HL,INVENT 14390 PUSH DE 14400 JR LOOPA 14410 SEARCH EX DE,HL 14420 LD HL,WRDTAB 14430 OPO CALL CMPR 14440 RET Z 14450 LD BC,00 14460 LD A,00 14470 CPIR 14480 LD A,(HL) 14490 CP 0FFH 14500 JR NZ,OPO 14510 LD HL,0ABCDH 14520 OR A 14530 RET 14540 INDEL LD HL,(NOUN) 14550 CALL SEARCH 14560 INDEL2 CALL SCANIN 14570 PUSH HL 14580 POP IX 14590 DEC IX 14600 YTY LD H,(IX+3) 14610 LD L,(IX+2) 14620 LD BC,00 14630 LD (IX+0),L 14640 LD (IX+1),H 14650 XOR A 14660 SBC HL,BC 14670 INC IX 14680 INC IX 14690 JR NZ,YTY 14700 RET 14710 NOUNCK LD DE,(NOUN) 14720 NCHK2 LD A,(NFLG) 14730 CP 0 14740 JR NZ,WOODY 14750 LD A,0FFH 14760 OR A 14770 RET 14780 WOODY CALL INRM 14790 RET Z 14800 EX DE,HL 14810 CALL SEARCH 14820 CALL SCANIN 14830 RET 14840 REMOVE PUSH DE 14850 PUSH HL 14860 POP DE 14870 CALL SCANIN 14880 JR NZ,GTT 14890 PUSH DE 14900 POP HL 14910 CALL INDEL 14920 POP DE 14930 RET 14940 GTT CALL RMDEL 14950 POP DE 14960 RET 14970 DISNZ RET Z 14980 PUSH AF 14990 PUSH HL 15000 LD HL,NTER 15010 CALL PRINT 15020 POP HL 15030 POP AF 15040 RET 15050 DISNZ2 RET Z 15060 PUSH AF 15070 PUSH HL 15080 LD HL,NCRRY 15090 CALL PRINT 15100 POP HL 15110 POP AF 15120 RET 15130 DISZ RET NZ 15140 PUSH HL 15150 PUSH AF 15160 LD HL,NTER 15170 CALL PRINT 15180 POP HL 15190 POP AF 15200 RET 15210 CHANGE LD DE,(NOUN) 15220 LD HL,MASK+4 15230 CALL CMPR 15240 JR NZ,N4 15250 LD HL,MASK 15260 JR DRM 15270 N4 LD HL,NEST+4 15280 CALL CMPR 15290 JR NZ,N5 15300 LD HL,NEST 15310 JR DRM 15320 N5 LD HL,RAT+6 15330 CALL CMPR 15340 JR NZ,N6 15350 LD HL,RAT 15360 JR DRM 15370 N6 LD HL,TD+5 15380 CALL CMPR 15390 JR NZ,N7 15400 LD HL,TD 15410 JR DRM 15420 N7 LD HL,MESS+10 15430 CALL CMPR 15440 JR NZ,N8 15450 LD A,(DSHRK) 15460 CP 00 15470 JR Z,N8 ;SHARK STILL ALIVE 15480 LD HL,MESS 15490 JR DRM 15500 N8 LD HL,CHAIR+6 15510 CALL CMPR 15520 RET NZ 15530 LD HL,CHAIR 15540 DRM LD (NOUN),HL 15550 RET 15560 INTRO DEFB 10 15570 DEFB 32 15580 DEFB 176 15590 DEFB 140 15600 DEFB 140 15610 DEFB 140 15620 DEFB 140 15630 DEFB 140 15640 DEFB 176 15650 DEFB 10 15660 DEFB 191 15670 DEFB 32 15680 DEFB 32 15690 DEFB 32 15700 DEFB 32 15710 DEFB 32 15720 DEFB 32 15730 DEFB 32 15740 DEFB 191 15750 DEFB 32 15760 DEFB 32 15770 DEFB 176 15780 DEFB 32 15790 DEFB 32 15800 DEFB 32 15810 DEFB 32 15820 DEFB 176 15830 DEFB 32 15840 DEFB 32 15850 DEFB 176 15860 DEFB 176 15870 DEFB 176 15880 DEFB 176 15890 DEFB 176 15900 DEFB 176 15910 DEFB 32 15920 DEFB 32 15930 DEFB 176 15940 DEFB 176 15950 DEFB 176 15960 DEFB 176 15970 DEFB 176 15980 DEFB 176 15990 DEFB 32 16000 DEFB 32 16010 DEFB 176 16020 DEFB 176 16030 DEFB 191 16040 DEFB 176 16050 DEFB 176 16060 DEFB 10 16070 DEFB 191 16080 DEFB 32 16090 DEFB 32 16100 DEFB 32 16110 DEFB 32 16120 DEFB 32 16130 DEFB 176 16140 DEFB 32 16150 DEFB 191 16160 DEFB 32 16170 DEFB 32 16180 DEFB 191 16190 DEFB 32 16200 DEFB 32 16210 DEFB 32 16220 DEFB 32 16230 DEFB 191 16240 DEFB 32 16250 DEFB 32 16260 DEFB 191 16270 DEFB 140 16280 DEFB 140 16290 DEFB 140 16300 DEFB 140 16310 DEFB 143 16320 DEFB 32 16330 DEFB 32 16340 DEFB 131 16350 DEFB 140 16360 DEFB 140 16370 DEFB 176 16380 DEFB 176 16390 DEFB 176 16400 DEFB 32 16410 DEFB 32 16420 DEFB 32 16430 DEFB 32 16440 DEFB 191 16450 DEFB 10 16460 DEFB 32 16470 DEFB 131 16480 DEFB 140 16490 DEFB 140 16500 DEFB 140 16510 DEFB 140 16520 DEFB 140 16530 DEFB 131 16540 DEFB 140 16550 DEFB 32 16560 DEFB 32 16570 DEFB 131 16580 DEFB 140 16590 DEFB 140 16600 DEFB 140 16610 DEFB 140 16620 DEFB 131 16630 DEFB 32 16640 DEFB 32 16650 DEFB 143 16660 DEFB 140 16670 DEFB 140 16680 DEFB 140 16690 DEFB 140 16700 DEFB 143 16710 DEFB 32 16720 DEFB 32 16730 DEFB 140 16740 DEFB 140 16750 DEFB 140 16760 DEFB 140 16770 DEFB 140 16780 DEFB 143 16790 DEFB 32 16800 DEFB 32 16810 DEFB 32 16820 DEFB 32 16830 DEFB 143 16840 DEFB 10 16850 DEFB 10 16860 DEFM ' ' 16870 DEFB 191 16880 DEFB 131 16890 DEFB 131 16900 DEFB 131 16910 DEFB 131 16920 DEFB 131 16930 DEFB 10 16940 DEFM ' ' 16950 DEFB 191 16960 DEFB 140 16970 DEFB 140 16980 DEFB 140 16990 DEFB 140 17000 DEFB 32 17010 DEFB 32 17020 DEFB 32 17030 DEFB 188 17040 DEFB 131 17050 DEFB 131 17060 DEFB 131 17070 DEFB 131 17080 DEFB 188 17090 DEFB 32 17100 DEFB 32 17110 DEFB 191 17120 DEFB 140 17130 DEFB 131 17140 DEFB 131 17150 DEFB 140 17160 DEFB 10 17170 DEFM ' ' 17180 DEFB 143 17190 DEFM ' ' 17200 DEFB 131 17210 DEFB 140 17220 DEFB 140 17230 DEFB 140 17240 DEFB 140 17250 DEFB 131 17260 DEFB 32 17270 DEFB 32 17280 DEFB 143 17290 DEFB 10 17300 DEFB 10 17310 DEFM ' ' 17320 DEFB 191 17330 DEFB 131 17340 DEFB 131 17350 DEFB 131 17360 DEFB 131 17370 DEFB 131 17380 DEFB 32 17390 DEFB 176 17400 DEFB 10 17410 DEFM ' ' 17420 DEFB 191 17430 DEFB 140 17440 DEFB 140 17450 DEFB 140 17460 DEFB 140 17470 DEFB 32 17480 DEFB 32 17490 DEFB 188 17500 DEFB 32 17510 DEFB 32 17520 DEFB 191 17530 DEFB 140 17540 DEFB 131 17550 DEFB 131 17560 DEFB 140 17570 DEFB 32 17580 DEFB 32 17590 DEFB 191 17600 DEFB 179 17610 DEFB 179 17620 DEFB 179 17630 DEFB 191 17640 DEFB 10 17650 DEFB 32 17660 DEFB 32 17670 DEFM ' ' 17680 DEFB 143 17690 DEFM ' ' 17700 DEFB 143 17710 DEFB 32 17720 DEFB 32 17730 DEFB 143 17740 DEFM ' ' 17750 DEFB 143 17760 DEFB 140 17770 DEFB 140 17780 DEFB 140 17790 DEFB 140 17800 DEFB 10 17810 DEFB 213 17820 DEFM 'Ver 1.1' 17830 DEFB 10 17840 DEFB 213 17850 DEFM '(C) COPYRIGHT 1983 By ANTHONY WOOD' 17860 DEFB 0DH 17870 PRED DEFM '<------------------------------------------------------------->' 17880 DEFB 0DH 17890 PRED2 DEFM 'You' 17900 DEFB 39 17910 DEFM 're ' 17920 DEFB 00 17930 MOKEY DEFM 'I CAN SEE: ' 17940 DEFB 00 17950 BKSAIS DEFM 'The book' 17960 DEFB 39 17970 DEFM 's title is "11 Easy Steps to Scuba Diving"' 17980 DEFB 10 17990 DEFM 'Not a bad book.' 18000 DEFB 0DH 18010 STRNG DEFM 'I feel strange.' 18020 DEFB 0DH 18030 NEWG DEFM 'Do you wish to play another game? ' 18040 DEFB 00 18050 DUMB DEFM 'WEEEEEEEEE.......... ** SPLAT **' 18060 DEFB 0DH 18070 DSP DEFM '. ' 18080 DEFB 00 18090 NTER DEFM 'There isn' 18100 DEFB 39 18110 DEFM 't one here!' 18120 DEFB 0DH 18130 SMSG DEFM 'The coconut sails over the cliff and lands' 18140 DEFB 10 18150 DEFM 'with a satisfactory thud.' 18160 DEFB 0DH 18170 WOWW DEFM ' ** CONGRATULATIONS **' 18180 DEFB 10 18190 DEFM 'You have solved "QUEST FOR FIRE"!!' 18200 DEFB 0DH 18210 RABID DEFM 'You are no match for a giant rat!! Annoyed' 18220 DEFB 10 18230 DEFM 'at your feeble blows, the rat rips you apart!!' 18240 DEFB 0DH 18250 FNAME DEFB 10 18260 DEFM 'File name ===--> ' 18270 DEFB 00 18280 CASS DEFB 10 18290 DEFM 'Press when you are ready.' 18300 DEFB 13 18310 TDSK DEFM 'ape or isk ? ' 18320 DEFB 00 18330 SLIMSG DEFM 'The slime is too thick and slippery to hold.' 18340 DEFB 0DH 18350 NSTMSG DEFM 'The nest is too firmly stuck to get.' 18360 DEFB 0DH 18370 RATMSG DEFM 'The rat is to quick to catch.' 18380 DEFB 0DH 18390 VMSG DEFM 'The bottle is a small container of gas with a' 18400 DEFB 10 18410 DEFM 'valve on the neck of the bottle.' 18420 DEFB 0DH 18430 EXIT DEFM 'OBVIOUS EXITS ARE ' 18440 DEFB 00 18450 NORTH DEFM 'NORTH' 18460 DEFB 00 18470 SOUTH DEFM 'SOUTH' 18480 DEFB 00 18490 EAST DEFM 'EAST' 18500 DEFB 00 18510 WEST DEFM 'WEST' 18520 DEFB 00 18530 QUEST DEFM 'Tell me what to do now -----> ' 18540 DEFB 00 18550 BADIN DEFM 'Huh?' 18560 DEFB 0DH 18570 NOD DEFM 'There isn' 18580 DEFB 39 18590 DEFM 't a door on the pyramid!' 18600 DEFB 0DH 18610 BADDI DEFM 'You cannot go that way!' 18620 DEFB 0DH 18630 INVEN DEFM 'INVE' 18640 DEFB 0DH 18650 NOCAR DEFM 'You arn' 18660 DEFB 39 18670 DEFM 't carrying anything.' 18680 DEFB 0DH 18690 PYRDES DEFM 'The pyramid is very old.' 18700 DEFB 0DH 18710 COCDES DEFM 'Somthing is loose inside.' 18720 DEFB 0DH 18730 COPE DEFM 'The chest is open.' 18740 DEFB 0DH 18750 ISEE DEFM 'I SEE ' 18760 DEFB 00 18770 NOTH DEFM 'I see nothing special.' 18780 DEFB 0DH 18790 NOCAT DEFM 'Bad move my friend, the shark decides it is lunch time...' 18800 DEFB 0DH 18810 CANT DEFM 'Sorry, I cannot do that.' 18820 DEFB 0DH 18830 NCRRY DEFM 'You arn' 18840 DEFB 39 18850 DEFM 't carrying one!' 18860 DEFB 0DH 18870 OKK DEFM 'OK' 18880 DEFB 0DH 18890 TOHEVY DEFM 'It' 18900 DEFB 39 18910 DEFM 's too heavy!!' 18920 DEFB 0DH 18930 LOCK DEFM 'The chest is locked.' 18940 DEFB 0DH 18950 FOUND DEFM 'I found a chest!' 18960 DEFB 0DH 18970 CMSG DEFM 'Nothing here.' 18980 DEFB 0DH 18990 NEED DEFM 'You need a key!!' 19000 DEFB 0DH 19010 UP DEFM 'UP' 19020 DEFB 00 19030 DOWN DEFM 'DOWN' 19040 DEFB 00 19050 UNUN DEFM 'You' 19060 DEFB 39 19070 DEFM 're not getting me down there!!' 19080 DEFB 10 19090 DEFM 'I can' 19100 DEFB 39 19110 DEFM 't breath underwater!!' 19120 DEFB 0DH 19130 DMSG DEFM 'The pyramid seems to change below.' 19140 DEFB 0DH 19150 FMSG DEFM 'KKAAAAAAAPPOOOFFFFFF!! You really totaled' 19160 DEFB 10 19170 DEFM 'that shark!' 19180 DEFB 0DH 19190 FMSG2 DEFM 'The shark doesn' 19200 DEFB 39 19210 DEFM 't take kindly to' 19220 DEFB 10 19230 DEFM 'being poked at... ' 19240 DEFB 0DH 19250 HHOW DEFM 'How?' 19260 DEFB 0DH 19270 RMSG DEFM 'There is a ring here that the shark' 19280 DEFB 10 19290 DEFM 'must have swallowed!' 19300 DEFB 0DH 19310 NOTOP DEFM 'The door isn' 19320 DEFB 39 19330 DEFM 't open.' 19340 DEFB 0DH 19350 SLIPS DEFM 'The sand soon slips back to the ground.' 19360 DEFB 10 19370 DEFM 'It' 19380 DEFB 39 19390 DEFM 's to hard to carry.' 19400 DEFB 0DH 19410 IDIE DEFM 'AGGGHHHH... I can' 19420 DEFB 39 19430 DEFM 't breath under water.' 19440 DEFB 10 19450 DEFM 'GURGGLR.. BURBBLE GURBLE....' 19460 DEFB 0DH 19470 NOWEP DEFM 'You need a weapon.' 19480 DEFB 0DH 19490 GOEN DEFM 'As you step through the entrance, you' 19500 DEFB 10 19510 DEFM 'feel dizzy. The door that should be' 19520 DEFB 10 19530 DEFM 'behind you is gone!' 19540 DEFB 0DH 19550 COMBO DEFM 'What is the combination? ' 19560 DEFB 00 19570 EMPTY DEFM 'It' 19580 DEFB 39 19590 DEFM 's empty.' 19600 DEFB 0DH 19610 FALLS DEFM 'A gas mask falls out!' 19620 DEFB 0DH 19630 WRONG DEFM 'The safe won' 19640 DEFB 39 19650 DEFM 't open.' 19660 DEFB 0DH 19670 RIGHT DEFM 'The safe opens.' 19680 DEFB 0DH 19690 SAYS DEFM 'It says ' 19700 DEFB 00 19710 WOWY DEFM 'Suddenly your back in the forest!' 19720 DEFB 0DH 19730 DEAD DEFM 'HISSSSSSSSSS........ Things are getting black...' 19740 DEFB 10 19750 DEFM 'I do believe i' 19760 DEFB 39 19770 DEFM 'm dead!' 19780 DEFB 0DH 19790 GGONE DEFM 'Nothing happens.' 19800 DEFB 0DH 19810 NOHAP DEFM 'There is a slight hissing sound, but' 19820 DEFB 10 19830 DEFM 'nothing else exciting happens.' 19840 DEFB 0DH 19850 COUGH DEFM 'There is a slight hissing..' 19860 DEFB 10 19870 DEFM 'The rat dies!' 19880 DEFB 0DH 19890 NONO DEFM 'I never learned how to scuba!' 19900 DEFB 0DH 19910 FBOOK DEFM 'I found a book here!' 19920 DEFB 0DH 19930 RNO DEFM 'The rat won' 19940 DEFB 39 19950 DEFM 't let you!' 19960 DEFB 0DH 19970 STRONG DEFM 'I can' 19980 DEFB 39 19990 DEFM 't do that.' 20000 DEFB 0DH 20010 WRDTAB EQU $ 20020 GOAT DEFM 'GOAT' 20030 DEFB 00 20040 EXAM DEFM 'EXAM' 20050 DEFB 00 20060 LOOK DEFM 'LOOK' 20070 DEFB 00H 20080 CLIMB DEFM 'CLIM' 20090 DEFB 00 20100 PYRA DEFM 'PYRAMID' 20110 DEFB 00 20120 COCO DEFM 'COCONUT' 20130 DEFB 00 20140 KEY DEFM 'KEY' 20150 DEFB 00 20160 SHELL DEFM 'SHELL OF COCONUT' 20170 DEFB 00 20180 QUIT DEFM 'QUIT' 20190 DEFB 00 20200 THROW DEFM 'THRO' 20210 DEFB 00 20220 UNLOCK DEFM 'UNLO' 20230 DEFB 00 20240 CHES DEFM 'CHEST' 20250 DEFB 00 20260 AQA DEFM 'AQUA-LUNG' 20270 DEFB 00 20280 NOTE DEFM 'NOTE' 20290 DEFB 00 20300 DAG DEFM 'DAGGER' 20310 DEFB 00 20320 DIG DEFM 'DIG' 20330 DEFB 00 20340 LOAD DEFM 'LOAD' 20350 DEFB 00 20360 DEFM 'SAVE' 20370 DEFB 00 20380 TAKE DEFM 'TAKE' 20390 DEFB 00 20400 PICK DEFM 'PICK' 20410 DEFB 00 20420 SHOOT DEFM 'SHOO' 20430 DEFB 00 20440 FIRE DEFM 'FIRE' 20450 DEFB 00 20460 USE DEFM 'USE' 20470 DEFB 00 20480 JUMP DEFM 'JUMP' 20490 DEFB 00 20500 OPEN DEFM 'OPEN' 20510 DEFB 00 20520 SLIM DEFM 'SLIME' 20530 DEFB 00 20540 GUN DEFM 'SPEAR-GUN' 20550 DEFB 00 20560 GET DEFM 'GET' 20570 DEFB 00 20580 FISH DEFM 'SHARK' 20590 DEFB 00 20600 TREE DEFM 'COCONUT TREE' 20610 DEFB 00 20620 KNOB DEFM 'KNOB' 20630 DEFB 00 20640 TD DEFM 'TRAP DOOR' 20650 DEFB 00 20660 DROP DEFM 'DROP' 20670 DEFB 00 20680 PUT DEFM 'PUT' 20690 DEFB 00 20700 EMER DEFM 'EMERALD OF FIRE' 20710 DEFB 00 20720 RING DEFM 'RING' 20730 DEFB 00 20740 GO DEFM 'GO' 20750 DEFB 00 20760 TREES DEFM 'OAK AND PINE TREES' 20770 DEFB 00 20780 SITT DEFM 'SIT' 20790 DEFB 00 20800 SAND DEFM 'SAND' 20810 DEFB 00 20820 POOL DEFM 'POOL' 20830 DEFB 00 20840 SWIM DEFM 'SWIM' 20850 DEFB 00 20860 KILL DEFM 'KILL' 20870 DEFB 00 20880 STAB DEFM 'STAB' 20890 DEFB 00 20900 SACRA DEFM 'SACR' 20910 DEFB 00 20920 CARCA DEFM 'CARCASS' 20930 DEFB 00 20940 MESS DEFM 'MUTILATED SHARK' 20950 DEFB 00 20960 DOOR DEFM 'ENTRANCE' 20970 DEFB 00 20980 SAFE DEFM 'SAFE' 20990 DEFB 00 21000 SPIND DEFM 'TUMB' 21010 DEFB 00 21020 BOOK DEFM 'BOOK' 21030 DEFB 00 21040 RAT DEFM 'GIANT RAT' 21050 DEFB 00 21060 NEST DEFM 'RAT NEST' 21070 DEFB 00 21080 BOTTLE DEFM 'BOTTLE OF GAS' 21090 DEFB 00 21100 MASK DEFM 'GAS MASK' 21110 DEFB 00 21120 CHAIR DEFM 'WEIRD CHAIR' 21130 DEFB 00 21140 CMB DEFM '36-26-36' 21150 DEFB 0DH 21160 READ DEFM 'READ' 21170 DEFB 00 21180 PRESS DEFM 'PRESS' 21190 DEFB 00 21200 PUSH DEFM 'PUSH' 21210 DEFB 00 21220 TURN DEFM 'TURN' 21230 DEFB 00 21240 VALVE DEFM 'VALVE' 21250 DEFB 00 21260 DEADR DEFM 'DEAD RAT' 21270 DEFB 00 21280 WEAR DEFM 'WEAR' 21290 DEFB 00 21300 BREAK DEFM 'BREA' 21310 DEFB 00 21320 CRU DEFM 'CRAC' 21330 DEFB 00 21340 SMA DEFM 'SMAS' 21350 DEFB 00 21360 AROUND DEFM 'AROU' 21370 DEFB 00 21380 DEFB 0FFH 21390 TABRM DEFW RM1 21400 DEFW RM2 21410 DEFW RM3 21420 DEFW RM4 21430 DEFW RM5 21440 DEFW RM6 21450 DEFW RM7 21460 DEFW RM8 21470 DEFW RM9 21480 DEFW RM10 21490 DEFW RM11 21500 DEFW RM12 21510 DEFW RM13 21520 DEFW RM14 21530 DEFW RM15 21540 DEFW RM16 21550 DEFW RM17 21560 DEFW RM18 21570 DEFW RM19 21580 DEFW RM20 21590 DEFW RM21 21600 RM1 DEFM 'atop a sacrifice cliff overlooking a pyramid far below.' 21610 DEFB 0DH 21620 RM2 DEFM 'in a small clearing amidst an endless forest.' 21630 DEFB 0DH 21640 RM3 DEFM 'in a forest. A sign says:' 21650 DEFB 10 21660 DEFM '"Bring the Emerald of Fire here."' 21670 DEFB 0DH 21680 RM4 DEFM 'in a forest.' 21690 DEFB 0DH 21700 RM5 DEFM 'in a large clearing in the middle of an endless forest.' 21710 DEFB 0DH 21720 RM6 DEFM 'at the top of a coconut tree.' 21730 DEFB 0DH 21740 RM7 DEFM 'in a chair.' 21750 DEFB 0DH 21760 RM8 DEFM 'in a small alcove.' 21770 DEFB 0DH 21780 RM9 DEFM 'inside a magnificant cavern.' 21790 DEFB 0DH 21800 RM10 DEFM 'in a sloping hallway.' 21810 DEFB 0DH 21820 RM11 DEFM 'at an intersection.' 21830 DEFB 0DH 21840 RM12 DEFM 'in a dank cavern.' 21850 DEFB 0DH 21860 RM13 DEFM 'in a pool of murky water.' 21870 DEFB 0DH 21880 RM14 DEFM 'at the bottom of a pool of murky water.' 21890 DEFB 0DH 21900 RM15 DEFM 'in the remains of a well shaft.' 21910 DEFB 0DH 21920 RM16 DEFM 'in a flooded hall.' 21930 DEFB 0DH 21940 RM17 DEFM 'in an irregular cavern.' 21950 DEFB 0DH 21960 RM18 DEFM 'in a large cavern.' 21970 DEFB 0DH 21980 RM19 DEFM 'in the treasure chamber.' 21990 DEFB 0DH 22000 RM20 DEFM 'in a narrow hall.' 22010 DEFB 0DH 22020 RM21 DEFM 'in a cubic shaped room.' 22030 DEFB 0DH 22040 ETAB EQU $ 22050 DEFB 00 ;1 22060 DEFB 00 22070 DEFB 4 22080 DEFB 2 22090 DEFB 00 22100 DEFB 00 22110 DEFB 1 ;2 22120 DEFB 3 22130 DEFB 5 22140 DEFB 0 22150 DEFW 0000 22160 DEFB 5 ;3 22170 DEFB 0 22180 DEFB 4 22190 DEFB 2 22200 DEFW 0000 22210 DEFB 1 ;4 22220 DEFB 3 22230 DEFB 0 22240 DEFB 5 22250 DEFW 0000 22260 DEFB 00 ;5 22270 DEFB 3 22280 DEFB 4 22290 DEFB 2 22300 DEFW 0000 22310 DEFW 0000 ;6 22320 DEFW 0000 22330 DEFB 00 22340 DEFB 05 22350 DEFW 0000 ;7 22360 DEFW 0000 22370 DEFW 0000 22380 DEFB 00 ;8 22390 DEFB 12 22400 DEFW 0000 22410 DEFW 0000 22420 DEFB 00 ;9 22430 DEFB 10 22440 DEFW 0000 22450 DEFW 0000 22460 DEFB 9 ;10 22470 DEFB 11 22480 DEFW 0000 22490 DEFW 0000 22500 DEFB 10D ;11 22510 DEFB 20D 22520 DEFB 12D 22530 DEFB 00 22540 DEFW 0000 22550 DEFB 8 ;12 22560 DEFB 00 22570 DEFB 00 22580 DEFB 11 22590 DEFW 0000 22600 DEFW 0000 ;13 22610 DEFW 0000 22620 DEFW 000CH 22630 DEFW 0000 ;14 22640 DEFW 0000 22650 DEFB 13D 22660 DEFB 00 22670 DEFW 0000 ;15 22680 DEFW 0000 22690 DEFB 14D 22700 DEFB 16D 22710 DEFW 0000 ;16 22720 DEFB 17 22730 DEFB 18 22740 DEFB 15 22750 DEFB 00 22760 DEFW 0000 ;17 22770 DEFB 00 22780 DEFB 16 22790 DEFB 19 22800 DEFB 00 22810 DEFW 0000 ;18 22820 DEFB 16 22830 DEFB 00 22840 DEFW 0000 22850 DEFW 0000 ;19 22860 DEFW 0000 22870 DEFB 0 22880 DEFB 17 22890 DEFB 11 ;20 22900 DEFB 21 22910 DEFW 0000 22920 DEFW 0000 22930 DEFB 20 ;21 22940 DEFB 00 22950 DEFW 0000 22960 DEFW 0000 22970 DBUF DEFS 257 22980 BUFFER DEFS 65D 22990 TABRM2 DEFW 0000 ;1 23000 DEFS 18 23010 DEFW GOAT ;2 23020 DEFW TREES 23030 DEFW 0000 23040 DEFS 14 23050 DEFW TREES ;3 23060 DEFW 0000 23070 DEFS 16 23080 DEFW SAND ;4 23090 DEFW 0000 23100 DEFS 16 23110 DEFW PYRA ;5 23120 DEFW TREE 23130 DEFW 0000 23140 DEFS 14 23150 DEFW COCO ;6 23160 DEFW 0000 23170 DEFS 16 23180 DEFW KNOB ;7 23190 DEFW 0000 23200 DEFS 16 23210 DEFW RAT ;8 23220 DEFW NEST 23230 DEFW 0000 23240 DEFS 14 23250 DEFW SAFE ;9 23260 DEFW 0000 23270 DEFS 16 23280 DEFW 0000 ;10 23290 DEFS 18 23300 DEFW 0000 ;11 23310 DEFS 18 23320 DEFW POOL ;12 23330 DEFW 0000 23340 DEFS 16 23350 DEFW 0000 ;13 23360 DEFS 18 23370 DEFW SLIM ;14 23380 DEFW 0000 23390 DEFS 16 23400 DEFW 0000 ;15 23410 DEFS 18 23420 DEFW 0000 ;16 23430 DEFS 18 23440 DEFW CHAIR ;17 23450 DEFW 0000 23460 DEFS 16 23470 DEFW FISH ;18 23480 DEFW 0000 23490 DEFS 16 23500 DEFW EMER ;19 23510 DEFW 0000 23520 DEFS 16 23530 DEFW 0000 ;20 23540 DEFS 18 23550 DEFW BOTTLE ;21 23560 DEFW 0000 23570 DEFS 16 23580 RUM DEFB 03 23590 NOUN DEFW 0000 23600 OPCL DEFB 00 23610 CITEM DEFB 0FFH 23620 SITEM DEFB 0FFH 23630 CHERE DEFB 01 23640 MSK DEFB 00 23650 WEARG DEFB 00 23660 NFLG DEFB 00 23670 FULLG DEFB 00 23680 RINGW DEFB 00 23690 REDM DEFB 00 23700 TDOP DEFB 00 23710 GOTRG DEFB 00 23720 GOTM DEFB 00 23730 DSHRK DEFB 00 23740 INVENT DEFW 0000 23750 END 5200H