00100 ;        ***************************00110 ;	 **     QUEST FOR FIRE    **00120 ;	 ** (C) 1983 ANTHONY WOOD **00130 ;	 ***************************00140 ;00150 ;	 3/1/83		VER. 1.100160 ;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,(IXT	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010 	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 UM),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 	DDEFB	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 <ENTER> when you are ready.'18300 	DEFB	1318310 TDSK	DEFM	'<T>ape or <D>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