*
* Talking Speller
*
* (c) 1989, Orange Cherry Software
* (s) 2021, Antoine Vignau
*

	mx	%00
	rel
	dsk	PROGRAM
	lst	off

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

GSOS	=	$e100a8

	use	4/Ctl.Macs
	use	4/Desk.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
	
*-------------------------------

         CLC
         XCE
         REP   #$30
         PHK
         PLB
         JSR   L19DC
         JSR   L329A
         JSR   L222B
         LDA   #$0066
         STA   L1DDC
         LDA   L1DDC
         PHA
         PEA   $000F
         _SetSoundVolume
         LDA   $00
         PHA
         LDA   $02
         PHA
         PEA   $0000
         PEA   $0000
         PEA   $0000
         LDA   #$8000
         PHA
         LDA   L1D1C
         PHA
         PEA   $C008
         PEA   $0000
         PEA   $0000
         _NewHandle
         JSR   L41CC
         PLA
         STA   $00
         STA   L1E1A
         PLA
         STA   $02
         STA   L1E1A+2
         PLA
         STA   $02
         PLA
         STA   $00
         LDA   $00
         PHA
         LDA   $02
         PHA
         LDA   L1E1A
         STA   $00
         LDA   L1E1A+2
         STA   $02
         LDY   #$0000
         LDA   [$00],Y
         STA   L1E1E
         LDY   #$0002
         LDA   [$00],Y
         STA   L1E1E+2
         PLA
         STA   $02
         PLA
         STA   $00
         LDA   L1E1E+2
         STA   L31CE
         LDA   L1E1E
         STA   L31CC
         LDA   $00
         PHA
         LDA   $02
         PHA
         PEA   $0000
         PEA   $0000
         PEA   $0000
         LDA   #$8000
         PHA
         LDA   L1D1C
         PHA
         PEA   $C008
         PEA   $0000
         PEA   $0000
         _NewHandle
         JSR   L41CC
         PLA
         STA   $00
         STA   L13E4
         PLA
         STA   $02
         STA   L13E6
         PLA
         STA   $02
         PLA
         STA   $00
         LDA   $00
         PHA
         LDA   $02
         PHA
         LDA   L13E4
         STA   $00
         LDA   L13E6
         STA   $02
         LDY   #$0000
         LDA   [$00],Y
         STA   L31DC
         LDY   #$0002
         LDA   [$00],Y
         STA   L31DE
         PLA
         STA   $02
         PLA
         STA   $00
         LDA   $00
         PHA
         LDA   $02
         PHA
         PEA   $0000
         PEA   $0000
         PEA   $0000
         LDA   #$2700
         PHA
         LDA   L1D1C
         PHA
         PEA   $C008
         PEA   $0000
         PEA   $0000
         _NewHandle
         JSR   L41CC
         PLA
         STA   $00
         STA   L1E22
         PLA
         STA   $02
         STA   L1E22+2
         PLA
         STA   $02
         PLA
         STA   $00
         LDA   $00
         PHA
         LDA   $02
         PHA
         LDA   L1E22
         STA   $00
         LDA   L1E22+2
         STA   $02
         LDY   #$0000
         LDA   [$00],Y
         STA   L1E26
         LDY   #$0002
         LDA   [$00],Y
         STA   L1E26+2
         PLA
         STA   $02
         PLA
         STA   $00
         LDA   L1E26+2
         STA   L31FE
         LDA   L1E26
         STA   L31FC
         JSR   L502B
         JMP   L0180

L0167    STR   '0/PICTURES/TRADEMARK.PAC'
L0180    LDA   #^L0167
         STA   L1CEE+2
         LDA   #L0167
         STA   L1CEE
         JSL   GSOS
         DW    $0010      ; Open
         ADRL  L1CEC
         JSR   L41CC
         LDA   L1CEC
         STA   L1CF6
         STA   L1D12
         JSR   L15CC
         JSR   L4236
         JSR   L485C
         JMP   L01BF

L01AE    STR   '0/PICTURES/TITLE'
L01BF    LDA   #^L01AE
         STA   L1CEE+2
         LDA   #L01AE
         STA   L1CEE
         JSL   GSOS
         DW    $0010      ; Open
         ADRL  L1CEC
         JSR   L41CC
         LDA   L1CEC
         STA   L1CF6
         STA   L1D12
         JSR   L15CC
         JSR   L4D12
         JSR   L4BCA
         JSR   L485C
         JSR   L4C15
         JMP   L0207

L01F3    STR   '0/PICTURES/WAIT.PAC'
L0207    LDA   #^L01F3
         STA   L1CEE+2
         LDA   #L01F3
         STA   L1CEE
         JSL   GSOS
         DW    $0010      ; Open
         ADRL  L1CEC
         JSR   L41CC
         LDA   L1CEC
         STA   L1CF6
         STA   L1D12
         JSR   L15CC
         JSR   L4236
         JSR   L1744
         JSR   L1ADB
         JSR   L162C
         _InitCursor
         PEA   $0004
         _SetTextMode
         _HideCursor
         JMP   L0267

L0253    STR   '0/PICTURES/MAINMENU'
L0267    LDA   #^L0253
         STA   L1CEE+2
         LDA   #L0253
         STA   L1CEE
         JSL   GSOS
         DW    $0010      ; Open
         ADRL  L1CEC
         JSR   L41CC
         LDA   L1CEC
         STA   L1CF6
         STA   L1D12
         JSR   L15CC
         JSR   L4D12
         JSR   L4BCA
         _DrawMenuBar
         _InitPalette
         _ShowCursor
         JSR   L02C0
         JSR   L1CA1	; shut down all loaded tools
         JSR   L1AA1	; shut down standard tools
         JSL   GSOS
         DW    $0029      ; Quit
         ADRL  L02BA
L02BA    ADRL  $00000000  ;  path name
         DW    $0000      ;  flags
L02C0    STZ   L0434
         PEA   $0000
         PEA   $FFFF
         PEA   ^L1DBA
         PEA   L1DBA
         _TaskMaster
         PLA
         BEQ   L02C0
         CMP   #$0011
         BEQ   L02E8
         LDA   L1DBA
         CMP   #$0001
         BEQ   L030D
         BRA   L02C0
L02E8    LDA   L1DCA
         AND   #$00FF
         ASL
         TAX
         JSR   (L0436,X)
         PEA   $0000
         LDA   L1DCA+2
         PHA
         _HiliteMenu
         LDA   L0434
         CMP   #$00FF
         BNE   L02C0
         jmp   L4C15

L030D    LDY   #$0000
L0310    PHY
         PEA   $0000
         PEA   ^L1DC4
         PEA   L1DC4
         LDA   L2960+2,Y
         PHA
         LDA   L2960,Y
         PHA
         _PtInRect
         PLA
         BNE   L0339
         PLY
         INY
         INY
         INY
         INY
         CPY   #$0008
         BNE   L0310
         JMP   L02C0

L0339    PLA
         LSR
         LSR
         STA   L1498
         JSR   L4C15
         JSR   L1827
         _HideCursor
         JMP   L0362

L034F    STR   '0/PICTURES/SUBMENU'
L0362    LDA   #^L034F
         STA   L1CEE+2
         LDA   #L034F
         STA   L1CEE
         JSL   GSOS
         DW    $0010      ; Open
         ADRL  L1CEC
         JSR   L41CC
         LDA   L1CEC
         STA   L1CF6
         STA   L1D12
         JSR   L15CC
         JSR   L4D12
         JSR   L4BCA
         _DrawMenuBar
         _InitPalette
         _ShowCursor
         LDA   L1498
         ASL
         ASL
         TAX
         LDA   L29A8+2,X
         STA   L3262
         LDA   L29A8,X
         STA   L3260
         LDA   #^L29C0
         STA   L3266
         LDA   #L29C0
         STA   L3264
         PEA   ^L3258
         PEA   L3258
         _PaintPixels
         JSR   L41CC
         JSR   L0445
         _HideCursor
         JMP   L03F1

L03DD    STR   '0/PICTURES/MAINMENU'
L03F1    LDA   #^L03DD
         STA   L1CEE+2
         LDA   #L03DD
         STA   L1CEE
         JSL   GSOS
         DW    $0010      ; Open
         ADRL  L1CEC
         JSR   L41CC
         LDA   L1CEC
         STA   L1CF6
         STA   L1D12
         JSR   L15CC
         JSR   L4D12
         JSR   L4BCA
         _DrawMenuBar
         _InitPalette
         _ShowCursor
         JMP   L02C0

L0434    DW    $0000
L0436    DA    L0675
         DA    L076A
         DA    L0690
         DA    L043E
L043E    LDA   #$00FF
         STA   L0434
         RTS

L0445    STZ   L0662
         PEA   $0000
         PEA   $FFFF
         PEA   ^L1DBA
         PEA   L1DBA
         _TaskMaster
         PLA
         BEQ   L0445
         CMP   #$0011
         BEQ   L046D
         LDA   L1DBA
         CMP   #$0001
         BEQ   L0492
         BRA   L0445
L046D    LDA   L1DCA
         AND   #$00FF
         ASL
         TAX
         JSR   (L0666,X)
         PEA   $0000
         LDA   L1DCA+2
         PHA
         _HiliteMenu
         LDA   L0662
         CMP   #$00FF
         BNE   L0445
         JSR   L4C15
         RTS

L0492    PEA   $0000
         PEA   ^L1DC4
         PEA   L1DC4
         PEA   ^L2EBC
         PEA   L2EBC
         _PtInRect
         PLA
         BEQ   L04B1
         JSR   L1877
         JMP   L0445

L04B1    PEA   $0000
         PEA   ^L1DC4
         PEA   L1DC4
         PEA   ^L2F38
         PEA   L2F38
         _PtInRect
         PLA
         BEQ   L04D0
         JSR   L1932
         JMP   L0445

L04D0    PEA   $0000
         PEA   ^L1DC4
         PEA   L1DC4
         PEA   ^L2F70
         PEA   L2F70
         _PtInRect
         PLA
         BEQ   L04EF
         JSR   L1987
         JMP   L0445

L04EF    PEA   $0000
         PEA   ^L1DC4
         PEA   L1DC4
         PEA   ^L2F00
         PEA   L2F00
         _PtInRect
         PLA
         BEQ   L050E
         JSR   L18CC
         JMP   L0445

L050E    LDY   #$0000
L0511    PHY
         PEA   $0000
         PEA   ^L1DC4
         PEA   L1DC4
         LDA   L2978+2,Y
         PHA
         LDA   L2978,Y
         PHA
         _PtInRect
         PLA
         BNE   L053A
         PLY
         INY
         INY
         INY
         INY
         CPY   #$0010
         BNE   L0511
         JMP   L0445

L053A    PLA
         LSR
         LSR
         STA   L149A
         JSR   L4C15
         LDA   L149A
         CMP   #$0003
         BEQ   L058F
         JMP   L0565

L054E    STR   '0/PICTURES/PANEL.1.WIN'
L0565    LDA   #^L054E
         STA   L1CEE+2
         LDA   #L054E
         STA   L1CEE
         JSL   GSOS
         DW    $0010      ; Open
         ADRL  L1CEC
         JSR   L41CC
         LDA   L1CEC
         STA   L1CF6
         STA   L1D12
         JSR   L4ABE
         JSR   L07BB
         BRA   L05D1
L058F    JMP   L05A9

L0592    STR   '0/PICTURES/PANEL.1.WIN'
L05A9    LDA   #^L0592
         STA   L1CEE+2
         LDA   #L0592
         STA   L1CEE
         JSL   GSOS
         DW    $0010      ; Open
         ADRL  L1CEC
         JSR   L41CC
         LDA   L1CEC
         STA   L1CF6
         STA   L1D12
         JSR   L4ABE
         JSR   L0CBB
L05D1    JSR   L1827
         _HideCursor
         JMP   L05F1

L05DE    STR   '0/PICTURES/SUBMENU'
L05F1    LDA   #^L05DE
         STA   L1CEE+2
         LDA   #L05DE
         STA   L1CEE
         JSL   GSOS
         DW    $0010      ; Open
         ADRL  L1CEC
         JSR   L41CC
         LDA   L1CEC
         STA   L1CF6
         STA   L1D12
         JSR   L15CC
         JSR   L4D12
         JSR   L4BCA
         _DrawMenuBar
         _InitPalette
         _ShowCursor
         LDA   L1498
         ASL
         ASL
         TAX
         LDA   L29A8+2,X
         STA   L3262
         LDA   L29A8,X
         STA   L3260
         LDA   #^L29C0
         STA   L3266
         LDA   #L29C0
         STA   L3264
         PEA   ^L3258
         PEA   L3258
         _PaintPixels
         JSR   L41CC
         JMP   L0445

L0662    DW    $0000
         DW    $0000
L0666    DA    L0675
         DA    L076A
         DA    L0690
         DA    L066E
L066E    LDA   #$00FF
         STA   L0662
         RTS

L0675    JSR   L15F5
         PEA   $0000
         PEA   ^L225F
         PEA   L225F
         PEA   $0000
         PEA   $0000
         _Alert
         PLA
         RTS

L0690    JSR   L15F5
         PEA   $0000
         PEA   $0000
         PEA   ^L23F9
         PEA   L23F9
         _GetNewModalDialog
         JSR   L41CC
         PLA
         STA   L249B
         PLA
         STA   L249B+2
         LDA   #$0000
         PHA
         _SetSolidPenPat
         LDA   #$0001
         PHA
         LDA   #$0001
         PHA
         _SetPenSize
         PEA   ^L2920
         PEA   L2920
         _FrameRect
         PEA   $0000
         PEA   $0000
         LDA   L1DDC
         PHA
         LDA   #$0011
         PHA
         _UDivide
         PLA
         STA   L0765
         PLA
         STA   L0767
         STZ   L0763
L06F8    LDA   L0763
         ASL
         ASL
         TAX
         LDA   L2DC0+2,X
         PHA
         LDA   L2DC0,X
         PHA
         _PaintRect
         LDA   L0763
         CMP   L0765
         BEQ   L071A
         INC   L0763
         BRA   L06F8
L071A    PEA   $0000
         PEA   $0000
         PEA   $0000
         _ModalDialog
         JSR   L41CC
         PLA
         CMP   #$0004
         BEQ   L073F
         CMP   #$0006
         BEQ   L0747
         CMP   #$0001
         BEQ   L074F
         BRA   L071A
L073F    JSR   L1517
         JSR   L14FD
         BRA   L071A
L0747    JSR   L1569
         JSR   L14FD
         BRA   L071A
L074F    LDA   L249B+2
         PHA
         LDA   L249B
         PHA
         _CloseDialog
         jmp   L41CC
*         BRA   L0769
L0763    DW    $0000
L0765    DW    $0000
L0767    DW    $0000
*L0769    RTS

L076A    JSR   L15F5
         PEA   $0000
         PEA   ^L249F
         PEA   L249F
         PEA   $0000
         PEA   $0000
         _Alert
         PLA
         RTS

L0785    JSR   L15F5
         PEA   $0000
         PEA   ^L258A
         PEA   L258A
         PEA   $0000
         PEA   $0000
         _Alert
         PLA
         RTS

L07A0    JSR   L15F5
         PEA   $0000
         PEA   ^L2709
         PEA   L2709
         PEA   $0000
         PEA   $0000
         _Alert
         PLA
         RTS

L07BB    _HideCursor
         LDA   #$0042
         STA   L149C
         JSR   L17E4
         JSR   L15CC
         JSR   L4220
         _DrawMenuBar
         _InitPalette
         _ShowCursor
         LDA   #$0001
         PHA
         PEA   ^L14C7
         PEA   L14C7
         _SetColorTable
         JSR   L41CC
         LDA   #$008B
         STA   L0C91
L0800    LDA   L0C91
         PHA
         LDA   #$0001
         PHA
         _SetSCB
         JSR   L41CC
         INC   L0C91
         LDA   L0C91
         CMP   #$00C8
         BCC   L0800
         PEA   ^L3212
         PEA   L3212
         PEA   $0000
         PEA   $008B
         _SetPt
         JSR   L4B63
         _WaitCursor
         PEA   $1000
         PEA   $FFFE
         PEA   $0000
         _InstallFont
         JSR   L41CC
         LDA   #$0041
         STA   L149C
         JSR   L17E4
         LDA   L31DE
         STA   L1E32
         LDA   L31DC
         STA   L1E30
         LDA   #$8000
         STA   L1E34
         JSR   L42AC
         LDA   L149A
         ASL
         CLC
         ADC   L1498
         ASL
         TAX
         LDA   L13E8,X
         STA   $00
         SEP   #$30
         CLC
         LDA   L1498
         ADC   #$41
         STA   L1E78+$A
         CLC
         LDA   L149A
         ADC   #$31
         STA   L1E78+$11
         REP   #$30
         STZ   L0C8F
         STZ   L0C99
         LDA   L149A
         ASL
         CLC
         ADC   L1498
         STA   L0C8D
         PEA   $0000
         PEA   $0000
         LDA   L0C8D
         PHA
         LDA   #$001C
         PHA
         _Multiply
         PLA
         STA   L0CA7
         PLA
         STA   L0CA9
         LDA   L0CA7
         TAX
         STA   L0CA1
         STA   L0CA3
         LSR
         STA   L0CA5
L08CC    _WaitCursor
         LDA   L0C99
         ASL
         TAY
         LDA   ($00),Y
         STA   L1DE0
         JSR   L4326
         JSR   L43CC
         LDA   L0C99
         ASL
         ASL
         CLC
         ADC   L0CA1
         TAX
         LDA   L29C8+2,X
         STA   L3262
         STA   L3266
         LDA   L29C8,X
         STA   L3260
         STA   L3264
         PEA   ^L3258
         PEA   L3258
         _PaintPixels
         JSR   L41CC
         _InitCursor
         LDA   L0C99
         ASL
         TAY
         LDA   ($00),Y
         STA   L1DDE
         JSR   L4A1B
         LDA   #$0010
         JSR   L4967
         LDA   #$0041
         STA   L1DDE
         JSR   L4A1B
         LDA   L0C99
         ASL
         TAY
         LDA   ($00),Y
         STA   L1DDE
         JSR   L4A1B
         LDA   L0C99
         ASL
         ASL
         CLC
         ADC   L0CA3
         TAX
         LDA   L2F78,X
         STA   $02
         LDA   L2F78+2,X
         STA   $04
         LDA   L0C99
         ASL
         CLC
         ADC   L0CA5
         TAX
         LDA   L2AA8,X
         STA   $06
         LDA   #$004B
         PHA
         LDA   #$00A9
         PHA
         _MoveTo
         LDA   #$0005
         PHA
         _SetSolidPenPat
         LDA   #$0001
         PHA
         LDA   #$0002
         PHA
         _SetPenSize
         PEA   $0001
         _SetFontFlags
         STZ   L0C9B
