SHB		EQU &F8  ;SCREEN AT &F400	
COLDIFF  	EQU &1C

BLCOLOR	EQU COLMEM1
BLDAVE		EQU <DTILES  ;BLOCK DEFF BASE ADDRESS

DEMO		LDA #1
PLAYERSELECT		
		;JSR MANYPLAY
INTERCITY
		JSR DRIVER
HIGHSCOREPROG
		JSR DRIVER2
BONUS
		JSR DRIVER3
		INC STATUS
		JMP MAIN
INITIALISE
		LDA STATUS
		BEQ DEMO
		JMP NODEM

;***********************************

DRIVER2        JSR DRISET	;SCORE
               LDX #0
		JSR PLAYTUNE
		LDY #14
 		STY TILENUM
ABCDR2		LDA PLAYSELE,Y
		STA SELBUFF,Y
		DEY
		BPL ABCDR2
		JSR DISPLAY
               JSR PUTONCOL
		LDA #10
		STA NEWLINE
		LDA #>SELTEXT
		STA GETTEXT+1
		LDA #<SELTEXT
		STA GETTEXT+2
		LDA #45
		STA PUTTEXT+1
		LDA #SHB
		STA PUTTEXT+2
		JSR GETTEXT
		LDA #>SCOTEXTH	
		STA GETTEXT+1
		LDA #<SCOTEXTH
		STA GETTEXT+2
		LDA STEXTPOSL
		STA PUTTEXT+1
		LDA STEXTPOSH
		STA PUTTEXT+2
		JSR GETTEXT
		LDA #>SCOTEXTL
		STA GETTEXT+1
		LDA #<SCOTEXTL
		STA GETTEXT+2
		LDA HTEXTPOSL
		STA PUTTEXT+1
		LDA HTEXTPOSH
		STA PUTTEXT+2
		JSR GETTEXT
		LDY #2
		STY STEMP
SCONSC		LDY STEMP		
		LDX PLAYCHAR,Y
		JSR HIGHSCORE
		JSR SCPUTON
		DEC STEMP
		BPL SCONSC
		LDX #39
		LDA #0
CLBOT		STA [[SHB*256]+960],X
		DEX
		BPL CLBOT
		JSR PUTONCOL
		JMP DELAY

;************************************

HIGHSCORE	LDX #2
CHPOINTPUT	LDA SCOLB,X
		STA SCCH+1
		STA SCCH2+1
		LDA SCOHB,X
		STA SCCH+2
		STA SCCH2+2
		LDA HILB,X
		STA HICH+1
		STA HICH2+1
		LDA HIHB,X
		STA HICH+2
		STA HICH2+2
		LDY #0
HICH		LDA &FFFF,Y
SCCH		CMP &FFFF,Y
		BCC NEXTDIGIT
		BEQ NEXTDIGIT
UPHIGH		LDY #5
SCCH2		LDA &FFFF,Y
HICH2		STA &FFFF,Y
		DEY
		BPL SCCH2
		BMI NEXTSCORE
NEXTDIGIT	INY
		CPY #6
		BNE HICH
NEXTSCORE	DEX
		BPL CHPOINTPUT
		RTS

;************************************

SCPUTON	LDA SCOLB,X
		STA GETTEXT+1
		LDA SCOHB,X
		STA GETTEXT+2
		LDA SCPOSL,X
		STA PUTTEXT+1
		LDA SCPOSH,X
		STA PUTTEXT+2
		JSR GETTEXT
		LDA HILB,X
		STA GETTEXT+1
		LDA HIHB,X
		STA GETTEXT+2
		LDA HPOSL,X
		STA PUTTEXT+1
		LDA HPOSH,X
		STA PUTTEXT+2
		JSR GETTEXT
		JSR PUTONCOL
		RTS

;********************************

DRISET 	LDA #0
		STA &FFFA
		SEI
		STA &D015
		
		LDA #&1B
		STA &D011
		LDA #7
		STA &D022
		LDA #11  	
		STA &D023
		RTS

;*********************************

DRIVER3	JSR DRISET
   		LDX #1
		JSR PLAYTUNE
		LDA #12
		STA NEWLINE
		LDX #0
		TXA
