TEXT

	; FADE IN TEXT AT TOP RIGHT
	; SIDE OF THE SCREEN
	; ROOM DISCRIPTION.
	BLOCK
FADET	LDA #64
	STA L
:LOOP	LDA #13*6	; 13 X 6 Y
	STA XS
	LDA #0
	STA YS
	LDA #<&E330
	STA SCN+1
	LDA #>&E330
	STA SCN
	LDA #<TEXTBUF
	STA BOXM+1
	LDA #>TEXTBUF
	STA BOXM
:LOOP2	LDY XS
	LDA BSEED,Y
	ASL A
	ASL A
	CLC
	ADC BSEED,Y
	CLC
	ADC #21
	STA BSEED,Y
	STA TMP
	AND #%00000111
	TAX		;MASK
	LDA TMP
	AND #%00111000
	LSR A
	LSR A
	LSR A
	TAY		;CHARPOS
	LDA (SCN),Y	;SCREEN
	AND IPIX,X
	STA TMP
	LDA (BOXM),Y	;BUFFER
	AND PIX,X
	ORA TMP
	STA (SCN),Y	;SCREEN
	LDX #8
	INC YS
	LDA YS
	CMP #13
	BCC PER
	LDX #&E0
	LDA #0
	STA YS
PER	TXA
	CLC
	ADC SCN
	STA SCN
	BCC HER
	INC SCN+1
HER	LDA BOXM
	CLC
	ADC #8
	STA BOXM
	BCC NOC1
	INC BOXM+1
NOC1	DEC XS	
	BNE :LOOP2
	DEC L
	BNE :LOOP
	RTS

	; FADE OUT ALL SCROLLING
	; OPTIONS
	BLOCK
FADEO	LDA #64
	STA L
:LOOP	LDA #0
	STA YS
	LDA #14*17	; 14 X 17 Y
	STA XS
	LDA #<&E510
	STA SCN+1
	LDA #>&E510
	STA SCN+0
:LOOP2	LDY XS
	LDA BSEED,Y
	ASL A
	ASL A
	CLC
	ADC BSEED,Y
	CLC
	ADC #21
	STA BSEED,Y
	STA TMP
	AND #7
	TAX	; MASK
	LDA TMP
	AND #&38
	LSR A
	LSR A
	LSR A
	TAY	; CHAR
	LDA (SCN),Y 	; SCREEN
	AND IPIX,X
	STA (SCN),Y 	; SCREEN
	LDX #8
	INC YS
	LDA YS
	CMP #14
	BCC WPER
	LDA #0
	STA YS
	LDX #&D8
WPER	TXA
	CLC
	ADC SCN
	STA SCN
	BCC WHER
	INC SCN+1
WHER	DEC XS
	BNE :LOOP2
	DEC L
	BNE :LOOP
	RTS

	; FADE ONE OPTION LINE
	BLOCK
FADEL	LDA #64
	STA L
	LDY WHATY
	LDA YMEMTL,Y
	STA LOWB+1
	LDA YMEMTH,Y
	STA HIGB+1
:LOOP	LDA #14	; CHARACTERS X
	STA XS
HIGB	LDA #&65
	STA SCN+1
LOWB	LDA #&10
	STA SCN+0
	LDA SYNC
DSE	CMP SYNC
	BEQ DSE
:LOOP2	LDY XS
	LDA BSEED,Y
	ASL A
	ASL A
	CLC
	ADC BSEED,Y
	CLC
	ADC #21
	STA BSEED,Y
	STA TMP
	AND #7
	TAX	; MASK
	LDA TMP
	AND #&38
	LSR A
	LSR A
	LSR A
	TAY 	; CHAR
	LDA (SCN),Y 	; SCREEN
	AND IPIX,X
	STA (SCN),Y 	; SCREEN
	LDA SCN
	CLC
	ADC #8
	STA SCN
	BCC HREW
	INC SCN+1
HREW	DEC XS
	BNE :LOOP2
	DEC L
	BNE :LOOP
	RTS


	; PRINT TEXT MESSAGE FOR TOP
	; RIGHT SIDE OF SCREEN
	; DISCRIPTION
PTEXT	LDY #8
	LDA (MAPD),Y
	TAX
	INY
	LDA (MAPD),Y
	TAY
WHATIW	STX MESAGE+0	; WHERE LOW
	STY MESAGE+1	; WHERE HIGH
	LDY #0
	TYA
CLF	STA TEXTBUF+&000,Y
	STA TEXTBUF+&100,Y
	DEY
	BNE CLF
	LDY #&6F
ANR	STA TEXTBUF+&200,Y
	DEY
	BPL ANR
	LDA #<TEXTBUF	; STORE
	STA TEMP+1	; TO
	STA SCN+1
	LDA #>TEXTBUF
	STA TEMP+0
	STA SCN+0

PLEN	LDY #0
	LDA (MESAGE),Y
	BMI TOKEN
	CMP #14		; 255 ?
	BNE SMARK
FAA	JMP FADET	; FADE TEXT
SMARK	CMP #13
	BNE TRTO
	LDA SCN+0
	CLC
	ADC #8*13		; X CHARS
	STA SCN+0
	STA TEMP+0
	LDA SCN+1
	ADC #0
	STA SCN+1
	STA TEMP+1
	JMP CAT	
TRTO	JSR WRITE
CAT	INC MESAGE+0
	BNE PLEN
	INC MESAGE+1
	JMP PLEN

TOKEN	STA L
	LDA #>COMPT
	STA MIKE2+0
	LDA #<COMPT
	STA MIKE2+1
	LDY #0
COMPARE	LDA (MIKE2),Y
	BPL AGAIN
	CMP L
	BEQ YAS