L0997    INC   L0C9B
         LDY   L0C9B
         LDA   [$02],Y
         AND   #$007F
         STA   L0C97
         PEA   $0000
         LDA   L0C97
         PHA
         _CharWidth
         PLA
         CLC
         ADC   #$FFF8
         STA   L0C8D
         LDA   L0C8D
         PHA
         LDA   #$0000
         PHA
         _Line
         JSR   L41CC
         LDA   #$0004
         PHA
         LDA   #$0000
         PHA
         _Move
         LDY   #$0000
         LDA   [$02],Y
         AND   #$007F
         CMP   L0C9B
         BNE   L0997
         LDA   #$0001
         STA   L0C9B
         LDA   #$004B
         PHA
         LDA   #$00A8
         PHA
         _MoveTo
         JSR   L4932
L0A01    PEA   $0000
         PEA   $FFFF
         PEA   ^L1DBA
         PEA   L1DBA
         _TaskMaster
         PLA
         BEQ   L0A01
         CMP   #$0011
         BNE   L0A1F
         JMP   L0C68

L0A1F    LDA   L1DBA
         CMP   #$0001
         BEQ   L0A31
         CMP   #$0003
         BNE   L0A01	; L0A2F
         JMP   L0B2A

*L0A2F    BRA   L0A01

L0A31    PEA   $0000
         PEA   ^L1DC4
         PEA   L1DC4
         PEA   ^L2938
         PEA   L2938
         _PtInRect
         PLA
         BEQ   L0A5A
         LDA   L0C99
         ASL
         TAY
         LDA   ($00),Y
         STA   L1DDE
         JSR   L4A1B
         JMP   L0A01

L0A5A    PEA   $0000
         PEA   ^L1DC4
         PEA   L1DC4
         PEA   ^L2940
         PEA   L2940
         _PtInRect
         PLA
         BNE   L0A76
         JMP   L0A01

L0A76    LDY   L0C9B
         LDA   [$02],Y
         AND   #$007F
         STA   L0C97
         _HideCursor
         PEA   ^L326E
         PEA   L326E
         _PaintPixels
         JSR   L41CC
         _ShowCursor
         LDA   #$0001
         PHA
         _SetSolidPenPat
         LDA   #$0001
         PHA
         LDA   #$0001
         PHA
         _SetPenSize
         PEA   ^L2948
         PEA   L2948
         _PaintRect
         PEA   ^L0C9D
         PEA   L0C9D
         _GetPen
         LDA   #$0000
         PHA
         _SetForeColor
         LDA   #$0123
         PHA
         LDA   #$00B6
         PHA
         _MoveTo
         LDA   L0C97
         PHA
         _DrawChar
         LDA   L0C9F
         PHA
         LDA   L0C9D
         PHA
         _MoveTo
L0B07    PEA   $0000
         PEA   $0000
         _WaitMouseUp
         PLA
         BNE   L0B07
         PEA   ^L3284
         PEA   L3284
         _PaintPixels
         JSR   L41CC
         JMP   L0A01

L0B2A    _ObscureCursor
         LDA   L1DBC
         AND   #$007F
         JSR   L484D
         STA   L0C97
         LDY   L0C9B
         LDA   [$02],Y
         AND   #$007F
         CMP   L0C97
         BEQ   L0B56
         LDA   #$0043
         STA   L1DDE
         JSR   L4A1B
         JMP   L0A01

L0B56    LDA   L0C97
         PHA
         _DrawChar
         LDA   #$FFFC
         PHA
         LDA   #$0000
         PHA
         _Move
         LDY   #$0000
         LDA   [$02],Y
         AND   #$007F
         CMP   L0C9B
         BEQ   L0B83
         INC   L0C9B
         JMP   L0A01

L0B83    PEA   $0800
         PEA   $FFFE
         PEA   $0000
         _InstallFont
         JSR   L41CC
         PEA   $0000
         _SetFontFlags
         LDA   #$000F
         PHA
         _SetForeColor
         LDA   #$0084
         PHA
         LDA   #$00BE
         PHA
         _MoveTo
         PEA   ^L149E
         PEA   L149E
         _DrawString
         LDA   #$0000
         PHA
         _SetForeColor
         LDY   #$0000
         LDA   ($06),Y
         STA   L0C93
         LDY   #$0002
         LDA   ($06),Y
         STA   L0C95
         LDA   L0C95
         PHA
         LDA   L0C93
         PHA
         _MoveTo
         LDA   $04
         PHA
         LDA   $02
         PHA
         _DrawString
         PEA   $1000
         PEA   $FFFE
         PEA   $0000
         _InstallFont
         JSR   L41CC
         LDA   #$0042
         STA   L1DDE
         JSR   L4A1B
         JSR   L495A
         LDA   #$000F
         PHA
         _SetSolidPenPat
         PEA   ^L2950
         PEA   L2950
         _PaintRect
         LDA   #$0000
         PHA
         _SetSolidPenPat
         PEA   ^L2958
         PEA   L2958
         _PaintRect
         LDA   L0C99
         ASL
         TAY
         LDA   ($00),Y
         STA   L1DE0
         JSR   L443A
         INC   L0C99
         LDA   L0C99
         CMP   #$0007
         BEQ   L0C8C
         JMP   L08CC

L0C68    LDA   L1DCA
         AND   #$00FF
         ASL
         TAX
         JSR   (L0CAB,X)
         PEA   $0000
         LDA   L1DCA+2
         PHA
         _HiliteMenu
         LDA   L0C8F
         CMP   #$00FF
         BEQ   L0C8C
         JMP   L0A01
L0C8C    RTS

L0C8D    DW    $0000
L0C8F    DW    $0000
L0C91    DW    $0000
L0C93    DW    $0000
L0C95    DW    $0000
L0C97    DW    $0000
L0C99    DW    $0000
L0C9B    DW    $0000
L0C9D    DW    $0000
L0C9F    DW    $0000
L0CA1    DW    $0000
L0CA3    DW    $0000
L0CA5    DW    $0000
L0CA7    DW    $0000
L0CA9    DW    $0000
L0CAB    DA    L0675
         DA    L0785
         DA    L0690
         DA    L0CB4
*         RTS

L0CB4    LDA   #$00FF
         STA   L0C8F
         RTS

L0CBB    _HideCursor
         LDA   #$0042
         STA   L149C
         JSR   L17E4
         JSR   L15CC
         JSR   L4220
         _DrawMenuBar
         _InitPalette
         _ShowCursor
         LDA   #$0001
         PHA
         PEA   ^L14C7
         PEA   L14C7
         _SetColorTable
         JSR   L41CC
         LDA   #$008B
         STA   L138C
L0D00    LDA   L138C
         PHA
         LDA   #$0001
         PHA
         _SetSCB
         JSR   L41CC
         INC   L138C
         LDA   L138C
         CMP   #$00C8
         BCC   L0D00
         PEA   ^L3212
         PEA   L3212
         PEA   $0000
         PEA   $008B
         _SetPt
         JSR   L4B63
         _WaitCursor
         PEA   $1000
         PEA   $FFFE
         PEA   $0000
         _InstallFont
         JSR   L41CC
         LDA   #$0041
         STA   L149C
         JSR   L17E4
         LDA   L31DE
         STA   L1E32
         LDA   L31DC
         STA   L1E30
         LDA   #$8000
         STA   L1E34
         JSR   L42AC
         STZ   L138A
         STZ   L13AC
         LDA   L149A
         ASL
         CLC
         ADC   L1498
         ASL
         TAX
         LDA   L13E8,X
         STA   $00
         LDA   L1498
         ASL
         TAX
         LDA   L13F8,X
         STA   $0A
         SEP   #$30
         CLC
         LDA   L1498
         ADC   #$41
         STA   L1E78+$A
         REP   #$30
         LDA   L149A
         ASL
         CLC
         ADC   L1498
         STA   L1388
         PEA   $0000
         PEA   $0000
         LDA   L1388
         PHA
         LDA   #$001C
         PHA
         _Multiply
         PLA
         STA   L13BA
         PLA
         STA   L13BC
         LDA   L13BA
         TAX
         STA   L13B4
         STA   L13B6
         LSR
         STA   L13B8
         JSR   L4986
L0DD0    _WaitCursor
         SEP   #$30
         CLC
         LDA   L13AC
         ADC   #$31
         STA   L1E55+$1D
         REP   #$30
         JSR   L180D
         JSR   L47CC
         LDA   #$0002
         PHA
         PEA   ^L1DFA
         PEA   L1DFA
         _SetColorTable
         JSR   L41CC
         LDA   #$0035
         STA   L138C
L0E04    LDA   L138C
         PHA
         LDA   #$0002
         PHA
         _SetSCB
         JSR   L41CC
         INC   L138C
         LDA   L138C
         CMP   #$0071
         BCC   L0E04
         LDA   L13AC
         ASL
         TAY
         LDA   ($00),Y
         STA   L1DE0
         SEP   #$30
         LDA   ($0A),Y
         STA   L1E78+$11
         REP   #$30
         JSR   L4326
         JSR   L43CC
         _InitCursor
         LDA   L13AC
         ASL
         ASL
         CLC
         ADC   L13B4
         TAX
         LDA   L29C8+2,X
         STA   L3262
         LDA   L29C8,X
         STA   L3260
         LDA   L13AC
         ASL
         CLC
         ADC   L13B8
         TAX
         LDA   L2AA8,X
         STA   $06
         LDY   #$0000
         LDA   ($06),Y
         STA   L1390
         LDY   #$0002
         LDA   ($06),Y
         STA   L1392
         LDA   #^L1390
         STA   L3266
         LDA   #L1390
         STA   L3264
         PEA   ^L3258
         PEA   L3258
         _PaintPixels
         JSR   L41CC
         LDA   L13AC
         ASL
         ASL
         CLC
         ADC   L13B6
         TAX
         LDA   L2F78,X
         STA   $02
         LDA   L2F78+2,X
         STA   $04
         LDY   #$0000
         LDA   [$02],Y
         AND   #$007F
         STA   L1DE2
         LDX   #$0000
         LDA   L13BE,X
         AND   #$FF00
         ORA   L1DE2
         STA   L13BE,X
L0EBF    JSR   L135A
         LDA   #$0001
         STA   L1394
L0EC8    JSR   L49B9
         ASL
         TAX
         LDA   L1396,X
         BNE   L0EC8
         LDA   #$FFFF
         STA   L1396,X
         TXA
         LSR
         INC
         TAY
         LDA   [$02],Y
         AND   #$007F
         STA   L13AA
         LDX   L1394
         LDA   L13BE,X
         AND   #$FF00
         ORA   L13AA
         STA   L13BE,X
         INC   L1394
         LDA   L1DE2
         CMP   L1394
         BCC   L0F01
         JMP   L0EC8

L0F01    PEA   $0001
         _SetFontFlags
         LDA   #$0001
         STA   L1394
         STZ   L138E
L0F14    LDY   L1394
         LDA   [$02],Y
         AND   #$007F
         STA   L13AA
         LDA   L13BE,Y
         AND   #$007F
         CMP   L13AA
         BNE   L0F2D
         INC   L138E
L0F2D    INC   L1394
         LDA   L1DE2
         CMP   L1394
         BCC   L0F3B
         JMP   L0F14

L0F3B    LDA   L138E
         CMP   L1DE2
         BCC   L0F46
         JMP   L0EBF

L0F46    PEA   $0001
         _SetFontFlags
         PEA   $0800
         PEA   $FFFE
         PEA   $0000
         _InstallFont
         JSR   L41CC
         LDA   #$0048
         PHA
         LDA   #$0034
         PHA
         _MoveTo
         PEA   ^L13BE
         PEA   L13BE
         _DrawString
         PEA   $1000
         PEA   $FFFE
         PEA   $0000
         _InstallFont
         JSR   L41CC
         LDA   #$004B
         PHA
         LDA   #$00A9
         PHA
         _MoveTo
         LDA   #$0005
         PHA
         _SetSolidPenPat
         LDA   #$0001
         PHA
         LDA   #$0002
         PHA
         _SetPenSize
         STZ   L13AE
L0FBE    INC   L13AE
         LDY   L13AE
         LDA   [$02],Y
         AND   #$007F
         STA   L13AA
         PEA   $0000
         LDA   L13AA
         PHA
         _CharWidth
         PLA
         CLC
         ADC   #$FFF8
         STA   L1388
         LDA   L1388
         PHA
         LDA   #$0000
         PHA
         _Line
         JSR   L41CC
         LDA   #$0004
         PHA
         LDA   #$0000
         PHA
         _Move
         LDY   #$0000
         LDA   [$02],Y
         AND   #$007F
         CMP   L13AE
         BNE   L0FBE
         LDA   #$0001
         STA   L13AE
         LDA   #$004B
         PHA
         LDA   #$00A8
         PHA
         _MoveTo
         JSR   L135A
         JSR   L1369
         JSR   L4932
L102E    PEA   $0000
         PEA   $FFFF
         PEA   ^L1DBA
         PEA   L1DBA
         _TaskMaster
         PLA
         BEQ   L102E
         CMP   #$0011
         BNE   L104C
         JMP   L12FA

L104C    LDA   L1DBA
         CMP   #$0001
         BEQ   L105E
         CMP   #$0003
         BNE   L102E	; L105C
         JMP   L114C

*L105C    BRA   L102E
L105E    PEA   $0000
         PEA   ^L1DC4
         PEA   L1DC4
         PEA   ^L2938
         PEA   L2938
         _PtInRect
         PLA
         BEQ   L1087
         LDA   L13AC
         ASL
         TAY
         LDA   ($00),Y
         STA   L1DDE
         JSR   L4A1B
         JMP   L102E

L1087    PEA   $0000
         PEA   ^L1DC4
         PEA   L1DC4
         PEA   ^L2940
         PEA   L2940
         _PtInRect
         PLA
         BNE   L10A3
         JMP   L102E

L10A3    LDY   L13AE
         LDA   [$02],Y
         AND   #$007F
         STA   L13AA
         _HideCursor
         PEA   ^L326E
         PEA   L326E
         _PaintPixels
         JSR   L41CC
         _ShowCursor
         LDA   #$0001
         PHA
         _SetSolidPenPat
         LDA   #$0001
         PHA
         LDA   #$0001
         PHA
         _SetPenSize
         PEA   ^L2948
         PEA   L2948
         _PaintRect
         PEA   ^L13B0
         PEA   L13B0
         _GetPen
         LDA   #$0123
         PHA
         LDA   #$00B6
         PHA
         _MoveTo
         LDA   L13AA
         PHA
         _DrawChar
         LDA   L13B2
         PHA
         LDA   L13B0
         PHA
         _MoveTo
L1129    PEA   $0000
         PEA   $0000
         _WaitMouseUp
         PLA
         BNE   L1129
         PEA   ^L3284
         PEA   L3284
         _PaintPixels
         JSR   L41CC
         JMP   L102E

L114C    _ObscureCursor
         LDA   L1DBC
         AND   #$007F
         JSR   L484D
         STA   L13AA
         LDY   L13AE
         LDA   [$02],Y
         AND   #$007F
         CMP   L13AA
         BEQ   L1178
         LDA   #$0043
         STA   L1DDE
         JSR   L4A1B
         JMP   L102E

L1178    LDA   L13AA
         PHA
         _DrawChar
         LDA   #$FFFC
         PHA
         LDA   #$0000
         PHA
         _Move
         JSR   L131F
         TAX
         LDA   L13C9,X
         AND   #$FF00
         ORA   L13AA
         STA   L13C9,X
         PEA   $0800
         PEA   $FFFE
         PEA   $0000
         _InstallFont
         JSR   L41CC
         LDA   #$0001
         PHA
         _SetForeColor
         PEA   ^L1390
         PEA   L1390
         _GetPen
         LDA   #$0048
         PHA
         LDA   #$0034
         PHA
         _MoveTo
         PEA   ^L13C9
         PEA   L13C9
         _DrawString
         LDA   L1392
         PHA
         LDA   L1390
         PHA
         _MoveTo
         LDA   #$0000
         PHA
         _SetForeColor
         PEA   $1000
         PEA   $FFFE
         PEA   $0000
         _InstallFont
         JSR   L41CC
         LDY   #$0000
         LDA   [$02],Y
         AND   #$007F
         CMP   L13AE
         BEQ   L1229
         INC   L13AE
         JMP   L102E

L1229    PEA   $0800
         PEA   $FFFE
         PEA   $0000
         _InstallFont
         JSR   L41CC
         PEA   $0000
         _SetFontFlags
         LDA   #$000F
         PHA
         _SetForeColor
         LDA   #$0084
         PHA
         LDA   #$00BE
         PHA
         _MoveTo
         PEA   ^L149E
         PEA   L149E
         _DrawString
         LDA   #$0000
         PHA
         _SetForeColor
         LDA   #$0042
         STA   L1DDE
         JSR   L4A1B
         JSR   L495A
         LDA   #$000F
         PHA
         _SetSolidPenPat
         PEA   ^L2950
         PEA   L2950
         _PaintRect
         LDA   #$0000
         PHA
         _SetSolidPenPat
         PEA   ^L2958
         PEA   L2958
         _PaintRect
         LDA   #$0001
         PHA
         _SetSolidPenPat
         PEA   ^L2D10
         PEA   L2D10
         _PaintRect
         LDA   L13AC
         ASL
         TAY
         LDA   ($00),Y
         STA   L1DE0
         JSR   L443A
         PEA   $1000
         PEA   $FFFE
         PEA   $0000
         _InstallFont
         JSR   L41CC
         INC   L13AC
         LDA   L13AC
         CMP   #$0007
         BEQ   L131E
         JMP   L0DD0

L12FA    LDA   L1DCA
         AND   #$00FF
         ASL
         TAX
         JSR   (L13D4,X)
         PEA   $0000
         LDA   L1DCA+2
         PHA
         _HiliteMenu
         LDA   L138A
         CMP   #$00FF
         BEQ   L131E
         JMP   L102E
L131E    RTS

L131F    LDX   L1DE2
L1322    LDA   L13BE,X
         AND   #$007F
         CMP   L13AA
         BEQ   L133A
         DEX
         BNE   L1322
         LDA   #$0041
         STA   L1DDE
         JSR   L4A1B
         STP
L133A    TXA
         DEC
         ASL
         TAY
         LDA   L1396,Y
         BNE   L134D
         LDA   #$FFFF
         STA   L1396,Y
         TYA
         LSR
         INC
         RTS

L134D    DEX
         BNE   L1322
         LDA   #$0042
         STA   L1DDE
         JSR   L4A1B
         STP
L135A    LDX   #$0000
         LDY   L1DE2
L1360    STZ   L1396,X
         INX
         INX
         DEY
         BNE   L1360
         RTS

L1369    LDX   L1DE2
L136C    LDA   L13C9,X
         AND   #$FF00
         ORA   #$0020
         STA   L13C9,X
         DEX
         BNE   L136C
         LDA   L13C9,X
         AND   #$FF00
         ORA   L1DE2
         STA   L13C9,X
         RTS

