*
* All about America
*
* (c) 1988, Unicorn Software
* (u) 2021, Brutal Deluxe Software
*

	mx	%00
	rel
	typ	S16
	dsk	AMERICA.HDD
	lst	off

*-------
	
GSOS	=	$E100A8

	use	4/Ctl.Macs
	use	4/Dialog.Macs
	use	4/Event.Macs
	use	4/Font.Macs
	use	4/Int.Macs
	use	4/Line.Macs
	use	4/Locator.Macs
	use	4/Mem.Macs
	use	4/Misc.Macs
	use	4/Qd.Macs
	use	4/QdAux.Macs
	use	4/SANE.Macs
	use	4/Sound.Macs
	use	4/Text.Macs
	use	4/Util.Macs
	use	4/Window.Macs
	
*-------

         PHA
         SEP   #$20
         LDA   #^L0150
         PHA
         PLB
         REP   #$20
         PLA
         STA   L013E
         STX   L0156
         STY   L0154
         TSX
         STX   L0150
         PHD
         TSC
         SEC
         SBC   #$00FB
         TCD
         ADC   #$00F4
         TCS
         PHA
         _MMStartUp
         STAL  L013C
         PLA
         PHX
         PHA
         PEA   $0000
         PEA   $0100
         LDA   L013E
         PHA
         PEA   $C011
         PEA   $0000
         PEA   $0000
         _NewHandle
         STAL  L013C
         PLA
         PLX
         STX   L015A
         STA   L0158
         STX   $F8
         ORA   $F8
         BNE   L0071
         PEA   ^L015C
         PEA   L015C
         _WriteCString
         STAL  L013C
         BRL   L0130
L0071    LDX   L015A
         LDA   L0158
         STA   $F8
         STX   $FA
         LDY   #$0002
         LDA   [$F8],Y
         TAX
         LDA   [$F8]
         STA   $F6
         PEI   $F6
         _SANEStartUp
         LDX   L0156
         LDA   L0154
         PHX
         PHA
         JSL   LB3F8
         PLY
         PLY
         PEA   $0000
         LDA   LCB06
         PHA
         JSL   LC28C
         PLY
         PLY
         PEA   ^L017C
         PEA   L017C
         JSL   LC008
         PLY
         PLY
         TAY
         BNE   L00D3
         LDX   L0144
         LDA   L0142
         PHX
         PHA
         LDA   L0140
         PHA
         JSL   L018A
         PLY
         PLY
         PLY
         PEA   $0000
         JSL   LC435
         PLY
L00D3    LDA   L013E
         ORA   #$0F00
         PHA
         _DisposeAll
         STAL  L013C
         LDX   #$0000
         LDA   #$0000
         PHX
         PHA
         LDX   L014E
         LDA   L014C
         JSL   LC7E7
         BEQ   L0107
         LDX   L014E
         LDA   L014C
         PHX
         PHA
         JSL   LBB31
         PLY
         PLY
L0107    LDX   L014E
         LDA   L014C
         PHA
         TXA
         STAL  L0186
         PLA
         STAL  L0184
         LDA   L013A
         STAL  L0188
         LDA   L014A
         PHA
         PEA   ^L0184
         PEA   L0184
         JSL   LCAED
         PLY
         PLY
         PLY
L0130    TAY
         TDC
         CLC
         ADC   #$00FB
         TCS
         TYA
         PLD
         RTL

L013A    DB    $00
         DB    $00
L013C    DB    $00
         DB    $00
L013E    DB    $00
         DB    $00
L0140    DB    $00
         DB    $00
L0142    DB    $00
         DB    $00
L0144    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L014A    DB    $00
         DB    $00
L014C    DB    $00
         DB    $00
L014E    DB    $00
         DB    $00
L0150    DB    $00
         DB    $00
         DB    $00
         DB    $00
L0154    DB    $00
         DB    $00
L0156    DB    $00
         DB    $00
L0158    DB    $00
         DB    $00
L015A    DB    $00
         DB    $00
L015C    ASC   'Can'27't allocate SANE direct page'00
L017C    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L0184    DB    $00
         DB    $00
L0186    DB    $00
         DB    $00
L0188    DB    $00
         DB    $00
L018A    PHD
         TSC
         SEC
         SBC   #$00FB
         TCD
         ADC   #$00F6
         TCS
         JSL   L0906
         JSL   L06FD
         TDC
         CLC
         ADC   #$00FB
         TCS
         PLD
         RTL

L01A5    PHD
         TSC
         SEC
         SBC   #$00F5
         TCD
         ADC   #$00EC
         TCS
         PHX
         PHA
         PEI   $FD
         PEI   $FB
         LDA   L0803
         PHA
         PEI   $FF
         PEA   $0000
         PEA   $0000
         _NewHandle
         STAL  L013C
         PLA
         PLX
         STX   $F0
         STA   $EE
         TAY
         TDC
         CLC
         ADC   #$00F5
         TCS
         TYA
         PLD
         RTL

L01DD    PHD
         TSC
         SEC
         SBC   #$00F7
         TCD
         ADC   #$00F2
         TCS
         LDY   #$0004
         LDA   [$FD],Y
         ORA   #$8000
         LDY   #$0004
         STA   [$FD],Y
         LDY   #$0002
         LDA   [$FD],Y
         TAX
         LDA   [$FD]
         TAY
         TDC
         CLC
         ADC   #$00F7
         TCS
         TYA
         PLD
         RTL

L0207    PHD
         TSC
         SEC
         SBC   #$00F7
         TCD
         ADC   #$00F2
         TCS
         LDY   #$0004
         LDA   [$FD],Y
         AND   #$7FFF
         LDY   #$0004
         STA   [$FD],Y
         TDC
         CLC
         ADC   #$00F7
         TCS
         PLD
         RTL

L0227    PHD
         TSC
         SEC
         SBC   #$00F7
         TCD
         ADC   #$00EA
         TCS
         PEA   ^L082D
         PEA   L082D
         PEI   $FF
         PEI   $FD
         JSL   LB220
         PLY
         PLY
         PLY
         PLY
         STX   $F2
         STA   $F0
         STX   $F4
         ORA   $F4
         BEQ   L029A
         PEA   $0002
         PEA   $0000
         PEA   $0000
         PEI   $F2
         PEI   $F0
         JSL   LAE91
         PLY
         PLY
         PLY
         PLY
         PLY
         PEI   $F2
         PEI   $F0
         JSL   LB12B
         PLY
         PLY
         STX   $EE
         STA   $EC
         PEA   $0000
         PEA   $0000
         PEA   $0000
         PEI   $F2
         PEI   $F0
         JSL   LAE91
         PLY
         PLY
         PLY
         PLY
         PLY
         PEI   $F2
         PEI   $F0
         JSL   LBCE6
         PLY
         PLY
         LDX   $EE
         LDA   $EC
         BRA   L02A0
         BRA   L02A0
L029A    LDX   #$0000
         LDA   #$0000
L02A0    TAY
         TDC
         CLC
         ADC   #$00F7
         TCS
         TYA
         PLD
         RTL

L02AA    PHD
         TSC
         SEC
         SBC   #$00EF
         TCD
         ADC   #$00CE
         TCS
         PEI   $F7
         PEI   $F5
         JSL   L0227
         PLY
         PLY
         STX   $E6
         STA   $E4
         PEA   ^L082F
         PEA   L082F
         PEI   $F7
         PEI   $F5
         JSL   LB220
         PLY
         PLY
         PLY
         PLY
         STX   $D2
         STA   $D0
         LDX   #$0000
         LDA   #$0000
         PHX
         PHA
         LDX   $D2
         LDA   $D0
         JSL   LC7E7
         BNE   L02F1
         LDA   #$0000
         BRL   L046A
L02F1    PEI   $D2
         PEI   $D0
         PEA   $0001
         PEA   $0004
         PEA   $0000
         TDC
         CLC
         ADC   #$00E0
         PHA
         JSL   LAD13
         TAY
         TSC
         CLC
         ADC   #$000C
         TCS
         TYA
         PEI   $D2
         PEI   $D0
         PEA   $0001
         PEA   $0002
         PEA   $0000
         TDC
         CLC
         ADC   #$00EA
         PHA
         JSL   LAD13
         TAY
         TSC
         CLC
         ADC   #$000C
         TCS
         TYA
         LDX   $E6
         LDA   $E4
         PHX
         PHA
         LDX   $E2
         LDA   $E0
         CLC
         ADC   #$0004
         PHA
         TXA
         ADC   #$0000
         TAX
         PLA
         CLC
         ADC   #$0002
         PHA
         TXA
         ADC   #$0000
         TAX
         PLA
         JSL   LC7E7
         BEQ   L0365
         PEI   $D2
         PEI   $D0
         JSL   LBCE6
         PLY
         PLY
         LDA   #$0000
         BRL   L046A
L0365    PEA   $0000
         PEI   $E2
         PEI   $E0
         JSL   L01A5
         PLY
         PLY
         PLY
         STX   $DA
         STA   $D8
         LDX   #$0000
         LDA   #$0000
         PHX
         PHA
         LDX   $DA
         LDA   $D8
         JSL   LC7E7
         BNE   L038F
         LDA   #$0000
         BRL   L046A
L038F    LDA   $EA
         CMP   #$0064
         BCS   L03A4
         LDA   $EA
         PHA
         LDA   #$03E8
         CLC
         JSL   LC030
         PLA
         STA   $EA
L03A4    PEI   $DA
         PEI   $D8
         JSL   L01DD
         PLY
         PLY
         STX   $D6
         STA   $D4
         LDX   $E2
         LDA   $E0
         STX   $DE
         STA   $DC
L03BA    SEC
         LDA   $DC
         SBC   #$7530
         BNE   L03C9
         LDA   $DE
         SBC   #$0000
         BRA   L03D0
L03C9    LDA   $DE
         SBC   #$0000
         REP   #$02
L03D0    BEQ   L041C
         BCC   L041C
         PEI   $D2
         PEI   $D0
         PEA   $7530
         PEA   $0001
         PEI   $D6
         PEI   $D4
         JSL   LAD13
         TAY
         TSC
         CLC
         ADC   #$000C
         TCS
         TYA
         STA   $E8
         LDA   $E8
         LDX   #$0000
         PHX
         PHA
         LDX   $D6
         LDA   $D4
         JSL   LBCDB
         PLA
         PLX
         STX   $D6
         STA   $D4
         LDA   $E8
         LDX   #$0000
         PHX
         PHA
         LDX   $DE
         LDA   $DC
         JSL   LC025
         PLA
         PLX
         STX   $DE
         STA   $DC
         BRA   L03BA
L041C    PEI   $D2
         PEI   $D0
         LDX   $DE
         LDA   $DC
         PHA
         PEA   $0001
         PEI   $D6
         PEI   $D4
         JSL   LAD13
         TAY
         TSC
         CLC
         ADC   #$000C
         TCS
         TYA
         PEI   $D2
         PEI   $D0
         JSL   LBCE6
         PLY
         PLY
         PEI   $DA
         PEI   $D8
         JSL   L0207
         PLY
         PLY
         LDX   $DA
         LDA   $D8
         LDY   #$0002
         PHA
         TXA
         STA   [$F9],Y
         PLA
         STA   [$F9]
         LDX   $E2
         LDA   $E0
         LDY   #$0002
         PHA
         TXA
         STA   [$FD],Y
         PLA
         STA   [$FD]
         LDA   $EA
L046A    TAY
         TDC
         CLC
         ADC   #$00EF
         TCS
         TYA
         PLD
         RTL

L0474    PHD
         TSC
         SEC
         SBC   #$00ED
         TCD
         ADC   #$00D6
         TCS
         LDA   #L0831
         LDX   #^L0831
         STX   $DA
         STA   $D8
         LDX   #$0000
         LDA   #$0020
         PHX
         PHA
         LDA   $FF
         LDX   #$0000
         SEC
         JSL   LC075
         LDX   #$0000
         LDA   #$066D
         SEC
         JSL   LBF2F
         PLY
         PLY
         LDY   #$0006
         STA   [$D8],Y
         LDX   $F5
         LDA   $F3
         LDY   #$0002
         PHA
         TXA
         STA   [$D8],Y
         PLA
         STA   [$D8]
         LDA   $FD
         AND   #$00FF
         SEP   #$20
         LDY   #$0010
         STA   [$D8],Y
         REP   #$20
         LDX   $F9
         LDA   $F7
         PHX
         PHA
         LDX   #$0000
         LDA   #$0100
         CLC
         JSL   LBF2F
         PLY
         PLY
         LDY   #$0004
         STA   [$D8],Y
         LDA   $FB
         BEQ   L04F8
         LDX   $DA
         LDA   $D8
         LDY   #$000E
         PHA
         TXA
         STA   [$D8],Y
         PLA
         LDY   #$000C
         STA   [$D8],Y
         BRA   L050B
L04F8    LDX   #$0000
         LDA   #$0000
         LDY   #$000E
         PHA
         TXA
         STA   [$D8],Y
         PLA
         LDY   #$000C
         STA   [$D8],Y
L050B    LDY   #$0004
         LDA   [$D8],Y
         CMP   #$0000
         BEQ   L0518
         BRL   L05FA
L0518    LDX   $F9
         LDA   $F7
         STA   $E4
         PEA   $0000
         PEA   $0000
         PEA   $0100
         JSL   L01A5
         PLY
         PLY
         PLY
         STX   L0801
         STA   L07FF
         STX   $EA
         ORA   $EA
         BNE   L053D
         BRL   L05F4
L053D    LDX   L0801
         LDA   L07FF
         PHX
         PHA
         JSL   L01DD
         PLY
         PLY
         STX   $E2
         STA   $E0
         LDA   #$0100
         STA   $E6
L0554    LDA   $E6
         SEC
         SBC   $E4
         BEQ   L05B2
         BVS   L0560
         EOR   #$8000
L0560    BPL   L05B2
         LDY   #$0002
         LDA   [$D8],Y
         TAX
         LDA   [$D8]
         STX   $DE
         STA   $DC
         STZ   $E8
         BRA   L059D
L0572    LDX   $DE
         LDA   $DC
         INC   $DC
         BNE   L057C
         INC   $DE
L057C    STA   $EA
         STX   $EC
         LDA   [$EA]
         AND   #$00FF
         PHA
         LDX   $E2
         LDA   $E0
         INC   $E0
         BNE   L0590
         INC   $E2
L0590    STA   $EA
         STX   $EC
         PLA
         SEP   #$20
         STA   [$EA]
         REP   #$20
         INC   $E8
L059D    LDA   $E8
         SEC
         SBC   $E4
         BVS   L05A7
         EOR   #$8000
L05A7    BPL   L0572
         LDA   $E6
         SEC
         SBC   $E4
         STA   $E6
         BRA   L0554
L05B2    LDA   $E6
         DEC   $E6
         TAY
         BEQ   L05D2
         LDX   $E2
         LDA   $E0
         INC   $E0
         BNE   L05C3
         INC   $E2
L05C3    STA   $EA
         STX   $EC
         LDA   #$0000
         SEP   #$20
         STA   [$EA]
         REP   #$20
         BRA   L05B2
L05D2    LDX   L0801
         LDA   L07FF
         PHX
         PHA
         JSL   L01DD
         PLY
         PLY
         LDY   #$0002
         PHA
         TXA
         STA   [$D8],Y
         PLA
         STA   [$D8]
         LDA   #$0001
         LDY   #$0004
         STA   [$D8],Y
         BRA   L05FA
L05F4    LDA   #$0000
         BRL   L067A
L05FA    LDA   #$0000
         LDY   #$0008
         STA   [$D8],Y
         LDAL  L080F
         LDY   #$000A
         STA   [$D8],Y
         PEA   $0001
         PEI   $DA
         PEI   $D8
         _FFStartSound
         STAL  L013C
         LDA   $FB
         BEQ   L0624
         BRL   L067A
L0624    PHA
         PEA   $0000
         _FFSoundDoneStatus
         STAL  L013C
         PLA
         TAY
         BNE   L0639
         BRA   L0624
L0639    PEA   $0001
         _FFStopSound
         STAL  L013C
         LDX   L0801
         LDA   L07FF
         STX   $EA
         ORA   $EA
         BEQ   L067A
         LDX   L0801
         LDA   L07FF
         PHX
         PHA
         JSL   L0207
         PLY
         PLY
         LDX   L0801
         LDA   L07FF
         PHX
         PHA
         _DisposeHandle
         STAL  L013C
         STZ   L07FF
         STZ   L0801
L067A    TAY
         TDC
         CLC
         ADC   #$00ED
         TCS
         TYA
         PLD
         RTL

L0684    PHD
         TSC
         SEC
         SBC   #$00FB
         TCD
         ADC   #$00F6
         TCS
         PEA   $0001
         _FFStopSound
         STAL  L013C
         LDX   L0801
         LDA   L07FF
         STX   $F8
         ORA   $F8
         BEQ   L06D0
         LDX   L0801
         LDA   L07FF
         PHX
         PHA
         JSL   L0207
         PLY
         PLY
         LDX   L0801
         LDA   L07FF
         PHX
         PHA
         _DisposeHandle
         STAL  L013C
         STZ   L07FF
         STZ   L0801
L06D0    _SoundShutDown
         STAL  L013C
         LDX   L07FD
         LDA   L07FB
         PHX
         PHA
         JSL   L01DD
         PLY
         PLY
         PHA
         _SoundStartUp
         STAL  L013C
         TDC
         CLC
         ADC   #$00FB
         TCS
         PLD
         RTL

L06FD    PHD
         TSC
         SEC
         SBC   #$00FB
         TCD
         ADC   #$00F6
         TCS
         JSL   GSOS
         DW    $0029      ; Quit
         ADRL  L0805
         BRK   $F0
         TDC
         CLC
         ADC   #$00FB
         TCS
         PLD
         RTL

L071C    PHD
         TSC
         SEC
         SBC   #$00EF
         TCD
         ADC   #$00EA
         TCS
         PEI   $F7
         PEI   $F5
         JSL   L01DD
         PLY
         PLY
         PEI   $FF
         PEA   $00FF
         PEI   $FD
         PEI   $FB
         PEI   $F9
         LDY   #$0002
         LDA   [$F5],Y
         TAX
         LDA   [$F5]
         PHX
         PHA
         JSL   L0474
         TAY
         TSC
         CLC
         ADC   #$000E
         TCS
         TYA
         PEI   $F7
         PEI   $F5
         JSL   L0207
         PLY
         PLY
         TDC
         CLC
         ADC   #$00EF
         TCS
         PLD
         RTL

L0764    PHD
         TSC
         SEC
         SBC   #$00EB
         TCD
         ADC   #$00E6
         TCS
         PEI   $FB
         PEI   $F9
         PEI   $F7
         PEI   $F5
         PEI   $F3
         PEI   $F1
         JSL   L02AA
         TAY
         TSC
         CLC
         ADC   #$000C
         TCS
         TYA
         STA   [$FD]
         TDC
         CLC
         ADC   #$00EB
         TCS
         PLD
         RTL

L0791    PHD
         TSC
         SEC
         SBC   #$00F9
         TCD
         ADC   #$00F4
         TCS
         LDA   $FF
         STA   L0803
         PEA   $C005
         PEA   $0000
         PEA   $0100
         JSL   L01A5
         PLY
         PLY
         PLY
         STX   L07FD
         STA   L07FB
         LDX   L07FD
         LDA   L07FB
         PHX
         PHA
         JSL   L01DD
         PLY
         PLY
         PHA
         _SoundStartUp
         STAL  L013C
         TDC
         CLC
         ADC   #$00F9
         TCS
         PLD
         RTL

L07D9    PHD
         TSC
         SEC
         SBC   #$00F7
         TCD
         ADC   #$00F2
         TCS
         PEI   $FF
         PEI   $FD
         _DisposeHandle
         STAL  L013C
         TDC
         CLC
         ADC   #$00F7
         TCS
         PLD
         RTL

L07FB    DB    $00
         DB    $00
L07FD    DB    $00
         DB    $00
L07FF    DB    $00
         DB    $00
L0801    DB    $00
         DB    $00
L0803    DB    $00
         DB    $00
L0805    ADRL  $00000000  ;  path name
         DW    $0000      ;  flags
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L080F    DB    $2D
         DB    $00
         DB    $2D
         DB    $00
         DB    $2D
         DB    $00
         DB    $2D
         DB    $00
         DB    $24
         DB    $00
         DB    $24
         DB    $00
         DB    $24
         DB    $00
         DB    $24
         DB    $00
         DB    $1B
         DB    $00
         DB    $1B
         DB    $00
         DB    $1B
         DB    $00
         DB    $1B
         DB    $00
         DB    $1B
         DB    $00
         DB    $1B
         DB    $00
         DB    $1B
         DB    $00
L082D    DB    $72
         DB    $00
L082F    DB    $72
         DB    $00
L0831    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00

L0842    REP   #$30
         SEP   #$20
         PLA
         STA   L0E72
         REP   #$20
         PLA
         STA   L0E73
         PHK
         PLB
         JSR   L090B
         BCS   L0888

* It was the call to the protection...
*         LDA   L0E7B
*         JSL   L6F71

         LDA   L0E7B
         PHA
         JSL   L0791
         PLA
         LDA   #L0EC7
         STA   L0EDB
         LDA   #^L0EC7
         STA   L0EDD
         JSR   L73D0
         LDA   #L0EA7
         STA   L0EDB
         LDA   #^L0EA7
         STA   L0EDD
         JSR   L813E
         JMP   L0A02

L0888    REP   #$30
         _FMShutDown
         _SoundShutDown
         _WindShutDown
         _CtlShutDown
         _DialogShutDown
         _EMShutDown
         _LEShutDown
         _QDShutDown
         _QDAuxShutDown
         _GrafOff
         _MTShutDown
         _TextShutDown
         LDA   L0E7B
         PHA
         _DisposeAll
         LDA   L0E7B
         PHA
         _MMShutDown
         _TLShutDown
         LDA   L0E73
         PHA
         PHB
         LDA   L0E72
         STA   $01,S
         RTL

L0906    JSL   L0842
         RTL

L090B    _TLStartUp
         PEA   $0000
         _MMStartUp
         PLA
         STA   L0E7B
         _MTStartUp
         PEA   $0000
         PEA   $0000
         PEA   $0000
         PEA   $0800
         LDA   L0E7B
         PHA
         PEA   $C005
         PEA   $0000
         PEA   $0000
         _NewHandle
         PLA
         STA   $00
         PLA
         STA   $02
         LDA   [$00]
         STA   $04
         PHA
         PEA   $0000
         PEA   $00A0
         LDA   L0E7B
         PHA
         _QDStartUp
         LDA   $04
         CLC
         ADC   #$0300
         STA   $04
         PHA
         PEA   $0014
         PEA   $0000
         PEA   $0140
         PEA   $0000
         PEA   $00C8
         LDA   L0E7B
         PHA
         _EMStartUp
         PEA   ^L0E7D
         PEA   L0E7D
         _LoadTools
         LDA   L0E7B
         PHA
         _WindStartUp
         PEA   $0000
         PEA   $0000
         _RefreshDesktop
         LDA   L0E7B
         PHA
         LDA   $04
         CLC
         ADC   #$0100
         STA   $04
         PHA
         _CtlStartUp
         LDA   L0E7B
         PHA
         LDA   $04
         CLC
         ADC   #$0100
         STA   $04
         PHA
         _LEStartUp
         LDA   L0E7B
         PHA
         _DialogStartUp
         _QDAuxStartUp
         LDA   L0E7B
         PHA
         LDA   $04
         CLC
         ADC   #$0100
         STA   $04
         PHA
         _FMStartUp
         _TextStartUp
         CLC
         RTS

L0A02    LDA   #L0EA7
         STA   L0EDB
         LDA   #^L0EA7
         STA   L0EDD
         JSR   L813E
         LDA   #$0001
         STA   L0E75
         STZ   L0E77
         STZ   L0ED9
         JSR   L7BB4
         LDA   L0EDB
         STA   L0D68
         LDA   #$0000
         STA   L0EDB
         JSR   L7BC1
         JSR   L7625
         LDA   L0EDB
         STA   L1017
         LDA   L0EDD
         STA   L1019
         JSR   L7401
         LDA   L0EDB
         STA   L101B
         LDA   L0EDD
         STA   L101D
         JSR   L7AA1
         LDA   #L0F77
         STA   L0EDB
         LDA   #^L0F77
         STA   L0EDD
         JSR   L73D0
         LDA   #L0DE0
         STA   L0EDB
         LDA   #^L0DE0
         STA   L0EDD
         LDA   #$0001
         STA   L0EDF
         LDA   #$000E
         STA   L0EE3
         LDA   #L101F
         STA   L0EE7
         LDA   #^L101F
         STA   L0EE9
         JSR   L80FA
         LDA   #L0DE7
         STA   L0EDB
         LDA   #^L0DE7
         STA   L0EDD
         STZ   L0EDF
         LDA   #$0012
         STA   L0EE3
         LDA   #L1023
         STA   L0EE7
         LDA   #^L1023
         STA   L0EE9
         JSR   L80FA
         BRA   L0AAF
L0AAC    JMP   L0D59

L0AAF    JSR   L781C
         JSR   L10E4
         JSR   L774D
         BCS   L0AAC
         LDA   L0EDB
         STA   L0F67
         LDA   L0EDD
         STA   L0F69
         LDA   L0EDF
         STA   L1007
         LDA   L0EE1
         STA   L1009
         JSR   L774D
         BCS   L0AAC
         LDA   L0EDB
         STA   L0F6B
         LDA   L0EDD
         STA   L0F6D
         LDA   L0EDF
         STA   L100B
         LDA   L0EE1
         STA   L100D
         JSR   L774D
         BCS   L0AAC
         LDA   L0EDB
         STA   L0F6F
         LDA   L0EDD
         STA   L0F71
         LDA   L0EDF
         STA   L100F
         LDA   L0EE1
         STA   L1011
         JSR   L774D
         BCS   L0B2B
         LDA   L0EDB
         STA   L0F73
         LDA   L0EDD
         STA   L0F75
         LDA   L0EDF
         STA   L1013
         LDA   L0EE1
         STA   L1015
         BRA   L0B31
L0B2B    JSR   L74E9
         JMP   L0D59

L0B31    LDA   #L0F0D
         STA   L0EDB
         LDA   #^L0F0D
         STA   L0EDD
         LDA   #L0F03
         STA   L0EDF
         LDA   #^L0F03
         STA   L0EE1
         LDA   #L0F07
         STA   L0EE3
         LDA   #^L0F07
         STA   L0EE5
         LDA   #L0F0B
         STA   L0EE7
         LDA   #^L0F0B
         STA   L0EE9
         JSR   L86BB
         LDA   #L0E0E
         STA   L0EDB
         LDA   #^L0E0E
         STA   L0EDD
         LDA   #L0DFA
         STA   L0EDF
         LDA   #^L0DFA
         STA   L0EE1
         LDA   #L0DFE
         STA   L0EE3
         LDA   #^L0DFE
         STA   L0EE5
         LDA   #L0E02
         STA   L0EE7
         LDA   #^L0E02
         STA   L0EE9
         JSR   L86BB
         LDA   #L0E4C
         STA   L0EDB
         LDA   #^L0E4C
         STA   L0EDD
         LDA   #L0DF0
         STA   L0EDF
         LDA   #^L0DF0
         STA   L0EE1
         LDA   #L0DF4
         STA   L0EE3
         LDA   #^L0DF4
         STA   L0EE5
         LDA   #L0DF8
         STA   L0EE7
         LDA   #^L0DF8
         STA   L0EE9
         JSR   L86BB
         LDA   #L0E2D
         STA   L0EDB
         LDA   #^L0E2D
         STA   L0EDD
         LDA   #L0E04
         STA   L0EDF
         LDA   #^L0E04
         STA   L0EE1
         LDA   #L0E08
         STA   L0EE3
         LDA   #^L0E08
         STA   L0EE5
         LDA   #L0E0C
         STA   L0EE7
         LDA   #^L0E0C
         STA   L0EE9
         JSR   L86BB
         LDA   #L0DB9
         STA   L0EDB
         LDA   #^L0DB9
         STA   L0EDD
         LDA   L1007
         STA   L0EDF
         LDA   L1009
         STA   L0EE1
         LDA   #L0F87
         STA   L0EE3
         LDA   #^L0F87
         STA   L0EE5
         JSR   L7860
         LDA   #L0D6A
         STA   L0EDB
         LDA   #^L0D6A
         STA   L0EDD
         LDA   L100B
         STA   L0EDF
         LDA   L100D
         STA   L0EE1
         LDA   #L0FA7
         STA   L0EE3
         LDA   #^L0FA7
         STA   L0EE5
         JSR   L7860
         LDA   #L0D92
         STA   L0EDB
         LDA   #^L0D92
         STA   L0EDD
         LDA   L100F
         STA   L0EDF
         LDA   L1011
         STA   L0EE1
         LDA   #L0FC7
         STA   L0EE3
         LDA   #^L0FC7
         STA   L0EE5
         JSR   L7860
         LDA   L0F03
         STA   L0EDB
         LDA   L0F05
         STA   L0EDD
         LDA   L0F07
         STA   L0EDF
         LDA   L0F09
         STA   L0EE1
         LDA   #$0001
         STA   L0EE3
         LDA   L0F0B
         STA   L0EE7
         JSR   L86E8
         JMP   L0C9F
         JMP   L0D59

L0C9F    LDA   #$0000
         STA   L0EDB
         LDA   #L0F87
         STA   L0EDF
         LDA   #^L0F87
         STA   L0EE1
         LDA   L1007
         STA   L0EE3
         LDA   L1009
         STA   L0EE5
         JSR   L7F5D
         LDA   #$0003
         STA   L0EDB
         JSR   L7D0C
         LDA   L0F03
         STA   L0EDB
         LDA   L0F05
         STA   L0EDD
         LDA   L0F07
         STA   L0EDF
         LDA   L0F09
         STA   L0EE1
         LDA   #$0001
         STA   L0EE3
         LDA   L0F0B
         STA   L0EE7
         JSR   L86E8
         LDA   #$0000
         STA   L0EDB
         LDA   #L0FA7
         STA   L0EDF
         LDA   #^L0FA7
         STA   L0EE1
         LDA   L100B
         STA   L0EE3
         LDA   L100D
         STA   L0EE5
         JSR   L7F5D
         LDA   #$0003
         STA   L0EDB
         JSR   L7D0C
         LDA   #$0000
         STA   L0EDB
         LDA   #L0FC7
         STA   L0EDF
         LDA   #^L0FC7
         STA   L0EE1
         LDA   L100F
         STA   L0EE3
         LDA   L1011
         STA   L0EE5
         JSR   L7F5D
         LDA   #$0005
         STA   L0EDB
         JSR   L7D0C
         JSR   L870D
         LDA   L0F03
         STA   L0EDB
         LDA   L0F05
         STA   L0EDD
         JSR   L1038
         JMP   L1166

L0D59    JSR   L784E
         LDA   L0D68
         STA   L0EDB
         JSR   L7BC1
         JMP   L0888

L0D68    DB    $00
         DB    $00
L0D6A    STR   '1/america.pics/title88a.pcn'
L0D92    STR   '1/america.pics/credits.pcn'
L0DB9    STR   '1/america.pics/unicorn.pcn'
L0DE0    STR   'Geneva'
L0DE7    STR   'New York'
L0DF0    DB    $00
         DB    $00
L0DF2    DB    $00
         DB    $00
L0DF4    DB    $00
         DB    $00
L0DF6    DB    $00
         DB    $00
L0DF8    DB    $00
         DB    $00
L0DFA    DB    $00
         DB    $00
L0DFC    DB    $00
         DB    $00
L0DFE    DB    $00
         DB    $00
L0E00    DB    $00
         DB    $00
L0E02    DB    $00
         DB    $00
L0E04    DB    $00
         DB    $00
L0E06    DB    $00
         DB    $00
L0E08    DB    $00
         DB    $00
L0E0A    DB    $00
         DB    $00
L0E0C    DB    $00
         DB    $00
L0E0E    ASC   '1/magic.snd/fsbell'00
L0E2D    ASC   '1/magic.snd/fsgood'00
L0E4C    ASC   '1/magic.snd/fsbad'00
L0E6A    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $C8
         DB    $00
         DB    $40
         DB    $01
L0E72    DB    $00
L0E73    DB    $00
         DB    $00
L0E75    DB    $00
         DB    $00
L0E77    DB    $00
         DB    $00
         DB    $00
         DB    $00
L0E7B    DB    $00
         DB    $00
L0E7D    DW    $000A      ; number of tools
         DW    $0004      ; quickdraw II
         DW    $0100
         DW    $0006      ; event manager
         DW    $0100
         DW    $000E      ; window manager
         DW    $0100
         DW    $0010      ; control manager
         DW    $0100
         DW    $0015      ; dialog manager
         DW    $0100
         DW    $0012      ; quickdraw II aux
         DW    $0100
         DW    $0008      ; sound tool set
         DW    $0100
         DW    $0014      ; lineedit tool set
         DW    $0100
         DW    $001B      ; font manager
         DW    $0100
         DW    $000C      ; text tool set
         DW    $0100
L0EA7    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L0EC7    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L0ED9    DB    $00
         DB    $00
L0EDB    DB    $00        ;  device name
         DB    $00
L0EDD    DB    $00        ;  ref num
         DB    $00
L0EDF    DB    $00        ;  volume name
         DB    $00
L0EE1    DB    $00        ;  file type
         DB    $00
L0EE3    DB    $00        ;  total blocks
         DB    $00
L0EE5    DB    $00
         DB    $00
L0EE7    DB    $00        ;  free blocks
         DB    $00
L0EE9    DB    $00        ;  creation date
         DB    $00
L0EEB    DB    $00        ;  file system
         DB    $00
L0EED    DB    $00        ;  modification date
         DB    $00
L0EEF    DB    $00
         DB    $00
L0EF1    DB    $00        ;  blocks used
         DB    $00
L0EF3    DB    $00
         DB    $00
L0EF5    DB    $00
         DB    $00
L0EF7    DB    $00
         DB    $00
L0EF9    DB    $00
         DB    $00
L0EFB    DB    $00
L0EFC    DB    $00
L0EFD    DB    $00
         DB    $00
L0EFF    DB    $00
         DB    $00
L0F01    DB    $00
         DB    $00
L0F03    DB    $00
         DB    $00
L0F05    DB    $00
         DB    $00
L0F07    DB    $00
         DB    $00
L0F09    DB    $00
         DB    $00
L0F0B    DB    $00
         DB    $00
L0F0D    ASC   '1/magic.snd/song1'00
L0F2B    DB    $00
         DB    $00
L0F2D    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L0F3B    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L0F67    DB    $00
         DB    $00
L0F69    DB    $00
         DB    $00
L0F6B    DB    $00
         DB    $00
L0F6D    DB    $00
         DB    $00
L0F6F    DB    $00
         DB    $00
L0F71    DB    $00
         DB    $00
L0F73    DB    $00
         DB    $00
L0F75    DB    $00
         DB    $00
L0F77    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L0F87    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L0FA7    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L0FC7    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L0FE7    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L1007    DB    $00
         DB    $00
L1009    DB    $00
         DB    $00
L100B    DB    $00
         DB    $00
L100D    DB    $00
         DB    $00
L100F    DB    $00
         DB    $00
L1011    DB    $00
         DB    $00
L1013    DB    $00
         DB    $00
L1015    DB    $00
         DB    $00
L1017    DB    $00
         DB    $00
L1019    DB    $00
         DB    $00
L101B    DB    $00
         DB    $00
L101D    DB    $00
         DB    $00
L101F    DB    $00
         DB    $00
         DB    $00
         DB    $00
L1023    DB    $00
         DB    $00
         DB    $00
         DB    $00
L1027    REP   #$30
         STZ   L0E77
         LDA   L0E75
         BEQ   L1037
         JSR   L86BB
         INC   L0E77
L1037    RTS

L1038    REP   #$30
         LDA   L0E77
         BEQ   L1042
         JSR   L8714
L1042    RTS

L1043    REP   #$30
         LDA   L0E77
         BEQ   L1056
         LDA   L0EE3
         STA   L0EE7
         STZ   L0EE3
         JSR   L86E8
L1056    RTS

         REP   #$30
         LDA   L0E75
         BEQ   L1062
         STZ   L0E75
         RTS

L1062    INC   L0E75
         RTS

L1066    REP   #$30
         JSR   L870D
         LDA   L0DF0
         STA   L0EDB
         LDA   L0DF2
         STA   L0EDD
         LDA   L0DF4
         STA   L0EDF
         LDA   L0DF6
         STA   L0EE1
         STZ   L0EE3
         LDA   L0DF8
         STA   L0EE7
         JSR   L86E8
         RTS

L1090    REP   #$30
         JSR   L870D
         LDA   L0E04
         STA   L0EDB
         LDA   L0E06
         STA   L0EDD
         LDA   L0E08
         STA   L0EDF
         LDA   L0E0A
         STA   L0EE1
         STZ   L0EE3
         LDA   L0E0C
         STA   L0EE7
         JSR   L86E8
         RTS

L10BA    REP   #$30
         JSR   L870D
         LDA   L0DFA
         STA   L0EDB
         LDA   L0DFC
         STA   L0EDD
         LDA   L0DFE
         STA   L0EDF
         LDA   L0E00
         STA   L0EE1
         STZ   L0EE3
         LDA   L0E02
         STA   L0EE7
         JSR   L86E8
         RTS

L10E4    JSR   L7444
         LDA   #$9999
         STA   L0EDB
         JSR   L7682
         LDA   #$0004
         STA   L0EDB
         JSR   L7BA6
         LDA   #$0007
         STA   L0EDB
         LDA   #$0009
         STA   L0EDF
         JSR   L7AFE
         LDA   #$0000
         STA   L0EDB
         LDA   #$0000
         STA   L0EDD
         LDA   #$0004
         STA   L0EDF
         LDA   #$0000
         STA   L0EE1
         JSR   L869B
         JSR   L8671
         JSR   LAA58
         LDA   #L1157
         STA   L0EDB
         LDA   #^L1157
         STA   L0EDD
         LDA   #$0064
         STA   L0EDF
         JSR   L7A4E
         LDA   #$0000
         STA   L0EDB
         LDA   #L0EA7
         STA   L0EDF
         LDA   #^L0EA7
         STA   L0EE1
         JSR   L76CD
         JSR   L80DA
         RTS

L1157    ASC   'PLEASE WAIT...'00

L1166    REP   #$30
L1168    JSR   L870D
         JSR   L3E83
         JSR   LAA9F
         CMP   #$0001
         BEQ   L1181
         CMP   #$0002
         BNE   L117E
         JMP   L1321
L117E    JMP   L0D59

L1181    JSR   L3E83
         LDA   #L1CA2
         STA   L0EDB
         LDA   #^L1CA2
         STA   L0EDD
         LDA   L1013
         STA   L0EDF
         LDA   L1015
         STA   L0EE1
         LDA   #L0FE7
         STA   L0EE3
         LDA   #^L0FE7
         STA   L0EE5
         JSR   L7860
         LDA   #L8CCA
         STA   L0EDB
         LDA   #^L8CCA
         STA   L0EDD
         LDA   #L8CE8
         STA   L0EDF
         LDA   #^L8CE8
         STA   L0EE1
         LDA   #L8CEC
         STA   L0EE3
         LDA   #^L8CEC
         STA   L0EE5
         LDA   #L8CF0
         STA   L0EE7
         LDA   #^L8CF0
         STA   L0EE9
         JSR   L1027
         JSR   L80DA
         LDA   L1013
         STA   L0EDB
         LDA   L1015
         STA   L0EDD
         JSR   L7419
         LDA   #L2113
         STA   L0EDB
         LDA   #^L2113
         STA   L0EDD
         LDA   #$000F
         STA   L0EDF
         JSR   L763D
         LDA   #$0001
         STA   L0EDB
         JSR   L13A6
         LDA   #L1FD0
         STA   L0EDB
         LDA   #^L1FD0
         STA   L0EDD
         LDA   #$00C0
         STA   L0EDF
         JSR   L7A4E
         JSR   L13B2
         JSR   L7444
         LDA   #$0000
         STA   L0EDB
         LDA   #L0FE7
         STA   L0EDF
         LDA   #^L0FE7
         STA   L0EE1
         LDA   L1013
         STA   L0EE3
         LDA   L1015
         STA   L0EE5
         JSR   L7F5D
         LDA   L8CE8
         STA   L0EDB
         LDA   L8CEA
         STA   L0EDD
         LDA   L8CEC
         STA   L0EDF
         LDA   L8CEE
         STA   L0EE1
         LDA   L8CF0
         STA   L0EE3
         JSR   L1043
         JSR   L7664
         STZ   L1FEB
L1271    JSR   L7FB9
         JSR   L74D0
         CMP   #$001B
         BNE   L127F
         JMP   L1168

L127F    LDA   L0EDB
         BEQ   L1271
         JSR   L7468
         LDA   #L1FED
         STA   L0EE3
         LDA   #^L1FED
         STA   L0EE5
         LDA   #$0011
         STA   L0EE7
         JSR   L7BD2
         LDA   L0EEB
         BEQ   L1271
         STA   L1FEB
L12A4    LDA   L1FEB
         STA   L0EDB
         JSR   L3C32
         LDA   #$0001
         STA   L0EDB
         JSR   L7D0C
L12B6    JSR   L7FB9
         JSR   L74D0
         CMP   #$001B
         BNE   L12C4
         JMP   L1168

L12C4    LDA   L0EDB
         BEQ   L12B6
         JSR   L7468
         LDA   #L1FED
         STA   L0EE3
         LDA   #^L1FED
         STA   L0EE5
         LDA   #$0011
         STA   L0EE7
         JSR   L7BD2
         LDA   L0EEB
         BEQ   L12B6
         CMP   L1FEB
         BEQ   L12F1
         STA   L1FEB
         JMP   L12A4

L12F1    JSR   L766E
         LDA   L8CE8
         STA   L0EDB
         LDA   L8CEA
         STA   L0EDD
         JSR   L1038
         _CompactMem
         LDA   L1FEB
         CMP   #$0011
         BEQ   L1318
         JSR   L3EA1
         LDA   L1FEB
L1318    DEC
         ASL
         TAX
         JMP   (L207D,X)
L131E    JMP   L1168

L1321    JSR   LA75F
         CMP   #$001B
         BNE   L132C
         JMP   L131E

L132C    CMP   #$0001
         BNE   L1334
         JMP   L42BB

L1334    CMP   #$0002
         BNE   L133C
         JMP   L435F

L133C    CMP   #$0003
         BNE   L1321
         JMP   L4409

L1344    REP   #$30
         JSR   L7FB9
         JSR   L13B2
         JSR   L7678
L134F    JSR   L74D0
         CMP   #$001B
         BNE   L135D
         STA   L0EFB
         JMP   L139F

L135D    CMP   #$0000
         BEQ   L136B
         ORA   #$0020
         STA   L0EFB
         JMP   L139F

L136B    LDA   L0EDB
         BNE   L1373
         JMP   L134F

L1373    JSR   L7468
         LDA   #L206D
         STA   L0EE3
         LDA   #^L206D
         STA   L0EE5
         LDA   #$0001
         STA   L0EE7
         JSR   L7BD2
         LDA   L0EEB
         BEQ   L1399
         LDA   #$001B
         STA   L0EFB
         JMP   L139F

L1399    LDA   #$0001
         STA   L0EFB
L139F    JSR   L766E
         LDA   L0EFB
         RTS

L13A6    REP   #$30
         LDA   L0EDB
         STA   L209F
         JSR   L7A32
         RTS

L13B2    REP   #$30
         JSR   LAA58
         LDA   #L206D
         STA   L0EDB
         LDA   #^L206D
         STA   L0EDD
         LDA   #$0001
         STA   L0EDF
         JSR   L763D
         LDA   #L2075
         STA   L0EDB
         LDA   #^L2075
         STA   L0EDD
         LDA   #$0000
         STA   L0EDF
         JSR   L763D
         LDA   #$0001
         STA   L0EDB
         LDA   #$0000
         STA   L0EDF
         JSR   L7AFE
         LDA   #$0135
         STA   L0EDB
         LDA   #$00C4
         STA   L0EDF
         JSR   L7998
         LDA   #L1FCE
         STA   L0EDB
         LDA   #^L1FCE
         STA   L0EDD
         JSR   L79D1
         JSR   L80DA
         RTS

L1412    REP   #$30
         LDA   L0EDF
         STA   L0EE3
         LDA   L0EE1
         STA   L0EE5
         LDA   #L20EB
         STA   L0EDF
         LDA   #^L20EB
         STA   L0EE1
         LDA   #L210B
         STA   L0EE7
         LDA   #^L210B
         STA   L0EE9
         LDA   #$0000
         STA   L0EEB
         JSR   L7D6E
         RTS

L1442    REP   #$30
         LDA   L0EDF
         STA   L0EE3
         LDA   L0EE1
         STA   L0EE5
         LDA   #L20F3
         STA   L0EDF
         LDA   #^L20F3
         STA   L0EE1
         LDA   #L210B
         STA   L0EE7
         LDA   #^L210B
         STA   L0EE9
         LDA   #$0000
         STA   L0EEB
         JSR   L7D6E
         RTS

L1472    REP   #$30
         LDA   L0EDB
         STA   L1563
         JSR   L7444
         LDA   #$0000
         STA   L20A3
         LDA   L20CB
         STA   L20E7
         LDA   L20CD
         STA   L20E9
         JSR   L7B0D
         LDA   L0EDB
         STA   L1565
         LDA   #$2000
         STA   L0EDB
         LDA   #$00E1
         STA   L0EDD
         LDA   L100B
         STA   L0EDF
         LDA   L100D
         STA   L0EE1
         JSR   L7613
         LDA   #$0000
         STA   L0EDB
         LDA   #L1567
         STA   L0EDF
         LDA   #^L1567
         STA   L0EE1
         JSR   L76E3
L14C8    LDA   #$0000
         STA   L0EDB
         JSR   L7EE0
         LDA   #$0000
         STA   L0EDB
         JSR   L7682
         LDA   #$0009
         STA   L0EDB
         JSR   L7A32
         LDA   #$0000
         STA   L0EDB
         LDA   #L0EA7
         STA   L0EDF
         LDA   #^L0EA7
         STA   L0EE1
         JSR   L76CD
         JSR   LAA58
         LDA   #$2000
         STA   L0EDB
         LDA   #$00E1
         STA   L0EDD
         LDA   #$000C
         STA   L0EDF
         JSR   L1BB4
         LDA   #L1589
         STA   L0EDB
         LDA   #^L1589
         STA   L0EDD
         LDA   #$00C4
         STA   L0EDF
         JSR   L7A4E
         JSR   L1344
         CMP   #$001B
         BNE   L1530
         JMP   L1538

L1530    DEC   L1563
         BEQ   L1538
         JMP   L14C8

L1538    LDA   #$0000
         STA   L0EDB
         LDA   #L1567
         STA   L0EDF
         LDA   #^L1567
         STA   L0EE1
         LDA   L100B
         STA   L0EE3
         LDA   L100D
         STA   L0EE5
         JSR   L7F5D
         LDA   L1565
         STA   L0EDB
         JSR   L7A32
         RTS

L1563    DB    $00
         DB    $00
L1565    DB    $00
         DB    $00
L1567    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L1589    ASC   'Click the mouse to continue.'00
L15A6    REP   #$30
         LDA   #$0009
         STA   L1697
         JSR   L7444
         LDA   #$0000
         STA   L20A3
         LDA   L20E3
         STA   L20E7
         LDA   L20E5
         STA   L20E9
         JSR   L7B0D
         LDA   L0EDB
         STA   L1699
         LDA   #$2000
         STA   L0EDB
         LDA   #$00E1
         STA   L0EDD
         LDA   L100B
         STA   L0EDF
         LDA   L100D
         STA   L0EE1
         JSR   L7613
         LDA   #$0000
         STA   L0EDB
         LDA   #L169B
         STA   L0EDF
         LDA   #^L169B
         STA   L0EE1
         JSR   L76E3
L15FC    LDA   #$0000
         STA   L0EDB
         JSR   L7EE0
         LDA   #$0000
         STA   L0EDB
         JSR   L7682
         LDA   #$0009
         STA   L0EDB
         JSR   L7A32
         LDA   #$0000
         STA   L0EDB
         LDA   #L0EA7
         STA   L0EDF
         LDA   #^L0EA7
         STA   L0EE1
         JSR   L76CD
         JSR   LAA58
         LDA   #$2000
         STA   L0EDB
         LDA   #$00E1
         STA   L0EDD
         LDA   #$000C
         STA   L0EDF
         JSR   L1BB4
         LDA   #L16BD
         STA   L0EDB
         LDA   #^L16BD
         STA   L0EDD
         LDA   #$00C4
         STA   L0EDF
         JSR   L7A4E
         JSR   L1344
         CMP   #$001B
         BNE   L1664
         JMP   L166C

L1664    DEC   L1697
         BEQ   L166C
         JMP   L15FC

L166C    LDA   #$0000
         STA   L0EDB
         LDA   #L169B
         STA   L0EDF
         LDA   #^L169B
         STA   L0EE1
         LDA   L100B
         STA   L0EE3
         LDA   L100D
         STA   L0EE5
         JSR   L7F5D
         LDA   L1699
         STA   L0EDB
         JSR   L7A32
         RTS

L1697    DB    $00
         DB    $00
L1699    DB    $00
         DB    $00
L169B    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L16BD    ASC   'Click the mouse to continue.'00
L16DA    REP   #$30
         LDA   #L22CF
         STA   $00
         LDA   #^L22CF
         STA   $02
         LDA   L0EDB
         DEC
         ASL
         ASL
         TAY
         LDA   [$00],Y
         STA   L0EDB
         INY
         INY
         LDA   [$00],Y
         STA   L0EDD
         LDA   L0EDD
         PHA
         LDA   L0EDB
         PHA
         JSR   L77BF
         LDA   L0EFF
         STA   L0EDB
         LDA   L0F01
         STA   L0EDD
         LDA   #$0200
         STA   L0EDF
         LDA   #$0000
         STA   L0EE1
         JSR   L74FC
         LDA   L0EE5
         PHA
         LDA   L0EE3
         PHA
         LDA   L0EE3
         STA   L0EDB
         LDA   L0EE5
         STA   L0EDD
         LDA   #$C000
         STA   L0EDF
         JSR   L76F9
         LDA   L0EE3
         STA   L20BF
         LDA   L0EE5
         STA   L20C1
         LDA   L0EE7
         STA   L20C3
         LDA   L0EE9
         STA   L20C5
         PLA
         STA   L0EFF
         PLA
         STA   L0F01
         PLA
         STA   L0EDB
         PLA
         STA   L0EDD
         JSR   L7780
         LDA   L0EDF
         PHA
         LDA   L0EDF
         STA   L0EDB
         LDA   L20C3
         STA   L0EDF
         LDA   L20C5
         STA   L0EE1
         LDA   L0EFF
         STA   L0EE3
         LDA   L0F01
         STA   L0EE5
         JSR   L779F
         PLA
         STA   L0EDB
         JSR   L77B2
         RTS

L1794    REP   #$30
         LDA   #L281D
         STA   $00
         LDA   #^L281D
         STA   $02
         LDA   L0EDB
         DEC
         ASL
         ASL
         TAY
         LDA   [$00],Y
         STA   L0EDB
         INY
         INY
         LDA   [$00],Y
         STA   L0EDD
         LDA   L0EDD
         PHA
         LDA   L0EDB
         PHA
         JSR   L77BF
         LDA   L0EFF
         STA   L0EDB
         LDA   L0F01
         STA   L0EDD
         LDA   #$0200
         STA   L0EDF
         LDA   #$0000
         STA   L0EE1
         JSR   L74FC
         LDA   L0EE5
         PHA
         LDA   L0EE3
         PHA
         LDA   L0EE3
         STA   L0EDB
         LDA   L0EE5
         STA   L0EDD
         LDA   #$C000
         STA   L0EDF
         JSR   L76F9
         LDA   L0EE3
         STA   L20CF
         LDA   L0EE5
         STA   L20D1
         LDA   L0EE7
         STA   L20D3
         LDA   L0EE9
         STA   L20D5
         PLA
         STA   L0EFF
         PLA
         STA   L0F01
         PLA
         STA   L0EDB
         PLA
         STA   L0EDD
         JSR   L7780
         LDA   L0EDF
         PHA
         LDA   L0EDF
         STA   L0EDB
         LDA   L20D3
         STA   L0EDF
         LDA   L20D5
         STA   L0EE1
         LDA   L0EFF
         STA   L0EE3
         LDA   L0F01
         STA   L0EE5
         JSR   L779F
         PLA
         STA   L0EDB
         JSR   L77B2
         RTS

L184E    REP   #$30
         LDA   #L2576
         STA   $00
         LDA   #^L2576
         STA   $02
         LDA   L0EDB
         DEC
         ASL
         ASL
         TAY
         LDA   [$00],Y
         STA   L0EDB
         INY
         INY
         LDA   [$00],Y
         STA   L0EDD
         LDA   L0EDD
         PHA
         LDA   L0EDB
         PHA
         JSR   L77BF
         LDA   L0EFF
         STA   L0EDB
         LDA   L0F01
         STA   L0EDD
         LDA   #$0200
         STA   L0EDF
         LDA   #$0000
         STA   L0EE1
         JSR   L74FC
         LDA   L0EE5
         PHA
         LDA   L0EE3
         PHA
         LDA   L0EE3
         STA   L0EDB
         LDA   L0EE5
         STA   L0EDD
         LDA   #$C000
         STA   L0EDF
         JSR   L76F9
         LDA   L0EE3
         STA   L20D7
         LDA   L0EE5
         STA   L20D9
         LDA   L0EE7
         STA   L20DB
         LDA   L0EE9
         STA   L20DD
         PLA
         STA   L0EFF
         PLA
         STA   L0F01
         PLA
         STA   L0EDB
         PLA
         STA   L0EDD
         JSR   L7780
         LDA   L0EDF
         PHA
         LDA   L0EDF
         STA   L0EDB
         LDA   L20DB
         STA   L0EDF
         LDA   L20DD
         STA   L0EE1
         LDA   L0EFF
         STA   L0EE3
         LDA   L0F01
         STA   L0EE5
         JSR   L779F
         PLA
         STA   L0EDB
         JSR   L77B2
         RTS

L1908    REP   #$30
         LDA   #L2AC4
         STA   $00
         LDA   #^L2AC4
         STA   $02
         LDA   L0EDB
         DEC
         ASL
         ASL
         TAY
         LDA   [$00],Y
         STA   L0EDB
         INY
         INY
         LDA   [$00],Y
         STA   L0EDD
         LDA   L0EDD
         PHA
         LDA   L0EDB
         PHA
         JSR   L77BF
         LDA   L0EFF
         STA   L0EDB
         LDA   L0F01
         STA   L0EDD
         LDA   #$0200
         STA   L0EDF
         LDA   #$0000
         STA   L0EE1
         JSR   L74FC
         LDA   L0EE5
         PHA
         LDA   L0EE3
         PHA
         LDA   L0EE3
         STA   L0EDB
         LDA   L0EE5
         STA   L0EDD
         LDA   #$C000
         STA   L0EDF
         JSR   L76F9
         LDA   L0EE3
         STA   L20C7
         LDA   L0EE5
         STA   L20C9
         LDA   L0EE7
         STA   L20CB
         LDA   L0EE9
         STA   L20CD
         PLA
         STA   L0EFF
         PLA
         STA   L0F01
         PLA
         STA   L0EDB
         PLA
         STA   L0EDD
         JSR   L7780
         LDA   L0EDF
         PHA
         LDA   L0EDF
         STA   L0EDB
         LDA   L20CB
         STA   L0EDF
         LDA   L20CD
         STA   L0EE1
         LDA   L0EFF
         STA   L0EE3
         LDA   L0F01
         STA   L0EE5
         JSR   L779F
         PLA
         STA   L0EDB
         JSR   L77B2
         RTS

L19C2    REP   #$30
         LDA   #L1A6B
         STA   L0EDB
         LDA   #^L1A6B
         STA   L0EDD
         LDA   L0EDD
         PHA
         LDA   L0EDB
         PHA
         JSR   L77BF
         LDA   L0EFF
         STA   L0EDB
         LDA   L0F01
         STA   L0EDD
         LDA   #$0200
         STA   L0EDF
         LDA   #$0000
         STA   L0EE1
         JSR   L74FC
         LDA   L0EE5
         PHA
         LDA   L0EE3
         PHA
         LDA   L0EE3
         STA   L0EDB
         LDA   L0EE5
         STA   L0EDD
         LDA   #$C000
         STA   L0EDF
         JSR   L76F9
         LDA   L0EE3
         STA   L20DF
         LDA   L0EE5
         STA   L20E1
         LDA   L0EE7
         STA   L20E3
         LDA   L0EE9
         STA   L20E5
         PLA
         STA   L0EFF
         PLA
         STA   L0F01
         PLA
         STA   L0EDB
         PLA
         STA   L0EDD
         JSR   L7780
         LDA   L0EDF
         PHA
         LDA   L0EDF
         STA   L0EDB
         LDA   L20E3
         STA   L0EDF
         LDA   L20E5
         STA   L0EE1
         LDA   L0EFF
         STA   L0EE3
         LDA   L0F01
         STA   L0EE5
         JSR   L779F
         PLA
         STA   L0EDB
         JSR   L77B2
         RTS

L1A6B    STR   '1/america.data/people.wrd'
L1A91    REP   #$30
         LDA   L0EDF
         PHA
         LDA   L0EDF
         PHA
         LDA   L0EDB
         PHA
         LDA   L0EE3
         STA   L0EDB
         LDA   L0EE5
         STA   L0EDD
         JSR   L7419
         LDA   #L2103
         STA   L0EDB
         LDA   #^L2103
         STA   L0EDD
         PLA
         STA   L0EDF
         JSR   L763D
         LDA   #L20FB
         STA   L0EDB
         LDA   #^L20FB
         STA   L0EDD
         PLA
         STA   L0EDF
         JSR   L763D
         PLA
         STA   L0EDB
         LDA   L0EDB
         STA   L20A1
         JSR   L7A40
         RTS

L1AE2    REP   #$30
         LDA   L0EDF
         STA   L1B5E
         LDA   L0EE1
         STA   L1B60
         JSR   L7419
         LDA   L20BB
         STA   $04
         LDA   L20BD
         STA   $06
         LDX   #$0010
         LDY   L20A9
         STX   L20B3
L1B06    LDX   #$0000
L1B09    SEP   #$20
         LDA   [$04],Y
         INY
         CMP   #$0D
         BEQ   L1B22
         CMP   #$7E
         BEQ   L1B1C
         STA   L1B60,X
         INX
         BRA   L1B09
L1B1C    REP   #$30
         STY   L20A9
         RTS

L1B22    INY
         JSR   L1B2E
         DEC   L1B5E
         BNE   L1B06
         JMP   L1B1C

L1B2E    STZ   L1B60,X
         REP   #$30
         PHY
         LDA   #$0004
         STA   L0EDB
         LDA   L20B3
         STA   L0EDF
         JSR   L7998
         LDA   #L1B60
         STA   L0EDB
         LDA   #^L1B60
         STA   L0EDD
         JSR   L79D1
         LDA   #$000F
         CLC
         ADC   L20B3
         STA   L20B3
         PLY
         RTS

L1B5E    DB    $00
         DB    $00
L1B60    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L1BB4    REP   #$30
         LDA   L0EDF
         STA   L1C30
         LDA   L0EE1
         STA   L1C32
         JSR   L7419
         LDA   L20E7
         STA   $04
         LDA   L20E9
         STA   $06
         LDX   #$0010
         LDY   L20A3
         STX   L20B3
L1BD8    LDX   #$0000
L1BDB    SEP   #$20
         LDA   [$04],Y
         INY
         CMP   #$0D
         BEQ   L1BF4
         CMP   #$7E
         BEQ   L1BEE
         STA   L1C32,X
         INX
         BRA   L1BDB
L1BEE    REP   #$30
         STY   L20A3
         RTS

L1BF4    INY
         JSR   L1C00
         DEC   L1C30
         BNE   L1BD8
         JMP   L1BEE

L1C00    STZ   L1C32,X
         REP   #$30
         PHY
         LDA   #$0004
         STA   L0EDB
         LDA   L20B3
         STA   L0EDF
         JSR   L7998
         LDA   #L1C32
         STA   L0EDB
         LDA   #^L1C32
         STA   L0EDD
         JSR   L79D1
         LDA   #$000F
         CLC
         ADC   L20B3
         STA   L20B3
         PLY
         RTS

L1C30    DB    $00
         DB    $00
L1C32    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L1C86    STR   '/AMERICA1.DSK'
L1C94    STR   '/AMERICA2.DSK'
L1CA2    STR   '1/america.pics/menu.pcn'
L1CC6    STR   '1/america.pics/qascrn01.pcn'
L1CEE    STR   '1/america.pics/qastuff1.pcn'
L1D16    STR   '1/america.pics/story1.pcn'
L1D3C    STR   '1/america.pics/story2.pcn'
L1D62    STR   '1/america.pics/story3.pcn'
L1D88    STR   '1/america.pics/story4.pcn'
L1DAE    STR   '1/america.pics/story5.pcn'
L1DD4    STR   '1/america.pics/story6.pcn'
L1DFA    STR   '1/america.pics/story7.pcn'
L1E20    STR   '1/america.pics/story8.pcn'
L1E46    STR   '1/america.pics/story9.pcn'
L1E6C    STR   '1/america.pics/story10.pcn'
L1E93    STR   '1/america.pics/story11.pcn'
L1EBA    STR   '1/america.pics/story12.pcn'
L1EE1    STR   '1/america.pics/story13.pcn'
L1F08    STR   '1/america.pics/story14.pcn'
L1F2F    STR   '1/america.pics/story15.pcn'
L1F56    STR   '1/america.pics/story16.pcn'

L1F7D    ASC   'All About America disk 1.'00 
L1F97    ASC   'Player 1'00                  
L1FA0    ASC   'Player 2'00                  
L1FA9    ASC   'data disk.'00                
L1FB4    ASC   'All About America disk 2.'00 
L1FCE    ASC   'E'00                         
L1FD0    ASC   'Please select your option.'00
L1FEB    DW    $0000                         
L1FED    DW    $0001                         
         DW    $0001                         
         DW    $002C                         
         DW    $004F                         
         DW    $0001                         
         DW    $0051                         
         DW    $002C                         
         DW    $009F                         
         DW    $0001                         
         DW    $00A1                         
         DW    $002C                         
         DW    $00EE                         
         DW    $0001                         
         DW    $00F1                         
         DW    $002C                         
         DW    $013F                         
         DW    $002D                         
         DW    $0001                         
         DW    $0058                         
         DW    $004F                         
         DW    $002D                         
         DW    $0051                         
         DW    $0058                         
         DW    $009F                         
         DW    $002D                         
         DW    $00A1                         
         DW    $0058                         
         DW    $00EE                         
         DW    $002D                         
         DW    $00F1                         
         DW    $0058                         
         DW    $013F                         
         DW    $0059
         DW    $0001
         DW    $0084
         DW    $004F
         DW    $0059
         DW    $0051
         DW    $0084
         DW    $009F
         DW    $0059
         DW    $00A1
         DW    $0084
         DW    $00EE
         DW    $0059
         DW    $00F1
         DW    $0084
         DW    $013F
         DW    $0085
         DW    $0001
         DW    $00B0
         DW    $004F
         DW    $0085
         DW    $0051
         DW    $00B0
         DW    $009F
         DW    $0085
         DW    $00A1
         DW    $00B0
         DW    $00EE
         DW    $0085
         DW    $00F1
         DW    $00B0
         DW    $013F

L206D    DW    $00B4
         DW    $0132
         DW    $00C8
         DW    $0140
L2075    DW    $00B5
         DW    $0133
         DW    $00C7
         DW    $013F
L207D    DA    L2D6D
         DA    L2DD6
         DA    L2E3F
         DA    L2EA8
         DA    L2F11
         DA    L2F7A
         DA    L2FE3
         DA    L304C
         DA    L30B5
         DA    L311E
         DA    L3187
         DA    L31F0
         DA    L3259
         DA    L32C2
         DA    L332B
         DA    L3394
         DA    L1168
L209F    DB    $00
         DB    $00
L20A1    DB    $00
         DB    $00
L20A3    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L20A9    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L20B3    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L20BB    DB    $00
         DB    $00
L20BD    DB    $00
         DB    $00
L20BF    DB    $00
         DB    $00
L20C1    DB    $00
         DB    $00
L20C3    DB    $00
         DB    $00
L20C5    DB    $00
         DB    $00
L20C7    DB    $00
         DB    $00
L20C9    DB    $00
         DB    $00
L20CB    DB    $00
         DB    $00
L20CD    DB    $00
         DB    $00
L20CF    DB    $00
         DB    $00
L20D1    DB    $00
         DB    $00
L20D3    DB    $00
         DB    $00
L20D5    DB    $00
         DB    $00
L20D7    DB    $00
         DB    $00
L20D9    DB    $00
         DB    $00
L20DB    DB    $00
         DB    $00
L20DD    DB    $00
         DB    $00
L20DF    DB    $00
         DB    $00
L20E1    DB    $00
         DB    $00
L20E3    DB    $00
         DB    $00
L20E5    DB    $00
         DB    $00
L20E7    DB    $00
         DB    $00
L20E9    DB    $00
         DB    $00
L20EB    DB    $00
         DB    $00
         DB    $04
         DB    $00
         DB    $62
         DB    $00
         DB    $3F
         DB    $01
L20F3    DB    $65
         DB    $00
         DB    $04
         DB    $00
         DB    $C7
         DB    $00
         DB    $3F
         DB    $01
L20FB    DB    $01
         DB    $00
         DB    $01
         DB    $00
         DB    $C7
         DB    $00
         DB    $3F
         DB    $01
L2103    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $C8
         DB    $00
         DB    $40
         DB    $01
L210B    DB    $66
         DB    $00
         DB    $02
         DB    $00
         DB    $C8
         DB    $00
         DB    $3D
         DB    $01
L2113    DB    $B4
         DB    $00
         DB    $02
         DB    $00
         DB    $C6
         DB    $00
         DB    $32
         DB    $01
L211B    DB    $00
         DB    $00
L211D    DB    $00
         DB    $00
L211F    DB    $00
         DB    $00
L2121    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L2139    DB    $00
         DB    $00
L213B    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L2143    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L2215    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L223D    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L2265    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L2273    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L2281    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L228F    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L2297    DB    $00
         DB    $00
L2299    ADRL  L2265
         ADRL  L2273
         ADRL  L2281
         DB    $00
         DB    $00
         DB    $00
         DB    $0F
         DB    $0F
         DB    $0F
         DB    $F0
         DB    $0F
         DB    $FF
         DB    $0F
         DB    $00
         DB    $00
         DB    $00
         DB    $0F
         DB    $F0
         DB    $00
         DB    $0F
         DB    $00
         DB    $F0
         DB    $0F
         DB    $0F
         DB    $0F
         DB    $FF
         DB    $00
         DB    $AA
         DB    $0A
         DB    $66
         DB    $06
         DB    $00
         DB    $0A
         DB    $80
         DB    $00
         DB    $08
         DB    $00
         DB    $82
         DB    $0A
         DB    $80
         DB    $0F
         DB    $4F
         DB    $0A
         DB    $FF
         DB    $0F
L22CF    ADRL  L230F
         ADRL  L2335
         ADRL  L235B
         ADRL  L2381
         ADRL  L23A7
         ADRL  L23CD
         ADRL  L23F3
         ADRL  L2419
         ADRL  L243F
         ADRL  L2465
         ADRL  L248C
         ADRL  L24B3
         ADRL  L24DA
         ADRL  L2501
         ADRL  L2528
         ADRL  L254F
L230F    STR   '1/america.data/story1.mth'
L2335    STR   '1/america.data/story2.mth'
L235B    STR   '1/america.data/story3.mth'
L2381    STR   '1/america.data/story4.mth'
L23A7    STR   '1/america.data/story5.mth'
L23CD    STR   '1/america.data/story6.mth'
L23F3    STR   '1/america.data/story7.mth'
L2419    STR   '1/america.data/story8.mth'
L243F    STR   '1/america.data/story9.mth'
L2465    STR   '1/america.data/story10.mth'
L248C    STR   '1/america.data/story11.mth'
L24B3    STR   '1/america.data/story12.mth'
L24DA    STR   '1/america.data/story13.mth'
L2501    STR   '1/america.data/story14.mth'
L2528    STR   '1/america.data/story15.mth'
L254F    STR   '1/america.data/story16.mth'
L2576    ADRL  L25B6
         ADRL  L25DC
         ADRL  L2602
         ADRL  L2628
         ADRL  L264E
         ADRL  L2674
         ADRL  L269A
         ADRL  L26C0
         ADRL  L26E6
         ADRL  L270C
         ADRL  L2733
         ADRL  L275A
         ADRL  L2781
         ADRL  L27A8
         ADRL  L27CF
         ADRL  L27F6
L25B6    STR   '1/america.data/story1.voc'
L25DC    STR   '1/america.data/story2.voc'
L2602    STR   '1/america.data/story3.voc'
L2628    STR   '1/america.data/story4.voc'
L264E    STR   '1/america.data/story5.voc'
L2674    STR   '1/america.data/story6.voc'
L269A    STR   '1/america.data/story7.voc'
L26C0    STR   '1/america.data/story8.voc'
L26E6    STR   '1/america.data/story9.voc'
L270C    STR   '1/america.data/story10.voc'
L2733    STR   '1/america.data/story11.voc'
L275A    STR   '1/america.data/story12.voc'
L2781    STR   '1/america.data/story13.voc'
L27A8    STR   '1/america.data/story14.voc'
L27CF    STR   '1/america.data/story15.voc'
L27F6    STR   '1/america.data/story16.voc'
L281D    ADRL  L285D
         ADRL  L2883
         ADRL  L28A9
         ADRL  L28CF
         ADRL  L28F5
         ADRL  L291B
         ADRL  L2941
         ADRL  L2967
         ADRL  L298D
         ADRL  L29B3
         ADRL  L29DA
         ADRL  L2A01
         ADRL  L2A28
         ADRL  L2A4F
         ADRL  L2A76
         ADRL  L2A9D
L285D    STR   '1/america.data/story1.red'
L2883    STR   '1/america.data/story2.red'
L28A9    STR   '1/america.data/story3.red'
L28CF    STR   '1/america.data/story4.red'
L28F5    STR   '1/america.data/story5.red'
L291B    STR   '1/america.data/story6.red'
L2941    STR   '1/america.data/story7.red'
L2967    STR   '1/america.data/story8.red'
L298D    STR   '1/america.data/story9.red'
L29B3    STR   '1/america.data/story10.red'
L29DA    STR   '1/america.data/story11.red'
L2A01    STR   '1/america.data/story12.red'
L2A28    STR   '1/america.data/story13.red'
L2A4F    STR   '1/america.data/story14.red'
L2A76    STR   '1/america.data/story15.red'
L2A9D    STR   '1/america.data/story16.red'
L2AC4    ADRL  L2B04
         ADRL  L2B2A
         ADRL  L2B50
         ADRL  L2B76
         ADRL  L2B9C
         ADRL  L2BC2
         ADRL  L2BE8
         ADRL  L2C0E
         ADRL  L2C34
         ADRL  L2C5A
         ADRL  L2C81
         ADRL  L2CA8
         ADRL  L2CCF
         ADRL  L2CF6
         ADRL  L2D1D
         ADRL  L2D44
L2B04    STR   '1/america.data/story1.wrd'
L2B2A    STR   '1/america.data/story2.wrd'
L2B50    STR   '1/america.data/story3.wrd'
L2B76    STR   '1/america.data/story4.wrd'
L2B9C    STR   '1/america.data/story5.wrd'
L2BC2    STR   '1/america.data/story6.wrd'
L2BE8    STR   '1/america.data/story7.wrd'
L2C0E    STR   '1/america.data/story8.wrd'
L2C34    STR   '1/america.data/story9.wrd'
L2C5A    STR   '1/america.data/story10.wrd'
L2C81    STR   '1/america.data/story11.wrd'
L2CA8    STR   '1/america.data/story12.wrd'
L2CCF    STR   '1/america.data/story13.wrd'
L2CF6    STR   '1/america.data/story14.wrd'
L2D1D    STR   '1/america.data/story15.wrd'
L2D44    STR   '1/america.data/story16.wrd'
         REP   #$30
L2D6D    LDA   #L1D16
         STA   L0EDB
         LDA   #^L1D16
         STA   L0EDD
         LDA   L1013
         STA   L0EDF
         LDA   L1015
         STA   L0EE1
         LDA   #L0FE7
         STA   L0EE3
         LDA   #^L0FE7
         STA   L0EE5
         JSR   L7860
         LDA   #$0001
         STA   L0EDB
         JSR   L16DA
         LDA   #$0001
         STA   L0EDB
         JSR   L1794
         LDA   #$0001
         STA   L0EDB
         JSR   L184E
         LDA   #$0001
         STA   L0EDB
         JSR   L1908
         JSR   L19C2
         LDA   #$0002
         STA   L211B
         LDA   #$0003
         STA   L211D
         LDA   #$0001
         STA   L2121
         LDA   #$000F
         STA   L211F
         JMP   L33FA

L2DD6    LDA   #L1D3C
         STA   L0EDB
         LDA   #^L1D3C
         STA   L0EDD
         LDA   L1013
         STA   L0EDF
         LDA   L1015
         STA   L0EE1
         LDA   #L0FE7
         STA   L0EE3
         LDA   #^L0FE7
         STA   L0EE5
         JSR   L7860
         LDA   #$0002
         STA   L0EDB
         JSR   L16DA
         LDA   #$0002
         STA   L0EDB
         JSR   L1794
         LDA   #$0002
         STA   L0EDB
         JSR   L184E
         LDA   #$0002
         STA   L0EDB
         JSR   L1908
         JSR   L19C2
         LDA   #$0002
         STA   L211B
         LDA   #$0003
         STA   L211D
         LDA   #$0001
         STA   L2121
         LDA   #$0009
         STA   L211F
         JMP   L33FA

L2E3F    LDA   #L1D62
         STA   L0EDB
         LDA   #^L1D62
         STA   L0EDD
         LDA   L1013
         STA   L0EDF
         LDA   L1015
         STA   L0EE1
         LDA   #L0FE7
         STA   L0EE3
         LDA   #^L0FE7
         STA   L0EE5
         JSR   L7860
         LDA   #$0003
         STA   L0EDB
         JSR   L16DA
         LDA   #$0003
         STA   L0EDB
         JSR   L1794
         LDA   #$0003
         STA   L0EDB
         JSR   L184E
         LDA   #$0003
         STA   L0EDB
         JSR   L1908
         JSR   L19C2
         LDA   #$0003
         STA   L211B
         LDA   #$0004
         STA   L211D
         LDA   #$0001
         STA   L2121
         LDA   #$0009
         STA   L211F
         JMP   L33FA

L2EA8    LDA   #L1D88
         STA   L0EDB
         LDA   #^L1D88
         STA   L0EDD
         LDA   L1013
         STA   L0EDF
         LDA   L1015
         STA   L0EE1
         LDA   #L0FE7
         STA   L0EE3
         LDA   #^L0FE7
         STA   L0EE5
         JSR   L7860
         LDA   #$0004
         STA   L0EDB
         JSR   L16DA
         LDA   #$0004
         STA   L0EDB
         JSR   L1794
         LDA   #$0004
         STA   L0EDB
         JSR   L184E
         LDA   #$0004
         STA   L0EDB
         JSR   L1908
         JSR   L19C2
         LDA   #$0002
         STA   L211B
         LDA   #$0003
         STA   L211D
         LDA   #$0001
         STA   L2121
         LDA   #$000D
         STA   L211F
         JMP   L33FA

L2F11    LDA   #L1DAE
         STA   L0EDB
         LDA   #^L1DAE
         STA   L0EDD
         LDA   L1013
         STA   L0EDF
         LDA   L1015
         STA   L0EE1
         LDA   #L0FE7
         STA   L0EE3
         LDA   #^L0FE7
         STA   L0EE5
         JSR   L7860
         LDA   #$0005
         STA   L0EDB
         JSR   L16DA
         LDA   #$0005
         STA   L0EDB
         JSR   L1794
         LDA   #$0005
         STA   L0EDB
         JSR   L184E
         LDA   #$0005
         STA   L0EDB
         JSR   L1908
         JSR   L19C2
         LDA   #$0001
         STA   L211B
         LDA   #$0005
         STA   L211D
         LDA   #$0001
         STA   L2121
         LDA   #$000D
         STA   L211F
         JMP   L33FA

L2F7A    LDA   #L1DD4
         STA   L0EDB
         LDA   #^L1DD4
         STA   L0EDD
         LDA   L1013
         STA   L0EDF
         LDA   L1015
         STA   L0EE1
         LDA   #L0FE7
         STA   L0EE3
         LDA   #^L0FE7
         STA   L0EE5
         JSR   L7860
         LDA   #$0006
         STA   L0EDB
         JSR   L16DA
         LDA   #$0006
         STA   L0EDB
         JSR   L1794
         LDA   #$0006
         STA   L0EDB
         JSR   L184E
         LDA   #$0006
         STA   L0EDB
         JSR   L1908
         JSR   L19C2
         LDA   #$0002
         STA   L211B
         LDA   #$0005
         STA   L211D
         LDA   #$0001
         STA   L2121
         LDA   #$0006
         STA   L211F
         JMP   L33FA

L2FE3    LDA   #L1DFA
         STA   L0EDB
         LDA   #^L1DFA
         STA   L0EDD
         LDA   L1013
         STA   L0EDF
         LDA   L1015
         STA   L0EE1
         LDA   #L0FE7
         STA   L0EE3
         LDA   #^L0FE7
         STA   L0EE5
         JSR   L7860
         LDA   #$0007
         STA   L0EDB
         JSR   L16DA
         LDA   #$0007
         STA   L0EDB
         JSR   L1794
         LDA   #$0007
         STA   L0EDB
         JSR   L184E
         LDA   #$0007
         STA   L0EDB
         JSR   L1908
         JSR   L19C2
         LDA   #$0002
         STA   L211B
         LDA   #$0004
         STA   L211D
         LDA   #$0001
         STA   L2121
         LDA   #$000F
         STA   L211F
         JMP   L33FA

L304C    LDA   #L1E20
         STA   L0EDB
         LDA   #^L1E20
         STA   L0EDD
         LDA   L1013
         STA   L0EDF
         LDA   L1015
         STA   L0EE1
         LDA   #L0FE7
         STA   L0EE3
         LDA   #^L0FE7
         STA   L0EE5
         JSR   L7860
         LDA   #$0008
         STA   L0EDB
         JSR   L16DA
         LDA   #$0008
         STA   L0EDB
         JSR   L1794
         LDA   #$0008
         STA   L0EDB
         JSR   L184E
         LDA   #$0008
         STA   L0EDB
         JSR   L1908
         JSR   L19C2
         LDA   #$0002
         STA   L211B
         LDA   #$0004
         STA   L211D
         LDA   #$0001
         STA   L2121
         LDA   #$000C
         STA   L211F
         JMP   L33FA

L30B5    LDA   #L1E46
         STA   L0EDB
         LDA   #^L1E46
         STA   L0EDD
         LDA   L1013
         STA   L0EDF
         LDA   L1015
         STA   L0EE1
         LDA   #L0FE7
         STA   L0EE3
         LDA   #^L0FE7
         STA   L0EE5
         JSR   L7860
         LDA   #$0009
         STA   L0EDB
         JSR   L16DA
         LDA   #$0009
         STA   L0EDB
         JSR   L1794
         LDA   #$0009
         STA   L0EDB
         JSR   L184E
         LDA   #$0009
         STA   L0EDB
         JSR   L1908
         JSR   L19C2
         LDA   #$0001
         STA   L211B
         LDA   #$0003
         STA   L211D
         LDA   #$0001
         STA   L2121
         LDA   #$000A
         STA   L211F
         JMP   L33FA

L311E    LDA   #L1E6C
         STA   L0EDB
         LDA   #^L1E6C
         STA   L0EDD
         LDA   L1013
         STA   L0EDF
         LDA   L1015
         STA   L0EE1
         LDA   #L0FE7
         STA   L0EE3
         LDA   #^L0FE7
         STA   L0EE5
         JSR   L7860
         LDA   #$000A
         STA   L0EDB
         JSR   L16DA
         LDA   #$000A
         STA   L0EDB
         JSR   L1794
         LDA   #$000A
         STA   L0EDB
         JSR   L184E
         LDA   #$000A
         STA   L0EDB
         JSR   L1908
         JSR   L19C2
         LDA   #$0001
         STA   L211B
         LDA   #$0005
         STA   L211D
         LDA   #$0001
         STA   L2121
         LDA   #$000E
         STA   L211F
         JMP   L33FA

L3187    LDA   #L1E93
         STA   L0EDB
         LDA   #^L1E93
         STA   L0EDD
         LDA   L1013
         STA   L0EDF
         LDA   L1015
         STA   L0EE1
         LDA   #L0FE7
         STA   L0EE3
         LDA   #^L0FE7
         STA   L0EE5
         JSR   L7860
         LDA   #$000B
         STA   L0EDB
         JSR   L16DA
         LDA   #$000B
         STA   L0EDB
         JSR   L1794
         LDA   #$000B
         STA   L0EDB
         JSR   L184E
         LDA   #$000B
         STA   L0EDB
         JSR   L1908
         JSR   L19C2
         LDA   #$0002
         STA   L211B
         LDA   #$0005
         STA   L211D
         LDA   #$0001
         STA   L2121
         LDA   #$0002
         STA   L211F
         JMP   L33FA

L31F0    LDA   #L1EBA
         STA   L0EDB
         LDA   #^L1EBA
         STA   L0EDD
         LDA   L1013
         STA   L0EDF
         LDA   L1015
         STA   L0EE1
         LDA   #L0FE7
         STA   L0EE3
         LDA   #^L0FE7
         STA   L0EE5
         JSR   L7860
         LDA   #$000C
         STA   L0EDB
         JSR   L16DA
         LDA   #$000C
         STA   L0EDB
         JSR   L1794
         LDA   #$000C
         STA   L0EDB
         JSR   L184E
         LDA   #$000C
         STA   L0EDB
         JSR   L1908
         JSR   L19C2
         LDA   #$0002
         STA   L211B
         LDA   #$0006
         STA   L211D
         LDA   #$0001
         STA   L2121
         LDA   #$0000
         STA   L211F
         JMP   L33FA

L3259    LDA   #L1EE1
         STA   L0EDB
         LDA   #^L1EE1
         STA   L0EDD
         LDA   L1013
         STA   L0EDF
         LDA   L1015
         STA   L0EE1
         LDA   #L0FE7
         STA   L0EE3
         LDA   #^L0FE7
         STA   L0EE5
         JSR   L7860
         LDA   #$000D
         STA   L0EDB
         JSR   L16DA
         LDA   #$000D
         STA   L0EDB
         JSR   L1794
         LDA   #$000D
         STA   L0EDB
         JSR   L184E
         LDA   #$000D
         STA   L0EDB
         JSR   L1908
         JSR   L19C2
         LDA   #$0003
         STA   L211B
         LDA   #$0004
         STA   L211D
         LDA   #$0001
         STA   L2121
         LDA   #$0002
         STA   L211F
         JMP   L33FA

L32C2    LDA   #L1F08
         STA   L0EDB
         LDA   #^L1F08
         STA   L0EDD
         LDA   L1013
         STA   L0EDF
         LDA   L1015
         STA   L0EE1
         LDA   #L0FE7
         STA   L0EE3
         LDA   #^L0FE7
         STA   L0EE5
         JSR   L7860
         LDA   #$000E
         STA   L0EDB
         JSR   L16DA
         LDA   #$000E
         STA   L0EDB
         JSR   L1794
         LDA   #$000E
         STA   L0EDB
         JSR   L184E
         LDA   #$000E
         STA   L0EDB
         JSR   L1908
         JSR   L19C2
         LDA   #$0002
         STA   L211B
         LDA   #$0002
         STA   L211D
         LDA   #$0001
         STA   L2121
         LDA   #$000A
         STA   L211F
         JMP   L33FA

L332B    LDA   #L1F2F
         STA   L0EDB
         LDA   #^L1F2F
         STA   L0EDD
         LDA   L1013
         STA   L0EDF
         LDA   L1015
         STA   L0EE1
         LDA   #L0FE7
         STA   L0EE3
         LDA   #^L0FE7
         STA   L0EE5
         JSR   L7860
         LDA   #$000F
         STA   L0EDB
         JSR   L16DA
         LDA   #$000F
         STA   L0EDB
         JSR   L1794
         LDA   #$000F
         STA   L0EDB
         JSR   L184E
         LDA   #$000F
         STA   L0EDB
         JSR   L1908
         JSR   L19C2
         LDA   #$0002
         STA   L211B
         LDA   #$0004
         STA   L211D
         LDA   #$0001
         STA   L2121
         LDA   #$000B
         STA   L211F
         JMP   L33FA

L3394    LDA   #L1F56
         STA   L0EDB
         LDA   #^L1F56
         STA   L0EDD
         LDA   L1013
         STA   L0EDF
         LDA   L1015
         STA   L0EE1
         LDA   #L0FE7
         STA   L0EE3
         LDA   #^L0FE7
         STA   L0EE5
         JSR   L7860
         LDA   #$0010
         STA   L0EDB
         JSR   L16DA
         LDA   #$0010
         STA   L0EDB
         JSR   L1794
         LDA   #$0010
         STA   L0EDB
         JSR   L184E
         LDA   #$0010
         STA   L0EDB
         JSR   L1908
         JSR   L19C2
         LDA   #$0002
         STA   L211B
         LDA   #$0005
         STA   L211D
         LDA   #$0001
         STA   L2121
         LDA   #$0003
         STA   L211F
L33FA    REP   #$30
         JSR   L7444
         JSR   LAA58
         JSR   L9972
         CMP   #$0001
         BNE   L340D
         JMP   L3519

L340D    CMP   #$0002
         BNE   L3415
         JMP   L341D

L3415    CMP   #$001B
         BNE   L33FA
         JMP   L3608

L341D    JSR   L425A
         LDA   #L1CEE
         STA   L0EDB
         LDA   #^L1CEE
         STA   L0EDD
         LDA   L100F
         STA   L0EDF
         LDA   L1011
         STA   L0EE1
         LDA   #L0FC7
         STA   L0EE3
         LDA   #^L0FC7
         STA   L0EE5
         JSR   L7860
         LDA   #L1CC6
         STA   L0EDB
         LDA   #^L1CC6
         STA   L0EDD
         LDA   L1013
         STA   L0EDF
         LDA   L1015
         STA   L0EE1
         LDA   #L0FE7
         STA   L0EE3
         LDA   #^L0FE7
         STA   L0EE5
         JSR   L7860
L346E    JSR   L8ACB
         JSR   L9C35
         CMP   #$0001
         BNE   L3488
         LDA   L20D3
         STA   L20BB
         LDA   L20D5
         STA   L20BD
         JMP   L349F

L3488    CMP   #$0002
         BEQ   L3493
         JSR   L8B01
         JMP   L3513

L3493    LDA   L20DB
         STA   L20BB
         LDA   L20DD
         STA   L20BD
L349F    JSR   L8B01
         LDA   #$0018
         STA   L2139
         STZ   L213B
         LDA   #L2143
         STA   L0EDB
         LDA   #^L2143
         STA   L0EDD
         LDA   #$0064
         STA   L0EDF
         LDA   #$0000
         STA   L0EE3
         JSR   L769A
         JSR   L885A
         JSR   L892C
         JSR   L37CE
         JSR   L80DA
L34D2    JSR   L7444
         JSR   L3851
         LDA   #$0000
         STA   L0EDB
         JSR   L3F3F
         JSR   L401E
         CMP   #$001B
         BEQ   L34FF
         JSR   L801D
         LDA   L8DC0
         CMP   #$0001
         BNE   L34D2
         INC   L213B
         LDA   L213B
         CMP   #$000A
         BNE   L34D2
L34FF    JSR   L88FE
         JSR   L899D
         JSR   L8F01
         LDA   L0EDB
         CMP   #$0001
         BNE   L3513
         JMP   L346E

L3513    JSR   L848B
         JMP   L3608

L3519    LDA   L20C3
         STA   L20BB
         LDA   L20C5
         STA   L20BD
         LDA   #$0000
         STA   L20A9
         LDA   #$0000
         STA   L0EDB
         JSR   L7EE0
         JSR   L37CE
         LDA   L2121
         STA   L0EDB
         LDA   L211F
         STA   L0EDF
         LDA   L1007
         STA   L0EE3
         LDA   L1009
         STA   L0EE5
         JSR   L1A91
         LDA   L211F
         STA   L20A1
         LDA   L1013
         STA   L0EDB
         LDA   L1015
         STA   L0EDD
         LDA   L1007
         STA   L0EDF
         LDA   L1009
         STA   L0EE1
         JSR   L1412
         LDA   L2121
         STA   L0EDB
         JSR   L13A6
         JSR   LAA58
         LDA   L1007
         STA   L0EDB
         LDA   L1009
         STA   L0EDD
         LDA   #$0006
         STA   L0EDF
         JSR   L1AE2
         JSR   L13B2
         LDA   #$0000
         STA   L0EDB
         LDA   #L0FE7
         STA   L0EDF
         LDA   #^L0FE7
         STA   L0EE1
         LDA   L1007
         STA   L0EE3
         LDA   L1009
         STA   L0EE5
         JSR   L7F5D
         JSR   L3656
         CMP   #$001B
         BNE   L35C3
         JMP   L35FA

L35C3    JSR   L3703
         CMP   #$001B
         BNE   L35CE
         JMP   L35FA

L35CE    DEC   L211D
         BNE   L35C3
L35D3    JSR   L1344
         CMP   #$001B
         BNE   L35DE
         JMP   L35FA

L35DE    CMP   #$0077
         BNE   L35EF
         LDA   L211B
         STA   L0EDB
         JSR   L1472
         JMP   L35D3

L35EF    CMP   #$0070
         BNE   L35FA
         JSR   L15A6
         JMP   L35D3

L35FA    JSR   L933C
         LDA   L0EDB
         CMP   #$0002
         BEQ   L3608
         JMP   L341D

L3608    LDA   L20BF
         STA   L0EDB
         LDA   L20C1
         STA   L0EDD
         JSR   L773B
         LDA   L20C7
         STA   L0EDB
         LDA   L20C9
         STA   L0EDD
         JSR   L773B
         LDA   L20CF
         STA   L0EDB
         LDA   L20D1
         STA   L0EDD
         JSR   L773B
         LDA   L20D7
         STA   L0EDB
         LDA   L20D9
         STA   L0EDD
         JSR   L773B
         LDA   L20DF
         STA   L0EDB
         LDA   L20E1
         STA   L0EDD
         JSR   L773B
         JMP   L1181

L3656    REP   #$30
         LDA   L2121
         STA   L0EDB
         LDA   L211F
         STA   L0EDF
         LDA   L1007
         STA   L0EE3
         LDA   L1009
         STA   L0EE5
         JSR   L1A91
         LDA   L211F
         STA   L20A1
         LDA   L1013
         STA   L0EDB
         LDA   L1015
         STA   L0EDD
         LDA   L1007
         STA   L0EDF
         LDA   L1009
         STA   L0EE1
         JSR   L1412
         LDA   L2121
         STA   L0EDB
         JSR   L13A6
         JSR   LAA58
         LDA   L1007
         STA   L0EDB
         LDA   L1009
         STA   L0EDD
         LDA   #$0006
         STA   L0EDF
         JSR   L1AE2
L36B5    JSR   L1344
         CMP   #$0001
         BNE   L36C0
         JMP   L36E4

L36C0    CMP   #$001B
         BNE   L36C8
         JMP   L3702

L36C8    CMP   #$0077
         BNE   L36D9
         LDA   L211B
         STA   L0EDB
         JSR   L1472
         JMP   L36B5

L36D9    CMP   #$0070
         BNE   L36E4
         JSR   L15A6
         JMP   L36B5

L36E4    LDA   #$0000
         STA   L0EDB
         LDA   #L0FE7
         STA   L0EDF
         LDA   #^L0FE7
         STA   L0EE1
         JSR   L76CD
         JSR   L37FE
         JSR   L10BA
         LDA   #$0000
L3702    RTS

L3703    REP   #$30
         LDA   L2121
         STA   L0EDB
         LDA   L211F
         STA   L0EDF
         LDA   L1007
         STA   L0EE3
         LDA   L1009
         STA   L0EE5
         JSR   L1A91
         LDA   L211F
         STA   L20A1
         LDA   L1013
         STA   L0EDB
         LDA   L1015
         STA   L0EDD
         LDA   L1007
         STA   L0EDF
         LDA   L1009
         STA   L0EE1
         JSR   L1442
         LDA   L2121
         STA   L0EDB
         JSR   L13A6
         JSR   LAA58
         LDA   L1007
         STA   L0EDB
         LDA   L1009
         STA   L0EDD
         LDA   #$0006
         STA   L0EDF
         JSR   L1AE2
L3762    JSR   L1344
         CMP   #$0001
         BNE   L376D
         JMP   L3791

L376D    CMP   #$001B
         BNE   L3775
         JMP   L37AF

L3775    CMP   #$0077
         BNE   L3786
         LDA   L211B
         STA   L0EDB
         JSR   L1472
         JMP   L3762

L3786    CMP   #$0070
         BNE   L3791
         JSR   L15A6
         JMP   L3762

L3791    LDA   #$0000
         STA   L0EDB
         LDA   #L0FE7
         STA   L0EDF
         LDA   #^L0FE7
         STA   L0EE1
         JSR   L76CD
         JSR   L37FE
         JSR   L10BA
         LDA   #$0000
L37AF    RTS

         REP   #$30
         LDA   #$2000
         STA   L0EDB
         LDA   #$00E1
         STA   L0EDD
         LDA   L1007
         STA   L0EDF
         LDA   L1009
         STA   L0EE1
         JSR   L7613
         RTS

L37CE    REP   #$30
         LDA   L1007
         STA   L0EDB
         LDA   L1009
         STA   L0EDD
         LDA   #$7D00
         STA   L0EDF
         LDA   #$0000
         STA   L0EE1
         LDA   #$0000
         STA   L0EE3
         JSR   L769A
         LDA   #$0000
         STA   L0EDB
         JSR   L7682
         JSR   L7444
         RTS

L37FE    REP   #$30
         LDA   L1007
         STA   L0EDB
         LDA   L1009
         STA   L0EDD
         LDA   #$2000
         STA   L0EDF
         LDA   #$00E1
         STA   L0EE1
         JSR   L7613
         JSR   L7444
         RTS

         REP   #$30
         LDA   #$0001
         STA   L384F
L3827    JSR   L7444
         LDX   L384F
         DEX
         STX   L0EDB
         JSR   L3877
         LDA   #$0000
         STA   L0EDB
         JSR   L3F3F
         JSR   L7FB9
         JSR   L74E9
         INC   L384F
         LDA   L384F
         CMP   #$0019
         BCC   L3827
         RTS

L384F    BRK   $00
L3851    REP   #$30
         LDA   #$0001
         STA   L0EDB
         LDA   L2139
         STA   L0EDF
         JSR   L7540
         TAX
         DEX
         SEP   #$20
         LDA   L2143,X
         BNE   L3851
         INC   L2143,X
         REP   #$30
         STX   L0EDB
         JSR   L3877
         RTS

L3877    REP   #$30
         LDA   L0EDB
         STA   L3938
         LDA   L1013
         STA   L0EDB
         LDA   L1015
         STA   L0EDD
         LDA   L1007
         STA   L0EDF
         LDA   L1009
         STA   L0EE1
         JSR   L7613
         LDA   L1007
         STA   L0EDB
         LDA   L1009
         STA   L0EDD
         JSR   L7419
         LDA   L8DC0
         CMP   #$0001
         BNE   L38BE
         LDA   #L8DD1
         STA   $00
         LDA   #^L8DD1
         STA   $02
         JMP   L38C8

L38BE    LDA   #L8DE9
         STA   $00
         LDA   #^L8DE9
         STA   $02
L38C8    LDA   #L3952
         STA   $08
         LDA   #^L3952
         STA   $0A
         LDY   #$0000
         SEP   #$20
L38D7    LDA   [$00],Y
         BEQ   L38E1
         STA   [$08],Y
         INY
         JMP   L38D7

L38E1    LDA   #$2E
         STA   [$08],Y
         INY
         LDA   #$00
         STA   [$08],Y
         REP   #$30
         LDA   #$0001
         STA   L0EDB
         JSR   L7A32
         LDA   #L3942
         STA   L0EDB
         LDA   #^L3942
         STA   L0EDD
         LDA   #$00C2
         STA   L0EDF
         JSR   L7A4E
         JSR   L7444
         LDA   L3938
         STA   L0EDB
         JSR   L3961
         JSR   L39BD
         JSR   L3B66
         LDA   L1007
         STA   L0EDB
         LDA   L1009
         STA   L0EDD
         LDA   L100B
         STA   L0EDF
         LDA   L100D
         STA   L0EE1
         JSR   L7613
         RTS

L3938    DB    $00
         DB    $00
         DB    $64
         DB    $00
         DB    $00
         DB    $00
         DB    $C8
         DB    $00
         DB    $40
         DB    $01
L3942    ASC   'It'27's your turn, '
L3952    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L3961    REP   #$30
         LDA   L0EDB
         STA   L39BB
         LDA   L20BB
         STA   $00
         LDA   L20BD
         STA   $02
         LDY   #$0000
         LDA   L39BB
         CMP   #$0000
         BNE   L3981
         JMP   L399D

L3981    LDY   #$0000
L3984    LDX   #$0005
         SEP   #$20
L3989    LDA   [$00],Y
         INY
         CMP   #$0A
         BEQ   L3993
         JMP   L3989

L3993    DEX
         BNE   L3989
         REP   #$30
         DEC   L39BB
         BNE   L3984
L399D    LDA   L20BB
         STA   L0EDB
         LDA   L20BD
         STA   L0EDD
         TYA
         CLC
         ADC   L0EDB
         STA   L0EDB
         LDA   #$0000
         ADC   L0EDD
         STA   L0EDD
         RTS

L39BB    DB    $00
         DB    $00
L39BD    REP   #$30
         LDA   #L2215
         STA   L0EDF
         LDA   #^L2215
         STA   L0EE1
         JSR   L3B25
         LDA   #L223D
         STA   L0EDF
         LDA   #^L223D
         STA   L0EE1
         JSR   L3B25
         LDA   L0EDB
         STA   L3B21
         LDA   L0EDD
         STA   L3B23
         LDA   #L228F
         STA   L0EDB
         LDA   #^L228F
         STA   L0EDD
         LDA   #$0003
         STA   L0EDF
         LDA   #$0000
         STA   L0EE3
         JSR   L769A
         LDA   #L228F
         STA   $00
         LDA   #^L228F
         STA   $02
L3A0E    REP   #$30
         LDA   #$0000
         STA   L0EDB
         LDA   #$0002
         STA   L0EDF
         JSR   L7540
         TAY
         SEP   #$20
         LDA   [$00],Y
         BNE   L3A0E
         LDA   #$01
         STA   [$00],Y
         REP   #$30
         INY
         STY   L2297
         DEY
         LDA   L3B21
         STA   L0EDB
         LDA   L3B23
         STA   L0EDD
         LDA   #L2299
         STA   $00
         LDA   #^L2299
         STA   $02
         TYA
         ASL
         ASL
         TAY
         LDA   [$00],Y
         STA   L0EDF
         INY
         INY
         LDA   [$00],Y
         STA   L0EE1
         JSR   L3B25
         LDA   L0EDB
         STA   L3B21
         LDA   L0EDD
         STA   L3B23
         LDA   #L228F
         STA   $00
         LDA   #^L228F
         STA   $02
L3A70    REP   #$30
         LDA   #$0000
         STA   L0EDB
         LDA   #$0002
         STA   L0EDF
         JSR   L7540
         TAY
         SEP   #$20
         LDA   [$00],Y
         BNE   L3A70
         LDA   #$01
         STA   [$00],Y
         REP   #$30
         LDA   L3B21
         STA   L0EDB
         LDA   L3B23
         STA   L0EDD
         LDA   #L2299
         STA   $00
         LDA   #^L2299
         STA   $02
         TYA
         ASL
         ASL
         TAY
         LDA   [$00],Y
         STA   L0EDF
         INY
         INY
         LDA   [$00],Y
         STA   L0EE1
         JSR   L3B25
         LDA   L0EDB
         STA   L3B21
         LDA   L0EDD
         STA   L3B23
         LDA   #L228F
         STA   $00
         LDA   #^L228F
         STA   $02
L3ACD    REP   #$30
         LDA   #$0000
         STA   L0EDB
         LDA   #$0002
         STA   L0EDF
         JSR   L7540
         TAY
         SEP   #$20
         LDA   [$00],Y
         BNE   L3ACD
         LDA   #$01
         STA   [$00],Y
         REP   #$30
         LDA   L3B21
         STA   L0EDB
         LDA   L3B23
         STA   L0EDD
         LDA   #L2299
         STA   $00
         LDA   #^L2299
         STA   $02
         TYA
         ASL
         ASL
         TAY
         LDA   [$00],Y
         STA   L0EDF
         INY
         INY
         LDA   [$00],Y
         STA   L0EE1
         JSR   L3B25
         LDA   L0EDB
         STA   L3B21
         LDA   L0EDD
         STA   L3B23
         RTS

L3B21    DB    $00
         DB    $00
L3B23    DB    $00
         DB    $00
L3B25    REP   #$30
         LDA   L0EDB
         STA   $00
         LDA   L0EDD
         STA   $02
         LDA   L0EDF
         STA   $04
         LDA   L0EE1
         STA   $06
         LDY   #$0000
         SEP   #$20
L3B40    LDA   [$00],Y
         CMP   #$0D
         BEQ   L3B4C
         STA   [$04],Y
         INY
         JMP   L3B40

L3B4C    LDA   #$00
         STA   [$04],Y
         INY
         INY
         REP   #$30
         TYA
         CLC
         ADC   L0EDB
         STA   L0EDB
         LDA   #$0000
         ADC   L0EDD
         STA   L0EDD
         RTS

L3B66    REP   #$30
         LDA   L1007
         STA   L0EDB
         LDA   L1009
         STA   L0EDD
         JSR   L7419
         JSR   LAA58
         LDA   #L2215
         STA   L0EDB
         LDA   #^L2215
         STA   L0EDD
         LDA   #$013F
         STA   L0EDF
         LDA   #$0000
         STA   L0EE3
         LDA   #$0077
         STA   L0EE7
         JSR   L3EBF
         LDA   #L223D
         STA   L0EDB
         LDA   #^L223D
         STA   L0EDD
         LDA   #$013F
         STA   L0EDF
         LDA   #$0000
         STA   L0EE3
         LDA   #$0086
         STA   L0EE7
         JSR   L3EBF
         JSR   L80DA
         LDA   #$0001
         STA   L0EDB
         JSR   L7A32
         LDA   #L2265
         STA   L0EDB
         LDA   #^L2265
         STA   L0EDD
         LDA   #$009A
         STA   L0EDF
         LDA   #$0094
         STA   L0EE3
         LDA   #$0012
         STA   L0EE7
         JSR   L3EBF
         LDA   #L2273
         STA   L0EDB
         LDA   #^L2273
         STA   L0EDD
         LDA   #$009A
         STA   L0EDF
         LDA   #$0094
         STA   L0EE3
         LDA   #$0031
         STA   L0EE7
         JSR   L3EBF
         LDA   #L2281
         STA   L0EDB
         LDA   #^L2281
         STA   L0EDD
         LDA   #$009A
         STA   L0EDF
         LDA   #$0094
         STA   L0EE3
         LDA   #$0050
         STA   L0EE7
         JSR   L3EBF
         JSR   L13B2
         JSR   L7444
         RTS

L3C32    REP   #$30
         JSR   L80DA
         LDA   #L3CB2
         STA   L0EDF
         LDA   #^L3CB2
         STA   L0EE1
         LDA   L0EDB
         DEC
         ASL
         ASL
         CLC
         ADC   L0EDF
         STA   L0EF7
         LDA   #$0000
         ADC   L0EE1
         STA   L0EF9
         LDA   #$2000
         STA   L0EDB
         LDA   #$00E1
         STA   L0EDD
         JSR   L7419
         LDA   #L3CAA
         STA   L0EDB
         LDA   #^L3CAA
         STA   L0EDD
         LDA   #$000F
         STA   L0EDF
         JSR   L763D
         LDA   #$0001
         STA   L0EDB
         JSR   L13A6
         LDA   L0EF7
         STA   $00
         LDA   L0EF9
         STA   $02
         LDA   [$00]
         STA   L0EDB
         LDY   #$0002
         LDA   [$00],Y
         STA   L0EDD
         LDA   #$00C0
         STA   L0EDF
         JSR   L7A4E
         JSR   L10BA
         RTS

L3CAA    DB    $B4
         DB    $00
         DB    $02
         DB    $00
         DB    $C6
         DB    $00
         DB    $32
         DB    $01
L3CB2    ADRL  L3CF6
         ADRL  L3D12
         ADRL  L3D2B
         ADRL  L3D4A
         ADRL  L3D6A
         ADRL  L3D78
         ADRL  L3D9A
         ADRL  L3DB7
         ADRL  L3DCA
         ADRL  L3DD8
         ADRL  L3DE9
         ADRL  L3DFD
         ADRL  L3E0D
         ADRL  L3E19
         ADRL  L3E27
         ADRL  L3E4A
         ADRL  L3E69
L3CF6    ASC   'Columbus Discovers America'00
         ASC   00
L3D12    ASC   'Explorers and Colonists'00
         ASC   00
L3D2B    ASC   'The Pilgrims and Thanksgiving'00
         ASC   00
L3D4A    ASC   'Manhattan Island and the Dutch'00
         ASC   00
L3D6A    ASC   'William Penn'00
         ASC   00
L3D78    ASC   'The Midnight Ride of Paul Revere'00
         ASC   00
L3D9A    ASC   'Independence Day - July 4th'00
         ASC   00
L3DB7    ASC   'George Washington'00
         ASC   00
L3DCA    ASC   'Daniel Boone'00
         ASC   00
L3DD8    ASC   'Lewis and Clark'00
         ASC   00
L3DE9    ASC   'Our Country'27's Song'00
         ASC   00
L3DFD    ASC   'Transportation'00
         ASC   00
L3E0D    ASC   'Inventions'00
         ASC   00
L3E19    ASC   'The Pioneers'00
         ASC   00
L3E27    ASC   'Abraham Lincoln and the Civil War'00
         ASC   00
L3E4A    ASC   'Alaska, Hawaii and our Future'00
         ASC   00
L3E69    ASC   'Exit the History Lessons'00
         ASC   00

L3E83    REP   #$30	; /AMERICA1.DSK
         LDA   #L1C86
         STA   L0EDB
         LDA   #^L1C86
         STA   L0EDD
         LDA   #L1F7D
         STA   L0EDF
         LDA   #^L1F7D
         STA   L0EE1
         JSR   L97A8
         RTS

L3EA1    REP   #$30	; /AMERICA2.DSK
         LDA   #L1C94
         STA   L0EDB
         LDA   #^L1C94
         STA   L0EDD
         LDA   #L1FB4
         STA   L0EDF
         LDA   #^L1FB4
         STA   L0EE1
         JSR   L97A8
         RTS

L3EBF    REP   #$30
         LDA   L0EDB
         STA   L3F27
         LDA   L0EDD
         STA   L3F29
         LDA   L0EDF
         STA   L3F2B
         LDA   L0EE3
         STA   L3F2D
         LDA   L0EE7
         STA   L3F2F
         PEA   $0000
         LDA   L3F29
         PHA
         LDA   L3F27
         PHA
         _CStringWidth
         PLA
         STA   L0EDF
         LDA   #$0000
         STA   L0EDB
         LDA   L3F2B
         STA   L0EE3
         JSR   L3F31
         LDA   L0EDB
         CLC
         ADC   L3F2D
         STA   L0EDB
         LDA   L3F2F
         STA   L0EDF
         JSR   L7998
         LDA   L3F27
         STA   L0EDB
         LDA   L3F29
         STA   L0EDD
         JSR   L79D1
         RTS

L3F27    DB    $00
         DB    $00
L3F29    DB    $00
         DB    $00
L3F2B    DB    $00
         DB    $00
L3F2D    DB    $00
         DB    $00
L3F2F    DB    $00
         DB    $00

L3F31    REP   #$30
         LDA   L0EE3
         SEC
         SBC   L0EDF
         LSR
         STA   L0EDB
         RTS

L3F3F    REP   #$30
         LDA   L0EDB
         STA   L3FD4
         LDA   L100B
         STA   L0EDB
         LDA   L100D
         STA   L0EDD
         LDA   L1007
         STA   L0EDF
         LDA   L1009
         STA   L0EE1
         JSR   L7613
         LDA   L100F
         STA   L0EDB
         LDA   L1011
         STA   L0EDD
         LDA   #L3FD6
         STA   $00
         LDA   #^L3FD6
         STA   $02
         LDA   L3FD4
         ASL
         ASL
         TAY
         LDA   [$00],Y
         STA   L0EDF
         INY
         INY
         LDA   [$00],Y
         STA   L0EE1
         LDA   L1007
         STA   L0EE3
         LDA   L1009
         STA   L0EE5
         LDA   #L3FE2
         STA   $00
         LDA   #^L3FE2
         STA   $02
         LDA   L3FD4
         ASL
         ASL
         TAY
         LDA   [$00],Y
         STA   L0EE7
         INY
         INY
         LDA   [$00],Y
         STA   L0EE9
         LDA   #$0000
         STA   L0EEB
         JSR   L7D6E
         LDA   #$0000
         STA   L0EDB
         LDA   #L0FE7
         STA   L0EDF
         LDA   #^L0FE7
         STA   L0EE1
         JSR   L76CD
         JSR   L37FE
         RTS

L3FD4    DB    $00
         DB    $00
L3FD6    ADRL  L3FEE
         ADRL  L3FF6
         ADRL  L3FFE
L3FE2    ADRL  L4006
         ADRL  L400E
         ADRL  L4016
L3FEE    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $60
         DB    $00
         DB    $92
         DB    $00
L3FF6    DB    $00
         DB    $00
         DB    $9E
         DB    $00
         DB    $60
         DB    $00
         DB    $30
         DB    $01
L3FFE    DB    $68
         DB    $00
         DB    $00
         DB    $00
         DB    $C8
         DB    $00
         DB    $92
         DB    $00
L4006    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $60
         DB    $00
         DB    $92
         DB    $00
L400E    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $60
         DB    $00
         DB    $92
         DB    $00
L4016    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $60
         DB    $00
         DB    $92
         DB    $00
L401E    REP   #$30
         STZ   L41F6
L4023    JSR   L1344
         CMP   #$001B
         BNE   L402E
         JMP   L406D

L402E    LDA   L0EDB
         BEQ   L4023
         JSR   L7468
         LDA   #L41F8
         STA   L0EE3
         LDA   #^L41F8
         STA   L0EE5
         LDA   #$0004
         STA   L0EE7
         JSR   L7BD2
         LDA   L0EEB
         BEQ   L4023
         CMP   L41F6
         BEQ   L4073
         STA   L41F6
         JSR   L10BA
         LDA   L41F6
         DEC
         CMP   #$0003
         BEQ   L406A
         STA   L0EDB
         JSR   L3F3F
L406A    JMP   L4023

L406D    LDA   #$001B
         JMP   L41ED

L4073    LDA   L41F6
         CMP   #$0004
         BEQ   L406D
         CMP   L2297
         BNE   L4083
         JMP   L4169

L4083    JSR   L8005
         LDA   #L8B1D
         STA   L0EDB
         LDA   #^L8B1D
         STA   L0EDD
         JSR   L872B
         JSR   L1066
         LDA   #L4218
         STA   $00
         LDA   #^L4218
         STA   $02
         LDA   L2297
         DEC
         ASL
         ASL
         TAY
         LDA   [$00],Y
         STA   L0EDB
         INY
         INY
         LDA   [$00],Y
         STA   L0EDD
         LDA   #$0000
         STA   L0EDF
         JSR   L763D
         LDA   #$0001
         STA   L0EDB
         JSR   L7A32
         LDA   #L2265
         STA   L0EDB
         LDA   #^L2265
         STA   L0EDD
         LDA   #$009A
         STA   L0EDF
         LDA   #$0094
         STA   L0EE3
         LDA   #$0012
         STA   L0EE7
         JSR   L3EBF
         LDA   #L2273
         STA   L0EDB
         LDA   #^L2273
         STA   L0EDD
         LDA   #$009A
         STA   L0EDF
         LDA   #$0094
         STA   L0EE3
         LDA   #$0031
         STA   L0EE7
         JSR   L3EBF
         LDA   #L2281
         STA   L0EDB
         LDA   #^L2281
         STA   L0EDD
         LDA   #$009A
         STA   L0EDF
         LDA   #$0094
         STA   L0EE3
         LDA   #$0050
         STA   L0EE7
         JSR   L3EBF
         JSR   L879D
         LDA   L100F
         STA   L0EDB
         LDA   L1011
         STA   L0EDD
         LDA   #L4224
         STA   L0EDF
         LDA   #^L4224
         STA   L0EE1
         LDA   #$2000
         STA   L0EE3
         LDA   #$00E1
         STA   L0EE5
         LDA   #L4234
         STA   L0EE7
         LDA   #^L4234
         STA   L0EE9
         LDA   #$0000
         STA   L0EEB
         JSR   L7D6E
         JMP   L41BD

L4169    JSR   L7FED
         JSR   L1090
         LDA   #L8B11
         STA   L0EDB
         LDA   #^L8B11
         STA   L0EDD
         JSR   L872B
         LDA   L100F
         STA   L0EDB
         LDA   L1011
         STA   L0EDD
         LDA   #L422C
         STA   L0EDF
         LDA   #^L422C
         STA   L0EE1
         LDA   #$2000
         STA   L0EE3
         LDA   #$00E1
         STA   L0EE5
         LDA   #L4234
         STA   L0EE7
         LDA   #^L4234
         STA   L0EE9
         LDA   #$0000
         STA   L0EEB
         JSR   L7D6E
         JSR   L87EA
         JMP   L41EA

L41BD    LDA   #L41EE
         STA   L0EDB
         LDA   #^L41EE
         STA   L0EDD
         STZ   L0EDF
         JSR   L763D
         LDA   #L423C
         STA   L0EDB
         LDA   #^L423C
         STA   L0EDD
         LDA   #$00C2
         STA   L0EDF
         JSR   L7A4E
         JSR   L7FB9
         JSR   L74E9
L41EA    LDA   #$0000
L41ED    RTS

L41EE    DB    $B4
         DB    $00
         DB    $0A
         DB    $00
         DB    $C4
         DB    $00
         DB    $2C
         DB    $01
L41F6    DB    $00
         DB    $00
L41F8    DB    $05
         DB    $00
         DB    $94
         DB    $00
         DB    $15
         DB    $00
         DB    $2F
         DB    $01
L4200    DB    $24
         DB    $00
         DB    $94
         DB    $00
         DB    $34
         DB    $00
         DB    $2F
         DB    $01
L4208    DB    $43
         DB    $00
         DB    $94
         DB    $00
         DB    $53
         DB    $00
         DB    $2F
         DB    $01
         DB    $B4
         DB    $00
         DB    $32
         DB    $01
         DB    $C6
         DB    $00
         DB    $3E
         DB    $01
L4218    ADRL  L41F8
         ADRL  L4200
         ADRL  L4208
L4224    DB    $68
         DB    $00
         DB    $9D
         DB    $00
         DB    $C8
         DB    $00
         DB    $E6
         DB    $00
L422C    DB    $68
         DB    $00
         DB    $EA
         DB    $00
         DB    $C8
         DB    $00
         DB    $33
         DB    $01
L4234    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $60
         DB    $00
         DB    $49
         DB    $00
L423C    ASC   'Click the mouse to continue.'00
         ASC   00
L425A    REP   #$30
         JSR   L89BC
         JSR   L804E
         JSR   L914E
         LDA   #L8DD1
         STA   L0EDB
         LDA   #^L8DD1
         STA   L0EDD
         LDA   #L8DD1
         STA   L0EDF
         LDA   #^L8DD1
         STA   L0EE1
         LDA   #$0001
         STA   L0EE3
         JSR   L9588
         LDA   L8DC2
         CMP   #$0002
         BNE   L42AF
         LDA   #L8DE9
         STA   L0EDB
         LDA   #^L8DE9
         STA   L0EDD
         LDA   #L8DE9
         STA   L0EDF
         LDA   #^L8DE9
         STA   L0EE1
         LDA   #$0002
         STA   L0EE3
         JSR   L9588
L42AF    JSR   L8A8E
         RTS

         REP   #$30
         JSR   L870D
         JSR   L3E83
L42BB    REP   #$30
         LDA   #L478B
         STA   L0EDB
         LDA   #^L478B
         STA   L0EDD
         LDA   L1013
         STA   L0EDF
         LDA   L1015
         STA   L0EE1
         LDA   #L0FE7
         STA   L0EE3
         LDA   #^L0FE7
         STA   L0EE5
         JSR   L7860
L42E4    LDA   #$000D
         STA   L4815
         LDA   #L4923
         STA   L47FF
         LDA   #^L4923
         STA   L4801
         LDA   #L4F0F
         STA   L4803
         LDA   #^L4F0F
         STA   L4805
         LDA   #L4EFF
         STA   L4807
         LDA   #^L4EFF
         STA   L4809
         LDA   #$0000
         STA   L4813
         LDA   #$0010
         STA   L4811
         LDA   #$0005
         STA   L57CA
         LDA   #$0003
         STA   L57CC
         LDA   #L4957
         STA   L57CE
         LDA   #^L4957
         STA   L57D0
         LDA   #L49C7
         STA   L57D2
         LDA   #^L49C7
         STA   L57D4
         JSR   L9E9E
         CMP   #$001B
         BNE   L4349
         JMP   L44DA

L4349    CMP   #$0001
         BNE   L4354
         JSR   L6BCF
         JMP   L42E4

L4354    CMP   #$0002
         BNE   L42E4
         JSR   L6A07
         JMP   L42E4

L435F    REP   #$30
         LDA   #L47B0
         STA   L0EDB
         LDA   #^L47B0
         STA   L0EDD
         LDA   L1013
         STA   L0EDF
         LDA   L1015
         STA   L0EE1
         LDA   #L0FE7
         STA   L0EE3
         LDA   #^L0FE7
         STA   L0EE5
         JSR   L7860
L4388    LDA   #$0023
         STA   L4815
         LDA   #L4BAF
         STA   L47FF
         LDA   #^L4BAF
         STA   L4801
         LDA   #L4F1F
         STA   L4803
         LDA   #^L4F1F
         STA   L4805
         LDA   #L4EEF
         STA   L4807
         LDA   #^L4EEF
         STA   L4809
         LDA   #$0000
         STA   L4813
         LDA   #$0010
         STA   L4811
         LDA   #$000A
         STA   L57CA
         LDA   #$0002
         STA   L57CC
         LDA   #L49FF
         STA   L57CE
         LDA   #^L49FF
         STA   L57D0
         LDA   #L4B1F
         STA   L57D2
         LDA   #^L4B1F
         STA   L57D4
         JSR   LA13D
         CMP   #$001B
         BNE   L43ED
         JMP   L44DA

L43ED    CMP   #$0001
         BNE   L43F8
         JSR   L6BCF
         JMP   L4388

L43F8    CMP   #$0002
         BNE   L4388
         JSR   L6A07
         JMP   L4388

         JSR   L74E9
         JMP   L44DA

L4409    REP   #$30
         LDA   #L47D6
         STA   L0EDB
         LDA   #^L47D6
         STA   L0EDD
         LDA   L1013
         STA   L0EDF
         LDA   L1015
         STA   L0EE1
         LDA   #L0FE7
         STA   L0EE3
         LDA   #^L0FE7
         STA   L0EE5
         JSR   L7860
L4432    LDA   #$0032
         STA   L4815
         LDA   #L4BAF
         STA   L47FF
         LDA   #^L4BAF
         STA   L4801
         LDA   #L4F1F
         STA   L4803
         LDA   #^L4F1F
         STA   L4805
         LDA   #L4EEF
         STA   L4807
         LDA   #^L4EEF
         STA   L4809
         LDA   #$0000
         STA   L4813
         LDA   #$0010
         STA   L4811
         LDA   #$000A
         STA   L57CA
         LDA   #$0003
         STA   L57CC
         LDA   #L4C77
         STA   L57CE
         LDA   #^L4C77
         STA   L57D0
         LDA   #L4E0F
         STA   L57D2
         LDA   #^L4E0F
         STA   L57D4
         JSR   LA3DB
         CMP   #$001B
         BNE   L4497
         JMP   L44DA

L4497    CMP   #$0001
         BNE   L44A2
         JSR   L6BCF
         JMP   L4432

L44A2    CMP   #$0002
         BNE   L44AD
         JSR   L6A07
         JMP   L4432

L44AD    CMP   #$0003
         BNE   L44BE
         LDA   #$0002
         STA   L4811
         JSR   L5DA9
         JMP   L4432

L44BE    CMP   #$0004
         BNE   L44CF
         LDA   #$0010
         STA   L4811
         JSR   L5EB1
         JMP   L4432

L44CF    CMP   #$0005
         BNE   L44D7
         JSR   L65E2
L44D7    JMP   L4432
L44DA    JMP   L1321

L44DD    REP   #$30
         LDA   L4FC3
         DEC
         STA   L0EDB
         STA   L57B4
         LDA   L4FC5
         STA   L0EDF
         LDA   L4FC5
         STA   L57B6
         JSR   L467B
         CMP   #$0000
         BEQ   L4505
         CMP   #$0001
         BEQ   L4505
         JSR   L4691
L4505    LDA   L4FC3
         INC
         STA   L0EDB
         STA   L57B4
         LDA   L4FC5
         STA   L0EDF
         LDA   L4FC5
         STA   L57B6
         JSR   L467B
         CMP   #$0000
         BEQ   L452B
         CMP   #$0001
         BEQ   L452B
         JSR   L4691
L452B    LDA   L4FC5
         DEC
         STA   L0EDF
         STA   L57B6
         LDA   L4FC3
         STA   L0EDB
         LDA   L4FC3
         STA   L57B4
         JSR   L467B
         CMP   #$0000
         BEQ   L4551
         CMP   #$0001
         BEQ   L4551
         JSR   L4691
L4551    LDA   L4FC5
         INC
         STA   L0EDF
         STA   L57B6
         LDA   L4FC3
         STA   L0EDB
         LDA   L4FC3
         STA   L57B4
         JSR   L467B
         CMP   #$0000
         BEQ   L4577
         CMP   #$0001
         BEQ   L4577
         JSR   L4691
L4577    RTS

L4578    REP   #$30
         LDA   L0EDB
         STA   $00
         LDA   L0EDD
         STA   $02
         LDA   L0EDF
         STA   $04
         LDA   L0EE1
         STA   $06
         LDY   #$0000
         STY   L45C3
         SEP   #$20
         STZ   L45C5
L4599    LDA   [$00],Y
         BEQ   L459F
         ORA   #$20
L459F    STA   L45C5
         LDA   [$04],Y
         BEQ   L45A8
         ORA   #$20
L45A8    CMP   L45C5
         BNE   L45BD
         CMP   #$00
         BEQ   L45B7
         INY
         CPY   L4811
         BNE   L4599
L45B7    REP   #$30
         LDA   #$0000
         RTS

L45BD    REP   #$30
         LDA   #$0001
         RTS

L45C3    DB    $00
         DB    $00
L45C5    DB    $00
L45C6    REP   #$30
         LDA   L57B0
         SEC
         SBC   #$0004
         STA   L57B0
         LDA   L57B2
         SEC
         SBC   #$0004
         STA   L57B2
         RTS

L45DD    REP   #$30
         JSR   L69FA
         LDA   L47FF
         STA   L0EDB
         LDA   L4801
         STA   L0EDD
         LDA   L4817
         ASL
         ASL
         CLC
         ADC   L0EDB
         STA   L0EF7
         LDA   #$0000
         ADC   L0EDD
         STA   L0EF9
         LDA   L0EF7
         STA   $00
         LDA   L0EF9
         STA   $02
         LDA   [$00]
         STA   L57BA
         LDY   #$0002
         LDA   [$00],Y
         STA   L57B8
L461A    LDA   #$0000
         STA   L57B2
         LDA   #$0002
         STA   L57B0
         LDA   L57B8
         STA   L4FC3
         LDA   L57BA
         STA   L4FC5
         LDA   L100B
         STA   $00
         LDA   L100D
         STA   $02
         LDY   L57B2
         LDA   L4FC5
         STA   [$00],Y
         LDY   L57B0
         LDA   L4FC3
         STA   [$00],Y
L464C    JSR   L600D
         JSR   L44DD
         LDA   L57B2
         BPL   L465A
         JMP   L467A

L465A    LDA   L100B
         STA   $00
         LDA   L100D
         STA   $02
         LDY   L57B2
         LDA   [$00],Y
         STA   L4FC5
         LDY   L57B0
         LDA   [$00],Y
         STA   L4FC3
         JSR   L45C6
         JMP   L464C
L467A    RTS

L467B    REP   #$30
         PEA   $0000
         LDA   L0EDB
         PHA
         LDA   L0EDF
         PHA
         _GetPixel
         PLA
         RTS

L4691    REP   #$30
         JSR   L69E3
         LDA   L100B
         STA   $00
         LDA   L100D
         STA   $02
         LDY   L57B2
         LDA   L57B6
         STA   [$00],Y
         LDY   L57B0
         LDA   L57B4
         STA   [$00],Y
         RTS

L46B1    REP   #$30
         LDA   L8DC4
         STA   L0EDB
         LDA   L8DC6
         STA   L0EDD
         LDA   #L574C
         STA   L0EDF
         LDA   #^L574C
         STA   L0EE1
         JSR   L61CC
         LDA   L0EDF
         STA   L0EFB
         LDA   L0EE1
         STA   L0EFD
         JSR   L7532
         AND   #$0003
         STA   L4813
         LDA   L4807
         STA   L0EDB
         LDA   L4809
         STA   L0EDD
         LDA   L4813
         ASL
         ASL
         CLC
         ADC   L0EDB
         STA   L0EF7
         LDA   #$0000
         ADC   L0EDD
         STA   L0EF9
         LDA   L0EF7
         STA   $00
         LDA   L0EF9
         STA   $02
         LDA   [$00]
         STA   L0EDB
         LDY   #$0002
         LDA   [$00],Y
         STA   L0EDD
         LDA   L0EFB
         STA   L0EDF
         LDA   L0EFD
         STA   L0EE1
         JSR   L61CC
         LDA   L0EDF
         STA   $00
         LDA   L0EE1
         STA   $02
         LDY   #$0000
         SEP   #$20
         LDA   #$00
         STA   [$00],Y
         REP   #$30
         LDA   #L4F5B
         STA   L0EDB
         LDA   #^L4F5B
         STA   L0EDD
         LDA   #$0001
         STA   L0EDF
         JSR   L763D
         LDA   #L4F63
         STA   L0EDB
         LDA   #^L4F63
         STA   L0EDD
         LDA   #$0002
         STA   L0EDF
         JSR   L763D
         LDA   #$0001
         STA   L0EDB
         JSR   L7A32
         JSR   L80DA
         LDA   #L574C
         STA   L0EDB
         LDA   #^L574C
         STA   L0EDD
         LDA   #$000A
         STA   L0EDF
         JSR   L7A4E
         RTS

L478B    STR   '1/america.pics/map13.pcn'
L47B0    STR   '1/america.pics/mapciv.pcn'
L47D6    STR   '1/america.pics/mapus.pcn'
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L47FF    DB    $00
         DB    $00
L4801    DB    $00
         DB    $00
L4803    DB    $00
         DB    $00
L4805    DB    $00
         DB    $00
L4807    DB    $00
         DB    $00
L4809    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L480F    DB    $00
         DB    $00
L4811    DB    $00
         DB    $00
L4813    DB    $00
         DB    $00
L4815    DB    $00
         DB    $00
L4817    DB    $00
         DB    $00
         DB    $00
         DB    $00
L481B    DB    $00
         DB    $00
L481D    DB    $00
         DB    $00
L481F    DB    $00
         DB    $00
L4821    DB    $00
         DB    $00
L4823	ADRL	L4FCB
	ADRL	L4FE2
	ADRL	L4FFB
	ADRL	L501A
	ADRL	L5038
	ADRL	L5057
	ADRL	L506E
	ADRL	L5088
	ADRL	L50A4
	ADRL	L50C0
	ADRL	L50DF
	ADRL	L50FC
	ADRL	L5116
	ADRL	L512C
	ADRL	L5146
	ADRL	L5160
	ADRL	L517B
	ADRL	L5190
	ADRL	L51AD
	ADRL	L51C9
	ADRL	L51E4
	ADRL	L5200
	ADRL	L521A
	ADRL	L522F
	ADRL	L524E
	ADRL	L526A
	ADRL	L5282
	ADRL	L529D
	ADRL	L52B1
	ADRL	L52C8
	ADRL	L52E1
	ADRL	L52FE
	ADRL	L5318
	ADRL	L532C
	ADRL	L5341
	ADRL	L5361
	ADRL	L5376
	ADRL	L538D
	ADRL	L53A4
	ADRL	L53BB
	ADRL	L53CE
	ADRL	L53E4
	ADRL	L53FC
	ADRL	L5416
	ADRL	L5431
	ADRL	L544E
	ADRL	L546C
	ADRL	L5487
	ADRL	L54A2
	ADRL	L54BC
L48EB	DW	$00B1
	DW	$0015
	DW	$00B2
	DW	$000C
	DW	$00AE
	DW	$000C
	DW	$00AC
	DW	$0012
	DW	$00B1
	DW	$0005
	DW	$00B4
	DW	$0005
	DW	$00B3
	DW	$0000
L4907	DW	$0099
	DW	$005B
	DW	$009C
	DW	$0060
	DW	$00A2
	DW	$0066
	DW	$00A1
	DW	$0069
	DW	$00A6
	DW	$006C
	DW	$00A3
	DW	$0070
	DW	$00AC
	DW	$0078
L4923	DW	$002B
	DW	$00F6
	DW	$0057
	DW	$00ED
	DW	$003D
	DW	$00E9
	DW	$0064
	DW	$00EB
	DW	$007B
	DW	$00DC
	DW	$0084
	DW	$00C2
	DW	$003A
	DW	$00F9
	DW	$0024
	DW	$0108
	DW	$002D
	DW	$0100
	DW	$0029
	DW	$0106
	DW	$001D
	DW	$0102
	DW	$004C
	DW	$00F1
	DW	$0048
	DW	$00F5
L4957	DW	$002B
	DW	$00F6
	DW	$002D
	DW	$00F8
L495F	DW	$0057
	DW	$00ED
	DW	$0059
	DW	$00EF
L4967	DW	$003D
	DW	$00E9
	DW	$003F
	DW	$00EB
L496F	DW	$0064
	DW	$00EB
	DW	$0066
	DW	$00ED
L4977	DW	$007B
	DW	$00DC
	DW	$007D
	DW	$00DE
L497F	DW	$0084
	DW	$00C2
	DW	$0086
	DW	$00C4
L4987	DW	$003A
	DW	$00F9
	DW	$003C
	DW	$00FB
L498F	DW	$0024
	DW	$0108
	DW	$0026
	DW	$010A
L4997	DW	$002D
	DW	$0100
	DW	$002F
	DW	$0102
L499F	DW	$0029
	DW	$0106
	DW	$002B
	DW	$0108
L49A7	DW	$001D
	DW	$0102
	DW	$001F
	DW	$0104
L49AF	DW	$004C
	DW	$00F1
	DW	$004E
	DW	$00F3
L49B7	DW	$0048
	DW	$00F5
	DW	$004A
	DW	$00F7
L49BF	DW	$00B4
	DW	$0132
	DW	$00C8
	DW	$0140
L49C7	ADRL	L4957
	ADRL	L495F
	ADRL	L4967
	ADRL	L496F
	ADRL	L4977
	ADRL	L497F
	ADRL	L4987
	ADRL	L498F
	ADRL	L4997
	ADRL	L499F
	ADRL	L49A7
	ADRL	L49AF
	ADRL	L49B7
	ADRL	L49BF
L49FF	DW	$0038
	DW	$0104
	DW	$003A
	DW	$0106
L4A07	DW	$005B
	DW	$00FE
	DW	$005D
	DW	$0100
L4A0F	DW	$0049
	DW	$00FC
	DW	$004B
	DW	$00FE
L4A17	DW	$0069
	DW	$00FC
	DW	$006B
	DW	$00FE
L4A1F	DW	$0078
	DW	$00F2
	DW	$007A
	DW	$00F4
L4A27	DW	$007C
	DW	$00E1
	DW	$007E
	DW	$00E3
L4A2F	DW	$0049
	DW	$0109
	DW	$004B
	DW	$010B
L4A37	DW	$0037
	DW	$0114
	DW	$0039
	DW	$0116
L4A3F	DW	$003D
	DW	$010E
	DW	$003F
	DW	$0110
L4A47	DW	$003A
	DW	$0113
	DW	$003C
	DW	$0115
L4A4F	DW	$0030
	DW	$010F
	DW	$0032
	DW	$0111
L4A57	DW	$0054
	DW	$0102
	DW	$0056
	DW	$0104
L4A5F	DW	$0050
	DW	$0104
	DW	$0052
	DW	$0106
L4A67	DW	$002D
	DW	$0109
	DW	$002F
	DW	$010B
L4A6F	DW	$005E
	DW	$00DB
	DW	$0060
	DW	$00DD
L4A77	DW	$006F
	DW	$00D2
	DW	$0071
	DW	$00D4
L4A7F	DW	$0052
	DW	$00DF
	DW	$0054
	DW	$00E1
L4A87	DW	$0096
	DW	$00BE
	DW	$0098
	DW	$00C0
L4A8F	DW	$0054
	DW	$00D1
	DW	$0056
	DW	$00D3
L4A97	DW	$0086
	DW	$00C5
	DW	$0088
	DW	$00C7
L4A9F	DW	$0054
	DW	$00C1
	DW	$0056
	DW	$00C3
L4AA7	DW	$0086
	DW	$00D3
	DW	$0088
	DW	$00D5
L4AAF	DW	$0029
	DW	$0116
	DW	$002B
	DW	$0118
L4AB7	DW	$0063
	DW	$00B1
	DW	$0065
	DW	$00B3
L4ABF	DW	$007C
	DW	$00B4
	DW	$007E
	DW	$00B6
L4AC7	DW	$0043
	DW	$00D6
	DW	$0045
	DW	$00D8
L4ACF	DW	$0092
	DW	$00E5
	DW	$0094
	DW	$00E7
L4AD7	DW	$0096
	DW	$0099
	DW	$0098
	DW	$009B
L4ADF	DW	$004D
	DW	$00AC
	DW	$004F
	DW	$00AE
L4AE7	DW	$003D
	DW	$00C0
	DW	$003F
	DW	$00C2
L4AEF	DW	$004E
	DW	$0029
	DW	$0050
	DW	$002B
L4AF7	DW	$0034
	DW	$00AE
	DW	$0036
	DW	$00B0
L4AFF	DW	$0025
	DW	$0030
	DW	$0027
	DW	$0032
L4B07	DW	$005D
	DW	$009F
	DW	$005F
	DW	$00A1
L4B0F	DW	$0058
	DW	$00EB
	DW	$005A
	DW	$00ED
L4B17	DW	$00B4
	DW	$0132
	DW	$00C8
	DW	$0140
L4B1F	ADRL	L49FF
	ADRL	L4A07
	ADRL	L4A0F
	ADRL	L4A17
	ADRL	L4A1F
	ADRL	L4A27
	ADRL	L4A2F
	ADRL	L4A37
	ADRL	L4A3F
	ADRL	L4A47
	ADRL	L4A4F
	ADRL	L4A57
	ADRL	L4A5F
	ADRL	L4A67
	ADRL	L4A6F
	ADRL	L4A77
	ADRL	L4A7F
	ADRL	L4A87
	ADRL	L4A8F
	ADRL	L4A97
	ADRL	L4A9F
	ADRL	L4AA7
	ADRL	L4AAF
	ADRL	L4AB7
	ADRL	L4ABF
	ADRL	L4AC7
	ADRL	L4ACF
	ADRL	L4AD7
	ADRL	L4ADF
	ADRL	L4AE7
	ADRL	L4AEF
	ADRL	L4AF7
	ADRL	L4AFF
	ADRL	L4B07
	ADRL	L4B0F
	ADRL	L4B17
L4BAF	DW	$0038
	DW	$0104
	DW	$005B
	DW	$00FE
	DW	$0049
	DW	$00FC
	DW	$0069
	DW	$00FC
	DW	$0078
	DW	$00F2
	DW	$007C
	DW	$00E1
	DW	$0049
	DW	$0109
	DW	$0037
	DW	$0114
	DW	$003D
	DW	$010E
	DW	$003A
	DW	$0113
	DW	$0030
	DW	$010F
	DW	$0054
	DW	$0102
	DW	$0050
	DW	$0104
	DW	$002D
	DW	$0109
	DW	$005E
	DW	$00DB
	DW	$006F
	DW	$00D2
	DW	$0052
	DW	$00DF
	DW	$0096
	DW	$00BE
	DW	$0054
	DW	$00D1
	DW	$0086
	DW	$00C5
	DW	$0054
	DW	$00C1
	DW	$0086
	DW	$00D3
	DW	$0029
	DW	$0116
	DW	$0063
	DW	$00B1
	DW	$007C
	DW	$00B4
	DW	$0043
	DW	$00D6
	DW	$0092
	DW	$00E5
	DW	$0096
	DW	$0099
	DW	$004D
	DW	$00AC
	DW	$003D
	DW	$00C0
	DW	$004E
	DW	$0029
	DW	$0034
	DW	$00AE
	DW	$0025
	DW	$0030
	DW	$005D
	DW	$009F
	DW	$0058
	DW	$00EB
	DW	$00A5
	DW	$004C
	DW	$0077
	DW	$004B
	DW	$0054
	DW	$0075
	DW	$009E
	DW	$0067
	DW	$0038
	DW	$004A
	DW	$0025
	DW	$0060
	DW	$0053
	DW	$009D
	DW	$004C
	DW	$0034
	DW	$0070
	DW	$006F
	DW	$002B
	DW	$008E
	DW	$0075
	DW	$009B
	DW	$003B
	DW	$008F
	DW	$004B
	DW	$0055
	DW	$0018
	DW	$0034
	DW	$004D
	DW	$007A
L4C77	DW	$0038
	DW	$0104
	DW	$003A
	DW	$0106
L4C7F	DW	$005B
	DW	$00FE
	DW	$005D
	DW	$0100
L4C87	DW	$0049
	DW	$00FC
	DW	$004B
	DW	$00FE
L4C8F	DW	$0069
	DW	$00FC
	DW	$006B
	DW	$00FE
L4C97	DW	$0078
	DW	$00F2
	DW	$007A
	DW	$00F4
L4C9F	DW	$007C
	DW	$00E1
	DW	$007E
	DW	$00E3
L4CA7	DW	$0049
	DW	$0109
	DW	$004B
	DW	$010B
L4CAF	DW	$0037
	DW	$0114
	DW	$0039
	DW	$0116
L4CB7	DW	$003D
	DW	$010E
	DW	$003F
	DW	$0110
L4CBF	DW	$003A
	DW	$0113
	DW	$003C
	DW	$0115
L4CC7	DW	$0030
	DW	$010F
	DW	$0032
	DW	$0111
L4CCF	DW	$0054
	DW	$0102
	DW	$0056
	DW	$0104
L4CD7	DW	$0050
	DW	$0104
	DW	$0052
	DW	$0106
L4CDF	DW	$002D
	DW	$0109
	DW	$002F
	DW	$010B
L4CE7	DW	$005E
	DW	$00DB
	DW	$0060
	DW	$00DD
L4CEF	DW	$006F
	DW	$00D2
	DW	$0071
	DW	$00D4
L4CF7	DW	$0052
	DW	$00DF
	DW	$0054
	DW	$00E1
L4CFF	DW	$0096
	DW	$00BE
	DW	$0098
	DW	$00C0
L4D07	DW	$0054
	DW	$00D1
	DW	$0056
	DW	$00D3
L4D0F	DW	$0086
	DW	$00C5
	DW	$0088
	DW	$00C7
L4D17	DW	$0054
	DW	$00C1
	DW	$0056
	DW	$00C3
L4D1F	DW	$0086
	DW	$00D3
	DW	$0088
	DW	$00D5
L4D27	DW	$0029
	DW	$0116
	DW	$002B
	DW	$0118
L4D2F	DW	$0063
	DW	$00B1
	DW	$0065
	DW	$00B3
L4D37	DW	$007C
	DW	$00B4
	DW	$007E
	DW	$00B6
L4D3F	DW	$0043
	DW	$00D6
	DW	$0045
	DW	$00D8
L4D47	DW	$0092
	DW	$00E5
	DW	$0094
	DW	$00E7
L4D4F	DW	$0096
	DW	$0099
	DW	$0098
	DW	$009B
L4D57	DW	$004D
	DW	$00AC
	DW	$004F
	DW	$00AE
L4D5F	DW	$003D
	DW	$00C0
	DW	$003F
	DW	$00C2
L4D67	DW	$004E
	DW	$0029
	DW	$0050
	DW	$002B
L4D6F	DW	$0034
	DW	$00AE
	DW	$0036
	DW	$00B0
L4D77	DW	$0025
	DW	$0030
	DW	$0027
	DW	$0032
L4D7F	DW	$005D
	DW	$009F
	DW	$005F
	DW	$00A1
L4D87	DW	$0058
	DW	$00EB
	DW	$005A
	DW	$00ED
L4D8F	DW	$00A5
	DW	$004C
	DW	$00A7
	DW	$004E
L4D97	DW	$0077
	DW	$004B
	DW	$0079
	DW	$004D
L4D9F	DW	$0054
	DW	$0075
	DW	$0056
	DW	$0077
L4DA7	DW	$009E
	DW	$0067
	DW	$00A0
	DW	$0069
L4DAF	DW	$0038
	DW	$004A
	DW	$003A
	DW	$004C
L4DB7	DW	$0025
	DW	$0060
	DW	$0027
	DW	$0062
L4DBF	DW	$0053
	DW	$009D
	DW	$0055
	DW	$009F
L4DC7	DW	$004C
	DW	$0034
	DW	$004E
	DW	$0036
L4DCF	DW	$0070
	DW	$006F
	DW	$0072
	DW	$0071
L4DD7	DW	$002B
	DW	$008E
	DW	$002D
	DW	$0090
L4DDF	DW	$0075
	DW	$009B
	DW	$0077
	DW	$009D
L4DE7	DW	$003B
	DW	$008F
	DW	$003D
	DW	$0091
L4DEF	DW	$004B
	DW	$0055
	DW	$004D
	DW	$0057
L4DF7	DW	$0018
	DW	$0034
	DW	$001A
	DW	$0036
L4DFF	DW	$004D
	DW	$007A
	DW	$004F
	DW	$007C
L4E07	DW	$00B4
	DW	$0132
	DW	$00C8
	DW	$0140
L4E0F	ADRL	L4C77
	ADRL	L4C7F
	ADRL	L4C87
	ADRL	L4C8F
	ADRL	L4C97
	ADRL	L4C9F
	ADRL	L4CA7
	ADRL	L4CAF
	ADRL	L4CB7
	ADRL	L4CBF
	ADRL	L4CC7
	ADRL	L4CCF
	ADRL	L4CD7
	ADRL	L4CDF
	ADRL	L4CE7
	ADRL	L4CEF
	ADRL	L4CF7
	ADRL	L4CFF
	ADRL	L4D07
	ADRL	L4D0F
	ADRL	L4D17
	ADRL	L4D1F
	ADRL	L4D27
	ADRL	L4D2F
	ADRL	L4D37
	ADRL	L4D3F
	ADRL	L4D47
	ADRL	L4D4F
	ADRL	L4D57
	ADRL	L4D5F
	ADRL	L4D67
	ADRL	L4D6F
	ADRL	L4D77
	ADRL	L4D7F
	ADRL	L4D87
	ADRL	L4D8F
	ADRL	L4D97
	ADRL	L4D9F
	ADRL	L4DA7
	ADRL	L4DAF
	ADRL	L4DB7
	ADRL	L4DBF
	ADRL	L4DC7
	ADRL	L4DCF
	ADRL	L4DD7
	ADRL	L4DDF
	ADRL	L4DE7
	ADRL	L4DEF
	ADRL	L4DF7
	ADRL	L4DFF
	ADRL	L4E07
	DW	$00A8
	DW	$00BA
	DW	$013C
	DW	$00C4
L4EE3	ADRL	L5699
	ADRL	L5699
	ADRL	L5699
L4EEF	ADRL	L54D4
	ADRL	L54EB
	ADRL	L54FE
	ADRL	L5515
L4EFF	ADRL	L5532
	ADRL	L554A
	ADRL	L555E
	ADRL	L5576
L4F0F	ADRL	L55E8
	ADRL	L55C0
	ADRL	L55C9
	ADRL	L55FF
L4F1F	ADRL	L55AA
	ADRL	L55C0
	ADRL	L55C9
	ADRL	L55D2
L4F2F	ADRL	L5594
	ADRL	L559A
	ADRL	L55A0
	ADRL	L55A5
L4F3F	ADRL	L564E
	ADRL	L5659
	ADRL	L5667
	ADRL	L5675
	ADRL	L5682
L4F53	DW	$00BA
	DW	$0003
	DW	$00C5
	DW	$0132
L4F5B	DW	$0000
	DW	$0000
	DW	$000E
	DW	$0140
L4F63	DW	$0001
	DW	$0001
	DW	$000D
	DW	$013F
L4F6B	DW	$000F
	DW	$005F
	DW	$001B
	DW	$00E1
L4F73	DW	$0010
	DW	$0060
	DW	$001A
	DW	$00E0
L4F7B	DW	$0075
	DW	$0123
	DW	$0080
	DW	$012E
	DW	$00A1
	DW	$0123
	DW	$00AB
	DW	$012E
	DW	$008B
	DW	$0132
	DW	$0096
	DW	$013D
	DW	$008B
	DW	$0114
	DW	$0096
	DW	$011F
L4F9B	DW	$000F
	DW	$0000
	DW	$001B
	DW	$0028
	DW	$00B4
	DW	$0132
	DW	$00C6
	DW	$013E
L4FAB	DW	$0010
	DW	$0001
	DW	$001A
	DW	$0027
	DW	$0000
	DW	$0000
	DW	$000D
	DW	$0140
	DW	$0000
	DW	$0000
	DW	$000B
	DW	$0140
L4FC3	DW	$0000
L4FC5	DW	$0000
	DW	$0000
	DW	$0000
L4FCB	ASC	'New York'00
	ASC	'Albany'00
	ASC	'NY'00
	HEX	63030E63
L4FE2	ASC	'Virginia'00
	ASC	'Richmond'00
	ASC	'VA'00
	HEX	0C040D0F
L4FFB	ASC	'Pennsylvania'00
	ASC	'Harrisburg'00
	ASC	'PA'00
	HEX	010C0711
L501A	ASC	'North Carolina'00
	ASC	'Raleigh'00
	ASC	'NC'00
	HEX	02636310
L5038	ASC	'South Carolina'00
	ASC	'Columbia'00
	ASC	'SC'00
	HEX	63636306
L5057	ASC	'Georgia'00
	ASC	'Atlanta'00
	ASC	'GA'00
	HEX	101B0516
L506E	ASC	'New Jersey'00
	ASC	'Trenton'00
	ASC	'NJ'00
	HEX	010D6303
L5088	ASC	'Massachusetts'00
	ASC	'Boston'00
	ASC	'MA'00
	HEX	63636363
L50A4	ASC	'Connecticut'00
	ASC	'Hartford'00
	ASC	'CT'00
	HEX	63636363
L50C0	ASC	'Rhode Island'00
	ASC	'Providence'00
	ASC	'RI'00
	HEX	63636363
L50DF	ASC	'New Hampshire'00
	ASC	'Concord'00
	ASC	'NH'00
	HEX	6363170E
L50FC	ASC	'Maryland'00
	ASC	'Annapolis'00
	ASC	'MD'00
	HEX	03020D23
L5116	ASC	'Delaware'00
	ASC	'Dover'00
	ASC	'DE'00
	HEX	0702630C
L512C	ASC	'Vermont'00
	ASC	'Montpelier'00
	ASC	'VT'00
	HEX	63080B01
L5146	ASC	'Kentucky'00
	ASC	'Frankfort'00
	ASC	'KY'00
	HEX	11100218
L5160	ASC	'Tennessee'00
	ASC	'Nashville'00
	ASC	'TN'00
	HEX	0F160422
L517B	ASC	'Ohio'00
	ASC	'Columbus'00
	ASC	'OH'00
	HEX	1A0F0313
L5190	ASC	'Louisiana'00
	ASC	'Baton Rouge'00
	ASC	'LA'00
	HEX	1963141C
L51AD	ASC	'Indiana'00
	ASC	'Indianapolis'00
	ASC	'IN'00
	HEX	1A0F1115
L51C9	ASC	'Mississippi'00
	ASC	'Jackson'00
	ASC	'MS'00
	HEX	10631612
L51E4	ASC	'Illinois'00
	ASC	'Springfield'00
	ASC	'IL'00
	HEX	1E631318
L5200	ASC	'Alabama'00
	ASC	'Montgomery'00
	ASC	'AL'00
	HEX	10630614
L521A	ASC	'Maine'00
	ASC	'Augusta'00
	ASC	'ME'00
	HEX	6363630B
L522F	ASC	'Missouri'00
	ASC	'Jefferson City'00
	ASC	'MO'00
	HEX	1D191522
L524E	ASC	'Arkansas'00
	ASC	'Little Rock'00
	ASC	'AR'00
	HEX	1812102E
L526A	ASC	'Michigan'00
	ASC	'Lansing'00
	ASC	'MI'00
	HEX	6313631E
L5282	ASC	'Florida'00
	ASC	'Tallahassee'00
	ASC	'FL'00
	HEX	06636363
L529D	ASC	'Texas'00
	ASC	'Austin'00
	ASC	'TX'00
	HEX	2E63122C
L52B1	ASC	'Iowa'00
	ASC	'Des Moines'00
	ASC	'IA'00
	HEX	2018152A
L52C8	ASC	'Wisconsin'00
	ASC	'Madison'00
	ASC	'WI'00
	HEX	63151A20
L52E1	ASC	'California'00
	ASC	'Sacramento'00
	ASC	'CA'00
	HEX	21632B63
L52FE	ASC	'Minnesota'00
	ASC	'St. Paul'00
	ASC	'MN'00
	HEX	631D1E2D
L5318	ASC	'Oregon'00
	ASC	'Salem'00
	ASC	'OR'00
	HEX	311F2863
L532C	ASC	'Kansas'00
	ASC	'Topeka'00
	ASC	'KS'00
	HEX	2A2E1826
L5341	ASC	'West Virginia'00
	ASC	'Charleston'00
	ASC	'WV'00
	HEX	03020C11
L5361	ASC	'Alaska'00
	ASC	'Juneau'00
	ASC	'AK'00
	HEX	63636363
L5376	ASC	'Arizona'00
	ASC	'Phoenix'00
	ASC	'AZ'00
	HEX	30632C1F
L538D	ASC	'Colorado'00
	ASC	'Denver'00
	ASC	'CO'00
	HEX	322C2230
L53A4	ASC	'Hawaii'00
	ASC	'Honolulu'00
	ASC	'HI'00
	HEX	63636363
L53BB	ASC	'Idaho'00
	ASC	'Boise'00
	ASC	'ID'00
	HEX	632B2921
L53CE	ASC	'Montana'00
	ASC	'Helena'00
	ASC	'MT'00
	HEX	63322D28
L53E4	ASC	'Nebraska'00
	ASC	'Lincoln'00
	ASC	'NE'00
	HEX	2F221D32
L53FC	ASC	'Nevada'00
	ASC	'Carson City'00
	ASC	'NV'00
	HEX	2163301F
L5416	ASC	'New Mexico'00
	ASC	'Santa Fe'00
	ASC	'NM'00
	HEX	26631C25
L5431	ASC	'North Dakota'00
	ASC	'Bismarck'00
	ASC	'ND'00
	HEX	632F2029
L544E	ASC	'Oklahoma'00
	ASC	'Oklahoma City'00
	ASC	'OK'00
	HEX	221C192C
L546C	ASC	'South Dakota'00
	ASC	'Pierre'00
	ASC	'SD'00
	HEX	2D2A2032
L5487	ASC	'Utah'00
	ASC	'Salt Lake City'00
	ASC	'UT'00
	HEX	2825262B
L54A2	ASC	'Washington'00
	ASC	'Olympia'00
	ASC	'WA'00
	HEX	63212863
L54BC	ASC	'Wyoming'00
	ASC	'Cheyenne'00
	ASC	'WY'00
	HEX	29262F28
L54D4	ASC	', identify this state.'00
L54EB	ASC	', name this state.'00
L54FE	ASC	', which state is this?'00
L5515	ASC	', what is this state called?'00
L5532	ASC	', identify this colony.'00
L554A	ASC	', name this colony.'00
L555E	ASC	', which colony is this?'00
L5576	ASC	', what is this colony called?'00
L5594	ASC	'north'00
L559A	ASC	'south'00
L55A0	ASC	'east'00
L55A5	ASC	'west'00
L55AA	ASC	'This is the state of '00
L55C0	ASC	'This is '00
L55C9	ASC	'Here is '00
L55D2	ASC	'Here is the state of '00
L55E8	ASC	'This is the colony of '00
L55FF	ASC	'Here is the colony of '00
L5616	ASC	', what is the postal code?'00
L5631	ASC	', name this state'27's capital.'00
L564E	ASC	' is __ of '00
L5659	ASC	' is north of '00
L5667	ASC	' is south of '00
L5675	ASC	' is east of '00
L5682	ASC	' is west of '00
L568F	ASC	'Help'00
	ASC	'Exit'00
L5699	ASC	'The correct answer is '
L56AF	ASC	'                      '00
	DW	$0006
	DW	$00C2
	ASC	'                      '00
	ASC	'-->'00
	ASC	'                                       '
	ASC	'             '00
L571A    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L574C    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L577E    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L57B0    DB    $00
         DB    $00
L57B2    DB    $00
         DB    $00
L57B4    DB    $00
         DB    $00
L57B6    DB    $00
         DB    $00
L57B8    DB    $00
         DB    $00
L57BA    DB    $00
         DB    $00
L57BC    DB    $00
         DB    $00
L57BE    DB    $00
         DB    $00
L57C0    DB    $00
         DB    $00
L57C2    DB    $00
         DB    $00
L57C4    DB    $00
         DB    $00
L57C6    DB    $00
         DB    $00
L57C8    DB    $00
         DB    $00
L57CA    DB    $00
         DB    $00
L57CC    DB    $00
         DB    $00
L57CE    DB    $00
         DB    $00
L57D0    DB    $00
         DB    $00
L57D2    DB    $00
         DB    $00
L57D4    DB    $00
         DB    $00
L57D6    ASC   ', it'27's your turn.'00
L57E8    ASC   'This state'27's capital is '
L5800    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L581E    ASC   'Postal Code: '
L582B    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L5835    ASC   'Please select a colony.'00
L584D    ASC   'Please select a state.'00
         DB    $00
         DB    $00
L5866    REP   #$30
         LDA   L8DC4
         STA   L0EDB
         LDA   L8DC6
         STA   L0EDD
         LDA   #L574C
         STA   L0EDF
         LDA   #^L574C
         STA   L0EE1
         JSR   L61CC
         LDA   L0EDF
         STA   L0EFB
         LDA   L0EE1
         STA   L0EFD
         LDA   #L5616
         STA   L0EDB
         LDA   #^L5616
         STA   L0EDD
         LDA   L0EFB
         STA   L0EDF
         LDA   L0EFD
         STA   L0EE1
         JSR   L61CC
         LDA   L0EDF
         STA   $00
         LDA   L0EE1
         STA   $02
         LDY   #$0000
         SEP   #$20
         LDA   #$00
         STA   [$00],Y
         REP   #$30
         LDA   #L4F5B
         STA   L0EDB
         LDA   #^L4F5B
         STA   L0EDD
         LDA   #$0001
         STA   L0EDF
         JSR   L763D
         LDA   #L4F63
         STA   L0EDB
         LDA   #^L4F63
         STA   L0EDD
         LDA   #$0002
         STA   L0EDF
         JSR   L763D
         LDA   #$0001
         STA   L0EDB
         JSR   L7A32
         JSR   L80DA
         LDA   #L574C
         STA   L0EDB
         LDA   #^L574C
         STA   L0EDD
         LDA   #$000A
         STA   L0EDF
         JSR   L7A4E
         RTS

L590B    REP   #$30
         LDA   L8DC4
         STA   L0EDB
         LDA   L8DC6
         STA   L0EDD
         LDA   #L574C
         STA   L0EDF
         LDA   #^L574C
         STA   L0EE1
         JSR   L61CC
         LDA   L0EDF
         STA   L0EFB
         LDA   L0EE1
         STA   L0EFD
         LDA   #L5631
         STA   L0EDB
         LDA   #^L5631
         STA   L0EDD
         LDA   L0EFB
         STA   L0EDF
         LDA   L0EFD
         STA   L0EE1
         JSR   L61CC
         LDA   L0EDF
         STA   $00
         LDA   L0EE1
         STA   $02
         LDY   #$0000
         SEP   #$20
         LDA   #$00
         STA   [$00],Y
         REP   #$30
         LDA   #L4F5B
         STA   L0EDB
         LDA   #^L4F5B
         STA   L0EDD
         LDA   #$0001
         STA   L0EDF
         JSR   L763D
         LDA   #L4F63
         STA   L0EDB
         LDA   #^L4F63
         STA   L0EDD
         LDA   #$0002
         STA   L0EDF
         JSR   L763D
         LDA   #$0001
         STA   L0EDB
         JSR   L7A32
         JSR   L80DA
         LDA   #L574C
         STA   L0EDB
         LDA   #^L574C
         STA   L0EDD
         LDA   #$000A
         STA   L0EDF
         JSR   L7A4E
         RTS

L59B0    REP   #$30
         JSR   L13B2
         LDA   #L4823
         STA   L0EDB
         LDA   #^L4823
         STA   L0EDD
         LDA   L4817
         ASL
         ASL
         CLC
         ADC   L0EDB
         STA   L0EF7
         LDA   #$0000
         ADC   L0EDD
         STA   L0EF9
         LDA   L0EF7
         STA   $00
         LDA   L0EF9
         STA   $02
         LDA   [$00]
         STA   L0EDB
         LDY   #$0002
         LDA   [$00],Y
         STA   L0EDD
         LDA   L0EDB
         STA   $00
         LDA   L0EDD
         STA   $02
         LDY   #$0000
         LDX   #$0002
         SEP   #$20
L59FF    LDA   [$00],Y
         BEQ   L5A06
         JMP   L5A09

L5A06    DEX
         BEQ   L5A0D
L5A09    INY
         JMP   L59FF

L5A0D    REP   #$30
         INY
         TYA
         CLC
         ADC   L0EDB
         STA   L0EF7
         LDA   #$0000
         ADC   L0EDD
         STA   L0EF9
         LDA   L0EF7
         STA   L0EDB
         LDA   L0EF9
         STA   L0EDD
         LDA   #L56AF
         STA   L0EDF
         LDA   #^L56AF
         STA   L0EE1
         JSR   L61CC
         LDA   L0EDF
         STA   L57BC
         LDA   L0EE1
         STA   L57BE
         LDA   L57BC
         STA   $00
         LDA   L57BE
         STA   $02
         LDY   #$0000
         SEP   #$20
         LDA   #$00
         STA   [$00],Y
         REP   #$30
         LDA   #L577E
         STA   L0EDB
         LDA   #^L577E
         STA   L0EDD
         LDA   #$0032
         STA   L0EDF
         LDA   #$0000
         STA   L0EE3
         JSR   L769A
         LDA   #L577E
         STA   $00
         LDA   #^L577E
         STA   $02
         STZ   L5B93
         STZ   L5B95
         JSR   L7678
L5A8B    JSR   L74D0
         CMP   #$0000
         BNE   L5ABE
         LDA   L0EDB
         BEQ   L5A8B
         JSR   L7468
         LDA   #L206D
         STA   L0EE3
         LDA   #^L206D
         STA   L0EE5
         LDA   #$0001
         STA   L0EE7
         JSR   L7BD2
         LDA   L0EEB
         CMP   #$0001
         BNE   L5A8B
         LDA   #$001B
         JMP   L5B8D

L5ABE    CMP   #$000D
         BNE   L5AC6
         JMP   L5B77

L5AC6    CMP   #$007F
         BNE   L5ACE
         JMP   L5B47

L5ACE    CMP   #$0020
         BNE   L5AD6
         JMP   L5AEE

L5AD6    CMP   #$001B
         BNE   L5ADE
         JMP   L5B8D

L5ADE    CMP   #$002E
         BNE   L5AE6
         JMP   L5AEE

L5AE6    LDY   L5B93
         CPY   #$0002
         BNE   L5AF4
L5AEE    JSR   L10BA
         JMP   L5A8B

L5AF4    AND   #$00DF
         CMP   #$0041
         BCC   L5AEE
         CMP   #$005B
         BCS   L5AEE
         LDY   L5B93
         SEP   #$20
         STA   [$00],Y
         INY
         LDA   #$00
         STA   [$00],Y
         REP   #$30
         STY   L5B93
L5B12    LDA   #L4F53
         STA   L0EDB
         LDA   #^L4F53
         STA   L0EDD
         LDA   #$0002
         STA   L0EDF
         JSR   L763D
         LDY   L5B93
         BNE   L5B2F
         JMP   L5A8B

L5B2F    LDA   #L577E
         STA   L0EDB
         LDA   #^L577E
         STA   L0EDD
         LDA   #$00C3
         STA   L0EDF
         JSR   L7A4E
         JMP   L5A8B

L5B47    LDY   L5B93
         CPY   #$0000
         BNE   L5B58
         JSR   L10BA
         STZ   L5B95
         JMP   L5A8B

L5B58    DEY
         SEP   #$20
         LDA   #$00
         STA   [$00],Y
         DEY
         LDA   [$00],Y
         CMP   #$20
         BNE   L5B6E
         REP   #$30
         LDA   #$0001
         STA   L5B95
L5B6E    INY
         REP   #$30
         STY   L5B93
         JMP   L5B12

L5B77    LDY   L5B93
         CPY   #$0000
         BEQ   L5B83
         INY
         STY   L5B93
L5B83    JSR   L766E
         JSR   L80DA
         LDA   L5B93
         RTS

L5B8D    STA   L5B93
         JMP   L5B83

L5B93    DB    $00
         DB    $00
L5B95    DB    $00
         DB    $00
L5B97    REP   #$30
         JSR   L13B2
         LDA   #L4823
         STA   L0EDB
         LDA   #^L4823
         STA   L0EDD
         LDA   L4817
         ASL
         ASL
         CLC
         ADC   L0EDB
         STA   L0EF7
         LDA   #$0000
         ADC   L0EDD
         STA   L0EF9
         LDA   L0EF7
         STA   $00
         LDA   L0EF9
         STA   $02
         LDA   [$00]
         STA   L0EDB
         LDY   #$0002
         LDA   [$00],Y
         STA   L0EDD
         LDA   L0EDB
         STA   $00
         LDA   L0EDD
         STA   $02
         LDY   #$0000
         LDX   #$0001
         SEP   #$20
L5BE6    LDA   [$00],Y
         BEQ   L5BED
         JMP   L5BF0

L5BED    DEX
         BEQ   L5BF4
L5BF0    INY
         JMP   L5BE6

L5BF4    REP   #$30
         INY
         TYA
         CLC
         ADC   L0EDB
         STA   L0EF7
         LDA   #$0000
         ADC   L0EDD
         STA   L0EF9
         LDA   L0EF7
         STA   L0EDB
         LDA   L0EF9
         STA   L0EDD
         LDA   #L56AF
         STA   L0EDF
         LDA   #^L56AF
         STA   L0EE1
         JSR   L61CC
         LDA   L0EDF
         STA   L57BC
         LDA   L0EE1
         STA   L57BE
         LDA   L57BC
         STA   $00
         LDA   L57BE
         STA   $02
         LDY   #$0000
         SEP   #$20
         LDA   #$00
         STA   [$00],Y
         REP   #$30
         LDA   #L577E
         STA   L0EDB
         LDA   #^L577E
         STA   L0EDD
         LDA   #$0032
         STA   L0EDF
         LDA   #$0000
         STA   L0EE3
         JSR   L769A
         LDA   #L577E
         STA   $00
         LDA   #^L577E
         STA   $02
         STZ   L5DA5
         STZ   L5DA7
         JSR   L7678
L5C72    JSR   L74D0
         CMP   #$0000
         BNE   L5CA5
         LDA   L0EDB
         BEQ   L5C72
         JSR   L7468
         LDA   #L206D
         STA   L0EE3
         LDA   #^L206D
         STA   L0EE5
         LDA   #$0001
         STA   L0EE7
         JSR   L7BD2
         LDA   L0EEB
         CMP   #$0001
         BNE   L5C72
         LDA   #$001B
         JMP   L5D9F

L5CA5    CMP   #$000D
         BNE   L5CAD
         JMP   L5D89

L5CAD    CMP   #$007F
         BNE   L5CB5
         JMP   L5D53

L5CB5    CMP   #$0020
         BNE   L5CC6
         LDA   #$0001
         STA   L5DA7
         LDA   #$0020
         JMP   L5D0D

L5CC6    CMP   #$001B
         BNE   L5CCE
         JMP   L5D9F

L5CCE    CMP   #$002E
         BNE   L5CD9
         AND   #$00FF
         JMP   L5D0D

L5CD9    LDY   L5DA5
         CPY   #$0012
         BNE   L5CE7
L5CE1    JSR   L10BA
         JMP   L5C72

L5CE7    ORA   #$0020
         CMP   #$0061
         BCC   L5CE1
         CMP   #$007B
         BCS   L5CE1
         LDY   L5DA5
         CPY   #$0000
         BNE   L5D02
         AND   #$00DF
         JMP   L5D0D

L5D02    LDX   L5DA7
         BEQ   L5D0D
         AND   #$00DF
         STZ   L5DA7
L5D0D    LDY   L5DA5
         SEP   #$20
         STA   [$00],Y
         INY
         LDA   #$00
         STA   [$00],Y
         REP   #$30
         STY   L5DA5
L5D1E    LDA   #L4F53
         STA   L0EDB
         LDA   #^L4F53
         STA   L0EDD
         LDA   #$0002
         STA   L0EDF
         JSR   L763D
         LDY   L5DA5
         BNE   L5D3B
         JMP   L5C72

L5D3B    LDA   #L577E
         STA   L0EDB
         LDA   #^L577E
         STA   L0EDD
         LDA   #$00C3
         STA   L0EDF
         JSR   L7A4E
         JMP   L5C72

L5D53    LDY   L5DA5
         CPY   #$0000
         BNE   L5D64
         JSR   L10BA
         STZ   L5DA7
         JMP   L5C72

L5D64    DEY
         SEP   #$20
         LDA   #$00
         STA   [$00],Y
         DEY
         LDA   [$00],Y
         CMP   #$20
         BEQ   L5D7A
         REP   #$30
         STZ   L5DA7
         JMP   L5D82

L5D7A    REP   #$30
         LDA   #$0001
         STA   L5DA7
L5D82    INY
         STY   L5DA5
         JMP   L5D1E

L5D89    LDY   L5DA5
         CPY   #$0000
         BEQ   L5D95
         INY
         STY   L5DA5
L5D95    JSR   L766E
         JSR   L80DA
         LDA   L5DA5
         RTS

L5D9F    STA   L5DA5
         JMP   L5D95

L5DA5    DB    $00
         DB    $00
L5DA7    DB    $00
         DB    $00
L5DA9    REP   #$30
         JSR   L425A
L5DAE    LDA   #L2143
         STA   L0EDB
         LDA   #^L2143
         STA   L0EDD
         LDA   #$0064
         STA   L0EDF
         LDA   #$0000
         STA   L0EE3
         JSR   L769A
         LDA   #$0000
         STA   L213B
         JSR   L885A
         JSR   L892C
         LDA   #$0000
         STA   L0EDB
         LDA   #L0FE7
         STA   L0EDF
         LDA   #^L0FE7
         STA   L0EE1
         LDA   L1013
         STA   L0EE3
         LDA   L1015
         STA   L0EE5
         JSR   L7F5D
L5DF6    REP   #$30
         LDA   L1013
         STA   L0EDB
         LDA   L1015
         STA   L0EDD
         LDA   #$2000
         STA   L0EDF
         LDA   #$00E1
         STA   L0EE1
         JSR   L7613
L5E13    REP   #$30
         LDA   #$0001
         STA   L0EDB
         LDA   L4815
         STA   L0EDF
         JSR   L7540
         TAX
         DEX
         SEP   #$20
         LDA   L2143,X
         BNE   L5E13
         INC   L2143,X
         REP   #$30
         STX   L4817
         JSR   L5866
         JSR   L622F
         JSR   L59B0
         CMP   #$001B
         BNE   L5E46
         JMP   L5E99

L5E46    CMP   #$0000
         BNE   L5E4E
         JMP   L5E74

L5E4E    LDA   #L56AF
         STA   L0EDB
         LDA   #^L56AF
         STA   L0EDD
         LDA   #L577E
         STA   L0EDF
         LDA   #^L577E
         STA   L0EE1
         JSR   L4578
         CMP   #$0000
         BNE   L5E74
         JSR   L6B98
         JMP   L5E7D

L5E74    JSR   L60D6
         STZ   L57C6
         JSR   L6B0C
L5E7D    JSR   L801D
         LDA   L8DC0
         CMP   #$0001
         BEQ   L5E8B
         JMP   L5DF6

L5E8B    INC   L213B
         LDA   L213B
         CMP   L57CA
         BEQ   L5E99
         JMP   L5DF6

L5E99    JSR   L88FE
         JSR   L899D
         JSR   L8F01
         LDA   L0EDB
         CMP   #$0001
         BNE   L5EAD
         JMP   L5DAE

L5EAD    JSR   L848B
         RTS

L5EB1    REP   #$30
         JSR   L425A
L5EB6    LDA   #L2143
         STA   L0EDB
         LDA   #^L2143
         STA   L0EDD
         LDA   #$0064
         STA   L0EDF
         LDA   #$0000
         STA   L0EE3
         JSR   L769A
         LDA   #$0000
         STA   L213B
         JSR   L885A
         JSR   L892C
         LDA   #$0000
         STA   L0EDB
         LDA   #L0FE7
         STA   L0EDF
         LDA   #^L0FE7
         STA   L0EE1
         LDA   L1013
         STA   L0EE3
         LDA   L1015
         STA   L0EE5
         JSR   L7F5D
L5EFE    REP   #$30
         LDA   L1013
         STA   L0EDB
         LDA   L1015
         STA   L0EDD
         LDA   #$2000
         STA   L0EDF
         LDA   #$00E1
         STA   L0EE1
         JSR   L7613
L5F1B    REP   #$30
         LDA   #$0001
         STA   L0EDB
         LDA   L4815
         STA   L0EDF
         JSR   L7540
         TAX
         DEX
         SEP   #$20
         LDA   L2143,X
         BNE   L5F1B
         INC   L2143,X
         REP   #$30
         STX   L4817
         JSR   L590B
         JSR   L622F
         LDA   L47FF
         STA   L0EDB
         LDA   L4801
         STA   L0EDD
         LDA   L4817
         ASL
         ASL
         CLC
         ADC   L0EDB
         STA   L0EF7
         LDA   #$0000
         ADC   L0EDD
         STA   L0EF9
         LDA   L0EF7
         STA   $00
         LDA   L0EF9
         STA   $02
         LDA   [$00]
         STA   L57BA
         LDY   #$0002
         LDA   [$00],Y
         STA   L57B8
         LDA   L57B8
         STA   L4FC3
         LDA   L57BA
         STA   L4FC5
         PEA   $0000
         _SetSolidPenPat
         JSR   L600D
         JSR   L69FA
         JSR   L5B97
         CMP   #$001B
         BNE   L5FA2
         JMP   L5FF5

L5FA2    CMP   #$0000
         BNE   L5FAA
         JMP   L5FD0

L5FAA    LDA   #L56AF
         STA   L0EDB
         LDA   #^L56AF
         STA   L0EDD
         LDA   #L577E
         STA   L0EDF
         LDA   #^L577E
         STA   L0EE1
         JSR   L4578
         CMP   #$0000
         BNE   L5FD0
         JSR   L6B98
         JMP   L5FD9

L5FD0    JSR   L60D6
         STZ   L57C6
         JSR   L6B0C
L5FD9    JSR   L801D
         LDA   L8DC0
         CMP   #$0001
         BEQ   L5FE7
         JMP   L5EFE

L5FE7    INC   L213B
         LDA   L213B
         CMP   L57CA
         BEQ   L5FF5
         JMP   L5EFE

L5FF5    JSR   L88FE
         JSR   L899D
         JSR   L8F01
         LDA   L0EDB
         CMP   #$0001
         BNE   L6009
         JMP   L5EB6

L6009    JSR   L848B
         RTS

L600D    REP   #$30
         LDA   L4FC3
         STA   L0EDB
         LDA   L4FC5
         STA   L0EDF
         JSR   L7998
         LDA   L4FC3
         PHA
         LDA   L4FC5
         PHA
         _LineTo
         RTS

L602E    REP   #$30
         LDA   L0EDB
         STA   L60C8
         LDA   L0EDD
         STA   L60CA
         LDA   L0EDF
         STA   L60CC
         LDA   L0EE1
         STA   L60CE
         LDA   L0EE3
         STA   L60D0
         LDA   L0EE7
         STA   L60D2
         LDA   L0EEB
         STA   L60D4
L605A    JSR   L7532
         AND   #$0003
         CMP   #$0003
         BEQ   L605A
         STA   L8DB6
         ASL
         ASL
         CLC
         ADC   L0EDB
         STA   L0EF7
         LDA   #$0000
         ADC   L0EDD
         STA   L0EF9
         LDA   #$2000
         STA   L0EDB
         LDA   #$00E1
         STA   L0EDD
         JSR   L7419
         LDA   L60D2
         STA   L0EDB
         JSR   L7A32
         LDA   L60CC
         STA   L0EDB
         LDA   L60CE
         STA   L0EDD
         LDA   L60D4
         STA   L0EDF
         JSR   L763D
         LDA   L0EF7
         STA   $00
         LDA   L0EF9
         STA   $02
         LDA   [$00]
         STA   L0EDB
         LDY   #$0002
         LDA   [$00],Y
         STA   L0EDD
         LDA   L60D0
         STA   L0EDF
         JSR   L7A4E
         RTS

L60C8    DB    $00
         DB    $00
L60CA    DB    $00
         DB    $00
L60CC    DB    $00
         DB    $00
L60CE    DB    $00
         DB    $00
L60D0    DB    $00
         DB    $00
L60D2    DB    $00
         DB    $00
L60D4    DB    $00
         DB    $00
L60D6    REP   #$30
         JSR   L7532
         AND   #$0003
         STA   L4813
         LDA   L4803
         STA   L0EDB
         LDA   L4805
         STA   L0EDD
L60ED    LDA   L4813
         ASL
         ASL
         CLC
         ADC   L0EDB
         STA   L0EF7
         LDA   #$0000
         ADC   L0EDD
         STA   L0EF9
         LDA   L0EF7
         STA   $00
         LDA   L0EF9
         STA   $02
         LDA   [$00]
         STA   L0EDB
         LDY   #$0002
         LDA   [$00],Y
         STA   L0EDD
         LDA   #L571A
         STA   L0EDF
         LDA   #^L571A
         STA   L0EE1
         JSR   L61CC
         LDA   L0EDF
         STA   L0EFB
         LDA   L0EE1
         STA   L0EFD
         LDA   #L4823
         STA   L0EDB
         LDA   #^L4823
         STA   L0EDD
         LDA   L4817
         ASL
         ASL
         CLC
         ADC   L0EDB
         STA   L0EF7
         LDA   #$0000
         ADC   L0EDD
         STA   L0EF9
         LDA   L0EF7
         STA   $00
         LDA   L0EF9
         STA   $02
         LDA   [$00]
         STA   L0EDB
         LDY   #$0002
         LDA   [$00],Y
         STA   L0EDD
         LDA   L0EFB
         STA   L0EDF
         LDA   L0EFD
         STA   L0EE1
         JSR   L61CC
         LDA   L0EDF
         STA   $00
         LDA   L0EE1
         STA   $02
         LDY   #$0000
         SEP   #$20
         LDA   #$2E
         STA   [$00],Y
         INY
         LDA   #$00
         STA   [$00],Y
         REP   #$30
         LDA   #L4F53
         STA   L0EDB
         LDA   #^L4F53
         STA   L0EDD
         LDA   #$0002
         STA   L0EDF
         JSR   L763D
         LDA   #$0001
         STA   L0EDB
         JSR   L7A32
         JSR   L80DA
         LDA   #L571A
         STA   L0EDB
         LDA   #^L571A
         STA   L0EDD
         LDA   #$00C4
         STA   L0EDF
         JSR   L7A4E
         RTS

L61CC    REP   #$30
         LDA   L0EDB
         STA   $00
         LDA   L0EDD
         STA   $02
         LDA   L0EDF
         STA   $04
         LDA   L0EE1
         STA   $06
         LDY   #$0000
         SEP   #$20
L61E7    LDA   [$00],Y
         BEQ   L61F1
         STA   [$04],Y
         INY
         JMP   L61E7

L61F1    REP   #$30
         TYA
         CLC
         ADC   L0EDF
         STA   L0EE3
         LDA   #$0000
         ADC   L0EE1
         STA   L0EE5
         LDA   L0EE3
         STA   L0EDF
         LDA   L0EE5
         STA   L0EE1
         INY
         TYA
         CLC
         ADC   L0EDB
         STA   L0EE3
         LDA   #$0000
         ADC   L0EDD
         STA   L0EE5
         LDA   L0EE3
         STA   L0EDB
         LDA   L0EE5
         STA   L0EDD
         RTS

L622F    REP   #$30
         JSR   L45DD
         LDA   L4817
         CMP   #$0019
         BNE   L624E
         LDA   #$00C5
         STA   L57B8
         LDA   #$002F
         STA   L57BA
         JSR   L461A
         JMP   L62BF

L624E    CMP   #$0023
         BEQ   L6256
         JMP   L6288

L6256    LDA   #$0000
         STA   L57C0
L625C    LDA   #L48EB
         STA   $00
         LDA   #^L48EB
         STA   $02
         LDY   L57C0
         LDA   [$00],Y
         STA   L57BA
         INY
         INY
         LDA   [$00],Y
         STA   L57B8
         INY
         INY
         CPY   #$0018
         BEQ   L6285
         STY   L57C0
         JSR   L461A
         JMP   L625C
L6285    JMP   L62BF

L6288    CMP   #$0026
         BEQ   L6290
         JMP   L62BF

L6290    LDA   #$0000
         STA   L57C0
L6296    LDA   #L4907
         STA   $00
         LDA   #^L4907
         STA   $02
         LDY   L57C0
         LDA   [$00],Y
         STA   L57BA
         INY
         INY
         LDA   [$00],Y
         STA   L57B8
         INY
         INY
         CPY   #$0020
         BEQ   L62BF
         STY   L57C0
         JSR   L461A
         JMP   L6296
L62BF    RTS

L62C0    REP   #$30
         LDA   L8DC4
         STA   L0EDB
         LDA   L8DC6
         STA   L0EDD
         LDA   #L574C
         STA   L0EDF
         LDA   #^L574C
         STA   L0EE1
         JSR   L61CC
         LDA   L0EDF
         STA   L0EFB
         LDA   L0EE1
         STA   L0EFD
         LDA   #L57D6
         STA   L0EDB
         LDA   #^L57D6
         STA   L0EDD
         LDA   L0EFB
         STA   L0EDF
         LDA   L0EFD
         STA   L0EE1
         JSR   L61CC
         LDA   L0EDF
         STA   $00
         LDA   L0EE1
         STA   $02
         LDY   #$0000
         SEP   #$20
         LDA   #$00
         STA   [$00],Y
         REP   #$30
         LDA   #L4F5B
         STA   L0EDB
         LDA   #^L4F5B
         STA   L0EDD
         LDA   #$0001
         STA   L0EDF
         JSR   L763D
         LDA   #L4F63
         STA   L0EDB
         LDA   #^L4F63
         STA   L0EDD
         LDA   #$0002
         STA   L0EDF
         JSR   L763D
         LDA   #$0001
         STA   L0EDB
         JSR   L7A32
         JSR   L80DA
         LDA   #L574C
         STA   L0EDB
         LDA   #^L574C
         STA   L0EDD
         LDA   #$000A
         STA   L0EDF
         JSR   L7A4E
         LDA   #L4F9B
         STA   L0EDB
         LDA   #^L4F9B
         STA   L0EDD
         LDA   #$0001
         STA   L0EDF
         JSR   L763D
         LDA   #L4FAB
         STA   L0EDB
         LDA   #^L4FAB
         STA   L0EDD
         LDA   #$0002
         STA   L0EDF
         JSR   L763D
         LDA   #$0005
         STA   L0EDB
         LDA   #$0018
         STA   L0EDF
         JSR   L7998
         LDA   #L568F
         STA   L0EDB
         LDA   #^L568F
         STA   L0EDD
         JSR   L79D1
         STZ   L1FEB
         JSR   L672E
         JSR   L13B2
         LDA   #L4F2F
         STA   L0EDB
         LDA   #^L4F2F
         STA   L0EDD
         LDA   L480F
         ASL
         ASL
         CLC
         ADC   L0EDB
         STA   L0EF7
         LDA   #$0000
         ADC   L0EDD
         STA   L0EF9
         LDA   L0EF7
         STA   $00
         LDA   L0EF9
         STA   $02
         LDA   [$00]
         STA   L0EDB
         LDY   #$0002
         LDA   [$00],Y
         STA   L0EDD
         LDA   #L56AF
         STA   L0EDF
         LDA   #^L56AF
         STA   L0EE1
         JSR   L61CC
         LDA   L0EDF
         STA   L57BC
         LDA   L0EE1
         STA   L57BE
         LDA   L57BC
         STA   $00
         LDA   L57BE
         STA   $02
         LDY   #$0000
         SEP   #$20
         LDA   #$2E
         STA   [$00],Y
         INY
         LDA   #$00
         STA   [$00],Y
         REP   #$30
         RTS

L6423    REP   #$30
         JSR   L7664
L6428    JSR   L7FB9
         JSR   L74D0
         CMP   #$001B
         BNE   L6436
         JMP   L6482

L6436    LDA   L0EDB
         BEQ   L6428
         JSR   L7468
         LDA   #L4F7B
         STA   L0EE3
         LDA   #^L4F7B
         STA   L0EE5
         LDA   #$0006
         STA   L0EE7
         JSR   L7BD2
         LDA   L0EEB
         BEQ   L6428
         CMP   #$0006
         BNE   L6460
         JMP   L6482

L6460    CMP   #$0005
         BNE   L646E
         STA   L1FEB
         JSR   L10BA
         JMP   L64D5

L646E    STA   L1FEB
         JSR   L10BA
L6474    JSR   L672E
L6477    JSR   L7FB9
         JSR   L74D0
         CMP   #$001B
         BNE   L648C
L6482    JSR   L766E
         JSR   L7FB9
         LDA   #$001B
         RTS

L648C    LDA   L0EDB
         BEQ   L6477
         JSR   L7468
         LDA   #L4F7B
         STA   L0EE3
         LDA   #^L4F7B
         STA   L0EE5
         LDA   #$0006
         STA   L0EE7
         JSR   L7BD2
         LDA   L0EEB
         BEQ   L6477
         CMP   #$0005
         BNE   L64BC
         STA   L1FEB
         JSR   L10BA
         JMP   L64D5

L64BC    CMP   #$0006
         BNE   L64C4
         JMP   L6482

L64C4    CMP   L1FEB
         BNE   L64CC
         JMP   L64D5

L64CC    STA   L1FEB
         JSR   L10BA
         JMP   L6474

L64D5    JSR   L766E
         JSR   L7FB9
         LDA   L1FEB
         RTS

L64DF    REP   #$30
         LDA   #L4823
         STA   L0EDB
         LDA   #^L4823
         STA   L0EDD
         LDA   L4817
         STA   L57C2
         ASL
         ASL
         CLC
         ADC   L0EDB
         STA   L0EF7
         LDA   #$0000
         ADC   L0EDD
         STA   L0EF9
         LDA   L0EF7
         STA   $00
         LDA   L0EF9
         STA   $02
         LDA   [$00]
         STA   L0EDB
         LDY   #$0002
         LDA   [$00],Y
         STA   L0EDD
         LDA   L0EDB
         STA   L481B
         LDA   L0EDD
         STA   L481D
         LDA   L0EDB
         STA   $00
         LDA   L0EDD
         STA   $02
         LDY   #$0000
         LDX   #$0003
         SEP   #$20
L653A    LDA   [$00],Y
         BEQ   L6541
         JMP   L6544

L6541    DEX
         BEQ   L6548
L6544    INY
         JMP   L653A

L6548    REP   #$30
         INY
         TYA
         CLC
         ADC   L0EDB
         STA   L0EF7
         LDA   #$0000
         ADC   L0EDD
         STA   L0EF9
         LDA   #$0000
         STA   L0EDB
         LDA   #$0003
         STA   L0EDF
         JSR   L7540
         TAY
         LDA   L0EF7
         STA   $00
         LDA   L0EF9
         STA   $02
         SEP   #$20
         LDA   #$00
         STA   L0EFC
         LDA   [$00],Y
         DEC
         STA   L0EFB
         CMP   #$62
         BNE   L658A
         JMP   L65DC

L658A    REP   #$30
         STY   L480F
         LDA   #L4823
         STA   L0EDB
         LDA   #^L4823
         STA   L0EDD
         LDA   L0EFB
         STA   L57C4
         ASL
         ASL
         CLC
         ADC   L0EDB
         STA   L0EF7
         LDA   #$0000
         ADC   L0EDD
         STA   L0EF9
         LDA   L0EF7
         STA   $00
         LDA   L0EF9
         STA   $02
         LDA   [$00]
         STA   L0EDB
         LDY   #$0002
         LDA   [$00],Y
         STA   L0EDD
         LDA   L0EDB
         STA   L481F
         LDA   L0EDD
         STA   L4821
         LDA   #$0000
         JMP   L65E1

L65DC    REP   #$30
         LDA   #$0001
L65E1    RTS

L65E2    REP   #$30
         JSR   L425A
L65E7    LDA   #L2143
         STA   L0EDB
         LDA   #^L2143
         STA   L0EDD
         LDA   #$0064
         STA   L0EDF
         LDA   #$0000
         STA   L0EE3
         JSR   L769A
         LDA   #$0000
         STA   L213B
         JSR   L885A
         JSR   L892C
         LDA   #$0000
         STA   L0EDB
         LDA   #L0FE7
         STA   L0EDF
         LDA   #^L0FE7
         STA   L0EE1
         LDA   L1013
         STA   L0EE3
         LDA   L1015
         STA   L0EE5
         JSR   L7F5D
         JMP   L6652

L6632    REP   #$30
         STZ   L57C8
         LDA   L1013
         STA   L0EDB
         LDA   L1015
         STA   L0EDD
         LDA   #$2000
         STA   L0EDF
         LDA   #$00E1
         STA   L0EE1
         JSR   L7613
L6652    REP   #$30
         LDA   #$0001
         STA   L0EDB
         LDA   L4815
         STA   L0EDF
         JSR   L7540
         TAX
         DEX
         SEP   #$20
         LDA   L2143,X
         BNE   L6652
         STX   L4817
         REP   #$30
         JSR   L64DF
         CMP   #$0000
         BNE   L6652
         LDX   L4817
         SEP   #$20
         INC   L2143,X
         REP   #$30
         JSR   L62C0
L6686    JSR   L6423
         CMP   #$001B
         BNE   L6691
         JMP   L66D8

L6691    CMP   #$0000
         BNE   L6699
         JMP   L66B0

L6699    CMP   #$0005
         BNE   L66A4
         JSR   L66F2
         JMP   L6686

L66A4    DEC
         CMP   L480F
         BNE   L66B0
         JSR   L6B98
         JMP   L66BC

L66B0    LDA   #$0001
         STA   L57C6
         JSR   L6B0C
         STZ   L57C8
L66BC    JSR   L801D
         LDA   L8DC0
         CMP   #$0001
         BEQ   L66CA
         JMP   L6632

L66CA    INC   L213B
         LDA   L213B
         CMP   L57CA
         BEQ   L66D8
         JMP   L6632

L66D8    JSR   L88FE
         JSR   L899D
         JSR   L8F01
         LDA   L0EDB
         CMP   #$0001
         BNE   L66EC
         JMP   L65E7

L66EC    JSR   L848B
         RTS

         DB    $00
         DB    $00
L66F2    REP   #$30
         JSR   L7444
         LDA   L4817
         STA   L672C
         LDA   L57C8
         BEQ   L6705
         JMP   L671F

L6705    LDA   L57C2
         STA   L4817
L670B    JSR   L622F
         LDA   L4817
         CMP   L57C4
         BEQ   L671F
         LDA   L57C4
         STA   L4817
         JMP   L670B

L671F    LDA   L672C
         STA   L4817
         LDA   #$0001
         STA   L57C8
         RTS

L672C    DB    $00
         DB    $00
L672E    LDA   #L4F53
         STA   L0EDB
         LDA   #^L4F53
         STA   L0EDD
         LDA   #$0002
         STA   L0EDF
         JSR   L763D
         LDA   L481F
         STA   L0EDB
         LDA   L4821
         STA   L0EDD
         LDA   #L574C
         STA   L0EDF
         LDA   #^L574C
         STA   L0EE1
         JSR   L61CC
         LDA   L0EDF
         STA   L0EFB
         LDA   L0EE1
         STA   L0EFD
         LDA   #L4F3F
         STA   L0EDB
         LDA   #^L4F3F
         STA   L0EDD
         LDA   L1FEB
         ASL
         ASL
         CLC
         ADC   L0EDB
         STA   L0EF7
         LDA   #$0000
         ADC   L0EDD
         STA   L0EF9
         LDA   L0EF7
         STA   $00
         LDA   L0EF9
         STA   $02
         LDA   [$00]
         STA   L0EDB
         LDY   #$0002
         LDA   [$00],Y
         STA   L0EDD
         LDA   L0EFB
         STA   L0EDF
         LDA   L0EFD
         STA   L0EE1
         JSR   L61CC
         LDA   L0EDF
         STA   L0EFB
         LDA   L0EE1
         STA   L0EFD
         LDA   L481B
         STA   L0EDB
         LDA   L481D
         STA   L0EDD
         LDA   L0EFB
         STA   L0EDF
         LDA   L0EFD
         STA   L0EE1
         JSR   L61CC
         LDA   L0EDF
         STA   $00
         LDA   L0EE1
         STA   $02
         LDY   #$0000
         SEP   #$20
         LDA   #$2E
         STA   [$00],Y
         INY
         LDA   #$00
         STA   [$00],Y
         REP   #$30
         LDA   #L574C
         STA   L0EDB
         LDA   #^L574C
         STA   L0EDD
         LDA   #$00C3
         STA   L0EDF
         JSR   L7A4E
         LDA   #$0001
         STA   L0EDB
         JSR   L7D0C
         RTS

L6811    REP   #$30
         JSR   L13B2
         LDA   #L4823
         STA   L0EDB
         LDA   #^L4823
         STA   L0EDD
         LDA   L4817
         ASL
         ASL
         CLC
         ADC   L0EDB
         STA   L0EF7
         LDA   #$0000
         ADC   L0EDD
         STA   L0EF9
         LDA   L0EF7
         STA   $00
         LDA   L0EF9
         STA   $02
         LDA   [$00]
         STA   L0EDB
         LDY   #$0002
         LDA   [$00],Y
         STA   L0EDD
         LDA   #L56AF
         STA   L0EDF
         LDA   #^L56AF
         STA   L0EE1
         JSR   L61CC
         LDA   L0EDF
         STA   L57BC
         LDA   L0EE1
         STA   L57BE
         LDA   L57BC
         STA   $00
         LDA   L57BE
         STA   $02
         LDY   #$0000
         SEP   #$20
         LDA   #$00
         STA   [$00],Y
         REP   #$30
         LDA   #L577E
         STA   L0EDB
         LDA   #^L577E
         STA   L0EDD
         LDA   #$0032
         STA   L0EDF
         LDA   #$0000
         STA   L0EE3
         JSR   L769A
         LDA   #L577E
         STA   $00
         LDA   #^L577E
         STA   $02
         STZ   L69DF
         STZ   L69E1
         JSR   L7678
L68AC    JSR   L74D0
         CMP   #$0000
         BNE   L68DF
         LDA   L0EDB
         BEQ   L68AC
         JSR   L7468
         LDA   #L206D
         STA   L0EE3
         LDA   #^L206D
         STA   L0EE5
         LDA   #$0001
         STA   L0EE7
         JSR   L7BD2
         LDA   L0EEB
         CMP   #$0001
         BNE   L68AC
         LDA   #$001B
         JMP   L69D9

L68DF    CMP   #$000D
         BNE   L68E7
         JMP   L69C3

L68E7    CMP   #$007F
         BNE   L68EF
         JMP   L698D

L68EF    CMP   #$0020
         BNE   L6900
         LDA   #$0001
         STA   L69E1
         LDA   #$0020
         JMP   L6947

L6900    CMP   #$001B
         BNE   L6908
         JMP   L69D9

L6908    CMP   #$002E
         BNE   L6913
         AND   #$00FF
         JMP   L6947

L6913    LDY   L69DF
         CPY   #$0010
         BNE   L6921
L691B    JSR   L10BA
         JMP   L68AC

L6921    ORA   #$0020
         CMP   #$0061
         BCC   L691B
         CMP   #$007B
         BCS   L691B
         LDY   L69DF
         CPY   #$0000
         BNE   L693C
         AND   #$00DF
         JMP   L6947

L693C    LDX   L69E1
         BEQ   L6947
         AND   #$00DF
         STZ   L69E1
L6947    LDY   L69DF
         SEP   #$20
         STA   [$00],Y
         INY
         LDA   #$00
         STA   [$00],Y
         REP   #$30
         STY   L69DF
L6958    LDA   #L4F53
         STA   L0EDB
         LDA   #^L4F53
         STA   L0EDD
         LDA   #$0002
         STA   L0EDF
         JSR   L763D
         LDY   L69DF
         BNE   L6975
         JMP   L68AC

L6975    LDA   #L577E
         STA   L0EDB
         LDA   #^L577E
         STA   L0EDD
         LDA   #$00C3
         STA   L0EDF
         JSR   L7A4E
         JMP   L68AC

L698D    LDY   L69DF
         CPY   #$0000
         BNE   L699E
         JSR   L10BA
         STZ   L69E1
         JMP   L68AC

L699E    DEY
         SEP   #$20
         LDA   #$00
         STA   [$00],Y
         DEY
         LDA   [$00],Y
         CMP   #$20
         BEQ   L69B4
         REP   #$30
         STZ   L69E1
         JMP   L69BC

L69B4    REP   #$30
         LDA   #$0001
         STA   L69E1
L69BC    INY
         STY   L69DF
         JMP   L6958

L69C3    LDY   L69DF
         CPY   #$0000
         BEQ   L69CF
         INY
         STY   L69DF
L69CF    JSR   L766E
         JSR   L80DA
         LDA   L69DF
         RTS

L69D9    STA   L69DF
         JMP   L69CF

L69DF    DB    $00
         DB    $00
L69E1    DB    $00
         DB    $00
L69E3    REP   #$30
         LDA   L57B0
         CLC
         ADC   #$0004
         STA   L57B0
         LDA   L57B2
         CLC
         ADC   #$0004
         STA   L57B2
         RTS

L69FA    REP   #$30
         PEA   $0001
         _SetSolidPenPat
         RTS

L6A07    REP   #$30
         JSR   L425A
L6A0C    LDA   #L2143
         STA   L0EDB
         LDA   #^L2143
         STA   L0EDD
         LDA   #$0064
         STA   L0EDF
         LDA   #$0000
         STA   L0EE3
         JSR   L769A
         LDA   #$0000
         STA   L213B
         JSR   L885A
         JSR   L892C
         LDA   #$0000
         STA   L0EDB
         LDA   #L0FE7
         STA   L0EDF
         LDA   #^L0FE7
         STA   L0EE1
         LDA   L1013
         STA   L0EE3
         LDA   L1015
         STA   L0EE5
         JSR   L7F5D
L6A54    REP   #$30
         LDA   L1013
         STA   L0EDB
         LDA   L1015
         STA   L0EDD
         LDA   #$2000
         STA   L0EDF
         LDA   #$00E1
         STA   L0EE1
         JSR   L7613
L6A71    REP   #$30
         LDA   #$0001
         STA   L0EDB
         LDA   L4815
         STA   L0EDF
         JSR   L7540
         TAX
         DEX
         SEP   #$20
         LDA   L2143,X
         BNE   L6A71
         INC   L2143,X
         REP   #$30
         STX   L4817
         JSR   L46B1
         JSR   L622F
         JSR   L6811
         CMP   #$001B
         BNE   L6AA4
         JMP   L6AF4

L6AA4    CMP   #$0000
         BNE   L6AAC
         JMP   L6AD2

L6AAC    LDA   #L56AF
         STA   L0EDB
         LDA   #^L56AF
         STA   L0EDD
         LDA   #L577E
         STA   L0EDF
         LDA   #^L577E
         STA   L0EE1
         JSR   L4578
         CMP   #$0000
         BNE   L6AD2
         JSR   L6B98
         JMP   L6AD8

L6AD2    STZ   L57C6
         JSR   L6B0C
L6AD8    JSR   L801D
         LDA   L8DC0
         CMP   #$0001
         BEQ   L6AE6
         JMP   L6A54

L6AE6    INC   L213B
         LDA   L213B
         CMP   L57CA
         BEQ   L6AF4
         JMP   L6A54

L6AF4    JSR   L88FE
         JSR   L899D
         JSR   L8F01
         LDA   L0EDB
         CMP   #$0001
         BNE   L6B08
         JMP   L6A0C

L6B08    JSR   L848B
         RTS

L6B0C    LDA   #L8B1D
         STA   L0EDB
         LDA   #^L8B1D
         STA   L0EDD
         LDA   #L4F63
         STA   L0EDF
         LDA   #^L4F63
         STA   L0EE1
         LDA   #$000A
         STA   L0EE3
         LDA   #$0001
         STA   L0EE7
         LDA   #$0002
         STA   L0EEB
         JSR   L602E
         JSR   L8005
         JSR   L1066
         JSR   L879D
         LDA   L57BC
         STA   $00
         LDA   L57BE
         STA   $02
         LDY   #$0000
         SEP   #$20
         LDA   #$2E
         STA   [$00],Y
         INY
         LDA   #$00
         STA   [$00],Y
         REP   #$30
         LDA   #L4EE3
         STA   L0EDB
         LDA   #^L4EE3
         STA   L0EDD
         LDA   #L4F63
         STA   L0EDF
         LDA   #^L4F63
         STA   L0EE1
         LDA   #$000A
         STA   L0EE3
         LDA   #$0001
         STA   L0EE7
         LDA   #$0002
         STA   L0EEB
         JSR   L602E
         LDA   L57C6
         BEQ   L6B91
         JSR   L66F2
L6B91    JSR   L7FB9
         JSR   L74E9
         RTS

L6B98    LDA   #L8B11
         STA   L0EDB
         LDA   #^L8B11
         STA   L0EDD
         LDA   #L4F63
         STA   L0EDF
         LDA   #^L4F63
         STA   L0EE1
         LDA   #$000A
         STA   L0EE3
         LDA   #$0001
         STA   L0EE7
         LDA   #$0002
         STA   L0EEB
         JSR   L602E
         JSR   L7FED
         JSR   L1090
         JSR   L87EA
         RTS

L6BCF    REP   #$30
         LDA   #$0000
         STA   L0EDB
         LDA   #L0FE7
         STA   L0EDF
         LDA   #^L0FE7
         STA   L0EE1
         LDA   L1013
         STA   L0EE3
         LDA   L1015
         STA   L0EE5
         JSR   L7F5D
         JSR   L13B2
         JSR   L6D20
         JSR   L7678
         LDA   L4815
         CMP   #$000D
         BNE   L6C1B
         LDA   #L5835
         STA   L0EDB
         LDA   #^L5835
         STA   L0EDD
         LDA   #$00C4
         STA   L0EDF
         JSR   L7A4E
         JMP   L6C4E

L6C1B    LDA   #L4F53
         STA   L0EDB
         LDA   #^L4F53
         STA   L0EDD
         LDA   #$0002
         STA   L0EDF
         JSR   L763D
         LDA   #$0001
         STA   L0EDB
         JSR   L7A32
         LDA   #L584D
         STA   L0EDB
         LDA   #^L584D
         STA   L0EDD
         LDA   #$00C4
         STA   L0EDF
         JSR   L7A4E
L6C4E    JSR   L7FB9
         JSR   L74D0
         CMP   #$001B
         BNE   L6C5C
         JMP   L6D1C

L6C5C    LDA   L0EDB
         BEQ   L6C4E
         JSR   L7468
         LDA   L57CE
         STA   L0EE3
         LDA   L57D0
         STA   L0EE5
         LDA   L4815
         INC
         STA   L0EE7
         JSR   L7BD2
         LDA   L0EEB
         BEQ   L6C4E
         DEC
         CMP   L4815
         BNE   L6C88
         JMP   L6D1C

L6C88    STA   L4817
         JSR   L60D6
         JSR   L10BA
         LDA   L4815
         CMP   #$0032
         BEQ   L6C9C
         JMP   L6CA2

L6C9C    JSR   L6D77
         JSR   L6E72
L6CA2    LDA   #$0001
         STA   L0EDB
         JSR   L7D0C
         JSR   L7FB9
         JSR   L74E9
         LDA   L4815
         CMP   #$0032
         BEQ   L6CBC
         JMP   L6D19

L6CBC    LDA   #L4F63
         STA   L0EDB
         LDA   #^L4F63
         STA   L0EDD
         LDA   #$0002
         STA   L0EDF
         JSR   L763D
         LDA   #L4F73
         STA   L0EDB
         LDA   #^L4F73
         STA   L0EDD
         LDA   #$0002
         STA   L0EDF
         JSR   L763D
         LDA   #L4F53
         STA   L0EDB
         LDA   #^L4F53
         STA   L0EDD
         LDA   #$0002
         STA   L0EDF
         JSR   L763D
         LDA   #$0001
         STA   L0EDB
         JSR   L7A32
         LDA   #L584D
         STA   L0EDB
         LDA   #^L584D
         STA   L0EDD
         LDA   #$00C4
         STA   L0EDF
         JSR   L7A4E
L6D19    JMP   L6C4E

L6D1C    JSR   L766E
         RTS

L6D20    REP   #$30
         LDA   L4815
         STA   L6D75
         DEC   L6D75
L6D2B    LDA   L57D2
         STA   L0EDB
         LDA   L57D4
         STA   L0EDD
         LDA   L6D75
         ASL
         ASL
         CLC
         ADC   L0EDB
         STA   L0EF7
         LDA   #$0000
         ADC   L0EDD
         STA   L0EF9
         LDA   L0EF7
         STA   $00
         LDA   L0EF9
         STA   $02
         LDA   [$00]
         STA   L0EDB
         LDY   #$0002
         LDA   [$00],Y
         STA   L0EDD
         LDA   L57CC
         STA   L0EDF
         JSR   L763D
         DEC   L6D75
         BMI   L6D74
         JMP   L6D2B
L6D74    RTS

L6D75    DB    $00
         DB    $00
L6D77    REP   #$30
         LDA   #L4823
         STA   L0EDB
         LDA   #^L4823
         STA   L0EDD
         LDA   L4817
         ASL
         ASL
         CLC
         ADC   L0EDB
         STA   L0EF7
         LDA   #$0000
         ADC   L0EDD
         STA   L0EF9
         LDA   L0EF7
         STA   $00
         LDA   L0EF9
         STA   $02
         LDA   [$00]
         STA   L0EDB
         LDY   #$0002
         LDA   [$00],Y
         STA   L0EDD
         LDA   L0EDB
         STA   $00
         LDA   L0EDD
         STA   $02
         LDY   #$0000
         LDX   #$0001
         SEP   #$20
L6DC3    LDA   [$00],Y
         BEQ   L6DCA
         JMP   L6DCD

L6DCA    DEX
         BEQ   L6DD1
L6DCD    INY
         JMP   L6DC3

L6DD1    REP   #$30
         INY
         TYA
         CLC
         ADC   L0EDB
         STA   L0EF7
         LDA   #$0000
         ADC   L0EDD
         STA   L0EF9
         LDA   L0EF7
         STA   L0EDB
         LDA   L0EF9
         STA   L0EDD
         LDA   #L5800
         STA   L0EDF
         LDA   #^L5800
         STA   L0EE1
         JSR   L61CC
         LDA   L0EDF
         STA   L57BC
         LDA   L0EE1
         STA   L57BE
         LDA   L57BC
         STA   $00
         LDA   L57BE
         STA   $02
         LDY   #$0000
         SEP   #$20
         LDA   #$2E
         STA   [$00],Y
         INY
         LDA   #$00
         STA   [$00],Y
         REP   #$30
         LDA   #L4F5B
         STA   L0EDB
         LDA   #^L4F5B
         STA   L0EDD
         LDA   #$0001
         STA   L0EDF
         JSR   L763D
         LDA   #L4F63
         STA   L0EDB
         LDA   #^L4F63
         STA   L0EDD
         LDA   #$0002
         STA   L0EDF
         JSR   L763D
         LDA   #$0001
         STA   L0EDB
         JSR   L7A32
         JSR   L80DA
         LDA   #L57E8
         STA   L0EDB
         LDA   #^L57E8
         STA   L0EDD
         LDA   #$000A
         STA   L0EDF
         JSR   L7A4E
         RTS

L6E72    REP   #$30
         LDA   #L4823
         STA   L0EDB
         LDA   #^L4823
         STA   L0EDD
         LDA   L4817
         ASL
         ASL
         CLC
         ADC   L0EDB
         STA   L0EF7
         LDA   #$0000
         ADC   L0EDD
         STA   L0EF9
         LDA   L0EF7
         STA   $00
         LDA   L0EF9
         STA   $02
         LDA   [$00]
         STA   L0EDB
         LDY   #$0002
         LDA   [$00],Y
         STA   L0EDD
         LDA   L0EDB
         STA   $00
         LDA   L0EDD
         STA   $02
         LDY   #$0000
         LDX   #$0002
         SEP   #$20
L6EBE    LDA   [$00],Y
         BEQ   L6EC5
         JMP   L6EC8

L6EC5    DEX
         BEQ   L6ECC
L6EC8    INY
         JMP   L6EBE

L6ECC    REP   #$30
         INY
         TYA
         CLC
         ADC   L0EDB
         STA   L0EF7
         LDA   #$0000
         ADC   L0EDD
         STA   L0EF9
         LDA   L0EF7
         STA   L0EDB
         LDA   L0EF9
         STA   L0EDD
         LDA   #L582B
         STA   L0EDF
         LDA   #^L582B
         STA   L0EE1
         JSR   L61CC
         LDA   L0EDF
         STA   L57BC
         LDA   L0EE1
         STA   L57BE
         LDA   L57BC
         STA   $00
         LDA   L57BE
         STA   $02
         LDY   #$0000
         SEP   #$20
         LDA   #$00
         STA   [$00],Y
         REP   #$30
         LDA   #L4F6B
         STA   L0EDB
         LDA   #^L4F6B
         STA   L0EDD
         LDA   #$0001
         STA   L0EDF
         JSR   L763D
         LDA   #L4F73
         STA   L0EDB
         LDA   #^L4F73
         STA   L0EDD
         LDA   #$0002
         STA   L0EDF
         JSR   L763D
         LDA   #$0001
         STA   L0EDB
         JSR   L7A32
         JSR   L80DA
         LDA   #$0064
         STA   L0EDB
         LDA   #$0018
         STA   L0EDF
         JSR   L7998
         LDA   #L581E
         STA   L0EDB
         LDA   #^L581E
         STA   L0EDD
         JSR   L79D1
         RTS

* The protection was here...

         REP   #$30
         LDA   L0EDB
         PHA
         LDA   L0EDF
         PHA
         _LoadOneTool
         RTS

L73D0    REP   #$30
         LDA   L0EDD
         PHA
         LDA   L0EDB
         PHA
         _GetPortLoc
         RTS

L73E2    REP   #$30
         JSR   L73D0
         LDA   L0EDB
         STA   $00
         LDA   L0EDD
         STA   $02
         LDY   #$0002
         LDA   L0EDF
         STA   [$00],Y
         INY
         INY
         LDA   L0EE1
         STA   [$00],Y
         RTS

L7401    REP   #$30
         PEA   $0000
         PEA   $0000
         _GetPort
         PLA
         STA   L0EDB
         PLA
         STA   L0EDD
         RTS

L7419    REP   #$30
         LDA   L0EDB
         STA   L0EFF
         LDA   L0EDD
         STA   L0F01
         JSR   L7401
         LDA   L0EDB
         STA   $00
         LDA   L0EDD
         STA   $02
         LDY   #$0002
         LDA   L0EFF
         STA   [$00],Y
         INY
         INY
         LDA   L0F01
         STA   [$00],Y
         RTS

L7444    REP   #$30
         LDA   #$2000
         STA   L0EDB
         LDA   #$00E1
         STA   L0EDD
         JSR   L7419
         RTS

         REP   #$30
         LDA   L0EDB
         PHA
         LDA   L0EDF
         PHA
         _PosMouse
         RTS

L7468    REP   #$30
         PEA   $0000
         PEA   $0000
         PEA   $0000
         _ReadMouse
         PLA
         AND   #$8000
         STA   L0EE3
         PLA
         STA   L0EDF
         PLA
         STA   L0EDB
         RTS

L748A    REP   #$30
         JSR   L7468
         LDA   L0EE3
         AND   #$8000
         RTS

L7496    REP   #$30
         PEA   $0000
         LDA   L0EDB
         PHA
         LDA   L0EE1
         PHA
         LDA   L0EDF
         PHA
         _GetNextEvent
         PLA
         RTS

L74B0    REP   #$30
         LDA   #$0008
         STA   L0EDB
         LDA   #L7968
         STA   L0EDF
         LDA   #^L7968
         STA   L0EE1
         JSR   L7496
         LDA   L7968
         BEQ   L74CF
         LDA   L796A
L74CF    RTS

L74D0    REP   #$30
         JSR   L748A
         PHA
         JSR   L74B0
         PLY
         STY   L0EDB
         RTS

         REP   #$30
L74E0    JSR   L74D0
         LDA   L0EDB
         BNE   L74E0
         RTS

L74E9    REP   #$30
L74EB    JSR   L74D0
         CMP   #$0000
         BNE   L74FB
         LDA   L0EDB
         BEQ   L74EB
         LDA   #$0000
L74FB    RTS

L74FC    REP   #$30
         PEA   $0000
         PEA   $0000
         PEA   $0000
         PEA   $0000
         LDA   L0EDD
         PHA
         LDA   L0EDB
         PHA
         LDA   L0EE1
         PHA
         LDA   L0EDF
         PHA
         _LongMul
         PLA
         STA   L0EE3
         PLA
         STA   L0EE5
         PLA
         STA   L0EDB
         PLA
         STA   L0EDD
         RTS

L7532    REP   #$30
         PEA   $0000
         _Random
         PLA
         RTS

L7540    REP   #$30
         LDA   L0EDF
         SEC
         SBC   L0EDB
         INC
         STA   L0EDF
L754D    PEA   $0000
         _Random
         PLA
         AND   #$EFFF
         BEQ   L754D
         PEA   $0000
         PEA   $0000
         PHA
         LDA   L0EDF
         PHA
         _UDivide
         PLA
         PLA
         CLC
         ADC   L0EDB
         RTS

L7576    REP   #$10
         LDA   L0EDB
         STA   $00
         LDA   L0EDD
         STA   $02
         LDY   #$0000
         SEP   #$20
L7587    LDA   [$00],Y
         BEQ   L758E
         INY
         BRA   L7587
L758E    STY   L0EDF
         REP   #$20
         RTS

L7594    REP   #$30
         LDA   L0EDF
         STA   $00
         LDA   L0EE1
         STA   $02
         LDA   #$0000
         STA   [$00]
         LDY   #$0002
         STA   [$00],Y
         LDX   #$0001
         LDA   L0EDB
         CMP   #$000A
         BCC   L75BC
         INX
         CMP   #$0064
         BCC   L75BC
         INX
L75BC    PHA
         LDA   L0EE1
         PHA
         LDA   L0EDF
         PHA
         PHX
         PEA   $0000
         _Int2Dec
         RTS

         REP   #$30
         JSR   L7576
         PEA   $0000
         LDA   L0EDD
         PHA
         LDA   L0EDB
         PHA
         LDA   L0EDF
         PHA
         PEA   $0000
         _Dec2Int
         PLA
         RTS

L75F1    REP   #$30
         LDA   L0EDD
         PHA
         LDA   L0EDB
         PHA
         LDA   L0EE1
         PHA
         LDA   L0EDF
         PHA
         LDA   L0EE5
         PHA
         LDA   L0EE3
         PHA
         _BlockMove
         RTS

L7613    REP   #$30
         LDA   #$7D00
         STA   L0EE3
         LDA   #$0000
         STA   L0EE5
         JSR   L75F1
         RTS

L7625    REP   #$30
         PEA   $0000
         PEA   $0000
         _GetWMgrPort
         PLA
         STA   L0EDB
         PLA
         STA   L0EDD
         RTS

L763D    REP   #$30
         LDA   L0EDF
         PHA
         _SetSolidPenPat
         LDA   L0EDD
         PHA
         LDA   L0EDB
         PHA
         _PaintRect
         RTS

         REP   #$30
         _ObscureCursor
         RTS

L7664    REP   #$30
         _InitCursor
         RTS

L766E    REP   #$30
         _HideCursor
         RTS

L7678    REP   #$30
         _ShowCursor
         RTS

L7682    REP   #$30
         LDA   L0EDB
         STA   L0EDF
         LDA   #L0E6A
         STA   L0EDB
         LDA   #^L0E6A
         STA   L0EDD
         JSR   L763D
         RTS

L769A    REP   #$10
         LDA   L0EDB
         STA   $00
         LDA   L0EDD
         STA   $02
         LDY   L0EDF
         DEY
         LDA   L0EE3
         SEP   #$20
L76AF    STA   [$00],Y
         DEY
         BPL   L76AF
         REP   #$20
         RTS

         REP   #$30
         LDA   L0EDB
         PHA
         LDA   L0EDF
         PHA
         LDA   L0EE3
         PHA
         _SetColorEntry
         RTS

L76CD    REP   #$30
         LDA   L0EDB
         PHA
         LDA   L0EE1
         PHA
         LDA   L0EDF
         PHA
         _SetColorTable
         RTS

L76E3    REP   #$30
         LDA   L0EDB
         PHA
         LDA   L0EE1
         PHA
         LDA   L0EDF
         PHA
         _GetColorTable
         RTS

L76F9    REP   #$30
         PEA   $0000
         PEA   $0000
         LDA   L0EDD
         PHA
         LDA   L0EDB
         PHA
         LDA   L0E7B
         PHA
         LDA   L0EDF
         PHA
         PEA   $0000
         PEA   $0000
         _NewHandle
         PLA
         STA   L0EE3
         STA   $00
         PLA
         STA   L0EE5
         STA   $02
         BCS   L773A
         LDA   [$00]
         STA   L0EE7
         LDY   #$0002
         LDA   [$00],Y
         STA   L0EE9
         CLC
L773A    RTS

L773B    REP   #$30
         LDA   L0EDD
         PHA
         LDA   L0EDB
         PHA
         _DisposeHandle
         RTS

L774D    REP   #$30
         LDA   #$7D00
         STA   L0EDB
         LDA   #$0000
         STA   L0EDD
         LDA   #$C000
         STA   L0EDF
         JSR   L76F9
         BCS   L777F
         LDA   L0EE3
         STA   L0EDB
         LDA   L0EE5
         STA   L0EDD
         LDA   L0EE7
         STA   L0EDF
         LDA   L0EE9
         STA   L0EE1
         CLC
L777F    RTS

L7780    REP   #$30
         LDA   L0EDB
         STA   L0EDF
         LDA   L0EDD
         STA   L0EE1
         JSL   GSOS
         DW    $0010      ; Open
         ADRL  L0EDD
         LDA   L0EDD
         STA   L0EDF
         RTS

L779F    REP   #$30
         LDA   L0EDB
         STA   L0EDD
         JSL   GSOS
         DW    $0012      ; Read
         ADRL  L0EDD
         RTS

L77B2    REP   #$30
         JSL   GSOS
         DW    $0014      ; Close
         ADRL  L0EDB
         RTS

L77BF    REP   #$30
         JSL   GSOS
         DW    $0006      ; GetFileInfo
         ADRL  L0EDB
         LDA   L0EE1
         PHA
         LDA   L0EE5
         PHA
         LDA   L0EE3
         PHA
         LDA   L0EE7
         PHA
         LDA   L0EE9
         PHA
         LDA   L0EEB
         PHA
         LDA   L0EED
         PHA
         LDA   L0EEF
         PHA
         LDA   L0EF3
         PHA
         LDA   L0EF1
         PHA
         PLA
         STA   L0EFF
         PLA
         STA   L0F01
         PLA
         STA   L0EFB
         PLA
         STA   L0EF7
         PLA
         STA   L0EF3
         PLA
         STA   L0EEF
         PLA
         STA   L0EEB
         PLA
         STA   L0EE7
         PLA
         STA   L0EE9
         PLA
         STA   L0EE3
         RTS

L781C    REP   #$30
         LDA   #$7D00
         STA   L0EDB
         LDA   #$0000
         STA   L0EDD
         LDA   #$C000
         STA   L0EDF
         JSR   L76F9
         BCS   L784D
         LDA   L0EE3
         STA   L7959
         LDA   L0EE5
         STA   L795B
         LDA   L0EE7
         STA   L795D
         LDA   L0EE9
         STA   L795F
L784D    RTS

L784E    REP   #$30
         LDA   L795B
         PHA
         LDA   L7959
         PHA
         _DisposeHandle
         RTS

L7860    REP   #$30
         LDA   L0EDF
         STA   L0EF3
         LDA   L0EE1
         STA   L0EF5
         LDA   L0EE3
         STA   L0EF7
         LDA   L0EE5
         STA   L0EF9
         JSR   L7780
         BCC   L7883
L787F    REP   #$30
         SEC
         RTS

L7883    LDA   L0EDF
         STA   L0EDB
         LDA   L795D
         STA   L0EDF
         LDA   L795F
         STA   L0EE1
         LDA   #$7D00
         STA   L0EE3
         LDA   #$0000
         STA   L0EE5
         JSR   L779F
         BCS   L787F
         JSR   L77B2
         BCS   L787F
         LDA   L795D
         STA   $00
         LDA   L795F
         STA   $02
         LDA   L0EF7
         STA   $04
         LDA   L0EF9
         STA   $06
         LDY   #$0000
L78C2    LDA   [$00],Y
         STA   [$04],Y
         INY
         INY
         CPY   #$0020
         BNE   L78C2
         LDA   L795D
         STA   $00
         LDA   L795F
         STA   $02
         LDA   L0EF3
         STA   $04
         LDA   L0EF5
         STA   $06
         STZ   L7964
         LDY   #$0020
         LDX   #$0000
L78EA    REP   #$30
         LDA   L7964
         CMP   #$7D00
         BCS   L7955
         SEP   #$20
         LDA   [$00],Y
         BPL   L792B
         CMP   #$80
         BEQ   L7927
         EOR   #$FF
         INC
         INC
         STA   L7961
         CLC
         ADC   L7964
         STA   L7964
         LDA   #$00
         ADC   L7965
         STA   L7965
         INY
         LDA   [$00],Y
         STY   L7962
         TXY
L791B    STA   [$04],Y
         INY
         DEC   L7961
         BNE   L791B
         TYX
         LDY   L7962
L7927    INY
         JMP   L78EA

L792B    INC
         STA   L7961
         CLC
         ADC   L7964
         STA   L7964
         LDA   #$00
         ADC   L7965
         STA   L7965
         INY
L793F    LDA   [$00],Y
         STY   L7962
         TXY
         STA   [$04],Y
         INY
         TYX
         LDY   L7962
         INY
         DEC   L7961
         BNE   L793F
         JMP   L78EA

L7955    REP   #$30
         CLC
         RTS

L7959    DB    $00
         DB    $00
L795B    DB    $00
         DB    $00
L795D    DB    $00
         DB    $00
L795F    DB    $00
         DB    $00
L7961    DB    $00
L7962    DB    $00
         DB    $00
L7964    DB    $00
L7965    DB    $00
         DB    $00
         DB    $00
L7968    DB    $00
         DB    $00
L796A    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         REP   #$30
         LDA   L0EDB
         PHA
         LDA   L0EDF
         PHA
         _SetPenSize
         RTS

         REP   #$30
         LDA   L0EDB
         PHA
         _SetPenMode
         RTS

L7998    REP   #$30
         LDA   L0EDB
         PHA
         LDA   L0EDF
         PHA
         _MoveTo
         RTS

L79AA    REP   #$30
         PEA   $0000
         LDA   L0EDD
         PHA
         LDA   L0EDB
         PHA
         _CStringWidth
         PLA
         STA   L0EDF
         RTS

         REP   #$30
         LDA   L0EDB
         PHA
         _DrawChar
         RTS

L79D1    REP   #$30
         LDA   L0EDD
         PHA
         LDA   L0EDB
         PHA
         _DrawCString
         RTS

         REP   #$30
         LDA   L0EDD
         PHA
         LDA   L0EDB
         PHA
         LDA   L0EDB
         STA   $00
         LDA   L0EDD
         STA   $02
         LDA   [$00]
         STA   L0EDB
         LDY   #$0002
         LDA   [$00],Y
         STA   L0EDF
         JSR   L7998
         PLA
         STA   L0EDB
         PLA
         STA   L0EDD
         LDA   #$0004
         CLC
         ADC   L0EDB
         STA   L0EDF
         LDA   #$0000
         ADC   L0EDD
         STA   L0EE1
         LDA   L0EE1
         PHA
         LDA   L0EDF
         PHA
         _DrawCString
         RTS

L7A32    REP   #$30
         LDA   L0EDB
         PHA
         _SetForeColor
         RTS

L7A40    REP   #$30
         LDA   L0EDB
         PHA
         _SetBackColor
         RTS

L7A4E    REP   #$30
         LDA   L0EDB
         STA   L0EE3
         LDA   L0EDD
         STA   L0EE5
         LDA   L0EDF
         STA   L0EE7
         JSR   L79AA
         LDA   #$0140
         SEC
         SBC   L0EDF
         LSR
         STA   L0EDB
         LDA   L0EE7
         STA   L0EDF
         JSR   L7998
         LDA   L0EE3
         STA   L0EDB
         LDA   L0EE5
         STA   L0EDD
         JSR   L79D1
         RTS

L7A89    REP   #$30
         PEA   $0000
         PEA   $0000
         _TickCount
         PLA
         STA   L0EDB
         PLA
         STA   L0EDD
         RTS

L7AA1    REP   #$30
         JSR   L7A89
         LDA   L0EDD
         PHA
         LDA   L0EDB
         PHA
         _SetRandSeed
         RTS

         REP   #$30
         DEC   L0EDF
         LDA   L0EDF
         BNE   L7ACD
         LDA   L0EDB
         STA   L0EE3
         LDA   L0EDD
         STA   L0EE5
         RTS

L7ACD    LDA   L0EDB
         STA   $00
         LDA   L0EDD
         STA   $02
         LDY   #$0000
         SEP   #$20
L7ADC    LDA   [$00],Y
         INY
         CMP   #$00
         BNE   L7ADC
         DEC   L0EDF
         BNE   L7ADC
         REP   #$20
         TYA
         CLC
         ADC   L0EDB
         STA   L0EE3
         LDA   #$0000
         ADC   L0EDD
         STA   L0EE5
         REP   #$30
         RTS

L7AFE    REP   #$30
         JSR   L7A32
         LDA   L0EDF
         STA   L0EDB
         JSR   L7A40
         RTS

L7B0D    REP   #$30
         PEA   $0000
         _GetForeColor
         PLA
         STA   L0EDB
         RTS

         REP   #$30
         PEA   $0000
         _GetBackColor
         PLA
         STA   L0EDB
         RTS

         REP   #$30
         PEA   $0000
         PEA   $0000
         _GetFont
         PLA
         STA   L0EDB
         PLA
         STA   L0EDD
         RTS

         REP   #$30
         PEA   $0000
         _GetFontFlags
         PLA
         STA   L0EDB
         RTS

         REP   #$30
         PEA   $0000
         PEA   $0000
         _GetFontID
         PLA
         STA   L0EDB
         PLA
         STA   L0EDD
         RTS

         REP   #$30
         PEA   ^L0EDB
         PEA   L0EDB
         _GetPen
         RTS

         REP   #$30
         PEA   $0000
         PEA   $0000
         _GetSysFont
         PLA
         STA   L0EDB
         PLA
         STA   L0EDD
         RTS

         REP   #$30
         LDA   L0EDB
         PHA
         _SetTextFace
         RTS

L7BA6    REP   #$30
         LDA   L0EDB
         PHA
         _SetTextMode
         RTS

L7BB4    REP   #$30
         LDAL  $E0C034
         AND   #$000F
         STA   L0EDB
         RTS

L7BC1    REP   #$30
         LDAL  $E0C034
         AND   #$FFF0
         ORA   L0EDB
         STAL  $E0C034
         RTS

L7BD2    REP   #$30
         LDA   L0EE3
         STA   $00
         LDA   L0EE5
         STA   $02
         STZ   L0EEB
         LDX   L0EE7
         LDY   #$0000
L7BE7    STY   L0EEF
         LDA   L0EDF
         CMP   [$00],Y
         BCC   L7C10
         INY
         INY
         LDA   L0EDB
         CMP   [$00],Y
         BCC   L7C10
         INY
         INY
         LDA   L0EDF
         CMP   [$00],Y
         BPL   L7C10
         INY
         INY
         LDA   L0EDB
         CMP   [$00],Y
         BPL   L7C10
         INC   L0EEB
         RTS

L7C10    LDA   L0EEF
         CLC
         ADC   #$0008
         TAY
         INC   L0EEB
         DEX
         BNE   L7BE7
         STZ   L0EEB
         RTS

         REP   #$30
         PEA   $0000
         PEA   $0000
         PEA   $0000
         PEA   $0000
         _ReadTimeHex
         PLA
         PLY
         PLY
         PLY
         TAY
         XBA
         AND   #$00FF
         STA   L0EF7
         TYA
         AND   #$00FF
         STA   L0EF9
         CLC
         ADC   L0EE7
         CMP   #$003C
         BCC   L7C5A
         SEC
         SBC   #$003C
         INC   L0EF7
L7C5A    STA   L0EF9
         LDA   L0EF7
         XBA
         ORA   L0EF9
         STA   L0EF7
         LDA   L0EDB
         STA   L0EED
         LDA   L0EDF
         STA   L0EEF
         LDA   L0EE3
         STA   L0EF1
L7C79    LDA   L0EED
         STA   L0EDB
         LDA   L0EEF
         STA   L0EDF
         LDA   L0EF1
         STA   L0EE3
         LDA   #$0004
         STA   L0EE7
         LDA   #$0000
         STA   L0EE9
         JSR   L7CB7
         PEA   $0000
         PEA   $0000
         PEA   $0000
         PEA   $0000
         _ReadTimeHex
         PLA
         PLY
         PLY
         PLY
         CMP   L0EF7
         BCC   L7C79
         RTS

L7CB7    REP   #$30
         LDA   L0EDF
         STA   L0EF3
         LDA   L0EE3
         STA   L0EF5
         LDA   #L0F2B
         STA   L0EDF
         LDA   #^L0F2B
         STA   L0EE1
         JSR   L76E3
         LDA   L0EF3
         CLC
         ADC   L0EF5
         DEC
         DEC
         ASL
         TAY
         DEC   L0EF5
         LDA   L0F2D,Y
         PHA
L7CE6    LDA   L0F2B,Y
         STA   L0F2D,Y
         DEC   L0EF5
         BEQ   L7CF5
         DEY
         DEY
         BRA   L7CE6
L7CF5    PLA
         STA   L0F2B,Y
         JSR   L76CD
         LDA   L0EE7
         STA   L0EDB
         LDA   L0EE9
         STA   L0EDD
         JSR   L7DE4
         RTS

L7D0C    REP   #$30
         PEA   $0000
         PEA   $0000
         PEA   $0000
         PEA   $0000
         _ReadTimeHex
         PLA
         PLY
         PLY
         PLY
         TAY
         XBA
         AND   #$00FF
         STA   L0EF7
         TYA
         AND   #$00FF
         STA   L0EF9
         CLC
         ADC   L0EDB
         CMP   #$003C
         BCC   L7D44
         SEC
         SBC   #$003C
         INC   L0EF7
L7D44    STA   L0EF9
         LDA   L0EF7
         XBA
         ORA   L0EF9
         STA   L0EF7
L7D51    PEA   $0000
         PEA   $0000
         PEA   $0000
         PEA   $0000
         _ReadTimeHex
         PLA
         PLY
         PLY
         PLY
         CMP   L0EF7
         BCC   L7D51
         RTS

L7D6E    REP   #$30
         LDA   L0EE1
         PHA
         LDA   L0EDF
         PHA
         LDA   L0EDB
         STA   L0EDF
         LDA   L0EDD
         STA   L0EE1
         LDA   #L0F2B
         STA   L0EDB
         LDA   #^L0F2B
         STA   L0EDD
         JSR   L73E2
         LDA   L0EE3
         STA   L0EDF
         LDA   L0EE5
         STA   L0EE1
         LDA   #L0F3B
         STA   L0EDB
         LDA   #^L0F3B
         STA   L0EDD
         JSR   L73E2
         PLA
         STA   L0EDF
         PLA
         STA   L0EE1
         PEA   ^L0F2B
         PEA   L0F2B
         PEA   ^L0F3B
         PEA   L0F3B
         LDA   L0EE1
         PHA
         LDA   L0EDF
         PHA
         LDA   L0EE9
         PHA
         LDA   L0EE7
         PHA
         LDA   L0EEB
         PHA
         PEA   $0000
         PEA   $0000
         _CopyPixels
         RTS

L7DE4    REP   #$30
         LDA   L0EDB
         STA   L0EDF
         LDA   L0EDD
         STA   L0EE1
         JSR   L7A89
         LDA   L0EDB
         CLC
         ADC   L0EDF
         STA   L0EE3
         LDA   L0EDD
         ADC   L0EE1
         STA   L0EE5
L7E08    JSR   L7A89
         LDA   L0EE3
         SEC
         SBC   L0EDB
         STA   L0EDF
         LDA   L0EE5
         SBC   L0EDD
         STA   L0EE1
         LDA   L0EE1
         BPL   L7E08
         RTS

L7E24    REP   #$30
         LDA   L0EDB
         STA   L0EE7
         LDA   L0EDF
         STA   L0EEB
         LDA   L0EE1
         STA   L0EED
         LDA   #L0F2B
         STA   L0EDF
         LDA   #^L0F2B
         STA   L0EE1
         JSR   L76E3
         LDA   L0EEB
         STA   $00
         LDA   L0EED
         STA   $02
         LDX   #$0010
L7E54    LDY   #$001E
L7E57    LDA   [$00],Y
         XBA
         AND   #$000F
         STA   L0EEF
         LDA   L0F2B,Y
         PHA
         PHA
         XBA
         AND   #$000F
         CMP   L0EEF
         BEQ   L7E6F
         INC
L7E6F    XBA
         STA   L0EF7
         LDA   [$00],Y
         LSR
         LSR
         LSR
         LSR
         AND   #$000F
         STA   L0EEF
         PLA
         LSR
         LSR
         LSR
         LSR
         AND   #$000F
         CMP   L0EEF
         BEQ   L7E8D
         INC
L7E8D    ASL
         ASL
         ASL
         ASL
         STA   L0EF3
         LDA   [$00],Y
         AND   #$000F
         STA   L0EEF
         PLA
         AND   #$000F
         CMP   L0EEF
         BEQ   L7EA6
         INC
L7EA6    ORA   L0EF3
         ORA   L0EF7
         STA   L0F2B,Y
         DEY
         DEY
         BPL   L7E57
         PHX
         LDA   L0EE7
         STA   L0EDB
         LDA   #L0F2B
         STA   L0EDF
         LDA   #^L0F2B
         STA   L0EE1
         JSR   L76CD
         LDA   #$0001
         STA   L0EDB
         LDA   #$0000
         STA   L0EDD
         JSR   L7DE4
         PLX
         DEX
         BEQ   L7EDF
         JMP   L7E54
L7EDF    RTS

L7EE0    REP   #$30
         LDA   L0EDB
         STA   L0EE7
         LDA   #L0F2B
         STA   L0EDF
         LDA   #^L0F2B
         STA   L0EE1
         JSR   L76E3
         LDY   #$0010
L7EFA    LDX   #$001E
L7EFD    LDA   L0F2B,X
         PHA
         PHA
         XBA
         AND   #$000F
         BEQ   L7F09
         DEC
L7F09    XBA
         STA   L0EF7
         PLA
         LSR
         LSR
         LSR
         LSR
         AND   #$000F
         BEQ   L7F1C
         DEC
         ASL
         ASL
         ASL
         ASL
L7F1C    STA   L0EF3
         PLA
         AND   #$000F
         BEQ   L7F26
         DEC
L7F26    ORA   L0EF3
         ORA   L0EF7
         STA   L0F2B,X
         DEX
         DEX
         BPL   L7EFD
         PHY
         LDA   L0EE7
         STA   L0EDB
         LDA   #L0F2B
         STA   L0EDF
         LDA   #^L0F2B
         STA   L0EE1
         JSR   L76CD
         LDA   #$0002
         STA   L0EDB
         LDA   #$0000
         STA   L0EDD
         JSR   L7DE4
         PLY
         DEY
         BNE   L7EFA
         RTS

L7F5D    REP   #$30
         LDA   L0EDB
         PHA
         LDA   L0EDF
         STA   L0EEB
         LDA   L0EE1
         STA   L0EED
         LDA   L0EE3
         STA   L0EEF
         LDA   L0EE5
         STA   L0EF1
         JSR   L7EE0
         LDA   L0EEF
         STA   L0EDB
         LDA   L0EF1
         STA   L0EDD
         LDA   #$2000
         STA   L0EDF
         LDA   #$00E1
         STA   L0EE1
         LDA   #$7D00
         STA   L0EE3
         LDA   #$0000
         STA   L0EE5
         JSR   L75F1
         PLA
         STA   L0EDB
         LDA   L0EEB
         STA   L0EDF
         LDA   L0EED
         STA   L0EE1
         JSR   L7E24
         RTS

L7FB9    REP   #$30
         PEA   $0000
         PEA   $FF6E
         PEA   $0000
         _FlushEvents
         PLA
         RTS

         REP   #$30
         LDA   #$0008
         STA   L0EDB
         LDA   #L7968
         STA   L0EDF
         LDA   #^L7968
         STA   L0EE1
L7FE1    JSR   L7496
         LDA   L7968
         BEQ   L7FE1
         LDA   L796A
         RTS

L7FED    REP   #$30
         LDA   L8DC4
         STA   $00
         LDA   L8DC6
         STA   $02
         LDY   #$0012
         LDA   #$0001
         CLC
         ADC   [$00],Y
         STA   [$00],Y
         RTS

L8005    REP   #$30
         LDA   L8DC4
         STA   $00
         LDA   L8DC6
         STA   $02
         LDY   #$0014
         LDA   #$0001
         CLC
         ADC   [$00],Y
         STA   [$00],Y
         RTS

L801D    REP   #$30
         LDA   #L8DD1
         STA   L8DC4
         LDA   #^L8DD1
         STA   L8DC6
         LDA   L8DC2
         CMP   #$0001
         BEQ   L804D
         LDA   #$0003
         EOR   L8DC0
         STA   L8DC0
         CMP   #$0002
         BNE   L804D
         LDA   #L8DE9
         STA   L8DC4
         LDA   #^L8DE9
         STA   L8DC6
L804D    RTS

L804E    REP   #$30
         LDA   #L8DD1
         STA   L0EDF
         LDA   #^L8DD1
         STA   L0EE1
         JSR   L8092
         LDA   #L8DE9
         STA   L0EDF
         LDA   #^L8DE9
         STA   L0EE1
         JSR   L8092
         SEP   #$20
         LDY   #$0007
         LDA   #$01
         CLC
         ADC   [$00],Y
         STA   [$00],Y
         REP   #$20
         LDA   #$0001
         STA   L8DC0
         STA   L8DC2
         LDA   #L8DD1
         STA   L8DC4
         LDA   #^L8DD1
         STA   L8DC6
         RTS

L8092    LDA   #L8DC8
         STA   L0EDB
         LDA   #^L8DC8
         STA   L0EDD
         LDA   #$0008
         STA   L0EE3
         LDA   #$0000
         STA   L0EE5
         JSR   L75F1
         LDA   L0EDF
         STA   $00
         LDA   L0EE1
         STA   $02
         LDA   #$0001
         LDY   #$000E
         STA   [$00],Y
         LDA   #$0008
         LDY   #$0016
         STA   [$00],Y
         LDA   #$0000
         LDY   #$0010
         STA   [$00],Y
         LDY   #$0012
         STA   [$00],Y
         LDY   #$0014
         STA   [$00],Y
         RTS

L80DA    REP   #$30
         _LoadSysFont
         RTS

L80E4    REP   #$30
         LDA   L0EDD
         PHA
         LDA   L0EDB
         PHA
         LDA   L0EDF
         PHA
         _InstallFont
         RTS

L80FA    REP   #$30
         LDA   L0EE7
         STA   $00
         LDA   L0EE9
         STA   $02
         PEA   $0000
         LDA   L0EDD
         PHA
         LDA   L0EDB
         PHA
         _GetFamNum
         PLA
         CMP   #$FFFF
         BEQ   L8133
         STA   [$00]
         LDY   #$0002
         SEP   #$20
         LDA   L0EDF
         STA   [$00],Y
         INY
         LDA   L0EE3
         STA   [$00],Y
         REP   #$20
         RTS

L8133    LDA   #$0000
         STA   [$00]
         LDY   #$0002
         STA   [$00],Y
         RTS

L813E    REP   #$30
         LDA   L0EDD
         PHA
         LDA   L0EDB
         PHA
         _InitColorTable
         RTS

*--- Check volume - AV 202103

L8150    REP   #$30
	lda	#1
        sta   L0EDB
	rts

*         LDA   L0EDF
*         STA   L821C
*         LDA   L0EE1
*         STA   L821E
*         LDA   #L81F8
*         STA   L8220
*         LDA   #^L81F8
*         STA   L8222
*         LDA   #$0001
*         STA   L8224
*L8170    LDA   L8220
*         STA   L0EDB
*         LDA   L8222
*         STA   L0EDD
*         LDA   #L8226
*         STA   L0EDF
*         LDA   #^L8226
*         STA   L0EE1
*         JSL   GSOS
*         DW    $0008      ; Volume
*         ADRL  L0EDB
*         CMP   #$0011
*         BEQ   L81EA
*         LDA   L8220
*         STA   L0EDB
*         LDA   L8222
*         STA   L0EDD
*         LDA   #$0004
*         CLC
*         ADC   L0EDB
*         STA   L8220
*         LDA   #$0000
*         ADC   L0EDD
*         STA   L8222
*         LDA   L821C
*         STA   L0EDB
*         LDA   L821E
*         STA   L0EDD
*         LDA   #L8226
*         STA   L0EDF
*         LDA   #^L8226
*         STA   L0EE1
*         LDA   #$0000
*         STA   L0EE3
*         JSR   L8383
*         LDA   L0EE3
*         BEQ   L81F1
*         INC   L8224
*         LDA   L8224
*         CMP   #$000A
*         BEQ   L81EA
*         JMP   L8170
*
*L81EA    LDA   #$0000
*         STA   L0EDB
*         RTS
*
*L81F1    LDA   L8224
*         STA   L0EDB
*         RTS
*
*L81F8    STR   '.d1'
*         STR   '.d2'
*         STR   '.d3'
*         STR   '.d4'
*         STR   '.d5'
*         STR   '.d6'
*         STR   '.d7'
*         STR   '.d8'
*         STR   '.d9'
*L821C    DB    $00
*         DB    $00
*L821E    DB    $00
*         DB    $00
*L8220    DB    $00
*         DB    $00
*L8222    DB    $00
*         DB    $00
*L8224    DB    $00
*         DB    $00
*L8226    DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00
*         DB    $00

L8326    REP   #$30
         LDA   L0EDF
         STA   L837B
         LDA   L0EE1
         STA   L837D
         LDA   L0EE3
         STA   L837F
L833A    LDA   #$0000
         STA   L0EDB
         LDA   #$0000
         STA   L0EDF
         LDA   #$0000
         STA   L0EE3
         JSR   L7468
         LDA   L0EE3
         BEQ   L833A
         LDA   L837B
         STA   L0EE3
         LDA   L837D
         STA   L0EE5
         LDA   L837F
         STA   L0EE7
         LDA   #$0000
         STA   L0EEB
         JSR   L7BD2
         LDA   L0EEB
         BEQ   L833A
         LDA   L0EEB
         STA   L0EDB
         RTS

L837B    DB    $00
         DB    $00
L837D    DB    $00
         DB    $00
L837F    DB    $00
         DB    $00
         DB    $00
         DB    $00
L8383    REP   #$30
         LDA   L0EDB
         STA   $00
         LDA   L0EDD
         STA   $02
         LDA   L0EDF
         STA   $04
         LDA   L0EE1
         STA   $06
         SEP   #$30
         LDY   #$00
         STY   L83D6
         LDA   [$00],Y
         CMP   [$04],Y
         BNE   L83CC
         CLC
         ADC   #$01
         STA   L83D5
         INY
L83AD    LDA   [$00],Y
         ORA   #$20
         STA   L83D6
         LDA   [$04],Y
         ORA   #$20
         CMP   L83D6
         BNE   L83CC
         INY
         CPY   L83D5
         BNE   L83AD
         REP   #$30
         LDA   #$0000
         STA   L0EE3
         RTS

L83CC    REP   #$30
         LDA   #$0001
         STA   L0EE3
         RTS

L83D5    DB    $00
L83D6    DB    $00
L83D7    REP   #$30
         JSR   L763D
         RTS

L83DD    REP   #$30
         JSR   L766E
         LDA   L0EDB
         STA   L847F
         LDA   L0EDF
         STA   L8481
         LDA   L0EE3
         STA   L8483
         LDA   L0EE5
         STA   L8485
         LDA   L0EE3
         STA   L8487
         LDA   L0EE5
         STA   L8489
L8406    LDA   L8483
         STA   L0EDB
         LDA   L8485
         STA   L0EDD
         LDA   #$0009
         STA   L0EDF
         JSR   L83D7
         LDA   #$0008
         CLC
         ADC   L8483
         STA   L0EDB
         LDA   #$0000
         ADC   L8485
         STA   L0EDD
         LDA   L0EDB
         STA   L8483
         LDA   L0EDD
         STA   L8485
         DEC   L8481
         BNE   L8406
         LDA   L8487
         STA   L0EDB
         LDA   L8489
         STA   L0EDD
L844B    DEC   L847F
         BEQ   L8472
         LDA   #$0008
         CLC
         ADC   L0EDB
         STA   L0EDF
         LDA   #$0000
         ADC   L0EDD
         STA   L0EE1
         LDA   L0EDF
         STA   L0EDB
         LDA   L0EE1
         STA   L0EDD
         JMP   L844B

L8472    LDA   #$0007
         STA   L0EDF
         JSR   L83D7
         JSR   L7678
         RTS

L847F    DB    $00
         DB    $00
L8481    DB    $00
         DB    $00
L8483    DB    $00
         DB    $00
L8485    DB    $00
         DB    $00
L8487    DB    $00
         DB    $00
L8489    DB    $00
         DB    $00
L848B    REP   #$30
         JSR   L3E83
         LDA   #L861B
         STA   L0EDB
         LDA   #^L861B
         STA   L0EDD
         LDA   L1007
         STA   L0EDF
         LDA   L1009
         STA   L0EE1
         LDA   #L0F87
         STA   L0EE3
         LDA   #^L0F87
         STA   L0EE5
         JSR   L7860
         LDA   #$0000
         STA   L0EDB
         JSR   L7EE0
         LDA   #$0000
         STA   L0EDB
         LDA   #L0F87
         STA   L0EDF
         LDA   #^L0F87
         STA   L0EE1
         LDA   L1007
         STA   L0EE3
         LDA   L1009
         STA   L0EE5
         JSR   L7F5D
         JSR   LAA58
         LDA   #$0004
         STA   L0EDB
         JSR   L7BA6
         LDA   #$0001
         STA   L0EDB
         JSR   L7A32
         LDA   #$0098
         STA   L0EDB
         LDA   #$000E
         STA   L0EDF
         JSR   L7998
         LDA   #L8643
         STA   L0EDB
         LDA   #^L8643
         STA   L0EDD
         JSR   L79D1
         LDA   #$0024
         STA   L0EDB
         LDA   #$0022
         STA   L0EDF
         JSR   L7998
         LDA   #L8DD1
         STA   L0EDB
         LDA   #^L8DD1
         STA   L0EDD
         JSR   L79D1
         LDA   #L8DD1
         STA   L0EF3
         LDA   #^L8DD1
         STA   L0EF5
         LDA   #$0022
         STA   L0EF7
         JSR   L85B3
         LDA   L8DC2
         CMP   #$0002
         BEQ   L857D
L854F    LDA   #$00BE
         STA   L0EDB
         LDA   #$00C4
         STA   L0EDF
         JSR   L7998
         LDA   #$0000
         STA   L0EDB
         JSR   L7A32
         JSR   L80DA
         LDA   #L8656
         STA   L0EDB
         LDA   #^L8656
         STA   L0EDD
         JSR   L79D1
         JSR   L74E9
         RTS

L857D    LDA   #$0024
         STA   L0EDB
         LDA   #$0036
         STA   L0EDF
         JSR   L7998
         LDA   #L8DE9
         STA   L0EDB
         LDA   #^L8DE9
         STA   L0EDD
         JSR   L79D1
         LDA   #L8DE9
         STA   L0EF3
         LDA   #^L8DE9
         STA   L0EF5
         LDA   #$0036
         STA   L0EF7
         JSR   L85B3
         JMP   L854F

L85B3    LDA   L0EF3
         STA   $04
         LDA   L0EF5
         STA   $06
         LDY   #$0012
         LDA   #$00B0
         STA   L0EE3
         JSR   L85D2
         LDY   #$0014
         LDA   #$0100
         STA   L0EE3
L85D2    LDA   [$04],Y
         STA   L0EDB
         LDA   #L8667
         STA   L0EDF
         LDA   #^L8667
         STA   L0EE1
         JSR   L7594
         SEP   #$20
         LDA   L8668
         REP   #$30
         CMP   #$0000
         BNE   L85FC
         LDA   #$0008
         CLC
         ADC   L0EE3
         STA   L0EE3
L85FC    LDA   L0EE3
         STA   L0EDB
         LDA   L0EF7
         STA   L0EDF
         JSR   L7998
         LDA   #L8667
         STA   L0EDB
         LDA   #^L8667
         STA   L0EDD
         JSR   L79D1
         RTS

L861B    STR   '1/america.pics/scorescr.pcn'
L8643    ASC   'Correct  Incorrect'00
L8656    ASC   'Click the mouse.'00
L8667    DB    $00
L8668    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L8671    REP   #$30
         LDA   L0EDD
         PHA
         LDA   L0EDB
         PHA
         _SetSpaceExtra
         RTS

         REP   #$30
         PEA   $0000
         PEA   $0000
         _GetSpaceExtra
         PLA
         STA   L0EDB
         PLA
         STA   L0EDD
         RTS

L869B    REP   #$30
         PEA   $0000
         PEA   $0000
         LDA   L0EE1
         PHA
         LDA   L0EDF
         PHA
         _Long2Fix
         PLA
         STA   L0EDB
         PLA
         STA   L0EDD
         RTS

L86BB    REP   #$30
         LDA   L0EE9
         PHA
         LDA   L0EE7
         PHA
         LDA   L0EE5
         PHA
         LDA   L0EE3
         PHA
         LDA   L0EE1
         PHA
         LDA   L0EDF
         PHA
         LDA   L0EDD
         PHA
         LDA   L0EDB
         PHA
         JSL   L0764
         TSC
         CLC
         ADC   #$0010
         TCS
         RTS

L86E8    REP   #$30
         LDA   L0EE7
         PHA
         LDA   L0EE3
         PHA
         LDA   L0EE1
         PHA
         LDA   L0EDF
         PHA
         LDA   L0EDD
         PHA
         LDA   L0EDB
         PHA
         JSL   L071C
         TSC
         CLC
         ADC   #$000C
         TCS
         RTS

L870D    REP   #$30
         JSL   L0684
         RTS

L8714    REP   #$30
         LDA   L0EDD
         PHA
         LDA   L0EDB
         PHA
         JSL   L07D9
         PLA
         STA   L0EDB
         PLA
         STA   L0EDD
         RTS

L872B    REP   #$30
L872D    JSR   L7532
         AND   #$0003
         CMP   #$0003
         BEQ   L872D
         STA   L8DB6
         ASL
         ASL
         CLC
         ADC   L0EDB
         STA   L0EF7
         LDA   #$0000
         ADC   L0EDD
         STA   L0EF9
         LDA   #$2000
         STA   L0EDB
         LDA   #$00E1
         STA   L0EDD
         JSR   L7419
         LDA   #L8795
         STA   L0EDB
         LDA   #^L8795
         STA   L0EDD
         STZ   L0EDF
         JSR   L763D
         JSR   LAA58
         LDA   L0EF7
         STA   $00
         LDA   L0EF9
         STA   $02
         LDA   [$00]
         STA   L0EDB
         LDY   #$0002
         LDA   [$00],Y
         STA   L0EDD
         LDA   #$00A5
         STA   L0EDF
         JSR   L7A4E
         JSR   L80DA
         RTS

L8795    DW    $0091
         DW    $000A
         DW    $00AA
         DW    $0136
L879D    REP   #$30
         LDA   L8DB6
         CMP   #$0001
         BNE   L87C8
         LDA   L8D84
         STA   L0EDB
         LDA   L8D86
         STA   L0EDD
         LDA   L8D88
         STA   L0EDF
         LDA   L8D8A
         STA   L0EE1
         LDA   L8D8C
         STA   L0EE3
         JSR   L1043
L87C8    LDA   L8DAC
         STA   L0EDB
         LDA   L8DAE
         STA   L0EDD
         LDA   L8DB0
         STA   L0EDF
         LDA   L8DB2
         STA   L0EE1
         LDA   L8DB4
         STA   L0EE3
         JSR   L1043
         RTS

L87EA    REP   #$30
         LDY   L8DB6
         BNE   L8812
         LDA   L8D0F
         STA   L0EDB
         LDA   L8D11
         STA   L0EDD
         LDA   L8D13
         STA   L0EDF
         LDA   L8D15
         STA   L0EE1
         LDA   L8D17
         STA   L0EE3
         JMP   L8856

L8812    CPY   #$0002
         BNE   L8838
         LDA   L8D36
         STA   L0EDB
         LDA   L8D38
         STA   L0EDD
         LDA   L8D3A
         STA   L0EDF
         LDA   L8D3C
         STA   L0EE1
         LDA   L8D3E
         STA   L0EE3
         JMP   L8856

L8838    LDA   L8D5D
         STA   L0EDB
         LDA   L8D5F
         STA   L0EDD
         LDA   L8D61
         STA   L0EDF
         LDA   L8D63
         STA   L0EE1
         LDA   L8D65
         STA   L0EE3
L8856    JSR   L1043
         RTS

L885A    REP   #$30
         LDA   L0E75
         BEQ   L8864
         JSR   L3EA1
L8864    LDA   #L8CF2
         STA   L0EDB
         LDA   #^L8CF2
         STA   L0EDD
         LDA   #L8D0F
         STA   L0EDF
         LDA   #^L8D0F
         STA   L0EE1
         LDA   #L8D13
         STA   L0EE3
         LDA   #^L8D13
         STA   L0EE5
         LDA   #L8D17
         STA   L0EE7
         LDA   #^L8D17
         STA   L0EE9
         JSR   L1027
         LDA   #L8D19
         STA   L0EDB
         LDA   #^L8D19
         STA   L0EDD
         LDA   #L8D36
         STA   L0EDF
         LDA   #^L8D36
         STA   L0EE1
         LDA   #L8D3A
         STA   L0EE3
         LDA   #^L8D3A
         STA   L0EE5
         LDA   #L8D3E
         STA   L0EE7
         LDA   #^L8D3E
         STA   L0EE9
         JSR   L1027
         LDA   #L8D40
         STA   L0EDB
         LDA   #^L8D40
         STA   L0EDD
         LDA   #L8D5D
         STA   L0EDF
         LDA   #^L8D5D
         STA   L0EE1
         LDA   #L8D61
         STA   L0EE3
         LDA   #^L8D61
         STA   L0EE5
         LDA   #L8D65
         STA   L0EE7
         LDA   #^L8D65
         STA   L0EE9
         JSR   L1027
         RTS

L88FE    LDA   L8D0F
         STA   L0EDB
         LDA   L8D11
         STA   L0EDD
         JSR   L1038
         LDA   L8D36
         STA   L0EDB
         LDA   L8D38
         STA   L0EDD
         JSR   L1038
         LDA   L8D5D
         STA   L0EDB
         LDA   L8D5F
         STA   L0EDD
         JSR   L1038
         RTS

L892C    REP   #$30
         LDA   L0E75
         BEQ   L8936
         JSR   L3EA1
L8936    LDA   #L8D67
         STA   L0EDB
         LDA   #^L8D67
         STA   L0EDD
         LDA   #L8D84
         STA   L0EDF
         LDA   #^L8D84
         STA   L0EE1
         LDA   #L8D88
         STA   L0EE3
         LDA   #^L8D88
         STA   L0EE5
         LDA   #L8D8C
         STA   L0EE7
         LDA   #^L8D8C
         STA   L0EE9
         JSR   L1027
         LDA   #L8D8E
         STA   L0EDB
         LDA   #^L8D8E
         STA   L0EDD
         LDA   #L8DAC
         STA   L0EDF
         LDA   #^L8DAC
         STA   L0EE1
         LDA   #L8DB0
         STA   L0EE3
         LDA   #^L8DB0
         STA   L0EE5
         LDA   #L8DB4
         STA   L0EE7
         LDA   #^L8DB4
         STA   L0EE9
         JSR   L1027
         RTS

L899D    LDA   L8D84
         STA   L0EDB
         LDA   L8D86
         STA   L0EDD
         JSR   L1038
         LDA   L8DAC
         STA   L0EDB
         LDA   L8DAE
         STA   L0EDD
         JSR   L1038
         RTS

L89BC    REP   #$30
         JSR   L3EA1
         LDA   #L8BB4
         STA   L0EDB
         LDA   #^L8BB4
         STA   L0EDD
         LDA   #L8BD2
         STA   L0EDF
         LDA   #^L8BD2
         STA   L0EE1
         LDA   #L8BD6
         STA   L0EE3
         LDA   #^L8BD6
         STA   L0EE5
         LDA   #L8BDA
         STA   L0EE7
         LDA   #^L8BDA
         STA   L0EE9
         JSR   L1027
         LDA   #L8C2C
         STA   L0EDB
         LDA   #^L8C2C
         STA   L0EDD
         LDA   #L8C49
         STA   L0EDF
         LDA   #^L8C49
         STA   L0EE1
         LDA   #L8C4D
         STA   L0EE3
         LDA   #^L8C4D
         STA   L0EE5
         LDA   #L8C51
         STA   L0EE7
         LDA   #^L8C51
         STA   L0EE9
         JSR   L1027
         LDA   #L8C53
         STA   L0EDB
         LDA   #^L8C53
         STA   L0EDD
         LDA   #L8C70
         STA   L0EDF
         LDA   #^L8C70
         STA   L0EE1
         LDA   #L8C74
         STA   L0EE3
         LDA   #^L8C74
         STA   L0EE5
         LDA   #L8C78
         STA   L0EE7
         LDA   #^L8C78
         STA   L0EE9
         JSR   L1027
         LDA   #L8C7A
         STA   L0EDB
         LDA   #^L8C7A
         STA   L0EDD
         LDA   #L8C99
         STA   L0EDF
         LDA   #^L8C99
         STA   L0EE1
         LDA   #L8C9D
         STA   L0EE3
         LDA   #^L8C9D
         STA   L0EE5
         LDA   #L8CA1
         STA   L0EE7
         LDA   #^L8CA1
         STA   L0EE9
         JSR   L1027
         RTS

L8A8E    LDA   L8BD2
         STA   L0EDB
         LDA   L8BD4
         STA   L0EDD
         JSR   L1038
         LDA   L8C49
         STA   L0EDB
         LDA   L8C4B
         STA   L0EDD
         JSR   L1038
         LDA   L8C70
         STA   L0EDB
         LDA   L8C72
         STA   L0EDD
         JSR   L1038
         LDA   L8C99
         STA   L0EDB
         LDA   L8C9B
         STA   L0EDD
         JSR   L1038
         RTS

L8ACB    REP   #$30
         LDA   #L8CA3
         STA   L0EDB
         LDA   #^L8CA3
         STA   L0EDD
         LDA   #L8CC0
         STA   L0EDF
         LDA   #^L8CC0
         STA   L0EE1
         LDA   #L8CC4
         STA   L0EE3
         LDA   #^L8CC4
         STA   L0EE5
         LDA   #L8CC8
         STA   L0EE7
         LDA   #^L8CC8
         STA   L0EE9
         JSR   L1027
         RTS

L8B01    LDA   L8CC0
         STA   L0EDB
         LDA   L8CC2
         STA   L0EDD
         JSR   L1038
         RTS

L8B11    ADRL  L8B29
         ADRL  L8B41
         ADRL  L8B37
L8B1D    ADRL  L8B4C
         ADRL  L8B5E
         ADRL  L8B78
L8B29    ASC   'That'27's right!'00
L8B37    ASC   'Good job!'00
L8B41    ASC   'Very good!'00
L8B4C    ASC   'That'27's incorrect.'00
L8B5E    ASC   'Whoops, that'27's incorrect.'00
L8B78    ASC   'That'27's incorrect.'00
L8B8A    ASC   '1/magic.snd/fsagain'00
L8BAA    BRK   $00
L8BAC    BRK   $00
L8BAE    BRK   $00
L8BB0    BRK   $00
L8BB2    BRK   $00
L8BB4    ASC   '1/magic.snd/fshow'00
L8BD2    BRK   $00
L8BD4    BRK   $00
L8BD6    BRK   $00
L8BD8    BRK   $00
L8BDA    BRK   $00
L8BDC    ASC   '1/magic.snd/fsact'00
L8BFA    BRK   $00
L8BFC    BRK   $00
L8BFE    BRK   $00
L8C00    BRK   $00
L8C02    BRK   $00
L8C04    ASC   '1/magic.snd/fsact'00
L8C22    BRK   $00
L8C24    BRK   $00
L8C26    BRK   $00
L8C28    BRK   $00
L8C2A    BRK   $00
L8C2C    ASC   '1/magic.snd/fsp1'00
L8C49    BRK   $00
L8C4B    BRK   $00
L8C4D    BRK   $00
L8C4F    BRK   $00
L8C51    BRK   $00
L8C53    ASC   '1/magic.snd/fsp2'00
L8C70    BRK   $00
L8C72    BRK   $00
L8C74    BRK   $00
L8C76    BRK   $00
L8C78    BRK   $00
L8C7A    ASC   '1/magic.snd/fsname'00
L8C99    BRK   $00
L8C9B    BRK   $00
L8C9D    BRK   $00
L8C9F    BRK   $00
L8CA1    BRK   $00
L8CA3    ASC   '1/magic.snd/fsqt'00
L8CC0    BRK   $00
L8CC2    BRK   $00
L8CC4    BRK   $00
L8CC6    BRK   $00
L8CC8    BRK   $00
L8CCA    ASC   '1/magic.snd/fsopt'00
L8CE8    BRK   $00
L8CEA    BRK   $00
L8CEC    BRK   $00
L8CEE    BRK   $00
L8CF0    BRK   $00
L8CF2    ASC   '1/magic.snd/fstr'00
L8D0F    BRK   $00
L8D11    BRK   $00
L8D13    BRK   $00
L8D15    BRK   $00
L8D17    BRK   $00
L8D19    ASC   '1/magic.snd/fsgj'00
L8D36    BRK   $00
L8D38    BRK   $00
L8D3A    BRK   $00
L8D3C    BRK   $00
L8D3E    BRK   $00
L8D40    ASC   '1/magic.snd/fsvg'00
L8D5D    BRK   $00
L8D5F    BRK   $00
L8D61    BRK   $00
L8D63    BRK   $00
L8D65    BRK   $00
L8D67    ASC   '1/magic.snd/fswh'00
L8D84    BRK   $00
L8D86    BRK   $00
L8D88    BRK   $00
L8D8A    BRK   $00
L8D8C    BRK   $00
L8D8E    ASC   '1/magic.snd/fsinc'00
L8DAC    DB    $00
         DB    $00
L8DAE    DB    $00
         DB    $00
L8DB0    DB    $00
         DB    $00
L8DB2    DB    $00
         DB    $00
L8DB4    DB    $00
         DB    $00
L8DB6    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L8DC0    DB    $00
         DB    $00
L8DC2    DB    $00
         DB    $00
L8DC4    DB    $00
         DB    $00
L8DC6    DB    $00
         DB    $00
L8DC8    ASC   'Player 1'00
L8DD1    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L8DE9    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L8F01    REP   #$30
         JSR   L3EA1
         LDA   #L8B8A
         STA   L0EDB
         LDA   #^L8B8A
         STA   L0EDD
         LDA   #L8BAA
         STA   L0EDF
         LDA   #^L8BAA
         STA   L0EE1
         LDA   #L8BAE
         STA   L0EE3
         LDA   #^L8BAE
         STA   L0EE5
         LDA   #L8BB2
         STA   L0EE7
         LDA   #^L8BB2
         STA   L0EE9
         JSR   L1027
         LDA   #$0000
         STA   L0EDB
         JSR   L7EE0
         JSR   L7444
         JSR   LAA58
         LDA   #$0000
         STA   L0EDB
         JSR   L7682
         LDA   #L9126
         STA   L0EDB
         LDA   #^L9126
         STA   L0EDD
         LDA   #$0009
         STA   L0EDF
         JSR   L763D
         LDA   #L912E
         STA   L0EDB
         LDA   #^L912E
         STA   L0EDD
         LDA   #$0000
         STA   L0EDF
         JSR   L763D
         LDA   #L9136
         STA   L0EDB
         LDA   #^L9136
         STA   L0EDD
         LDA   #$0007
         STA   L0EDF
         JSR   L763D
         LDA   #L913E
         STA   L0EDB
         LDA   #^L913E
         STA   L0EDD
         LDA   #$0009
         STA   L0EDF
         JSR   L763D
         LDA   #L9146
         STA   L0EDB
         LDA   #^L9146
         STA   L0EDD
         LDA   #$0009
         STA   L0EDF
         JSR   L763D
         LDA   #$000D
         STA   L0EDB
         JSR   L7A32
         LDA   #L90F8
         STA   L0EDB
         LDA   #^L90F8
         STA   L0EDD
         LDA   #$0028
         STA   L0EDF
         JSR   L7A4E
         LDA   #L910A
         STA   L0EDB
         LDA   #^L910A
         STA   L0EDD
         LDA   #$003C
         STA   L0EDF
         JSR   L7A4E
         LDA   #$00A0
         STA   L0EDB
         LDA   #$0074
         STA   L0EDF
         JSR   L7998
         LDA   #L911C
         STA   L0EDB
         LDA   #^L911C
         STA   L0EDD
         JSR   L79D1
         LDA   #$00A0
         STA   L0EDB
         LDA   #$008A
         STA   L0EDF
         JSR   L7998
         LDA   #L9120
         STA   L0EDB
         LDA   #^L9120
         STA   L0EDD
         JSR   L79D1
         LDA   #$0007
         STA   L0EDB
         JSR   L7A32
         LDA   #$009B
         STA   L0EDB
         LDA   #$00AF
         STA   L0EDF
         JSR   L7998
         LDA   #L9123
         STA   L0EDB
         LDA   #^L9123
         STA   L0EDD
         JSR   L79D1
         LDA   #$0000
         STA   L0EDB
         LDA   #L0EA7
         STA   L0EDF
         LDA   #^L0EA7
         STA   L0EE1
         JSR   L76CD
         LDA   #$0001
         STA   L90F6
         LDA   L8BAA
         STA   L0EDB
         LDA   L8BAC
         STA   L0EDD
         LDA   L8BAE
         STA   L0EDF
         LDA   L8BB0
         STA   L0EE1
         LDA   L8BB2
         STA   L0EE3
         JSR   L1043
         JSR   L7678
L908F    LDA   #$0000
         STA   L0EDB
         LDA   #L9136
         STA   L0EDF
         LDA   #^L9136
         STA   L0EE1
         LDA   #$0003
         STA   L0EE3
         JSR   L8326
         LDA   L0EDB
         BEQ   L908F
         CMP   #$0003
         BEQ   L90DA
         CMP   L90F6
         BEQ   L908F
         STA   L90F6
         LDA   L90F6
         STA   L0EDB
         LDA   #$0002
         STA   L0EDF
         LDA   #L9136
         STA   L0EE3
         LDA   #^L9136
         STA   L0EE5
         JSR   L83DD
         JMP   L908F

L90DA    LDA   L8BAA
         STA   L0EDB
         LDA   L8BAC
         STA   L0EDD
         JSR   L1038
         LDA   L90F6
         STA   L0EDB
         JSR   L766E
         JSR   L80DA
         RTS

L90F6    DB    $00
         DB    $00
L90F8    ASC   'Would you like to'00
L910A    ASC   'play again?'00
         ASC   '(Y/N)'00
L911C    ASC   'Yes'00
L9120    ASC   'No'00
L9123    ASC   'OK'00
L9126    DW    $0005
         DW    $0005
         DW    $00C2
         DW    $013A
L912E    DW    $0007
         DW    $0007
         DW    $00C0
         DW    $0138
L9136    DW    $0068
         DW    $008C
         DW    $0076
         DW    $009A
L913E    DW    $007E
         DW    $008C
         DW    $008C
         DW    $009A
L9146    DW    $00A0
         DW    $0096
         DW    $00B4
         DW    $00B4
L914E    REP   #$30
         LDA   #$0000
         STA   L0EDB
         JSR   L7EE0
         JSR   L7444
         JSR   LAA58
         LDA   #$0000
         STA   L0EDB
         JSR   L7682
         LDA   #L9314
         STA   L0EDB
         LDA   #^L9314
         STA   L0EDD
         LDA   #$0009
         STA   L0EDF
         JSR   L763D
         LDA   #L931C
         STA   L0EDB
         LDA   #^L931C
         STA   L0EDD
         LDA   #$0000
         STA   L0EDF
         JSR   L763D
         LDA   #L9324
         STA   L0EDB
         LDA   #^L9324
         STA   L0EDD
         LDA   #$0007
         STA   L0EDF
         JSR   L763D
         LDA   #L932C
         STA   L0EDB
         LDA   #^L932C
         STA   L0EDD
         LDA   #$0009
         STA   L0EDF
         JSR   L763D
         LDA   #L9334
         STA   L0EDB
         LDA   #^L9334
         STA   L0EDD
         LDA   #$0009
         STA   L0EDF
         JSR   L763D
         LDA   #$000D
         STA   L0EDB
         LDA   #$000E
         STA   L0EDF
         JSR   L7AFE
         LDA   #L92F7
         STA   L0EDB
         LDA   #^L92F7
         STA   L0EDD
         LDA   #$0028
         STA   L0EDF
         JSR   L7A4E
         LDA   #$00A0
         STA   L0EDB
         LDA   #$004C
         STA   L0EDF
         JSR   L7998
         LDA   #L9309
         STA   L0EDB
         LDA   #^L9309
         STA   L0EDD
         JSR   L79D1
         LDA   #$00A0
         STA   L0EDB
         LDA   #$0062
         STA   L0EDF
         JSR   L7998
         LDA   #L930D
         STA   L0EDB
         LDA   #^L930D
         STA   L0EDD
         JSR   L79D1
         LDA   #$0007
         STA   L0EDB
         LDA   #$0009
         STA   L0EDF
         JSR   L7AFE
         LDA   #$009B
         STA   L0EDB
         LDA   #$00AF
         STA   L0EDF
         JSR   L7998
         LDA   #L9311
         STA   L0EDB
         LDA   #^L9311
         STA   L0EDD
         JSR   L79D1
         LDA   #$0000
         STA   L0EDB
         LDA   #L0EA7
         STA   L0EDF
         LDA   #^L0EA7
         STA   L0EE1
         JSR   L76CD
         LDA   #$0001
         STA   L92F5
         LDA   L8BD2
         STA   L0EDB
         LDA   L8BD4
         STA   L0EDD
         LDA   L8BD6
         STA   L0EDF
         LDA   L8BD8
         STA   L0EE1
         LDA   L8BDA
         STA   L0EE3
         JSR   L1043
         JSR   L7678
L929D    LDA   #$0000
         STA   L0EDB
         LDA   #L9324
         STA   L0EDF
         LDA   #^L9324
         STA   L0EE1
         LDA   #$0003
         STA   L0EE3
         JSR   L8326
         LDA   L0EDB
         BEQ   L929D
         CMP   #$0003
         BEQ   L92E8
         CMP   L92F5
         BEQ   L929D
         STA   L92F5
         LDA   L92F5
         STA   L0EDB
         LDA   #$0002
         STA   L0EDF
         LDA   #L9324
         STA   L0EE3
         LDA   #^L9324
         STA   L0EE5
         JSR   L83DD
         JMP   L929D

L92E8    LDA   L92F5
         STA   L8DC2
         JSR   L80DA
         JSR   L766E
         RTS

L92F5    DB    $00
         DB    $00
L92F7    ASC   'How many players?'00
L9309    ASC   'one'00
L930D    ASC   'two'00
L9311    ASC   'OK'00
L9314    DW    $0005
         DW    $0005
         DW    $00C2
         DW    $013A
L931C    DW    $0007
         DW    $0007
         DW    $00C0
         DW    $0138
L9324    DW    $0042
         DW    $008C
         DW    $0050
         DW    $009A
L932C    DW    $0056
         DW    $008C
         DW    $0064
         DW    $009A
L9334    DW    $00A0
         DW    $0096
         DW    $00B4
         DW    $00B4
L933C    REP   #$30
         LDA   #L8C04
         STA   L0EDB
         LDA   #^L8C04
         STA   L0EDD
         LDA   #L8C22
         STA   L0EDF
         LDA   #^L8C22
         STA   L0EE1
         LDA   #L8C26
         STA   L0EE3
         LDA   #^L8C26
         STA   L0EE5
         LDA   #L8C2A
         STA   L0EE7
         LDA   #^L8C2A
         STA   L0EE9
         JSR   L1027
         LDA   #$0000
         STA   L0EDB
         JSR   L7EE0
         JSR   L7444
         JSR   LAA58
         LDA   #$0000
         STA   L0EDB
         JSR   L7682
         LDA   #L9560
         STA   L0EDB
         LDA   #^L9560
         STA   L0EDD
         LDA   #$0009
         STA   L0EDF
         JSR   L763D
         LDA   #L9568
         STA   L0EDB
         LDA   #^L9568
         STA   L0EDD
         LDA   #$0000
         STA   L0EDF
         JSR   L763D
         LDA   #L9570
         STA   L0EDB
         LDA   #^L9570
         STA   L0EDD
         LDA   #$0007
         STA   L0EDF
         JSR   L763D
         LDA   #L9578
         STA   L0EDB
         LDA   #^L9578
         STA   L0EDD
         LDA   #$0009
         STA   L0EDF
         JSR   L763D
         LDA   #L9580
         STA   L0EDB
         LDA   #^L9580
         STA   L0EDD
         LDA   #$0009
         STA   L0EDF
         JSR   L763D
         LDA   #$000D
         STA   L0EDB
         LDA   #$000E
         STA   L0EDF
         JSR   L7AFE
         LDA   #L9527	; Please select the activity
         STA   L0EDB
         LDA   #^L9527
         STA   L0EDD
         LDA   #$0028
         STA   L0EDF
         JSR   L7A4E
         LDA   #$0052
         STA   L0EDB
         LDA   #$0060
         STA   L0EDF
         JSR   L7998
         LDA   #L9543
         STA   L0EDB
         LDA   #^L9543
         STA   L0EDD
         JSR   L79D1
         LDA   #$0052
         STA   L0EDB
         LDA   #$0076
         STA   L0EDF
         JSR   L7998
         LDA   #L9558
         STA   L0EDB
         LDA   #^L9558
         STA   L0EDD
         JSR   L79D1
         LDA   #$0007
         STA   L0EDB
         LDA   #$0009
         STA   L0EDF
         JSR   L7AFE
         LDA   #$009B
         STA   L0EDB
         LDA   #$00AF
         STA   L0EDF
         JSR   L7998
         LDA   #L955D
         STA   L0EDB
         LDA   #^L955D
         STA   L0EDD
         JSR   L79D1
         LDA   #$0000
         STA   L0EDB
         LDA   #L0EA7
         STA   L0EDF
         LDA   #^L0EA7
         STA   L0EE1
         JSR   L76CD
         LDA   #$0001
         STA   L9525
         LDA   L8C22
         STA   L0EDB
         LDA   L8C24
         STA   L0EDD
         LDA   L8C26
         STA   L0EDF
         LDA   L8C28
         STA   L0EE1
         LDA   L8C2A
         STA   L0EE3
         JSR   L1043
         JSR   L7678
L94BE    LDA   #$0000
         STA   L0EDB
         LDA   #L9570
         STA   L0EDF
         LDA   #^L9570
         STA   L0EE1
         LDA   #$0003
         STA   L0EE3
         JSR   L8326
         LDA   L0EDB
         BEQ   L94BE
         CMP   #$0003
         BEQ   L9509
         CMP   L9525
         BEQ   L94BE
         STA   L9525
         LDA   L9525
         STA   L0EDB
         LDA   #$0002
         STA   L0EDF
         LDA   #L9570
         STA   L0EE3
         LDA   #^L9570
         STA   L0EE5
         JSR   L83DD
         JMP   L94BE

L9509    LDA   L8C22
         STA   L0EDB
         LDA   L8C24
         STA   L0EDD
         JSR   L1038
         JSR   L80DA
         JSR   L766E
         LDA   L9525
         STA   L0EDB
         RTS

L9525    DB    $00
         DB    $00
L9527    ASC   'Please select the activity.'00
L9543    ASC   'Answer the questions'00
L9558    ASC   'Exit'00
L955D    ASC   'OK'00
L9560    DW    $0005
         DW    $0005
         DW    $00C2
         DW    $013A
L9568    DW    $0007
         DW    $0007
         DW    $00C0
         DW    $0138
L9570    DW    $0054
         DW    $003E
         DW    $0062
         DW    $004C
L9578    DW    $006A
         DW    $003E
         DW    $0078
         DW    $004C
L9580    DW    $00A0
         DW    $0096
         DW    $00B4
         DW    $00B4
L9588    REP   #$30
         LDA   L0EDB
         STA   L975E
         LDA   L0EDD
         STA   L9760
         LDA   L0EDF
         STA   L9762
         LDA   L0EE1
         STA   L9764
         LDA   L0EE3
         STA   L9766
         LDA   #$0000
         STA   L0EDB
         JSR   L7EE0
         JSR   L7444
         JSR   LAA58
         LDA   #$0000
         STA   L0EDB
         JSR   L7682
         LDA   #$000D
         STA   L0EDB
         LDA   #$0000
         STA   L0EDF
         JSR   L7AFE
         LDA   L9762
         STA   L0EDB
         LDA   L9764
         STA   L0EDD
         LDA   #$0028
         STA   L0EDF
         JSR   L7A4E
         LDA   #L976A
         STA   L0EDB
         LDA   #^L976A
         STA   L0EDD
         LDA   #$0050
         STA   L0EDF
         JSR   L7A4E
         LDA   #$0007
         STA   L0EDB
         LDA   #$0000
         STA   L0EDF
         JSR   L7AFE
         LDA   #$0000
         STA   L0EDB
         LDA   #L0EA7
         STA   L0EDF
         LDA   #^L0EA7
         STA   L0EE1
         JSR   L76CD
         LDA   #$0000
         STA   L9768
         LDA   #L979A
         STA   $00
         LDA   #^L979A
         STA   $02
         LDA   L9766
         CMP   #$0001
         BNE   L9659
         LDA   L8C49
         STA   L0EDB
         LDA   L8C4B
         STA   L0EDD
         LDA   L8C4D
         STA   L0EDF
         LDA   L8C4F
         STA   L0EE1
         LDA   L8C51
         STA   L0EE3
         JSR   L1043
         JMP   L967A

L9659    LDA   L8C70
         STA   L0EDB
         LDA   L8C72
         STA   L0EDD
         LDA   L8C74
         STA   L0EDF
         LDA   L8C76
         STA   L0EE1
         LDA   L8C78
         STA   L0EE3
         JSR   L1043
L967A    LDA   L8C99
         STA   L0EDB
         LDA   L8C9B
         STA   L0EDD
         LDA   L8C9D
         STA   L0EDF
         LDA   L8C9F
         STA   L0EE1
         LDA   L8CA1
         STA   L0EE3
         JSR   L1043
L969B    JSR   L74E9
         CMP   #$0000
         BEQ   L969B
         CMP   #$000D
         BNE   L96AB
         JMP   L972A

L96AB    CMP   #$007F
         BEQ   L970D
         LDY   L9768
         CPY   #$0008
         BEQ   L9724
         ORA   #$0020
         CMP   #$0061
         BCC   L9724
         CMP   #$007B
         BCS   L9724
         CPY   #$0000
         BNE   L96CD
         AND   #$00DF
L96CD    SEP   #$20
         STA   [$00],Y
         INY
         LDA   #$00
         STA   [$00],Y
         REP   #$30
         STY   L9768
L96DB    LDA   #L9792
         STA   L0EDB
         LDA   #^L9792
         STA   L0EDD
         LDA   #$0000
         STA   L0EDF
         JSR   L763D
         LDY   L9768
         BEQ   L969B
         LDA   #L979A
         STA   L0EDB
         LDA   #^L979A
         STA   L0EDD
         LDA   #$0078
         STA   L0EDF
         JSR   L7A4E
         JMP   L969B

L970D    LDY   L9768
         CPY   #$0000
         BEQ   L9724
         DEY
         SEP   #$20
         LDA   #$00
         STA   [$00],Y
         REP   #$30
         STY   L9768
         JMP   L96DB

L9724    JSR   L10BA
         JMP   L969B

L972A    LDY   L9768
         CPY   #$0000
         BEQ   L975A
         INY
         STY   L9768
         LDA   #L979A
         STA   L0EDB
         LDA   #^L979A
         STA   L0EDD
         LDA   L975E
         STA   L0EDF
         LDA   L9760
         STA   L0EE1
         LDA   L9768
         STA   L0EE3
         STZ   L0EE5
         JSR   L75F1
L975A    JSR   L80DA
         RTS

L975E    DB    $00
         DB    $00
L9760    DB    $00
         DB    $00
L9762    DB    $00
         DB    $00
L9764    DB    $00
         DB    $00
L9766    DB    $00
         DB    $00
L9768    DB    $00
         DB    $00
L976A    ASC   'Please enter your name.'00
         DW    $0005
         DW    $0005
         DW    $00C2
         DW    $013A
         DW    $0007
         DW    $0007
         DW    $00C0
         DW    $0138
L9792    DW    $0064
         DW    $000A
         DW    $0082
         DW    $0136
L979A    DW    $0000
         DW    $0000
         DW    $0000
         DW    $0000
         DW    $0000
         DW    $0000
         DW    $0000

L97A8    REP   #$30
         LDA   L0EDB
         STA   L9923
         LDA   L0EDD
         STA   L9925
         LDA   L0EDF
         STA   L9927
         LDA   L0EE1
         STA   L9929
         LDA   #$0000
         STA   L0EDB
         LDA   L9923
         STA   L0EDF
         LDA   L9925
         STA   L0EE1
         JSR   L8150
         LDA   L0EDB
         BEQ   L97DF
         JMP   L9922

L97DF    LDA   #$0000
         STA   L0EDB
         JSR   L7EE0
         JSR   L7444
         JSR   LAA58
         LDA   #$0000
         STA   L0EDB
         JSR   L7682
         LDA   #L995A
         STA   L0EDB
         LDA   #^L995A
         STA   L0EDD
         LDA   #$0009
         STA   L0EDF
         JSR   L763D
         LDA   #L9962
         STA   L0EDB
         LDA   #^L9962
         STA   L0EDD
         LDA   #$000E
         STA   L0EDF
         JSR   L763D
         LDA   #L996A
         STA   L0EDB
         LDA   #^L996A
         STA   L0EDD
         LDA   #$0009
         STA   L0EDF
         JSR   L763D
         LDA   #$000D
         STA   L0EDB
         LDA   #$000E
         STA   L0EDF
         JSR   L7AFE
         LDA   #L992B
         STA   L0EDB
         LDA   #^L992B
         STA   L0EDD
         LDA   #$0028
         STA   L0EDF
         JSR   L7A4E
         LDA   L9927
         STA   L0EDB
         LDA   L9929
         STA   L0EDD
         LDA   #$0046
         STA   L0EDF
         JSR   L7A4E
         LDA   #$0007
         STA   L0EDB
         LDA   #$0009
         STA   L0EDF
         JSR   L7AFE
         LDA   #$009B
         STA   L0EDB
         LDA   #$00AF
         STA   L0EDF
         JSR   L7998
         LDA   #L9939
         STA   L0EDB
         LDA   #^L9939
         STA   L0EDD
         JSR   L79D1
         LDA   #$0000
         STA   L0EDB
         LDA   #L0EA7
         STA   L0EDF
         LDA   #^L0EA7
         STA   L0EE1
         JSR   L76CD
         JSR   L7678
L98B4    LDA   #$0000
         STA   L0EDB
         LDA   #L996A
         STA   L0EDF
         LDA   #^L996A
         STA   L0EE1
         LDA   #$0001
         STA   L0EE3
         JSR   L8326
         LDA   L0EDB
         BEQ   L98B4
         CMP   #$0001
         BNE   L98B4
         LDA   #$0000
         STA   L0EDB
         LDA   L9923
         STA   L0EDF
         LDA   L9925
         STA   L0EE1
         JSR   L8150
         LDA   L0EDB
         BNE   L991C
         JSR   L10BA
         LDA   #$0007
         STA   L0EDB
         LDA   #$000E
         STA   L0EDF
         JSR   L7AFE
         LDA   #L993C	; Wrong disk
         STA   L0EDB
         LDA   #^L993C
         STA   L0EDD
         LDA   #$0078
         STA   L0EDF
         JSR   L7A4E
         BRA   L98B4
L991C    JSR   L80DA
         JSR   L766E
L9922    RTS

L9923    DB    $00
         DB    $00
L9925    DB    $00
         DB    $00
L9927    DB    $00
         DB    $00
L9929    DB    $00
         DB    $00
L992B    ASC   'Please insert'00
L9939    ASC   'OK'00
L993C    ASC   'Wrong disk, please try again!'00
L995A    DW    $0005
         DW    $0005
         DW    $00C2
         DW    $013A
L9962    DW    $0007
         DW    $0007
         DW    $00C0
         DW    $0138
L996A    DW    $00A0
         DW    $0096
         DW    $00B4
         DW    $00B4
L9972    REP   #$30
         JSR   L7444
         LDA   #L8C04
         STA   L0EDB
         LDA   #^L8C04
         STA   L0EDD
         LDA   #L8C22
         STA   L0EDF
         LDA   #^L8C22
         STA   L0EE1
         LDA   #L8C26
         STA   L0EE3
         LDA   #^L8C26
         STA   L0EE5
         LDA   #L8C2A
         STA   L0EE7
         LDA   #^L8C2A
         STA   L0EE9
         JSR   L1027
         LDA   #$0000
         STA   L0EDB
         JSR   L7EE0
         JSR   LAA58
         LDA   #$0000
         STA   L0EDB
         JSR   L7682
         LDA   #L9C05
         STA   L0EDB
         LDA   #^L9C05
         STA   L0EDD
         LDA   #$0009
         STA   L0EDF
         JSR   L763D
         LDA   #L9C0D
         STA   L0EDB
         LDA   #^L9C0D
         STA   L0EDD
         LDA   #$0000
         STA   L0EDF
         JSR   L763D
         LDA   #L9C15
         STA   L0EDB
         LDA   #^L9C15
         STA   L0EDD
         LDA   #$0007
         STA   L0EDF
         JSR   L763D
         LDA   #L9C1D
         STA   L0EDB
         LDA   #^L9C1D
         STA   L0EDD
         LDA   #$0009
         STA   L0EDF
         JSR   L763D
         LDA   #L9C25
         STA   L0EDB
         LDA   #^L9C25
         STA   L0EDD
         LDA   #$0009
         STA   L0EDF
         JSR   L763D
         LDA   #L9C2D
         STA   L0EDB
         LDA   #^L9C2D
         STA   L0EDD
         LDA   #$0009
         STA   L0EDF
         JSR   L763D
         LDA   #$000D
         STA   L0EDB
         LDA   #$000E
         STA   L0EDF
         JSR   L7AFE
         LDA   #L9BBD
         STA   L0EDB
         LDA   #^L9BBD
         STA   L0EDD
         LDA   #$0028
         STA   L0EDF
         JSR   L7A4E
         LDA   #L9BCB
         STA   L0EDB
         LDA   #^L9BCB
         STA   L0EDD
         LDA   #$003C
         STA   L0EDF
         JSR   L7A4E
         LDA   #$006E
         STA   L0EDB
         LDA   #$0060
         STA   L0EDF
         JSR   L7998
         LDA   #L9BD9
         STA   L0EDB
         LDA   #^L9BD9
         STA   L0EDD
         JSR   L79D1
         LDA   #$006E
         STA   L0EDB
         LDA   #$0076
         STA   L0EDF
         JSR   L7998
         LDA   #L9BE8
         STA   L0EDB
         LDA   #^L9BE8
         STA   L0EDD
         JSR   L79D1
         LDA   #$006E
         STA   L0EDB
         LDA   #$008C
         STA   L0EDF
         JSR   L7998
         LDA   #L9BFD
         STA   L0EDB
         LDA   #^L9BFD
         STA   L0EDD
         JSR   L79D1
         LDA   #$0007
         STA   L0EDB
         LDA   #$0009
         STA   L0EDF
         JSR   L7AFE
         LDA   #$009B
         STA   L0EDB
         LDA   #$00AF
         STA   L0EDF
         JSR   L7998
         LDA   #L9C02
         STA   L0EDB
         LDA   #^L9C02
         STA   L0EDD
         JSR   L79D1
         LDA   #$0000
         STA   L0EDB
         LDA   #L0EA7
         STA   L0EDF
         LDA   #^L0EA7
         STA   L0EE1
         JSR   L76CD
         LDA   #$0001
         STA   L9BBB
         LDA   L8C22
         STA   L0EDB
         LDA   L8C24
         STA   L0EDD
         LDA   L8C26
         STA   L0EDF
         LDA   L8C28
         STA   L0EE1
         LDA   L8C2A
         STA   L0EE3
         JSR   L1043
         JSR   L7678
L9B3C    JSR   L74D0
         CMP   #$001B
         BNE   L9B4A
         STA   L9BBB
         JMP   L9B97

L9B4A    LDA   L0EDB
         BEQ   L9B3C
         JSR   L7468
         LDA   #L9C15
         STA   L0EE3
         LDA   #^L9C15
         STA   L0EE5
         LDA   #$0004
         STA   L0EE7
         JSR   L7BD2
         LDA   L0EEB
         BEQ   L9B3C
         CMP   #$0004
         BEQ   L9B97
         CMP   L9BBB
         BEQ   L9B3C
         STA   L9BBB
         LDA   L9BBB
         STA   L0EDB
         LDA   #$0003
         STA   L0EDF
         LDA   #L9C15
         STA   L0EE3
         LDA   #^L9C15
         STA   L0EE5
         JSR   L83DD
         JMP   L9B3C

L9B97    LDA   L9BBB
         CMP   #$0003
         BNE   L9BA5
         LDA   #$001B
         STA   L9BBB
L9BA5    LDA   L8C22
         STA   L0EDB
         LDA   L8C24
         STA   L0EDD
         JSR   L1038
         JSR   L766E
         LDA   L9BBB
         RTS

L9BBB    DB    $00
         DB    $00
L9BBD    ASC   'Please select'00
L9BCB    ASC   'the activity.'00
L9BD9    ASC   'Read the story'00
L9BE8    ASC   'Answer the questions'00
L9BFD    ASC   'Exit'00
L9C02    ASC   'OK'00
L9C05    DW    $0005
         DW    $0005
         DW    $00C2
         DW    $013A
L9C0D    DW    $0007
         DW    $0007
         DW    $00C0
         DW    $0138
L9C15    DW    $0054
         DW    $005A
         DW    $0062
         DW    $0068
L9C1D    DW    $006A
         DW    $005A
         DW    $0078
         DW    $0068
L9C25    DW    $0080
         DW    $005A
         DW    $008E
         DW    $0068
L9C2D    DW    $00A0
         DW    $0096
         DW    $00B4
         DW    $00B4
L9C35    REP   #$30
         LDA   #$0000
         STA   L0EDB
         JSR   L7EE0
         JSR   L7444
         JSR   LAA58
         LDA   #$0000
         STA   L0EDB
         JSR   L7682
         LDA   #L9E6E
         STA   L0EDB
         LDA   #^L9E6E
         STA   L0EDD
         LDA   #$0009
         STA   L0EDF
         JSR   L763D
         LDA   #L9E76
         STA   L0EDB
         LDA   #^L9E76
         STA   L0EDD
         LDA   #$0000
         STA   L0EDF
         JSR   L763D
         LDA   #L9E7E
         STA   L0EDB
         LDA   #^L9E7E
         STA   L0EDD
         LDA   #$0007
         STA   L0EDF
         JSR   L763D
         LDA   #L9E86
         STA   L0EDB
         LDA   #^L9E86
         STA   L0EDD
         LDA   #$0009
         STA   L0EDF
         JSR   L763D
         LDA   #L9E8E
         STA   L0EDB
         LDA   #^L9E8E
         STA   L0EDD
         LDA   #$0009
         STA   L0EDF
         JSR   L763D
         LDA   #L9E96
         STA   L0EDB
         LDA   #^L9E96
         STA   L0EDD
         LDA   #$0009
         STA   L0EDF
         JSR   L763D
         LDA   #$000D
         STA   L0EDB
         JSR   L7A32
         LDA   #L9E22
         STA   L0EDB
         LDA   #^L9E22
         STA   L0EDD
         LDA   #$0028
         STA   L0EDF
         JSR   L7A4E
         LDA   #L9E34
         STA   L0EDB
         LDA   #^L9E34
         STA   L0EDD
         LDA   #$003C
         STA   L0EDF
         JSR   L7A4E
         LDA   #$0068
         STA   L0EDB
         LDA   #$0060
         STA   L0EDF
         JSR   L7998
         LDA   #L9E43
         STA   L0EDB
         LDA   #^L9E43
         STA   L0EDD
         JSR   L79D1
         LDA   #$0068
         STA   L0EDB
         LDA   #$0076
         STA   L0EDF
         JSR   L7998
         LDA   #L9E52
         STA   L0EDB
         LDA   #^L9E52
         STA   L0EDD
         JSR   L79D1
         LDA   #$0068
         STA   L0EDB
         LDA   #$008C
         STA   L0EDF
         JSR   L7998
         LDA   #L9E66
         STA   L0EDB
         LDA   #^L9E66
         STA   L0EDD
         JSR   L79D1
         LDA   #$0007
         STA   L0EDB
         JSR   L7A32
         LDA   #$009B
         STA   L0EDB
         LDA   #$00AF
         STA   L0EDF
         JSR   L7998
         LDA   #L9E6B
         STA   L0EDB
         LDA   #^L9E6B
         STA   L0EDD
         JSR   L79D1
         LDA   #$0000
         STA   L0EDB
         LDA   #L0EA7
         STA   L0EDF
         LDA   #^L0EA7
         STA   L0EE1
         JSR   L76CD
         LDA   #$0001
         STA   L9E20
         LDA   L8CC0
         STA   L0EDB
         LDA   L8CC2
         STA   L0EDD
         LDA   L8CC4
         STA   L0EDF
         LDA   L8CC6
         STA   L0EE1
         LDA   L8CC8
         STA   L0EE3
         JSR   L1043
         JSR   L7678
L9DC0    LDA   #$0000
         STA   L0EDB
         LDA   #L9E7E
         STA   L0EDF
         LDA   #^L9E7E
         STA   L0EE1
         LDA   #$0004
         STA   L0EE3
         JSR   L8326
         LDA   L0EDB
         BEQ   L9DC0
         CMP   #$0004
         BEQ   L9E0B
         CMP   L9E20
         BEQ   L9DC0
         STA   L9E20
         LDA   L9E20
         STA   L0EDB
         LDA   #$0003
         STA   L0EDF
         LDA   #L9E7E
         STA   L0EE3
         LDA   #^L9E7E
         STA   L0EE5
         JSR   L83DD
         JMP   L9DC0

L9E0B    LDA   L9E20
         CMP   #$0003
         BNE   L9E19
         LDA   #$001B
         STA   L9E20
L9E19    JSR   L766E
         LDA   L9E20
         RTS

L9E20    DB    $00
         DB    $00
L9E22    ASC   'Please select the'00
L9E34    ASC   'question type.'00
L9E43    ASC   'Reading Skills'00
L9E52    ASC   'Vocabulary Building'00
L9E66    ASC   'Exit'00
L9E6B    ASC   'OK'00
L9E6E    DW    $0005
         DW    $0005
         DW    $00C2
         DW    $013A
L9E76    DW    $0007
         DW    $0007
         DW    $00C0
         DW    $0138
L9E7E    DW    $0054
         DW    $0054
         DW    $0062
         DW    $0062
L9E86    DW    $006A
         DW    $0054
         DW    $0078
         DW    $0062
L9E8E    DW    $0080
         DW    $0054
         DW    $008E
         DW    $0062
L9E96    DW    $00A0
         DW    $0096
         DW    $00B4
         DW    $00B4
L9E9E    REP   #$30
         LDA   #L8BDC
         STA   L0EDB
         LDA   #^L8BDC
         STA   L0EDD
         LDA   #L8BFA
         STA   L0EDF
         LDA   #^L8BFA
         STA   L0EE1
         LDA   #L8BFE
         STA   L0EE3
         LDA   #^L8BFE
         STA   L0EE5
         LDA   #L8C02
         STA   L0EE7
         LDA   #^L8C02
         STA   L0EE9
         JSR   L1027
         LDA   #$0000
         STA   L0EDB
         JSR   L7EE0
         JSR   L7444
         JSR   LAA58
         LDA   #$0000
         STA   L0EDB
         JSR   L7682
         LDA   #LA10D
         STA   L0EDB
         LDA   #^LA10D
         STA   L0EDD
         LDA   #$0009
         STA   L0EDF
         JSR   L763D
         LDA   #LA115
         STA   L0EDB
         LDA   #^LA115
         STA   L0EDD
         LDA   #$0000
         STA   L0EDF
         JSR   L763D
         LDA   #LA11D
         STA   L0EDB
         LDA   #^LA11D
         STA   L0EDD
         LDA   #$0007
         STA   L0EDF
         JSR   L763D
         LDA   #LA125
         STA   L0EDB
         LDA   #^LA125
         STA   L0EDD
         LDA   #$0009
         STA   L0EDF
         JSR   L763D
         LDA   #LA12D
         STA   L0EDB
         LDA   #^LA12D
         STA   L0EDD
         LDA   #$0009
         STA   L0EDF
         JSR   L763D
         LDA   #LA135
         STA   L0EDB
         LDA   #^LA135
         STA   L0EDD
         LDA   #$0009
         STA   L0EDF
         JSR   L763D
         LDA   #$000D
         STA   L0EDB
         JSR   L7A32
         LDA   #LA0CD
         STA   L0EDB
         LDA   #^LA0CD
         STA   L0EDD
         LDA   #$0028
         STA   L0EDF
         JSR   L7A4E
         LDA   #LA0DF
         STA   L0EDB
         LDA   #^LA0DF
         STA   L0EDD
         LDA   #$003C
         STA   L0EDF
         JSR   L7A4E
         LDA   #$0068
         STA   L0EDB
         LDA   #$0060
         STA   L0EDF
         JSR   L7998
         LDA   #LA0E9
         STA   L0EDB
         LDA   #^LA0E9
         STA   L0EDD
         JSR   L79D1
         LDA   #$0068
         STA   L0EDB
         LDA   #$0076
         STA   L0EDF
         JSR   L7998
         LDA   #LA0F8
         STA   L0EDB
         LDA   #^LA0F8
         STA   L0EDD
         JSR   L79D1
         LDA   #$0068
         STA   L0EDB
         LDA   #$008C
         STA   L0EDF
         JSR   L7998
         LDA   #LA105
         STA   L0EDB
         LDA   #^LA105
         STA   L0EDD
         JSR   L79D1
         LDA   #$0007
         STA   L0EDB
         JSR   L7A32
         LDA   #$009B
         STA   L0EDB
         LDA   #$00AF
         STA   L0EDF
         JSR   L7998
         LDA   #LA10A
         STA   L0EDB
         LDA   #^LA10A
         STA   L0EDD
         JSR   L79D1
         LDA   #$0000
         STA   L0EDB
         LDA   #L0EA7
         STA   L0EDF
         LDA   #^L0EA7
         STA   L0EE1
         JSR   L76CD
         LDA   #$0001
         STA   LA0CB
         LDA   L8BFA
         STA   L0EDB
         LDA   L8BFC
         STA   L0EDD
         LDA   L8BFE
         STA   L0EDF
         LDA   L8C00
         STA   L0EE1
         LDA   L8C02
         STA   L0EE3
         JSR   L1043
         JSR   L7678
LA05C    LDA   #$0000
         STA   L0EDB
         LDA   #LA11D
         STA   L0EDF
         LDA   #^LA11D
         STA   L0EE1
         LDA   #$0004
         STA   L0EE3
         JSR   L8326
         LDA   L0EDB
         BEQ   LA05C
         CMP   #$0004
         BEQ   LA0A7
         CMP   LA0CB
         BEQ   LA05C
         STA   LA0CB
         LDA   LA0CB
         STA   L0EDB
         LDA   #$0003
         STA   L0EDF
         LDA   #LA11D
         STA   L0EE3
         LDA   #^LA11D
         STA   L0EE5
         JSR   L83DD
         JMP   LA05C

LA0A7    LDA   LA0CB
         CMP   #$0003
         BNE   LA0B5
         LDA   #$001B
         STA   LA0CB
LA0B5    LDA   L8BFA
         STA   L0EDB
         LDA   L8BFC
         STA   L0EDD
         JSR   L1038
         JSR   L766E
         LDA   LA0CB
         RTS

LA0CB    DB    $00
         DB    $00
LA0CD    ASC   'Please select the'00
LA0DF    ASC   'activity.'00
LA0E9    ASC   'Look and learn'00
LA0F8    ASC   'Colony names'00
LA105    ASC   'Exit'00
LA10A    ASC   'OK'00
LA10D    DW    $0005
         DW    $0005
         DW    $00C2
         DW    $013A
LA115    DW    $0007
         DW    $0007
         DW    $00C0
         DW    $0138
LA11D    DW    $0054
         DW    $0054
         DW    $0062
         DW    $0062
LA125    DW    $006A
         DW    $0054
         DW    $0078
         DW    $0062
LA12D    DW    $0080
         DW    $0054
         DW    $008E
         DW    $0062
LA135    DW    $00A0
         DW    $0096
         DW    $00B4
         DW    $00B4
LA13D    REP   #$30
         LDA   #L8BDC
         STA   L0EDB
         LDA   #^L8BDC
         STA   L0EDD
         LDA   #L8BFA
         STA   L0EDF
         LDA   #^L8BFA
         STA   L0EE1
         LDA   #L8BFE
         STA   L0EE3
         LDA   #^L8BFE
         STA   L0EE5
         LDA   #L8C02
         STA   L0EE7
         LDA   #^L8C02
         STA   L0EE9
         JSR   L1027
         LDA   #$0000
         STA   L0EDB
         JSR   L7EE0
         JSR   L7444
         JSR   LAA58
         LDA   #$0000
         STA   L0EDB
         JSR   L7682
         LDA   #LA3AB
         STA   L0EDB
         LDA   #^LA3AB
         STA   L0EDD
         LDA   #$0009
         STA   L0EDF
         JSR   L763D
         LDA   #LA3B3
         STA   L0EDB
         LDA   #^LA3B3
         STA   L0EDD
         LDA   #$0000
         STA   L0EDF
         JSR   L763D
         LDA   #LA3BB
         STA   L0EDB
         LDA   #^LA3BB
         STA   L0EDD
         LDA   #$0007
         STA   L0EDF
         JSR   L763D
         LDA   #LA3C3
         STA   L0EDB
         LDA   #^LA3C3
         STA   L0EDD
         LDA   #$0009
         STA   L0EDF
         JSR   L763D
         LDA   #LA3CB
         STA   L0EDB
         LDA   #^LA3CB
         STA   L0EDD
         LDA   #$0009
         STA   L0EDF
         JSR   L763D
         LDA   #LA3D3
         STA   L0EDB
         LDA   #^LA3D3
         STA   L0EDD
         LDA   #$0009
         STA   L0EDF
         JSR   L763D
         LDA   #$000D
         STA   L0EDB
         JSR   L7A32
         LDA   #LA36C
         STA   L0EDB
         LDA   #^LA36C
         STA   L0EDD
         LDA   #$0028
         STA   L0EDF
         JSR   L7A4E
         LDA   #LA37E
         STA   L0EDB
         LDA   #^LA37E
         STA   L0EDD
         LDA   #$003C
         STA   L0EDF
         JSR   L7A4E
         LDA   #$0068
         STA   L0EDB
         LDA   #$0060
         STA   L0EDF
         JSR   L7998
         LDA   #LA388
         STA   L0EDB
         LDA   #^LA388
         STA   L0EDD
         JSR   L79D1
         LDA   #$0068
         STA   L0EDB
         LDA   #$0076
         STA   L0EDF
         JSR   L7998
         LDA   #LA397
         STA   L0EDB
         LDA   #^LA397
         STA   L0EDD
         JSR   L79D1
         LDA   #$0068
         STA   L0EDB
         LDA   #$008C
         STA   L0EDF
         JSR   L7998
         LDA   #LA3A3
         STA   L0EDB
         LDA   #^LA3A3
         STA   L0EDD
         JSR   L79D1
         LDA   #$0007
         STA   L0EDB
         JSR   L7A32
         LDA   #$009B
         STA   L0EDB
         LDA   #$00AF
         STA   L0EDF
         JSR   L7998
         LDA   #LA3A8
         STA   L0EDB
         LDA   #^LA3A8
         STA   L0EDD
         JSR   L79D1
         LDA   #$0000
         STA   L0EDB
         LDA   #L0EA7
         STA   L0EDF
         LDA   #^L0EA7
         STA   L0EE1
         JSR   L76CD
         LDA   #$0001
         STA   LA36A
         LDA   L8BFA
         STA   L0EDB
         LDA   L8BFC
         STA   L0EDD
         LDA   L8BFE
         STA   L0EDF
         LDA   L8C00
         STA   L0EE1
         LDA   L8C02
         STA   L0EE3
         JSR   L1043
         JSR   L7678
LA2FB    LDA   #$0000
         STA   L0EDB
         LDA   #LA3BB
         STA   L0EDF
         LDA   #^LA3BB
         STA   L0EE1
         LDA   #$0004
         STA   L0EE3
         JSR   L8326
         LDA   L0EDB
         BEQ   LA2FB
         CMP   #$0004
         BEQ   LA346
         CMP   LA36A
         BEQ   LA2FB
         STA   LA36A
         LDA   LA36A
         STA   L0EDB
         LDA   #$0003
         STA   L0EDF
         LDA   #LA3BB
         STA   L0EE3
         LDA   #^LA3BB
         STA   L0EE5
         JSR   L83DD
         JMP   LA2FB

LA346    LDA   LA36A
         CMP   #$0003
         BNE   LA354
         LDA   #$001B
         STA   LA36A
LA354    LDA   L8BFA
         STA   L0EDB
         LDA   L8BFC
         STA   L0EDD
         JSR   L1038
         JSR   L766E
         LDA   LA36A
         RTS

LA36A    DB    $00
         DB    $00
LA36C    ASC   'Please select the'00
LA37E    ASC   'activity.'00
LA388    ASC   'Look and learn'00
LA397    ASC   'State names'00
LA3A3    ASC   'Exit'00
LA3A8    ASC   'OK'00
LA3AB    DW    $0005
         DW    $0005
         DW    $00C2
         DW    $013A
LA3B3    DW    $0007
         DW    $0007
         DW    $00C0
         DW    $0138
LA3BB    DW    $0054
         DW    $0054
         DW    $0062
         DW    $0062
LA3C3    DW    $006A
         DW    $0054
         DW    $0078
         DW    $0062
LA3CB    DW    $0080
         DW    $0054
         DW    $008E
         DW    $0062
LA3D3    DW    $00A0
         DW    $0096
         DW    $00B4
         DW    $00B4
LA3DB    REP   #$30
         JSR   L7444
         JSR   LAA58
         LDA   #L8BDC
         STA   L0EDB
         LDA   #^L8BDC
         STA   L0EDD
         LDA   #L8BFA
         STA   L0EDF
         LDA   #^L8BFA
         STA   L0EE1
         LDA   #L8BFE
         STA   L0EE3
         LDA   #^L8BFE
         STA   L0EE5
         LDA   #L8C02
         STA   L0EE7
         LDA   #^L8C02
         STA   L0EE9
         JSR   L1027
         LDA   #$0000
         STA   L0EDB
         JSR   L7EE0
         JSR   LAA58
         LDA   #$0000
         STA   L0EDB
         JSR   L7682
         LDA   #LA717
         STA   L0EDB
         LDA   #^LA717
         STA   L0EDD
         LDA   #$0009
         STA   L0EDF
         JSR   L763D
         LDA   #LA71F
         STA   L0EDB
         LDA   #^LA71F
         STA   L0EDD
         LDA   #$0000
         STA   L0EDF
         JSR   L763D
         LDA   #LA727
         STA   L0EDB
         LDA   #^LA727
         STA   L0EDD
         LDA   #$0007
         STA   L0EDF
         JSR   L763D
         LDA   #LA72F
         STA   L0EDB
         LDA   #^LA72F
         STA   L0EDD
         LDA   #$0009
         STA   L0EDF
         JSR   L763D
         LDA   #LA737
         STA   L0EDB
         LDA   #^LA737
         STA   L0EDD
         LDA   #$0009
         STA   L0EDF
         JSR   L763D
         LDA   #LA73F
         STA   L0EDB
         LDA   #^LA73F
         STA   L0EDD
         LDA   #$0009
         STA   L0EDF
         JSR   L763D
         LDA   #LA747
         STA   L0EDB
         LDA   #^LA747
         STA   L0EDD
         LDA   #$0009
         STA   L0EDF
         JSR   L763D
         LDA   #LA74F
         STA   L0EDB
         LDA   #^LA74F
         STA   L0EDD
         LDA   #$0009
         STA   L0EDF
         JSR   L763D
         LDA   #LA757
         STA   L0EDB
         LDA   #^LA757
         STA   L0EDD
         LDA   #$0009
         STA   L0EDF
         JSR   L763D
         LDA   #$000D
         STA   L0EDB
         JSR   L7A32
         LDA   #LA6A9
         STA   L0EDB
         LDA   #^LA6A9
         STA   L0EDD
         LDA   #$0016
         STA   L0EDF
         JSR   L7A4E
         LDA   #LA6BB
         STA   L0EDB
         LDA   #^LA6BB
         STA   L0EDD
         LDA   #$0026
         STA   L0EDF
         JSR   L7A4E
         LDA   #$005A
         STA   L0EDB
         LDA   #$003A
         STA   L0EDF
         JSR   L7998
         LDA   #LA6C5
         STA   L0EDB
         LDA   #^LA6C5
         STA   L0EDD
         JSR   L79D1
         LDA   #$005A
         STA   L0EDB
         LDA   #$0050
         STA   L0EDF
         JSR   L7998
         LDA   #LA6D4
         STA   L0EDB
         LDA   #^LA6D4
         STA   L0EDD
         JSR   L79D1
         LDA   #$005A
         STA   L0EDB
         LDA   #$0066
         STA   L0EDF
         JSR   L7998
         LDA   #LA6E0
         STA   L0EDB
         LDA   #^LA6E0
         STA   L0EDD
         JSR   L79D1
         LDA   #$005A
         STA   L0EDB
         LDA   #$007C
         STA   L0EDF
         JSR   L7998
         LDA   #LA6ED
         STA   L0EDB
         LDA   #^LA6ED
         STA   L0EDD
         JSR   L79D1
         LDA   #$005A
         STA   L0EDB
         LDA   #$0092
         STA   L0EDF
         JSR   L7998
         LDA   #LA6FC
         STA   L0EDB
         LDA   #^LA6FC
         STA   L0EDD
         JSR   L79D1
         LDA   #$005A
         STA   L0EDB
         LDA   #$00A8
         STA   L0EDF
         JSR   L7998
         LDA   #LA70F
         STA   L0EDB
         LDA   #^LA70F
         STA   L0EDD
         JSR   L79D1
         LDA   #$0007
         STA   L0EDB
         JSR   L7A32
         LDA   #$009B
         STA   L0EDB
         LDA   #$00B9
         STA   L0EDF
         JSR   L7998
         LDA   #LA714
         STA   L0EDB
         LDA   #^LA714
         STA   L0EDD
         JSR   L79D1
         LDA   #$0000
         STA   L0EDB
         LDA   #L0EA7
         STA   L0EDF
         LDA   #^L0EA7
         STA   L0EE1
         JSR   L76CD
         LDA   #$0001
         STA   LA6A7
         LDA   L8BFA
         STA   L0EDB
         LDA   L8BFC
         STA   L0EDD
         LDA   L8BFE
         STA   L0EDF
         LDA   L8C00
         STA   L0EE1
         LDA   L8C02
         STA   L0EE3
         JSR   L1043
         JSR   L7678
LA635    LDA   #$0000
         STA   L0EDB
         LDA   #LA727
         STA   L0EDF
         LDA   #^LA727
         STA   L0EE1
         LDA   #$0007
         STA   L0EE3
         JSR   L8326
         LDA   L0EDB
         BEQ   LA635
         CMP   #$0007
         BEQ   LA680
         CMP   LA6A7
         BEQ   LA635
         STA   LA6A7
         LDA   LA6A7
         STA   L0EDB
         LDA   #$0006
         STA   L0EDF
         LDA   #LA727
         STA   L0EE3
         LDA   #^LA727
         STA   L0EE5
         JSR   L83DD
         JMP   LA635

LA680    LDA   LA6A7
         CMP   #$0006
         BNE   LA68E
         LDA   #$001B
         STA   LA6A7
LA68E    LDA   L8BFA
         STA   L0EDB
         LDA   L8BFC
         STA   L0EDD
         JSR   L1038
         JSR   L80DA
         JSR   L766E
         LDA   LA6A7
         RTS

LA6A7    DB    $00
         DB    $00
LA6A9    ASC   'Please select the'00
LA6BB    ASC   'activity.'00
LA6C5    ASC   'Look and learn'00
LA6D4    ASC   'State names'00
LA6E0    ASC   'Postal codes'00
LA6ED    ASC   'State capitals'00
LA6FC    ASC   'Compass directions'00
LA70F    ASC   'Exit'00
LA714    ASC   'OK'00
LA717    DW    $0005
         DW    $0005
         DW    $00C2
         DW    $013A
LA71F    DW    $0007
         DW    $0007
         DW    $00C0
         DW    $0138
LA727    DW    $002E
         DW    $0046
         DW    $003C
         DW    $0054
LA72F    DW    $0044
         DW    $0046
         DW    $0052
         DW    $0054
LA737    DW    $005A
         DW    $0046
         DW    $0068
         DW    $0054
LA73F    DW    $0070
         DW    $0046
         DW    $007E
         DW    $0054
LA747    DW    $0086
         DW    $0046
         DW    $0094
         DW    $0054
LA74F    DW    $009C
         DW    $0046
         DW    $00AA
         DW    $0054
LA757    DW    $00AA
         DW    $0096
         DW    $00BE
         DW    $00B4
LA75F    REP   #$30
         JSR   L7444
         JSR   LAA58
         LDA   #L8CCA
         STA   L0EDB
         LDA   #^L8CCA
         STA   L0EDD
         LDA   #L8CE8
         STA   L0EDF
         LDA   #^L8CE8
         STA   L0EE1
         LDA   #L8CEC
         STA   L0EE3
         LDA   #^L8CEC
         STA   L0EE5
         LDA   #L8CF0
         STA   L0EE7
         LDA   #^L8CF0
         STA   L0EE9
         JSR   L1027
         LDA   #$0000
         STA   L0EDB
         JSR   L7EE0
         JSR   LAA58
         LDA   #$0000
         STA   L0EDB
         JSR   L7682
         LDA   #LAA20
         STA   L0EDB
         LDA   #^LAA20
         STA   L0EDD
         LDA   #$0009
         STA   L0EDF
         JSR   L763D
         LDA   #LAA28
         STA   L0EDB
         LDA   #^LAA28
         STA   L0EDD
         LDA   #$0000
         STA   L0EDF
         JSR   L763D
         LDA   #LAA30
         STA   L0EDB
         LDA   #^LAA30
         STA   L0EDD
         LDA   #$0007
         STA   L0EDF
         JSR   L763D
         LDA   #LAA38
         STA   L0EDB
         LDA   #^LAA38
         STA   L0EDD
         LDA   #$0009
         STA   L0EDF
         JSR   L763D
         LDA   #LAA40
         STA   L0EDB
         LDA   #^LAA40
         STA   L0EDD
         LDA   #$0009
         STA   L0EDF
         JSR   L763D
         LDA   #LAA48
         STA   L0EDB
         LDA   #^LAA48
         STA   L0EDD
         LDA   #$0009
         STA   L0EDF
         JSR   L763D
         LDA   #LAA50
         STA   L0EDB
         LDA   #^LAA50
         STA   L0EDD
         LDA   #$0009
         STA   L0EDF
         JSR   L763D
         LDA   #$000D
         STA   L0EDB
         JSR   L7A32
         LDA   #LA9C7
         STA   L0EDB
         LDA   #^LA9C7
         STA   L0EDD
         LDA   #$0019
         STA   L0EDF
         JSR   L7A4E
         LDA   #LA9D5
         STA   L0EDB
         LDA   #^LA9D5
         STA   L0EDD
         LDA   #$002D
         STA   L0EDF
         JSR   L7A4E
         LDA   #$005A
         STA   L0EDB
         LDA   #$0050
         STA   L0EDF
         JSR   L7998
         LDA   #LA9E2
         STA   L0EDB
         LDA   #^LA9E2
         STA   L0EDD
         JSR   L79D1
         LDA   #$005A
         STA   L0EDB
         LDA   #$0066
         STA   L0EDF
         JSR   L7998
         LDA   #LA9F8
         STA   L0EDB
         LDA   #^LA9F8
         STA   L0EDD
         JSR   L79D1
         LDA   #$005A
         STA   L0EDB
         LDA   #$007C
         STA   L0EDF
         JSR   L7998
         LDA   #LAA06
         STA   L0EDB
         LDA   #^LAA06
         STA   L0EDD
         JSR   L79D1
         LDA   #$005A
         STA   L0EDB
         LDA   #$0092
         STA   L0EDF
         JSR   L7998
         LDA   #LAA18
         STA   L0EDB
         LDA   #^LAA18
         STA   L0EDD
         JSR   L79D1
         LDA   #$0007
         STA   L0EDB
         JSR   L7A32
         LDA   #$009B
         STA   L0EDB
         LDA   #$00B9
         STA   L0EDF
         JSR   L7998
         LDA   #LAA1D
         STA   L0EDB
         LDA   #^LAA1D
         STA   L0EDD
         JSR   L79D1
         LDA   #$0000
         STA   L0EDB
         LDA   #L0EA7
         STA   L0EDF
         LDA   #^L0EA7
         STA   L0EE1
         JSR   L76CD
         LDA   #$0001
         STA   LA9C5
         LDA   L8CE8
         STA   L0EDB
         LDA   L8CEA
         STA   L0EDD
         LDA   L8CEC
         STA   L0EDF
         LDA   L8CEE
         STA   L0EE1
         LDA   L8CF0
         STA   L0EE3
         JSR   L1043
         JSR   L7678
LA953    LDA   #$0000
         STA   L0EDB
         LDA   #LAA30
         STA   L0EDF
         LDA   #^LAA30
         STA   L0EE1
         LDA   #$0005
         STA   L0EE3
         JSR   L8326
         LDA   L0EDB
         BEQ   LA953
         CMP   #$0005
         BEQ   LA99E
         CMP   LA9C5
         BEQ   LA953
         STA   LA9C5
         LDA   LA9C5
         STA   L0EDB
         LDA   #$0004
         STA   L0EDF
         LDA   #LAA30
         STA   L0EE3
         LDA   #^LAA30
         STA   L0EE5
         JSR   L83DD
         JMP   LA953

LA99E    LDA   LA9C5
         CMP   #$0004
         BNE   LA9AC
         LDA   #$001B
         STA   LA9C5
LA9AC    LDA   L8CE8
         STA   L0EDB
         LDA   L8CEA
         STA   L0EDD
         JSR   L1038
         JSR   L80DA
         JSR   L766E
         LDA   LA9C5
         RTS

LA9C5    DB    $00
         DB    $00
LA9C7    ASC   'Please select'00
LA9D5    ASC   'your option.'00
LA9E2    ASC   'The Thirteen Colonies'00
LA9F8    ASC   'The Civil War'00
LAA06    ASC   'The United States'00
LAA18    ASC   'Exit'00
LAA1D    ASC   'OK'00
LAA20    DW    $0005
         DW    $0005
         DW    $00C2
         DW    $013A
LAA28    DW    $0007
         DW    $0007
         DW    $00C0
         DW    $0138
LAA30    DW    $0044
         DW    $0046
         DW    $0052
         DW    $0054
LAA38    DW    $005A
         DW    $0046
         DW    $0068
         DW    $0054
LAA40    DW    $0070
         DW    $0046
         DW    $007E
         DW    $0054
LAA48    DW    $0086
         DW    $0046
         DW    $0094
         DW    $0054
LAA50    DW    $00AA
         DW    $0096
         DW    $00BE
         DW    $00B4
LAA58    REP   #$30
         LDA   #LAA94
         STA   L0EDB
         LDA   #^LAA94
         STA   L0EDD
         LDA   #$0001
         STA   L0EDF
         LDA   #$000E
         STA   L0EE3
         LDA   #LAA9B
         STA   L0EE7
         LDA   #^LAA9B
         STA   L0EE9
         JSR   L80FA
         LDA   LAA9B
         STA   L0EDB
         LDA   LAA9D
         STA   L0EDD
         STZ   L0EDF
         JSR   L80E4
         RTS

LAA94    STR   'Geneva'
LAA9B    DB    $00
         DB    $00
LAA9D    DB    $00
         DB    $00

LAA9F    REP   #$30
         JSR   L7444
         LDA   #L8BDC
         STA   L0EDB
         LDA   #^L8BDC
         STA   L0EDD
         LDA   #L8BFA
         STA   L0EDF
         LDA   #^L8BFA
         STA   L0EE1
         LDA   #L8BFE
         STA   L0EE3
         LDA   #^L8BFE
         STA   L0EE5
         LDA   #L8C02
         STA   L0EE7
         LDA   #^L8C02
         STA   L0EE9
         JSR   L1027
         LDA   #$0000
         STA   L0EDB
         JSR   L7EE0
         JSR   LAA58
         LDA   #$0000
         STA   L0EDB
         JSR   L7682
         LDA   #LACEB
         STA   L0EDB
         LDA   #^LACEB
         STA   L0EDD
         LDA   #$0009
         STA   L0EDF
         JSR   L763D
         LDA   #LACF3
         STA   L0EDB
         LDA   #^LACF3
         STA   L0EDD
         LDA   #$0000
         STA   L0EDF
         JSR   L763D
         LDA   #LACFB
         STA   L0EDB
         LDA   #^LACFB
         STA   L0EDD
         LDA   #$0007
         STA   L0EDF
         JSR   L763D
         LDA   #LAD03
         STA   L0EDB
         LDA   #^LAD03
         STA   L0EDD
         LDA   #$0009
         STA   L0EDF
         JSR   L763D
         LDA   #LAD0B
         STA   L0EDB
         LDA   #^LAD0B
         STA   L0EDD
         LDA   #$0009
         STA   L0EDF
         JSR   L763D
         LDA   #$000D
         STA   L0EDB
         LDA   #$000E
         STA   L0EDF
         JSR   L7AFE
         LDA   #LACA9	; Please select
         STA   L0EDB
         LDA   #^LACA9
         STA   L0EDD
         LDA   #$0028
         STA   L0EDF
         JSR   L7A4E
         LDA   #LACB7	; the activity
         STA   L0EDB
         LDA   #^LACB7
         STA   L0EDD
         LDA   #$003C
         STA   L0EDF
         JSR   L7A4E
         LDA   #$006E
         STA   L0EDB
         LDA   #$0060
         STA   L0EDF
         JSR   L7998
         LDA   #LACC5	; History Lessons
         STA   L0EDB
         LDA   #^LACC5
         STA   L0EDD
         JSR   L79D1
         LDA   #$006E
         STA   L0EDB
         LDA   #$0076
         STA   L0EDF
         JSR   L7998
         LDA   #LACD5	; Map Reading Skills
         STA   L0EDB
         LDA   #^LACD5
         STA   L0EDD
         JSR   L79D1
         LDA   #$0007
         STA   L0EDB
         LDA   #$0009
         STA   L0EDF
         JSR   L7AFE
         LDA   #$009B
         STA   L0EDB
         LDA   #$00AF
         STA   L0EDF
         JSR   L7998
         LDA   #LACE8	; OK
         STA   L0EDB
         LDA   #^LACE8
         STA   L0EDD
         JSR   L79D1
         LDA   #$0000
         STA   L0EDB
         LDA   #L0EA7
         STA   L0EDF
         LDA   #^L0EA7
         STA   L0EE1
         JSR   L76CD
         LDA   #$0001
         STA   LACA7
         LDA   L8BFA
         STA   L0EDB
         LDA   L8BFC
         STA   L0EDD
         LDA   L8BFE
         STA   L0EDF
         LDA   L8C00
         STA   L0EE1
         LDA   L8C02
         STA   L0EE3
         JSR   L1043
         JSR   L7678
LAC36    JSR   L74D0	; escape to quit
         CMP   #$001B
         BNE   LAC44
         STA   LACA7
         JMP   LAC91

LAC44    LDA   L0EDB
         BEQ   LAC36
         JSR   L7468
         LDA   #LACFB
         STA   L0EE3
         LDA   #^LACFB
         STA   L0EE5
         LDA   #$0003
         STA   L0EE7
         JSR   L7BD2
         LDA   L0EEB
         BEQ   LAC36
         CMP   #$0003
         BEQ   LAC91
         CMP   LACA7
         BEQ   LAC36
         STA   LACA7
         LDA   LACA7
         STA   L0EDB
         LDA   #$0002
         STA   L0EDF
         LDA   #LACFB
         STA   L0EE3
         LDA   #^LACFB
         STA   L0EE5
         JSR   L83DD
         JMP   LAC36

LAC91    LDA   L8BFA
         STA   L0EDB
         LDA   L8BFC
         STA   L0EDD
         JSR   L1038
         JSR   L766E
         LDA   LACA7
         RTS

LACA7    DB    $00
         DB    $00
LACA9    ASC   'Please select'00
LACB7    ASC   'the activity.'00
LACC5    ASC   'History Lessons'00
LACD5    ASC   'Map Reading Skills'00
LACE8    ASC   'OK'00
LACEB    DW    $0005
         DW    $0005
         DW    $00C2
         DW    $013A
LACF3    DW    $0007
         DW    $0007
         DW    $00C0
         DW    $0138
LACFB    DW    $0054
         DW    $005A
         DW    $0062
         DW    $0068
LAD03    DW    $006A
         DW    $005A
         DW    $0078
         DW    $0068
LAD0B    DW    $00A0
         DW    $0096
         DW    $00B4
         DW    $00B4
LAD13    PHD
         TSC
         SEC
         SBC   #$00EF
         TCD
         ADC   #$00E6
         TCS
         LDA   $F9
         SEC
         SBC   #$0000
         BEQ   LAD3C
         BVS   LAD2B
         EOR   #$8000
LAD2B    BPL   LAD3C
         LDA   $FB
         SEC
         SBC   #$0000
         BEQ   LAD3C
         BVS   LAD3A
         EOR   #$8000
LAD3A    BMI   LAD42
LAD3C    LDA   #$0000
         BRL   LAE87
LAD42    LDA   $FB
         PHA
         LDA   $F9
         SEC
         JSL   LC030
         PLA
         STA   $EA
LAD4F    LDA   [$FD]
         SEC
         SBC   #$0000
         BEQ   LAD5E
         BVS   LAD5C
         EOR   #$8000
LAD5C    BMI   LADB7
LAD5E    PEI   $FF
         PEI   $FD
         JSL   LC658
         PLY
         PLY
         CMP   #$FFFF
         BNE   LAD8B
         LDA   $EA
         CLC
         ADC   $F9
         SEC
         SBC   #$0001
         PHA
         LDA   $F9
         CLC
         JSL   LBEC0
         PLY
         PHA
         LDA   $FB
         PLX
         STX   $EC
         SEC
         SBC   $EC
         BRL   LAE87
LAD8B    LDY   #$0004
         LDA   [$FD],Y
         TAX
         LDY   #$0002
         LDA   [$FD],Y
         PHX
         PHA
         SEC
         SBC   #$0001
         LDY   #$0002
         STA   [$FD],Y
         LDY   #$0004
         LDA   [$FD],Y
         SBC   #$0000
         LDY   #$0004
         STA   [$FD],Y
         PLA
         PLX
         LDA   [$FD]
         PHA
         INC
         STA   [$FD]
         PLA
LADB7    LDA   [$FD]
         CMP   $EA
         BEQ   LADC3
         BCC   LADC3
         LDA   $EA
         BRA   LADC5
LADC3    LDA   [$FD]
LADC5    STA   $E8
         LDA   $E8
         LDX   #$0000
         TAY
         BPL   LADD0
         DEX
LADD0    PHX
         PHA
         PEI   $E8
         LDY   #$0004
         LDA   [$FD],Y
         TAX
         LDY   #$0002
         LDA   [$FD],Y
         PHX
         PHA
         PEI   $F7
         PEI   $F5
         JSL   LBE65
         PLY
         PLY
         PLY
         PLY
         PLY
         JSL   LBCDB
         PLA
         PLX
         STX   $F7
         STA   $F5
         LDA   [$FD]
         SEC
         SBC   $E8
         STA   [$FD]
         LDA   $E8
         LDX   #$0000
         TAY
         BPL   LAE08
         DEX
LAE08    PHX
         PHA
         LDY   #$0004
         LDA   [$FD],Y
         TAX
         LDY   #$0002
         LDA   [$FD],Y
         JSL   LBCDB
         PLA
         PLX
         LDY   #$0004
         PHA
         TXA
         STA   [$FD],Y
         PLA
         LDY   #$0002
         STA   [$FD],Y
         LDY   #$0004
         LDA   [$FD],Y
         TAX
         LDY   #$0002
         LDA   [$FD],Y
         PHX
         PHA
         LDY   #$000C
         LDA   [$FD],Y
         TAX
         LDY   #$000A
         LDA   [$FD],Y
         JSL   LC025
         PLA
         PLX
         PHA
         LDA   [$FD]
         SEC
         SBC   #$0000
         BVS   LAE52
         EOR   #$8000
LAE52    BMI   LAE59
         LDA   #$0000
         BRA   LAE5B
LAE59    LDA   [$FD]
LAE5B    PLX
         STX   $EC
         SEC
         SBC   $EC
         BEQ   LAE74
         BVS   LAE68
         EOR   #$8000
LAE68    BPL   LAE74
         PEI   $FF
         PEI   $FD
         JSL   LBAC5
         PLY
         PLY
LAE74    LDA   $EA
         SEC
         SBC   $E8
         STA   $EA
         CMP   #$0000
         BNE   LAE84
         LDA   $FB
         BRA   LAE87
LAE84    BRL   LAD4F
LAE87    TAY
         TDC
         CLC
         ADC   #$00EF
         TCS
         TYA
         PLD
         RTL

LAE91    PHD
         TSC
         SEC
         SBC   #$00F1
         TCD
         ADC   #$00E6
         TCS
         LDY   #$0010
         LDA   [$F7],Y
         AND   #$FFEF
         LDY   #$0010
         STA   [$F7],Y
         LDY   #$0010
         LDA   [$F7],Y
         AND   #$0001
         TAY
         BNE   LAEB7
         BRL   LB05D
LAEB7    LDA   $FF
         SEC
         SBC   #$0002
         BVS   LAEC2
         EOR   #$8000
LAEC2    BPL   LAEC7
         BRL   LB00E
LAEC7    LDY   #$0008
         LDA   [$F7],Y
         TAX
         LDY   #$0006
         LDA   [$F7],Y
         STX   $EE
         ORA   $EE
         BNE   LAEDB
         BRL   LB00E
LAEDB    LDY   #$0010
         LDA   [$F7],Y
         AND   #$0004
         TAY
         BEQ   LAEE9
         BRL   LB00E
LAEE9    LDA   [$F7]
         STA   $EC
         LDX   $FD
         LDA   $FB
         STX   $EA
         STA   $E8
         LDA   $FF
         CMP   #$0000
         BNE   LAF32
         PEA   $0001
         PEA   $0000
         PEA   $0000
         LDY   #$0012
         LDA   [$F7],Y
         PHA
         JSL   LB0DF
         PLY
         PLY
         PLY
         PLY
         PHX
         PHA
         LDA   $EC
         LDX   #$0000
         TAY
         BPL   LAF1E
         DEX
LAF1E    JSL   LC025
         LDX   $EA
         LDA   $E8
         JSL   LBCDB
         PLA
         PLX
         STX   $EA
         STA   $E8
         BRA   LAF4B
LAF32    LDA   $EC
         LDX   #$0000
         TAY
         BPL   LAF3B
         DEX
LAF3B    PHX
         PHA
         LDX   $FD
         LDA   $FB
         JSL   LC025
         PLA
         PLX
         STX   $FD
         STA   $FB
LAF4B    LDY   #$0010
         LDA   [$F7],Y
         AND   #$0080
         TAY
         BEQ   LAF59
         BRL   LB00E
LAF59    LDA   $EC
         SEC
         SBC   #$0000
         BNE   LAF64
         BRL   LB00E
LAF64    BVS   LAF69
         EOR   #$8000
LAF69    BMI   LAF6E
         BRL   LB00E
LAF6E    LDA   $EC
         LDX   #$0000
         TAY
         BPL   LAF77
         DEX
LAF77    LDX   #$0000
         TAY
         BPL   LAF7E
         DEX
LAF7E    PHX
         PHA
         LDX   $EA
         LDA   $E8
         JSL   LC7E7
         BVS   LAF8D
         EOR   #$8000
LAF8D    BPL   LB00E
         LDY   #$0004
         LDA   [$F7],Y
         TAX
         LDY   #$0002
         LDA   [$F7],Y
         PHX
         PHA
         LDY   #$0008
         LDA   [$F7],Y
         TAX
         LDY   #$0006
         LDA   [$F7],Y
         JSL   LC025
         PLA
         PLX
         LDX   #$0000
         TAY
         BPL   LAFB4
         DEX
LAFB4    LDX   #$0000
         TAY
         BPL   LAFBB
         DEX
LAFBB    PHX
         PHA
         LDX   $EA
         LDA   $E8
         JSL   LC7E7
         BEQ   LAFCE
         BVS   LAFCC
         EOR   #$8000
LAFCC    BMI   LB00E
LAFCE    LDX   $EA
         LDA   $E8
         LDX   #$0000
         TAY
         BPL   LAFD9
         DEX
LAFD9    PHX
         PHA
         LDY   #$0004
         LDA   [$F7],Y
         TAX
         LDY   #$0002
         LDA   [$F7],Y
         JSL   LBCDB
         PLA
         PLX
         LDY   #$0004
         PHA
         TXA
         STA   [$F7],Y
         PLA
         LDY   #$0002
         STA   [$F7],Y
         LDX   $EA
         LDA   $E8
         PHA
         LDA   [$F7]
         PLX
         STX   $EE
         SEC
         SBC   $EE
         STA   [$F7]
         LDA   #$0000
         BRL   LB0D5
LB00E    LDY   #$0010
         LDA   [$F7],Y
         AND   #$0080
         TAY
         BEQ   LB03E
         LDY   #$0008
         LDA   [$F7],Y
         TAX
         LDY   #$0006
         LDA   [$F7],Y
         LDY   #$0004
         PHA
         TXA
         STA   [$F7],Y
         PLA
         LDY   #$0002
         STA   [$F7],Y
         LDY   #$0010
         LDA   [$F7],Y
         AND   #$FFFE
         LDY   #$0010
         STA   [$F7],Y
LB03E    PEI   $FF
         PEI   $FD
         PEI   $FB
         LDY   #$0012
         LDA   [$F7],Y
         PHA
         JSL   LB0DF
         PLY
         PLY
         PLY
         PLY
         STX   $EA
         STA   $E8
         LDA   #$0000
         STA   [$F7]
         BRA   LB0BF
LB05D    LDY   #$0010
         LDA   [$F7],Y
         AND   #$0082
         TAY
         BEQ   LB0BF
         PEI   $F9
         PEI   $F7
         JSL   LBDCA
         PLY
         PLY
         LDY   #$0010
         LDA   [$F7],Y
         AND   #$0080
         TAY
         BEQ   LB0A7
         LDA   #$0000
         STA   [$F7]
         LDY   #$0010
         LDA   [$F7],Y
         AND   #$FFFD
         LDY   #$0010
         STA   [$F7],Y
         LDY   #$0008
         LDA   [$F7],Y
         TAX
         LDY   #$0006
         LDA   [$F7],Y
         LDY   #$0004
         PHA
         TXA
         STA   [$F7],Y
         PLA
         LDY   #$0002
         STA   [$F7],Y
LB0A7    PEI   $FF
         PEI   $FD
         PEI   $FB
         LDY   #$0012
         LDA   [$F7],Y
         PHA
         JSL   LB0DF
         PLY
         PLY
         PLY
         PLY
         STX   $EA
         STA   $E8
LB0BF    LDA   $E8
         CMP   #$FFFF
         BNE   LB0D2
         LDA   $EA
         CMP   #$FFFF
         BNE   LB0D2
         LDA   #$FFFF
         BRA   LB0D5
LB0D2    LDA   #$0000
LB0D5    TAY
         TDC
         CLC
         ADC   #$00F1
         TCS
         TYA
         PLD
         RTL

LB0DF    PHD
         TSC
         SEC
         SBC   #$00F3
         TCD
         ADC   #$00E6
         TCS
         LDA   $FF
         STA   $EA
         LDX   $FD
         LDA   $FB
         STX   $EE
         STA   $EC
         PEA   $0000
         TDC
         CLC
         ADC   #$00EA
         PHA
         PEA   $6600
         PEI   $F9
         JSL   LB24F
         PLY
         PLY
         PLY
         PLY
         STA   $E8
         LDA   $E8
         CMP   #$0000
         BNE   LB11B
         LDX   $EE
         LDA   $EC
         BRA   LB121
LB11B    LDX   #$FFFF
         LDA   #$FFFF
LB121    TAY
         TDC
         CLC
         ADC   #$00F3
         TCS
         TYA
         PLD
         RTL

LB12B    PHD
         TSC
         SEC
         SBC   #$00F7
         TCD
         ADC   #$00EC
         TCS
         LDA   [$FD]
         SEC
         SBC   #$0000
         BVS   LB141
         EOR   #$8000
LB141    BMI   LB148
         LDA   #$0000
         STA   [$FD]
LB148    LDY   #$0010
         LDA   [$FD],Y
         AND   #$0001
         TAY
         BEQ   LB15D
         LDA   [$FD]
         EOR   #$FFFF
         INC
         STA   $EE
         BRA   LB1C1
LB15D    LDY   #$0010
         LDA   [$FD],Y
         AND   #$0082
         TAY
         BEQ   LB1B5
         STZ   $EE
         LDY   #$0010
         LDA   [$FD],Y
         AND   #$0002
         TAY
         BEQ   LB1B3
         LDY   #$0008
         LDA   [$FD],Y
         TAX
         LDY   #$0006
         LDA   [$FD],Y
         STX   $F4
         ORA   $F4
         BEQ   LB1B3
         LDY   #$0010
         LDA   [$FD],Y
         AND   #$0004
         CMP   #$0000
         BNE   LB1B3
         LDY   #$0008
         LDA   [$FD],Y
         TAX
         LDY   #$0006
         LDA   [$FD],Y
         PHX
         PHA
         LDY   #$0004
         LDA   [$FD],Y
         TAX
         LDY   #$0002
         LDA   [$FD],Y
         JSL   LC025
         PLA
         PLX
         STA   $EE
LB1B3    BRA   LB1C1
LB1B5    LDA   #$FFFF
         LDX   #$0000
         TAY
         BPL   LB1BF
         DEX
LB1BF    BRA   LB216
LB1C1    PEA   $0001
         PEA   $0000
         PEA   $0000
         LDY   #$0012
         LDA   [$FD],Y
         PHA
         JSL   LB0DF
         PLY
         PLY
         PLY
         PLY
         STX   $F2
         STA   $F0
         SEC
         LDA   $F0
         SBC   #$0000
         BNE   LB1EB
         LDA   $F2
         SBC   #$0000
         BRA   LB1F2
LB1EB    LDA   $F2
         SBC   #$0000
         REP   #$02
LB1F2    BVS   LB1F7
         EOR   #$8000
LB1F7    BPL   LB212
         LDA   $EE
         LDX   #$0000
         TAY
         BPL   LB202
         DEX
LB202    PHX
         PHA
         LDX   $F2
         LDA   $F0
         JSL   LBCDB
         PLA
         PLX
         STX   $F2
         STA   $F0
LB212    LDX   $F2
         LDA   $F0
LB216    TAY
         TDC
         CLC
         ADC   #$00F7
         TCS
         TYA
         PLD
         RTL

LB220    PHD
         TSC
         SEC
         SBC   #$00F3
         TCD
         ADC   #$00EE
         TCS
         JSL   LBA5E
         PHX
         PHA
         PEI   $FF
         PEI   $FD
         PEI   $FB
         PEI   $F9
         JSL   LB8BF
         TAY
         TSC
         CLC
         ADC   #$000C
         TCS
         TYA
         TAY
         TDC
         CLC
         ADC   #$00F3
         TCS
         TYA
         PLD
         RTL

LB24F    PHD
         TSC
         SEC
         SBC   #$00F3
         TCD
         ADC   #$00E0
         TCS
         LDA   $F9
         SEC
         SBC   #$0000
         BVS   LB265
         EOR   #$8000
LB265    BMI   LB279
         PEA   $0000
         PEA   $0016
         JSL   LCB3B
         PLY
         PLY
         LDA   #$FFFF
         BRL   LB3EE
LB279    PEA   $0000
         TDC
         CLC
         ADC   #$00F9
         PHA
         JSL   LC86C
         PLY
         PLY
         STX   $EE
         STA   $EC
         LDX   #$0000
         LDA   #$0000
         PHX
         PHA
         LDX   $EE
         LDA   $EC
         JSL   LC7E7
         BNE   LB2A4
         LDA   #$FFFF
         BRL   LB3EE
LB2A4    LDA   $FB
         BRL   LB3E3
LB2A9    PEI   $FF
         PEI   $FD
         PEI   $FB
         PEI   $EE
         PEI   $EC
         LDY   #$0006
         LDA   [$EC],Y
         TAX
         LDY   #$0004
         LDA   [$EC],Y
         STA   $F0
         STX   $F2
         LDY   #$0016
         LDA   [$F0],Y
         TAX
         LDY   #$0014
         LDA   [$F0],Y
         STA   $F0
         STX   $F2
         LDA   $F0
         LDX   $F2
         JSL   LC525
         PLY
         PLY
         PLY
         PLY
         PLY
         STA   $E4
         LDA   $E4
         CMP   #$0000
         BNE   LB2ED
         LDA   #$0000
         BRL   LB3EE
LB2ED    LDY   #$0002
         LDA   [$EC],Y
         PHA
         PEI   $E4
         JSL   LCB3B
         PLY
         PLY
         LDA   #$FFFF
         BRL   LB3EE
LB301    LDX   $FF
         LDA   $FD
         SEC
         SBC   #$0000
         BVS   LB30E
         EOR   #$8000
LB30E    BMI   LB322
         PEA   $0000
         PEA   $0009
         JSL   LCB3B
         PLY
         PLY
         LDA   #$FFFF
         BRL   LB3EE
LB322    LDX   $FF
         LDA   $FD
         PHA
         LDA   #$FFFF
         PLX
         STX   $F0
         SEC
         SBC   $F0
         STA   $E6
         PEA   $0000
         TDC
         CLC
         ADC   #$00E6
         PHA
         JSL   LC86C
         PLY
         PLY
         STX   $EA
         STA   $E8
         LDX   #$0000
         LDA   #$0000
         PHX
         PHA
         LDX   $EA
         LDA   $E8
         JSL   LC7E7
         BNE   LB35D
         LDA   #$FFFF
         BRL   LB3EE
LB35D    PEA   $0000
         TDC
         CLC
         ADC   #$00F9
         PHA
         JSL   LC86C
         PLY
         PLY
         STX   $EE
         STA   $EC
         LDA   $EC
         LDX   $EE
         PHX
         PHA
         LDA   $EA
         PHA
         LDA   $E8
         PHA
         PEA   $0012
         JSL   LC812
         PLA
         PLA
         PLA
         PLA
         PLX
         PEA   $0000
         PEA   $6601
         PEI   $EE
         PEI   $EC
         LDY   #$0006
         LDA   [$EC],Y
         TAX
         LDY   #$0004
         LDA   [$EC],Y
         STA   $F0
         STX   $F2
         LDY   #$0016
         LDA   [$F0],Y
         TAX
         LDY   #$0014
         LDA   [$F0],Y
         STA   $F0
         STX   $F2
         LDA   $F0
         LDX   $F2
         JSL   LC525
         PLY
         PLY
         PLY
         PLY
         STA   $E4
         LDA   $E4
         CMP   #$0000
         BEQ   LB3DD
         LDA   #$0000
         STA   [$E8]
         LDY   #$0002
         LDA   [$EC],Y
         PHA
         PEI   $E4
         JSL   LCB3B
         PLY
         PLY
         LDA   #$FFFF
         BRA   LB3EE
LB3DD    LDA   $E6
         BRA   LB3EE
         BRA   LB3EE
LB3E3    CMP   #$6601
         BNE   LB3EB
         BRL   LB301
LB3EB    JMP   LB2A9

LB3EE    TAY
         TDC
         CLC
         ADC   #$00F3
         TCS
         TYA
         PLD
         RTL

LB3F8    PHD
         TSC
         SEC
         SBC   #$00F7
         TCD
         ADC   #$00E1
         TCS
         STZ   $F1
         STZ   L0140
         LDX   #$0000
         LDA   #$0000
         PHX
         PHA
         LDX   $FF
         LDA   $FD
         JSL   LC7E7
         BNE   LB423
         LDA   #$0001
         STA   LCB06
         BRL   LB838
LB423    LDX   #$0000
         LDA   #$0008
         PHX
         PHA
         LDX   $FF
         LDA   $FD
         JSL   LBCDB
         PLA
         PLX
         STX   $EB
         STA   $E9
         LDA   [$E9]
         AND   #$00FF
         SEP   #$20
         STA   $F3
         REP   #$20
         LDA   #$0000
         SEP   #$20
         STA   [$E9]
         REP   #$20
         PEA   ^LB872
         PEA   LB872
         PEI   $FF
         PEI   $FD
         JSL   LBBE9
         PLY
         PLY
         PLY
         PLY
         TAY
         BNE   LB473
         LDA   #$0001
         STA   LCB06
         LDA   $F3
         SEP   #$20
         STA   [$E9]
         REP   #$20
         BRL   LB838
LB473    LDA   #$0001
         BEQ   LB47D
         LDA   #$0000
         BRA   LB480
LB47D    LDA   #$0001
LB480    STA   LCB06
         LDA   $F3
         SEP   #$20
         STA   [$E9]
         REP   #$20
         PHX
         PHA
         PEA   $0000
         PEA   $0100
         LDA   L013E
         ORA   #$0F00
         PHA
         PEA   $0000
         PEA   $0000
         PEA   $0000
         _NewHandle
         STAL  L013C
         PLA
         PLX
         STX   $EF
         STA   $ED
         LDA   L013C
         BEQ   LB4C1
         PEA   $FFFF
         JSL   LC5F4
         PLY
LB4C1    LDA   #$0100
         STA   $E3
LB4C6    LDA   [$E9]
         AND   #$00FF
         CMP   #$0000
         BNE   LB4D3
         BRL   LB72C
LB4D3    INC   L0140
         LDA   [$E9]
         AND   #$00FF
         CMP   #$0022
         BEQ   LB4E3
         BRL   LB607
LB4E3    INC   $E9
         BNE   LB4E9
         INC   $EB
LB4E9    LDA   [$E9]
         AND   #$00FF
         CMP   #$0000
         BNE   LB4F6
         BRL   LB604
LB4F6    LDA   [$E9]
         AND   #$00FF
         CMP   #$0022
         BEQ   LB503
         BRL   LB58D
LB503    INC   $E9
         BNE   LB509
         INC   $EB
LB509    LDA   [$E9]
         AND   #$00FF
         CMP   #$0022
         BNE   LB589
         LDA   $F1
         CMP   $E3
         BNE   LB54C
         LDA   $E3
         CLC
         ADC   #$0100
         LDX   #$0000
         TAY
         BPL   LB526
         DEX
LB526    PHX
         PHA
         PEI   $EF
         PEI   $ED
         _SetHandleSize
         STAL  L013C
         LDA   L013C
         BEQ   LB544
         PEA   $FFFF
         JSL   LC5F4
         PLY
LB544    LDA   $E3
         CLC
         ADC   #$0100
         STA   $E3
LB54C    LDX   $EB
         LDA   $E9
         INC   $E9
         BNE   LB556
         INC   $EB
LB556    STA   $F4
         STX   $F6
         LDA   [$F4]
         AND   #$00FF
         PHA
         LDA   $F1
         INC   $F1
         PHA
         LDY   #$0002
         LDA   [$ED],Y
         TAX
         LDA   [$ED]
         STA   $F4
         STX   $F6
         PLA
         TAY
         BPL   LB577
         DEC   $F6
LB577    CLC
         ADC   $F4
         STA   $F4
         BCC   LB580
         INC   $F6
LB580    PLA
         SEP   #$20
         STA   [$F4]
         REP   #$20
         BRA   LB58B
LB589    BRA   LB604
LB58B    BRA   LB601
LB58D    LDA   $F1
         CMP   $E3
         BNE   LB5C6
         LDA   $E3
         CLC
         ADC   #$0100
         LDX   #$0000
         TAY
         BPL   LB5A0
         DEX
LB5A0    PHX
         PHA
         PEI   $EF
         PEI   $ED
         _SetHandleSize
         STAL  L013C
         LDA   L013C
         BEQ   LB5BE
         PEA   $FFFF
         JSL   LC5F4
         PLY
LB5BE    LDA   $E3
         CLC
         ADC   #$0100
         STA   $E3
LB5C6    LDX   $EB
         LDA   $E9
         INC   $E9
         BNE   LB5D0
         INC   $EB
LB5D0    STA   $F4
         STX   $F6
         LDA   [$F4]
         AND   #$00FF
         PHA
         LDA   $F1
         INC   $F1
         PHA
         LDY   #$0002
         LDA   [$ED],Y
         TAX
         LDA   [$ED]
         STA   $F4
         STX   $F6
         PLA
         TAY
         BPL   LB5F1
         DEC   $F6
LB5F1    CLC
         ADC   $F4
         STA   $F4
         BCC   LB5FA
         INC   $F6
LB5FA    PLA
         SEP   #$20
         STA   [$F4]
         REP   #$20
LB601    BRL   LB4E9
LB604    BRL   LB6AB
LB607    LDA   [$E9]
         AND   #$00FF
         SEP   #$20
         STA   $F3
         REP   #$20
         AND   #$00FF
         CMP   #$0020
         BNE   LB61D
         BRL   LB6AB
LB61D    LDA   $F3
         AND   #$00FF
         CMP   #$0000
         BNE   LB62A
         BRL   LB6AB
LB62A    LDA   $F3
         AND   #$00FF
         CMP   #$0009
         BEQ   LB6AB
         LDA   $F1
         CMP   $E3
         BNE   LB66D
         LDA   $E3
         CLC
         ADC   #$0100
         LDX   #$0000
         TAY
         BPL   LB647
         DEX
LB647    PHX
         PHA
         PEI   $EF
         PEI   $ED
         _SetHandleSize
         STAL  L013C
         LDA   L013C
         BEQ   LB665
         PEA   $FFFF
         JSL   LC5F4
         PLY
LB665    LDA   $E3
         CLC
         ADC   #$0100
         STA   $E3
LB66D    LDX   $EB
         LDA   $E9
         INC   $E9
         BNE   LB677
         INC   $EB
LB677    STA   $F4
         STX   $F6
         LDA   [$F4]
         AND   #$00FF
         PHA
         LDA   $F1
         INC   $F1
         PHA
         LDY   #$0002
         LDA   [$ED],Y
         TAX
         LDA   [$ED]
         STA   $F4
         STX   $F6
         PLA
         TAY
         BPL   LB698
         DEC   $F6
LB698    CLC
         ADC   $F4
         STA   $F4
         BCC   LB6A1
         INC   $F6
LB6A1    PLA
         SEP   #$20
         STA   [$F4]
         REP   #$20
         BRL   LB607
LB6AB    LDA   $F1
         CMP   $E3
         BNE   LB6E4
         LDA   $E3
         CLC
         ADC   #$0100
         LDX   #$0000
         TAY
         BPL   LB6BE
         DEX
LB6BE    PHX
         PHA
         PEI   $EF
         PEI   $ED
         _SetHandleSize
         STAL  L013C
         LDA   L013C
         BEQ   LB6DC
         PEA   $FFFF
         JSL   LC5F4
         PLY
LB6DC    LDA   $E3
         CLC
         ADC   #$0100
         STA   $E3
LB6E4    LDA   $F1
         INC   $F1
         PHA
         LDY   #$0002
         LDA   [$ED],Y
         TAX
         LDA   [$ED]
         STA   $F4
         STX   $F6
         PLA
         TAY
         BPL   LB6FB
         DEC   $F6
LB6FB    CLC
         ADC   $F4
         STA   $F4
         BCC   LB704
         INC   $F6
LB704    LDA   #$0000
         SEP   #$20
         STA   [$F4]
         REP   #$20
LB70D    LDA   [$E9]
         AND   #$00FF
         CMP   #$0020
         BEQ   LB721
         LDA   [$E9]
         AND   #$00FF
         CMP   #$0009
         BNE   LB729
LB721    INC   $E9
         BNE   LB727
         INC   $EB
LB727    BRA   LB70D
LB729    BRL   LB4C6
LB72C    LDA   $F1
         LDX   #$0000
         TAY
         BPL   LB735
         DEX
LB735    PHX
         PHA
         PEI   $EF
         PEI   $ED
         _SetHandleSize
         STAL  L013C
         PEI   $EF
         PEI   $ED
         _HLock
         STAL  L013C
         LDA   L0140
         CLC
         ADC   #$0001
         LDX   #$0000
         TAY
         BPL   LB763
         DEX
LB763    PHX
         PHA
         LDX   #$0000
         LDA   #$0004
         SEC
         JSL   LC075
         JSL   LBB97
         PLY
         PLY
         STX   L0144
         STA   L0142
         LDY   #$0002
         LDA   [$ED],Y
         TAX
         LDA   [$ED]
         PHX
         PHA
         LDX   L0144
         LDA   L0142
         STA   $F4
         STX   $F6
         PLA
         PLX
         LDY   #$0002
         PHA
         TXA
         STA   [$F4],Y
         PLA
         STA   [$F4]
         LDA   #$0001
         STA   $F1
         LDY   #$0002
         LDA   [$ED],Y
         TAX
         LDA   [$ED]
         STX   $E7
         STA   $E5
         BRA   LB7F8
LB7AF    LDA   [$E5]
         AND   #$00FF
         BNE   LB7F2
         LDX   #$0000
         LDA   #$0001
         PHX
         PHA
         LDX   $E7
         LDA   $E5
         JSL   LBCDB
         LDA   $F1
         INC   $F1
         ASL
         ASL
         PHA
         LDX   L0144
         LDA   L0142
         STA   $F4
         STX   $F6
         PLA
         TAY
         BPL   LB7DD
         DEC   $F6
LB7DD    CLC
         ADC   $F4
         STA   $F4
         BCC   LB7E6
         INC   $F6
LB7E6    PLA
         PLX
         LDY   #$0002
         PHA
         TXA
         STA   [$F4],Y
         PLA
         STA   [$F4]
LB7F2    INC   $E5
         BNE   LB7F8
         INC   $E7
LB7F8    LDA   $F1
         SEC
         SBC   L0140
         BVS   LB803
         EOR   #$8000
LB803    BPL   LB7AF
         LDX   #$0000
         LDA   #$0000
         PHX
         PHA
         LDA   L0140
         ASL
         ASL
         PHA
         LDX   L0144
         LDA   L0142
         STA   $F4
         STX   $F6
         PLA
         TAY
         BPL   LB823
         DEC   $F6
LB823    CLC
         ADC   $F4
         STA   $F4
         BCC   LB82C
         INC   $F6
LB82C    PLA
         PLX
         LDY   #$0002
         PHA
         TXA
         STA   [$F4],Y
         PLA
         STA   [$F4]
LB838    TAY
         TDC
         CLC
         ADC   #$00F7
         TCS
         TYA
         PLD
         RTL

         DB    $48
         DB    $53
LB844    DB    $00
         DB    $00
LB846    ADRL  LB87B
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
LB850    DB    $00
         DB    $00
LB852    DB    $00
         DB    $00
LB854    ADRL  LB887
LB858    DB    $00
         DB    $00
LB85A    DB    $00
         DB    $00
LB85C    DB    $00
         DB    $00
LB85E    DB    $00
         DB    $00
LB860    DB    $00
         DB    $00
LB862    DB    $00
         DB    $00
LB864    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
LB872    ASC   'BYTEWRKS'
         DB    $00
LB87B    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
LB887    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
LB8AF    DB    $00
LB8B0    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
LB8BF    PHD
         TSC
         SEC
         SBC   #$00EF
         TCD
         ADC   #$00E2
         TCS
         LDX   #$0000
         LDA   #$0000
         PHX
         PHA
         LDX   $FF
         LDA   $FD
         JSL   LC7E7
         BNE   LB8EB
         LDA   #$0017
         STA   LCF41
         LDX   #$0000
         LDA   #$0000
         BRL   LBA54
LB8EB    LDX   #$0000
         LDA   #$0000
         PHX
         PHA
         LDX   $F7
         LDA   $F5
         JSL   LC7E7
         BEQ   LB907
         LDA   [$F5]
         AND   #$00FF
         CMP   #$0000
         BNE   LB916
LB907    LDA   #$0016
         STA   LCF41
         LDX   #$0000
         LDA   #$0000
         BRL   LBA54
LB916    LDY   #$0001
         LDA   [$F9],Y
         AND   #$00FF
         CMP   #$002B
         BEQ   LB935
         LDY   #$0002
         LDA   [$F9],Y
         AND   #$00FF
         CMP   #$002B
         BEQ   LB935
         LDA   #$0000
         BRA   LB938
LB935    LDA   #$0001
LB938    STA   $EA
         LDY   #$0001
         LDA   [$F9],Y
         AND   #$00FF
         CMP   #$0062
         BEQ   LB959
         LDY   #$0002
         LDA   [$F9],Y
         AND   #$00FF
         CMP   #$0062
         BEQ   LB959
         LDA   #$0000
         BRA   LB95C
LB959    LDA   #$0001
LB95C    STA   $E8
         LDA   [$F9]
         AND   #$00FF
         BRL   LB9B0
LB966    LDA   $EA
         BEQ   LB96F
         LDA   #$0002
         BRA   LB972
LB96F    LDA   #$0001
LB972    ORA   #$0200
         ORA   #$0100
         STA   $E6
         BRL   LB9C2
LB97D    LDA   $EA
         BEQ   LB986
         LDA   #$0002
         BRA   LB989
LB986    LDA   #$0001
LB989    ORA   #$0008
         ORA   #$0100
         STA   $E6
         BRL   LB9C2
LB994    LDA   $EA
         BEQ   LB99D
         LDA   #$0002
         BRA   LB9A0
LB99D    LDA   #$0000
LB9A0    STA   $E6
         BRL   LB9C2
LB9A5    LDX   #$0000
         LDA   #$0000
         BRL   LBA54
         BRA   LB9C2
LB9B0    CMP   #$0061
         BEQ   LB97D
         CMP   #$0072
         BEQ   LB994
         CMP   #$0077
         BEQ   LB966
         JMP   LB9A5

LB9C2    LDA   $E8
         BEQ   LB9CD
         LDA   $E6
         ORA   #$0020
         STA   $E6
LB9CD    PEI   $E6
         PEI   $F7
         PEI   $F5
         JSL   LC52D
         PLY
         PLY
         PLY
         STA   $E4
         SEC
         SBC   #$0000
         BVS   LB9E5
         EOR   #$8000
LB9E5    BMI   LB9EF
         LDX   #$0000
         LDA   #$0000
         BRA   LBA54
LB9EF    LDA   #$0000
         STA   [$FD]
         LDA   $E4
         LDY   #$0012
         STA   [$FD],Y
         LDA   $EA
         BEQ   LBA04
         LDA   #$0080
         BRA   LBA16
LBA04    LDA   [$F9]
         AND   #$00FF
         CMP   #$0072
         BNE   LBA13
         LDA   #$0001
         BRA   LBA16
LBA13    LDA   #$0002
LBA16    LDY   #$0010
         STA   [$FD],Y
         LDX   #$0000
         LDA   #$0000
         LDY   #$0004
         PHA
         TXA
         STA   [$FD],Y
         PLA
         LDY   #$0002
         STA   [$FD],Y
         LDY   #$000C
         PHA
         TXA
         STA   [$FD],Y
         PLA
         LDY   #$000A
         STA   [$FD],Y
         LDY   #$0008
         PHA
         TXA
         STA   [$FD],Y
         PLA
         LDY   #$0006
         STA   [$FD],Y
         LDA   #$0000
         LDY   #$000E
         STA   [$FD],Y
         LDX   $FF
         LDA   $FD
LBA54    TAY
         TDC
         CLC
         ADC   #$00EF
         TCS
         TYA
         PLD
         RTL

LBA5E    PHD
         TSC
         SEC
         SBC   #$00FB
         TCD
         ADC   #$00F2
         TCS
         LDA   #LC0FC
         LDX   #^LC0FC
         STX   $F6
         STA   $F4
         BRA   LBA94
LBA75    LDY   #$0010
         LDA   [$F4],Y
         AND   #$0083
         CMP   #$0000
         BNE   LBA88
         LDX   $F6
         LDA   $F4
         BRA   LBAB7
LBA88    LDA   $F4
         CLC
         ADC   #$0014
         STA   $F4
         BCC   LBA94
         INC   $F6
LBA94    SEC
         LDA   $F4
         SBC   LBAC1
         BNE   LBAA3
         LDA   $F6
         SBC   LBAC1+2
         BRA   LBAAA
LBAA3    LDA   $F6
         SBC   LBAC1+2
         REP   #$02
LBAAA    BVS   LBAAF
         EOR   #$8000
LBAAF    BPL   LBA75
         LDX   #$0000
         LDA   #$0000
LBAB7    TAY
         TDC
         CLC
         ADC   #$00FB
         TCS
         TYA
         PLD
         RTL

LBAC1    ADRL  LC28C

LBAC5    PHD
         TSC
         SEC
         SBC   #$00F7
         TCD
         ADC   #$00F0
         TCS
         LDY   #$0004
         LDA   [$FD],Y
         TAX
         LDY   #$0002
         LDA   [$FD],Y
         PHX
         PHA
         LDY   #$000C
         LDA   [$FD],Y
         TAX
         LDY   #$000A
         LDA   [$FD],Y
         JSL   LC025
         PLA
         PLX
         STA   $F2
         SEC
         SBC   #$0000
         BVS   LBAF9
         EOR   #$8000
LBAF9    BMI   LBB15
         LDY   #$000C
         LDA   [$FD],Y
         TAX
         LDY   #$000A
         LDA   [$FD],Y
         LDY   #$0004
         PHA
         TXA
         STA   [$FD],Y
         PLA
         LDY   #$0002
         STA   [$FD],Y
         BRA   LBB27
LBB15    LDA   [$FD]
         SEC
         SBC   $F2
         BEQ   LBB27
         BVS   LBB21
         EOR   #$8000
LBB21    BPL   LBB27
         LDA   $F2
         STA   [$FD]
LBB27    TAY
         TDC
         CLC
         ADC   #$00F7
         TCS
         TYA
         PLD
         RTL

LBB31    PHD
         TSC
         SEC
         SBC   #$00F7
         TCD
         ADC   #$00E8
         TCS
         LDX   $FF
         LDA   $FD
         STX   $EC
         STA   $EA
         LDX   $FF
         LDA   $FD
         STX   $F4
         ORA   $F4
         BEQ   LBB8F
LBB4E    LDA   [$FD]
         AND   #$00FF
         STA   $EE
         LDA   $F0
         PHA
         LDX   $FF
         LDA   $FD
         INC   $FD
         BNE   LBB62
         INC   $FF
LBB62    STA   $F4
         STX   $F6
         PLA
         SEP   #$20
         STA   [$F4]
         REP   #$20
         LDA   $EE
         STA   $F0
         LDA   $EE
         BNE   LBB4E
         LDX   $EC
         LDA   $EA
         PHX
         PHA
         LDX   $FF
         LDA   $FD
         JSL   LC025
         PLA
         PLX
         SEC
         SBC   #$0001
         SEP   #$20
         STA   [$EA]
         REP   #$20
LBB8F    TDC
         CLC
         ADC   #$00F7
         TCS
         PLD
         RTL

LBB97    PHD
         TSC
         SEC
         SBC   #$00F7
         TCD
         ADC   #$00EE
         TCS
         PHX
         PHA
         PEI   $FF
         PEI   $FD
         LDA   L013E
         ORA   #$0F00
         PHA
         PEA   $8300
         PEA   $0000
         PEA   $0000
         _NewHandle
         STAL  L013C
         PLA
         PLX
         STX   $F2
         STA   $F0
         STX   $F4
         ORA   $F4
         BEQ   LBBD9
         LDY   #$0002
         LDA   [$F0],Y
         TAX
         LDA   [$F0]
         BRA   LBBDF
LBBD9    LDX   #$0000
         LDA   #$0000
LBBDF    TAY
         TDC
         CLC
         ADC   #$00F7
         TCS
         TYA
         PLD
         RTL

LBBE9    PHD
         TSC
         SEC
         SBC   #$00F1
         TCD
         ADC   #$00EC
         TCS
         BRL   LBCBA
LBBF7    LDA   [$F7]
         AND   #$00FF
         PHA
         LDA   [$FB]
         AND   #$00FF
         PLX
         STX   $EE
         CMP   $EE
         BNE   LBC0F
         LDA   #$0001
         BRL   LBC94
LBC0F    LDA   $FF
         BEQ   LBC18
         LDA   #$0000
         BRA   LBC94
LBC18    LDA   [$F7]
         AND   #$00FF
         SEC
         SBC   #$0061
         BVS   LBC26
         EOR   #$8000
LBC26    BPL   LBC3A
         LDA   [$F7]
         AND   #$00FF
         SEC
         SBC   #$007A
         BEQ   LBC41
         BVS   LBC38
         EOR   #$8000
LBC38    BPL   LBC41
LBC3A    LDA   [$F7]
         AND   #$00FF
         BRA   LBC4E
LBC41    LDA   [$F7]
         AND   #$00FF
         CLC
         ADC   #$0041
         SEC
         SBC   #$0061
LBC4E    PHA
         LDA   [$FB]
         AND   #$00FF
         SEC
         SBC   #$0061
         BVS   LBC5D
         EOR   #$8000
LBC5D    BPL   LBC71
         LDA   [$FB]
         AND   #$00FF
         SEC
         SBC   #$007A
         BEQ   LBC78
         BVS   LBC6F
         EOR   #$8000
LBC6F    BPL   LBC78
LBC71    LDA   [$FB]
         AND   #$00FF
         BRA   LBC85
LBC78    LDA   [$FB]
         AND   #$00FF
         CLC
         ADC   #$0041
         SEC
         SBC   #$0061
LBC85    PLX
         STX   $EE
         CMP   $EE
         BEQ   LBC91
         LDA   #$0000
         BRA   LBC94
LBC91    LDA   #$0001
LBC94    TAY
         BNE   LBC9C
         LDA   #$0000
         BRA   LBCD1
LBC9C    LDX   $F9
         LDA   $F7
         INC   $F7
         BNE   LBCA6
         INC   $F9
LBCA6    STA   $EE
         STX   $F0
         LDX   $FD
         LDA   $FB
         INC   $FB
         BNE   LBCB4
         INC   $FD
LBCB4    STA   $EE
         STX   $F0
         LDA   [$EE]
LBCBA    LDA   [$F7]
         AND   #$00FF
         BEQ   LBCC4
         BRL   LBBF7
LBCC4    LDA   [$FB]
         AND   #$00FF
         BEQ   LBCCE
         BRL   LBBF7
LBCCE    LDA   #$0001
LBCD1    TAY
         TDC
         CLC
         ADC   #$00F1
         TCS
         TYA
         PLD
         RTL

LBCDB    CLC
         ADC   $04,S
         STA   $04,S
         TXA
         ADC   $06,S
         STA   $06,S
         RTL

LBCE6    PHD
         TSC
         SEC
         SBC   #$00F7
         TCD
         ADC   #$00F0
         TCS
         LDA   #$FFFF
         STA   $F2
         LDX   #$0000
         LDA   #$0000
         PHX
         PHA
         LDX   $FF
         LDA   $FD
         JSL   LC7E7
         BNE   LBD0E
         LDA   #$FFFF
         BRL   LBDC0
LBD0E    LDY   #$0010
         LDA   [$FD],Y
         AND   #$0083
         TAY
         BEQ   LBD56
         LDY   #$0010
         LDA   [$FD],Y
         AND   #$0004
         TAY
         BEQ   LBD29
         LDA   #$0000
         BRA   LBD33
LBD29    PEI   $FF
         PEI   $FD
         JSL   LBDCA
         PLY
         PLY
LBD33    STA   $F2
         LDY   #$0012
         LDA   [$FD],Y
         PHA
         JSL   LCE94
         PLY
         SEC
         SBC   #$0000
         BVS   LBD49
         EOR   #$8000
LBD49    BMI   LBD56
         LDA   #$FFFF
         STA   $F2
         LDA   #$0002
         STA   LCF41
LBD56    LDY   #$0010
         LDA   [$FD],Y
         AND   #$0008
         TAY
         BEQ   LBD99
         PHX
         PHA
         LDY   #$0008
         LDA   [$FD],Y
         TAX
         LDY   #$0006
         LDA   [$FD],Y
         PHX
         PHA
         _FindHandle
         STAL  L013C
         _DisposeHandle
         STAL  L013C
         LDX   #$0000
         LDA   #$0000
         LDY   #$0008
         PHA
         TXA
         STA   [$FD],Y
         PLA
         LDY   #$0006
         STA   [$FD],Y
LBD99    LDA   #$0000
         LDY   #$0010
         STA   [$FD],Y
         LDA   #$0000
         STA   [$FD]
         LDY   #$0008
         LDA   [$FD],Y
         TAX
         LDY   #$0006
         LDA   [$FD],Y
         LDY   #$0004
         PHA
         TXA
         STA   [$FD],Y
         PLA
         LDY   #$0002
         STA   [$FD],Y
         LDA   $F2
LBDC0    TAY
         TDC
         CLC
         ADC   #$00F7
         TCS
         TYA
         PLD
         RTL

LBDCA    PHD
         TSC
         SEC
         SBC   #$00F7
         TCD
         ADC   #$00F2
         TCS
         LDY   #$0010
         LDA   [$FD],Y
         AND   #$0002
         TAY
         BNE   LBDEA
         LDA   #$0000
         STA   [$FD]
         LDA   #$0000
         BRA   LBE5B
LBDEA    LDY   #$0010
         LDA   [$FD],Y
         AND   #$0004
         TAY
         BNE   LBE48
         LDY   #$0010
         LDA   [$FD],Y
         AND   #$0002
         TAY
         BEQ   LBE48
         LDX   #$0000
         LDA   #$0000
         PHX
         PHA
         LDY   #$0008
         LDA   [$FD],Y
         TAX
         LDY   #$0006
         LDA   [$FD],Y
         JSL   LC7E7
         BEQ   LBE48
         LDY   #$0008
         LDA   [$FD],Y
         TAX
         LDY   #$0006
         LDA   [$FD],Y
         PHX
         PHA
         LDY   #$0004
         LDA   [$FD],Y
         TAX
         LDY   #$0002
         LDA   [$FD],Y
         JSL   LC7E7
         BVS   LBE3A
         EOR   #$8000
LBE3A    BMI   LBE48
         PEI   $FF
         PEI   $FD
         JSL   LD3DD
         PLY
         PLY
         BRA   LBDEA
LBE48    LDY   #$0010
         LDA   [$FD],Y
         AND   #$0020
         TAY
         BEQ   LBE58
         LDA   #$FFFF
         BRA   LBE5B
LBE58    LDA   #$0000
LBE5B    TAY
         TDC
         CLC
         ADC   #$00F7
         TCS
         TYA
         PLD
         RTL

LBE65    PHD
         TSC
         SEC
         SBC   #$00F1
         TCD
         ADC   #$00E8
         TCS
         LDX   $F9
         LDA   $F7
         STX   $EC
         STA   $EA
LBE78    DEC   $FF
         LDA   $FF
         SEC
         SBC   #$0000
         BVS   LBE85
         EOR   #$8000
LBE85    BPL   LBEB2
         LDX   $FD
         LDA   $FB
         INC   $FB
         BNE   LBE91
         INC   $FD
LBE91    STA   $EE
         STX   $F0
         LDA   [$EE]
         AND   #$00FF
         PHA
         LDX   $F9
         LDA   $F7
         INC   $F7
         BNE   LBEA5
         INC   $F9
LBEA5    STA   $EE
         STX   $F0
         PLA
         SEP   #$20
         STA   [$EE]
         REP   #$20
         BRA   LBE78
LBEB2    LDX   $EC
         LDA   $EA
         TAY
         TDC
         CLC
         ADC   #$00F1
         TCS
         TYA
         PLD
         RTL

LBEC0    PHD
         PHA
         PEA   $0001
         TSC
         TCD
         LDA   $03
         BEQ   LBF2B
         LDX   #$0000
         BCC   LBEEB
         BIT   #$8000
         BEQ   LBEDC
         EOR   #$FFFF
         INC
         STA   $03
         INX
LBEDC    LDA   $0A
         BIT   #$8000
         BEQ   LBEEB
         EOR   #$FFFF
         INC
         STA   $0A
         INX
         INX
LBEEB    LDY   #$0000
         BRA   LBEF2
LBEF0    ASL   $01
LBEF2    ASL   $03
         BCC   LBEF0
         ROR   $03
LBEF8    LDA   $0A
         CMP   $03
         BCC   LBF09
         LDA   $0A
         SEC
         SBC   $03
         STA   $0A
         TYA
         ORA   $01
         TAY
LBF09    LSR   $03
         LSR   $01
         BCC   LBEF8
         TYA
         CPX   #$0000
         BEQ   LBF2B
         CPX   #$0003
         BEQ   LBF23
         EOR   #$FFFF
         INC
         CPX   #$0001
         BEQ   LBF2B
LBF23    TAY
         LDA   $0A
         EOR   #$FFFF
         INC
         TYA
LBF2B    PLY
         PLY
         PLD
         RTL

LBF2F    PHD
         PHX
         PHA
         PEA   $0000
         PEA   $0001
         PEA   $0000
         PEA   $0000
         TSC
         TCD
         LDA   $09
         ORA   $0B
         BNE   LBF4C
         LDX   #$0000
         BRL   LC000
LBF4C    LDX   #$0000
         BCC   LBF84
         LDA   $0B
         BIT   #$8000
         BEQ   LBF6A
         EOR   #$FFFF
         STA   $0B
         LDA   $09
         EOR   #$FFFF
         INC
         BNE   LBF67
         INC   $0B
LBF67    STA   $09
         INX
LBF6A    LDA   $14
         BIT   #$8000
         BEQ   LBF84
         EOR   #$FFFF
         STA   $14
         LDA   $12
         EOR   #$FFFF
         INC
         BNE   LBF80
         INC   $14
LBF80    STA   $12
         INX
         INX
LBF84    BRA   LBF8A
LBF86    ASL   $05
         ROL   $07
LBF8A    ASL   $09
         ROL   $0B
         BCC   LBF86
         ROR   $0B
         ROR   $09
LBF94    LDA   $14
         CMP   $0B
         BEQ   LBF9E
         BCC   LBFBD
         BRA   LBFA4
LBF9E    LDA   $12
         CMP   $09
         BCC   LBFBD
LBFA4    LDA   $12
         SEC
         SBC   $09
         STA   $12
         LDA   $14
         SBC   $0B
         STA   $14
         LDA   $01
         ORA   $05
         STA   $01
         LDA   $03
         ORA   $07
         STA   $03
LBFBD    LSR   $0B
         ROR   $09
         LSR   $07
         ROR   $05
         BCC   LBF94
         CPX   #$0000
         BEQ   LBFFC
         CPX   #$0003
         BEQ   LBFE9
         LDA   $01
         EOR   #$FFFF
         STA   $01
         LDA   $03
         EOR   #$FFFF
         INC   $01
         BNE   LBFE2
         INC
LBFE2    STA   $03
         CPX   #$0001
         BEQ   LBFFC
LBFE9    LDA   $12
         EOR   #$FFFF
         STA   $12
         LDA   $14
         EOR   #$FFFF
         INC   $12
         BNE   LBFFA
         INC
LBFFA    STA   $14
LBFFC    LDA   $01
         LDX   $03
LC000    PLY
         PLY
         PLY
         PLY
         PLY
         PLY
         PLD
         RTL

LC008    PHD
         TSC
         TCD
         STA   [$06]
         LDA   $01,S
         LDY   #$0002
         STA   [$06],Y
         LDA   $02,S
         INY
         INY
         STA   [$06],Y
         LDA   $04,S
         INY
         INY
         STA   [$06],Y
         PLD
         LDA   #$0000
         RTL

LC025    SEC
         SBC   $04,S
         STA   $04,S
         TXA
         SBC   $06,S
         STA   $06,S
         RTL

LC030    PHD
         PHA
         TSC
         TCD
         LDX   #$0000
         BCC   LC055
         LDA   $01
         BIT   #$8000
         BEQ   LC047
         EOR   #$FFFF
         INC
         STA   $01
         INX
LC047    LDA   $08
         BIT   #$8000
         BEQ   LC055
         EOR   #$FFFF
         INC
         STA   $08
         DEX
LC055    LDA   #$0000
         BRA   LC063
LC05A    LSR   $08
         BCC   LC061
         CLC
         ADC   $01
LC061    ASL   $01
LC063    LDY   $08
         BNE   LC05A
         CPX   #$0000
         BEQ   LC070
         EOR   #$FFFF
         INC
LC070    STA   $08
         PLY
         PLD
         RTL

LC075    PHD
         PHX
         PHA
         PEA   $0000
         PEA   $0000
         TSC
         TCD
         LDX   #$0000
         BCC   LC0B7
         LDA   $07
         BIT   #$8000
         BEQ   LC09E
         EOR   #$FFFF
         STA   $07
         LDA   $05
         EOR   #$FFFF
         INC
         BNE   LC09B
         INC   $07
LC09B    STA   $05
         INX
LC09E    LDA   $10
         BIT   #$8000
         BEQ   LC0B7
         EOR   #$FFFF
         STA   $10
         LDA   $0E
         EOR   #$FFFF
         INC
         BNE   LC0B4
         INC   $10
LC0B4    STA   $0E
         DEX
LC0B7    BRA   LC0D0
LC0B9    LSR   $10
         ROR   $0E
         BCC   LC0CC
         LDA   $01
         CLC
         ADC   $05
         STA   $01
         LDA   $03
         ADC   $07
         STA   $03
LC0CC    ASL   $05
         ROL   $07
LC0D0    LDA   $0E
         ORA   $10
         BNE   LC0B9
         CPX   #$0000
         BEQ   LC0EE
         LDA   $01
         EOR   #$FFFF
         STA   $01
         LDA   $03
         EOR   #$FFFF
         INC   $01
         BNE   LC0EC
         INC
LC0EC    STA   $03
LC0EE    LDA   $01
         STA   $0E
         LDA   $03
         STA   $10
         PLY
         PLY
         PLY
         PLY
         PLD
         RTL

LC0FC    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $05
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $42
         DB    $00
         DB    $01
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $42
         DB    $00
         DB    $02
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00

LC28C    PHD
         TSC
         SEC
         SBC   #$00F9
         TCD
         ADC   #$FFEC
         TCS
         LDA   #LCACA
         LDX   #^LCACA
         PHX
         PHA
         LDAL  LB854+2
         TAX
         LDAL  LB854
         STA   $F6
         STX   $F8
         PLA
         PLX
         LDY   #$0002
         PHA
         TXA
         STA   [$F6],Y
         PLA
         STA   [$F6]
         LDA   LCB06
         BNE   LC2C0
         BRL   LC413
LC2C0    LDX   #$0000
         TDC
         CLC
         ADC   #$FFEE
         PHA
         TXA
         STAL  LC614
         PLA
         STAL  LC612
         PEA   $0027
         PEA   ^LC612
         PEA   LC612
         JSL   LC4E7
         LDAL  LC614
         TAX
         LDAL  LC612
         STA   $F6
         STX   $F8
         LDA   [$F6]
         AND   #$00FF
         STA   $F2
         STA   $F0
LC2F6    LDA   $F2
         LDX   #$0000
         TAY
         BPL   LC2FF
         DEX
LC2FF    PHX
         PHA
         LDAL  LC614
         TAX
         LDAL  LC612
         JSL   LBCDB
         PLA
         PLX
         STA   $F6
         STX   $F8
         LDA   [$F6]
         AND   #$00FF
         CMP   #$002F
         BEQ   LC331
         LDA   $F2
         SEC
         SBC   #$0000
         BEQ   LC331
         BVS   LC32B
         EOR   #$8000
LC32B    BPL   LC331
         DEC   $F2
         BRA   LC2F6
LC331    LDA   $F0
         SEC
         SBC   $F2
         STA   $EE
         SEP   #$20
         STAL  LB8AF
         REP   #$20
         BRA   LC39A
LC342    LDA   $F0
         DEC   $F0
         LDX   #$0000
         TAY
         BPL   LC34D
         DEX
LC34D    PHX
         PHA
         LDAL  LC614
         TAX
         LDAL  LC612
         JSL   LBCDB
         PLA
         PLX
         STA   $F6
         STX   $F8
         LDA   [$F6]
         AND   #$00FF
         PHA
         LDX   #$0000
         LDA   #$0001
         PHX
         PHA
         LDA   $EE
         LDX   #$0000
         TAY
         BPL   LC379
         DEX
LC379    PHX
         PHA
         LDA   #LB8B0
         LDX   #^LB8B0
         JSL   LBCDB
         PLA
         PLX
         JSL   LC025
         PLA
         PLX
         STA   $F6
         STX   $F8
         PLA
         SEP   #$20
         STA   [$F6]
         REP   #$20
         DEC   $EE
LC39A    LDA   $EE
         SEC
         SBC   #$0000
         BEQ   LC3A9
         BVS   LC3A7
         EOR   #$8000
LC3A7    BMI   LC342
LC3A9    LDA   #LB8AF
         LDX   #^LB8AF
         PHX
         PHA
         LDAL  LB846+2
         TAX
         LDAL  LB846
         STA   $F6
         STX   $F8
         PLA
         PLX
         LDY   #$0002
         PHA
         TXA
         STA   [$F6],Y
         PLA
         STA   [$F6]
         LDA   $FF
         BNE   LC3EB
         LDAL  LB846+2
         TAX
         LDAL  LB846
         STA   $F6
         STX   $F8
         LDY   #$0002
         LDA   [$F6],Y
         TAX
         LDA   [$F6]
         PHX
         PHA
         JSL   LD4C7
         PLY
         PLY
LC3EB    LDA   #$0001
         STA   L0140
         LDAL  LB846+2
         TAX
         LDAL  LB846
         STX   L0144
         STA   L0142
         PEA   $007F
         PEA   $0000
         _SetInGlobals
         STAL  L013C
         BRA   LC42B
LC413    LDA   L0140
         STAL  LB844
         LDX   L0144
         LDA   L0142
         PHA
         TXA
         STAL  LB846+2
         PLA
         STAL  LB846
LC42B    TAY
         TDC
         CLC
         ADC   #$00F9
         TCS
         TYA
         PLD
         RTL

LC435    PHD
         TSC
         SEC
         SBC   #$00F9
         TCD
         ADC   #$00F0
         TCS
         LDAL  LB854+2
         TAX
         LDAL  LB854
         STA   $F6
         STX   $F8
         LDX   $F8
         LDA   #$0024
         CLC
         ADC   $F6
         BCC   LC458
         INX
LC458    STX   $F4
         STA   $F2
         BRA   LC497
LC45E    LDX   #$0000
         LDA   #$0000
         PHX
         PHA
         LDY   #$0002
         LDA   [$F2],Y
         TAX
         LDA   [$F2]
         JSL   LC7E7
         BEQ   LC48B
         PEI   $FF
         LDY   #$0002
         LDA   [$F2],Y
         TAX
         LDA   [$F2]
         STA   $F6
         STX   $F8
         LDA   $F6
         LDX   $F8
         JSL   LC525
         PLY
LC48B    LDA   $F2
         SEC
         SBC   #$0004
         STA   $F2
         BCS   LC497
         DEC   $F4
LC497    LDAL  LB854+2
         TAX
         LDAL  LB854
         STA   $F6
         STX   $F8
         LDA   $F6
         LDX   $F8
         PHX
         PHA
         LDX   $F4
         LDA   $F2
         JSL   LC7E7
         BVS   LC4B7
         EOR   #$8000
LC4B7    BPL   LC45E
         LDA   $FF
         STA   L014A
         LDAL  LB854+2
         TAX
         LDAL  LB854
         STA   $F6
         STX   $F8
         LDY   #$0002
         LDA   [$F6],Y
         TAX
         LDA   [$F6]
         STA   $F6
         STX   $F8
         LDA   $F6
         LDX   $F8
         JSL   LC525
         TDC
         CLC
         ADC   #$00F9
         TCS
         PLD
         RTL

LC4E7    PHB
         PLA
         XBA
         STAL  LC522
         PLA
         STAL  LC522+1
         PLA
         STAL  LC508
         PLA
         STAL  LC508+2
         PLA
         STAL  LC506
LC502    JSL   GSOS
LC506    DW    $0000
LC508    ADRL  $00000000
         BCS   LC511
         LDA   #$0000
LC511    STAL  L013C
         LDAL  LC522+1
         PHA
         PHB
         LDAL  LC522
         STA   $01,S
         RTL

LC522    ADR   $000000

LC525    SEP   #$10
         PHX
         REP   #$10
         DEC
         PHA
         RTL

LC52D    PHD
         TSC
         SEC
         SBC   #$00F5
         TCD
         ADC   #$00E4
         TCS
         LDA   #$FFFF
         STA   $E8
         PEA   $0000
         TDC
         CLC
         ADC   #$00E8
         PHA
         JSL   LC86C
         PLY
         PLY
         STX   $EC
         STA   $EA
         LDX   #$0000
         LDA   #$0000
         PHX
         PHA
         LDX   $EC
         LDA   $EA
         JSL   LC7E7
         BNE   LC568
         LDA   #$FFFF
         BRL   LC5EA
LC568    LDA   $FF
         CLC
         ADC   #$0001
         STA   [$EA]
         LDA   #$0000
         LDY   #$0002
         STA   [$EA],Y
         LDX   #$0000
         LDA   #$0000
         LDY   #$0006
         PHA
         TXA
         STA   [$EA],Y
         PLA
         LDY   #$0004
         STA   [$EA],Y
         PEI   $EC
         PEI   $EA
         PEA   $6400
         PEI   $FD
         PEI   $FB
         PEA   $0000
         TDC
         CLC
         ADC   #$00EE
         PHA
         JSL   LCF43
         TAY
         TSC
         CLC
         ADC   #$000E
         TCS
         TYA
         STA   $E6
         LDA   $E6
         CMP   #$0000
         BEQ   LC5BE
         LDA   #$0000
         STA   [$EA]
         LDA   #$FFFF
         BRA   LC5EA
LC5BE    LDX   #$0000
         LDA   #$0000
         PHX
         PHA
         LDY   #$0006
         LDA   [$EA],Y
         TAX
         LDY   #$0004
         LDA   [$EA],Y
         JSL   LC7E7
         BNE   LC5E8
         LDX   $F0
         LDA   $EE
         LDY   #$0006
         PHA
         TXA
         STA   [$EA],Y
         PLA
         LDY   #$0004
         STA   [$EA],Y
LC5E8    LDA   $E8
LC5EA    TAY
         TDC
         CLC
         ADC   #$00F5
         TCS
         TYA
         PLD
         RTL

LC5F4    PHD
         TSC
         SEC
         SBC   #$00F9
         TCD
         ADC   #$00F4
         TCS
         LDA   $FF
         AND   #$FFFF
         PHA
         JSL   LC435
         PLY
         TDC
         CLC
         ADC   #$00F9
         TCS
         PLD
         RTL

LC612    DB    $00
         DB    $00
LC614    DB    $00
         DB    $00
LC616    DB    $00
         DB    $00
LC618    DB    $00
         DB    $00
LC61A    DB    $00
         DB    $00
LC61C    DB    $00
         DB    $00
LC61E    DB    $00
         DB    $00
LC620    DB    $00
         DB    $00
LC622    DB    $00
         DB    $00
LC624    DB    $00
         DB    $00
         DB    $00
         DB    $00
LC628    DB    $00
         DB    $00
LC62A    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
LC634    DB    $00
         DB    $00
LC636    DB    $00
         DB    $00
LC638    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
LC63E    DB    $00
         DB    $00
LC640    DB    $00
         DB    $00
LC642    DB    $00
         DB    $00
LC644    DB    $00
         DB    $00
LC646    DB    $00
         DB    $00
LC648    DB    $00
         DB    $00
LC64A    DB    $00
         DB    $00
LC64C    DB    $00
         DB    $00
LC64E    DB    $00
         DB    $00
LC650    DB    $00
         DB    $00
LC652    DB    $00
         DB    $00
LC654    DB    $00
         DB    $00
LC656    DB    $00
         DB    $00
LC658    PHD
         TSC
         SEC
         SBC   #$00F7
         TCD
         ADC   #$00EE
         TCS
         LDY   #$0010
         LDA   [$FD],Y
         AND   #$0081
         CMP   #$0000
         BNE   LC676
         LDA   #$FFFF
         BRL   LC7DD
LC676    LDY   #$0010
         LDA   [$FD],Y
         ORA   #$0001
         LDY   #$0010
         STA   [$FD],Y
         LDY   #$0010
         LDA   [$FD],Y
         AND   #$0010
         TAY
         BEQ   LC694
         LDA   #$FFFF
         BRL   LC7DD
LC694    LDX   #$0000
         LDA   #$0000
         PHX
         PHA
         LDY   #$0008
         LDA   [$FD],Y
         TAX
         LDY   #$0006
         LDA   [$FD],Y
         JSL   LC7E7
         BNE   LC6B7
         PEI   $FF
         PEI   $FD
         JSL   LD16C
         PLY
         PLY
LC6B7    LDY   #$0010
         LDA   [$FD],Y
         AND   #$0100
         TAY
         BNE   LC6C5
         BRL   LC70F
LC6C5    LDA   #LC0FC
         LDX   #^LC0FC
         STX   $F2
         STA   $F0
         BRA   LC6F2
LC6D1    LDY   #$0010
         LDA   [$F0],Y
         AND   #$0102
         TAY
         BEQ   LC6E6
         PEI   $F2
         PEI   $F0
         JSL   LBDCA
         PLY
         PLY
LC6E6    LDA   $F0
         CLC
         ADC   #$0014
         STA   $F0
         BCC   LC6F2
         INC   $F2
LC6F2    SEC
         LDA   $F0
         SBC   LBAC1
         BNE   LC701
         LDA   $F2
         SBC   LBAC1+2
         BRA   LC708
LC701    LDA   $F2
         SBC   LBAC1+2
         REP   #$02
LC708    BVS   LC70D
         EOR   #$8000
LC70D    BPL   LC6D1
LC70F    LDY   #$0008
         LDA   [$FD],Y
         TAX
         LDY   #$0006
         LDA   [$FD],Y
         LDY   #$0004
         PHA
         TXA
         STA   [$FD],Y
         PLA
         LDY   #$0002
         STA   [$FD],Y
         LDY   #$0010
         LDA   [$FD],Y
         AND   #$0004
         TAY
         BEQ   LC737
         LDA   #$0001
         BRA   LC73C
LC737    LDY   #$000E
         LDA   [$FD],Y
LC73C    PHA
         LDY   #$0008
         LDA   [$FD],Y
         TAX
         LDY   #$0006
         LDA   [$FD],Y
         PHX
         PHA
         LDY   #$0012
         LDA   [$FD],Y
         PHA
         JSL   LD70B
         PLY
         PLY
         PLY
         PLY
         STA   [$FD]
         LDA   [$FD]
         DEC
         STA   [$FD]
         SEC
         SBC   #$0000
         BVS   LC768
         EOR   #$8000
LC768    BPL   LC79A
         LDY   #$0004
         LDA   [$FD],Y
         TAX
         LDY   #$0002
         LDA   [$FD],Y
         PHX
         PHA
         CLC
         ADC   #$0001
         LDY   #$0002
         STA   [$FD],Y
         LDY   #$0004
         LDA   [$FD],Y
         BCC   LC788
         INC
LC788    LDY   #$0004
         STA   [$FD],Y
         PLA
         PLX
         STA   $F4
         STX   $F6
         LDA   [$F4]
         AND   #$00FF
         BRA   LC7DD
LC79A    LDA   [$FD]
         CMP   #$FFFF
         BNE   LC7C8
         LDY   #$0010
         LDA   [$FD],Y
         ORA   #$0010
         LDY   #$0010
         STA   [$FD],Y
         LDY   #$0010
         LDA   [$FD],Y
         AND   #$0080
         TAY
         BEQ   LC7C6
         LDY   #$0010
         LDA   [$FD],Y
         AND   #$FFFE
         LDY   #$0010
         STA   [$FD],Y
LC7C6    BRA   LC7D5
LC7C8    LDY   #$0010
         LDA   [$FD],Y
         ORA   #$0020
         LDY   #$0010
         STA   [$FD],Y
LC7D5    LDA   #$0000
         STA   [$FD]
         LDA   #$FFFF
LC7DD    TAY
         TDC
         CLC
         ADC   #$00F7
         TCS
         TYA
         PLD
         RTL

LC7E7    PHX
         PHA
         LDA   $08,S
         TAX
         LDA   $0A,S
         TAY
         LDA   $06,S
         STA   $0A,S
         LDA   $04,S
         STA   $08,S
         TXA
         SEC
         SBC   $01,S
         BNE   LC802
         TYA
         SBC   $03,S
         BRA   LC807
LC802    TYA
         SBC   $03,S
         REP   #$02
LC807    PHP
         LDA   $00,S
         STA   $08,S
         PLY
         PLY
         PLY
         PLY
         PLP
         RTL

LC812    PHD
         TSC
         SEC
         SBC   #$00F1
         TCD
         ADC   #$00E8
         TCS
         LDX   $FB
         LDA   $F9
         STX   $EC
         STA   $EA
LC825    LDA   $F7
         CMP   #$0001
         BEQ   LC850
         BCC   LC850
         LDA   [$FD]
         STA   [$F9]
         LDA   $F9
         CLC
         ADC   #$0002
         STA   $F9
         BCC   LC83E
         INC   $FB
LC83E    LDA   $FD
         CLC
         ADC   #$0002
         STA   $FD
         BCC   LC84A
         INC   $FF
LC84A    DEC   $F7
         DEC   $F7
         BRA   LC825
LC850    LDA   $F7
         BEQ   LC85C
         SEP   #$20
         LDA   [$FD]
         STA   [$F9]
         REP   #$20
LC85C    LDX   $EC
         LDA   $EA
         STX   $FF
         STA   $FD
         TDC
         CLC
         ADC   #$00F1
         TCS
         PLD
         RTL

LC86C    PHD
         TSC
         SEC
         SBC   #$00F7
         TCD
         ADC   #$00E8
         TCS
         LDAL  LB858
         CMP   #$0000
         BNE   LC884
         JSL   LCB65
LC884    LDAL  LB858
         PHA
         LDA   #$0012
         SEC
         JSL   LBEC0
         PLY
         SEC
         SBC   #$0001
         STA   $F2
         LDA   [$FD]
         SEC
         SBC   #$0000
         BVS   LC8A3
         EOR   #$8000
LC8A3    BPL   LC8A9
         LDA   [$FD]
         BRA   LC8B5
LC8A9    LDA   [$FD]
         PHA
         LDA   #$FFFF
         PLX
         STX   $F4
         SEC
         SBC   $F4
LC8B5    SEC
         SBC   $F2
         BEQ   LC8D6
         BVS   LC8BF
         EOR   #$8000
LC8BF    BPL   LC8D6
         PEA   $0000
         PEA   $0016
         JSL   LCB3B
         PLY
         PLY
         LDX   #$0000
         LDA   #$0000
         BRL   LCAC0
LC8D6    LDA   [$FD]
         SEC
         SBC   #$0000
         BVS   LC8E1
         EOR   #$8000
LC8E1    BPL   LC92C
         LDA   [$FD]
         PHA
         LDA   #$0012
         CLC
         JSL   LC030
         LDAL  LB85C
         TAX
         LDAL  LB85A
         STA   $F4
         STX   $F6
         PLA
         TAY
         BPL   LC901
         DEC   $F6
LC901    CLC
         ADC   $F4
         STA   $F4
         BCC   LC90A
         INC   $F6
LC90A    LDA   $F4
         LDX   $F6
         STX   $F0
         STA   $EE
         LDA   [$EE]
         CMP   #$0000
         BNE   LC929
         PEA   $0000
         PEA   $0009
         JSL   LCB3B
         PLY
         PLY
         STZ   $EE
         STZ   $F0
LC929    BRL   LCABC
LC92C    LDA   [$FD]
         PHA
         LDA   #$FFFF
         PLX
         STX   $F4
         SEC
         SBC   $F4
         PHA
         LDA   #$0012
         CLC
         JSL   LC030
         LDAL  LB85C
         TAX
         LDAL  LB85A
         STA   $F4
         STX   $F6
         PLA
         TAY
         BPL   LC954
         DEC   $F6
LC954    CLC
         ADC   $F4
         STA   $F4
         BCC   LC95D
         INC   $F6
LC95D    LDA   $F4
         LDX   $F6
         STX   $F0
         STA   $EE
         BRA   LC97C
LC967    LDA   [$EE]
         CMP   #$0000
         BNE   LC970
         BRA   LC9B8
LC970    LDA   $EE
         CLC
         ADC   #$0012
         STA   $EE
         BCC   LC97C
         INC   $F0
LC97C    LDA   $F2
         PHA
         LDA   #$0012
         CLC
         JSL   LC030
         LDAL  LB85C
         TAX
         LDAL  LB85A
         STA   $F4
         STX   $F6
         PLA
         TAY
         BPL   LC99A
         DEC   $F6
LC99A    CLC
         ADC   $F4
         STA   $F4
         BCC   LC9A3
         INC   $F6
LC9A3    LDA   $F4
         LDX   $F6
         PHX
         PHA
         LDX   $F0
         LDA   $EE
         JSL   LC7E7
         BVS   LC9B6
         EOR   #$8000
LC9B6    BMI   LC967
LC9B8    LDA   $F2
         PHA
         LDA   #$0012
         CLC
         JSL   LC030
         LDAL  LB85C
         TAX
         LDAL  LB85A
         STA   $F4
         STX   $F6
         PLA
         TAY
         BPL   LC9D6
         DEC   $F6
LC9D6    CLC
         ADC   $F4
         STA   $F4
         BCC   LC9DF
         INC   $F6
LC9DF    LDA   $F4
         LDX   $F6
         PHX
         PHA
         LDX   $F0
         LDA   $EE
         JSL   LC7E7
         BVS   LC9F2
         EOR   #$8000
LC9F2    BPL   LC9F7
         BRL   LCA92
LC9F7    LDAL  LB858
         CLC
         ADC   #$00B4
         LDX   #$0000
         TAY
         BPL   LCA06
         DEX
LCA06    PHX
         PHA
         LDAL  LB85C
         TAX
         LDAL  LB85A
         PHX
         PHA
         JSL   LD837
         PLY
         PLY
         PLY
         PLY
         STX   $EC
         STA   $EA
         LDX   #$0000
         LDA   #$0000
         PHX
         PHA
         LDX   $EC
         LDA   $EA
         JSL   LC7E7
         BNE   LCA46
         PEA   $0000
         PEA   $0018
         JSL   LCB3B
         PLY
         PLY
         LDX   #$0000
         LDA   #$0000
         BRL   LCAC0
LCA46    LDA   $F2
         PHA
         LDA   #$0012
         CLC
         JSL   LC030
         LDX   $EC
         LDA   $EA
         STA   $F4
         STX   $F6
         PLA
         TAY
         BPL   LCA5F
         DEC   $F6
LCA5F    CLC
         ADC   $F4
         STA   $F4
         BCC   LCA68
         INC   $F6
LCA68    LDX   $F6
         LDA   #$0012
         CLC
         ADC   $F4
         BCC   LCA73
         INX
LCA73    STX   $F0
         STA   $EE
         LDAL  LB858
         CLC
         ADC   #$00B4
         STAL  LB858
         LDX   $EC
         LDA   $EA
         PHA
         TXA
         STAL  LB85C
         PLA
         STAL  LB85A
LCA92    LDAL  LB85C
         TAX
         LDAL  LB85A
         STA   $F4
         STX   $F6
         LDA   $F4
         LDX   $F6
         PHX
         PHA
         LDX   $F0
         LDA   $EE
         JSL   LC025
         LDX   #$0000
         LDA   #$0012
         SEC
         JSL   LBF2F
         PLY
         PLY
         STA   [$FD]
LCABC    LDX   $F0
         LDA   $EE
LCAC0    TAY
         TDC
         CLC
         ADC   #$00F7
         TCS
         TYA
         PLD
         RTL

LCACA    PHD
         TSC
         SEC
         SBC   #$00F9
         TCD
         ADC   #$00F4
         TCS
         PEA   $0001
         PEA   ^L017C
         PEA   L017C
         JSL   LCB08
         PLY
         PLY
         PLY
         TDC
         CLC
         ADC   #$00F9
         TCS
         PLD
         RTL

LCAED    LDA   $04,S
         STAL  LCB01
         LDA   $06,S
         STAL  LCB01+2
         LDA   $08,S
         JSL   GSOS
         DW    $0029
LCB01    ADRL  $00000000
         RTL

LCB06    BRK   $00
LCB08    TSC
         TCD
         LDA   [$04]
         TAX
         LDA   $04,S
         TAY
         LDA   $06,S
         TCD
         LDA   $08,S
         TXS
         PHA
         PHA
         PHD
         PHY
         TSC
         TCD
         LDY   #$0002
         LDA   [$01],Y
         TAX
         INY
         INY
         LDA   [$01],Y
         STA   $08,S
         INY
         INY
         LDA   [$01],Y
         STA   $0A,S
         PLA
         PLA
         PLA
         PLY
         CMP   #$0000
         BNE   LCB38
         INC
LCB38    PHX
         PLD
         RTL

LCB3B    PHD
         TSC
         SEC
         SBC   #$00F7
         TCD
         ADC   #$00F2
         TCS
         LDA   $FF
         CMP   #$0000
         BNE   LCB51
         LDA   $FD
         BRA   LCB58
LCB51    PEI   $FF
         JSL   LD538
         PLY
LCB58    STA   LCF41
         TAY
         TDC
         CLC
         ADC   #$00F7
         TCS
         TYA
         PLD
         RTL

LCB65    PHD
         TSC
         SEC
         SBC   #$00FB
         TCD
         ADC   #$00F0
         TCS
         LDA   #$00B4
         STAL  LB858
         PEA   $0000
         PEA   $00B4
         PEA   $0000
         PEA   $0000
         JSL   LD837
         PLY
         PLY
         PLY
         PLY
         PHA
         TXA
         STAL  LB85C
         PLA
         STAL  LB85A
         LDX   #$0000
         LDA   #$0000
         PHX
         PHA
         LDAL  LB864
         TAX
         LDAL  LB862
         JSL   LC7E7
         BNE   LCBB0
         BRL   LCC70
LCBB0    LDAL  LB864
         TAX
         LDAL  LB862
         STA   $F8
         STX   $FA
         LDY   #$001A
         LDA   [$F8],Y
         TAX
         LDY   #$0018
         LDA   [$F8],Y
         PHX
         PHA
         LDAL  LB85C
         TAX
         LDAL  LB85A
         PHX
         PHA
         PEA   $0000
         PEA   $0036
         _BlockMove
         STAL  L013C
         LDAL  LB85C
         TAX
         LDAL  LB85A
         STA   $F8
         STX   $FA
         LDA   $F8
         LDX   $FA
         STX   $F6
         STA   $F4
         BRA   LCC44
LCBFD    LDA   [$F4]
         CMP   #$0000
         BEQ   LCC38
         PEA   $0000
         PEA   $6601
         PEI   $F6
         PEI   $F4
         LDY   #$0006
         LDA   [$F4],Y
         TAX
         LDY   #$0004
         LDA   [$F4],Y
         STA   $F8
         STX   $FA
         LDY   #$0016
         LDA   [$F8],Y
         TAX
         LDY   #$0014
         LDA   [$F8],Y
         STA   $F8
         STX   $FA
         LDA   $F8
         LDX   $FA
         JSL   LC525
         PLY
         PLY
         PLY
         PLY
LCC38    LDA   $F4
         CLC
         ADC   #$0012
         STA   $F4
         BCC   LCC44
         INC   $F6
LCC44    LDAL  LB85C
         TAX
         LDAL  LB85A
         STA   $F8
         STX   $FA
         LDX   $FA
         LDA   #$0024
         CLC
         ADC   $F8
         BCC   LCC5C
         INX
LCC5C    PHX
         PHA
         LDX   $F6
         LDA   $F4
         JSL   LC7E7
         BVS   LCC6B
         EOR   #$8000
LCC6B    BMI   LCBFD
         BRL   LCE3E
LCC70    PEA   $0000
         PEA   ^LD36E
         PEA   LD36E
         JSL   LC52D
         PLY
         PLY
         PLY
         STA   $F2
         PEA   $0000
         TDC
         CLC
         ADC   #$00F2
         PHA
         JSL   LC86C
         PLY
         PLY
         STX   $F6
         STA   $F4
         PHX
         PHA
         PEA   $0000
         PEA   $0004
         LDA   L013E
         ORA   #$0F00
         PHA
         PEA   $8300
         PEA   $0000
         PEA   $0000
         _NewHandle
         STAL  L013C
         PLA
         PLX
         LDY   #$000A
         PHA
         TXA
         STA   [$F4],Y
         PLA
         LDY   #$0008
         STA   [$F4],Y
         LDY   #$000A
         LDA   [$F4],Y
         TAX
         LDY   #$0008
         LDA   [$F4],Y
         STA   $F8
         STX   $FA
         LDY   #$0002
         LDA   [$F8],Y
         TAX
         LDA   [$F8]
         STA   $F8
         STX   $FA
         LDA   #$0000
         STA   [$F8]
         LDY   #$000A
         LDA   [$F4],Y
         TAX
         LDY   #$0008
         LDA   [$F4],Y
         STA   $F8
         STX   $FA
         LDY   #$0002
         LDA   [$F8],Y
         TAX
         LDA   [$F8]
         STA   $F8
         STX   $FA
         LDA   #$0000
         LDY   #$0002
         STA   [$F8],Y
         PEA   $0001
         PEA   ^LD377
         PEA   LD377
         JSL   LC52D
         PLY
         PLY
         PLY
         STA   $F2
         PEA   $0000
         TDC
         CLC
         ADC   #$00F2
         PHA
         JSL   LC86C
         PLY
         PLY
         STX   $F6
         STA   $F4
         PHX
         PHA
         PEA   $0000
         PEA   $0004
         LDA   L013E
         ORA   #$0F00
         PHA
         PEA   $8300
         PEA   $0000
         PEA   $0000
         _NewHandle
         STAL  L013C
         PLA
         PLX
         LDY   #$000A
         PHA
         TXA
         STA   [$F4],Y
         PLA
         LDY   #$0008
         STA   [$F4],Y
         LDY   #$000A
         LDA   [$F4],Y
         TAX
         LDY   #$0008
         LDA   [$F4],Y
         STA   $F8
         STX   $FA
         LDY   #$0002
         LDA   [$F8],Y
         TAX
         LDA   [$F8]
         STA   $F8
         STX   $FA
         LDA   #$0000
         STA   [$F8]
         LDY   #$000A
         LDA   [$F4],Y
         TAX
         LDY   #$0008
         LDA   [$F4],Y
         STA   $F8
         STX   $FA
         LDY   #$0002
         LDA   [$F8],Y
         TAX
         LDA   [$F8]
         STA   $F8
         STX   $FA
         LDA   #$0001
         LDY   #$0002
         STA   [$F8],Y
         PEA   $0001
         PEA   ^LD380
         PEA   LD380
         JSL   LC52D
         PLY
         PLY
         PLY
         STA   $F2
         PEA   $0000
         TDC
         CLC
         ADC   #$00F2
         PHA
         JSL   LC86C
         PLY
         PLY
         STX   $F6
         STA   $F4
         PHX
         PHA
         PEA   $0000
         PEA   $0004
         LDA   L013E
         ORA   #$0F00
         PHA
         PEA   $8300
         PEA   $0000
         PEA   $0000
         _NewHandle
         STAL  L013C
         PLA
         PLX
         LDY   #$000A
         PHA
         TXA
         STA   [$F4],Y
         PLA
         LDY   #$0008
         STA   [$F4],Y
         LDY   #$000A
         LDA   [$F4],Y
         TAX
         LDY   #$0008
         LDA   [$F4],Y
         STA   $F8
         STX   $FA
         LDY   #$0002
         LDA   [$F8],Y
         TAX
         LDA   [$F8]
         STA   $F8
         STX   $FA
         LDA   #$0000
         STA   [$F8]
         LDY   #$000A
         LDA   [$F4],Y
         TAX
         LDY   #$0008
         LDA   [$F4],Y
         STA   $F8
         STX   $FA
         LDY   #$0002
         LDA   [$F8],Y
         TAX
         LDA   [$F8]
         STA   $F8
         STX   $FA
         LDA   #$0002
         LDY   #$0002
         STA   [$F8],Y
LCE3E    LDA   #LD128
         LDX   #^LD128
         PHX
         PHA
         LDAL  LB854+2
         TAX
         LDAL  LB854
         STA   $F8
         STX   $FA
         PLA
         PLX
         LDY   #$000A
         PHA
         TXA
         STA   [$F8],Y
         PLA
         LDY   #$0008
         STA   [$F8],Y
         LDX   #$0000
         LDA   #$0000
         PHX
         PHA
         LDAL  LB852
         TAX
         LDAL  LB850
         JSL   LC7E7
         BNE   LCE8A
         LDA   #LD7F1
         LDX   #^LD7F1
         PHA
         TXA
         STAL  LB852
         PLA
         STAL  LB850
LCE8A    TAY
         TDC
         CLC
         ADC   #$00FB
         TCS
         TYA
         PLD
         RTL

LCE94    PHD
         TSC
         SEC
         SBC   #$00F9
         TCD
         ADC   #$00EE
         TCS
         LDA   $FF
         SEC
         SBC   #$0000
         BVS   LCEAA
         EOR   #$8000
LCEAA    BMI   LCEBD
         PEA   $0000
         PEA   $0016
         JSL   LCB3B
         PLY
         PLY
         LDA   #$FFFF
         BRA   LCF37
LCEBD    PEA   $0000
         TDC
         CLC
         ADC   #$00FF
         PHA
         JSL   LC86C
         PLY
         PLY
         STX   $F4
         STA   $F2
         LDX   #$0000
         LDA   #$0000
         PHX
         PHA
         LDX   $F4
         LDA   $F2
         JSL   LC7E7
         BNE   LCEE7
         LDA   #$FFFF
         BRA   LCF37
LCEE7    PEI   $F4
         PEI   $F2
         LDY   #$0006
         LDA   [$F2],Y
         TAX
         LDY   #$0004
         LDA   [$F2],Y
         STA   $F6
         STX   $F8
         LDY   #$000A
         LDA   [$F6],Y
         TAX
         LDY   #$0008
         LDA   [$F6],Y
         STA   $F6
         STX   $F8
         LDA   $F6
         LDX   $F8
         JSL   LC525
         PLY
         PLY
         STA   $F0
         LDA   #$0000
         STA   [$F2]
         LDA   $F0
         CMP   #$0000
         BEQ   LCF34
         LDY   #$0002
         LDA   [$F2],Y
         PHA
         PEI   $F0
         JSL   LCB3B
         PLY
         PLY
         LDA   #$FFFF
         BRA   LCF37
LCF34    LDA   #$0000
LCF37    TAY
         TDC
         CLC
         ADC   #$00F9
         TCS
         TYA
         PLD
         RTL

LCF41    BRK   $00
LCF43    PHD
         TSC
         SEC
         SBC   #$00ED
         TCD
         ADC   #$00E0
         TCS
         LDA   [$F7]
         AND   #$00FF
         CMP   #$0000
         BEQ   LCF5D
         LDA   #$0000
         BRA   LCF60
LCF5D    LDA   #$0001
LCF60    PHA
         LDX   #$0000
         LDA   #$0000
         PHX
         PHA
         LDX   $F9
         LDA   $F7
         JSL   LC7E7
         BEQ   LCF78
         LDA   #$0000
         BRA   LCF7B
LCF78    LDA   #$0001
LCF7B    PLX
         STX   $EA
         ORA   $EA
         TAY
         BEQ   LCF95
         PEA   $0000
         PEA   $0016
         JSL   LCB3B
         PLY
         PLY
         LDA   #$FFFF
         BRL   LD11E
LCF95    LDX   #$0000
         LDA   #$0000
         PHX
         PHA
         LDAL  LB860
         TAX
         LDAL  LB85E
         JSL   LC7E7
         BNE   LCFBD
         LDA   #LD9F6
         LDX   #^LD9F6
         PHA
         TXA
         STAL  LB860
         PLA
         STAL  LB85E
LCFBD    LDAL  LB860
         TAX
         LDAL  LB85E
         STA   $EA
         STX   $EC
         LDA   $EA
         LDX   $EC
         STX   $E4
         STA   $E2
         BRA   LCFFB
LCFD4    LDX   #$0000
         LDA   #$0000
         PHX
         PHA
         LDY   #$0006
         LDA   [$E2],Y
         TAX
         LDY   #$0004
         LDA   [$E2],Y
         JSL   LC7E7
         BNE   LCFEF
         BRA   LD026
LCFEF    LDA   $E2
         CLC
         ADC   #$0018
         STA   $E2
         BCC   LCFFB
         INC   $E4
LCFFB    LDAL  LB860
         TAX
         LDAL  LB85E
         STA   $EA
         STX   $EC
         LDX   $EC
         LDA   #$0078
         CLC
         ADC   $EA
         BCC   LD013
         INX
LD013    PHX
         PHA
         LDX   $E4
         LDA   $E2
         JSL   LC7E7
         BEQ   LD026
         BVS   LD024
         EOR   #$8000
LD024    BMI   LCFD4
LD026    LDA   #$4006
         STA   $E8
LD02B    LDAL  LB860
         TAX
         LDAL  LB85E
         STA   $EA
         STX   $EC
         LDA   $EA
         LDX   $EC
         PHX
         PHA
         LDX   $E4
         LDA   $E2
         SEC
         SBC   #$0018
         STA   $E2
         PHA
         LDA   $E4
         SBC   #$0000
         TAX
         STA   $E4
         PLA
         JSL   LC7E7
         BEQ   LD05F
         BVS   LD05D
         EOR   #$8000
LD05D    BMI   LD098
LD05F    PEI   $FF
         PEI   $FD
         PEI   $FB
         PEI   $F9
         PEI   $F7
         LDY   #$0006
         LDA   [$E2],Y
         TAX
         LDY   #$0004
         LDA   [$E2],Y
         STA   $EA
         STX   $EC
         LDA   $EA
         LDX   $EC
         JSL   LC525
         PLY
         PLY
         PLY
         PLY
         PLY
         STA   $E8
         LDA   $E8
         SEC
         SBC   #$0000
         BVS   LD092
         EOR   #$8000
LD092    BPL   LD096
         BRA   LD098
LD096    BRA   LD02B
LD098    LDX   #$0000
         LDA   #$0000
         PHX
         PHA
         LDX   $F5
         LDA   $F3
         JSL   LC7E7
         BEQ   LD0DC
         LDAL  LB860
         TAX
         LDAL  LB85E
         STA   $EA
         STX   $EC
         LDA   $EA
         LDX   $EC
         PHX
         PHA
         LDX   $E4
         LDA   $E2
         JSL   LC7E7
         BEQ   LD0CE
         BVS   LD0CC
         EOR   #$8000
LD0CC    BMI   LD0DC
LD0CE    LDX   $E4
         LDA   $E2
         LDY   #$0002
         PHA
         TXA
         STA   [$F3],Y
         PLA
         STA   [$F3]
LD0DC    LDA   $E8
         AND   #$4000
         CMP   #$0000
         BNE   LD0EA
         LDA   $E8
         BRA   LD11E
LD0EA    LDA   $E8
         STA   $E6
         LDA   $E6
         AND   #$8000
         TAY
         BEQ   LD108
         LDA   $E6
         AND   #$BFFF
         STA   $E6
         LDA   $E6
         AND   #$7FFF
         STA   $E6
         STZ   $E8
         BRA   LD111
LD108    LDA   $E8
         AND   #$BFFF
         STA   $E8
         STZ   $E6
LD111    PEI   $E6
         PEI   $E8
         JSL   LCB3B
         PLY
         PLY
         LDA   #$FFFF
LD11E    TAY
         TDC
         CLC
         ADC   #$00ED
         TCS
         TYA
         PLD
         RTL

LD128    PHD
         TSC
         SEC
         SBC   #$00F9
         TCD
         ADC   #$00F0
         TCS
         LDAL  LB858
         PHA
         LDA   #$0012
         SEC
         JSL   LBEC0
         PLY
         SEC
         SBC   #$0001
         STA   $F2
         STZ   $F4
         BRA   LD154
LD14B    PEI   $F4
         JSL   LCE94
         PLY
         INC   $F4
LD154    LDA   $F4
         SEC
         SBC   $F2
         BEQ   LD14B
         BVS   LD160
         EOR   #$8000
LD160    BPL   LD14B
         TAY
         TDC
         CLC
         ADC   #$00F9
         TCS
         TYA
         PLD
         RTL

LD16C    PHD
         TSC
         SEC
         SBC   #$00F7
         TCD
         ADC   #$00EC
         TCS
         LDA   LCF41
         STA   $F2
         LDA   L013C
         STA   $F0
         LDA   LD835
         BEQ   LD195
         STZ   LD835
         PEA   ^LD389
         PEA   LD389
         JSL   LD64D
         PLY
         PLY
LD195    LDY   #$0010
         LDA   [$FD],Y
         AND   #$0004
         TAY
         BEQ   LD1BE
         LDA   #$0000
         LDY   #$000E
         STA   [$FD],Y
         LDX   #$0000
         LDA   #$0000
         LDY   #$0008
         PHA
         TXA
         STA   [$FD],Y
         PLA
         LDY   #$0006
         STA   [$FD],Y
         BRL   LD2EF
LD1BE    LDY   #$000E
         LDA   [$FD],Y
         CMP   #$0000
         BNE   LD226
         LDX   #$0000
         LDA   #$0000
         LDY   #$0008
         PHA
         TXA
         STA   [$FD],Y
         PLA
         LDY   #$0006
         STA   [$FD],Y
         LDY   #$0010
         LDA   [$FD],Y
         AND   #$0040
         TAY
         BEQ   LD1F0
         LDA   #$0064
         LDY   #$000E
         STA   [$FD],Y
         BRA   LD226
LD1F0    PEA   $0000
         TDC
         CLC
         ADC   #$00EE
         PHA
         PEA   $6603
         LDY   #$0012
         LDA   [$FD],Y
         PHA
         JSL   LB24F
         PLY
         PLY
         PLY
         PLY
         SEC
         SBC   #$0000
         BVS   LD213
         EOR   #$8000
LD213    BPL   LD21E
         LDA   $EE
         LDY   #$000E
         STA   [$FD],Y
         BRA   LD226
LD21E    LDA   #$0400
         LDY   #$000E
         STA   [$FD],Y
LD226    LDX   #$0000
         LDA   #$0000
         PHX
         PHA
         LDY   #$0008
         LDA   [$FD],Y
         TAX
         LDY   #$0006
         LDA   [$FD],Y
         JSL   LC7E7
         BEQ   LD242
         BRL   LD2EF
LD242    LDY   #$000E
         LDA   [$FD],Y
         LDX   #$0000
         PHX
         PHA
         JSL   LBB97
         PLY
         PLY
         LDY   #$0008
         PHA
         TXA
         STA   [$FD],Y
         PLA
         LDY   #$0006
         STA   [$FD],Y
         LDX   #$0000
         LDA   #$0000
         PHX
         PHA
         LDY   #$0008
         LDA   [$FD],Y
         TAX
         LDY   #$0006
         LDA   [$FD],Y
         JSL   LC7E7
         BNE   LD2BA
         LDY   #$000E
         LDA   [$FD],Y
         CMP   #$0064
         BEQ   LD2BA
         BCC   LD2BA
         LDY   #$000E
         LDA   [$FD],Y
         CMP   #$0400
         BEQ   LD295
         BCC   LD295
         LDA   #$0400
         BRA   LD298
LD295    LDA   #$0064
LD298    LDY   #$000E
         STA   [$FD],Y
         LDY   #$000E
         LDA   [$FD],Y
         LDX   #$0000
         PHX
         PHA
         JSL   LBB97
         PLY
         PLY
         LDY   #$0008
         PHA
         TXA
         STA   [$FD],Y
         PLA
         LDY   #$0006
         STA   [$FD],Y
LD2BA    LDX   #$0000
         LDA   #$0000
         PHX
         PHA
         LDY   #$0008
         LDA   [$FD],Y
         TAX
         LDY   #$0006
         LDA   [$FD],Y
         JSL   LC7E7
         BEQ   LD2E2
         LDY   #$0010
         LDA   [$FD],Y
         ORA   #$0008
         LDY   #$0010
         STA   [$FD],Y
         BRA   LD2EF
LD2E2    LDY   #$0010
         LDA   [$FD],Y
         ORA   #$0004
         LDY   #$0010
         STA   [$FD],Y
LD2EF    LDY   #$000E
         LDA   [$FD],Y
         LDX   #$0000
         PHX
         PHA
         LDY   #$0008
         LDA   [$FD],Y
         TAX
         LDY   #$0006
         LDA   [$FD],Y
         JSL   LBCDB
         PLA
         PLX
         LDY   #$000C
         PHA
         TXA
         STA   [$FD],Y
         PLA
         LDY   #$000A
         STA   [$FD],Y
         LDY   #$0008
         LDA   [$FD],Y
         TAX
         LDY   #$0006
         LDA   [$FD],Y
         LDY   #$0004
         PHA
         TXA
         STA   [$FD],Y
         PLA
         LDY   #$0002
         STA   [$FD],Y
         PEA   $0000
         PEA   $6602
         LDY   #$0012
         LDA   [$FD],Y
         PHA
         JSL   LB24F
         PLY
         PLY
         PLY
         SEC
         SBC   #$0000
         BVS   LD34B
         EOR   #$8000
LD34B    BPL   LD35A
         LDY   #$0010
         LDA   [$FD],Y
         ORA   #$0100
         LDY   #$0010
         STA   [$FD],Y
LD35A    LDA   $F2
         STA   LCF41
         LDA   $F0
         STA   L013C
         TAY
         TDC
         CLC
         ADC   #$00F7
         TCS
         TYA
         PLD
         RTL

LD36E    ROL   $6F63
         ROR   $6F73
         JMP   ($0065)

LD377    ROL   $6F63
         ROR   $6F73
         JMP   ($0065)

LD380    ROL   $6F63
         ROR   $6F73
         JMP   ($0065)

LD389    PHD
         TSC
         SEC
         SBC   #$00FB
         TCD
         ADC   #$00F2
         TCS
         LDA   #LC0FC
         LDX   #^LC0FC
         STX   $F6
         STA   $F4
         BRA   LD3B6
LD3A0    PEI   $F6
         PEI   $F4
         JSL   LBCE6
         PLY
         PLY
         LDA   $F4
         CLC
         ADC   #$0014
         STA   $F4
         BCC   LD3B6
         INC   $F6
LD3B6    SEC
         LDA   $F4
         SBC   LBAC1
         BNE   LD3C5
         LDA   $F6
         SBC   LBAC1+2
         BRA   LD3CC
LD3C5    LDA   $F6
         SBC   LBAC1+2
         REP   #$02
LD3CC    BVS   LD3D1
         EOR   #$8000
LD3D1    BPL   LD3A0
         TAY
         TDC
         CLC
         ADC   #$00FB
         TCS
         TYA
         PLD
         RTL

LD3DD    PHD
         TSC
         SEC
         SBC   #$00F7
         TCD
         ADC   #$00EC
         TCS
         LDY   #$0008
         LDA   [$FD],Y
         TAX
         LDY   #$0006
         LDA   [$FD],Y
         STX   $F2
         STA   $F0
         PHX
         PHA
         LDY   #$0004
         LDA   [$FD],Y
         TAX
         LDY   #$0002
         LDA   [$FD],Y
         JSL   LC025
         PLA
         PLX
         STA   $EE
         LDX   $F2
         LDA   $F0
         LDY   #$0004
         PHA
         TXA
         STA   [$FD],Y
         PLA
         LDY   #$0002
         STA   [$FD],Y
         LDY   #$0010
         LDA   [$FD],Y
         AND   #$0044
         TAY
         BEQ   LD42D
         LDA   #$0000
         BRA   LD432
LD42D    LDY   #$000E
         LDA   [$FD],Y
LD432    STA   [$FD]
         LDY   #$0004
         LDA   [$FD],Y
         TAX
         LDY   #$0002
         LDA   [$FD],Y
         PHX
         PHA
         LDY   #$000C
         LDA   [$FD],Y
         TAX
         LDY   #$000A
         LDA   [$FD],Y
         JSL   LC025
         PLA
         PLX
         PHA
         LDA   [$FD]
         SEC
         SBC   #$0000
         BVS   LD45E
         EOR   #$8000
LD45E    BMI   LD465
         LDA   #$0000
         BRA   LD467
LD465    LDA   [$FD]
LD467    PLX
         STX   $F4
         SEC
         SBC   $F4
         BEQ   LD480
         BVS   LD474
         EOR   #$8000
LD474    BPL   LD480
         PEI   $FF
         PEI   $FD
         JSL   LBAC5
         PLY
         PLY
LD480    LDA   $EE
         SEC
         SBC   #$0000
         BEQ   LD4BA
         BVS   LD48D
         EOR   #$8000
LD48D    BPL   LD4BA
         LDA   $EE
         PHA
         PEI   $F2
         PEI   $F0
         LDY   #$0012
         LDA   [$FD],Y
         PHA
         JSL   LDA86
         PLY
         PLY
         PLY
         PLY
         CMP   $EE
         BEQ   LD4BA
         LDY   #$0010
         LDA   [$FD],Y
         ORA   #$0020
         LDY   #$0010
         STA   [$FD],Y
         LDA   #$FFFF
         BRA   LD4BD
LD4BA    LDA   #$0000
LD4BD    TAY
         TDC
         CLC
         ADC   #$00F7
         TCS
         TYA
         PLD
         RTL

LD4C7    PHD
         TSC
         SEC
         SBC   #$00F7
         TCD
         ADC   #$00EC
         TCS
         LDX   $FF
         LDA   $FD
         STX   $F4
         ORA   $F4
         BEQ   LD530
         LDX   $FF
         LDA   $FD
         INC   $FD
         BNE   LD4E6
         INC   $FF
LD4E6    STX   $F0
         STA   $EE
         STA   $F4
         STX   $F6
         LDA   [$F4]
         AND   #$00FF
         STA   $F2
         BRA   LD520
LD4F7    LDX   $FF
         LDA   $FD
         INC   $FD
         BNE   LD501
         INC   $FF
LD501    STA   $F4
         STX   $F6
         LDA   [$F4]
         AND   #$00FF
         PHA
         LDX   $F0
         LDA   $EE
         INC   $EE
         BNE   LD515
         INC   $F0
LD515    STA   $F4
         STX   $F6
         PLA
         SEP   #$20
         STA   [$F4]
         REP   #$20
LD520    LDA   $F2
         DEC   $F2
         TAY
         BNE   LD4F7
         LDA   #$0000
         SEP   #$20
         STA   [$EE]
         REP   #$20
LD530    TDC
         CLC
         ADC   #$00F7
         TCS
         PLD
         RTL

LD538    PHD
         TSC
         SEC
         SBC   #$00F9
         TCD
         ADC   #$00F2
         TCS
         STZ   $F4
         LDA   $FF
         BRL   LD62E
LD54A    BRL   LD641
LD54D    LDA   #$0014
         STA   $F4
         BRL   LD641
LD555    LDA   #$000E
         STA   $F4
         BRL   LD641
LD55D    LDA   #$001C
         STA   $F4
         BRL   LD641
LD565    LDA   #$0011
         STA   $F4
         BRL   LD641
LD56D    LDA   #$0006
         STA   $F4
         BRL   LD641
LD575    LDA   #$0006
         STA   $F4
         BRL   LD641
LD57D    LDA   #$0010
         STA   $F4
         BRL   LD641
LD585    LDA   #$0002
         STA   $F4
         BRL   LD641
LD58D    LDA   #$0009
         STA   $F4
         BRL   LD641
LD595    LDA   #$0005
         STA   $F4
         BRL   LD641
LD59D    LDA   #$0017
         STA   $F4
         BRL   LD641
LD5A5    LDA   #$000C
         STA   $F4
         BRL   LD641
LD5AD    LDA   #$001A
         STA   $F4
         BRL   LD641
LD5B5    LDA   #$0016
         STA   $F4
         BRL   LD641
LD5BD    LDA   #$000D
         STA   $F4
         BRL   LD641
LD5C5    LDA   #$001E
         STA   $F4
         BRL   LD641
         BRL   LD641
LD5D0    DA    LD54A
         DA    LD595
         DA    LD5C5
         DA    LD555
         DA    LD59D
         DA    LD58D
         DA    LD585
         DA    LD575
         DA    LD585
         DA    LD565
         DA    LD55D
         DA    LD55D
         DA    LD54D
         DA    LD56D
         DA    LD575
         DA    LD5BD
         DA    LD5AD
         DA    LD54D
         DA    LD5B5
         DA    LD5A5
         DA    LD57D
         DA    LD575
         DA    LD575
         DA    LD54A
LD600    DW    $0000
         DW    $0027
         DW    $002B
         DW    $0040
         DW    $0042
         DW    $0043
         DW    $0044
         DW    $0045
         DW    $0046
         DW    $0047
         DW    $0048
         DW    $0049
         DW    $004B
         DW    $004C
         DW    $004D
         DW    $004E
         DW    $0050
         DW    $0052
         DW    $0053
         DW    $0054
         DW    $0057
         DW    $0058
         DW    $005A
LD62E    TAX
         PEA   ^LD600
         PEA   LD600
         LDA   #$002C
         JSL   LE533
         PLA
         PLA
         JMP   (LD5D0,X)

LD641    LDA   $F4
         TAY
         TDC
         CLC
         ADC   #$00F9
         TCS
         TYA
         PLD
         RTL

LD64D    PHD
         TSC
         SEC
         SBC   #$00F7
         TCD
         ADC   #$00EE
         TCS
         LDX   #$0000
         LDA   #$0000
         PHX
         PHA
         LDAL  LB852
         TAX
         LDAL  LB850
         JSL   LC7E7
         BNE   LD680
         LDA   #LD7F1
         LDX   #^LD7F1
         PHA
         TXA
         STAL  LB852
         PLA
         STAL  LB850
LD680    LDAL  LB854+2
         TAX
         LDAL  LB854
         STA   $F4
         STX   $F6
         LDX   $F6
         LDA   #$0010
         CLC
         ADC   $F4
         BCC   LD698
         INX
LD698    STX   $F2
         STA   $F0
         BRA   LD6D3
LD69E    LDX   #$0000
         LDA   #$0000
         PHX
         PHA
         LDY   #$0002
         LDA   [$F0],Y
         TAX
         LDA   [$F0]
         JSL   LC7E7
         BNE   LD6C7
         LDX   $FF
         LDA   $FD
         LDY   #$0002
         PHA
         TXA
         STA   [$F0],Y
         PLA
         STA   [$F0]
         LDA   #$0000
         BRA   LD701
LD6C7    LDA   $F0
         CLC
         ADC   #$0004
         STA   $F0
         BCC   LD6D3
         INC   $F2
LD6D3    LDAL  LB854+2
         TAX
         LDAL  LB854
         STA   $F4
         STX   $F6
         LDX   $F6
         LDA   #$0028
         CLC
         ADC   $F4
         BCC   LD6EB
         INX
LD6EB    PHX
         PHA
         LDX   $F2
         LDA   $F0
         JSL   LC7E7
         BEQ   LD6FE
         BVS   LD6FC
         EOR   #$8000
LD6FC    BMI   LD69E
LD6FE    LDA   #$0001
LD701    TAY
         TDC
         CLC
         ADC   #$00F7
         TCS
         TYA
         PLD
         RTL

LD70B    PHD
         TSC
         SEC
         SBC   #$00F3
         TCD
         ADC   #$00E8
         TCS
         LDA   $F9
         SEC
         SBC   #$0000
         BVS   LD721
         EOR   #$8000
LD721    BMI   LD735
         PEA   $0000
         PEA   $0016
         JSL   LCB3B
         PLY
         PLY
         LDA   #$FFFF
         BRL   LD7E7
LD735    PEA   $0000
         TDC
         CLC
         ADC   #$00F9
         PHA
         JSL   LC86C
         PLY
         PLY
         STX   $EE
         STA   $EC
         LDX   #$0000
         LDA   #$0000
         PHX
         PHA
         LDX   $EE
         LDA   $EC
         JSL   LC7E7
         BNE   LD760
         LDA   #$FFFF
         BRL   LD7E7
LD760    LDA   [$EC]
         AND   #$0001
         TAY
         BNE   LD779
         PEA   $0000
         PEA   $0009
         JSL   LCB3B
         PLY
         PLY
         LDA   #$FFFF
         BRA   LD7E7
LD779    LDA   $FF
         LDY   #$000C
         STA   [$EC],Y
         LDX   $FD
         LDA   $FB
         LDY   #$0010
         PHA
         TXA
         STA   [$EC],Y
         PLA
         LDY   #$000E
         STA   [$EC],Y
         PEI   $EE
         PEI   $EC
         LDY   #$0006
         LDA   [$EC],Y
         TAX
         LDY   #$0004
         LDA   [$EC],Y
         STA   $F0
         STX   $F2
         LDY   #$000E
         LDA   [$F0],Y
         TAX
         LDY   #$000C
         LDA   [$F0],Y
         STA   $F0
         STX   $F2
         LDA   $F0
         LDX   $F2
         JSL   LC525
         PLY
         PLY
         STA   $EA
         LDA   $EA
         CMP   #$0000
         BEQ   LD7D9
         LDY   #$0002
         LDA   [$EC],Y
         PHA
         PEI   $EA
         JSL   LCB3B
         PLY
         PLY
         LDA   #$FFFF
         BRA   LD7E7
LD7D9    LDY   #$000C
         LDA   [$EC],Y
         PHA
         LDA   $FF
         PLX
         STX   $F0
         SEC
         SBC   $F0
LD7E7    TAY
         TDC
         CLC
         ADC   #$00F3
         TCS
         TYA
         PLD
         RTL

LD7F1    DB    $00
         DB    $00
         DB    $FF
         DB    $FF
         ADRL  LDFD7
         ADRL  LDFD7
         ADRL  LDFD7
         ADRL  LDFD7
         ADRL  LDFD7
         ADRL  LDFD7
         ADRL  LDFD7
         ADRL  LDFD7
         ADRL  LDFD7
         ADRL  LDFD7
         ADRL  LDFD7
         ADRL  LDFD7
         ADRL  LDFD7
         ADRL  LDFD7
         ADRL  LDFD7
         ADRL  LDFD7
LD835    DB    $01
         DB    $00
LD837    PHD
         TSC
         SEC
         SBC   #$00F3
         TCD
         ADC   #$00DE
         TCS
         STZ   $EC
         STZ   $EE
         STZ   $E8
         STZ   $EA
         LDX   #$0000
         LDA   #$0000
         PHX
         PHA
         LDX   $FB
         LDA   $F9
         JSL   LC7E7
         BEQ   LD8DB
         PHX
         PHA
         PEI   $FB
         PEI   $F9
         _FindHandle
         STAL  L013C
         PLA
         PLX
         STX   $EE
         STA   $EC
         PHX
         PHA
         PEI   $EE
         PEI   $EC
         _GetHandleSize
         STAL  L013C
         PLA
         PLX
         STX   $EA
         STA   $E8
         SEC
         LDA   $FD
         SBC   $E8
         BNE   LD897
         LDA   $FF
         SBC   $EA
         BRA   LD89D
LD897    LDA   $FF
         SBC   $EA
         REP   #$02
LD89D    BVS   LD8A2
         EOR   #$8000
LD8A2    BMI   LD8CC
         PEI   $EE
         PEI   $EC
         PEI   $FF
         PEI   $FD
         _SetHandleSize
         STAL  L013C
         LDY   #$0002
         LDA   [$EC],Y
         TAX
         LDA   [$EC]
         AND   #$FFFF
         PHA
         TXA
         AND   #$00FF
         TAX
         PLA
         BRL   LD9EC
LD8CC    PEI   $EE
         PEI   $EC
         _HUnlock
         STAL  L013C
LD8DB    PHX
         PHA
         LDX   $FF
         LDA   $FD
         PHX
         PHA
         LDA   L013E
         ORA   #$0F00
         PHA
         PEA   $8300
         PEA   $0000
         PEA   $0000
         _NewHandle
         STAL  L013C
         PLA
         PLX
         STX   $E6
         STA   $E4
         LDA   L013C
         BEQ   LD933
         LDX   #$0000
         LDA   #$0000
         PHX
         PHA
         LDX   $EE
         LDA   $EC
         JSL   LC7E7
         BEQ   LD92A
         PEI   $EE
         PEI   $EC
         _HLock
         STAL  L013C
LD92A    LDX   #$0000
         LDA   #$0000
         BRL   LD9EC
LD933    PEI   $E6
         PEI   $E4
         _HLock
         STAL  L013C
         LDX   #$0000
         LDA   #$0000
         PHX
         PHA
         LDX   $FB
         LDA   $F9
         JSL   LC7E7
         BEQ   LD986
         LDY   #$0002
         LDA   [$EC],Y
         TAX
         LDA   [$EC]
         PHX
         PHA
         LDY   #$0002
         LDA   [$E4],Y
         TAX
         LDA   [$E4]
         PHX
         PHA
         PEI   $EA
         PEI   $E8
         _BlockMove
         STAL  L013C
         PEI   $EE
         PEI   $EC
         _DisposeHandle
         STAL  L013C
LD986    LDX   $EA
         LDA   $E8
         PHX
         PHA
         LDY   #$0002
         LDA   [$E4],Y
         TAX
         LDA   [$E4]
         JSL   LBCDB
         PLA
         PLX
         STX   $E2
         STA   $E0
LD99E    LDX   $FF
         LDA   $FD
         PHX
         PHA
         LDY   #$0002
         LDA   [$E4],Y
         TAX
         LDA   [$E4]
         JSL   LBCDB
         LDX   $E2
         LDA   $E0
         JSL   LC7E7
         BEQ   LD9DA
         BVS   LD9BF
         EOR   #$8000
LD9BF    BPL   LD9DA
         LDX   $E2
         LDA   $E0
         INC   $E0
         BNE   LD9CB
         INC   $E2
LD9CB    STA   $F0
         STX   $F2
         LDA   #$0000
         SEP   #$20
         STA   [$F0]
         REP   #$20
         BRA   LD99E
LD9DA    LDY   #$0002
         LDA   [$E4],Y
         TAX
         LDA   [$E4]
         AND   #$FFFF
         PHA
         TXA
         AND   #$00FF
         TAX
         PLA
LD9EC    TAY
         TDC
         CLC
         ADC   #$00F3
         TCS
         TYA
         PLD
         RTL

LD9F6    ASC   'SYSF'
         ADRL  LE832
         ADRL  LDB84
         ADRL  LE67D
         ADRL  LE1AE
         ADRL  LDC2F
         ASC   'SNOC'
         ADRL  LE7D3
         ADRL  LDA6E
         ADRL  LE588
         ADRL  LE04F
         ADRL  LDB6C
         ASC   'TSYS'
         ADRL  LE9B8
         ADRL  LE196
         ADRL  LE7BB
         ADRL  LE4E7
         ADRL  LE37C
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
LDA6E    PHD
         TSC
         SEC
         SBC   #$00FB
         TCD
         ADC   #$00F6
         TCS
         LDA   #$0000
         TAY
         TDC
         CLC
         ADC   #$00FB
         TCS
         TYA
         PLD
         RTL

LDA86    PHD
         TSC
         SEC
         SBC   #$00F3
         TCD
         ADC   #$00E8
         TCS
         LDA   $F9
         SEC
         SBC   #$0000
         BVS   LDA9C
         EOR   #$8000
LDA9C    BMI   LDAB0
         PEA   $0000
         PEA   $0016
         JSL   LCB3B
         PLY
         PLY
         LDA   #$FFFF
         BRL   LDB62
LDAB0    PEA   $0000
         TDC
         CLC
         ADC   #$00F9
         PHA
         JSL   LC86C
         PLY
         PLY
         STX   $EE
         STA   $EC
         LDX   #$0000
         LDA   #$0000
         PHX
         PHA
         LDX   $EE
         LDA   $EC
         JSL   LC7E7
         BNE   LDADB
         LDA   #$FFFF
         BRL   LDB62
LDADB    LDA   [$EC]
         AND   #$0002
         TAY
         BNE   LDAF4
         PEA   $0000
         PEA   $0009
         JSL   LCB3B
         PLY
         PLY
         LDA   #$FFFF
         BRA   LDB62
LDAF4    LDA   $FF
         LDY   #$000C
         STA   [$EC],Y
         LDX   $FD
         LDA   $FB
         LDY   #$0010
         PHA
         TXA
         STA   [$EC],Y
         PLA
         LDY   #$000E
         STA   [$EC],Y
         PEI   $EE
         PEI   $EC
         LDY   #$0006
         LDA   [$EC],Y
         TAX
         LDY   #$0004
         LDA   [$EC],Y
         STA   $F0
         STX   $F2
         LDY   #$0012
         LDA   [$F0],Y
         TAX
         LDY   #$0010
         LDA   [$F0],Y
         STA   $F0
         STX   $F2
         LDA   $F0
         LDX   $F2
         JSL   LC525
         PLY
         PLY
         STA   $EA
         LDA   $EA
         CMP   #$0000
         BEQ   LDB54
         LDY   #$0002
         LDA   [$EC],Y
         PHA
         PEI   $EA
         JSL   LCB3B
         PLY
         PLY
         LDA   #$FFFF
         BRA   LDB62
LDB54    LDY   #$000C
         LDA   [$EC],Y
         PHA
         LDA   $FF
         PLX
         STX   $F0
         SEC
         SBC   $F0
LDB62    TAY
         TDC
         CLC
         ADC   #$00F3
         TCS
         TYA
         PLD
         RTL

LDB6C    PHD
         TSC
         SEC
         SBC   #$00F1
         TCD
         ADC   #$00EC
         TCS
         LDA   #$0000
         TAY
         TDC
         CLC
         ADC   #$00F1
         TCS
         TYA
         PLD
         RTL

LDB84    PHD
         TSC
         SEC
         SBC   #$00F7
         TCD
         ADC   #$00F2
         TCS
         LDY   #$000A
         LDA   [$FD],Y
         TAX
         LDY   #$0008
         LDA   [$FD],Y
         STA   $F4
         STX   $F6
         LDY   #$0002
         LDA   [$F4],Y
         TAX
         LDA   [$F4]
         STA   $F4
         STX   $F6
         LDA   [$F4]
         DEC
         STA   [$F4]
         SEC
         SBC   #$0000
         BEQ   LDBBC
         BVS   LDBBA
         EOR   #$8000
LDBBA    BMI   LDC15
LDBBC    LDY   #$000A
         LDA   [$FD],Y
         TAX
         LDY   #$0008
         LDA   [$FD],Y
         STA   $F4
         STX   $F6
         LDY   #$0002
         LDA   [$F4],Y
         TAX
         LDA   [$F4]
         STA   $F4
         STX   $F6
         LDY   #$0002
         LDA   [$F4],Y
         STAL  LC63E
         PEA   $0014
         PEA   ^LC63E
         PEA   LC63E
         JSL   LC4E7
         LDA   L013C
         CMP   #$0000
         BEQ   LDBFD
         LDA   L013C
         LDY   #$0002
         STA   [$FD],Y
LDBFD    LDY   #$000A
         LDA   [$FD],Y
         TAX
         LDY   #$0008
         LDA   [$FD],Y
         PHX
         PHA
         _DisposeHandle
         STAL  L013C
LDC15    LDA   L013C
         CMP   #$0000
         BNE   LDC22
         LDA   #$0000
         BRA   LDC25
LDC22    LDA   #$0009
LDC25    TAY
         TDC
         CLC
         ADC   #$00F7
         TCS
         TYA
         PLD
         RTL

LDC2F    PHD
         TSC
         SEC
         SBC   #$00F1
         TCD
         ADC   #$00E8
         TCS
         LDA   $FB
         BRL   LDF9C
LDC3F    LDA   #$0000
         LDY   #$0002
         STA   [$F7],Y
         LDA   #$0016
         BRL   LDFCD
LDC4D    LDY   #$000A
         LDA   [$F7],Y
         TAX
         LDY   #$0008
         LDA   [$F7],Y
         STA   $EE
         STX   $F0
         LDY   #$0002
         LDA   [$EE],Y
         TAX
         LDA   [$EE]
         STA   $EE
         STX   $F0
         LDY   #$0002
         LDA   [$EE],Y
         STA   $EC
         LDA   $EC
         STAL  LC652
         PEA   $0019
         PEA   ^LC652
         PEA   LC652
         JSL   LC4E7
         LDA   L013C
         CMP   #$0000
         BEQ   LDC90
         LDA   #$001D
         BRL   LDFCD
LDC90    LDA   $EC
         STAL  LC64C
         LDA   [$FD]
         BRL   LDD39
LDC9B    LDY   #$0004
         LDA   [$FD],Y
         TAX
         LDY   #$0002
         LDA   [$FD],Y
         PHA
         TXA
         STAL  LC650
         PLA
         STAL  LC64E
         BRL   LDD46
LDCB4    PEA   $0017
         PEA   ^LC64C
         PEA   LC64C
         JSL   LC4E7
         LDA   L013C
         CMP   #$0000
         BEQ   LDCCC
         BRL   LDD46
LDCCC    LDY   #$0004
         LDA   [$FD],Y
         TAX
         LDY   #$0002
         LDA   [$FD],Y
         PHX
         PHA
         LDAL  LC650
         TAX
         LDAL  LC64E
         JSL   LBCDB
         PLA
         PLX
         PHA
         TXA
         STAL  LC650
         PLA
         STAL  LC64E
         BRL   LDD46
LDCF6    LDY   #$0004
         LDA   [$FD],Y
         TAX
         LDY   #$0002
         LDA   [$FD],Y
         PHX
         PHA
         LDAL  LC656
         TAX
         LDAL  LC654
         JSL   LBCDB
         PLA
         PLX
         PHA
         TXA
         STAL  LC650
         PLA
         STAL  LC64E
         BRL   LDD46
LDD20    LDA   #$0000
         LDY   #$0002
         STA   [$F7],Y
         LDA   #$0016
         BRL   LDFCD
         BRL   LDD46
LDD31    DA    LDC9B
         DA    LDCB4
         DA    LDCF6
         DA    LDD20
LDD39    CMP   #$0003
         BCC   LDD41
         LDA   #$0003
LDD41    ASL
         TAX
         JMP   (LDD31,X)

LDD46    LDA   L013C
         CMP   #$0000
         BEQ   LDD58
         LDA   [$FD]
         CMP   #$0000
         BEQ   LDD58
         BRL   LDDEA
LDD58    SEC
         LDAL  LC64E
         SBCL  LC654
         BNE   LDD6D
         LDAL  LC650
         SBCL  LC656
         BRA   LDD77
LDD6D    LDAL  LC650
         SBCL  LC656
         REP   #$02
LDD77    BNE   LDD7C
         BRL   LDDDD
LDD7C    BVS   LDD81
         EOR   #$8000
LDD81    BMI   LDD86
         BRL   LDDDD
LDD86    LDA   [$FD]
         CMP   #$0002
         BEQ   LDDAE
         LDA   $EC
         STAL  LC652
         PEA   $0019
         PEA   ^LC652
         PEA   LC652
         JSL   LC4E7
         LDA   L013C
         CMP   #$0000
         BEQ   LDDAE
         LDA   #$001D
         BRL   LDFCD
LDDAE    LDAL  LC650
         TAX
         LDAL  LC64E
         PHA
         TXA
         STAL  LC656
         PLA
         STAL  LC654
         PEA   $0018
         PEA   ^LC652
         PEA   LC652
         JSL   LC4E7
         LDA   L013C
         CMP   #$0000
         BEQ   LDDDD
         LDA   #$001D
         BRL   LDFCD
LDDDD    PEA   $0016
         PEA   ^LC64C
         PEA   LC64C
         JSL   LC4E7
LDDEA    LDA   L013C
         CMP   #$0000
         BEQ   LDE00
         LDA   L013C
         LDY   #$0002
         STA   [$F7],Y
         LDA   #$001D
         BRL   LDFCD
LDE00    LDAL  LC650
         TAX
         LDAL  LC64E
         LDY   #$0004
         PHA
         TXA
         STA   [$FD],Y
         PLA
         LDY   #$0002
         STA   [$FD],Y
         BRL   LDFAD
LDE19    LDY   #$000A
         LDA   [$F7],Y
         TAX
         LDY   #$0008
         LDA   [$F7],Y
         STA   $EE
         STX   $F0
         LDY   #$0002
         LDA   [$EE],Y
         TAX
         LDA   [$EE]
         STA   $EE
         STX   $F0
         LDA   [$EE]
         INC
         STA   [$EE]
         BRL   LDFAD
LDE3C    LDA   #$0000
         LDY   #$0002
         STA   [$F7],Y
         LDA   #$0016
         BRL   LDFCD
LDE4A    LDY   #$000A
         LDA   [$F7],Y
         TAX
         LDY   #$0008
         LDA   [$F7],Y
         STA   $EE
         STX   $F0
         LDY   #$0002
         LDA   [$EE],Y
         TAX
         LDA   [$EE]
         STA   $EE
         STX   $F0
         LDY   #$0002
         LDA   [$EE],Y
         STA   [$FD]
         BRL   LDFAD
LDE6F    LDY   #$000A
         LDA   [$F7],Y
         TAX
         LDY   #$0008
         LDA   [$F7],Y
         STA   $EE
         STX   $F0
         LDY   #$0002
         LDA   [$EE],Y
         TAX
         LDA   [$EE]
         STA   $EE
         STX   $F0
         LDY   #$0002
         LDA   [$EE],Y
         STAL  LC652
         PEA   $0019
         PEA   ^LC652
         PEA   LC652
         JSL   LC4E7
         LDAL  LC656
         TAX
         LDAL  LC654
         LDY   #$0002
         PHA
         TXA
         STA   [$FD],Y
         PLA
         STA   [$FD]
         BRL   LDFAD
LDEB6    LDY   #$000A
         LDA   [$F7],Y
         TAX
         LDY   #$0008
         LDA   [$F7],Y
         STA   $EE
         STX   $F0
         LDY   #$0002
         LDA   [$EE],Y
         TAX
         LDA   [$EE]
         STA   $EE
         STX   $F0
         LDY   #$0002
         LDA   [$EE],Y
         STAL  LC652
         LDX   $FF
         LDA   $FD
         PHA
         TXA
         STAL  LC656
         PLA
         STAL  LC654
         PEA   $0018
         PEA   ^LC652
         PEA   LC652
         JSL   LC4E7
         BRL   LDFAD
LDEF9    LDY   #$000A
         LDA   [$F7],Y
         TAX
         LDY   #$0008
         LDA   [$F7],Y
         STA   $EE
         STX   $F0
         LDY   #$0002
         LDA   [$EE],Y
         TAX
         LDA   [$EE]
         STA   $EE
         STX   $F0
         LDY   #$0002
         LDA   [$EE],Y
         STAL  LC64C
         PEA   $0017
         PEA   ^LC64C
         PEA   LC64C
         JSL   LC4E7
         LDAL  LC650
         TAX
         LDAL  LC64E
         LDY   #$0002
         PHA
         TXA
         STA   [$FD],Y
         PLA
         STA   [$FD]
         BRL   LDFAD
LDF40    LDY   #$000A
         LDA   [$F7],Y
         TAX
         LDY   #$0008
         LDA   [$F7],Y
         STA   $EE
         STX   $F0
         LDY   #$0002
         LDA   [$EE],Y
         TAX
         LDA   [$EE]
         STA   $EE
         STX   $F0
         LDY   #$0002
         LDA   [$EE],Y
         STAL  LC64C
         LDX   $FF
         LDA   $FD
         PHA
         TXA
         STAL  LC650
         PLA
         STAL  LC64E
         PEA   $0016
         PEA   ^LC64C
         PEA   LC64C
         JSL   LC4E7
         BRL   LDFAD
         BRL   LDFAD
LDF86    DA    LDC4D
         DA    LDE19
         DA    LDC3F
         DA    LDE3C
         DA    LDC3F
         DA    LDE4A
         DA    LDEB6
         DA    LDE6F
         DA    LDF40
         DA    LDEF9
         DA    LDC3F
LDF9C    SEC
         SBC   #$6600
         CMP   #$000A
         BCC   LDFA8
         LDA   #$000A
LDFA8    ASL
         TAX
         JMP   (LDF86,X)

LDFAD    LDA   L013C
         CMP   #$0000
         BEQ   LDFBD
         LDA   L013C
         LDY   #$0002
         STA   [$F7],Y
LDFBD    LDA   L013C
         CMP   #$0000
         BNE   LDFCA
         LDA   #$0000
         BRA   LDFCD
LDFCA    LDA   #$0016
LDFCD    TAY
         TDC
         CLC
         ADC   #$00F1
         TCS
         TYA
         PLD
         RTL

LDFD7    PHD
         TSC
         SEC
         SBC   #$00F5
         TCD
         ADC   #$00EE
         TCS
         LDX   #$0000
         LDA   #$0000
         PHX
         PHA
         LDAL  LB852
         TAX
         LDAL  LB850
         JSL   LC7E7
         BNE   LE00A
         LDA   #LD7F1
         LDX   #^LD7F1
         PHA
         TXA
         STAL  LB852
         PLA
         STAL  LB850
LE00A    LDAL  LB852
         TAX
         LDAL  LB850
         STA   $F2
         STX   $F4
         LDA   #$0000
         LDY   #$0002
         STA   [$F2],Y
         LDA   #$0001
         STA   $F0
         BRA   LE02D
LE026    LDA   $FB
         LSR
         STA   $FB
         INC   $F0
LE02D    LDA   $FB
         AND   #$0001
         CMP   #$0000
         BEQ   LE026
         LDA   $F0
         PHA
         LDA   #$0018
         CLC
         JSL   LE579
         JSL   LC435
         PLY
         TDC
         CLC
         ADC   #$00F5
         TCS
         PLD
         RTL

LE04F    PHD
         TSC
         SEC
         SBC   #$00F7
         TCD
         ADC   #$00F2
         TCS
         LDY   #$000A
         LDA   [$FD],Y
         TAX
         LDY   #$0008
         LDA   [$FD],Y
         STA   $F4
         STX   $F6
         LDY   #$0002
         LDA   [$F4],Y
         TAX
         LDA   [$F4]
         STA   $F4
         STX   $F6
         LDY   #$0002
         LDA   [$F4],Y
         CMP   #$0002
         BNE   LE0EB
         LDY   #$0010
         LDA   [$FD],Y
         TAX
         LDY   #$000E
         LDA   [$FD],Y
         PHX
         PHA
         PEA   $0000
         LDY   #$000C
         LDA   [$FD],Y
         PHA
         _ErrWriteBlock
         STAL  L013C
         LDY   #$000C
         LDA   [$FD],Y
         SEC
         SBC   #$0001
         PHA
         LDY   #$0010
         LDA   [$FD],Y
         TAX
         LDY   #$000E
         LDA   [$FD],Y
         STA   $F4
         STX   $F6
         PLA
         TAY
         BPL   LE0BF
         DEC   $F6
LE0BF    CLC
         ADC   $F4
         STA   $F4
         BCC   LE0C8
         INC   $F6
LE0C8    LDA   [$F4]
         AND   #$00FF
         CMP   #$000A
         BNE   LE0E9
         PEA   ^LE3E3
         PEA   LE3E3
         PEA   $0000
         PEA   $0001
         _ErrWriteBlock
         STAL  L013C
LE0E9    BRA   LE155
LE0EB    LDY   #$0010
         LDA   [$FD],Y
         TAX
         LDY   #$000E
         LDA   [$FD],Y
         PHX
         PHA
         PEA   $0000
         LDY   #$000C
         LDA   [$FD],Y
         PHA
         _TextWriteBlock
         STAL  L013C
         LDY   #$000C
         LDA   [$FD],Y
         SEC
         SBC   #$0001
         PHA
         LDY   #$0010
         LDA   [$FD],Y
         TAX
         LDY   #$000E
         LDA   [$FD],Y
         STA   $F4
         STX   $F6
         PLA
         TAY
         BPL   LE12B
         DEC   $F6
LE12B    CLC
         ADC   $F4
         STA   $F4
         BCC   LE134
         INC   $F6
LE134    LDA   [$F4]
         AND   #$00FF
         CMP   #$000A
         BNE   LE155
         PEA   ^LE3E5
         PEA   LE3E5
         PEA   $0000
         PEA   $0001
         _TextWriteBlock
         STAL  L013C
LE155    LDY   #$000C
         LDA   [$FD],Y
         LDX   #$0000
         TAY
         BPL   LE161
         DEX
LE161    PHX
         PHA
         LDY   #$0010
         LDA   [$FD],Y
         TAX
         LDY   #$000E
         LDA   [$FD],Y
         JSL   LBCDB
         PLA
         PLX
         LDY   #$0010
         PHA
         TXA
         STA   [$FD],Y
         PLA
         LDY   #$000E
         STA   [$FD],Y
         LDA   #$0000
         LDY   #$000C
         STA   [$FD],Y
         LDA   #$0000
         TAY
         TDC
         CLC
         ADC   #$00F7
         TCS
         TYA
         PLD
         RTL

LE196    PHD
         TSC
         SEC
         SBC   #$00F7
         TCD
         ADC   #$00F2
         TCS
         LDA   #$0000
         TAY
         TDC
         CLC
         ADC   #$00F7
         TCS
         TYA
         PLD
         RTL

LE1AE    PHD
         TSC
         SEC
         SBC   #$00F7
         TCD
         ADC   #$00EC
         TCS
         LDA   [$FD]
         AND   #$0008
         TAY
         BNE   LE1C4
         BRL   LE25B
LE1C4    LDY   #$000A
         LDA   [$FD],Y
         TAX
         LDY   #$0008
         LDA   [$FD],Y
         STA   $F4
         STX   $F6
         LDY   #$0002
         LDA   [$F4],Y
         TAX
         LDA   [$F4]
         STA   $F4
         STX   $F6
         LDY   #$0002
         LDA   [$F4],Y
         STAL  LC652
         PEA   $0019
         PEA   ^LC652
         PEA   LC652
         JSL   LC4E7
         LDA   L013C
         CMP   #$0000
         BEQ   LE200
         BRL   LE25B
LE200    LDY   #$000A
         LDA   [$FD],Y
         TAX
         LDY   #$0008
         LDA   [$FD],Y
         STA   $F4
         STX   $F6
         LDY   #$0002
         LDA   [$F4],Y
         TAX
         LDA   [$F4]
         STA   $F4
         STX   $F6
         LDY   #$0002
         LDA   [$F4],Y
         STAL  LC64C
         LDAL  LC656
         TAX
         LDAL  LC654
         PHA
         TXA
         STAL  LC650
         PLA
         STAL  LC64E
         PEA   $0016
         PEA   ^LC64C
         PEA   LC64C
         JSL   LC4E7
         LDA   L013C
         CMP   #$0000
         BEQ   LE25B
         LDA   L013C
         LDY   #$0002
         STA   [$FD],Y
         LDA   #$001D
         BRL   LE372
LE25B    LDA   [$FD]
         AND   #$0020
         TAY
         BNE   LE2AB
         LDY   #$000C
         LDA   [$FD],Y
         STA   $F2
         LDY   #$0010
         LDA   [$FD],Y
         TAX
         LDY   #$000E
         LDA   [$FD],Y
         STX   $F0
         STA   $EE
         BRA   LE29C
LE27B    LDA   [$EE]
         AND   #$00FF
         CMP   #$000A
         BNE   LE28E
         LDA   #$000D
         SEP   #$20
         STA   [$EE]
         REP   #$20
LE28E    LDA   $F2
         DEC   $F2
         LDX   $F0
         LDA   $EE
         INC   $EE
         BNE   LE29C
         INC   $F0
LE29C    LDA   $F2
         SEC
         SBC   #$0000
         BEQ   LE2AB
         BVS   LE2A9
         EOR   #$8000
LE2A9    BMI   LE27B
LE2AB    LDY   #$000A
         LDA   [$FD],Y
         TAX
         LDY   #$0008
         LDA   [$FD],Y
         STA   $F4
         STX   $F6
         LDY   #$0002
         LDA   [$F4],Y
         TAX
         LDA   [$F4]
         STA   $F4
         STX   $F6
         LDY   #$0002
         LDA   [$F4],Y
         STAL  LC63E
         LDY   #$000C
         LDA   [$FD],Y
         LDX   #$0000
         TAY
         BPL   LE2DB
         DEX
LE2DB    PHA
         TXA
         STAL  LC646
         PLA
         STAL  LC644
         LDY   #$0010
         LDA   [$FD],Y
         TAX
         LDY   #$000E
         LDA   [$FD],Y
         PHA
         TXA
         STAL  LC642
         PLA
         STAL  LC640
         PEA   $0013
         PEA   ^LC63E
         PEA   LC63E
         JSL   LC4E7
         LDA   L013C
         CMP   #$0000
         BNE   LE35A
         LDY   #$000C
         LDA   [$FD],Y
         LDX   #$0000
         TAY
         BPL   LE31D
         DEX
LE31D    SEC
         SBCL  LC648
         PHA
         TXA
         SBCL  LC64A
         TAX
         PLA
         LDY   #$000C
         STA   [$FD],Y
         LDAL  LC64A
         TAX
         LDAL  LC648
         PHX
         PHA
         LDY   #$0010
         LDA   [$FD],Y
         TAX
         LDY   #$000E
         LDA   [$FD],Y
         JSL   LBCDB
         PLA
         PLX
         LDY   #$0010
         PHA
         TXA
         STA   [$FD],Y
         PLA
         LDY   #$000E
         STA   [$FD],Y
         BRA   LE362
LE35A    LDA   L013C
         LDY   #$0002
         STA   [$FD],Y
LE362    LDA   L013C
         CMP   #$0000
         BNE   LE36F
         LDA   #$0000
         BRA   LE372
LE36F    LDA   #$0005
LE372    TAY
         TDC
         CLC
         ADC   #$00F7
         TCS
         TYA
         PLD
         RTL

LE37C    PHD
         TSC
         SEC
         SBC   #$00F1
         TCD
         ADC   #$00EC
         TCS
         LDA   $FB
         BRL   LE3BF
LE38C    LDA   #$0000
         STA   [$FD]
         LDX   #$0000
         LDA   #$0000
         LDY   #$0004
         PHA
         TXA
         STA   [$FD],Y
         PLA
         LDY   #$0002
         STA   [$FD],Y
         LDA   #$0000
         BRL   LE3D0
LE3AA    LDA   #$0000
         BRL   LE3D0
LE3B0    LDA   #$0016
         BRL   LE3D0
         BRL   LE3D0
LE3B9    DA    LE38C
         DA    LE3AA
         DA    LE3B0
LE3BF    SEC
         SBC   #$6600
         CMP   #$0002
         BCC   LE3CB
         LDA   #$0002
LE3CB    ASL
         TAX
         JMP   (LE3B9,X)

LE3D0    TAY
         TDC
         CLC
         ADC   #$00F1
         TCS
         TYA
         PLD
         RTL

LE3DA    ASC   '.console'00
LE3E3    ASC   0D00
LE3E5    ASC   0D00
LE3E7    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
LE4E7    PHD
         TSC
         SEC
         SBC   #$00F7
         TCD
         ADC   #$00F2
         TCS
         LDY   #$000C
         LDA   [$FD],Y
         LDX   #$0000
         TAY
         BPL   LE4FE
         DEX
LE4FE    PHX
         PHA
         LDY   #$0010
         LDA   [$FD],Y
         TAX
         LDY   #$000E
         LDA   [$FD],Y
         JSL   LBCDB
         PLA
         PLX
         LDY   #$0010
         PHA
         TXA
         STA   [$FD],Y
         PLA
         LDY   #$000E
         STA   [$FD],Y
         LDA   #$0000
         LDY   #$000C
         STA   [$FD],Y
         LDA   #$0000
         TAY
         TDC
         CLC
         ADC   #$00F7
         TCS
         TYA
         PLD
         RTL

LE533    TAY
         PHB
         LDA   $06,S
         PHA
         PLB
         PLB
         PHY
         PHY
         PEA   $0000
         TXA
         CMP   ($0B,S),Y
         BEQ   LE573
         LDY   #$0000
         CMP   ($0B,S),Y
         BEQ   LE573
         BRA   LE550
LE54D    TYA
         STA   $03,S
LE550    LDA   $03,S
         CMP   $01,S
         BEQ   LE56E
         CLC
         ADC   $01,S
         LSR
         AND   #$00FE
         CMP   $01,S
         BEQ   LE56E
         TAY
         TXA
         CMP   ($0B,S),Y
         BEQ   LE573
         BCC   LE54D
         TYA
         STA   $01,S
         BRA   LE550
LE56E    LDA   $05,S
         INC
         INC
         TAY
LE573    TYX
         PLA
         PLA
         PLA
         PLB
         RTL

LE579    CMP   #$0000
         BEQ   LE587
         TAX
         LDA   $04,S
LE581    ASL
         DEX
         BNE   LE581
         STA   $04,S
LE587    RTL

LE588    PHD
         TSC
         SEC
         SBC   #$00F7
         TCD
         ADC   #$00F2
         TCS
         LDA   LE9B2
         SEC
         SBC   #$0000
         BEQ   LE5A3
         BVS   LE5A1
         EOR   #$8000
LE5A1    BMI   LE5C2
LE5A3    PEA   $0100
         PEA   ^LE3E7
         PEA   LE3E7
         JSL   LEB62
         PLY
         PLY
         PLY
         STA   LE9B2
         LDA   #LE3E7
         LDX   #^LE3E7
         STX   LE9B6
         STA   LE9B4
LE5C2    LDY   #$000C
         LDA   [$FD],Y
         SEC
         SBC   #$0000
         BNE   LE5D0
         BRL   LE670
LE5D0    BVS   LE5D5
         EOR   #$8000
LE5D5    BMI   LE5DA
         BRL   LE670
LE5DA    LDA   LE9B2
         SEC
         SBC   #$0000
         BNE   LE5E6
         BRL   LE670
LE5E6    BVS   LE5EB
         EOR   #$8000
LE5EB    BMI   LE5F0
         BRL   LE670
LE5F0    LDX   LE9B6
         LDA   LE9B4
         STA   $F4
         STX   $F6
         LDA   [$F4]
         AND   #$00FF
         CMP   #$0000
         BNE   LE607
         BRL   LE670
LE607    LDX   LE9B6
         LDA   LE9B4
         PHX
         PHA
         CLC
         ADC   #$0001
         STA   LE9B4
         LDA   LE9B6
         BCC   LE61C
         INC
LE61C    STA   LE9B6
         PLA
         PLX
         STA   $F4
         STX   $F6
         LDA   [$F4]
         AND   #$00FF
         PHA
         LDY   #$0010
         LDA   [$FD],Y
         TAX
         LDY   #$000E
         LDA   [$FD],Y
         PHX
         PHA
         CLC
         ADC   #$0001
         LDY   #$000E
         STA   [$FD],Y
         LDY   #$0010
         LDA   [$FD],Y
         BCC   LE649
         INC
LE649    LDY   #$0010
         STA   [$FD],Y
         PLA
         PLX
         STA   $F4
         STX   $F6
         PLA
         SEP   #$20
         STA   [$F4]
         REP   #$20
         LDY   #$000C
         LDA   [$FD],Y
         DEC
         LDY   #$000C
         STA   [$FD],Y
         LDA   LE9B2
         DEC
         STA   LE9B2
         BRL   LE5C2
LE670    LDA   #$0000
         TAY
         TDC
         CLC
         ADC   #$00F7
         TCS
         TYA
         PLD
         RTL

LE67D    PHD
         TSC
         SEC
         SBC   #$00F7
         TCD
         ADC   #$00EA
         TCS
         LDY   #$000A
         LDA   [$FD],Y
         TAX
         LDY   #$0008
         LDA   [$FD],Y
         STA   $F4
         STX   $F6
         LDY   #$0002
         LDA   [$F4],Y
         TAX
         LDA   [$F4]
         STA   $F4
         STX   $F6
         LDY   #$0002
         LDA   [$F4],Y
         STAL  LC63E
         LDY   #$000C
         LDA   [$FD],Y
         LDX   #$0000
         TAY
         BPL   LE6B8
         DEX
LE6B8    PHA
         TXA
         STAL  LC646
         PLA
         STAL  LC644
         LDY   #$0010
         LDA   [$FD],Y
         TAX
         LDY   #$000E
         LDA   [$FD],Y
         PHA
         TXA
         STAL  LC642
         PLA
         STAL  LC640
         PEA   $0012
         PEA   ^LC63E
         PEA   LC63E
         JSL   LC4E7
         LDA   [$FD]
         AND   #$0020
         TAY
         BNE   LE73A
         LDAL  LC64A
         TAX
         LDAL  LC648
         STA   $F0
         LDY   #$0010
         LDA   [$FD],Y
         TAX
         LDY   #$000E
         LDA   [$FD],Y
         STX   $EE
         STA   $EC
         BRA   LE72B
LE70A    LDA   [$EC]
         AND   #$00FF
         CMP   #$000D
         BNE   LE71D
         LDA   #$000A
         SEP   #$20
         STA   [$EC]
         REP   #$20
LE71D    LDA   $F0
         DEC   $F0
         LDX   $EE
         LDA   $EC
         INC   $EC
         BNE   LE72B
         INC   $EE
LE72B    LDA   $F0
         SEC
         SBC   #$0000
         BEQ   LE73A
         BVS   LE738
         EOR   #$8000
LE738    BMI   LE70A
LE73A    LDA   L013C
         CMP   #$004C
         BNE   LE746
         STZ   $F2
         BRA   LE74B
LE746    LDA   L013C
         STA   $F2
LE74B    LDA   $F2
         CMP   #$0000
         BNE   LE79B
         LDY   #$000C
         LDA   [$FD],Y
         LDX   #$0000
         TAY
         BPL   LE75E
         DEX
LE75E    SEC
         SBCL  LC648
         PHA
         TXA
         SBCL  LC64A
         TAX
         PLA
         LDY   #$000C
         STA   [$FD],Y
         LDAL  LC64A
         TAX
         LDAL  LC648
         PHX
         PHA
         LDY   #$0010
         LDA   [$FD],Y
         TAX
         LDY   #$000E
         LDA   [$FD],Y
         JSL   LBCDB
         PLA
         PLX
         LDY   #$0010
         PHA
         TXA
         STA   [$FD],Y
         PLA
         LDY   #$000E
         STA   [$FD],Y
         BRA   LE7A2
LE79B    LDA   $F2
         LDY   #$0002
         STA   [$FD],Y
LE7A2    LDA   $F2
         CMP   #$0000
         BNE   LE7AE
         LDA   #$0000
         BRA   LE7B1
LE7AE    LDA   #$0005
LE7B1    TAY
         TDC
         CLC
         ADC   #$00F7
         TCS
         TYA
         PLD
         RTL

LE7BB    PHD
         TSC
         SEC
         SBC   #$00F7
         TCD
         ADC   #$00F2
         TCS
         LDA   #$0000
         TAY
         TDC
         CLC
         ADC   #$00F7
         TCS
         TYA
         PLD
         RTL

LE7D3    PHD
         TSC
         SEC
         SBC   #$00F1
         TCD
         ADC   #$00EC
         TCS
         LDA   #$0000
         BEQ   LE7E8
         LDA   #$0000
         BRA   LE7EB
LE7E8    LDA   #$0001
LE7EB    PHA
         PEA   $0000
         PEA   ^LE3DA
         PEA   LE3DA
         PEI   $F9
         PEI   $F7
         JSL   LBBE9
         TAY
         TSC
         CLC
         ADC   #$000C
         TCS
         TYA
         TAY
         BNE   LE80E
         LDA   #$FFFF
         BRL   LE828
LE80E    LDA   $FB
         BRL   LE820
LE813    LDA   #$4016
         BRL   LE828
LE819    LDA   #$0000
         BRA   LE828
         BRA   LE828
LE820    CMP   #$6400
         BEQ   LE819
         JMP   LE813

LE828    TAY
         TDC
         CLC
         ADC   #$00F1
         TCS
         TYA
         PLD
         RTL

LE832    PHD
         TSC
         SEC
         SBC   #$00F1
         TCD
         ADC   #$00EC
         TCS
         LDX   #$0000
         LDA   #$0000
         PHX
         PHA
         LDX   $F9
         LDA   $F7
         JSL   LC7E7
         BEQ   LE859
         LDA   [$F7]
         AND   #$00FF
         CMP   #$0000
         BNE   LE85F
LE859    LDA   #$4016
         BRL   LE9A8
LE85F    LDA   $FB
         BRL   LE975
LE864    LDA   #$4016
         BRL   LE9A8
LE86A    PEI   $F9
         PEI   $F7
         PEI   $FF
         PEI   $FD
         JSL   LECC2
         PLY
         PLY
         PLY
         PLY
         BRL   LE9A8
LE87D    PEI   $F9
         PEI   $F7
         JSL   LBB31
         PLY
         PLY
         LDX   $F9
         LDA   $F7
         PHA
         TXA
         STAL  LC614
         PLA
         STAL  LC612
         PEA   $0002
         PEA   ^LC612
         PEA   LC612
         JSL   LC4E7
         PEI   $F9
         PEI   $F7
         JSL   LD4C7
         PLY
         PLY
         BRL   LE986
LE8B0    PEI   $F9
         PEI   $F7
         JSL   LBB31
         PLY
         PLY
         PEI   $FF
         PEI   $FD
         JSL   LBB31
         PLY
         PLY
         LDX   $F9
         LDA   $F7
         PHA
         TXA
         STAL  LC614
         PLA
         STAL  LC612
         LDX   $FF
         LDA   $FD
         PHA
         TXA
         STAL  LC618
         PLA
         STAL  LC616
         PEA   $0004
         PEA   ^LC612
         PEA   LC612
         JSL   LC4E7
         PEI   $F9
         PEI   $F7
         JSL   LD4C7
         PLY
         PLY
         PEI   $FF
         PEI   $FD
         JSL   LD4C7
         PLY
         PLY
         BRL   LE986
LE906    PEI   $F9
         PEI   $F7
         JSL   LBB31
         PLY
         PLY
         LDX   $F9
         LDA   $F7
         PHA
         TXA
         STAL  LC61C
         PLA
         STAL  LC61A
         PEA   $0006
         PEA   ^LC61A
         PEA   LC61A
         JSL   LC4E7
         LDA   $FB
         CMP   #$6403
         BNE   LE93D
         LDX   $FF
         LDA   $FD
         STAL  LC620
         BRA   LE94C
LE93D    LDX   $FF
         LDA   $FD
         PHA
         TXA
         STAL  LC624
         PLA
         STAL  LC622
LE94C    PEA   $0005
         PEA   ^LC61A
         PEA   LC61A
         JSL   LC4E7
         PEI   $F9
         PEI   $F7
         JSL   LD4C7
         PLY
         PLY
         BRL   LE986
         BRL   LE986
LE969    DA    LE86A
         DA    LE87D
         DA    LE8B0
         DA    LE906
         DA    LE906
         DA    LE864
LE975    SEC
         SBC   #$6400
         CMP   #$0005
         BCC   LE981
         LDA   #$0005
LE981    ASL
         TAX
         JMP   (LE969,X)

LE986    LDA   L013C
         CMP   #$0000
         BNE   LE993
         LDA   #$0000
         BRA   LE9A8
LE993    LDA   L013C
         PHA
         LDA   #$8000
         PLX
         STX   $EE
         ORA   $EE
         PHA
         LDA   #$4000
         PLX
         STX   $EE
         ORA   $EE
LE9A8    TAY
         TDC
         CLC
         ADC   #$00F1
         TCS
         TYA
         PLD
         RTL

LE9B2    DB    $00
         DB    $00
LE9B4    DB    $00
         DB    $00
LE9B6    DB    $00
         DB    $00
LE9B8    PHD
         TSC
         SEC
         SBC   #$00F1
         TCD
         ADC   #$00E6
         TCS
         LDA   #$0000
         BEQ   LE9CD
         LDA   #$0000
         BRA   LE9D0
LE9CD    LDA   #$0001
LE9D0    PHA
         PEA   $0000
         PEA   ^LECA5
         PEA   LECA5
         PEI   $F9
         PEI   $F7
         JSL   LBBE9
         TAY
         TSC
         CLC
         ADC   #$000C
         TCS
         TYA
         TAY
         BEQ   LE9F3
         LDA   #$0000
         BRL   LEB58
LE9F3    LDA   #$0000
         BEQ   LE9FD
         LDA   #$0000
         BRA   LEA00
LE9FD    LDA   #$0001
LEA00    PHA
         PEA   $0000
         PEA   ^LECAB
         PEA   LECAB
         PEI   $F9
         PEI   $F7
         JSL   LBBE9
         TAY
         TSC
         CLC
         ADC   #$000C
         TCS
         TYA
         TAY
         BEQ   LEA22
         STZ   $EC
         BRL   LEA8A
LEA22    LDA   #$0000
         BEQ   LEA2C
         LDA   #$0000
         BRA   LEA2F
LEA2C    LDA   #$0001
LEA2F    PHA
         PEA   $0000
         PEA   ^LECB2
         PEA   LECB2
         PEI   $F9
         PEI   $F7
         JSL   LBBE9
         TAY
         TSC
         CLC
         ADC   #$000C
         TCS
         TYA
         TAY
         BEQ   LEA53
         LDA   #$0001
         STA   $EC
         BRA   LEA8A
LEA53    LDA   #$0000
         BEQ   LEA5D
         LDA   #$0000
         BRA   LEA60
LEA5D    LDA   #$0001
LEA60    PHA
         PEA   $0000
         PEA   ^LECBA
         PEA   LECBA
         PEI   $F9
         PEI   $F7
         JSL   LBBE9
         TAY
         TSC
         CLC
         ADC   #$000C
         TCS
         TYA
         TAY
         BEQ   LEA84
         LDA   #$0002
         STA   $EC
         BRA   LEA8A
LEA84    LDA   #$FFFF
         BRL   LEB58
LEA8A    LDA   $FB
         CMP   #$6400
         BEQ   LEA97
         LDA   #$4016
         BRL   LEB58
LEA97    LDA   [$FD]
         AND   #$0500
         CMP   #$0500
         BNE   LEAA7
         LDA   #$4011
         BRL   LEB58
LEAA7    PEA   $0000
         TDC
         CLC
         ADC   #$00EC
         PHA
         JSL   LC86C
         PLY
         PLY
         STX   $EA
         STA   $E8
         LDX   #$0000
         LDA   #$0000
         PHX
         PHA
         LDX   $EA
         LDA   $E8
         JSL   LC7E7
         BNE   LEAD2
         LDA   #$4009
         BRL   LEB58
LEAD2    LDA   [$FD]
         PHA
         LDA   [$E8]
         PLX
         STX   $EE
         AND   $EE
         AND   #$0003
         PHA
         LDA   [$FD]
         AND   #$0003
         PLX
         STX   $EE
         CMP   $EE
         BEQ   LEAF1
         LDA   #$400D
         BRA   LEB58
LEAF1    PEA   $0000
         PEA   $6601
         PEI   $EA
         PEI   $E8
         LDY   #$0006
         LDA   [$E8],Y
         TAX
         LDY   #$0004
         LDA   [$E8],Y
         STA   $EE
         STX   $F0
         LDY   #$0016
         LDA   [$EE],Y
         TAX
         LDY   #$0014
         LDA   [$EE],Y
         STA   $EE
         STX   $F0
         LDA   $EE
         LDX   $F0
         JSL   LC525
         PLY
         PLY
         PLY
         PLY
         LDY   #$0006
         LDA   [$E8],Y
         TAX
         LDY   #$0004
         LDA   [$E8],Y
         LDY   #$0006
         PHA
         TXA
         STA   [$FD],Y
         PLA
         LDY   #$0004
         STA   [$FD],Y
         LDY   #$000A
         LDA   [$E8],Y
         TAX
         LDY   #$0008
         LDA   [$E8],Y
         LDY   #$000A
         PHA
         TXA
         STA   [$FD],Y
         PLA
         LDY   #$0008
         STA   [$FD],Y
         LDA   #$0000
LEB58    TAY
         TDC
         CLC
         ADC   #$00F1
         TCS
         TYA
         PLD
         RTL

LEB62    PHD
         TSC
         SEC
         SBC   #$00F5
         TCD
         ADC   #$00ED
         TCS
         STZ   $F0
LEB6F    LDA   $F0
         SEC
         SBC   $FF
         BVS   LEB79
         EOR   #$8000
LEB79    BPL   LEB7E
         BRL   LEC99
LEB7E    PHA
         PEA   $0001
         _ReadChar
         STAL  L013C
         PLA
         SEP   #$20
         STA   $EF
         REP   #$20
         AND   #$00FF
         PHA
         LDX   $FD
         LDA   $FB
         INC   $FB
         BNE   LEBA2
         INC   $FD
LEBA2    STA   $F2
         STX   $F4
         PLA
         SEP   #$20
         STA   [$F2]
         REP   #$20
         INC   $F0
         LDA   $EF
         AND   #$00FF
         CMP   #$000D
         BNE   LEBE9
         LDX   #$0000
         LDA   #$0001
         PHX
         PHA
         LDX   $FD
         LDA   $FB
         JSL   LC025
         PLA
         PLX
         STA   $F2
         STX   $F4
         LDA   #$000A
         SEP   #$20
         STA   [$F2]
         REP   #$20
         PEA   $000A
         _WriteChar
         STAL  L013C
         BRL   LEC99
LEBE9    LDA   $EF
         AND   #$00FF
         CMP   #$0000
         BNE   LEC12
         PEA   $000D
         _WriteChar
         STAL  L013C
         PEA   $000A
         _WriteChar
         STAL  L013C
         BRL   LEC99
LEC12    LDA   $EF
         AND   #$00FF
         CMP   #$007F
         BEQ   LEC1F
         BRL   LEC96
LEC1F    LDA   $FB
         BNE   LEC25
         DEC   $FD
LEC25    DEC   $FB
         DEC   $F0
         PEA   $0008
         _WriteChar
         STAL  L013C
         PEA   $0020
         _WriteChar
         STAL  L013C
         PEA   $0008
         _WriteChar
         STAL  L013C
         LDA   $F0
         SEC
         SBC   #$0000
         BEQ   LEC96
         BVS   LEC60
         EOR   #$8000
LEC60    BPL   LEC96
         LDA   $FB
         BNE   LEC68
         DEC   $FD
LEC68    DEC   $FB
         DEC   $F0
         PEA   $0008
         _WriteChar
         STAL  L013C
         PEA   $0020
         _WriteChar
         STAL  L013C
         PEA   $0008
         _WriteChar
         STAL  L013C
LEC96    BRL   LEB6F
LEC99    LDA   $F0
         TAY
         TDC
         CLC
         ADC   #$00F5
         TCS
         TYA
         PLD
         RTL

LECA5    ASC   '.null'00
LECAB    ASC   '.stdin'00
LECB2    ASC   '.stdout'00
LECBA    ASC   '.stderr'00
LECC2    PHD
         TSC
         SEC
         SBC   #$00F3
         TCD
         ADC   #$00E8
         TCS
         STZ   $EC
         PEI   $FF
         PEI   $FD
         JSL   LBB31
         PLY
         PLY
         LDA   [$F9]
         STA   $EE
         LDX   $FF
         LDA   $FD
         PHA
         TXA
         STAL  LC61C
         PLA
         STAL  LC61A
         PEA   $0006
         PEA   ^LC61A
         PEA   LC61A
         JSL   LC4E7
         LDA   L013C
         CMP   #$0000
         BEQ   LED04
         BRL   LEDBA
LED04    LDA   $EE
         AND   #$0500
         CMP   #$0500
         BNE   LED16
         LDA   #$0011
         STA   $EC
         BRL   LEDB7
LED16    LDA   $EE
         AND   #$0001
         TAY
         BEQ   LED28
         LDAL  LC61E
         AND   #$0001
         TAY
         BEQ   LED3A
LED28    LDA   $EE
         AND   #$0002
         TAY
         BEQ   LED42
         LDAL  LC61E
         AND   #$0002
         TAY
         BNE   LED42
LED3A    LDA   #$000D
         STA   $EC
         BRL   LEDB7
LED42    LDX   $FF
         LDA   $FD
         PHA
         TXA
         STAL  LC638
         PLA
         STAL  LC636
         PEA   $0010
         PEA   ^LC634
         PEA   LC634
         JSL   LC4E7
         LDA   L013C
         CMP   #$0000
         BEQ   LED69
         BRL   LEDB7
LED69    LDA   $EE
         AND   #$0200
         TAY
         BNE   LED74
         BRL   LEDB7
LED74    LDX   #$0000
         LDA   #$0000
         PHA
         TXA
         STAL  LC656
         PLA
         STAL  LC654
         LDAL  LC634
         STAL  LC652
         PEA   $0018
         PEA   ^LC652
         PEA   LC652
         JSL   LC4E7
         LDA   L013C
         CMP   #$0000
         BEQ   LEDB7
         LDAL  LC634
         STAL  LC63E
         PEA   $0014
         PEA   ^LC63E
         PEA   LC63E
         JSL   LC4E7
LEDB7    BRL   LEE60
LEDBA    LDA   L013C
         CMP   #$0046
         BEQ   LEDC5
         BRL   LEE60
LEDC5    LDA   $EE
         AND   #$0100
         TAY
         BNE   LEDD0
         BRL   LEE60
LEDD0    LDAL  LC61E
         ORA   #$00C3
         STAL  LC61E
         LDA   $EE
         AND   #$0020
         TAY
         BEQ   LEDEC
         LDA   #$0000
         STAL  LC620
         BRA   LEDF3
LEDEC    LDA   #$0004
         STAL  LC620
LEDF3    LDA   #$0000
         STAL  LC62A
         STAL  LC628
         PEA   $0001
         PEA   ^LC61A
         PEA   LC61A
         JSL   LC4E7
         LDA   L013C
         CMP   #$0000
         BEQ   LEE16
         BRL   LEE60
LEE16    LDX   $FF
         LDA   $FD
         PHA
         TXA
         STAL  LC638
         PLA
         STAL  LC636
         PEA   $0010
         PEA   ^LC634
         PEA   LC634
         JSL   LC4E7
         LDA   L013C
         STA   $EA
         LDA   L013C
         CMP   #$0000
         BEQ   LEE60
         LDX   $FF
         LDA   $FD
         PHA
         TXA
         STAL  LC614
         PLA
         STAL  LC612
         PEA   $0002
         PEA   ^LC612
         PEA   LC612
         JSL   LC4E7
         LDA   $EA
         STA   L013C
LEE60    PEI   $FF
         PEI   $FD
         JSL   LD4C7
         PLY
         PLY
         LDA   L013C
         CMP   #$0000
         BEQ   LEE8A
         LDA   L013C
         PHA
         LDA   #$8000
         PLX
         STX   $F0
         ORA   $F0
         STA   $EC
         LDA   L013C
         LDY   #$0002
         STA   [$F9],Y
         BRA   LEE99
LEE8A    LDA   $EC
         CMP   #$0000
         BEQ   LEE99
         LDA   #$0000
         LDY   #$0002
         STA   [$F9],Y
LEE99    LDA   $EC
         CMP   #$0000
         BNE   LEF16
         PHX
         PHA
         PEA   $0000
         PEA   $000E
         LDA   L013E
         ORA   #$0F00
         PHA
         PEA   $8300
         PEA   $0000
         PEA   $0000
         _NewHandle
         STAL  L013C
         PLA
         PLX
         LDY   #$000A
         PHA
         TXA
         STA   [$F9],Y
         PLA
         LDY   #$0008
         STA   [$F9],Y
         LDY   #$000A
         LDA   [$F9],Y
         TAX
         LDY   #$0008
         LDA   [$F9],Y
         STA   $F0
         STX   $F2
         LDY   #$0002
         LDA   [$F0],Y
         TAX
         LDA   [$F0]
         STA   $F0
         STX   $F2
         LDAL  LC634
         LDY   #$0002
         STA   [$F0],Y
         LDY   #$000A
         LDA   [$F9],Y
         TAX
         LDY   #$0008
         LDA   [$F9],Y
         STA   $F0
         STX   $F2
         LDY   #$0002
         LDA   [$F0],Y
         TAX
         LDA   [$F0]
         STA   $F0
         STX   $F2
         LDA   #$0001
         STA   [$F0]
LEF16    LDA   $EC
         CMP   #$0000
         BNE   LEF22
         LDA   #$0000
         BRA   LEF2D
LEF22    LDA   $EC
         PHA
         LDA   #$4000
         PLX
         STX   $F0
         ORA   $F0
LEF2D    TAY
         TDC
         CLC
         ADC   #$00F3
         TCS
         TYA
         PLD
         RTL