CLEAR		STA [[SHB*256]+0],X
		STA [[SHB*256]+256],X
		STA [[SHB*256]+512],X
		STA [[SHB*256]+[768-24]],X
		DEX
		BNE CLEAR
		LDA #44
		STA PUTTEXT+1
		LDA #SHB
		STA PUTTEXT+2
		LDA #>DBONUS
		STA GETTEXT+1
		LDA #<DBONUS
		STA GETTEXT+2
		JSR GETTEXT
		JSR PUTONCOL
		JMP DELAY

;**********************************

DELPROG	LDA #60
		STA DELDAVE
INDEL		JSR JOYDAVE
		DEC DELDAVE+1            	
		BNE INDEL
		DEC DELDAVE
		BNE INDEL
		RTS

;***********************************

DELAY		LDA #100		
		STA DELDAVE+1
		LDX #255
		LDY #255
DEL1		JSR ALLFIRE
		BNE DELOVER
		DEY
		BNE DEL1
    		DEX
		BNE DEL1
		DEC DELDAVE+1
		BNE DEL1
DELOVER	JSR ALLFIRE
		BNE DELOVER
		RTS

;*****************************

ALLFIRE	JSR JOYGET
		LDA FIRE
		ORA FIRE+1
		ORA FIRE+2
		RTS

;*****************************

TEXTRAND	LDA TEXTSEED
	        ASL A
		ASL A
		CLC
		ADC TEXTSEED
		CLC
		ADC #127
		STA TEXTSEED
		RTS

;*****************************

DRIVER		JSR DRISET		
		LDX #2
  		JSR PLAYTUNE
		JSR MAPMOD
		JSR TEXTMAIN
		LDA #>((SHB*256)+960)
		STA PUTTEXT+1
		LDA #<((SHB*256)+960)
		STA PUTTEXT+2
		LDA #>FIRETEXT
		STA GETTEXT+1
		LDA #<FIRETEXT
		STA GETTEXT+2
  		JSR GETTEXT
		JSR PUTONCOL		
		JSR DELPROG
 		RTS

;********************************

MANYPLAY	JSR DRISET
		LDX #0
		JSR PLAYTUNE
		LDA #>[[SHB*256]+960]
		STA PUTTEXT+1
		LDA #<[[SHB*256]+960]
		STA PUTTEXT+2
		LDA #>FIRETEXT1
		STA GETTEXT+1
		LDA #<FIRETEXT1
		STA GETTEXT+2
		JSR GETTEXT
		LDA #24
		STA NEWLINE
		LDX #1
		STX ENERGY
		STX ENERGY+1
		STX ENERGY+2
		LDX #0
		STX TAKEN
		STX TAKEN+1
		STX TAKEN+2
		STX XXXXXX
MANYLOOP 	LDY #9*8
         	STY CDEL
MANYLOOPIN	JSR MAPMOD
		LDX XXXXXX
		LDA TEXTPOSLB,X
		STA PUTTEXT+1
		SEC
		SBC #4
		STA PUTCDOWN+1
		LDA TEXTPOSHB,X
		STA PUTTEXT+2
    		STA PUTCDOWN+2
		LDA #>PLFO
		STA GETTEXT+1
		LDA #<PLFO
		STA GETTEXT+2
		JSR GETTEXT
		LDA PLPOINTLB,X
		STA GETTEXT+1
		LDA PLPOINTHB,X
		STA GETTEXT+2
		JSR GETTEXT
		LDA CDEL
		LSR A
		LSR A
		LSR A
  		CLC
		ADC #&40
PUTCDOWN	STA &FFFF
		JSR PUTONCOL
		JSR JOYGET
		LDX XXXXXX
    		LDY PLAYCHAR,X
		LDA ENERGY,X
		CMP #6
		LDA #50
		STA PDEL+1
		BEQ DELCHECK
PLAYDEL	DEC PDEL
		BNE PLAYDEL
		DEC PDEL+1
		BNE PLAYDEL
		LDA LEFT,X
		BEQ DJNOLEFT
		DEY  		
 		BPL DJFCHECK
		LDY #2
DJNOLEFT	LDA RIGHT,X
		BEQ DJFCHECK
		INY
		CPY #3
		BNE DJFCHECK
		LDY #0