L1388    DW    $0000
L138A    DW    $0000
L138C    DW    $0000
L138E    DW    $0000
L1390    DW    $0000
L1392    DW    $0000
L1394    DW    $0000
L1396    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L13AA    DW    $0000
L13AC    DW    $0000
L13AE    DW    $0000
L13B0    DW    $0000
L13B2    DW    $0000
L13B4    DW    $0000
L13B6    DW    $0000
L13B8    DW    $0000
L13BA    DW    $0000
L13BC    DW    $0000
L13BE    STR   '0123456789'
L13C9    STR   '          '
L13D4    DA    L0675
         DA    L07A0
         DA    L0690
         DA    L13DD
         RTS
L13DD    LDA   #$00FF
         STA   L138A
         RTS
L13E4    DW    $0000
L13E6    DW    $0000

L13E8    DA    L13FC
         DA    L140C
         DA    L141C
         DA    L142C
         DA    L143C
         DA    L144C
         DA    L145C
         DA    L147A
L13F8    DA    L146C
         DA    L148A
L13FC    ASC   '1'00
         ASC   '2'00
         ASC   '3'00
         ASC   '4'00
         ASC   '5'00
         ASC   '6'00
         ASC   '7'00
         ASC   00
         ASC   00
L140C    ASC   '1'00
         ASC   '2'00
         ASC   '3'00
         ASC   '4'00
         ASC   '5'00
         ASC   '6'00
         ASC   '7'00
         ASC   00
         ASC   00
L141C    ASC   '1'00
         ASC   '2'00
         ASC   '3'00
         ASC   '4'00
         ASC   '5'00
         ASC   '6'00
         ASC   '7'00
         ASC   00
         ASC   00
L142C    ASC   '1'00
         ASC   '2'00
         ASC   '3'00
         ASC   '4'00
         ASC   '5'00
         ASC   '6'00
         ASC   '7'00
         ASC   00
         ASC   00
L143C    ASC   '1'00
         ASC   '2'00
         ASC   '3'00
         ASC   '4'00
         ASC   '5'00
         ASC   '6'00
         ASC   '7'00
         ASC   00
         ASC   00
L144C    ASC   '1'00
         ASC   '2'00
         ASC   '3'00
         ASC   '4'00
         ASC   '5'00
         ASC   '6'00
         ASC   '7'00
         ASC   00
         ASC   00
L145C    ASC   '2'00
         ASC   '5'00
         ASC   '3'00
         ASC   '6'00
         ASC   '5'00
         ASC   '6'00
         ASC   '3'00
         ASC   00
         ASC   00
L146C    ASC   '2'00
         ASC   '2'00
         ASC   '3'00
         ASC   '1'00
         ASC   '1'00
         ASC   '3'00
         ASC   '1'00
L147A    ASC   '6'00
         ASC   '5'00
         ASC   '6'00
         ASC   '2'00
         ASC   '6'00
         ASC   '1'00
         ASC   '4'00
         ASC   00
         ASC   00
L148A    ASC   '1'00
         ASC   '3'00
         ASC   '3'00
         ASC   '3'00
         ASC   '2'00
         ASC   '3'00
         ASC   '1'00
L1498    DW    $0000
L149A    DW    $0000
L149C    DW    $0000
L149E    STR   'Correct!'
L14A7    HEX   00000000000000000000000000000000
         HEX   00000000000000000000000000000000
L14C7    HEX   0000D008E40CF70F060397007600000F
         HEX   000406010A011D00420166069909FF0F
L14E7    CLC
         ADC   L1DDC
         STA   L1DDC
         LDA   L1DDC
         PHA
         PEA   $000F
         _SetSoundVolume
         RTS

L14FD    LDA   L1DDE
         STA   L1514
         LDA   #$0044
         STA   L1DDE
         JSR   L4A5E
         LDA   L1514
         STA   L1DDE
*         BRA   L1516
	 rts
L1514    DW    $0000
*L1516    RTS

L1517    LDA   L1DDC
         CMP   #$0000
         BEQ   L1568
         PEA   $0000
         PEA   $0000
         LDA   L1DDC
         PHA
         LDA   #$0011
         PHA
         _UDivide
         PLA
         STA   L1564
         PLA
         STA   L1566
         LDA   #$000F
         PHA
         _SetSolidPenPat
         LDA   L1564
         ASL
         ASL
         TAX
         LDA   L2DC0+2,X
         PHA
         LDA   L2DC0,X
         PHA
         _PaintRect
         LDA   #$FFEF
         jmp   L14E7
*         BRA   L1568
L1564    DW    $0000
L1566    DW    $0000
L1568    RTS

L1569    LDA   L1DDC
         CMP   #$00FF
         BEQ   L15BA
         LDA   #$0011
         JSR   L14E7
         PEA   $0000
         PEA   $0000
         LDA   L1DDC
         PHA
         LDA   #$0011
         PHA
         _UDivide
         PLA
         STA   L15B6
         PLA
         STA   L15B8
         LDA   #$0000
         PHA
         _SetSolidPenPat
         LDA   L15B6
         ASL
         ASL
         TAX
         LDA   L2DC0+2,X
         PHA
         LDA   L2DC0,X
         PHA
         _PaintRect
*         BRA   L15BA
	 rts
L15B6    DW    $0000
L15B8    DW    $0000
L15BA    RTS

L15BB    PEA   ^L322C
         PEA   L322C
         _PaintPixels
         JSR   L41CC
         RTL

L15CC    PEA   $0000
         _ClearScreen
         PEA   $0000
         _SetAllSCBs
         LDA   #$0000
         PHA
         PEA   ^L14A7
         PEA   L14A7
         _SetColorTable
         JSR   L41CC
         RTS

L15F5    _HideCursor
         PEA   ^L3216
         PEA   L3216
         _PaintPixels
         JSR   L41CC
         _ShowCursor
         PEA   $0000
         PEA   $0000
         PEA   $0005
         PEA   ^L15BB
         PEA   L15BB
         _Desktop
         PLA
         PLA
         RTS

L162C    SEP   #$30
         LDA   #$47
         STA   L1E78+$A
         LDA   #$47
         STA   L1E78+$11
         REP   #$30
         STZ   L1658
L163D    LDA   L1658
         ASL
         TAX
         LDA   L165A,X
         BEQ   L1666
         STA   L1DE0
         JSR   L4326
         JSR   L43CC
         JSR   L4B9D
         INC   L1658
         BRA   L163D
L1658    DW    $0000
L165A    ASC   'A'00
         ASC   'B'00
         ASC   'C'00
         ASC   'D'00
         ASC   'F'00
         DW    $0000
L1666    RTS

*         PEA   $0000
*         PEA   $0000
*         _FreeMem
*         PLA
*         STA   L173B
*         PLA
*         STA   L173D
*         SEC
*         LDA   L1737
*         SBC   L173B
*         STA   L173F
*         LDA   L1739
*         SBC   L173D
*         STA   L1741
*         PEA   ^L1733
*         PEA   L1733
*         _GetPen
*         JMP   L16A8
*
*L169F    STR   '        '
*L16A8    LDA   L173D
*         PHA
*         LDA   L173B
*         PHA
*         PEA   ^L169F+1
*         PEA   L169F+1
*         PEA   $0008
*         _Long2Hex
*         JSR   L41CC
*         LDA   #$001E
*         PHA
*         LDA   #$0050
*         PHA
*         _MoveTo
*         PEA   ^L169F
*         PEA   L169F
*         _DrawString
*         JMP   L16EB
*
*L16E2    STR   '        '
*L16EB    LDA   L1741
*         PHA
*         LDA   L173F
*         PHA
*         PEA   ^L16E2+1
*         PEA   L16E2+1
*         PEA   $0008
*         _Long2Hex
*         JSR   L41CC
*         LDA   #$001E
*         PHA
*         LDA   #$005A
*         PHA
*         _MoveTo
*         PEA   ^L16E2
*         PEA   L16E2
*         _DrawString
*         LDA   L1735
*         PHA
*         LDA   L1733
*         PHA
*         _MoveTo
*         BRA   L1743
*L1733    DW    $0000
*L1735    DW    $0000
*L1737    DW    $0000
*L1739    DW    $0800
*L173B    DW    $0000
*L173D    DW    $0000
*L173F    DW    $0000
*L1741    DW    $0000
*L1743    RTS

L1744    PEA   ^L2910
         PEA   L2910
         _FrameRect
         PEA   $0000
         PEA   ^L17C6
         PEA   L17C6
         _StringWidth
         PLA
         STA   L17C4
         SEC
         LDA   #$0140
         SBC   L17C4
         LSR
         STA   L17C4
         LDA   #$0000
         PHA
         _SetSolidPenPat
         LDA   L17C4
         PHA
         LDA   #$0037
         PHA
         _MoveTo
         PEA   ^L17C6
         PEA   L17C6
         _DrawString
         LDA   #$0002
         PHA
         LDA   #$0002
         PHA
         _SetPenSize
         PEA   ^L2918
         PEA   L2918
         _FrameRect
         LDA   #$0040
         PHA
         LDA   #$0091
         PHA
         _MoveTo
         BRA   L17E3
L17C4    DW    $0000
L17C6    STR   'Please wait while loading...'
L17E3    RTS

L17E4    LDA   #^L1E3C
         STA   L1CEE+2
         LDA   #L1E3C
         STA   L1CEE
         SEP   #$30
         CLC
         LDA   L1498
         ADC   #$31
         STA   L1E3C+$12
         CLC
         LDA   L149A
         ADC   #$31
         STA   L1E3C+$13
         LDA   L149C
         STA   L1E3C+$14
         REP   #$30
         RTS

L180D    LDA   #^L1E55
         STA   L1CEE+2
         LDA   #L1E55
         STA   L1CEE
         SEP   #$30
         CLC
         LDA   L1498
         ADC   #$31
         STA   L1E55+$1E
         REP   #$30
         RTS
L1827    JMP   L183F

L182A    STR   '0/PICTURES/SKILL.PAC'
L183F    LDA   #^L182A
         STA   L1CEE+2
         LDA   #L182A
         STA   L1CEE
         JSL   GSOS
         DW    $0010      ; Open
         ADRL  L1CEC
         JSR   L41CC
         LDA   L1CEC
         STA   L1CF6
         STA   L1D12
         LDA   L31DE
         STA   L1E32
         LDA   L31DC
         STA   L1E30
         LDA   #$8000
         STA   L1E34
         JSR   L42C2
         RTS

L1877    _HideCursor
         STZ   L18C2
L1881    LDA   #$0008
         JSR   L4967
         LDA   L18C2
         ASL
         ASL
         TAX
         LDA   L2E80+2,X
         STA   L3262
         LDA   L2E80,X
         STA   L3260
         LDA   #^L2EBC
         STA   L3266
         LDA   #L2EBC
         STA   L3264
         PEA   ^L3258
         PEA   L3258
         _PaintPixels
         JSR   L41CC
         INC   L18C2
         LDA   L18C2
         CMP   #$0005
         BNE   L1881
         BRA   L18C4
L18C2    DW    $0000
L18C4    _ShowCursor
         RTS

L18CC    _HideCursor
         STZ   L1928
L18D6    LDA   #$0008
         JSR   L4967
         LDA   L1928
         ASL
         ASL
         TAX
         LDA   L2EC4+2,X
         STA   L3262
         LDA   L2EC4,X
         STA   L3260
         LDA   #^L2F00
         STA   L3266
         LDA   #L2F00
         STA   L3264
         PEA   ^L3258
         PEA   L3258
         _PaintPixels
         JSR   L41CC
         INC   L1928
         LDA   L1928
         CMP   #$0004
         BNE   L1921
         LDA   #$0046
         STA   L1DDE
         JSR   L4A5E
         JMP   L18D6

L1921    CMP   #$0005
         BNE   L18D6
         BRA   L192A
L1928    DW    $0000
L192A    _ShowCursor
         RTS

L1932    _HideCursor
         STZ   L197D
L193C    LDA   #$0009
         JSR   L4967
         LDA   L197D
         ASL
         ASL
         TAX
         LDA   L2F08+2,X
         STA   L3262
         LDA   L2F08,X
         STA   L3260
         LDA   #^L2F38
         STA   L3266
         LDA   #L2F38
         STA   L3264
         PEA   ^L3258
         PEA   L3258
         _PaintPixels
         JSR   L41CC
         INC   L197D
         LDA   L197D
         CMP   #$0004
         BNE   L193C
         BRA   L197F
L197D    DW    $0000
L197F    _ShowCursor
         RTS

L1987    _HideCursor
         STZ   L19D2
L1991    LDA   #$0009
         JSR   L4967
         LDA   L19D2
         ASL
         ASL
         TAX
         LDA   L2F40+2,X
         STA   L3262
         LDA   L2F40,X
         STA   L3260
         LDA   #^L2F70
         STA   L3266
         LDA   #L2F70
         STA   L3264
         PEA   ^L3258
         PEA   L3258
         _PaintPixels
         JSR   L41CC
         INC   L19D2
         LDA   L19D2
         CMP   #$0004
         BNE   L1991
*         BRA   L19D4
L19D4    _ShowCursor
         RTS
L19D2    DW    $0000

L19DC    _TLStartUp
         PEA   $0000
         _MMStartUp
         JSR   L41CC
         PLA
         STA   L1D1A
         ORA   #$0100
         STA   L1D1C
         _MTStartUp
         PEA   $0000
         PEA   $0000
         PEA   $0000
         pea   $0800	; 8 pages of DP
         LDA   L1D1C
         PHA
         PEA   $C005
         PEA   $0000
         PEA   $0000
         _NewHandle
         JSR   L41CC
         PLA
         STA   $00
         PLA
         STA   $02
         LDY   #$0000
         LDA   [$00],Y
         STA   L1D1E
         LDY   #$0002
         LDA   [$00],Y
         STA   L1D20
         LDA   #$0300
         JSR   L4818
         PHA
         PEA   $0000
         PEA   $0000
         LDA   L1D1A
         PHA
         _QDStartUp
         JSR   L41CC
         _PenNormal
         PEA   $0000
         _SetFontFlags
         PEA   $0000
         _SetTextMode
         JSR   L4815
         PHA
         PEA   $0001
         PEA   $0000
         PEA   $0140
         PEA   $0000
         PEA   $00C8
         LDA   L1D1A
         PHA
         _EMStartUp
         JSR   L41CC
         JSR   L4815
         PHA
         _SoundStartUp
         jmp   L41CC

* AV 202103 - That was the bug

*L1AA1    JSL   $E10000

L1AA1    _SoundShutDown
         _EMShutDown
         _QDShutDown
         _MTShutDown
         LDA   L1D1A
         PHA
         _DisposeAll
         JSR   L41CC
         LDA   L1D1A
         PHA
         _MMShutDown
         _TLShutDown
         RTS

* AV 202103 - Let's optimize

L1ADB
*         PEA   $0012
*         PEA   $0000
*         _LoadOneTool
*         JSR   L41CC
*         JSR   L4B9D
*         PEA   $000E
*         PEA   $0000
*         _LoadOneTool
*         JSR   L41CC
*         JSR   L4B9D
*         PEA   $0010
*         PEA   $0000
*         _LoadOneTool
*         JSR   L41CC
*         JSR   L4B9D
*         PEA   $000F
*         PEA   $0000
*         _LoadOneTool
*         JSR   L41CC
*         JSR   L4B9D
*         PEA   $0014
*         PEA   $0000
*         _LoadOneTool
*         JSR   L41CC
*         JSR   L4B9D
*         PEA   $0015
*         PEA   $0000
*         _LoadOneTool
*         JSR   L41CC
*         JSR   L4B9D
*         PEA   $001B
*         PEA   $0000
*         _LoadOneTool

	 PushLong #toolTBL
         _LoadTools
         JSR   L41CC
         JSR   L4B9D

*--- Now, start tools

         _QDAuxStartUp
         LDA   L1D1A
         PHA
         _WindStartUp
         LDA   L1D1A
         PHA
         JSR   L4815
         PHA
         _CtlStartUp
         JSR   L41CC
         LDA   L1D1A
         PHA
         JSR   L4815
         PHA
         _MenuStartUp
         PEA   $0000
         PEA   $0000
         PEA   ^L287E
         PEA   L287E
         _NewMenu
         PLA
         STA   L2897
         PLA
         STA   L2897+2
         PEA   $0000
         PEA   $0000
         PEA   ^L289B
         PEA   L289B
         _NewMenu
         PLA
         STA   L28C7
         PLA
         STA   L28C7+2
         PEA   $0000
         PEA   $0000
         PEA   ^L28CB
         PEA   L28CB
         _NewMenu
         PLA
         STA   L28EC
         PLA
         STA   L28EC+2
         PEA   $0000
         PEA   $0000
         PEA   ^L28F0
         PEA   L28F0
         _NewMenu
         plx
         stx   L290C
         PLA
         STA   L290C+2

*         LDA   L290C+2
         PHA
*         LDA   L290C
         phx
         PEA   $0000
         _InsertMenu
         LDA   L28EC+2
         PHA
         LDA   L28EC
         PHA
         PEA   $0000
         _InsertMenu
         LDA   L28C7+2
         PHA
         LDA   L28C7
         PHA
         PEA   $0000
         _InsertMenu
         LDA   L2897+2
         PHA
         LDA   L2897
         PHA
         PEA   $0000
         _InsertMenu
         PEA   $0000
         _FixMenuBar
         PLA
         _DrawMenuBar
         _InitPalette
         PEA   $0000
         _SetMItemBlink
         LDA   L1D1A
         PHA
         JSR   L4815
         PHA
         _LEStartUp
         JSR   L41CC
         LDA   L1D1A
         PHA
         _DialogStartUp
         _DeskStartUp
         LDA   L1D1A
         PHA
         JSR   L4815
         PHA
         _FMStartUp
         jmp   L41CC

L1CA1    _QDAuxShutDown
         _FMShutDown
         _DeskShutDown
         _DialogShutDown
         _LEShutDown
         _MenuShutDown
         _CtlShutDown
         _WindShutDown
         RTS

toolTBL	dw	$0007
	dw	$0012
	dw	$0100
	dw	$000e
	dw	$0100
	dw	$0010
	dw	$0100
	dw	$000f
	dw	$0100
	dw	$0014
	dw	$0100
	dw	$0015
	dw	$0100
	dw	$001b
	dw	$0100

L1CDA    ADRL  $00000000  ;  file name
         DW    $00C3      ;  access
L1CE0    DW    $00C1      ;  file type
L1CE2    ADRL  $00000000  ;  aux type
         DW    $0001      ;  storage
         DS    4          ;  creation date
L1CEC    DW    $0000      ;  ref num
L1CEE    ADRL  $00000000  ;  path name
         ADRL  $00000000  ;  reserved
L1CF6    DW    $0000      ;  ref num
L1CF8    ADRL  $00000000  ;  buffer ptr
L1CFC    ADRL  $00000000  ;  request count
         ADRL  $00000000  ;  transfer count