AGAIN	INC MIKE2+0	; FIND
	BNE COMPARE	; MATCH
	INC MIKE2+1	; ALLWAYS
	BNE COMPARE
YAS	INY
	LDA (MIKE2),Y
	BMI CAT
	JSR WRITE
	JMP YAS
	
WRITE	STY YTEMP
	JSR TTEXT2
	LDA TEMP
	CLC
	ADC #8
	STA TEMP
	BCC HII
	INC TEMP+1
HII	LDY YTEMP
	RTS

TTEXT2	LDY #0
	STY MIKE1+1
	ASL A		
	ROL MIKE1+1
	ASL A
	ROL MIKE1+1
	ASL A
	ROL MIKE1+1
	ADC #>(CHSET-(32*8))
	STA MIKE1
	LDA MIKE1+1
	ADC #<(CHSET-(32*8))
	STA MIKE1+1
	LDY #7
PLCHAR3	LDA (MIKE1),Y
	STA (TEMP),Y
	DEY
	BPL PLCHAR3
	RTS
	

YMEMTL DB &10,&50,&90,&D0
	DB &10,&50,&90,&D0
	DB &10,&50,&90,&D0
	DB &10,&50,&90,&D0
	DB &10

YMEMTH	DB &E5,&E6,&E7,&E8
	DB &EA,&EB,&EC,&ED
	DB &EF,&F0,&F1,&F2
	DB &F4,&F5,&F6,&F7
	DB &F9


	; COMPACT TABLE
COMPT	DATA &80,"VILLAGE"
 	DATA &81,"YOU ARE ON A"
 	DATA &82,"WHICH"
	DATA &83,"AND"
	DATA &84,"YOU STAND"
	DATA &85,"THIS IS A"
	DATA &86,"TO THE NORTH"
	DATA &87,"CAN BE SEEN"
	DATA &88,"PATH"
	DATA &89,"NORTH"
	DATA &8A,"SOUTH EAST"
	DATA &8B,"SOUTH"
	DATA &8C,"EAST"
	DATA &8D,"WEST"
	DATA &8E,"NORTH WEST"
	DATA &8F,"THE"
	DATA &90,"MOUNTAINS"
	DATA &91,"YOU"
	DATA &92,"YOU ARE AT"
	DATA &93,"YOU CAN"
	DATA &94,"TO THE"
	DATA &95,"TO"
	DATA &96,"THIS "
	DATA &97,"SEEN "
	DATA &98,"CAN"
	DATA &99," ARE "
	DATA &9A,"IN"
	DATA &9B,"IS"
	DATA &9C,"OF"
	DATA &9D,"ON"
	DATA &9E,"ING"

	DATA 255

	; DISCRIPTIONS FOR ALL
	; THE LOCATIONS
	;    "             "	
STARTM DATA "   SLAINE",13
	DATA "  COPYRIGHT",13
	DATA "MARTECH 1987",13
	DATA "BY M ARCHER",13
	DATA "OF CREATIVE",13	
	DATA "REALITY......",14

	
	; START OF ATTACK
K0	DATA 13
	DATA "YOU SCREAM A",13
	DATA "PIERCING CRY",13
	DATA "AS YOU PLUNGE",13
	DATA "INTO BATTLE.",14
	; THROW
K1	DATA "YOU HURL YOUR",13
	DATA "AXE, WHICH",13
	DATA "CUTS INTO THE",13
	DATA "ENEMY CAUSING",13
PLEB1	DATA "00 DAMAGE.",14
	; PUNCH
K2	DATA "YOU ATTACK",13
	DATA "THE ENEMY AND",13
	DATA "HIT CAUSING",13
	DATA "ONE DAMAGE.",14
	; KICK
K3	DATA "YOU LAND A",13
	DATA "BONECRUNCHING",13
	DATA "DROP KICK,AND",13
PLEB2	DATA "CAUSE 00",13
	DATA "DAMAGE.",14
 	; SWING
K4	DATA "YOUR MIGHTY",13
	DATA "AXE PLOUGHS",13
	DATA "A SWAVE",13
	DATA "THROUGH THE",13
	DATA "ENEMY CAUSING",13
PLEB3	DATA "00 DAMAGE.",14
  	; SHOUT
K5	DATA "YOU SHOUT",13
	DATA "FOR UKKO, TO",13
	DATA "RETURN YOUR",13
	DATA "AXE, WHICH HE",13
	DATA "DOES, THEN",13
	DATA "SCAMPERS AWAY",14
K6	DATA "UKKO RETURN",13
	DATA "MY AXE! YOU",13
	DATA "CALL, 'NO ",13
	DATA "CHANCE' HE",13
	DATA "SHOUTS BACK!",14
	; BEHEAD
K7	DATA "YOU PERFORM",13
	DATA "A MIGHTY",13
	DATA "SALMON LEAP",13
PLEB4	DATA "CAUSING 00",13
	DATA "POINT OF ",13
	DATA "DAMAGE.",14
	;    "             "
E1	DATA 13,"THE ENEMY",13
	DATA "LUNGES AT YOU",13
	DATA "IN A DARING",13
	DATA "ATTACK.",14

E2	DATA 13,"IT LOOKS LIKE",13
	DATA "THE ENEMY IS",13
	DATA "ABOUT TO",13
	DATA "KICK YOU.",14

E3	DATA 13,"ONE OF THE",13
	DATA "ENEMY TRYS A",13
	DATA "SWIPE AT YOUR",13
	DATA "HEAD.",14

E4	DATA 13,"YOU ARE HIT",13
	DATA "AND WOUNDED",13
DAM1	DATA "TAKING 00",13
	DATA "DAMAGE.",14

S1	DATA 13,"BY CHANCE YOU",13
	DATA "MANAGED TO",13
	DATA "SURVIVE THAT",13
	DATA "ATTACK.",14

