*
* Genesys v1.3.5
* Control editor
*

         mx    %00
         rel
         lst   off

*----------------------------

         use   4/Ctl.Macs
         use   4/Int.Macs
         use   4/Line.Macs
         use   4/Mem.Macs
         use   4/Menu.Macs
         use   4/QD.Macs
         use   4/QDAux.Macs
         use   4/Resource.Macs
         use   4/Text.Macs
         use   4/Util.Macs
         use   4/Window.Macs

	 use   MMDIALOGS.X.S

*----------------------------

GSOS     EQU   $E100A8

*----------------------------

L030000  TSC
         SEC
         SBC   #$0016
         TCS
         PHD
         INC
         TCD
         PEI   $1B
         PEI   $19
         pea   #$FF01
         PEA   ^L03004F
         PEA   L03004F
         pea   #$0008
         JSL   L02C5F5
         pei   $1F
         pei   $1D
         LDA   #$0001
         CLC
         ADC   $19
         LDX   $1B
         PHX
         PHA
         pea   #$0008
         _Long2Hex
         STA   L02C957
         LDA   $17
         STA   $1F
         LDA   $16
         STA   $1E
         PLD
         TSC
         CLC
         ADC   #$001E
         TCS
         RTL

L03004F  ASC   '00000000'

*--- Icon management (from the resource to the icon management window)

L030057  ENT
         TSC
         SEC
         SBC   #$0020
         TCS
         PHD
         INC
         TCD
         PHA
         pea   #$0001
         _SetResourceFileDepth
         STA   L02C957
         PLA
         STA   $1E
         PHA
         PHA
         pea   #$8004
         pei   $25
         pei   $23
         _LoadResource
         STA   L02C957
         PLA
         STA   $16	; return the handle to the resource
         PLA
         STA   $18
         LDA   L02C957
         PHA
         LDA   #$2001
         PHA
         JSL   L020419
         PHA
         LDA   $1E
         PHA
         _SetResourceFileDepth
         STA   L02C957
         PLA
         STA   $1E
         LDX   $18	; lock handle
         LDA   $16
         PHX
         PHA
         _HLock
         STA   L02C957

*--- AV 202010 - Add the extra parm

         LDY   #$0002	; get its pointer
         LDA   [$16],Y
         TAX
         LDA   [$16]
         STA   $00
         STX   $02

	lda	[$00]	; check pCount
	cmp	#12	; if already 12
	bcs	icn12P	; we are good

	pha
	pha
	pei	$18
	pei	$16
	_GetHandleSize
	plx
	ply
	cpy	#0
	bne	icn12P	; check size of $30
	cpx	#48	; we have the right size
	bcs	icn12P

	pei	$18	; size is < $30 bytes
	pei	$16
	_HUnlock
	
	pea	$0000	; make it $30 bytes long
	pea	$0030
	pei	$18
	pei	$16
	_SetHandleSize

	pei	$18	; lock it
	pei	$16
	_HLock

         LDY   #$0002	; get its pointer
         LDA   [$16],Y
         TAX
         LDA   [$16]
         STA   $00
         STX   $02

	lda	#12	; 12 parms now
	sta	[$00]
	ldy	#$2e	; init initial value for sticky
	lda	#0
	sta	[$00],y

*---
	
icn12P	
         LDY   #$0004	; get its ID
         LDA   [$00],Y
         TAX
         LDY   #$0002
         LDA   [$00],Y
         PHX
         PHA
         LDX   #^L02BDAD
         LDA   #L02BDAD
         PHX
         PHA
         JSL   L030000

         LDY   #$0002	; get its pointer again
         LDA   [$16],Y
         TAX
         LDA   [$16]
         STA   $00
         STX   $02
         LDY   #$0018	; get its refcon
         LDA   [$00],Y
         TAX
         LDY   #$0016
         LDA   [$00],Y
         PHX
         PHA
         LDX   #^L02BAAD
         LDA   #L02BAAD
         PHX
         PHA
         JSL   L030000

         LDY   #$0002	; get its pointer again
         LDA   [$16],Y
         TAX
         LDA   [$16]
         STA   $00
         STX   $02
         LDA   [$00]	; get its pcount
         SEC
         SBC   #$0008
         BVS   L03011C
         EOR   #$8000
L03011C  BMI   L030121	; 8 parms or more
         BRL   L030243	; less than 8 parms

L030121  LDY   #$0002	; get its pointer
         LDA   [$16],Y
         TAX
         LDA   [$16]
         STA   $00
         STX   $02
         LDY   #$0020	; get its titleRef resource
         LDA   [$00],Y
         PHA
         LDY   #$001E
         LDA   [$00],Y
         PHA
         LDA   #$0000
         LDX   #$0000
         TAY
         BPL   L030143
         DEX
L030143  LDY   #$0001
         CMP   $01,S
         BEQ   L03014B
         DEY
L03014B  TXA
         CMP   $03,S
         BEQ   L030153
         LDY   #$0000
L030153  PLA
         PLA
         TYA
         BEQ   L03015B
         BRL   L030226
L03015B  PHA
         LDA   #$0001
         PHA
         _SetResourceFileDepth
         STA   L02C957
         PLA
         STA   $1E
         PHA
         PHA
         LDA   #$8006
         PHA
         LDY   #$0002	; get its pointer
         LDA   [$16],Y
         TAX
         LDA   [$16]
         STA   $00
         STX   $02
         LDY   #$0020	; get its titleRef resource
         LDA   [$00],Y
         TAX
         LDY   #$001E
         LDA   [$00],Y
         PHX
         PHA
         _LoadResource
         STA   L02C957
         PLA
         STA   L02B99B
         PLA
         STA   L02B99D
         LDA   L02C957
         PHA
         LDA   #$2003
         PHA
         JSL   L020419
         LDX   L02B99D
         LDA   L02B99B
         PHX
         PHA
         _HLock
         STA   L02C957
         LDX   #^L02B9AD
         LDA   #L02B9AD
         PHX
         PHA
         LDA   #$FF01
         PHA
         LDX   L02B99D
         LDA   L02B99B
         STA   $00
         STX   $02
         LDY   #$0002
         LDA   [$00],Y
         PHA
         LDA   [$00]
         PHA
         LDA   #$FF01
         PHA
         JSL   L02C5F5
         LDA   #$0001
         EOR   #$FFFF
         INC
         PHA
         LDA   #$8006
         PHA
         LDY   #$0002	; get its pointer
         LDA   [$16],Y
         TAX
         LDA   [$16]
         STA   $00
         STX   $02
         LDY   #$0020	; get its titleRef resource
         LDA   [$00],Y
         TAX
         LDY   #$001E
         LDA   [$00],Y
         PHX
         PHA
         _ReleaseResource
         STA   L02C957
         PHA
         LDA   $1E
         PHA
         _SetResourceFileDepth
         STA   L02C957
         PLA
         STA   $1E
         BRL   L030240
L030226  LDX   #^L02B9AD
         LDA   #L02B9AD
         PHX
         PHA
         LDA   #$FF01
         PHA
         PEA   ^L030057
         PEA   L030057
         LDA   #$0000
         PHA
         JSL   L02C5F5
L030240  BRL   L03025D

L030243  LDX   #^L02B9AD
         LDA   #L02B9AD
         PHX
         PHA
         LDA   #$FF01
         PHA
         PEA   ^L030057
         PEA   L030057
         LDA   #$0000
         PHA
         JSL   L02C5F5

L03025D  JSL   L02892D	; show the Icon control window
         PHA
         PHA
         _FrontWindow
         STA   L02C957
         PLA
         STA   L02B9A9
         PLA
         STA   L02B9AB

*--- Handle the invisible flag - bit 7

         LDY   #$0002
         LDA   [$16],Y
         TAX
         LDA   [$16]
         STA   $00
         STX   $02

         LDY   #$0012
         LDA   [$00],Y
         AND   #%00000000_10000000
	 beq   L0302BA

L03028E  LDA   #$0001
         PHA
         PHA
         PHA
         PEA   $0000
         PEA   $0000
         pea   $0000
	 pea   $0012
         _GetCtlHandleFromID
         _SetCtlValue

*--- AV 202010 Handle the disabled bit 3

L0302BA  LDY   #$0012
         LDA   [$00],Y
         AND   #%00000000_00001000
         beq   L0302BB

         LDA   #$0001
         PHA
         PHA
         PHA
         PEA   $0000
         PEA   $0000
	 pea   $0000
	 pea   $0013
         _GetCtlHandleFromID
         _SetCtlValue

*--- AV 202010 Handle the sticky bit 4

L0302BB  LDY   #$0012
         LDA   [$00],Y
         AND   #%00000000_00010000
         beq   L0302BC

         LDA   #$0001
         PHA
         PHA
         PHA
         PEA   $0000
         PEA   $0000
	 pea   $0000
	 pea   $0014
         _GetCtlHandleFromID
         _SetCtlValue

         LDA   #$0000	; activate the buttons
         PHA
         PHA
         PHA
         PEA   $0000
         PEA   $0000
	 pea   $0000
	 pea   $0015
         _GetCtlHandleFromID
         _HiliteControl

         LDA   #$0000
         PHA
         PHA
         PHA
         PEA   $0000
         PEA   $0000
	 pea   $0000
	 pea   $0016
         _GetCtlHandleFromID
         _HiliteControl

*--- Handle the show border bit 2

L0302BC  LDY   #$0012
         LDA   [$00],Y
         AND   #%00000000_00000100
         BEQ   L0302D3
         BRL   L0303C0

L0302D3  LDA   #$0001
         PHA
         PHA
         PHA
         PEA   $0000
         PEA   $0000
         pea   $0000
	 pea   $000b
         _GetCtlHandleFromID
         _SetCtlValue

*--- Handle the border type

         LDY   #$0012
         LDA   [$00],Y
         AND   #%00000000_00000011
         CMP   #$0001
         bne   L03034E

L03031F  LDA   #$0001
         PHA
         PHA
         PHA
         PEA   $0000
         PEA   $0000
	 pea   $0000
	 pea   $0009
         _GetCtlHandleFromID
         _SetCtlValue
         bra   L0303BD

L03034E  CMP   #$0002
         bne   L030387

L030358  LDA   #$0001
         PHA
         PHA
         PHA
         PEA   $0000
         PEA   $0000
	 pea   $0000
	 pea   $0008
         _GetCtlHandleFromID
         _SetCtlValue
         bra   L0303BD

L030387  CMP   #$0003
         bne   L0303BD

L030391  LDA   #$0001
         PHA
         PHA
         PHA
         PEA   $0000
         PEA   $0000
	 pea   $0000
	 pea   $0007
         _GetCtlHandleFromID
         _SetCtlValue

L0303BD  BRL   L03042C

L0303C0  LDA   #$0007
         STA   $1A
L0303C5  LDA   #$00FF
         PHA
         PHA
         PHA
         PEA   $0000
         PEA   $0000
	 pea   $0000
         pei   $1a
         _GetCtlHandleFromID
         _HiliteControl

         INC   $1A
         LDA   $1A
         CMP   #$000B
	 bcc   L0303C5

L030400  LDA   #$0000
         PHA
         PHA
         PHA
         PEA   $0000
         PEA   $0000
	 pea   $0000
	 pea   $000a
         _GetCtlHandleFromID
         _SetCtlValue

L03042C  LDA   #$00FF
         PHA
         PHA
         PHA
         PEA   $0000
         PEA   $0000
	 pea   $0000
	 pea   $0004
         _GetCtlHandleFromID
         _HiliteControl
         PHA
         LDA   #$0001
         PHA
         _SetResourceFileDepth
         PLA
         STA   $1E
         LDA   #$0001
         EOR   #$FFFF
         INC
         PHA
         pea   #$8004
         pei   $25
         pei   $23
         _ReleaseResource
         PHA
         pei   $1E
         _SetResourceFileDepth
         PLA
         STA   $1E
         LDA   $21
         STA   $25
         LDA   $20
         STA   $24
         PLD
         TSC
         CLC
         ADC   #$0024
         TCS
         RTL

L0304A7  TSC
         SEC
         SBC   #$0016
         TCS
         PHD
         INC
         TCD
         LDX   $1B
         LDA   $19
         PHX
         PHA
         _HUnlock
         STA   L02C957
         PHA
         PHA
         LDX   $1B
         LDA   $19
         PHX
         PHA
         _GetHandleSize
         STA   L02C957
         LDA   $1D
         LDX   #$0000
         TAY
         BPL   L0304DB
         DEX
L0304DB  PHX
         PHA
         CLC
         PLA
         ADC   $03,S
         STA   $03,S
         PLA
         ADC   $03,S
         STA   $03,S
         LDX   $1B
         LDA   $19
         PHX
         PHA
         _SetHandleSize
         STA   L02C957
         LDA   L02C957
         PHA
         LDA   #$5202
         PHA
         JSL   L020419
         LDX   $1B
         LDA   $19
         PHX
         PHA
         _HLock
         STA   L02C957
         LDA   $17
         STA   $1D
         LDA   $16
         STA   $1C
         PLD
         TSC
         CLC
         ADC   #$001C
         TCS
         RTL

L030524  ENT
         TSC
         SEC
         SBC   #$002A
         TCS
         PHD
         INC
         TCD
         PHA
         LDA   #$0001
         PHA
         _SetResourceFileDepth
         STA   L02C957
         PLA
         STA   $28
         PHA
         PHA
         LDA   #$8004
         PHA
         LDX   $2F
         LDA   $2D
         PHX
         PHA
         _LoadResource
         STA   L02C957
         PLA
         STA   $16
         PLA
         STA   $18
         LDA   L02C957
         PHA
         LDA   #$5104
         PHA
         JSL   L020419
         PHA
         LDA   $28
         PHA
         _SetResourceFileDepth
         STA   L02C957
         PLA
         STA   $28
         LDX   $18
         LDA   $16
         PHX
         PHA
         _HLock
         STA   L02C957
         LDY   #$0002
         LDA   [$16],Y
         TAX
         LDA   [$16]
         STA   $00
         STX   $02
         LDA   [$00]
         PHA
         LDA   #$0008
         SEC
         SBC   $01,S
         PLY
         TAY
         BEQ   L0305A8
         BVS   L0305A6
         EOR   #$8000
L0305A6  BMI   L0305AB
L0305A8  BRL   L0305F4
L0305AB  LDA   #$0004
         PHA
         LDX   $18
         LDA   $16
         PHX
         PHA
         JSL   L0304A7
         LDA   #$0000
         LDX   #$0000
         TAY
         BPL   L0305C3
         DEX
L0305C3  PHX
         PHA
         LDY   #$0002
         LDA   [$16],Y
         PHA
         LDA   [$16]
         PHA
         PLA
         CLC
         ADC   #$001E
         PHA
         PLA
         STA   $00
         PLA
         STA   $02
         PLA
         STA   [$00]
         LDY   #$0002
         PLA
         STA   [$00],Y
         LDY   #$0002
         LDA   [$16],Y
         TAX
         LDA   [$16]
         STA   $00
         STX   $02
         LDA   #$0008
         STA   [$00]
L0305F4  LDY   #$0002
         LDA   [$16],Y
         TAX
         LDA   [$16]
         STA   $00
         STX   $02
         LDA   [$00]
         PHA
         LDA   #$0009
         SEC
         SBC   $01,S
         PLY
         TAY
         BEQ   L030614
         BVS   L030612
         EOR   #$8000
L030612  BMI   L030617
L030614  BRL   L030660
L030617  LDA   #$0004
         PHA
         LDX   $18
         LDA   $16
         PHX
         PHA
         JSL   L0304A7
         LDA   #$0000
         LDX   #$0000
         TAY
         BPL   L03062F
         DEX
L03062F  PHX
         PHA
         LDY   #$0002
         LDA   [$16],Y
         PHA
         LDA   [$16]
         PHA
         PLA
         CLC
         ADC   #$0022
         PHA
         PLA
         STA   $00
         PLA
         STA   $02
         PLA
         STA   [$00]
         LDY   #$0002
         PLA
         STA   [$00],Y
         LDY   #$0002
         LDA   [$16],Y
         TAX
         LDA   [$16]
         STA   $00
         STX   $02
         LDA   #$0009
         STA   [$00]
L030660  LDY   #$0002
         LDA   [$16],Y
         TAX
         LDA   [$16]
         STA   $00
         STX   $02
         LDA   [$00]
         PHA
         LDA   #$000A
         SEC
         SBC   $01,S
         PLY
         TAY
         BEQ   L030680
         BVS   L03067E
         EOR   #$8000
L03067E  BMI   L030683
L030680  BRL   L0306B7
L030683  LDA   #$0002
         PHA
         LDX   $18
         LDA   $16
         PHX
         PHA
         JSL   L0304A7
         LDY   #$0002
         LDA   [$16],Y
         TAX
         LDA   [$16]
         CLC
         ADC   #$0026
         STA   $00
         STX   $02
         LDA   #$0000
         STA   [$00]
         LDY   #$0002
         LDA   [$16],Y
         TAX
         LDA   [$16]
         STA   $00
         STX   $02
         LDA   #$000A
         STA   [$00]
L0306B7  JSL   L028CE3
         PHA
         PHA
         _FrontWindow
         STA   L02C957
         PLA
         STA   $1A
         PLA
         STA   $1C
         LDX   $1C
         LDA   $1A
         PHX
         PHA
         _SetPort
         STA   L02C957
         LDY   #$0002
         LDA   [$16],Y
         TAX
         LDA   [$16]
         STA   $00
         STX   $02
         LDY   #$0026
         LDA   [$00],Y
         AND   #$0004
         BNE   L0306F6
         BRL   L030722
L0306F6  LDA   #$0001
         PHA
         PHA
         PHA
         PEA   $0000
         PEA   $0000
         LDA   #$0003
         LDX   #$0000
         TAY
         BPL   L03070C
         DEX
L03070C  PHX
         PHA
         _GetCtlHandleFromID
         STA   L02C957
         _SetCtlValue
         STA   L02C957
L030722  LDY   #$0002
         LDA   [$16],Y
         TAX
         LDA   [$16]
         STA   $00
         STX   $02
         LDY   #$0026
         LDA   [$00],Y
         AND   #$0002
         BNE   L03073B
         BRL   L030767
L03073B  LDA   #$0001
         PHA
         PHA
         PHA
         PEA   $0000
         PEA   $0000
         LDA   #$0004
         LDX   #$0000
         TAY
         BPL   L030751
         DEX
L030751  PHX
         PHA
         _GetCtlHandleFromID
         STA   L02C957
         _SetCtlValue
         STA   L02C957
L030767  LDY   #$0002
         LDA   [$16],Y
         TAX
         LDA   [$16]
         STA   $00
         STX   $02
         LDY   #$0026
         LDA   [$00],Y
         AND   #$0001
         BNE   L030780
         BRL   L0307AC
L030780  LDA   #$0001
         PHA
         PHA
         PHA
         PEA   $0000
         PEA   $0000
         LDA   #$0005
         LDX   #$0000
         TAY
         BPL   L030796
         DEX
L030796  PHX
         PHA
         _GetCtlHandleFromID
         STA   L02C957
         _SetCtlValue
         STA   L02C957
L0307AC  PEA   $0000
         TDC
         CLC
         ADC   #$001E
         PHA
         LDA   #$0138
         PHA
         LDA   #$0008
         PHA
         LDA   #$015C
         PHA
         LDA   #$0016
         PHA
         _SetRect
         STA   L02C957
         LDY   #$0002
         LDA   [$16],Y
         TAX
         LDA   [$16]
         STA   $00
         STX   $02
         LDY   #$0026
         LDA   [$00],Y
         AND   #$F000
         STA   $26
         PEA   $0000
         TDC
         CLC
         ADC   #$001E
         PHA
         LDA   #$0000
         PHA
         LDA   $26
         PHA
         JSL   L0203E3
         PHA
         _SpecialRect
         STA   L02C957
         PHA
         LDA   #$0001
         PHA
         _SetResourceFileDepth
         STA   L02C957
         PLA
         STA   $28
         LDA   #$0001
         EOR   #$FFFF
         INC
         PHA
         LDA   #$8004
         PHA
         LDX   $2F
         LDA   $2D
         PHX
         PHA
         _ReleaseResource
         STA   L02C957
         PHA
         LDA   $28
         PHA
         _SetResourceFileDepth
         STA   L02C957
         PLA
         STA   $28
         LDA   $2B
         STA   $2F
         LDA   $2A
         STA   $2E
         PLD
         TSC
         CLC
         ADC   #$002E
         TCS
         RTL

L030853  ENT
         TSC
         SEC
         SBC   #$001E
         TCS
         PHD
         INC
         TCD
         PHA
         LDA   #$0001
         PHA
         _SetResourceFileDepth
         STA   L02C957
         PLA
         STA   $1C
         PHA
         PHA
         LDA   #$8004
         PHA
         LDX   $23
         LDA   $21
         PHX
         PHA
         _LoadResource
         STA   L02C957
         PLA
         STA   $16
         PLA
         STA   $18
         LDA   L02C957
         PHA
         LDA   #$2101
         PHA
         JSL   L020419
         PHA
         LDA   $1C
         PHA
         _SetResourceFileDepth
         STA   L02C957
         PLA
         STA   $1C
         LDX   $18
         LDA   $16
         PHX
         PHA
         _HLock
         STA   L02C957
         LDY   #$0002
         LDA   [$16],Y
         TAX
         LDA   [$16]
         STA   $00
         STX   $02
         LDY   #$0004
         LDA   [$00],Y
         TAX
         LDY   #$0002
         LDA   [$00],Y
         PHX
         PHA
         LDX   #^L02BDAD
         LDA   #L02BDAD
         PHX
         PHA
         JSL   L030000
         LDY   #$0002
         LDA   [$16],Y
         TAX
         LDA   [$16]
         STA   $00
         STX   $02
         LDY   #$0018
         LDA   [$00],Y
         TAX
         LDY   #$0016
         LDA   [$00],Y
         PHX
         PHA
         LDX   #^L02BAAD
         LDA   #L02BAAD
         PHX
         PHA
         JSL   L030000
         PHA
         LDA   #$0001
         PHA
         _SetResourceFileDepth
         STA   L02C957
         PLA
         STA   $1C
         PHA
         PHA
         LDA   #$8006
         PHA
         LDY   #$0002
         LDA   [$16],Y
         TAX
         LDA   [$16]
         STA   $00
         STX   $02
         LDY   #$001C
         LDA   [$00],Y
         TAX
         LDY   #$001A
         LDA   [$00],Y
         PHX
         PHA
         _LoadResource
         STA   L02C957
         PLA
         STA   L02B99B
         PLA
         STA   L02B99D
         LDA   L02C957
         PHA
         LDA   #$2103
         PHA
         JSL   L020419
         LDX   L02B99D
         LDA   L02B99B
         PHX
         PHA
         _HLock
         STA   L02C957
         LDX   #^L02B9AD
         LDA   #L02B9AD
         PHX
         PHA
         LDA   #$FF01
         PHA
         LDX   L02B99D
         LDA   L02B99B
         STA   $00
         STX   $02
         LDY   #$0002
         LDA   [$00],Y
         PHA
         LDA   [$00]
         PHA
         LDA   #$FF01
         PHA
         JSL   L02C5F5
         LDA   #$0001
         EOR   #$FFFF
         INC
         PHA
         LDA   #$8006
         PHA
         LDY   #$0002
         LDA   [$16],Y
         TAX
         LDA   [$16]
         STA   $00
         STX   $02
         LDY   #$001C
         LDA   [$00],Y
         TAX
         LDY   #$001A
         LDA   [$00],Y
         PHX
         PHA
         _ReleaseResource
         STA   L02C957
         PHA
         LDA   $1C
         PHA
         _SetResourceFileDepth
         STA   L02C957
         PLA
         STA   $1C
         JSL   L02B5CB
         PHA
         PHA
         _FrontWindow
         STA   L02C957
         PLA
         STA   L02B9A9
         PLA
         STA   L02B9AB
         LDY   #$0002
         LDA   [$16],Y
         TAX
         LDA   [$16]
         STA   $00
         STX   $02
         LDY   #$0012
         LDA   [$00],Y
         AND   #$0080
         BNE   L0309FA
         BRL   L030A26