L1D04    DW    $0000      ;  ref num
L1D06    ADRL  $00000000  ;  buffer ptr
L1D0A    ADRL  $00000000  ;  request count
         ADRL  $00000000  ;  transfer count
L1D12    DW    $0000      ;  ref num
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L1D1A    DB    $00
         DB    $00
L1D1C    DB    $00
         DB    $00
L1D1E    DB    $00
         DB    $00
L1D20    DB    $00
         DB    $00
L1D22    DB    $00
         DB    $00
L1D24    DB    $00
         DB    $00
L1D26    DB    $00
         DB    $00
L1D28    DB    $00
         DB    $00
L1D2A    DB    $00
         DB    $00
         DB    $00
         DB    $00
L1D2E    DB    $00
         DB    $00
         DB    $00
         DB    $00
L1D32    DB    $00
         DB    $00
         DB    $00
         DB    $00
L1D36    DB    $00
         DB    $00
         DB    $00
         DB    $00
L1D3A    DB    $00
         DB    $00
         DB    $00
         DB    $00
L1D3E    DB    $00
         DB    $00
         DB    $00
         DB    $00
L1D42    DB    $00
         DB    $00
         DB    $00
         DB    $00
L1D46    DB    $00
         DB    $00
         DB    $00
         DB    $00
L1D4A    DB    $00
         DB    $00
         DB    $00
         DB    $00
L1D4E    DB    $00
         DB    $00
         DB    $00
         DB    $00
L1D52    DB    $00
         DB    $00
         DB    $00
         DB    $00
L1D56    DB    $00
         DB    $00
         DB    $00
         DB    $00
L1D5A    DB    $00
         DB    $00
         DB    $00
         DB    $00
L1D5E    DB    $00
         DB    $00
         DB    $00
         DB    $00
L1D62    DB    $00
         DB    $00
         DB    $00
         DB    $00
L1D66    DB    $00
         DB    $00
         DB    $00
         DB    $00
L1D6A    DB    $00
         DB    $00
         DB    $00
         DB    $00
L1D6E    DB    $00
         DB    $00
         DB    $00
         DB    $00
L1D72    DB    $00
         DB    $00
         DB    $00
         DB    $00
L1D76    DB    $00
         DB    $00
         DB    $00
         DB    $00
L1D7A    DB    $00
         DB    $00
         DB    $00
         DB    $00
L1D7E    DB    $00
         DB    $00
         DB    $00
         DB    $00
L1D82    DB    $00
         DB    $00
         DB    $00
         DB    $00
L1D86    DB    $00
         DB    $00
         DB    $00
         DB    $00
L1D8A    DB    $00
         DB    $00
         DB    $00
         DB    $00
L1D8E    DB    $00
         DB    $00
         DB    $00
         DB    $00
L1D92    DB    $00
         DB    $00
         DB    $00
         DB    $00
L1D96    DB    $00
         DB    $00
         DB    $00
         DB    $00
L1D9A    DB    $00
         DB    $00
         DB    $00
         DB    $00
L1D9E    DB    $00
         DB    $00
         DB    $00
         DB    $00
L1DA2    DB    $00
         DB    $00
         DB    $00
         DB    $00
L1DA6    DB    $00
         DB    $00
         DB    $00
         DB    $00
L1DAA    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L1DBA    DW    $0000      ; event code
L1DBC    ADRL  $00000000  ; event message
         ADRL  $00000000  ; tick count
L1DC4    DW    $0000      ; mouse location
         DW    $0000
         DW    $0000      ; modifiers
L1DCA    ADRL  $00000000  ; task data
         ADRL  $00001FFF  ; task mask
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L1DD8    DB    $00
         DB    $00
L1DDA    DB    $00
         DB    $00
L1DDC    DB    $00
         DB    $00
L1DDE    DB    $00
         DB    $00
L1DE0    DB    $00
         DB    $00
L1DE2    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L1DFA    HEX   00000000000000000000000000000000
         HEX   00000000000000000000000000000000
L1E1A    ADRL  $00000000
L1E1E    ADRL  $00000000
L1E22    ADRL  $00000000
L1E26    ADRL  $00000000
L1E2A    DB    $00
         DB    $00
L1E2C    DB    $00
         DB    $00
L1E2E    DB    $00
         DB    $00
L1E30    DB    $00
         DB    $00
L1E32    DB    $00
         DB    $00
L1E34    DB    $00
         DB    $00
L1E36    DB    $00
         DB    $00
L1E38    DB    $00
         DB    $00
L1E3A    DB    $00
         DB    $00
L1E3C    STR   '0/PICTURES/SLIDE.???.PAC'
L1E55    STR   '0/PICTURES/PALETTES/PALETTE.??.PAL'
L1E78    STR   '0/SOUNDS/?/WAVE.??.VOX'
L1E8F    ADRL  L1FA3
         ADRL  L1FB5
         ADRL  L1FC7
         ADRL  L1FD9
         ADRL  L1FEB
         ADRL  L1FFD
         ADRL  L200F
         ADRL  L2021
         ADRL  L2033
         ADRL  L2045
         ADRL  L2057
         ADRL  L2069
         ADRL  L207B
         ADRL  L208D
         ADRL  L209F
         ADRL  L20B1
         ADRL  L20C3
         ADRL  L20D5
         ADRL  L20E7
         ADRL  L20F9
         ADRL  L210B
         ADRL  L211D
         ADRL  L212F
         ADRL  L2141
         ADRL  L2153
         ADRL  L2165
         ADRL  L2177
         ADRL  L2189
         ADRL  L219B
         ADRL  L21AD
         ADRL  L21BF
         ADRL  L21D1
         ADRL  L21E3
         ADRL  L21F5
         ADRL  L2207
         ADRL  L2219
L1F1F    ADRL  L1D2A
         ADRL  L1D2E
         ADRL  L1D32
         ADRL  L1D36
         ADRL  L1D3A
         ADRL  L1D3E
         ADRL  L1D42
         ADRL  L1D46
         ADRL  L1D4A
         ADRL  L1D4E
         ADRL  L1D52
         ADRL  L1D56
         ADRL  L1D5A
         ADRL  L1D5E
         ADRL  L1D62
         ADRL  L1D66
         ADRL  L1D6A
         ADRL  L1D6E
         ADRL  L1D72
         ADRL  L1D76
         ADRL  L1D7A
         ADRL  L1D7E
         ADRL  L1D82
         ADRL  L1D86
         ADRL  L1D8A
         ADRL  L1D8E
         ADRL  L1D92
         ADRL  L1D96
         ADRL  L1D9A
         ADRL  L1D9E
         ADRL  L1DA2
         ADRL  L1DA6
         ADRL  L1DAA
L1FA3    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $C8
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $FF
         DB    $00
L1FB5    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $C8
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $FF
         DB    $00
L1FC7    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $C8
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $FF
         DB    $00
L1FD9    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $C8
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $FF
         DB    $00
L1FEB    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $C8
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $FF
         DB    $00
L1FFD    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $C8
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $FF
         DB    $00
L200F    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $C8
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $FF
         DB    $00
L2021    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $C8
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $FF
         DB    $00
L2033    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $C8
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $FF
         DB    $00
L2045    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $C8
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $FF
         DB    $00
L2057    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $C8
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $C0
         DB    $00
L2069    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $C8
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $FF
         DB    $00
L207B    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $C8
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $FF
         DB    $00
L208D    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $C8
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $FF
         DB    $00
L209F    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $C8
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $FF
         DB    $00
L20B1    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $B8
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $FF
         DB    $00
L20C3    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $C8
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $FF
         DB    $00
L20D5    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $C8
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $FF
         DB    $00
L20E7    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $C8
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $FF
         DB    $00
L20F9    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $C8
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $FF
         DB    $00
L210B    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $C8
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $FF
         DB    $00
L211D    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $C8
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $FF
         DB    $00
L212F    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $C8
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $FF
         DB    $00
L2141    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $C8
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $FF
         DB    $00
L2153    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $C8
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $FF
         DB    $00
L2165    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $C8
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $FF
         DB    $00
L2177    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $C8
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $FF
         DB    $00
L2189    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $C8
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $FF
         DB    $00
L219B    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $C8
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $FF
         DB    $00
L21AD    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $C8
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $FF
         DB    $00
L21BF    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $C8
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $FF
         DB    $00
L21D1    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $C8
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $FF
         DB    $00
L21E3    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $C8
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $FF
         DB    $00
L21F5    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $C8
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $FF
         DB    $00
L2207    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $C8
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $FF
         DB    $00
L2219    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $C8
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $FF
         DB    $00
L222B    PEA   $0000
         PEA   $0000
         _GetClipHandle
         PLA
         STA   L3228
         STA   L323E
         STA   L3254
         STA   L3280
         STA   L3296
         STA   L326A
         PLA
         STA   L322A
         STA   L3240
         STA   L3256
         STA   L3282
         STA   L3298
         STA   L326C
         RTS

L225F    DW    $001E      ; Alert rect
         DW    $0014
         DW    $00AA
         DW    $012C
         DW    $0001      ; Alert ID
         HEX   80         ; First stage byte
         HEX   80         ; Second stage byte
         HEX   80         ; Third stage byte
         HEX   80         ; fourth stage byte
         ADRL  L23DE      ; Ptr to item template
         ADRL  L2279      ; Ptr to item template
         ADRL  $00000000
L2279    DW    $0002      ; Item ID
         DW    $000A      ; Item rect
         DW    $000A
         DW    $0064
         DW    $010E
         DW    $8010      ; Static text
         ADRL  L2291      ; Item descriptor
         DW    $014D      ; Item value
         DW    $0000      ; Bit flag
         ADRL  $00000000  ; Ptr to color table
L2291    ASC   'Talking Speller                     '0D
         ASC   '                                    '0D
         ASC   'Programmed by Howard M. Josephson   '0D
         ASC   '  Illustrations by Dean Di Marzo    '0D
         ASC   '    and John J. Fresenius           '0D
         ASC   '      Written by Nicholas S. Vazzana'0D
         ASC   '                                    '0D
         ASC   'Copyright (C) 1989 by Multi         '0D
         ASC   '  Dimensional Communications, Inc.  '0D
L23DE    DW    $0001      ; Item ID
         DW    $006E      ; Item rect
         DW    $006E
         DW    $0082
         DW    $00AA
         DW    $000A      ; Std button
         ADRL  L23F6      ; Item descriptor
         DW    $0000      ; Item value
         DW    $0000      ; Bit flag
         ADRL  $00000000  ; Ptr to color table
L23F6    STR   'OK'
L23F9    DW    $001E      ; dtBoundsRect
         DW    $0014
         DW    $00AA
         DW    $012C
         DW    $8000      ; dtVisible
         ADRL  $00000000  ; dtRefCon
         ADRL  L2463      ; itemPtr
         ADRL  L244B      ; itemPtr
         ADRL  L2433      ; itemPtr
         ADRL  L241B      ; itemPtr
         ADRL  $00000000  ; Terminator
L241B    DW    $0003      ; Item ID
         DW    $000E      ; Item rect
         DW    $0040
         DW    $0018
         DW    $00DC
         DW    $800F      ; Static text
         ADRL  L247B      ; Item descriptor
         DW    $0000      ; Item value
         DW    $0000      ; Bit flag
         ADRL  $00000000  ; Ptr to color table
L2433    DW    $0004      ; Item ID
         DW    $0046      ; Item rect
         DW    $003C
         DW    $005A
         DW    $0078
         DW    $000A      ; Std button
         ADRL  L2490      ; Item descriptor
         DW    $0000      ; Item value
         DW    $0000      ; Bit flag
         ADRL  $00000000  ; Ptr to color table
L244B    DW    $0006      ; Item ID
         DW    $0046      ; Item rect
         DW    $00A0
         DW    $005A
         DW    $00DC
         DW    $000A      ; Std button
         ADRL  L2495      ; Item descriptor
         DW    $0000      ; Item value
         DW    $0000      ; Bit flag
         ADRL  $00000000  ; Ptr to color table
L2463    DW    $0001      ; Item ID
         DW    $006E      ; Item rect
         DW    $006E
         DW    $0082
         DW    $00AA
         DW    $000A      ; Std button
         ADRL  L2498      ; Item descriptor
         DW    $0000      ; Item value
         DW    $0000      ; Bit flag
         ADRL  $00000000  ; Ptr to color table
L247B    STR   'Volume Control Panel'
L2490    STR   'DOWN'
L2495    STR   'UP'
L2498    STR   'OK'
L249B    ADRL  $00000000
L249F    DW    $001E      ; Alert rect
         DW    $0014
         DW    $00AA
         DW    $012C
         DW    $0001      ; Alert ID
         HEX   80         ; First stage byte
         HEX   80         ; Second stage byte
         HEX   80         ; Third stage byte
         HEX   80         ; fourth stage byte
         ADRL  L2863      ; Ptr to item template
         ADRL  L24B9      ; Ptr to item template
         ADRL  $00000000
L24B9    DW    $0002      ; Item ID
         DW    $000A      ; Item rect
         DW    $000A
         DW    $0064
         DW    $010E
         DW    $8010      ; Static text
         ADRL  L24D1      ; Item descriptor
         DW    $00B9      ; Item value
         DW    $0000      ; Bit flag
         ADRL  $00000000  ; Ptr to color table
L24D1    ASC   '   Make a selection by clicking the '0D
         ASC   'mouse on the box of your choice.    '0D
         ASC   '                                    '0D
         ASC   '                                    '0D
         ASC   '                                    '0D
L258A    DW    $001E      ; Alert rect
         DW    $0014
         DW    $00AA
         DW    $012C
         DW    $0001      ; Alert ID
         HEX   80         ; First stage byte
         HEX   80         ; Second stage byte
         HEX   80         ; Third stage byte
         HEX   80         ; fourth stage byte
         ADRL  L2863      ; Ptr to item template
         ADRL  L25A4      ; Ptr to item template
         ADRL  $00000000
L25A4    DW    $0002      ; Item ID
         DW    $000A      ; Item rect
         DW    $000A
         DW    $0064
         DW    $010E
         DW    $8010      ; Static text
         ADRL  L25BC      ; Item descriptor
         DW    $014D      ; Item value
         DW    $0000      ; Bit flag
         ADRL  $00000000  ; Ptr to color table
L25BC    ASC   '   The student hears a word and sees'0D
         ASC   'a corresponding object.  The student'0D
         ASC   'must then type the word correctly in'0D
         ASC   'the space provided.  The word is    '0D
         ASC   'repeated if the mouse is clicked on '0D
         ASC   'the "SPEAK" button.  The student may'0D
         ASC   'obtain help with the next letter by '0D
         ASC   'clicking the mouse on the "HELP"    '0D
         ASC   'button.                             '0D
L2709    DW    $001E      ; Alert rect
         DW    $0014
         DW    $00AA
         DW    $012C
         DW    $0001      ; Alert ID
         HEX   80         ; First stage byte
         HEX   80         ; Second stage byte
         HEX   80         ; Third stage byte
         HEX   80         ; fourth stage byte
         ADRL  L2863      ; Ptr to item template
         ADRL  L2723      ; Ptr to item template
         ADRL  $00000000
L2723    DW    $0002      ; Item ID
         DW    $000A      ; Item rect
         DW    $000A
         DW    $0064
         DW    $010E
         DW    $8010      ; Static text
         ADRL  L273B      ; Item descriptor
         DW    $0128      ; Item value
         DW    $0000      ; Bit flag
         ADRL  $00000000  ; Ptr to color table
L273B    ASC   '   The student sees a word, with its'0D
         ASC   'letters rearranged, next to a       '0D
         ASC   'corresponding picture.  The student '0D
         ASC   'must then type the word correctly in'0D
         ASC   'the space provided.  The student may'0D
         ASC   'obtain help with the next letter by '0D
         ASC   'clicking the mouse on the "HELP"    '0D
         ASC   'button.                             '0D
L2863    DW    $0001      ; Item ID
         DW    $006E      ; Item rect
         DW    $006E
         DW    $0082
         DW    $00AA
         DW    $000A      ; Std button
         ADRL  L287B      ; Item descriptor
         DW    $0000      ; Item value
         DW    $0000      ; Bit flag
         ADRL  $00000000  ; Ptr to color table
L287B    STR   'OK'
L287E    ASC   '>>@\N1X'00
         ASC   '--ABOUT\N256*Aa'00
         ASC   '.'
L2897    ADRL  $00000000
L289B    ASC   '>> Instructions \N2'00
         ASC   '--INSTRUCTIONS\N257*Ii'00
         ASC   '.'
L28C7    ADRL  $00000000
L28CB    ASC   '>> Volume \N3X'00
         ASC   '--VOLUME\N258*Vv'00
         ASC   '.'
L28EC    ADRL  $00000000
L28F0    ASC   '>> Quit \N5'00
         ASC   '--QUIT\N259*Qq'00
         ASC   '.'
L290C    ADRL  $00000000
L2910    DW    $0000
         DW    $0000
         DW    $0000
         DW    $0000
L2918    DW    $0000
         DW    $0000
         DW    $0000
         DW    $0000
L2920    DW    $0000
         DW    $0000
         DW    $0000
         DW    $0000
L2928    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L2938    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L2940    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L2948    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L2950    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L2958    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L2960    ADRL  L2968
         ADRL  L2970
L2968    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L2970    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L2978    ADRL  L2988
         ADRL  L2990
         ADRL  L2998
         ADRL  L29A0
L2988    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L2990    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L2998    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L29A0    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L29A8    ADRL  L29B0
         ADRL  L29B8
L29B0    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L29B8    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L29C0    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L29C8    ADRL  L2B18
         ADRL  L2B20
         ADRL  L2B28
         ADRL  L2B30
         ADRL  L2B38
         ADRL  L2B40
         ADRL  L2B48
         ADRL  L2B6C
         ADRL  L2B74
         ADRL  L2B7C
         ADRL  L2B84
         ADRL  L2B8C
         ADRL  L2B94
         ADRL  L2B9C
         ADRL  L2BC0
         ADRL  L2BC8
         ADRL  L2BD0
         ADRL  L2BD8
         ADRL  L2BE0
         ADRL  L2BE8
         ADRL  L2BF0
         ADRL  L2C14
         ADRL  L2C1C
         ADRL  L2C24
         ADRL  L2C2C
         ADRL  L2C34
         ADRL  L2C3C
         ADRL  L2C44
         ADRL  L2C68
         ADRL  L2C70
         ADRL  L2C78
         ADRL  L2C80
         ADRL  L2C88
         ADRL  L2C90
         ADRL  L2C98
         ADRL  L2CBC
         ADRL  L2CC4
         ADRL  L2CCC
         ADRL  L2CD4
         ADRL  L2CDC
         ADRL  L2CE4
         ADRL  L2CEC
         ADRL  L2D18
         ADRL  L2D20
         ADRL  L2D28
         ADRL  L2D30
         ADRL  L2D38
         ADRL  L2D40
         ADRL  L2D48
         ADRL  L2D6C
         ADRL  L2D74
         ADRL  L2D7C
         ADRL  L2D84
         ADRL  L2D8C
         ADRL  L2D94
         ADRL  L2D9C