DJFCHECK	TYA
		STA PLAYCHAR,X
		LDA FIRE,X
		BEQ DELCHECK
		LDA TAKEN,Y
		BNE DELCHECK
		LDA #6
		STA ENERGY,X
      		STA TAKEN,Y
		JMP TOOK
DELCHECK 	TYA
		STA PLAYCHAR,X
		DEC CDEL
		BEQ TOOK
		JMP MANYLOOPIN
TOOK	  	INC XXXXXX
		LDX XXXXXX
		CPX #3
		BEQ DWH
		JMP MANYLOOP
DWH		LDX #2
ENEVERT	LDA ENERGY,X
		CMP #6
		BNE NOTINP
		LDA #127
		BPL PLAYERIN
NOTINP		LDA #255
PLAYERIN	STA ENERGY,X
		DEX
		BPL ENEVERT
		RTS

;*******************************

TEXTMAIN	LDX #2
		STX TCOUNT
  		LDA #68
		STA NEWLINE
PLAYTEXT	LDY TCOUNT
		LDA ENERGY,Y
  		BNE PL1CH
		LDY #10
		JMP SETTEXT
PL1CH		BPL PL2CH
		LDY #0		
		JMP SETTEXT
PL2CH		CMP #127
		BNE PLAING
		LDY #1
		JMP SETTEXT
PLAING		LDA TCOUNT	
		CLC
		ADC SCREEN
		EOR #3
  		AND #7
		TAY
		INY		
		INY
SETTEXT	LDA TEXTLB,Y
		STA GETTEXT+1
 		LDA TEXTHB,Y
		STA GETTEXT+2
		LDY TCOUNT
		LDA TEXTPOSLB,Y
		STA PUTTEXT+1
		LDA TEXTPOSHB,Y
		STA PUTTEXT+2
		JSR GETTEXT
		DEC TCOUNT
		BPL PLAYTEXT
		RTS

;******************************

MAPMOD		LDY #14
 		STY TILENUM
BUFLOOP	LDA SELDEFF,Y		
		STA SELBUFF,Y
		DEY
		BPL BUFLOOP
		LDX #2
DEAD2		LDA ENERGY,X
		BEQ DEAD1
		BMI DEAD1
		LDY PLAYCHAR,X
		LDA GERALZ,Y
		LDY MODTILEL,X
	        STA SELBUFF,Y
		LDA ENERGY,X
		CMP #127
		BEQ DEAD1		
		LDY PLAYCHAR,X
		LDA GERALZ1,Y
               LDY MODTILER,X
		STA SELBUFF,Y
DEAD1		DEX    		
		BPL DEAD2
DISPLAY	LDX TILENUM    ; X=SCPOS
    		LDY SELBUFF,X  ; Y=TILE
		JSR TILETEST
		DEC TILENUM
		BPL DISPLAY
     		RTS

;**********************************

PUTONCOL  	LDY #0
PUTINCOL	LDX &F800,Y			
		TXA
		STA &F400,Y
		LDA BLCOLOR,X		
		STA &D800,Y		 	
		LDX &F900,Y
		TXA
		STA &F500,Y
		LDA BLCOLOR,X
		STA &D900,Y
		LDX &FA00,Y
		TXA
		STA &F600,Y
		LDA BLCOLOR,X
		STA &DA00,Y
		LDX &FB00,Y
		TXA
		STA &F700,Y
		LDA BLCOLOR,X
		STA &DB00,Y	
		DEY
		BNE PUTINCOL
		RTS

;******************************

GETTEXT	LDA $FFFF
		CMP #254
		BEQ NEXTLINE
		CMP #255		
		BNE PUTTEXT
		RTS
PUTTEXT	STA $FFFF
		LDA GETTEXT+1
		CLC
		ADC #1
		STA GETTEXT+1
		LDA GETTEXT+2
		ADC #0
		STA GETTEXT+2
		LDA PUTTEXT+1
		CLC
		ADC #1
		STA PUTTEXT+1
		LDA PUTTEXT+2
		ADC #0
		STA PUTTEXT+2
		JMP GETTEXT