D0	DATA &84," ",&9D,13
	DATA "A DIRT TRACK,",13
	DATA "IT ",&9B," ",&9C,"TEN",13
	DATA "USED JUDG",&9E,13
	DATA "BY ",&8F," WELL",13
	DATA "TROD EARTH.",14

D1	DATA &91,&99,&9A,13
	DATA "A T",&9A,"Y",13
	DATA "CHAMBER AT",13
	DATA &8F," ",&95,"P ",&9C,13
	DATA "SMALL SKY",13
	DATA &95,"WER.",14

D2	DATA &85,13
	DATA &88," WORN",13
	DATA "SMOOTH BY",13
	DATA &8F," PASS",&9E,13
	DATA &9C," MANY",13
	DATA "PEOPLE.",14

D3	DATA &85,13
	DATA "SMALL BRIDGE",13
	DATA "UNDER ",&82,13
	DATA "RUNS A FAST",13
	DATA "FLOW",&9E," BROOK",14

D4	DATA "FROM ",&96,13
	DATA "HILL ",&93,13
	DATA "SEE A ",&80,13
	DATA &86,13
	DATA &83," A SHR",&9A,"E",13
	DATA &94," ",&8B,".",14

D5	DATA "LOOK",&9E," ",&95,13
	DATA &8F," ",&8B," ",&91,13
	DATA &98," JUST SEE",13
	DATA &8F," ST",&83,&9E,13
	DATA "CIRCLE ",&9C,13
	DATA "S",&95,"NES.",14

D6	DATA &8F," AIR FEELS",13
	DATA "CHARGED WITH",13
	DATA "MAGIC AS ",&91,13
	DATA "ST",&83," WITH",&9A,13
	DATA &8F," R",&9E," ",&9C,13
	DATA "CROMM L",&9A,".",14

D7	DATA "A FEW SMALL",13
	DATA "HOUSES ",&98," BE",13
	DATA &97,"SCATTERED",13
	DATA "ABOUT ",&9D," ",&8F,13
	DATA "OUTSKIRTS ",&9C,13
	DATA &96,&80,14

D8	DATA &91,&99,&9A," A",13
	DATA "SMALL ",&80,13
	DATA "PEOPLE ",&98," BE",13
	DATA &97,"GO",&9E,13
	DATA "ABOUT ",&8F,"IR",13
	DATA "BUS",&9A,"ESS.",14

D9	DATA &96,&9B," ",&8F,13
	DATA "CENTRE ",&9C," ",&8F,13
	DATA &80,".",&9D," A",13
	DATA "RA",&9B,"ED PLINTH",13
	DATA &87," A",13
	DATA "FOUNTA",&9A,".",14

D10	DATA &93," FEEL",13
	DATA &8F," HEAT FROM",13
	DATA &8F," SMITHY",13
	DATA &94," ",&8D,14

D11	DATA "WHILE ",&91,13
	DATA "ST",&83," HERE",13
	DATA "MANY PEOPLE",13
	DATA &87,13
	DATA "HEAD",&9E,13
	DATA &8A,".",14

D12	DATA &91,&99,"NOW",13
	DATA "OUTSIDE ",&8F,13
	DATA "ALE HOUSE,",13
	DATA &82," ",&98," BE",13
	DATA "ENTERED ",&94,13
	DATA &8C,".",14

D13	DATA &93," SEE",13
	DATA "A FEW HUTS",13
	DATA &9C,"F ",&94,13
	DATA &8E,14

D14	DATA &92,13
	DATA &89,"EN SIDE",13
	DATA "SIDE ",&9C," ",&8F,13
	DATA &80,".",14

D15	DATA &96," ",&9B," ",&8F,13
	DATA &9A,"SIDE ",&9C,13
	DATA "A HUT,",&91,13
	DATA "HAD BETTER GO",13
	DATA "BEFORE SOME",13
	DATA "BODY SEES ",&91,14

D16	DATA &92,13
	DATA "CROSSROADS,",13
	DATA &88," LEAD",13
	DATA &9A," FOUR",13
	DATA "DIRECTI",&9D,"S.",14

D17	DATA &91," GAZE ",&9A,13
	DATA "AWE AT ",&8F,13
	DATA "RANGE ",&9C,13
	DATA &90,13
	DATA &84,13
	DATA "BEFORE.",14

D18	DATA &8F," ",&88," ENDS",13
	DATA "HERE.BUT A",13
	DATA "DARK M",&9A,"E",13
	DATA "C",&9D,"T",&9A,"UES",13
	DATA &9A,&94,13
	DATA &90,".",14

D19	DATA &94," ",&8B,13
	DATA &9B," A ",&95,"RRID",13
	DATA "RIVER.",&94,13
	DATA &8C," ",&9B," A",13
	DATA "SMALL JETTY.",14

D20	DATA &96,"JETTY",13
	DATA "PROTRUDES A",13
	DATA "LITTLE ",&9A,&95,13
	DATA &8F," RIVER.",&8F,14

D21	DATA &8F," AIR ",&9A,13
	DATA &96,"SWAMP ",&9B,13
	DATA "SO THICK",13
	DATA "NOTH",&9E," ",&98,13
	DATA "BE ",&97,&9A,13
	DATA "ANY DIRECTI",&9D,14

D22	DATA &8F," HIGH GODS",13
	DATA &90," LIE",13
	DATA "BEFORE ",&91," ",&95,13
	DATA &8F," ",&89,".",14

D23	DATA "AS ",&91," ENTER",13
	DATA &96,"NARROW",13
	DATA "PASS ",&91," GET",13
	DATA "TREMENDOUS",13
	DATA "FEEL",&9E," ",&9C,13
	DATA "MAGIC.",14