L2AA8    DA    L2B50
         DA    L2B54
         DA    L2B58
         DA    L2B5C
         DA    L2B60
         DA    L2B64
         DA    L2B68
         DA    L2BA4
         DA    L2BA8
         DA    L2BAC
         DA    L2BB0
         DA    L2BB4
         DA    L2BB8
         DA    L2BBC
         DA    L2BF8
         DA    L2BFC
         DA    L2C00
         DA    L2C04
         DA    L2C08
         DA    L2C0C
         DA    L2C10
         DA    L2C4C
         DA    L2C50
         DA    L2C54
         DA    L2C58
         DA    L2C5C
         DA    L2C60
         DA    L2C64
         DA    L2CA0
         DA    L2CA4
         DA    L2CA8
         DA    L2CAC
         DA    L2CB0
         DA    L2CB4
         DA    L2CB8
         DA    L2CF4
         DA    L2CF8
         DA    L2CFC
         DA    L2D00
         DA    L2D04
         DA    L2D08
         DA    L2D0C
         DA    L2D50
         DA    L2D54
         DA    L2D58
         DA    L2D5C
         DA    L2D60
         DA    L2D64
         DA    L2D68
         DA    L2DA4
         DA    L2DA8
         DA    L2DAC
         DA    L2DB0
         DA    L2DB4
         DA    L2DB8
         DA    L2DBC
L2B18    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L2B20    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L2B28    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L2B30    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L2B38    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L2B40    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L2B48    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L2B50    DB    $00
         DB    $00
         DB    $00
         DB    $00
L2B54    DB    $00
         DB    $00
         DB    $00
         DB    $00
L2B58    DB    $00
         DB    $00
         DB    $00
         DB    $00
L2B5C    DB    $00
         DB    $00
         DB    $00
         DB    $00
L2B60    DB    $00
         DB    $00
         DB    $00
         DB    $00
L2B64    DB    $00
         DB    $00
         DB    $00
         DB    $00
L2B68    DB    $00
         DB    $00
         DB    $00
         DB    $00
L2B6C    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L2B74    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L2B7C    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L2B84    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L2B8C    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L2B94    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L2B9C    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L2BA4    DB    $00
         DB    $00
         DB    $00
         DB    $00
L2BA8    DB    $00
         DB    $00
         DB    $00
         DB    $00
L2BAC    DB    $00
         DB    $00
         DB    $00
         DB    $00
L2BB0    DB    $00
         DB    $00
         DB    $00
         DB    $00
L2BB4    DB    $00
         DB    $00
         DB    $00
         DB    $00
L2BB8    DB    $00
         DB    $00
         DB    $00
         DB    $00
L2BBC    DB    $00
         DB    $00
         DB    $00
         DB    $00
L2BC0    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L2BC8    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L2BD0    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L2BD8    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L2BE0    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L2BE8    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L2BF0    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L2BF8    DB    $00
         DB    $00
         DB    $00
         DB    $00
L2BFC    DB    $00
         DB    $00
         DB    $00
         DB    $00
L2C00    DB    $00
         DB    $00
         DB    $00
         DB    $00
L2C04    DB    $00
         DB    $00
         DB    $00
         DB    $00
L2C08    DB    $00
         DB    $00
         DB    $00
         DB    $00
L2C0C    DB    $00
         DB    $00
         DB    $00
         DB    $00
L2C10    DB    $00
         DB    $00
         DB    $00
         DB    $00
L2C14    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L2C1C    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L2C24    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L2C2C    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L2C34    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L2C3C    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L2C44    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L2C4C    DB    $00
         DB    $00
         DB    $00
         DB    $00
L2C50    DB    $00
         DB    $00
         DB    $00
         DB    $00
L2C54    DB    $00
         DB    $00
         DB    $00
         DB    $00
L2C58    DB    $00
         DB    $00
         DB    $00
         DB    $00
L2C5C    DB    $00
         DB    $00
         DB    $00
         DB    $00
L2C60    DB    $00
         DB    $00
         DB    $00
         DB    $00
L2C64    DB    $00
         DB    $00
         DB    $00
         DB    $00
L2C68    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L2C70    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L2C78    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L2C80    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L2C88    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L2C90    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L2C98    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L2CA0    DB    $00
         DB    $00
         DB    $00
         DB    $00
L2CA4    DB    $00
         DB    $00
         DB    $00
         DB    $00
L2CA8    DB    $00
         DB    $00
         DB    $00
         DB    $00
L2CAC    DB    $00
         DB    $00
         DB    $00
         DB    $00
L2CB0    DB    $00
         DB    $00
         DB    $00
         DB    $00
L2CB4    DB    $00
         DB    $00
         DB    $00
         DB    $00
L2CB8    DB    $00
         DB    $00
         DB    $00
         DB    $00
L2CBC    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L2CC4    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L2CCC    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L2CD4    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L2CDC    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L2CE4    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L2CEC    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L2CF4    DB    $00
         DB    $00
         DB    $00
         DB    $00
L2CF8    DB    $00
         DB    $00
         DB    $00
         DB    $00
L2CFC    DB    $00
         DB    $00
         DB    $00
         DB    $00
L2D00    DB    $00
         DB    $00
         DB    $00
         DB    $00
L2D04    DB    $00
         DB    $00
         DB    $00
         DB    $00
L2D08    DB    $00
         DB    $00
         DB    $00
         DB    $00
L2D0C    DB    $00
         DB    $00
         DB    $00
         DB    $00
L2D10    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L2D18    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L2D20    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L2D28    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L2D30    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L2D38    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L2D40    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L2D48    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L2D50    DB    $00
         DB    $00
         DB    $00
         DB    $00
L2D54    DB    $00
         DB    $00
         DB    $00
         DB    $00
L2D58    DB    $00
         DB    $00
         DB    $00
         DB    $00
L2D5C    DB    $00
         DB    $00
         DB    $00
         DB    $00
L2D60    DB    $00
         DB    $00
         DB    $00
         DB    $00
L2D64    DB    $00
         DB    $00
         DB    $00
         DB    $00
L2D68    DB    $00
         DB    $00
         DB    $00
         DB    $00
L2D6C    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L2D74    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L2D7C    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L2D84    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L2D8C    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L2D94    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L2D9C    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L2DA4    DB    $00
         DB    $00
         DB    $00
         DB    $00
L2DA8    DB    $00
         DB    $00
         DB    $00
         DB    $00
L2DAC    DB    $00
         DB    $00
         DB    $00
         DB    $00
L2DB0    DB    $00
         DB    $00
         DB    $00
         DB    $00
L2DB4    DB    $00
         DB    $00
         DB    $00
         DB    $00
L2DB8    DB    $00
         DB    $00
         DB    $00
         DB    $00
L2DBC    DB    $00
         DB    $00
         DB    $00
         DB    $00
L2DC0    ADRL  L2E00
         ADRL  L2E08
         ADRL  L2E10
         ADRL  L2E18
         ADRL  L2E20
         ADRL  L2E28
         ADRL  L2E30
         ADRL  L2E38
         ADRL  L2E40
         ADRL  L2E48
         ADRL  L2E50
         ADRL  L2E58
         ADRL  L2E60
         ADRL  L2E68
         ADRL  L2E70
         ADRL  L2E78
L2E00    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L2E08    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L2E10    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L2E18    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L2E20    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L2E28    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L2E30    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L2E38    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L2E40    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L2E48    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L2E50    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L2E58    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L2E60    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L2E68    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L2E70    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L2E78    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L2E80    ADRL  L2E94
         ADRL  L2E9C
         ADRL  L2EA4
         ADRL  L2EAC
         ADRL  L2EB4
L2E94    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L2E9C    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L2EA4    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L2EAC    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L2EB4    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L2EBC    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L2EC4    ADRL  L2ED8
         ADRL  L2EE0
         ADRL  L2EE8
         ADRL  L2EF0
         ADRL  L2EF8
L2ED8    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L2EE0    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L2EE8    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L2EF0    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L2EF8    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L2F00    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L2F08    ADRL  L2F18
         ADRL  L2F20
         ADRL  L2F28
         ADRL  L2F30
L2F18    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L2F20    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L2F28    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L2F30    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L2F38    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L2F40    ADRL  L2F50
         ADRL  L2F58
         ADRL  L2F60
         ADRL  L2F68
L2F50    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L2F58    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L2F60    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L2F68    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L2F70    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L2F78    ADRL  L3058
         ADRL  L305C
         ADRL  L3060
         ADRL  L3066
         ADRL  L306B
         ADRL  L3071
         ADRL  L3075
         ADRL  L307B
         ADRL  L3083
         ADRL  L308E
         ADRL  L3096
         ADRL  L309F
         ADRL  L30A6
         ADRL  L30AE
         ADRL  L30B9
         ADRL  L30C0
         ADRL  L30C6
         ADRL  L30CC
         ADRL  L30D2
         ADRL  L30DA
         ADRL  L30DE
         ADRL  L30E4
         ADRL  L30EB
         ADRL  L30F0
         ADRL  L30F6
         ADRL  L30FC
         ADRL  L3104
         ADRL  L310B
         ADRL  L3114
         ADRL  L3118
         ADRL  L311D
         ADRL  L3123
         ADRL  L3128
         ADRL  L312D
         ADRL  L3132
         ADRL  L3139
         ADRL  L3142
         ADRL  L3149
         ADRL  L3151
         ADRL  L3159
         ADRL  L315F
         ADRL  L3166
         ADRL  L316C
         ADRL  L3172
         ADRL  L317A
         ADRL  L3180
         ADRL  L3184
         ADRL  L318A
         ADRL  L318F
         ADRL  L3195
         ADRL  L319D
         ADRL  L31A3
         ADRL  L31AA
         ADRL  L31B1
         ADRL  L31B8
         ADRL  L31C1
L3058    STR   'BUS'
L305C    STR   'CAR'
L3060    STR   'TRUCK'
L3066    STR   'SHIP'
L306B    STR   'TRAIN'
L3071    STR   'JET'
L3075    STR   'BLIMP'
L307B    STR   'TRACTOR'
L3083    STR   'MOTORCYCLE'
L308E    STR   'TUGBOAT'
L3096    STR   'SAILBOAT'
L309F    STR   'ROCKET'
L30A6    STR   'BALLOON'
L30AE    STR   'HELICOPTER'
L30B9    STR   'JACKET'
L30C0    STR   'BOOTS'
L30C6    STR   'PANTS'
L30CC    STR   'SCARF'
L30D2    STR   'GLASSES'
L30DA    STR   'CAP'
L30DE    STR   'GLOVE'
L30E4    STR   'SKATES'
L30EB    STR   'COAT'
L30F0    STR   'SOCKS'
L30F6    STR   'SKIRT'
L30FC    STR   'SWEATER'
L3104    STR   'MITTEN'
L310B    STR   'EARMUFFS'
L3114    STR   'SKY'
L3118    STR   'LAKE'
L311D    STR   'HOUSE'
L3123    STR   'BARN'
L3128    STR   'POND'
L312D    STR   'TREE'
L3132    STR   'FARMER'
L3139    STR   'MOUNTAIN'
L3142    STR   'FOREST'
L3149    STR   'HIGHWAY'
L3151    STR   'VILLAGE'
L3159    STR   'CLOUD'
L315F    STR   'FLOWER'
L3166    STR   'ROBIN'
L316C    STR   'BOOTS'
L3172    STR   'GLASSES'
L317A    STR   'HOUSE'
L3180    STR   'JET'
L3184    STR   'TRAIN'
L318A    STR   'TREE'
L318F    STR   'TRUCK'
L3195    STR   'BALLOON'
L319D    STR   'CLOUD'
L31A3    STR   'FLOWER'
L31AA    STR   'FOREST'
L31B1    STR   'MITTEN'
L31B8    STR   'MOUNTAIN'
L31C1    STR   'SAILBOAT'
L31CA    DB    $00
         DB    $00
L31CC    DB    $00
         DB    $00
L31CE    DB    $00
         DB    $00
         DB    $A0
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $C8
         DB    $00
         DB    $40
         DB    $01
L31DA    DB    $00
         DB    $00
L31DC    DB    $00
         DB    $00
L31DE    DB    $00
         DB    $00
         DB    $A0
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $C8
         DB    $00
         DB    $40
         DB    $01
L31EA    DB    $00
         DB    $00
         DB    $00
         DB    $20
         DB    $E1
         DB    $00
         DB    $A0
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $C8
         DB    $00
         DB    $40
         DB    $01
L31FA    DB    $00
         DB    $00
L31FC    DB    $00
         DB    $00
L31FE    DB    $00
         DB    $00
L3200    DB    $10
         DB    $00
L3202    DB    $00
         DB    $00
L3204    DB    $00
         DB    $00
L3206    DB    $00
         DB    $00
L3208    DB    $00
         DB    $00
L320A    DB    $00
         DB    $00
L320C    DB    $00
         DB    $00
L320E    DB    $00
         DB    $00
L3210    DB    $00
         DB    $00
L3212    DB    $00
         DB    $00
         DB    $00
         DB    $00
L3216    ADRL  L31EA
         ADRL  L31CA
         ADRL  L2928
         ADRL  L2928
         DB    $00
         DB    $00
L3228    DB    $00
         DB    $00
L322A    DB    $00
         DB    $00
L322C    ADRL  L31CA
         ADRL  L31EA
         ADRL  L2928
         ADRL  L2928
         DB    $00
         DB    $00
L323E    DB    $00
         DB    $00
L3240    DB    $00
         DB    $00
L3242    ADRL  L31FA
         ADRL  L31EA
         ADRL  L320A
         ADRL  L3212
         DB    $00
         DB    $00
L3254    DB    $00
         DB    $00
L3256    DB    $00
         DB    $00
L3258    ADRL  L31DA
         ADRL  L31EA
L3260    DB    $00
         DB    $00
L3262    DB    $00
         DB    $00
L3264    DB    $00
         DB    $00
L3266    DB    $00
         DB    $00
         DB    $00
         DB    $00
L326A    DB    $00
         DB    $00
L326C    DB    $00
         DB    $00
L326E    ADRL  L31EA
         ADRL  L31CA
         ADRL  L2940
         ADRL  L2940
         DB    $00
         DB    $00
L3280    DB    $00
         DB    $00
L3282    DB    $00
         DB    $00
L3284    ADRL  L31CA
         ADRL  L31EA
         ADRL  L2940
         ADRL  L2940
         DB    $00
         DB    $00
L3296    DB    $00
         DB    $00
L3298    DB    $00
         DB    $00