NEXTLINE	LDA GETTEXT+1
		CLC
		ADC #1
		STA GETTEXT+1
		LDA GETTEXT+2
		ADC #0
		STA GETTEXT+2
		LDA PUTTEXT+1
		CLC
		ADC NEWLINE
		STA PUTTEXT+1
		LDA PUTTEXT+2
		ADC #0
		STA PUTTEXT+2
		JMP GETTEXT

;*******************************

JOYDAVE	JSR JOYGET
		LDY #2
		STY JOYY
JOYLOOP	LDY JOYY			
		LDA FIRE,Y
		BEQ NODJ2
		LDA ENERGY,Y
		CMP #127
 		BNE NODJ2
		LDA #6	
		STA ENERGY,Y
		JSR MAPMOD
		JSR TEXTMAIN
		JSR PUTONCOL
NODJ2		DEC JOYY
		BPL JOYLOOP
		RTS

;*********************************

		; Y=TILE			
		; X=TILE POS

;********************************

TILETEST	LDA BLOMLB,Y
		STA TILELOP+1
		LDA BLOMHB,Y
		STA TILELOP+2
               LDA SCRMLB,X
		STA TSMC1+1
		LDA SCRMHB,X
		STA TSMC1+2
		LDX #0
		LDY #0
TILELOP	LDA &FFFF,X
TSMC1		STA &FFFF,Y
               INX
  		INY
		CPY #8		
		BNE TILELOP
		LDA TSMC1+1        	
		CLC
		ADC #40
		STA TSMC1+1
  		LDA TSMC1+2
		ADC #0		
		STA TSMC1+2
		LDY #0
		CPX #8*8
		BNE TILELOP
		RTS

;************************************

   		; X=TUNE
PLAYTUNE 	LDX #0	
		SEI		; 0 1 3
		LDA #0
		STA &207
		LDA #>MUSIC     ; FF STOP
		STA &FFFE
		LDA #<MUSIC		
		STA &FFFF
		JSR SIDWIPE
		JSR &203
		INC &207
		CLI
        	RTS

SIDWIPE
		LDA #0
		LDY #&1C
RESSID		STA &D400,Y
		DEY
 		BPL RESSID
		RTS



;**************************************

MUSIC		PHA		
		TXA		
		PHA
		TYA
		PHA
		JSR &0200
NOMUS		LDA #1   	
		STA &D019
		LDA #%11011010
		STA &D018
		LDA #200
		STA &D012
          	PLA
		TAY
		PLA
		TAX
		PLA
		RTI

;**********************************

TEXT
;JOIN  THE
; ACTION
 		DB &12,&17,&11,&16,&51,&51,&1C,&10,&0D,&51,&51,&51,&FE
		DB &51,&09,&0B,&1C,&11,&17,&16,&FF
TEXT1
;READY  FOR
; ACTION
		DB &1A,&0D,&09,&0C,&21,&51,&51,&0E,&17,&1A,&51,&51,&FE
		DB &51,&09,&0B,&1C,&11,&17,&16,&51,&51,&51,&51,&51,&FF


TEXT2
;HINT... WANT
;TO EAT. WELL		
;PUNCH SLOWER
		DB &10,&11,&16,&1C,&4A,&4A,&4A,&51,&1F,&09,&16,&1C,&FE
		DB &1C,&17,&51,&0D,&09,&1C,&4A,&51,&1F,&0D,&14,&14,&FE
		DB &18,&1D,&16,&0B,&10,&51,&1B,&14,&17,&1F,&0D,&1A,&FF
TEXT3
;HINT... JUMP
;WHEN YOU SEE
;DUST  CLOWDS
		DB &10,&11,&16,&1C,&4A,&4A,&4A,&51,&12,&1D,&15,&18,&FE
		DB &1F,&10,&0D,&16,&51,&21,&17,&1D,&51,&1B,&0D,&0D,&FE
		DB &0C,&1D,&1B,&1C,&51,&51,&0B,&14,&17,&1F,&0C,&1B,&FF