D24	DATA "AN ARCH ",&98,13
	DATA "BE ",&97,&95,13
	DATA &8F," NW.CARVED",13
	DATA "OUT ",&8C," ",&8F,13
	DATA "S",&95,"NE ",&9C," ",&8F,13
	DATA &90,".",14

D25	DATA &96," ",&9B," WHAT",13
	DATA &9D,"CE WAS A",13
	DATA "THRIV",&9E,13
	DATA "SETTLEMENT",13
	DATA "NOW ITS JUST",13
	DATA "WRECKAGE.",14

D26	DATA "FROM ",&91,"R",13
	DATA "VANTAGE PO",&9A,"T",13
	DATA &9D," ",&8F," BRIDGE",13
	DATA &93," SEE A",13
	DATA "HUGE LAKE",13
	DATA &8C," ",&9C," HERE",14

D27	DATA &92,13
	DATA "SOME K",&9A,"D ",&9C,13
	DATA "BURIEL GROUND",13
	DATA &85,13
	DATA "A MOUND ",&95,13
	DATA &8C,".",14

D28	DATA &84,13
	DATA "WITH",&9A," A",13
	DATA &95,"MB ",&8F,"RE ",&9B,13
	DATA "A C",&9C,"F",&9A," HERE",14

D29	DATA &91,&99,"JUST",13
	DATA &9A,"SIDE ",&8F,13
	DATA "MOUTH ",&9C," A",13
	DATA "M",&9A,"E,LIGHT",13
	DATA "POURS ",&9A," ",&95,13
	DATA &8F," SW.",14

D30	DATA "IT ",&9B," EASY",13
	DATA &95," GET LOST",13
	DATA &9A," ",&96,"MAZE",13
	DATA "LIKE M",&9A,"E",14

D31	DATA &91," ARIVE AT",13
	DATA "A DEAD END,",13
	DATA "OBVIOUSLY AN",13
	DATA "UNSUCCESSFUL",13
	DATA "SEAM.",14

D32	DATA &96,&9B," ",&8F,13
	DATA "END ",&9C," ",&8F,13
	DATA "M",&9A,"E,",&8F,13
	DATA "GROUND ",&9B,13
	DATA "S",&9C,"T AFTER",13
	DATA "MUCH DIGG",&9E,".",14

D33	DATA "AS ",&91," ENTER",13
	DATA &96,"F",&9A,"ELY",13
	DATA "DECORATED",13
	DATA "CORRIDOR ",&91,13
	DATA &98," FEEL ",&8F,13
	DATA "STR",&9E," MAGIC",14

D34	DATA "WATER SEEPS",13
	DATA "FROM ",&8F," ROCK",13
	DATA "LIKE WALLS ",&9C,13
	DATA &96,"ROOM AND",13
	DATA "D",&9B,"SEEPS AT",13
	DATA &8F," FLOOR.",14

D35	DATA "ALL ",&93,13
	DATA "HEAR ",&9B," ",&8F,13
	DATA "SOUND ",&9C,13
	DATA "RUSH",&9E," W",&9A,"D",13
	DATA "BUT ",&91," ",&98,"T",13
	DATA "FEEL A TH",&9E,14

D36	DATA "EVERYTH",&9E,13
	DATA "SEEMS BLURRED",13
	DATA &9A," ",&8F,13
	DATA "STIFL",&9E," HEAT",13
	DATA "FROM TH",&9B,13
	DATA "CHAMBER.",14

D37	DATA &96,"ROOM",13
	DATA &9B," OBVIOUSLY",13
	DATA "CARVED FROM",13
	DATA &8F," GRANITE",13
	DATA "ROCK ",&9C," TH",&9B,13
	DATA &90,".",14

D38	DATA &96,"PLACE",13
	DATA "SEEMS ",&95,13
	DATA "D",&9B,"APPEAR",13
	DATA &94," N.S.E",13
	DATA &83," W.ARCHES",13
	DATA "LEAD NE.SE.",14

D39	DATA &8F," CORRIDOR",13
	DATA "ENDS ABRUPTLY",13
	DATA &94," NE.BUT",13
	DATA &8F," OUTL",&9A,"E",13
	DATA &9C," AN ARCH",13
	DATA &87,14

D40	DATA &84," AT",13
	DATA &8F," BASE ",&9C,13
	DATA &8F," ",&95,"WER,",13
	DATA &8F," ",&95,"P ",&9B,13
	DATA "HIDDEN ",&9A," ",&8F,13
	DATA "CLOUDS.",14

D41	DATA &91,&99,&9D,13
	DATA "SKYWATCH",13
	DATA &9B,"L",&83,",",&8F,13
	DATA "OBSERVA",&95,"RY",13
	DATA &9B," ",&85," ",&8F,13
	DATA &8C,".",14

D42	DATA &96,&9B," ",&8F,13
	DATA "GROUND FLOOR",13
	DATA "A SPIRAL",13
	DATA "STAIRWAY LEADS",13
	DATA "EAST UP ",&9A,&95,13
	DATA "DARKNESS",14

D43	DATA &84," AT",13
	DATA &8F," MIDDLE",13
	DATA "FLOOR,STAIRS",13
	DATA "GO UP ",&95," ",&8F,13
	DATA &8C," ",&83," DOWN",13
	DATA &95," ",&8F," ",&8D,14
D44
	DATA &91," BREATH",13
	DATA "DEEPLY ",&8F,13
	DATA "FRESH",&99,"AS",13
	DATA &84," ",&9D,13
	DATA &8F," RO",&9C,".",14

D45	DATA &8F," HEAT FROM",13
	DATA &8F," FURNACE",13
	DATA &9B," ALMOST",13
	DATA "UNBEARABLE",13
	DATA &8F," STREET ",&9B,13
	DATA &94," ",&8C,".",14