L329A    PEA   ^L2910
         PEA   L2910
         PEA   $0014
         PEA   $001E
         PEA   $012C
         PEA   $00AA
         _SetRect
         PEA   ^L2918
         PEA   L2918
         PEA   $003E
         PEA   $008F
         PEA   $0103
         PEA   $009D
         _SetRect
         PEA   ^L2928
         PEA   L2928
         PEA   $000C
         PEA   $0019
         PEA   $0134
         PEA   $00AF
         _SetRect
         PEA   ^L2E00
         PEA   L2E00
         PEA   $0038
         PEA   $0046
         PEA   $0044
         PEA   $0052
         _SetRect
         PEA   ^L2E08
         PEA   L2E08
         PEA   $0045
         PEA   $0046
         PEA   $0051
         PEA   $0052
         _SetRect
         PEA   ^L2E10
         PEA   L2E10
         PEA   $0052
         PEA   $0046
         PEA   $005E
         PEA   $0052
         _SetRect
         PEA   ^L2E18
         PEA   L2E18
         PEA   $005F
         PEA   $0046
         PEA   $006B
         PEA   $0052
         _SetRect
         PEA   ^L2E20
         PEA   L2E20
         PEA   $006C
         PEA   $0046
         PEA   $0078
         PEA   $0052
         _SetRect
         PEA   ^L2E28
         PEA   L2E28
         PEA   $0079
         PEA   $0046
         PEA   $0085
         PEA   $0052
         _SetRect
         PEA   ^L2E30
         PEA   L2E30
         PEA   $0086
         PEA   $0046
         PEA   $0092
         PEA   $0052
         _SetRect
         PEA   ^L2E38
         PEA   L2E38
         PEA   $0093
         PEA   $0046
         PEA   $009F
         PEA   $0052
         _SetRect
         PEA   ^L2E40
         PEA   L2E40
         PEA   $00A0
         PEA   $0046
         PEA   $00AC
         PEA   $0052
         _SetRect
         PEA   ^L2E48
         PEA   L2E48
         PEA   $00AD
         PEA   $0046
         PEA   $00B9
         PEA   $0052
         _SetRect
         PEA   ^L2E50
         PEA   L2E50
         PEA   $00BA
         PEA   $0046
         PEA   $00C6
         PEA   $0052
         _SetRect
         PEA   ^L2E58
         PEA   L2E58
         PEA   $00C7
         PEA   $0046
         PEA   $00D3
         PEA   $0052
         _SetRect
         PEA   ^L2E60
         PEA   L2E60
         PEA   $00D4
         PEA   $0046
         PEA   $00E0
         PEA   $0052
         _SetRect
         PEA   ^L2E68
         PEA   L2E68
         PEA   $00E1
         PEA   $0046
         PEA   $00ED
         PEA   $0052
         _SetRect
         PEA   ^L2E70
         PEA   L2E70
         PEA   $00EE
         PEA   $0046
         PEA   $00FA
         PEA   $0052
         _SetRect
         PEA   ^L2E78
         PEA   L2E78
         PEA   $00FB
         PEA   $0046
         PEA   $0107
         PEA   $0052
         _SetRect
         PEA   ^L2920
         PEA   L2920
         PEA   $0037
         PEA   $0045
         PEA   $0108
         PEA   $0053
         _SetRect
         PEA   ^L2968
         PEA   L2968
         PEA   $00B5
         PEA   $0039
         PEA   $0136
         PEA   $0053
         _SetRect
         PEA   ^L2970
         PEA   L2970
         PEA   $00B5
         PEA   $005D
         PEA   $0136
         PEA   $0077
         _SetRect
         PEA   ^L2988
         PEA   L2988
         PEA   $0002
         PEA   $001F
         PEA   $009E
         PEA   $002A
         _SetRect
         PEA   ^L2990
         PEA   L2990
         PEA   $00A0
         PEA   $001F
         PEA   $013D
         PEA   $002A
         _SetRect
         PEA   ^L2998
         PEA   L2998
         PEA   $0002
         PEA   $002C
         PEA   $009E
         PEA   $0037
         _SetRect
         PEA   ^L29A0
         PEA   L29A0
         PEA   $00A0
         PEA   $002C
         PEA   $013D
         PEA   $0037
         _SetRect
         PEA   ^L29B0
         PEA   L29B0
         PEA   $0000
         PEA   $0000
         PEA   $0056
         PEA   $0010
         _SetRect
         PEA   ^L29B8
         PEA   L29B8
         PEA   $0056
         PEA   $0000
         PEA   $00AC
         PEA   $0010
         _SetRect
         PEA   ^L29C0
         PEA   L29C0
         PEA   $0074
         PEA   $000E
         PEA   $00C9
         PEA   $001D
         _SetRect
         PEA   ^L2938
         PEA   L2938
         PEA   $0003
         PEA   $008D
         PEA   $0030
         PEA   $00C6
         _SetRect
         PEA   ^L2940
         PEA   L2940
         PEA   $0119
         PEA   $008D
         PEA   $0140
         PEA   $00C6
         _SetRect
         PEA   ^L2948
         PEA   L2948
         PEA   $011A
         PEA   $009C
         PEA   $013D
         PEA   $00C5
         _SetRect
         PEA   ^L2950
         PEA   L2950
         PEA   $0043
         PEA   $0096
         PEA   $0113
         PEA   $00AC
         _SetRect
         PEA   ^L2958
         PEA   L2958
         PEA   $006B
         PEA   $00B7
         PEA   $00E2
         PEA   $00BE
         _SetRect
         PEA   ^L2E94
         PEA   L2E94
         PEA   $0001
         PEA   $0012
         PEA   $0037
         PEA   $0019
         _SetRect
         PEA   ^L2E9C
         PEA   L2E9C
         PEA   $0039
         PEA   $0012
         PEA   $006F
         PEA   $0019
         _SetRect
         PEA   ^L2EA4
         PEA   L2EA4
         PEA   $0071
         PEA   $0012
         PEA   $00A7
         PEA   $0019
         _SetRect
         PEA   ^L2EAC
         PEA   L2EAC
         PEA   $00A9
         PEA   $0012
         PEA   $00DF
         PEA   $0019
         _SetRect
         PEA   ^L2EB4
         PEA   L2EB4
         PEA   $00E1
         PEA   $0012
         PEA   $0117
         PEA   $0019
         _SetRect
         PEA   ^L2EBC
         PEA   L2EBC
         PEA   $0086
         PEA   $00BE
         PEA   $00BC
         PEA   $00C5
         _SetRect
         PEA   ^L2ED8
         PEA   L2ED8
         PEA   $0025
         PEA   $001C
         PEA   $0038
         PEA   $0025
         _SetRect
         PEA   ^L2EE0
         PEA   L2EE0
         PEA   $003A
         PEA   $001C
         PEA   $004D
         PEA   $0025
         _SetRect
         PEA   ^L2EE8
         PEA   L2EE8
         PEA   $004F
         PEA   $001C
         PEA   $0062
         PEA   $0025
         _SetRect
         PEA   ^L2EF0
         PEA   L2EF0
         PEA   $003A
         PEA   $001C
         PEA   $004D
         PEA   $0025
         _SetRect
         PEA   ^L2EF8
         PEA   L2EF8
         PEA   $0064
         PEA   $001C
         PEA   $0077
         PEA   $0025
         _SetRect
         PEA   ^L2F00
         PEA   L2F00
         PEA   $008F
         PEA   $0076
         PEA   $00A2
         PEA   $007F
         _SetRect
         PEA   ^L2F18
         PEA   L2F18
         PEA   $0001
         PEA   $003A
         PEA   $0020
         PEA   $004B
         _SetRect
         PEA   ^L2F20
         PEA   L2F20
         PEA   $0022
         PEA   $003A
         PEA   $0041
         PEA   $004B
         _SetRect
         PEA   ^L2F28
         PEA   L2F28
         PEA   $0001
         PEA   $003A
         PEA   $0020
         PEA   $004B
         _SetRect
         PEA   ^L2F30
         PEA   L2F30
         PEA   $0043
         PEA   $003A
         PEA   $0062
         PEA   $004B
         _SetRect
         PEA   ^L2F38
         PEA   L2F38
         PEA   $0054
         PEA   $00A0
         PEA   $0073
         PEA   $00B1
         _SetRect
         PEA   ^L2F50
         PEA   L2F50
         PEA   $0001
         PEA   $0027
         PEA   $0020
         PEA   $0038
         _SetRect
         PEA   ^L2F58
         PEA   L2F58
         PEA   $0022
         PEA   $0027
         PEA   $0041
         PEA   $0038
         _SetRect
         PEA   ^L2F60
         PEA   L2F60
         PEA   $0001
         PEA   $0027
         PEA   $0020
         PEA   $0038
         _SetRect
         PEA   ^L2F68
         PEA   L2F68
         PEA   $0043
         PEA   $0027
         PEA   $0062
         PEA   $0038
         _SetRect
         PEA   ^L2F70
         PEA   L2F70
         PEA   $00CF
         PEA   $00A0
         PEA   $00EE
         PEA   $00B1
         _SetRect
         PEA   ^L2B18
         PEA   L2B18
         PEA   $0001
         PEA   $005F
         PEA   $0042
         PEA   $0072
         _SetRect
         PEA   ^L2B20
         PEA   L2B20
         PEA   $0048
         PEA   $0066
         PEA   $0087
         PEA   $0077
         _SetRect
         PEA   ^L2B28
         PEA   L2B28
         PEA   $008C
         PEA   $0061
         PEA   $00DD
         PEA   $0078
         _SetRect
         PEA   ^L2B30
         PEA   L2B30
         PEA   $00E8
         PEA   $0044
         PEA   $0140
         PEA   $0069
         _SetRect
         PEA   ^L2B38
         PEA   L2B38
         PEA   $0000
         PEA   $0043
         PEA   $0053
         PEA   $004C
         _SetRect
         PEA   ^L2B40
         PEA   L2B40
         PEA   $0043
         PEA   $001C
         PEA   $007D
         PEA   $0029
         _SetRect
         PEA   ^L2B48
         PEA   L2B48
         PEA   $00DC
         PEA   $0017
         PEA   $0127
         PEA   $002E
         _SetRect
         PEA   ^L2B50
         PEA   L2B50
         PEA   $001B
         PEA   $005F
         _SetPt
         PEA   ^L2B54
         PEA   L2B54
         PEA   $0058
         PEA   $0066
         _SetPt
         PEA   ^L2B58
         PEA   L2B58
         PEA   $0090
         PEA   $0061
         _SetPt
         PEA   ^L2B5C
         PEA   L2B5C
         PEA   $00ED
         PEA   $004D
         _SetPt
         PEA   ^L2B60
         PEA   L2B60
         PEA   $000B
         PEA   $0043
         _SetPt
         PEA   ^L2B64
         PEA   L2B64
         PEA   $0054
         PEA   $001D
         _SetPt
         PEA   ^L2B68
         PEA   L2B68
         PEA   $00ED
         PEA   $0017
         _SetPt
         PEA   ^L2B6C
         PEA   L2B6C
         PEA   $0072
         PEA   $006E
         PEA   $009C
         PEA   $0089
         _SetRect
         PEA   ^L2B74
         PEA   L2B74
         PEA   $0117
         PEA   $0076
         PEA   $0132
         PEA   $0089
         _SetRect
         PEA   ^L2B7C
         PEA   L2B7C
         PEA   $0090
         PEA   $003D
         PEA   $011D
         PEA   $006A
         _SetRect
         PEA   ^L2B84
         PEA   L2B84
         PEA   $002C
         PEA   $004B
         PEA   $004E
         PEA   $0064
         _SetRect
         PEA   ^L2B8C
         PEA   L2B8C
         PEA   $000B
         PEA   $0019
         PEA   $0020
         PEA   $0044
         _SetRect
         PEA   ^L2B94
         PEA   L2B94
         PEA   $005E
         PEA   $000E
         PEA   $0088
         PEA   $0041
         _SetRect
         PEA   ^L2B9C
         PEA   L2B9C
         PEA   $00F6
         PEA   $0017
         PEA   $0134
         PEA   $0036
         _SetRect
         PEA   ^L2BA4
         PEA   L2BA4
         PEA   $0033
         PEA   $0088
         _SetPt
         PEA   ^L2BA8
         PEA   L2BA8
         PEA   $00C0
         PEA   $0088
         _SetPt
         PEA   ^L2BAC
         PEA   L2BAC
         PEA   $00F0
         PEA   $004B
         _SetPt
         PEA   ^L2BB0
         PEA   L2BB0
         PEA   $0020
         PEA   $004B
         _SetPt
         PEA   ^L2BB4
         PEA   L2BB4
         PEA   $0001
         PEA   $0016
         _SetPt
         PEA   ^L2BB8
         PEA   L2BB8
         PEA   $0085
         PEA   $0016
         _SetPt
         PEA   ^L2BBC
         PEA   L2BBC
         PEA   $00ED
         PEA   $0016
         _SetPt
         PEA   ^L2BC0
         PEA   L2BC0
         PEA   $0025
         PEA   $0039
         PEA   $005E
         PEA   $007A
         _SetRect
         PEA   ^L2BC8
         PEA   L2BC8
         PEA   $00AD
         PEA   $0065
         PEA   $00F8
         PEA   $0081
         _SetRect
         PEA   ^L2BD0
         PEA   L2BD0
         PEA   $00A8
         PEA   $004B
         PEA   $00EF
         PEA   $0065
         _SetRect
         PEA   ^L2BD8
         PEA   L2BD8
         PEA   $00AB
         PEA   $0037
         PEA   $00DE
         PEA   $0046
         _SetRect
         PEA   ^L2BE0
         PEA   L2BE0
         PEA   $00AB
         PEA   $002E
         PEA   $00BE
         PEA   $0036
         _SetRect
         PEA   ^L2BE8
         PEA   L2BE8
         PEA   $0092
         PEA   $0015
         PEA   $00AD
         PEA   $0025
         _SetRect
         PEA   ^L2BF0
         PEA   L2BF0
         PEA   $007A
         PEA   $0035
         PEA   $0091
         PEA   $004B
         _SetRect
         PEA   ^L2BF8
         PEA   L2BF8
         PEA   $0029
         PEA   $0082
         _SetPt
         PEA   ^L2BFC
         PEA   L2BFC
         PEA   $00FC
         PEA   $0071
         _SetPt
         PEA   ^L2C00
         PEA   L2C00
         PEA   $00F3
         PEA   $005E
         _SetPt
         PEA   ^L2C04
         PEA   L2C04
         PEA   $00E1
         PEA   $0043
         _SetPt
         PEA   ^L2C08
         PEA   L2C08
         PEA   $00C0
         PEA   $0035
         _SetPt
         PEA   ^L2C0C
         PEA   L2C0C
         PEA   $00B0
         PEA   $001F
         _SetPt
         PEA   ^L2C10
         PEA   L2C10
         PEA   $006C
         PEA   $0033
         _SetPt
         PEA   ^L2C14
         PEA   L2C14
         PEA   $006A
         PEA   $006E
         PEA   $0096
         PEA   $0080
         _SetRect
         PEA   ^L2C1C
         PEA   L2C1C
         PEA   $0105
         PEA   $0040
         PEA   $0140
         PEA   $008A
         _SetRect
         PEA   ^L2C24
         PEA   L2C24
         PEA   $0081
         PEA   $0067
         PEA   $008E
         PEA   $006E
         _SetRect
         PEA   ^L2C2C
         PEA   L2C2C
         PEA   $006E
         PEA   $0044
         PEA   $0098
         PEA   $0067
         _SetRect
         PEA   ^L2C34
         PEA   L2C34
         PEA   $006F
         PEA   $002F
         PEA   $009A
         PEA   $0044
         _SetRect
         PEA   ^L2C3C
         PEA   L2C3C
         PEA   $009A
         PEA   $003D
         PEA   $00A6
         PEA   $0046
         _SetRect
         PEA   ^L2C44
         PEA   L2C44
         PEA   $0084
         PEA   $001E
         PEA   $008F
         PEA   $002D
         _SetRect
         PEA   ^L2C4C
         PEA   L2C4C
         PEA   $0037
         PEA   $007B
         _SetPt
         PEA   ^L2C50
         PEA   L2C50
         PEA   $00EC
         PEA   $007D
         _SetPt
         PEA   ^L2C54
         PEA   L2C54
         PEA   $0097
         PEA   $006E
         _SetPt
         PEA   ^L2C58
         PEA   L2C58
         PEA   $0042
         PEA   $005A
         _SetPt
         PEA   ^L2C5C
         PEA   L2C5C
         PEA   $0035
         PEA   $0040
         _SetPt
         PEA   ^L2C60
         PEA   L2C60
         PEA   $00A9
         PEA   $0045
         _SetPt
         PEA   ^L2C64
         PEA   L2C64
         PEA   $003F
         PEA   $002A
         _SetPt
         PEA   ^L2C68
         PEA   L2C68
         PEA   $008C
         PEA   $000D
         PEA   $0140
         PEA   $002E
         _SetRect
         PEA   ^L2C70
         PEA   L2C70
         PEA   $0000
         PEA   $0069
         PEA   $00BF
         PEA   $008A
         _SetRect
         PEA   ^L2C78
         PEA   L2C78
         PEA   $0046
         PEA   $001E
         PEA   $008A
         PEA   $0043
         _SetRect
         PEA   ^L2C80
         PEA   L2C80
         PEA   $0005
         PEA   $0025
         PEA   $002C
         PEA   $003E
         _SetRect
         PEA   ^L2C88
         PEA   L2C88
         PEA   $005A
         PEA   $0055
         PEA   $00A5
         PEA   $0062
         _SetRect
         PEA   ^L2C90
         PEA   L2C90
         PEA   $0111
         PEA   $0039
         PEA   $0140
         PEA   $0059
         _SetRect
         PEA   ^L2C98
         PEA   L2C98
         PEA   $00C6
         PEA   $0046
         PEA   $0102
         PEA   $0076
         _SetRect
         PEA   ^L2CA0
         PEA   L2CA0
         PEA   $00D0
         PEA   $0021
         _SetPt
         PEA   ^L2CA4
         PEA   L2CA4
         PEA   $0017
         PEA   $0084
         _SetPt
         PEA   ^L2CA8
         PEA   L2CA8
         PEA   $0050
         PEA   $0049
         _SetPt
         PEA   ^L2CAC
         PEA   L2CAC
         PEA   $0005
         PEA   $0045
         _SetPt
         PEA   ^L2CB0
         PEA   L2CB0
         PEA   $0069
         PEA   $0069
         _SetPt
         PEA   ^L2CB4
         PEA   L2CB4
         PEA   $00F5
         PEA   $0046
         _SetPt
         PEA   ^L2CB8
         PEA   L2CB8
         PEA   $00CB
         PEA   $007D
         _SetPt
         PEA   ^L2CBC
         PEA   L2CBC
         PEA   $0000
         PEA   $0029
         PEA   $0068
         PEA   $0051
         _SetRect
         PEA   ^L2CC4
         PEA   L2CC4
         PEA   $00E6
         PEA   $0059
         PEA   $013F
         PEA   $0078
         _SetRect
         PEA   ^L2CCC
         PEA   L2CCC
         PEA   $0075
         PEA   $0052
         PEA   $00C9
         PEA   $008A
         _SetRect
         PEA   ^L2CD4
         PEA   L2CD4
         PEA   $0082
         PEA   $0048
         PEA   $009B
         PEA   $0051
         _SetRect
         PEA   ^L2CDC
         PEA   L2CDC
         PEA   $00EA
         PEA   $0025
         PEA   $012E
         PEA   $003A
         _SetRect
         PEA   ^L2CE4
         PEA   L2CE4
         PEA   $0000
         PEA   $0057
         PEA   $0059
         PEA   $008A
         _SetRect
         PEA   ^L2CEC
         PEA   L2CEC
         PEA   $008E
         PEA   $000E
         PEA   $00BF
         PEA   $0035
         _SetRect
         PEA   ^L2CF4
         PEA   L2CF4
         PEA   $0003
         PEA   $002B
         _SetPt
         PEA   ^L2CF8
         PEA   L2CF8
         PEA   $00FD
         PEA   $007F
         _SetPt
         PEA   ^L2CFC
         PEA   L2CFC
         PEA   $0088
         PEA   $0088
         _SetPt
         PEA   ^L2D00
         PEA   L2D00
         PEA   $0071
         PEA   $004A
         _SetPt
         PEA   ^L2D04
         PEA   L2D04
         PEA   $0112
         PEA   $0027
         _SetPt
         PEA   ^L2D08
         PEA   L2D08
         PEA   $003C
         PEA   $0066
         _SetPt
         PEA   ^L2D0C
         PEA   L2D0C
         PEA   $00B5
         PEA   $001F
         _SetPt
         PEA   ^L2D10
         PEA   L2D10
         PEA   $0049
         PEA   $0036
         PEA   $00F5
         PEA   $0071
         _SetRect
         PEA   ^L2D18
         PEA   L2D18
         PEA   $0001
         PEA   $0001
         PEA   $0099
         PEA   $002E
         _SetRect
         PEA   ^L2D20
         PEA   L2D20
         PEA   $0001
         PEA   $0030
         PEA   $0092
         PEA   $0059
         _SetRect
         PEA   ^L2D28
         PEA   L2D28
         PEA   $0001
         PEA   $005B
         PEA   $009D
         PEA   $0094
         _SetRect
         PEA   ^L2D30
         PEA   L2D30
         PEA   $0001
         PEA   $0096
         PEA   $0090
         PEA   $00BF
         _SetRect
         PEA   ^L2D38
         PEA   L2D38
         PEA   $009B
         PEA   $0001
         PEA   $013A
         PEA   $0029
         _SetRect
         PEA   ^L2D40
         PEA   L2D40
         PEA   $009F
         PEA   $002B
         PEA   $0114
         PEA   $0066
         _SetRect
         PEA   ^L2D48
         PEA   L2D48
         PEA   $009F
         PEA   $0068
         PEA   $012C
         PEA   $0097
         _SetRect
         PEA   ^L2D50
         PEA   L2D50
         PEA   $0053
         PEA   $003D
         _SetPt
         PEA   ^L2D54
         PEA   L2D54
         PEA   $0057
         PEA   $003F
         _SetPt
         PEA   ^L2D58
         PEA   L2D58
         PEA   $0051
         PEA   $0037
         _SetPt
         PEA   ^L2D5C
         PEA   L2D5C
         PEA   $0056
         PEA   $003E
         _SetPt
         PEA   ^L2D60
         PEA   L2D60
         PEA   $004A
         PEA   $0040
         _SetPt
         PEA   ^L2D64
         PEA   L2D64
         PEA   $0065
         PEA   $0036
         _SetPt
         PEA   ^L2D68
         PEA   L2D68
         PEA   $0058
         PEA   $003C
         _SetPt
         PEA   ^L2D6C
         PEA   L2D6C
         PEA   $0001
         PEA   $0001
         PEA   $0037
         PEA   $0039
         _SetRect
         PEA   ^L2D74
         PEA   L2D74
         PEA   $0001
         PEA   $003A
         PEA   $0098
         PEA   $005E
         _SetRect
         PEA   ^L2D7C
         PEA   L2D7C
         PEA   $0001
         PEA   $005F
         PEA   $0042
         PEA   $008E
         _SetRect
         PEA   ^L2D84
         PEA   L2D84
         PEA   $0001
         PEA   $008F
         PEA   $0092
         PEA   $00C6
         _SetRect
         PEA   ^L2D8C
         PEA   L2D8C
         PEA   $0038
         PEA   $0001
         PEA   $0078
         PEA   $0037
         _SetRect
         PEA   ^L2D94
         PEA   L2D94
         PEA   $0079
         PEA   $0001
         PEA   $00F4
         PEA   $0037
         _SetRect
         PEA   ^L2D9C
         PEA   L2D9C
         PEA   $0099
         PEA   $0038
         PEA   $00FA
         PEA   $0070
         _SetRect
         PEA   ^L2DA4
         PEA   L2DA4
         PEA   $0067
         PEA   $0039
         _SetPt
         PEA   ^L2DA8
         PEA   L2DA8
         PEA   $0051
         PEA   $0040
         _SetPt
         PEA   ^L2DAC
         PEA   L2DAC
         PEA   $007B
         PEA   $003A
         _SetPt
         PEA   ^L2DB0
         PEA   L2DB0
         PEA   $0053
         PEA   $0038
         _SetPt
         PEA   ^L2DB4
         PEA   L2DB4
         PEA   $007B
         PEA   $0038
         _SetPt
         PEA   ^L2DB8
         PEA   L2DB8
         PEA   $005D
         PEA   $0038
         _SetPt
         PEA   ^L2DBC
         PEA   L2DBC
         PEA   $006A
         PEA   $0037
         _SetPt
         RTS