TEXT4
;SPOUSE  OF
;MUTANT FILES
;LEGAL ACTION
		DB &1B,&18,&17,&1D,&1B,&0D,&51,&51,&17,&0E,&51,&51,&FE
		DB &15,&1D,&1C,&09,&16,&1C,&51,&0E,&11,&14,&0D,&1B,&FE
		DB &14,&0D,&0F,&09,&14,&51,&09,&0B,&1C,&11,&17,&16,&FF
TEXT5
;OVER GROWING
;CONCERN OVER
;MEGA VITAMIN
		DB &17,&1E,&0D,&1A,&51,&0F,&1A,&17,&1F,&11,&16,&0F,&FE
		DB &0B,&17,&16,&0B,&0D,&1A,&16,&51,&17,&1E,&0D,&1A,&FE
		DB &15,&0D,&0F,&09,&51,&1E,&11,&1C,&09,&15,&11,&16,&FF
TEXT6
;EXPERIMENTAL
;VITAMIN  HAS
;ILL  EFFECTS
		DB &0D,&20,&18,&0D,&1A,&11,&15,&0D,&16,&1C,&09,&14,&FE
		DB &1E,&11,&1C,&09,&15,&11,&16,&51,&51,&10,&09,&1B,&FE
		DB &11,&14,&14,&51,&51,&0D,&0E,&0E,&0D,&0B,&1C,&1B,&FF
TEXT7
;WOMAN  FINDS
;LAKE  TO  BE
;RADIOACTIVE
		DB &1F,&17,&15,&09,&16,&51,&51,&0E,&11,&16,&0C,&1B,&FE
		DB &14,&09,&13,&0D,&51,&51,&1C,&17,&51,&51,&0A,&0D,&FE
		DB &1A,&09,&0C,&11,&17,&09,&0B,&1C,&11,&1E,&0D,&4A,&FF
TEXT8
;UNUSUAL FOOD
;ADDITIVE MAY
;BE  RECALLED
		DB &1D,&16,&1D,&1B,&1D,&09,&14,&51,&0E,&17,&17,&0C,&FE
		DB &09,&0C,&0C,&11,&1C,&11,&1E,&0D,&51,&15,&09,&21,&FE
		DB &0A,&0D,&51,&51,&1A,&0D,&0B,&09,&14,&14,&0D,&0C,&FF
TEXT9
;SUSPECTED..
;POLLUTION OF
;WATER SUPPLY
		DB &1B,&1D,&1B,&18,&0D,&0B,&1C,&0D,&0C,&4A,&4A,&51,&FE
		DB &18,&17,&14,&14,&1D,&1C,&11,&17,&16,&51,&17,&0E,&FE
		DB &1F,&09,&1C,&0D,&1A,&51,&1B,&1D,&18,&18,&14,&21,&FF
TEXT10
;...CURED....
;GO  BACK  TO
;NORMAL  LIFE
		DB &4A,&4A,&4A,&0B,&1D,&1A,&0D,&0C,&4A,&4A,&4A,&4A,&FE
		DB &0F,&17,&51,&51,&0A,&09,&0B,&13,&51,&51,&1C,&17,&FE
		DB &16,&17,&1A,&15,&09,&14,&51,&51,&14,&11,&0E,&0D,&FF

;TEXT POINTERS

TEXTLB		DB >TEXT,>TEXT1,>TEXT2,>TEXT3,>TEXT4,>TEXT5,>TEXT6,>TEXT7,>TEXT8,>TEXT9,>TEXT10
TEXTHB		DB <TEXT,<TEXT1,<TEXT2,<TEXT3,<TEXT4,<TEXT5,<TEXT6,<TEXT7,<TEXT8,<TEXT9,<TEXT10

;*********************************

SELTEXT