L0309FA  LDA   #$0001
         PHA
         PHA
         PHA
         PEA   $0000
         PEA   $0000
         LDA   #$000D
         LDX   #$0000
         TAY
         BPL   L030A10
         DEX
L030A10  PHX
         PHA
         _GetCtlHandleFromID
         STA   L02C957
         _SetCtlValue
         STA   L02C957
L030A26  LDY   #$0002
         LDA   [$16],Y
         TAX
         LDA   [$16]
         STA   $00
         STX   $02
         LDY   #$0012
         LDA   [$00],Y
         AND   #$0003
         STA   $1A
         LDA   $1A
         CMP   #$0001
         BEQ   L030A46
         BRL   L030A75
L030A46  LDA   #$0001
         PHA
         PHA
         PHA
         PEA   $0000
         PEA   $0000
         LDA   #$0007
         LDX   #$0000
         TAY
         BPL   L030A5C
         DEX
L030A5C  PHX
         PHA
         _GetCtlHandleFromID
         STA   L02C957
         _SetCtlValue
         STA   L02C957
         BRL   L030AE4
L030A75  LDA   $1A
         CMP   #$0002
         BEQ   L030A7F
         BRL   L030AAE
L030A7F  LDA   #$0001
         PHA
         PHA
         PHA
         PEA   $0000
         PEA   $0000
         LDA   #$0006
         LDX   #$0000
         TAY
         BPL   L030A95
         DEX
L030A95  PHX
         PHA
         _GetCtlHandleFromID
         STA   L02C957
         _SetCtlValue
         STA   L02C957
         BRL   L030AE4
L030AAE  LDA   $1A
         CMP   #$0003
         BEQ   L030AB8
         BRL   L030AE4
L030AB8  LDA   #$0001
         PHA
         PHA
         PHA
         PEA   $0000
         PEA   $0000
         LDA   #$0005
         LDX   #$0000
         TAY
         BPL   L030ACE
         DEX
L030ACE  PHX
         PHA
         _GetCtlHandleFromID
         STA   L02C957
         _SetCtlValue
         STA   L02C957
L030AE4  LDA   #$00FF
         PHA
         PHA
         PHA
         PEA   $0000
         PEA   $0000
         LDA   #$0003
         LDX   #$0000
         TAY
         BPL   L030AFA
         DEX
L030AFA  PHX
         PHA
         _GetCtlHandleFromID
         STA   L02C957
         _HiliteControl
         STA   L02C957
         PHA
         LDA   #$0001
         PHA
         _SetResourceFileDepth
         STA   L02C957
         PLA
         STA   $1C
         LDA   #$0001
         EOR   #$FFFF
         INC
         PHA
         LDA   #$8004
         PHA
         LDX   $23
         LDA   $21
         PHX
         PHA
         _ReleaseResource
         STA   L02C957
         PHA
         LDA   $1C
         PHA
         _SetResourceFileDepth
         STA   L02C957
         PLA
         STA   $1C
         LDA   $1F
         STA   $23
         LDA   $1E
         STA   $22
         PLD
         TSC
         CLC
         ADC   #$0022
         TCS
         RTL

L030B5F  ENT
         TSC
         SEC
         SBC   #$001C
         TCS
         PHD
         INC
         TCD
         PHA
         LDA   #$0001
         PHA
         _SetResourceFileDepth
         STA   L02C957
         PLA
         STA   $1A
         PHA
         PHA
         LDA   #$8004
         PHA
         LDX   $21
         LDA   $1F
         PHX
         PHA
         _LoadResource
         STA   L02C957
         PLA
         STA   $16
         PLA
         STA   $18
         LDA   L02C957
         PHA
         LDA   #$2201
         PHA
         JSL   L020419
         PHA
         LDA   $1A
         PHA
         _SetResourceFileDepth
         STA   L02C957
         PLA
         STA   $1A
         LDX   $18
         LDA   $16
         PHX
         PHA
         _HLock
         STA   L02C957
         LDY   #$0002
         LDA   [$16],Y
         TAX
         LDA   [$16]
         STA   $00
         STX   $02
         LDY   #$0004
         LDA   [$00],Y
         TAX
         LDY   #$0002
         LDA   [$00],Y
         PHX
         PHA
         LDX   #^L02BDAD
         LDA   #L02BDAD
         PHX
         PHA
         JSL   L030000
         LDY   #$0002
         LDA   [$16],Y
         TAX
         LDA   [$16]
         STA   $00
         STX   $02
         LDY   #$0018
         LDA   [$00],Y
         TAX
         LDY   #$0016
         LDA   [$00],Y
         PHX
         PHA
         LDX   #^L02BAAD
         LDA   #L02BAAD
         PHX
         PHA
         JSL   L030000
         JSL   L029680		; window for Stat Text control
         PHA
         PHA
         _FrontWindow
         STA   L02C957
         PLA
         STA   L02B9A9
         PLA
         STA   L02B9AB

*--- AV 202010

         LDY   #$0002	; get control handle
         LDA   [$16],Y
         TAX
         LDA   [$16]
         STA   $00	; set the pointer
         STX   $02

*--- Set bit 7 on control $D - ctlInvis

         LDY   #$0012	; get flag
         LDA   [$00],Y
         AND   #%00000000_10000000	; get bit 7 - invisible
	 beq   L030C6A

         LDA   #$0001
         PHA
         PHA
         PHA
         PEA   $0000
         PEA   $0000
	 pea   $0000
	 pea   $000d
	 _GetCtlHandleFromID
	 sta   L02C957
	 _SetCtlValue
	 sta   L02C957

*--- Set bit 1 on control $C - fSubstituteText

L030C6A
         LDY   #$0012	; get flag
         LDA   [$00],Y
         AND   #%00000000_00000010	; get bit 1 - fSubstituteText
	 beq   L030C6B

         LDA   #$0001
         PHA
         PHA
         PHA
         PEA   $0000
         PEA   $0000
	 pea   $0000
	 pea   $000c
	 _GetCtlHandleFromID
	 sta   L02C957
	 _SetCtlValue
	 sta   L02C957

*--- Set bit 2 on control $10 - fBlastText

L030C6B
         LDY   #$0012	; get flag
         LDA   [$00],Y
         AND   #%00000000_00000100	; get bit 2 - fBlastText
	 beq   L030C6C

         LDA   #$0001
         PHA
         PHA
         PHA
         PEA   $0000
         PEA   $0000
	 pea   $0000
	 pea   $0010
	 _GetCtlHandleFromID
	 sta   L02C957
	 _SetCtlValue
	 sta   L02C957

*--- Set bit 3 on control $F - fTextCanDim

L030C6C
         LDY   #$0012	; get flag
         LDA   [$00],Y
         AND   #%00000000_00001000	; get bit 3 - fTextCanDim
	 beq   L030C6D

         LDA   #$0001
         PHA
         PHA
         PHA
         PEA   $0000
         PEA   $0000
	 pea   $0000
	 pea   $000f
	 _GetCtlHandleFromID
	 sta   L02C957
	 _SetCtlValue
	 sta   L02C957

*--- Set bit 4 on control $E - fSquishText

L030C6D
         LDY   #$0012	; get flag
         LDA   [$00],Y
         AND   #%00000000_00010000	; get bit 4 - fSquishText
	 beq   L030CAF

         LDA   #$0001
         PHA
         PHA
         PHA
         PEA   $0000
         PEA   $0000
	 pea   $0000
	 pea   $000e
	 _GetCtlHandleFromID
	 sta   L02C957
	 _SetCtlValue
	 sta   L02C957

*---

L030CAF  LDY   #$0002	; now check justification
         LDA   [$16],Y
         TAX
         LDA   [$16]
         STA   $00
         STX   $02
         LDA   [$00]
         CMP   #$0009
         BEQ   L030CC5
         BRL   L030DD6
L030CC5  LDY   #$0002
         LDA   [$16],Y
         TAX
         LDA   [$16]
         STA   $00
         STX   $02
         LDY   #$0020
         LDA   [$00],Y
         CMP   #$0002
         BEQ   L030CDE
         BRL   L030D0D
L030CDE  LDA   #$0001
         PHA
         PHA
         PHA
         PEA   $0000
         PEA   $0000
         LDA   #$0008
         LDX   #$0000
         TAY
         BPL   L030CF4
         DEX
L030CF4  PHX
         PHA
         _GetCtlHandleFromID
         STA   L02C957
         _SetCtlValue
         STA   L02C957
         BRL   L030DD3
L030D0D  LDY   #$0002
         LDA   [$16],Y
         TAX
         LDA   [$16]
         STA   $00
         STX   $02
         LDY   #$0020
         LDA   [$00],Y
         PHA
         LDA   #$0001
         EOR   #$FFFF
         INC
         SEC
         SBC   $01,S
         PLX
         TAX
         BEQ   L030D30
         BRL   L030D5F
L030D30  LDA   #$0001
         PHA
         PHA
         PHA
         PEA   $0000
         PEA   $0000
         LDA   #$0009
         LDX   #$0000
         TAY
         BPL   L030D46
         DEX
L030D46  PHX
         PHA
         _GetCtlHandleFromID
         STA   L02C957
         _SetCtlValue
         STA   L02C957
         BRL   L030DD3
L030D5F  LDY   #$0002
         LDA   [$16],Y
         TAX
         LDA   [$16]
         STA   $00
         STX   $02
         LDY   #$0020
         LDA   [$00],Y
         CMP   #$0001
         BEQ   L030D78
         BRL   L030DA7
L030D78  LDA   #$0001
         PHA
         PHA
         PHA
         PEA   $0000
         PEA   $0000
         LDA   #$000A
         LDX   #$0000
         TAY
         BPL   L030D8E
         DEX
L030D8E  PHX
         PHA
         _GetCtlHandleFromID
         STA   L02C957
         _SetCtlValue
         STA   L02C957
         BRL   L030DD3
L030DA7  LDA   #$0001
         PHA
         PHA
         PHA
         PEA   $0000
         PEA   $0000
         LDA   #$000B
         LDX   #$0000
         TAY
         BPL   L030DBD
         DEX
L030DBD  PHX
         PHA
         _GetCtlHandleFromID
         STA   L02C957
         _SetCtlValue
         STA   L02C957
L030DD3  BRL   L030E02
L030DD6  LDA   #$0001
         PHA
         PHA
         PHA
         PEA   $0000
         PEA   $0000
         LDA   #$000B
         LDX   #$0000
         TAY
         BPL   L030DEC
         DEX
L030DEC  PHX
         PHA
         _GetCtlHandleFromID
         STA   L02C957
         _SetCtlValue
         STA   L02C957
L030E02  PHA
         LDA   #$0001
         PHA
         _SetResourceFileDepth
         STA   L02C957
         PLA
         STA   $1A
         LDA   #$0001
         EOR   #$FFFF
         INC
         PHA
         LDA   #$8004
         PHA
         LDX   $21
         LDA   $1F
         PHX
         PHA
         _ReleaseResource
         STA   L02C957
         PHA
         LDA   $1A
         PHA
         _SetResourceFileDepth
         STA   L02C957
         PLA
         STA   $1A
         LDA   $1D
         STA   $21
         LDA   $1C
         STA   $20
         PLD
         TSC
         CLC
         ADC   #$0020
         TCS
         RTL

L030E51  ENT
         TSC
         SEC
         SBC   #$001C
         TCS
         PHD
         INC
         TCD
         PHA
         LDA   #$0001
         PHA
         _SetResourceFileDepth
         STA   L02C957
         PLA
         STA   $1A
         PHA
         PHA
         LDA   #$8004
         PHA
         LDX   $21
         LDA   $1F
         PHX
         PHA
         _LoadResource
         STA   L02C957
         PLA
         STA   $16
         PLA
         STA   $18
         LDA   L02C957
         PHA
         LDA   #$2301
         PHA
         JSL   L020419
         PHA
         LDA   $1A
         PHA
         _SetResourceFileDepth
         STA   L02C957
         PLA
         STA   $1A
         LDX   $18
         LDA   $16
         PHX
         PHA
         _HLock
         STA   L02C957
         LDY   #$0002
         LDA   [$16],Y
         TAX
         LDA   [$16]
         STA   $00
         STX   $02
         LDY   #$0004
         LDA   [$00],Y
         TAX
         LDY   #$0002
         LDA   [$00],Y
         PHX
         PHA
         LDX   #^L02BDAD
         LDA   #L02BDAD
         PHX
         PHA
         JSL   L030000
         LDY   #$0002
         LDA   [$16],Y
         TAX
         LDA   [$16]
         STA   $00
         STX   $02
         LDY   #$0018
         LDA   [$00],Y
         TAX
         LDY   #$0016
         LDA   [$00],Y
         PHX
         PHA
         LDX   #^L02BAAD
         LDA   #L02BAAD
         PHX
         PHA
         JSL   L030000
         PHA
         LDA   #$0001
         PHA
         _SetResourceFileDepth
         STA   L02C957
         PLA
         STA   $1A
         PHA
         PHA
         LDA   #$8006
         PHA
         LDY   #$0002
         LDA   [$16],Y
         TAX
         LDA   [$16]
         STA   $00
         STX   $02
         LDY   #$001C
         LDA   [$00],Y
         TAX
         LDY   #$001A
         LDA   [$00],Y
         PHX
         PHA
         _LoadResource
         STA   L02C957
         PLA
         STA   L02B99B
         PLA
         STA   L02B99D
         LDA   L02C957
         PHA
         LDA   #$2303
         PHA
         JSL   L020419
         LDX   L02B99D
         LDA   L02B99B
         PHX
         PHA
         _HLock
         STA   L02C957
         LDX   #^L02B9AD
         LDA   #L02B9AD
         PHX
         PHA
         LDA   #$FF01
         PHA
         LDX   L02B99D
         LDA   L02B99B
         STA   $00
         STX   $02
         LDY   #$0002
         LDA   [$00],Y
         PHA
         LDA   [$00]
         PHA
         LDA   #$FF01
         PHA
         JSL   L02C5F5
         LDA   #$0001
         EOR   #$FFFF
         INC
         PHA
         LDA   #$8006
         PHA
         LDY   #$0002
         LDA   [$16],Y
         TAX
         LDA   [$16]
         STA   $00
         STX   $02
         LDY   #$001C
         LDA   [$00],Y
         TAX
         LDY   #$001A
         LDA   [$00],Y
         PHX
         PHA
         _ReleaseResource
         STA   L02C957
         PHA
         LDA   $1A
         PHA
         _SetResourceFileDepth
         STA   L02C957
         PLA
         STA   $1A
         JSL   L0299A5
         PHA
         PHA
         _FrontWindow
         STA   L02C957
         PLA
         STA   L02B9A9
         PLA
         STA   L02B9AB
         LDY   #$0002
         LDA   [$16],Y
         TAX
         LDA   [$16]
         STA   $00
         STX   $02
         LDY   #$0012
         LDA   [$00],Y
         AND   #$0080
         BNE   L030FF8
         BRL   L031024
L030FF8  LDA   #$0001
         PHA
         PHA
         PHA
         PEA   $0000
         PEA   $0000
         LDA   #$000C
         LDX   #$0000
         TAY
         BPL   L03100E
         DEX
L03100E  PHX
         PHA
         _GetCtlHandleFromID
         STA   L02C957
         _SetCtlValue
         STA   L02C957
L031024  LDY   #$0002
         LDA   [$16],Y
         TAX
         LDA   [$16]
         STA   $00
         STX   $02
         LDY   #$001E
         LDA   [$00],Y
         BNE   L03103A
         BRL   L031066
L03103A  LDA   #$0001
         PHA
         PHA
         PHA
         PEA   $0000
         PEA   $0000
         LDA   #$000B
         LDX   #$0000
         TAY
         BPL   L031050
         DEX
L031050  PHX
         PHA
         _GetCtlHandleFromID
         STA   L02C957
         _SetCtlValue
         STA   L02C957
L031066  LDA   #$00FF
         PHA
         PHA
         PHA
         PEA   $0000
         PEA   $0000
         LDA   #$0003
         LDX   #$0000
         TAY
         BPL   L03107C
         DEX
L03107C  PHX
         PHA
         _GetCtlHandleFromID
         STA   L02C957
         _HiliteControl
         STA   L02C957
         PHA
         LDA   #$0001
         PHA
         _SetResourceFileDepth
         STA   L02C957
         PLA
         STA   $1A
         LDA   #$0001
         EOR   #$FFFF
         INC
         PHA
         LDA   #$8004
         PHA
         LDX   $21
         LDA   $1F
         PHX
         PHA
         _ReleaseResource
         STA   L02C957
         PHA
         LDA   $1A
         PHA
         _SetResourceFileDepth
         STA   L02C957
         PLA
         STA   $1A
         LDA   $1D
         STA   $21
         LDA   $1C
         STA   $20
         PLD
         TSC
         CLC
         ADC   #$0020
         TCS
         RTL

*--- AV 202010

doRECTANGLE	ENT
         TSC
         SEC
         SBC   #$0020
         TCS
         PHD
         INC
         TCD
         PHA
         pea   #$0001
         _SetResourceFileDepth
         STA   L02C957
         PLA
         STA   $1E
         PHA
         PHA
         pea   #$8004
         pei   $25
         pei   $23
         _LoadResource
         STA   L02C957
         PLA
         STA   $16
         PLA
         STA   $18
         LDA   L02C957	; check error
         PHA
         pea   #$2401
         JSL   L020419
         PHA
         pei   $1E
         _SetResourceFileDepth
         STA   L02C957
         PLA
         STA   $1E

         pei   $18
         pei   $16
         _HLock
         STA   L02C957

* Get the data

         LDY   #$0002	; get the pointer
         LDA   [$16],Y
         TAX
         LDA   [$16]
         STA   $00
         STX   $02

* Get the number of parms (we handle 8 parms max)

	lda	[$00]	
	cmp	#8
	bcs	okRECT	; if >=8, do nothing

	pei	$18
	pei	$16
	_HUnlock

	pea	$0000	; make it $1e bytes long
	pea	$001e
	pei	$18
	pei	$16
	_SetHandleSize

	pei	$18	; lock it
	pei	$16
	_HLock

         LDY   #$0002	; get the pointer
         LDA   [$16],Y
         TAX
         LDA   [$16]
         STA   $00
         STX   $02

	lda	#8	; New nb of parms now
	sta	[$00]
	ldy	#$1a	; initial value for penHeight
	lda	#1
	sta	[$00],y
	ldy	#$1c	; initial value for penWidth
	lda	#2
	sta	[$00],y

okRECT
         LDY   #$0004	; get its ID
         LDA   [$00],Y
         pha
         LDY   #$0002
         LDA   [$00],Y
         pha
         LDX   #^L02BDAD
         LDA   #L02BDAD
         PHX
         PHA
         JSL   L030000

         LDY   #$0018	; get the refcon
         LDA   [$00],Y
         pha
         LDY   #$0016
         LDA   [$00],Y
         pha
         LDX   #^L02BAAD
         LDA   #L02BAAD
         PHX
         PHA
         JSL   L030000

	ldy	#$1a	; get penWidth
	lda	[$00],y
	pha
	PushLong #strRECTD2
	PushWord #5
	PushWord #0
	_Int2Dec

	ldy	#$1c	; get penHeight
	lda	[$00],y
	pha
	PushLong #strRECTF2
	PushWord #5
	PushWord #0
	_Int2Dec