L41CC    BCC   L41DC
         PHA
         PEA   $0000
         PEA   $0000
         _SysFailMgr
L41DC    RTS

         JSL   GSOS
         DW    $0010      ; Open
         ADRL  L1CEC
         JSR   L41CC
         LDA   L1CEC
         STA   L1CF6
         STA   L1D12
         LDA   #$00E1
         STA   L1CF8+2
         LDA   #$2000
         STA   L1CF8
         LDA   #$8000
         STA   L1CFC
         JSL   GSOS
         DW    $0012      ; Read
         ADRL  L1CF6
         JSR   L41CC
         JSL   GSOS
         DW    $0014      ; Close
         ADRL  L1D12
         JSR   L41CC
         RTS

L4220    JSL   GSOS
         DW    $0010      ; Open
         ADRL  L1CEC
         JSR   L41CC
         LDA   L1CEC
         STA   L1CF6
         STA   L1D12
L4236    LDA   L1E1E+2
         STA   L1CF8+2
         LDA   L1E1E
         STA   L1CF8
         JMP   L424B

L4245    DW    $0000      ;  ref num
L4247    ADRL  $00000000  ;  end of file
L424B    LDA   L1CEC
         STA   L4245
         JSL   GSOS
         DW    $0019      ; GetEOF
         ADRL  L4245
         LDA   L4247
         STA   L1CFC
         LDA   L4247+2
         STA   L1CFC+2
         JSR   L41CC
         JSL   GSOS
         DW    $0012      ; Read
         ADRL  L1CF6
         JSR   L41CC
         JSL   GSOS
         DW    $0014      ; Close
         ADRL  L1D12
         JSR   L41CC
         LDA   L1E1E+2
         STA   L1E2C
         LDA   L1E1E
         STA   L1E2A
         LDA   L1CFC
         STA   L1E2E
         LDA   #$00E1
         STA   L1E32
         LDA   #$2000
         STA   L1E30
         LDA   #$8000
         STA   L1E34
         JSR   L4824
         RTS

L42AC    JSL   GSOS
         DW    $0010      ; Open
         ADRL  L1CEC
         JSR   L41CC
         LDA   L1CEC
         STA   L1CF6
         STA   L1D12
L42C2    LDA   L1E1E+2
         STA   L1CF8+2
         LDA   L1E1E
         STA   L1CF8
         JMP   L42D7

L42D1    DW    $0000      ;  ref num
L42D3    ADRL  $00000000  ;  end of file
L42D7    LDA   L1CEC
         STA   L42D1
         JSL   GSOS
         DW    $0019      ; GetEOF
         ADRL  L42D1
         LDA   L42D3
         STA   L1CFC
         LDA   L42D3+2
         STA   L1CFC+2
         JSR   L41CC
         JSL   GSOS
         DW    $0012      ; Read
         ADRL  L1CF6
         JSR   L41CC
         JSL   GSOS
         DW    $0014      ; Close
         ADRL  L1D12
         JSR   L41CC
         LDA   L1E1E+2
         STA   L1E2C
         LDA   L1E1E
         STA   L1E2A
         LDA   L1CFC
         STA   L1E2E
         JSR   L4824
         RTS

L4326    LDA   $00
         PHA
         LDA   $02
         PHA
         LDA   $04
         PHA
         LDA   $06
         PHA
         LDA   #^L1E78
         STA   L1CEE+2
         LDA   #L1E78
         STA   L1CEE
         SEP   #$30
         LDA   L1DE0
         STA   L1E78+$12
         REP   #$30
         JSR   L4480
         LDA   L1DE0
         CMP   #$0041
         BCS   L4359
         SEC
         SBC   #$0030
         BRA   L4361
L4359    CLC
         ADC   #$000A
         SEC
         SBC   #$0041
L4361    ASL
         ASL
         TAX
         LDA   L1E8F,X
         STA   $00
         LDA   L1E8F+2,X
         STA   $02
         LDA   L1F1F,X
         STA   $04
         LDA   L1F1F+2,X
         STA   $06
         LDA   L1D22
         LDY   #$0000
         STA   [$04],Y
         LDA   L1D24
         LDY   #$0002
         STA   [$04],Y
         PEA   $0000
         PEA   $0000
         LDA   L1CFC
         PHA
         PEA   $0100
         _UDivide
         PLA
         LDY   #$0004
         STA   [$00],Y
         PLA
         BEQ   L43AA
         LDA   [$00],Y
         INC
         STA   [$00],Y
L43AA    LDX   #$0000
         LDA   #$0100
L43B0    CMP   L1CFC
         BCS   L43B9
         INX
         ASL
         BRA   L43B0
L43B9    TXA
         LDY   #$000A
         STA   [$00],Y
         PLA
         STA   $06
         PLA
         STA   $04
         PLA
         STA   $02
         PLA
         STA   $00
         RTS

L43CC    LDA   $00
         PHA
         LDA   $02
         PHA
         LDA   $04
         PHA
         LDA   $06
         PHA
         LDA   $08
         PHA
         LDA   $0A
         PHA
         LDA   L1DE0
         CMP   #$0041
         BCS   L43EC
         SEC
         SBC   #$0030
         BRA   L43F4
L43EC    CLC
         ADC   #$000A
         SEC
         SBC   #$0041
L43F4    ASL
         ASL
         TAX
         LDA   L1E8F,X
         STA   $00
         LDA   L1E8F+2,X
         STA   $02
         LDA   L1F1F,X
         STA   $04
         LDA   L1F1F+2,X
         STA   $06
         LDY   #$0000
         LDA   [$04],Y
         STA   $08
         LDY   #$0002
         LDA   [$04],Y
         STA   $0A
         LDY   #$0000
         LDA   [$08],Y
         STA   [$00],Y
         LDY   #$0002
         LDA   [$08],Y
         STA   [$00],Y
         PLA
         STA   $0A
         PLA
         STA   $08
         PLA
         STA   $06
         PLA
         STA   $04
         PLA
         STA   $02
         PLA
         STA   $00
         RTS

L443A    LDA   $00
         PHA
         LDA   $02
         PHA
         LDA   L1DE0
         CMP   #$0041
         BCS   L444E
         SEC
         SBC   #$0030
         BRA   L4456
L444E    CLC
         ADC   #$000A
         SEC
         SBC   #$0041
L4456    ASL
         ASL
         TAX
         LDA   L1F1F,X
         STA   $00
         LDA   L1F1F+2,X
         STA   $02
         LDY   #$0002
         LDA   [$00],Y
         PHA
         LDY   #$0000
         LDA   [$00],Y
         PHA
         _DisposeHandle
         JSR   L41CC
         PLA
         STA   $02
         PLA
         STA   $00
         RTS

L4480    LDA   $00
         PHA
         LDA   $02
         PHA
         JSL   GSOS
         DW    $0010      ; Open
         ADRL  L1CEC
         JSR   L41CC
         LDA   L1CEC
         STA   L1CF6
         STA   L1D12
         JMP   L44A5

L449F    DW    $0000      ;  ref num
L44A1    ADRL  $00000000  ;  end of file
L44A5    LDA   L1CEC
         STA   L449F
         JSL   GSOS
         DW    $0019      ; GetEOF
         ADRL  L449F
         LDA   L44A1
         STA   L1CFC
         LDA   L44A1+2
         STA   L1CFC+2
         JSR   L41CC
         LDA   L1CFC+2
         STA   L457F+2
         LDA   L1CFC
         STA   L457F
         CLC
         ADC   #$0002
         STA   L457F
         BCC   L44DC
         INC   L457F+2
L44DC    LDA   $00
         PHA
         LDA   $02
         PHA
         PEA   $0000
         PEA   $0000
         PEA   $0000
         LDA   L457F
         PHA
         LDA   L1D1C
         PHA
         PEA   $C008
         PEA   $0000
         PEA   $0000
         _NewHandle
         JSR   L41CC
         PLA
         STA   $00
         STA   L1D22
         PLA
         STA   $02
         STA   L1D24
         PLA
         STA   $02
         PLA
         STA   $00
         LDA   $00
         PHA
         LDA   $02
         PHA
         LDA   L1D22
         STA   $00
         LDA   L1D24
         STA   $02
*         LDY   #$0000
         LDA   [$00]
         STA   L1D26
         LDY   #$0002
         LDA   [$00],Y
         STA   L1D28
         PLA
         STA   $02
         PLA
         STA   $00
         LDA   L1D28
         STA   L1CF8+2
         LDA   L1D26
         STA   L1CF8
         JSL   GSOS
         DW    $0012      ; Read
         ADRL  L1CF6
         JSR   L41CC
         JSL   GSOS
         DW    $0014      ; Close
         ADRL  L1D12
         JSR   L41CC
         LDA   L1D28
         STA   $02
         LDA   L1D26
         STA   $00
         LDA   L1CFC
         TAY
         LDA   #$0000
         STA   [$00],Y
         PLA
         STA   $02
         PLA
         STA   $00
*         BRA   L4583
	 rts
L457F    ADRL  $00000000
*L4583    RTS

*         LDA   $00
*         PHA
*         LDA   $02
*         PHA
*         JSL   GSOS
*         DW    $0010      ; Open
*         ADRL  L1CEC
*         JSR   L41CC
*         LDA   L1CEC
*         STA   L1CF6
*         STA   L1D12
*         LDA   L1E1E+2
*         STA   L1CF8+2
*         STA   $02
*         LDA   L1E1E
*         STA   L1CF8
*         STA   $00
*         JMP   L45B9
*
*L45B3    DW    $0000      ;  ref num
*L45B5    ADRL  $00000000  ;  end of file
*
*L45B9    LDA   L1CEC
*         STA   L45B3
*         JSL   GSOS
*         DW    $0019      ; GetEOF
*         ADRL  L45B3
*         LDA   L45B5
*         STA   L1CFC
*         LDA   L45B5+2
*         STA   L1CFC+2
*         JSR   L41CC
*         JSL   GSOS
*         DW    $0012      ; Read
*         ADRL  L1CF6
*         JSR   L41CC
*         JSL   GSOS
*         DW    $0014      ; Close
*         ADRL  L1D12
*         JSR   L41CC
*         LDY   #$0009
*         LDA   [$00],Y
*         PHA
*         _SetMasterSCB
*         LDY   #$000B
*         LDA   [$00],Y
*         BNE   L4607
*         RTS
*
*L4607    LDY   #$000D
*         LDA   [$00],Y
*         STA   L46CB
*         BNE   L4616
*         INY
*         INY
*         JMP   L4636
*
*L4616    LDY   #$000F
*         LDX   #$0000
*L461C    LDA   #$0010
*         STA   L46C9
*L4622    LDA   [$00],Y
*         STAL  $E19E00,X
*         INY
*         INY
*         INX
*         INX
*         DEC   L46C9
*         BNE   L4622
*         DEC   L46CB
*         BNE   L461C
*L4636    LDA   [$00],Y
*         STA   L46CF
*         CMP   #$00C9
*         BCC   L4643
*         LDA   #$00C8
*L4643    STA   L46CD
*         INY
*         INY
*         LDA   $02
*         STA   L1E2C
*         LDA   $00
*         STA   L1E2A
*         TYA
*         CLC
*         ADC   L1E2A
*         STA   L1E2A
*         BCC   L465F
*         INC   L1E2C
*L465F    LDA   L46CF
*         ASL
*         ASL
*         CLC
*         ADC   L1E2A
*         STA   L1E2A
*         BCC   L4670
*         INC   L1E2C
*L4670    LDA   #$2000
*         STA   L1E30
*         LDA   #$00E1
*         STA   L1E32
*         LDA   #$00A0
*         STA   L1E34
*         LDA   #$0000
*         STA   L46D1
*L4688    LDA   [$00],Y
*         STA   L1E2E
*         INY
*         INY
*         PHY
*         JSR   L4824
*         LDA   L46D1
*         PHA
*         LDA   [$00],Y
*         PHA
*         _SetSCB
*         JSR   L41CC
*         PLY
*         LDA   L1E2E
*         CLC
*         ADC   L1E2A
*         STA   L1E2A
*         BCC   L46B4
*         INC   L1E2C
*L46B4    LDA   #$00A0
*         STA   L1E34
*         INY
*         INY
*         DEC   L46CD
*         BNE   L4688
*         PLA
*         STA   $02
*         PLA
*         STA   $00
*         BRA   L46D3
*L46C9    DW    $0000
*L46CB    DW    $0000
*L46CD    DW    $0000
*L46CF    DW    $0000
*L46D1    DW    $0000
*L46D3    RTS
*
*         LDA   #$00C1
*         STA   L1CE0
*         LDA   #$0000
*         STA   L1CE2
*         JSL   GSOS
*         DW    $0001      ; Create
*         ADRL  L1CDA
*         JSR   L41CC
*         JSL   GSOS
*         DW    $0010      ; Open
*         ADRL  L1CEC
*         JSR   L41CC
*         LDA   L1CEC
*         STA   L1D04
*         STA   L1D12
*         LDA   #$00E1
*         STA   L1D06+2
*         LDA   #$2000
*         STA   L1D06
*         LDA   #$8000
*         STA   L1D0A
*         JSL   GSOS
*         DW    $0013      ; Write
*         ADRL  L1D04
*         JSR   L41CC
*         JSL   GSOS
*         DW    $0014      ; Close
*         ADRL  L1D12
*         JSR   L41CC
*         RTS
*
*         LDA   #$00C0
*         STA   L1CE0
*         LDA   #$0001
*         STA   L1CE2
*         JSL   GSOS
*         DW    $0001      ; Create
*         ADRL  L1CDA
*         JSR   L41CC
*         JSL   GSOS
*         DW    $0010      ; Open
*         ADRL  L1CEC
*         JSR   L41CC
*         LDA   L1CEC
*         STA   L1D04
*         STA   L1D12
*         LDA   #$00E1
*         STA   L1E2C
*         LDA   #$2000
*         STA   L1E2A
*         LDA   #$8000
*         STA   L1E2E
*         STA   L1E34
*         LDA   L1E1E+2
*         STA   L1E32
*         STA   L1D06+2
*         LDA   L1E1E
*         STA   L1E30
*         STA   L1D06
*L4786    PEA   $0000
*         PEA   ^L1E2A
*         PEA   L1E2A
*         PEA   ^L1E2E
*         PEA   L1E2E
*         LDA   L1E32
*         PHA
*         LDA   L1E30
*         PHA
*         LDA   L1E34
*         PHA
*         _PackBytes
*         PLA
*         STA   L1D0A
*         JSL   GSOS
*         DW    $0013      ; Write
*         ADRL  L1D04
*         JSR   L41CC
*         LDA   L1E2E
*         BNE   L4786
*         JSL   GSOS
*         DW    $0014      ; Close
*         ADRL  L1D12
*         JSR   L41CC
*         RTS

L47CC    JSL   GSOS
         DW    $0010      ; Open
         ADRL  L1CEC
         JSR   L41CC
         LDA   L1CEC
         STA   L1CF6
         STA   L1D12
         LDA   #^L1DFA
         STA   L1CF8+2
         LDA   #L1DFA
         STA   L1CF8
         LDA   #$0000
         STA   L1CFC+2
         LDA   #$0020
         STA   L1CFC
         JSL   GSOS
         DW    $0012      ; Read
         ADRL  L1CF6
         JSR   L41CC
         JSL   GSOS
         DW    $0014      ; Close
         ADRL  L1D12
         JSR   L41CC
         RTS

L4815    LDA   #$0100
L4818    CLC
         LDY   L1D1E
         ADC   L1D1E
         STA   L1D1E
         TYA
         RTS

L4824    PEA   $0000
         LDA   L1E2C
         PHA
         LDA   L1E2A
         PHA
         LDA   L1E2E
         PHA
         PEA   ^L1E30
         PEA   L1E30
         PEA   ^L1E34
         PEA   L1E34
         _UnPackBytes
         PLA
         LDA   L1E34
         BNE   L4824
         RTS

L484D    CMP   #$0061
         BCC   L485B
         CMP   #$007B
         BCS   L485B
         SEC
         SBC   #$0020
L485B    RTS

L485C    STZ   L1DDA
         LDA   #$1E00
         STA   L4873
L4865    JSR   L48E4
         LDA   L1DDA
         BNE   L4872
         DEC   L4873
         BNE   L4865
L4872    RTS

L4873    DW    $0000
         PEA   $0000
         PEA   $FFFF
         PEA   ^L1DBA
         PEA   L1DBA
         _GetNextEvent
         PLA
         BEQ   L489F
         LDA   L1DBA
         CMP   #$0003
         BNE   L489F
         LDA   #$FFFF
         STA   L1DDA
         LDA   L1DBC
         AND   #$007F
L489F    RTS

L48A0    PEA   $0000
         PEA   $FFFF
         PEA   ^L1DBA
         PEA   L1DBA
         _GetNextEvent
         PLA
         BEQ   L48A0
         LDA   L1DBA
         CMP   #$0003
         BNE   L48A0
         LDA   L1DBC
         AND   #$007F
         RTS

L48C5    PEA   $0000
         PEA   $0402
         PEA   ^L1DBA
         PEA   L1DBA
         _GetNextEvent
         PLA
         BEQ   L48C5
         LDA   L1DBA
         CMP   #$0001
         BNE   L48C5
         RTS

