*
* Aesop's Fables
*
* (c) 1988, Unicorn Software
* (s) 2021, Antoine Vignau
*

	mx	%00
	rel
	dsk	AESOP.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/Menu.Macs
	use	4/Misc.Macs
	use	4/QD.Macs
	use	4/QDAux.Macs
	use	4/SANE.Macs
	use	4/Sound.Macs
	use	4/Std.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   L9D6B
         PLY
         PLY
         PEA   $0000
         LDA   LB479
         PHA
         JSL   LABFF
         PLY
         PLY
         PEA   ^L017C
         PEA   L017C
         JSL   LA97B
         PLY
         PLY
         TAY
         BNE   L00D3
         LDX   L0144
         LDA   L0142
         PHX
         PHA
         LDA   L0140
         PHA
         JSL   L018A
         PLY
         PLY
         PLY
         PEA   $0000
         JSL   LADA8
         PLY
L00D3    LDA   L013E
         ORA   #$0F00
         PHA
         _DisposeAll
         STAL  L013C
         LDX   #$0000
         LDA   #$0000
         PHX
         PHA
         LDX   L014E
         LDA   L014C
         JSL   LB15A
         BEQ   L0107
         LDX   L014E
         LDA   L014C
         PHX
         PHA
         JSL   LA4A4
         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   LB460
         PLY
         PLY
         PLY
L0130    TAY
         TDC
         CLC
         ADC   #$00FB
         TCS
         TYA
         PLD
         RTL

L013A    DB    $00
         DB    $00
L013C    DW    $0000
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   L08F8
         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   L9B93
         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   L9804
         PLY
         PLY
         PLY
         PLY
         PLY
         PEI   $F2
         PEI   $F0
         JSL   L9A9E
         PLY
         PLY
         STX   $EE
         STA   $EC
         PEA   $0000
         PEA   $0000
         PEA   $0000
         PEI   $F2
         PEI   $F0
         JSL   L9804
         PLY
         PLY
         PLY
         PLY
         PLY
         PEI   $F2
         PEI   $F0
         JSL   LA659
         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   L9B93
         PLY
         PLY
         PLY
         PLY
         STX   $D2
         STA   $D0
         LDX   #$0000
         LDA   #$0000
         PHX
         PHA
         LDX   $D2
         LDA   $D0
         JSL   LB15A
         BNE   L02F1
         LDA   #$0000
         BRL   L046A
L02F1    PEI   $D2
         PEI   $D0
         PEA   $0001
         PEA   $0004
         PEA   $0000
         TDC
         CLC
         ADC   #$00E0
         PHA
         JSL   L9686
         TAY
         TSC
         CLC
         ADC   #$000C
         TCS
         TYA
         PEI   $D2
         PEI   $D0
         PEA   $0001
         PEA   $0002
         PEA   $0000
         TDC
         CLC
         ADC   #$00EA
         PHA
         JSL   L9686
         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   LB15A
         BEQ   L0365
         PEI   $D2
         PEI   $D0
         JSL   LA659
         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   LB15A
         BNE   L038F
         LDA   #$0000
         BRL   L046A
L038F    LDA   $EA
         CMP   #$0064
         BCS   L03A4
         LDA   $EA
         PHA
         LDA   #$03E8
         CLC
         JSL   LA9A3
         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   L9686
         TAY
         TSC
         CLC
         ADC   #$000C
         TCS
         TYA
         STA   $E8
         LDA   $E8
         LDX   #$0000
         PHX
         PHA
         LDX   $D6
         LDA   $D4
         JSL   LA64E
         PLA
         PLX
         STX   $D6
         STA   $D4
         LDA   $E8
         LDX   #$0000
         PHX
         PHA
         LDX   $DE
         LDA   $DC
         JSL   LA998
         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   L9686
         TAY
         TSC
         CLC
         ADC   #$000C
         TCS
         TYA
         PEI   $D2
         PEI   $D0
         JSL   LA659
         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   LA9E8
         LDX   #$0000
         LDA   #$066D
         SEC
         JSL   LA8A2
         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   LA8A2
         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   L07FF+2
         STA   L07FF
         STX   $EA
         ORA   $EA
         BNE   L053D
         BRL   L05F4
L053D    LDX   L07FF+2
         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   L07FF+2
         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   L07FF+2
         LDA   L07FF
         STX   $EA
         ORA   $EA
         BEQ   L067A
         LDX   L07FF+2
         LDA   L07FF
         PHX
         PHA
         JSL   L0207
         PLY
         PLY
         LDX   L07FF+2
         LDA   L07FF
         PHX
         PHA
         _DisposeHandle
         STAL  L013C
         STZ   L07FF
         STZ   L07FF+2
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   L07FF+2
         LDA   L07FF
         STX   $F8
         ORA   $F8
         BEQ   L06D0
         LDX   L07FF+2
         LDA   L07FF
         PHX
         PHA
         JSL   L0207
         PLY
         PLY
         LDX   L07FF+2
         LDA   L07FF
         PHX
         PHA
         _DisposeHandle
         STAL  L013C
         STZ   L07FF
         STZ   L07FF+2
L06D0    _SoundShutDown
         STAL  L013C
         LDX   L07FB+2
         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   L07FB+2
         STA   L07FB
         LDX   L07FB+2
         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    ADRL  $00000000
L07FF    ADRL  $00000000
L0803    DW    $0000
L0805    ADRL  $00000000  ;  path name
         DW    $0000      ;  flags
         DW    $0000
         DW    $0000
L080F    DW    $002D
         DW    $002D
         DW    $002D
         DW    $002D
         DW    $0024
         DW    $0024
         DW    $0024
         DW    $0024
         DW    $001B
         DW    $001B
         DW    $001B
         DW    $001B
         DW    $001B
         DW    $001B
         DW    $001B
L082D    DW    $0072
L082F    DW    $0072
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   L0FFD
         REP   #$20
         PLA
         STA   L0FFE
         PHK
         PLB
         JSR   L08FD
*         BCS   L0881
         LDA   L1008
         PHA
         JSL   L0791
         PLA
         LDA   #L1050
         STA   L1064
         LDA   #^L1050
         STA   L1066
         JSR   L77B0
         LDA   #L1030
         STA   L1064
         LDA   #^L1030
         STA   L1066
         JSR   L8951
         JMP   L09F8

L0881    REP   #$30
         _FMShutDown
         _SoundShutDown
         _WindShutDown
         _CtlShutDown
         _DialogShutDown
         _EMShutDown
         _LEShutDown
         _QDShutDown
         _QDAuxShutDown
         _GrafOff
         _MTShutDown
         LDA   L1008
         PHA
         _DisposeAll
         LDA   L1008
         PHA
         _MMShutDown
         _TLShutDown
         LDA   L0FFE
         PHA
         PHB
         LDA   L0FFD
         STA   $01,S
         RTL

L08F8    JSL   L0842
         RTL

L08FD    _TLStartUp
         PEA   $0000
         _MMStartUp
         PLA
         STA   L1008
         _MTStartUp
         PEA   $0000
         PEA   $0000
         PEA   $0000
         PEA   $0800
         LDA   L1008
         PHA
         PEA   $C005
         PEA   $0000
         PEA   $0000
         _NewHandle
         PLA
         STA   $00
         PLA
         STA   $02
         LDA   [$00]
         STA   $04
         PHA
         PEA   $0000
         PEA   $00A0
         LDA   L1008
         PHA
         _QDStartUp
         LDA   $04
         CLC
         ADC   #$0300
         STA   $04
         PHA
         PEA   $0014
         PEA   $0000
         PEA   $0140
         PEA   $0000
         PEA   $00C8
         LDA   L1008
         PHA
         _EMStartUp
         PEA   ^L100A
         PEA   L100A
         _LoadTools
         LDA   L1008
         PHA
         _WindStartUp
         PEA   $0000
         PEA   $0000
         _RefreshDesktop
         LDA   L1008
         PHA
         LDA   $04
         CLC
         ADC   #$0100
         STA   $04
         PHA
         _CtlStartUp
         LDA   L1008
         PHA
         LDA   $04
         CLC
         ADC   #$0100
         STA   $04
         PHA
         _LEStartUp
         LDA   L1008
         PHA
         _DialogStartUp
         _QDAuxStartUp
         LDA   L1008
         PHA
         LDA   $04
         CLC
         ADC   #$0100
         STA   $04
         PHA
         _FMStartUp
*         LDA   L1008      ; PROTECTION
*         PHA
*         JSL   L734F
*         STA   L1006
*         CLC
         RTS

L09F8    REP   #$30
         LDA   #$0001
         STA   L1000
         STZ   L1002
         STZ   L1062
         JSR   L8031
         LDA   L1064
         STA   L0E45
         LDA   #$0000
         STA   L1064
         JSR   L803E
         JSR   L79E8
         LDA   L1064
         STA   L118E
         LDA   L1066
         STA   L1190
         JSR   L77E1
         LDA   L1064
         STA   L1192
         LDA   L1066
         STA   L1194
         JSR   L7F2F
         LDA   #L0EA4
         STA   L1064
         LDA   #^L0EA4
         STA   L1066
         LDA   #$0001
         STA   L1068
         LDA   #$000E
         STA   L106C
         LDA   #L1196
         STA   L1070
         LDA   #^L1196
         STA   L1072
         JSR   L87D4
         LDA   #L0EAB
         STA   L1064
         LDA   #^L0EAB
         STA   L1066
         STZ   L1068
         LDA   #$0012
         STA   L106C
         LDA   #L119A
         STA   L1070
         LDA   #^L119A
         STA   L1072
         JSR   L87D4
         LDA   #L10EE
         STA   L1064
         LDA   #^L10EE
         STA   L1066
         JSR   L77B0
         BRA   L0A98
L0A95    JMP   L0E33

L0A98    JSR   L7BE7
         JSR   L7B18
         BCS   L0A95
         LDA   L1064
         STA   L10DE
         LDA   L1066
         STA   L10E0
         LDA   L1068
         STA   L117E
         LDA   L106A
         STA   L1180
         JSR   L7B18
         BCS   L0A95
         LDA   L1064
         STA   L10E2
         LDA   L1066
         STA   L10E4
         LDA   L1068
         STA   L1182
         LDA   L106A
         STA   L1184
         JSR   L7B18
         BCS   L0A95
         LDA   L1064
         STA   L10E6
         LDA   L1066
         STA   L10E8
         LDA   L1068
         STA   L1186
         LDA   L106A
         STA   L1188
         JSR   L7B18
         BCS   L0B11
         LDA   L1064
         STA   L10EA
         LDA   L1066
         STA   L10EC
         LDA   L1068
         STA   L118A
         LDA   L106A
         STA   L118C
         BRA   L0B14
L0B11    JMP   L0E33

L0B14    LDA   #L1096
         STA   L1064
         LDA   #^L1096
         STA   L1066
         LDA   #L108C
         STA   L1068
         LDA   #^L108C
         STA   L106A
         LDA   #L1090
         STA   L106C
         LDA   #^L1090
         STA   L106E
         LDA   #L1094
         STA   L1070
         LDA   #^L1094
         STA   L1072
         JSR   L119E
         LDA   #$9999
         STA   L1064
         JSR   L7A4D
         JSR   L0EE9
         LDA   #$0007
         STA   L1064
         LDA   #$0009
         STA   L1068
         JSR   L7F8C
         STZ   L1064
         JSR   L8015
*         LDA   L1006	; check disk after protection check
*         BEQ   L0B88
*         LDA   #L0E94
*         STA   L1064
*         LDA   #^L0E94
*         STA   L1066
*        LDA   #$0064
*         STA   L1068
*         JSR   L7EDC
*         JSR   L78AC
*         JMP   L0E33

L0B88    LDA   #L0E7E
         STA   L1064
         LDA   #^L0E7E
         STA   L1066
         LDA   #$0064
         STA   L1068
         JSR   L7EDC
         JSR   L0EB4
         LDA   #L0E73
         STA   L1064
         LDA   #^L0E73
         STA   L1066
         LDA   L117E
         STA   L1068
         LDA   L1180
         STA   L106A
         LDA   #L10FE
         STA   L106C
         LDA   #^L10FE
         STA   L106E
         JSR   L7C2B
         BCS   L0C1D
         LDA   #L0E5F
         STA   L1064
         LDA   #^L0E5F
         STA   L1066
         LDA   L1182
         STA   L1068
         LDA   L1184
         STA   L106A
         LDA   #L111E
         STA   L106C
         LDA   #^L111E
         STA   L106E
         JSR   L7C2B
         BCS   L0C1D
         LDA   #L0E69
         STA   L1064
         LDA   #^L0E69
         STA   L1066
         LDA   L1186
         STA   L1068
         LDA   L1188
         STA   L106A
         LDA   #L113E
         STA   L106C
         LDA   #^L113E
         STA   L106E
         JSR   L7C2B
         BCS   L0C1D
         BRA   L0C20
L0C1D    JMP   L0E33

L0C20    LDA   #L0FCF
         STA   L1064
         LDA   #^L0FCF
         STA   L1066
         LDA   #L0FBB
         STA   L1068
         LDA   #^L0FBB
         STA   L106A
         LDA   #L0FBF
         STA   L106C
         LDA   #^L0FBF
         STA   L106E
         LDA   #L0FC3
         STA   L1070
         LDA   #^L0FC3
         STA   L1072
         JSR   L119E
         LDA   #L0FE9
         STA   L1064
         LDA   #^L0FE9
         STA   L1066
         LDA   #L0FB1
         STA   L1068
         LDA   #^L0FB1
         STA   L106A
         LDA   #L0FB5
         STA   L106C
         LDA   #^L0FB5
         STA   L106E
         LDA   #L0FB9
         STA   L1070
         LDA   #^L0FB9
         STA   L1072
         JSR   L119E
         LDA   #L0FDC
         STA   L1064
         LDA   #^L0FDC
         STA   L1066
         LDA   #L0FC5
         STA   L1068
         LDA   #^L0FC5
         STA   L106A
         LDA   #L0FC9
         STA   L106C
         LDA   #^L0FC9
         STA   L106E
         LDA   #L0FCD
         STA   L1070
         LDA   #^L0FCD
         STA   L1072
         JSR   L119E
         LDA   L108C
         STA   L1064
         LDA   L108E
         STA   L1066
         LDA   L1090
         STA   L1068
         LDA   L1092
         STA   L106A
         LDA   #$0001
         STA   L106C
         LDA   L1094
         STA   L1070
         JSR   L11CB
         LDA   #$0000
         STA   L1064
         LDA   #L10FE
         STA   L1068
         LDA   #^L10FE
         STA   L106A
         LDA   L117E
         STA   L106C
         LDA   L1180
         STA   L106E
         JSR   L842D
         LDA   #$0005
         STA   L1064
         JSR   L81CD
         LDA   #$0000
         STA   L1064
         LDA   #L111E
         STA   L1068
         LDA   #^L111E
         STA   L106A
         LDA   L1182
         STA   L106C
         LDA   L1184
         STA   L106E
         JSR   L842D
         LDA   #$0000
         STA   L1064
         LDA   #$0003
         STA   L1068
         LDA   #$0003
         STA   L106C
         LDA   #$0004
         STA   L1070
         JSR   L80D4
         LDA   L1186
         STA   L1064
         LDA   L1188
         STA   L1066
         LDA   #L0E47
         STA   L1068
         LDA   #^L0E47
         STA   L106A
         LDA   L1182
         STA   L106C
         LDA   L1184
         STA   L106E
         LDA   #L0E57
         STA   L1070
         LDA   #^L0E57
         STA   L1072
         LDA   #$0000
         STA   L1074
         JSR   L823E
         LDA   L1182
         STA   L1064
         LDA   L1184
         STA   L1066
         LDA   #$2000
         STA   L1068
         LDA   #$00E1
         STA   L106A
         JSR   L79D6
         LDA   #$0000
         STA   L1064
         LDA   #$0003
         STA   L1068
         LDA   #$0003
         STA   L106C
         LDA   #$0004
         STA   L1070
         JSR   L80D4
         LDA   L1186
         STA   L1064
         LDA   L1188
         STA   L1066
         LDA   #L0E4F
         STA   L1068
         LDA   #^L0E4F
         STA   L106A
         LDA   L1182
         STA   L106C
         LDA   L1184
         STA   L106E
         LDA   #L0E57
         STA   L1070
         LDA   #^L0E57
         STA   L1072
         LDA   #$0000
         STA   L1074
         JSR   L823E
         LDA   L1182
         STA   L1064
         LDA   L1184
         STA   L1066
         LDA   #$2000
         STA   L1068
         LDA   #$00E1
         STA   L106A
         JSR   L79D6
         LDA   #$0000
         STA   L1064
         LDA   #$0003
         STA   L1068
         LDA   #$0003
         STA   L106C
         LDA   #$0004
         STA   L1070
         JSR   L80D4
         LDA   #$0000
         STA   L1064
         JSR   L83B0
         JSR   L145E
         JMP   L12ED

L0E33    JSR   L7C19
         JSR   L11F0
         LDA   L0E45
         STA   L1064
         JSR   L803E
         JMP   L0881

L0E45    DW    $0000
L0E47    DW    $0001
         DW    $0001
         DW    $0058
         DW    $00A7
L0E4F    DW    $005A
         DW    $0001
         DW    $00B1
         DW    $00A7
L0E57    DW    $0043
         DW    $0042
         DW    $009A
         DW    $00E8
L0E5F    STR   '1/tit'
L0E69    STR   '1/cre'
L0E73    STR   '1/unic'
L0E7E    ASC   'P L E A S E   W A I T'00
L0E94    ASC   'B A D   D I S K'00
L0EA4    STR   'Geneva'
L0EAB    STR   'New York'
L0EB4    REP   #$30
         LDA   L1066
         PHA
         LDA   L1064
         PHA
         LDA   L106A
         PHA
         LDA   L1068
         PHA
         LDA   L1196
         STA   L1064
         LDA   L1198
         STA   L1066
         STZ   L1068
         JSR   L87BE
         PLA
         STA   L1068
         PLA
         STA   L106A
         PLA
         STA   L1064
         PLA
         STA   L1066
         RTS

L0EE9    REP   #$30
         LDA   L1066
         PHA
         LDA   L1064
         PHA
         LDA   L106A
         PHA
         LDA   L1068
         PHA
         LDA   L119A
         STA   L1064
         LDA   L119C
         STA   L1066
         STZ   L1068
         JSR   L87BE
         PLA
         STA   L1068
         PLA
         STA   L106A
         PLA
         STA   L1064
         PLA
         STA   L1066
         RTS

L0F1E    REP   #$30
         STZ   L1002
         LDA   L1000
         BEQ   L0F2E
         JSR   L119E
         INC   L1002
L0F2E    RTS

L0F2F    REP   #$30
         LDA   L1002
         BEQ   L0F39
         JSR   L11F7
L0F39    RTS

L0F3A    REP   #$30
         LDA   L1002
         BEQ   L0F4D
         LDA   L106C
         STA   L1070
         STZ   L106C
         JSR   L11CB
L0F4D    RTS

L0F4E    REP   #$30
         LDA   L1000
         BEQ   L0F59
         STZ   L1000
         RTS

L0F59    INC   L1000
         RTS

L0F5D    REP   #$30
         JSR   L11F0
         LDA   L0FB1
         STA   L1064
         LDA   L0FB3
         STA   L1066
         LDA   L0FB5
         STA   L1068
         LDA   L0FB7
         STA   L106A
         STZ   L106C
         LDA   L0FB9
         STA   L1070
         JSR   L11CB
         RTS

L0F87    REP   #$30
         JSR   L11F0
         LDA   L0FC5
         STA   L1064
         LDA   L0FC7
         STA   L1066
         LDA   L0FC9
         STA   L1068
         LDA   L0FCB
         STA   L106A
         STZ   L106C
         LDA   L0FCD
         STA   L1070
         JSR   L11CB
         RTS

L0FB1    DB    $00
         DB    $00
L0FB3    DB    $00
         DB    $00
L0FB5    DB    $00
         DB    $00
L0FB7    DB    $00
         DB    $00
L0FB9    DB    $00
         DB    $00
L0FBB    DB    $00
         DB    $00
L0FBD    DB    $00
         DB    $00
L0FBF    DB    $00
         DB    $00
L0FC1    DB    $00
         DB    $00
L0FC3    DB    $00
         DB    $00
L0FC5    DB    $00
         DB    $00
L0FC7    DB    $00
         DB    $00
L0FC9    DB    $00
         DB    $00
L0FCB    DB    $00
         DB    $00
L0FCD    DB    $00
         DB    $00
L0FCF    ASC   '1/fsbell'00
L0FDC    ASC   '1/fsgood'00
L0FE9    ASC   '1/fsbad'00
L0FF5    DW    $0000
         DW    $0000
         DW    $00C8
         DW    $0140
L0FFD    DB    $00
L0FFE    DB    $00
         DB    $00
L1000    DB    $00
         DB    $00
L1002    DB    $00
         DB    $00
         DB    $00
         DB    $00
*L1006    DW    $0000
L1008    DW    $0000
L100A    DW    $0009      ; 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
L1030    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L1050    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L1062    DB    $00
         DB    $00
L1064    DB    $00        ;  device name
         DB    $00
L1066    DB    $00        ;  ref num
         DB    $00
L1068    DB    $00        ;  volume name
         DB    $00
L106A    DB    $00        ;  file type
         DB    $00
L106C    DB    $00        ;  total blocks
         DB    $00
L106E    DB    $00        ;  transfer count
         DB    $00
L1070    DB    $00        ;  free blocks
         DB    $00
L1072    DB    $00        ;  creation date
         DB    $00
L1074    DB    $00        ;  file system
         DB    $00
L1076    DB    $00        ;  modification date
         DB    $00
L1078    DB    $00
         DB    $00
L107A    DB    $00        ;  blocks used
         DB    $00
L107C    DB    $00
         DB    $00
L107E    DB    $00
         DB    $00
L1080    DB    $00
         DB    $00
L1082    DB    $00
         DB    $00
L1084    DB    $00
         DB    $00
L1086    DB    $00
         DB    $00
L1088    DW    $0000	; disk index
L108A    DB    $00
         DB    $00
L108C    DB    $00
         DB    $00
L108E    DB    $00
         DB    $00
L1090    DB    $00
         DB    $00
L1092    DB    $00
         DB    $00
L1094    DB    $00
         DB    $00
L1096    ASC   '1/song1'00
L10A2    DB    $00
L10A3    DB    $00
L10A4    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L10AC    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L10B2    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L10B9    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L10CA    DB    $00
         DB    $00
L10CC    DB    $00
         DB    $00
L10CE    DB    $00
         DB    $00
L10D0    DB    $00
         DB    $00
L10D2    DB    $00
         DB    $00
L10D4    DB    $00
         DB    $00
L10D6    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L10DE    DB    $00
         DB    $00
L10E0    DB    $00
         DB    $00
L10E2    DB    $00
         DB    $00
L10E4    DB    $00
         DB    $00
L10E6    DB    $00
         DB    $00
L10E8    DB    $00
         DB    $00
L10EA    DB    $00
         DB    $00
L10EC    DB    $00
         DB    $00
L10EE    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L10FE    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L111E    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L112A    DB    $00
         DB    $00
L112C    DB    $00
         DB    $00
L112E    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L113E    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L117E    DB    $00
         DB    $00
L1180    DB    $00
         DB    $00
L1182    DB    $00
         DB    $00
L1184    DB    $00
         DB    $00
L1186    DB    $00
         DB    $00
L1188    DB    $00
         DB    $00
L118A    DB    $00
         DB    $00
L118C    DB    $00
         DB    $00
L118E    DB    $00
         DB    $00
L1190    DB    $00
         DB    $00
L1192    DB    $00
         DB    $00
L1194    DB    $00
         DB    $00
L1196    DB    $00
         DB    $00
L1198    DB    $00
         DB    $00
L119A    DB    $00
         DB    $00
L119C    DB    $00
         DB    $00
L119E    REP   #$30
         LDA   L1072
         PHA
         LDA   L1070
         PHA
         LDA   L106E
         PHA
         LDA   L106C
         PHA
         LDA   L106A
         PHA
         LDA   L1068
         PHA
         LDA   L1066
         PHA
         LDA   L1064
         PHA
         JSL   L0764
         TSC
         CLC
         ADC   #$0010
         TCS
         RTS

L11CB    REP   #$30
         LDA   L1070
         PHA
         LDA   L106C
         PHA
         LDA   L106A
         PHA
         LDA   L1068
         PHA
         LDA   L1066
         PHA
         LDA   L1064
         PHA
         JSL   L071C
         TSC
         CLC
         ADC   #$000C
         TCS
         RTS

L11F0    REP   #$30
         JSL   L0684
         RTS

L11F7    REP   #$30
         LDA   L1066
         PHA
         LDA   L1064
         PHA
         JSL   L07D9
         PLA
         STA   L1064
         PLA
         STA   L1066
         RTS

L120E    REP   #$30
         LDA   L1062
         BEQ   L1233
         JSR   L7824
         LDA   #L12A6
         STA   L1064
         LDA   #^L12A6
         STA   L1066
         LDA   #L127A
         STA   L1068
         LDA   #^L127A
         STA   L106A
         JSR   L93B7
L1233    RTS

L1234    REP   #$30	; we want disk 1
         LDA   #L12A6
         STA   L1064
         LDA   #^L12A6
         STA   L1066
         LDA   #L127A
         STA   L1068
         LDA   #^L127A
         STA   L106A
         STZ   L1088	; disk index
         BRA   L1276
L1253    REP   #$30	; we want disk 2
         STZ   L1062
         LDA   #L12AC
         STA   L1064
         LDA   #^L12AC
         STA   L1066
         LDA   #L1290
         STA   L1068
         LDA   #^L1290
         STA   L106A
         LDA   #$0001
         STA   L1088	; disk index
L1276    JSR   L9380
         RTS

L127A    ASC   'AESOP'27'S FABLES disk 1'00
L1290    ASC   'AESOP'27'S FABLES disk 2'00
L12A6    STR   '/af.1'
L12AC    STR   '/af.2'

L12B2    REP   #$30
         LDA   #L1096
         STA   L1064
         LDA   #^L1096
         STA   L1066
         LDA   #L108C
         STA   L1068
         LDA   #^L108C
         STA   L106A
         LDA   #L1090
         STA   L106C
         LDA   #^L1090
         STA   L106E
         LDA   #L1094
         STA   L1070
         LDA   #^L1094
         STA   L1072
         JSR   L119E
         JSR   L7A27
         JSR   L145E
L12ED    LDA   L108C
         STA   L1064
         LDA   L108E
         STA   L1066
         LDA   L1090
         STA   L1068
         LDA   L1092
         STA   L106A
         LDA   #$0001
         STA   L106C
         LDA   L1094
         STA   L1070
         JSR   L11CB
         JSR   L7A39
         JSR   L7824
         LDA   #$0000
         STA   L1064
         JSR   L83B0
         LDA   #$0004
         STA   L1064
         JSR   L8023
         LDX   #$0006
         LDY   #$0003
         LDA   #$0C00
L1335    STA   L111E,X
         INX
         INX
         DEY
         BNE   L1335
         JSR   L7A27
         LDA   #$0000
         STA   L1064
         LDA   #L111E
         STA   L1068
         LDA   #^L111E
         STA   L106A
         LDA   L118A
         STA   L106C
         LDA   L118C
         STA   L106E
         JSR   L842D
         JSR   L7A39
         STZ   L1434
L1367    LDA   #$0000
         STA   L1064
         LDA   #$0008
         STA   L1068
         LDA   #$0008
         STA   L106C
         LDA   #$0003
         STA   L1070
         LDA   #$0000
         STA   L1072
         JSR   L8178
         JSR   L789E
         CMP   #$001B
         BNE   L13A5
         JSR   L11F0
         LDA   L108C
         STA   L1064
         LDA   L108E
         STA   L1066
         JSR   L11F7
         JMP   L0E33

L13A5    LDA   L1064
         BEQ   L13AD
         JMP   L140F

L13AD    JSR   L7836
         LDA   #L1436
         STA   L106C
         LDA   #^L1436
         STA   L106E
         LDA   #$0004
         STA   L1070
         JSR   L8079
         LDA   L1074
         BNE   L13CD
L13CA    JMP   L1367

L13CD    CMP   L1434
         BEQ   L13CA
         STA   L1434
         STZ   L1078
         INC   L1078
         LDX   #$0004
         LDY   #$0003
L13E1    PHX
         PHY
         LDA   #$0000
         STA   L1064
         STY   L1068
         LDA   #$0C00
         STA   L106C
         LDA   L1078
         CMP   L1434
         BNE   L1400
         LDA   #$0EE0
         STA   L106C
L1400    JSR   L7A82
         PLY
         PLX
         INC   L1078
         INY
         DEX
         BNE   L13E1
         JMP   L1367

L140F    LDA   L1434
         BNE   L141A
         JSR   L804F
         JMP   L1367

L141A    PHA
         JSR   L11F0
         LDA   L108C
         STA   L1064
         LDA   L108E
         STA   L1066
         JSR   L11F7
         PLA
         DEC
         ASL
         TAX
         JMP   (L1456,X)

L1434    DW    $0000
L1436    DW    $000F
         DW    $0023
         DW    $0034
         DW    $0118
         DW    $003B
         DW    $0023
         DW    $0060
         DW    $0118
         DW    $0067
         DW    $0023
         DW    $008C
         DW    $0118
         DW    $0093
         DW    $0023
         DW    $00B8
         DW    $0118
L1456    DA    L1496
         DA    L462D
         DA    L4FDC
         DA    L5DB3
L145E    REP   #$30
         JSR   L1253
         LDA   #L148B
         STA   L1064
         LDA   #^L148B
         STA   L1066
         LDA   L118A
         STA   L1068
         LDA   L118C
         STA   L106A
         LDA   #L111E
         STA   L106C
         LDA   #^L111E
         STA   L106E
         JSR   L7C2B
         RTS

L148B    STR   '1/menu'
L1496    REP   #$30
         JSR   L7A27
         JSR   L1788
         JSR   L7A39
         JSR   L7824
         JSR   L8489
         LDA   #$0003
         STA   L1064
         JSR   L7EC0
         STZ   L1064
         JSR   L8015
         LDA   #$0004
         STA   L1064
         JSR   L8023
         LDA   #$0000
         STA   L1064
         JSR   L83B0
         JSR   L7A27
         LDA   #$0000
         STA   L1064
         LDA   #L10FE
         STA   L1068
         LDA   #^L10FE
         STA   L106A
         LDA   L1186
         STA   L106C
         LDA   L1188
         STA   L106E
         JSR   L842D
         JSR   L7A39
L14EF    JSR   L7A27
         LDA   L1186
         STA   L1064
         LDA   L1188
         STA   L1066
         LDA   #$2000
         STA   L1068
         LDA   #$00E1
         STA   L106A
         JSR   L79D6
         JSR   L7A39
         STZ   L15E9
L1513    JSR   L789E
         CMP   #$001B
         BNE   L1521
         JSR   L1234
         JMP   L12B2

L1521    LDA   L1064
         BEQ   L1513
         JSR   L7836
         LDA   #L15F7
         STA   L106C
         LDA   #^L15F7
         STA   L106E
         LDA   #$000C
         STA   L1070
         JSR   L8079
         LDA   #L15F7
         STA   L1064
         LDA   #^L15F7
         STA   L1066
         LDA   L1074
         BNE   L1555
         JSR   L804F
         JMP   L1513

L1555    STA   L15E9
         DEC
         ASL
         ASL
         ASL
         CLC
         ADC   L1064
         STA   L15EB
         LDA   #$0000
         ADC   L1066
         STA   L15ED
         LDA   #L166F
         STA   L1064
         LDA   #^L166F
         STA   L1066
         LDA   L15E9
         STA   L1068
         JSR   L7F44
         LDA   L106E
         PHA
         LDA   L106C
         PHA
         JSR   L7A27
         LDA   #L15EF
         STA   L1064
         LDA   #^L15EF
         STA   L1066
         LDA   #$000F
         STA   L1068
         JSR   L7A00
         PLA
         STA   L1064
         PLA
         STA   L1066
         LDA   #$00C1
         STA   L1068
         JSR   L7EDC
         JSR   L804F
         JSR   L7A39
         JSR   L80C9
L15BB    JSR   L7836
         LDA   L106C
         BNE   L15E0
         LDA   L15EB
         STA   L106C
         LDA   L15ED
         STA   L106E
         LDA   #$0001
         STA   L1070
         JSR   L8079
         LDA   L1074
         BNE   L15BB
         JMP   L14EF

L15E0    LDA   L15E9
         DEC
         ASL
         TAX
         JMP   (L1657,X)

L15E9    DW    $0000
L15EB    DW    $0000
L15ED    DW    $0000
L15EF    DW    $00B2
         DW    $0002
         DW    $00C6
         DW    $013E
L15F7    DW    $0001
         DW    $0001
         DW    $003A
         DW    $004F
         DW    $0001
         DW    $0051
         DW    $003A
         DW    $009F
         DW    $0001
         DW    $00A1
         DW    $003A
         DW    $00EF
         DW    $0001
         DW    $00F1
         DW    $003A
         DW    $013F
         DW    $003C
         DW    $0001
         DW    $0075
         DW    $004F
         DW    $003C
         DW    $0051
         DW    $0075
         DW    $009F
         DW    $003C
         DW    $00A1
         DW    $0075
         DW    $00EF
         DW    $003C
         DW    $00F1
         DW    $0075
         DW    $013F
         DW    $0077
         DW    $0001
         DW    $00B0
         DW    $004F
         DW    $0077
         DW    $0051
         DW    $00B0
         DW    $009F
         DW    $0077
         DW    $00A1
         DW    $00B0
         DW    $00EF
         DW    $0077
         DW    $00F1
         DW    $00B0
         DW    $013F
L1657    DA    L2CF6
         DA    L2DE2
         DA    L2F13
         DA    L2FF1
         DA    L3122
         DA    L3253
         DA    L3305
         DA    L33E3
         DA    L34C1
         DA    L359F
         DA    L367D
         DA    L375B
L166F    ASC   'The Thirsty Crow'00
         ASC   'The Fox and the Grapes'00
         ASC   'The Rabbit and the Turtle'00
         ASC   'The Sun and the North Wind'00
         ASC   'The Boy and the Candy'00
         ASC   'The Fox and the Wild Boar'00
         ASC   'The Fox and the Crow'00
         ASC   'The Ant and the Grasshopper'00
         ASC   'The Dog and His Reflection'00
         ASC   'The Greedy Fox'00
         ASC   'The Peacock and the Crane'00
         ASC   'The Mouse and the Lion'00
L1788    REP   #$30
         JSR   L1253
         LDA   #L17B5
         STA   L1064
         LDA   #^L17B5
         STA   L1066
         LDA   L1186
         STA   L1068
         LDA   L1188
         STA   L106A
         LDA   #L10FE
         STA   L106C
         LDA   #^L10FE
         STA   L106E
         JSR   L7C2B
         RTS

L17B5    STR   '1/smen'
L17C0    REP   #$30
         JSR   L7A27
         JSR   L1234
         JSR   L87B4
         LDA   #$000F
         STA   L1064
         JSR   L7EC0
         LDA   #L1B58
         STA   L1064
         LDA   #^L1B58
         STA   L1066
         LDA   L117E
         STA   L1068
         LDA   L1180
         STA   L106A
         LDA   #L111E
         STA   L106C
         LDA   #^L111E
         STA   L106E
         JSR   L7C2B
         LDA   #L19ED
         STA   L1064
         LDA   #^L19ED
         STA   L1066
         LDA   #L19F9
         STA   L1068
         LDA   #^L19F9
         STA   L106A
         LDA   #L19FD
         STA   L106C
         LDA   #^L19FD
         STA   L106E
         LDA   #L1A01
         STA   L1070
         LDA   #^L1A01
         STA   L1072
         JSR   L119E
         LDA   L117E
         STA   L1064
         LDA   L1180
         STA   L1066
         JSR   L77F9
         LDA   #L19C7
         STA   L1064
         LDA   #^L19C7
         STA   L1066
         LDA   #$0006
         STA   L1068
         JSR   L7A00
         LDA   #$0005
         STA   L1064
         JSR   L7EC0
         LDA   #L19CF
         STA   L1064
         LDA   #^L19CF
         STA   L1066
         JSR   L7E71
         LDA   #$0002
         STA   L1064
         JSR   L7EC0
         LDA   #L19D9
         STA   L1064
         LDA   #^L19D9
         STA   L1066
         JSR   L7E71
         LDA   #L19E3
         STA   L1064
         LDA   #^L19E3
         STA   L1066
         JSR   L7E71
         JSR   L0EE9
         LDA   #L8829
         STA   L107C
         LDA   #^L8829
         STA   L107E
         LDA   #$0093
         STA   L1080
         JSR   L1930
         LDA   L881A
         CMP   #$0001
         BEQ   L18C6
         LDA   #L883D
         STA   L107C
         LDA   #^L883D
         STA   L107E
         LDA   #$00BE
         STA   L1080
         JSR   L1930
L18C6    LDA   #$0000
         STA   L1064
         LDA   #L111E
         STA   L1068
         LDA   #^L111E
         STA   L106A
         LDA   L117E
         STA   L106C
         LDA   L1180
         STA   L106E
         JSR   L842D
         LDA   L19F9
         STA   L1064
         LDA   L19FB
         STA   L1066
         LDA   L19FD
         STA   L1068
         LDA   L19FF
         STA   L106A
         LDA   #$0001
         STA   L106C
         LDA   L1A01
         STA   L1070
         JSR   L11CB
         JSR   L0EB4
         JSR   L8489
         JSR   L78AC
         JSR   L11F0
         LDA   L19F9
         STA   L1064
         LDA   L19FB
         STA   L1066
         JSR   L11F7
         JSR   L7824
         JSR   L7A39
         RTS

L1930    LDA   #$0009
         STA   L1064
         JSR   L7EC0
         LDA   #$000C
         STA   L1064
         LDA   L1080
         STA   L1068
         JSR   L7E26
         LDA   L107C
         STA   L1064
         LDA   L107E
         STA   L1066
         JSR   L7E5F
         LDA   #$0007
         STA   L1064
         JSR   L7EC0
         LDA   L107C
         STA   $04
         LDA   L107E
         STA   $06
         LDY   #$000E
         LDA   #$00C1
         STA   L106C
         JSR   L197F
         LDY   #$0010
         LDA   #$0115
         STA   L106C
L197F    LDA   [$04],Y
         STA   L1064
         LDA   #L10A2
         STA   L1068
         LDA   #^L10A2
         STA   L106A
         JSR   L7957
         SEP   #$20
         LDA   L10A3
         BNE   L19A6
         REP   #$20
         LDA   #$0008
         CLC
         ADC   L106C
         STA   L106C
L19A6    REP   #$20
         LDA   L106C
         STA   L1064
         LDA   L1080
         STA   L1068
         JSR   L7E26
         LDA   #L10A2
         STA   L1064
         LDA   #^L10A2
         STA   L1066
         JSR   L7E5F
         RTS

L19C7    DW    $000F
         DW    $0078
         DW    $003C
         DW    $00C8
L19CF    DW    $008C
         DW    $002B
         ASC   'Score'00
L19D9    DW    $00BD
         DW    $006C
         ASC   'Right'00
L19E3    DW    $0111
         DW    $006C
         ASC   'Wrong'00
L19ED    ASC   '1/song1'00
L19F9    DW    $0000
L19FB    DW    $0000
L19FD    DW    $0000
L19FF    DW    $0000
L1A01    DW    $0000
L1A03    REP   #$30
         LDA   L1068
         SEC
         SBC   L1064
         STA   L1074
         INC
         STA   L1078
         TAX
         LDA   L106C
         STA   $0C
         LDA   L106E
         STA   $0E
         LDA   L1064
         STA   L107C
         LDA   #$FFFF
         LDY   #$0000
L1A2A    STA   [$0C],Y
         INY
         INY
         DEX
         BNE   L1A2A
L1A31    STZ   L1064
         LDA   L1074
         STA   L1068
         JSR   L7903
         ASL
         TAY
         LDA   [$0C],Y
         CMP   #$FFFF
         BNE   L1A31
         LDA   L107C
         STA   [$0C],Y
         INC   L107C
         DEC   L1078
         BNE   L1A31
         RTS

L1A54    REP   #$30
         LDA   #L1CEC
         STA   L1064
         LDA   #^L1CEC
         STA   L1066
         LDA   L1182
         STA   L1068
         LDA   L1184
         STA   L106A
         LDA   #L111E
         STA   L106C
         LDA   #^L111E
         STA   L106E
         JSR   L7C2B
         LDA   #L1CF8
         STA   L1064
         LDA   #^L1CF8
         STA   L1066
         LDA   L1186
         STA   L1068
         LDA   L1188
         STA   L106A
         LDA   #L111E
         STA   L106C
         LDA   #^L111E
         STA   L106E
         JSR   L7C2B
L1AA4    REP   #$30
         LDA   #L1D04
         STA   L1064
         LDA   #^L1D04
         STA   L1066
         LDA   L118A
         STA   L1068
         LDA   L118C
         STA   L106A
         LDA   #L111E
         STA   L106C
         LDA   #^L111E
         STA   L106E
         JSR   L7C2B
         RTS

L1ACE    REP   #$30
         LDA   L1064
         STA   L1074
         LDA   L1182
         STA   L1064
         LDA   L1184
         STA   L1066
         LDA   L1074
         CMP   #$0001
         BEQ   L1B0A
         LDA   L1186
         STA   L1064
         LDA   L1188
         STA   L1066
         LDA   L1074
         CMP   #$0002
         BEQ   L1B0A
         LDA   L118A
         STA   L1064
         LDA   L118C
         STA   L1066
L1B0A    LDA   #L1B64
         STA   L1074
         LDA   #^L1B64
         STA   L1076
         LDA   L1068
         DEC
         ASL
         ASL
         ASL
         CLC
         ADC   L1074
         STA   L1068
         LDA   #$0000
         ADC   L1076
         STA   L106A
         LDA   #$0000
         STA   L1074
         JSR   L823E
         RTS

L1B37    REP   #$30
         LDA   L1068
         DEC
         ASL
         ASL
         ASL
         ASL
         CLC
         ADC   L1064
         STA   L1068
         LDA   #L1BE4
         STA   L1064
         LDA   #^L1BE4
         STA   L1066
         JSR   L7F44
         RTS

L1B58    STR   '1/spell'
L1B64    DW    $0000
         DW    $0000
         DW    $002D
         DW    $0050
         DW    $0000
         DW    $0050
         DW    $002D
         DW    $00A0
         DW    $0000
         DW    $00A0
         DW    $002D
         DW    $00F0
         DW    $0000
         DW    $00F0
         DW    $002D
         DW    $0140
         DW    $002D
         DW    $0000
         DW    $005A
         DW    $0050
         DW    $002D
         DW    $0050
         DW    $005A
         DW    $00A0
         DW    $002D
         DW    $00A0
         DW    $005A
         DW    $00F0
         DW    $002D
         DW    $00F0
         DW    $005A
         DW    $0140
         DW    $005A
         DW    $0000
         DW    $0087
         DW    $0050
         DW    $005A
         DW    $0050
         DW    $0087
         DW    $00A0
         DW    $005A
         DW    $00A0
         DW    $0087
         DW    $00F0
         DW    $005A
         DW    $00F0
         DW    $0087
         DW    $0140
         DW    $0087
         DW    $0000
         DW    $00B4
         DW    $0050
         DW    $0087
         DW    $0050
         DW    $00B4
         DW    $00A0
L1BD4    DW    $0087
         DW    $00A0
         DW    $00B4
         DW    $00F0
         DW    $0087
         DW    $00F0
         DW    $00B4
         DW    $0140
L1BE4    ASC   'sun'00
         ASC   'crow'00
         ASC   'fox'00
         ASC   'grapes'00
         ASC   'candy'00
         ASC   'Earth'00
         ASC   'rabbit'00
         ASC   'mouse'00
         ASC   'cheese'00
         ASC   'dog'00
         ASC   'dessert'00
         ASC   'lion'00
         ASC   'summer'00
         ASC   'autumn'00
         ASC   'winter'00
         ASC   'fall'00
         ASC   'turtle'00
         ASC   'fan'00
         ASC   'tree'00
         ASC   'house'00
         ASC   'rope'00
         ASC   'King'00
         ASC   'jug'00
         ASC   'hand'00
         ASC   'cookies'00
         ASC   'net'00
         ASC   'wind'00
         ASC   'desert'00
         ASC   'mountains'00
         ASC   'baseball'00
         ASC   'ring'00
         ASC   'comb'00
         ASC   'boar'00
         ASC   'nest'00
         ASC   'book'00
         ASC   'feather'00
         ASC   'cloud'00
         ASC   'hat'00
         ASC   'cape'00
         ASC   'moon'00
         ASC   'peacock'00
         ASC   'ant'00
         ASC   'crane'00
         ASC   'candle'00
         ASC   'scroll'00
L1CEC    STR   '1/misc1'
L1CF8    STR   '1/misc2'
L1D04    STR   '1/misc3'
L1D10    REP   #$30
         LDA   L117E
         STA   L1064
         LDA   L1180
         STA   L1066
         LDA   #$7D00
         STA   L1068
         LDA   #$0000
         STA   L106A
         LDA   #$0000
         STA   L106C
         JSR   L7A65
         LDA   #$0000
         STA   L1064
         JSR   L7A4D
         JSR   L7824
         RTS

L1D40    REP   #$30
         LDA   L117E
         STA   L1064
         LDA   L1180
         STA   L1066
         LDA   #$2000
         STA   L1068
         LDA   #$00E1
         STA   L106A
         JSR   L79D6
         JSR   L7824
         RTS

L1D61    REP   #$30
         LDA   #$2000
         STA   L1064
         LDA   #$00E1
         STA   L1066
         LDA   L117E
         STA   L1068
         LDA   L1180
         STA   L106A
         JSR   L79D6
         RTS

L1D7F    REP   #$30
         LDA   L1064
         STA   L29DF
         JSR   L7EC0
         RTS

L1D8B    REP   #$30
         LDA   L1068
         STA   L106C
         LDA   L106A
         STA   L106E
         LDA   #L29FB
         STA   L1068
         LDA   #^L29FB
         STA   L106A
         LDA   #L2A03
         STA   L1070
         LDA   #^L2A03
         STA   L1072
         LDA   #$0000
         STA   L1074
         JSR   L823E
         RTS

L1DBB    REP   #$30
         LDA   L1068
         STA   L106C
         LDA   L106A
         STA   L106E
         LDA   #L2A03
         STA   L1068
         LDA   #^L2A03
         STA   L106A
         LDA   #L2A03
         STA   L1070
         LDA   #^L2A03
         STA   L1072
         LDA   #$0000
         STA   L1074
         JSR   L823E
         RTS

L1DEB    REP   #$30
         LDA   L1064
         PHA
         LDA   #L1EF4
         STA   $00
         LDA   #^L1EF4
         STA   $02
         LDA   L1064
         DEC
         LSR
         ASL
         ASL
         TAY
         LDA   [$00],Y
         STA   L1064
         INY
         INY
         LDA   [$00],Y
         STA   L1066
         LDA   L1066
         PHA
         LDA   L1064
         PHA
         JSR   L7B8A
         LDA   L1088
         STA   L1064
         LDA   L108A
         STA   L1066
         LDA   #$0200
         STA   L1068
         LDA   #$0000
         STA   L106A
         JSR   L78BF
         LDA   L106E
         PHA
         LDA   L106C
         PHA
         LDA   L106C
         STA   L1064
         LDA   L106E
         STA   L1066
         LDA   #$C000
         STA   L1068
         JSR   L7AC4
         LDA   L106C
         STA   L29E3
         LDA   L106E
         STA   L29E5
         LDA   L1070
         STA   L29E7
         LDA   L1072
         STA   L29E9
         PLA
         STA   L1088
         PLA
         STA   L108A
         PLA
         STA   L1064
         PLA
         STA   L1066
         JSR   L7B4B
         LDA   L1068
         PHA
         LDA   L1068
         STA   L1064
         LDA   L29E7
         STA   L1068
         LDA   L29E9
         STA   L106A
         LDA   L1088
         STA   L106C
         LDA   L108A
         STA   L106E
         JSR   L7B6A
         PLA
         STA   L1064
         JSR   L7B7D
         LDA   L29E7
         STA   $00
         LDA   L29E9
         STA   $02
         LDY   #$0000
         PLA
         AND   #$0001
         BNE   L1EC5
         SEP   #$20
L1EBE    LDA   [$00],Y
         INY
         CMP   #$5E
         BNE   L1EBE
L1EC5    STY   L29EB
         STY   L29ED
         SEP   #$20
L1ECD    LDA   [$00],Y
         INY
         CMP   #$2A
         BNE   L1ECD
         STY   L29EF
L1ED7    LDA   [$00],Y
         INY
         CMP   #$7E
         BNE   L1ED7
         STY   L29F1
L1EE1    LDA   [$00],Y
         INY
         CMP   #$40
         BNE   L1EE1
         STY   L29F3
         STZ   L29F5
         STZ   L29F9
         REP   #$20
         RTS

L1EF4    ADRL  L1F0C
         ADRL  L1F19
         ADRL  L1F26
         ADRL  L1F33
         ADRL  L1F40
         ADRL  L1F4D
L1F0C    STR   '1/fabs12'
L1F19    STR   '1/fabs34'
L1F26    STR   '1/fabs56'
L1F33    STR   '1/fabs78'
L1F40    STR   '1/fabs9a'
L1F4D    STR   '1/fabsbc'
L1F5A    REP   #$30
         LDA   L29E3
         STA   L1064
         LDA   L29E5
         STA   L1066
         JSR   L7B06
         RTS

L1F6C    REP   #$30
         LDA   L1068
         PHA
         LDA   L1068
         PHA
         LDA   L1064
         PHA
         LDA   L106C
         STA   L1064
         LDA   L106E
         STA   L1066
         JSR   L77F9
         LDA   #L2A13
         STA   L1064
         LDA   #^L2A13
         STA   L1066
         PLA
         STA   L1068
         JSR   L7A00
         LDA   #L2A0B
         STA   L1064
         LDA   #^L2A0B
         STA   L1066
         PLA
         STA   L1068
         JSR   L7A00
         PLA
         STA   L1064
         LDA   L1064
         STA   L29E1
         JSR   L7ECE
         RTS

L1FBD    REP   #$30
L1FBF    LDA   L1064
         PHA
         JSR   L20A8
         CMP   #$0000
         BNE   L1FD8
         PLA
         STA   L1064
         DEC   L1064
         BNE   L1FBF
         LDA   #$0000
         RTS

L1FD8    PLA
         STA   L1064
         RTS

L1FDD    REP   #$30
         JSR   L77F9
         LDA   #L2A0B
         STA   L1064
         LDA   #^L2A0B
         STA   L1066
         LDA   L29E1
         STA   L1068
         JSR   L7A00
         LDA   L29E7
         STA   $04
         LDA   L29E9
         STA   $06
         LDX   #$0014
         LDA   L29F5
         BEQ   L202D
         JSR   L0EE9
         LDA   #L2A1B
         STA   L1064
         LDA   #^L2A1B
         STA   L1066
         LDA   #$001E
         STA   L1068
         JSR   L7EDC
         JSR   L0EB4
         STZ   L29F5
         INC   L29F9
         LDX   #$0036
L202D    LDY   L29ED
         STX   L29F7
L2033    LDX   #$0000
L2036    SEP   #$20
         LDA   [$04],Y
         INY
         CMP   #$0D
         BEQ   L205B
         CMP   #$24
         BEQ   L2050
         CMP   #$23
         BEQ   L204D
         STA   L10A2,X
         INX
         BRA   L2036
L204D    INC   L29F5
L2050    JSR   L2062
         INY
         INY
         STY   L29ED
         REP   #$20
         RTS

L205B    INY
         JSR   L2062
         JMP   L2033

L2062    STZ   L10A2,X
         REP   #$20
         PHY
         LDA   L29F7
         STA   L1068
         LDA   L29F9
         BEQ   L2084
         LDA   #L10A2
         STA   L1064
         LDA   #^L10A2
         STA   L1066
         JSR   L7EDC
         BRA   L209C
L2084    LDA   #$0005
         STA   L1064
         JSR   L7E26
         LDA   #L10A2
         STA   L1064
         LDA   #^L10A2
         STA   L1066
         JSR   L7E5F
L209C    LDA   #$0011
         CLC
         ADC   L29F7
         STA   L29F7
         PLY
         RTS

L20A8    REP   #$30
         LDA   L117E
         STA   L1064
         LDA   L1180
         STA   L1066
         JSR   L1FDD
         JSR   L1D40
         JSR   L804F
L20BF    JSR   L78AC
         CMP   #$0000
         BNE   L20CB
L20C7    LDA   #$0000
         RTS

L20CB    CMP   #$001B
         BNE   L20D4
         LDA   #$FFFF
         RTS

L20D4    AND   #$00DF
         CMP   #$0057
         BNE   L20C7
         JSR   L2A4F
         BRA   L20BF
L20E1    REP   #$30
         LDA   L1000
         BEQ   L20E8
L20E8    LDA   #L22B1
         STA   L1064
         LDA   #^L22B1
         STA   L1066
         LDA   #L22BD
         STA   L1068
         LDA   #^L22BD
         STA   L106A
         LDA   #L22C1
         STA   L106C
         LDA   #^L22C1
         STA   L106E
         LDA   #L22C5
         STA   L1070
         LDA   #^L22C5
         STA   L1072
         JSR   L0F1E
         LDA   #$0000
         STA   L1064
         JSR   L83B0
         JSR   L7824
         JSR   L0EB4
         LDA   #$0000
         STA   L1064
         JSR   L7A4D
         LDA   #L2312
         STA   L1064
         LDA   #^L2312
         STA   L1066
         LDA   #$0009
         STA   L1068
         JSR   L7A00
         LDA   #L231A
         STA   L1064
         LDA   #^L231A
         STA   L1066
         LDA   #$000E
         STA   L1068
         JSR   L7A00
         LDA   #L2322
         STA   L1064
         LDA   #^L2322
         STA   L1066
         LDA   #$0007
         STA   L1068
         JSR   L7A00
         LDA   #L232A
         STA   L1064
         LDA   #^L232A
         STA   L1066
         LDA   #$0009
         STA   L1068
         JSR   L7A00
         LDA   #L2332
         STA   L1064
         LDA   #^L2332
         STA   L1066
         LDA   #$0009
         STA   L1068
         JSR   L7A00
         LDA   #$000D
         STA   L1064
         JSR   L7EC0
         LDA   #L22C7
         STA   L1064
         LDA   #^L22C7
         STA   L1066
         LDA   #$001E
         STA   L1068
         JSR   L7EDC
         LDA   #$0007
         STA   L1064
         JSR   L7EC0
         LDA   #L22E3
         STA   L1064
         LDA   #^L22E3
         STA   L1066
         JSR   L7E71
         LDA   #L22F6
         STA   L1064
         LDA   #^L22F6
         STA   L1066
         JSR   L7E71
         LDA   #L230F
         STA   L1064
         LDA   #^L230F
         STA   L1066
         LDA   #$00AF
         STA   L1068
         JSR   L7EDC
         LDA   #$0001
         STA   L9584
         LDA   #$0000
         STA   L1064
         LDA   #L1030
         STA   L1068
         LDA   #^L1030
         STA   L106A
         JSR   L82F4
         LDA   L22BD
         STA   L1064
         LDA   L22BF
         STA   L1066
         LDA   L22C1
         STA   L1068
         LDA   L22C3
         STA   L106A
         LDA   L22C5
         STA   L106C
         JSR   L0F3A
         JSR   L7A39
         JSR   L8489
L2238    LDA   #$0000
         STA   L1064
         LDA   #L2322
         STA   L1068
         LDA   #^L2322
         STA   L106A
         LDA   #$0003
         STA   L106C
         JSR   L8A2A
         CMP   #$0009
         BNE   L2268
         JSR   L0F4E
         JSR   L804F
L225E    JSR   L787E
         CMP   #$0009
         BEQ   L225E
         BRA   L2238
L2268    LDA   L1064
         BEQ   L2238
         CMP   #$0003
         BEQ   L229B
         CMP   L9584
         BEQ   L2238
         STA   L9584
         LDA   L9584
         STA   L1064
         LDA   #$0002
         STA   L1068
         LDA   #L2322
         STA   L106C
         LDA   #^L2322
         STA   L106E
         JSR   L8AEF
         JSR   L804F
         JMP   L2238

L229B    LDA   L22BD
         STA   L1064
         LDA   L22BF
         STA   L1066
         JSR   L0F2F
         JSR   L7A27
         LDA   L9584
         RTS

L22B1    ASC   '1/fsact'00
L22BD    DW    $0000
L22BF    DW    $0000
L22C1    DW    $0000
L22C3    DW    $0000
L22C5    DW    $0000
L22C7    ASC   'Please select the activity.'00
L22E3    DW    $004E
         DW    $0055
         ASC   'Read the fable'00
L22F6    DW    $004E
         DW    $0069
         ASC   'Answer the questions'00
L230F    ASC   'OK'00
L2312    DW    $0005
         DW    $0005
         DW    $00C2
         DW    $013A
L231A    DW    $0007
         DW    $0007
         DW    $00C0
         DW    $0138
L2322    DW    $0049
         DW    $003A
         DW    $0057
         DW    $0048
L232A    DW    $005D
         DW    $003A
         DW    $006B
         DW    $0048
L2332    DW    $00A0
         DW    $0091
         DW    $00B4
         DW    $00AF
L233A    REP   #$30
         LDA   #$0000
         STA   L1064
         JSR   L83B0
         JSR   L7824
         JSR   L0EE9
         LDA   #$0000
         STA   L1064
         JSR   L7A4D
         LDA   #$000D
         STA   L1064
         JSR   L7EC0
         LDA   #L2403
         STA   L1064
         LDA   #^L2403
         STA   L1066
         JSR   L7E71
         LDA   #L2416
         STA   L1064
         LDA   #^L2416
         STA   L1066
         JSR   L7E71
         LDA   #L242A
         STA   L1064
         LDA   #^L242A
         STA   L1066
         JSR   L7E71
         LDA   #L243C
         STA   L1064
         LDA   #^L243C
         STA   L1066
         JSR   L7E71
         JSR   L0EB4
         LDA   #$0007
         STA   L1064
         JSR   L7EC0
         LDA   #L2451
         STA   L1064
         LDA   #^L2451
         STA   L1066
         LDA   #$00B3
         STA   L1068
         JSR   L7EDC
         LDA   #L2467
         STA   L1064
         LDA   #^L2467
         STA   L1066
         LDA   #$00C4
         STA   L1068
         JSR   L7EDC
         LDA   #$0000
         STA   L1064
         LDA   #L1030
         STA   L1068
         LDA   #^L1030
         STA   L106A
         JSR   L82F4
         JSR   L8489
L23E7    JSR   L789E
         CMP   #$0000
         BNE   L23F6
         LDA   L1064
         BEQ   L23E7
         BRA   L23FB
L23F6    CMP   #$001B
         BEQ   L23FF
L23FB    LDA   #$0000
         RTS

L23FF    LDA   #$FFFF
         RTS
L2403    DW    $005C
         DW    $002B
         ASC   'Press a key or'00
L2416    DW    $005C
         DW    $0046
         ASC   'click the mouse'00
L242A    DW    $005C
         DW    $0061
         ASC   'to answer the'00
L243C    DW    $005C
         DW    $007C
         ASC   'fable questions.'00
L2451    ASC   'Press "ESC" to return'00
L2467    ASC   'to the fable menu.'00
L247A    REP   #$30
         LDA   L1000
         BEQ   L2481
L2481    LDA   #L266E
         STA   L1064
         LDA   #^L266E
         STA   L1066
         LDA   #L267C
         STA   L1068
         LDA   #^L267C
         STA   L106A
         LDA   #L2680
         STA   L106C
         LDA   #^L2680
         STA   L106E
         LDA   #L2684
         STA   L1070
         LDA   #^L2684
         STA   L1072
         JSR   L0F1E
         LDA   #$0000
         STA   L1064
         JSR   L83B0
         JSR   L7824
         JSR   L0EB4
         LDA   #$0000
         STA   L1064
         JSR   L7A4D
         LDA   #L26D1
         STA   L1064
         LDA   #^L26D1
         STA   L1066
         LDA   #$0009
         STA   L1068
         JSR   L7A00
         LDA   #L26D9
         STA   L1064
         LDA   #^L26D9
         STA   L1066
         LDA   #$000E
         STA   L1068
         JSR   L7A00
         LDA   #L26E1
         STA   L1064
         LDA   #^L26E1
         STA   L1066
         LDA   #$0007
         STA   L1068
         JSR   L7A00
         LDA   #L26E9
         STA   L1064
         LDA   #^L26E9
         STA   L1066
         LDA   #$0009
         STA   L1068
         JSR   L7A00
         LDA   #L26F1
         STA   L1064
         LDA   #^L26F1
         STA   L1066
         LDA   #$0009
         STA   L1068
         JSR   L7A00
         LDA   #L26F9
         STA   L1064
         LDA   #^L26F9
         STA   L1066
         LDA   #$0009
         STA   L1068
         JSR   L7A00
         LDA   #$000D
         STA   L1064
         JSR   L7EC0
         LDA   #L2686
         STA   L1064
         LDA   #^L2686
         STA   L1066
         LDA   #$001E
         STA   L1068
         JSR   L7EDC
         LDA   #$0007
         STA   L1064
         JSR   L7EC0
         LDA   #L26A3
         STA   L1064
         LDA   #^L26A3
         STA   L1066
         JSR   L7E71
         LDA   #L26B0
         STA   L1064
         LDA   #^L26B0
         STA   L1066
         JSR   L7E71
         LDA   #L26C1
         STA   L1064
         LDA   #^L26C1
         STA   L1066
         JSR   L7E71
         LDA   #L26CE
         STA   L1064
         LDA   #^L26CE
         STA   L1066
         LDA   #$00AF
         STA   L1068
         JSR   L7EDC
         LDA   #$0001
         STA   L9584
         LDA   #$0000
         STA   L1064
         LDA   #L1030
         STA   L1068
         LDA   #^L1030
         STA   L106A
         JSR   L82F4
         LDA   L267C
         STA   L1064
         LDA   L267E
         STA   L1066
         LDA   L2680
         STA   L1068
         LDA   L2682
         STA   L106A
         LDA   L2684
         STA   L106C
         JSR   L0F3A
         JSR   L7A39
         JSR   L8489
L25F5    LDA   #$0000
         STA   L1064
         LDA   #L26E1
         STA   L1068
         LDA   #^L26E1
         STA   L106A
         LDA   #$0004
         STA   L106C
         JSR   L8A2A
         CMP   #$0009
         BNE   L2625
         JSR   L0F4E
         JSR   L804F
L261B    JSR   L787E
         CMP   #$0009
         BEQ   L261B
         BRA   L25F5
L2625    LDA   L1064
         BEQ   L25F5
         CMP   #$0004
         BEQ   L2658
         CMP   L9584
         BEQ   L25F5
         STA   L9584
         LDA   L9584
         STA   L1064
         LDA   #$0003
         STA   L1068
         LDA   #L26E1
         STA   L106C
         LDA   #^L26E1
         STA   L106E
         JSR   L8AEF
         JSR   L804F
         JMP   L25F5

L2658    LDA   L267C
         STA   L1064
         LDA   L267E
         STA   L1066
         JSR   L0F2F
         JSR   L7A27
         LDA   L9584
         RTS

L266E    ASC   '1/fsskill'00
L267C    DW    $0000
L267E    DW    $0000
L2680    DW    $0000
L2682    DW    $0000
L2684    DW    $0000
L2686    ASC   'Please select a skill level.'00
L26A3    DW    $006E
         DW    $0055
         ASC   'Beginner'00
L26B0    DW    $006E
         DW    $0069
         ASC   'Intermediate'00
L26C1    DW    $006E
         DW    $007D
         ASC   'Advanced'00
L26CE    ASC   'OK'00
L26D1    DW    $0005
         DW    $0005
         DW    $00C2
         DW    $013A
L26D9    DW    $0007
         DW    $0007
         DW    $00C0
         DW    $0138
L26E1    DW    $0049
         DW    $005A
         DW    $0057
         DW    $0068
L26E9    DW    $005D
         DW    $005A
         DW    $006B
         DW    $0068
L26F1    DW    $0071
         DW    $005A
         DW    $007F
         DW    $0068
L26F9    DW    $00A0
         DW    $0091
         DW    $00B4
         DW    $00AF

L2701    REP   #$30
         LDA   L1000
         BEQ   L2708
L2708    LDA   #L2919
         STA   L1064
         LDA   #^L2919
         STA   L1066
         LDA   #L2925
         STA   L1068
         LDA   #^L2925
         STA   L106A
         LDA   #L2929
         STA   L106C
         LDA   #^L2929
         STA   L106E
         LDA   #L292D
         STA   L1070
         LDA   #^L292D
         STA   L1072
         JSR   L0F1E
         LDA   #$00
         STA   L1064
         JSR   L83B0
         JSR   L7824
         JSR   L0EB4
         LDA   #$0000
         STA   L1064
         JSR   L7A4D
         LDA   #L29A7
         STA   L1064
         LDA   #^L29A7
         STA   L1066
         LDA   #$09
         STA   L1068
         JSR   L7A00
         LDA   #L29AF
         STA   L1064
         LDA   #^L29AF
         STA   L1066
         LDA   #$000E
         STA   L1068
         JSR   L7A00
         LDA   #L29B7
         STA   L1064
         LDA   #^L29B7
         STA   L1066
         LDA   #$07
         STA   L1068
         JSR   L7A00
         LDA   #L29BF
         STA   L1064
         LDA   #^L29BF
         STA   L1066
         LDA   #$0009
         STA   L1068
         JSR   L7A00
         LDA   #L29C7
         STA   L1064
         LDA   #^L29C7
         STA   L1066
         LDA   #$09
         STA   L1068
         JSR   L7A00
         LDA   #L29CF
         STA   L1064
         LDA   #^L29CF
         STA   L1066
         LDA   #$0009
         STA   L1068
         JSR   L7A00
         LDA   #L29D7
         STA   L1064
         LDA   #^L29D7
         STA   L1066
         LDA   #$09
         STA   L1068
         JSR   L7A00
         LDA   #$000D
         STA   L1064
         JSR   L7EC0
         LDA   #L292F
         STA   L1064
         LDA   #^L292F
         STA   L1066
         LDA   #$1E
         STA   L1068
         JSR   L7EDC
         LDA   #$0007
         STA   L1064
         JSR   L7EC0
         LDA   #L294A
         STA   L1064
         LDA   #^L294A
         STA   L1066
         JSR   L7E71
         LDA   #L2962
         STA   L1064
         LDA   #^L2962
         STA   L1066
         JSR   L7E71
         LDA   #L297E
         STA   L1064
         LDA   #^L297E
         STA   L1066
         JSR   L7E71
         LDA   #L299B
         STA   L1064
         LDA   #^L299B
         STA   L1066
         JSR   L7E71
         LDA   #L29A4
         STA   L1064
         LDA   #^L29A4
         STA   L1066
         LDA   #$AF
         STA   L1068
         JSR   L7EDC
         LDA   #$0001
         STA   L9584
         LDA   #$0000
         STA   L1064
         LDA   #L1030
         STA   L1068
         LDA   #^L1030
         STA   L106A
         JSR   L82F4
         LDA   L2925
         STA   L1064
         LDA   L2927
         STA   L1066
         LDA   L2929
         STA   L1068
         LDA   L292B
         STA   L106A
         LDA   L292D
         STA   L106C
         JSR   L0F3A
         JSR   L7A39
         JSR   L8489
L28A0    LDA   #$0000
         STA   L1064
         LDA   #L29B7
         STA   L1068
         LDA   #^L29B7
         STA   L106A
         LDA   #$0005
         STA   L106C
         JSR   L8A2A
         CMP   #$09
         BNE   L28D0
         JSR   L0F4E
         JSR   L804F
L28C6    JSR   L787E
         CMP   #$09
         BEQ   L28C6
         BRA   L28A0
L28D0    LDA   L1064
         BEQ   L28A0
         CMP   #$05
         BEQ   L2903
         CMP   L9584
         BEQ   L28A0
         STA   L9584
         LDA   L9584
         STA   L1064
         LDA   #$0004
         STA   L1068
         LDA   #L29B7
         STA   L106C
         LDA   #^L29B7
         STA   L106E
         JSR   L8AEF
         JSR   L804F
         JMP   L28A0

L2903    LDA   L2925
         STA   L1064
         LDA   L2927
         STA   L1066
         JSR   L0F2F
         JSR   L7A27
         LDA   L9584
         RTS

L2919    ASC   '1/fsopt'00
L2925    DW    $0000
L2927    DW    $0000
L2929    DW    $0000
L292B    DW    $0000
L292D    DW    $0000
L292F    ASC   'Please select your option.'00
L294A    DW    $0041
         DW    $0041
         ASC   'Enter new word list'00
L2962    DW    $0041
         DW    $0055
         ASC   'Load existing word list'00
L297E    DW    $0041
         DW    $0069
         ASC   'Use computer'27's word list'00
L299B    DW    $0041
         DW    $007E
         ASC   'Exit'00
L29A4    ASC   'OK'00
L29A7    DW    $0005
         DW    $0005
         DW    $00C2
         DW    $013A
L29AF    DW    $0007
         DW    $0007
         DW    $00C0
         DW    $0138
L29B7    DW    $0035
         DW    $002D
         DW    $0043
         DW    $003B
L29BF    DW    $0049
         DW    $002D
         DW    $0057
         DW    $003B
L29C7    DW    $005D
         DW    $002D
         DW    $006B
         DW    $003B
L29CF    DW    $0071
         DW    $002D
         DW    $007F
         DW    $003B
L29D7    DW    $00A0
         DW    $0091
         DW    $00B4
         DW    $00AF
L29DF    DB    $00
         DB    $00
L29E1    DB    $00
         DB    $00
L29E3    DB    $00
         DB    $00
L29E5    DB    $00
         DB    $00
L29E7    DB    $00
         DB    $00
L29E9    DB    $00
         DB    $00
L29EB    DB    $00
         DB    $00
L29ED    DB    $00
         DB    $00
L29EF    DB    $00
         DB    $00
L29F1    DB    $00
         DB    $00
L29F3    DB    $00
         DB    $00
L29F5    DB    $00
         DB    $00
L29F7    DB    $00
         DB    $00
L29F9    DB    $00
         DB    $00
L29FB    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DW    $0063
         DW    $0140
L2A03    DW    $0065
         DW    $0000
         DW    $00C8
         DW    $0140
L2A0B    DW    $0002
         DW    $0002
         DW    $005F
         DW    $013E
L2A13    DW    $0000
         DW    $0000
         DW    $0061
         DW    $0140
L2A1B    ASC   'M O R A L'00
L2A25    DW    $0000
         DW    $0F00
         DW    $0F0F
         DW    $0FF0
         DW    $0FFF
         DW    $0000
         DW    $0F00
         DW    $00F0
L2A35    DW    $000F
L2A37    DW    $0FF0
         DW    $0F0F
         DW    $00FF
         DW    $0AAA
         DW    $0666
         DW    $0A00
         DW    $0080
         DW    $0008
         DW    $0A82
         DW    $0F80
         DW    $0A4F
         DW    $0FFF
L2A4F    REP   #$30
         LDA   #$00
         STA   L1064
         JSR   L83B0
         LDA   #$2000
         STA   L1064
         LDA   #$00E1
         STA   L1066
         LDA   L1182
         STA   L1068
         LDA   L1184
         STA   L106A
         JSR   L79D6
         STZ   L1064
         JSR   L7A4D
         JSR   L0EB4
         LDA   #$000C
         STA   L1064
         JSR   L7EC0
         LDA   #L2CC2
         STA   L1064
         LDA   #^L2CC2
         STA   L1066
         LDA   #$C4
         STA   L1068
         JSR   L7EDC
         JSR   L0EE9
         LDA   #$01
         STA   L1064
         JSR   L7EC0
         LDA   #$0000
         STA   L1064
         LDA   #L2A35
         STA   L1068
         LDA   #^L2A35
         STA   L106A
         JSR   L82F4
         LDA   L29E7
         STA   L1088
         LDA   L29E9
         STA   L108A
         LDA   L29EF
         CLC
         ADC   L1088
         STA   L1088
         LDA   #$00
         ADC   L108A
         STA   L108A
         LDA   L1088
         STA   $04
         LDA   L108A
         STA   $9C06
         STZ   L2CE0
L2AE9    LDA   #$0F
         STA   L2A37
         STZ   L1064
         LDA   #L2A35
         STA   L1068
         LDA   #^L2A35
         STA   L106A
         JSR   L7A98
         LDA   #L2CCE
         STA   L1064
         LDA   #^L2CCE
         STA   L1066
         STZ   L1068
         JSR   L7A00
         LDA   #$0005
         STA   L2CDC
         STZ   L2CD8
         STZ   L2CDA
         LDY   L2CE0
L2B22    LDX   L2CDA
         LDA   L1088
         STA   L1084
         LDA   L108A
         STA   L1086
         TYA
         CLC
         ADC   L1084
         STA   L1084
         LDA   #$0000
         ADC   L1086
         STA   L1086
         LDA   L1084
         STA   L10A2,X
         LDA   L1086
         STA   L10A4,X
         SEP   #$20
         LDX   #$0000
L2B53    LDA   [$04],Y
         INY
         CMP   #$20
         BCC   L2B53
         CMP   #$2F
         BEQ   L2B75
         CMP   #$7E
         BEQ   L2B68
         STA   L2CE2,X
         INX
         BRA   L2B53
L2B68    REP   #$20
         LDX   L2CDA
         STZ   L10A2,X
         STZ   L10A4,X
         BRA   L2BAC
L2B75    STZ   L2CE2,X
         REP   #$20
         STY   L2CD6
         LDA   #L2CE2
         STA   L1064
         LDA   #^L2CE2
         STA   L1066
         JSR   L7E38
         LDA   L1068
         CMP   L2CD8
         BCC   L2B97
         STA   L2CD8
L2B97    LDA   #$0004
         CLC
         ADC   L2CDA
         STA   L2CDA
         LDY   L2CD6
         DEC   L2CDC
         BEQ   L2BAC
         JMP   L2B22

L2BAC    STY   L2CE0
         LDA   #$0140
         SEC
         SBC   L2CD8
         LSR
         STA   L2CD8
         LDA   #$0005
         STA   L2CDC
         LDA   #$0018
         STA   L2CDA
         STZ   L2CDE
L2BC9    LDX   L2CDE
         LDA   L10A2,X
         BNE   L2BD7
         STZ   L2CDE
         JMP   L2C37

L2BD7    STA   $00
         INX
         INX
         LDA   L10A2,X
         STA   $02
         INX
         INX
         STX   L2CDE
         SEP   #$20
         LDY   #$0000
         LDX   #$0000
L2BED    LDA   [$00],Y
         INY
         CMP   #$20
         BCC   L2BED
         CMP   #$2F
         BEQ   L2C02
         CMP   #$7E
         BEQ   L2C02
         STA   L2CE2,X
         INX
         BRA   L2BED
L2C02    STZ   L2CE2,X
         REP   #$20
         LDA   L2CD8
         STA   L1064
         LDA   L2CDA
         STA   L1068
         JSR   L7E26
         LDA   #L2CE2
         STA   L1064
         LDA   #^L2CE2
         STA   L1066
         JSR   L7E5F
         LDA   #$0020
         CLC
         ADC   L2CDA
         STA   L2CDA
         DEC   L2CDC
         BEQ   L2C37
         JMP   L2BC9

L2C37    LDA   L2CDC
         CMP   #$0005
         BNE   L2C42
         JMP   L2C79

L2C42    LDA   #$0FF0
         STA   L2A37
         STZ   L1064
         LDA   #L2A35
         STA   L1068
         LDA   #^L2A35
         STA   L106A
         JSR   L7A98
         JSR   L804F
L2C5D    JSR   L789E
         CMP   #$0000
         BNE   L2C6C
         LDA   L1064
         BEQ   L2C5D
         BRA   L2C71
L2C6C    CMP   #$001B
         BEQ   L2C79
L2C71    LDA   L2CDE
         BEQ   L2C79
         JMP   L2AE9

L2C79    LDA   #$0000
         STA   L1064
         JSR   L83B0
         LDA   L29DF
         STA   L1064
         JSR   L7EC0
         JSR   L7824
         JSR   L0EB4
         LDA   L1182
         STA   L1064
         LDA   L1184
         STA   L1066
         LDA   #$2000
         STA   L1068
         LDA   #$00E1
         STA   L106A
         JSR   L79D6
         LDA   #$0000
         STA   L1064
         LDA   #L111E
         STA   L1068
         LDA   #^L111E
         STA   L106A
         JSR   L82F4
         RTS

L2CC2    ASC   'Press a key'00
L2CCE    DW    $0000
         DW    $0000
         DW    $00B4
         DW    $0140
L2CD6    DB    $00
         DB    $00
L2CD8    DB    $00
         DB    $00
L2CDA    DB    $00
         DB    $00
L2CDC    DB    $00
         DB    $00
L2CDE    DB    $00
         DB    $00
L2CE0    DB    $00
         DB    $00
L2CE2    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L2CF6    REP   #$30
         JSR   L7824
         JSR   L7A27
         LDA   #$0001
         STA   L1064
         JSR   L1DEB
         JSR   L20E1
         CMP   #$0002
         BNE   L2D12
         JMP   L2DD6

L2D12    LDA   #L3839
         STA   L1064
         LDA   #^L3839
         STA   L1066
         LDA   L118A
         STA   L1068
         LDA   L118C
         STA   L106A
         LDA   #L111E
         STA   L106C
         LDA   #^L111E
         STA   L106E
         JSR   L7C2B
         LDA   #$0000
         STA   L1064
         JSR   L83B0
         JSR   L1D10
         LDA   #$0006
         STA   L1064
         LDA   #$0008
         STA   L1068
         LDA   L117E
         STA   L106C
         LDA   L1180
         STA   L106E
         JSR   L1F6C
         LDA   L118A
         STA   L1064
         LDA   L118C
         STA   L1066
         LDA   L117E
         STA   L1068
         LDA   L1180
         STA   L106A
         JSR   L1D8B
         LDA   #$000A
         STA   L1064
         JSR   L1D7F
         JSR   L8489
         LDA   #$0000
         STA   L1064
         LDA   #L111E
         STA   L1068
         LDA   #^L111E
         STA   L106A
         JSR   L82F4
         LDA   #$0007
         STA   L1064
         JSR   L1FBD
         CMP   #$0000
         BNE   L2DCE
         LDA   L118A
         STA   L1064
         LDA   L118C
         STA   L1066
         LDA   L117E
         STA   L1068
         LDA   L1180
         STA   L106A
         JSR   L1DBB
         LDA   #$0003
         STA   L1064
         JSR   L1FBD
L2DCE    JSR   L233A
         CMP   #$0000
         BNE   L2DD9
L2DD6    JSR   L38D2
L2DD9    JSR   L1F5A
         JSR   L7A39
         JMP   L1496

L2DE2    REP   #$30
         JSR   L7824
         JSR   L7A27
         LDA   #$0002
         STA   L1064
         JSR   L1DEB
         JSR   L20E1
         CMP   #$0002
         BNE   L2DFE
         JMP   L2DD6

L2DFE    LDA   #L3844
         STA   L1064
         LDA   #^L3844
         STA   L1066
         LDA   L1186
         STA   L1068
         LDA   L1188
         STA   L106A
         LDA   #L111E
         STA   L106C
         LDA   #^L111E
         STA   L106E
         JSR   L7C2B
         LDA   #L3850
         STA   L1064
         LDA   #^L3850
         STA   L1066
         LDA   L118A
         STA   L1068
         LDA   L118C
         STA   L106A
         LDA   #L111E
         STA   L106C
         LDA   #^L111E
         STA   L106E
         JSR   L7C2B
         LDA   #$0000
         STA   L1064
         JSR   L83B0
         JSR   L1D10
         LDA   #$0002
         STA   L1064
         LDA   #$000D
         STA   L1068
         LDA   L117E
         STA   L106C
         LDA   L1180
         STA   L106E
         JSR   L1F6C
         LDA   L1186
         STA   L1064
         LDA   L1188
         STA   L1066
         LDA   L117E
         STA   L1068
         LDA   L1180
         STA   L106A
         JSR   L1D8B
         LDA   #$0004
         STA   L1064
         JSR   L1D7F
         JSR   L8489
         LDA   #$0000
         STA   L1064
         LDA   #L111E
         STA   L1068
         LDA   #^L111E
         STA   L106A
         JSR   L82F4
         LDA   #$0002
         STA   L1064
         JSR   L1FBD
         CMP   #$0000
         BEQ   L2EC0
         JMP   L2DCE

L2EC0    LDA   L1186
         STA   L1064
         LDA   L1188
         STA   L1066
         LDA   L117E
         STA   L1068
         LDA   L1180
         STA   L106A
         JSR   L1DBB
         LDA   #$0001
         STA   L1064
         JSR   L1FBD
         CMP   #$0000
         BEQ   L2EEC
         JMP   L2DCE

L2EEC    LDA   L118A
         STA   L1064
         LDA   L118C
         STA   L1066
         LDA   L117E
         STA   L1068
         LDA   L1180
         STA   L106A
         JSR   L1D8B
         LDA   #$0002
         STA   L1064
         JSR   L1FBD
         JMP   L2DCE

L2F13    REP   #$30
         JSR   L7824
         JSR   L7A27
         LDA   #$0003
         STA   L1064
         JSR   L1DEB
         JSR   L20E1
         CMP   #$0002
         BNE   L2F2F
         JMP   L2DD6

L2F2F    LDA   #L385C
         STA   L1064
         LDA   #^L385C
         STA   L1066
         LDA   L118A
         STA   L1068
         LDA   L118C
         STA   L106A
         LDA   #L111E
         STA   L106C
         LDA   #^L111E
         STA   L106E
         JSR   L7C2B
         LDA   #$0000
         STA   L1064
         JSR   L83B0
         JSR   L1D10
         LDA   #$000B
         STA   L1064
         LDA   #$000E
         STA   L1068
         LDA   L117E
         STA   L106C
         LDA   L1180
         STA   L106E
         JSR   L1F6C
         LDA   L118A
         STA   L1064
         LDA   L118C
         STA   L1066
         LDA   L117E
         STA   L1068
         LDA   L1180
         STA   L106A
         JSR   L1D8B
         LDA   #$000C
         STA   L1064
         JSR   L1D7F
         JSR   L8489
         LDA   #$0000
         STA   L1064
         LDA   #L111E
         STA   L1068
         LDA   #^L111E
         STA   L106A
         JSR   L82F4
         LDA   #$000A
         STA   L1064
         JSR   L1FBD
         CMP   #$0000
         BEQ   L2FCA
         JMP   L2DCE

L2FCA    LDA   L118A
         STA   L1064
         LDA   L118C
         STA   L1066
         LDA   L117E
         STA   L1068
         LDA   L1180
         STA   L106A
         JSR   L1DBB
         LDA   #$0004
         STA   L1064
         JSR   L1FBD
         JMP   L2DCE

L2FF1    REP   #$30
         JSR   L7824
         JSR   L7A27
         LDA   #$0004
         STA   L1064
         JSR   L1DEB
         JSR   L20E1
         CMP   #$0002
         BNE   L300D
         JMP   L2DD6

L300D    LDA   #L3870
         STA   L1064
         LDA   #^L3870
         STA   L1066
         LDA   L118A
         STA   L1068
         LDA   L118C
         STA   L106A
         LDA   #L111E
         STA   L106C
         LDA   #^L111E
         STA   L106E
         JSR   L7C2B
         LDA   #L3866
         STA   L1064
         LDA   #^L3866
         STA   L1066
         LDA   L1186
         STA   L1068
         LDA   L1188
         STA   L106A
         LDA   #L111E
         STA   L106C
         LDA   #^L111E
         STA   L106E
         JSR   L7C2B
         LDA   #$0000
         STA   L1064
         JSR   L83B0
         JSR   L1D10
         LDA   #$0007
         STA   L1064
         LDA   #$000C
         STA   L1068
         LDA   L117E
         STA   L106C
         LDA   L1180
         STA   L106E
         JSR   L1F6C
         LDA   L1186
         STA   L1064
         LDA   L1188
         STA   L1066
         LDA   L117E
         STA   L1068
         LDA   L1180
         STA   L106A
         JSR   L1D8B
         LDA   #$0005
         STA   L1064
         JSR   L1D7F
         JSR   L8489
         LDA   #$0000
         STA   L1064
         LDA   #L111E
         STA   L1068
         LDA   #^L111E
         STA   L106A
         JSR   L82F4
         LDA   #$0006
         STA   L1064
         JSR   L1FBD
         CMP   #$0000
         BEQ   L30CF
         JMP   L2DCE

L30CF    LDA   L1186
         STA   L1064
         LDA   L1188
         STA   L1066
         LDA   L117E
         STA   L1068
         LDA   L1180
         STA   L106A
         JSR   L1DBB
         LDA   #$0003
         STA   L1064
         JSR   L1FBD
         CMP   #$0000
         BEQ   L30FB
         JMP   L2DCE

L30FB    LDA   L118A
         STA   L1064
         LDA   L118C
         STA   L1066
         LDA   L117E
         STA   L1068
         LDA   L1180
         STA   L106A
         JSR   L1D8B
         LDA   #$0003
         STA   L1064
         JSR   L1FBD
         JMP   L2DCE

L3122    REP   #$30
         JSR   L7824
         JSR   L7A27
         LDA   #$0005
         STA   L1064
         JSR   L1DEB
         JSR   L20E1
         CMP   #$0002
         BNE   L313E
         JMP   L2DD6

L313E    LDA   #L3850
         STA   L1064
         LDA   #^L3850
         STA   L1066
         LDA   L118A
         STA   L1068
         LDA   L118C
         STA   L106A
         LDA   #L111E
         STA   L106C
         LDA   #^L111E
         STA   L106E
         JSR   L7C2B
         LDA   #L387B
         STA   L1064
         LDA   #^L387B
         STA   L1066
         LDA   L1186
         STA   L1068
         LDA   L1188
         STA   L106A
         LDA   #L111E
         STA   L106C
         LDA   #^L111E
         STA   L106E
         JSR   L7C2B
         LDA   #$0000
         STA   L1064
         JSR   L83B0
         JSR   L1D10
         LDA   #$0004
         STA   L1064
         LDA   #$0008
         STA   L1068
         LDA   L117E
         STA   L106C
         LDA   L1180
         STA   L106E
         JSR   L1F6C
         LDA   L1186
         STA   L1064
         LDA   L1188
         STA   L1066
         LDA   L117E
         STA   L1068
         LDA   L1180
         STA   L106A
         JSR   L1D8B
         LDA   #$0001
         STA   L1064
         JSR   L1D7F
         JSR   L8489
         LDA   #$0000
         STA   L1064
         LDA   #L111E
         STA   L1068
         LDA   #^L111E
         STA   L106A
         JSR   L82F4
         LDA   #$0002
         STA   L1064
         JSR   L1FBD
         CMP   #$0000
         BEQ   L3200
         JMP   L2DCE

L3200    LDA   L1186
         STA   L1064
         LDA   L1188
         STA   L1066
         LDA   L117E
         STA   L1068
         LDA   L1180
         STA   L106A
         JSR   L1DBB
         LDA   #$0001
         STA   L1064
         JSR   L1FBD
         CMP   #$0000
         BEQ   L322C
         JMP   L2DCE

L322C    LDA   L118A
         STA   L1064
         LDA   L118C
         STA   L1066
         LDA   L117E
         STA   L1068
         LDA   L1180
         STA   L106A
         JSR   L1DBB
         LDA   #$0004
         STA   L1064
         JSR   L1FBD
         JMP   L2DCE

L3253    REP   #$30
         JSR   L7824
         JSR   L7A27
         LDA   #$0006
         STA   L1064
         JSR   L1DEB
         JSR   L20E1
         CMP   #$0002
         BNE   L326F
         JMP   L2DD6

L326F    LDA   #L3885
         STA   L1064
         LDA   #^L3885
         STA   L1066
         LDA   L118A
         STA   L1068
         LDA   L118C
         STA   L106A
         LDA   #L111E
         STA   L106C
         LDA   #^L111E
         STA   L106E
         JSR   L7C2B
         LDA   #$0000
         STA   L1064
         JSR   L83B0
         JSR   L1D10
         LDA   #$000B
         STA   L1064
         LDA   #$000E
         STA   L1068
         LDA   L117E
         STA   L106C
         LDA   L1180
         STA   L106E
         JSR   L1F6C
         LDA   L118A
         STA   L1064
         LDA   L118C
         STA   L1066
         LDA   L117E
         STA   L1068
         LDA   L1180
         STA   L106A
         JSR   L1DBB
         LDA   #$0006
         STA   L1064
         JSR   L1D7F
         JSR   L8489
         LDA   #$0000
         STA   L1064
         LDA   #L111E
         STA   L1068
         LDA   #^L111E
         STA   L106A
         JSR   L82F4
         LDA   #$0005
         STA   L1064
         JSR   L1FBD
         JMP   L2DCE

L3305    REP   #$30
         JSR   L7824
         JSR   L7A27
         LDA   #$0007
         STA   L1064
         JSR   L1DEB
         JSR   L20E1
         CMP   #$0002
         BNE   L3321
         JMP   L2DD6

L3321    LDA   #L3890
         STA   L1064
         LDA   #^L3890
         STA   L1066
         LDA   L118A
         STA   L1068
         LDA   L118C
         STA   L106A
         LDA   #L111E
         STA   L106C
         LDA   #^L111E
         STA   L106E
         JSR   L7C2B
         LDA   #$0000
         STA   L1064
         JSR   L83B0
         JSR   L1D10
         LDA   #$0009
         STA   L1064
         LDA   #$0006
         STA   L1068
         LDA   L117E
         STA   L106C
         LDA   L1180
         STA   L106E
         JSR   L1F6C
         LDA   L118A
         STA   L1064
         LDA   L118C
         STA   L1066
         LDA   L117E
         STA   L1068
         LDA   L1180
         STA   L106A
         JSR   L1D8B
         LDA   #$0008
         STA   L1064
         JSR   L1D7F
         JSR   L8489
         LDA   #$0000
         STA   L1064
         LDA   #L111E
         STA   L1068
         LDA   #^L111E
         STA   L106A
         JSR   L82F4
         LDA   #$0004
         STA   L1064
         JSR   L1FBD
         CMP   #$0000
         BEQ   L33BC
         JMP   L2DCE

L33BC    LDA   L118A
         STA   L1064
         LDA   L118C
         STA   L1066
         LDA   L117E
         STA   L1068
         LDA   L1180
         STA   L106A
         JSR   L1DBB
         LDA   #$0003
         STA   L1064
         JSR   L1FBD
         JMP   L2DCE

L33E3    REP   #$30
         JSR   L7824
         JSR   L7A27
         LDA   #$0008
         STA   L1064
         JSR   L1DEB
         JSR   L20E1
         CMP   #$0002
         BNE   L33FF
         JMP   L2DD6

L33FF    LDA   #L389B
         STA   L1064
         LDA   #^L389B
         STA   L1066
         LDA   L118A
         STA   L1068
         LDA   L118C
         STA   L106A
         LDA   #L111E
         STA   L106C
         LDA   #^L111E
         STA   L106E
         JSR   L7C2B
         LDA   #$0000
         STA   L1064
         JSR   L83B0
         JSR   L1D10
         LDA   #$0002
         STA   L1064
         LDA   #$000E
         STA   L1068
         LDA   L117E
         STA   L106C
         LDA   L1180
         STA   L106E
         JSR   L1F6C
         LDA   L118A
         STA   L1064
         LDA   L118C
         STA   L1066
         LDA   L117E
         STA   L1068
         LDA   L1180
         STA   L106A
         JSR   L1D8B
         LDA   #$0007
         STA   L1064
         JSR   L1D7F
         JSR   L8489
         LDA   #$0000
         STA   L1064
         LDA   #L111E
         STA   L1068
         LDA   #^L111E
         STA   L106A
         JSR   L82F4
         LDA   #$0003
         STA   L1064
         JSR   L1FBD
         CMP   #$0000
         BEQ   L349A
         JMP   L2DCE

L349A    LDA   L118A
         STA   L1064
         LDA   L118C
         STA   L1066
         LDA   L117E
         STA   L1068
         LDA   L1180
         STA   L106A
         JSR   L1DBB
         LDA   #$0005
         STA   L1064
         JSR   L1FBD
         JMP   L2DCE

L34C1    REP   #$30
         JSR   L7824
         JSR   L7A27
         LDA   #$0009
         STA   L1064
         JSR   L1DEB
         JSR   L20E1
         CMP   #$0002
         BNE   L34DD
         JMP   L2DD6

L34DD    LDA   #L38A7
         STA   L1064
         LDA   #^L38A7
         STA   L1066
         LDA   L118A
         STA   L1068
         LDA   L118C
         STA   L106A
         LDA   #L111E
         STA   L106C
         LDA   #^L111E
         STA   L106E
         JSR   L7C2B
         LDA   #$0000
         STA   L1064
         JSR   L83B0
         JSR   L1D10
         LDA   #$0007
         STA   L1064
         LDA   #$0009
         STA   L1068
         LDA   L117E
         STA   L106C
         LDA   L1180
         STA   L106E
         JSR   L1F6C
         LDA   L118A
         STA   L1064
         LDA   L118C
         STA   L1066
         LDA   L117E
         STA   L1068
         LDA   L1180
         STA   L106A
         JSR   L1D8B
         LDA   #$000A
         STA   L1064
         JSR   L1D7F
         JSR   L8489
         LDA   #$0000
         STA   L1064
         LDA   #L111E
         STA   L1068
         LDA   #^L111E
         STA   L106A
         JSR   L82F4
         LDA   #$0003
         STA   L1064
         JSR   L1FBD
         CMP   #$0000
         BEQ   L3578
         JMP   L2DCE

L3578    LDA   L118A
         STA   L1064
         LDA   L118C
         STA   L1066
         LDA   L117E
         STA   L1068
         LDA   L1180
         STA   L106A
         JSR   L1DBB
         LDA   #$0003
         STA   L1064
         JSR   L1FBD
         JMP   L2DCE

L359F    REP   #$30
         JSR   L7824
         JSR   L7A27
         LDA   #$000A
         STA   L1064
         JSR   L1DEB
         JSR   L20E1
         CMP   #$0002
         BNE   L35BB
         JMP   L2DD6

L35BB    LDA   #L38B1
         STA   L1064
         LDA   #^L38B1
         STA   L1066
         LDA   L118A
         STA   L1068
         LDA   L118C
         STA   L106A
         LDA   #L111E
         STA   L106C
         LDA   #^L111E
         STA   L106E
         JSR   L7C2B
         LDA   #$0000
         STA   L1064
         JSR   L83B0
         JSR   L1D10
         LDA   #$0002
         STA   L1064
         LDA   #$000D
         STA   L1068
         LDA   L117E
         STA   L106C
         LDA   L1180
         STA   L106E
         JSR   L1F6C
         LDA   L118A
         STA   L1064
         LDA   L118C
         STA   L1066
         LDA   L117E
         STA   L1068
         LDA   L1180
         STA   L106A
         JSR   L1D8B
         LDA   #$0003
         STA   L1064
         JSR   L1D7F
         JSR   L8489
         LDA   #$0000
         STA   L1064
         LDA   #L111E
         STA   L1068
         LDA   #^L111E
         STA   L106A
         JSR   L82F4
         LDA   #$0003
         STA   L1064
         JSR   L1FBD
         CMP   #$0000
         BEQ   L3656
         JMP   L2DCE

L3656    LDA   L118A
         STA   L1064
         LDA   L118C
         STA   L1066
         LDA   L117E
         STA   L1068
         LDA   L1180
         STA   L106A
         JSR   L1DBB
         LDA   #$0003
         STA   L1064
         JSR   L1FBD
         JMP   L2DCE

L367D    REP   #$30
         JSR   L7824
         JSR   L7A27
         LDA   #$000B
         STA   L1064
         JSR   L1DEB
         JSR   L20E1
         CMP   #$0002
         BNE   L3699
         JMP   L2DD6

L3699    LDA   #L38BD
         STA   L1064
         LDA   #^L38BD
         STA   L1066
         LDA   L118A
         STA   L1068
         LDA   L118C
         STA   L106A
         LDA   #L111E
         STA   L106C
         LDA   #^L111E
         STA   L106E
         JSR   L7C2B
         LDA   #$0000
         STA   L1064
         JSR   L83B0
         JSR   L1D10
         LDA   #$0004
         STA   L1064
         LDA   #$0003
         STA   L1068
         LDA   L117E
         STA   L106C
         LDA   L1180
         STA   L106E
         JSR   L1F6C
         LDA   L118A
         STA   L1064
         LDA   L118C
         STA   L1066
         LDA   L117E
         STA   L1068
         LDA   L1180
         STA   L106A
         JSR   L1D8B
         LDA   #$000A
         STA   L1064
         JSR   L1D7F
         JSR   L8489
         LDA   #$0000
         STA   L1064
         LDA   #L111E
         STA   L1068
         LDA   #^L111E
         STA   L106A
         JSR   L82F4
         LDA   #$0006
         STA   L1064
         JSR   L1FBD
         CMP   #$0000
         BEQ   L3734
         JMP   L2DCE

L3734    LDA   L118A
         STA   L1064
         LDA   L118C
         STA   L1066
         LDA   L117E
         STA   L1068
         LDA   L1180
         STA   L106A
         JSR   L1DBB
         LDA   #$0003
         STA   L1064
         JSR   L1FBD
         JMP   L2DCE

L375B    REP   #$30
         JSR   L7824
         JSR   L7A27
         LDA   #$000C
         STA   L1064
         JSR   L1DEB
         JSR   L20E1
         CMP   #$0002
         BNE   L3777
         JMP   L2DD6

L3777    LDA   #L38C7
         STA   L1064
         LDA   #^L38C7
         STA   L1066
         LDA   L118A
         STA   L1068
         LDA   L118C
         STA   L106A
         LDA   #L111E
         STA   L106C
         LDA   #^L111E
         STA   L106E
         JSR   L7C2B
         LDA   #$0000
         STA   L1064
         JSR   L83B0
         JSR   L1D10
         LDA   #$000C
         STA   L1064
         LDA   #$000B
         STA   L1068
         LDA   L117E
         STA   L106C
         LDA   L1180
         STA   L106E
         JSR   L1F6C
         LDA   L118A
         STA   L1064
         LDA   L118C
         STA   L1066
         LDA   L117E
         STA   L1068
         LDA   L1180
         STA   L106A
         JSR   L1D8B
         LDA   #$0004
         STA   L1064
         JSR   L1D7F
         JSR   L8489
         LDA   #$0000
         STA   L1064
         LDA   #L111E
         STA   L1068
         LDA   #^L111E
         STA   L106A
         JSR   L82F4
         LDA   #$0004
         STA   L1064
         JSR   L1FBD
         CMP   #$0000
         BEQ   L3812
         JMP   L2DCE

L3812    LDA   L118A
         STA   L1064
         LDA   L118C
         STA   L1066
         LDA   L117E
         STA   L1068
         LDA   L1180
         STA   L106A
         JSR   L1DBB
         LDA   #$0004
         STA   L1064
         JSR   L1FBD
         JMP   L2DCE

L3839    STR   '1/thir'
L3844    STR   '1/foxg1'
L3850    STR   '1/foxg2'
L385C    STR   '1/tur'
L3866    STR   '1/sun'
L3870    STR   '1/foxb'
L387B    STR   '1/boy'
L3885    STR   '1/foxb'
L3890    STR   '1/foxc'
L389B    STR   '1/grass'
L38A7    STR   '1/dog'
L38B1    STR   '1/greed'
L38BD    STR   '1/cra'
L38C7    STR   '1/lion'
L38D2    REP   #$30
         JSR   L8728
         JSR   L8E26
         LDA   #L8829
         STA   L1064
         LDA   #^L8829
         STA   L1066
         LDA   L1064
         STA   L1068
         LDA   L1066
         STA   L106A
         JSR   L9087
         LDA   L881A
         CMP   #$0002
         BNE   L3918
         LDA   #L883D
         STA   L1064
         LDA   #^L883D
         STA   L1066
         LDA   L1064
         STA   L1068
         LDA   L1066
         STA   L106A
         JSR   L9087
L3918    JSR   L4113
         STA   L4384
         JSR   L407A
         LDA   #$0000
         STA   L1064
         JSR   L83B0
         JSR   L8489
         LDA   L1182
         STA   L1064
         LDA   L1184
         STA   L1066
         LDA   #$2000
         STA   L1068
         LDA   #$00E1
         STA   L106A
         JSR   L79D6
         LDX   #$0027
         SEP   #$20
L394D    STZ   L4386,X
         DEX
         BPL   L394D
         REP   #$20
         LDA   #$0000
         STA   L1064
         LDA   #L111E
         STA   L1068
         LDA   #^L111E
         STA   L106A
         JSR   L82F4
         STZ   L43AE
L396D    JSR   L3CB8
         LDA   L1182
         STA   L1064
         LDA   L1184
         STA   L1066
         LDA   L117E
         STA   L1068
         LDA   L1180
         STA   L106A
         JSR   L79D6
         JSR   L1D40
         JSR   L804F
         JSR   L39BC
         CMP   #$0000
         BNE   L39B2
         JSR   L86F7
         LDA   L8818
         CMP   #$0001
         BNE   L396D
         INC   L43AE
         LDA   L43AE
         CMP   #$000A
         BEQ   L39B2
         JMP   L396D

L39B2    JSR   L7A27
         JSR   L17C0
         JSR   L7A39
         RTS

L39BC    REP   #$30
         JSR   L7A39
         JSR   L8489
         STZ   L43B0
L39C7    JSR   L789E
         CMP   #$001B
         BNE   L39D2
         JMP   L3B6A

L39D2    CMP   #$0009
         BNE   L39E7
         JSR   L0F4E
         JSR   L804F
L39DD    JSR   L787E
         CMP   #$0009
         BEQ   L39DD
         BRA   L39C7
L39E7    CMP   #$0020
         BNE   L3A03
         INC   L43B0
         LDA   L43B0
         CMP   #$0004
         BNE   L39FA
         LDA   #$0001
L39FA    STA   L43B0
         JSR   L804F
         JMP   L3A3B

L3A03    CMP   #$000D
         BNE   L3A0B
         JMP   L3A75

L3A0B    LDA   L1064
         BEQ   L3A13
         JMP   L3A75

L3A13    JSR   L7836
         LDA   #L3FE0
         STA   L106C
         LDA   #^L3FE0
         STA   L106E
         LDA   #$0003
         STA   L1070
         JSR   L8079
         LDA   L1074
         BNE   L3A33
L3A30    JMP   L39C7

L3A33    CMP   L43B0
         BEQ   L3A30
         STA   L43B0
L3A3B    LDA   #$0001
         STA   L1078
         LDX   #$0003
         LDY   #$0006
L3A47    PHX
         PHY
         LDA   #$0000
         STA   L1064
         STY   L1068
         LDA   #$0000
         STA   L106C
         LDA   L1078
         CMP   L43B0
         BNE   L3A66
         LDA   #$000B
         STA   L106C
L3A66    JSR   L7A82
         PLY
         PLX
         INC   L1078
         INY
         DEX
         BNE   L3A47
L3A72    JMP   L39C7

L3A75    LDA   L43B0
         BNE   L3A7F
         JSR   L804F
         BRA   L3A72
L3A7F    JSR   L7A27
         LDA   L43B0
         CMP   L43B2
         BNE   L3A8D
         JMP   L3B3E

L3A8D    LDA   L118A
         STA   L1064
         LDA   L118C
         STA   L1066
         LDA   L117E
         STA   L1068
         LDA   L1180
         STA   L106A
         JSR   L79D6
         JSR   L1D40
         JSR   L86DF
         JSR   L0F5D
         LDA   #$0000
         STA   L106C
         LDA   #$0000
         STA   L1064
         LDA   #$0006
         STA   L1068
         JSR   L7A82
         LDA   #$0000
         STA   L1064
         LDA   #$0007
         STA   L1068
         JSR   L7A82
         LDA   #$0000
         STA   L1064
         LDA   #$0008
         STA   L1068
         JSR   L7A82
         JSR   L80C9
         JSR   L8489
         LDA   L43B2
         CLC
         ADC   #$0005
         STA   L1068
         STZ   L106C
L3AF7    LDA   #$0000
         STA   L1064
         LDA   #$000B
         EOR   L106C
         STA   L106C
         LDA   L1068
         PHA
         LDA   L106C
         PHA
         JSR   L7A82
         JSR   L789E
         CMP   #$0000
         BEQ   L3B1C
         JMP   L3B64

L3B1C    LDA   L1064
         BEQ   L3B24
         JMP   L3B64

L3B24    LDA   #$0014
         STA   L1064
         LDA   #$0000
         STA   L1066
         JSR   L82B4
         PLA
         STA   L106C
         PLA
         STA   L1068
         JMP   L3AF7

L3B3E    LDA   L1186
         STA   L1064
         LDA   L1188
         STA   L1066
         LDA   L117E
         STA   L1068
         LDA   L1180
         STA   L106A
         JSR   L79D6
         JSR   L1D40
         JSR   L86C7
         JSR   L0F87
         BRA   L3B66
L3B64    PLA
         PLA
L3B66    LDA   #$0000
         RTS

L3B6A    LDA   #$FFFF
         RTS

L3B6E    REP   #$30
         LDA   L1182
         STA   L1064
         LDA   L1184
         STA   L1066
         JSR   L77F9
         LDA   #L3FE0
         STA   L1064
         LDA   #^L3FE0
         STA   L1066
         LDA   #$0006
         STA   L1068
         JSR   L7A00
         LDA   #L3FE8
         STA   L1064
         LDA   #^L3FE8
         STA   L1066
         LDA   #$0007
         STA   L1068
         JSR   L7A00
         LDA   #L3FF0
         STA   L1064
         LDA   #^L3FF0
         STA   L1066
         LDA   #$0008
         STA   L1068
         JSR   L7A00
         LDA   #L3FD0
         STA   L1064
         LDA   #^L3FD0
         STA   L1066
         LDA   #$0000
         STA   L1068
         JSR   L7A00
         LDA   L1182
         STA   L1064
         LDA   L1184
         STA   L1066
         LDA   #L3FF8
         STA   L1068
         LDA   #^L3FF8
         STA   L106A
         LDA   L1186
         STA   L106C
         LDA   L1188
         STA   L106E
         LDA   #L3FF8
         STA   L1070
         LDA   #^L3FF8
         STA   L1072
         LDA   #$0000
         STA   L1074
         JSR   L823E
         LDA   L1182
         STA   L1064
         LDA   L1184
         STA   L1066
         LDA   #L3FF8
         STA   L1068
         LDA   #^L3FF8
         STA   L106A
         LDA   L118A
         STA   L106C
         LDA   L118C
         STA   L106E
         LDA   #L3FF8
         STA   L1070
         LDA   #^L3FF8
         STA   L1072
         LDA   #$0000
         STA   L1074
         JSR   L823E
         LDA   L1182
         STA   L1064
         LDA   L1184
         STA   L1066
         LDA   #L3FD0
         STA   L1068
         LDA   #^L3FD0
         STA   L106A
         LDA   L1186
         STA   L106C
         LDA   L1188
         STA   L106E
         LDA   #L3FD0
         STA   L1070
         LDA   #^L3FD0
         STA   L1072
         LDA   #$0000
         STA   L1074
         JSR   L823E
         LDA   L1182
         STA   L1064
         LDA   L1184
         STA   L1066
         LDA   #L3FD0
         STA   L1068
         LDA   #^L3FD0
         STA   L106A
         LDA   L118A
         STA   L106C
         LDA   L118C
         STA   L106E
         LDA   #L3FD0
         STA   L1070
         LDA   #^L3FD0
         STA   L1072
         LDA   #$0000
         STA   L1074
         JSR   L823E
         RTS

L3CB8    REP   #$30
         LDA   #$0000
         STA   L112A
         STA   L112C
         STA   L112E
         JSR   L3B6E
         LDA   L1182
         STA   L1064
         LDA   L1184
         STA   L1066
         JSR   L77F9
         LDA   #$000F
         STA   L1064
         JSR   L7EC0
         LDA   L4384
         STA   L1064
         JSR   L4006
         LDA   #$0090
         STA   L4000
         LDA   L1068
         STA   $08
         LDA   L106A
         STA   $0A
         LDY   #$0000
L3CFD    LDX   #$0000
L3D00    SEP   #$20
         LDA   [$08],Y
         INY
         CMP   #$0D
         BEQ   L3D2B
         CMP   #$2F
         BNE   L3D10
         JMP   L3D8A

L3D10    CMP   #$25
         BEQ   L3D1A
         STA   L10A2,X
         INX
         BRA   L3D00
L3D1A    PHY
         LDY   #$0006
         LDA   #$5F
L3D20    STA   L10A2,X
         INX
         DEY
         BNE   L3D20
         PLY
         JMP   L3D00

L3D2B    INY
         JSR   L3D32
         JMP   L3CFD

L3D32    CPX   #$0003
         BCS   L3D3D
         LDA   #$99
         STA   L4000
         RTS

L3D3D    PHY
         PHX
         STZ   L10A2,X
         REP   #$20
         JSR   L0EB4
         LDA   #L10A2
         STA   L1064
         LDA   #^L10A2
         STA   L1066
         JSR   L7E38
         LDA   #$010E
         SEC
         SBC   L1068
         LSR
         CLC
         ADC   #$002F
         STA   L1064
         LDA   L4000
         STA   L1068
         JSR   L7E26
         LDA   #L10A2
         STA   L1064
         LDA   #^L10A2
         STA   L1066
         JSR   L7E5F
         LDA   #$0011
         CLC
         ADC   L4000
         STA   L4000
         PLX
         PLY
         RTS

L3D8A    JSR   L3D32
         LDX   #$0000
         STZ   L4000
L3D93    SEP   #$20
         LDA   [$08],Y
         CMP   #$2A
         BNE   L3DA4
         REP   #$20
         LDA   L4000
         STA   L4004
         INY
L3DA4    REP   #$20
         TYA
         STA   L10A2,X
         INX
         INX
         INC   L4000
         LDA   L4000
         CMP   #$0003
         BEQ   L3DC3
         SEP   #$20
L3DB9    LDA   [$08],Y
         INY
         CMP   #$2F
         BNE   L3DB9
         JMP   L3D93

L3DC3    REP   #$20
         LDA   #$005E
         STA   L4000
         LDA   #$0002
         STA   L4002
L3DD1    JSR   L78F5
         AND   #$0003
         CMP   #$0003
         BEQ   L3DD1
         PHA
         ASL
         TAX
         LDA   L10A2,X
         BNE   L3DE7
         PLA
         BRA   L3DD1
L3DE7    STZ   L10A2,X
         TAY
         LDX   #$0000
         SEP   #$20
L3DF0    LDA   [$08],Y
         INY
         CMP   #$2F
         BEQ   L3E01
         CMP   #$0D
         BEQ   L3E01
         STA   L10AC,X
         INX
         BRA   L3DF0
L3E01    STZ   L10AC,X
         REP   #$20
         PLA
         CMP   L4004
         BNE   L3E12
         LDA   L4002
         STA   L43B2
L3E12    JSR   L87B4
         LDA   #L10AC
         STA   L1064
         LDA   #^L10AC
         STA   L1066
         JSR   L7E38
         LDA   #$0096
         SEC
         SBC   L1068
         LSR
         CLC
         ADC   #$00A7
         STA   L1064
         LDA   L4000
         STA   L1068
         JSR   L7E26
         LDA   #L10AC
         STA   L1064
         LDA   #^L10AC
         STA   L1066
         JSR   L7E5F
         LDA   L4000
         SEC
         SBC   #$0026
         STA   L4000
         DEC   L4002
         BCC   L3E5D
         JMP   L3DD1

L3E5D    INC   L43B2
         LDA   #L3FD8
         STA   L1064
         LDA   #^L3FD8
         STA   L1066
         LDA   #$000F
         STA   L1068
         JSR   L7A00
         LDA   #$0009
         STA   L1064
         JSR   L7EC0
         LDX   #$0000
         LDA   L881C
         STA   $00
         LDA   L881C+2
         STA   $02
         LDY   #$0000
         SEP   #$20
L3E90    LDA   [$00],Y
         STA   L10A2,X
         BEQ   L3E9B
         INX
         INY
         BRA   L3E90
L3E9B    REP   #$20
         LDA   #L10A2
         STA   L1064
         LDA   #^L10A2
         STA   L1066
         JSR   L7E38
         LDA   #$0046
         SEC
         SBC   L1068
         LSR
         CLC
         ADC   #$0093
         STA   L1064
         LDA   #$00BD
         STA   L1068
         JSR   L7E26
         LDA   #L10A2
         STA   L1064
         LDA   #^L10A2
         STA   L1066
         JSR   L7E5F
         LDA   L1182
         STA   L1064
         LDA   L1184
         STA   L1066
         LDA   #L3FF8
         STA   L1068
         LDA   #^L3FF8
         STA   L106A
         LDA   L1186
         STA   L106C
         LDA   L1188
         STA   L106E
         LDA   #L3FF8
         STA   L1070
         LDA   #^L3FF8
         STA   L1072
         LDA   #$0000
         STA   L1074
         JSR   L823E
         LDA   L1182
         STA   L1064
         LDA   L1184
         STA   L1066
         LDA   #L3FF8
         STA   L1068
         LDA   #^L3FF8
         STA   L106A
         LDA   L118A
         STA   L106C
         LDA   L118C
         STA   L106E
         LDA   #L3FF8
         STA   L1070
         LDA   #^L3FF8
         STA   L1072
         LDA   #$0000
         STA   L1074
         JSR   L823E
         LDA   L1182
         STA   L1064
         LDA   L1184
         STA   L1066
         LDA   #L3FD0
         STA   L1068
         LDA   #^L3FD0
         STA   L106A
         LDA   L1186
         STA   L106C
         LDA   L1188
         STA   L106E
         LDA   #L3FD0
         STA   L1070
         LDA   #^L3FD0
         STA   L1072
         LDA   #$0000
         STA   L1074
         JSR   L823E
         LDA   L1182
         STA   L1064
         LDA   L1184
         STA   L1066
         LDA   #L3FD0
         STA   L1068
         LDA   #^L3FD0
         STA   L106A
         LDA   L118A
         STA   L106C
         LDA   L118C
         STA   L106E
         LDA   #L3FD0
         STA   L1070
         LDA   #^L3FD0
         STA   L1072
         LDA   #$0000
         STA   L1074
         JSR   L823E
         LDA   #$0000
         STA   L1064
         LDA   #L111E
         STA   L1068
         LDA   #^L111E
         STA   L106A
         JSR   L7A98
         JSR   L0EB4
         RTS

L3FD0    DW    $0082
         DW    $002F
         DW    $00C2
         DW    $013D
L3FD8    DW    $00B4
         DW    $0093
         DW    $00C2
         DW    $00D9
L3FE0    DW    $0007
         DW    $00A7
         DW    $0017
         DW    $013D
L3FE8    DW    $002D
         DW    $00A7
         DW    $003D
         DW    $013D
L3FF0    DW    $0053
         DW    $00A7
         DW    $0063
         DW    $013D
L3FF8    DW    $0006
         DW    $00A6
         DW    $0064
         DW    $013E
L4000    DW    $0000
L4002    DW    $0000
L4004    DW    $0000
L4006    REP   #$30
L4008    REP   #$20
         LDA   L29F1
         STA   L1080
         LDA   #$0023
         STA   L1068
         LDA   L1064
         CMP   #$0001
         BEQ   L402A
         LDA   L29F3
         STA   L1080
         LDA   #$0019
         STA   L1068
L402A    LDA   #$0001
         STA   L1064
         JSR   L7903
         TAX
         DEX
         SEP   #$20
         LDA   L4386,X
         BNE   L4008
         INC   L4386,X
         REP   #$20
         LDY   L1080
         CPX   #$0000
         BEQ   L4066
         LDA   L29E7
         STA   $08
         LDA   L29E9
         STA   $0A
L4053    SEP   #$20
         LDA   [$08],Y
         INY
         CMP   #$2F
         BNE   L4053
L405C    LDA   [$08],Y
         INY
         CMP   #$0A
         BNE   L405C
         DEX
         BNE   L4053
L4066    REP   #$20
         TYA
         CLC
         ADC   L29E7
         STA   L1068
         LDA   #$0000
         ADC   L29E9
         STA   L106A
         RTS

L407A    REP   #$30
         LDA   #L40F2
         STA   L1064
         LDA   #^L40F2
         STA   L1066
         LDA   L1182
         STA   L1068
         LDA   L1184
         STA   L106A
         LDA   #L111E
         STA   L106C
         LDA   #^L111E
         STA   L106E
         JSR   L7C2B
         LDA   #L40FD
         STA   L1064
         LDA   #^L40FD
         STA   L1066
         LDA   L1186
         STA   L1068
         LDA   L1188
         STA   L106A
         LDA   #L111E
         STA   L106C
         LDA   #^L111E
         STA   L106E
         JSR   L7C2B
         LDA   #L4108
         STA   L1064
         LDA   #^L4108
         STA   L1066
         LDA   L118A
         STA   L1068
         LDA   L118C
         STA   L106A
         LDA   #L111E
         STA   L106C
         LDA   #^L111E
         STA   L106E
         JSR   L7C2B
         RTS

L40F2    STR   '1/qnor'
L40FD    STR   '1/qcor'
L4108    STR   '1/qwro'
L4113    REP   #$30
         LDA   L1000
         BEQ   L411A
L411A    LDA   #L42F8
         STA   L1064
         LDA   #^L42F8
         STA   L1066
         LDA   #L4303
         STA   L1068
         LDA   #^L4303
         STA   L106A
         LDA   #L4307
         STA   L106C
         LDA   #^L4307
         STA   L106E
         LDA   #L430B
         STA   L1070
         LDA   #^L430B
         STA   L1072
         JSR   L0F1E
         LDA   #$0000
         STA   L1064
         JSR   L83B0
         JSR   L7824
         JSR   L0EB4
         LDA   #$0000
         STA   L1064
         JSR   L7A4D
         LDA   #L435C
         STA   L1064
         LDA   #^L435C
         STA   L1066
         LDA   #$0009
         STA   L1068
         JSR   L7A00
         LDA   #L4364
         STA   L1064
         LDA   #^L4364
         STA   L1066
         LDA   #$000E
         STA   L1068
         JSR   L7A00
         LDA   #L436C
         STA   L1064
         LDA   #^L436C
         STA   L1066
         LDA   #$0007
         STA   L1068
         JSR   L7A00
         LDA   #L4374
         STA   L1064
         LDA   #^L4374
         STA   L1066
         LDA   #$0009
         STA   L1068
         JSR   L7A00
         LDA   #L437C
         STA   L1064
         LDA   #^L437C
         STA   L1066
         LDA   #$0009
         STA   L1068
         JSR   L7A00
         LDA   #$000D
         STA   L1064
         JSR   L7EC0
         LDA   #L430D
         STA   L1064
         LDA   #^L430D
         STA   L1066
         LDA   #$001E
         STA   L1068
         JSR   L7EDC
         LDA   #L431F
         STA   L1064
         LDA   #^L431F
         STA   L1066
         LDA   #$002D
         STA   L1068
         JSR   L7EDC
         LDA   #$0007
         STA   L1064
         JSR   L7EC0
         LDA   #L432E
         STA   L1064
         LDA   #^L432E
         STA   L1066
         JSR   L7E71
         LDA   #L4346
         STA   L1064
         LDA   #^L4346
         STA   L1066
         JSR   L7E71
         LDA   #L4359
         STA   L1064
         LDA   #^L4359
         STA   L1066
         LDA   #$00AF
         STA   L1068
         JSR   L7EDC
         LDA   #$0001
         STA   L9584
         LDA   #$0000
         STA   L1064
         LDA   #L1030
         STA   L1068
         LDA   #^L1030
         STA   L106A
         JSR   L82F4
         LDA   L4303
         STA   L1064
         LDA   L4305
         STA   L1066
         LDA   L4307
         STA   L1068
         LDA   L4309
         STA   L106A
         LDA   L430B
         STA   L106C
         JSR   L0F3A
         JSR   L7A39
         JSR   L8489
L427F    LDA   #$0000
         STA   L1064
         LDA   #L436C
         STA   L1068
         LDA   #^L436C
         STA   L106A
         LDA   #$0003
         STA   L106C
         JSR   L8A2A
         CMP   #$0009
         BNE   L42AF
         JSR   L0F4E
         JSR   L804F
L42A5    JSR   L787E
         CMP   #$0009
         BEQ   L42A5
         BRA   L427F
L42AF    LDA   L1064
         BEQ   L427F
         CMP   #$0003
         BEQ   L42E2
         CMP   L9584
         BEQ   L427F
         STA   L9584
         LDA   L9584
         STA   L1064
         LDA   #$0002
         STA   L1068
         LDA   #L436C
         STA   L106C
         LDA   #^L436C
         STA   L106E
         JSR   L8AEF
         JSR   L804F
         JMP   L427F

L42E2    LDA   L4303
         STA   L1064
         LDA   L4305
         STA   L1066
         JSR   L0F2F
         JSR   L7A27
         LDA   L9584
         RTS

L42F8    ASC   '1/fsqt'00
L4303    DW    $0000
L4305    DW    $0000
L4307    DW    $0000
L4309    DW    $0000
L430B    DW    $0000
L430D    ASC   'Please select the'00
L431F    ASC   'question type.'00
L432E    DW    $0058
         DW    $0069
         ASC   'Vocabulary Building'00
L4346    DW    $0058
         DW    $0055
         ASC   'Reading Skills'00
L4359    ASC   'OK'00
L435C    DW    $0005
         DW    $0005
         DW    $00C2
         DW    $013A
L4364    DW    $0007
         DW    $0007
         DW    $00C0
         DW    $0138
L436C    DW    $0049
         DW    $0044
         DW    $0057
         DW    $0052
L4374    DW    $005D
         DW    $0044
         DW    $006B
         DW    $0052
L437C    DW    $00A0
         DW    $0091
         DW    $00B4
         DW    $00AF
L4384    DB    $00
         DB    $00
L4386    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L43AE    DB    $00
         DB    $00
L43B0    DB    $00
         DB    $00
L43B2    DB    $00
         DB    $00
L43B4    REP   #$30
         JSR   L78F5
         AND   #$0001
         BEQ   L43DF
         LDA   L4617
         STA   L1064
         LDA   L4619
         STA   L1066
         LDA   L461B
         STA   L1068
         LDA   L461D
         STA   L106A
         LDA   L461F
         STA   L106C
         JSR   L0F3A
L43DF    JSR   L78F5
         AND   #$0001
         BEQ   L4408
         LDA   L4621
         STA   L1064
         LDA   L4623
         STA   L1066
         LDA   L4625
         STA   L1068
         LDA   L4627
         STA   L106A
         LDA   L4629
         STA   L106C
         JSR   L0F3A
L4408    RTS

L4409    REP   #$30
         LDA   #$0000
         LDY   L462B
         BEQ   L441F
         CPY   #$0003
         BEQ   L441F
L4418    CLC
         ADC   #$000A
         DEY
         BNE   L4418
L441F    CLC
         ADC   L1064
         STA   L1064
         LDA   #$0000
         ADC   L1066
         STA   L1066
         LDA   L1064
         STA   $08
         LDA   L1066
         STA   $0A
         LDA   [$08]
         STA   L1064
         LDY   #$0002
         LDA   [$08],Y
         STA   L1066
         LDY   #$0004
         LDA   [$08],Y
         STA   L1068
         LDY   #$0006
         LDA   [$08],Y
         STA   L106A
         LDY   #$0008
         LDA   [$08],Y
         STA   L106C
         JSR   L0F3A
         RTS

L4462    REP   #$30
         LDA   L1000
         BEQ   L446C
         JSR   L1234
L446C    LDA   #L45C1
         STA   L1064
         LDA   #^L45C1
         STA   L1066
         LDA   #L45F9
         STA   L1068
         LDA   #^L45F9
         STA   L106A
         LDA   #L45FD
         STA   L106C
         LDA   #^L45FD
         STA   L106E
         LDA   #L4601
         STA   L1070
         LDA   #^L4601
         STA   L1072
         JSR   L0F1E
         LDA   #L45CC
         STA   L1064
         LDA   #^L45CC
         STA   L1066
         LDA   #L4603
         STA   L1068
         LDA   #^L4603
         STA   L106A
         LDA   #L4607
         STA   L106C
         LDA   #^L4607
         STA   L106E
         LDA   #L460B
         STA   L1070
         LDA   #^L460B
         STA   L1072
         JSR   L0F1E
         LDA   #L45D7
         STA   L1064
         LDA   #^L45D7
         STA   L1066
         LDA   #L460D
         STA   L1068
         LDA   #^L460D
         STA   L106A
         LDA   #L4611
         STA   L106C
         LDA   #^L4611
         STA   L106E
         LDA   #L4615
         STA   L1070
         LDA   #^L4615
         STA   L1072
         JSR   L0F1E
         RTS

L4506    LDA   L45F9
         STA   L1064
         LDA   L45FB
         STA   L1066
         JSR   L0F2F
         LDA   L4603
         STA   L1064
         LDA   L4605
         STA   L1066
         JSR   L0F2F
         LDA   L460D
         STA   L1064
         LDA   L460F
         STA   L1066
         JSR   L0F2F
         RTS

L4534    REP   #$30
         LDA   L1000
         BEQ   L453B
L453B    LDA   #L45E2
         STA   L1064
         LDA   #^L45E2
         STA   L1066
         LDA   #L4617
         STA   L1068
         LDA   #^L4617
         STA   L106A
         LDA   #L461B
         STA   L106C
         LDA   #^L461B
         STA   L106E
         LDA   #L461F
         STA   L1070
         LDA   #^L461F
         STA   L1072
         JSR   L0F1E
         LDA   #L45ED
         STA   L1064
         LDA   #^L45ED
         STA   L1066
         LDA   #L4621
         STA   L1068
         LDA   #^L4621
         STA   L106A
         LDA   #L4625
         STA   L106C
         LDA   #^L4625
         STA   L106E
         LDA   #L4629
         STA   L1070
         LDA   #^L4629
         STA   L1072
         JSR   L0F1E
         RTS

L45A2    LDA   L4617
         STA   L1064
         LDA   L4619
         STA   L1066
         JSR   L0F2F
         LDA   L4621
         STA   L1064
         LDA   L4623
         STA   L1066
         JSR   L0F2F
         RTS

L45C1    ASC   '1/fstr'00
L45CC    ASC   '1/fsgj'00
L45D7    ASC   '1/fsvg'00
L45E2    ASC   '1/fswh'00
L45ED    ASC   '1/fsinc'00
L45F9    DB    $00
         DB    $00
L45FB    DB    $00
         DB    $00
L45FD    DB    $00
         DB    $00
         DB    $00
         DB    $00
L4601    DB    $00
         DB    $00
L4603    DB    $00
         DB    $00
L4605    DB    $00
         DB    $00
L4607    DB    $00
         DB    $00
         DB    $00
         DB    $00
L460B    DB    $00
         DB    $00
L460D    DB    $00
         DB    $00
L460F    DB    $00
         DB    $00
L4611    DB    $00
         DB    $00
         DB    $00
         DB    $00
L4615    DB    $00
         DB    $00
L4617    DB    $00
         DB    $00
L4619    DB    $00
         DB    $00
L461B    DB    $00
         DB    $00
L461D    DB    $00
         DB    $00
L461F    DB    $00
         DB    $00
L4621    DB    $00
         DB    $00
L4623    DB    $00
         DB    $00
L4625    DB    $00
         DB    $00
L4627    DB    $00
         DB    $00
L4629    DB    $00
         DB    $00
L462B    DB    $00
         DB    $00
L462D    REP   #$30
         JSR   L7824
         JSR   L7A27
L4635    JSR   L1253
         JSR   L8728
         JSR   L8E26
         LDA   #L8829
         STA   L1064
         LDA   #^L8829
         STA   L1066
         LDA   L1064
         STA   L1068
         LDA   L1066
         STA   L106A
         JSR   L9087
         LDA   L881A
         CMP   #$0002
         BNE   L467C
         LDA   #L883D
         STA   L1064
         LDA   #^L883D
         STA   L1066
         LDA   L1064
         STA   L1068
         LDA   L1066
         STA   L106A
         JSR   L9087
L467C    JSR   L1A54
         JSR   L1234
         LDA   #L4E24
         STA   L1064
         LDA   #^L4E24
         STA   L1066
         LDA   #L4E2E
         STA   L1068
         LDA   #^L4E2E
         STA   L106A
         LDA   #L4E32
         STA   L106C
         LDA   #^L4E32
         STA   L106E
         LDA   #L4E36
         STA   L1070
         LDA   #^L4E36
         STA   L1072
         JSR   L0F1E
         JSR   L4D93
         JSR   L4BE6
         LDA   #L1B58
         STA   L1064
         LDA   #^L1B58
         STA   L1066
         LDA   L1186
         STA   L1068
         LDA   L1188
         STA   L106A
         LDA   #L111E
         STA   L106C
         LDA   #^L111E
         STA   L106E
         JSR   L7C2B
         JSR   L4462
         JSR   L4534
         LDA   L117E
         STA   L1064
         LDA   L1180
         STA   L1066
         LDA   L118A
         STA   L1068
         LDA   L118C
         STA   L106A
         JSR   L79D6
         JSR   L0EE9
         LDA   #$0003
         STA   L1064
         JSR   L7EC0
         JSR   L4C7F
         JSR   L7824
         STZ   L1064
         LDA   #$0007
         STA   L1068
         LDA   #L4EC8
         STA   L106C
         LDA   #^L4EC8
         STA   L106E
         JSR   L1A03
         LDA   #$0000
         STA   L1064
         LDA   #L111E
         STA   L1068
         LDA   #^L111E
         STA   L106A
         LDA   L1186
         STA   L106C
         LDA   L1188
         STA   L106E
         JSR   L842D
         JSR   L1D61
         LDA   #$0008
         STA   L1078
         LDA   #L4EC8
         STA   $04
         LDA   #^L4EC8
         STA   $06
         STZ   L1084
L4764    LDA   #L1B64
         STA   L1088
         LDA   #^L1B64
         STA   L108A
         LDY   L1084
         LDA   [$04],Y
         ASL
         ASL
         ASL
         CLC
         ADC   L1088
         STA   L1068
         LDA   #$0000
         ADC   L108A
         STA   L106A
         LDA   L118A
         STA   L1064
         LDA   L118C
         STA   L1066
         LDA   L117E
         STA   L106C
         LDA   L1180
         STA   L106E
         LDA   #L4E58
         STA   L1070
         LDA   #^L4E58
         STA   L1072
         LDA   #$0000
         STA   L1074
         JSR   L823E
         LDA   L117E
         STA   L1064
         LDA   L1180
         STA   L1066
         JSR   L77F9
         LDA   #L4E68
         STA   L1064
         LDA   #^L4E68
         STA   L1066
         STZ   L1068
         JSR   L7A00
         JSR   L0EE9
         LDA   #$000E
         STA   L1064
         JSR   L7EC0
         LDA   L881C
         STA   $00
         LDA   L881C+2
         STA   $02
         LDY   #$0000
         SEP   #$20
L47F1    LDA   [$00],Y
         BEQ   L47FB
         STA   L4FA0,Y
         INY
         BRA   L47F1
L47FB    LDA   #$3F
         STA   L4FA0,Y
         INY
         LDA   #$00
         STA   L4FA0,Y
         REP   #$20
         LDA   #L4FA0
         STA   L1064
         LDA   #^L4FA0
         STA   L1066
         LDA   #$00BB
         STA   L1068
         JSR   L7EDC
         LDA   #$000F
         STA   L1064
         JSR   L7EC0
         LDA   #L4EA8
         STA   L1088
         LDA   #^L4EA8
         STA   L108A
         LDY   L1084
         LDA   [$04],Y
         INY
         INY
         STY   L1084
         ASL
         ASL
         CLC
         ADC   L1088
         STA   L1088
         LDA   #$0000
         ADC   L108A
         STA   L108A
         LDA   L1088
         STA   $00
         LDA   L108A
         STA   $02
         LDY   #$0000
         LDA   [$00],Y
         STA   L4EE8
         INY
         INY
         LDA   [$00],Y
         STA   L4EEA
         LDA   #L4F5D
         STA   L1074
         LDA   #^L4F5D
         STA   L1076
         STZ   L4EF2
         LDA   L4EE8
         STA   $00
         LDA   L4EEA
         STA   $02
         LDY   #$0000
         SEP   #$20
L4885    LDA   [$00],Y
         BEQ   L4891
         LDA   #$2D
         STA   L4FA0,Y
         INY
         BRA   L4885
L4891    STY   L4EEC
         LDA   #$00
         STA   L4FA0,Y
         DEY
         LDA   [$00],Y
         CMP   #$73
         BNE   L48B1
         REP   #$20
         LDA   #L4F72
         STA   L1074
         LDA   #^L4F72
         STA   L1076
         INC   L4EF2
L48B1    REP   #$20
         LDA   L4EE8
         STA   L1064
         LDA   L4EEA
         STA   L1066
         JSR   L7E38
         LDA   L1068
         STA   L1088
         LDA   #$0140
         SEC
         SBC   L1068
         LSR
         STA   L4EF0
         STA   L4E1E
         CLC
         ADC   L1088
         STA   L4E22
         LDA   #L4E1C
         STA   L1064
         LDA   #^L4E1C
         STA   L1066
         LDA   #$000F
         STA   L1068
         JSR   L7A00
         JSR   L0EE9
         LDA   #$000E
         STA   L1064
         JSR   L7EC0
         JSR   L0EE9
         LDA   L1074
         STA   L1064
         LDA   L1076
         STA   L1066
         LDA   #$00A8
         STA   L1068
         JSR   L7EDC
         LDA   #$0007
         STA   L1064
         JSR   L7EC0
         JSR   L1D40
         JSR   L1D61
         STZ   L4EEE
         LDA   L4EF2
         BNE   L494E
         LDA   L4E2E
         STA   L1064
         LDA   L4E30
         STA   L1066
         LDA   L4E32
         STA   L1068
         LDA   L4E34
         STA   L106A
         LDA   L4E36
         STA   L106C
         JSR   L0F3A
L494E    JSR   L8489
L4951    JSR   L787E
         CMP   #$0000
         BEQ   L4951
         CMP   #$001B
         BNE   L4961
         JMP   L4B51

L4961    CMP   #$000D
         BNE   L4969
         JMP   L4A20

L4969    CMP   #$007F
         BNE   L4971
         JMP   L49C4

L4971    PHA
         LDA   L4EEC
         CMP   L4EEE
         BNE   L497E
         PLA
         JMP   L4B80

L497E    PLA
         ORA   #$0020
         CMP   #$0061
         BCS   L498A
L4987    JMP   L4B80

L498A    CMP   #$007B
         BCS   L4987
         SEP   #$20
         LDX   L4EEE
         STA   L4FA0,X
         INX
         STZ   L4FA0,X
         STX   L4EEE
         REP   #$20
         LDA   L4EF0
         STA   L1064
         LDA   #$0081
         STA   L1068
         JSR   L7E26
         LDA   #L4FA0
         STA   L1064
         LDA   #^L4FA0
         STA   L1066
         JSR   L7E5F
         JSR   L804F
         JMP   L4951

L49C4    LDA   L4EEE
         BNE   L49CC
         JMP   L4B80

L49CC    TAX
         DEX
         SEP   #$20
         STZ   L4FA0,X
         STX   L4EEE
         REP   #$20
         LDA   L117E
         STA   L1064
         LDA   L1180
         STA   L1066
         JSR   L77F9
         LDA   #L4E60
         STA   L1064
         LDA   #^L4E60
         STA   L1066
         STZ   L1068
         JSR   L7A00
         LDA   L4EF0
         STA   L1064
         LDA   #$0081
         STA   L1068
         JSR   L7E26
         LDA   #L4FA0
         STA   L1064
         LDA   #^L4FA0
         STA   L1066
         JSR   L7E5F
         JSR   L1D40
         JSR   L804F
         JMP   L4951

L4A20    LDA   L4EE8
         STA   $00
         LDA   L4EEA
         STA   $02
         LDY   #$FFFF
         SEP   #$20
L4A2F    INY
         LDA   [$00],Y
         BEQ   L4A3D
         ORA   #$20
         CMP   L4FA0,Y
         BEQ   L4A2F
         BRA   L4A6C
L4A3D    REP   #$20
         JSR   L0EE9
         JSR   L86C7
         LDA   #L4E38
         STA   L1064
         LDA   #^L4E38
         STA   L1066
         JSR   L4B86
         JSR   L1D40
         JSR   L0F87
         LDA   #L45F9
         STA   L1064
         LDA   #^L45F9
         STA   L1066
         JSR   L4409
         JMP   L4B43

L4A6C    REP   #$20
         JSR   L0EB4
         JSR   L86DF
         LDA   #L4E48
         STA   L1064
         LDA   #^L4E48
         STA   L1066
         JSR   L4B86
         LDA   #L4F89
         STA   L1064
         LDA   #^L4F89
         STA   L1066
         LDA   #L4FA0
         STA   L1068
         LDA   #^L4FA0
         STA   L106A
         LDA   #$0016
         STA   L106C
         LDA   #$0000
         STA   L106E
         JSR   L79B4
         LDA   L4EE8
         STA   $00
         LDA   L4EEA
         STA   $02
         LDY   #$0000
         LDX   #$0016
         SEP   #$20
L4ABC    LDA   [$00],Y
         BEQ   L4AC7
         STA   L4FA0,X
         INY
         INX
         BRA   L4ABC
L4AC7    LDA   #$2E
         STA   L4FA0,X
         INX
         STZ   L4FA0,X
         REP   #$20
         LDA   #L4FA0
         STA   L1064
         LDA   #^L4FA0
         STA   L1066
         JSR   L7E38
         LDA   #$0140
         SEC
         SBC   L1068
         BPL   L4B03
         JSR   L87B4
         LDA   #L4FA0
         STA   L1064
         LDA   #^L4FA0
         STA   L1066
         JSR   L7E38
         LDA   #$0140
         SEC
         SBC   L1068
L4B03    LSR
         STA   L1064
         LDA   #$00A9
         STA   L1068
         JSR   L7E26
         LDA   #L4F89
         STA   L1064
         LDA   #^L4F89
         STA   L1066
         JSR   L7E5F
         LDA   #$000E
         STA   L1064
         JSR   L7EC0
         LDA   #L4FB6
         STA   L1064
         LDA   #^L4FB6
         STA   L1066
         JSR   L7E5F
         JSR   L1D40
         JSR   L0F5D
         JSR   L43B4
         JSR   L78AC
L4B43    JSR   L86F7
         DEC   L1078
         LDA   L1078
         BEQ   L4B51
         JMP   L4764

L4B51    LDA   L4E2E
         STA   L1064
         LDA   L4E30
         STA   L1066
         JSR   L11F7
         JSR   L4506
         JSR   L45A2
         JSR   L17C0
         JSR   L8B9D
         LDA   L1064
         CMP   #$0002
         BNE   L4B7D
         JSR   L0EB4
         JSR   L7A39
         JMP   L12B2
L4B7D    JMP   L4635

L4B80    JSR   L804F
         JMP   L4951

L4B86    JSR   L78F5
         AND   #$0003
         STA   L462B
         ASL
         ASL
         CLC
         ADC   L1064
         STA   L1080
         LDA   #$0000
         ADC   L1066
         STA   L1082
         JSR   L1D61
         LDA   L117E
         STA   L1064
         LDA   L1180
         STA   L1066
         JSR   L77F9
         LDA   #L4E70
         STA   L1064
         LDA   #^L4E70
         STA   L1066
         STZ   L1068
         JSR   L7A00
         LDA   L1080
         STA   $00
         LDA   L1082
         STA   $02
         LDA   [$00]
         STA   L1064
         LDY   #$0002
         LDA   [$00],Y
         STA   L1066
         LDA   #$00B8
         STA   L1068
         JSR   L7EDC
         RTS

L4BE6    LDA   #L4EC8
         STA   $04
         LDA   #^L4EC8
         STA   $06
         LDA   #L4EA8
         STA   $08
         LDA   #^L4EA8
         STA   $0A
         LDA   #L1B64
         STA   L10CA
         LDA   #^L1B64
         STA   L10CC
         LDY   #$0000
         STZ   L10D0
         STZ   L10D2
L4C0F    LDA   [$04],Y
         STA   L1064
         PHA
         INY
         INY
         LDA   [$04],Y
         STA   L1068
         PHA
         INY
         INY
         LDA   L117E
         STA   L106C
         LDA   L1180
         STA   L106E
         LDA   L10CA
         STA   L1070
         LDA   L10CC
         STA   L1072
         PHY
         JSR   L1ACE
         PLY
         PLA
         STA   L1064
         PLA
         STA   L1068
         PHY
         JSR   L1B37
         LDY   L10D0
         LDA   L106C
         STA   [$08],Y
         INY
         INY
         LDA   L106E
         STA   [$08],Y
         INY
         INY
         STY   L10D0
         PLY
         LDA   #$0008
         CLC
         ADC   L10CA
         STA   L10CA
         LDA   #$0000
         ADC   L10CC
         STA   L10CC
         INC   L10D2
         LDA   L10D2
         CMP   #$0008
         BEQ   L4C7E
         JMP   L4C0F
L4C7E    RTS

L4C7F    LDA   #L4EA8
         STA   $08
         LDA   #^L4EA8
         STA   $0A
         LDA   #L1B64
         STA   L10CA
         LDA   #^L1B64
         STA   L10CC
         STZ   L10D2
         JSR   L4C9C
         INC
L4C9C    LDA   L117E
         STA   L1064
         LDA   L1180
         STA   L1066
         JSR   L77F9
         STZ   L1064
         JSR   L7A4D
         STZ   L1084
         LDA   #L4E78
         STA   L10CE
         LDA   #^L4E78
         STA   L10D0
         LDA   #L4E98
         STA   $04
         LDA   #^L4E98
         STA   $06
         STZ   L10D4
L4CCD    LDA   L118A
         STA   L1064
         LDA   L118C
         STA   L1066
         LDA   L10CA
         STA   L1068
         LDA   L10CC
         STA   L106A
         LDA   L117E
         STA   L106C
         LDA   L1180
         STA   L106E
         LDA   L10CE
         STA   L1070
         LDA   L10D0
         STA   L1072
         LDA   #$0000
         STA   L1074
         JSR   L823E
         LDY   L10D4
         LDA   [$04],Y
         STA   L1064
         INY
         INY
         LDA   [$04],Y
         STA   L1068
         INY
         INY
         STY   L10D4
         JSR   L7E26
         LDY   L10D2
         LDA   [$08],Y
         STA   L1064
         INY
         INY
         LDA   [$08],Y
         STA   L1066
         INY
         INY
         STY   L10D2
         JSR   L7E5F
         LDA   #$0008
         CLC
         ADC   L10CA
         STA   L10CA
         LDA   #$0000
         ADC   L10CC
         STA   L10CC
         LDA   #$0008
         CLC
         ADC   L10CE
         STA   L10CE
         LDA   #$0000
         ADC   L10D0
         STA   L10D0
         INC   L1084
         LDA   L1084
         CMP   #$0004
         BEQ   L4D68
         JMP   L4CCD

L4D68    LDA   #$0000
         STA   L1064
         LDA   #L111E
         STA   L1068
         LDA   #^L111E
         STA   L106A
         LDA   L117E
         STA   L106C
         LDA   L1180
         STA   L106E
         JSR   L842D
         JSR   L804F
         JSR   L78AC
         JSR   L8489
         RTS

L4D93    LDA   #L4EC8
         STA   $00
         LDA   #^L4EC8
         STA   $02
         STZ   L1064
         LDY   #$0000
L4DA3    PHY
         JSR   L78F5
         PLY
         AND   #$0003
         BEQ   L4DA3
         STA   L10D4
         TAX
         PHY
         PHX
         JSR   L78F5
         PLX
         PLY
         AND   #$000F
         INC
         CPX   #$0003
         BNE   L4DC9
         CMP   #$000E
         BCC   L4DC9
         JMP   L4DA3

L4DC9    STA   L10D6
         TYX
         LDA   L1064
         BNE   L4DD5
         JMP   L4DFE

L4DD5    LDY   #$0000
         STZ   L1068
L4DDB    LDA   L10D4
         CMP   [$00],Y
         BNE   L4DEF
         INY
         INY
         LDA   L10D6
         CMP   [$00],Y
         BNE   L4DF1
         TXY
         JMP   L4DA3

L4DEF    INY
         INY
L4DF1    INY
         INY
         INC   L1068
         LDA   L1068
         CMP   L1064
         BNE   L4DDB
L4DFE    TXY
         LDA   L10D4
         STA   [$00],Y
         INY
         INY
         LDA   L10D6
         STA   [$00],Y
         INC   L1064
         LDA   L1064
         CMP   #$0008
         BEQ   L4E1B
         INY
         INY
         JMP   L4DA3
L4E1B    RTS

L4E1C    DW    $008A
L4E1E    DW    $0000
         DW    $008B
L4E22    DW    $0000
L4E24    ASC   '1/ex1'00
L4E2E    DW    $0000
L4E30    DW    $0000
L4E32    DW    $0000
L4E34    DW    $0000
L4E36    DW    $0000
L4E38    ADRL  L4EF4
         ADRL  L4F02
         ADRL  L4F0C
         ADRL  L4EF4
L4E48    ADRL  L4F17
         ADRL  L4F17
         ADRL  L4F30
         ADRL  L4F47
L4E58    DW    $000F
         DW    $0078
         DW    $003C
         DW    $00C8
L4E60    DW    $0069
         DW    $0003
         DW    $0087
         DW    $013D
L4E68    DW    $0069
         DW    $0003
         DW    $00BF
         DW    $013D
L4E70    DW    $0091
         DW    $0003
         DW    $00BF
         DW    $013D
L4E78    DW    $0001
         DW    $002C
         DW    $002E
         DW    $007C
         DW    $0034
         DW    $002C
         DW    $0061
         DW    $007C
         DW    $0067
         DW    $002C
         DW    $0094
         DW    $007C
         DW    $009A
         DW    $002C
         DW    $00C7
         DW    $007C
L4E98    DW    $0086
         DW    $0020
         DW    $0086
         DW    $0053
         DW    $0086
         DW    $0086
         DW    $0086
         DW    $00B9
L4EA8    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L4EC8    DB    $00
         DB    $00
L4ECA    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L4EE8    DB    $00
         DB    $00
L4EEA    DB    $00
         DB    $00
L4EEC    DB    $00
         DB    $00
L4EEE    DB    $00
         DB    $00
L4EF0    DB    $00
         DB    $00
L4EF2    DB    $00
         DB    $00
L4EF4    ASC   'That'27's right!'00
L4F02    ASC   'Good job!'00
L4F0C    ASC   'Very good!'00
L4F17    ASC   'Sorry, that'27's incorrect.'00
L4F30    ASC   'Better luck next time.'00
L4F47    ASC   'Sorry, you missed it.'00
L4F5D    ASC   'What is this called,'00
L4F72    ASC   'What are these called,'00
L4F89    ASC   'The correct answer is '00
L4FA0    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L4FB6    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L4FDC    REP   #$30
         JSR   L7A27
         JSR   L7824
         JSR   L1253
         JSR   L8728
         JSR   L8E26
         LDA   #L8829
         STA   L1064
         LDA   #^L8829
         STA   L1066
         LDA   L1064
         STA   L1068
         LDA   L1066
         STA   L106A
         JSR   L9087
         LDA   L881A
         CMP   #$0002
         BNE   L502B
         LDA   #L883D
         STA   L1064
         LDA   #^L883D
         STA   L1066
         LDA   L1064
         STA   L1068
         LDA   L1066
         STA   L106A
         JSR   L9087
L502B    JSR   L5839
         STA   L5D6B
         CMP   #$0003
         BCS   L503B
         JSR   L1A54
         BRA   L503E
L503B    JSR   L1AA4
L503E    JSR   L4D93
         JSR   L4BE6
         JSR   L120E
         JSR   L4462
         JSR   L4534
         LDA   L118A
         STA   L1064
         LDA   L118C
         STA   L1066
         LDA   #L1BD4
         STA   L1068
         LDA   #^L1BD4
         STA   L106A
         LDA   L117E
         STA   L106C
         LDA   L1180
         STA   L106E
         LDA   #L1BD4
         STA   L1070
         LDA   #^L1BD4
         STA   L1072
         LDA   #$0000
         STA   L1074
         JSR   L823E
         LDA   L117E
         STA   L1064
         LDA   L1180
         STA   L1066
         LDA   L118A
         STA   L1068
         LDA   L118C
         STA   L106A
         JSR   L79D6
         STZ   L1064
         LDA   #$000F
         STA   L1068
         LDA   #L4EC8
         STA   L106C
         LDA   #^L4EC8
         STA   L106E
         JSR   L1A03
         JSR   L0EB4
         LDA   #$0005
         STA   L1064
         JSR   L7EC0
         JSR   L54E1
         JSR   L53EC
         LDA   L1182
         STA   L1064
         LDA   L1184
         STA   L1066
         JSR   L77F9
         LDA   #L5B2E
         STA   L1064
         LDA   #^L5B2E
         STA   L1066
         STZ   L1068
         JSR   L7A00
         LDA   #$0000
         STA   L1064
         LDA   #L111E
         STA   L1068
         LDA   #^L111E
         STA   L106A
         LDA   L1182
         STA   L106C
         LDA   L1184
         STA   L106E
         JSR   L842D
         JSR   L1D61
         STZ   L5D6D
L5113    LDA   L117E
         STA   L1064
         LDA   L1180
         STA   L1066
         JSR   L77F9
         LDA   #L5B2E
         STA   L1064
         LDA   #^L5B2E
         STA   L1066
         STZ   L1068
         JSR   L7A00
         LDA   L881C
         STA   $10
         LDA   L881C+2
         STA   $12
         LDY   #$0000
         SEP   #$20
L5143    LDA   [$10],Y
         BEQ   L514D
         STA   L5BD3+$10,Y
         INY
         BRA   L5143
L514D    LDA   #$2E
         STA   L5BD3+$10,Y
         INY
         LDA   #$00
         STA   L5BD3+$10,Y
         REP   #$20
         JSR   L0EB4
         LDA   #$0007
         STA   L1064
         JSR   L7EC0
         LDA   #L5BD3
         STA   L1064
         LDA   #^L5BD3
         STA   L1066
         LDA   #$00C3
         STA   L1068
         JSR   L7EDC
         JSR   L1D40
         JSR   L1D61
         JSR   L8489
L5184    JSR   L535B
         CMP   #$FFFF
         BNE   L518E
         BRA   L5184
L518E    CMP   #$FFFE
         BNE   L5196
         JMP   L5281

L5196    STA   L5D83
         STX   L5D85
         JSR   L5304
         BRA   L51A1
L51A1    JSR   L535B
         CMP   #$FFFF
         BNE   L51AB
         BRA   L51A1
L51AB    CMP   #$FFFE
         BNE   L51B3
         JMP   L5281

L51B3    CPX   L5D85
         BEQ   L51A1
         STA   L5D89
         STX   L5D87
         JSR   L5304
         LDA   L5D89
         AND   #$001E
         STA   L1064
         LDA   L5D83
         AND   #$001E
         CMP   L1064
         BEQ   L51D8
         JMP   L5220

L51D8    JSR   L86C7
         LDA   #L5B0E
         STA   L1064
         LDA   #^L5B0E
         STA   L1066
         JSR   L52A4
         JSR   L0F87
         LDA   #L45F9
         STA   L1064
         LDA   #^L45F9
         STA   L1066
         JSR   L4409
         LDA   #L4EC8
         STA   $10
         LDA   #^L4EC8
         STA   $12
         LDA   L5D83
         ASL
         TAY
         LDA   #$FFFF
         STA   [$10],Y
         LDA   L5D89
         ASL
         TAY
         LDA   #$FFFF
         STA   [$10],Y
         INC   L5D6D
         JMP   L5276

L5220    JSR   L86DF
         LDA   #L5B1E
         STA   L1064
         LDA   #^L5B1E
         STA   L1066
         JSR   L52A4
         JSR   L0F5D
         JSR   L43B4
         LDA   L117E
         STA   L1064
         LDA   L1180
         STA   L1066
         LDA   L5D85
         STA   L1068
         INC   L1068
         JSR   L5413
         LDA   L117E
         STA   L1064
         LDA   L1180
         STA   L1066
         LDA   L5D87
         STA   L1068
         INC   L1068
         JSR   L5413
         JSR   L78AC
         JSR   L1D40
         JSR   L1D61
         JSR   L86F7
         BRA   L5276
L5276    LDA   L5D6D
         CMP   #$0008
         BEQ   L5281
         JMP   L5113

L5281    JSR   L4506
         JSR   L45A2
         JSR   L17C0
         JSR   L8B9D
         LDA   L1064
         CMP   #$0002
         BNE   L529E
         JSR   L0EB4
         JSR   L7A39
         JMP   L12B2

L529E    JSR   L7A39
         JMP   L4FDC

L52A4    JSR   L78F5
         AND   #$0003
         STA   L462B
         ASL
         ASL
         CLC
         ADC   L1064
         STA   L1080
         LDA   #$0000
         ADC   L1066
         STA   L1082
         LDA   L117E
         STA   L1064
         LDA   L1180
         STA   L1066
         JSR   L77F9
         LDA   #L5B2E
         STA   L1064
         LDA   #^L5B2E
         STA   L1066
         STZ   L1068
         JSR   L7A00
         LDA   L1080
         STA   $00
         LDA   L1082
         STA   $02
         LDA   [$00]
         STA   L1064
         LDY   #$0002
         LDA   [$00],Y
         STA   L1066
         LDA   #$00C3
         STA   L1068
         JSR   L7EDC
         JSR   L1D40
         RTS

L5304    LDA   #L1B64
         STA   L1088
         LDA   #^L1B64
         STA   L108A
         TXA
         ASL
         ASL
         ASL
         CLC
         ADC   L1088
         STA   L1068
         LDA   #$0000
         ADC   L108A
         STA   L106A
         LDA   L1068
         STA   L1070
         LDA   L106A
         STA   L1072
         LDA   L1186
         STA   L1064
         LDA   L1188
         STA   L1066
         LDA   L117E
         STA   L106C
         LDA   L1180
         STA   L106E
         LDA   #$0000
         STA   L1074
         JSR   L823E
         JSR   L1D40
         JSR   L804F
         JSR   L1D61
         RTS

L535B    JSR   L7A39
L535E    JSR   L787E
         CMP   #$0000
         BEQ   L5369
         JMP   L5392

L5369    JSR   L7836
         LDA   L106C
         BEQ   L535E
         LDA   #L1B64
         STA   L106C
         LDA   #^L1B64
         STA   L106E
         LDA   #$0010
         STA   L1070
         JSR   L8079
         LDA   L1074
         BNE   L538E
         JMP   L53DC

L538E    DEC
         JMP   L53AE

L5392    CMP   #$001B
         BNE   L539A
         JMP   L53E5

L539A    ORA   #$0020
         CMP   #$0061
         BCS   L53A5
L53A2    JMP   L53DC

L53A5    CMP   #$0071
         BCS   L53A2
         SEC
         SBC   #$0061
L53AE    STA   L107C
         JSR   L7A27
         LDA   #L4EC8
         STA   $00
         LDA   #^L4EC8
         STA   $02
         LDY   #$0000
         LDX   #$0000
L53C4    LDA   [$00],Y
         CMP   L107C
         BEQ   L53D7
         INY
         INY
         INX
         CPX   #$0010
         BNE   L53C4
         LDA   #$FFFF
         RTS

L53D7    TXA
         LDX   L107C
         RTS

L53DC    JSR   L80C9
         JSR   L804F
         JMP   L535E

L53E5    JSR   L7A27
         LDA   #$FFFE
         RTS

L53EC    STZ   L107C
L53EF    LDA   L1182
         STA   L1064
         LDA   L1184
         STA   L1066
         LDA   L107C
         STA   L1068
         INC   L1068
         JSR   L5413
         INC   L107C
         LDA   L107C
         CMP   #$0010
         BNE   L53EF
         RTS

L5413    LDA   L1064
         STA   L1080
         LDA   L1066
         STA   L1082
         LDA   L1068
         STA   L1084
         JSR   L77F9
         JSR   L0EE9
         LDA   #$0005
         STA   L1064
         JSR   L7EC0
         LDA   #L1B64
         STA   L1088
         LDA   #^L1B64
         STA   L108A
         LDA   L1084
         DEC
         ASL
         ASL
         ASL
         CLC
         ADC   L1088
         STA   L1070
         LDA   #$0000
         ADC   L108A
         STA   L1072
         LDA   L1080
         STA   L106C
         LDA   L1082
         STA   L106E
         LDA   L118A
         STA   L1064
         LDA   L118C
         STA   L1066
         LDA   #L1BD4
         STA   L1068
         LDA   #^L1BD4
         STA   L106A
         LDA   #$0000
         STA   L1074
         JSR   L823E
         LDA   L1084
         CLC
         ADC   #$0040
         SEP   #$20
         STA   L5D6F
         STZ   L5D70
         REP   #$20
         LDA   #L5D6F
         STA   L1064
         LDA   #^L5D6F
         STA   L1066
         JSR   L7E38
         LDA   #$0051
         SEC
         SBC   L1068
         LSR
         STA   L1064
         LDA   L1070
         STA   $10
         LDA   L1072
         STA   $12
         LDA   [$10]
         CLC
         ADC   #$001F
         STA   L1068
         LDY   #$0002
         LDA   [$10],Y
         CLC
         ADC   L1064
         STA   L1064
         JSR   L7E26
         LDA   #L5D6F
         STA   L1064
         LDA   #^L5D6F
         STA   L1066
         JSR   L7E5F
         RTS

L54E1    LDA   L1186
         STA   L1064
         LDA   L1188
         STA   L1066
         JSR   L77F9
         STZ   L1064
         JSR   L7A4D
         LDA   L5D6B
         CMP   #$0003
         BCC   L5501
         JMP   L5528

L5501    LDA   #L4EC8
         STA   $04
         LDA   #^L4EC8
         STA   $06
         JSR   L5544
L550E    LDA   #L4ECA
         STA   $04
         LDA   #^L4ECA
         STA   $06
         LDA   L5D6B
         CMP   #$0001
         BNE   L5524
         JSR   L5544
         RTS

L5524    JSR   L55CA
         RTS

L5528    LDA   L5D6B
         CMP   #$0003
         BNE   L5540
         LDA   #L4EC8
         STA   $04
         LDA   #^L4EC8
         STA   $06
         JSR   L55CA
         JMP   L550E

L5540    JSR   L56DB
         RTS

L5544    LDA   #L1B64
         STA   L1080
         LDA   #^L1B64
         STA   L1082
         LDA   L1080
         STA   L1084
         LDA   L1082
         STA   L1086
         STZ   L1078
L555F    LDY   L1078
         LDA   [$04],Y
         INY
         INY
         INY
         INY
         STY   L1078
         ASL
         ASL
         ASL
         CLC
         ADC   L1084
         STA   L1070
         LDA   #$0000
         ADC   L1086
         STA   L1072
         LDA   L118A
         STA   L1064
         LDA   L118C
         STA   L1066
         LDA   L1080
         STA   L1068
         LDA   L1082
         STA   L106A
         LDA   L1186
         STA   L106C
         LDA   L1188
         STA   L106E
         LDA   #$0000
         STA   L1074
         JSR   L823E
         LDA   #$0008
         CLC
         ADC   L1080
         STA   L1080
         LDA   #$0000
         ADC   L1082
         STA   L1082
         LDA   L1078
         CMP   #$0020
         BEQ   L55C9
         JMP   L555F
L55C9    RTS

L55CA    JSR   L87B4
         LDA   #L4EA8
         STA   L1078
         LDA   #^L4EA8
         STA   L107A
         LDA   #L1B64
         STA   L1084
         LDA   #^L1B64
         STA   L1086
         STZ   L1088
L55E8    LDY   L1088
         LDA   [$04],Y
         INY
         INY
         INY
         INY
         STY   L1088
         ASL
         ASL
         ASL
         CLC
         ADC   L1084
         STA   L1080
         LDA   #$0000
         ADC   L1086
         STA   L1082
         LDA   L1080
         STA   L1064
         LDA   L1082
         STA   L1066
         LDA   #$000F
         STA   L1068
         JSR   L7A00
         LDA   L1080
         STA   L1064
         LDA   L1082
         STA   L1066
         LDA   #L5DAB
         STA   L1068
         LDA   #^L5DAB
         STA   L106A
         LDA   #$0008
         STA   L106C
         LDA   #$0000
         STA   L106E
         JSR   L79B4
         INC   L5DAB
         INC   L5DAD
         DEC   L5DAF
         DEC   L5DB1
         LDA   #L5DAB
         STA   L1064
         LDA   #^L5DAB
         STA   L1066
         LDA   #$0007
         STA   L1068
         JSR   L7A00
         LDA   L5DAF
         SEC
         SBC   #$0011
         STA   L107C
         LDA   L1078
         STA   $10
         LDA   L107A
         STA   $12
         LDA   [$10]
         STA   L1074
         LDY   #$0002
         LDA   [$10],Y
         STA   L1076
         LDA   L1074
         STA   L1064
         LDA   L1076
         STA   L1066
         JSR   L7E38
         LDA   #$0051
         SEC
         SBC   L1068
         LSR
         CLC
         ADC   L5DAD
         DEC
         STA   L1064
         LDA   L107C
         STA   L1068
         JSR   L7E26
         LDA   L1074
         STA   L1064
         LDA   L1076
         STA   L1066
         JSR   L7E5F
         LDA   #$0004
         CLC
         ADC   L1078
         STA   L1078
         LDA   #$0000
         ADC   L107A
         STA   L107A
         LDA   L1088
         CMP   #$0020
         BEQ   L56DA
         JMP   L55E8
L56DA    RTS

L56DB    LDA   #$0001
         STA   L1064
         LDA   #$0019
         STA   L1068
         LDA   #L4FA0
         STA   L106C
         LDA   #^L4FA0
         STA   L106E
         JSR   L1A03
         LDA   #L4EC8
         STA   $04
         LDA   #^L4EC8
         STA   $06
         LDA   #L5BEE
         STA   L1088
         LDA   #^L5BEE
         STA   L108A
         JSR   L5729
         LDA   #L4ECA
         STA   $04
         LDA   #^L4ECA
         STA   $06
         LDA   #L5CC3
         STA   L1088
         LDA   #^L5CC3
         STA   L108A
         JSR   L5729
         RTS

L5729    JSR   L87B4
         LDA   #L4FA0
         STA   $10
         LDA   #^L4FA0
         STA   $12
         LDA   #L1B64
         STA   L1074
         LDA   #^L1B64
         STA   L1076
         STZ   L1084
         STZ   L107C
L5748    LDA   L1088
         STA   L1064
         LDA   L108A
         STA   L1066
         LDY   L1084
         LDA   [$10],Y
         STA   L1068
         INY
         INY
         STY   L1084
         JSR   L7F44
         LDA   L106C
         STA   L1080
         LDA   L106E
         STA   L1082
         LDY   L107C
         LDA   [$04],Y
         INY
         INY
         INY
         INY
         STY   L107C
         ASL
         ASL
         ASL
         CLC
         ADC   L1074
         STA   L1078
         LDA   #$0000
         ADC   L1076
         STA   L107A
         LDA   L1078
         STA   L1064
         LDA   L107A
         STA   L1066
         LDA   #$000F
         STA   L1068
         JSR   L7A00
         LDA   L1078
         STA   L1064
         LDA   L107A
         STA   L1066
         LDA   #L5DAB
         STA   L1068
         LDA   #^L5DAB
         STA   L106A
         LDA   #$0008
         STA   L106C
         LDA   #$0000
         STA   L106E
         JSR   L79B4
         INC   L5DAB
         INC   L5DAD
         DEC   L5DAF
         DEC   L5DB1
         LDA   #L5DAB
         STA   L1064
         LDA   #^L5DAB
         STA   L1066
         LDA   #$0007
         STA   L1068
         JSR   L7A00
         LDA   L5DAF
         SEC
         SBC   #$0011
         STA   L1070
         LDA   L1080
         STA   L1064
         LDA   L1082
         STA   L1066
         JSR   L7E38
         LDA   #$0051
         SEC
         SBC   L1068
         LSR
         CLC
         ADC   L5DAD
         DEC
         STA   L1064
         LDA   L1070
         STA   L1068
         JSR   L7E26
         LDA   L1080
         STA   L1064
         LDA   L1082
         STA   L1066
         JSR   L7E5F
         LDA   L107C
         CMP   #$0020
         BEQ   L5838
         JMP   L5748
L5838    RTS

L5839    REP   #$30
         LDA   L1000
         BEQ   L5840
L5840    LDA   #L5A51
         STA   L1064
         LDA   #^L5A51
         STA   L1066
         LDA   #L5A5D
         STA   L1068
         LDA   #^L5A5D
         STA   L106A
         LDA   #L5A61
         STA   L106C
         LDA   #^L5A61
         STA   L106E
         LDA   #L5A65
         STA   L1070
         LDA   #^L5A65
         STA   L1072
         JSR   L0F1E
         LDA   #$0000
         STA   L1064
         JSR   L83B0
         JSR   L7824
         JSR   L0EB4
         LDA   #$0000
         STA   L1064
         JSR   L7A4D
         LDA   #L5AD6
         STA   L1064
         LDA   #^L5AD6
         STA   L1066
         LDA   #$0009
         STA   L1068
         JSR   L7A00
         LDA   #L5ADE
         STA   L1064
         LDA   #^L5ADE
         STA   L1066
         LDA   #$000E
         STA   L1068
         JSR   L7A00
         LDA   #L5AE6
         STA   L1064
         LDA   #^L5AE6
         STA   L1066
         LDA   #$0007
         STA   L1068
         JSR   L7A00
         LDA   #L5AEE
         STA   L1064
         LDA   #^L5AEE
         STA   L1066
         LDA   #$0009
         STA   L1068
         JSR   L7A00
         LDA   #L5AF6
         STA   L1064
         LDA   #^L5AF6
         STA   L1066
         LDA   #$0009
         STA   L1068
         JSR   L7A00
         LDA   #L5AFE
         STA   L1064
         LDA   #^L5AFE
         STA   L1066
         LDA   #$0009
         STA   L1068
         JSR   L7A00
         LDA   #L5B06
         STA   L1064
         LDA   #^L5B06
         STA   L1066
         LDA   #$0009
         STA   L1068
         JSR   L7A00
         LDA   #$000D
         STA   L1064
         JSR   L7EC0
         LDA   #L5A67
         STA   L1064
         LDA   #^L5A67
         STA   L1066
         LDA   #$001E
         STA   L1068
         JSR   L7EDC
         LDA   #$0007
         STA   L1064
         JSR   L7EC0
         LDA   #L5A83
         STA   L1064
         LDA   #^L5A83
         STA   L1066
         JSR   L7E71
         LDA   #L5A99
         STA   L1064
         LDA   #^L5A99
         STA   L1066
         JSR   L7E71
         LDA   #L5AAC
         STA   L1064
         LDA   #^L5AAC
         STA   L1066
         JSR   L7E71
         LDA   #L5ABC
         STA   L1064
         LDA   #^L5ABC
         STA   L1066
         JSR   L7E71
         LDA   #L5AD3
         STA   L1064
         LDA   #^L5AD3
         STA   L1066
         LDA   #$00AF
         STA   L1068
         JSR   L7EDC
         LDA   #$0001
         STA   L9584
         LDA   #$0000
         STA   L1064
         LDA   #L1030
         STA   L1068
         LDA   #^L1030
         STA   L106A
         JSR   L82F4
         LDA   L5A5D
         STA   L1064
         LDA   L5A5F
         STA   L1066
         LDA   L5A61
         STA   L1068
         LDA   L5A63
         STA   L106A
         LDA   L5A65
         STA   L106C
         JSR   L0F3A
         JSR   L7A39
         JSR   L8489
L59D8    LDA   #$0000
         STA   L1064
         LDA   #L5AE6
         STA   L1068
         LDA   #^L5AE6
         STA   L106A
         LDA   #$0005
         STA   L106C
         JSR   L8A2A
         CMP   #$0009
         BNE   L5A08
         JSR   L0F4E
         JSR   L804F
L59FE    JSR   L787E
         CMP   #$0009
         BEQ   L59FE
         BRA   L59D8
L5A08    LDA   L1064
         BEQ   L59D8
         CMP   #$0005
         BEQ   L5A3B
         CMP   L9584
         BEQ   L59D8
         STA   L9584
         LDA   L9584
         STA   L1064
         LDA   #$0004
         STA   L1068
         LDA   #L5AE6
         STA   L106C
         LDA   #^L5AE6
         STA   L106E
         JSR   L8AEF
         JSR   L804F
         JMP   L59D8

L5A3B    LDA   L5A5D
         STA   L1064
         LDA   L5A5F
         STA   L1066
         JSR   L0F2F
         JSR   L7A27
         LDA   L9584
         RTS

L5A51    ASC   '1/fsact'00
L5A5D    DW    $0000
L5A5F    DW    $0000
L5A61    DW    $0000
L5A63    DW    $0000
L5A65    DW    $0000
L5A67    ASC   'Please select the activity.'00
L5A83    DW    $0061
         DW    $0041
         ASC   'Picture - Picture'00
L5A99    DW    $0061
         DW    $0055
         ASC   'Picture - Word'00
L5AAC    DW    $0061
         DW    $0069
         ASC   'Word - Word'00
L5ABC    DW    $0061
         DW    $007E
         ASC   'Word - Contraction'00
L5AD3    ASC   'OK'00
L5AD6    DW    $0005
         DW    $0005
         DW    $00C2
         DW    $013A
L5ADE    DW    $0007
         DW    $0007
         DW    $00C0
         DW    $0138
L5AE6    DW    $0035
         DW    $004D
         DW    $0043
         DW    $005B
L5AEE    DW    $0049
         DW    $004D
         DW    $0057
         DW    $005B
L5AF6    DW    $005D
         DW    $004D
         DW    $006B
         DW    $005B
L5AFE    DW    $0071
         DW    $004D
         DW    $007F
         DW    $005B
L5B06    DW    $00A0
         DW    $0091
         DW    $00B4
         DW    $00AF
L5B0E    ADRL  L5B4B
         ADRL  L5B41
         ADRL  L5B36
         ADRL  L5B4B
L5B1E    ADRL  L5B59
         ADRL  L5B78
         ADRL  L5B97
         ADRL  L5BB5
L5B2E    DW    $00B4
         DW    $0000
         DW    $00C8
         DW    $0140
L5B36    ASC   'Very good!'00
L5B41    ASC   'Good job!'00
L5B4B    ASC   'That'27's right!'00
L5B59    ASC   'Whoops! Those two don'27't match.'00
L5B78    ASC   'Whoops! Better luck next time.'00
L5B97    ASC   'Sorry, those two don'27't match.'00
L5BB5    ASC   'Sorry, better luck next time.'00
L5BD3    ASC   'It'27's your turn, '00
         DW    $0000
         DW    $0000
         DW    $0000
         DW    $0000
         DW    $0000
L5BEE    ASC   'does not'00
         ASC   'could not'00
         ASC   'can not'00
         ASC   'did not'00
         ASC   'does not'00
         ASC   'have not'00
         ASC   'had not'00
         ASC   'has not'00
         ASC   'would not'00
         ASC   'was not'00
         ASC   'were not'00
         ASC   'you are'00
         ASC   'we are'00
         ASC   'they are'00
         ASC   'I would'00
         ASC   'we would'00
         ASC   'is not'00
         ASC   'are not'00
         ASC   'he would'00
         ASC   'she would'00
         ASC   'I will'00
         ASC   'they will'00
         ASC   'we will'00
         ASC   'he will'00
         ASC   'she will'00
L5CC3    ASC   'don'27't'00
         ASC   'couldn'27't'00
         ASC   'can'27't'00
         ASC   'didn'27't'00
         ASC   'doesn'27't'00
         ASC   'haven'27't'00
         ASC   'hadn'27't'00
         ASC   'hasn'27't'00
         ASC   'wouldn'27't'00
         ASC   'wasn'27't'00
         ASC   'weren'27't'00
         ASC   'you'27're'00
         ASC   'we'27're'00
         ASC   'they'27're'00
         ASC   'I'27'd'00
         ASC   'we'27'd'00
         ASC   'isn'27't'00
         ASC   'aren'27't'00
         ASC   'he'27'd'00
         ASC   'she'27'd'00
         ASC   'I'27'll'00
         ASC   'they'27'll'00
         ASC   'we'27'll'00
         ASC   'he'27'll'00
         ASC   'she'27'll'00
L5D6B    DB    $00
         DB    $00
L5D6D    DB    $00
         DB    $00
L5D6F    DB    $00
L5D70    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L5D83    DB    $00
         DB    $00
L5D85    DB    $00
         DB    $00
L5D87    DB    $00
         DB    $00
L5D89    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L5DAB    DB    $00
         DB    $00
L5DAD    DB    $00
         DB    $00
L5DAF    DB    $00
         DB    $00
L5DB1    DB    $00
         DB    $00
L5DB3    REP   #$30
         JSR   L7824
         JSR   L7A27
         STZ   L67C3
         STZ   L67C5
L5DC1    JSR   L1253
         JSR   L2701
         CMP   #$0004
         BNE   L5DCF
         JMP   L62F2

L5DCF    STA   L67C7
         CMP   #$0003
         BNE   L5DE6
         JSR   L247A
         STA   L67C9
         JSR   L64C0
         JSR   L65E2
         JMP   L5EBD

L5DE6    LDA   L67C7
         CMP   #$0001
         BEQ   L5DF1
         JMP   L5E2D

L5DF1    JSR   L6A30
         CMP   #$0000
         BEQ   L5DFC
         JMP   L5DC1

L5DFC    JSR   L6D81
         CMP   #$0000
         BNE   L5E07
         JMP   L5EBD

L5E07    JSR   L1234
         JSR   L6EBC
         CMP   #$0000
         BNE   L5E15
         JMP   L5DC1

L5E15    JSR   L6E3A
         CMP   #$0000
         BEQ   L5E1F
         BRA   L5E15
L5E1F    JSR   L6EE9
         CMP   #$0000
         BNE   L5E2A
         JMP   L5DC1
L5E2A    JMP   L5EBD

L5E2D    JSR   L1234
         JSR   L675C
         CMP   #$0000
         BNE   L5E3B
         JMP   L5DC1

L5E3B    LDA   #L8867
         STA   L1064
         LDA   #^L8867
         STA   L1066
         JSR   L7B4B
         LDA   L1068
         PHA
         LDA   L1068
         STA   L1064
         LDA   #L6807
         STA   L1068
         LDA   #^L6807
         STA   L106A
         LDA   #$0096
         STA   L106C
         LDA   #$0000
         STA   L106E
         JSR   L7B6A
         PLA
         STA   L1064
         JSR   L7B7D
         LDA   #L6807
         STA   L1088
         LDA   #^L6807
         STA   L108A
         LDA   #$000A
         STA   L67CF
         STZ   L67CB
L5E8B    LDA   L1088
         STA   L1064
         LDA   L108A
         STA   L1066
         JSR   L7E38
         LDA   L1068
         CMP   L67CB
         BCC   L5EA5
         STA   L67CB
L5EA5    LDA   #$000F
         CLC
         ADC   L1088
         STA   L1088
         LDA   #$0000
         ADC   L108A
         STA   L108A
         DEC   L67CF
         BNE   L5E8B
L5EBD    JSR   L1253
         LDA   #L67B3
         STA   L1064
         LDA   #^L67B3
         STA   L1066
         LDA   #L67A9
         STA   L1068
         LDA   #^L67A9
         STA   L106A
         LDA   #L67AD
         STA   L106C
         LDA   #^L67AD
         STA   L106E
         LDA   #L67B1
         STA   L1070
         LDA   #^L67B1
         STA   L1072
         JSR   L119E
         JSR   L7824
         JSR   L8728
         JSR   L8E26
         LDA   #L8829
         STA   L1064
         LDA   #^L8829
         STA   L1066
         LDA   L1064
         STA   L1068
         LDA   L1066
         STA   L106A
         JSR   L9087
         LDA   L881A
         CMP   #$0002
         BNE   L5F3A
         LDA   #L883D
         STA   L1064
         LDA   #^L883D
         STA   L1066
         LDA   L1064
         STA   L1068
         LDA   L1066
         STA   L106A
         JSR   L9087
L5F3A    JSR   L70B6
         STA   L67C1
         JSR   L6D3E
         JSR   L4462
         JSR   L4534
         JSR   L6C28
         LDA   #$000A
         STA   L43AE
         STZ   L1064
         LDA   #$0009
         STA   L1068
         LDA   #L68A7
         STA   L106C
         LDA   #^L68A7
         STA   L106E
         JSR   L1A03
         LDA   #$0000
         STA   L1064
         JSR   L83B0
         LDA   L117E
         STA   L1064
         LDA   L1180
         STA   L1066
         JSR   L77F9
         STZ   L1064
         JSR   L7A4D
         JSR   L7255
         LDA   #$0001
         STA   L1064
         JSR   L7064
         JSR   L1D40
         JSR   L1D61
         LDA   #$0000
         STA   L1064
         LDA   #L111E
         STA   L1068
         LDA   #^L111E
         STA   L106A
         JSR   L82F4
         JMP   L6042

L5FB2    LDA   #$0001
         STA   L1064
         JSR   L81CD
         JSR   L7255
         LDA   L1186
         STA   L1064
         LDA   L1188
         STA   L1066
         LDA   #L6907
         STA   L1068
         LDA   #^L6907
         STA   L106A
         LDA   L117E
         STA   L106C
         LDA   L1180
         STA   L106E
         LDA   L1068
         STA   L1070
         LDA   L106A
         STA   L1072
         LDA   #$0000
         STA   L1074
         JSR   L823E
         JSR   L1D40
         LDA   L67A9
         STA   L1064
         LDA   L67AB
         STA   L1066
         LDA   L67AD
         STA   L1068
         LDA   L67AF
         STA   L106A
         LDA   #$0000
         STA   L106C
         LDA   L67B1
         STA   L1070
         JSR   L11CB
         JSR   L7255
         LDA   #L6907
         STA   L1064
         LDA   #^L6907
         STA   L1066
         STZ   L1068
         JSR   L7A00
         LDA   #$0001
         STA   L1064
         JSR   L7064
         JSR   L1D40
L6042    JSR   L631B
         JSR   L7291
         LDA   #$0007
         STA   L1064
         JSR   L7EC0
         JSR   L0EE9
         JSR   L8489
         LDA   #L68BB
         STA   $00
         LDA   #^L68BB
         STA   $02
         STZ   L4EEE
         STZ   L67CD
L6067    JSR   L787E
         BEQ   L6067
         CMP   #$001B
         BNE   L6074
         JMP   L62C1

L6074    CMP   #$000D
         BNE   L607C
         JMP   L616D

L607C    CMP   #$007F
         BNE   L6084
         JMP   L60EB

L6084    STA   L1064
         LDA   L67C7
         CMP   L4EEE
         BNE   L6092
         JMP   L6315

L6092    LDA   L1064
         ORA   #$0020
         CMP   #$0061
         BCS   L60A0
         JMP   L6315

L60A0    CMP   #$007B
         BCC   L60A8
         JMP   L6315

L60A8    LDX   L67CD
         SEP   #$20
         STA   L68BB,X
         INX
         LDA   #$00
         STA   L68BB,X
         REP   #$20
         STX   L67CD
         INC   L4EEE
         LDA   #$0007
         STA   L1064
         JSR   L7EC0
         LDA   L67C9
         STA   L1064
         LDA   #$00A2
         STA   L1068
         JSR   L7E26
         LDA   #L68BB
         STA   L1064
         LDA   #^L68BB
         STA   L1066
         JSR   L7E5F
         JSR   L804F
         JMP   L6067

L60EB    LDA   L4EEE
         BNE   L60F3
         JMP   L6315

L60F3    JSR   L1D61
         LDA   L117E
         STA   L1064
         LDA   L1180
         STA   L1066
         JSR   L77F9
         STZ   L1064
         JSR   L7EC0
         LDA   L67C9
         STA   L1064
         LDA   #$00A2
         STA   L1068
         JSR   L7E26
         LDA   #L68BB
         STA   L1064
         LDA   #^L68BB
         STA   L1066
         JSR   L7E5F
         LDX   L67CD
         DEX
         LDA   #$0000
         SEP   #$20
         STA   L68BB,X
         REP   #$20
         STX   L67CD
         DEC   L4EEE
         LDA   #$0007
         STA   L1064
         JSR   L7EC0
         LDA   L67C9
         STA   L1064
         LDA   #$00A2
         STA   L1068
         JSR   L7E26
         LDA   #L68BB
         STA   L1064
         LDA   #^L68BB
         STA   L1066
         JSR   L7E5F
         JSR   L1D40
         JSR   L804F
         JMP   L6067

L616D    LDA   #$0003
         STA   L1064
         JSR   L7EC0
         LDA   L67D7
         STA   $00
         LDA   L67D9
         STA   $02
         LDA   #L68BB
         STA   $04
         LDA   #^L68BB
         STA   $06
         LDY   #$FFFF
         SEP   #$20
L618F    INY
         LDA   [$00],Y
         BEQ   L619D
         ORA   #$20
         CMP   [$04],Y
         BEQ   L618F
         JMP   L61D5

L619D    REP   #$20
         JSR   L0EE9
         JSR   L86C7
         LDA   #L6789
         STA   L1064
         LDA   #^L6789
         STA   L1066
         JSR   L72DF
         LDA   #$0002
         STA   L1064
         JSR   L7064
         JSR   L1D40
         JSR   L0F87
         LDA   #L45F9
         STA   L1064
         LDA   #^L45F9
         STA   L1066
         JSR   L4409
         JMP   L62B6

L61D5    REP   #$20
         JSR   L0EB4
         JSR   L86DF
         LDA   #L6799
         STA   L1064
         LDA   #^L6799
         STA   L1066
         JSR   L72DF
         STZ   L1064
         JSR   L7064
         LDA   #L6A0F
         STA   L1064
         LDA   #^L6A0F
         STA   L1066
         LDA   #L10A2
         STA   L1068
         LDA   #^L10A2
         STA   L106A
         LDA   #$0016
         STA   L106C
         LDA   #$0000
         STA   L106E
         JSR   L79B4
         LDA   L67D7
         STA   $00
         LDA   L67D9
         STA   $02
         LDY   #$0000
         LDX   #$0017
         SEP   #$20
L622B    LDA   [$00],Y
         INY
         CMP   #$00
         BEQ   L6238
         STA   L10A2,X
         INX
         BRA   L622B
L6238    LDA   #$2E
         STA   L10A2,X
         INX
         LDA   #$00
         STA   L10A2,X
         REP   #$20
         LDA   #L10A2
         STA   L1064
         LDA   #^L10A2
         STA   L1066
         JSR   L7E38
         LDA   #$0140
         SEC
         SBC   L1068
         BPL   L6276
         JSR   L87B4
         LDA   #L10A2
         STA   L1064
         LDA   #^L10A2
         STA   L1066
         JSR   L7E38
         LDA   #$0140
         SEC
         SBC   L1068
L6276    LSR
         STA   L1064
         LDA   #$0037
         STA   L1068
         JSR   L7E26
         LDA   #L6A0F
         STA   L1064
         LDA   #^L6A0F
         STA   L1066
         JSR   L7E5F
         LDA   #$0005
         STA   L1064
         JSR   L7EC0
         LDA   #L10B9
         STA   L1064
         LDA   #^L10B9
         STA   L1066
         JSR   L7E5F
         JSR   L1D40
         JSR   L0F5D
         JSR   L43B4
         JSR   L78AC
L62B6    JSR   L86F7
         DEC   L43AE
         BEQ   L62C1
         JMP   L5FB2

L62C1    LDA   L67A9
         STA   L1064
         LDA   L67AB
         STA   L1066
         JSR   L11F7
         JSR   L4506
         JSR   L45A2
         JSR   L17C0
         JSR   L8B9D
         LDA   L1064
         CMP   #$0002
         BEQ   L62F2
         JSR   L6FA7
         CMP   #$0000
         BNE   L62EF
         JMP   L5DC1
L62EF    JMP   L5EBD

L62F2    JSR   L1234
         LDA   L67C3
         BEQ   L6309
         LDA   L6803
         STA   L1064
         LDA   L6805
         STA   L1066
         JSR   L7B06
L6309    JSR   L0EB4
         JSR   L7824
         JSR   L7A39
         JMP   L12B2

L6315    JSR   L804F
         JMP   L6067

L631B    REP   #$30
         LDA   #$0001
         STA   L1064
         JSR   L81CD
         JSR   L7255
         JSR   L0EE9
         LDA   L1186
         STA   L1064
         LDA   L1188
         STA   L1066
         LDA   #L6907
         STA   L1068
         LDA   #^L6907
         STA   L106A
         LDA   L117E
         STA   L106C
         LDA   L1180
         STA   L106E
         LDA   L1068
         STA   L1070
         LDA   L106A
         STA   L1072
         LDA   #$0000
         STA   L1074
         JSR   L823E
         LDA   #L6807
         STA   L1064
         LDA   #^L6807
         STA   L1066
         LDA   L43AE
         DEC
         ASL
         TAX
         LDA   L68A7,X
         STA   L67CF
         ASL
         ASL
         ASL
         ASL
         SEC
         SBC   L67CF
         CLC
         ADC   L1064
         STA   L1064
         LDA   #$0000
         ADC   L1066
         STA   L1066
         LDA   L1064
         STA   L67D7
         LDA   L1066
         STA   L67D9
         LDA   L1064
         STA   $00
         LDA   L1066
         STA   $02
         LDY   #$0000
         LDX   #$0000
         SEP   #$20
L63B3    LDA   [$00],Y
         BEQ   L63BB
         INY
         INX
         BRA   L63B3
L63BB    STX   L67C7
         REP   #$20
         LDA   #$0005
         STA   L1064
         JSR   L7EC0
         LDA   L67D7
         STA   L1064
         LDA   L67D9
         STA   L1066
         JSR   L7E38
         LDA   L1068
         PHA
         LDA   #$00E1
         SEC
         SBC   L1068
         LSR
         CLC
         ADC   #$004C
         STA   L67C9
         STA   L1064
         LDA   #$00A8
         STA   L1068
         JSR   L7E26
         LDA   L67D7
         STA   L1064
         LDA   L67D9
         STA   L1066
         JSR   L7E5F
         JSR   L1D40
         LDA   L67A9
         STA   L1064
         LDA   L67AB
         STA   L1066
         LDA   L67AD
         STA   L1068
         LDA   L67AF
         STA   L106A
         LDA   #$0000
         STA   L106C
         LDA   L67B1
         STA   L1070
         JSR   L11CB
         REP   #$20
         LDA   L67C1
         DEC
         BEQ   L643E
         STA   L1064
         JSR   L81CD
L643E    LDA   L117E
         STA   L1064
         LDA   L1180
         STA   L1066
         JSR   L77F9
         LDA   #L6907
         STA   L1064
         LDA   #^L6907
         STA   L1066
         STZ   L1068
         JSR   L7A00
         LDA   #$0001
         STA   L1064
         JSR   L7064
         JSR   L0EE9
         SEP   #$20
         LDA   #$2D
         LDY   L67C7
         LDX   #$0000
L6475    STA   L68BB,X
         INX
         DEY
         BNE   L6475
         LDA   #$00
         STA   L68BB,X
         REP   #$20
         LDA   #$000F
         STA   L1064
         JSR   L7EC0
         REP   #$30
         PLA
         STA   L1088
         LDA   L67C9
         STA   L64BA
         CLC
         ADC   L1088
         STA   L64BE
         LDA   #L64B8
         STA   L1064
         LDA   #^L64B8
         STA   L1066
         LDA   #$000F
         STA   L1068
         JSR   L7A00
         JSR   L1D40
         RTS

L64B8    DW    $00A8
L64BA    DW    $0000
         DW    $00A9
L64BE    DW    $0000
L64C0    REP   #$30
         LDA   L67C3
         BEQ   L64CA
         JMP   L65D5

L64CA    LDA   #L65D6
L64CD    STA   L1064
         LDA   #^L65D6
         STA   L1066
         JSR   L7B8A
         LDA   L1088
         STA   L1064
         LDA   L108A
         STA   L1066
         LDA   #$0200
         STA   L1068
         LDA   #$0000
         STA   L106A
         JSR   L78BF
         LDA   L106E
         PHA
         LDA   L106C
         PHA
         LDA   L106C
         STA   L1064
         LDA   L106E
         STA   L1066
         LDA   #$C000
         STA   L1068
         JSR   L7AC4
         LDA   L106C
         STA   L6803
         LDA   L106E
         STA   L6805
         LDA   L1070
         STA   L67FF
         LDA   L1072
         STA   L6801
         PLA
         STA   L1088
         PLA
         STA   L108A
         LDA   #L65D6
         STA   L1064
         LDA   #^L65D6
         STA   L1066
         JSR   L7B4B
         LDA   L1068
         PHA
         LDA   L1068
         STA   L1064
         LDA   L67FF
         STA   L1068
         LDA   L6801
         STA   L106A
         LDA   L1088
         STA   L106C
         LDA   L108A
         STA   L106E
         JSR   L7B6A
         PLA
         STA   L1064
         JSR   L7B7D
         LDA   L67FF
         STA   $00
         LDA   L6801
         STA   $02
         LDA   L67FF
         STA   L68E3
         LDA   L6801
         STA   L68E5
         LDY   #$0000
         LDX   #$0004
         LDA   #$0002
         STA   L67CF
L658E    LDA   L67FF
         STA   L1088
         LDA   L6801
         STA   L108A
         SEP   #$20
L659C    LDA   [$00],Y
         INY
         CMP   #$5E
         BNE   L659C
         REP   #$20
         INY
         INY
         INY
         INY
         TYA
         CLC
         ADC   L1088
         STA   L1088
         LDA   #$0000
         ADC   L108A
         STA   L108A
         LDA   L1088
         STA   L68E3,X
         INX
         INX
         LDA   L108A
         STA   L68E3,X
         INX
         INX
         DEC   L67CF
         BNE   L658E
         LDA   #$0001
         STA   L67C3
L65D5    RTS

L65D6    STR   '1/words'
L65E2    REP   #$30
         LDA   #L68CF
         STA   L1064
         LDA   #^L68CF
         STA   L1066
         LDA   #$0014
         STA   L1068
         STZ   L106C
         JSR   L7A65
         LDA   L67C9
         DEC
         ASL
         TAX
         LDA   L692F,X
         STA   L67CF
         TXA
         ASL
         TAX
         LDA   L68E3,X
         STA   L1084
         LDA   L68E5,X
         STA   L1086
         LDA   #$000A
         STA   L67D1
         STZ   L67D5
L6620    STZ   L1064
         LDA   L67CF
         STA   L1068
         JSR   L7903
         TAX
         LDA   L1084
         STA   $00
         LDA   L1086
         STA   $02
         CPX   #$0000
         BEQ   L664D
         PHX
         LDY   #$0000
         SEP   #$20
L6642    LDA   [$00],Y
         INY
         CMP   #$2F
         BNE   L6642
         DEX
         BNE   L6642
         PLX
L664D    REP   #$20
         INX
         STX   L67D3
         LDA   L1084
         STA   L1080
         LDA   L1086
         STA   L1082
         TYA
         CLC
         ADC   L1080
         STA   L1080
         LDA   #$0000
         ADC   L1082
         STA   L1082
         LDX   #$0000
         LDY   #$000A
L6676    LDA   L68CF,X
         BEQ   L6688
         INX
         INX
         CMP   L67D3
         BNE   L6685
         JMP   L6620

L6685    DEY
         BNE   L6676
L6688    PHX
         LDA   L1080
         STA   $04
         LDA   L1082
         STA   $06
         LDY   #$0000
         SEP   #$20
L6698    LDA   [$04],Y
         CMP   #$20
         BCS   L66A1
         INY
         BRA   L6698
L66A1    REP   #$20
         TYA
         CLC
         ADC   L1080
         STA   L1080
         LDA   #$0000
         ADC   L1082
         STA   L1082
         LDX   L67D5
         LDA   L1080
         STA   L67D7,X
         INX
         INX
         LDA   L1082
         STA   L67D7,X
         INX
         INX
         STX   L67D5
         PLX
         LDA   L67D3
         STA   L68CF,X
         DEC   L67D1
         BEQ   L66D9
         JMP   L6620

L66D9    STZ   L67D5
         STZ   L67D1
         LDA   #$000A
         STA   L67D3
         LDA   #L6807
         STA   L1078
         LDA   #^L6807
         STA   L107A
L66F1    LDX   L67D5
         LDA   L67D7,X
         STA   $00
         INX
         INX
         LDA   L67D7,X
         STA   $02
         INX
         INX
         STX   L67D5
         LDA   L1078
         STA   $04
         LDA   L107A
         STA   $06
         LDY   #$0000
         LDX   #$0000
         SEP   #$20
L6717    LDA   [$00],Y
         CMP   #$2F
         BEQ   L6723
         STA   [$04],Y
         INY
         INX
         BRA   L6717
L6723    LDA   #$00
         STA   [$04],Y
         REP   #$20
         LDA   #$000F
         CLC
         ADC   L1078
         STA   L1078
         LDA   #$0000
         ADC   L107A
         STA   L107A
         CPX   #$000C
         BCC   L6744
         JMP   L65E2

L6744    TXA
         CMP   L67D1
         BCC   L674D
         STA   L67D1
L674D    DEC   L67D3
         BEQ   L6755
         JMP   L66F1

L6755    LDA   L67D1
         STA   L67CB
         RTS

L675C    REP   #$30
         JSR   L7A39
         LDA   #L6777
         STA   L1068
         LDA   #^L6777
         STA   L106A
         JSR   L84BD
         JSR   L7A27
         LDA   L8851
         RTS

L6777    STR   "r"
L6779    ADRL  L69AB
         ADRL  L69C3
         ADRL  L69DD
         ADRL  L69F6
L6789    ADRL  L6941
         ADRL  L6935
         ADRL  L6951
         ADRL  L6941
L6799    ADRL  L695E
         ADRL  L695E
         ADRL  L6979
         ADRL  L6992
L67A9    DB    $00
         DB    $00
L67AB    DB    $00
         DB    $00
L67AD    DB    $00
         DB    $00
L67AF    DB    $00
         DB    $00
L67B1    DB    $00
         DB    $00
L67B3    ASC   '1/fsnoise'00
L67C1    DB    $00
         DB    $00
L67C3    DB    $00
         DB    $00
L67C5    DB    $00
         DB    $00
L67C7    DB    $00
         DB    $00
L67C9    DB    $00
         DB    $00
L67CB    DB    $00
         DB    $00
L67CD    DB    $00
         DB    $00
L67CF    DB    $00
         DB    $00
L67D1    DB    $00
         DB    $00
L67D3    DB    $00
         DB    $00
L67D5    DB    $00
         DB    $00
L67D7    DB    $00
         DB    $00
L67D9    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L67FF    DB    $00
         DB    $00
L6801    DB    $00
         DB    $00
L6803    DB    $00
         DB    $00
L6805    DB    $00
         DB    $00
L6807    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L68A7    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L68BB    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L68CF    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L68E3    DB    $00
         DB    $00
L68E5    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L68EF    DW    $0002
         DW    $0000
         DW    $0057
         DW    $0063
         DW    $0002
         DW    $006E
         DW    $0057
         DW    $00D1
         DW    $0002
         DW    $00DC
         DW    $0057
         DW    $013F
L6907    DW    $0058
         DW    $0000
         DW    $00C8
         DW    $0140
L690F    DW    $0058
         DW    $0000
         DW    $00AD
         DW    $0063
L6917    DW    $0096
         DW    $005A
         DW    $00C8
         DW    $00E7
L691F    DW    $0000
         DW    $0000
         DW    $0053
         DW    $0140
L6927    DW    $0003
         DW    $0003
         DW    $0050
         DW    $013D
L692F    DW    $0404
         DW    $05DC
         DW    $0237
L6935    DW    $0034
         ASC   'Good job!'00
L6941    DW    $0034
         ASC   'That'27's right!'00
L6951    DW    $0034
         ASC   'Very good!'00
L695E    DW    $0027
         ASC   'Sorry, that'27's incorrect.'00
L6979    DW    $0027
         ASC   'Whoops, you missed it.'00
L6992    DW    $0027
         ASC   'Better luck next time.'00
L69AB    DW    $0020
         ASC   'Please type the word,'00
L69C3    DW    $0020
         ASC   'Try and spell the word,'00
L69DD    DW    $0020
         ASC   'Please spell the word,'00
L69F6    DW    $0020
         ASC   'Please enter the word,'00
L6A0F    ASC   'The correct answer is '00
L6A26    ASC   'WORD LIST'00
L6A30    REP   #$30
         JSR   L7824
         LDA   #$0000
         STA   L1064
         JSR   L83B0
         STZ   L1064
         JSR   L7A4D
         JSR   L0EE9
         LDA   #$0003
         STA   L1064
         JSR   L7EC0
         LDA   #$0004
         STA   L1064
         JSR   L8015
         LDA   #L6A26
         STA   L1064
         LDA   #^L6A26
         STA   L1066
         LDA   #$0016
         STA   L1068
         JSR   L7EDC
         STZ   L1064
         JSR   L8015
         JSR   L0EB4
         LDA   #$0001
         STA   L1064
         JSR   L7EC0
         LDA   #$0000
         STA   L1064
         LDA   #L2A25
         STA   L1068
         LDA   #^L2A25
         STA   L106A
         JSR   L82F4
         LDA   #L6807
         STA   L1064
         LDA   #^L6807
         STA   L1066
         LDA   #$0096
         STA   L1068
         STZ   L106C
         JSR   L7A65
         LDA   #L6807
         STA   L1088
         LDA   #^L6807
         STA   L108A
         LDA   #$0034
         STA   L67CF
         LDA   #$0001
         STA   L67D1
         STZ   L67D3
L6AC8    LDA   #L68BB
         STA   $00
         LDA   #^L68BB
         STA   $02
         LDY   #$0000
         LDA   L67D1
         CMP   #$000A
         BNE   L6AEB
         SEP   #$20
         LDA   #$31
         STA   [$00],Y
         INY
         LDA   #$30
         STA   [$00],Y
         INY
         BRA   L6AFB
L6AEB    SEP   #$20
         LDA   #$20
         STA   [$00],Y
         INY
         LDA   L67D1
         CLC
         ADC   #$30
         STA   [$00],Y
         INY
L6AFB    LDA   #$3A
         STA   [$00],Y
         INY
         LDA   #$00
         STA   [$00],Y
         REP   #$20
         LDA   #$0060
         STA   L1064
         LDA   L67CF
         STA   L1068
         JSR   L7E26
         LDA   #L68BB
         STA   L1064
         LDA   #^L68BB
         STA   L1066
         JSR   L7E5F
         JSR   L804F
         LDA   L1088
         STA   $00
         LDA   L108A
         STA   $02
         STZ   L67D5
         JSR   L8489
L6B37    JSR   L787E
         BEQ   L6B37
         CMP   #$001B
         BNE   L6B44
         JMP   L6BFB

L6B44    CMP   #$000D
         BNE   L6B4C
         JMP   L6BBA

L6B4C    CMP   #$007F
         BNE   L6B54
         JMP   L6B8B

L6B54    STA   L1064
         LDA   L67D5
         CMP   #$000B
         BNE   L6B62
         JMP   L6BF5

L6B62    LDA   L1064
         ORA   #$0020
         CMP   #$0061
         BCS   L6B70
         JMP   L6BF5

L6B70    CMP   #$007B
         BCC   L6B78
         JMP   L6BF5

L6B78    LDY   L67D5
         SEP   #$20
         STA   [$00],Y
         REP   #$20
         INY
         STY   L67D5
         JSR   L6C09
         JMP   L6B37

L6B8B    LDA   L67D5
         BNE   L6B93
         JMP   L6BF5

L6B93    STZ   L1064
         JSR   L7EC0
         JSR   L6C09
         LDY   L67D5
         DEY
         SEP   #$20
         LDA   #$00
         STA   [$00],Y
         REP   #$20
         STY   L67D5
         LDA   #$0001
         STA   L1064
         JSR   L7EC0
         JSR   L6C09
         JMP   L6B37

L6BBA    LDA   L67D5
         CMP   L67D3
         BCC   L6BC5
         STA   L67D3
L6BC5    LDA   L67D5
         BEQ   L6BF5
         INC   L67D1
         LDA   L67D1
         CMP   #$000B
         BCS   L6BFF
         LDA   #$0010
         CLC
         ADC   L67CF
         STA   L67CF
         LDA   #$000F
         CLC
         ADC   L1088
         STA   L1088
         LDA   #$0000
         ADC   L108A
         STA   L108A
         JMP   L6AC8

L6BF5    JSR   L804F
         JMP   L6B37

L6BFB    LDA   #$FFFF
         RTS

L6BFF    LDA   L67D3
         STA   L67CB
         LDA   #$0000
         RTS

L6C09    LDA   #$0080
         STA   L1064
         LDA   L67CF
         STA   L1068
         JSR   L7E26
         LDA   L1088
         STA   L1064
         LDA   L108A
         STA   L1066
         JSR   L7E5F
         RTS

L6C28    REP   #$30
         JSR   L7824
         LDA   #$0000
         STA   L1064
         JSR   L83B0
         STZ   L1064
         JSR   L7A4D
         JSR   L0EE9
         LDA   #$0003
         STA   L1064
         JSR   L7EC0
         LDA   #$0004
         STA   L1064
         JSR   L8015
         LDA   #L6A26
         STA   L1064
         LDA   #^L6A26
         STA   L1066
         LDA   #$0016
         STA   L1068
         JSR   L7EDC
         STZ   L1064
         JSR   L8015
         JSR   L0EB4
         LDA   #$0001
         STA   L1064
         JSR   L7EC0
         LDA   #L6807
         STA   L1088
         LDA   #^L6807
         STA   L108A
         STZ   L67CF
         LDA   #$000A
         STA   L67D1
L6C8D    LDA   L1088
         STA   L1064
         LDA   L108A
         STA   L1066
         JSR   L7E38
         LDA   L1068
         CMP   L67CF
         BCC   L6CA7
         STA   L67CF
L6CA7    LDA   #$000F
         CLC
         ADC   L1088
         STA   L1088
         LDA   #$0000
         ADC   L108A
         STA   L108A
         DEC   L67D1
         BNE   L6C8D
         LDA   #$0034
         STA   L67D1
         LDA   #$000A
         STA   L67D3
         LDA   #L6807
         STA   L1088
         LDA   #^L6807
         STA   L108A
         LDA   #$0140
         SEC
         SBC   L67CF
         LSR
         STA   L67CF
L6CE2    LDA   L67CF
         STA   L1064
         LDA   L67D1
         STA   L1068
         JSR   L7E26
         LDA   L1088
         STA   L1064
         LDA   L108A
         STA   L1066
         JSR   L7E5F
         LDA   #$0010
         CLC
         ADC   L67D1
         STA   L67D1
         LDA   #$000F
         CLC
         ADC   L1088
         STA   L1088
         LDA   #$0000
         ADC   L108A
         STA   L108A
         DEC   L67D3
         BNE   L6CE2
         LDA   #$0000
         STA   L1064
         LDA   #L2A25
         STA   L1068
         LDA   #^L2A25
         STA   L106A
         JSR   L82F4
         JSR   L804F
         JSR   L78AC
         RTS

L6D3E    REP   #$30
         LDA   L67C5
         BNE   L6D75
         JSR   L1234
         LDA   #L6D76
         STA   L1064
         LDA   #^L6D76
         STA   L1066
         LDA   L1186
         STA   L1068
         LDA   L1188
         STA   L106A
         LDA   #L111E
         STA   L106C
         LDA   #^L111E
         STA   L106E
         JSR   L7C2B
         LDA   #$0001
         STA   L67C5
L6D75    RTS

L6D76    STR   '1/nrth'
L6D81    REP   #$30
         JSR   L7824
         LDA   #$0000
         STA   L1064
         JSR   L83B0
         STZ   L1064
         JSR   L7A4D
         JSR   L0EE9
         LDA   #$0002
         STA   L1064
         JSR   L7EC0
         LDA   #L6E12
         STA   L1064
         LDA   #^L6E12
         STA   L1066
         LDA   #$0044
         STA   L1068
         JSR   L7EDC
         LDA   #L6E21
         STA   L1064
         LDA   #^L6E21
         STA   L1066
         LDA   #$0065
         STA   L1068
         JSR   L7EDC
         LDA   #L6E34
         STA   L1064
         LDA   #^L6E34
         STA   L1066
         LDA   #$009A
         STA   L1068
         JSR   L7EDC
         LDA   #$0000
         STA   L1064
         LDA   #L2A25
         STA   L1068
         LDA   #^L2A25
         STA   L106A
         JSR   L82F4
         JSR   L8489
L6DF8    JSR   L787E
         BEQ   L6DF8
         ORA   #$0020
         CMP   #$0079
         BEQ   L6E0E
         CMP   #$006E
         BNE   L6DF8
         LDA   #$0000
         RTS

L6E0E    LDA   #$0001
         RTS

L6E12    ASC   'Would you like'00
L6E21    ASC   'to save this list?'00
L6E34    ASC   '(Y/N)'00
L6E3A    REP   #$30
         LDA   #L8867
         STA   L1064
         LDA   #^L8867
         STA   L1066
         LDA   #$00C3
         STA   L1068
         LDA   #$00F2
         STA   L106A
         LDA   #$0000
         STA   L106C
         LDA   #$0000
         STA   L106E
         LDA   #$0001
         STA   L1070
         STZ   L1072
         STZ   L1074
         JSL   GSOS
         DW    $0001      ; Create
         ADRL  L1064
         LDA   #L8867
         STA   L1066
         LDA   #^L8867
         STA   L1068
         JSL   GSOS
         DW    $0010      ; Open
         ADRL  L1064
         LDA   #L6807
         STA   L1066
         LDA   #^L6807
         STA   L1068
         LDA   #$0096
         STA   L106A
         LDA   #$0000
         STA   L106C
         JSL   GSOS
         DW    $0013      ; Write
         ADRL  L1064
         JSL   GSOS
         DW    $0014      ; Close
         ADRL  L1064
         LDA   #$0000
         RTS

L6EBC    REP   #$30
         JSR   L7A39
         LDA   #L6EDD
         STA   L1068
         LDA   #^L6EDD
         STA   L106A
         LDA   #$000C
         STA   L106C
         JSR   L8552
         JSR   L7A27
         LDA   L8851
         RTS

L6EDD    STR   'aesop.words'
L6EE9    REP   #$30
         JSR   L7824
         LDA   #$0000
         STA   L1064
         JSR   L83B0
         STZ   L1064
         JSR   L7A4D
         JSR   L0EE9
         LDA   #$0002
         STA   L1064
         JSR   L7EC0
         LDA   #L6F7A
         STA   L1064
         LDA   #^L6F7A
         STA   L1066
         LDA   #$0044
         STA   L1068
         JSR   L7EDC
         LDA   #L6F8C
         STA   L1064
         LDA   #^L6F8C
         STA   L1066
         LDA   #$0065
         STA   L1068
         JSR   L7EDC
         LDA   #L6FA1
         STA   L1064
         LDA   #^L6FA1
         STA   L1066
         LDA   #$009A
         STA   L1068
         JSR   L7EDC
         LDA   #$0000
         STA   L1064
         LDA   #L2A25
         STA   L1068
         LDA   #^L2A25
         STA   L106A
         JSR   L82F4
         JSR   L8489
L6F60    JSR   L787E
         BEQ   L6F60
         ORA   #$0020
         CMP   #$0079
         BEQ   L6F76
         CMP   #$006E
         BNE   L6F60
         LDA   #$0000
         RTS

L6F76    LDA   #$0001
         RTS

L6F7A    ASC   'Would you like to'00
L6F8C    ASC   'play with this list?'00
L6FA1    ASC   '(Y/N)'00
L6FA7    REP   #$30
         JSR   L7824
         LDA   #$0000
         STA   L1064
         JSR   L83B0
         STZ   L1064
         JSR   L7A4D
         JSR   L0EE9
         LDA   #$0002
         STA   L1064
         JSR   L7EC0
         LDA   #L7038
         STA   L1064
         LDA   #^L7038
         STA   L1066
         LDA   #$0044
         STA   L1068
         JSR   L7EDC
         LDA   #L704A
         STA   L1064
         LDA   #^L704A
         STA   L1066
         LDA   #$0065
         STA   L1068
         JSR   L7EDC
         LDA   #L705E
         STA   L1064
         LDA   #^L705E
         STA   L1066
         LDA   #$009A
         STA   L1068
         JSR   L7EDC
         LDA   #$0000
         STA   L1064
         LDA   #L2A25
         STA   L1068
         LDA   #^L2A25
         STA   L106A
         JSR   L82F4
         JSR   L8489
L701E    JSR   L787E
         BEQ   L701E
         ORA   #$0020
         CMP   #$0079
         BEQ   L7034
         CMP   #$006E
         BNE   L701E
         LDA   #$0000
         RTS

L7034    LDA   #$0001
         RTS

L7038    ASC   'Would you like to'00
L704A    ASC   'use the same words?'00
L705E    ASC   '(Y/N)'00
L7064    REP   #$30
         LDA   #L68EF
         STA   L1068
         LDA   #^L68EF
         STA   L106A
         LDA   L1064
         ASL
         ASL
         ASL
         CLC
         ADC   L1068
         STA   L1068
         LDA   #$0000
         ADC   L106A
         STA   L106A
         LDA   L1186
         STA   L1064
         LDA   L1188
         STA   L1066
         LDA   L117E
         STA   L106C
         LDA   L1180
         STA   L106E
         LDA   #L690F
         STA   L1070
         LDA   #^L690F
         STA   L1072
         LDA   #$0000
         STA   L1074
         JSR   L823E
         RTS

L70B6    REP   #$30
         JSR   L7824
         LDA   #$0000
         STA   L1064
         JSR   L83B0
         STZ   L1064
         JSR   L7A4D
         JSR   L0EE9
         LDA   #$0002
         STA   L1064
         JSR   L7EC0
         LDA   #L7222
         STA   L1064
         LDA   #^L7222
         STA   L1066
         LDA   #$001C
         STA   L1068
         JSR   L7EDC
         LDA   #L7233
         STA   L1064
         LDA   #^L7233
         STA   L1066
         LDA   #$003D
         STA   L1068
         JSR   L7EDC
         LDA   #L7245
         STA   L1064
         LDA   #^L7245
         STA   L1066
         LDA   #$005E
         STA   L1068
         JSR   L7EDC
         JSR   L1D61
         LDA   #$0003
         STA   L1064
         JSR   L7EC0
         LDA   #$0000
         STA   L1064
         LDA   #L2A25
         STA   L1068
         LDA   #^L2A25
         STA   L106A
         JSR   L82F4
         JSR   L8489
         STZ   L67CF
         STZ   L67D1
L713F    JSR   L787E
         BEQ   L713F
         CMP   #$000D
         BNE   L714C
         JMP   L7204

L714C    CMP   #$007F
         BNE   L7154
         JMP   L71E3

L7154    STA   L1064
         LDA   L67CF
         CMP   #$0002
         BNE   L7162
         JMP   L71FE

L7162    LDA   L1064
         CMP   #$0030
         BCS   L716D
         JMP   L71FE

L716D    CMP   #$003A
         BCC   L7175
         JMP   L71FE

L7175    CMP   #$0030
         BNE   L7188
         STA   L1064
         LDA   L67CF
         BNE   L7185
         JMP   L71FE

L7185    LDA   L1064
L7188    LDX   L67D1
         SEP   #$20
         STA   L68BB,X
         INX
         LDA   #$00
         STA   L68BB,X
         REP   #$20
         STX   L67D1
         INC   L67CF
L719E    LDA   L117E
         STA   L1064
         LDA   L1180
         STA   L1066
         JSR   L77F9
         LDA   #L6917
         STA   L1064
         LDA   #^L6917
         STA   L1066
         STZ   L1068
         JSR   L7A00
         LDA   #$0003
         STA   L1064
         JSR   L7EC0
         LDA   #L68BB
         STA   L1064
         LDA   #^L68BB
         STA   L1066
         LDA   #$00B6
         STA   L1068
         JSR   L7EDC
         JSR   L1D40
         JMP   L713F

L71E3    LDA   L67CF
         BEQ   L71FE
         LDX   L67D1
         DEX
         SEP   #$20
         LDA   #$00
         STA   L68BB,X
         REP   #$20
         STX   L67D1
         DEC   L67CF
         JMP   L719E

L71FE    JSR   L804F
         JMP   L713F

L7204    LDA   L67CF
         BEQ   L721E
         LDA   #L68BB
         STA   L1064
         LDA   #^L68BB
         STA   L1066
         JSR   L7994
         CMP   #$0000
         BEQ   L721E
         RTS

L721E    LDA   #$0005
         RTS

L7222    ASC   'How many seconds'00
L7233    ASC   'would you like to'00
L7245    ASC   'view each word?'00
L7255    REP   #$30
         LDA   L117E
         STA   L1064
         LDA   L1180
         STA   L1066
         JSR   L77F9
         LDA   #L691F
         STA   L1064
         LDA   #^L691F
         STA   L1066
         LDA   #$0001
         STA   L1068
         JSR   L7A00
         LDA   #L6927
         STA   L1064
         LDA   #^L6927
         STA   L1066
         LDA   #$000B
         STA   L1068
         JSR   L7A00
         RTS

L7291    REP   #$30
         JSR   L0EE9
         LDA   #$0003
         STA   L1064
         JSR   L7EC0
         LDA   #L6779
         STA   L1064
         LDA   #^L6779
         STA   L1066
         JSR   L72DF
         LDA   L881C
         STA   L1064
         LDA   L881C+2
         STA   L1066
         LDA   #$0037
         STA   L1068
         JSR   L7EDC
         LDA   #$002E
         STA   L106C
         STZ   L106E
         LDA   #L106C
         STA   L1064
         LDA   #^L106C
         STA   L1066
         JSR   L7E5F
         JSR   L1D40
         RTS

L72DF    REP   #$30
         LDA   L1066
         PHA
         LDA   L1064
         PHA
         JSR   L1D61
         JSR   L7255
         PLA
         STA   L1064
         PLA
         STA   L1066
         JSR   L78F5
         AND   #$0003
         STA   L462B
         ASL
         ASL
         CLC
         ADC   L1064
         STA   L1064
         LDA   #$0000
         ADC   L1066
         STA   L1066
         LDA   L1064
         STA   $00
         LDA   L1066
         STA   $02
         LDA   [$00]
         STA   L1064
         LDY   #$0002
         LDA   [$00],Y
         STA   L1066
         LDA   L1064
         STA   $00
         LDA   L1066
         STA   $02
         LDA   [$00]
         STA   L1068
         LDA   #$0002
         CLC
         ADC   L1064
         STA   L1064
         LDA   #$0000
         ADC   L1066
         STA   L1066
         JSR   L7EDC
         RTS

*
* Here was the HLE protection
*

L779E    REP   #$30
         LDA   L1064
         PHA
         LDA   L1068
         PHA
         _LoadOneTool
         RTS

L77B0    REP   #$30
         LDA   L1066
         PHA
         LDA   L1064
         PHA
         _GetPortLoc
         RTS

L77C2    REP   #$30
         JSR   L77B0
         LDA   L1064
         STA   $00
         LDA   L1066
         STA   $02
         LDY   #$0002
         LDA   L1068
         STA   [$00],Y
         INY
         INY
         LDA   L106A
         STA   [$00],Y
         RTS

L77E1    REP   #$30
         PEA   $0000
         PEA   $0000
         _GetPort
         PLA
         STA   L1064
         PLA
         STA   L1066
         RTS

L77F9    REP   #$30
         LDA   L1064
         STA   L1088
         LDA   L1066
         STA   L108A
         JSR   L77E1
         LDA   L1064
         STA   $00
         LDA   L1066
         STA   $02
         LDY   #$0002
         LDA   L1088
         STA   [$00],Y
         INY
         INY
         LDA   L108A
         STA   [$00],Y
         RTS

L7824    REP   #$30
         LDA   #$2000
         STA   L1064
         LDA   #$00E1
         STA   L1066
         JSR   L77F9
         RTS

L7836    REP   #$30
         PEA   $0000
         PEA   $0000
         PEA   $0000
         _ReadMouse
         PLA
         AND   #$8000
         STA   L106C
         PLA
         STA   L1068
         PLA
         STA   L1064
         RTS

L7858    REP   #$30
         JSR   L7836
         LDA   L106C
         AND   #$8000
         RTS

L7864    REP   #$30
         PEA   $0000
         LDA   L1064
         PHA
         LDA   L106A
         PHA
         LDA   L1068
         PHA
         _GetNextEvent
         PLA
         RTS

L787E    REP   #$30
         LDA   #$0008
         STA   L1064
         LDA   #L7E08
         STA   L1068
         LDA   #^L7E08
         STA   L106A
         JSR   L7864
         LDA   L7E08
         BEQ   L789D
         LDA   L7E0A
L789D    RTS

L789E    REP   #$30
         JSR   L7858
         PHA
         JSR   L787E
         PLY
         STY   L1064
         RTS

L78AC    REP   #$30
L78AE    JSR   L789E
         CMP   #$0000
         BNE   L78BE
         LDA   L1064
         BEQ   L78AE
         LDA   #$0000
L78BE    RTS

L78BF    REP   #$30
         PEA   $0000
         PEA   $0000
         PEA   $0000
         PEA   $0000
         LDA   L1066
         PHA
         LDA   L1064
         PHA
         LDA   L106A
         PHA
         LDA   L1068
         PHA
         _LongMul
         PLA
         STA   L106C
         PLA
         STA   L106E
         PLA
         STA   L1064
         PLA
         STA   L1066
         RTS

L78F5    REP   #$30
         PEA   $0000
         _Random
         PLA
         RTS

L7903    REP   #$30
         LDA   L1068
         SEC
         SBC   L1064
         INC
         STA   L1068
L7910    PEA   $0000
         _Random
         PLA
         AND   #$EFFF
         BEQ   L7910
         PEA   $0000
         PEA   $0000
         PHA
         LDA   L1068
         PHA
         _UDivide
         PLA
         PLA
         CLC
         ADC   L1064
         RTS

L7939    REP   #$10
         LDA   L1064
         STA   $00
         LDA   L1066
         STA   $02
         LDY   #$0000
         SEP   #$20
L794A    LDA   [$00],Y
         BEQ   L7951
         INY
         BRA   L794A
L7951    STY   L1068
         REP   #$20
         RTS

L7957    REP   #$30
         LDA   L1068
         STA   $00
         LDA   L106A
         STA   $02
         LDA   #$0000
         STA   [$00]
         LDY   #$0002
         STA   [$00],Y
         LDX   #$0001
         LDA   L1064
         CMP   #$000A
         BCC   L797F
         INX
         CMP   #$0064
         BCC   L797F
         INX
L797F    PHA
         LDA   L106A
         PHA
         LDA   L1068
         PHA
         PHX
         PEA   $0000
         _Int2Dec
         RTS

L7994    REP   #$30
         JSR   L7939
         PEA   $0000
         LDA   L1066
         PHA
         LDA   L1064
         PHA
         LDA   L1068
         PHA
         PEA   $0000
         _Dec2Int
         PLA
         RTS

L79B4    REP   #$30
         LDA   L1066
         PHA
         LDA   L1064
         PHA
         LDA   L106A
         PHA
         LDA   L1068
         PHA
         LDA   L106E
         PHA
         LDA   L106C
         PHA
         _BlockMove
         RTS

L79D6    REP   #$30
         LDA   #$7D00
         STA   L106C
         LDA   #$0000
         STA   L106E
         JSR   L79B4
         RTS

L79E8    REP   #$30
         PEA   $0000
         PEA   $0000
         _GetWMgrPort
         PLA
         STA   L1064
         PLA
         STA   L1066
         RTS

L7A00    REP   #$30
         LDA   L1068
         PHA
         _SetSolidPenPat
         LDA   L1066
         PHA
         LDA   L1064
         PHA
         _PaintRect
         RTS

         REP   #$30
         _InitCursor
         RTS

L7A27    REP   #$30
         LDA   L7A4B
         BEQ   L7A38
         _HideCursor
         STZ   L7A4B
L7A38    RTS

L7A39    REP   #$30
         LDA   L7A4B
         BNE   L7A4A
         _ShowCursor
         INC   L7A4B
L7A4A    RTS

L7A4B    DW    $0000

L7A4D    REP   #$30
         LDA   L1064
         STA   L1068
         LDA   #L0FF5
         STA   L1064
         LDA   #^L0FF5
         STA   L1066
         JSR   L7A00
         RTS

L7A65    REP   #$10
         LDA   L1064
         STA   $00
         LDA   L1066
         STA   $02
         LDY   L1068
         DEY
         LDA   L106C
         SEP   #$20
L7A7A    STA   [$00],Y
         DEY
         BPL   L7A7A
         REP   #$20
         RTS

L7A82    REP   #$30
         LDA   L1064
         PHA
         LDA   L1068
         PHA
         LDA   L106C
         PHA
         _SetColorEntry
         RTS

L7A98    REP   #$30
         LDA   L1064
         PHA
         LDA   L106A
         PHA
         LDA   L1068
         PHA
         _SetColorTable
         RTS

L7AAE    REP   #$30
         LDA   L1064
         PHA
         LDA   L106A
         PHA
         LDA   L1068
         PHA
         _GetColorTable
         RTS

L7AC4    REP   #$30
         PEA   $0000
         PEA   $0000
         LDA   L1066
         PHA
         LDA   L1064
         PHA
         LDA   L1008
         PHA
         LDA   L1068
         PHA
         PEA   $0000
         PEA   $0000
         _NewHandle
         PLA
         STA   L106C
         STA   $00
         PLA
         STA   L106E
         STA   $02
         BCS   L7B05
         LDA   [$00]
         STA   L1070
         LDY   #$0002
         LDA   [$00],Y
         STA   L1072
         CLC
L7B05    RTS

L7B06    REP   #$30
         LDA   L1066
         PHA
         LDA   L1064
         PHA
         _DisposeHandle
         RTS

L7B18    REP   #$30
         LDA   #$7D00
         STA   L1064
         LDA   #$0000
         STA   L1066
         LDA   #$C000
         STA   L1068
         JSR   L7AC4
         BCS   L7B4A
         LDA   L106C
         STA   L1064
         LDA   L106E
         STA   L1066
         LDA   L1070
         STA   L1068
         LDA   L1072
         STA   L106A
         CLC
L7B4A    RTS

L7B4B    REP   #$30
         LDA   L1064
         STA   L1068
         LDA   L1066
         STA   L106A
         JSL   GSOS
         DW    $0010      ; Open
         ADRL  L1066
         LDA   L1066
         STA   L1068
         RTS

L7B6A    REP   #$30
         LDA   L1064
         STA   L1066
         JSL   GSOS
         DW    $0012      ; Read
         ADRL  L1066
         RTS

L7B7D    REP   #$30
         JSL   GSOS
         DW    $0014      ; Close
         ADRL  L1064
         RTS

L7B8A    REP   #$30
         JSL   GSOS
         DW    $0006      ; GetFileInfo
         ADRL  L1064
         LDA   L106A
         PHA
         LDA   L106E
         PHA
         LDA   L106C
         PHA
         LDA   L1070
         PHA
         LDA   L1072
         PHA
         LDA   L1074
         PHA
         LDA   L1076
         PHA
         LDA   L1078
         PHA
         LDA   L107C
         PHA
         LDA   L107A
         PHA
         PLA
         STA   L1088
         PLA
         STA   L108A
         PLA
         STA   L1084
         PLA
         STA   L1080
         PLA
         STA   L107C
         PLA
         STA   L1078
         PLA
         STA   L1074
         PLA
         STA   L1070
         PLA
         STA   L1072
         PLA
         STA   L106C
         RTS

L7BE7    REP   #$30
         LDA   #$7D00
         STA   L1064
         LDA   #$0000
         STA   L1066
         LDA   #$C000
         STA   L1068
         JSR   L7AC4
         BCS   L7C18
         LDA   L106C
         STA   L7D5A
         LDA   L106E
         STA   L7D5C
         LDA   L1070
         STA   L7D5E
         LDA   L1072
         STA   L7D60
L7C18    RTS

L7C19    REP   #$30
         LDA   L7D5C
         PHA
         LDA   L7D5A
         PHA
         _DisposeHandle
         RTS

L7C2B    REP   #$30
         LDA   L1068
         STA   L107C
         LDA   L106A
         STA   L107E
         LDA   L106C
         STA   L1080
         LDA   L106E
         STA   L1082
         JSR   L7B4B
         BCC   L7C4E
L7C4A    REP   #$30
         SEC
         RTS

L7C4E    LDA   L1068
         STA   L1064
         LDA   L7D5E
         STA   L1068
         LDA   L7D60
         STA   L106A
         LDA   #$7D00
         STA   L106C
         LDA   #$0000
         STA   L106E
         JSR   L7B6A
         BCS   L7C4A
         JSR   L7B7D
         BCS   L7C4A
         LDA   L7D5E
         STA   $00
         LDA   L7D60
         STA   $02
         LDA   [$00]
         CMP   #$0080
         BNE   L7C4A
         LDA   L1080
         STA   $04
         LDA   L1082
         STA   $06
         LDY   #$0002
         LDX   #$0000
L7C97    LDA   [$00],Y
         XBA
         ASL
         TXY
         STA   [$04],Y
         INY
         INY
         TYX
         INY
         INY
         CPY   #$0022
         BNE   L7C97
         STZ   L7E06
         LDA   L107C
         STA   $04
         LDA   L107E
         STA   $06
         SEP   #$20
         LDA   #$C8
         STA   L7E05
         LDY   #$0022
L7CBF    LDX   #$0000
L7CC2    LDA   [$00],Y
         BPL   L7CE5
         CMP   #$80
         BEQ   L7CDD
         EOR   #$FF
         INC
         INC
         STA   L7E04
         INY
         LDA   [$00],Y
L7CD4    STA   L7D62,X
         INX
         DEC   L7E04
         BNE   L7CD4
L7CDD    INY
L7CDE    CPX   #$00A0
         BNE   L7CC2
         BRA   L7CF8
L7CE5    INC
         STA   L7E04
         INY
L7CEA    LDA   [$00],Y
         STA   L7D62,X
         INY
         INX
         DEC   L7E04
         BNE   L7CEA
         BRA   L7CDE
L7CF8    PHY
         LDX   #$0000
L7CFC    LDA   #$04
         STA   L7E03
L7D01    LDY   #$0002
         STZ   L7E02
L7D07    ASL   L7E02
         ASL   L7DDA,X
         BCC   L7D12
         INC   L7E02
L7D12    ASL   L7E02
         ASL   L7DB2,X
         BCC   L7D1D
         INC   L7E02
L7D1D    ASL   L7E02
         ASL   L7D8A,X
         BCC   L7D28
         INC   L7E02
L7D28    ASL   L7E02
         ASL   L7D62,X
         BCC   L7D33
         INC   L7E02
L7D33    DEY
         BNE   L7D07
         LDA   L7E02
         LDY   L7E06
         STA   [$04],Y
         INY
         STY   L7E06
         DEC   L7E03
         BNE   L7D01
         INX
         CPX   #$0028
         BNE   L7CFC
         PLY
         DEC   L7E05
         BEQ   L7D56
         JMP   L7CBF

L7D56    REP   #$30
         CLC
         RTS

L7D5A    DB    $00
         DB    $00
L7D5C    DB    $00
         DB    $00
L7D5E    DB    $00
         DB    $00
L7D60    DB    $00
         DB    $00
L7D62    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L7D8A    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L7DB2    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L7DDA    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L7E02    DB    $00
L7E03    DB    $00
L7E04    DB    $00
L7E05    DB    $00
L7E06    DB    $00
         DB    $00
L7E08    DB    $00
         DB    $00
L7E0A    DB    $00
         DB    $00
         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   L1064
         PHA
         _SetPenMode
         RTS

L7E26    REP   #$30
         LDA   L1064
         PHA
         LDA   L1068
         PHA
         _MoveTo
         RTS

L7E38    REP   #$30
         PEA   $0000
         LDA   L1066
         PHA
         LDA   L1064
         PHA
         _CStringWidth
         PLA
         STA   L1068
         RTS

         REP   #$30
         LDA   L1064
         PHA
         _DrawChar
         RTS

L7E5F    REP   #$30
         LDA   L1066
         PHA
         LDA   L1064
         PHA
         _DrawCString
         RTS

L7E71    REP   #$30
         LDA   L1066
         PHA
         LDA   L1064
         PHA
         LDA   L1064
         STA   $00
         LDA   L1066
         STA   $02
         LDA   [$00]
         STA   L1064
         LDY   #$0002
         LDA   [$00],Y
         STA   L1068
         JSR   L7E26
         PLA
         STA   L1064
         PLA
         STA   L1066
         LDA   #$0004
         CLC
         ADC   L1064
         STA   L1068
         LDA   #$0000
         ADC   L1066
         STA   L106A
         LDA   L106A
         PHA
         LDA   L1068
         PHA
         _DrawCString
         RTS

L7EC0    REP   #$30
         LDA   L1064
         PHA
         _SetForeColor
         RTS

L7ECE    REP   #$30
         LDA   L1064
         PHA
         _SetBackColor
         RTS

L7EDC    REP   #$30
         LDA   L1064
         STA   L106C
         LDA   L1066
         STA   L106E
         LDA   L1068
         STA   L1070
         JSR   L7E38
         LDA   #$0140
         SEC
         SBC   L1068
         LSR
         STA   L1064
         LDA   L1070
         STA   L1068
         JSR   L7E26
         LDA   L106C
         STA   L1064
         LDA   L106E
         STA   L1066
         JSR   L7E5F
         RTS

L7F17    REP   #$30
         PEA   $0000
         PEA   $0000
         _TickCount
         PLA
         STA   L1064
         PLA
         STA   L1066
         RTS

L7F2F    REP   #$30
         JSR   L7F17
         LDA   L1066
         PHA
         LDA   L1064
         PHA
         _SetRandSeed
         RTS

L7F44    REP   #$30
         DEC   L1068
         LDA   L1068
         BNE   L7F5B
         LDA   L1064
         STA   L106C
         LDA   L1066
         STA   L106E
         RTS

L7F5B    LDA   L1064
         STA   $00
         LDA   L1066
         STA   $02
         LDY   #$0000
         SEP   #$20
L7F6A    LDA   [$00],Y
         INY
         CMP   #$00
         BNE   L7F6A
         DEC   L1068
         BNE   L7F6A
         REP   #$20
         TYA
         CLC
         ADC   L1064
         STA   L106C
         LDA   #$0000
         ADC   L1066
         STA   L106E
         REP   #$30
         RTS

L7F8C    REP   #$30
         JSR   L7EC0
         LDA   L1068
         STA   L1064
         JSR   L7ECE
         RTS

         REP   #$30
         PEA   $0000
         _GetForeColor
         PLA
         STA   L1064
         RTS

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

         REP   #$30
         PEA   $0000
         PEA   $0000
         _GetFont
         PLA
         STA   L1064
         PLA
         STA   L1066
         RTS

         REP   #$30
         PEA   $0000
         PEA   $0000
         _GetFontID
         PLA
         STA   L1064
         PLA
         STA   L1066
         RTS

         REP   #$30
         PEA   ^L1064
         PEA   L1064
         _GetPen
         RTS

         REP   #$30
         PEA   $0000
         PEA   $0000
         _GetSysFont
         PLA
         STA   L1064
         PLA
         STA   L1066
         RTS

L8015    REP   #$30
         LDA   L1064
         PHA
         _SetTextFace
         RTS

L8023    REP   #$30
         LDA   L1064
         PHA
         _SetTextMode
         RTS

L8031    REP   #$30
         LDAL  $E0C034
         AND   #$000F
         STA   L1064
         RTS

L803E    REP   #$30
         LDAL  $E0C034
         AND   #$FFF0
         ORA   L1064
         STAL  $E0C034
         RTS

L804F    REP   #$30
         JSR   L11F0
         LDA   L0FBB
         STA   L1064
         LDA   L0FBD
         STA   L1066
         LDA   L0FBF
         STA   L1068
         LDA   L0FC1
         STA   L106A
         STZ   L106C
         LDA   L0FC3
         STA   L1070
         JSR   L11CB
         RTS

L8079    REP   #$30
         LDA   L106C
         STA   $00
         LDA   L106E
         STA   $02
         STZ   L1074
         LDX   L1070
         LDY   #$0000
L808E    STY   L1078
         LDA   L1068
         CMP   [$00],Y
         BCC   L80B7
         INY
         INY
         LDA   L1064
         CMP   [$00],Y
         BCC   L80B7
         INY
         INY
         LDA   L1068
         CMP   [$00],Y
         BPL   L80B7
         INY
         INY
         LDA   L1064
         CMP   [$00],Y
         BPL   L80B7
         INC   L1074
         RTS

L80B7    LDA   L1078
         CLC
         ADC   #$0008
         TAY
         INC   L1074
         DEX
         BNE   L808E
         STZ   L1074
         RTS

L80C9    REP   #$30
L80CB    JSR   L789E
         LDA   L1064
         BNE   L80CB
         RTS

L80D4    REP   #$30
         PEA   $0000
         PEA   $0000
         PEA   $0000
         PEA   $0000
         _ReadTimeHex
         PLA
         PLY
         PLY
         PLY
         TAY
         XBA
         AND   #$00FF
         STA   L1080
         TYA
         AND   #$00FF
         STA   L1082
         CLC
         ADC   L1070
         CMP   #$003C
         BCC   L810C
         SEC
         SBC   #$003C
         INC   L1080
L810C    STA   L1082
         LDA   L1080
         CMP   #$003C
         BCC   L811B
         SEC
         SBC   #$003C
L811B    STA   L1080
         LDA   L1080
         XBA
         ORA   L1082
         STA   L1080
         LDA   L1064
         STA   L1076
         LDA   L1068
         STA   L1078
         LDA   L106C
         STA   L107A
L813A    LDA   L1076
         STA   L1064
         LDA   L1078
         STA   L1068
         LDA   L107A
         STA   L106C
         LDA   #$0004
         STA   L1070
         LDA   #$0000
         STA   L1072
         JSR   L8178
         PEA   $0000
         PEA   $0000
         PEA   $0000
         PEA   $0000
         _ReadTimeHex
         PLA
         PLY
         PLY
         PLY
         CMP   L1080
         BCC   L813A
         RTS

L8178    REP   #$30
         LDA   L1068
         STA   L107C
         LDA   L106C
         STA   L107E
         LDA   #L10A2
         STA   L1068
         LDA   #^L10A2
         STA   L106A
         JSR   L7AAE
         LDA   L107C
         CLC
         ADC   L107E
         DEC
         DEC
         ASL
         TAY
         DEC   L107E
         LDA   L10A4,Y
         PHA
L81A7    LDA   L10A2,Y
         STA   L10A4,Y
         DEC   L107E
         BEQ   L81B6
         DEY
         DEY
         BRA   L81A7
L81B6    PLA
         STA   L10A2,Y
         JSR   L7A98
         LDA   L1070
         STA   L1064
         LDA   L1072
         STA   L1066
         JSR   L82B4
         RTS

L81CD    REP   #$30
         PEA   $0000
         PEA   $0000
         PEA   $0000
         PEA   $0000
         _ReadTimeHex
         PLA
         PLY
         PLY
         PLY
         TAY
         XBA
         AND   #$00FF
         STA   L1080
         TYA
         AND   #$00FF
         STA   L1082
         CLC
         ADC   L1064
         CMP   #$003C
         BCC   L8205
         SEC
         SBC   #$003C
         INC   L1080
L8205    STA   L1082
         LDA   L1080
         CMP   #$003C
         BCC   L8214
         SEC
         SBC   #$003C
L8214    STA   L1080
         LDA   L1080
         XBA
         ORA   L1082
         STA   L1080
L8221    PEA   $0000
         PEA   $0000
         PEA   $0000
         PEA   $0000
         _ReadTimeHex
         PLA
         PLY
         PLY
         PLY
         CMP   L1080
         BCC   L8221
         RTS

L823E    REP   #$30
         LDA   L106A
         PHA
         LDA   L1068
         PHA
         LDA   L1064
         STA   L1068
         LDA   L1066
         STA   L106A
         LDA   #L10A2
         STA   L1064
         LDA   #^L10A2
         STA   L1066
         JSR   L77C2
         LDA   L106C
         STA   L1068
         LDA   L106E
         STA   L106A
         LDA   #L10B2
         STA   L1064
         LDA   #^L10B2
         STA   L1066
         JSR   L77C2
         PLA
         STA   L1068
         PLA
         STA   L106A
         PEA   ^L10A2
         PEA   L10A2
         PEA   ^L10B2
         PEA   L10B2
         LDA   L106A
         PHA
         LDA   L1068
         PHA
         LDA   L1072
         PHA
         LDA   L1070
         PHA
         LDA   L1074
         PHA
         PEA   $0000
         PEA   $0000
         _CopyPixels
         RTS

L82B4    REP   #$30
         LDA   L1064
         STA   L1068
         LDA   L1066
         STA   L106A
         JSR   L7F17
         LDA   L1064
         CLC
         ADC   L1068
         STA   L106C
         LDA   L1066
         ADC   L106A
         STA   L106E
L82D8    JSR   L7F17
         LDA   L106C
         SEC
         SBC   L1064
         STA   L1068
         LDA   L106E
         SBC   L1066
         STA   L106A
         LDA   L106A
         BPL   L82D8
         RTS

L82F4    REP   #$30
         LDA   L1064
         STA   L1070
         LDA   L1068
         STA   L1074
         LDA   L106A
         STA   L1076
         LDA   #L10A2
         STA   L1068
         LDA   #^L10A2
         STA   L106A
         JSR   L7AAE
         LDA   L1074
         STA   $00
         LDA   L1076
         STA   $02
         LDX   #$0010
L8324    LDY   #$001E
L8327    LDA   [$00],Y
         XBA
         AND   #$000F
         STA   L1078
         LDA   L10A2,Y
         PHA
         PHA
         XBA
         AND   #$000F
         CMP   L1078
         BEQ   L833F
         INC
L833F    XBA
         STA   L1080
         LDA   [$00],Y
         LSR
         LSR
         LSR
         LSR
         AND   #$000F
         STA   L1078
         PLA
         LSR
         LSR
         LSR
         LSR
         AND   #$000F
         CMP   L1078
         BEQ   L835D
         INC
L835D    ASL
         ASL
         ASL
         ASL
         STA   L107C
         LDA   [$00],Y
         AND   #$000F
         STA   L1078
         PLA
         AND   #$000F
         CMP   L1078
         BEQ   L8376
         INC
L8376    ORA   L107C
         ORA   L1080
         STA   L10A2,Y
         DEY
         DEY
         BPL   L8327
         PHX
         LDA   L1070
         STA   L1064
         LDA   #L10A2
         STA   L1068
         LDA   #^L10A2
         STA   L106A
         JSR   L7A98
         LDA   #$0001
         STA   L1064
         LDA   #$0000
         STA   L1066
         JSR   L82B4
         PLX
         DEX
         BEQ   L83AF
         JMP   L8324
L83AF    RTS

L83B0    REP   #$30
         LDA   L1064
         STA   L1070
         LDA   #L10A2
         STA   L1068
         LDA   #^L10A2
         STA   L106A
         JSR   L7AAE
         LDY   #$0010
L83CA    LDX   #$001E
L83CD    LDA   L10A2,X
         PHA
         PHA
         XBA
         AND   #$000F
         BEQ   L83D9
         DEC
L83D9    XBA
         STA   L1080
         PLA
         LSR
         LSR
         LSR
         LSR
         AND   #$000F
         BEQ   L83EC
         DEC
         ASL
         ASL
         ASL
         ASL
L83EC    STA   L107C
         PLA
         AND   #$000F
         BEQ   L83F6
         DEC
L83F6    ORA   L107C
         ORA   L1080
         STA   L10A2,X
         DEX
         DEX
         BPL   L83CD
         PHY
         LDA   L1070
         STA   L1064
         LDA   #L10A2
         STA   L1068
         LDA   #^L10A2
         STA   L106A
         JSR   L7A98
         LDA   #$0002
         STA   L1064
         LDA   #$0000
         STA   L1066
         JSR   L82B4
         PLY
         DEY
         BNE   L83CA
         RTS

L842D    REP   #$30
         LDA   L1064
         PHA
         LDA   L1068
         STA   L1074
         LDA   L106A
         STA   L1076
         LDA   L106C
         STA   L1078
         LDA   L106E
         STA   L107A
         JSR   L83B0
         LDA   L1078
         STA   L1064
         LDA   L107A
         STA   L1066
         LDA   #$2000
         STA   L1068
         LDA   #$00E1
         STA   L106A
         LDA   #$7D00
         STA   L106C
         LDA   #$0000
         STA   L106E
         JSR   L79B4
         PLA
         STA   L1064
         LDA   L1074
         STA   L1068
         LDA   L1076
         STA   L106A
         JSR   L82F4
         RTS

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

         REP   #$30
         LDA   #$0008
         STA   L1064
         LDA   #L7E08
         STA   L1068
         LDA   #^L7E08
         STA   L106A
L84B1    JSR   L7864
         LDA   L7E08
         BEQ   L84B1
         LDA   L7E0A
         RTS

L84BD    REP   #$30
         LDA   L1068
         STA   L1084
         LDA   L106A
         STA   L1086
         STZ   L1064
         JSR   L83B0
         LDA   #$000B
         STA   L1064
         JSR   L7A4D
         LDA   #$0000
         STA   L1064
         LDA   #L1030
         STA   L1068
         LDA   #^L1030
         STA   L106A
         JSR   L7A98
         JSR   L85E9
         JSR   L8658
         JSR   L8489
         PEA   $001E
         PEA   $0028
         PEA   ^L853F
         PEA   L853F
         PEA   $0000
         PEA   $0000
         LDA   L1086
         PHA
         LDA   L1084
         PHA
         PEA   ^L8851
         PEA   L8851
         _SFGetFile
         LDA   #$0000
         STA   L1064
         JSR   L83B0
         JSR   L86AA
         JSR   L863B
         SEP   #$20
         LDX   #$00C7
         LDA   #$00
L8535    STAL  $E19D00,X
         DEX
         BPL   L8535
         REP   #$20
         RTS

L853F    STR   'Select a word file'
L8552    REP   #$30
         LDA   L1068
         STA   L1084
         LDA   L106A
         STA   L1086
         LDA   L106C
         STA   L1088
         STZ   L1064
         JSR   L83B0
         LDA   #$000B
         STA   L1064
         JSR   L7A4D
         LDA   #$0000
         STA   L1064
         LDA   #L1030
         STA   L1068
         LDA   #^L1030
         STA   L106A
         JSR   L7A98
         JSR   L85E9
         JSR   L8658
         JSR   L8489
         PEA   $001E
         PEA   $0028
         PEA   ^L85D8
         PEA   L85D8
         LDA   L1086
         PHA
         LDA   L1084
         PHA
         LDA   L1088
         PHA
         PEA   ^L8851
         PEA   L8851
         _SFPutFile
         LDA   #$0000
         STA   L1064
         JSR   L83B0
         JSR   L86AA
         JSR   L863B
         SEP   #$20
         LDX   #$00C7
         LDA   #$00
L85CE    STAL  $E19D00,X
         DEX
         BPL   L85CE
         REP   #$20
         RTS

L85D8    STR   'Enter a filename'
L85E9    REP   #$30
         LDA   #$000F
         STA   L1064
         LDA   #$0100
         STA   L1068
         JSR   L779E
         PEA   $0000
         PEA   $0000
         PEA   $0000
         PEA   $0100
         LDA   L1008
         PHA
         PEA   $C005
         PEA   $0000
         PEA   $0000
         _NewHandle
         PLA
         STA   L8654
         PLA
         STA   L8654+2
         LDA   L8654
         STA   $00
         LDA   L8654+2
         STA   $02
         LDA   L1008
         PHA
         LDA   [$00]
         PHA
         _MenuStartUp
         RTS

L863B    REP   #$30
         _MenuShutDown
         LDA   L8654+2
         PHA
         LDA   L8654
         PHA
         _DisposeHandle
         RTS

L8654    ADRL  $00000000
L8658    REP   #$30
         LDA   #$0017
         STA   L1064
         LDA   #$0100
         STA   L1068
         JSR   L779E
         PEA   $0000
         PEA   $0000
         PEA   $0000
         PEA   $0100
         LDA   L1008
         PHA
         PEA   $C005
         PEA   $0000
         PEA   $0000
         _NewHandle
         PLA
         STA   L86C3
         PLA
         STA   L86C3+2
         LDA   L86C3
         STA   $00
         LDA   L86C3+2
         STA   $02
         LDA   L1008
         PHA
         LDA   [$00]
         PHA
         _SFStartUp
         RTS

L86AA    REP   #$30
         _SFShutDown
         LDA   L86C3+2
         PHA
         LDA   L86C3
         PHA
         _DisposeHandle
         RTS

L86C3    ADRL  $00000000
L86C7    REP   #$30
         LDA   L881C
         STA   $00
         LDA   L881C+2
         STA   $02
         LDY   #$000E
         LDA   #$0001
         CLC
         ADC   [$00],Y
         STA   [$00],Y
         RTS

L86DF    REP   #$30
         LDA   L881C
         STA   $00
         LDA   L881C+2
         STA   $02
         LDY   #$0010
         LDA   #$0001
         CLC
         ADC   [$00],Y
         STA   [$00],Y
         RTS

L86F7    REP   #$30
         LDA   #L8829
         STA   L881C
         LDA   #^L8829
         STA   L881C+2
         LDA   L881A
         CMP   #$0001
         BEQ   L8727
         LDA   #$0003
         EOR   L8818
         STA   L8818
         CMP   #$0002
         BNE   L8727
         LDA   #L883D
         STA   L881C
         LDA   #^L883D
         STA   L881C+2
L8727    RTS

L8728    REP   #$30
         LDA   #L8829
         STA   L1068
         LDA   #^L8829
         STA   L106A
         JSR   L876C
         LDA   #L883D
         STA   L1068
         LDA   #^L883D
         STA   L106A
         JSR   L876C
         SEP   #$20
         LDY   #$0007
         LDA   #$01
         CLC
         ADC   [$00],Y
         STA   [$00],Y
         REP   #$20
         LDA   #$0001
         STA   L8818
         STA   L881A
         LDA   #L8829
         STA   L881C
         LDA   #^L8829
         STA   L881C+2
         RTS

L876C    LDA   #L8820
         STA   L1064
         LDA   #^L8820
         STA   L1066
         LDA   #$0009
         STA   L106C
         LDA   #$0000
         STA   L106E
         JSR   L79B4
         LDA   L1068
         STA   $00
         LDA   L106A
         STA   $02
         LDA   #$0001
         LDY   #$000A
         STA   [$00],Y
         LDA   #$0008
         LDY   #$0012
         STA   [$00],Y
         LDA   #$0000
         LDY   #$000C
         STA   [$00],Y
         LDY   #$000E
         STA   [$00],Y
         LDY   #$0010
         STA   [$00],Y
         RTS

L87B4    REP   #$30
         _LoadSysFont
         RTS

L87BE    REP   #$30
         LDA   L1066
         PHA
         LDA   L1064
         PHA
         LDA   L1068
         PHA
         _InstallFont
         RTS

L87D4    REP   #$30
         LDA   L1070
         STA   $00
         LDA   L1072
         STA   $02
         PEA   $0000
         LDA   L1066
         PHA
         LDA   L1064
         PHA
         _GetFamNum
         PLA
         CMP   #$FFFF
         BEQ   L880D
         STA   [$00]
         LDY   #$0002
         SEP   #$20
         LDA   L1068
         STA   [$00],Y
         INY
         LDA   L106C
         STA   [$00],Y
         REP   #$20
         RTS

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

L8818    DW    $0000
L881A    DW    $0000
L881C    ADRL  $00000000
L8820    ASC   'Player 1'00
L8829    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L883D    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L8851    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L8867    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00

L8951    REP   #$30
         LDA   L1066
         PHA
         LDA   L1064
         PHA
         _InitColorTable
         RTS

L8963    REP   #$30	; AV 202103 - Fake volume
	lda	#1	; tell we found the device
	sta	L1064	; in volume 1
	rts
	
*         LDA   L1068	; pointer to volume
*         STA   L8A20
*         LDA   L106A
*         STA   L8A20+2
*         LDA   #L89FC
*         STA   L8A24
*         LDA   #^L89FC
*         STA   L8A24+2
*         LDA   #$0001
*         STA   L8A28
*L8983    LDA   L8A24
*         STA   L1064
*         LDA   L8A24+2
*         STA   L1066
*         LDA   #L9586
*         STA   L1068
*         LDA   #^L9586
*         STA   L106A
*         JSL   GSOS
*         DW    $0008      ; Volume
*         ADRL  L1064
*         CMP   #$0011	; invalidDevNum?
*         BEQ   L89EE	; yes, exit
*
*         LDA   #$0004	; next .d pointer
*         CLC
*         ADC   L8A24
*         STA   L8A24
*         LDA   #$0000
*         ADC   L8A24+2
*         STA   L8A24+2
*
*         LDA   L8A20	; pointer to devName
*         STA   L1064
*         LDA   L8A20+2
*         STA   L1066
*         LDA   #L9586	; pointer to volName
*         STA   L1068
*         LDA   #^L9586
*         STA   L106A
*         LDA   #$0000	; total blocks
*         STA   L106C
*         JSR   L8A93	; compare paths
*         LDA   L106C	; check result
*         BEQ   L89F5	; same volume, OK
*         INC   L8A28	; next device
*         LDA   L8A28
*         CMP   #$000A	; until 10
*         BNE   L8983
*L89EE    LDA   #$0000	; different volume, not OK
*         STA   L1064
*         RTS
*
*L89F5    LDA   L8A28
*         STA   L1064
*         RTS
*
*L89FC    STR   '.d1'
*         STR   '.d2'
*         STR   '.d3'
*         STR   '.d4'
*         STR   '.d5'
*         STR   '.d6'
*         STR   '.d7'
*         STR   '.d8'
*         STR   '.d9'
*
*L8A20    ADRL  $00000000
*L8A24    ADRL  $00000000
*L8A28    DW    $0000

L8A2A    REP   #$30
         LDA   L1068
         STA   L8A8B
         LDA   L106A
         STA   L8A8D
         LDA   L106C
         STA   L8A8F
L8A3E    LDA   #$0000
         STA   L1064
         LDA   #$0000
         STA   L1068
         LDA   #$0000
         STA   L106C
         JSR   L7836
         LDA   L106C
         BNE   L8A64
         JSR   L787E
         CMP   #$0000
         BEQ   L8A3E
         STZ   L1064
         RTS

L8A64    LDA   L8A8B
         STA   L106C
         LDA   L8A8D
         STA   L106E
         LDA   L8A8F
         STA   L1070
         LDA   #$0000
         STA   L1074
         JSR   L8079
         LDA   L1074
         BEQ   L8A3E
         LDA   L1074
         STA   L1064
         RTS

L8A8B    DW    $0000
L8A8D    DW    $0000
L8A8F    DW    $0000
         DW    $0000

L8A93    REP   #$30
         LDA   L1064
         STA   $00
         LDA   L1066
         STA   $02
         LDA   L1068
         STA   $04
         LDA   L106A
         STA   $06
         SEP   #$30
         LDY   #$00
         STY   L8AE7
         LDA   [$00],Y
         CMP   [$04],Y
         BNE   L8ADC
         STA   L8AE5
         INC   L8AE5
         INY
L8ABD    LDA   [$00],Y
         ORA   #$20
         STA   L8AE7
         LDA   [$04],Y
         ORA   #$20
         CMP   L8AE7
         BNE   L8ADC
         INY
         CPY   L8AE5
         BNE   L8ABD
         REP   #$30
         LDA   #$0000
         STA   L106C
         RTS

L8ADC    REP   #$30
         LDA   #$0001
         STA   L106C
         RTS

L8AE5    DW    $0000
L8AE7    DW    $0000
L8AE9    REP   #$30
         JSR   L7A00
         RTS

L8AEF    REP   #$30
         JSR   L7A27
         LDA   L1064
         STA   L8B91
         LDA   L1068
         STA   L8B93
         LDA   L106C
         STA   L8B95
         LDA   L106E
         STA   L8B97
         LDA   L106C
         STA   L8B99
         LDA   L106E
         STA   L8B9B
L8B18    LDA   L8B95
         STA   L1064
         LDA   L8B97
         STA   L1066
         LDA   #$0009
         STA   L1068
         JSR   L8AE9
         LDA   #$0008
         CLC
         ADC   L8B95
         STA   L1064
         LDA   #$0000
         ADC   L8B97
         STA   L1066
         LDA   L1064
         STA   L8B95
         LDA   L1066
         STA   L8B97
         DEC   L8B93
         BNE   L8B18
         LDA   L8B99
         STA   L1064
         LDA   L8B9B
         STA   L1066
L8B5D    DEC   L8B91
         BEQ   L8B84
         LDA   #$0008
         CLC
         ADC   L1064
         STA   L1068
         LDA   #$0000
         ADC   L1066
         STA   L106A
         LDA   L1068
         STA   L1064
         LDA   L106A
         STA   L1066
         JMP   L8B5D

L8B84    LDA   #$0007
         STA   L1068
         JSR   L8AE9
         JSR   L7A39
         RTS

L8B91    DW    $0000
L8B93    DW    $0000
L8B95    DW    $0000
L8B97    DW    $0000
L8B99    DW    $0000
L8B9B    DW    $0000
L8B9D    REP   #$30
         LDA   L1000
         BEQ   L8BA4
L8BA4    LDA   #L8DB8
         STA   L1064
         LDA   #^L8DB8
         STA   L1066
         LDA   #L8DC6
         STA   L1068
         LDA   #^L8DC6
         STA   L106A
         LDA   #L8DCA
         STA   L106C
         LDA   #^L8DCA
         STA   L106E
         LDA   #L8DCE
         STA   L1070
         LDA   #^L8DCE
         STA   L1072
         JSR   L0F1E
         LDA   #$0000
         STA   L1064
         JSR   L83B0
         JSR   L7824
         JSR   L0EB4
         LDA   #$0000
         STA   L1064
         JSR   L7A4D
         LDA   #L8DFE
         STA   L1064
         LDA   #^L8DFE
         STA   L1066
         LDA   #$0009
         STA   L1068
         JSR   L7A00
         LDA   #L8E06
         STA   L1064
         LDA   #^L8E06
         STA   L1066
         LDA   #$0000
         STA   L1068
         JSR   L7A00
         LDA   #L8E0E
         STA   L1064
         LDA   #^L8E0E
         STA   L1066
         LDA   #$0007
         STA   L1068
         JSR   L7A00
         LDA   #L8E16
         STA   L1064
         LDA   #^L8E16
         STA   L1066
         LDA   #$0009
         STA   L1068
         JSR   L7A00
         LDA   #L8E1E
         STA   L1064
         LDA   #^L8E1E
         STA   L1066
         LDA   #$0009
         STA   L1068
         JSR   L7A00
         LDA   #$000D
         STA   L1064
         LDA   #$0000
         STA   L1068
         JSR   L7F8C
         LDA   #L8DD0
         STA   L1064
         LDA   #^L8DD0
         STA   L1066
         LDA   #$0028
         STA   L1068
         JSR   L7EDC
         LDA   #L8DE2
         STA   L1064
         LDA   #^L8DE2
         STA   L1066
         LDA   #$003C
         STA   L1068
         JSR   L7EDC
         LDA   #$00A0
         STA   L1064
         LDA   #$0067
         STA   L1068
         JSR   L7E26
         LDA   #L8DF4
         STA   L1064
         LDA   #^L8DF4
         STA   L1066
         JSR   L7E5F
         LDA   #$00A0
         STA   L1064
         LDA   #$007B
         STA   L1068
         JSR   L7E26
         LDA   #L8DF8
         STA   L1064
         LDA   #^L8DF8
         STA   L1066
         JSR   L7E5F
         LDA   #$0007
         STA   L1064
         LDA   #$0009
         STA   L1068
         JSR   L7F8C
         LDA   #$009B
         STA   L1064
         LDA   #$00AF
         STA   L1068
         JSR   L7E26
         LDA   #L8DFB
         STA   L1064
         LDA   #^L8DFB
         STA   L1066
         JSR   L7E5F
         LDA   #$0000
         STA   L1064
         LDA   #L1030
         STA   L1068
         LDA   #^L1030
         STA   L106A
         JSR   L82F4
         LDA   #$0001
         STA   L9584
         LDA   L8DC6
         STA   L1064
         LDA   L8DC8
         STA   L1066
         LDA   L8DCA
         STA   L1068
         LDA   L8DCC
         STA   L106A
         LDA   L8DCE
         STA   L106C
         JSR   L0F3A
         JSR   L7A39
         JSR   L8489
L8D3C    LDA   #$0000
         STA   L1064
         LDA   #L8E0E
         STA   L1068
         LDA   #^L8E0E
         STA   L106A
         LDA   #$0003
         STA   L106C
         JSR   L8A2A
         CMP   #$0009
         BNE   L8D6C
         JSR   L0F4E
         JSR   L804F
L8D62    JSR   L787E
         CMP   #$0009
         BEQ   L8D62
         BRA   L8D3C
L8D6C    LDA   L1064
         BEQ   L8D3C
         CMP   #$0003
         BEQ   L8D9F
         CMP   L9584
         BEQ   L8D3C
         STA   L9584
         LDA   L9584
         STA   L1064
         LDA   #$0002
         STA   L1068
         LDA   #L8E0E
         STA   L106C
         LDA   #^L8E0E
         STA   L106E
         JSR   L8AEF
         JSR   L804F
         JMP   L8D3C

L8D9F    LDA   L8DC6
         STA   L1064
         LDA   L8DC8
         STA   L1066
         JSR   L0F2F
         LDA   L9584
         STA   L1064
         JSR   L7A27
         RTS

L8DB8    ASC   '1/fsagain'00
L8DC6    DW    $0000
L8DC8    DW    $0000
L8DCA    DW    $0000
L8DCC    DW    $0000
L8DCE    DW    $0000
L8DD0    ASC   'Would you like to'00
L8DE2    ASC   'play again?'00
         ASC   '(Y/N)'00
L8DF4    ASC   'Yes'00
L8DF8    ASC   'No'00
L8DFB    ASC   'OK'00
L8DFE    DW    $0005
         DW    $0005
         DW    $00C2
         DW    $013A
L8E06    DW    $0007
         DW    $0007
         DW    $00C0
         DW    $0138
L8E0E    DW    $005B
         DW    $008C
         DW    $0069
         DW    $009A
L8E16    DW    $006F
         DW    $008C
         DW    $007D
         DW    $009A
L8E1E    DW    $00A0
         DW    $0096
         DW    $00B4
         DW    $00B4
L8E26    REP   #$30
         LDA   L1000
         BEQ   L8E2D
L8E2D    LDA   #L902C
         STA   L1064
         LDA   #^L902C
         STA   L1066
         LDA   #L9038
         STA   L1068
         LDA   #^L9038
         STA   L106A
         LDA   #L903C
         STA   L106C
         LDA   #^L903C
         STA   L106E
         LDA   #L9040
         STA   L1070
         LDA   #^L9040
         STA   L1072
         JSR   L0F1E
         LDA   #$0000
         STA   L1064
         JSR   L83B0
         JSR   L7824
         JSR   L0EB4
         LDA   #$0000
         STA   L1064
         JSR   L7A4D
         LDA   #L905F
         STA   L1064
         LDA   #^L905F
         STA   L1066
         LDA   #$0009
         STA   L1068
         JSR   L7A00
         LDA   #L9067
         STA   L1064
         LDA   #^L9067
         STA   L1066
         LDA   #$000E
         STA   L1068
         JSR   L7A00
         LDA   #L906F
         STA   L1064
         LDA   #^L906F
         STA   L1066
         LDA   #$0007
         STA   L1068
         JSR   L7A00
         LDA   #L9077
         STA   L1064
         LDA   #^L9077
         STA   L1066
         LDA   #$0009
         STA   L1068
         JSR   L7A00
         LDA   #L907F
         STA   L1064
         LDA   #^L907F
         STA   L1066
         LDA   #$0009
         STA   L1068
         JSR   L7A00
         LDA   #$000D
         STA   L1064
         LDA   #$000E
         STA   L1068
         JSR   L7F8C
         LDA   #L9042
         STA   L1064
         LDA   #^L9042
         STA   L1066
         LDA   #$0028
         STA   L1068
         JSR   L7EDC
         LDA   #$00A0
         STA   L1064
         LDA   #$004C
         STA   L1068
         JSR   L7E26
         LDA   #L9054
         STA   L1064
         LDA   #^L9054
         STA   L1066
         JSR   L7E5F
         LDA   #$00A0
         STA   L1064
         LDA   #$0062
         STA   L1068
         JSR   L7E26
         LDA   #L9058
         STA   L1064
         LDA   #^L9058
         STA   L1066
         JSR   L7E5F
         LDA   #$0007
         STA   L1064
         LDA   #$0009
         STA   L1068
         JSR   L7F8C
         LDA   #$009B
         STA   L1064
         LDA   #$00AF
         STA   L1068
         JSR   L7E26
         LDA   #L905C
         STA   L1064
         LDA   #^L905C
         STA   L1066
         JSR   L7E5F
         LDA   #$0001
         STA   L9584
         LDA   #$0000
         STA   L1064
         LDA   #L1030
         STA   L1068
         LDA   #^L1030
         STA   L106A
         JSR   L82F4
         LDA   L9038
         STA   L1064
         LDA   L903A
         STA   L1066
         LDA   L903C
         STA   L1068
         LDA   L903E
         STA   L106A
         LDA   L9040
         STA   L106C
         JSR   L0F3A
         JSR   L7A39
         JSR   L8489
L8FB0    LDA   #$0000
         STA   L1064
         LDA   #L906F
         STA   L1068
         LDA   #^L906F
         STA   L106A
         LDA   #$0003
         STA   L106C
         JSR   L8A2A
         CMP   #$0009
         BNE   L8FE0
         JSR   L0F4E
         JSR   L804F
L8FD6    JSR   L787E
         CMP   #$0009
         BEQ   L8FD6
         BRA   L8FB0
L8FE0    LDA   L1064
         BEQ   L8FB0
         CMP   #$0003
         BEQ   L9013
         CMP   L9584
         BEQ   L8FB0
         STA   L9584
         LDA   L9584
         STA   L1064
         LDA   #$0002
         STA   L1068
         LDA   #L906F
         STA   L106C
         LDA   #^L906F
         STA   L106E
         JSR   L8AEF
         JSR   L804F
         JMP   L8FB0

L9013    LDA   L9038
         STA   L1064
         LDA   L903A
         STA   L1066
         JSR   L0F2F
         LDA   L9584
         STA   L881A
         JSR   L7A27
         RTS

L902C    ASC   '1/fshow'00
L9038    DW    $0000
L903A    DW    $0000
L903C    DW    $0000
L903E    DW    $0000
L9040    DW    $0000
L9042    ASC   'How many players?'00
L9054    ASC   'one'00
L9058    ASC   'two'00
L905C    ASC   'OK'00
L905F    DW    $0005
         DW    $0005
         DW    $00C2
         DW    $013A
L9067    DW    $0007
         DW    $0007
         DW    $00C0
         DW    $0138
L906F    DW    $0042
         DW    $008C
         DW    $0050
         DW    $009A
L9077    DW    $0056
         DW    $008C
         DW    $0064
         DW    $009A
L907F    DW    $00A0
         DW    $0096
         DW    $00B4
         DW    $00B4
L9087    REP   #$30
         LDA   L1064
         STA   L933C
         LDA   L1066
         STA   L933E
         LDA   L1068
         STA   L9340
         LDA   L106A
         STA   L9342
         LDA   L1000
         BNE   L90A9
         JMP   L90D9

L90A9    LDA   #L9305
         STA   L1064
         LDA   #^L9305
         STA   L1066
         LDA   #L8829
         SEC
         SBC   L9340
         STA   L1088
         LDA   #^L8829
         SBC   L9342
         STA   L108A
         LDA   L1088
         BEQ   L90D9
         LDA   #L9310
         STA   L1064
         LDA   #^L9310
         STA   L1066
L90D9    LDA   #L9328
         STA   L1068
         LDA   #^L9328
         STA   L106A
         LDA   #L9330
         STA   L106C
         LDA   #^L9330
         STA   L106E
         LDA   #L9338
         STA   L1070
         LDA   #^L9338
         STA   L1072
         JSR   L0F1E
         LDA   #L931B
         STA   L1064
         LDA   #^L931B
         STA   L1066
         LDA   #L932C
         STA   L1068
         LDA   #^L932C
         STA   L106A
         LDA   #L9334
         STA   L106C
         LDA   #^L9334
         STA   L106E
         LDA   #L933A
         STA   L1070
         LDA   #^L933A
         STA   L1072
         JSR   L0F1E
         LDA   #$0000
         STA   L1064
         JSR   L83B0
         JSR   L7824
         JSR   L0EB4
         LDA   #$0000
         STA   L1064
         JSR   L7A4D
         LDA   #L935E
         STA   L1064
         LDA   #^L935E
         STA   L1066
         LDA   #$0009
         STA   L1068
         JSR   L7A00
         LDA   #L9366
         STA   L1064
         LDA   #^L9366
         STA   L1066
         LDA   #$0000
         STA   L1068
         JSR   L7A00
         LDA   #$000D
         STA   L1064
         LDA   #$0000
         STA   L1068
         JSR   L7F8C
         LDA   L9340
         STA   L1064
         LDA   L9342
         STA   L1066
         LDA   #$0028
         STA   L1068
         JSR   L7EDC
         LDA   #L9346
         STA   L1064
         LDA   #^L9346
         STA   L1066
         LDA   #$003C
         STA   L1068
         JSR   L7EDC
         LDA   #$0007
         STA   L1064
         LDA   #$0000
         STA   L1068
         JSR   L7F8C
         LDA   #$0000
         STA   L1064
         LDA   #L1030
         STA   L1068
         LDA   #^L1030
         STA   L106A
         JSR   L82F4
         LDA   L9328
         STA   L1064
         LDA   L932A
         STA   L1066
         LDA   L9330
         STA   L1068
         LDA   L9332
         STA   L106A
         LDA   L9338
         STA   L106C
         JSR   L0F3A
         LDA   L932C
         STA   L1064
         LDA   L932E
         STA   L1066
         LDA   L9334
         STA   L1068
         LDA   L9336
         STA   L106A
         LDA   L933A
         STA   L106C
         JSR   L0F3A
         LDA   #$0000
         STA   L9344
         LDA   #L9376
         STA   $00
         LDA   #^L9376
         STA   $02
         JSR   L8489
L9227    JSR   L78AC
         CMP   #$0000
         BEQ   L9227
         CMP   #$000D
         BNE   L9237
         JMP   L92B6

L9237    CMP   #$007F
         BEQ   L9299
         LDY   L9344
         CPY   #$0008
         BEQ   L92B0
         ORA   #$0020
         CMP   #$0061
         BCC   L92B0
         CMP   #$007B
         BCS   L92B0
         CPY   #$0000
         BNE   L9259
         AND   #$00DF
L9259    SEP   #$20
         STA   [$00],Y
         INY
         LDA   #$00
         STA   [$00],Y
         REP   #$20
         STY   L9344
L9267    LDA   #L936E
         STA   L1064
         LDA   #^L936E
         STA   L1066
         LDA   #$0000
         STA   L1068
         JSR   L7A00
         LDY   L9344
         BEQ   L9227
         LDA   #L9376
         STA   L1064
         LDA   #^L9376
         STA   L1066
         LDA   #$0078
         STA   L1068
         JSR   L7EDC
         JMP   L9227

L9299    LDY   L9344
         CPY   #$0000
         BEQ   L92B0
         DEY
         SEP   #$20
         LDA   #$00
         STA   [$00],Y
         REP   #$20
         STY   L9344
         JMP   L9267

L92B0    JSR   L804F
         JMP   L9227

L92B6    LDY   L9344
         CPY   #$0000
         BEQ   L92E6
         INY
         STY   L9344
         LDA   #L9376
         STA   L1064
         LDA   #^L9376
         STA   L1066
         LDA   L933C
         STA   L1068
         LDA   L933E
         STA   L106A
         LDA   L9344
         STA   L106C
         STZ   L106E
         JSR   L79B4
L92E6    LDA   L9328
         STA   L1064
         LDA   L932A
         STA   L1066
         JSR   L0F2F
         LDA   L932C
         STA   L1064
         LDA   L932E
         STA   L1066
         JSR   L0F2F
         RTS

L9305    ASC   '1/fsp1'00
L9310    ASC   '1/fsp2'00
L931B    ASC   '1/fsname'00
L9328    DB    $00
         DB    $00
L932A    DB    $00
         DB    $00
L932C    DB    $00
         DB    $00
L932E    DB    $00
         DB    $00
L9330    DB    $00
         DB    $00
L9332    DB    $00
         DB    $00
L9334    DB    $00
         DB    $00
L9336    DB    $00
         DB    $00
L9338    DB    $00
         DB    $00
L933A    DB    $00
         DB    $00
L933C    DB    $00
         DB    $00
L933E    DB    $00
         DB    $00
L9340    DB    $00
         DB    $00
L9342    DB    $00
         DB    $00
L9344    DB    $00
         DB    $00
L9346    ASC   'Please enter your name.'00
L935E    DW    $0005
         DW    $0005
         DW    $00C2
         DW    $013A
L9366    DW    $0007
         DW    $0007
         DW    $00C0
         DW    $0138
L936E    DW    $0064
         DW    $000A
         DW    $008C
         DW    $0136
L9376    DW    $0000
         DW    $0000
         DW    $0000
         DW    $0000
         DW    $0000

L9380    REP   #$30
         LDA   L1064
         STA   L9535
         LDA   L1066
         STA   L9537
         LDA   L1068
         STA   L9539
         LDA   L106A
         STA   L953B
         LDA   #$0000
         STA   L1064
         LDA   L9535
         STA   L1068
         LDA   L9537
         STA   L106A
         JSR   L8963	; check volume
         LDA   L1064
         BEQ   L93D1
         JMP   L9534

L93B7    REP   #$30
         LDA   L1064
         STA   L9535
         LDA   L1066
         STA   L9537
         LDA   L1068
         STA   L9539
         LDA   L106A
         STA   L953B
L93D1    LDA   L1088
         BEQ   L93DC
         LDA   #$0001
         STA   L1062
L93DC    LDA   #$0000
         STA   L1064
         JSR   L83B0
         JSR   L0EB4
         LDA   #$0000
         STA   L1064
         JSR   L7A4D
         LDA   #L956C
         STA   L1064
         LDA   #^L956C
         STA   L1066
         LDA   #$0009
         STA   L1068
         JSR   L7A00
         LDA   #L9574
         STA   L1064
         LDA   #^L9574
         STA   L1066
         LDA   #$000E
         STA   L1068
         JSR   L7A00
         LDA   #L957C
         STA   L1064
         LDA   #^L957C
         STA   L1066
         LDA   #$0009
         STA   L1068
         JSR   L7A00
         LDA   #$000D
         STA   L1064
         LDA   #$000E
         STA   L1068
         JSR   L7F8C
         LDA   #L953D
         STA   L1064
         LDA   #^L953D
         STA   L1066
         LDA   #$0028
         STA   L1068
         JSR   L7EDC
         LDA   L9539
         STA   L1064
         LDA   L953B
         STA   L1066
         LDA   #$0046
         STA   L1068
         JSR   L7EDC
         LDA   #$0007
         STA   L1064
         LDA   #$0009
         STA   L1068
         JSR   L7F8C
         LDA   #$009B
         STA   L1064
         LDA   #$00AF
         STA   L1068
         JSR   L7E26
         LDA   #L954B
         STA   L1064
         LDA   #^L954B
         STA   L1066
         JSR   L7E5F
         LDA   #$0000
         STA   L1064
         LDA   #L1030
         STA   L1068
         LDA   #^L1030
         STA   L106A
         JSR   L82F4
         JSR   L7A39
         JSR   L8489
         JSR   L804F
L94B4    LDA   #$0000
         STA   L1064
         LDA   #L957C
         STA   L1068
         LDA   #^L957C
         STA   L106A
         LDA   #$0001
         STA   L106C
         JSR   L8A2A
         CMP   #$0009
         BNE   L94E4
         JSR   L0F4E
         JSR   L804F
L94DA    JSR   L787E
         CMP   #$0009
         BEQ   L94DA
         BRA   L94B4
L94E4    LDA   L1064
         BEQ   L94B4
         CMP   #$0001
         BNE   L94B4
         LDA   #$0000
         STA   L1064
         LDA   L9535
         STA   L1068
         LDA   L9537
         STA   L106A
         JSR   L8963	; check volume
         LDA   L1064
         BNE   L9531
         JSR   L804F
         LDA   #$0007
         STA   L1064
         LDA   #$000E
         STA   L1068
         JSR   L7F8C
         LDA   #L954E
         STA   L1064
         LDA   #^L954E
         STA   L1066
         LDA   #$0078
         STA   L1068
         JSR   L7EDC
         BRA   L94B4
L9531    JSR   L7A27
L9534    RTS

L9535    DW    $0000
L9537    DW    $0000
L9539    DW    $0000
L953B    DW    $0000
L953D    ASC   'Please insert'00
L954B    ASC   'OK'00
L954E    ASC   'Wrong disk, please try again!'00
L956C    DW    $0005
         DW    $0005
         DW    $00C2
         DW    $013A
L9574    DW    $0007
         DW    $0007
         DW    $00C0
         DW    $0138
L957C    DW    $00A0
         DW    $0096
         DW    $00B4
         DW    $00B4
L9584    DB    $00
         DB    $00
L9586    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L9686    PHD
         TSC
         SEC
         SBC   #$00EF
         TCD
         ADC   #$00E6
         TCS
         LDA   $F9
         SEC
         SBC   #$0000
         BEQ   L96AF
         BVS   L969E
         EOR   #$8000
L969E    BPL   L96AF
         LDA   $FB
         SEC
         SBC   #$0000
         BEQ   L96AF
         BVS   L96AD
         EOR   #$8000
L96AD    BMI   L96B5
L96AF    LDA   #$0000
         BRL   L97FA
L96B5    LDA   $FB
         PHA
         LDA   $F9
         SEC
         JSL   LA9A3
         PLA
         STA   $EA
L96C2    LDA   [$FD]
         SEC
         SBC   #$0000
         BEQ   L96D1
         BVS   L96CF
         EOR   #$8000
L96CF    BMI   L972A
L96D1    PEI   $FF
         PEI   $FD
         JSL   LAFCB
         PLY
         PLY
         CMP   #$FFFF
         BNE   L96FE
         LDA   $EA
         CLC
         ADC   $F9
         SEC
         SBC   #$0001
         PHA
         LDA   $F9
         CLC
         JSL   LA833
         PLY
         PHA
         LDA   $FB
         PLX
         STX   $EC
         SEC
         SBC   $EC
         BRL   L97FA
L96FE    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
L972A    LDA   [$FD]
         CMP   $EA
         BEQ   L9736
         BCC   L9736
         LDA   $EA
         BRA   L9738
L9736    LDA   [$FD]
L9738    STA   $E8
         LDA   $E8
         LDX   #$0000
         TAY
         BPL   L9743
         DEX
L9743    PHX
         PHA
         PEI   $E8
         LDY   #$0004
         LDA   [$FD],Y
         TAX
         LDY   #$0002
         LDA   [$FD],Y
         PHX
         PHA
         PEI   $F7
         PEI   $F5
         JSL   LA7D8
         PLY
         PLY
         PLY
         PLY
         PLY
         JSL   LA64E
         PLA
         PLX
         STX   $F7
         STA   $F5
         LDA   [$FD]
         SEC
         SBC   $E8
         STA   [$FD]
         LDA   $E8
         LDX   #$0000
         TAY
         BPL   L977B
         DEX
L977B    PHX
         PHA
         LDY   #$0004
         LDA   [$FD],Y
         TAX
         LDY   #$0002
         LDA   [$FD],Y
         JSL   LA64E
         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   LA998
         PLA
         PLX
         PHA
         LDA   [$FD]
         SEC
         SBC   #$0000
         BVS   L97C5
         EOR   #$8000
L97C5    BMI   L97CC
         LDA   #$0000
         BRA   L97CE
L97CC    LDA   [$FD]
L97CE    PLX
         STX   $EC
         SEC
         SBC   $EC
         BEQ   L97E7
         BVS   L97DB
         EOR   #$8000
L97DB    BPL   L97E7
         PEI   $FF
         PEI   $FD
         JSL   LA438
         PLY
         PLY
L97E7    LDA   $EA
         SEC
         SBC   $E8
         STA   $EA
         CMP   #$0000
         BNE   L97F7
         LDA   $FB
         BRA   L97FA
L97F7    BRL   L96C2
L97FA    TAY
         TDC
         CLC
         ADC   #$00EF
         TCS
         TYA
         PLD
         RTL

L9804    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   L982A
         BRL   L99D0
L982A    LDA   $FF
         SEC
         SBC   #$0002
         BVS   L9835
         EOR   #$8000
L9835    BPL   L983A
         BRL   L9981
L983A    LDY   #$0008
         LDA   [$F7],Y
         TAX
         LDY   #$0006
         LDA   [$F7],Y
         STX   $EE
         ORA   $EE
         BNE   L984E
         BRL   L9981
L984E    LDY   #$0010
         LDA   [$F7],Y
         AND   #$0004
         TAY
         BEQ   L985C
         BRL   L9981
L985C    LDA   [$F7]
         STA   $EC
         LDX   $FD
         LDA   $FB
         STX   $EA
         STA   $E8
         LDA   $FF
         CMP   #$0000
         BNE   L98A5
         PEA   $0001
         PEA   $0000
         PEA   $0000
         LDY   #$0012
         LDA   [$F7],Y
         PHA
         JSL   L9A52
         PLY
         PLY
         PLY
         PLY
         PHX
         PHA
         LDA   $EC
         LDX   #$0000
         TAY
         BPL   L9891
         DEX
L9891    JSL   LA998
         LDX   $EA
         LDA   $E8
         JSL   LA64E
         PLA
         PLX
         STX   $EA
         STA   $E8
         BRA   L98BE
L98A5    LDA   $EC
         LDX   #$0000
         TAY
         BPL   L98AE
         DEX
L98AE    PHX
         PHA
         LDX   $FD
         LDA   $FB
         JSL   LA998
         PLA
         PLX
         STX   $FD
         STA   $FB
L98BE    LDY   #$0010
         LDA   [$F7],Y
         AND   #$0080
         TAY
         BEQ   L98CC
         BRL   L9981
L98CC    LDA   $EC
         SEC
         SBC   #$0000
         BNE   L98D7
         BRL   L9981
L98D7    BVS   L98DC
         EOR   #$8000
L98DC    BMI   L98E1
         BRL   L9981
L98E1    LDA   $EC
         LDX   #$0000
         TAY
         BPL   L98EA
         DEX
L98EA    LDX   #$0000
         TAY
         BPL   L98F1
         DEX
L98F1    PHX
         PHA
         LDX   $EA
         LDA   $E8
         JSL   LB15A
         BVS   L9900
         EOR   #$8000
L9900    BPL   L9981
         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   LA998
         PLA
         PLX
         LDX   #$0000
         TAY
         BPL   L9927
         DEX
L9927    LDX   #$0000
         TAY
         BPL   L992E
         DEX
L992E    PHX
         PHA
         LDX   $EA
         LDA   $E8
         JSL   LB15A
         BEQ   L9941
         BVS   L993F
         EOR   #$8000
L993F    BMI   L9981
L9941    LDX   $EA
         LDA   $E8
         LDX   #$0000
         TAY
         BPL   L994C
         DEX
L994C    PHX
         PHA
         LDY   #$0004
         LDA   [$F7],Y
         TAX
         LDY   #$0002
         LDA   [$F7],Y
         JSL   LA64E
         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   L9A48
L9981    LDY   #$0010
         LDA   [$F7],Y
         AND   #$0080
         TAY
         BEQ   L99B1
         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
L99B1    PEI   $FF
         PEI   $FD
         PEI   $FB
         LDY   #$0012
         LDA   [$F7],Y
         PHA
         JSL   L9A52
         PLY
         PLY
         PLY
         PLY
         STX   $EA
         STA   $E8
         LDA   #$0000
         STA   [$F7]
         BRA   L9A32
L99D0    LDY   #$0010
         LDA   [$F7],Y
         AND   #$0082
         TAY
         BEQ   L9A32
         PEI   $F9
         PEI   $F7
         JSL   LA73D
         PLY
         PLY
         LDY   #$0010
         LDA   [$F7],Y
         AND   #$0080
         TAY
         BEQ   L9A1A
         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
L9A1A    PEI   $FF
         PEI   $FD
         PEI   $FB
         LDY   #$0012
         LDA   [$F7],Y
         PHA
         JSL   L9A52
         PLY
         PLY
         PLY
         PLY
         STX   $EA
         STA   $E8
L9A32    LDA   $E8
         CMP   #$FFFF
         BNE   L9A45
         LDA   $EA
         CMP   #$FFFF
         BNE   L9A45
         LDA   #$FFFF
         BRA   L9A48
L9A45    LDA   #$0000
L9A48    TAY
         TDC
         CLC
         ADC   #$00F1
         TCS
         TYA
         PLD
         RTL

L9A52    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   L9BC2
         PLY
         PLY
         PLY
         PLY
         STA   $E8
         LDA   $E8
         CMP   #$0000
         BNE   L9A8E
         LDX   $EE
         LDA   $EC
         BRA   L9A94
L9A8E    LDX   #$FFFF
         LDA   #$FFFF
L9A94    TAY
         TDC
         CLC
         ADC   #$00F3
         TCS
         TYA
         PLD
         RTL

L9A9E    PHD
         TSC
         SEC
         SBC   #$00F7
         TCD
         ADC   #$00EC
         TCS
         LDA   [$FD]
         SEC
         SBC   #$0000
         BVS   L9AB4
         EOR   #$8000
L9AB4    BMI   L9ABB
         LDA   #$0000
         STA   [$FD]
L9ABB    LDY   #$0010
         LDA   [$FD],Y
         AND   #$0001
         TAY
         BEQ   L9AD0
         LDA   [$FD]
         EOR   #$FFFF
         INC
         STA   $EE
         BRA   L9B34
L9AD0    LDY   #$0010
         LDA   [$FD],Y
         AND   #$0082
         TAY
         BEQ   L9B28
         STZ   $EE
         LDY   #$0010
         LDA   [$FD],Y
         AND   #$0002
         TAY
         BEQ   L9B26
         LDY   #$0008
         LDA   [$FD],Y
         TAX
         LDY   #$0006
         LDA   [$FD],Y
         STX   $F4
         ORA   $F4
         BEQ   L9B26
         LDY   #$0010
         LDA   [$FD],Y
         AND   #$0004
         CMP   #$0000
         BNE   L9B26
         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   LA998
         PLA
         PLX
         STA   $EE
L9B26    BRA   L9B34
L9B28    LDA   #$FFFF
         LDX   #$0000
         TAY
         BPL   L9B32
         DEX
L9B32    BRA   L9B89
L9B34    PEA   $0001
         PEA   $0000
         PEA   $0000
         LDY   #$0012
         LDA   [$FD],Y
         PHA
         JSL   L9A52
         PLY
         PLY
         PLY
         PLY
         STX   $F2
         STA   $F0
         SEC
         LDA   $F0
         SBC   #$0000
         BNE   L9B5E
         LDA   $F2
         SBC   #$0000
         BRA   L9B65
L9B5E    LDA   $F2
         SBC   #$0000
         REP   #$02
L9B65    BVS   L9B6A
         EOR   #$8000
L9B6A    BPL   L9B85
         LDA   $EE
         LDX   #$0000
         TAY
         BPL   L9B75
         DEX
L9B75    PHX
         PHA
         LDX   $F2
         LDA   $F0
         JSL   LA64E
         PLA
         PLX
         STX   $F2
         STA   $F0
L9B85    LDX   $F2
         LDA   $F0
L9B89    TAY
         TDC
         CLC
         ADC   #$00F7
         TCS
         TYA
         PLD
         RTL

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

L9BC2    PHD
         TSC
         SEC
         SBC   #$00F3
         TCD
         ADC   #$00E0
         TCS
         LDA   $F9
         SEC
         SBC   #$0000
         BVS   L9BD8
         EOR   #$8000
L9BD8    BMI   L9BEC
         PEA   $0000
         PEA   $0016
         JSL   LB4AE
         PLY
         PLY
         LDA   #$FFFF
         BRL   L9D61
L9BEC    PEA   $0000
         TDC
         CLC
         ADC   #$00F9
         PHA
         JSL   LB1DF
         PLY
         PLY
         STX   $EE
         STA   $EC
         LDX   #$0000
         LDA   #$0000
         PHX
         PHA
         LDX   $EE
         LDA   $EC
         JSL   LB15A
         BNE   L9C17
         LDA   #$FFFF
         BRL   L9D61
L9C17    LDA   $FB
         BRL   L9D56
L9C1C    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   LAE98
         PLY
         PLY
         PLY
         PLY
         PLY
         STA   $E4
         LDA   $E4
         CMP   #$0000
         BNE   L9C60
         LDA   #$0000
         BRL   L9D61
L9C60    LDY   #$0002
         LDA   [$EC],Y
         PHA
         PEI   $E4
         JSL   LB4AE
         PLY
         PLY
         LDA   #$FFFF
         BRL   L9D61
L9C74    LDX   $FF
         LDA   $FD
         SEC
         SBC   #$0000
         BVS   L9C81
         EOR   #$8000
L9C81    BMI   L9C95
         PEA   $0000
         PEA   $0009
         JSL   LB4AE
         PLY
         PLY
         LDA   #$FFFF
         BRL   L9D61
L9C95    LDX   $FF
         LDA   $FD
         PHA
         LDA   #$FFFF
         PLX
         STX   $F0
         SEC
         SBC   $F0
         STA   $E6
         PEA   $0000
         TDC
         CLC
         ADC   #$00E6
         PHA
         JSL   LB1DF
         PLY
         PLY
         STX   $EA
         STA   $E8
         LDX   #$0000
         LDA   #$0000
         PHX
         PHA
         LDX   $EA
         LDA   $E8
         JSL   LB15A
         BNE   L9CD0
         LDA   #$FFFF
         BRL   L9D61
L9CD0    PEA   $0000
         TDC
         CLC
         ADC   #$00F9
         PHA
         JSL   LB1DF
         PLY
         PLY
         STX   $EE
         STA   $EC
         LDA   $EC
         LDX   $EE
         PHX
         PHA
         LDA   $EA
         PHA
         LDA   $E8
         PHA
         PEA   $0012
         JSL   LB185
         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   LAE98
         PLY
         PLY
         PLY
         PLY
         STA   $E4
         LDA   $E4
         CMP   #$0000
         BEQ   L9D50
         LDA   #$0000
         STA   [$E8]
         LDY   #$0002
         LDA   [$EC],Y
         PHA
         PEI   $E4
         JSL   LB4AE
         PLY
         PLY
         LDA   #$FFFF
         BRA   L9D61
L9D50    LDA   $E6
         BRA   L9D61
         BRA   L9D61
L9D56    CMP   #$6601
         BNE   L9D5E
         BRL   L9C74
L9D5E    JMP   L9C1C

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

L9D6B    PHD
         TSC
         SEC
         SBC   #$00F7
         TCD
         ADC   #$00E1
         TCS
         STZ   $F1
         STZ   L0140
         LDX   #$0000
         LDA   #$0000
         PHX
         PHA
         LDX   $FF
         LDA   $FD
         JSL   LB15A
         BNE   L9D96
         LDA   #$0001
         STA   LB479
         BRL   LA1AB
L9D96    LDX   #$0000
         LDA   #$0008
         PHX
         PHA
         LDX   $FF
         LDA   $FD
         JSL   LA64E
         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   ^LA1E5
         PEA   LA1E5
         PEI   $FF
         PEI   $FD
         JSL   LA55C
         PLY
         PLY
         PLY
         PLY
         TAY
         BNE   L9DE6
         LDA   #$0001
         STA   LB479
         LDA   $F3
         SEP   #$20
         STA   [$E9]
         REP   #$20
         BRL   LA1AB
L9DE6    LDA   #$0001
         BEQ   L9DF0
         LDA   #$0000
         BRA   L9DF3
L9DF0    LDA   #$0001
L9DF3    STA   LB479
         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   L9E34
         PEA   $FFFF
         JSL   LAF67
         PLY
L9E34    LDA   #$0100
         STA   $E3
L9E39    LDA   [$E9]
         AND   #$00FF
         CMP   #$0000
         BNE   L9E46
         BRL   LA09F
L9E46    INC   L0140
         LDA   [$E9]
         AND   #$00FF
         CMP   #$0022
         BEQ   L9E56
         BRL   L9F7A
L9E56    INC   $E9
         BNE   L9E5C
         INC   $EB
L9E5C    LDA   [$E9]
         AND   #$00FF
         CMP   #$0000
         BNE   L9E69
         BRL   L9F77
L9E69    LDA   [$E9]
         AND   #$00FF
         CMP   #$0022
         BEQ   L9E76
         BRL   L9F00
L9E76    INC   $E9
         BNE   L9E7C
         INC   $EB
L9E7C    LDA   [$E9]
         AND   #$00FF
         CMP   #$0022
         BNE   L9EFC
         LDA   $F1
         CMP   $E3
         BNE   L9EBF
         LDA   $E3
         CLC
         ADC   #$0100
         LDX   #$0000
         TAY
         BPL   L9E99
         DEX
L9E99    PHX
         PHA
         PEI   $EF
         PEI   $ED
         _SetHandleSize
         STAL  L013C
         LDA   L013C
         BEQ   L9EB7
         PEA   $FFFF
         JSL   LAF67
         PLY
L9EB7    LDA   $E3
         CLC
         ADC   #$0100
         STA   $E3
L9EBF    LDX   $EB
         LDA   $E9
         INC   $E9
         BNE   L9EC9
         INC   $EB
L9EC9    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   L9EEA
         DEC   $F6
L9EEA    CLC
         ADC   $F4
         STA   $F4
         BCC   L9EF3
         INC   $F6
L9EF3    PLA
         SEP   #$20
         STA   [$F4]
         REP   #$20
         BRA   L9EFE
L9EFC    BRA   L9F77
L9EFE    BRA   L9F74
L9F00    LDA   $F1
         CMP   $E3
         BNE   L9F39
         LDA   $E3
         CLC
         ADC   #$0100
         LDX   #$0000
         TAY
         BPL   L9F13
         DEX
L9F13    PHX
         PHA
         PEI   $EF
         PEI   $ED
         _SetHandleSize
         STAL  L013C
         LDA   L013C
         BEQ   L9F31
         PEA   $FFFF
         JSL   LAF67
         PLY
L9F31    LDA   $E3
         CLC
         ADC   #$0100
         STA   $E3
L9F39    LDX   $EB
         LDA   $E9
         INC   $E9
         BNE   L9F43
         INC   $EB
L9F43    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   L9F64
         DEC   $F6
L9F64    CLC
         ADC   $F4
         STA   $F4
         BCC   L9F6D
         INC   $F6
L9F6D    PLA
         SEP   #$20
         STA   [$F4]
         REP   #$20
L9F74    BRL   L9E5C
L9F77    BRL   LA01E
L9F7A    LDA   [$E9]
         AND   #$00FF
         SEP   #$20
         STA   $F3
         REP   #$20
         AND   #$00FF
         CMP   #$0020
         BNE   L9F90
         BRL   LA01E
L9F90    LDA   $F3
         AND   #$00FF
         CMP   #$0000
         BNE   L9F9D
         BRL   LA01E
L9F9D    LDA   $F3
         AND   #$00FF
         CMP   #$0009
         BEQ   LA01E
         LDA   $F1
         CMP   $E3
         BNE   L9FE0
         LDA   $E3
         CLC
         ADC   #$0100
         LDX   #$0000
         TAY
         BPL   L9FBA
         DEX
L9FBA    PHX
         PHA
         PEI   $EF
         PEI   $ED
         _SetHandleSize
         STAL  L013C
         LDA   L013C
         BEQ   L9FD8
         PEA   $FFFF
         JSL   LAF67
         PLY
L9FD8    LDA   $E3
         CLC
         ADC   #$0100
         STA   $E3
L9FE0    LDX   $EB
         LDA   $E9
         INC   $E9
         BNE   L9FEA
         INC   $EB
L9FEA    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   LA00B
         DEC   $F6
LA00B    CLC
         ADC   $F4
         STA   $F4
         BCC   LA014
         INC   $F6
LA014    PLA
         SEP   #$20
         STA   [$F4]
         REP   #$20
         BRL   L9F7A
LA01E    LDA   $F1
         CMP   $E3
         BNE   LA057
         LDA   $E3
         CLC
         ADC   #$0100
         LDX   #$0000
         TAY
         BPL   LA031
         DEX
LA031    PHX
         PHA
         PEI   $EF
         PEI   $ED
         _SetHandleSize
         STAL  L013C
         LDA   L013C
         BEQ   LA04F
         PEA   $FFFF
         JSL   LAF67
         PLY
LA04F    LDA   $E3
         CLC
         ADC   #$0100
         STA   $E3
LA057    LDA   $F1
         INC   $F1
         PHA
         LDY   #$0002
         LDA   [$ED],Y
         TAX
         LDA   [$ED]
         STA   $F4
         STX   $F6
         PLA
         TAY
         BPL   LA06E
         DEC   $F6
LA06E    CLC
         ADC   $F4
         STA   $F4
         BCC   LA077
         INC   $F6
LA077    LDA   #$0000
         SEP   #$20
         STA   [$F4]
         REP   #$20
LA080    LDA   [$E9]
         AND   #$00FF
         CMP   #$0020
         BEQ   LA094
         LDA   [$E9]
         AND   #$00FF
         CMP   #$0009
         BNE   LA09C
LA094    INC   $E9
         BNE   LA09A
         INC   $EB
LA09A    BRA   LA080
LA09C    BRL   L9E39
LA09F    LDA   $F1
         LDX   #$0000
         TAY
         BPL   LA0A8
         DEX
LA0A8    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   LA0D6
         DEX
LA0D6    PHX
         PHA
         LDX   #$0000
         LDA   #$0004
         SEC
         JSL   LA9E8
         JSL   LA50A
         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   LA16B
LA122    LDA   [$E5]
         AND   #$00FF
         BNE   LA165
         LDX   #$0000
         LDA   #$0001
         PHX
         PHA
         LDX   $E7
         LDA   $E5
         JSL   LA64E
         LDA   $F1
         INC   $F1
         ASL
         ASL
         PHA
         LDX   L0144
         LDA   L0142
         STA   $F4
         STX   $F6
         PLA
         TAY
         BPL   LA150
         DEC   $F6
LA150    CLC
         ADC   $F4
         STA   $F4
         BCC   LA159
         INC   $F6
LA159    PLA
         PLX
         LDY   #$0002
         PHA
         TXA
         STA   [$F4],Y
         PLA
         STA   [$F4]
LA165    INC   $E5
         BNE   LA16B
         INC   $E7
LA16B    LDA   $F1
         SEC
         SBC   L0140
         BVS   LA176
         EOR   #$8000
LA176    BPL   LA122
         LDX   #$0000
         LDA   #$0000
         PHX
         PHA
         LDA   L0140
         ASL
         ASL
         PHA
         LDX   L0144
         LDA   L0142
         STA   $F4
         STX   $F6
         PLA
         TAY
         BPL   LA196
         DEC   $F6
LA196    CLC
         ADC   $F4
         STA   $F4
         BCC   LA19F
         INC   $F6
LA19F    PLA
         PLX
         LDY   #$0002
         PHA
         TXA
         STA   [$F4],Y
         PLA
         STA   [$F4]
LA1AB    TAY
         TDC
         CLC
         ADC   #$00F7
         TCS
         TYA
         PLD
         RTL

         ASC   'HS'
LA1B7    DW    $0000
LA1B9    ADRL  LA1EE
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
LA1C3    DB    $00
         DB    $00
LA1C5    DB    $00
         DB    $00
LA1C7    ADRL  LA1FA
LA1CB    DB    $00
         DB    $00
LA1CD    DB    $00
         DB    $00
LA1CF    DB    $00
         DB    $00
LA1D1    DB    $00
         DB    $00
LA1D3    DB    $00
         DB    $00
LA1D5    DB    $00
         DB    $00
LA1D7    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
LA1E5    ASC   'BYTEWRKS'
         DB    $00
LA1EE    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
LA1FA    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
LA222    DB    $00
LA223    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
LA232    PHD
         TSC
         SEC
         SBC   #$00EF
         TCD
         ADC   #$00E2
         TCS
         LDX   #$0000
         LDA   #$0000
         PHX
         PHA
         LDX   $FF
         LDA   $FD
         JSL   LB15A
         BNE   LA25E
         LDA   #$0017
         STA   LB8B4
         LDX   #$0000
         LDA   #$0000
         BRL   LA3C7
LA25E    LDX   #$0000
         LDA   #$0000
         PHX
         PHA
         LDX   $F7
         LDA   $F5
         JSL   LB15A
         BEQ   LA27A
         LDA   [$F5]
         AND   #$00FF
         CMP   #$0000
         BNE   LA289
LA27A    LDA   #$0016
         STA   LB8B4
         LDX   #$0000
         LDA   #$0000
         BRL   LA3C7
LA289    LDY   #$0001
         LDA   [$F9],Y
         AND   #$00FF
         CMP   #$002B
         BEQ   LA2A8
         LDY   #$0002
         LDA   [$F9],Y
         AND   #$00FF
         CMP   #$002B
         BEQ   LA2A8
         LDA   #$0000
         BRA   LA2AB
LA2A8    LDA   #$0001
LA2AB    STA   $EA
         LDY   #$0001
         LDA   [$F9],Y
         AND   #$00FF
         CMP   #$0062
         BEQ   LA2CC
         LDY   #$0002
         LDA   [$F9],Y
         AND   #$00FF
         CMP   #$0062
         BEQ   LA2CC
         LDA   #$0000
         BRA   LA2CF
LA2CC    LDA   #$0001
LA2CF    STA   $E8
         LDA   [$F9]
         AND   #$00FF
         BRL   LA323
LA2D9    LDA   $EA
         BEQ   LA2E2
         LDA   #$0002
         BRA   LA2E5
LA2E2    LDA   #$0001
LA2E5    ORA   #$0200
         ORA   #$0100
         STA   $E6
         BRL   LA335
LA2F0    LDA   $EA
         BEQ   LA2F9
         LDA   #$0002
         BRA   LA2FC
LA2F9    LDA   #$0001
LA2FC    ORA   #$0008
         ORA   #$0100
         STA   $E6
         BRL   LA335
LA307    LDA   $EA
         BEQ   LA310
         LDA   #$0002
         BRA   LA313
LA310    LDA   #$0000
LA313    STA   $E6
         BRL   LA335
LA318    LDX   #$0000
         LDA   #$0000
         BRL   LA3C7
         BRA   LA335
LA323    CMP   #$0061
         BEQ   LA2F0
         CMP   #$0072
         BEQ   LA307
         CMP   #$0077
         BEQ   LA2D9
         JMP   LA318

LA335    LDA   $E8
         BEQ   LA340
         LDA   $E6
         ORA   #$0020
         STA   $E6
LA340    PEI   $E6
         PEI   $F7
         PEI   $F5
         JSL   LAEA0
         PLY
         PLY
         PLY
         STA   $E4
         SEC
         SBC   #$0000
         BVS   LA358
         EOR   #$8000
LA358    BMI   LA362
         LDX   #$0000
         LDA   #$0000
         BRA   LA3C7
LA362    LDA   #$0000
         STA   [$FD]
         LDA   $E4
         LDY   #$0012
         STA   [$FD],Y
         LDA   $EA
         BEQ   LA377
         LDA   #$0080
         BRA   LA389
LA377    LDA   [$F9]
         AND   #$00FF
         CMP   #$0072
         BNE   LA386
         LDA   #$0001
         BRA   LA389
LA386    LDA   #$0002
LA389    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
LA3C7    TAY
         TDC
         CLC
         ADC   #$00EF
         TCS
         TYA
         PLD
         RTL

LA3D1    PHD
         TSC
         SEC
         SBC   #$00FB
         TCD
         ADC   #$00F2
         TCS
         LDA   #LAA6F
         LDX   #^LAA6F
         STX   $F6
         STA   $F4
         BRA   LA407
LA3E8    LDY   #$0010
         LDA   [$F4],Y
         AND   #$0083
         CMP   #$0000
         BNE   LA3FB
         LDX   $F6
         LDA   $F4
         BRA   LA42A
LA3FB    LDA   $F4
         CLC
         ADC   #$0014
         STA   $F4
         BCC   LA407
         INC   $F6
LA407    SEC
         LDA   $F4
         SBC   LA434
         BNE   LA416
         LDA   $F6
         SBC   LA434+2
         BRA   LA41D
LA416    LDA   $F6
         SBC   LA434+2
         REP   #$02
LA41D    BVS   LA422
         EOR   #$8000
LA422    BPL   LA3E8
         LDX   #$0000
         LDA   #$0000
LA42A    TAY
         TDC
         CLC
         ADC   #$00FB
         TCS
         TYA
         PLD
         RTL

LA434    ADRL  LABFF
LA438    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   LA998
         PLA
         PLX
         STA   $F2
         SEC
         SBC   #$0000
         BVS   LA46C
         EOR   #$8000
LA46C    BMI   LA488
         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   LA49A
LA488    LDA   [$FD]
         SEC
         SBC   $F2
         BEQ   LA49A
         BVS   LA494
         EOR   #$8000
LA494    BPL   LA49A
         LDA   $F2
         STA   [$FD]
LA49A    TAY
         TDC
         CLC
         ADC   #$00F7
         TCS
         TYA
         PLD
         RTL

LA4A4    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   LA502
LA4C1    LDA   [$FD]
         AND   #$00FF
         STA   $EE
         LDA   $F0
         PHA
         LDX   $FF
         LDA   $FD
         INC   $FD
         BNE   LA4D5
         INC   $FF
LA4D5    STA   $F4
         STX   $F6
         PLA
         SEP   #$20
         STA   [$F4]
         REP   #$20
         LDA   $EE
         STA   $F0
         LDA   $EE
         BNE   LA4C1
         LDX   $EC
         LDA   $EA
         PHX
         PHA
         LDX   $FF
         LDA   $FD
         JSL   LA998
         PLA
         PLX
         SEC
         SBC   #$0001
         SEP   #$20
         STA   [$EA]
         REP   #$20
LA502    TDC
         CLC
         ADC   #$00F7
         TCS
         PLD
         RTL

LA50A    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   LA54C
         LDY   #$0002
         LDA   [$F0],Y
         TAX
         LDA   [$F0]
         BRA   LA552
LA54C    LDX   #$0000
         LDA   #$0000
LA552    TAY
         TDC
         CLC
         ADC   #$00F7
         TCS
         TYA
         PLD
         RTL

LA55C    PHD
         TSC
         SEC
         SBC   #$00F1
         TCD
         ADC   #$00EC
         TCS
         BRL   LA62D
LA56A    LDA   [$F7]
         AND   #$00FF
         PHA
         LDA   [$FB]
         AND   #$00FF
         PLX
         STX   $EE
         CMP   $EE
         BNE   LA582
         LDA   #$0001
         BRL   LA607
LA582    LDA   $FF
         BEQ   LA58B
         LDA   #$0000
         BRA   LA607
LA58B    LDA   [$F7]
         AND   #$00FF
         SEC
         SBC   #$0061
         BVS   LA599
         EOR   #$8000
LA599    BPL   LA5AD
         LDA   [$F7]
         AND   #$00FF
         SEC
         SBC   #$007A
         BEQ   LA5B4
         BVS   LA5AB
         EOR   #$8000
LA5AB    BPL   LA5B4
LA5AD    LDA   [$F7]
         AND   #$00FF
         BRA   LA5C1
LA5B4    LDA   [$F7]
         AND   #$00FF
         CLC
         ADC   #$0041
         SEC
         SBC   #$0061
LA5C1    PHA
         LDA   [$FB]
         AND   #$00FF
         SEC
         SBC   #$0061
         BVS   LA5D0
         EOR   #$8000
LA5D0    BPL   LA5E4
         LDA   [$FB]
         AND   #$00FF
         SEC
         SBC   #$007A
         BEQ   LA5EB
         BVS   LA5E2
         EOR   #$8000
LA5E2    BPL   LA5EB
LA5E4    LDA   [$FB]
         AND   #$00FF
         BRA   LA5F8
LA5EB    LDA   [$FB]
         AND   #$00FF
         CLC
         ADC   #$0041
         SEC
         SBC   #$0061
LA5F8    PLX
         STX   $EE
         CMP   $EE
         BEQ   LA604
         LDA   #$0000
         BRA   LA607
LA604    LDA   #$0001
LA607    TAY
         BNE   LA60F
         LDA   #$0000
         BRA   LA644
LA60F    LDX   $F9
         LDA   $F7
         INC   $F7
         BNE   LA619
         INC   $F9
LA619    STA   $EE
         STX   $F0
         LDX   $FD
         LDA   $FB
         INC   $FB
         BNE   LA627
         INC   $FD
LA627    STA   $EE
         STX   $F0
         LDA   [$EE]
LA62D    LDA   [$F7]
         AND   #$00FF
         BEQ   LA637
         BRL   LA56A
LA637    LDA   [$FB]
         AND   #$00FF
         BEQ   LA641
         BRL   LA56A
LA641    LDA   #$0001
LA644    TAY
         TDC
         CLC
         ADC   #$00F1
         TCS
         TYA
         PLD
         RTL

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

LA659    PHD
         TSC
         SEC
         SBC   #$00F7
         TCD
         ADC   #$00F0
         TCS
         LDA   #$FFFF
         STA   $F2
         LDX   #$0000
         LDA   #$0000
         PHX
         PHA
         LDX   $FF
         LDA   $FD
         JSL   LB15A
         BNE   LA681
         LDA   #$FFFF
         BRL   LA733
LA681    LDY   #$0010
         LDA   [$FD],Y
         AND   #$0083
         TAY
         BEQ   LA6C9
         LDY   #$0010
         LDA   [$FD],Y
         AND   #$0004
         TAY
         BEQ   LA69C
         LDA   #$0000
         BRA   LA6A6
LA69C    PEI   $FF
         PEI   $FD
         JSL   LA73D
         PLY
         PLY
LA6A6    STA   $F2
         LDY   #$0012
         LDA   [$FD],Y
         PHA
         JSL   LB807
         PLY
         SEC
         SBC   #$0000
         BVS   LA6BC
         EOR   #$8000
LA6BC    BMI   LA6C9
         LDA   #$FFFF
         STA   $F2
         LDA   #$0002
         STA   LB8B4
LA6C9    LDY   #$0010
         LDA   [$FD],Y
         AND   #$0008
         TAY
         BEQ   LA70C
         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
LA70C    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
LA733    TAY
         TDC
         CLC
         ADC   #$00F7
         TCS
         TYA
         PLD
         RTL

LA73D    PHD
         TSC
         SEC
         SBC   #$00F7
         TCD
         ADC   #$00F2
         TCS
         LDY   #$0010
         LDA   [$FD],Y
         AND   #$0002
         TAY
         BNE   LA75D
         LDA   #$0000
         STA   [$FD]
         LDA   #$0000
         BRA   LA7CE
LA75D    LDY   #$0010
         LDA   [$FD],Y
         AND   #$0004
         TAY
         BNE   LA7BB
         LDY   #$0010
         LDA   [$FD],Y
         AND   #$0002
         TAY
         BEQ   LA7BB
         LDX   #$0000
         LDA   #$0000
         PHX
         PHA
         LDY   #$0008
         LDA   [$FD],Y
         TAX
         LDY   #$0006
         LDA   [$FD],Y
         JSL   LB15A
         BEQ   LA7BB
         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   LB15A
         BVS   LA7AD
         EOR   #$8000
LA7AD    BMI   LA7BB
         PEI   $FF
         PEI   $FD
         JSL   LBD50
         PLY
         PLY
         BRA   LA75D
LA7BB    LDY   #$0010
         LDA   [$FD],Y
         AND   #$0020
         TAY
         BEQ   LA7CB
         LDA   #$FFFF
         BRA   LA7CE
LA7CB    LDA   #$0000
LA7CE    TAY
         TDC
         CLC
         ADC   #$00F7
         TCS
         TYA
         PLD
         RTL

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

LA833    PHD
         PHA
         PEA   $0001
         TSC
         TCD
         LDA   $03
         BEQ   LA89E
         LDX   #$0000
         BCC   LA85E
         BIT   #$8000
         BEQ   LA84F
         EOR   #$FFFF
         INC
         STA   $03
         INX
LA84F    LDA   $0A
         BIT   #$8000
         BEQ   LA85E
         EOR   #$FFFF
         INC
         STA   $0A
         INX
         INX
LA85E    LDY   #$0000
         BRA   LA865
LA863    ASL   $01
LA865    ASL   $03
         BCC   LA863
         ROR   $03
LA86B    LDA   $0A
         CMP   $03
         BCC   LA87C
         LDA   $0A
         SEC
         SBC   $03
         STA   $0A
         TYA
         ORA   $01
         TAY
LA87C    LSR   $03
         LSR   $01
         BCC   LA86B
         TYA
         CPX   #$0000
         BEQ   LA89E
         CPX   #$0003
         BEQ   LA896
         EOR   #$FFFF
         INC
         CPX   #$0001
         BEQ   LA89E
LA896    TAY
         LDA   $0A
         EOR   #$FFFF
         INC
         TYA
LA89E    PLY
         PLY
         PLD
         RTL

LA8A2    PHD
         PHX
         PHA
         PEA   $0000
         PEA   $0001
         PEA   $0000
         PEA   $0000
         TSC
         TCD
         LDA   $09
         ORA   $0B
         BNE   LA8BF
         LDX   #$0000
         BRL   LA973
LA8BF    LDX   #$0000
         BCC   LA8F7
         LDA   $0B
         BIT   #$8000
         BEQ   LA8DD
         EOR   #$FFFF
         STA   $0B
         LDA   $09
         EOR   #$FFFF
         INC
         BNE   LA8DA
         INC   $0B
LA8DA    STA   $09
         INX
LA8DD    LDA   $14
         BIT   #$8000
         BEQ   LA8F7
         EOR   #$FFFF
         STA   $14
         LDA   $12
         EOR   #$FFFF
         INC
         BNE   LA8F3
         INC   $14
LA8F3    STA   $12
         INX
         INX
LA8F7    BRA   LA8FD
LA8F9    ASL   $05
         ROL   $07
LA8FD    ASL   $09
         ROL   $0B
         BCC   LA8F9
         ROR   $0B
         ROR   $09
LA907    LDA   $14
         CMP   $0B
         BEQ   LA911
         BCC   LA930
         BRA   LA917
LA911    LDA   $12
         CMP   $09
         BCC   LA930
LA917    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
LA930    LSR   $0B
         ROR   $09
         LSR   $07
         ROR   $05
         BCC   LA907
         CPX   #$0000
         BEQ   LA96F
         CPX   #$0003
         BEQ   LA95C
         LDA   $01
         EOR   #$FFFF
         STA   $01
         LDA   $03
         EOR   #$FFFF
         INC   $01
         BNE   LA955
         INC
LA955    STA   $03
         CPX   #$0001
         BEQ   LA96F
LA95C    LDA   $12
         EOR   #$FFFF
         STA   $12
         LDA   $14
         EOR   #$FFFF
         INC   $12
         BNE   LA96D
         INC
LA96D    STA   $14
LA96F    LDA   $01
         LDX   $03
LA973    PLY
         PLY
         PLY
         PLY
         PLY
         PLY
         PLD
         RTL

LA97B    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

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

LA9A3    PHD
         PHA
         TSC
         TCD
         LDX   #$0000
         BCC   LA9C8
         LDA   $01
         BIT   #$8000
         BEQ   LA9BA
         EOR   #$FFFF
         INC
         STA   $01
         INX
LA9BA    LDA   $08
         BIT   #$8000
         BEQ   LA9C8
         EOR   #$FFFF
         INC
         STA   $08
         DEX
LA9C8    LDA   #$0000
         BRA   LA9D6
LA9CD    LSR   $08
         BCC   LA9D4
         CLC
         ADC   $01
LA9D4    ASL   $01
LA9D6    LDY   $08
         BNE   LA9CD
         CPX   #$0000
         BEQ   LA9E3
         EOR   #$FFFF
         INC
LA9E3    STA   $08
         PLY
         PLD
         RTL

LA9E8    PHD
         PHX
         PHA
         PEA   $0000
         PEA   $0000
         TSC
         TCD
         LDX   #$0000
         BCC   LAA2A
         LDA   $07
         BIT   #$8000
         BEQ   LAA11
         EOR   #$FFFF
         STA   $07
         LDA   $05
         EOR   #$FFFF
         INC
         BNE   LAA0E
         INC   $07
LAA0E    STA   $05
         INX
LAA11    LDA   $10
         BIT   #$8000
         BEQ   LAA2A
         EOR   #$FFFF
         STA   $10
         LDA   $0E
         EOR   #$FFFF
         INC
         BNE   LAA27
         INC   $10
LAA27    STA   $0E
         DEX
LAA2A    BRA   LAA43
LAA2C    LSR   $10
         ROR   $0E
         BCC   LAA3F
         LDA   $01
         CLC
         ADC   $05
         STA   $01
         LDA   $03
         ADC   $07
         STA   $03
LAA3F    ASL   $05
         ROL   $07
LAA43    LDA   $0E
         ORA   $10
         BNE   LAA2C
         CPX   #$0000
         BEQ   LAA61
         LDA   $01
         EOR   #$FFFF
         STA   $01
         LDA   $03
         EOR   #$FFFF
         INC   $01
         BNE   LAA5F
         INC
LAA5F    STA   $03
LAA61    LDA   $01
         STA   $0E
         LDA   $03
         STA   $10
         PLY
         PLY
         PLY
         PLY
         PLD
         RTL

LAA6F    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $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
LABFF    PHD
         TSC
         SEC
         SBC   #$00F9
         TCD
         ADC   #$FFEC
         TCS
         LDA   #LB43D
         LDX   #^LB43D
         PHX
         PHA
         LDAL  LA1C7+2
         TAX
         LDAL  LA1C7
         STA   $F6
         STX   $F8
         PLA
         PLX
         LDY   #$0002
         PHA
         TXA
         STA   [$F6],Y
         PLA
         STA   [$F6]
         LDA   LB479
         BNE   LAC33
         BRL   LAD86
LAC33    LDX   #$0000
         TDC
         CLC
         ADC   #$FFEE
         PHA
         TXA
         STAL  LAF87
         PLA
         STAL  LAF85
         PEA   $0027
         PEA   ^LAF85
         PEA   LAF85
         JSL   LAE5A
         LDAL  LAF87
         TAX
         LDAL  LAF85
         STA   $F6
         STX   $F8
         LDA   [$F6]
         AND   #$00FF
         STA   $F2
         STA   $F0
LAC69    LDA   $F2
         LDX   #$0000
         TAY
         BPL   LAC72
         DEX
LAC72    PHX
         PHA
         LDAL  LAF87
         TAX
         LDAL  LAF85
         JSL   LA64E
         PLA
         PLX
         STA   $F6
         STX   $F8
         LDA   [$F6]
         AND   #$00FF
         CMP   #$002F
         BEQ   LACA4
         LDA   $F2
         SEC
         SBC   #$0000
         BEQ   LACA4
         BVS   LAC9E
         EOR   #$8000
LAC9E    BPL   LACA4
         DEC   $F2
         BRA   LAC69
LACA4    LDA   $F0
         SEC
         SBC   $F2
         STA   $EE
         SEP   #$20
         STAL  LA222
         REP   #$20
         BRA   LAD0D
LACB5    LDA   $F0
         DEC   $F0
         LDX   #$0000
         TAY
         BPL   LACC0
         DEX
LACC0    PHX
         PHA
         LDAL  LAF87
         TAX
         LDAL  LAF85
         JSL   LA64E
         PLA
         PLX
         STA   $F6
         STX   $F8
         LDA   [$F6]
         AND   #$00FF
         PHA
         LDX   #$0000
         LDA   #$0001
         PHX
         PHA
         LDA   $EE
         LDX   #$0000
         TAY
         BPL   LACEC
         DEX
LACEC    PHX
         PHA
         LDA   #LA223
         LDX   #^LA223
         JSL   LA64E
         PLA
         PLX
         JSL   LA998
         PLA
         PLX
         STA   $F6
         STX   $F8
         PLA
         SEP   #$20
         STA   [$F6]
         REP   #$20
         DEC   $EE
LAD0D    LDA   $EE
         SEC
         SBC   #$0000
         BEQ   LAD1C
         BVS   LAD1A
         EOR   #$8000
LAD1A    BMI   LACB5
LAD1C    LDA   #LA222
         LDX   #^LA222
         PHX
         PHA
         LDAL  LA1B9+2
         TAX
         LDAL  LA1B9
         STA   $F6
         STX   $F8
         PLA
         PLX
         LDY   #$0002
         PHA
         TXA
         STA   [$F6],Y
         PLA
         STA   [$F6]
         LDA   $FF
         BNE   LAD5E
         LDAL  LA1B9+2
         TAX
         LDAL  LA1B9
         STA   $F6
         STX   $F8
         LDY   #$0002
         LDA   [$F6],Y
         TAX
         LDA   [$F6]
         PHX
         PHA
         JSL   LBE3A
         PLY
         PLY
LAD5E    LDA   #$0001
         STA   L0140
         LDAL  LA1B9+2
         TAX
         LDAL  LA1B9
         STX   L0144
         STA   L0142
         PEA   $007F
         PEA   $0000
         _SetInGlobals
         STAL  L013C
         BRA   LAD9E
LAD86    LDA   L0140
         STAL  LA1B7
         LDX   L0144
         LDA   L0142
         PHA
         TXA
         STAL  LA1B9+2
         PLA
         STAL  LA1B9
LAD9E    TAY
         TDC
         CLC
         ADC   #$00F9
         TCS
         TYA
         PLD
         RTL

LADA8    PHD
         TSC
         SEC
         SBC   #$00F9
         TCD
         ADC   #$00F0
         TCS
         LDAL  LA1C7+2
         TAX
         LDAL  LA1C7
         STA   $F6
         STX   $F8
         LDX   $F8
         LDA   #$0024
         CLC
         ADC   $F6
         BCC   LADCB
         INX
LADCB    STX   $F4
         STA   $F2
         BRA   LAE0A
LADD1    LDX   #$0000
         LDA   #$0000
         PHX
         PHA
         LDY   #$0002
         LDA   [$F2],Y
         TAX
         LDA   [$F2]
         JSL   LB15A
         BEQ   LADFE
         PEI   $FF
         LDY   #$0002
         LDA   [$F2],Y
         TAX
         LDA   [$F2]
         STA   $F6
         STX   $F8
         LDA   $F6
         LDX   $F8
         JSL   LAE98
         PLY
LADFE    LDA   $F2
         SEC
         SBC   #$0004
         STA   $F2
         BCS   LAE0A
         DEC   $F4
LAE0A    LDAL  LA1C7+2
         TAX
         LDAL  LA1C7
         STA   $F6
         STX   $F8
         LDA   $F6
         LDX   $F8
         PHX
         PHA
         LDX   $F4
         LDA   $F2
         JSL   LB15A
         BVS   LAE2A
         EOR   #$8000
LAE2A    BPL   LADD1
         LDA   $FF
         STA   L014A
         LDAL  LA1C7+2
         TAX
         LDAL  LA1C7
         STA   $F6
         STX   $F8
         LDY   #$0002
         LDA   [$F6],Y
         TAX
         LDA   [$F6]
         STA   $F6
         STX   $F8
         LDA   $F6
         LDX   $F8
         JSL   LAE98
         TDC
         CLC
         ADC   #$00F9
         TCS
         PLD
         RTL

LAE5A    PHB
         PLA
         XBA
         STAL  LAE95
         PLA
         STAL  LAE95+1
         PLA
         STAL  LAE7B
         PLA
         STAL  LAE7B+2
         PLA
         STAL  LAE79
         JSL   GSOS
LAE79    DW    $0000
LAE7B    ADRL  $00000000
         BCS   LAE84
         LDA   #$0000
LAE84    STAL  L013C
         LDAL  LAE95+1
         PHA
         PHB
         LDAL  LAE95
         STA   $01,S
         RTL

LAE95    HEX   000000
LAE98    SEP   #$10
         PHX
         REP   #$10
         DEC
         PHA
         RTL

LAEA0    PHD
         TSC
         SEC
         SBC   #$00F5
         TCD
         ADC   #$00E4
         TCS
         LDA   #$FFFF
         STA   $E8
         PEA   $0000
         TDC
         CLC
         ADC   #$00E8
         PHA
         JSL   LB1DF
         PLY
         PLY
         STX   $EC
         STA   $EA
         LDX   #$0000
         LDA   #$0000
         PHX
         PHA
         LDX   $EC
         LDA   $EA
         JSL   LB15A
         BNE   LAEDB
         LDA   #$FFFF
         BRL   LAF5D
LAEDB    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   LB8B6
         TAY
         TSC
         CLC
         ADC   #$000E
         TCS
         TYA
         STA   $E6
         LDA   $E6
         CMP   #$0000
         BEQ   LAF31
         LDA   #$0000
         STA   [$EA]
         LDA   #$FFFF
         BRA   LAF5D
LAF31    LDX   #$0000
         LDA   #$0000
         PHX
         PHA
         LDY   #$0006
         LDA   [$EA],Y
         TAX
         LDY   #$0004
         LDA   [$EA],Y
         JSL   LB15A
         BNE   LAF5B
         LDX   $F0
         LDA   $EE
         LDY   #$0006
         PHA
         TXA
         STA   [$EA],Y
         PLA
         LDY   #$0004
         STA   [$EA],Y
LAF5B    LDA   $E8
LAF5D    TAY
         TDC
         CLC
         ADC   #$00F5
         TCS
         TYA
         PLD
         RTL

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

LAF85    DB    $00
         DB    $00
LAF87    DB    $00
         DB    $00
LAF89    DB    $00
         DB    $00
LAF8B    DB    $00
         DB    $00
LAF8D    DB    $00
         DB    $00
LAF8F    DB    $00
         DB    $00
LAF91    DB    $00
         DB    $00
LAF93    DB    $00
         DB    $00
LAF95    DB    $00
         DB    $00
LAF97    DB    $00
         DB    $00
         DB    $00
         DB    $00
LAF9B    DB    $00
         DB    $00
LAF9D    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
LAFA7    DB    $00
         DB    $00
LAFA9    DB    $00
         DB    $00
LAFAB    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
LAFB1    DB    $00
         DB    $00
LAFB3    DB    $00
         DB    $00
LAFB5    DB    $00
         DB    $00
LAFB7    DB    $00
         DB    $00
LAFB9    DB    $00
         DB    $00
LAFBB    DB    $00
         DB    $00
LAFBD    DB    $00
         DB    $00
LAFBF    DB    $00
         DB    $00
LAFC1    DB    $00
         DB    $00
LAFC3    DB    $00
         DB    $00
LAFC5    DB    $00
         DB    $00
LAFC7    DB    $00
         DB    $00
LAFC9    DB    $00
         DB    $00
LAFCB    PHD
         TSC
         SEC
         SBC   #$00F7
         TCD
         ADC   #$00EE
         TCS
         LDY   #$0010
         LDA   [$FD],Y
         AND   #$0081
         CMP   #$0000
         BNE   LAFE9
         LDA   #$FFFF
         BRL   LB150
LAFE9    LDY   #$0010
         LDA   [$FD],Y
         ORA   #$0001
         LDY   #$0010
         STA   [$FD],Y
         LDY   #$0010
         LDA   [$FD],Y
         AND   #$0010
         TAY
         BEQ   LB007
         LDA   #$FFFF
         BRL   LB150
LB007    LDX   #$0000
         LDA   #$0000
         PHX
         PHA
         LDY   #$0008
         LDA   [$FD],Y
         TAX
         LDY   #$0006
         LDA   [$FD],Y
         JSL   LB15A
         BNE   LB02A
         PEI   $FF
         PEI   $FD
         JSL   LBADF
         PLY
         PLY
LB02A    LDY   #$0010
         LDA   [$FD],Y
         AND   #$0100
         TAY
         BNE   LB038
         BRL   LB082
LB038    LDA   #LAA6F
         LDX   #^LAA6F
         STX   $F2
         STA   $F0
         BRA   LB065
LB044    LDY   #$0010
         LDA   [$F0],Y
         AND   #$0102
         TAY
         BEQ   LB059
         PEI   $F2
         PEI   $F0
         JSL   LA73D
         PLY
         PLY
LB059    LDA   $F0
         CLC
         ADC   #$0014
         STA   $F0
         BCC   LB065
         INC   $F2
LB065    SEC
         LDA   $F0
         SBC   LA434
         BNE   LB074
         LDA   $F2
         SBC   LA434+2
         BRA   LB07B
LB074    LDA   $F2
         SBC   LA434+2
         REP   #$02
LB07B    BVS   LB080
         EOR   #$8000
LB080    BPL   LB044
LB082    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   LB0AA
         LDA   #$0001
         BRA   LB0AF
LB0AA    LDY   #$000E
         LDA   [$FD],Y
LB0AF    PHA
         LDY   #$0008
         LDA   [$FD],Y
         TAX
         LDY   #$0006
         LDA   [$FD],Y
         PHX
         PHA
         LDY   #$0012
         LDA   [$FD],Y
         PHA
         JSL   LC07E
         PLY
         PLY
         PLY
         PLY
         STA   [$FD]
         LDA   [$FD]
         DEC
         STA   [$FD]
         SEC
         SBC   #$0000
         BVS   LB0DB
         EOR   #$8000
LB0DB    BPL   LB10D
         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   LB0FB
         INC
LB0FB    LDY   #$0004
         STA   [$FD],Y
         PLA
         PLX
         STA   $F4
         STX   $F6
         LDA   [$F4]
         AND   #$00FF
         BRA   LB150
LB10D    LDA   [$FD]
         CMP   #$FFFF
         BNE   LB13B
         LDY   #$0010
         LDA   [$FD],Y
         ORA   #$0010
         LDY   #$0010
         STA   [$FD],Y
         LDY   #$0010
         LDA   [$FD],Y
         AND   #$0080
         TAY
         BEQ   LB139
         LDY   #$0010
         LDA   [$FD],Y
         AND   #$FFFE
         LDY   #$0010
         STA   [$FD],Y
LB139    BRA   LB148
LB13B    LDY   #$0010
         LDA   [$FD],Y
         ORA   #$0020
         LDY   #$0010
         STA   [$FD],Y
LB148    LDA   #$0000
         STA   [$FD]
         LDA   #$FFFF
LB150    TAY
         TDC
         CLC
         ADC   #$00F7
         TCS
         TYA
         PLD
         RTL

LB15A    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   LB175
         TYA
         SBC   $03,S
         BRA   LB17A
LB175    TYA
         SBC   $03,S
         REP   #$02
LB17A    PHP
         LDA   $00,S
         STA   $08,S
         PLY
         PLY
         PLY
         PLY
         PLP
         RTL

LB185    PHD
         TSC
         SEC
         SBC   #$00F1
         TCD
         ADC   #$00E8
         TCS
         LDX   $FB
         LDA   $F9
         STX   $EC
         STA   $EA
LB198    LDA   $F7
         CMP   #$0001
         BEQ   LB1C3
         BCC   LB1C3
         LDA   [$FD]
         STA   [$F9]
         LDA   $F9
         CLC
         ADC   #$0002
         STA   $F9
         BCC   LB1B1
         INC   $FB
LB1B1    LDA   $FD
         CLC
         ADC   #$0002
         STA   $FD
         BCC   LB1BD
         INC   $FF
LB1BD    DEC   $F7
         DEC   $F7
         BRA   LB198
LB1C3    LDA   $F7
         BEQ   LB1CF
         SEP   #$20
         LDA   [$FD]
         STA   [$F9]
         REP   #$20
LB1CF    LDX   $EC
         LDA   $EA
         STX   $FF
         STA   $FD
         TDC
         CLC
         ADC   #$00F1
         TCS
         PLD
         RTL

LB1DF    PHD
         TSC
         SEC
         SBC   #$00F7
         TCD
         ADC   #$00E8
         TCS
         LDAL  LA1CB
         CMP   #$0000
         BNE   LB1F7
         JSL   LB4D8
LB1F7    LDAL  LA1CB
         PHA
         LDA   #$0012
         SEC
         JSL   LA833
         PLY
         SEC
         SBC   #$0001
         STA   $F2
         LDA   [$FD]
         SEC
         SBC   #$0000
         BVS   LB216
         EOR   #$8000
LB216    BPL   LB21C
         LDA   [$FD]
         BRA   LB228
LB21C    LDA   [$FD]
         PHA
         LDA   #$FFFF
         PLX
         STX   $F4
         SEC
         SBC   $F4
LB228    SEC
         SBC   $F2
         BEQ   LB249
         BVS   LB232
         EOR   #$8000
LB232    BPL   LB249
         PEA   $0000
         PEA   $0016
         JSL   LB4AE
         PLY
         PLY
         LDX   #$0000
         LDA   #$0000
         BRL   LB433
LB249    LDA   [$FD]
         SEC
         SBC   #$0000
         BVS   LB254
         EOR   #$8000
LB254    BPL   LB29F
         LDA   [$FD]
         PHA
         LDA   #$0012
         CLC
         JSL   LA9A3
         LDAL  LA1CF
         TAX
         LDAL  LA1CD
         STA   $F4
         STX   $F6
         PLA
         TAY
         BPL   LB274
         DEC   $F6
LB274    CLC
         ADC   $F4
         STA   $F4
         BCC   LB27D
         INC   $F6
LB27D    LDA   $F4
         LDX   $F6
         STX   $F0
         STA   $EE
         LDA   [$EE]
         CMP   #$0000
         BNE   LB29C
         PEA   $0000
         PEA   $0009
         JSL   LB4AE
         PLY
         PLY
         STZ   $EE
         STZ   $F0
LB29C    BRL   LB42F
LB29F    LDA   [$FD]
         PHA
         LDA   #$FFFF
         PLX
         STX   $F4
         SEC
         SBC   $F4
         PHA
         LDA   #$0012
         CLC
         JSL   LA9A3
         LDAL  LA1CF
         TAX
         LDAL  LA1CD
         STA   $F4
         STX   $F6
         PLA
         TAY
         BPL   LB2C7
         DEC   $F6
LB2C7    CLC
         ADC   $F4
         STA   $F4
         BCC   LB2D0
         INC   $F6
LB2D0    LDA   $F4
         LDX   $F6
         STX   $F0
         STA   $EE
         BRA   LB2EF
LB2DA    LDA   [$EE]
         CMP   #$0000
         BNE   LB2E3
         BRA   LB32B
LB2E3    LDA   $EE
         CLC
         ADC   #$0012
         STA   $EE
         BCC   LB2EF
         INC   $F0
LB2EF    LDA   $F2
         PHA
         LDA   #$0012
         CLC
         JSL   LA9A3
         LDAL  LA1CF
         TAX
         LDAL  LA1CD
         STA   $F4
         STX   $F6
         PLA
         TAY
         BPL   LB30D
         DEC   $F6
LB30D    CLC
         ADC   $F4
         STA   $F4
         BCC   LB316
         INC   $F6
LB316    LDA   $F4
         LDX   $F6
         PHX
         PHA
         LDX   $F0
         LDA   $EE
         JSL   LB15A
         BVS   LB329
         EOR   #$8000
LB329    BMI   LB2DA
LB32B    LDA   $F2
         PHA
         LDA   #$0012
         CLC
         JSL   LA9A3
         LDAL  LA1CF
         TAX
         LDAL  LA1CD
         STA   $F4
         STX   $F6
         PLA
         TAY
         BPL   LB349
         DEC   $F6
LB349    CLC
         ADC   $F4
         STA   $F4
         BCC   LB352
         INC   $F6
LB352    LDA   $F4
         LDX   $F6
         PHX
         PHA
         LDX   $F0
         LDA   $EE
         JSL   LB15A
         BVS   LB365
         EOR   #$8000
LB365    BPL   LB36A
         BRL   LB405
LB36A    LDAL  LA1CB
         CLC
         ADC   #$00B4
         LDX   #$0000
         TAY
         BPL   LB379
         DEX
LB379    PHX
         PHA
         LDAL  LA1CF
         TAX
         LDAL  LA1CD
         PHX
         PHA
         JSL   LC1AA
         PLY
         PLY
         PLY
         PLY
         STX   $EC
         STA   $EA
         LDX   #$0000
         LDA   #$0000
         PHX
         PHA
         LDX   $EC
         LDA   $EA
         JSL   LB15A
         BNE   LB3B9
         PEA   $0000
         PEA   $0018
         JSL   LB4AE
         PLY
         PLY
         LDX   #$0000
         LDA   #$0000
         BRL   LB433
LB3B9    LDA   $F2
         PHA
         LDA   #$0012
         CLC
         JSL   LA9A3
         LDX   $EC
         LDA   $EA
         STA   $F4
         STX   $F6
         PLA
         TAY
         BPL   LB3D2
         DEC   $F6
LB3D2    CLC
         ADC   $F4
         STA   $F4
         BCC   LB3DB
         INC   $F6
LB3DB    LDX   $F6
         LDA   #$0012
         CLC
         ADC   $F4
         BCC   LB3E6
         INX
LB3E6    STX   $F0
         STA   $EE
         LDAL  LA1CB
         CLC
         ADC   #$00B4
         STAL  LA1CB
         LDX   $EC
         LDA   $EA
         PHA
         TXA
         STAL  LA1CF
         PLA
         STAL  LA1CD
LB405    LDAL  LA1CF
         TAX
         LDAL  LA1CD
         STA   $F4
         STX   $F6
         LDA   $F4
         LDX   $F6
         PHX
         PHA
         LDX   $F0
         LDA   $EE
         JSL   LA998
         LDX   #$0000
         LDA   #$0012
         SEC
         JSL   LA8A2
         PLY
         PLY
         STA   [$FD]
LB42F    LDX   $F0
         LDA   $EE
LB433    TAY
         TDC
         CLC
         ADC   #$00F7
         TCS
         TYA
         PLD
         RTL

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

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

LB479    DW    $0000
LB47B    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   LB4AB
         INC
LB4AB    PHX
         PLD
         RTL

LB4AE    PHD
         TSC
         SEC
         SBC   #$00F7
         TCD
         ADC   #$00F2
         TCS
         LDA   $FF
         CMP   #$0000
         BNE   LB4C4
         LDA   $FD
         BRA   LB4CB
LB4C4    PEI   $FF
         JSL   LBEAB
         PLY
LB4CB    STA   LB8B4
         TAY
         TDC
         CLC
         ADC   #$00F7
         TCS
         TYA
         PLD
         RTL

LB4D8    PHD
         TSC
         SEC
         SBC   #$00FB
         TCD
         ADC   #$00F0
         TCS
         LDA   #$00B4
         STAL  LA1CB
         PEA   $0000
         PEA   $00B4
         PEA   $0000
         PEA   $0000
         JSL   LC1AA
         PLY
         PLY
         PLY
         PLY
         PHA
         TXA
         STAL  LA1CF
         PLA
         STAL  LA1CD
         LDX   #$0000
         LDA   #$0000
         PHX
         PHA
         LDAL  LA1D7
         TAX
         LDAL  LA1D5
         JSL   LB15A
         BNE   LB523
         BRL   LB5E3
LB523    LDAL  LA1D7
         TAX
         LDAL  LA1D5
         STA   $F8
         STX   $FA
         LDY   #$001A
         LDA   [$F8],Y
         TAX
         LDY   #$0018
         LDA   [$F8],Y
         PHX
         PHA
         LDAL  LA1CF
         TAX
         LDAL  LA1CD
         PHX
         PHA
         PEA   $0000
         PEA   $0036
         _BlockMove
         STAL  L013C
         LDAL  LA1CF
         TAX
         LDAL  LA1CD
         STA   $F8
         STX   $FA
         LDA   $F8
         LDX   $FA
         STX   $F6
         STA   $F4
         BRA   LB5B7
LB570    LDA   [$F4]
         CMP   #$0000
         BEQ   LB5AB
         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   LAE98
         PLY
         PLY
         PLY
         PLY
LB5AB    LDA   $F4
         CLC
         ADC   #$0012
         STA   $F4
         BCC   LB5B7
         INC   $F6
LB5B7    LDAL  LA1CF
         TAX
         LDAL  LA1CD
         STA   $F8
         STX   $FA
         LDX   $FA
         LDA   #$0024
         CLC
         ADC   $F8
         BCC   LB5CF
         INX
LB5CF    PHX
         PHA
         LDX   $F6
         LDA   $F4
         JSL   LB15A
         BVS   LB5DE
         EOR   #$8000
LB5DE    BMI   LB570
         BRL   LB7B1
LB5E3    PEA   $0000
         PEA   ^LBCE1
         PEA   LBCE1
         JSL   LAEA0
         PLY
         PLY
         PLY
         STA   $F2
         PEA   $0000
         TDC
         CLC
         ADC   #$00F2
         PHA
         JSL   LB1DF
         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   ^LBCEA
         PEA   LBCEA
         JSL   LAEA0
         PLY
         PLY
         PLY
         STA   $F2
         PEA   $0000
         TDC
         CLC
         ADC   #$00F2
         PHA
         JSL   LB1DF
         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   ^LBCF3
         PEA   LBCF3
         JSL   LAEA0
         PLY
         PLY
         PLY
         STA   $F2
         PEA   $0000
         TDC
         CLC
         ADC   #$00F2
         PHA
         JSL   LB1DF
         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
LB7B1    LDA   #LBA9B
         LDX   #^LBA9B
         PHX
         PHA
         LDAL  LA1C7+2
         TAX
         LDAL  LA1C7
         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  LA1C5
         TAX
         LDAL  LA1C3
         JSL   LB15A
         BNE   LB7FD
         LDA   #LC164
         LDX   #^LC164
         PHA
         TXA
         STAL  LA1C5
         PLA
         STAL  LA1C3
LB7FD    TAY
         TDC
         CLC
         ADC   #$00FB
         TCS
         TYA
         PLD
         RTL

LB807    PHD
         TSC
         SEC
         SBC   #$00F9
         TCD
         ADC   #$00EE
         TCS
         LDA   $FF
         SEC
         SBC   #$0000
         BVS   LB81D
         EOR   #$8000
LB81D    BMI   LB830
         PEA   $0000
         PEA   $0016
         JSL   LB4AE
         PLY
         PLY
         LDA   #$FFFF
         BRA   LB8AA
LB830    PEA   $0000
         TDC
         CLC
         ADC   #$00FF
         PHA
         JSL   LB1DF
         PLY
         PLY
         STX   $F4
         STA   $F2
         LDX   #$0000
         LDA   #$0000
         PHX
         PHA
         LDX   $F4
         LDA   $F2
         JSL   LB15A
         BNE   LB85A
         LDA   #$FFFF
         BRA   LB8AA
LB85A    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   LAE98
         PLY
         PLY
         STA   $F0
         LDA   #$0000
         STA   [$F2]
         LDA   $F0
         CMP   #$0000
         BEQ   LB8A7
         LDY   #$0002
         LDA   [$F2],Y
         PHA
         PEI   $F0
         JSL   LB4AE
         PLY
         PLY
         LDA   #$FFFF
         BRA   LB8AA
LB8A7    LDA   #$0000
LB8AA    TAY
         TDC
         CLC
         ADC   #$00F9
         TCS
         TYA
         PLD
         RTL

LB8B4    DW    $0000
LB8B6    PHD
         TSC
         SEC
         SBC   #$00ED
         TCD
         ADC   #$00E0
         TCS
         LDA   [$F7]
         AND   #$00FF
         CMP   #$0000
         BEQ   LB8D0
         LDA   #$0000
         BRA   LB8D3
LB8D0    LDA   #$0001
LB8D3    PHA
         LDX   #$0000
         LDA   #$0000
         PHX
         PHA
         LDX   $F9
         LDA   $F7
         JSL   LB15A
         BEQ   LB8EB
         LDA   #$0000
         BRA   LB8EE
LB8EB    LDA   #$0001
LB8EE    PLX
         STX   $EA
         ORA   $EA
         TAY
         BEQ   LB908
         PEA   $0000
         PEA   $0016
         JSL   LB4AE
         PLY
         PLY
         LDA   #$FFFF
         BRL   LBA91
LB908    LDX   #$0000
         LDA   #$0000
         PHX
         PHA
         LDAL  LA1D3
         TAX
         LDAL  LA1D1
         JSL   LB15A
         BNE   LB930
         LDA   #LC369
         LDX   #^LC369
         PHA
         TXA
         STAL  LA1D3
         PLA
         STAL  LA1D1
LB930    LDAL  LA1D3
         TAX
         LDAL  LA1D1
         STA   $EA
         STX   $EC
         LDA   $EA
         LDX   $EC
         STX   $E4
         STA   $E2
         BRA   LB96E
LB947    LDX   #$0000
         LDA   #$0000
         PHX
         PHA
         LDY   #$0006
         LDA   [$E2],Y
         TAX
         LDY   #$0004
         LDA   [$E2],Y
         JSL   LB15A
         BNE   LB962
         BRA   LB999
LB962    LDA   $E2
         CLC
         ADC   #$0018
         STA   $E2
         BCC   LB96E
         INC   $E4
LB96E    LDAL  LA1D3
         TAX
         LDAL  LA1D1
         STA   $EA
         STX   $EC
         LDX   $EC
         LDA   #$0078
         CLC
         ADC   $EA
         BCC   LB986
         INX
LB986    PHX
         PHA
         LDX   $E4
         LDA   $E2
         JSL   LB15A
         BEQ   LB999
         BVS   LB997
         EOR   #$8000
LB997    BMI   LB947
LB999    LDA   #$4006
         STA   $E8
LB99E    LDAL  LA1D3
         TAX
         LDAL  LA1D1
         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   LB15A
         BEQ   LB9D2
         BVS   LB9D0
         EOR   #$8000
LB9D0    BMI   LBA0B
LB9D2    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   LAE98
         PLY
         PLY
         PLY
         PLY
         PLY
         STA   $E8
         LDA   $E8
         SEC
         SBC   #$0000
         BVS   LBA05
         EOR   #$8000
LBA05    BPL   LBA09
         BRA   LBA0B
LBA09    BRA   LB99E
LBA0B    LDX   #$0000
         LDA   #$0000
         PHX
         PHA
         LDX   $F5
         LDA   $F3
         JSL   LB15A
         BEQ   LBA4F
         LDAL  LA1D3
         TAX
         LDAL  LA1D1
         STA   $EA
         STX   $EC
         LDA   $EA
         LDX   $EC
         PHX
         PHA
         LDX   $E4
         LDA   $E2
         JSL   LB15A
         BEQ   LBA41
         BVS   LBA3F
         EOR   #$8000
LBA3F    BMI   LBA4F
LBA41    LDX   $E4
         LDA   $E2
         LDY   #$0002
         PHA
         TXA
         STA   [$F3],Y
         PLA
         STA   [$F3]
LBA4F    LDA   $E8
         AND   #$4000
         CMP   #$0000
         BNE   LBA5D
         LDA   $E8
         BRA   LBA91
LBA5D    LDA   $E8
         STA   $E6
         LDA   $E6
         AND   #$8000
         TAY
         BEQ   LBA7B
         LDA   $E6
         AND   #$BFFF
         STA   $E6
         LDA   $E6
         AND   #$7FFF
         STA   $E6
         STZ   $E8
         BRA   LBA84
LBA7B    LDA   $E8
         AND   #$BFFF
         STA   $E8
         STZ   $E6
LBA84    PEI   $E6
         PEI   $E8
         JSL   LB4AE
         PLY
         PLY
         LDA   #$FFFF
LBA91    TAY
         TDC
         CLC
         ADC   #$00ED
         TCS
         TYA
         PLD
         RTL

LBA9B    PHD
         TSC
         SEC
         SBC   #$00F9
         TCD
         ADC   #$00F0
         TCS
         LDAL  LA1CB
         PHA
         LDA   #$0012
         SEC
         JSL   LA833
         PLY
         SEC
         SBC   #$0001
         STA   $F2
         STZ   $F4
         BRA   LBAC7
LBABE    PEI   $F4
         JSL   LB807
         PLY
         INC   $F4
LBAC7    LDA   $F4
         SEC
         SBC   $F2
         BEQ   LBABE
         BVS   LBAD3
         EOR   #$8000
LBAD3    BPL   LBABE
         TAY
         TDC
         CLC
         ADC   #$00F9
         TCS
         TYA
         PLD
         RTL

LBADF    PHD
         TSC
         SEC
         SBC   #$00F7
         TCD
         ADC   #$00EC
         TCS
         LDA   LB8B4
         STA   $F2
         LDA   L013C
         STA   $F0
         LDA   LC1A8
         BEQ   LBB08
         STZ   LC1A8
         PEA   ^LBCFC
         PEA   LBCFC
         JSL   LBFC0
         PLY
         PLY
LBB08    LDY   #$0010
         LDA   [$FD],Y
         AND   #$0004
         TAY
         BEQ   LBB31
         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   LBC62
LBB31    LDY   #$000E
         LDA   [$FD],Y
         CMP   #$0000
         BNE   LBB99
         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   LBB63
         LDA   #$0064
         LDY   #$000E
         STA   [$FD],Y
         BRA   LBB99
LBB63    PEA   $0000
         TDC
         CLC
         ADC   #$00EE
         PHA
         PEA   $6603
         LDY   #$0012
         LDA   [$FD],Y
         PHA
         JSL   L9BC2
         PLY
         PLY
         PLY
         PLY
         SEC
         SBC   #$0000
         BVS   LBB86
         EOR   #$8000
LBB86    BPL   LBB91
         LDA   $EE
         LDY   #$000E
         STA   [$FD],Y
         BRA   LBB99
LBB91    LDA   #$0400
         LDY   #$000E
         STA   [$FD],Y
LBB99    LDX   #$0000
         LDA   #$0000
         PHX
         PHA
         LDY   #$0008
         LDA   [$FD],Y
         TAX
         LDY   #$0006
         LDA   [$FD],Y
         JSL   LB15A
         BEQ   LBBB5
         BRL   LBC62
LBBB5    LDY   #$000E
         LDA   [$FD],Y
         LDX   #$0000
         PHX
         PHA
         JSL   LA50A
         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   LB15A
         BNE   LBC2D
         LDY   #$000E
         LDA   [$FD],Y
         CMP   #$0064
         BEQ   LBC2D
         BCC   LBC2D
         LDY   #$000E
         LDA   [$FD],Y
         CMP   #$0400
         BEQ   LBC08
         BCC   LBC08
         LDA   #$0400
         BRA   LBC0B
LBC08    LDA   #$0064
LBC0B    LDY   #$000E
         STA   [$FD],Y
         LDY   #$000E
         LDA   [$FD],Y
         LDX   #$0000
         PHX
         PHA
         JSL   LA50A
         PLY
         PLY
         LDY   #$0008
         PHA
         TXA
         STA   [$FD],Y
         PLA
         LDY   #$0006
         STA   [$FD],Y
LBC2D    LDX   #$0000
         LDA   #$0000
         PHX
         PHA
         LDY   #$0008
         LDA   [$FD],Y
         TAX
         LDY   #$0006
         LDA   [$FD],Y
         JSL   LB15A
         BEQ   LBC55
         LDY   #$0010
         LDA   [$FD],Y
         ORA   #$0008
         LDY   #$0010
         STA   [$FD],Y
         BRA   LBC62
LBC55    LDY   #$0010
         LDA   [$FD],Y
         ORA   #$0004
         LDY   #$0010
         STA   [$FD],Y
LBC62    LDY   #$000E
         LDA   [$FD],Y
         LDX   #$0000
         PHX
         PHA
         LDY   #$0008
         LDA   [$FD],Y
         TAX
         LDY   #$0006
         LDA   [$FD],Y
         JSL   LA64E
         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   L9BC2
         PLY
         PLY
         PLY
         SEC
         SBC   #$0000
         BVS   LBCBE
         EOR   #$8000
LBCBE    BPL   LBCCD
         LDY   #$0010
         LDA   [$FD],Y
         ORA   #$0100
         LDY   #$0010
         STA   [$FD],Y
LBCCD    LDA   $F2
         STA   LB8B4
         LDA   $F0
         STA   L013C
         TAY
         TDC
         CLC
         ADC   #$00F7
         TCS
         TYA
         PLD
         RTL

LBCE1    ASC   '.console'00
LBCEA    ASC   '.console'00
LBCF3    ASC   '.console'00
LBCFC    PHD
         TSC
         SEC
         SBC   #$00FB
         TCD
         ADC   #$00F2
         TCS
         LDA   #LAA6F
         LDX   #^LAA6F
         STX   $F6
         STA   $F4
         BRA   LBD29
LBD13    PEI   $F6
         PEI   $F4
         JSL   LA659
         PLY
         PLY
         LDA   $F4
         CLC
         ADC   #$0014
         STA   $F4
         BCC   LBD29
         INC   $F6
LBD29    SEC
         LDA   $F4
         SBC   LA434
         BNE   LBD38
         LDA   $F6
         SBC   LA434+2
         BRA   LBD3F
LBD38    LDA   $F6
         SBC   LA434+2
         REP   #$02
LBD3F    BVS   LBD44
         EOR   #$8000
LBD44    BPL   LBD13
         TAY
         TDC
         CLC
         ADC   #$00FB
         TCS
         TYA
         PLD
         RTL

LBD50    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   LA998
         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   LBDA0
         LDA   #$0000
         BRA   LBDA5
LBDA0    LDY   #$000E
         LDA   [$FD],Y
LBDA5    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   LA998
         PLA
         PLX
         PHA
         LDA   [$FD]
         SEC
         SBC   #$0000
         BVS   LBDD1
         EOR   #$8000
LBDD1    BMI   LBDD8
         LDA   #$0000
         BRA   LBDDA
LBDD8    LDA   [$FD]
LBDDA    PLX
         STX   $F4
         SEC
         SBC   $F4
         BEQ   LBDF3
         BVS   LBDE7
         EOR   #$8000
LBDE7    BPL   LBDF3
         PEI   $FF
         PEI   $FD
         JSL   LA438
         PLY
         PLY
LBDF3    LDA   $EE
         SEC
         SBC   #$0000
         BEQ   LBE2D
         BVS   LBE00
         EOR   #$8000
LBE00    BPL   LBE2D
         LDA   $EE
         PHA
         PEI   $F2
         PEI   $F0
         LDY   #$0012
         LDA   [$FD],Y
         PHA
         JSL   LC3F9
         PLY
         PLY
         PLY
         PLY
         CMP   $EE
         BEQ   LBE2D
         LDY   #$0010
         LDA   [$FD],Y
         ORA   #$0020
         LDY   #$0010
         STA   [$FD],Y
         LDA   #$FFFF
         BRA   LBE30
LBE2D    LDA   #$0000
LBE30    TAY
         TDC
         CLC
         ADC   #$00F7
         TCS
         TYA
         PLD
         RTL

LBE3A    PHD
         TSC
         SEC
         SBC   #$00F7
         TCD
         ADC   #$00EC
         TCS
         LDX   $FF
         LDA   $FD
         STX   $F4
         ORA   $F4
         BEQ   LBEA3
         LDX   $FF
         LDA   $FD
         INC   $FD
         BNE   LBE59
         INC   $FF
LBE59    STX   $F0
         STA   $EE
         STA   $F4
         STX   $F6
         LDA   [$F4]
         AND   #$00FF
         STA   $F2
         BRA   LBE93
LBE6A    LDX   $FF
         LDA   $FD
         INC   $FD
         BNE   LBE74
         INC   $FF
LBE74    STA   $F4
         STX   $F6
         LDA   [$F4]
         AND   #$00FF
         PHA
         LDX   $F0
         LDA   $EE
         INC   $EE
         BNE   LBE88
         INC   $F0
LBE88    STA   $F4
         STX   $F6
         PLA
         SEP   #$20
         STA   [$F4]
         REP   #$20
LBE93    LDA   $F2
         DEC   $F2
         TAY
         BNE   LBE6A
         LDA   #$0000
         SEP   #$20
         STA   [$EE]
         REP   #$20
LBEA3    TDC
         CLC
         ADC   #$00F7
         TCS
         PLD
         RTL

LBEAB    PHD
         TSC
         SEC
         SBC   #$00F9
         TCD
         ADC   #$00F2
         TCS
         STZ   $F4
         LDA   $FF
         BRL   LBFA1
LBEBD    BRL   LBFB4
LBEC0    LDA   #$0014
         STA   $F4
         BRL   LBFB4
LBEC8    LDA   #$000E
         STA   $F4
         BRL   LBFB4
LBED0    LDA   #$001C
         STA   $F4
         BRL   LBFB4
LBED8    LDA   #$0011
         STA   $F4
         BRL   LBFB4
LBEE0    LDA   #$0006
         STA   $F4
         BRL   LBFB4
LBEE8    LDA   #$0006
         STA   $F4
         BRL   LBFB4
LBEF0    LDA   #$0010
         STA   $F4
         BRL   LBFB4
LBEF8    LDA   #$0002
         STA   $F4
         BRL   LBFB4
LBF00    LDA   #$0009
         STA   $F4
         BRL   LBFB4
LBF08    LDA   #$0005
         STA   $F4
         BRL   LBFB4
LBF10    LDA   #$0017
         STA   $F4
         BRL   LBFB4
LBF18    LDA   #$000C
         STA   $F4
         BRL   LBFB4
LBF20    LDA   #$001A
         STA   $F4
         BRL   LBFB4
LBF28    LDA   #$0016
         STA   $F4
         BRL   LBFB4
LBF30    LDA   #$000D
         STA   $F4
         BRL   LBFB4
LBF38    LDA   #$001E
         STA   $F4
         BRL   LBFB4
         BRL   LBFB4
LBF43    DA    LBEBD
         DA    LBF08
         DA    LBF38
         DA    LBEC8
         DA    LBF10
         DA    LBF00
         DA    LBEF8
         DA    LBEE8
         DA    LBEF8
         DA    LBED8
         DA    LBED0
         DA    LBED0
         DA    LBEC0
         DA    LBEE0
         DA    LBEE8
         DA    LBF30
         DA    LBF20
         DA    LBEC0
         DA    LBF28
         DA    LBF18
         DA    LBEF0
         DA    LBEE8
         DA    LBEE8
         DA    LBEBD
LBF73    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
LBFA1    TAX
         PEA   ^LBF73
         PEA   LBF73
         LDA   #$002C
         JSL   LCEA6
         PLA
         PLA
         JMP   (LBF43,X)

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

LBFC0    PHD
         TSC
         SEC
         SBC   #$00F7
         TCD
         ADC   #$00EE
         TCS
         LDX   #$0000
         LDA   #$0000
         PHX
         PHA
         LDAL  LA1C5
         TAX
         LDAL  LA1C3
         JSL   LB15A
         BNE   LBFF3
         LDA   #LC164
         LDX   #^LC164
         PHA
         TXA
         STAL  LA1C5
         PLA
         STAL  LA1C3
LBFF3    LDAL  LA1C7+2
         TAX
         LDAL  LA1C7
         STA   $F4
         STX   $F6
         LDX   $F6
         LDA   #$0010
         CLC
         ADC   $F4
         BCC   LC00B
         INX
LC00B    STX   $F2
         STA   $F0
         BRA   LC046
LC011    LDX   #$0000
         LDA   #$0000
         PHX
         PHA
         LDY   #$0002
         LDA   [$F0],Y
         TAX
         LDA   [$F0]
         JSL   LB15A
         BNE   LC03A
         LDX   $FF
         LDA   $FD
         LDY   #$0002
         PHA
         TXA
         STA   [$F0],Y
         PLA
         STA   [$F0]
         LDA   #$0000
         BRA   LC074
LC03A    LDA   $F0
         CLC
         ADC   #$0004
         STA   $F0
         BCC   LC046
         INC   $F2
LC046    LDAL  LA1C7+2
         TAX
         LDAL  LA1C7
         STA   $F4
         STX   $F6
         LDX   $F6
         LDA   #$0028
         CLC
         ADC   $F4
         BCC   LC05E
         INX
LC05E    PHX
         PHA
         LDX   $F2
         LDA   $F0
         JSL   LB15A
         BEQ   LC071
         BVS   LC06F
         EOR   #$8000
LC06F    BMI   LC011
LC071    LDA   #$0001
LC074    TAY
         TDC
         CLC
         ADC   #$00F7
         TCS
         TYA
         PLD
         RTL

LC07E    PHD
         TSC
         SEC
         SBC   #$00F3
         TCD
         ADC   #$00E8
         TCS
         LDA   $F9
         SEC
         SBC   #$0000
         BVS   LC094
         EOR   #$8000
LC094    BMI   LC0A8
         PEA   $0000
         PEA   $0016
         JSL   LB4AE
         PLY
         PLY
         LDA   #$FFFF
         BRL   LC15A
LC0A8    PEA   $0000
         TDC
         CLC
         ADC   #$00F9
         PHA
         JSL   LB1DF
         PLY
         PLY
         STX   $EE
         STA   $EC
         LDX   #$0000
         LDA   #$0000
         PHX
         PHA
         LDX   $EE
         LDA   $EC
         JSL   LB15A
         BNE   LC0D3
         LDA   #$FFFF
         BRL   LC15A
LC0D3    LDA   [$EC]
         AND   #$0001
         TAY
         BNE   LC0EC
         PEA   $0000
         PEA   $0009
         JSL   LB4AE
         PLY
         PLY
         LDA   #$FFFF
         BRA   LC15A
LC0EC    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   LAE98
         PLY
         PLY
         STA   $EA
         LDA   $EA
         CMP   #$0000
         BEQ   LC14C
         LDY   #$0002
         LDA   [$EC],Y
         PHA
         PEI   $EA
         JSL   LB4AE
         PLY
         PLY
         LDA   #$FFFF
         BRA   LC15A
LC14C    LDY   #$000C
         LDA   [$EC],Y
         PHA
         LDA   $FF
         PLX
         STX   $F0
         SEC
         SBC   $F0
LC15A    TAY
         TDC
         CLC
         ADC   #$00F3
         TCS
         TYA
         PLD
         RTL

LC164    DW    $0000
         DW    $FFFF
         ADRL  LC94A
         ADRL  LC94A
         ADRL  LC94A
         ADRL  LC94A
         ADRL  LC94A
         ADRL  LC94A
         ADRL  LC94A
         ADRL  LC94A
         ADRL  LC94A
         ADRL  LC94A
         ADRL  LC94A
         ADRL  LC94A
         ADRL  LC94A
         ADRL  LC94A
         ADRL  LC94A
         ADRL  LC94A
LC1A8    DW    $0001
LC1AA    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   LB15A
         BEQ   LC24E
         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   LC20A
         LDA   $FF
         SBC   $EA
         BRA   LC210
LC20A    LDA   $FF
         SBC   $EA
         REP   #$02
LC210    BVS   LC215
         EOR   #$8000
LC215    BMI   LC23F
         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   LC35F
LC23F    PEI   $EE
         PEI   $EC
         _HUnlock
         STAL  L013C
LC24E    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   LC2A6
         LDX   #$0000
         LDA   #$0000
         PHX
         PHA
         LDX   $EE
         LDA   $EC
         JSL   LB15A
         BEQ   LC29D
         PEI   $EE
         PEI   $EC
         _HLock
         STAL  L013C
LC29D    LDX   #$0000
         LDA   #$0000
         BRL   LC35F
LC2A6    PEI   $E6
         PEI   $E4
         _HLock
         STAL  L013C
         LDX   #$0000
         LDA   #$0000
         PHX
         PHA
         LDX   $FB
         LDA   $F9
         JSL   LB15A
         BEQ   LC2F9
         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
LC2F9    LDX   $EA
         LDA   $E8
         PHX
         PHA
         LDY   #$0002
         LDA   [$E4],Y
         TAX
         LDA   [$E4]
         JSL   LA64E
         PLA
         PLX
         STX   $E2
         STA   $E0
LC311    LDX   $FF
         LDA   $FD
         PHX
         PHA
         LDY   #$0002
         LDA   [$E4],Y
         TAX
         LDA   [$E4]
         JSL   LA64E
         LDX   $E2
         LDA   $E0
         JSL   LB15A
         BEQ   LC34D
         BVS   LC332
         EOR   #$8000
LC332    BPL   LC34D
         LDX   $E2
         LDA   $E0
         INC   $E0
         BNE   LC33E
         INC   $E2
LC33E    STA   $F0
         STX   $F2
         LDA   #$0000
         SEP   #$20
         STA   [$F0]
         REP   #$20
         BRA   LC311
LC34D    LDY   #$0002
         LDA   [$E4],Y
         TAX
         LDA   [$E4]
         AND   #$FFFF
         PHA
         TXA
         AND   #$00FF
         TAX
         PLA
LC35F    TAY
         TDC
         CLC
         ADC   #$00F3
         TCS
         TYA
         PLD
         RTL

LC369    ASC   'SYSF'
         ADRL  LD1A5
         ADRL  LC4F7
         ADRL  LCFF0
         ADRL  LCB21
         ADRL  LC5A2
         ASC   'SNOC'
         ADRL  LD146
         ADRL  LC3E1
         ADRL  LCEFB
         ADRL  LC9C2
         ADRL  LC4DF
         ASC   'TSYS'
         ADRL  LD32B
         ADRL  LCB09
         ADRL  LD12E
         ADRL  LCE5A
         ADRL  LCCEF
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
LC3E1    PHD
         TSC
         SEC
         SBC   #$00FB
         TCD
         ADC   #$00F6
         TCS
         LDA   #$0000
         TAY
         TDC
         CLC
         ADC   #$00FB
         TCS
         TYA
         PLD
         RTL

LC3F9    PHD
         TSC
         SEC
         SBC   #$00F3
         TCD
         ADC   #$00E8
         TCS
         LDA   $F9
         SEC
         SBC   #$0000
         BVS   LC40F
         EOR   #$8000
LC40F    BMI   LC423
         PEA   $0000
         PEA   $0016
         JSL   LB4AE
         PLY
         PLY
         LDA   #$FFFF
         BRL   LC4D5
LC423    PEA   $0000
         TDC
         CLC
         ADC   #$00F9
         PHA
         JSL   LB1DF
         PLY
         PLY
         STX   $EE
         STA   $EC
         LDX   #$0000
         LDA   #$0000
         PHX
         PHA
         LDX   $EE
         LDA   $EC
         JSL   LB15A
         BNE   LC44E
         LDA   #$FFFF
         BRL   LC4D5
LC44E    LDA   [$EC]
         AND   #$0002
         TAY
         BNE   LC467
         PEA   $0000
         PEA   $0009
         JSL   LB4AE
         PLY
         PLY
         LDA   #$FFFF
         BRA   LC4D5
LC467    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   LAE98
         PLY
         PLY
         STA   $EA
         LDA   $EA
         CMP   #$0000
         BEQ   LC4C7
         LDY   #$0002
         LDA   [$EC],Y
         PHA
         PEI   $EA
         JSL   LB4AE
         PLY
         PLY
         LDA   #$FFFF
         BRA   LC4D5
LC4C7    LDY   #$000C
         LDA   [$EC],Y
         PHA
         LDA   $FF
         PLX
         STX   $F0
         SEC
         SBC   $F0
LC4D5    TAY
         TDC
         CLC
         ADC   #$00F3
         TCS
         TYA
         PLD
         RTL

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

LC4F7    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   LC52F
         BVS   LC52D
         EOR   #$8000
LC52D    BMI   LC588
LC52F    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  LAFB1
         PEA   $0014
         PEA   ^LAFB1
         PEA   LAFB1
         JSL   LAE5A
         LDA   L013C
         CMP   #$0000
         BEQ   LC570
         LDA   L013C
         LDY   #$0002
         STA   [$FD],Y
LC570    LDY   #$000A
         LDA   [$FD],Y
         TAX
         LDY   #$0008
         LDA   [$FD],Y
         PHX
         PHA
         _DisposeHandle
         STAL  L013C
LC588    LDA   L013C
         CMP   #$0000
         BNE   LC595
         LDA   #$0000
         BRA   LC598
LC595    LDA   #$0009
LC598    TAY
         TDC
         CLC
         ADC   #$00F7
         TCS
         TYA
         PLD
         RTL

LC5A2    PHD
         TSC
         SEC
         SBC   #$00F1
         TCD
         ADC   #$00E8
         TCS
         LDA   $FB
         BRL   LC90F
LC5B2    LDA   #$0000
         LDY   #$0002
         STA   [$F7],Y
         LDA   #$0016
         BRL   LC940
LC5C0    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  LAFC5
         PEA   $0019
         PEA   ^LAFC5
         PEA   LAFC5
         JSL   LAE5A
         LDA   L013C
         CMP   #$0000
         BEQ   LC603
         LDA   #$001D
         BRL   LC940
LC603    LDA   $EC
         STAL  LAFBF
         LDA   [$FD]
         BRL   LC6AC
LC60E    LDY   #$0004
         LDA   [$FD],Y
         TAX
         LDY   #$0002
         LDA   [$FD],Y
         PHA
         TXA
         STAL  LAFC3
         PLA
         STAL  LAFC1
         BRL   LC6B9
LC627    PEA   $0017
         PEA   ^LAFBF
         PEA   LAFBF
         JSL   LAE5A
         LDA   L013C
         CMP   #$0000
         BEQ   LC63F
         BRL   LC6B9
LC63F    LDY   #$0004
         LDA   [$FD],Y
         TAX
         LDY   #$0002
         LDA   [$FD],Y
         PHX
         PHA
         LDAL  LAFC3
         TAX
         LDAL  LAFC1
         JSL   LA64E
         PLA
         PLX
         PHA
         TXA
         STAL  LAFC3
         PLA
         STAL  LAFC1
         BRL   LC6B9
LC669    LDY   #$0004
         LDA   [$FD],Y
         TAX
         LDY   #$0002
         LDA   [$FD],Y
         PHX
         PHA
         LDAL  LAFC9
         TAX
         LDAL  LAFC7
         JSL   LA64E
         PLA
         PLX
         PHA
         TXA
         STAL  LAFC3
         PLA
         STAL  LAFC1
         BRL   LC6B9
LC693    LDA   #$0000
         LDY   #$0002
         STA   [$F7],Y
         LDA   #$0016
         BRL   LC940
         BRL   LC6B9
LC6A4    DA    LC60E
         DA    LC627
         DA    LC669
         DA    LC693
LC6AC    CMP   #$0003
         BCC   LC6B4
         LDA   #$0003
LC6B4    ASL
         TAX
         JMP   (LC6A4,X)

LC6B9    LDA   L013C
         CMP   #$0000
         BEQ   LC6CB
         LDA   [$FD]
         CMP   #$0000
         BEQ   LC6CB
         BRL   LC75D
LC6CB    SEC
         LDAL  LAFC1
         SBCL  LAFC7
         BNE   LC6E0
         LDAL  LAFC3
         SBCL  LAFC9
         BRA   LC6EA
LC6E0    LDAL  LAFC3
         SBCL  LAFC9
         REP   #$02
LC6EA    BNE   LC6EF
         BRL   LC750
LC6EF    BVS   LC6F4
         EOR   #$8000
LC6F4    BMI   LC6F9
         BRL   LC750
LC6F9    LDA   [$FD]
         CMP   #$0002
         BEQ   LC721
         LDA   $EC
         STAL  LAFC5
         PEA   $0019
         PEA   ^LAFC5
         PEA   LAFC5
         JSL   LAE5A
         LDA   L013C
         CMP   #$0000
         BEQ   LC721
         LDA   #$001D
         BRL   LC940
LC721    LDAL  LAFC3
         TAX
         LDAL  LAFC1
         PHA
         TXA
         STAL  LAFC9
         PLA
         STAL  LAFC7
         PEA   $0018
         PEA   ^LAFC5
         PEA   LAFC5
         JSL   LAE5A
         LDA   L013C
         CMP   #$0000
         BEQ   LC750
         LDA   #$001D
         BRL   LC940
LC750    PEA   $0016
         PEA   ^LAFBF
         PEA   LAFBF
         JSL   LAE5A
LC75D    LDA   L013C
         CMP   #$0000
         BEQ   LC773
         LDA   L013C
         LDY   #$0002
         STA   [$F7],Y
         LDA   #$001D
         BRL   LC940
LC773    LDAL  LAFC3
         TAX
         LDAL  LAFC1
         LDY   #$0004
         PHA
         TXA
         STA   [$FD],Y
         PLA
         LDY   #$0002
         STA   [$FD],Y
         BRL   LC920
LC78C    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   LC920
LC7AF    LDA   #$0000
         LDY   #$0002
         STA   [$F7],Y
         LDA   #$0016
         BRL   LC940
LC7BD    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   LC920
LC7E2    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  LAFC5
         PEA   $0019
         PEA   ^LAFC5
         PEA   LAFC5
         JSL   LAE5A
         LDAL  LAFC9
         TAX
         LDAL  LAFC7
         LDY   #$0002
         PHA
         TXA
         STA   [$FD],Y
         PLA
         STA   [$FD]
         BRL   LC920
LC829    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  LAFC5
         LDX   $FF
         LDA   $FD
         PHA
         TXA
         STAL  LAFC9
         PLA
         STAL  LAFC7
         PEA   $0018
         PEA   ^LAFC5
         PEA   LAFC5
         JSL   LAE5A
         BRL   LC920
LC86C    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  LAFBF
         PEA   $0017
         PEA   ^LAFBF
         PEA   LAFBF
         JSL   LAE5A
         LDAL  LAFC3
         TAX
         LDAL  LAFC1
         LDY   #$0002
         PHA
         TXA
         STA   [$FD],Y
         PLA
         STA   [$FD]
         BRL   LC920
LC8B3    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  LAFBF
         LDX   $FF
         LDA   $FD
         PHA
         TXA
         STAL  LAFC3
         PLA
         STAL  LAFC1
         PEA   $0016
         PEA   ^LAFBF
         PEA   LAFBF
         JSL   LAE5A
         BRL   LC920
         BRL   LC920
LC8F9    DA    LC5C0
         DA    LC78C
         DA    LC5B2
         DA    LC7AF
         DA    LC5B2
         DA    LC7BD
         DA    LC829
         DA    LC7E2
         DA    LC8B3
         DA    LC86C
         DA    LC5B2
LC90F    SEC
         SBC   #$6600
         CMP   #$000A
         BCC   LC91B
         LDA   #$000A
LC91B    ASL
         TAX
         JMP   (LC8F9,X)

LC920    LDA   L013C
         CMP   #$0000
         BEQ   LC930
         LDA   L013C
         LDY   #$0002
         STA   [$F7],Y
LC930    LDA   L013C
         CMP   #$0000
         BNE   LC93D
         LDA   #$0000
         BRA   LC940
LC93D    LDA   #$0016
LC940    TAY
         TDC
         CLC
         ADC   #$00F1
         TCS
         TYA
         PLD
         RTL

LC94A    PHD
         TSC
         SEC
         SBC   #$00F5
         TCD
         ADC   #$00EE
         TCS
         LDX   #$0000
         LDA   #$0000
         PHX
         PHA
         LDAL  LA1C5
         TAX
         LDAL  LA1C3
         JSL   LB15A
         BNE   LC97D
         LDA   #LC164
         LDX   #^LC164
         PHA
         TXA
         STAL  LA1C5
         PLA
         STAL  LA1C3
LC97D    LDAL  LA1C5
         TAX
         LDAL  LA1C3
         STA   $F2
         STX   $F4
         LDA   #$0000
         LDY   #$0002
         STA   [$F2],Y
         LDA   #$0001
         STA   $F0
         BRA   LC9A0
LC999    LDA   $FB
         LSR
         STA   $FB
         INC   $F0
LC9A0    LDA   $FB
         AND   #$0001
         CMP   #$0000
         BEQ   LC999
         LDA   $F0
         PHA
         LDA   #$0018
         CLC
         JSL   LCEEC
         JSL   LADA8
         PLY
         TDC
         CLC
         ADC   #$00F5
         TCS
         PLD
         RTL

LC9C2    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   LCA5E
         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   LCA32
         DEC   $F6
LCA32    CLC
         ADC   $F4
         STA   $F4
         BCC   LCA3B
         INC   $F6
LCA3B    LDA   [$F4]
         AND   #$00FF
         CMP   #$000A
         BNE   LCA5C
         PEA   ^LCD56
         PEA   LCD56
         PEA   $0000
         PEA   $0001
         _ErrWriteBlock
         STAL  L013C
LCA5C    BRA   LCAC8
LCA5E    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   LCA9E
         DEC   $F6
LCA9E    CLC
         ADC   $F4
         STA   $F4
         BCC   LCAA7
         INC   $F6
LCAA7    LDA   [$F4]
         AND   #$00FF
         CMP   #$000A
         BNE   LCAC8
         PEA   ^LCD58
         PEA   LCD58
         PEA   $0000
         PEA   $0001
         _TextWriteBlock
         STAL  L013C
LCAC8    LDY   #$000C
         LDA   [$FD],Y
         LDX   #$0000
         TAY
         BPL   LCAD4
         DEX
LCAD4    PHX
         PHA
         LDY   #$0010
         LDA   [$FD],Y
         TAX
         LDY   #$000E
         LDA   [$FD],Y
         JSL   LA64E
         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

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

LCB21    PHD
         TSC
         SEC
         SBC   #$00F7
         TCD
         ADC   #$00EC
         TCS
         LDA   [$FD]
         AND   #$0008
         TAY
         BNE   LCB37
         BRL   LCBCE
LCB37    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  LAFC5
         PEA   $0019
         PEA   ^LAFC5
         PEA   LAFC5
         JSL   LAE5A
         LDA   L013C
         CMP   #$0000
         BEQ   LCB73
         BRL   LCBCE
LCB73    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  LAFBF
         LDAL  LAFC9
         TAX
         LDAL  LAFC7
         PHA
         TXA
         STAL  LAFC3
         PLA
         STAL  LAFC1
         PEA   $0016
         PEA   ^LAFBF
         PEA   LAFBF
         JSL   LAE5A
         LDA   L013C
         CMP   #$0000
         BEQ   LCBCE
         LDA   L013C
         LDY   #$0002
         STA   [$FD],Y
         LDA   #$001D
         BRL   LCCE5
LCBCE    LDA   [$FD]
         AND   #$0020
         TAY
         BNE   LCC1E
         LDY   #$000C
         LDA   [$FD],Y
         STA   $F2
         LDY   #$0010
         LDA   [$FD],Y
         TAX
         LDY   #$000E
         LDA   [$FD],Y
         STX   $F0
         STA   $EE
         BRA   LCC0F
LCBEE    LDA   [$EE]
         AND   #$00FF
         CMP   #$000A
         BNE   LCC01
         LDA   #$000D
         SEP   #$20
         STA   [$EE]
         REP   #$20
LCC01    LDA   $F2
         DEC   $F2
         LDX   $F0
         LDA   $EE
         INC   $EE
         BNE   LCC0F
         INC   $F0
LCC0F    LDA   $F2
         SEC
         SBC   #$0000
         BEQ   LCC1E
         BVS   LCC1C
         EOR   #$8000
LCC1C    BMI   LCBEE
LCC1E    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  LAFB1
         LDY   #$000C
         LDA   [$FD],Y
         LDX   #$0000
         TAY
         BPL   LCC4E
         DEX
LCC4E    PHA
         TXA
         STAL  LAFB9
         PLA
         STAL  LAFB7
         LDY   #$0010
         LDA   [$FD],Y
         TAX
         LDY   #$000E
         LDA   [$FD],Y
         PHA
         TXA
         STAL  LAFB5
         PLA
         STAL  LAFB3
         PEA   $0013
         PEA   ^LAFB1
         PEA   LAFB1
         JSL   LAE5A
         LDA   L013C
         CMP   #$0000
         BNE   LCCCD
         LDY   #$000C
         LDA   [$FD],Y
         LDX   #$0000
         TAY
         BPL   LCC90
         DEX
LCC90    SEC
         SBCL  LAFBB
         PHA
         TXA
         SBCL  LAFBD
         TAX
         PLA
         LDY   #$000C
         STA   [$FD],Y
         LDAL  LAFBD
         TAX
         LDAL  LAFBB
         PHX
         PHA
         LDY   #$0010
         LDA   [$FD],Y
         TAX
         LDY   #$000E
         LDA   [$FD],Y
         JSL   LA64E
         PLA
         PLX
         LDY   #$0010
         PHA
         TXA
         STA   [$FD],Y
         PLA
         LDY   #$000E
         STA   [$FD],Y
         BRA   LCCD5
LCCCD    LDA   L013C
         LDY   #$0002
         STA   [$FD],Y
LCCD5    LDA   L013C
         CMP   #$0000
         BNE   LCCE2
         LDA   #$0000
         BRA   LCCE5
LCCE2    LDA   #$0005
LCCE5    TAY
         TDC
         CLC
         ADC   #$00F7
         TCS
         TYA
         PLD
         RTL

LCCEF    PHD
         TSC
         SEC
         SBC   #$00F1
         TCD
         ADC   #$00EC
         TCS
         LDA   $FB
         BRL   LCD32
LCCFF    LDA   #$0000
         STA   [$FD]
         LDX   #$0000
         LDA   #$0000
         LDY   #$0004
         PHA
         TXA
         STA   [$FD],Y
         PLA
         LDY   #$0002
         STA   [$FD],Y
         LDA   #$0000
         BRL   LCD43
LCD1D    LDA   #$0000
         BRL   LCD43
LCD23    LDA   #$0016
         BRL   LCD43
         BRL   LCD43
LCD2C    DA    LCCFF
         DA    LCD1D
         DA    LCD23
LCD32    SEC
         SBC   #$6600
         CMP   #$0002
         BCC   LCD3E
         LDA   #$0002
LCD3E    ASL
         TAX
         JMP   (LCD2C,X)

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

LCD4D    ASC   '.console'00
LCD56    ASC   0D00
LCD58    ASC   0D00
LCD5A    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
LCE5A    PHD
         TSC
         SEC
         SBC   #$00F7
         TCD
         ADC   #$00F2
         TCS
         LDY   #$000C
         LDA   [$FD],Y
         LDX   #$0000
         TAY
         BPL   LCE71
         DEX
LCE71    PHX
         PHA
         LDY   #$0010
         LDA   [$FD],Y
         TAX
         LDY   #$000E
         LDA   [$FD],Y
         JSL   LA64E
         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

LCEA6    TAY
         PHB
         LDA   $06,S
         PHA
         PLB
         PLB
         PHY
         PHY
         PEA   $0000
         TXA
         CMP   ($0B,S),Y
         BEQ   LCEE6
         LDY   #$0000
         CMP   ($0B,S),Y
         BEQ   LCEE6
         BRA   LCEC3
LCEC0    TYA
         STA   $03,S
LCEC3    LDA   $03,S
         CMP   $01,S
         BEQ   LCEE1
         CLC
         ADC   $01,S
         LSR
         AND   #$00FE
         CMP   $01,S
         BEQ   LCEE1
         TAY
         TXA
         CMP   ($0B,S),Y
         BEQ   LCEE6
         BCC   LCEC0
         TYA
         STA   $01,S
         BRA   LCEC3
LCEE1    LDA   $05,S
         INC
         INC
         TAY
LCEE6    TYX
         PLA
         PLA
         PLA
         PLB
         RTL

LCEEC    CMP   #$0000
         BEQ   LCEFA
         TAX
         LDA   $04,S
LCEF4    ASL
         DEX
         BNE   LCEF4
         STA   $04,S
LCEFA    RTL

LCEFB    PHD
         TSC
         SEC
         SBC   #$00F7
         TCD
         ADC   #$00F2
         TCS
         LDA   LD325
         SEC
         SBC   #$0000
         BEQ   LCF16
         BVS   LCF14
         EOR   #$8000
LCF14    BMI   LCF35
LCF16    PEA   $0100
         PEA   ^LCD5A
         PEA   LCD5A
         JSL   LD4D5
         PLY
         PLY
         PLY
         STA   LD325
         LDA   #LCD5A
         LDX   #^LCD5A
         STX   LD329
         STA   LD327
LCF35    LDY   #$000C
         LDA   [$FD],Y
         SEC
         SBC   #$0000
         BNE   LCF43
         BRL   LCFE3
LCF43    BVS   LCF48
         EOR   #$8000
LCF48    BMI   LCF4D
         BRL   LCFE3
LCF4D    LDA   LD325
         SEC
         SBC   #$0000
         BNE   LCF59
         BRL   LCFE3
LCF59    BVS   LCF5E
         EOR   #$8000
LCF5E    BMI   LCF63
         BRL   LCFE3
LCF63    LDX   LD329
         LDA   LD327
         STA   $F4
         STX   $F6
         LDA   [$F4]
         AND   #$00FF
         CMP   #$0000
         BNE   LCF7A
         BRL   LCFE3
LCF7A    LDX   LD329
         LDA   LD327
         PHX
         PHA
         CLC
         ADC   #$0001
         STA   LD327
         LDA   LD329
         BCC   LCF8F
         INC
LCF8F    STA   LD329
         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   LCFBC
         INC
LCFBC    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   LD325
         DEC
         STA   LD325
         BRL   LCF35
LCFE3    LDA   #$0000
         TAY
         TDC
         CLC
         ADC   #$00F7
         TCS
         TYA
         PLD
         RTL

LCFF0    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  LAFB1
         LDY   #$000C
         LDA   [$FD],Y
         LDX   #$0000
         TAY
         BPL   LD02B
         DEX
LD02B    PHA
         TXA
         STAL  LAFB9
         PLA
         STAL  LAFB7
         LDY   #$0010
         LDA   [$FD],Y
         TAX
         LDY   #$000E
         LDA   [$FD],Y
         PHA
         TXA
         STAL  LAFB5
         PLA
         STAL  LAFB3
         PEA   $0012
         PEA   ^LAFB1
         PEA   LAFB1
         JSL   LAE5A
         LDA   [$FD]
         AND   #$0020
         TAY
         BNE   LD0AD
         LDAL  LAFBD
         TAX
         LDAL  LAFBB
         STA   $F0
         LDY   #$0010
         LDA   [$FD],Y
         TAX
         LDY   #$000E
         LDA   [$FD],Y
         STX   $EE
         STA   $EC
         BRA   LD09E
LD07D    LDA   [$EC]
         AND   #$00FF
         CMP   #$000D
         BNE   LD090
         LDA   #$000A
         SEP   #$20
         STA   [$EC]
         REP   #$20
LD090    LDA   $F0
         DEC   $F0
         LDX   $EE
         LDA   $EC
         INC   $EC
         BNE   LD09E
         INC   $EE
LD09E    LDA   $F0
         SEC
         SBC   #$0000
         BEQ   LD0AD
         BVS   LD0AB
         EOR   #$8000
LD0AB    BMI   LD07D
LD0AD    LDA   L013C
         CMP   #$004C
         BNE   LD0B9
         STZ   $F2
         BRA   LD0BE
LD0B9    LDA   L013C
         STA   $F2
LD0BE    LDA   $F2
         CMP   #$0000
         BNE   LD10E
         LDY   #$000C
         LDA   [$FD],Y
         LDX   #$0000
         TAY
         BPL   LD0D1
         DEX
LD0D1    SEC
         SBCL  LAFBB
         PHA
         TXA
         SBCL  LAFBD
         TAX
         PLA
         LDY   #$000C
         STA   [$FD],Y
         LDAL  LAFBD
         TAX
         LDAL  LAFBB
         PHX
         PHA
         LDY   #$0010
         LDA   [$FD],Y
         TAX
         LDY   #$000E
         LDA   [$FD],Y
         JSL   LA64E
         PLA
         PLX
         LDY   #$0010
         PHA
         TXA
         STA   [$FD],Y
         PLA
         LDY   #$000E
         STA   [$FD],Y
         BRA   LD115
LD10E    LDA   $F2
         LDY   #$0002
         STA   [$FD],Y
LD115    LDA   $F2
         CMP   #$0000
         BNE   LD121
         LDA   #$0000
         BRA   LD124
LD121    LDA   #$0005
LD124    TAY
         TDC
         CLC
         ADC   #$00F7
         TCS
         TYA
         PLD
         RTL

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

LD146    PHD
         TSC
         SEC
         SBC   #$00F1
         TCD
         ADC   #$00EC
         TCS
         LDA   #$0000
         BEQ   LD15B
         LDA   #$0000
         BRA   LD15E
LD15B    LDA   #$0001
LD15E    PHA
         PEA   $0000
         PEA   ^LCD4D
         PEA   LCD4D
         PEI   $F9
         PEI   $F7
         JSL   LA55C
         TAY
         TSC
         CLC
         ADC   #$000C
         TCS
         TYA
         TAY
         BNE   LD181
         LDA   #$FFFF
         BRL   LD19B
LD181    LDA   $FB
         BRL   LD193
LD186    LDA   #$4016
         BRL   LD19B
LD18C    LDA   #$0000
         BRA   LD19B
         BRA   LD19B
LD193    CMP   #$6400
         BEQ   LD18C
         JMP   LD186

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

LD1A5    PHD
         TSC
         SEC
         SBC   #$00F1
         TCD
         ADC   #$00EC
         TCS
         LDX   #$0000
         LDA   #$0000
         PHX
         PHA
         LDX   $F9
         LDA   $F7
         JSL   LB15A
         BEQ   LD1CC
         LDA   [$F7]
         AND   #$00FF
         CMP   #$0000
         BNE   LD1D2
LD1CC    LDA   #$4016
         BRL   LD31B
LD1D2    LDA   $FB
         BRL   LD2E8
LD1D7    LDA   #$4016
         BRL   LD31B
LD1DD    PEI   $F9
         PEI   $F7
         PEI   $FF
         PEI   $FD
         JSL   LD635
         PLY
         PLY
         PLY
         PLY
         BRL   LD31B
LD1F0    PEI   $F9
         PEI   $F7
         JSL   LA4A4
         PLY
         PLY
         LDX   $F9
         LDA   $F7
         PHA
         TXA
         STAL  LAF87
         PLA
         STAL  LAF85
         PEA   $0002
         PEA   ^LAF85
         PEA   LAF85
         JSL   LAE5A
         PEI   $F9
         PEI   $F7
         JSL   LBE3A
         PLY
         PLY
         BRL   LD2F9
LD223    PEI   $F9
         PEI   $F7
         JSL   LA4A4
         PLY
         PLY
         PEI   $FF
         PEI   $FD
         JSL   LA4A4
         PLY
         PLY
         LDX   $F9
         LDA   $F7
         PHA
         TXA
         STAL  LAF87
         PLA
         STAL  LAF85
         LDX   $FF
         LDA   $FD
         PHA
         TXA
         STAL  LAF8B
         PLA
         STAL  LAF89
         PEA   $0004
         PEA   ^LAF85
         PEA   LAF85
         JSL   LAE5A
         PEI   $F9
         PEI   $F7
         JSL   LBE3A
         PLY
         PLY
         PEI   $FF
         PEI   $FD
         JSL   LBE3A
         PLY
         PLY
         BRL   LD2F9
LD279    PEI   $F9
         PEI   $F7
         JSL   LA4A4
         PLY
         PLY
         LDX   $F9
         LDA   $F7
         PHA
         TXA
         STAL  LAF8F
         PLA
         STAL  LAF8D
         PEA   $0006
         PEA   ^LAF8D
         PEA   LAF8D
         JSL   LAE5A
         LDA   $FB
         CMP   #$6403
         BNE   LD2B0
         LDX   $FF
         LDA   $FD
         STAL  LAF93
         BRA   LD2BF
LD2B0    LDX   $FF
         LDA   $FD
         PHA
         TXA
         STAL  LAF97
         PLA
         STAL  LAF95
LD2BF    PEA   $0005
         PEA   ^LAF8D
         PEA   LAF8D
         JSL   LAE5A
         PEI   $F9
         PEI   $F7
         JSL   LBE3A
         PLY
         PLY
         BRL   LD2F9
         BRL   LD2F9
LD2DC    DA    LD1DD
         DA    LD1F0
         DA    LD223
         DA    LD279
         DA    LD279
         DA    LD1D7
LD2E8    SEC
         SBC   #$6400
         CMP   #$0005
         BCC   LD2F4
         LDA   #$0005
LD2F4    ASL
         TAX
         JMP   (LD2DC,X)

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

LD325    DW    $0000
LD327    DW    $0000
LD329    DW    $0000
LD32B    PHD
         TSC
         SEC
         SBC   #$00F1
         TCD
         ADC   #$00E6
         TCS
         LDA   #$0000
         BEQ   LD340
         LDA   #$0000
         BRA   LD343
LD340    LDA   #$0001
LD343    PHA
         PEA   $0000
         PEA   ^LD618
         PEA   LD618
         PEI   $F9
         PEI   $F7
         JSL   LA55C
         TAY
         TSC
         CLC
         ADC   #$000C
         TCS
         TYA
         TAY
         BEQ   LD366
         LDA   #$0000
         BRL   LD4CB
LD366    LDA   #$0000
         BEQ   LD370
         LDA   #$0000
         BRA   LD373
LD370    LDA   #$0001
LD373    PHA
         PEA   $0000
         PEA   ^LD61E
         PEA   LD61E
         PEI   $F9
         PEI   $F7
         JSL   LA55C
         TAY
         TSC
         CLC
         ADC   #$000C
         TCS
         TYA
         TAY
         BEQ   LD395
         STZ   $EC
         BRL   LD3FD
LD395    LDA   #$0000
         BEQ   LD39F
         LDA   #$0000
         BRA   LD3A2
LD39F    LDA   #$0001
LD3A2    PHA
         PEA   $0000
         PEA   ^LD625
         PEA   LD625
         PEI   $F9
         PEI   $F7
         JSL   LA55C
         TAY
         TSC
         CLC
         ADC   #$000C
         TCS
         TYA
         TAY
         BEQ   LD3C6
         LDA   #$0001
         STA   $EC
         BRA   LD3FD
LD3C6    LDA   #$0000
         BEQ   LD3D0
         LDA   #$0000
         BRA   LD3D3
LD3D0    LDA   #$0001
LD3D3    PHA
         PEA   $0000
         PEA   ^LD62D
         PEA   LD62D
         PEI   $F9
         PEI   $F7
         JSL   LA55C
         TAY
         TSC
         CLC
         ADC   #$000C
         TCS
         TYA
         TAY
         BEQ   LD3F7
         LDA   #$0002
         STA   $EC
         BRA   LD3FD
LD3F7    LDA   #$FFFF
         BRL   LD4CB
LD3FD    LDA   $FB
         CMP   #$6400
         BEQ   LD40A
         LDA   #$4016
         BRL   LD4CB
LD40A    LDA   [$FD]
         AND   #$0500
         CMP   #$0500
         BNE   LD41A
         LDA   #$4011
         BRL   LD4CB
LD41A    PEA   $0000
         TDC
         CLC
         ADC   #$00EC
         PHA
         JSL   LB1DF
         PLY
         PLY
         STX   $EA
         STA   $E8
         LDX   #$0000
         LDA   #$0000
         PHX
         PHA
         LDX   $EA
         LDA   $E8
         JSL   LB15A
         BNE   LD445
         LDA   #$4009
         BRL   LD4CB
LD445    LDA   [$FD]
         PHA
         LDA   [$E8]
         PLX
         STX   $EE
         AND   $EE
         AND   #$0003
         PHA
         LDA   [$FD]
         AND   #$0003
         PLX
         STX   $EE
         CMP   $EE
         BEQ   LD464
         LDA   #$400D
         BRA   LD4CB
LD464    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   LAE98
         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
LD4CB    TAY
         TDC
         CLC
         ADC   #$00F1
         TCS
         TYA
         PLD
         RTL

LD4D5    PHD
         TSC
         SEC
         SBC   #$00F5
         TCD
         ADC   #$00ED
         TCS
         STZ   $F0
LD4E2    LDA   $F0
         SEC
         SBC   $FF
         BVS   LD4EC
         EOR   #$8000
LD4EC    BPL   LD4F1
         BRL   LD60C
LD4F1    PHA
         PEA   $0001
         _ReadChar
         STAL  L013C
         PLA
         SEP   #$20
         STA   $EF
         REP   #$20
         AND   #$00FF
         PHA
         LDX   $FD
         LDA   $FB
         INC   $FB
         BNE   LD515
         INC   $FD
LD515    STA   $F2
         STX   $F4
         PLA
         SEP   #$20
         STA   [$F2]
         REP   #$20
         INC   $F0
         LDA   $EF
         AND   #$00FF
         CMP   #$000D
         BNE   LD55C
         LDX   #$0000
         LDA   #$0001
         PHX
         PHA
         LDX   $FD
         LDA   $FB
         JSL   LA998
         PLA
         PLX
         STA   $F2
         STX   $F4
         LDA   #$000A
         SEP   #$20
         STA   [$F2]
         REP   #$20
         PEA   $000A
         _WriteChar
         STAL  L013C
         BRL   LD60C
LD55C    LDA   $EF
         AND   #$00FF
         CMP   #$0000
         BNE   LD585
         PEA   $000D
         _WriteChar
         STAL  L013C
         PEA   $000A
         _WriteChar
         STAL  L013C
         BRL   LD60C
LD585    LDA   $EF
         AND   #$00FF
         CMP   #$007F
         BEQ   LD592
         BRL   LD609
LD592    LDA   $FB
         BNE   LD598
         DEC   $FD
LD598    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   LD609
         BVS   LD5D3
         EOR   #$8000
LD5D3    BPL   LD609
         LDA   $FB
         BNE   LD5DB
         DEC   $FD
LD5DB    DEC   $FB
         DEC   $F0
         PEA   $0008
         _WriteChar
         STAL  L013C
         PEA   $0020
         _WriteChar
         STAL  L013C
         PEA   $0008
         _WriteChar
         STAL  L013C
LD609    BRL   LD4E2
LD60C    LDA   $F0
         TAY
         TDC
         CLC
         ADC   #$00F5
         TCS
         TYA
         PLD
         RTL

LD618    ASC   '.null'00
LD61E    ASC   '.stdin'00
LD625    ASC   '.stdout'00
LD62D    ASC   '.stderr'00
LD635    PHD
         TSC
         SEC
         SBC   #$00F3
         TCD
         ADC   #$00E8
         TCS
         STZ   $EC
         PEI   $FF
         PEI   $FD
         JSL   LA4A4
         PLY
         PLY
         LDA   [$F9]
         STA   $EE
         LDX   $FF
         LDA   $FD
         PHA
         TXA
         STAL  LAF8F
         PLA
         STAL  LAF8D
         PEA   $0006
         PEA   ^LAF8D
         PEA   LAF8D
         JSL   LAE5A
         LDA   L013C
         CMP   #$0000
         BEQ   LD677
         BRL   LD72D
LD677    LDA   $EE
         AND   #$0500
         CMP   #$0500
         BNE   LD689
         LDA   #$0011
         STA   $EC
         BRL   LD72A
LD689    LDA   $EE
         AND   #$0001
         TAY
         BEQ   LD69B
         LDAL  LAF91
         AND   #$0001
         TAY
         BEQ   LD6AD
LD69B    LDA   $EE
         AND   #$0002
         TAY
         BEQ   LD6B5
         LDAL  LAF91
         AND   #$0002
         TAY
         BNE   LD6B5
LD6AD    LDA   #$000D
         STA   $EC
         BRL   LD72A
LD6B5    LDX   $FF
         LDA   $FD
         PHA
         TXA
         STAL  LAFAB
         PLA
         STAL  LAFA9
         PEA   $0010
         PEA   ^LAFA7
         PEA   LAFA7
         JSL   LAE5A
         LDA   L013C
         CMP   #$0000
         BEQ   LD6DC
         BRL   LD72A
LD6DC    LDA   $EE
         AND   #$0200
         TAY
         BNE   LD6E7
         BRL   LD72A
LD6E7    LDX   #$0000
         LDA   #$0000
         PHA
         TXA
         STAL  LAFC9
         PLA
         STAL  LAFC7
         LDAL  LAFA7
         STAL  LAFC5
         PEA   $0018
         PEA   ^LAFC5
         PEA   LAFC5
         JSL   LAE5A
         LDA   L013C
         CMP   #$0000
         BEQ   LD72A
         LDAL  LAFA7
         STAL  LAFB1
         PEA   $0014
         PEA   ^LAFB1
         PEA   LAFB1
         JSL   LAE5A
LD72A    BRL   LD7D3
LD72D    LDA   L013C
         CMP   #$0046
         BEQ   LD738
         BRL   LD7D3
LD738    LDA   $EE
         AND   #$0100
         TAY
         BNE   LD743
         BRL   LD7D3
LD743    LDAL  LAF91
         ORA   #$00C3
         STAL  LAF91
         LDA   $EE
         AND   #$0020
         TAY
         BEQ   LD75F
         LDA   #$0000
         STAL  LAF93
         BRA   LD766
LD75F    LDA   #$0004
         STAL  LAF93
LD766    LDA   #$0000
         STAL  LAF9D
         STAL  LAF9B
         PEA   $0001
         PEA   ^LAF8D
         PEA   LAF8D
         JSL   LAE5A
         LDA   L013C
         CMP   #$0000
         BEQ   LD789
         BRL   LD7D3
LD789    LDX   $FF
         LDA   $FD
         PHA
         TXA
         STAL  LAFAB
         PLA
         STAL  LAFA9
         PEA   $0010
         PEA   ^LAFA7
         PEA   LAFA7
         JSL   LAE5A
         LDA   L013C
         STA   $EA
         LDA   L013C
         CMP   #$0000
         BEQ   LD7D3
         LDX   $FF
         LDA   $FD
         PHA
         TXA
         STAL  LAF87
         PLA
         STAL  LAF85
         PEA   $0002
         PEA   ^LAF85
         PEA   LAF85
         JSL   LAE5A
         LDA   $EA
         STA   L013C
LD7D3    PEI   $FF
         PEI   $FD
         JSL   LBE3A
         PLY
         PLY
         LDA   L013C
         CMP   #$0000
         BEQ   LD7FD
         LDA   L013C
         PHA
         LDA   #$8000
         PLX
         STX   $F0
         ORA   $F0
         STA   $EC
         LDA   L013C
         LDY   #$0002
         STA   [$F9],Y
         BRA   LD80C
LD7FD    LDA   $EC
         CMP   #$0000
         BEQ   LD80C
         LDA   #$0000
         LDY   #$0002
         STA   [$F9],Y
LD80C    LDA   $EC
         CMP   #$0000
         BNE   LD889
         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  LAFA7
         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]
LD889    LDA   $EC
         CMP   #$0000
         BNE   LD895
         LDA   #$0000
         BRA   LD8A0
LD895    LDA   $EC
         PHA
         LDA   #$4000
         PLX
         STX   $F0
         ORA   $F0
LD8A0    TAY
         TDC
         CLC
         ADC   #$00F3
         TCS
         TYA
         PLD
         RTL