D46	DATA &84," ",&9A,13
	DATA &8F," ENTRANCE",13
	DATA &95," ",&8F," LOCAL",13
	DATA "HANGOUT.",14

D47	DATA &96," ",&9B," ",&8F,13
	DATA &8C," SIDE ",&9C,13
	DATA &8F," ROOM,",13
	DATA &8F,"RE ",&9B,13
	DATA "A L",&9D,"G BAR",13
	DATA "HERE.",14

D48	DATA &8F,"RE SEEMS",13
	DATA &95," BE SOME",13
	DATA "SORT ",&9C," ALE",13
	DATA "DR",&9A,"K",&9E,13
	DATA "C",&9D,"TEST GO",&9E,13
	DATA &9D," HERE.",14

	; LOCATION MAP DATA
	; FORMAT IS
	; N,NE,E,SE,S,SW,W,NW
	; 2 BYTE DESCRIPTION  & PIC. NO.
	; 255 IF YOU CANT GO IN THAT
	; DIRECTION ELSE THEN ROOM
	; YOU WILL GO INTO


R1	DB 0,9,0,0,0,2,0,0
	DW D0	; TEXPATH1
	DB 12
R2	DB 0,1,0,0,0,3,0,0
	DW D3	; TEXLOC2
	DB 0
R3	DB 0,2,0,4,0,0,0,0
	DW D2	; TEXPATH2
	DB 12
R4	DB 0,0,5,0,6,7,0,3
	DW D4	; TEXLOC 4
	DB 0
R5	DB 0,0,5,0,0,0,4,0
	DW D0	; TEXPATH1
	DB 0
R6	DB 4,0,0,0,8,0,0,0
	DW D5	; TEXLOC6
	DB 0	; STONE HENGE CAN SEE
R7	DB 0,4,0,0,0,7,0,0
	DW D2	; TEXPATH2
	DB 0
R8	DB 6,0,0,0,0,0,0,0
	DW D6	; TEXLOC8
	DB 19	; AT STONE HENGE
R9	DB 0,10,0,0,0,1,0,0
	DW D7	; TEXLOC9
	DB 11
R10	DB 0,13,0,0,0,9,0,0
	DW D8	; TEXLOC10
	DB 11
R11	DB 13,0,0,0,12,0,0,0
	DW D8	; TEXLOC10
	DB 11
R12	DB 11,0,0,0,33,0,0,0
	DW D7	; TEXLOC9
	DB 11
R13	DB 19,20,15,0,11,10,14,18
	DW D9	; TEXLOC13
	DB 11
R14	DB 0,0,13,0,0,0,110,0
	DW D10	; TEXLOC14
	DB 11
R15	DB 20,0,0,16,0,0,13,0
	DW D11	; TEXLOC15
	DB 11
R16	DB 0,0,112,0,0,0,0,15
	DW D12	; TEXLOC16
	DB 11
R17	DB 0,0,18,0,0,0,0,0
	DW D15	; TEXLOC22
	DB 0
R18	DB 22,0,19,13,0,0,17,21
	DW D13	; TEXLOC18
	DB 11
R19	DB 0,0,0,0,13,0,18,0
	DW D14	; TEXLOC19
	DB 11
R20	DB 0,23,0,0,15,13,0,0
	DW D8	; TEXLOC10
	DB 11
R21	DB 0,0,0,18,0,0,0,0
	DW D15	; TEXLOC22
	DB 0
R22	DB 0,0,0,0,18,0,0,0
	DW D15	; TEXLOC22
	DB 0
R23	DB 0,24,0,0,0,20,0,0
	DW D7	; TEXLOC9
	DB 11
R24	DB 0,25,0,0,0,23,0,36
	DW D2	; TEXPATH2
	DB 11
R25	DB 0,26,0,0,0,24,0,0
	DW D0	; TEXPATH1
	DB 0
R26	DB 0,27,0,54,0,25,0,30
	DW D16	; TEXLOC26
	DB 10
R27	DB 0,28,0,0,0,26,0,0
	DW D2	; TEXPATH2
	DB 0
R28	DB 29,0,0,0,0,27,0,0
	DW D0	; TEXPATH1
	DB 0
R29	DB 0,0,0,0,28,0,0,0
	DW D17	; TEXLOC29
	DB 0
R30	DB 31,0,0,26,0,0,0,0
	DW D2	; TEXPATH2
	DB 0
R31	DB 32,0,0,0,30,0,0,0
	DW D0	; TEXPATH1	
	DB 12
R32	DB 0,82,0,0,0,31,0,0
	DW D18	; TEXLOC32
	DB 13	; MINE ENTRANCE
R33	DB 12,0,0,0,34,0,0,0
	DW D0	; TEXPATH1
	DB 0
R34	DB 33,0,35,0,0,0,0,0
	DW D19	; TEXLOC34
	DB 0
R35	DB 0,0,0,0,0,0,34,0
	DW D20	; TEXLOC35
	DB 0
R36	DB 0,0,0,24,0,0,37,46
	DW D21	; TEXLOC36
	DB 0
R37	DB 0,0,36,0,0,0,38,45
	DW D21	; TEXLOC36
	DB 0
R38	DB 45,46,37,0,0,0,39,0
	DW D21	; TEXLOC36
	DB 0
R39	DB 0,45,38,0,42,41,0,43
	DW D21	; TEXLOC36
	DB 0
R40	DB 43,0,0,0,41,0,0,0
	DW D21	; TEXLOC36
	DB 0
R41	DB 40,39,0,0,0,0,0,0
	DW D21	; TEXLOC36
	DB 0