L48E4    PEA   $0000
         PEA   $FFFF
         PEA   ^L1DBA
         PEA   L1DBA
         _GetNextEvent
         PLA
         BEQ   L490D
         LDA   L1DBA
         CMP   #$0001
         BEQ   L4907
         CMP   #$0003
         BNE   L490D
L4907    LDA   #$FFFF
         STA   L1DDA
L490D    RTS

L490E    PEA   $0000
         PEA   $FFFF
         PEA   ^L1DBA
         PEA   L1DBA
         _GetNextEvent
         PLA
         BEQ   L490E
         LDA   L1DBA
         CMP   #$0001
         BEQ   L4931
         CMP   #$0003
         BNE   L490E
L4931    RTS

L4932    PEA   $0000
         PEA   $FFFF
         PEA   $0000
         _FlushEvents
         PLA
         RTS

*         SEP   #$30
*         LDA   #$00
*         STAL  $E0C022
*         REP   #$30
*         RTS

*         SEP   #$30
*         LDA   #$F0
*         STAL  $E0C022
*         REP   #$30
*         RTS

L495A    LDX   #$0025
L495D    LDY   #$5000
L4960    DEY
         BNE   L4960
         DEX
         BNE   L495D
         RTS

L4967    TAY
L4968    JSR   L496F
         DEY
         BNE   L4968
         RTS

L496F    LDA   #$3000
L4972    DEC
         BNE   L4972
         RTS

*         _GrafOff
*         RTS

*         _GrafOn
*         RTS

L4986    PEA   $0000
         PEA   $0000
         PEA   $0000
         PEA   $0000
         _ReadTimeHex
*         PLA
*         STA   L49B4
	 plx
*         PLA
*         STA   L49B6
	 ply
         PLA
         PLA
*         LDA   L49B6
*         PHA
	 phy
*         LDA   L49B4
*         PHA
	 phx
         _SetRandSeed
	 rts
*         BRA   L49B8
*L49B4    DW    $0000
*L49B6    DW    $0000
*L49B8    RTS

L49B9
*         PEA   $0000
*         _Random
*         PLA
*         STA   L4A15
         PEA   $0000
         PEA   $0000
         LDA   L1DE2
         PHA
*         LDA   L4A15
*         PHA
         pea   $0000
         _Random
         _Multiply
         PLA
         STA   L4A17
         PLA
         STA   L4A19
         PEA   $0000
         PEA   $0000
         PEA   $0000
         PEA   $0000
         LDA   L4A19
         PHA
         LDA   L4A17
         PHA
         LDA   #$0001
         PHA
         LDA   #$0000
         PHA
         _LongDivide
         JSR   L41CC
         PLA
         STA   L4A15
         PLx
         PLx
         PLx
*         LDA   L4A15
         RTS

L4A15    DW    $0000
L4A17    DW    $0000
L4A19    DW    $0000

L4A1B    PEA   $0001
         _FFStopSound
         LDA   L1DDE
         CMP   #$0041
         BCS   L4A33
         SEC
         SBC   #$0030
         BRA   L4A3B
L4A33    CLC
         ADC   #$000A
         SEC
         SBC   #$0041
L4A3B    ASL
         ASL
         TAX
         PEA   $0001
         LDA   L1E8F+2,X
         PHA
         LDA   L1E8F,X
         PHA
         _FFStartSound
         JSR   L4A94
         PEA   $0001
         _FFStopSound
         RTS

L4A5E    PEA   $0001
         _FFStopSound
         LDA   L1DDE
         CMP   #$0041
         BCS   L4A76
         SEC
         SBC   #$0030
         BRA   L4A7E
L4A76    CLC
         ADC   #$000A
         SEC
         SBC   #$0041
L4A7E    ASL
         ASL
         TAX
         PEA   $0001
         LDA   L1E8F+2,X
         PHA
         LDA   L1E8F,X
         PHA
         _FFStartSound
         RTS

L4A94    PEA   $0000
         PEA   $0000
         _FFSoundDoneStatus
         JSR   L41CC
         PLA
         BEQ   L4A94
         RTS

         JSL   GSOS
         DW    $0010      ; Open
         ADRL  L1CEC
         JSR   L41CC
         LDA   L1CEC
         STA   L1CF6
         STA   L1D12
L4ABE    LDA   #^L1E36
         STA   L1CF8+2
         LDA   #L1E36
         STA   L1CF8
         LDA   #$0000
         STA   L1CFC+2
         LDA   #$0006
         STA   L1CFC
         JSL   GSOS
         DW    $0012      ; Read
         ADRL  L1CF6
         JSR   L41CC
         LDA   L1E1E+2
         STA   L1CF8+2
         LDA   L1E1E
         STA   L1CF8
         JMP   L4AF8

L4AF2    DW    $0000      ;  ref num
L4AF4    ADRL  $00000000  ;  end of file
L4AF8    LDA   L1CEC
         STA   L4AF2
         JSL   GSOS
         DW    $0019      ; GetEOF
         ADRL  L4AF2
         LDA   L4AF4
         STA   L1CFC
         LDA   L4AF4+2
         STA   L1CFC+2
         JSR   L41CC
         LDA   L1CFC
         SEC
         SBC   #$0006
         STA   L1CFC
         JSL   GSOS
         DW    $0012      ; Read
         ADRL  L1CF6
         JSR   L41CC
         JSL   GSOS
         DW    $0014      ; Close
         ADRL  L1D12
         JSR   L41CC
         LDA   L1E1E+2
         STA   L1E2C
         LDA   L1E1E
         STA   L1E2A
         LDA   L1CFC
         STA   L1E2E
         LDA   L1E26+2
         STA   L1E32
         LDA   L1E26
         STA   L1E30
         LDA   L1E36
         STA   L1E34
         JSR   L4824
         RTS

L4B63    STZ   L3202
         STZ   L320A
         STZ   L3204
         STZ   L320C
         LDA   L1E38
         STA   L3206
         STA   L320E
         LDA   L1E3A
         STA   L3208
         STA   L3210
         LDA   L1E3A
         LSR
         CLC
         ADC   #$0001
         STA   L3200
         PEA   ^L3242
         PEA   L3242
         _PaintPixels
         jmp   L41CC

L4B9D    pea   $0007
         _SetSolidPenPat
         pea   $0001
         pea   $000A
         _SetPenSize
         pea   $0010
         pea   $0000
         _Line
         jmp   L41CC

L4BCA    PEA   $0003
         _IntSource
         PEA   $0000
         PEA   ^L4FD0
         PEA   L4FD0
         _GetColorTable
         JSR   L41CC
         PEA   $0000
         PEA   ^L4FF0
         PEA   L4FF0
         _GetColorTable
         JSR   L41CC
         PEA   ^L4C4D
         PEA   L4C4D
         _SetHeartBeat
         JSR   L41CC
         PEA   $0002
         _IntSource
         RTS

L4C15    PEA   $0003
         _IntSource
         PEA   $0000
         PEA   ^L4FD0
         PEA   L4FD0
         _SetColorTable
         JSR   L41CC
         PEA   ^L4C4D
         PEA   L4C4D
         _DelHeartBeat
         JSR   L41CC
         PEA   $0002
         _IntSource
         RTS

L4C4D    ADRL  $00000000
L4C51    DW    $0001
         DW    $A55A
         PHK
         PLB
         REP   #$30
         STZ   L4FA6
L4C5C    JSR   L4C90
         INC   L4FA6
         INC   L4FA6
         LDA   L4FA6
         CMP   #$0008
         BCC   L4C5C
         PEA   $0000
         PEA   ^L4FF0
         PEA   L4FF0
         _SetColorTable
         JSR   L41CC
         LDA   #$0001
         STA   L4C51
         SEP   #$30
         LDA   #$00
         STAL  $E0C047
         CLC
         RTL

         MX    %00
L4C90    LDX   L4FA6
         DEC   L4D0A,X
         BEQ   L4C99
         RTS

L4C99    LDA   L4FC8,X
         STA   L4D0A,X
         LDA   L4FA8,X
         STA   L4D06
         LDA   L4FB8,X
         STA   L4D08
L4CAB    LDA   L4D08
         CMP   L4FB0,X
         BCC   L4CBB
         BEQ   L4CBB
         LDA   L4FA8,X
         STA   L4D08
L4CBB    LDY   L4D06
         LDA   L4FD0,Y
         LDY   L4D08
         STA   L4FF0,Y
         INC   L4D08
         INC   L4D08
         INC   L4D06
         INC   L4D06
         LDA   L4D06
         CMP   L4FB0,X
         BCC   L4CAB
         BEQ   L4CAB
         LDA   L4FB8,X
         CLC
         ADC   L4FC0,X
         STA   L4FB8,X
         CMP   #$8000
         BCS   L4CF1
         CMP   L4FA8,X
         BCS   L4CF8
L4CF1    LDA   L4FB0,X
         STA   L4FB8,X
         RTS

L4CF8    CMP   L4FB0,X
         BCC   L4D05
         BEQ   L4D05
         LDA   L4FA8,X
         STA   L4FB8,X
L4D05    RTS

L4D06    DW    $0000
L4D08    DW    $0000
L4D0A    DW    $0001
         DW    $0001
         DW    $0001
         DW    $0001
L4D12    PEA   $0000
         PEA   ^L4E82
         PEA   L4E82
         _GetColorTable
         JSR   L41CC
         PEA   $0001
         PEA   ^L4E82
         PEA   L4E82
         _SetColorTable
         JSR   L41CC
         PEA   $0001
         _SetAllSCBs
         LDA   $00
         PHA
         LDA   $02
         PHA
         PEA   $0000
         PEA   $0000
         PEA   $0000
         LDA   #$0800
         PHA
         LDA   L1D1C
         PHA
         PEA   $C008
         PEA   $0000
         PEA   $0000
         _NewHandle
         JSR   L41CC
         PLA
         STA   $00
         STA   L5010
         PLA
         STA   $02
         STA   L5012
         PLA
         STA   $02
         PLA
         STA   $00
         LDA   $00
         PHA
         LDA   $02
         PHA
         LDA   L5010
         STA   $00
         LDA   L5012
         STA   $02
         LDY   #$0000
         LDA   [$00],Y
         STA   L5014
         LDY   #$0002
         LDA   [$00],Y
         STA   L5016
         PLA
         STA   $02
         PLA
         STA   $00
         LDA   #^L5018
         STA   L1CF8+2
         LDA   #L5018
         STA   L1CF8
         LDA   #$000F
         STA   L1CFC
         LDA   #$0000
         STA   L1CFC+2
         JSL   GSOS
         DW    $0012      ; Read
         ADRL  L1CF6
         JSR   L41CC
         LDA   #$00E1
         STA   L1CF8+2
         LDA   #$9E00
         STA   L1CF8
         PEA   $0000
         PEA   $0000
         LDA   L5025
         PHA
         LDA   #$0020
         PHA
         _Multiply
         PLA
         STA   L1CFC
         PLA
         STA   L1CFC+2
         JSL   GSOS
         DW    $0012      ; Read
         ADRL  L1CF6
         JSR   L41CC
         LDA   #^L5027
         STA   L1CF8+2
         LDA   #L5027
         STA   L1CF8
         LDA   #$0002
         STA   L1CFC
         LDA   #$0000
         STA   L1CFC+2
         JSL   GSOS
         DW    $0012      ; Read
         ADRL  L1CF6
         JSR   L41CC
         LDA   L5014
         STA   L1CF8
         LDA   L5016
         STA   L1CF8+2
         LDA   #$0320
         STA   L1CFC
         LDA   #$0000
         STA   L1CFC+2
         JSL   GSOS
         DW    $0012      ; Read
         ADRL  L1CF6
         JSR   L41CC
         LDA   L1E1E+2
         STA   L1CF8+2
         LDA   L1E1E
         STA   L1CF8
         LDA   #$8000
         STA   L1CFC
         LDA   #$0000
         STA   L1CFC+2
         JSL   GSOS
         DW    $0012      ; Read
         ADRL  L1CF6
         JSR   L41CC
         JSL   GSOS
         DW    $0014      ; Close
         ADRL  L1D12
         JSR   L41CC
         JSR   L4EA2
         JSR   L4F46
         RTS

L4E82    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L4EA2    LDA   L1E1E+2
         STA   L1E2C
         LDA   L1E1E
         STA   L1E2A
         LDA   #$00E1
         STA   L1E32
         LDA   #$2000
         STA   L1E30
         LDA   #$0000
         STA   L1DD8
         LDA   L5014
         STA   $00
         LDA   L5016
         STA   $02
L4ECA    STZ   L5029
         LDA   L1DD8
         ASL
         ASL
         TAY
         LDA   [$00],Y
         STA   L1E2E
         LDA   #$00A0
         STA   L1E34
L4EDE    PEA   $0000
         LDA   L1E2C
         PHA
         LDA   L1E2A
         PHA
         LDA   L1E2E
         PHA
         PEA   ^L1E30
         PEA   L1E30
         PEA   ^L1E34
         PEA   L1E34
         _UnPackBytes
         PLA
         CLC
         ADC   L5029
         STA   L5029
         LDA   L1E34
         BNE   L4EDE
         LDA   L1E2A
         CLC
         ADC   L5029
         STA   L1E2A
         LDA   L1DD8
         PHA
         PEA   $0000
         _SetSCB
         JSR   L41CC
         INC   L1DD8
         LDA   L1DD8
         CMP   #$00C8
         BNE   L4ECA
         LDA   L5012
         PHA
         LDA   L5010
         PHA
         _DisposeHandle
         JSR   L41CC
         RTS

L4F46    LDA   L1E2A
         CLC
         ADC   #$0009
         STA   L1E2A
         LDA   L1E2C
         ADC   #$0000
         STA   L1E2C
         LDX   #$0000
L4F5C    LDA   L1E2A
         STA   $00
         LDA   L1E2C
         STA   $02
         LDY   #$0006
         LDA   [$00],Y
         BEQ   L4F73
         LDA   #$FFFE
         JMP   L4F76

L4F73    LDA   #$0002
L4F76    STA   L4FC0,X
         LDY   #$0008
         LDA   [$00],Y
         AND   #$00FF
         ASL
         STA   L4FA8,X
         STA   L4FB8,X
         LDY   #$0009
         LDA   [$00],Y
         AND   #$00FF
         ASL
         STA   L4FB0,X
         LDA   L1E2A
         CLC
         ADC   #$0008
         STA   L1E2A
         INX
         INX
         CPX   #$0008
         BCC   L4F5C
         RTS

L4FA6    DB    $00
         DB    $00
L4FA8    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L4FB0    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L4FB8    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L4FC0    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L4FC8    DB    $05
         DB    $00
         DB    $05
         DB    $00
         DB    $05
         DB    $00
         DB    $05
         DB    $00
L4FD0    HEX   00000000000000000000000000000000
         HEX   00000000000000000000000000000000
L4FF0    HEX   00000000000000000000000000000000
         HEX   00000000000000000000000000000000
L5010    DB    $00
         DB    $00
L5012    DB    $00
         DB    $00
L5014    DB    $00
         DB    $00
L5016    DB    $00
         DB    $00
L5018    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L5025    DB    $00
         DB    $00
L5027    DB    $00
         DB    $00
L5029    DB    $00
         DB    $00
L502B    JSL   GSOS
         DW    $0028      ; GetBootVol
         ADRL  L5172
         LDA   L5176
         AND   #$00FF
         STA   L51CC
         LDA   L51B8
         AND   #$00FF
         CMP   L51CC
         BEQ   L504C
         JMP   L508D

L504C    INC   L51CC
         LDY   #$0000
L5052    LDA   L5176,Y
         AND   #$00FF
         STA   L51CE
         LDA   L51B8,Y
         AND   #$00FF
         CMP   L51CE
         BEQ   L5069
         JMP   L508D

L5069    INY
         CPY   L51CC
         BCS   L5072
         JMP   L5052

L5072    JSL   GSOS
         DW    $0009      ; SetPrefix
         ADRL  L51D2
         JSR   L515F
         JSL   GSOS
         DW    $0009      ; SetPrefix
         ADRL  L51ED
         JSR   L515F
         RTS

L508D    JSL   GSOS
         DW    $000A      ; GetPrefix
         ADRL  L5298
         LDA   L529E
         AND   #$00FF
         STA   L51CC
         INC   L51CC
         LDA   #$0001
         STA   L51D0
L50A9    LDY   L51D0
         LDA   L51C7,Y
         AND   #$00FF
         STA   L51CE
         LDY   L51CC
         LDA   L529E,Y
         AND   #$FF00
         ORA   L51CE
         STA   L529E,Y
         INC   L51D0
         INC   L51CC
         LDA   L51D0
         CMP   #$0005
         BCS   L50D5
         JMP   L50A9

L50D5    LDA   L529E
         AND   #$00FF
         CLC
         ADC   #$0004
         STA   L51CC
         LDA   L529E
         AND   #$FF00
         ORA   L51CC
         STA   L529E
         LDY   #$0000
L50F1    LDA   L529E,Y
         AND   #$00FF
         STA   L51CC
         LDA   L520E,Y
         AND   #$FF00
         ORA   L51CC
         STA   L520E,Y
         LDA   L5256,Y
         AND   #$FF00
         ORA   L51CC
         STA   L5256,Y
         INY
         CPY   #$0042
         BCS   L511B
         JMP   L50F1

L511B    LDA   L520E
         AND   #$00FF
         CLC
         ADC   #$0001
         TAY
         LDA   L520E,Y
         AND   #$FF00
         ORA   #$0031
         STA   L520E,Y
         LDA   L5256,Y
         AND   #$FF00
         ORA   #$0032
         STA   L5256,Y
         INC   L520E
         INC   L5256
         JSL   GSOS
         DW    $0009      ; SetPrefix
         ADRL  L5208
         JSR   L515F
         JSL   GSOS
         DW    $0009      ; SetPrefix
         ADRL  L5250
         JSR   L515F
         RTS

L515F    BCS   L5162
         RTS

L5162    PHA
         PEA   $0000
         PEA   $0000
         _SysFailMgr
         BRK   $00
L5172    ADRL  L5176      ;  buffer ptr
L5176    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L51B8    STR   '/OC.BOOT.DISK/'
L51C7    STR   'DATA'
L51CC    DB    $00
         DB    $00
L51CE    DB    $00
         DB    $00
L51D0    DB    $00
         DB    $00
L51D2    DW    $0000      ;  prefix num
         ADRL  L51D8      ;  prefix ptr
L51D8    STR   '/OC.BOOT.DISK/DATA1/'
L51ED    DW    $0007      ;  prefix num
         ADRL  L51F3      ;  prefix ptr
L51F3    STR   '/OC.PROG.DISK/DATA2/'
L5208    DW    $0000      ;  prefix num
         ADRL  L520E      ;  prefix ptr
L520E    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L5250    DW    $0007      ;  prefix num
         ADRL  L5256      ;  prefix ptr
L5256    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L5298    DW    $0001      ;  prefix num
         ADRL  L529E      ;  prefix ptr
L529E    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