; YOU MUST EAT FOOD TO SURVIVE
;
;CLIMB BUILDINGS AND PUNCH OPEN
;     WINDOWS TO FIND FOOD
;
;   DESTROY ALL BUILDINGS TO
;     ADVANCE TO NEXT CITY
		DB &51,&21,&17,&1D,&51,&15,&1D,&1B,&1C,&51
		DB &0D,&09,&1C,&51,&0E,&17,&17,&0C,&51,&1C
		DB &17,&51,&1B,&1D,&1A,&1E,&11,&1E,&0D,&51,&FE
		DS 30,&51
		DB &FE
		DB &0B,&14,&11,&15,&0A,&51,&0A,&1D,&11,&14
		DB &0C,&11,&16,&0F,&1B,&51,&09,&16,&0C,&51
		DB &18,&1D,&16,&0B,&10,&51,&17,&18,&0D,&16,&FE
		DB &51,&51,&51,&51,&51,&1F,&11,&16,&0C,&17
		DB &1F,&1B,&51,&1C,&17,&51,&0E,&11,&16,&0C
		DB &51,&0E,&17,&17,&0C,&51,&51,&51,&51,&51,&FE
		DS 30,&51
		DB $FE
		DB &51,&51,&51,&0C,&0D,&1B,&1C,&1A,&17,&21
		DB &51,&09,&14,&14,&51,&0A,&1D,&11,&14,&0C
		DB &11,&16,&0F,&1B,&51,&1C,&17,&51,&51,&51,&FE
		DB &51,&51,&51,&51,&51,&09,&0C,&1E,&09,&16
		DB &0B,&0D,&51,&1C,&17,&51,&16,&0D,&20,&1C
		DB &51,&0B,&11,&1C,&21,&51,&51,&51,&51,&51,&FF
RESETALL
MESPRI		DB &2F,&2B,&35,&35,&00,&3B,&31,&37,&FE
		DB &25,&37,&26,&26,&2E,&27,&00,&39,&2A,&37,&2F,&32,&00,&28,&2E,&37,&2F,&32,&00,&26,&37,&30,&2D,&35,&FF
FIRETEXT
;PRESS FIRE TO JOIN THE ACTION
		HEX "0000000000323427353500282B3427003631002C312B30"
		HEX "00362A27002325362B3130000000000000FF"
FIRETEXT1
;THEN PRESS FIRE
		HEX "00000000000000000000000000362A273000323427353500282B3427000000000000000000000000000F"

PLFO		
;LEFT OR RIGHT TO
;SELECT CHARACTER
;PLAYER
		HEX "140D0E1C51171A511A110F101C511C17FE"
		HEX "1B0D140D0B1C510B10091A090B1C0D1AFE"
		HEX "181409210D1A51FF"
PLNUM
;ONE
		HEX "17160DFF"
PLNUM1
;TWO
		HEX "1C1F17FF"
PLNUM2
;THREE
		HEX "1C101A0D0DFF"

PLPOINTLB	DB >PLNUM,>PLNUM1,>PLNUM2	
PLPOINTHB 	DB <PLNUM,<PLNUM1,<PLNUM2

;********************************

;BONUS  ITEMS
;
;EXTRA SCORE
;
;LIGHT BULB OFF           100 PTS
;TELEVISION                 75 PTS
;SAFE                      50 PTS
;MONEY BAG                125 PTS
;
;        EXTRA ENERGY
;CASSEROLE POT
;TURKEY
;GLASS OF MILK
;BOTTLE OF MILK
;
;
;       LOSS OF ENERGY
;LIGHT BULB ON
;CACTUS
;BOTTLE OF POISON
;
DBONUS
		HEX "0000000000000000243130373500002B36272F350000000000000000FE"
		HEX "00000000000000000000000000000000000000000000000000000000FE"
		HEX "0D201C1A09511B0B171A0D5151515151515151000000000000000000FE"
		HEX "00000000000000000000000000000000000000000000000000000000FE"
		HEX "2E2B292A360024372E24003128280000414040003236350000008400FE"
		HEX "36272E27382B352B31300000000000000047450032363500000000A4FE"
		HEX "3523282700000000000000000000000000454000323635000000C500FE"
		HEX "2F3130273B00242329000000000000004142450032363500000000C6FE"
		HEX "00000000000000000000000000000000000000000000000000000000FE"
		HEX "0D201C1A09510D160D1A0F2151515151515151000000000000000000FE"
		HEX "00000000000000000000000000000000000000000000000000000000FE"
		HEX "252335352734312E270032313600000000000000000000000000A500FE"
		HEX "3637342D273B000000000000000000000000000000000000000000A6FE"
		HEX "292E233535003128002F2B2E2D00000000000000000000000000E500FE"
		HEX "243136362E27003128002F2B2E2D00000000000000000000000000C3FE"
		HEX "000000000000000000000000000000000000000000000000000000E3FE"
		HEX "14171B1B51170E510D160D1A0F215151515151000000000000000000FE"
		HEX "00000000000000000000000000000000000000000000000000000000FE"
		HEX "2E2B292A360024372E24003130000000000000000000000000008500FE"
		HEX "25232536373500000000000000000000000000000000000000000086FE"
		HEX "243136362E270031280032312B35313000000000000000000000C400FE"
		HEX "0000000000000000000000000000000000000000000000000000E4FF"