R42	DB 39,0,0,0,0,0,0,0
	DW D21	; TEXLOC36
	DB 0
R43	DB 0,48,0,39,40,0,0,0
	DW D22	; TEXLOC43
	DB 0
R44	DB 48,49,0,0,0,0,0,0
	DW D21	; TEXLOC36
	DB 0
R45	DB 0,50,0,37,38,39,0,48
	DW D21	; TEXLOC36
	DB 0
R46	DB 50,0,47,36,0,38,0,0
	DW D21	; TEXLOC36
	DB 0
R47	DB 0,0,0,0,0,0,46,0
	DW D21	; TEXLOC36
	DB 0
R48	DB 0,0,49,45,44,43,0,0
	DW D17	; TEXLOC29
	DB 0
R49	DB 0,0,50,0,0,44,48,0
	DW D22	; TEXLOC43
	DB 0
R50	DB 0,0,51,0,46,45,49,0
	DW D17	; TEXLOC29
	DB 0
R51	DB 0,0,0,0,0,0,50,52
	DW D22	; TEXLOC43
	DB 0
R52	DB 0,0,0,51,0,0,0,53
	DW D23	; TEXLOC52
	DB 0
R53	DB 0,0,0,52,0,0,0,0
	DW D24	; TEXLOC53
	DB 8	; DOOR CLOSED/OPEN
R54	DB 0,0,0,0,55,0,0,26
	DW D2	; TEXPATH2
	DB 0
R55	DB 54,0,0,56,0,0,0,0
	DW D0	; TEXPATH1
	DB 10
R56	DB 0,0,0,0,57,0,0,55
	DW D2	; TEXPATH2
	DB 0
R57	DB 56,0,0,0,58,0,0,0
	DW D0	; TEXPATH1
	DB 0
R58	DB 57,0,67,0,70,72,0,0
	DW D25	; TEXLOC58
	DB 15	; BURNED VILLAGE
R59	DB 0,0,0,53,0,0,0,62
	DW D33	; TEXLOC109
	DB 0
R60	DB 62,0,0,0,0,0,0,0
	DW D34	; TEXLOC110
	DB 0
R61	DB 0,0,62,0,0,0,0,0
	DW D1	; TEXLOC111
	DB 0
R62	DB 64,65,63,59,60,0,61,0
	DW D38	; TEXLOC112
	DB 0
R63	DB 0,0,0,0,0,0,62,0
	DW D36	; TEXLOC113
	DB 0
R64	DB 0,0,0,0,62,0,0,0
	DW D37	; TEXLOC114
	DB 0
R65	DB 0,109,0,0,0,62,0,0
	DW D39	; TEXLOC115
	DB 0
R66	DB 0,0,0,0,0,0,0,0
	DW D41	; TEXLOC118
	DB 14	; OBSERVETORY
R67	DB 0,0,68,0,0,0,58,0
	DW D2	; TEXPATH2
	DB 0
R68	DB 0,69,0,0,0,0,67,0
	DW D0	; TEXPATH1
	DB 12
R69	DB 0,69,0,0,0,68,0,0
	DW D2	; TEXPATH2
	DB 0
R70	DB 58,0,0,0,71,0,0,0
	DW D2	; TEXPATH2
	DB 10
R71	DB 70,0,0,0,0,74,0,0
	DW D26	; TEXLOC71
	DB 0
R72	DB 0,58,0,0,73,0,0,0
	DW D0	; TEXPATH1
	DB 0
R73	DB 72,0,0,0,74,0,0,0
	DW D3	; TEXLOC2
	DB 12
R74	DB 73,71,0,77,0,75,0,0
	DW D16	; TEXLOC26
	DB 0
R75	DB 0,74,0,0,0,75,0,0
	DW D0	; TEXPATH1
	DB 0
R76	DB 0,0,80,0,0,0,66,0
	DW D42	; TEXLOC119
	DB 0
R77	DB 0,0,78,0,0,0,0,74
	DW D0	; TEXPATH1
	DB 0
R78	DB 0,0,0,0,0,0,77,0
	DW D27	; TEXLOC78
	DB 20	; BURIEL GROUND GRAVEYARD ?
R79	DB 0,0,0,0,0,0,78,0
	DW D28	; TEXLOC79
	DB 0
R80	DB 0,0,81,0,0,0,76,0
	DW D43	; TEXLOC120
	DB 0
R81	DB 0,0,0,0,0,0,80,0
	DW D44	; TEXLOC121
	DB 0
R82	DB 0,83,0,0,0,32,0,0
	DW D29	; TEXLOC82
	DB 0
R83	DB 0,84,0,0,0,82,0,0
	DW D30	; TEXLOC83
	DB 0
R84	DB 0,0,85,0,0,83,0,0
	DW D30	; TEXLOC83
	DB 0
R85	DB 89,0,0,0,0,0,84,0
	DW D30	; TEXLOC83
	DB 0
R86	DB 90,0,0,0,0,0,0,0
	DW D31	; TEXLOC86
	DB 0
R87	DB 92,93,0,0,0,0,0,0
	DW D30	; TEXLOC83
	DB 0
R88	DB 0,94,89,0,0,0,0,0
	DW D30	; TEXLOC83
	DB 0
R89	DB 0,0,0,0,85,0,88,0
	DW D30	; TEXLOC83
	DB 0
R90	DB 95,0,0,0,86,0,0,0
	DW D30	; TEXLOC83
	DB 0
R91	DB 0,97,92,0,0,0,0,0
	DW D30	; TEXLOC83
	DB 0
R92	DB 0,0,0,0,87,0,91,0
	DW D30	; TEXLOC83
	DB 0
R93	DB 98,0,0,0,0,87,0,0
	DW D30	; TEXLOC83
	DB 0