*--- Reset all controls (and we'll change the value afterwards)

        lda   #$0000	; transparent
        pha
        pha
        pha
        pha
        pha
	pha
	pea   $0009
        _GetCtlHandleFromID
        _SetCtlValue

        lda   #$0000	; grey pattern
        pha
        pha
        pha
        pha
        pha
	pha
	pea   $000a
        _GetCtlHandleFromID
        _SetCtlValue

        lda   #$0000	; black pattern
        pha
        pha
        pha
        pha
        pha
	pha
	pea   $000b
        _GetCtlHandleFromID
        _SetCtlValue

*---

         JSL   showRECTANGLE	; do window
         PHA
         PHA
         _FrontWindow
         STA   L02C957
         PLA
         STA   L02B9A9
         PLA
         STA   L02B9AB

*--- Update some flags

         LDY   #$0002
         LDA   [$16],Y
         TAX
         LDA   [$16]
         STA   $00
         STX   $02

*--- Control's visibility

	ldy	#$12
	lda	[$00],y
	and	#%00000000_10000000
	beq	rectVISIBLE

        lda   #$0001
        pha
        pha
        pha
        pea   $0000
        pea   $0000
	pea   $0000
	pea   $0007
        _GetCtlHandleFromID
        _SetCtlValue

rectVISIBLE	

*--- Control's appearance

	ldy	#$12
	lda	[$00],y
	and	#%00000000_00000011
	cmp	#%00000000_00000011
	bcs	rectAPPEAR

	clc
	adc	#9	; because control 9 is radio button transparent
	tax

        lda   #$0001
        pha
        pha
        pha
        pea   $0000
        pea   $0000
	pea   $0000
	phx		; <= the control to activate
        _GetCtlHandleFromID
        _SetCtlValue

rectAPPEAR

*---

         PHA
         LDA   #$0001
         PHA
         _SetResourceFileDepth
         STA   L02C957
         PLA
         STA   $1E
         LDA   #$0001
         EOR   #$FFFF
         INC
         PHA
         LDA   #$8004
         PHA
         LDX   $25
         LDA   $23
         PHX
         PHA
         _ReleaseResource
         STA   L02C957
         PHA
         LDA   $1E
         PHA
         _SetResourceFileDepth
         STA   L02C957
         PLA
         STA   $1E
         LDA   $21
         STA   $25
         LDA   $20
         STA   $24
         PLD
         TSC
         CLC
         ADC   #$0024
         TCS
         RTL

*--- AV 202010

doTHERMOMETER	ENT
         TSC
         SEC
         SBC   #$0020
         TCS
         PHD
         INC
         TCD
         PHA
         pea   #$0001
         _SetResourceFileDepth
         STA   L02C957
         PLA
         STA   $1E
         PHA
         PHA
         pea   #$8004
         pei   $25
         pei   $23
         _LoadResource
         STA   L02C957
         PLA
         STA   $16
         PLA
         STA   $18
         LDA   L02C957	; check error
         PHA
         pea   #$2401
         JSL   L020419
         PHA
         pei   $1E
         _SetResourceFileDepth
         STA   L02C957
         PLA
         STA   $1E

         pei   $18
         pei   $16
         _HLock
         STA   L02C957

* Get the data

         LDY   #$0002	; get the pointer
         LDA   [$16],Y
         TAX
         LDA   [$16]
         STA   $00
         STX   $02

* Get the number of parms (we handle 8 parms max)

	lda	[$00]	
	cmp	#8
	bcs	okTHERMO	; if >=8, do nothing

	pei	$18
	pei	$16
	_HUnlock

	pea	$0000	; make it $1e bytes long
	pea	$001e
	pei	$18
	pei	$16
	_SetHandleSize

	pei	$18	; lock it
	pei	$16
	_HLock

         LDY   #$0002	; get the pointer
         LDA   [$16],Y
         TAX
         LDA   [$16]
         STA   $00
         STX   $02

	lda	#8	; New nb of parms now
	sta	[$00]
	ldy	#$1a	; initial value for position
	lda	#0
	sta	[$00],y
	ldy	#$1c	; initial value for scale
	lda	#100
	sta	[$00],y

okTHERMO
         LDY   #$0004	; get its ID
         LDA   [$00],Y
         pha
         LDY   #$0002
         LDA   [$00],Y
         pha
         LDX   #^L02BDAD
         LDA   #L02BDAD
         PHX
         PHA
         JSL   L030000

         LDY   #$0018	; get the refcon
         LDA   [$00],Y
         pha
         LDY   #$0016
         LDA   [$00],Y
         pha
         LDX   #^L02BAAD
         LDA   #L02BAAD
         PHX
         PHA
         JSL   L030000

	ldy	#$1a	; get position
	lda	[$00],y
	pha
	PushLong #strTHERMOD2
	PushWord #5
	PushWord #0
	_Int2Dec

	ldy	#$1c	; get scale
	lda	[$00],y
	pha
	PushLong #strTHERMOF2
	PushWord #5
	PushWord #0
	_Int2Dec

*--- Reset all controls (and we'll change the value afterwards)

        lda   #$0000	; vertical
        pha
        pha
        pha
        pha
        pha
	pha
	pea   $0009
        _GetCtlHandleFromID
        _SetCtlValue

        lda   #$0000	; horizontal
        pha
        pha
        pha
        pha
        pha
	pha
	pea   $000a
        _GetCtlHandleFromID
        _SetCtlValue

*---

         JSL   showTHERMOMETER	; do window
         PHA
         PHA
         _FrontWindow
         STA   L02C957
         PLA
         STA   L02B9A9
         PLA
         STA   L02B9AB

*--- Update some flags

         LDY   #$0002
         LDA   [$16],Y
         TAX
         LDA   [$16]
         STA   $00
         STX   $02

*--- Control's visibility

	ldy	#$12
	lda	[$00],y
	and	#%00000000_10000000
	beq	thermoVISIBLE

        lda   #$0001
        pha
        pha
        pha
        pea   $0000
        pea   $0000
	pea   $0000
	pea   $0007
        _GetCtlHandleFromID
        _SetCtlValue

thermoVISIBLE	

*--- Control's appearance

	ldy	#$12
	lda	[$00],y
	and	#%00000000_00000001

	clc
	adc	#9	; because control 9 is radio button vertical
	tax

        lda   #$0001
        pha
        pha
        pha
        pea   $0000
        pea   $0000
	pea   $0000
	phx		; <= the control to activate
        _GetCtlHandleFromID
        _SetCtlValue

*---

         PHA
         LDA   #$0001
         PHA
         _SetResourceFileDepth
         STA   L02C957
         PLA
         STA   $1E
         LDA   #$0001
         EOR   #$FFFF
         INC
         PHA
         LDA   #$8004
         PHA
         LDX   $25
         LDA   $23
         PHX
         PHA
         _ReleaseResource
         STA   L02C957
         PHA
         LDA   $1E
         PHA
         _SetResourceFileDepth
         STA   L02C957
         PLA
         STA   $1E
         LDA   $21
         STA   $25
         LDA   $20
         STA   $24
         PLD
         TSC
         CLC
         ADC   #$0024
         TCS
         RTL

*--- AV 202010 Line Edit control entry point

L0310E1  ENT
         TSC
         SEC
         SBC   #$0020
         TCS
         PHD
         INC
         TCD
         PHA
         LDA   #$0001
         PHA
         _SetResourceFileDepth
         STA   L02C957
         PLA
         STA   $1E
         PHA
         PHA
         LDA   #$8004
         PHA
         LDX   $25
         LDA   $23
         PHX
         PHA
         _LoadResource
         STA   L02C957
         PLA
         STA   $16
         PLA
         STA   $18
         LDA   L02C957
         PHA
         LDA   #$2401
         PHA
         JSL   L020419
         PHA
         LDA   $1E
         PHA
         _SetResourceFileDepth
         STA   L02C957
         PLA
         STA   $1E
         LDX   $18
         LDA   $16
         PHX
         PHA
         _HLock
         STA   L02C957

*--- AV 202010 - Add the extra parm

         LDY   #$0002	; get its pointer
         LDA   [$16],Y
         TAX
         LDA   [$16]
         STA   $00
         STX   $02

	lda	[$00]	; check pCount
	cmp	#10	; if already 10
	bcs	le10P	; we are good

	pha
	pha
	pei	$18
	pei	$16
	_GetHandleSize
	plx
	ply
	cpy	#0
	bne	le10P	; check size of 32+2+2
	cpx	#$24	; we have the right size
	bcs	le10P

	pei	$18	; size is < $24 bytes
	pei	$16
	_HUnlock
	
	pea	$0000	; make it $24 bytes long
	pea	$0024
	pei	$18
	pei	$16
	_SetHandleSize

	pei	$18	; lock it
	pei	$16
	_HLock

         LDY   #$0002	; get its pointer
         LDA   [$16],Y
         TAX
         LDA   [$16]
         STA   $00
         STX   $02

	lda	[$00]	; if we have 9 parms
	cmp	#9	; add the 10th only
	bcs	le9P
	
	ldy	#$20	; pwChar
	lda	#$ffff	; by default, not a password field
	sta	[$00],y

le9P	ldy	#$22	; keyMask
	lda	#$0001 
	sta	[$00],y

	lda	#10	; 10 parms now
	sta	[$00]

le10P

*---

	ldy	#$20	; now make pwChar a text value
	lda	[$00],y
	pha
	PushLong #pwChar
	PushWord #4
	_Int2Hex

	ldy	#$22	; now make keyMask a text value
	lda	[$00],y
	pha
	PushLong #keyMask
	PushWord #4
	_Int2Hex
	
*--- Back to the original code

         LDY   #$0002
         LDA   [$16],Y
         TAX
         LDA   [$16]
         STA   $00
         STX   $02
         LDY   #$0004
         LDA   [$00],Y
         TAX
         LDY   #$0002
         LDA   [$00],Y
         PHX
         PHA
         LDX   #^L02BDAD
         LDA   #L02BDAD
         PHX
         PHA
         JSL   L030000
         LDY   #$0002
         LDA   [$16],Y
         TAX
         LDA   [$16]
         STA   $00
         STX   $02
         LDY   #$0018
         LDA   [$00],Y
         TAX
         LDY   #$0016
         LDA   [$00],Y
         PHX
         PHA
         LDX   #^L02BAAD
         LDA   #L02BAAD
         PHX
         PHA
         JSL   L030000
         LDY   #$0002
         LDA   [$16],Y
         TAX
         LDA   [$16]
         STA   $00
         STX   $02
         LDY   #$001A
         LDA   [$00],Y
         STA   $1A
         LDA   $1A
         AND   #$8000
         BNE   L0311AC
         BRL   L0311BB
L0311AC  LDA   #$0001
         STA   $1C
         LDA   $1A
         EOR   #$8000
         STA   $1A
         BRL   L0311C0
L0311BB  LDA   #$0000
         STA   $1C
L0311C0  LDA   $1A
         SEC
         SBC   #$00FF
         BEQ   L0311CF
         BVS   L0311CD
         EOR   #$8000
L0311CD  BMI   L0311D2
L0311CF  BRL   L0311D7
L0311D2  LDA   #$00FF
         STA   $1A
L0311D7  LDA   #$0000
         SEC
         SBC   $1A
         BEQ   L0311E6
         BVS   L0311E4
         EOR   #$8000
L0311E4  BMI   L0311E9
L0311E6  BRL   L0311EE
L0311E9  LDA   #$0000
         STA   $1A
L0311EE  LDX   #^L02BCAD
         LDA   #L02BCAD
         PHX
         PHA
         LDA   #$FF01
         PHA
         LDA   $1A
         LDX   #$0000
         TAY
         BPL   L031203
         DEX
L031203  PHX
         PHA
         JSL   L02C444
         JSL   L02C5F5
         JSL   L02C4DA
         PHA
         LDY   #$0002
         LDA   [$16],Y
         TAX
         LDA   [$16]
         STA   $00
         STX   $02
         LDY   #$001E
         LDA   [$00],Y
         TAX
         LDY   #$001C
         LDA   [$00],Y
         PHX
         PHA
         _HiWord
         STA   L02C957
         PLA
         LDX   #$0000
         CMP   #$0000
         BEQ   L03123F
         INX
L03123F  TXA
         PHA
         PHA
         LDY   #$0002
         LDA   [$16],Y
         TAX
         LDA   [$16]
         STA   $00
         STX   $02
         LDY   #$001E
         LDA   [$00],Y
         TAX
         LDY   #$001C
         LDA   [$00],Y
         PHX
         PHA
         _LoWord
         STA   L02C957
         PLA
         LDX   #$0000
         CMP   #$0000
         BEQ   L03126F
         INX
L03126F  TXA
         ORA   $01,S
         PLX
         TAX
         BNE   L031279
         BRL   L031344
L031279  PHA
         LDA   #$0001
         PHA
         _SetResourceFileDepth
         STA   L02C957
         PLA
         STA   $1E
         PHA
         PHA
         LDA   #$8006
         PHA
         LDY   #$0002
         LDA   [$16],Y
         TAX
         LDA   [$16]
         STA   $00
         STX   $02
         LDY   #$001E
         LDA   [$00],Y
         TAX
         LDY   #$001C
         LDA   [$00],Y
         PHX
         PHA
         _LoadResource
         STA   L02C957
         PLA
         STA   L02B99B
         PLA
         STA   L02B99D
         LDA   L02C957
         PHA
         LDA   #$2403
         PHA
         JSL   L020419
         LDX   L02B99D
         LDA   L02B99B
         PHX
         PHA
         _HLock
         STA   L02C957
         LDX   #^L02B9AD
         LDA   #L02B9AD
         PHX
         PHA
         LDA   #$FF01
         PHA
         LDX   L02B99D
         LDA   L02B99B
         STA   $00
         STX   $02
         LDY   #$0002
         LDA   [$00],Y
         PHA
         LDA   [$00]
         PHA
         LDA   #$FF01
         PHA
         JSL   L02C5F5
         LDA   #$0001
         EOR   #$FFFF
         INC
         PHA
         LDA   #$8006
         PHA
         LDY   #$0002
         LDA   [$16],Y
         TAX
         LDA   [$16]
         STA   $00
         STX   $02
         LDY   #$001E
         LDA   [$00],Y
         TAX
         LDY   #$001C
         LDA   [$00],Y
         PHX
         PHA
         _ReleaseResource
         STA   L02C957
         PHA
         LDA   $1E
         PHA
         _SetResourceFileDepth
         STA   L02C957
         PLA
         STA   $1E
         BRL   L03135E
L031344  LDX   #^L02B9AD
         LDA   #L02B9AD
         PHX
         PHA
         LDA   #$FF01
         PHA
         PEA   ^L0310E1
         PEA   L0310E1
         LDA   #$0000
         PHA
         JSL   L02C5F5
L03135E  JSL   L029C59	; do window
         PHA
         PHA
         _FrontWindow
         STA   L02C957
         PLA
         STA   L02B9A9
         PLA
         STA   L02B9AB
         LDY   #$0002
         LDA   [$16],Y
         TAX
         LDA   [$16]
         STA   $00
         STX   $02

*--- AV 202010 - Add new words

	ldy	#$20	; check pwChar
	lda	[$00],y
	cmp	#$ffff	; -1 means not a password
	bne	isAPWD

         LDA   #$0001	; check Not a password box
         PHA
         PHA
         PHA
         PEA   $0000
         PEA   $0000
	 pea	$0000
	 pea	$000f
         _GetCtlHandleFromID
         _SetCtlValue

isAPWD

*---

         LDY   #$0012	; bit 7 - invisible
         LDA   [$00],Y
         AND   #$0080
         BNE   L03138F
         BRL   L0313BB
L03138F  LDA   #$0001
         PHA
         PHA
         PHA
         PEA   $0000
         PEA   $0000
	 pea	$0000
	 pea	$000c
         _GetCtlHandleFromID
         STA   L02C957
         _SetCtlValue
         STA   L02C957

L0313BB  LDA   $1C	; password checkbox
         BNE   L0313C2
         BRL   L0313EE
L0313C2  LDA   #$0001
         PHA
         PHA
         PHA
         PEA   $0000
         PEA   $0000
	 pea	$0000
	 pea	$0003
         _GetCtlHandleFromID
         STA   L02C957
         _SetCtlValue
         STA   L02C957
L0313EE  PHA
         LDA   #$0001
         PHA
         _SetResourceFileDepth
         STA   L02C957
         PLA
         STA   $1E
         LDA   #$0001
         EOR   #$FFFF
         INC
         PHA
         LDA   #$8004
         PHA
         LDX   $25
         LDA   $23
         PHX
         PHA
         _ReleaseResource
         STA   L02C957
         PHA
         LDA   $1E
         PHA
         _SetResourceFileDepth
         STA   L02C957
         PLA
         STA   $1E
         LDA   $21
         STA   $25
         LDA   $20
         STA   $24
         PLD
         TSC
         CLC
         ADC   #$0024
         TCS
         RTL

L03143D  ENT
         TSC
         SEC
         SBC   #$001E
         TCS
         PHD
         INC
         TCD
         PHA
         LDA   #$0001
         PHA
         _SetResourceFileDepth
         STA   L02C957
         PLA
         STA   $1C
         PHA
         PHA
         LDA   #$8004
         PHA
         LDX   $23
         LDA   $21
         PHX
         PHA
         _LoadResource
         STA   L02C957
         PLA
         STA   $16
         PLA
         STA   $18
         LDA   L02C957
         PHA
         LDA   #$2501
         PHA
         JSL   L020419
         PHA
         LDA   $1C
         PHA
         _SetResourceFileDepth
         STA   L02C957
         PLA
         STA   $1C
         LDX   $18
         LDA   $16
         PHX
         PHA
         _HLock
         STA   L02C957
         LDY   #$0002
         LDA   [$16],Y
         TAX
         LDA   [$16]
         STA   $00
         STX   $02
         LDY   #$0004
         LDA   [$00],Y
         TAX
         LDY   #$0002
         LDA   [$00],Y
         PHX
         PHA
         LDX   #^L02BDAD
         LDA   #L02BDAD
         PHX
         PHA
         JSL   L030000
         LDY   #$0002
         LDA   [$16],Y
         TAX
         LDA   [$16]
         STA   $00
         STX   $02
         LDY   #$0018
         LDA   [$00],Y
         TAX
         LDY   #$0016
         LDA   [$00],Y
         PHX
         PHA
         LDX   #^L02BAAD
         LDA   #L02BAAD
         PHX
         PHA
         JSL   L030000
         LDY   #$0002
         LDA   [$16],Y
         TAX
         LDA   [$16]
         STA   $00
         STX   $02
         LDY   #$0012
         LDA   [$00],Y
         STA   $1A
         LDA   $1A
         SEC
         SBC   #$007F
         BEQ   L03150D
         BVS   L03150B
         EOR   #$8000
L03150B  BMI   L031510
L03150D  BRL   L031517
L031510  LDA   $1A
         EOR   #$0080
         STA   $1A
L031517  LDX   #^L02BCAD
         LDA   #L02BCAD
         PHX
         PHA
         LDA   #$FF01
         PHA
         LDA   $1A
         LDX   #$0000
         TAY
         BPL   L03152C
         DEX
L03152C  PHX
         PHA
         JSL   L02C444
         JSL   L02C5F5
         JSL   L02C4DA
         PHA
         LDA   #$0001
         PHA
         _SetResourceFileDepth
         STA   L02C957
         PLA
         STA   $1C
         PHA
         PHA
         LDA   #$8006
         PHA
         LDY   #$0002
         LDA   [$16],Y
         TAX
         LDA   [$16]
         STA   $00
         STX   $02
         LDY   #$001C
         LDA   [$00],Y
         TAX
         LDY   #$001A
         LDA   [$00],Y
         PHX
         PHA
         _LoadResource
         STA   L02C957
         PLA
         STA   L02B99B
         PLA
         STA   L02B99D
         LDA   L02C957
         PHA
         LDA   #$2503
         PHA
         JSL   L020419
         LDX   L02B99D
         LDA   L02B99B
         PHX
         PHA
         _HLock
         STA   L02C957
         LDX   #^L02B9AD
         LDA   #L02B9AD
         PHX
         PHA
         LDA   #$FF01
         PHA
         LDX   L02B99D
         LDA   L02B99B
         STA   $00
         STX   $02
         LDY   #$0002
         LDA   [$00],Y
         PHA
         LDA   [$00]
         PHA
         LDA   #$FF01
         PHA
         JSL   L02C5F5
         LDA   #$0001
         EOR   #$FFFF
         INC
         PHA
         LDA   #$8006
         PHA
         LDY   #$0002
         LDA   [$16],Y
         TAX
         LDA   [$16]
         STA   $00
         STX   $02
         LDY   #$001C
         LDA   [$00],Y
         TAX
         LDY   #$001A
         LDA   [$00],Y
         PHX
         PHA
         _ReleaseResource
         STA   L02C957
         PHA
         LDA   $1C
         PHA
         _SetResourceFileDepth
         STA   L02C957
         PLA
         STA   $1C
         JSL   L029F0F
         PHA
         PHA
         _FrontWindow
         STA   L02C957
         PLA
         STA   L02B9A9
         PLA
         STA   L02B9AB
         LDY   #$0002
         LDA   [$16],Y
         TAX
         LDA   [$16]
         STA   $00
         STX   $02
         LDY   #$0012
         LDA   [$00],Y
         AND   #$0080
         BNE   L031633
         BRL   L03165F
L031633  LDA   #$0001
         PHA
         PHA
         PHA
         PEA   $0000
         PEA   $0000
         LDA   #$000E
         LDX   #$0000
         TAY
         BPL   L031649
         DEX
L031649  PHX
         PHA
         _GetCtlHandleFromID
         STA   L02C957
         _SetCtlValue
         STA   L02C957
L03165F  LDY   #$0002
         LDA   [$16],Y
         TAX
         LDA   [$16]
         STA   $00
         STX   $02
         LDY   #$001E
         LDA   [$00],Y
         BNE   L031675
         BRL   L0316A1
L031675  LDA   #$0001
         PHA
         PHA
         PHA
         PEA   $0000
         PEA   $0000
         LDA   #$000D
         LDX   #$0000
         TAY
         BPL   L03168B
         DEX
L03168B  PHX
         PHA
         _GetCtlHandleFromID
         STA   L02C957
         _SetCtlValue
         STA   L02C957
L0316A1  LDA   #$00FF
         PHA
         PHA
         PHA
         PEA   $0000
         PEA   $0000
         LDA   #$0003
         LDX   #$0000
         TAY
         BPL   L0316B7
         DEX
L0316B7  PHX
         PHA
         _GetCtlHandleFromID
         STA   L02C957
         _HiliteControl
         STA   L02C957
         PHA
         LDA   #$0001
         PHA
         _SetResourceFileDepth
         STA   L02C957
         PLA
         STA   $1C
         LDA   #$0001
         EOR   #$FFFF
         INC
         PHA
         LDA   #$8004
         PHA
         LDX   $23
         LDA   $21
         PHX
         PHA
         _ReleaseResource
         STA   L02C957
         PHA
         LDA   $1C
         PHA
         _SetResourceFileDepth
         STA   L02C957
         PLA
         STA   $1C
         LDA   $1F
         STA   $23
         LDA   $1E
         STA   $22
         PLD
         TSC
         CLC
         ADC   #$0022
         TCS
         RTL

L03171C  ENT
         TSC
         SEC
         SBC   #$0022
         TCS
         PHD
         INC
         TCD
         PHA
         LDA   #$0001
         PHA
         _SetResourceFileDepth
         STA   L02C957
         PLA
         STA   $20
         PHA
         PHA
         LDA   #$8004
         PHA
         LDX   $29
         LDA   $27
         PHX
         PHA
         _LoadResource
         STA   L02C957
         PLA
         STA   $16
         PLA
         STA   $18
         LDA   L02C957
         PHA
         LDA   #$2604
         PHA
         JSL   L020419
         PHA
         LDA   $20
         PHA
         _SetResourceFileDepth
         STA   L02C957
         PLA
         STA   $20
         LDX   $18
         LDA   $16
         PHX
         PHA
         _HLock
         STA   L02C957
         LDY   #$0002
         LDA   [$16],Y
         TAX
         LDA   [$16]
         STA   $00
         STX   $02
         LDY   #$0004
         LDA   [$00],Y
         TAX
         LDY   #$0002
         LDA   [$00],Y
         PHX
         PHA
         LDX   #^L02BDAD
         LDA   #L02BDAD
         PHX
         PHA
         JSL   L030000
         LDY   #$0002
         LDA   [$16],Y
         TAX
         LDA   [$16]
         STA   $00
         STX   $02
         LDY   #$0018
         LDA   [$00],Y
         TAX
         LDY   #$0016
         LDA   [$00],Y
         PHX
         PHA
         LDX   #^L02BAAD
         LDA   #L02BAAD
         PHX
         PHA
         JSL   L030000
         JSL   L02A20A
         PHA
         PHA
         _FrontWindow
         STA   L02C957
         PLA
         STA   L02B9A9
         PLA
         STA   L02B9AB
         LDY   #$0002
         LDA   [$16],Y
         TAX
         LDA   [$16]
         STA   $00
         STX   $02
         LDY   #$0012
         LDA   [$00],Y
         AND   #$0080
         BNE   L0317FB
         BRL   L031827
L0317FB  LDA   #$0001
         PHA
         PHA
         PHA
         PEA   $0000
         PEA   $0000
         LDA   #$0015
         LDX   #$0000
         TAY
         BPL   L031811
         DEX
L031811  PHX
         PHA
         _GetCtlHandleFromID
         STA   L02C957
         _SetCtlValue
         STA   L02C957
L031827  LDY   #$0002
         LDA   [$16],Y
         TAX
         LDA   [$16]
         STA   $00
         STX   $02
         LDA   [$00]
         PHA
         LDA   #$0008
         SEC
         SBC   $01,S
         PLY
         TAY
         BEQ   L031847
         BVS   L031845
         EOR   #$8000
L031845  BMI   L03184A
L031847  BRL   L031881
L03184A  LDA   #$0008
         PHA
         LDX   $18
         LDA   $16
         PHX
         PHA
         JSL   L0304A7
         LDY   #$0002
         LDA   [$16],Y
         PHA
         LDA   [$16]
         PHA
         PLA
         CLC
         ADC   #$001E
         PHA
         LDA   #$FFFF
         PHA
         LDA   #$FFFF
         PHA
         LDA   #$FFFF
         PHA
         LDA   #$FFFF
         PHA
         _SetRect
         STA   L02C957
L031881  LDY   #$0002
         LDA   [$16],Y
         TAX
         LDA   [$16]
         STA   $00
         STX   $02
         LDA   [$00]
         PHA
         LDA   #$0009
         SEC
         SBC   $01,S
         PLY
         TAY
         BEQ   L0318A1
         BVS   L03189F
         EOR   #$8000
L03189F  BMI   L0318A4
L0318A1  BRL   L0318DC
L0318A4  LDA   #$0004
         PHA
         LDX   $18
         LDA   $16
         PHX
         PHA
         JSL   L0304A7
         LDA   #$0000
         LDX   #$0000
         TAY
         BPL   L0318BC
         DEX
L0318BC  PHX
         PHA
         LDY   #$0002
         LDA   [$16],Y
         PHA
         LDA   [$16]
         PHA
         PLA
         CLC
         ADC   #$0026
         PHA
         PLA
         STA   $00
         PLA
         STA   $02
         PLA
         STA   [$00]
         LDY   #$0002
         PLA
         STA   [$00],Y
L0318DC  LDY   #$0002
         LDA   [$16],Y
         TAX
         LDA   [$16]
         STA   $00
         STX   $02
         LDA   [$00]
         PHA
         LDA   #$000A
         SEC
         SBC   $01,S
         PLY
         TAY
         BEQ   L0318FC
         BVS   L0318FA
         EOR   #$8000
L0318FA  BMI   L0318FF
L0318FC  BRL   L031922
L0318FF  LDA   #$0002
         PHA
         LDX   $18
         LDA   $16
         PHX
         PHA
         JSL   L0304A7
         LDY   #$0002
         LDA   [$16],Y
         TAX
         LDA   [$16]
         CLC
         ADC   #$002A
         STA   $00
         STX   $02
         LDA   #$0000
         STA   [$00]
L031922  LDY   #$0002
         LDA   [$16],Y
         TAX
         LDA   [$16]
         STA   $00
         STX   $02
         LDA   [$00]
         PHA
         LDA   #$000B
         SEC
         SBC   $01,S
         PLY
         TAY
         BEQ   L031942
         BVS   L031940
         EOR   #$8000
L031940  BMI   L031945
L031942  BRL   L03197D
L031945  LDA   #$0004
         PHA
         LDX   $18
         LDA   $16
         PHX
         PHA
         JSL   L0304A7
         LDA   #$0000
         LDX   #$0000
         TAY
         BPL   L03195D
         DEX
L03195D  PHX
         PHA
         LDY   #$0002
         LDA   [$16],Y
         PHA
         LDA   [$16]
         PHA
         PLA
         CLC
         ADC   #$002C
         PHA
         PLA
         STA   $00
         PLA
         STA   $02
         PLA
         STA   [$00]
         LDY   #$0002
         PLA
         STA   [$00],Y
L03197D  LDY   #$0002
         LDA   [$16],Y
         TAX
         LDA   [$16]
         STA   $00
         STX   $02
         LDA   [$00]
         PHA
         LDA   #$000C
         SEC
         SBC   $01,S
         PLY
         TAY
         BEQ   L03199D
         BVS   L03199B
         EOR   #$8000
L03199B  BMI   L0319A0
L03199D  BRL   L0319C3
L0319A0  LDA   #$0002
         PHA
         LDX   $18
         LDA   $16
         PHX
         PHA
         JSL   L0304A7
         LDY   #$0002
         LDA   [$16],Y
         TAX
         LDA   [$16]
         CLC
         ADC   #$0030
         STA   $00
         STX   $02
         LDA   #$0000
         STA   [$00]
L0319C3  LDY   #$0002
         LDA   [$16],Y
         TAX
         LDA   [$16]
         STA   $00
         STX   $02
         LDA   [$00]
         PHA
         LDA   #$000D
         SEC
         SBC   $01,S
         PLY
         TAY
         BEQ   L0319E3
         BVS   L0319E1
         EOR   #$8000
L0319E1  BMI   L0319E6
L0319E3  BRL   L031A1E
L0319E6  LDA   #$0004
         PHA
         LDX   $18
         LDA   $16
         PHX
         PHA
         JSL   L0304A7
         LDA   #$0000
         LDX   #$0000
         TAY
         BPL   L0319FE
         DEX
L0319FE  PHX
         PHA
         LDY   #$0002
         LDA   [$16],Y
         PHA
         LDA   [$16]
         PHA
         PLA
         CLC
         ADC   #$0032
         PHA
         PLA
         STA   $00
         PLA
         STA   $02
         PLA
         STA   [$00]
         LDY   #$0002
         PLA
         STA   [$00],Y
L031A1E  LDY   #$0002
         LDA   [$16],Y
         TAX
         LDA   [$16]
         STA   $00
         STX   $02
         LDA   [$00]
         PHA
         LDA   #$000E
         SEC
         SBC   $01,S
         PLY
         TAY
         BEQ   L031A3E
         BVS   L031A3C
         EOR   #$8000
L031A3C  BMI   L031A41
L031A3E  BRL   L031A64
L031A41  LDA   #$0002
         PHA
         LDX   $18
         LDA   $16
         PHX
         PHA
         JSL   L0304A7
         LDY   #$0002
         LDA   [$16],Y
         TAX
         LDA   [$16]
         CLC
         ADC   #$0036
         STA   $00
         STX   $02
         LDA   #$0015
         STA   [$00]
L031A64  LDY   #$0002
         LDA   [$16],Y
         TAX
         LDA   [$16]
         STA   $00
         STX   $02
         LDA   [$00]
         PHA
         LDA   #$000F
         SEC
         SBC   $01,S
         PLY
         TAY
         BEQ   L031A84
         BVS   L031A82
         EOR   #$8000
L031A82  BMI   L031A87
L031A84  BRL   L031C04
L031A87  LDA   #$0004
         PHA
         LDX   $18
         LDA   $16
         PHX
         PHA
         JSL   L0304A7
         PHA
         PHA
         LDA   #$0016
         LDX   #$0000
         TAY
         BPL   L031AA1
         DEX
L031AA1  PHX
         PHA
         LDA   $25
         PHA
         LDA   #$0000
         PHA
         LDA   #$0000
         LDX   #$0000
         TAY
         BPL   L031AB4
         DEX
L031AB4  PHX
         PHA
         _NewHandle
         STA   L02C957
         PLA
         STA   $1C
         PLA
         STA   $1E
         LDA   L02C957
         PHA
         LDA   #$2606
         PHA
         JSL   L020419
         LDX   $1E
         LDA   $1C
         PHX
         PHA
         _HLock
         STA   L02C957
         LDX   #^L02BCAD
         LDA   #L02BCAD
         PHX
         PHA
         LDA   #$FF01
         PHA
         PEA   ^L0322C0
         PEA   L0322C0
         LDA   #$0016
         PHA
         JSL   L02C5F5
         LDA   #$0001
         TAX
         TXA
         CLC
         ADC   #L02BCAD
         PEA   ^L02BCAD
         PHA
         LDY   #$0002
         LDA   [$1C],Y
         PHA
         LDA   [$1C]
         PHA
         LDA   #$0016
         LDX   #$0000
         TAY
         BPL   L031B1C
         DEX
L031B1C  PHX
         PHA
         _BlockMove
         STA   L02C957
         PHA
         PHA
         LDA   #$FFFF
         PHA
         LDA   #$8016
         PHA
         _UniqueResourceID
         STA   L02C957
         LDY   #$0002
         LDA   [$16],Y
         PHA
         LDA   [$16]
         PHA
         PLA
         CLC
         ADC   #$0038
         PHA
         PLA
         STA   $00
         PLA
         STA   $02
         PLA
         STA   [$00]
         LDY   #$0002
         PLA
         STA   [$00],Y
         PHA
         LDA   #$0001
         PHA
         _SetResourceFileDepth
         STA   L02C957
         PLA
         STA   $20
         LDX   $1E
         LDA   $1C
         PHX
         PHA
         LDA   #$0000
         PHA
         LDA   #$8016
         PHA
         LDY   #$0002
         LDA   [$16],Y
         TAX
         LDA   [$16]
         STA   $00
         STX   $02
         LDY   #$003A
         LDA   [$00],Y
         TAX
         LDY   #$0038
         LDA   [$00],Y
         PHX
         PHA
         _AddResource
         STA   L02C957
         LDA   #$8016
         PHA
         LDY   #$0002
         LDA   [$16],Y
         TAX
         LDA   [$16]
         STA   $00
         STX   $02
         LDY   #$003A
         LDA   [$00],Y
         TAX
         LDY   #$0038
         LDA   [$00],Y
         PHX
         PHA
         _WriteResource
         STA   L02C957
         LDA   #$0001
         EOR   #$FFFF
         INC
         PHA
         LDA   #$8016
         PHA
         LDY   #$0002
         LDA   [$16],Y
         TAX
         LDA   [$16]
         STA   $00
         STX   $02
         LDY   #$003A
         LDA   [$00],Y
         TAX
         LDY   #$0038
         LDA   [$00],Y
         PHX
         PHA
         _ReleaseResource
         STA   L02C957
         PHA
         LDA   $20
         PHA
         _SetResourceFileDepth
         STA   L02C957
         PLA
         STA   $20
L031C04  LDY   #$0002
         LDA   [$16],Y
         TAX
         LDA   [$16]
         STA   $00
         STX   $02
         LDA   [$00]
         PHA
         LDA   #$0010
         SEC
         SBC   $01,S
         PLY
         TAY
         BEQ   L031C24
         BVS   L031C22
         EOR   #$8000
L031C22  BMI   L031C27
L031C24  BRL   L031C5F
L031C27  LDA   #$0004
         PHA
         LDX   $18
         LDA   $16
         PHX
         PHA
         JSL   L0304A7
         LDA   #$0000
         LDX   #$0000
         TAY
         BPL   L031C3F
         DEX
L031C3F  PHX
         PHA
         LDY   #$0002
         LDA   [$16],Y
         PHA
         LDA   [$16]
         PHA
         PLA
         CLC
         ADC   #$003C
         PHA
         PLA
         STA   $00
         PLA
         STA   $02
         PLA
         STA   [$00]
         LDY   #$0002
         PLA
         STA   [$00],Y
L031C5F  LDY   #$0002
         LDA   [$16],Y
         TAX
         LDA   [$16]
         STA   $00
         STX   $02
         LDA   [$00]
         PHA
         LDA   #$0011
         SEC
         SBC   $01,S
         PLY
         TAY
         BEQ   L031C7F
         BVS   L031C7D
         EOR   #$8000
L031C7D  BMI   L031C82
L031C7F  BRL   L031CBA
L031C82  LDA   #$0004
         PHA
         LDX   $18
         LDA   $16
         PHX
         PHA
         JSL   L0304A7
         LDA   #$0000
         LDX   #$0000
         TAY
         BPL   L031C9A
         DEX
L031C9A  PHX
         PHA
         LDY   #$0002
         LDA   [$16],Y
         PHA
         LDA   [$16]
         PHA
         PLA
         CLC
         ADC   #$0040
         PHA
         PLA
         STA   $00
         PLA
         STA   $02
         PLA
         STA   [$00]
         LDY   #$0002
         PLA
         STA   [$00],Y
L031CBA  LDY   #$0002
         LDA   [$16],Y
         TAX
         LDA   [$16]
         STA   $00
         STX   $02
         LDA   [$00]
         PHA
         LDA   #$0012
         SEC
         SBC   $01,S
         PLY
         TAY
         BEQ   L031CDA
         BVS   L031CD8
         EOR   #$8000
L031CD8  BMI   L031CDD
L031CDA  BRL   L031D15
L031CDD  LDA   #$0004
         PHA
         LDX   $18
         LDA   $16
         PHX
         PHA
         JSL   L0304A7
         LDA   #$0000
         LDX   #$0000
         TAY
         BPL   L031CF5
         DEX
L031CF5  PHX
         PHA
         LDY   #$0002
         LDA   [$16],Y
         PHA
         LDA   [$16]
         PHA
         PLA
         CLC
         ADC   #$0044
         PHA
         PLA
         STA   $00
         PLA
         STA   $02
         PLA
         STA   [$00]
         LDY   #$0002
         PLA
         STA   [$00],Y
L031D15  LDY   #$0002
         LDA   [$16],Y
         TAX
         LDA   [$16]
         STA   $00
         STX   $02
         LDA   [$00]
         PHA
         LDA   #$0013
         SEC
         SBC   $01,S
         PLY
         TAY
         BEQ   L031D35
         BVS   L031D33
         EOR   #$8000
L031D33  BMI   L031D38
L031D35  BRL   L031D5B
L031D38  LDA   #$0002
         PHA
         LDX   $18
         LDA   $16
         PHX
         PHA
         JSL   L0304A7
         LDY   #$0002
         LDA   [$16],Y
         TAX
         LDA   [$16]
         CLC
         ADC   #$0048
         STA   $00
         STX   $02
         LDA   #$0000
         STA   [$00]
L031D5B  LDY   #$0002
         LDA   [$16],Y
         TAX
         LDA   [$16]
         STA   $00
         STX   $02
         LDA   [$00]
         PHA
         LDA   #$0014
         SEC
         SBC   $01,S
         PLY
         TAY
         BEQ   L031D7B
         BVS   L031D79
         EOR   #$8000
L031D79  BMI   L031D7E
L031D7B  BRL   L031DA1
L031D7E  LDA   #$0002
         PHA
         LDX   $18
         LDA   $16
         PHX
         PHA
         JSL   L0304A7
         LDY   #$0002
         LDA   [$16],Y
         TAX
         LDA   [$16]
         CLC
         ADC   #$004A
         STA   $00
         STX   $02
         LDA   #$0000
         STA   [$00]
L031DA1  LDY   #$0002
         LDA   [$16],Y
         TAX
         LDA   [$16]
         STA   $00
         STX   $02
         LDA   [$00]
         PHA
         LDA   #$0015
         SEC
         SBC   $01,S
         PLY
         TAY
         BEQ   L031DC1
         BVS   L031DBF
         EOR   #$8000
L031DBF  BMI   L031DC4
L031DC1  BRL   L031DFC
L031DC4  LDA   #$0004
         PHA
         LDX   $18
         LDA   $16
         PHX
         PHA
         JSL   L0304A7
         LDA   #$0000
         LDX   #$0000
         TAY
         BPL   L031DDC
         DEX
L031DDC  PHX
         PHA
         LDY   #$0002
         LDA   [$16],Y
         PHA
         LDA   [$16]
         PHA
         PLA
         CLC
         ADC   #$004C
         PHA
         PLA
         STA   $00
         PLA
         STA   $02
         PLA
         STA   [$00]
         LDY   #$0002
         PLA
         STA   [$00],Y
L031DFC  LDY   #$0002
         LDA   [$16],Y
         TAX
         LDA   [$16]
         STA   $00
         STX   $02
         LDA   [$00]
         PHA
         LDA   #$0016
         SEC
         SBC   $01,S
         PLY
         TAY
         BEQ   L031E1C
         BVS   L031E1A
         EOR   #$8000
L031E1A  BMI   L031E1F
L031E1C  BRL   L031E42
L031E1F  LDA   #$0002
         PHA
         LDX   $18
         LDA   $16
         PHX
         PHA
         JSL   L0304A7
         LDY   #$0002
         LDA   [$16],Y
         TAX
         LDA   [$16]
         CLC
         ADC   #$0050
         STA   $00
         STX   $02
         LDA   #$0000
         STA   [$00]
L031E42  LDY   #$0002
         LDA   [$16],Y
         TAX
         LDA   [$16]
         STA   $00
         STX   $02
         LDA   [$00]
         PHA
         LDA   #$0017
         SEC
         SBC   $01,S
         PLY
         TAY
         BEQ   L031E62
         BVS   L031E60
         EOR   #$8000
L031E60  BMI   L031E65
L031E62  BRL   L031E9D
L031E65  LDA   #$0004
         PHA
         LDX   $18
         LDA   $16
         PHX
         PHA
         JSL   L0304A7
         LDA   #$0000
         LDX   #$0000
         TAY
         BPL   L031E7D
         DEX
L031E7D  PHX
         PHA
         LDY   #$0002
         LDA   [$16],Y
         PHA
         LDA   [$16]
         PHA
         PLA
         CLC
         ADC   #$0052
         PHA
         PLA
         STA   $00
         PLA
         STA   $02
         PLA
         STA   [$00]
         LDY   #$0002
         PLA
         STA   [$00],Y
L031E9D  LDY   #$0002
         LDA   [$16],Y
         TAX
         LDA   [$16]
         STA   $00
         STX   $02
         LDA   #$0017
         STA   [$00]
         PHA
         LDA   #$0001
         PHA
         _SetResourceFileDepth
         STA   L02C957
         PLA
         STA   $20
         LDA   #$0001
         PHA
         LDA   #$8004
         PHA
         LDX   $29
         LDA   $27
         PHX
         PHA
         _MarkResourceChange
         STA   L02C957
         LDA   #$8004
         PHA
         LDX   $29
         LDA   $27
         PHX
         PHA
         _WriteResource
         STA   L02C957
         PHA
         LDA   $20
         PHA
         _SetResourceFileDepth
         STA   L02C957
         PLA
         STA   $20
         LDY   #$0002
         LDA   [$16],Y
         TAX
         LDA   [$16]
         STA   $00
         STX   $02
         LDY   #$0014
         LDA   [$00],Y
         AND   #$0800
         BNE   L031F16
         BRL   L031F6E
L031F16  LDA   #$0001
         PHA
         PHA
         PHA
         PEA   $0000
         PEA   $0000
         LDA   #$000F
         LDX   #$0000
         TAY
         BPL   L031F2C
         DEX
L031F2C  PHX
         PHA
         _GetCtlHandleFromID
         STA   L02C957
         _SetCtlValue
         STA   L02C957
         LDA   #$0001
         PHA
         PHA
         PHA
         PEA   $0000
         PEA   $0000
         LDA   #$0010
         LDX   #$0000
         TAY
         BPL   L031F58
         DEX
L031F58  PHX
         PHA
         _GetCtlHandleFromID
         STA   L02C957
         _SetCtlValue
         STA   L02C957
L031F6E  PHA
         LDY   #$0002
         LDA   [$16],Y
         TAX
         LDA   [$16]
         STA   $00
         STX   $02
         LDY   #$0028
         LDA   [$00],Y
         TAX
         LDY   #$0026
         LDA   [$00],Y
         PHX
         PHA
         _HiWord
         STA   L02C957
         PLA
         LDX   #$0000
         CMP   #$0000
         BEQ   L031F9C
         INX
L031F9C  TXA
         PHA
         PHA
         LDY   #$0002
         LDA   [$16],Y
         TAX
         LDA   [$16]
         STA   $00
         STX   $02
         LDY   #$0028
         LDA   [$00],Y
         TAX
         LDY   #$0026
         LDA   [$00],Y
         PHX
         PHA
         _LoWord
         STA   L02C957
         PLA
         LDX   #$0000
         CMP   #$0000
         BEQ   L031FCC
         INX
L031FCC  TXA
         ORA   $01,S
         PLX
         TAX
         BNE   L031FD6
         BRL   L032002
L031FD6  LDA   #$0001
         PHA
         PHA
         PHA
         PEA   $0000
         PEA   $0000
         LDA   #$0010
         LDX   #$0000
         TAY
         BPL   L031FEC
         DEX
L031FEC  PHX
         PHA
         _GetCtlHandleFromID
         STA   L02C957
         _SetCtlValue
         STA   L02C957
L032002  PHA
         LDY   #$0002
         LDA   [$16],Y
         TAX
         LDA   [$16]
         STA   $00
         STX   $02
         LDY   #$001C
         LDA   [$00],Y
         TAX
         LDY   #$001A
         LDA   [$00],Y
         PHX
         PHA
         _HiWord
         STA   L02C957
         PLA
         STA   $1A
         LDA   $1A
         AND   #$2000
         BNE   L032033
         BRL   L03205F
L032033  LDA   #$0001
         PHA
         PHA
         PHA
         PEA   $0000
         PEA   $0000
         LDA   #$000E
         LDX   #$0000
         TAY
         BPL   L032049
         DEX
L032049  PHX
         PHA
         _GetCtlHandleFromID
         STA   L02C957
         _SetCtlValue
         STA   L02C957
L03205F  LDA   $1A
         AND   #$1000
         BNE   L032069
         BRL   L032095
L032069  LDA   #$0001
         PHA
         PHA
         PHA
         PEA   $0000
         PEA   $0000
         LDA   #$000D
         LDX   #$0000
         TAY
         BPL   L03207F
         DEX
L03207F  PHX
         PHA
         _GetCtlHandleFromID
         STA   L02C957
         _SetCtlValue
         STA   L02C957
L032095  LDA   $1A
         AND   #$0800
         BNE   L03209F
         BRL   L0320CB
L03209F  LDA   #$0001
         PHA
         PHA
         PHA
         PEA   $0000
         PEA   $0000
         LDA   #$000C
         LDX   #$0000
         TAY
         BPL   L0320B5
         DEX
L0320B5  PHX
         PHA
         _GetCtlHandleFromID
         STA   L02C957
         _SetCtlValue
         STA   L02C957
L0320CB  LDA   $1A
         AND   #$0400
         BNE   L0320D5
         BRL   L032101
L0320D5  LDA   #$0001
         PHA
         PHA
         PHA
         PEA   $0000
         PEA   $0000
         LDA   #$000B
         LDX   #$0000
         TAY
         BPL   L0320EB
         DEX
L0320EB  PHX
         PHA
         _GetCtlHandleFromID
         STA   L02C957
         _SetCtlValue
         STA   L02C957
L032101  LDA   $1A
         AND   #$0200
         BNE   L03210B
         BRL   L032137
L03210B  LDA   #$0001
         PHA
         PHA
         PHA
         PEA   $0000
         PEA   $0000
         LDA   #$000A
         LDX   #$0000
         TAY
         BPL   L032121
         DEX
L032121  PHX
         PHA
         _GetCtlHandleFromID
         STA   L02C957
         _SetCtlValue
         STA   L02C957
L032137  LDA   $1A
         AND   #$0100
         BNE   L032141
         BRL   L03216D
L032141  LDA   #$0001
         PHA
         PHA
         PHA
         PEA   $0000
         PEA   $0000
         LDA   #$0009
         LDX   #$0000
         TAY
         BPL   L032157
         DEX
L032157  PHX
         PHA
         _GetCtlHandleFromID
         STA   L02C957
         _SetCtlValue
         STA   L02C957
L03216D  LDA   $1A
         AND   #$0080
         BNE   L032177
         BRL   L0321A3
L032177  LDA   #$0001
         PHA
         PHA
         PHA
         PEA   $0000
         PEA   $0000
         LDA   #$0008
         LDX   #$0000
         TAY
         BPL   L03218D
         DEX
L03218D  PHX
         PHA
         _GetCtlHandleFromID
         STA   L02C957
         _SetCtlValue
         STA   L02C957
L0321A3  LDA   $1A
         AND   #$0020
         BNE   L0321AD
         BRL   L0321D9
L0321AD  LDA   #$0001
         PHA
         PHA
         PHA
         PEA   $0000
         PEA   $0000
         LDA   #$0007
         LDX   #$0000
         TAY
         BPL   L0321C3
         DEX
L0321C3  PHX
         PHA
         _GetCtlHandleFromID
         STA   L02C957
         _SetCtlValue
         STA   L02C957
L0321D9  LDA   $1A
         AND   #$0010
         BNE   L0321E3
         BRL   L03220F
L0321E3  LDA   #$0001
         PHA
         PHA
         PHA
         PEA   $0000
         PEA   $0000
         LDA   #$0006
         LDX   #$0000
         TAY
         BPL   L0321F9
         DEX
L0321F9  PHX
         PHA
         _GetCtlHandleFromID
         STA   L02C957
         _SetCtlValue
         STA   L02C957
L03220F  LDA   $1A
         AND   #$0008
         BNE   L032219
         BRL   L032245
L032219  LDA   #$0001
         PHA
         PHA
         PHA
         PEA   $0000
         PEA   $0000
         LDA   #$0005
         LDX   #$0000
         TAY
         BPL   L03222F
         DEX
L03222F  PHX
         PHA
         _GetCtlHandleFromID
         STA   L02C957
         _SetCtlValue
         STA   L02C957
L032245  LDA   #$00FF
         PHA
         PHA
         PHA
         PEA   $0000
         PEA   $0000
         LDA   #$0003
         LDX   #$0000
         TAY
         BPL   L03225B
         DEX
L03225B  PHX
         PHA
         _GetCtlHandleFromID
         STA   L02C957
         _HiliteControl
         STA   L02C957
         PHA
         LDA   #$0001
         PHA
         _SetResourceFileDepth
         STA   L02C957
         PLA
         STA   $20
         LDA   #$0001
         EOR   #$FFFF
         INC
         PHA
         LDA   #$8004
         PHA
         LDX   $29
         LDA   $27
         PHX
         PHA
         _ReleaseResource
         STA   L02C957
         PHA
         LDA   $20
         PHA
         _SetResourceFileDepth
         STA   L02C957
         PLA
         STA   $20
         LDA   $23
         STA   $29
         LDA   $22
         STA   $28
         PLD
         TSC
         CLC
         ADC   #$0028
         TCS
         RTL

L0322C0  ASC   'Text Edit text string.'
L0322D6  ENT
         TSC
         SEC
         SBC   #$001C
         TCS
         PHD
         INC
         TCD
         PHA
         LDA   #$0001
         PHA
         _SetResourceFileDepth
         STA   L02C957
         PLA
         STA   $1A
         PHA
         PHA
         LDA   #$8004
         PHA
         LDX   $21
         LDA   $1F
         PHX
         PHA
         _LoadResource
         STA   L02C957
         PLA
         STA   $16
         PLA
         STA   $18
         LDA   L02C957
         PHA
         LDA   #$2701
         PHA
         JSL   L020419
         PHA
         LDA   $1A
         PHA
         _SetResourceFileDepth
         STA   L02C957
         PLA
         STA   $1A
         LDX   $18
         LDA   $16
         PHX
         PHA
         _HLock
         STA   L02C957
         LDY   #$0002
         LDA   [$16],Y
         TAX
         LDA   [$16]
         STA   $00
         STX   $02
         LDY   #$0004
         LDA   [$00],Y
         TAX
         LDY   #$0002
         LDA   [$00],Y
         PHX
         PHA
         LDX   #^L02BDAD
         LDA   #L02BDAD
         PHX
         PHA
         JSL   L030000
         LDY   #$0002
         LDA   [$16],Y
         TAX
         LDA   [$16]
         STA   $00
         STX   $02
         LDY   #$0018
         LDA   [$00],Y
         TAX
         LDY   #$0016
         LDA   [$00],Y
         PHX
         PHA
         LDX   #^L02BAAD
         LDA   #L02BAAD
         PHX
         PHA
         JSL   L030000
         LDX   #^L02BBAD
         LDA   #L02BBAD
         PHX
         PHA
         LDA   #$FF01
         PHA
         LDY   #$0002
         LDA   [$16],Y
         TAX
         LDA   [$16]
         STA   $00
         STX   $02
         LDY   #$001E
         LDA   [$00],Y
         LDX   #$0000
         TAY
         BPL   L0323A8
         DEX
L0323A8  PHX
         PHA
         JSL   L02C444
         JSL   L02C5F5
         JSL   L02C4DA
         LDX   #^L02BCAD
         LDA   #L02BCAD
         PHX
         PHA
         LDA   #$FF01
         PHA
         LDY   #$0002
         LDA   [$16],Y
         TAX
         LDA   [$16]
         STA   $00
         STX   $02
         LDY   #$001C
         LDA   [$00],Y
         LDX   #$0000
         TAY
         BPL   L0323DA
         DEX
L0323DA  PHX
         PHA
         JSL   L02C444
         JSL   L02C5F5
         JSL   L02C4DA
         LDX   #^L02B9AD
         LDA   #L02B9AD
         PHX
         PHA
         LDA   #$FF01
         PHA
         LDY   #$0002
         LDA   [$16],Y
         TAX
         LDA   [$16]
         STA   $00
         STX   $02
         LDY   #$001A
         LDA   [$00],Y
         LDX   #$0000
         TAY
         BPL   L03240C
         DEX
L03240C  PHX
         PHA
         JSL   L02C444
         JSL   L02C5F5
         JSL   L02C4DA
         JSL   L02A6F9
         PHA
         PHA
         _FrontWindow
         STA   L02C957
         PLA
         STA   L02B9A9
         PLA
         STA   L02B9AB
         LDY   #$0002
         LDA   [$16],Y
         TAX
         LDA   [$16]
         STA   $00
         STX   $02
         LDY   #$0012
         LDA   [$00],Y
         AND   #$0080
         BNE   L03244B
         BRL   L032477
L03244B  LDA   #$0001
         PHA
         PHA
         PHA
         PEA   $0000
         PEA   $0000
         LDA   #$0014
         LDX   #$0000
         TAY
         BPL   L032461
         DEX
L032461  PHX
         PHA
         _GetCtlHandleFromID
         STA   L02C957
         _SetCtlValue
         STA   L02C957
L032477  LDA   #$00FF
         PHA
         PHA
         PHA
         PEA   $0000
         PEA   $0000
         LDA   #$0011
         LDX   #$0000
         TAY
         BPL   L03248D
         DEX
L03248D  PHX
         PHA
         _GetCtlHandleFromID
         STA   L02C957
         _HiliteControl
         STA   L02C957
         LDA   #$00FF
         PHA
         PHA
         PHA
         PEA   $0000
         PEA   $0000
         LDA   #$0010
         LDX   #$0000
         TAY
         BPL   L0324B9
         DEX
L0324B9  PHX
         PHA
         _GetCtlHandleFromID
         STA   L02C957
         _HiliteControl
         STA   L02C957
         LDA   #$00FF
         PHA
         PHA
         PHA
         PEA   $0000
         PEA   $0000
         LDA   #$000F
         LDX   #$0000
         TAY
         BPL   L0324E5
         DEX
L0324E5  PHX
         PHA
         _GetCtlHandleFromID
         STA   L02C957
         _HiliteControl
         STA   L02C957
         LDA   #$00FF
         PHA
         PHA
         PHA
         PEA   $0000
         PEA   $0000
         LDA   #$000E
         LDX   #$0000
         TAY
         BPL   L032511
         DEX
L032511  PHX
         PHA
         _GetCtlHandleFromID
         STA   L02C957
         _HiliteControl
         STA   L02C957
         LDY   #$0002
         LDA   [$16],Y
         TAX
         LDA   [$16]
         STA   $00
         STX   $02
         LDY   #$0012
         LDA   [$00],Y
         AND   #$0010
         BEQ   L032540
         BRL   L032651
L032540  LDA   #$0001
         PHA
         PHA
         PHA
         PEA   $0000
         PEA   $0000
         LDA   #$0012
         LDX   #$0000
         TAY
         BPL   L032556
         DEX
L032556  PHX
         PHA
         _GetCtlHandleFromID
         STA   L02C957
         _SetCtlValue
         STA   L02C957
         LDA   #$0000
         PHA
         PHA
         PHA
         PEA   $0000
         PEA   $0000
         LDA   #$000F
         LDX   #$0000
         TAY
         BPL   L032582
         DEX
L032582  PHX
         PHA
         _GetCtlHandleFromID
         STA   L02C957
         _HiliteControl
         STA   L02C957
         LDA   #$0000
         PHA
         PHA
         PHA
         PEA   $0000
         PEA   $0000
         LDA   #$000E
         LDX   #$0000
         TAY
         BPL   L0325AE
         DEX
L0325AE  PHX
         PHA
         _GetCtlHandleFromID
         STA   L02C957
         _HiliteControl
         STA   L02C957
         LDY   #$0002
         LDA   [$16],Y
         TAX
         LDA   [$16]
         STA   $00
         STX   $02
         LDY   #$0012
         LDA   [$00],Y
         AND   #$0002
         BNE   L0325DD
         BRL   L032609
L0325DD  LDA   #$0001
         PHA
         PHA
         PHA
         PEA   $0000
         PEA   $0000
         LDA   #$000E
         LDX   #$0000
         TAY
         BPL   L0325F3
         DEX
L0325F3  PHX
         PHA
         _GetCtlHandleFromID
         STA   L02C957
         _SetCtlValue
         STA   L02C957
L032609  LDY   #$0002
         LDA   [$16],Y
         TAX
         LDA   [$16]
         STA   $00
         STX   $02
         LDY   #$0012
         LDA   [$00],Y
         AND   #$0001
         BNE   L032622
         BRL   L03264E
L032622  LDA   #$0001
         PHA
         PHA
         PHA
         PEA   $0000
         PEA   $0000
         LDA   #$000F
         LDX   #$0000
         TAY
         BPL   L032638
         DEX
L032638  PHX
         PHA
         _GetCtlHandleFromID
         STA   L02C957
         _SetCtlValue
         STA   L02C957
L03264E  BRL   L03275F
L032651  LDA   #$0001
         PHA
         PHA
         PHA
         PEA   $0000
         PEA   $0000
         LDA   #$0013
         LDX   #$0000
         TAY
         BPL   L032667
         DEX
L032667  PHX
         PHA
         _GetCtlHandleFromID
         STA   L02C957
         _SetCtlValue
         STA   L02C957
         LDA   #$0000
         PHA
         PHA
         PHA
         PEA   $0000
         PEA   $0000
         LDA   #$0011
         LDX   #$0000
         TAY
         BPL   L032693
         DEX
L032693  PHX
         PHA
         _GetCtlHandleFromID
         STA   L02C957
         _HiliteControl
         STA   L02C957
         LDA   #$0000
         PHA
         PHA
         PHA
         PEA   $0000
         PEA   $0000
         LDA   #$0010
         LDX   #$0000
         TAY
         BPL   L0326BF
         DEX
L0326BF  PHX
         PHA
         _GetCtlHandleFromID
         STA   L02C957
         _HiliteControl
         STA   L02C957
         LDY   #$0002
         LDA   [$16],Y
         TAX
         LDA   [$16]
         STA   $00
         STX   $02
         LDY   #$0012
         LDA   [$00],Y
         AND   #$0004
         BNE   L0326EE
         BRL   L03271A
L0326EE  LDA   #$0001
         PHA
         PHA
         PHA
         PEA   $0000
         PEA   $0000
         LDA   #$0011
         LDX   #$0000
         TAY
         BPL   L032704
         DEX
L032704  PHX
         PHA
         _GetCtlHandleFromID
         STA   L02C957
         _SetCtlValue
         STA   L02C957
L03271A  LDY   #$0002
         LDA   [$16],Y
         TAX
         LDA   [$16]
         STA   $00
         STX   $02
         LDY   #$0012
         LDA   [$00],Y
         AND   #$0008
         BNE   L032733
         BRL   L03275F
L032733  LDA   #$0001
         PHA
         PHA
         PHA
         PEA   $0000
         PEA   $0000
         LDA   #$0010
         LDX   #$0000
         TAY
         BPL   L032749
         DEX
L032749  PHX
         PHA
         _GetCtlHandleFromID
         STA   L02C957
         _SetCtlValue
         STA   L02C957
L03275F  LDA   #$00FF
         PHA
         PHA
         PHA
         PEA   $0000
         PEA   $0000
         LDA   #$0003
         LDX   #$0000
         TAY
         BPL   L032775
         DEX
L032775  PHX
         PHA
         _GetCtlHandleFromID
         STA   L02C957
         _HiliteControl
         STA   L02C957
         PHA
         LDA   #$0001
         PHA
         _SetResourceFileDepth
         STA   L02C957
         PLA
         STA   $1A
         LDA   #$0001
         EOR   #$FFFF
         INC
         PHA
         LDA   #$8004
         PHA
         LDX   $21
         LDA   $1F
         PHX
         PHA
         _ReleaseResource
         STA   L02C957
         PHA
         LDA   $1A
         PHA
         _SetResourceFileDepth
         STA   L02C957
         PLA
         STA   $1A
         LDA   $1D
         STA   $21
         LDA   $1C
         STA   $20
         PLD
         TSC
         CLC
         ADC   #$0020
         TCS
         RTL

L0327DA  ENT
         TSC
         SEC
         SBC   #$001C
         TCS
         PHD
         INC
         TCD
         PHA
         LDA   #$0001
         PHA
         _SetResourceFileDepth
         STA   L02C957
         PLA
         STA   $1A
         PHA
         PHA
         LDA   #$8004
         PHA
         LDX   $21
         LDA   $1F
         PHX
         PHA
         _LoadResource
         STA   L02C957
         PLA
         STA   $16
         PLA
         STA   $18
         LDA   L02C957
         PHA
         LDA   #$2801
         PHA
         JSL   L020419
         PHA
         LDA   $1A
         PHA
         _SetResourceFileDepth
         STA   L02C957
         PLA
         STA   $1A
         LDX   $18
         LDA   $16
         PHX
         PHA
         _HLock
         STA   L02C957
         LDY   #$0002
         LDA   [$16],Y
         TAX
         LDA   [$16]
         STA   $00
         STX   $02
         LDY   #$0004
         LDA   [$00],Y
         TAX
         LDY   #$0002
         LDA   [$00],Y
         PHX
         PHA
         LDX   #^L02BDAD
         LDA   #L02BDAD
         PHX
         PHA
         JSL   L030000
         LDY   #$0002
         LDA   [$16],Y
         TAX
         LDA   [$16]
         STA   $00
         STX   $02
         LDY   #$0018
         LDA   [$00],Y
         TAX
         LDY   #$0016
         LDA   [$00],Y
         PHX
         PHA
         LDX   #^L02BAAD
         LDA   #L02BAAD
         PHX
         PHA
         JSL   L030000
         JSL   L02AB20
         PHA
         PHA
         _FrontWindow
         STA   L02C957
         PLA
         STA   L02B9A9
         PLA
         STA   L02B9AB
         LDY   #$0002
         LDA   [$16],Y
         TAX
         LDA   [$16]
         STA   $00
         STX   $02
         LDY   #$0012
         LDA   [$00],Y
         AND   #$FF00
         BNE   L0328B9
         BRL   L0328E5
L0328B9  LDA   #$0001
         PHA
         PHA
         PHA
         PEA   $0000
         PEA   $0000
         LDA   #$0010
         LDX   #$0000
         TAY
         BPL   L0328CF
         DEX
L0328CF  PHX
         PHA
         _GetCtlHandleFromID
         STA   L02C957
         _SetCtlValue
         STA   L02C957
L0328E5  LDY   #$0002
         LDA   [$16],Y
         TAX
         LDA   [$16]
         STA   $00
         STX   $02
         LDY   #$0012
         LDA   [$00],Y
         AND   #$0080
         BNE   L0328FE
         BRL   L03292A
L0328FE  LDA   #$0001
         PHA
         PHA
         PHA
         PEA   $0000
         PEA   $0000
         LDA   #$0011
         LDX   #$0000
         TAY
         BPL   L032914
         DEX
L032914  PHX
         PHA
         _GetCtlHandleFromID
         STA   L02C957
         _SetCtlValue
         STA   L02C957
L03292A  LDY   #$0002
         LDA   [$16],Y
         TAX
         LDA   [$16]
         STA   $00
         STX   $02
         LDY   #$0012
         LDA   [$00],Y
         AND   #$0040
         BNE   L032943
         BRL   L03296F
L032943  LDA   #$0001
         PHA
         PHA
         PHA
         PEA   $0000
         PEA   $0000
         LDA   #$000F
         LDX   #$0000
         TAY
         BPL   L032959
         DEX
L032959  PHX
         PHA
         _GetCtlHandleFromID
         STA   L02C957
         _SetCtlValue
         STA   L02C957
L03296F  LDY   #$0002
         LDA   [$16],Y
         TAX
         LDA   [$16]
         STA   $00
         STX   $02
         LDY   #$0012
         LDA   [$00],Y
         AND   #$0020
         BNE   L032988
         BRL   L0329B4
L032988  LDA   #$0001
         PHA
         PHA
         PHA
         PEA   $0000
         PEA   $0000
         LDA   #$000E
         LDX   #$0000
         TAY
         BPL   L03299E
         DEX
L03299E  PHX
         PHA
         _GetCtlHandleFromID
         STA   L02C957
         _SetCtlValue
         STA   L02C957
L0329B4  LDY   #$0002
         LDA   [$16],Y
         TAX
         LDA   [$16]
         STA   $00
         STX   $02
         LDY   #$0012
         LDA   [$00],Y
         AND   #$0010
         BNE   L0329CD
         BRL   L0329F9
L0329CD  LDA   #$0001
         PHA
         PHA
         PHA
         PEA   $0000
         PEA   $0000
         LDA   #$000D
         LDX   #$0000
         TAY
         BPL   L0329E3
         DEX
L0329E3  PHX
         PHA
         _GetCtlHandleFromID
         STA   L02C957
         _SetCtlValue
         STA   L02C957
L0329F9  LDY   #$0002
         LDA   [$16],Y
         TAX
         LDA   [$16]
         STA   $00
         STX   $02
         LDY   #$0012
         LDA   [$00],Y
         AND   #$0008
         BNE   L032A12
         BRL   L032A3E
L032A12  LDA   #$0001
         PHA
         PHA
         PHA
         PEA   $0000
         PEA   $0000
         LDA   #$000C
         LDX   #$0000
         TAY
         BPL   L032A28
         DEX
L032A28  PHX
         PHA
         _GetCtlHandleFromID
         STA   L02C957
         _SetCtlValue
         STA   L02C957
L032A3E  LDY   #$0002
         LDA   [$16],Y
         TAX
         LDA   [$16]
         STA   $00
         STX   $02
         LDY   #$0012
         LDA   [$00],Y
         AND   #$0004
         BNE   L032A57
         BRL   L032A83
L032A57  LDA   #$0001
         PHA
         PHA
         PHA
         PEA   $0000
         PEA   $0000
         LDA   #$000B
         LDX   #$0000
         TAY
         BPL   L032A6D
         DEX
L032A6D  PHX
         PHA
         _GetCtlHandleFromID
         STA   L02C957
         _SetCtlValue
         STA   L02C957
L032A83  LDY   #$0002
         LDA   [$16],Y
         TAX
         LDA   [$16]
         STA   $00
         STX   $02
         LDY   #$0012
         LDA   [$00],Y
         AND   #$0002
         BNE   L032A9C
         BRL   L032AC8
L032A9C  LDA   #$0001
         PHA
         PHA
         PHA
         PEA   $0000
         PEA   $0000
         LDA   #$000A
         LDX   #$0000
         TAY
         BPL   L032AB2
         DEX
L032AB2  PHX
         PHA
         _GetCtlHandleFromID
         STA   L02C957
         _SetCtlValue
         STA   L02C957
L032AC8  LDY   #$0002
         LDA   [$16],Y
         TAX
         LDA   [$16]
         STA   $00
         STX   $02
         LDY   #$0012
         LDA   [$00],Y
         AND   #$0001
         BNE   L032AE1
         BRL   L032B0D
L032AE1  LDA   #$0001
         PHA
         PHA
         PHA
         PEA   $0000
         PEA   $0000
         LDA   #$0009
         LDX   #$0000
         TAY
         BPL   L032AF7
         DEX
L032AF7  PHX
         PHA
         _GetCtlHandleFromID
         STA   L02C957
         _SetCtlValue
         STA   L02C957
L032B0D  LDA   #$00FF
         PHA
         PHA
         PHA
         PEA   $0000
         PEA   $0000
         LDA   #$0003
         LDX   #$0000
         TAY
         BPL   L032B23
         DEX
L032B23  PHX
         PHA
         _GetCtlHandleFromID
         STA   L02C957
         _HiliteControl
         STA   L02C957
         PHA
         LDA   #$0001
         PHA
         _SetResourceFileDepth
         STA   L02C957
         PLA
         STA   $1A
         LDA   #$0001
         EOR   #$FFFF
         INC
         PHA
         LDA   #$8004
         PHA
         LDX   $21
         LDA   $1F
         PHX
         PHA
         _ReleaseResource
         STA   L02C957
         PHA
         LDA   $1A
         PHA
         _SetResourceFileDepth
         STA   L02C957
         PLA
         STA   $1A
         LDA   $1D
         STA   $21
         LDA   $1C
         STA   $20
         PLD
         TSC
         CLC
         ADC   #$0020
         TCS
         RTL

L032B88  ENT
         TSC
         SEC
         SBC   #$001C
         TCS
         PHD
         INC
         TCD
         PHA
         LDA   #$0001
         PHA
         _SetResourceFileDepth
         STA   L02C957
         PLA
         STA   $1A
         PHA
         PHA
         LDA   #$8004
         PHA
         LDX   $21
         LDA   $1F
         PHX
         PHA
         _LoadResource
         STA   L02C957
         PLA
         STA   $16
         PLA
         STA   $18
         LDA   L02C957
         PHA
         LDA   #$2901
         PHA
         JSL   L020419
         PHA
         LDA   $1A
         PHA
         _SetResourceFileDepth
         STA   L02C957
         PLA
         STA   $1A
         LDX   $18
         LDA   $16
         PHX
         PHA
         _HLock
         STA   L02C957
         LDY   #$0002
         LDA   [$16],Y
         TAX
         LDA   [$16]
         STA   $00
         STX   $02
         LDY   #$0004
         LDA   [$00],Y
         TAX
         LDY   #$0002
         LDA   [$00],Y
         PHX
         PHA
         LDX   #^L02BDAD
         LDA   #L02BDAD
         PHX
         PHA
         JSL   L030000
         LDY   #$0002
         LDA   [$16],Y
         TAX
         LDA   [$16]
         STA   $00
         STX   $02
         LDY   #$0018
         LDA   [$00],Y
         TAX
         LDY   #$0016
         LDA   [$00],Y
         PHX
         PHA
         LDX   #^L02BAAD
         LDA   #L02BAAD
         PHX
         PHA
         JSL   L030000
         JSL   L02AF0F
         PHA
         PHA
         _FrontWindow
         STA   L02C957
         PLA
         STA   L02B9A9
         PLA
         STA   L02B9AB
         LDY   #$0002
         LDA   [$16],Y
         TAX
         LDA   [$16]
         STA   $00
         STX   $02
         LDY   #$0012
         LDA   [$00],Y
         AND   #$0080
         BNE   L032C67
         BRL   L032C93
L032C67  LDA   #$0001
         PHA
         PHA
         PHA
         PEA   $0000
         PEA   $0000
         LDA   #$0009
         LDX   #$0000
         TAY
         BPL   L032C7D
         DEX
L032C7D  PHX
         PHA
         _GetCtlHandleFromID
         STA   L02C957
         _SetCtlValue
         STA   L02C957
L032C93  LDY   #$0002
         LDA   [$16],Y
         TAX
         LDA   [$16]
         STA   $00
         STX   $02
         LDY   #$0012
         LDA   [$00],Y
         AND   #$0001
         BNE   L032CAC
         BRL   L032CD8
L032CAC  LDA   #$0001
         PHA
         PHA
         PHA
         PEA   $0000
         PEA   $0000
         LDA   #$0004
         LDX   #$0000
         TAY
         BPL   L032CC2
         DEX
L032CC2  PHX
         PHA
         _GetCtlHandleFromID
         STA   L02C957
         _SetCtlValue
         STA   L02C957
L032CD8  LDA   #$00FF
         PHA
         PHA
         PHA
         PEA   $0000
         PEA   $0000
         LDA   #$0003
         LDX   #$0000
         TAY
         BPL   L032CEE
         DEX
L032CEE  PHX
         PHA
         _GetCtlHandleFromID
         STA   L02C957
         _HiliteControl
         STA   L02C957
         PHA
         LDA   #$0001
         PHA
         _SetResourceFileDepth
         STA   L02C957
         PLA
         STA   $1A
         LDA   #$0001
         EOR   #$FFFF
         INC
         PHA
         LDA   #$8004
         PHA
         LDX   $21
         LDA   $1F
         PHX
         PHA
         _ReleaseResource
         STA   L02C957
         PHA
         LDA   $1A
         PHA
         _SetResourceFileDepth
         STA   L02C957
         PLA
         STA   $1A
         LDA   $1D
         STA   $21
         LDA   $1C
         STA   $20
         PLD
         TSC
         CLC
         ADC   #$0020
         TCS
         RTL

L032D53  ENT
         TSC
         SEC
         SBC   #$001C
         TCS
         PHD
         INC
         TCD
         PHA
         LDA   #$0001
         PHA
         _SetResourceFileDepth
         STA   L02C957
         PLA
         STA   $1A
         PHA
         PHA
         LDA   #$8004
         PHA
         LDX   $21
         LDA   $1F
         PHX
         PHA
         _LoadResource
         STA   L02C957
         PLA
         STA   $16
         PLA
         STA   $18
         LDA   L02C957
         PHA
         LDA   #$2A01
         PHA
         JSL   L020419
         PHA
         LDA   $1A
         PHA
         _SetResourceFileDepth
         STA   L02C957
         PLA
         STA   $1A
         LDX   $18
         LDA   $16
         PHX
         PHA
         _HLock
         STA   L02C957
         LDY   #$0002
         LDA   [$16],Y
         TAX
         LDA   [$16]
         STA   $00
         STX   $02
         LDY   #$0004
         LDA   [$00],Y
         TAX
         LDY   #$0002
         LDA   [$00],Y
         PHX
         PHA
         LDX   #^L02BDAD
         LDA   #L02BDAD
         PHX
         PHA
         JSL   L030000
         LDY   #$0002
         LDA   [$16],Y
         TAX
         LDA   [$16]
         STA   $00
         STX   $02
         LDY   #$0018
         LDA   [$00],Y
         TAX
         LDY   #$0016
         LDA   [$00],Y
         PHX
         PHA
         LDX   #^L02BAAD
         LDA   #L02BAAD
         PHX
         PHA
         JSL   L030000
         JSL   L02B155
         PHA
         PHA
         _FrontWindow
         STA   L02C957
         PLA
         STA   L02B9A9
         PLA
         STA   L02B9AB
         LDY   #$0002
         LDA   [$16],Y
         TAX
         LDA   [$16]
         STA   $00
         STX   $02
         LDY   #$0012
         LDA   [$00],Y
         AND   #$0080
         BNE   L032E32
         BRL   L032E5E
L032E32  LDA   #$0001
         PHA
         PHA
         PHA
         PEA   $0000
         PEA   $0000
         LDA   #$000A
         LDX   #$0000
         TAY
         BPL   L032E48
         DEX
L032E48  PHX
         PHA
         _GetCtlHandleFromID
         STA   L02C957
         _SetCtlValue
         STA   L02C957
L032E5E  LDY   #$0002
         LDA   [$16],Y
         TAX
         LDA   [$16]
         STA   $00
         STX   $02
         LDY   #$001E
         LDA   [$00],Y
         AND   #$0002
         BEQ   L032E77
         BRL   L032EA3
L032E77  LDA   #$0001
         PHA
         PHA
         PHA
         PEA   $0000
         PEA   $0000
         LDA   #$0009
         LDX   #$0000
         TAY
         BPL   L032E8D
         DEX
L032E8D  PHX
         PHA
         _GetCtlHandleFromID
         STA   L02C957
         _SetCtlValue
         STA   L02C957
L032EA3  LDA   #$00FF
         PHA
         PHA
         PHA
         PEA   $0000
         PEA   $0000
         LDA   #$0004
         LDX   #$0000
         TAY
         BPL   L032EB9
         DEX
L032EB9  PHX
         PHA
         _GetCtlHandleFromID
         STA   L02C957
         _HiliteControl
         STA   L02C957
         LDA   #$00FF
         PHA
         PHA
         PHA
         PEA   $0000
         PEA   $0000
         LDA   #$0003
         LDX   #$0000
         TAY
         BPL   L032EE5
         DEX
L032EE5  PHX
         PHA
         _GetCtlHandleFromID
         STA   L02C957
         _HiliteControl
         STA   L02C957
         PHA
         LDA   #$0001
         PHA
         _SetResourceFileDepth
         STA   L02C957
         PLA
         STA   $1A
         LDA   #$0001
         EOR   #$FFFF
         INC
         PHA
         LDA   #$8004
         PHA
         LDX   $21
         LDA   $1F
         PHX
         PHA
         _ReleaseResource
         STA   L02C957
         PHA
         LDA   $1A
         PHA
         _SetResourceFileDepth
         STA   L02C957
         PLA
         STA   $1A
         LDA   $1D
         STA   $21
         LDA   $1C
         STA   $20
         PLD
         TSC
         CLC
         ADC   #$0020
         TCS
         RTL

L032F4A  ENT
         TSC
         SEC
         SBC   #$001C
         TCS
         PHD
         INC
         TCD
         PHA
         LDA   #$0001
         PHA
         _SetResourceFileDepth
         STA   L02C957
         PLA
         STA   $1A
         PHA
         PHA
         LDA   #$8004
         PHA
         LDX   $21
         LDA   $1F
         PHX
         PHA
         _LoadResource
         STA   L02C957
         PLA
         STA   $16
         PLA
         STA   $18
         LDA   L02C957
         PHA
         LDA   #$2B01
         PHA
         JSL   L020419
         PHA
         LDA   $1A
         PHA
         _SetResourceFileDepth
         STA   L02C957
         PLA
         STA   $1A
         LDX   $18
         LDA   $16
         PHX
         PHA
         _HLock
         STA   L02C957
         LDY   #$0002
         LDA   [$16],Y
         TAX
         LDA   [$16]
         STA   $00
         STX   $02
         LDY   #$0004
         LDA   [$00],Y
         TAX
         LDY   #$0002
         LDA   [$00],Y
         PHX
         PHA
         LDX   #^L02BDAD
         LDA   #L02BDAD
         PHX
         PHA
         JSL   L030000
         LDY   #$0002
         LDA   [$16],Y
         TAX
         LDA   [$16]
         STA   $00
         STX   $02
         LDY   #$0018
         LDA   [$00],Y
         TAX
         LDY   #$0016
         LDA   [$00],Y
         PHX
         PHA
         LDX   #^L02BAAD
         LDA   #L02BAAD
         PHX
         PHA
         JSL   L030000
         JSL   L02B3BD
         PHA
         PHA
         _FrontWindow
         STA   L02C957
         PLA
         STA   L02B9A9
         PLA
         STA   L02B9AB
         LDY   #$0002
         LDA   [$16],Y
         TAX
         LDA   [$16]
         STA   $00
         STX   $02
         LDY   #$0012
         LDA   [$00],Y
         AND   #$0080
         BNE   L033029
         BRL   L033055
L033029  LDA   #$0001
         PHA
         PHA
         PHA
         PEA   $0000
         PEA   $0000
         LDA   #$0008
         LDX   #$0000
         TAY
         BPL   L03303F
         DEX
L03303F  PHX
         PHA
         _GetCtlHandleFromID
         STA   L02C957
         _SetCtlValue
         STA   L02C957
L033055  PHA
         LDA   #$0001
         PHA
         _SetResourceFileDepth
         STA   L02C957
         PLA
         STA   $1A
         LDA   #$0001
         EOR   #$FFFF
         INC
         PHA
         LDA   #$8004
         PHA
         LDX   $21
         LDA   $1F
         PHX
         PHA
         _ReleaseResource
         STA   L02C957
         PHA
         LDA   $1A
         PHA
         _SetResourceFileDepth
         STA   L02C957
         PLA
         STA   $1A
         LDA   $1D
         STA   $21
         LDA   $1C
         STA   $20
         PLD
         TSC
         CLC
         ADC   #$0020
         TCS
         RTL

L0330A4  TSC
         SEC
         SBC   #$0016
         TCS
         PHD
         INC
         TCD
         LDA   #$0000
         STA   [$19]
         PHA
         PHA
         PHA
         PEA   $0000
         PEA   $0000
         LDA   #$0100
         LDX   #$0000
         TAY
         BPL   L0330C5
         DEX
L0330C5  PHX
         PHA
         _GetCtlHandleFromID
         STA   L02C957
         _GetCtlValue
         STA   L02C957
         PLA
         BNE   L0330E1
         BRL   L0330F2
L0330E1  PEI   $1B
         PEI   $19
         LDA   [$19]
         ORA   #$0100
         PLX
         STX   $00
         PLX
         STX   $02
         STA   [$00]
L0330F2  PHA
         PHA
         PHA
         PEA   $0000
         PEA   $0000
         LDA   #$0200
         LDX   #$0000
         TAY
         BPL   L033105
         DEX
L033105  PHX
         PHA
         _GetCtlHandleFromID
         STA   L02C957
         _GetCtlValue
         STA   L02C957
         PLA
         BNE   L033121
         BRL   L033132
L033121  PEI   $1B
         PEI   $19
         LDA   [$19]
         ORA   #$0200
         PLX
         STX   $00
         PLX
         STX   $02
         STA   [$00]
L033132  PHA
         PHA
         PHA
         PEA   $0000
         PEA   $0000
         LDA   #$0400
         LDX   #$0000
         TAY
         BPL   L033145
         DEX
L033145  PHX
         PHA
         _GetCtlHandleFromID
         STA   L02C957
         _GetCtlValue
         STA   L02C957
         PLA
         BNE   L033161
         BRL   L033172
L033161  PEI   $1B
         PEI   $19
         LDA   [$19]
         ORA   #$0400
         PLX
         STX   $00
         PLX
         STX   $02
         STA   [$00]
L033172  PHA
         PHA
         PHA
         PEA   $0000
         PEA   $0000
         LDA   #$0800
         LDX   #$0000
         TAY
         BPL   L033185
         DEX
L033185  PHX
         PHA
         _GetCtlHandleFromID
         STA   L02C957
         _GetCtlValue
         STA   L02C957
         PLA
         BNE   L0331A1
         BRL   L0331B2
L0331A1  PEI   $1B
         PEI   $19
         LDA   [$19]
         ORA   #$0800
         PLX
         STX   $00
         PLX
         STX   $02
         STA   [$00]
L0331B2  PHA
         PHA
         PHA
         PEA   $0000
         PEA   $0000
         LDA   #$1000
         LDX   #$0000
         TAY
         BPL   L0331C5
         DEX
L0331C5  PHX
         PHA
         _GetCtlHandleFromID
         STA   L02C957
         _GetCtlValue
         STA   L02C957
         PLA
         BNE   L0331E1
         BRL   L0331F2
L0331E1  PEI   $1B
         PEI   $19
         LDA   [$19]
         ORA   #$1000
         PLX
         STX   $00
         PLX
         STX   $02
         STA   [$00]
L0331F2  PHA
         PHA
         PHA
         PEA   $0000
         PEA   $0000
         LDA   #$2000
         LDX   #$0000
         TAY
         BPL   L033205
         DEX
L033205  PHX
         PHA
         _GetCtlHandleFromID
         STA   L02C957
         _GetCtlValue
         STA   L02C957
         PLA
         BNE   L033221
         BRL   L033232
L033221  PEI   $1B
         PEI   $19
         LDA   [$19]
         ORA   #$2000
         PLX
         STX   $00
         PLX
         STX   $02
         STA   [$00]
L033232  LDA   $17
         STA   $1B
         LDA   $16
         STA   $1A
         PLD
         TSC
         CLC
         ADC   #$001A
         TCS
         RTL

L033242  TSC
         SEC
         SBC   #$0016
         TCS
         PHD
         INC
         TCD
         LDA   #$0000
         STA   [$19]
         PHA
         PHA
         PHA
         PEA   $0000
         PEA   $0000
         PEA   $0100
         PEA   $0000
         _GetCtlHandleFromID
         STA   L02C957
         _GetCtlValue
         STA   L02C957
         PLA
         BNE   L033279
         BRL   L03328A
L033279  PEI   $1B
         PEI   $19
         LDA   [$19]
         ORA   #$0100
         PLX
         STX   $00
         PLX
         STX   $02
         STA   [$00]
L03328A  PHA
         PHA
         PHA
         PEA   $0000
         PEA   $0000
         PEA   $0200
         PEA   $0000
         _GetCtlHandleFromID
         STA   L02C957
         _GetCtlValue
         STA   L02C957
         PLA
         BNE   L0332B3
         BRL   L0332C4
L0332B3  PEI   $1B
         PEI   $19
         LDA   [$19]
         ORA   #$0200
         PLX
         STX   $00
         PLX
         STX   $02
         STA   [$00]
L0332C4  PHA
         PHA
         PHA
         PEA   $0000
         PEA   $0000
         PEA   $0400
         PEA   $0000
         _GetCtlHandleFromID
         STA   L02C957
         _GetCtlValue
         STA   L02C957
         PLA
         BNE   L0332ED
         BRL   L0332FE
L0332ED  PEI   $1B
         PEI   $19
         LDA   [$19]
         ORA   #$0400
         PLX
         STX   $00
         PLX
         STX   $02
         STA   [$00]
L0332FE  PHA
         PHA
         PHA
         PEA   $0000
         PEA   $0000
         PEA   $0800
         PEA   $0000
         _GetCtlHandleFromID
         STA   L02C957
         _GetCtlValue
         STA   L02C957
         PLA
         BNE   L033327
         BRL   L033338
L033327  PEI   $1B
         PEI   $19
         LDA   [$19]
         ORA   #$0800
         PLX
         STX   $00
         PLX
         STX   $02
         STA   [$00]
L033338  PHA
         PHA
         PHA
         PEA   $0000
         PEA   $0000
         PEA   $1000
         PEA   $0000
         _GetCtlHandleFromID
         STA   L02C957
         _GetCtlValue
         STA   L02C957
         PLA
         BNE   L033361
         BRL   L033372
L033361  PEI   $1B
         PEI   $19
         LDA   [$19]
         ORA   #$1000
         PLX
         STX   $00
         PLX
         STX   $02
         STA   [$00]
L033372  PHA
         PHA
         PHA
         PEA   $0000
         PEA   $0000
         PEA   $2000
         PEA   $0000
         _GetCtlHandleFromID
         STA   L02C957
         _GetCtlValue
         STA   L02C957
         PLA
         BNE   L03339B
         BRL   L0333AC
L03339B  PEI   $1B
         PEI   $19
         LDA   [$19]
         ORA   #$2000
         PLX
         STX   $00
         PLX
         STX   $02
         STA   [$00]
L0333AC  LDA   $17
         STA   $1B
         LDA   $16
         STA   $1A
         PLD
         TSC
         CLC
         ADC   #$001A
         TCS
         RTL

L0333BC  TSC
         SEC
         SBC   #$0018
         TCS
         PHD
         INC
         TCD
         LDA   #$0000
         STA   $16
         PHA
         PHA
         PHA
         PEA   $0000
         PEA   $0000
         LDA   #$7013
         LDX   #$0000
         TAY
         BPL   L0333DD
         DEX
L0333DD  PHX
         PHA
         _GetCtlHandleFromID
         STA   L02C957
         _GetCtlValue
         STA   L02C957
         PLA
         BNE   L0333F9
         BRL   L033401
L0333F9  LDA   #$000D
         STA   $16
         BRL   L03346C
L033401  PHA
         PHA
         PHA
         PEA   $0000
         PEA   $0000
         LDA   #$7012
         LDX   #$0000
         TAY
         BPL   L033414
         DEX
L033414  PHX
         PHA
         _GetCtlHandleFromID
         STA   L02C957
         _GetCtlValue
         STA   L02C957
         PLA
         BNE   L033430
         BRL   L033438
L033430  LDA   #$001B
         STA   $16
         BRL   L03346C
L033438  PHA
         PHA
         PHA
         PEA   $0000
         PEA   $0000
         LDA   #$7016
         LDX   #$0000
         TAY
         BPL   L03344B
         DEX
L03344B  PHX
         PHA
         _GetCtlHandleFromID
         STA   L02C957
         _GetCtlValue
         STA   L02C957
         PLA
         BNE   L033467
         BRL   L03346C
L033467  LDA   #$007F
         STA   $16
L03346C  PEA   $0000
         TDC
         CLC
         ADC   #$0016
         PHA
         PEI   $21
         PEI   $1F
         LDA   #$0001
         LDX   #$0000
         TAY
         BPL   L033483
         DEX
L033483  PHX
         PHA
         _BlockMove
         STA   L02C957
         PEA   $0000
         TDC
         CLC
         ADC   #$0016
         PHA
         PEI   $1D
         PEI   $1B
         LDA   #$0001
         LDX   #$0000
         TAY
         BPL   L0334A6
         DEX
L0334A6  PHX
         PHA
         _BlockMove
         STA   L02C957
         LDA   $19
         STA   $21
         LDA   $18
         STA   $20
         PLD
         TSC
         CLC
         ADC   #$0020
         TCS
         RTL

L0334C2  ENT
         TSC
         SEC
         SBC   #$001A
         TCS
         PHD
         INC
         TCD
         LDX   $1F
         LDA   $1D
         STX   $18
         STA   $16
         LDY   #$0002
         LDA   [$16],Y
         TAX
         LDA   [$16]
         STA   $00
         STX   $02
         LDA   [$00]
         PHA
         LDA   #$0008
         SEC
         SBC   $01,S
         PLY
         TAY
         BEQ   L0334F3
         BVS   L0334F1
         EOR   #$8000
L0334F1  BMI   L0334F6
L0334F3  BRL   L03353F
L0334F6  LDA   #$0004
         PHA
         LDX   $1F
         LDA   $1D
         PHX
         PHA
         JSL   L0304A7
         LDY   #$0002
         LDA   [$16],Y
         TAX
         LDA   [$16]
         STA   $00
         STX   $02
         LDA   #$0008
         STA   [$00]
         LDA   #$0000
         LDX   #$0000
         TAY
         BPL   L03351F
         DEX
L03351F  PHX
         PHA
         LDY   #$0002
         LDA   [$16],Y
         PHA
         LDA   [$16]
         PHA
         PLA
         CLC
         ADC   #$001E
         PHA
         PLA
         STA   $00
         PLA
         STA   $02
         PLA
         STA   [$00]
         LDY   #$0002
         PLA
         STA   [$00],Y
L03353F  LDY   #$0002
         LDA   [$16],Y
         TAX
         LDA   [$16]
         STA   $00
         STX   $02
         LDA   [$00]
         PHA
         LDA   #$0009
         SEC
         SBC   $01,S
         PLY
         TAY
         BEQ   L03355F
         BVS   L03355D
         EOR   #$8000
L03355D  BMI   L033562
L03355F  BRL   L0335AB
L033562  LDA   #$0004
         PHA
         LDX   $1F
         LDA   $1D
         PHX
         PHA
         JSL   L0304A7
         LDY   #$0002
         LDA   [$16],Y
         TAX
         LDA   [$16]
         STA   $00
         STX   $02
         LDA   #$0009
         STA   [$00]
         LDA   #$0000
         LDX   #$0000
         TAY
         BPL   L03358B
         DEX
L03358B  PHX
         PHA
         LDY   #$0002
         LDA   [$16],Y
         PHA
         LDA   [$16]
         PHA
         PLA
         CLC
         ADC   #$0022
         PHA
         PLA
         STA   $00
         PLA
         STA   $02
         PLA
         STA   [$00]
         LDY   #$0002
         PLA
         STA   [$00],Y
L0335AB  LDY   #$0002
         LDA   [$16],Y
         TAX
         LDA   [$16]
         STA   $00
         STX   $02
         LDA   [$00]
         PHA
         LDA   #$000A
         SEC
         SBC   $01,S
         PLY
         TAY
         BEQ   L0335CB
         BVS   L0335C9
         EOR   #$8000
L0335C9  BMI   L0335CE
L0335CB  BRL   L033602
L0335CE  LDA   #$0002
         PHA
         LDX   $1F
         LDA   $1D
         PHX
         PHA
         JSL   L0304A7
         LDY   #$0002
         LDA   [$16],Y
         TAX
         LDA   [$16]
         STA   $00
         STX   $02
         LDA   #$000A
         STA   [$00]
         LDY   #$0002
         LDA   [$16],Y
         TAX
         LDA   [$16]
         CLC
         ADC   #$0026
         STA   $00
         STX   $02
         LDA   #$0000
         STA   [$00]
L033602  LDY   #$0002
         LDA   [$16],Y
         TAX
         LDA   [$16]
         STA   $00
         STX   $02
         LDA   [$00]
         PHA
         LDA   #$000B
         SEC
         SBC   $01,S
         PLY
         TAY
         BEQ   L033622
         BVS   L033620
         EOR   #$8000
L033620  BMI   L033625
L033622  BRL   L033644
L033625  LDA   #$0006
         PHA
         LDX   $1F
         LDA   $1D
         PHX
         PHA
         JSL   L0304A7
         LDY   #$0002
         LDA   [$16],Y
         TAX
         LDA   [$16]
         STA   $00
         STX   $02
         LDA   #$000B
         STA   [$00]
L033644  PHA
         PHA
         PEA   $0000
         PEA   $0000
         LDA   #$7010
         LDX   #$0000
         TAY
         BPL   L033656
         DEX
L033656  PHX
         PHA
         _GetCtlHandleFromID
         STA   L02C957
         PLA
         STA   $00
         PLA
         STA   $02
         LDY   #$0002
         LDA   [$00],Y
         TAX
         LDA   [$00]
         STA   $00
         STX   $02
         LDY   #$001E
         LDA   [$00],Y
         TAX
         LDY   #$001C
         LDA   [$00],Y
         STX   L02B9A7
         STA   L02B9A5
         PHA
         PHA
         LDX   L02B9A7
         LDA   L02B9A5
         PHX
         PHA
         _LEGetTextHand
         STA   L02C957
         PLA
         STA   L02B99F
         PLA
         STA   L02B9A1
         PHA
         LDX   L02B9A7
         LDA   L02B9A5
         PHX
         PHA
         _LEGetTextLen
         STA   L02C957
         PLA
         STA   L02B9A3
         LDY   #$0002
         LDA   [$16],Y
         TAX
         LDA   [$16]
         CLC
         ADC   #$0028
         STX   $08
         STA   $06
         LDA   #$0001
         SEC
         SBC   L02B9A3
         BEQ   L0336D8
         BVS   L0336D6
         EOR   #$8000
L0336D6  BMI   L0336DB
L0336D8  BRL   L0336F0
L0336DB  PEI   $08
         PEI   $06
         PEI   $08
         PEI   $06
         PLA
         CLC
         ADC   #$0001
         PHA
         JSL   L0333BC
         BRL   L03378F
L0336F0  PEI   $08
         PEI   $06
         LDX   L02B9A1
         LDA   L02B99F
         STA   $00
         STX   $02
         LDY   #$0002
         LDA   [$00],Y
         TAX
         LDA   [$00]
         STA   $00
         STX   $02
         LDA   [$00]
         AND   #$00FF
         PLX
         STX   $00
         PLX
         STX   $02
         SEP   #$20
         STA   [$00]
         REP   #$20
         LDA   L02B9A3
         BMI   L033724
         DEC
         DEC
         BPL   L033727
L033724  BRL   L03375E
L033727  PEI   $08
         PEI   $06
         PLA
         CLC
         ADC   #$0001
         PHA
         LDX   L02B9A1
         LDA   L02B99F
         STA   $00
         STX   $02
         LDY   #$0002
         LDA   [$00],Y
         TAX
         LDA   [$00]
         STA   $00
         STX   $02
         LDY   #$0001
         LDA   [$00],Y
         AND   #$00FF
         PLX
         STX   $00
         PLX
         STX   $02
         SEP   #$20
         STA   [$00]
         REP   #$20
         BRL   L03378F
L03375E  PEI   $08
         PEI   $06
         PLA
         CLC
         ADC   #$0001
         PHA
         LDX   L02B9A1
         LDA   L02B99F
         STA   $00
         STX   $02
         LDY   #$0002
         LDA   [$00],Y
         TAX
         LDA   [$00]
         STA   $00
         STX   $02
         LDA   [$00]
         AND   #$00FF
         PLX
         STX   $00
         PLX
         STX   $02
         SEP   #$20
         STA   [$00]
         REP   #$20
L03378F  PEI   $08
         PEI   $06
         PLA
         CLC
         ADC   #$0002
         PHA
         JSL   L0330A4
         PEI   $08
         PEI   $06
         PLA
         CLC
         ADC   #$0004
         PHA
         JSL   L033242
         LDY   #$0002
         LDA   [$16],Y
         TAX
         LDA   [$16]
         STA   $00
         STX   $02
         LDY   #$0014
         LDA   [$00],Y
         AND   #$2000
         BEQ   L0337C4
         BRL   L0337EF
L0337C4  LDY   #$0002
         LDA   [$16],Y
         PHA
         LDA   [$16]
         PHA
         PLA
         CLC
         ADC   #$0014
         PHA
         LDY   #$0002
         LDA   [$16],Y
         TAX
         LDA   [$16]
         STA   $00
         STX   $02
         LDY   #$0014
         LDA   [$00],Y
         ORA   #$2000
         PLX
         STX   $00
         PLX
         STX   $02
         STA   [$00]
L0337EF  LDA   $1B
         STA   $1F
         LDA   $1A
         STA   $1E
         PLD
         TSC
         CLC
         ADC   #$001E
         TCS
         RTL

L0337FF  ENT
         TSC
         SEC
         SBC   #$001A
         TCS
         PHD
         INC
         TCD
         LDX   $1F
         LDA   $1D
         STX   $18
         STA   $16
         LDY   #$0002
         LDA   [$16],Y
         TAX
         LDA   [$16]
         STA   $00
         STX   $02
         LDA   [$00]
         PHA
         LDA   #$0008
         SEC
         SBC   $01,S
         PLY
         TAY
         BEQ   L033830
         BVS   L03382E
         EOR   #$8000
L03382E  BMI   L033833
L033830  BRL   L03387C
L033833  LDA   #$0004
         PHA
         LDX   $1F
         LDA   $1D
         PHX
         PHA
         JSL   L0304A7
         LDY   #$0002
         LDA   [$16],Y
         TAX
         LDA   [$16]
         STA   $00
         STX   $02
         LDA   #$0008
         STA   [$00]
         LDA   #$0000
         LDX   #$0000
         TAY
         BPL   L03385C
         DEX
L03385C  PHX
         PHA
         LDY   #$0002
         LDA   [$16],Y
         PHA
         LDA   [$16]
         PHA
         PLA
         CLC
         ADC   #$001E
         PHA
         PLA
         STA   $00
         PLA
         STA   $02
         PLA
         STA   [$00]
         LDY   #$0002
         PLA
         STA   [$00],Y
L03387C  LDY   #$0002
         LDA   [$16],Y
         TAX
         LDA   [$16]
         STA   $00
         STX   $02
         LDA   [$00]
         PHA
         LDA   #$0009
         SEC
         SBC   $01,S
         PLY
         TAY
         BEQ   L03389C
         BVS   L03389A
         EOR   #$8000
L03389A  BMI   L03389F
L03389C  BRL   L0338BE
L03389F  LDA   #$0006
         PHA
         LDX   $1F
         LDA   $1D
         PHX
         PHA
         JSL   L0304A7
         LDY   #$0002
         LDA   [$16],Y
         TAX
         LDA   [$16]
         STA   $00
         STX   $02
         LDA   #$0009
         STA   [$00]
L0338BE  PHA
         PHA
         PEA   $0000
         PEA   $0000
         LDA   #$7010
         LDX   #$0000
         TAY
         BPL   L0338D0
         DEX
L0338D0  PHX
         PHA
         _GetCtlHandleFromID
         STA   L02C957
         PLA
         STA   $00
         PLA
         STA   $02
         LDY   #$0002
         LDA   [$00],Y
         TAX
         LDA   [$00]
         STA   $00
         STX   $02
         LDY   #$001E
         LDA   [$00],Y
         TAX
         LDY   #$001C
         LDA   [$00],Y
         STX   L02B9A7
         STA   L02B9A5
         PHA
         PHA
         LDX   L02B9A7
         LDA   L02B9A5
         PHX
         PHA
         _LEGetTextHand
         STA   L02C957
         PLA
         STA   L02B99F
         PLA
         STA   L02B9A1
         PHA
         LDX   L02B9A7
         LDA   L02B9A5
         PHX
         PHA
         _LEGetTextLen
         STA   L02C957
         PLA
         STA   L02B9A3
         LDY   #$0002
         LDA   [$16],Y
         TAX
         LDA   [$16]
         CLC
         ADC   #$0022
         STX   $08
         STA   $06
         LDA   #$0001
         SEC
         SBC   L02B9A3
         BEQ   L033952
         BVS   L033950
         EOR   #$8000
L033950  BMI   L033955
L033952  BRL   L03396A
L033955  PEI   $08
         PEI   $06
         PEI   $08
         PEI   $06
         PLA
         CLC
         ADC   #$0001
         PHA
         JSL   L0333BC
         BRL   L033A09
L03396A  PEI   $08
         PEI   $06
         LDX   L02B9A1
         LDA   L02B99F
         STA   $00
         STX   $02
         LDY   #$0002
         LDA   [$00],Y
         TAX
         LDA   [$00]
         STA   $00
         STX   $02
         LDA   [$00]
         AND   #$00FF
         PLX
         STX   $00
         PLX
         STX   $02
         SEP   #$20
         STA   [$00]
         REP   #$20
         LDA   L02B9A3
         BMI   L03399E
         DEC
         DEC
         BPL   L0339A1
L03399E  BRL   L0339D8
L0339A1  PEI   $08
         PEI   $06
         PLA
         CLC
         ADC   #$0001
         PHA
         LDX   L02B9A1
         LDA   L02B99F
         STA   $00
         STX   $02
         LDY   #$0002
         LDA   [$00],Y
         TAX
         LDA   [$00]
         STA   $00
         STX   $02
         LDY   #$0001
         LDA   [$00],Y
         AND   #$00FF
         PLX
         STX   $00
         PLX
         STX   $02
         SEP   #$20
         STA   [$00]
         REP   #$20
         BRL   L033A09
L0339D8  PEI   $08
         PEI   $06
         PLA
         CLC
         ADC   #$0001
         PHA
         LDX   L02B9A1
         LDA   L02B99F
         STA   $00
         STX   $02
         LDY   #$0002
         LDA   [$00],Y
         TAX
         LDA   [$00]
         STA   $00
         STX   $02
         LDA   [$00]
         AND   #$00FF
         PLX
         STX   $00
         PLX
         STX   $02
         SEP   #$20
         STA   [$00]
         REP   #$20
L033A09  PEI   $08
         PEI   $06
         PLA
         CLC
         ADC   #$0002
         PHA
         JSL   L0330A4
         PEI   $08
         PEI   $06
         PLA
         CLC
         ADC   #$0004
         PHA
         JSL   L033242
         LDY   #$0002
         LDA   [$16],Y
         TAX
         LDA   [$16]
         STA   $00
         STX   $02
         LDY   #$0014
         LDA   [$00],Y
         AND   #$2000
         BEQ   L033A3E
         BRL   L033A69
L033A3E  LDY   #$0002
         LDA   [$16],Y
         PHA
         LDA   [$16]
         PHA
         PLA
         CLC
         ADC   #$0014
         PHA
         LDY   #$0002
         LDA   [$16],Y
         TAX
         LDA   [$16]
         STA   $00
         STX   $02
         LDY   #$0014
         LDA   [$00],Y
         ORA   #$2000
         PLX
         STX   $00
         PLX
         STX   $02
         STA   [$00]
L033A69  LDA   $1B
         STA   $1F
         LDA   $1A
         STA   $1E
         PLD
         TSC
         CLC
         ADC   #$001E
         TCS
         RTL

L033A79  ENT
         TSC
         SEC
         SBC   #$001A
         TCS
         PHD
         INC
         TCD
         LDX   $1F
         LDA   $1D
         STX   $18
         STA   $16
         LDY   #$0002
         LDA   [$16],Y
         TAX
         LDA   [$16]
         STA   $00
         STX   $02
         LDA   [$00]
         PHA
         LDA   #$0009
         SEC
         SBC   $01,S
         PLY
         TAY
         BEQ   L033AAA
         BVS   L033AA8
         EOR   #$8000
L033AA8  BMI   L033AAD
L033AAA  BRL   L033AF6
L033AAD  LDA   #$0004
         PHA
         LDX   $1F
         LDA   $1D
         PHX
         PHA
         JSL   L0304A7
         LDY   #$0002
         LDA   [$16],Y
         TAX
         LDA   [$16]
         STA   $00
         STX   $02
         LDA   #$0009
         STA   [$00]
         LDA   #$0000
         LDX   #$0000
         TAY
         BPL   L033AD6
         DEX
L033AD6  PHX
         PHA
         LDY   #$0002
         LDA   [$16],Y
         PHA
         LDA   [$16]
         PHA
         PLA
         CLC
         ADC   #$0020
         PHA
         PLA
         STA   $00
         PLA
         STA   $02
         PLA
         STA   [$00]
         LDY   #$0002
         PLA
         STA   [$00],Y
L033AF6  LDY   #$0002
         LDA   [$16],Y
         TAX
         LDA   [$16]
         STA   $00
         STX   $02
         LDA   [$00]
         PHA
         LDA   #$000A
         SEC
         SBC   $01,S
         PLY
         TAY
         BEQ   L033B16
         BVS   L033B14
         EOR   #$8000
L033B14  BMI   L033B19
L033B16  BRL   L033B38
L033B19  LDA   #$0006
         PHA
         LDX   $1F
         LDA   $1D
         PHX
         PHA
         JSL   L0304A7
         LDY   #$0002
         LDA   [$16],Y
         TAX
         LDA   [$16]
         STA   $00
         STX   $02
         LDA   #$000A
         STA   [$00]
L033B38  PHA
         PHA
         PEA   $0000
         PEA   $0000
         LDA   #$7010
         LDX   #$0000
         TAY
         BPL   L033B4A
         DEX
L033B4A  PHX
         PHA
         _GetCtlHandleFromID
         STA   L02C957
         PLA
         STA   $00
         PLA
         STA   $02
         LDY   #$0002
         LDA   [$00],Y
         TAX
         LDA   [$00]
         STA   $00
         STX   $02
         LDY   #$001E
         LDA   [$00],Y
         TAX
         LDY   #$001C
         LDA   [$00],Y
         STX   L02B9A7
         STA   L02B9A5
         PHA
         PHA
         LDX   L02B9A7
         LDA   L02B9A5
         PHX
         PHA
         _LEGetTextHand
         STA   L02C957
         PLA
         STA   L02B99F
         PLA
         STA   L02B9A1
         PHA
         LDX   L02B9A7
         LDA   L02B9A5
         PHX
         PHA
         _LEGetTextLen
         STA   L02C957
         PLA
         STA   L02B9A3
         LDY   #$0002
         LDA   [$16],Y
         TAX
         LDA   [$16]
         CLC
         ADC   #$0024
         STX   $08
         STA   $06
         LDA   #$0001
         SEC
         SBC   L02B9A3
         BEQ   L033BCC
         BVS   L033BCA
         EOR   #$8000
L033BCA  BMI   L033BCF
L033BCC  BRL   L033BE4
L033BCF  PEI   $08
         PEI   $06
         PEI   $08
         PEI   $06
         PLA
         CLC
         ADC   #$0001
         PHA
         JSL   L0333BC
         BRL   L033C83
L033BE4  PEI   $08
         PEI   $06
         LDX   L02B9A1
         LDA   L02B99F
         STA   $00
         STX   $02
         LDY   #$0002
         LDA   [$00],Y
         TAX
         LDA   [$00]
         STA   $00
         STX   $02
         LDA   [$00]
         AND   #$00FF
         PLX
         STX   $00
         PLX
         STX   $02
         SEP   #$20
         STA   [$00]
         REP   #$20
         LDA   L02B9A3
         BMI   L033C18
         DEC
         DEC
         BPL   L033C1B
L033C18  BRL   L033C52
L033C1B  PEI   $08
         PEI   $06
         PLA
         CLC
         ADC   #$0001
         PHA
         LDX   L02B9A1
         LDA   L02B99F
         STA   $00
         STX   $02
         LDY   #$0002
         LDA   [$00],Y
         TAX
         LDA   [$00]
         STA   $00
         STX   $02
         LDY   #$0001
         LDA   [$00],Y
         AND   #$00FF
         PLX
         STX   $00
         PLX
         STX   $02
         SEP   #$20
         STA   [$00]
         REP   #$20
         BRL   L033C83
L033C52  PEI   $08
         PEI   $06
         PLA
         CLC
         ADC   #$0001
         PHA
         LDX   L02B9A1
         LDA   L02B99F
         STA   $00
         STX   $02
         LDY   #$0002
         LDA   [$00],Y
         TAX
         LDA   [$00]
         STA   $00
         STX   $02
         LDA   [$00]
         AND   #$00FF
         PLX
         STX   $00
         PLX
         STX   $02
         SEP   #$20
         STA   [$00]
         REP   #$20
L033C83  PEI   $08
         PEI   $06
         PLA
         CLC
         ADC   #$0002
         PHA
         JSL   L0330A4
         PEI   $08
         PEI   $06
         PLA
         CLC
         ADC   #$0004
         PHA
         JSL   L033242
         LDY   #$0002
         LDA   [$16],Y
         TAX
         LDA   [$16]
         STA   $00
         STX   $02
         LDY   #$0014
         LDA   [$00],Y
         AND   #$2000
         BEQ   L033CB8
         BRL   L033CE3
L033CB8  LDY   #$0002
         LDA   [$16],Y
         PHA
         LDA   [$16]
         PHA
         PLA
         CLC
         ADC   #$0014
         PHA
         LDY   #$0002
         LDA   [$16],Y
         TAX
         LDA   [$16]
         STA   $00
         STX   $02
         LDY   #$0014
         LDA   [$00],Y
         ORA   #$2000
         PLX
         STX   $00
         PLX
         STX   $02
         STA   [$00]
L033CE3  LDA   $1B
         STA   $1F
         LDA   $1A
         STA   $1E
         PLD
         TSC
         CLC
         ADC   #$001E
         TCS
         RTL

L033CF3  ENT
         TSC
         SEC
         SBC   #$001A
         TCS
         PHD
         INC
         TCD
         LDX   $1F
         LDA   $1D
         STX   $18
         STA   $16
         LDY   #$0002
         LDA   [$16],Y
         TAX
         LDA   [$16]
         STA   $00
         STX   $02
         LDA   [$00]
         PHA
         LDA   #$0009
         SEC
         SBC   $01,S
         PLY
         TAY
         BEQ   L033D24
         BVS   L033D22
         EOR   #$8000
L033D22  BMI   L033D27
L033D24  BRL   L033D70
L033D27  LDA   #$0004
         PHA
         LDX   $1F
         LDA   $1D
         PHX
         PHA
         JSL   L0304A7
         LDY   #$0002
         LDA   [$16],Y
         TAX
         LDA   [$16]
         STA   $00
         STX   $02
         LDA   #$0009
         STA   [$00]
         LDA   #$0000
         LDX   #$0000
         TAY
         BPL   L033D50
         DEX
L033D50  PHX
         PHA
         LDY   #$0002
         LDA   [$16],Y
         PHA
         LDA   [$16]
         PHA
         PLA
         CLC
         ADC   #$0020
         PHA
         PLA
         STA   $00
         PLA
         STA   $02
         PLA
         STA   [$00]
         LDY   #$0002
         PLA
         STA   [$00],Y
L033D70  LDY   #$0002
         LDA   [$16],Y
         TAX
         LDA   [$16]
         STA   $00
         STX   $02
         LDA   [$00]
         PHA
         LDA   #$000A
         SEC
         SBC   $01,S
         PLY
         TAY
         BEQ   L033D90
         BVS   L033D8E
         EOR   #$8000
L033D8E  BMI   L033D93
L033D90  BRL   L033DB2
L033D93  LDA   #$0006
         PHA
         LDX   $1F
         LDA   $1D
         PHX
         PHA
         JSL   L0304A7
         LDY   #$0002
         LDA   [$16],Y
         TAX
         LDA   [$16]
         STA   $00
         STX   $02
         LDA   #$000A
         STA   [$00]
L033DB2  PHA
         PHA
         PEA   $0000
         PEA   $0000
         LDA   #$7010
         LDX   #$0000
         TAY
         BPL   L033DC4
         DEX
L033DC4  PHX
         PHA
         _GetCtlHandleFromID
         STA   L02C957
         PLA
         STA   $00
         PLA
         STA   $02
         LDY   #$0002
         LDA   [$00],Y
         TAX
         LDA   [$00]
         STA   $00
         STX   $02
         LDY   #$001E
         LDA   [$00],Y
         TAX
         LDY   #$001C
         LDA   [$00],Y
         STX   L02B9A7
         STA   L02B9A5
         PHA
         PHA
         LDX   L02B9A7
         LDA   L02B9A5
         PHX
         PHA
         _LEGetTextHand
         STA   L02C957
         PLA
         STA   L02B99F
         PLA
         STA   L02B9A1
         PHA
         LDX   L02B9A7
         LDA   L02B9A5
         PHX
         PHA
         _LEGetTextLen
         STA   L02C957
         PLA
         STA   L02B9A3
         LDY   #$0002
         LDA   [$16],Y
         TAX
         LDA   [$16]
         CLC
         ADC   #$0024
         STX   $08
         STA   $06
         LDA   #$0001
         SEC
         SBC   L02B9A3
         BEQ   L033E46
         BVS   L033E44
         EOR   #$8000
L033E44  BMI   L033E49
L033E46  BRL   L033E5E
L033E49  PEI   $08
         PEI   $06
         PEI   $08
         PEI   $06
         PLA
         CLC
         ADC   #$0001
         PHA
         JSL   L0333BC
         BRL   L033EFD
L033E5E  PEI   $08
         PEI   $06
         LDX   L02B9A1
         LDA   L02B99F
         STA   $00
         STX   $02
         LDY   #$0002
         LDA   [$00],Y
         TAX
         LDA   [$00]
         STA   $00
         STX   $02
         LDA   [$00]
         AND   #$00FF
         PLX
         STX   $00
         PLX
         STX   $02
         SEP   #$20
         STA   [$00]
         REP   #$20
         LDA   L02B9A3
         BMI   L033E92
         DEC
         DEC
         BPL   L033E95
L033E92  BRL   L033ECC
L033E95  PEI   $08
         PEI   $06
         PLA
         CLC
         ADC   #$0001
         PHA
         LDX   L02B9A1
         LDA   L02B99F
         STA   $00
         STX   $02
         LDY   #$0002
         LDA   [$00],Y
         TAX
         LDA   [$00]
         STA   $00
         STX   $02
         LDY   #$0001
         LDA   [$00],Y
         AND   #$00FF
         PLX
         STX   $00
         PLX
         STX   $02
         SEP   #$20
         STA   [$00]
         REP   #$20
         BRL   L033EFD
L033ECC  PEI   $08
         PEI   $06
         PLA
         CLC
         ADC   #$0001
         PHA
         LDX   L02B9A1
         LDA   L02B99F
         STA   $00
         STX   $02
         LDY   #$0002
         LDA   [$00],Y
         TAX
         LDA   [$00]
         STA   $00
         STX   $02
         LDA   [$00]
         AND   #$00FF
         PLX
         STX   $00
         PLX
         STX   $02
         SEP   #$20
         STA   [$00]
         REP   #$20
L033EFD  PEI   $08
         PEI   $06
         PLA
         CLC
         ADC   #$0002
         PHA
         JSL   L0330A4
         PEI   $08
         PEI   $06
         PLA
         CLC
         ADC   #$0004
         PHA
         JSL   L033242
         LDY   #$0002
         LDA   [$16],Y
         TAX
         LDA   [$16]
         STA   $00
         STX   $02
         LDY   #$0014
         LDA   [$00],Y
         AND   #$2000
         BEQ   L033F32
         BRL   L033F5D
L033F32  LDY   #$0002
         LDA   [$16],Y
         PHA
         LDA   [$16]
         PHA
         PLA
         CLC
         ADC   #$0014
         PHA
         LDY   #$0002
         LDA   [$16],Y
         TAX
         LDA   [$16]
         STA   $00
         STX   $02
         LDY   #$0014
         LDA   [$00],Y
         ORA   #$2000
         PLX
         STX   $00
         PLX
         STX   $02
         STA   [$00]
L033F5D  LDA   $1B
         STA   $1F
         LDA   $1A
         STA   $1E
         PLD
         TSC
         CLC
         ADC   #$001E
         TCS
         RTL

L033F6D  TSC
         SEC
         SBC   #$0020
         TCS
         PHD
         INC
         TCD
         LDA   #$0000
         STA   $16
         LDA   #$0001
         TAX
         SEP   #$20
         LDA   #$00
         STA   L02BEAD,X
         REP   #$20
         PHA
         PHA
         PEA   $0000
         PEA   $0000
         LDA   #$7010
         LDX   #$0000
         TAY
         BPL   L033F9A
         DEX
L033F9A  PHX
         PHA
         _GetCtlHandleFromID
         STA   L02C957
         PLA
         STA   $00
         PLA
         STA   $02
         LDY   #$0002
         LDA   [$00],Y
         TAX
         LDA   [$00]
         STA   $00
         STX   $02
         LDY   #$001E
         LDA   [$00],Y
         TAX
         LDY   #$001C
         LDA   [$00],Y
         STX   L02B9A7
         STA   L02B9A5
         LDA   #$0001
         TAX
         TXA
         CLC
         ADC   #L02BEAD
         PEA   ^L02BEAD
         PHA
         LDA   $16
         PHA
         LDX   L02B9A7
         LDA   L02B9A5
         PHX
         PHA
         _LESetText
         STA   L02C957
         LDA   $25
         LDX   #$0000
         CMP   #$000D
         BNE   L033FF6
         INX
L033FF6  TXA
         PHA
         LDA   $23
         LDX   #$0000
         CMP   #$000D
         BNE   L034003
         INX
L034003  TXA
         ORA   $01,S
         PLX
         TAX
         BNE   L03400D
         BRL   L03403C
L03400D  LDA   #$0001
         PHA
         PHA
         PHA
         PEA   $0000
         PEA   $0000
         LDA   #$7013
         LDX   #$0000
         TAY
         BPL   L034023
         DEX
L034023  PHX
         PHA
         _GetCtlHandleFromID
         STA   L02C957
         _SetCtlValue
         STA   L02C957
         BRL   L034181
L03403C  LDA   $25
         LDX   #$0000
         CMP   #$001B
         BNE   L034047
         INX
L034047  TXA
         PHA
         LDA   $23
         LDX   #$0000
         CMP   #$001B
         BNE   L034054
         INX
L034054  TXA
         ORA   $01,S
         PLX
         TAX
         BNE   L03405E
         BRL   L03408D
L03405E  LDA   #$0001
         PHA
         PHA
         PHA
         PEA   $0000
         PEA   $0000
         LDA   #$7012
         LDX   #$0000
         TAY
         BPL   L034074
         DEX
L034074  PHX
         PHA
         _GetCtlHandleFromID
         STA   L02C957
         _SetCtlValue
         STA   L02C957
         BRL   L034181
L03408D  LDA   $25
         LDX   #$0000
         CMP   #$007F
         BNE   L034098
         INX
L034098  TXA
         PHA
         LDA   $23
         LDX   #$0000
         CMP   #$007F
         BNE   L0340A5
         INX
L0340A5  TXA
         ORA   $01,S
         PLX
         TAX
         BNE   L0340AF
         BRL   L0340DE
L0340AF  LDA   #$0001
         PHA
         PHA
         PHA
         PEA   $0000
         PEA   $0000
         LDA   #$7016
         LDX   #$0000
         TAY
         BPL   L0340C5
         DEX
L0340C5  PHX
         PHA
         _GetCtlHandleFromID
         STA   L02C957
         _SetCtlValue
         STA   L02C957
         BRL   L034181
L0340DE  LDA   $25
         LDX   #$0001
         SEC
         SBC   #$0020
         BVS   L0340EC
         EOR   #$8000
L0340EC  BMI   L0340EF
         DEX
L0340EF  TXA
         PHA
         LDA   #$007E
         LDX   #$0001
         SEC
         SBC   $25
         BVS   L0340FF
         EOR   #$8000
L0340FF  BMI   L034102
         DEX
L034102  TXA
         AND   $01,S
         PLX
         TAX
         BNE   L03410C
         BRL   L03411D
L03410C  LDA   #$0001
         STA   $16
         LDA   $16
         TAX
         SEP   #$20
         LDA   $25
         STA   L02BEAD,X
         REP   #$20
L03411D  LDA   $23
         LDX   #$0001
         SEC
         SBC   #$0020
         BVS   L03412B
         EOR   #$8000
L03412B  BMI   L03412E
         DEX
L03412E  TXA
         PHA
         LDA   #$007E
         LDX   #$0001
         SEC
         SBC   $23
         BVS   L03413E
         EOR   #$8000
L03413E  BMI   L034141
         DEX
L034141  TXA
         AND   $01,S
         PLX
         TAX
         BNE   L03414B
         BRL   L03415F
L03414B  LDA   $16
         CLC
         ADC   #$0001
         STA   $16
         LDA   $16
         TAX
         SEP   #$20
         LDA   $23
         STA   L02BEAD,X
         REP   #$20
L03415F  LDA   #$0001
         TAX
         TXA
         CLC
         ADC   #L02BEAD
         PEA   ^L02BEAD
         PHA
         LDA   $16
         PHA
         LDX   L02B9A7
         LDA   L02B9A5
         PHX
         PHA
         _LESetText
         STA   L02C957
L034181  PEA   $0000
         TDC
         CLC
         ADC   #$0018
         PHA
         PHA
         PHA
         PEA   $0000
         PEA   $0000
         LDA   #$7010
         LDX   #$0000
         TAY
         BPL   L03419C
         DEX
L03419C  PHX
         PHA
         _GetCtlHandleFromID
         STA   L02C957
         PLA
         STA   $00
         PLA
         STA   $02
         LDY   #$0002
         LDA   [$00],Y
         PHA
         LDA   [$00]
         PHA
         PLA
         CLC
         ADC   #$0008
         PHA
         PEA   $0008
         JSL   L02C5AB
         PEA   $0000
         TDC
         CLC
         ADC   #$0018
         PHA
         _InvalRect
         STA   L02C957
         LDA   $21
         STA   $25
         LDA   $20
         STA   $24
         PLD
         TSC
         CLC
         ADC   #$0024
         TCS
         RTL

L0341E7  TSC
         SEC
         SBC   #$0016
         TCS
         PHD
         INC
         TCD
         LDA   $19
         AND   #$0100
         BNE   L0341FA
         BRL   L034226
L0341FA  LDA   #$0001
         PHA
         PHA
         PHA
         PEA   $0000
         PEA   $0000
         LDA   #$0100
         LDX   #$0000
         TAY
         BPL   L034210
         DEX
L034210  PHX
         PHA
         _GetCtlHandleFromID
         STA   L02C957
         _SetCtlValue
         STA   L02C957
L034226  LDA   $19
         AND   #$0200
         BNE   L034230
         BRL   L03425C
L034230  LDA   #$0001
         PHA
         PHA
         PHA
         PEA   $0000
         PEA   $0000
         LDA   #$0200
         LDX   #$0000
         TAY
         BPL   L034246
         DEX
L034246  PHX
         PHA
         _GetCtlHandleFromID
         STA   L02C957
         _SetCtlValue
         STA   L02C957
L03425C  LDA   $19
         AND   #$0400
         BNE   L034266
         BRL   L034292
L034266  LDA   #$0001
         PHA
         PHA
         PHA
         PEA   $0000
         PEA   $0000
         LDA   #$0400
         LDX   #$0000
         TAY
         BPL   L03427C
         DEX
L03427C  PHX
         PHA
         _GetCtlHandleFromID
         STA   L02C957
         _SetCtlValue
         STA   L02C957
L034292  LDA   $19
         AND   #$0800
         BNE   L03429C
         BRL   L0342C8
L03429C  LDA   #$0001
         PHA
         PHA
         PHA
         PEA   $0000
         PEA   $0000
         LDA   #$0800
         LDX   #$0000
         TAY
         BPL   L0342B2
         DEX
L0342B2  PHX
         PHA
         _GetCtlHandleFromID
         STA   L02C957
         _SetCtlValue
         STA   L02C957
L0342C8  LDA   $19
         AND   #$1000
         BNE   L0342D2
         BRL   L0342FE
L0342D2  LDA   #$0001
         PHA
         PHA
         PHA
         PEA   $0000
         PEA   $0000
         LDA   #$1000
         LDX   #$0000
         TAY
         BPL   L0342E8
         DEX
L0342E8  PHX
         PHA
         _GetCtlHandleFromID
         STA   L02C957
         _SetCtlValue
         STA   L02C957
L0342FE  LDA   $19
         AND   #$2000
         BNE   L034308
         BRL   L034334
L034308  LDA   #$0001
         PHA
         PHA
         PHA
         PEA   $0000
         PEA   $0000
         LDA   #$2000
         LDX   #$0000
         TAY
         BPL   L03431E
         DEX
L03431E  PHX
         PHA
         _GetCtlHandleFromID
         STA   L02C957
         _SetCtlValue
         STA   L02C957
L034334  LDA   $17
         STA   $19
         LDA   $16
         STA   $18
         PLD
         TSC
         CLC
         ADC   #$0018
         TCS
         RTL

L034344  TSC
         SEC
         SBC   #$0016
         TCS
         PHD
         INC
         TCD
         LDA   $19
         AND   #$0100
         BNE   L034357
         BRL   L03437D
L034357  LDA   #$0001
         PHA
         PHA
         PHA
         PEA   $0000
         PEA   $0000
         PEA   $0100
         PEA   $0000
         _GetCtlHandleFromID
         STA   L02C957
         _SetCtlValue
         STA   L02C957
L03437D  LDA   $19
         AND   #$0200
         BNE   L034387
         BRL   L0343AD
L034387  LDA   #$0001
         PHA
         PHA
         PHA
         PEA   $0000
         PEA   $0000
         PEA   $0200
         PEA   $0000
         _GetCtlHandleFromID
         STA   L02C957
         _SetCtlValue
         STA   L02C957
L0343AD  LDA   $19
         AND   #$0400
         BNE   L0343B7
         BRL   L0343DD
L0343B7  LDA   #$0001
         PHA
         PHA
         PHA
         PEA   $0000
         PEA   $0000
         PEA   $0400
         PEA   $0000
         _GetCtlHandleFromID
         STA   L02C957
         _SetCtlValue
         STA   L02C957
L0343DD  LDA   $19
         AND   #$0800
         BNE   L0343E7
         BRL   L03440D
L0343E7  LDA   #$0001
         PHA
         PHA
         PHA
         PEA   $0000
         PEA   $0000
         PEA   $0800
         PEA   $0000
         _GetCtlHandleFromID
         STA   L02C957
         _SetCtlValue
         STA   L02C957
L03440D  LDA   $19
         AND   #$1000
         BNE   L034417
         BRL   L03443D
L034417  LDA   #$0001
         PHA
         PHA
         PHA
         PEA   $0000
         PEA   $0000
         PEA   $1000
         PEA   $0000
         _GetCtlHandleFromID
         STA   L02C957
         _SetCtlValue
         STA   L02C957
L03443D  LDA   $19
         AND   #$2000
         BNE   L034447
         BRL   L03446D
L034447  LDA   #$0001
         PHA
         PHA
         PHA
         PEA   $0000
         PEA   $0000
         PEA   $2000
         PEA   $0000
         _GetCtlHandleFromID
         STA   L02C957
         _SetCtlValue
         STA   L02C957
L03446D  LDA   $17
         STA   $19
         LDA   $16
         STA   $18
         PLD
         TSC
         CLC
         ADC   #$0018
         TCS
         RTL

L03447D  ENT
         TSC
         SEC
         SBC   #$001A
         TCS
         PHD
         INC
         TCD
         LDX   $1F
         LDA   $1D
         STX   $18
         STA   $16
         LDX   #^L02BEAD
         LDA   #L02BEAD
         PHX
         PHA
         LDA   #$FF01
         PHA
         PEA   ^L03447D
         PEA   L03447D
         LDA   #$0000
         PHA
         JSL   L02C5F5
         LDY   #$0002
         LDA   [$16],Y
         TAX
         LDA   [$16]
         STA   $00
         STX   $02
         LDA   [$00]
         CMP   #$000B
         BEQ   L0344BE
         BRL   L034533
L0344BE  LDY   #$0002
         LDA   [$16],Y
         TAX
         LDA   [$16]
         CLC
         ADC   #$0028
         STX   $08
         STA   $06
         LDA   #$0000
         TAX
         SEP   #$20
         LDA   #$02
         STA   L02BEAD,X
         REP   #$20
         PEI   $08
         PEI   $06
         LDA   #$0001
         TAX
         TXA
         CLC
         ADC   #L02BEAD
         PEA   ^L02BEAD
         PHA
         LDA   #$0002
         LDX   #$0000
         TAY
         BPL   L0344F6
         DEX
L0344F6  PHX
         PHA
         _BlockMove
         STA   L02C957
         LDA   #$0001
         TAX
         LDA   L02BEAD,X
         AND   #$00FF
         PHA
         LDA   #$0002
         TAX
         LDA   L02BEAD,X
         AND   #$00FF
         PHA
         JSL   L033F6D
         LDY   #$0002
         LDA   [$06],Y
         PHA
         JSL   L0341E7
         LDY   #$0004
         LDA   [$06],Y
         PHA
         JSL   L034344
         BRL   L03454D
L034533  LDA   #$0001
         TAX
         LDA   L02BEAD,X
         AND   #$00FF
         PHA
         LDA   #$0001
         TAX
         LDA   L02BEAD,X
         AND   #$00FF
         PHA
         JSL   L033F6D
L03454D  LDA   $1B
         STA   $1F
         LDA   $1A
         STA   $1E
         PLD
         TSC
         CLC
         ADC   #$001E
         TCS
         RTL

L03455D  ENT
         TSC
         SEC
         SBC   #$001A
         TCS
         PHD
         INC
         TCD
         LDX   $1F
         LDA   $1D
         STX   $18
         STA   $16
         LDX   #^L02BEAD
         LDA   #L02BEAD
         PHX
         PHA
         LDA   #$FF01
         PHA
         PEA   ^L03455D
         PEA   L03455D
         LDA   #$0000
         PHA
         JSL   L02C5F5
         LDY   #$0002
         LDA   [$16],Y
         TAX
         LDA   [$16]
         STA   $00
         STX   $02
         LDA   [$00]
         CMP   #$0009
         BEQ   L03459E
         BRL   L034613
L03459E  LDY   #$0002
         LDA   [$16],Y
         TAX
         LDA   [$16]
         CLC
         ADC   #$0022
         STX   $08
         STA   $06
         LDA   #$0000
         TAX
         SEP   #$20
         LDA   #$02
         STA   L02BEAD,X
         REP   #$20
         PEI   $08
         PEI   $06
         LDA   #$0001
         TAX
         TXA
         CLC
         ADC   #L02BEAD
         PEA   ^L02BEAD
         PHA
         LDA   #$0002
         LDX   #$0000
         TAY
         BPL   L0345D6
         DEX
L0345D6  PHX
         PHA
         _BlockMove
         STA   L02C957
         LDA   #$0001
         TAX
         LDA   L02BEAD,X
         AND   #$00FF
         PHA
         LDA   #$0002
         TAX
         LDA   L02BEAD,X
         AND   #$00FF
         PHA
         JSL   L033F6D
         LDY   #$0002
         LDA   [$06],Y
         PHA
         JSL   L0341E7
         LDY   #$0004
         LDA   [$06],Y
         PHA
         JSL   L034344
         BRL   L03462D
L034613  LDA   #$0001
         TAX
         LDA   L02BEAD,X
         AND   #$00FF
         PHA
         LDA   #$0001
         TAX
         LDA   L02BEAD,X
         AND   #$00FF
         PHA
         JSL   L033F6D
L03462D  LDA   $1B
         STA   $1F
         LDA   $1A
         STA   $1E
         PLD
         TSC
         CLC
         ADC   #$001E
         TCS
         RTL

L03463D  ENT
         TSC
         SEC
         SBC   #$001A
         TCS
         PHD
         INC
         TCD
         LDX   $1F
         LDA   $1D
         STX   $18
         STA   $16
         LDX   #^L02BEAD
         LDA   #L02BEAD
         PHX
         PHA
         LDA   #$FF01
         PHA
         PEA   ^L03463D
         PEA   L03463D
         LDA   #$0000
         PHA
         JSL   L02C5F5
         LDY   #$0002
         LDA   [$16],Y
         TAX
         LDA   [$16]
         STA   $00
         STX   $02
         LDA   [$00]
         CMP   #$000A
         BEQ   L03467E
         BRL   L0346F3
L03467E  LDY   #$0002
         LDA   [$16],Y
         TAX
         LDA   [$16]
         CLC
         ADC   #$0024
         STX   $08
         STA   $06
         LDA   #$0000
         TAX
         SEP   #$20
         LDA   #$02
         STA   L02BEAD,X
         REP   #$20
         PEI   $08
         PEI   $06
         LDA   #$0001
         TAX
         TXA
         CLC
         ADC   #L02BEAD
         PEA   ^L02BEAD
         PHA
         LDA   #$0002
         LDX   #$0000
         TAY
         BPL   L0346B6
         DEX
L0346B6  PHX
         PHA
         _BlockMove
         STA   L02C957
         LDA   #$0001
         TAX
         LDA   L02BEAD,X
         AND   #$00FF
         PHA
         LDA   #$0002
         TAX
         LDA   L02BEAD,X
         AND   #$00FF
         PHA
         JSL   L033F6D
         LDY   #$0002
         LDA   [$06],Y
         PHA
         JSL   L0341E7
         LDY   #$0004
         LDA   [$06],Y
         PHA
         JSL   L034344
         BRL   L03470D
L0346F3  LDA   #$0001
         TAX
         LDA   L02BEAD,X
         AND   #$00FF
         PHA
         LDA   #$0001
         TAX
         LDA   L02BEAD,X
         AND   #$00FF
         PHA
         JSL   L033F6D
L03470D  LDA   $1B
         STA   $1F
         LDA   $1A
         STA   $1E
         PLD
         TSC
         CLC
         ADC   #$001E
         TCS
         RTL

L03471D  ENT
         TSC
         SEC
         SBC   #$001A
         TCS
         PHD
         INC
         TCD
         LDX   $1F
         LDA   $1D
         STX   $18
         STA   $16
         LDX   #^L02BEAD
         LDA   #L02BEAD
         PHX
         PHA
         LDA   #$FF01
         PHA
         PEA   ^L03471D
         PEA   L03471D
         LDA   #$0000
         PHA
         JSL   L02C5F5
         LDY   #$0002
         LDA   [$16],Y
         TAX
         LDA   [$16]
         STA   $00
         STX   $02
         LDA   [$00]
         CMP   #$000A
         BEQ   L03475E
         BRL   L0347D3
L03475E  LDY   #$0002
         LDA   [$16],Y
         TAX
         LDA   [$16]
         CLC
         ADC   #$0024
         STX   $08
         STA   $06
         LDA   #$0000
         TAX
         SEP   #$20
         LDA   #$02
         STA   L02BEAD,X
         REP   #$20
         PEI   $08
         PEI   $06
         LDA   #$0001
         TAX
         TXA
         CLC
         ADC   #L02BEAD
         PEA   ^L02BEAD
         PHA
         LDA   #$0002
         LDX   #$0000
         TAY
         BPL   L034796
         DEX
L034796  PHX
         PHA
         _BlockMove
         STA   L02C957
         LDA   #$0001
         TAX
         LDA   L02BEAD,X
         AND   #$00FF
         PHA
         LDA   #$0002
         TAX
         LDA   L02BEAD,X
         AND   #$00FF
         PHA
         JSL   L033F6D
         LDY   #$0002
         LDA   [$06],Y
         PHA
         JSL   L0341E7
         LDY   #$0004
         LDA   [$06],Y
         PHA
         JSL   L034344
         BRL   L0347ED
L0347D3  LDA   #$0001
         TAX
         LDA   L02BEAD,X
         AND   #$00FF
         PHA
         LDA   #$0001
         TAX
         LDA   L02BEAD,X
         AND   #$00FF
         PHA
         JSL   L033F6D
L0347ED  LDA   $1B
         STA   $1F
         LDA   $1A
         STA   $1E
         PLD
         TSC
         CLC
         ADC   #$001E
         TCS
         RTL