SCOTEXTH	HEX "2A2B292A003525313427FF"
SCOTEXTL	HEX "29232F27003525313427FF"

;*********************************

SELDEFF	DB 0,12,12,13,2
		DB 4,12,12,13,6
		DB 8,12,12,13,10
PLAYSELE	DB 12,12,12,12,12
		DB 14,14,14,14,14
		DB 15,16,17,18,19
SELBUFF	DB 0,0,0,0,0
		DB 0,0,0,0,0
		DB 0,0,0,0,0
TILENUM	DB 0
ENERGY		DB 127,127,127
BLOMLB		DB 0,64,128,192
		DB 0,64,128,192
		DB 0,64,128,192
		DB 0,64,128,192
		DB 0,64,128,192
BLOMHB		
	DB BLDAVE+0,BLDAVE+0,BLDAVE+0,BLDAVE+0
	DB BLDAVE+1,BLDAVE+1,BLDAVE+1,BLDAVE+1
	DB BLDAVE+2,BLDAVE+2,BLDAVE+2,BLDAVE+2
	DB BLDAVE+3,BLDAVE+3,BLDAVE+3,BLDAVE+3
	DB BLDAVE+4,BLDAVE+4,BLDAVE+4,BLDAVE+4
SCRMLB		DB 0,8,16,24,32
		DB 64,72,80,88,96
		DB 128,136,144,152,160
SCRMHB		DB SHB+0,SHB+0,SHB+0,SHB+0,SHB+0
		DB SHB+1,SHB+1,SHB+1,SHB+1,SHB+1
		DB SHB+2,SHB+2,SHB+2,SHB+2,SHB+2
TCOUNT		DB 0
TEXTPOSLB	DB 93,157,221
TEXTPOSHB	DB SHB+0,SHB+1,SHB+2
DELDAVE	DB 0,0,0
TEXTSEED	DB 0
PLAYCHAR	DB 2,1,0
MINK 		DB 0
NEWLINE	DB 0
MODX		DB 0
MODTILEL	DB 0,5,10
MODTILER	DB 4,9,14

JOYY 		DB 0
GERALZ1	DB 3,7,11
GERALZ		DB 1,5,9
DSCREEN	DB 1
PLAYERSEL	DB 0
PLNUMLB	DB >PLNUM,>PLNUM1,>PLNUM2
PLNUMHB	DB <PLNUM,<PLNUM1,<PLNUM2
MANYTEMP	DB 0
CDEL		DB 0
XXXXXX		DB 0
TAKEN		DB 0,0,0
PDEL		DB 0,0

;YOU MUST FINISH SCORE DATA WITH &FF

HISCORE1	DB ZERO,ZERO,ZERO,ZERO,ZERO,ZERO,&FF
HISCORE2	DB ZERO,ZERO,ZERO,ZERO,ZERO,ZERO,&FF
HISCORE3	DB ZERO,ZERO,ZERO,ZERO,ZERO,ZERO,&FF
SCOLB		DB >SCORE1,>SCORE2,>SCORE3
SCOHB		DB <SCORE1,<SCORE2,<SCORE3
HILB		DB >HISCORE1,>HISCORE2,>HISCORE3
HIHB		DB <HISCORE1,<HISCORE2,<HISCORE3
SCPOSL		DB 15,25,36
SCPOSH		DB SHB+2,SHB+2,SHB+2
HPOSL		DB 149,161,173
HPOSH		DB SHB+1,SHB+1,SHB+1
STEXTPOSL	DB 119
STEXTPOSH	DB SHB+1
HTEXTPOSL	DB 239
HTEXTPOSH	DB SHB+1