R94	DB 0,0,95,0,0,88,0,0
	DW D30	; TEXLOC83
	DB 0
R95	DB 0,0,96,0,90,0,94,0
	DW D30	; TEXLOC83
	DB 0
R96	DB 0,0,97,0,0,0,95,0
	DW D30	; TEXLOC83
	DB 0
R97	DB 0,0,0,0,0,91,96,0
	DW D30	; TEXLOC83
	DB 0
R98	DB 0,0,0,0,93,0,0,102
	DW D30	; TEXLOC83
	DB 0
R99	DB 104,0,0,0,0,0,0,0
	DW D32	; TEXLOC99
	DB 0
R100	DB 0,0,101,0,0,0,0,0
	DW D31	; TEXLOC86
	DB 0
R101	DB 0,0,102,0,0,0,100,0
	DW D30	; TEXLOC83
	DB 0
R102	DB 0,108,0,98,0,0,101,0
	DW D30	; TEXLOC83
	DB 0
R103	DB 0,0,0,0,0,0,0,0
	DW D30	; TEXLOC83
	DB 0
R104	DB 0,0,105,0,99,0,0,0
	DW D30	; TEXLOC83
	DB 0
R105	DB 0,0,106,0,0,0,104,0
	DW D30	; TEXLOC83
	DB 0
R106	DB 0,0,107,0,0,0,105,0
	DW D30	; TEXLOC83
	DB 0
R107	DB 0,0,108,0,0,0,106,0
	DW D30	; TEXLOC83
	DB 0
R108	DB 0,0,0,0,0,102,107,0
	DW D30	; TEXLOC83
	DB 0
R109	DB 111,0,0,53,0,0,0,0
	DW D40	; TEXLOC117
	DB 0
R110	DB 0,0,14,0,0,0,0,0
	DW D45	; TEXLOC122
	DB 0
R111	DB 0,0,0,0,109,0,0,0
	DW D1	; TEXLOC61
	DB 0
R112	DB 0,114,113,0,0,0,16,0
 	DW D46	; TEXLOC123
	DB 0	
R113	DB 114,0,0,0,0,0,112,0
	DW D47	; TEXLOC124
	DB 0
R114	DB 0,0,0,0,113,112,0,0
	DW D48	; TEXLOC126    	
	DB 0


MAPPL	DB 0,>R1,>R2,>R3,>R4
	DB >R5,>R6,>R7,>R8,>R9
	DB >R10,>R11,>R12,>R13,>R14
	DB >R15,>R16,>R17,>R18,>R19
	DB >R20,>R21,>R22,>R23,>R24
	DB >R25,>R26,>R27,>R28,>R29
	DB >R30,>R31,>R32,>R33,>R34
	DB >R35,>R36,>R37,>R38,>R39
	DB >R40,>R41,>R42,>R43,>R44
	DB >R45,>R46,>R47,>R48,>R49
	DB >R50,>R51,>R52,>R53,>R54
	DB >R55,>R56,>R57,>R58,>R59
	DB >R60,>R61,>R62,>R63,>R64
	DB >R65,>R66,>R67,>R68,>R69
	DB >R70,>R71,>R72,>R73,>R74
	DB >R75,>R76,>R77,>R78,>R79
	DB >R80,>R81,>R82,>R83,>R84
	DB >R85,>R86,>R87,>R88,>R89
	DB >R90,>R91,>R92,>R93,>R94
	DB >R95,>R96,>R97,>R98,>R99
	DB >R100,>R101,>R102,>R103,>R104
	DB >R105,>R106,>R107,>R108,>R109
	DB >R110,>R111,>R112,>R113,>R114

MAPPH	DB 0,<R1,<R2,<R3,<R4
	DB <R5,<R6,<R7,<R8,<R9
	DB <R10,<R11,<R12,<R13,<R14
	DB <R15,<R16,<R17,<R18,<R19
	DB <R20,<R21,<R22,<R23,<R24
	DB <R25,<R26,<R27,<R28,<R29
	DB <R30,<R31,<R32,<R33,<R34
	DB <R35,<R36,<R37,<R38,<R39
	DB <R40,<R41,<R42,<R43,<R44
	DB <R45,<R46,<R47,<R48,<R49
	DB <R50,<R51,<R52,<R53,<R54
	DB <R55,<R56,<R57,<R58,<R59
	DB <R60,<R61,<R62,<R63,<R64
	DB <R65,<R66,<R67,<R68,<R69
	DB <R70,<R71,<R72,<R73,<R74
	DB <R75,<R76,<R77,<R78,<R79
	DB <R80,<R81,<R82,<R83,<R84
	DB <R85,<R86,<R87,<R88,<R89
	DB <R90,<R91,<R92,<R93,<R94
	DB <R95,<R96,<R97,<R98,<R99
	DB <R100,<R101,<R102,<R103,<R104
	DB <R105,<R106,<R107,<R108,<R109
	DB <R110,<R111,<R112,<R113,<R114


	; OBJECT LIST
	; BYTE 1 PICTURE NO.
	; BYTE 2 LOCATION 0 SLAINES 250 UKKO 252 DESTROYED
	; BYTE 3 SIZE OF IT
	; BYTE 4 FLAGS 0=NO 1=YES
	; BIT 0 CAN IT BE OPENED
	; BIT 1 IS IT OPEN
	; BIT 2 CAN IT BE EATEN
	; BIT 3 IS IT
	; BIT 4 CAN YOU PUT ON & LOOK ON
	; BIT 5 IS CANDLE ALIGHT

OBJ1	DB 22,000,10,0	; AXE
OBJ2	DB 23,000,05,0	; TORC
OBJ3	DB 24,000,05,0	; HARNESS
OBJ4	DB 25,244,04,1	; BOTTLE 253
OBJ5	DB 26,239,01,0	; COINS DEAD
OBJ6	DB 27,255,01,0	; RING
OBJ7	DB 28,242,01,0	; RINGD
OBJ8	DB 29,022,50,1	; CHEST 255
OBJ9	DB 30,239,05,1	; POUCH DEAD
OBJ10	DB 31,078,03,0	; SPADE
OBJ11	DB 32,250,04,0	; IRONS
OBJ12	DB 33,250,04,0	; FLUTE
OBJ13	DB 34,250,05,0	; TOOLS
OBJ14	DB 35,079,02,0	; CANDLE
OBJ15	DB 36,250,01,0	; CARDS
OBJ16	DB 37,250,01,0	; SHAKER 248
OBJ17	DB 38,250,01,0	; DICE
OBJ18	DB 39,241,01,0	; RUSTY KEY
OBJ19	DB 25,239,04,3	; BOTTLE2
OBJ20	DB 41,255,03,8	; PHOENIX 247
OBJ21	DB 42,247,04,0	; EYE
OBJ22	DB 43,240,05,0	; LENS
OBJ23	DB 44,250,06,0	; FLEAS
OBJ24	DB 51,113,50,8	; BAR 251
OBJ25	DB 03,000,50,8	; UKKO 250 WITH SLAINE
OBJ26	DB 45,251,04,4	; BREAD
OBJ27	DB 46,251,04,4	; BEER
OBJ28	DB 52,013,60,0	; FOUNTAIN 249
OBJ29	DB 46,239,04,4	; BEER DEAD
OBJ30	DB 47,239,01,0	; CHARM
OBJ31	DB 48,250,02,0	; DAGGER
OBJ32	DB 49,250,03,0	; TINDER BOX
OBJ33	DB 50,250,04,0	; LOCKPICKS
OBJ34	DB 53,110,60,0	; FURNACE 246
OBJ35	DB 54,110,05,0	; TONGS
OBJ36	DB 55,110,05,0	; WATER BUCKET 245
OBJ37	DB 56,039,60,0	; EARTH1
OBJ38	DB 57,252,60,0	; HOLE1 244
OBJ39	DB 58,099,60,0	; EARTH2
OBJ40	DB 59,252,60,0	; HOLE2 243
OBJ41	DB 60,058,50,0	; BODY 242
OBJ42	DB 61,078,60,0	; MOUND
OBJ43	DB 62,079,50,1	; COFFIN 241
OBJ44	DB 63,066,60,0	; DOOR
OBJ45	DB 64,000,50,0	; TELESCOPE 240
OBJ46	DB 65,053,60,0	; ARCH1
OBJ47	DB 66,065,60,0	; ARCH2
OBJ48	DB 67,008,60,0	; GRAVESTONE
	DW -1,-1	; END MARKER

	; DATA TO TELL IF OBJECT IS
	; A CONTAINER AND WHAT NUMBER
	; IF IS.
CONT	DB 0,0,0,253,0,0,0,255,0
	DB 0,0,0,0,0,0,248,0,0,0
	DB 247,0,0,0,251,250,0,0
	DB 249,0,0,0,0,0,246,0
	DB 245,0,244,0,243,242,0
	DB 241,0,240,0,0,0

ICONT	DB 45*4,43*4,41*4,40*4,38*4,36*4
	DB 34*4,20*4,16*4,28*4,25*4,24*4
	DB 29*4,04*4,09*4,08*4

	; DEFULT OBJECT DATA
	; DATA FOR ROOM NUMBERS
ROMD 	DB 0,0,0,244,239,255,242
	DB 22,239,242,250,250,250
	DB 79,250,250,250,241,239
	DB 255,247,240,250,113,0
	DB 251,251,13,239,239,250,250,250
	DB 110,110,110,39,252,99,252
	DB 58,78,79,66,81,53,65,8

FLGD	DB 0,0,0,1,0,0,0,1,1,0
	DB 0,0,0,0,0,0,0,0,3,8
	DB 0,0,0,8,8,4,4,0,4,0
	DB 0,0,0,0,0,0,0,0,0,0
	DB 0,0,1,0,0,0,0,0


	
	; ENEMY LIST
	; LOCATION,BOX,HOW MANY,WARP RAT.	
	; DAMAGE,SKILL,HOLL.,DELAY
	; VILLAGERS
ENEMYS	DB 001,T+38,005,002,1,1,0,9
	DB 009,T+38,006,002,1,1,0,9
	DB 030,T+38,&11,002,1,1,0,9
	DB 016,T+38,001,002,1,1,0,9
	DB 067,T+38,&16,002,1,1,0,9
	DB 074,T+38,009,003,1,1,0,9	
	DB 031,T+38,007,002,1,1,0,9
	DB 114,T+38,001,002,1,1,0,9
VILLAG	DB 239,T+38,001,002,1,1,1,9
	; WARRIORS
	DB 026,T+39,006,003,7,2,1,5
	DB 036,T+39,009,004,7,2,1,6
	DB 102,T+39,005,003,7,2,1,6
	; OGRES
	DB 084,T+87,001,&25,7,4,1,7
	DB 099,T+87,001,&30,7,4,1,7
	; DRAGON
	DB 053,T+88,001,&50,15,5,1,8

DEMON	DB 239,T+63,001,&30,7,5,1,4											
BOAT	DB 035,T+70,001,&20,7,4,0,7
SLOUGH	DB 238,T+84,001,&50,7,6,1,3
REYA	DB 111,T+82,001,005,1,1,0,10
	DB 255

STELOC	DB 1,9,20,16,67,74,31,114,239
	DB 26,36,102
	DB 84,99,53,239,35,238,111
	DB 255