*
* Talking Dinosaurs
*
* (c) 1989, Orange Cherry Software
* (s) 2022, Antoine Vignau
*

         mx    %00
         rel
         dsk   Dinosaurs
         lst   off

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

GSOS     EQU   $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/List.Macs
         use   4/Locator.Macs
         use   4/Mem.Macs
         use   4/Menu.Macs
         use   4/Misc.Macs
         use   4/Print.Macs
         use   4/QD.Macs
         use   4/QDAux.Macs
         use   4/Sound.Macs
         use   4/Util.Macs
         use   4/Window.Macs

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

            CLC
            XCE
            REP   #$30
            PHK
            PLB
            JSR   L19F8
            JSR   L3368
            JSR   L21FA
            PEA   ^L159A
            PEA   L159A
            PEA   $0019
            PEA   $0082
            PEA   $0024
            PEA   $0087
            _SetRect
            LDA   #$0066
            STA   L1E3B
            LDA   L1E3B
            PHA
            PEA   $000F
            _SetSoundVolume
            LDA   $00
            PHA
            LDA   $02
            PHA
            PEA   $0000
            PEA   $0000
            PEA   $0000
            LDA   #$8000
            PHA
            LDA   L1D7B
            PHA
            PEA   $C008
            PEA   $0000
            PEA   $0000
            _NewHandle
            JSR   L3D9D
            PLA
            STA   $00
            STA   L1E59
            PLA
            STA   $02
            STA   L1E59+2
            PLA
            STA   $02
            PLA
            STA   $00
            LDA   $00
            PHA
            LDA   $02
            PHA
            LDA   L1E59
            STA   $00
            LDA   L1E59+2
            STA   $02
            LDY   #$0000
            LDA   [$00],Y
            STA   L1E5D
            LDY   #$0002
            LDA   [$00],Y
            STA   L1E5D+2
            PLA
            STA   $02
            PLA
            STA   $00
            LDA   L1E5D+2
            STA   L322C+2
            STA   L324C+2
            LDA   L1E5D
            STA   L322C
            STA   L324C
            LDA   $00
            PHA
            LDA   $02
            PHA
            PEA   $0000
            PEA   $0000
            PEA   $0000
            LDA   #$1000
            PHA
            LDA   L1D7B
            PHA
            PEA   $C008
            PEA   $0000
            PEA   $0000
            _NewHandle
            JSR   L3D9D
            PLA
            STA   $00
            STA   L1E61
            PLA
            STA   $02
            STA   L1E61+2
            PLA
            STA   $02
            PLA
            STA   $00
            LDA   $00
            PHA
            LDA   $02
            PHA
            LDA   L1E61
            STA   $00
            LDA   L1E61+2
            STA   $02
            LDY   #$0000
            LDA   [$00],Y
            STA   L1E65
            LDY   #$0002
            LDA   [$00],Y
            STA   L1E65+2
            PLA
            STA   $02
            PLA
            STA   $00
            LDA   L1E65+2
            STA   L325C+2
            LDA   L1E65
            STA   L325C
            JMP   L013A

L0121       STR   '1/PICTURES/TRADEMARK.PAC'

L013A       LDA   #^L0121
            STA   L1D4D+2
            LDA   #L0121
            STA   L1D4D
            JSL   GSOS
            DW    $0010       ; Open
            ADRL  L1D4B
            JSR   L3D9D
            LDA   L1D4B
            STA   L1D55
            STA   L1D71
            JSR   L178E
            JSR   L3E07
            JSR   L436A
            JMP   L017D

L0168       STR   '1/PICTURES/TITLE.PAC'

L017D       LDA   #^L0168
            STA   L1D4D+2
            LDA   #L0168
            STA   L1D4D
            DW    $A822
            BRK   $E1
            DW    $0010       ; Open
            ADRL  L1D4B
            JSR   L3D9D
            LDA   L1D4B
            STA   L1D55
            STA   L1D71
            JSR   L178E
            JSR   L3E07
            JSR   L436A
            JMP   L01BF

L01AB       STR   '1/PICTURES/WAIT.PAC'

L01BF       LDA   #^L01AB
            STA   L1D4D+2
            LDA   #L01AB
            STA   L1D4D
            JSL   GSOS
            DW    $0010       ; Open
            ADRL  L1D4B
            JSR   L3D9D
            LDA   L1D4B
            STA   L1D55
            STA   L1D71
            JSR   L178E
            JSR   L3E07
            JSR   L1958
            JSR   L17B7
            JSR   L1ACC
            LDA   #L15BE
            STA   L1616
            JSR   L1837
            JMP   L020F

L01FC       STR   '1/PICTURES/IGY.PAC'

L020F       LDA   #^L01FC
            STA   L1D4D+2
            LDA   #L01FC
            STA   L1D4D
            JSL   GSOS
            DW    $0010       ; Open
            ADRL  L1D4B
            JSR   L3D9D
            LDA   L1D4B
            STA   L1D55
            STA   L1D71
            JSR   L178E
            JSR   L3E07
            LDA   #$0049
            STA   L1E3D
            JSR   L4529
            LDA   #$004A
            STA   L1E3D
            JSR   L4529
            JSR   L185C
            JSR   L436A
            JMP   L0266

L0252       STR   '1/PICTURES/MENU.PAC'

L0266       LDA   #^L0252
            STA   L1D4D+2
            LDA   #L0252
            STA   L1D4D
            JSL   GSOS
            DW    $0010       ; Open
            ADRL  L1D4B
            JSR   L3D9D
            LDA   L1D4B
            STA   L1D55
            STA   L1D71
            JSR   L178E
            JSR   L3E07
            _DrawMenuBar
            _InitPalette
            JMP   L02B4

L029F       STR   '1/PICTURES/BLINK.WIN'

L02B4       LDA   #^L029F
            STA   L1D4D+2
            LDA   #L029F
            STA   L1D4D
            JSL   GSOS
            DW    $0010       ; Open
            ADRL  L1D4B
            JSR   L3D9D
            LDA   L1D4B
            STA   L1D55
            STA   L1D71
            JSR   L458C
            _InitCursor
L02E0       PEA   $0000
            PEA   $FFFF
            PEA   ^L1E19
            PEA   L1E19
            _TaskMaster
            PLA
            BEQ   L02E0
            CMP   #$0011
            BEQ   L0305
            LDA   L1E19
            CMP   #$0001
            BEQ   L0321
            BRA   L02E0
L0305       LDA   L1E29
            AND   #$00FF
            ASL
            TAX
            JSR   (L1580,X)
            PEA   $0000
            LDA   L1E29+2
            PHA
            _HiliteMenu
            JMP   L02E0

L0321       LDY   #$0000
L0324       PHY
            PEA   $0000
            PEA   ^L1E23
            PEA   L1E23
            LDA   L2F0C+2,Y
            PHA
            LDA   L2F0C,Y
            PHA
            _PtInRect
            PLA
            BNE   L0397
            PLY
            INY
            INY
            INY
            INY
            CPY   #$0018
            BNE   L0324
            _HideCursor
            PEA   ^L333C
            PEA   L333C
            _PaintPixels
            JSR   L3D9D
            _ShowCursor
            PEA   ^L3272
            PEA   L3272
            PEA   $00D3
            PEA   $0020
            _SetPt
            JSR   L4631
            LDA   #$000B
            JSR   L4475
            PEA   ^L3352
            PEA   L3352
            _PaintPixels
            JSR   L3D9D
            JMP   L02E0

L0397       PLA
            LSR
            CLC
            ADC   #$000E
            TAX
            JSR   (L1580,X)
            _HideCursor
            JMP   L03BF

L03AB       STR   '1/PICTURES/MENU.PAC'

L03BF       LDA   #^L03AB
            STA   L1D4D+2
            LDA   #L03AB
            STA   L1D4D
            JSL   GSOS
            DW    $0010       ; Open
            ADRL  L1D4B
            JSR   L3D9D
            LDA   L1D4B
            STA   L1D55
            STA   L1D71
            JSR   L178E
            JSR   L3E07
            _DrawMenuBar
            _InitPalette
            _ShowCursor
            JMP   L0414

L03FF       STR   '1/PICTURES/BLINK.WIN'

L0414       LDA   #^L03FF
            STA   L1D4D+2
            LDA   #L03FF
            STA   L1D4D
            JSL   GSOS
            DW    $0010       ; Open
            ADRL  L1D4B
            JSR   L3D9D
            LDA   L1D4B
            STA   L1D55
            STA   L1D71
            JSR   L458C
            JMP   L02E0

L043C       JSR   L17DE
            PEA   $0000
            PEA   ^L224C
            PEA   L224C
            PEA   $0000
            PEA   $0000
            _Alert
            PLA
            RTS

L0457       JSR   L17DE
            LDA   #$004D
            STA   L1E3F
            JSR   L3E7D
            JSR   L3F23
            PEA   $0000
            PEA   $0000
            PEA   ^L23E6
            PEA   L23E6
            _GetNewModalDialog
            JSR   L3D9D
            PLA
            STA   L2457
            PLA
            STA   L2457+2
            PEA   $0000
            PEA   ^L0582
            PEA   L0582
            _StringWidth
            PLA
            STA   L0580
            SEC
            LDA   #$0140
            SBC   L0580
            LSR
            STA   L0580
            LDA   L0580
            PHA
            LDA   #$0032
            PHA
            _MoveTo
            PEA   ^L0582
            PEA   L0582
            _DrawString
            LDA   #$0000
            PHA
            _SetSolidPenPat
            LDA   #$0001
            PHA
            LDA   #$0001
            PHA
            _SetPenSize
            PEA   ^L3136
            PEA   L3136
            _FrameRect
            PEA   $0000
            PEA   $0000
            LDA   L1E3B
            PHA
            LDA   #$0011
            PHA
            _UDivide
            PLA
            STA   L057C
            PLA
            STA   L057E
            STZ   L057A
L0506       LDA   L057A
            ASL
            ASL
            TAX
            LDA   L3166+2,X
            PHA
            LDA   L3166,X
            PHA
            _PaintRect
            LDA   L057A
            CMP   L057C
            BEQ   L0528
            INC   L057A
            BRA   L0506
L0528       PEA   $0000
            PEA   $0000
            PEA   $0000
            _ModalDialog
            JSR   L3D9D
            PLA
            CMP   #$0003
            BEQ   L054D
            CMP   #$0005
            BEQ   L0555
            CMP   #$0001
            BEQ   L055D
            BRA   L0528
L054D       JSR   L1672
            JSR   L1658
            BRA   L0528
L0555       JSR   L16C4
            JSR   L1658
            BRA   L0528
L055D       LDA   L2457+2
            PHA
            LDA   L2457
            PHA
            _CloseDialog
            JSR   L3D9D
            LDA   #$004D
            STA   L1E3F
            JSR   L3F91
            BRA   L0597
L057A       DW    $0000
L057C       DW    $0000
L057E       DW    $0000
L0580       DW    $0000
L0582       STR   'Volume Control Panel'
L0597       RTS

L0598       JSR   L17DE
            PEA   $0000
            PEA   ^L245B
            PEA   L245B
            PEA   $0000
            PEA   $0000
            _Alert
            PLA
            RTS

L05B3       JSR   L17DE
            PEA   $0000
            PEA   ^L2546
            PEA   L2546
            PEA   $0000
            PEA   $0000
            _Alert
            PLA
            RTS

L05CE       JSR   L17DE
            PEA   $0000
            PEA   ^L260C
            PEA   L260C
            PEA   $0000
            PEA   $0000
            _Alert
            PLA
            RTS

L05E9       JSR   L17DE
            PEA   $0000
            PEA   ^L278B
            PEA   L278B
            PEA   $0000
            PEA   $0000
            _Alert
            PLA
            RTS

L0604       JSR   L17DE
            PEA   $0000
            PEA   ^L290A
            PEA   L290A
            PEA   $0000
            PEA   $0000
            _Alert
            PLA
            RTS

L061F       JSR   L17DE
            PEA   $0000
            PEA   ^L2A1A
            PEA   L2A1A
            PEA   $0000
            PEA   $0000
            _Alert
            PLA
            RTS

L063A       JSR   L17DE
            PEA   $0000
            PEA   ^L2B05
            PEA   L2B05
            PEA   $0000
            PEA   $0000
            _Alert
            PLA
            RTS

L0655       JSR   L17DE
            PEA   $0000
            PEA   ^L2C15
            PEA   L2C15
            PEA   $0000
            PEA   $0000
            _Alert
            PLA
            RTS

L0670       JSR   L17DE
            PEA   $0000
            PEA   ^L2D00
            PEA   L2D00
            PEA   $0000
            PEA   $0000
            _Alert
            PLA
            RTS

L068B       _HideCursor
            PEA   ^L32A2
            PEA   L32A2
            _PaintPixels
            JSR   L3D9D
            _ShowCursor
            PEA   $0000
            PEA   $0000
            PEA   $0005
            PEA   ^L175B
            PEA   L175B
            _Desktop
            PLA
            PLA
            PEA   $0000
            _PrChoosePrinter
            PLA
            RTS

L06CD       _HideCursor
            PEA   ^L32CE
            PEA   L32CE
            _PaintPixels
            JSR   L3D9D
            _ShowCursor
            PEA   $0000
            PEA   $0000
            PEA   $0005
            PEA   ^L176C
            PEA   L176C
            _Desktop
            PLA
            PLA
            PEA   $0000
            LDA   L2EE4+2
            PHA
            LDA   L2EE4
            PHA
            _PrStlDialog
            JSR   L3D9D
            PLA
            RTS

L071A       _HideCursor
            PEA   ^L32FA
            PEA   L32FA
            _PaintPixels
            JSR   L3D9D
            _ShowCursor
            PEA   $0000
            PEA   $0000
            PEA   $0005
            PEA   ^L177D
            PEA   L177D
            _Desktop
            PLA
            PLA
            PEA   $0000
            LDA   L2EE4+2
            PHA
            LDA   L2EE4
            PHA
            _PrJobDialog
            JSR   L3D9D
            PLA
            BNE   L0769
            RTS

L0769       PEA   $0000
            PEA   $0000
            _GetPort
            PLA
            STA   L1E43
            PLA
            STA   L1E45
            PEA   $0000
            PEA   $0000
            LDA   L2EE4+2
            PHA
            LDA   L2EE4
            PHA
            PEA   $0000
            PEA   $0000
            _PrOpenDoc
            JSR   L3D9D
            PLA
            STA   L3226
            PLA
            STA   L3226+2
            LDA   L3226+2
            PHA
            LDA   L3226
            PHA
            PEA   $0000
            PEA   $0000
            _PrOpenPage
            JSR   L3D9D
            PEA   ^L324A
            PEA   L324A
            PEA   ^L312E
            PEA   L312E
            PEA   $0000
            PEA   $0000
            PEA   $0000
            _PPToPort
            JSR   L3D9D
            LDA   L3226+2
            PHA
            LDA   L3226
            PHA
            _PrClosePage
            JSR   L3D9D
            LDA   L3226+2
            PHA
            LDA   L3226
            PHA
            _PrCloseDoc
            JSR   L3D9D
            LDA   L2EE4+2
            PHA
            LDA   L2EE4
            PHA
            PEA   $0000
            PEA   $0000
            PEA   ^L15A2
            PEA   L15A2
            _PrPicFile
            JSR   L3D9D
            LDA   L1E45
            PHA
            LDA   L1E43
            PHA
            _SetPort
            RTS

L082D       _HideCursor
            JMP   L084C

L0837       STR   '1/PICTURES/NAMES.PAC'

L084C       LDA   #^L0837
            STA   L1D4D+2
            LDA   #L0837
            STA   L1D4D
            JSL   GSOS
            DW    $0010
            ADRL  L1D4B
            JSR   L3D9D
            LDA   L1D4B
            STA   L1D55
            STA   L1D71
            JSR   L178E
            JSR   L3E07
            _DrawMenuBar
            _InitPalette
            _ShowCursor
            _WaitCursor
            LDA   #L15C4
            STA   L1616
            JSR   L1815
            _InitCursor
            LDA   #$0041
            STA   L1E3D
            JSR   L4529
            LDA   #$0042
            STA   L1E3D
            JSR   L4529
            LDA   #$0043
            STA   L1E3D
            JSR   L4529
            STZ   L0941
L08BE       PEA   $0000
            PEA   $FFFF
            PEA   ^L1E19
            PEA   L1E19
            _TaskMaster
            PLA
            BEQ   L08BE
            CMP   #$0011
            BEQ   L091C
            LDA   L1E19
            CMP   #$0001
            BEQ   L08E3
            BRA   L08BE
L08E3       LDY   #$0000
L08E6       PHY
            PEA   $0000
            PEA   ^L1E23
            PEA   L1E23
            LDA   L2F54+2,Y
            PHA
            LDA   L2F54,Y
            PHA
            _PtInRect
            PLA
            BNE   L090E
            PLY
            INY
            INY
            INY
            INY
            CPY   #$0018
            BNE   L08E6
            BRA   L08BE
L090E       PLA
            LSR
            TAY
            LDA   L2F9C,Y
            STA   L1E3D
            JSR   L4529
            BRA   L08BE
L091C       LDA   L1E29
            AND   #$00FF
            ASL
            TAX
            JSR   (L0943,X)
            PEA   $0000
            LDA   L1E29+2
            PHA
            _HiliteMenu
            LDA   L0941
            CMP   #$00FF
            BNE   L08BE
            jmp   L185C

L0941       DW    $0000
L0943       DA    L043C
            DA    L05B3
            DA    L0457
            DA    L0951
            DA    L0951
            DA    L0951
            DA    L0952
L0951       RTS

L0952       LDA   #$00FF
            STA   L0941
            RTS

L0959       _HideCursor
            JMP   L0979

L0963       STR   '1/PICTURES/HIDDEN.PAC'

L0979       LDA   #^L0963
            STA   L1D4D+2
            LDA   #L0963
            STA   L1D4D
            JSL   GSOS
            DW    $0010       ; Open
            ADRL  L1D4B
            JSR   L3D9D
            LDA   L1D4B
            STA   L1D55
            STA   L1D71
            JSR   L178E
            JSR   L3E07
            _DrawMenuBar
            _InitPalette
            _ShowCursor
            _WaitCursor
            LDA   #L15D4
            STA   L1616
            JSR   L1815
            _InitCursor
            LDA   #$0041
            STA   L1E3D
            JSR   L4529
            LDA   #$0042
            STA   L1E3D
            JSR   L4529
            LDA   #$0044
            STA   L1E3D
            JSR   L4529
            STZ   L0AB3
            STZ   L0AB7
            LDX   #$0000
L09F1       STZ   L0AB9,X
            INX
            INX
            CPX   #$000A
            BCC   L09F1
L09FB       PEA   $0000
            PEA   $FFFF
            PEA   ^L1E19
            PEA   L1E19
            _TaskMaster
            PLA
            BEQ   L09FB
            CMP   #$0011
            BNE   L0A19
            JMP   L0A8B

L0A19       LDA   L1E19
            CMP   #$0001
            BEQ   L0A23
            BRA   L09FB
L0A23       LDY   #$0000
L0A26       PHY
            PEA   $0000
            PEA   ^L1E23
            PEA   L1E23
            LDA   L2FA8+2,Y
            STA   $02
            LDA   L2FA8,Y
            STA   $00
            LDY   #$0002
            LDA   [$00],Y
            PHA
            LDY   #$0000
            LDA   [$00],Y
            PHA
            _PtInRgn
            PLA
            BNE   L0A66
            PLY
            INY
            INY
            INY
            INY
            CPY   #$0014
            BNE   L0A26
            LDA   #$004C
            STA   L1E3D
            JSR   L4529
            JMP   L09FB

L0A66       PLA
            LSR
            TAX
            LDA   L0AB9,X
            BNE   L0A77
            INC   L0AB7
            LDA   #$FFFF
            STA   L0AB9,X
L0A77       LDA   L2FD0,X
            STA   L1E3D
            JSR   L4529
            LDA   L0AB7
            CMP   #$0005
            BEQ   L0AAF
            JMP   L09FB

L0A8B       LDA   L1E29
            AND   #$00FF
            ASL
            TAX
            JSR   (L0AC3,X)
            PEA   $0000
            LDA   L1E29+2
            PHA
            _HiliteMenu
            LDA   L0AB3
            CMP   #$00FF
            BEQ   L0AAF
            JMP   L09FB

L0AAF       JSR   L185C
            RTS

L0AB3       DW    $0000
            DW    $0000
L0AB7       DW    $0000
L0AB9       DW    $0000
            DW    $0000
            DW    $0000
            DW    $0000
            DW    $0000
L0AC3       DA    L043C
            DA    L05CE
            DA    L0457
            DA    L0AD1
            DA    L0AD1
            DA    L0AD1
            DA    L0AD2
L0AD1       RTS

L0AD2       LDA   #$00FF
            STA   L0AB3
            RTS

L0AD9       _HideCursor
            JMP   L0AF8

L0AE3       STR   '1/PICTURES/BONES.PAC'

L0AF8       LDA   #^L0AE3
            STA   L1D4D+2
            LDA   #L0AE3
            STA   L1D4D
            JSL   GSOS
            DW    $0010       ; Open
            ADRL  L1D4B
            JSR   L3D9D
            LDA   L1D4B
            STA   L1D55
            STA   L1D71
            JSR   L178E
            JSR   L3E07
            _DrawMenuBar
            _InitPalette
            _ShowCursor
            _WaitCursor
            LDA   #L15E6
            STA   L1616
            JSR   L1815
            _InitCursor
            STZ   L0C92
            STZ   L0C96
            LDX   #$0000
L0B55       STZ   L0C98,X
            INX
            INX
            CPX   #$0014
            BCC   L0B55
            JSR   L4494
            LDA   #$000A
            STA   L1E41
            LDA   #$0041
            STA   L1E3D
            JSR   L4529
            LDA   #$0045
            STA   L1E3D
            JSR   L4529
            LDA   #$0045
            STA   L1E3F
            JSR   L3F91
            LDA   #$0039
            STA   L1E3F
            JSR   L3E7D
            JSR   L3F23
L0B8F       JSR   L44C7
            ASL
            TAX
            LDA   L0C98,X
            BNE   L0B8F
            LDA   #$FFFF
            STA   L0C98,X
            STX   L0CAC
L0BA2       LDA   #$0046
            STA   L1E3D
            JSR   L4529
            LDX   L0CAC
            LDA   L3052,X
            STA   L1E3D
            JSR   L4529
            LDA   #$0047
            STA   L1E3D
            JSR   L4529
L0BC0       PEA   $0000
            PEA   $FFFF
            PEA   ^L1E19
            PEA   L1E19
            _TaskMaster
            PLA
            BEQ   L0BC0
            CMP   #$0011
            BNE   L0BDE
            JMP   L0C61

L0BDE       LDA   L1E19
            CMP   #$0001
            BEQ   L0BE8
            BRA   L0BC0
L0BE8       LDY   #$0000
L0BEB       PHY
            PEA   $0000
            PEA   ^L1E23
            PEA   L1E23
            LDA   L2FDA+2,Y
            PHA
            LDA   L2FDA,Y
            PHA
            _PtInRect
            PLA
            BNE   L0C2F
            PLY
            INY
            INY
            INY
            INY
            CPY   #$0028
            BCC   L0BEB
            PEA   $0000
            PEA   ^L1E23
            PEA   L1E23
            PEA   ^L2F04
            PEA   L2F04
            _PtInRect
            PLA
            BEQ   L0C2D
            JMP   L0BA2

L0C2D       BRA   L0BC0
L0C2F       PLA
            LSR
            LSR
            INC
            LDX   L0CAC
            CMP   L3066,X
            BEQ   L0C47
            LDA   #$004C
            STA   L1E3D
            JSR   L4529
            JMP   L0BC0

L0C47       LDA   #$004B
            STA   L1E3D
            JSR   L4529
            INC   L0C96
            JSR   L4468
            LDA   L0C96
            CMP   #$000A
            BEQ   L0C85
            JMP   L0B8F

L0C61       LDA   L1E29
            AND   #$00FF
            ASL
            TAX
            JSR   (L0CAE,X)
            PEA   $0000
            LDA   L1E29+2
            PHA
            _HiliteMenu
            LDA   L0C92
            CMP   #$00FF
            BEQ   L0C85
            JMP   L0BC0

L0C85       JSR   L185C
            LDA   #$0039
            STA   L1E3F
            JSR   L3F91
            RTS

L0C92       DW    $0000
            DW    $0000
L0C96       DW    $0000
L0C98       DW    $0000
            DW    $0000
            DW    $0000
            DW    $0000
            DW    $0000
            DW    $0000
            DW    $0000
            DW    $0000
            DW    $0000
            DW    $0000
L0CAC       DW    $0000
L0CAE       DA    L043C
            DA    L05E9
            DA    L0457
            DA    L0CBC
            DA    L0CBC
            DA    L0CBC
            DA    L0CBD
L0CBC       RTS

L0CBD       LDA   #$00FF
            STA   L0C92
            RTS

L0CC4       _HideCursor
            JMP   L0CE2

L0CCE       STR   '1/PICTURES/PICK.PAC'

L0CE2       LDA   #^L0CCE
            STA   L1D4D+2
            LDA   #L0CCE
            STA   L1D4D
            JSL   GSOS
            DW    $0010       ; Open
            ADRL  L1D4B
            JSR   L3D9D
            LDA   L1D4B
            STA   L1D55
            STA   L1D71
            JSR   L178E
            JSR   L3E07
            _DrawMenuBar
            _InitPalette
            _ShowCursor
            _WaitCursor
            LDA   #L1604
            STA   L1616
            JSR   L1815
            _InitCursor
            STZ   L0E56
            STZ   L0E58
            LDA   #$0001
            PHA
            LDA   #$0001
            PHA
            _SetPenSize
L0D4B       LDA   #$0008
            PHA
            _SetSolidPenPat
            LDX   L0E58
            LDA   L307A+2,X
            PHA
            LDA   L307A,X
            PHA
            _FrameRect
            JSR   L0E43
L0D6B       PEA   $0000
            PEA   $FFFF
            PEA   ^L1E19
            PEA   L1E19
            _TaskMaster
            PLA
            BEQ   L0D6B
            CMP   #$0011
            BEQ   L0D90
            LDA   L1E19
            CMP   #$0001
            BEQ   L0DB5
            BRA   L0D6B
L0D90       LDA   L1E29
            AND   #$00FF
            ASL
            TAX
            JSR   (L0E5A,X)
            PEA   $0000
            LDA   L1E29+2
            PHA
            _HiliteMenu
            LDA   L0E56
            CMP   #$00FF
            BNE   L0D6B
L0DB1       JSR   L185C
            RTS

L0DB5       PEA   $0000
            PEA   ^L1E23
            PEA   L1E23
            LDX   L0E58
            LDA   L307A+2,X
            PHA
            LDA   L307A,X
            PHA
            _PtInRect
            PLA
            BNE   L0DD6
            JMP   L0D6B

L0DD6       PEA   $0000
            PEA   ^L1E23
            PEA   L1E23
            LDX   L0E58
            LDA   L309E+2,X
            PHA
            LDA   L309E,X
            PHA
            _PtInRect
            PLA
            BNE   L0E00
            LDA   #$004C
            STA   L1E3D
            JSR   L4529
            JMP   L0D6B

L0E00       LDA   #$004B
            STA   L1E3D
            JSR   L4529
            LDA   #$0007
            PHA
            _SetSolidPenPat
            LDX   L0E58
            LDA   L307A+2,X
            PHA
            LDA   L307A,X
            PHA
            _FrameRect
            INC   L0E58
            INC   L0E58
            INC   L0E58
            INC   L0E58
            JSR   L4468
            LDA   L0E58
            CMP   #$000C
            BEQ   L0E40
            JMP   L0D4B
L0E40       JMP   L0DB1

L0E43       LDA   #$0041
            STA   L1E3D
            JSR   L4529
            LDA   #$0048
            STA   L1E3D
            JSR   L4529
            RTS

L0E56       DW    $0000
L0E58       DW    $0000
L0E5A       DA    L043C
            DA    L0604
            DA    L0457
            DA    L0E68
            DA    L0E68
            DA    L0E68
            DA    L0E69
L0E68       RTS

L0E69       LDA   #$00FF
            STA   L0E56
            RTS

L0E70       _HideCursor
            JMP   L0E93

L0E7A       STR   '1/PICTURES/COLORMENU.PAC'

L0E93       LDA   #^L0E7A
            STA   L1D4D+2
            LDA   #L0E7A
            STA   L1D4D
            JSL   GSOS
            DW    $0010       ; Open
            ADRL  L1D4B
            JSR   L3D9D
            LDA   L1D4B
            STA   L1D55
            STA   L1D71
            JSR   L178E
            JSR   L3E07
            _DrawMenuBar
            _InitPalette
            _ShowCursor
            _WaitCursor
            JMP   L0EF1

L0EDA       STR   '1/PICTURES/CRAYONS.WIN'

L0EF1       LDA   #^L0EDA
            STA   L1D4D+2
            LDA   #L0EDA
            STA   L1D4D
            JSL   GSOS
            DW    $0010       ; Open
            ADRL  L1D4B
            JSR   L3D9D
            LDA   L1D4B
            STA   L1D55
            STA   L1D71
            JSR   L458C
            LDA   #L160C
            STA   L1616
            JSR   L1815
            _InitCursor
L0F26       LDA   #$0041
            STA   L1E3D
            JSR   L4529
            LDA   #$0042
            STA   L1E3D
            JSR   L4529
            STZ   L108B
L0F3B       PEA   $0000
            PEA   $FFFF
            PEA   ^L1E19
            PEA   L1E19
            _TaskMaster
            PLA
            BEQ   L0F3B
            CMP   #$0011
            BNE   L0F59
            JMP   L1063

L0F59       LDA   L1E19
            CMP   #$0001
            BEQ   L0F63
            BRA   L0F3B
L0F63       LDY   #$0000
L0F66       PHY
            PEA   $0000
            PEA   ^L1E23
            PEA   L1E23
            LDA   L30C2+2,Y
            PHA
            LDA   L30C2,Y
            PHA
            _PtInRect
            PLA
            BNE   L0F8F
            PLY
            INY
            INY
            INY
            INY
            CPY   #$0010
            BNE   L0F66
            JMP   L0F3B

L0F8F       _HideCursor
            PLA
            LSR
            TAX
            JSR   (L109B,X)
            PEA   ^L3272
            PEA   L3272
            PEA   $0002
            PEA   $007C
            _SetPt
            JSR   L4631
            _DrawMenuBar
            _InitPalette
            _ShowCursor
            LDA   #$0041
            STA   L1E3D
            JSR   L4529
            LDA   #$0054
            STA   L1E3D
            JSR   L4529
            LDA   #$0055
            STA   L1E3D
            JSR   L4529
            LDA   #$0041
            STA   L1E3D
            JSR   L4529
            LDA   #$0056
            STA   L1E3D
            JSR   L4529
            LDA   #$0057
            STA   L1E3D
            JSR   L4529
            JSR   L10AB
            _HideCursor
            JMP   L1023

L100A       STR   '1/PICTURES/COLORMENU.PAC'

L1023       LDA   #^L100A
            STA   L1D4D+2
            LDA   #L100A
            STA   L1D4D
            JSL   GSOS
            DW    $0010       ; Open
            ADRL  L1D4B
            JSR   L3D9D
            LDA   L1D4B
            STA   L1D55
            STA   L1D71
            JSR   L178E
            JSR   L3E07
            _DrawMenuBar
            _InitPalette
            _ShowCursor
            JMP   L0F26

L1063       LDA   L1E29
            AND   #$00FF
            ASL
            TAX
            JSR   (L108D,X)
            PEA   $0000
            LDA   L1E29+2
            PHA
            _HiliteMenu
            LDA   L108B
            CMP   #$00FF
            BEQ   L1087
            JMP   L0F3B

L1087       JSR   L185C
            RTS

L108B       DW    $0000
L108D       DA    L043C
            DA    L061F
            DA    L0457
            DA    L10A3
            DA    L10A3
            DA    L10A3
            DA    L10A4
L109B       DA    L1433
            DA    L1474
            DA    L14B5
            DA    L14FA
L10A3       RTS

L10A4       LDA   #$00FF
            STA   L108B
            RTS

L10AB       STZ   L11DD
            STZ   L11E1
L10B1       PEA   $0000
            PEA   $FFFF
            PEA   ^L1E19
            PEA   L1E19
            _TaskMaster
            PLA
            BEQ   L10B1
            CMP   #$0011
            BNE   L10CF
            JMP   L11B8

L10CF       LDA   L1E19
            CMP   #$0001
            BEQ   L10D9
            BRA   L10B1
L10D9       LDY   #$0000
L10DC       PHY
            PEA   $0000
            PEA   ^L1E23
            PEA   L1E23
            LDA   L30F2+2,Y
            PHA
            LDA   L30F2,Y
            PHA
            _PtInRect
            PLA
            BNE   L1159
            PLY
            INY
            INY
            INY
            INY
            CPY   #$0014
            BNE   L10DC
            LDA   L11E1
            BNE   L110A
            JMP   L10B1

L110A       _HideCursor
            PEA   $0000
            LDA   L1E25
            PHA
            LDA   L1E23
            PHA
            _GetPixel
            PLA
            STA   L11DF
            _ShowCursor
            LDX   #$0000
            LDA   L11DF
L1134       CMP   L1618,X
            BEQ   L1143
            INX
            INX
            CPX   #$000A
            BCC   L1134
            JMP   L10B1

L1143       LDA   #$0000
            PHA
            LDA   L11DF
            PHA
            LDA   L11E1
            PHA
            _SetColorEntry
            JMP   L10B1

L1159       PLA
            LSR
            LSR
            INC
            STA   L11DF
            PEA   $0000
            LDA   #$0000
            PHA
            LDA   L11DF
            PHA
            _GetColorEntry
            PLA
            STA   L11E1
            LDA   #$0001
            PHA
            LDA   #$0001
            PHA
            _SetPenSize
            LDA   L11DF
            PHA
            _SetSolidPenPat
            PEA   ^L159A
            PEA   L159A
            _PaintRect
            LDA   #$0000
            PHA
            _SetSolidPenPat
            PEA   ^L159A
            PEA   L159A
            _FrameRect
            JMP   L10B1

L11B8       LDA   L1E29
            AND   #$00FF
            ASL
            TAX
            JSR   (L11E3,X)
            PEA   $0000
            LDA   L1E29+2
            PHA
            _HiliteMenu
            LDA   L11DD
            CMP   #$00FF
            BEQ   L11DC
            JMP   L10B1
L11DC       RTS

L11DD       DW    $0000
L11DF       DW    $0000
L11E1       DW    $0000
L11E3       DA    L043C
            DA    L063A
            DA    L0457
            DA    L11F1
            DA    L11F1
            DA    L11F1
            DA    L11F2
L11F1       RTS

L11F2       LDA   #$00FF
            STA   L11DD
            RTS

L11F9       _HideCursor
            JMP   L121C

L1203       STR   '1/PICTURES/COLORMENU.PAC'

L121C       LDA   #^L1203
            STA   L1D4D+2
            LDA   #L1203
            STA   L1D4D
            JSL   GSOS
            DW    $0010       ; Open
            ADRL  L1D4B
            JSR   L3D9D
            LDA   L1D4B
            STA   L1D55
            STA   L1D71
            JSR   L178E
            JSR   L3E07
            _DrawMenuBar
            _InitPalette
            _ShowCursor
            LDA   $00
            PHA
            LDA   $02
            PHA
            PEA   $0000
            PEA   $0000
            PEA   $0000
            LDA   #$008C
            PHA
            LDA   L1D7B
            PHA
            PEA   $C008
            PEA   $0000
            PEA   $0000
            _NewHandle
            JSR   L3D9D
            PLA
            STA   $00
            STA   L2EE4
            PLA
            STA   $02
            STA   L2EE4+2
            PLA
            STA   $02
            PLA
            STA   $00
            LDA   $00
            PHA
            LDA   $02
            PHA
            LDA   L2EE4
            STA   $00
            LDA   L2EE4+2
            STA   $02
            LDY   #$0000
            LDA   [$00],Y
            STA   L2EE8
            LDY   #$0002
            LDA   [$00],Y
            STA   L2EE8+2
            PLA
            STA   $02
            PLA
            STA   $00
            LDA   L2EE4+2
            PHA
            LDA   L2EE4
            PHA
            _PrDefault
            JSR   L3D9D
            LDA   #$0041
            STA   L1E3D
            JSR   L4529
            LDA   #$0042
            STA   L1E3D
            JSR   L4529
            STZ   L13BA
L12E2       PEA   $0000
            PEA   $FFFF
            PEA   ^L1E19
            PEA   L1E19
            _TaskMaster
            PLA
            BEQ   L12E2
            CMP   #$0011
            BNE   L1300
            JMP   L1383

L1300       LDA   L1E19
            CMP   #$0001
            BEQ   L130A
            BRA   L12E2
L130A       LDY   #$0000
L130D       PHY
            PEA   $0000
            PEA   ^L1E23
            PEA   L1E23
            LDA   L30C2+2,Y
            PHA
            LDA   L30C2,Y
            PHA
            _PtInRect
            PLA
            BNE   L1336
            PLY
            INY
            INY
            INY
            INY
            CPY   #$0010
            BNE   L130D
            JMP   L12E2

L1336       _HideCursor
            PLA
            LSR
            TAX
            JSR   (L13CA,X)
            LDA   L2EEC+2
            PHA
            LDA   L2EEC
            PHA
            LDA   L1E5D+2
            PHA
            LDA   L1E5D
            PHA
            LDA   L2EF0+2
            PHA
            LDA   L2EF0
            PHA
            _BlockMove
            JSR   L1716
            _DrawMenuBar
            _InitPalette
            _ShowCursor
            JSR   L13DB
            JSR   L1734
            JMP   L11F9

L1383       LDA   L1E29
            AND   #$00FF
            ASL
            TAX
            JSR   (L13BC,X)
            PEA   $0000
            LDA   L1E29+2
            PHA
            _HiliteMenu
            LDA   L13BA
            CMP   #$00FF
            BEQ   L13A7
            JMP   L12E2

L13A7       LDA   L2EE4+2
            PHA
            LDA   L2EE4
            PHA
            _DisposeHandle
            JSR   L3D9D
            RTS

L13BA       DW    $0000
L13BC       DA    L043C
            DA    L0655
            DA    L0457
            DA    L13D2
            DA    L13D2
            DA    L13D2
            DA    L13D3
L13CA       DA    L1433
            DA    L1474
            DA    L14B5
            DA    L14FA
L13D2       RTS

L13D3       LDA   #$00FF
            STA   L13BA
            RTS
            RTS

L13DB       STZ   L141B
L13DE       PEA   $0000
            PEA   $FFFF
            PEA   ^L1E19
            PEA   L1E19
            _TaskMaster
            PLA
            BEQ   L13DE
            CMP   #$0011
            BNE   L13DE
            LDA   L1E29
            AND   #$00FF
            ASL
            TAX
            JSR   (L141D,X)
            PEA   $0000
            LDA   L1E29+2
            PHA
            _HiliteMenu
            LDA   L141B
            CMP   #$00FF
            BNE   L13DE
            RTS

L141B       DW    $0000
L141D       DA    L043C
            DA    L0670
            DA    L0457
            DA    L068B
            DA    L06CD
            DA    L071A
            DA    L142C
            RTS

L142C       LDA   #$00FF
            STA   L141B
            RTS
L1433       JMP   L144B

L1436       STR   '1/PICTURES/TRYAN.PAC'

L144B       LDA   #^L1436
            STA   L1D4D+2
            LDA   #L1436
            STA   L1D4D
            JSL   GSOS
            DW    $0010       ; Open
            ADRL  L1D4B
            JSR   L3D9D
            LDA   L1D4B
            STA   L1D55
            STA   L1D71
            JSR   L178E
            JSR   L3E07
            RTS
L1474       JMP   L148C

L1477       STR   '1/PICTURES/PACHY.PAC'

L148C       LDA   #^L1477
            STA   L1D4D+2
            LDA   #L1477
            STA   L1D4D
            JSL   GSOS
            DW    $0010       ; Open
            ADRL  L1D4B
            JSR   L3D9D
            LDA   L1D4B
            STA   L1D55
            STA   L1D71
            JSR   L178E
            JSR   L3E07
            RTS
L14B5       JMP   L14D1

L14B8       STR   '1/PICTURES/SAUROPODS.PAC'

L14D1       LDA   #^L14B8
            STA   L1D4D+2
            LDA   #L14B8
            STA   L1D4D
            JSL   GSOS
            DW    $0010       ; Open
            ADRL  L1D4B
            JSR   L3D9D
            LDA   L1D4B
            STA   L1D55
            STA   L1D71
            JSR   L178E
            JSR   L3E07
            RTS
L14FA       JMP   L1511

L14FD       STR   '1/PICTURES/STEG.PAC'

L1511       LDA   #^L14FD
            STA   L1D4D+2
            LDA   #L14FD
            STA   L1D4D
            JSL   GSOS
            DW    $0010       ; Open
            ADRL  L1D4B
            JSR   L3D9D
            LDA   L1D4B
            STA   L1D55
            STA   L1D71
            JSR   L178E
            JSR   L3E07
            RTS

L1543       STR   '1/PICTURES/QUIT.PAC'

L153A	=     *

L1557       LDA   #^L1543
            STA   L1D4D+2
            LDA   #L1543
            STA   L1D4D
            JSL   GSOS
            DW    $0010       ; Open
            ADRL  L1D4B
            JSR   L3D9D
            LDA   L1D4B
            STA   L1D55
            STA   L1D71
            JSR   L178E
            JSR   L3E07

*----------- LoGo 11/2022

	jsr   L4468	; wait
            JSR   L1CF2	; stop tools
            JSR   L1ABD ; stop other tools

	_QDShutDown
	
	PushWord L1D7B
	_DisposeAll

	PushWord L1D79
	_MMShutDown

	_TLShutDown

*            STP

	jsl	GSOS
	dw	$0029
	adrl	proQUIT

	brk	$bd
	
proQUIT	ds	4
	ds	2

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

L1580       DA    L043C
            DA    L0598
            DA    L0457
            DA    L068B
            DA    L06CD
            DA    L071A
            DA    L153A
            DA    L082D
            DA    L0959
            DA    L0AD9
            DA    L0CC4
            DA    L0E70
            DA    L11F9
L159A       DW    $0000
            DW    $0000
            DW    $0000
            DW    $0000
L15A2       DW    $0000
            DW    $0000
            DW    $0000
            DW    $0000
            DW    $0000
            DW    $0000
            DW    $0000
            DW    $0000
            DW    $0000
            DW    $0000
            DW    $0000
            DW    $0000
            DW    $0000
            DW    $0000
L15BE       DW    $0049
            DW    $004A
            DW    $0000
L15C4       DW    $0043
            DW    $004E
            DW    $004F
            DW    $0050
            DW    $0051
            DW    $0052
            DW    $0053
            DW    $0000
L15D4       DW    $0044
            DW    $004E
            DW    $004F
            DW    $0050
            DW    $0051
            DW    $0052
            DW    $0053
            DW    $004C
            DW    $0000
L15E6       DW    $0045
            DW    $0046
            DW    $0047
            DW    $004B
            DW    $004C
            DW    $0030
            DW    $0031
            DW    $0032
            DW    $0033
            DW    $0034
            DW    $0035
            DW    $0036
            DW    $0037
            DW    $0038
            DW    $0000
L1604       DW    $0048
            DW    $004B
            DW    $004C
            DW    $0000
L160C       DW    $0054
            DW    $0055
            DW    $0056
            DW    $0057
            DW    $0000
L1616       DW    $0000
L1618       DW    $0006
            DW    $0007
            DW    $0008
            DW    $0009
            DW    $000A
L1622       DW    $0000
            DW    $0000
            DW    $0000
            DW    $0000
            DW    $0000
            DW    $0000
            DW    $0000
            DW    $0000
            DW    $0000
            DW    $0000
            DW    $0000
            DW    $0000
            DW    $0000
            DW    $0000
            DW    $0000
            DW    $0000
L1642       CLC
            ADC   L1E3B
            STA   L1E3B
            LDA   L1E3B
            PHA
            PEA   $000F
            _SetSoundVolume
            RTS

L1658       LDA   L1E3D
            STA   L166F
            LDA   #$004D
            STA   L1E3D
            JSR   L4529
            LDA   L166F
            STA   L1E3D
            BRA   L1671
L166F       DW    $0000
L1671       RTS

L1672       LDA   L1E3B
*            CMP   #$0000
            BEQ   L16C3
            PEA   $0000
            PEA   $0000
            LDA   L1E3B
            PHA
            LDA   #$0011
            PHA
            _UDivide
            PLA
            STA   L16BF
            PLA
            STA   L16C1
            LDA   #$000F
            PHA
            _SetSolidPenPat
            LDA   L16BF
            ASL
            ASL
            TAX
            LDA   L3166+2,X
            PHA
            LDA   L3166,X
            PHA
            _PaintRect
            LDA   #$FFEF
            JSR   L1642
            BRA   L16C3
L16BF       DW    $0000
L16C1       DW    $0000
L16C3       RTS

L16C4       LDA   L1E3B
            CMP   #$00FF
            BEQ   L1715
            LDA   #$0011
            JSR   L1642
            PEA   $0000
            PEA   $0000
            LDA   L1E3B
            PHA
            LDA   #$0011
            PHA
            _UDivide
            PLA
            STA   L1711
            PLA
            STA   L1713
            LDA   #$0000
            PHA
            _SetSolidPenPat
            LDA   L1711
            ASL
            ASL
            TAX
            LDA   L3166+2,X
            PHA
            LDA   L3166,X
            PHA
            _PaintRect
            BRA   L1715
L1711       DW    $0000
L1713       DW    $0000
L1715       RTS

L1716       LDA   L2EC0+2
            PHA
            LDA   L2EC0
            PHA
            PEA   $0003
            _InsertMenu
            PEA   $0000
            _FixMenuBar
            PLA
            RTS

L1734       PEA   $0004
            _DeleteMenu
            PEA   $0000
            _FixMenuBar
            PLA
            RTS

L174A       PEA   ^L328C
            PEA   L328C
            _PaintPixels
            JSR   L3D9D
            RTL

L175B       PEA   ^L32B8
            PEA   L32B8
            _PaintPixels
            JSR   L3D9D
            RTL

L176C       PEA   ^L32E4
            PEA   L32E4
            _PaintPixels
            JSR   L3D9D
            RTL

L177D       PEA   ^L3310
            PEA   L3310
            _PaintPixels
            JSR   L3D9D
            RTL

L178E       PEA   $0000
            _ClearScreen
            PEA   $0000
            _SetAllSCBs
            LDA   #$0000
            PHA
            PEA   ^L1622
            PEA   L1622
            _SetColorTable
            JSR   L3D9D
            RTS

L17B7       STZ   L17D5
L17BA       LDA   L17D5
            ASL
            TAY
            LDA   L17D7,Y
            BEQ   L17DD
            STA   L1E3F
            JSR   L3E7D
            JSR   L3F23
            JSR   L466B
            INC   L17D5
            BRA   L17BA
L17D5       DW    $0000
L17D7       DW    $0041
            DW    $0042
            DW    $0000
L17DD       RTS

L17DE       _HideCursor
            PEA   ^L3276
            PEA   L3276
            _PaintPixels
            JSR   L3D9D
            _ShowCursor
            PEA   $0000
            PEA   $0000
            PEA   $0005
            PEA   ^L174A
            PEA   L174A
            _Desktop
            PLA
            PLA
            RTS

L1815       LDA   L1616
            STA   $00
            STZ   L1834
L181D       LDA   L1834
            ASL
            TAY
            LDA   ($00),Y
            BEQ   L1836
            STA   L1E3F
            JSR   L3E7D
            JSR   L3F23
            INC   L1834
            BRA   L181D
L1834       DW    $0000
L1836       RTS

L1837       LDA   L1616
            STA   $00
            STZ   L1859
L183F       LDA   L1859
            ASL
            TAY
            LDA   ($00),Y
            BEQ   L185B
            STA   L1E3F
            JSR   L3E7D
            JSR   L3F23
            JSR   L466B
            INC   L1859
            BRA   L183F
L1859       DW    $0000
L185B       RTS

L185C       LDA   L1616
            STA   $00
            STZ   L1878
L1864       LDA   L1878
            ASL
            TAY
            LDA   ($00),Y
            BEQ   L187A
            STA   L1E3F
            JSR   L3F91
            INC   L1878
            BRA   L1864

L1878       DW    $0000
L187A       RTS

L18B3       DB    L18BC-L18B3
L18B4       ASC   '        '

L18BC       LDA   L1951
            PHA
            LDA   L194F
            PHA
            PEA   ^L18B4
            PEA   L18B4
            PEA   $0008
            _Long2Hex
            JSR   L3D9D
            LDA   #$001E
            PHA
            LDA   #$0050
            PHA
            _MoveTo
            PEA   ^L18B3
            PEA   L18B3
            _DrawString
            JMP   L18FF

L18F6       DB    L18FF-L18F7
L18F7       ASC   '        '

L18FF       LDA   L1955
            PHA
            LDA   L1953
            PHA
            PEA   ^L18F7
            PEA   L18F7
            PEA   $0008
            _Long2Hex
            JSR   L3D9D
            LDA   #$001E
            PHA
            LDA   #$005A
            PHA
            _MoveTo
            PEA   ^L18F6
            PEA   L18F6
            _DrawString
            LDA   L1949
            PHA
            LDA   L1947
            PHA
            _MoveTo
            BRA   L1957

L1947       DW    $0000
L1949       DW    $0000
L194B       DW    $0000
L194D       DW    $0008
L194F       DW    $0000
L1951       DW    $0000
L1953       DW    $0000
L1955       DW    $0000

L1957       RTS

L1958       PEA   ^L2EF4
            PEA   L2EF4
            _FrameRect
            PEA   $0000
            PEA   ^L19DA
            PEA   L19DA
            _StringWidth
            PLA
            STA   L19D8
            SEC
            LDA   #$0140
            SBC   L19D8
            LSR
            STA   L19D8
            LDA   L19D8
            PHA
            LDA   #$0037
            PHA
            _MoveTo
            PEA   ^L19DA
            PEA   L19DA
            _DrawString
            LDA   #$0000
            PHA
            _SetSolidPenPat
            LDA   #$0002
            PHA
            LDA   #$0002
            PHA
            _SetPenSize
            PEA   ^L2EFC
            PEA   L2EFC
            _FrameRect
            LDA   #$006C
            PHA
            LDA   #$0091
            PHA
            _MoveTo
            BRA   L19F7

L19D8       DW    $0000
L19DA       STR   'Please wait while loading...'

L19F7       RTS

L19F8       _TLStartUp
            PEA   $0000
            _MMStartUp
            JSR   L3D9D
            PLA
            STA   L1D79
            ORA   #$0100
            STA   L1D7B
            _MTStartUp
            PEA   $0000
            PEA   $0000
            PEA   $0000
            LDA   #$0800
            PHA
            LDA   L1D7B
            PHA
            PEA   $C005
            PEA   $0000
            PEA   $0000
            _NewHandle
            JSR   L3D9D
            PLA
            STA   $00
            PLA
            STA   $02
            LDY   #$0000
            LDA   [$00],Y
            STA   L1D7D
            LDY   #$0002
            LDA   [$00],Y
            STA   L1D7D+2
            LDA   #$0300
            JSR   L4326
            PHA
            PEA   $0000
            PEA   $0000
            LDA   L1D79
            PHA
            _QDStartUp
            JSR   L3D9D
            _PenNormal
            PEA   $0000
            _SetFontFlags
            PEA   $0000
            _SetTextMode
            JSR   L4323
            PHA
            PEA   $0001
            PEA   $0000
            PEA   $0140
            PEA   $0000
            PEA   $00C8
            LDA   L1D79
            PHA
            _EMStartUp
            JSR   L3D9D
            JSR   L4323
            PHA
            _SoundStartUp
            JSR   L3D9D
            RTS

L1ABD       _SoundShutDown
            _EMShutDown
            RTS

L1ACC       PEA   $0012
            PEA   $0000
            _LoadOneTool
            JSR   L3D9D
            JSR   L466B
            PEA   $000E
            PEA   $0000
            _LoadOneTool
            JSR   L3D9D
            JSR   L466B
            PEA   $0010
            PEA   $0000
            _LoadOneTool
            JSR   L3D9D
            JSR   L466B
            PEA   $000F
            PEA   $0000
            _LoadOneTool
            JSR   L3D9D
            JSR   L466B
            PEA   $0014
            PEA   $0000
            _LoadOneTool
            JSR   L3D9D
            JSR   L466B
            PEA   $0015
            PEA   $0000
            _LoadOneTool
            JSR   L3D9D
            JSR   L466B
            PEA   $001C
            PEA   $0000
            _LoadOneTool
            JSR   L3D9D
            JSR   L466B
            PEA   $0013
            PEA   $0000
            _LoadOneTool
            JSR   L3D9D
            JSR   L466B
            PEA   $001B
            PEA   $0000
            _LoadOneTool
            JSR   L3D9D
            JSR   L466B
            _QDAuxStartUp
            LDA   L1D79
            PHA
            _WindStartUp
            LDA   L1D79
            PHA
            JSR   L4323
            PHA
            _CtlStartUp
            JSR   L3D9D
            LDA   L1D79
            PHA
            JSR   L4323
            PHA
            _MenuStartUp

            PEA   $0000	; menu Apple
            PEA   $0000
            PEA   ^L2E06
            PEA   L2E06
            _NewMenu
            PLA
            STA   L2E1F
            PLA
            STA   L2E1F+2

            PEA   $0000	; menu Instructions
            PEA   $0000
            PEA   ^L2E23
            PEA   L2E23
            _NewMenu
            PLA
            STA   L2E4F
            PLA
            STA   L2E4F+2

            PEA   $0000	; menu Volume
            PEA   $0000
            PEA   ^L2E53
            PEA   L2E53
            _NewMenu
            PLA
            STA   L2E74
            PLA
            STA   L2E74+2

            PEA   $0000	; menu Print
            PEA   $0000
            PEA   ^L2E78
            PEA   L2E78
            _NewMenu
            PLA
            STA   L2EC0
            PLA
            STA   L2EC0+2

            PEA   $0000	; menu Quit
            PEA   $0000
            PEA   ^L2EC4
            PEA   L2EC4
            _NewMenu
            PLA
            STA   L2EE0
            PLA
            STA   L2EE0+2

*---------- NOW SHOW MENUS

            LDA   L2EE0+2	; Quit
            PHA
            LDA   L2EE0
            PHA
            PEA   $0000
            _InsertMenu

*--- LoGo 11/2022

            LDA   L2EC0+2	; Print
            PHA
            LDA   L2EC0
            PHA
            PEA   $0000
            _InsertMenu

            LDA   L2E74+2	; Volume
            PHA
            LDA   L2E74
            PHA
            PEA   $0000
            _InsertMenu

            LDA   L2E4F+2	; Instructions
            PHA
            LDA   L2E4F
            PHA
            PEA   $0000
            _InsertMenu

            LDA   L2E1F+2	; Apple menu
            PHA
            LDA   L2E1F
            PHA
            PEA   $0000
            _InsertMenu

            PEA   $0000
            _FixMenuBar
            PLA
            _DrawMenuBar
            _InitPalette
            PEA   $0000
            _SetMItemBlink
            LDA   L1D79
            PHA
            JSR   L4323
            PHA
            _LEStartUp
            JSR   L3D9D
            LDA   L1D79
            PHA
            _DialogStartUp
            _DeskStartUp
            _ListStartUp
            JSR   L3D9D
            LDA   L1D79
            PHA
            JSR   L4323
            PHA
            _FMStartUp
            JSR   L3D9D
            LDA   L1D79
            PHA
            LDA   #$0200
            JSR   L4326
            PHA
            _PMStartUp
            JSR   L3D9D
            RTS

L1CF2       _PMShutDown
            _FMShutDown
            _ListShutDown
            _DeskShutDown
            _DialogShutDown
            _LEShutDown
            _MenuShutDown
            _CtlShutDown
            _WindShutDown
            _QDAuxShutDown
            RTS

L1D39       ADRL  $00000000   ;  file name
            DW    $00C3       ;  access
L1D3F       DW    $00C1       ;  file type
L1D41       ADRL  $00000000   ;  aux type
            DW    $0001       ;  storage
            DS    4           ;  creation date
L1D4B       DW    $0000       ;  ref num
L1D4D       ADRL  $00000000   ;  path name
            ADRL  $00000000   ;  reserved
L1D55       DW    $0000       ;  ref num
L1D57       ADRL  $00000000   ;  buffer ptr
L1D5B       ADRL  $00000000   ;  request count
            ADRL  $00000000   ;  transfer count
L1D63       DW    $0000       ;  ref num
L1D65       ADRL  $00000000   ;  buffer ptr
L1D69       ADRL  $00000000   ;  request count
            ADRL  $00000000   ;  transfer count
L1D71       DW    $0000       ;  ref num
            DB    $00
            DB    $00
            DB    $00
            DB    $00
            DB    $00
            DB    $00
L1D79       DW    $0000
L1D7B       DW    $0000
L1D7D       ADRL  $00000000
L1D81       ADRL  $00000000
L1D85       ADRL  $00000000
L1D89       DB    $00
            DB    $00
            DB    $00
            DB    $00
L1D8D       DB    $00
            DB    $00
            DB    $00
            DB    $00
L1D91       DB    $00
            DB    $00
            DB    $00
            DB    $00
L1D95       DB    $00
            DB    $00
            DB    $00
            DB    $00
L1D99       DB    $00
            DB    $00
            DB    $00
            DB    $00
L1D9D       DB    $00
            DB    $00
            DB    $00
            DB    $00
L1DA1       DB    $00
            DB    $00
            DB    $00
            DB    $00
L1DA5       DB    $00
            DB    $00
            DB    $00
            DB    $00
L1DA9       DB    $00
            DB    $00
            DB    $00
            DB    $00
L1DAD       DB    $00
            DB    $00
            DB    $00
            DB    $00
L1DB1       DB    $00
            DB    $00
            DB    $00
            DB    $00
L1DB5       DB    $00
            DB    $00
            DB    $00
            DB    $00
L1DB9       DB    $00
            DB    $00
            DB    $00
            DB    $00
L1DBD       DB    $00
            DB    $00
            DB    $00
            DB    $00
L1DC1       DB    $00
            DB    $00
            DB    $00
            DB    $00
L1DC5       DB    $00
            DB    $00
            DB    $00
            DB    $00
L1DC9       DB    $00
            DB    $00
            DB    $00
            DB    $00
L1DCD       DB    $00
            DB    $00
            DB    $00
            DB    $00
L1DD1       DB    $00
            DB    $00
            DB    $00
            DB    $00
L1DD5       DB    $00
            DB    $00
            DB    $00
            DB    $00
L1DD9       DB    $00
            DB    $00
            DB    $00
            DB    $00
L1DDD       DB    $00
            DB    $00
            DB    $00
            DB    $00
L1DE1       DB    $00
            DB    $00
            DB    $00
            DB    $00
L1DE5       DB    $00
            DB    $00
            DB    $00
            DB    $00
L1DE9       DB    $00
            DB    $00
            DB    $00
            DB    $00
L1DED       DB    $00
            DB    $00
            DB    $00
            DB    $00
L1DF1       DB    $00
            DB    $00
            DB    $00
            DB    $00
L1DF5       DB    $00
            DB    $00
            DB    $00
            DB    $00
L1DF9       DB    $00
            DB    $00
            DB    $00
            DB    $00
L1DFD       DB    $00
            DB    $00
            DB    $00
            DB    $00
L1E01       DB    $00
            DB    $00
            DB    $00
            DB    $00
L1E05       DB    $00
            DB    $00
            DB    $00
            DB    $00
L1E09       DB    $00
            DB    $00
            DB    $00
            DB    $00
            DB    $00
            DB    $00
            DB    $00
            DB    $00
            DB    $00
            DB    $00
            DB    $00
            DB    $00
            DB    $00
            DB    $00
            DB    $00
            DB    $00
L1E19       DW    $0000       ; event code
L1E1B       ADRL  $00000000   ; event message
            ADRL  $00000000   ; tick count
L1E23       DW    $0000       ; mouse location
L1E25       DW    $0000
            DW    $0000       ; modifiers
L1E29       ADRL  $00000000   ; task data
            ADRL  $00001FFF   ; task mask
            DB    $00
            DB    $00
            DB    $00
            DB    $00
            DB    $00
            DB    $00
            DB    $00
            DB    $00
L1E39       DB    $00
            DB    $00
L1E3B       DB    $00
            DB    $00
L1E3D       DB    $00
            DB    $00
L1E3F       DB    $00
            DB    $00
L1E41       DB    $00
            DB    $00
L1E43       DB    $00
            DB    $00
L1E45       DB    $00
            DB    $00
            DB    $00
            DB    $00
            DB    $00
            DB    $00
            DB    $00
            DB    $00
            DB    $00
            DB    $00
            DB    $00
            DB    $00
            DB    $00
            DB    $00
            DB    $00
            DB    $00
            DB    $00
            DB    $00
            DB    $00
            DB    $00
L1E59       ADRL  $00000000
L1E5D       ADRL  $00000000
L1E61       ADRL  $00000000
L1E65       ADRL  $00000000
L1E69       ADRL  $00000000
L1E6D       DW    $0000
L1E6F       ADRL  $00000000
L1E73       DW    $0000
L1E75       DW    $0000
L1E77       DW    $0000
L1E79       DW    $0000
L1E7B       STR   '1/SOUNDS/WAVEA.VOX'
L1E8E       ADRL  L1F96
            ADRL  L1FA7
            ADRL  L1FB8
            ADRL  L1FC9
            ADRL  L1FDA
            ADRL  L1FEB
            ADRL  L1FFC
            ADRL  L200D
            ADRL  L201E
            ADRL  L202F
            ADRL  L2040
            ADRL  L2051
            ADRL  L2062
            ADRL  L2073
            ADRL  L2084
            ADRL  L2095
            ADRL  L20A6
            ADRL  L20B7
            ADRL  L20C8
            ADRL  L20D9
            ADRL  L20EA
            ADRL  L20FB
            ADRL  L210C
            ADRL  L211D
            ADRL  L212E
            ADRL  L213F
            ADRL  L2150
            ADRL  L2161
            ADRL  L2172
            ADRL  L2183
            ADRL  L2194
            ADRL  L21A5
            ADRL  L21B6
L1F12       ADRL  L1D89
            ADRL  L1D8D
            ADRL  L1D91
            ADRL  L1D95
            ADRL  L1D99
            ADRL  L1D9D
            ADRL  L1DA1
            ADRL  L1DA5
            ADRL  L1DA9
            ADRL  L1DAD
            ADRL  L1DB1
            ADRL  L1DB5
            ADRL  L1DB9
            ADRL  L1DBD
            ADRL  L1DC1
            ADRL  L1DC5
            ADRL  L1DC9
            ADRL  L1DCD
            ADRL  L1DD1
            ADRL  L1DD5
            ADRL  L1DD9
            ADRL  L1DDD
            ADRL  L1DE1
            ADRL  L1DE5
            ADRL  L1DE9
            ADRL  L1DED
            ADRL  L1DF1
            ADRL  L1DF5
            ADRL  L1DF9
            ADRL  L1DFD
            ADRL  L1E01
            ADRL  L1E05
            ADRL  L1E09
L1F96       HEX   000000000000C8000000000000000000
            HEX   FF
L1FA7       HEX   000000000000C8000000000000000000
            HEX   FF
L1FB8       HEX   000000000000C8000000000000000000
            HEX   FF
L1FC9       HEX   000000000000C8000000000000000000
            HEX   FF
L1FDA       HEX   000000000000C8000000000000000000
            HEX   FF
L1FEB       HEX   000000000000C8000000000000000000
            HEX   FF
L1FFC       HEX   000000000000C8000000000000000000
            HEX   FF
L200D       HEX   000000000000C8000000000000000000
            HEX   FF
L201E       HEX   000000000000C8000000000000000000
            HEX   FF
L202F       HEX   000000000000C8000000000000000000
            HEX   FF
L2040       HEX   000000000000C8000000000000000000
            HEX   FF
L2051       HEX   000000000000C8000000000000000000
            HEX   FF
L2062       HEX   000000000000C8000000000000000000
            HEX   FF
L2073       HEX   000000000000C8000000000000000000
            HEX   FF
L2084       HEX   000000000000C8000000000000000000
            HEX   FF
L2095       HEX   000000000000C8000000000000000000
            HEX   FF
L20A6       HEX   000000000000C8000000000000000000
            HEX   FF
L20B7       HEX   000000000000C8000000000000000000
            HEX   FF
L20C8       HEX   000000000000C8000000000000000000
            HEX   FF
L20D9       HEX   000000000000C8000000000000000000
            HEX   FF
L20EA       HEX   000000000000C8000000000000000000
            HEX   FF
L20FB       HEX   000000000000C8000000000000000000
            HEX   FF
L210C       HEX   000000000000C8000000000000000000
            HEX   FF
L211D       HEX   000000000000C8000000000000000000
            HEX   FF
L212E       HEX   000000000000C8000000000000000000
            HEX   FF
L213F       HEX   000000000000C8000000000000000000
            HEX   FF
L2150       HEX   000000000000C8000000000000000000
            HEX   FF
L2161       HEX   000000000000C8000000000000000000
            HEX   FF
L2172       HEX   000000000000C8000000000000000000
            HEX   FF
L2183       HEX   000000000000C8000000000000000000
            HEX   FF
L2194       HEX   000000000000C8000000000000000000
            HEX   FF
L21A5       HEX   000000000000C8000000000000000000
            HEX   FF
L21B6       HEX   000000000000C8000000000000000000
            HEX   FF
            HEX   000000000000C8000000000000000000
            HEX   FF
            HEX   000000000000C8000000000000000000
            HEX   FF
            HEX   000000000000C8000000000000000000
            HEX   FF

L21FA       PEA   $0000
            PEA   $0000
            _GetClipHandle
            PLA
            STA   L3288
            STA   L329E
            STA   L32B4
            STA   L32CA
            STA   L32E0
            STA   L32F6
            STA   L330C
            STA   L3322
            STA   L3338
            STA   L334E
            STA   L3364
            PLA
            STA   L3288+2
            STA   L329E+2
            STA   L32B4+2
            STA   L32CA+2
            STA   L32E0+2
            STA   L32F6+2
            STA   L330C+2
            STA   L3322+2
            STA   L3338+2
            STA   L334E+2
            STA   L3364+2
            RTS

L224C       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  L23CB       ; Ptr to item template
            ADRL  L2266       ; Ptr to item template
            ADRL  $00000000
L2266       DW    $0002       ; Item ID
            DW    $000A       ; Item rect
            DW    $000A
            DW    $0064
            DW    $010E
            DW    $8010       ; Static text
            ADRL  L227E       ; Item descriptor
            DW    L23CB-L227E ; Item value
            DW    $0000       ; Bit flag
            ADRL  $00000000   ; Ptr to color table
L227E       ASC   'Talking Dinosaurs                   '0D
            ASC   '                                    '0D
            ASC   'Programmed by Howard M. Josephson   '0D
            ASC   '  Illustrations by 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
            ASC   '                                    '0D

L23CB       DW    $0001       ; Item ID
            DW    $006E       ; Item rect
            DW    $006E
            DW    $0082
            DW    $00AA
            DW    $000A       ; Std button
            ADRL  L23E3       ; Item descriptor
            DW    $0000       ; Item value
            DW    $0000       ; Bit flag
            ADRL  $00000000   ; Ptr to color table
L23E3       STR   'OK'
L23E6       DW    $001E       ; dtBoundsRect
            DW    $0014
            DW    $00AA
            DW    $012C
            DW    $8000       ; dtVisible
            ADRL  $00000000   ; dtRefCon
            ADRL  L2434       ; itemPtr
            ADRL  L241C       ; itemPtr
            ADRL  L2404       ; itemPtr
            ADRL  $00000000   ; Terminator
L2404       DW    $0003       ; Item ID
            DW    $0046       ; Item rect
            DW    $0037
            DW    $005A
            DW    $0073
            DW    $000A       ; Std button
            ADRL  L244C       ; Item descriptor
            DW    $0000       ; Item value
            DW    $0000       ; Bit flag
            ADRL  $00000000   ; Ptr to color table
L241C       DW    $0005       ; Item ID
            DW    $0046       ; Item rect
            DW    $00A5
            DW    $005A
            DW    $00E1
            DW    $000A       ; Std button
            ADRL  L2451       ; Item descriptor
            DW    $0000       ; Item value
            DW    $0000       ; Bit flag
            ADRL  $00000000   ; Ptr to color table
L2434       DW    $0001       ; Item ID
            DW    $006E       ; Item rect
            DW    $006E
            DW    $0082
            DW    $00AA
            DW    $000A       ; Std button
            ADRL  L2454       ; Item descriptor
            DW    $0000       ; Item value
            DW    $0000       ; Bit flag
            ADRL  $00000000   ; Ptr to color table
L244C       STR   'DOWN'
L2451       STR   'UP'
L2454       STR   'OK'
L2457       ADRL  $00000000

L245B       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  L2DEB       ; Ptr to item template
            ADRL  L2475       ; Ptr to item template
            ADRL  $00000000
L2475       DW    $0002       ; Item ID
            DW    $000A       ; Item rect
            DW    $000A
            DW    $0064
            DW    $010E
            DW    $8010       ; Static text
            ADRL  L248D       ; Item descriptor
            DW    L2546-L248D ; Item value
            DW    $0000       ; Bit flag
            ADRL  $00000000   ; Ptr to color table
L248D       ASC   '   Click the mouse on the Roman     '0D
            ASC   'numeral next to the section you wish'0D
            ASC   'to study.  You may also click on the'0D
            ASC   'description of the section as well. '0D
            ASC   '                                    '0D

L2546       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  L2DEB       ; Ptr to item template
            ADRL  L2560       ; Ptr to item template
            ADRL  $00000000
L2560       DW    $0002       ; Item ID
            DW    $000A       ; Item rect
            DW    $000A
            DW    $0064
            DW    $010E
            DW    $8010       ; Static text
            ADRL  L2578       ; Item descriptor
            DW    L260C-L2578 ; Item value
            DW    $0000       ; Bit flag
            ADRL  $00000000   ; Ptr to color table
L2578       ASC   '   In this section, the student     '0D
            ASC   'clicks the mouse on a dinosaur to   '0D
            ASC   'hear its name.                      '0D
            ASC   '                                    '0D

L260C       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  L2DEB       ; Ptr to item template
            ADRL  L2626       ; Ptr to item template
            ADRL  $00000000
L2626       DW    $0002       ; Item ID
            DW    $000A       ; Item rect
            DW    $000A
            DW    $0064
            DW    $010E
            DW    $8010       ; Static text
            ADRL  L263E       ; Item descriptor
            DW    L278B-L263E ; Item value
            DW    $0000       ; Bit flag
            ADRL  $00000000   ; Ptr to color table
L263E       ASC   '   There are 5 hidden dinosaurs on  '0D
            ASC   'this screen.  When students click   '0D
            ASC   'the mouse on a dinosaur, they will  '0D
            ASC   'hear the name of the dinosaur.  If  '0D
            ASC   'they click on something that is not '0D
            ASC   'a dinosaur, they will hear "Please  '0D
            ASC   'try again."  After they have clicked'0D
            ASC   'on all 5 dinosaurs, the program     '0D
            ASC   'returns to the Main Menu.           '0D

L278B       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  L2DEB       ; Ptr to item template
            ADRL  L27A5       ; Ptr to item template
            ADRL  $00000000
L27A5       DW    $0002       ; Item ID
            DW    $000A       ; Item rect
            DW    $000A
            DW    $0064
            DW    $010E
            DW    $8010       ; Static text
            ADRL  L27BD       ; Item descriptor
            DW    L290A-L27BD ; Item value
            DW    $0000       ; Bit flag
            ADRL  $00000000   ; Ptr to color table
L27BD       ASC   '   The student is to count the bones'0D
            ASC   'of the color requested, then click  '0D
            ASC   'the mouse on the box with the       '0D
            ASC   'corresponding number.  When the     '0D
            ASC   'student has counted all 10 color    '0D
            ASC   'groups correctly, the program will  '0D
            ASC   'return to the Main Menu.  The       '0D
            ASC   'student may click the mouse on      '0D
            ASC   '"REPEAT" to hear the question again.'0D

L290A       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  L2DEB       ; Ptr to item template
            ADRL  L2924       ; Ptr to item template
            ADRL  $00000000
L2924       DW    $0002       ; Item ID
            DW    $000A       ; Item rect
            DW    $000A
            DW    $0064
            DW    $010E
            DW    $8010       ; Static text
            ADRL  L293C       ; Item descriptor
            DW    L2A1A-L293C ; Item value
            DW    $0000       ; Bit flag
            ADRL  $00000000   ; Ptr to color table
L293C       ASC   '   As each row is highlighted, the  '0D
            ASC   'student is to click on the dinosaur '0D
            ASC   'in that group of three.  The program'0D
            ASC   'advances to the Main Menu after 3   '0D
            ASC   'correct answers.                    '0D
            ASC   '                                    '0D

L2A1A       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  L2DEB       ; Ptr to item template
            ADRL  L2A34       ; Ptr to item template
            ADRL  $00000000
L2A34       DW    $0002       ; Item ID
            DW    $000A       ; Item rect
            DW    $000A
            DW    $0064
            DW    $010E
            DW    $8010       ; Static text
            ADRL  L2A4C       ; Item descriptor
            DW    L2B05-L2A4C ; Item value
            DW    $0000       ; Bit flag
            ADRL  $00000000   ; Ptr to color table
L2A4C       ASC   '   Select a dinosaur picture for the'0D
            ASC   'coloring book section by clicking   '0D
            ASC   'the mouse on 1 of the 4 dinosaur    '0D
            ASC   'pictures.                           '0D
            ASC   '                                    '0D

L2B05       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  L2DEB       ; Ptr to item template
            ADRL  L2B1F       ; Ptr to item template
            ADRL  $00000000
L2B1F       DW    $0002       ; Item ID
            DW    $000A       ; Item rect
            DW    $000A
            DW    $0064
            DW    $010E
            DW    $8010       ; Static text
            ADRL  L2B37       ; Item descriptor
            DW    L2C15-L2B37 ; Item value
            DW    $0000       ; Bit flag
            ADRL  $00000000   ; Ptr to color table
L2B37       ASC   '   Click the mouse on a crayon to   '0D
            ASC   'select a color for drawing.  Click  '0D
            ASC   'the mouse on an enclosed region of  '0D
            ASC   'the dinosaur to fill that region    '0D
            ASC   'with the current drawing color.     '0D
            ASC   '                                    '0D

L2C15       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  L2DEB       ; Ptr to item template
            ADRL  L2C2F       ; Ptr to item template
            ADRL  $00000000
L2C2F       DW    $0002       ; Item ID
            DW    $000A       ; Item rect
            DW    $000A
            DW    $0064
            DW    $010E
            DW    $8010       ; Static text
            ADRL  L2C47       ; Item descriptor
            DW    L2D00-L2C47 ; Item value
            DW    $0000       ; Bit flag
            ADRL  $00000000   ; Ptr to color table
L2C47       ASC   '   Select a dinosaur picture for the'0D
            ASC   'printing section by clicking the    '0D
            ASC   'mouse on 1 of the 4 dinosaur        '0D
            ASC   'pictures.                           '0D
            ASC   '                                    '0D

L2D00       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  L2DEB       ; Ptr to item template
            ADRL  L2D1A       ; Ptr to item template
            ADRL  $00000000
L2D1A       DW    $0002       ; Item ID
            DW    $000A       ; Item rect
            DW    $000A
            DW    $0064
            DW    $010E
            DW    $8010       ; Static text
            ADRL  L2D32       ; Item descriptor
            DW    L2DEB-L2D32 ; Item value
            DW    $0000       ; Bit flag
            ADRL  $00000000   ; Ptr to color table
L2D32       ASC   '   The dinosaur that appears on the '0D
            ASC   'screen will be printed when a       '0D
            ASC   'printer and print style are chosen  '0D
            ASC   'and the "PRINT" item is requested.  '0D
            ASC   '                                    '0D

L2DEB       DW    $0001       ; Item ID
            DW    $006E       ; Item rect
            DW    $006E
            DW    $0082
            DW    $00AA
            DW    $000A       ; Std button
            ADRL  L2E03       ; Item descriptor
            DW    $0000       ; Item value
            DW    $0000       ; Bit flag
            ADRL  $00000000   ; Ptr to color table
L2E03       STR   'OK'

L2E06       ASC   '>>@\N1X'00
            ASC   '--ABOUT\N256*Aa'00
            ASC   '.'
L2E1F       ADRL  $00000000

L2E23       ASC   '>> Instructions \N2'00
            ASC   '--INSTRUCTIONS\N257*Ii'00
            ASC   '.'
L2E4F       ADRL  $00000000

L2E53       ASC   '>> Volume \N3X'00
            ASC   '--VOLUME\N258*Vv'00
            ASC   '.'
L2E74       ADRL  $00000000

L2E78       ASC   '>> Print \N4'00
            ASC   '--CHOOSE PRINTER \N259'00
            ASC   '--CHOOSE STYLE \N260'00
            ASC   '--PRINT \N261'00
            ASC   '.'
L2EC0       ADRL  $00000000

L2EC4       ASC   '>> Quit \N5'00
            ASC   '--QUIT\N262*Qq'00
            ASC   '.'

L2EE0       ADRL  $00000000
L2EE4       ADRL  $00000000
L2EE8       ADRL  $00000000
L2EEC       ADRL  $00E12000
L2EF0       ADRL  $00008000

L2EF4       DW    $0000
            DW    $0000
            DW    $0000
            DW    $0000
L2EFC       DW    $0000
            DW    $0000
            DW    $0000
            DW    $0000
L2F04       DW    $0000
            DW    $0000
            DW    $0000
            DW    $0000
L2F0C       ADRL  L2F24
            ADRL  L2F2C
            ADRL  L2F34
            ADRL  L2F3C
            ADRL  L2F44
            ADRL  L2F4C
L2F24       DW    $0000
            DW    $0000
            DW    $0000
            DW    $0000
L2F2C       DW    $0000
            DW    $0000
            DW    $0000
            DW    $0000
L2F34       DW    $0000
            DW    $0000
            DW    $0000
            DW    $0000
L2F3C       DW    $0000
            DW    $0000
            DW    $0000
            DW    $0000
L2F44       DW    $0000
            DW    $0000
            DW    $0000
            DW    $0000
L2F4C       DW    $0000
            DW    $0000
            DW    $0000
            DW    $0000
L2F54       ADRL  L2F6C
            ADRL  L2F74
            ADRL  L2F7C
            ADRL  L2F84
            ADRL  L2F8C
            ADRL  L2F94
L2F6C       DW    $0000
            DW    $0000
            DW    $0000
            DW    $0000
L2F74       DW    $0000
            DW    $0000
            DW    $0000
            DW    $0000
L2F7C       DW    $0000
            DW    $0000
            DW    $0000
            DW    $0000
L2F84       DW    $0000
            DW    $0000
            DW    $0000
            DW    $0000
L2F8C       DW    $0000
            DW    $0000
            DW    $0000
            DW    $0000
L2F94       DW    $0000
            DW    $0000
            DW    $0000
            DW    $0000
L2F9C       DW    $0053
            DW    $0051
            DW    $0052
            DW    $004F
            DW    $004E
            DW    $0050
L2FA8       ADRL  L2FBC
            ADRL  L2FC0
            ADRL  L2FC4
            ADRL  L2FC8
            ADRL  L2FCC
L2FBC       DW    $0000
L2FBE       DW    $0000
L2FC0       DW    $0000
L2FC2       DW    $0000
L2FC4       DW    $0000
L2FC6       DW    $0000
L2FC8       DW    $0000
L2FCA       DW    $0000
L2FCC       DW    $0000
L2FCE       DW    $0000
L2FD0       DW    $004F
            DW    $0053
            DW    $0052
            DW    $0051
            DW    $0050
L2FDA       ADRL  L3002
            ADRL  L300A
            ADRL  L3012
            ADRL  L301A
            ADRL  L3022
            ADRL  L302A
            ADRL  L3032
            ADRL  L303A
            ADRL  L3042
            ADRL  L304A
L3002       DW    $0000
            DW    $0000
            DW    $0000
            DW    $0000
L300A       DW    $0000
            DW    $0000
            DW    $0000
            DW    $0000
L3012       DW    $0000
            DW    $0000
            DW    $0000
            DW    $0000
L301A       DW    $0000
            DW    $0000
            DW    $0000
            DW    $0000
L3022       DW    $0000
            DW    $0000
            DW    $0000
            DW    $0000
L302A       DW    $0000
            DW    $0000
            DW    $0000
            DW    $0000
L3032       DW    $0000
            DW    $0000
            DW    $0000
            DW    $0000
L303A       DW    $0000
            DW    $0000
            DW    $0000
            DW    $0000
L3042       DW    $0000
            DW    $0000
            DW    $0000
            DW    $0000
L304A       DW    $0000
            DW    $0000
            DW    $0000
            DW    $0000
L3052       DW    $0030
            DW    $0031
            DW    $0032
            DW    $0033
            DW    $0034
            DW    $0035
            DW    $0036
            DW    $0037
            DW    $0038
            DW    $0039
L3066       DW    $000A
            DW    $0001
            DW    $0002
            DW    $0003
            DW    $0004
            DW    $0005
            DW    $0006
            DW    $0007
            DW    $0008
            DW    $0009
L307A       ADRL  L3086
            ADRL  L308E
            ADRL  L3096
L3086       DW    $0000
            DW    $0000
            DW    $0000
            DW    $0000
L308E       DW    $0000
            DW    $0000
            DW    $0000
            DW    $0000
L3096       DW    $0000
            DW    $0000
            DW    $0000
            DW    $0000
L309E       ADRL  L30AA
            ADRL  L30B2
            ADRL  L30BA
L30AA       DW    $0000
            DW    $0000
            DW    $0000
            DW    $0000
L30B2       DW    $0000
            DW    $0000
            DW    $0000
            DW    $0000
L30BA       DW    $0000
            DW    $0000
            DW    $0000
            DW    $0000
L30C2       ADRL  L30D2
            ADRL  L30DA
            ADRL  L30E2
            ADRL  L30EA
L30D2       DW    $0000
            DW    $0000
            DW    $0000
            DW    $0000
L30DA       DW    $0000
            DW    $0000
            DW    $0000
            DW    $0000
L30E2       DW    $0000
            DW    $0000
            DW    $0000
            DW    $0000
L30EA       DW    $0000
            DW    $0000
            DW    $0000
            DW    $0000
L30F2       ADRL  L3106
            ADRL  L310E
            ADRL  L3116
            ADRL  L311E
            ADRL  L3126
L3106       DW    $0000
            DW    $0000
            DW    $0000
            DW    $0000
L310E       DW    $0000
            DW    $0000
            DW    $0000
            DW    $0000
L3116       DW    $0000
            DW    $0000
            DW    $0000
            DW    $0000
L311E       DW    $0000
            DW    $0000
            DW    $0000
            DW    $0000
L3126       DW    $0000
            DW    $0000
            DW    $0000
            DW    $0000
L312E       DW    $0000
            DW    $0000
            DW    $0000
            DW    $0000
L3136       DW    $0000
            DW    $0000
            DW    $0000
            DW    $0000
L313E       DW    $0000
            DW    $0000
            DW    $0000
            DW    $0000
L3146       DW    $0000
            DW    $0000
            DW    $0000
            DW    $0000
L314E       DW    $0000
            DW    $0000
            DW    $0000
            DW    $0000
L3156       DW    $0000
            DW    $0000
            DW    $0000
            DW    $0000
L315E       DW    $0000
            DW    $0000
            DW    $0000
            DW    $0000
L3166       ADRL  L31A6
            ADRL  L31AE
            ADRL  L31B6
            ADRL  L31BE
            ADRL  L31C6
            ADRL  L31CE
            ADRL  L31D6
            ADRL  L31DE
            ADRL  L31E6
            ADRL  L31EE
            ADRL  L31F6
            ADRL  L31FE
            ADRL  L3206
            ADRL  L320E
            ADRL  L3216
            ADRL  L321E
L31A6       DW    $0000
            DW    $0000
            DW    $0000
            DW    $0000
L31AE       DW    $0000
            DW    $0000
            DW    $0000
            DW    $0000
L31B6       DW    $0000
            DW    $0000
            DW    $0000
            DW    $0000
L31BE       DW    $0000
            DW    $0000
            DW    $0000
            DW    $0000
L31C6       DW    $0000
            DW    $0000
            DW    $0000
            DW    $0000
L31CE       DW    $0000
            DW    $0000
            DW    $0000
            DW    $0000
L31D6       DW    $0000
            DW    $0000
            DW    $0000
            DW    $0000
L31DE       DW    $0000
            DW    $0000
            DW    $0000
            DW    $0000
L31E6       DW    $0000
            DW    $0000
            DW    $0000
            DW    $0000
L31EE       DW    $0000
            DW    $0000
            DW    $0000
            DW    $0000
L31F6       DW    $0000
            DW    $0000
            DW    $0000
            DW    $0000
L31FE       DW    $0000
            DW    $0000
            DW    $0000
            DW    $0000
L3206       DW    $0000
            DW    $0000
            DW    $0000
            DW    $0000
L320E       DW    $0000
            DW    $0000
            DW    $0000
            DW    $0000
L3216       DW    $0000
            DW    $0000
            DW    $0000
            DW    $0000
L321E       DW    $0000
            DW    $0000
            DW    $0000
            DW    $0000
L3226       ADRL  $00000000
L322A       DW    $0000       ; SCB byte
L322C       ADRL  $00000000   ; Pointer to pixel image
            DW    $00A0       ; Width
            DW    $0000       ; Bounds rect
            DW    $0000
            DW    $00C8
            DW    $0140
L323A       DW    $0000       ; SCB byte
            ADRL  $00E12000   ; Pointer to pixel image
            DW    $00A0       ; Width
            DW    $0000       ; Bounds rect
            DW    $0000
            DW    $00C8
            DW    $0140
L324A       DW    $0000       ; SCB byte
L324C       ADRL  $00000000   ; Pointer to pixel image
            DW    $00A0       ; Width
            DW    $0000       ; Bounds rect
            DW    $0000
            DW    $00C8
            DW    $0140
L325A       DW    $0000       ; SCB byte
L325C       ADRL  $00000000   ; Pointer to pixel image
L3260       DW    $0010       ; Width
L3262       DW    $0000       ; Bounds rect
L3264       DW    $0000
L3266       DW    $0000
L3268       DW    $0000
L326A       DW    $0000
L326C       DW    $0000
L326E       DW    $0000
L3270       DW    $0000
L3272       DW    $0000
            DW    $0000
L3276       ADRL  L323A       ; ptr to source locinfo
            ADRL  L322A       ; ptr to dest locinfo
            ADRL  L3156       ; ptr to source rect
            ADRL  L3156       ; ptr to dest point
            DW    $0000       ; mode
L3288       ADRL  $00000000   ; clip rgn handle
L328C       ADRL  L322A       ; ptr to source locinfo
            ADRL  L323A       ; ptr to dest locinfo
            ADRL  L3156       ; ptr to source rect
            ADRL  L3156       ; ptr to dest point
            DW    $0000       ; mode
L329E       ADRL  $00000000   ; clip rgn handle
L32A2       ADRL  L323A       ; ptr to source locinfo
            ADRL  L322A       ; ptr to dest locinfo
            ADRL  L313E       ; ptr to source rect
            ADRL  L313E       ; ptr to dest point
            DW    $0000       ; mode
L32B4       ADRL  $00000000   ; clip rgn handle
L32B8       ADRL  L322A       ; ptr to source locinfo
            ADRL  L323A       ; ptr to dest locinfo
            ADRL  L313E       ; ptr to source rect
            ADRL  L313E       ; ptr to dest point
            DW    $0000       ; mode
L32CA       ADRL  $00000000   ; clip rgn handle
L32CE       ADRL  L323A       ; ptr to source locinfo
            ADRL  L322A       ; ptr to dest locinfo
            ADRL  L3146       ; ptr to source rect
            ADRL  L3146       ; ptr to dest point
            DW    $0000       ; mode
L32E0       ADRL  $00000000   ; clip rgn handle
L32E4       ADRL  L322A       ; ptr to source locinfo
            ADRL  L323A       ; ptr to dest locinfo
            ADRL  L3146       ; ptr to source rect
            ADRL  L3146       ; ptr to dest point
            DW    $0000       ; mode
L32F6       ADRL  $00000000   ; clip rgn handle
L32FA       ADRL  L323A       ; ptr to source locinfo
            ADRL  L322A       ; ptr to dest locinfo
            ADRL  L314E       ; ptr to source rect
            ADRL  L314E       ; ptr to dest point
            DW    $0000       ; mode
L330C       ADRL  $00000000   ; clip rgn handle
L3310       ADRL  L322A       ; ptr to source locinfo
            ADRL  L323A       ; ptr to dest locinfo
            ADRL  L314E       ; ptr to source rect
            ADRL  L314E       ; ptr to dest point
            DW    $0000       ; mode
L3322       ADRL  $00000000   ; clip rgn handle
L3326       ADRL  L325A       ; ptr to source locinfo
            ADRL  L323A       ; ptr to dest locinfo
            ADRL  L326A       ; ptr to source rect
            ADRL  L3272       ; ptr to dest point
            DW    $0000       ; mode
L3338       ADRL  $00000000   ; clip rgn handle
L333C       ADRL  L323A       ; ptr to source locinfo
            ADRL  L322A       ; ptr to dest locinfo
            ADRL  L315E       ; ptr to source rect
            ADRL  L315E       ; ptr to dest point
            DW    $0000       ; mode
L334E       ADRL  $00000000   ; clip rgn handle
L3352       ADRL  L322A       ; ptr to source locinfo
            ADRL  L323A       ; ptr to dest locinfo
            ADRL  L315E       ; ptr to source rect
            ADRL  L315E       ; ptr to dest point
            DW    $0000       ; mode
L3364       ADRL  $00000000   ; clip rgn handle
            MX    %00
L3368       PEA   ^L2EF4
            PEA   L2EF4
            PEA   $0014
            PEA   $001E
            PEA   $012C
            PEA   $00AA
            _SetRect
            PEA   ^L2EFC
            PEA   L2EFC
            PEA   $006A
            PEA   $008F
            PEA   $00D7
            PEA   $009D
            _SetRect
            PEA   ^L3156
            PEA   L3156
            PEA   $000C
            PEA   $0019
            PEA   $0134
            PEA   $00AF
            _SetRect
            PEA   ^L313E
            PEA   L313E
            PEA   $0002
            PEA   $000F
            PEA   $013E
            PEA   $009B
            _SetRect
            PEA   ^L3146
            PEA   L3146
            PEA   $0002
            PEA   $000F
            PEA   $013E
            PEA   $00AA
            _SetRect
            PEA   ^L314E
            PEA   L314E
            PEA   $0002
            PEA   $000F
            PEA   $013E
            PEA   $00AA
            _SetRect
            PEA   ^L312E
            PEA   L312E
            PEA   $0000
            PEA   $0000
            PEA   $0140
            PEA   $00C8
            _SetRect
            PEA   ^L315E
            PEA   L315E
            PEA   $00D2
            PEA   $001F
            PEA   $00DD
            PEA   $002A
            _SetRect
            PEA   ^L31A6
            PEA   L31A6
            PEA   $0038
            PEA   $0046
            PEA   $0044
            PEA   $0052
            _SetRect
            PEA   ^L31AE
            PEA   L31AE
            PEA   $0045
            PEA   $0046
            PEA   $0051
            PEA   $0052
            _SetRect
            PEA   ^L31B6
            PEA   L31B6
            PEA   $0052
            PEA   $0046
            PEA   $005E
            PEA   $0052
            _SetRect
            PEA   ^L31BE
            PEA   L31BE
            PEA   $005F
            PEA   $0046
            PEA   $006B
            PEA   $0052
            _SetRect
            PEA   ^L31C6
            PEA   L31C6
            PEA   $006C
            PEA   $0046
            PEA   $0078
            PEA   $0052
            _SetRect
            PEA   ^L31CE
            PEA   L31CE
            PEA   $0079
            PEA   $0046
            PEA   $0085
            PEA   $0052
            _SetRect
            PEA   ^L31D6
            PEA   L31D6
            PEA   $0086
            PEA   $0046
            PEA   $0092
            PEA   $0052
            _SetRect
            PEA   ^L31DE
            PEA   L31DE
            PEA   $0093
            PEA   $0046
            PEA   $009F
            PEA   $0052
            _SetRect
            PEA   ^L31E6
            PEA   L31E6
            PEA   $00A0
            PEA   $0046
            PEA   $00AC
            PEA   $0052
            _SetRect
            PEA   ^L31EE
            PEA   L31EE
            PEA   $00AD
            PEA   $0046
            PEA   $00B9
            PEA   $0052
            _SetRect
            PEA   ^L31F6
            PEA   L31F6
            PEA   $00BA
            PEA   $0046
            PEA   $00C6
            PEA   $0052
            _SetRect
            PEA   ^L31FE
            PEA   L31FE
            PEA   $00C7
            PEA   $0046
            PEA   $00D3
            PEA   $0052
            _SetRect
            PEA   ^L3206
            PEA   L3206
            PEA   $00D4
            PEA   $0046
            PEA   $00E0
            PEA   $0052
            _SetRect
            PEA   ^L320E
            PEA   L320E
            PEA   $00E1
            PEA   $0046
            PEA   $00ED
            PEA   $0052
            _SetRect
            PEA   ^L3216
            PEA   L3216
            PEA   $00EE
            PEA   $0046
            PEA   $00FA
            PEA   $0052
            _SetRect
            PEA   ^L321E
            PEA   L321E
            PEA   $00FB
            PEA   $0046
            PEA   $0107
            PEA   $0052
            _SetRect
            PEA   ^L3136
            PEA   L3136
            PEA   $0037
            PEA   $0045
            PEA   $0108
            PEA   $0053
            _SetRect
            PEA   ^L2F24
            PEA   L2F24
            PEA   $0024
            PEA   $0032
            PEA   $00B3
            PEA   $0041
            _SetRect
            PEA   ^L2F2C
            PEA   L2F2C
            PEA   $0024
            PEA   $0046
            PEA   $00B3
            PEA   $0061
            _SetRect
            PEA   ^L2F34
            PEA   L2F34
            PEA   $0024
            PEA   $0066
            PEA   $00B3
            PEA   $0076
            _SetRect
            PEA   ^L2F3C
            PEA   L2F3C
            PEA   $0024
            PEA   $007B
            PEA   $00AA
            PEA   $0094
            _SetRect
            PEA   ^L2F44
            PEA   L2F44
            PEA   $0024
            PEA   $009B
            PEA   $00B3
            PEA   $00A9
            _SetRect
            PEA   ^L2F4C
            PEA   L2F4C
            PEA   $0024
            PEA   $00B0
            PEA   $00B3
            PEA   $00BF
            _SetRect
            PEA   ^L2F6C
            PEA   L2F6C
            PEA   $0001
            PEA   $000D
            PEA   $0068
            PEA   $0057
            _SetRect
            PEA   ^L2F74
            PEA   L2F74
            PEA   $0001
            PEA   $0068
            PEA   $0068
            PEA   $00B9
            _SetRect
            PEA   ^L2F7C
            PEA   L2F7C
            PEA   $006D
            PEA   $000D
            PEA   $00D4
            PEA   $0057
            _SetRect
            PEA   ^L2F84
            PEA   L2F84
            PEA   $006D
            PEA   $0068
            PEA   $00D4
            PEA   $00B9
            _SetRect
            PEA   ^L2F8C
            PEA   L2F8C
            PEA   $00D9
            PEA   $000D
            PEA   $0140
            PEA   $0057
            _SetRect
            PEA   ^L2F94
            PEA   L2F94
            PEA   $00D9
            PEA   $0068
            PEA   $0140
            PEA   $00B9
            _SetRect
            PEA   $0000
            PEA   $0000
            _NewRgn
            JSR   L3D9D
            PLA
            STA   L2FBC
            PLA
            STA   L2FBE
            _OpenRgn
            JSR   L3D9D
            LDA   #$0046
            PHA
            LDA   #$003B
            PHA
            _MoveTo
            LDA   #$0046
            PHA
            LDA   #$0076
            PHA
            _LineTo
            JSR   L3D9D
            LDA   #$0079
            PHA
            LDA   #$007E
            PHA
            _LineTo
            JSR   L3D9D
            LDA   #$007C
            PHA
            LDA   #$0078
            PHA
            _LineTo
            JSR   L3D9D
            LDA   #$0099
            PHA
            LDA   #$007E
            PHA
            _LineTo
            JSR   L3D9D
            LDA   #$009D
            PHA
            LDA   #$0078
            PHA
            _LineTo
            JSR   L3D9D
            LDA   #$0077
            PHA
            LDA   #$006F
            PHA
            _LineTo
            JSR   L3D9D
            LDA   #$006F
            PHA
            LDA   #$0061
            PHA
            _LineTo
            JSR   L3D9D
            LDA   #$005C
            PHA
            LDA   #$005B
            PHA
            _LineTo
            JSR   L3D9D
            LDA   #$0054
            PHA
            LDA   #$003B
            PHA
            _LineTo
            JSR   L3D9D
            LDA   #$0046
            PHA
            LDA   #$003B
            PHA
            _LineTo
            JSR   L3D9D
            LDA   L2FBE
            PHA
            LDA   L2FBC
            PHA
            _CloseRgn
            JSR   L3D9D
            PEA   $0000
            PEA   $0000
            _NewRgn
            JSR   L3D9D
            PLA
            STA   L2FC0
            PLA
            STA   L2FC2
            _OpenRgn
            JSR   L3D9D
            LDA   #$000F
            PHA
            LDA   #$0045
            PHA
            _MoveTo
            LDA   #$0026
            PHA
            LDA   #$005E
            PHA
            _LineTo
            JSR   L3D9D
            LDA   #$0018
            PHA
            LDA   #$006C
            PHA
            _LineTo
            JSR   L3D9D
            LDA   #$002A
            PHA
            LDA   #$007A
            PHA
            _LineTo
            JSR   L3D9D
            LDA   #$0013
            PHA
            LDA   #$0081
            PHA
            _LineTo
            JSR   L3D9D
            LDA   #$001E
            PHA
            LDA   #$008E
            PHA
            _LineTo
            JSR   L3D9D
            LDA   #$000B
            PHA
            LDA   #$0090
            PHA
            _LineTo
            JSR   L3D9D
            LDA   #$0005
            PHA
            LDA   #$0086
            PHA
            _LineTo
            JSR   L3D9D
            LDA   #$0000
            PHA
            LDA   #$0086
            PHA
            _LineTo
            JSR   L3D9D
            LDA   #$0000
            PHA
            LDA   #$0051
            PHA
            _LineTo
            JSR   L3D9D
            LDA   #$000F
            PHA
            LDA   #$0045
            PHA
            _LineTo
            JSR   L3D9D
            LDA   L2FC2
            PHA
            LDA   L2FC0
            PHA
            _CloseRgn
            JSR   L3D9D
            PEA   $0000
            PEA   $0000
            _NewRgn
            JSR   L3D9D
            PLA
            STA   L2FC4
            PLA
            STA   L2FC6
            _OpenRgn
            JSR   L3D9D
            LDA   #$0001
            PHA
            LDA   #$009A
            PHA
            _MoveTo
            LDA   #$0001
            PHA
            LDA   #$00B0
            PHA
            _LineTo
            JSR   L3D9D
            LDA   #$001C
            PHA
            LDA   #$00BC
            PHA
            _LineTo
            JSR   L3D9D
            LDA   #$0029
            PHA
            LDA   #$00B2
            PHA
            _LineTo
            JSR   L3D9D
            LDA   #$0046
            PHA
            LDA   #$00B2
            PHA
            _LineTo
            JSR   L3D9D
            LDA   #$0046
            PHA
            LDA   #$0099
            PHA
            _LineTo
            JSR   L3D9D
            LDA   #$0028
            PHA
            LDA   #$0091
            PHA
            _LineTo
            JSR   L3D9D
            LDA   #$0001
            PHA
            LDA   #$009A
            PHA
            _LineTo
            JSR   L3D9D
            LDA   L2FC6
            PHA
            LDA   L2FC4
            PHA
            _CloseRgn
            JSR   L3D9D
            PEA   $0000
            PEA   $0000
            _NewRgn
            JSR   L3D9D
            PLA
            STA   L2FC8
            PLA
            STA   L2FCA
            _OpenRgn
            JSR   L3D9D
            LDA   #$00A9
            PHA
            LDA   #$00AB
            PHA
            _MoveTo
            LDA   #$00AA
            PHA
            LDA   #$00C8
            PHA
            _LineTo
            JSR   L3D9D
            LDA   #$013E
            PHA
            LDA   #$00C8
            PHA
            _LineTo
            JSR   L3D9D
            LDA   #$013E
            PHA
            LDA   #$0079
            PHA
            _LineTo
            JSR   L3D9D
            LDA   #$0115
            PHA
            LDA   #$006C
            PHA
            _LineTo
            JSR   L3D9D
            LDA   #$00D5
            PHA
            LDA   #$007D
            PHA
            _LineTo
            JSR   L3D9D
            LDA   #$00A9
            PHA
            LDA   #$00AB
            PHA
            _LineTo
            JSR   L3D9D
            LDA   L2FCA
            PHA
            LDA   L2FC8
            PHA
            _CloseRgn
            JSR   L3D9D
            PEA   $0000
            PEA   $0000
            _NewRgn
            JSR   L3D9D
            PLA
            STA   L2FCC
            PLA
            STA   L2FCE
            _OpenRgn
            JSR   L3D9D
            LDA   #$0101
            PHA
            LDA   #$000D
            PHA
            _MoveTo
            LDA   #$0135
            PHA
            LDA   #$000D
            PHA
            _LineTo
            JSR   L3D9D
            LDA   #$012B
            PHA
            LDA   #$0028
            PHA
            _LineTo
            JSR   L3D9D
            LDA   #$013A
            PHA
            LDA   #$0036
            PHA
            _LineTo
            JSR   L3D9D
            LDA   #$012E
            PHA
            LDA   #$003C
            PHA
            _LineTo
            JSR   L3D9D
            LDA   #$0102
            PHA
            LDA   #$0023
            PHA
            _LineTo
            JSR   L3D9D
            LDA   #$0101
            PHA
            LDA   #$000D
            PHA
            _LineTo
            JSR   L3D9D
            LDA   L2FCE
            PHA
            LDA   L2FCC
            PHA
            _CloseRgn
            JSR   L3D9D
            PEA   ^L3002
            PEA   L3002
            PEA   $0005
            PEA   $000E
            PEA   $0022
            PEA   $002B
            _SetRect
            PEA   ^L300A
            PEA   L300A
            PEA   $0024
            PEA   $000E
            PEA   $0041
            PEA   $002B
            _SetRect
            PEA   ^L3012
            PEA   L3012
            PEA   $0043
            PEA   $000E
            PEA   $0060
            PEA   $002B
            _SetRect
            PEA   ^L301A
            PEA   L301A
            PEA   $0062
            PEA   $000E
            PEA   $007F
            PEA   $002B
            _SetRect
            PEA   ^L3022
            PEA   L3022
            PEA   $0081
            PEA   $000E
            PEA   $009E
            PEA   $002B
            _SetRect
            PEA   ^L302A
            PEA   L302A
            PEA   $00A0
            PEA   $000E
            PEA   $00BD
            PEA   $002B
            _SetRect
            PEA   ^L3032
            PEA   L3032
            PEA   $00BF
            PEA   $000E
            PEA   $00DC
            PEA   $002B
            _SetRect
            PEA   ^L303A
            PEA   L303A
            PEA   $00DE
            PEA   $000E
            PEA   $00FB
            PEA   $002B
            _SetRect
            PEA   ^L3042
            PEA   L3042
            PEA   $00FD
            PEA   $000E
            PEA   $011A
            PEA   $002B
            _SetRect
            PEA   ^L304A
            PEA   L304A
            PEA   $011C
            PEA   $000E
            PEA   $0139
            PEA   $002B
            _SetRect
            PEA   ^L2F04
            PEA   L2F04
            PEA   $00F6
            PEA   $002D
            PEA   $0139
            PEA   $003E
            _SetRect
            PEA   ^L3086
            PEA   L3086
            PEA   $0000
            PEA   $000D
            PEA   $0140
            PEA   $004C
            _SetRect
            PEA   ^L308E
            PEA   L308E
            PEA   $0000
            PEA   $004C
            PEA   $0140
            PEA   $008A
            _SetRect
            PEA   ^L3096
            PEA   L3096
            PEA   $0000
            PEA   $008A
            PEA   $0140
            PEA   $00C8
            _SetRect
            PEA   ^L30AA
            PEA   L30AA
            PEA   $007F
            PEA   $000D
            PEA   $00C5
            PEA   $004B
            _SetRect
            PEA   ^L30B2
            PEA   L30B2
            PEA   $0004
            PEA   $0052
            PEA   $0061
            PEA   $0082
            _SetRect
            PEA   ^L30BA
            PEA   L30BA
            PEA   $00DC
            PEA   $008B
            PEA   $013D
            PEA   $00C2
            _SetRect
            PEA   ^L30D2
            PEA   L30D2
            PEA   $0000
            PEA   $000C
            PEA   $009B
            PEA   $006B
            _SetRect
            PEA   ^L30DA
            PEA   L30DA
            PEA   $009D
            PEA   $000C
            PEA   $0140
            PEA   $006B
            _SetRect
            PEA   ^L30E2
            PEA   L30E2
            PEA   $0000
            PEA   $006D
            PEA   $009B
            PEA   $00C8
            _SetRect
            PEA   ^L30EA
            PEA   L30EA
            PEA   $009D
            PEA   $006D
            PEA   $0140
            PEA   $00C8
            _SetRect
            PEA   ^L3106
            PEA   L3106
            PEA   $0005
            PEA   $008E
            PEA   $000C
            PEA   $00BF
            _SetRect
            PEA   ^L310E
            PEA   L310E
            PEA   $0011
            PEA   $008E
            PEA   $0018
            PEA   $00BF
            _SetRect
            PEA   ^L3116
            PEA   L3116
            PEA   $001D
            PEA   $008E
            PEA   $0024
            PEA   $00BF
            _SetRect
            PEA   ^L311E
            PEA   L311E
            PEA   $0028
            PEA   $008E
            PEA   $002F
            PEA   $00BF
            _SetRect
            PEA   ^L3126
            PEA   L3126
            PEA   $0033
            PEA   $008E
            PEA   $003A
            PEA   $00BF
            _SetRect
            RTS

L3D9D       BCC   L3DAD
            PHA
            PEA   $0000
            PEA   $0000
            _SysFailMgr
L3DAD       RTS

            JSL   GSOS
            DW    $0010       ; Open
            ADRL  L1D4B
            JSR   L3D9D
            LDA   L1D4B
            STA   L1D55
            STA   L1D71
            LDA   #$00E1
            STA   L1D57+2
            LDA   #$2000
            STA   L1D57
            LDA   #$8000
            STA   L1D5B
            JSL   GSOS
            DW    $0012       ; Read
            ADRL  L1D55
            JSR   L3D9D
            JSL   GSOS
            DW    $0014       ; Close
            ADRL  L1D71
            JSR   L3D9D
            RTS

            JSL   GSOS
            DW    $0010       ; Open
            ADRL  L1D4B
            JSR   L3D9D
            LDA   L1D4B
            STA   L1D55
            STA   L1D71
L3E07       LDA   L1E5D+2
            STA   L1D57+2
            LDA   L1E5D
            STA   L1D57
            JMP   L3E1C

L3E16       DW    $0000       ;  ref num
L3E18       ADRL  $00000000   ;  end of file
L3E1C       LDA   L1D4B
            STA   L3E16
            JSL   GSOS
            DW    $0019       ; GetEOF
            ADRL  L3E16
            LDA   L3E18
            STA   L1D5B
            LDA   L3E18+2
            STA   L1D5B+2
            JSR   L3D9D
            JSL   GSOS
            DW    $0012       ; Read
            ADRL  L1D55
            JSR   L3D9D
            JSL   GSOS
            DW    $0014       ; Close
            ADRL  L1D71
            JSR   L3D9D
            LDA   L1E5D+2
            STA   L1E69+2
            LDA   L1E5D
            STA   L1E69
            LDA   L1D5B
            STA   L1E6D
            LDA   #$00E1
            STA   L1E6F+2
            LDA   #$2000
            STA   L1E6F
            LDA   #$8000
            STA   L1E73
            jmp   L4332

L3E7D       LDA   $00
            PHA
            LDA   $02
            PHA
            LDA   $04
            PHA
            LDA   $06
            PHA
            LDA   #^L1E7B
            STA   L1D4D+2
            LDA   #L1E7B
            STA   L1D4D
            SEP   #$30
            LDA   L1E3F
            STA   L1E7B+$E
            REP   #$30
            JSR   L3FD7
            LDA   L1E3F
            CMP   #$0041
            BCS   L3EB0
            SEC
            SBC   #$0030
            BRA   L3EB8
L3EB0       CLC
            ADC   #$000A
            SEC
            SBC   #$0041
L3EB8       ASL
            ASL
            TAX
            LDA   L1E8E,X
            STA   $00
            LDA   L1E8E+2,X
            STA   $02
            LDA   L1F12,X
            STA   $04
            LDA   L1F12+2,X
            STA   $06
            LDA   L1D81
            LDY   #$0000
            STA   [$04],Y
            LDA   L1D81+2
            LDY   #$0002
            STA   [$04],Y
            PEA   $0000
            PEA   $0000
            LDA   L1D5B
            PHA
            PEA   $0100
            _UDivide
            PLA
            LDY   #$0004
            STA   [$00],Y
            PLA
            BEQ   L3F01
            LDA   [$00],Y
            INC
            STA   [$00],Y
L3F01       LDX   #$0000
            LDA   #$0100
L3F07       CMP   L1D5B
            BCS   L3F10
            INX
            ASL
            BRA   L3F07
L3F10       TXA
            LDY   #$000A
            STA   [$00],Y
            PLA
            STA   $06
            PLA
            STA   $04
            PLA
            STA   $02
            PLA
            STA   $00
            RTS

L3F23       LDA   $00
            PHA
            LDA   $02
            PHA
            LDA   $04
            PHA
            LDA   $06
            PHA
            LDA   $08
            PHA
            LDA   $0A
            PHA
            LDA   L1E3F
            CMP   #$0041
            BCS   L3F43
            SEC
            SBC   #$0030
            BRA   L3F4B
L3F43       CLC
            ADC   #$000A
            SEC
            SBC   #$0041
L3F4B       ASL
            ASL
            TAX
            LDA   L1E8E,X
            STA   $00
            LDA   L1E8E+2,X
            STA   $02
            LDA   L1F12,X
            STA   $04
            LDA   L1F12+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

L3F91       LDA   $00
            PHA
            LDA   $02
            PHA
            LDA   L1E3F
            CMP   #$0041
            BCS   L3FA5
            SEC
            SBC   #$0030
            BRA   L3FAD
L3FA5       CLC
            ADC   #$000A
            SEC
            SBC   #$0041
L3FAD       ASL
            ASL
            TAX
            LDA   L1F12,X
            STA   $00
            LDA   L1F12+2,X
            STA   $02
            LDY   #$0002
            LDA   [$00],Y
            PHA
            LDY   #$0000
            LDA   [$00],Y
            PHA
            _DisposeHandle
            JSR   L3D9D
            PLA
            STA   $02
            PLA
            STA   $00
            RTS

L3FD7       LDA   $00
            PHA
            LDA   $02
            PHA
            JSL   GSOS
            DW    $0010       ; Open
            ADRL  L1D4B
            JSR   L3D9D
            LDA   L1D4B
            STA   L1D55
            STA   L1D71
            JMP   L3FFC

L3FF6       DW    $0000       ;  ref num
L3FF8       ADRL  $00000000   ;  end of file
L3FFC       LDA   L1D4B
            STA   L3FF6
            JSL   GSOS
            DW    $0019       ; GetEOF
            ADRL  L3FF6
            LDA   L3FF8
            STA   L1D5B
            LDA   L3FF8+2
            STA   L1D5B+2
            JSR   L3D9D
            LDA   L1D5B+2
            STA   L40D6+2
            LDA   L1D5B
            STA   L40D6
            CLC
            ADC   #$0002
            STA   L40D6
            BCC   L4033
            INC   L40D6+2
L4033       LDA   $00
            PHA
            LDA   $02
            PHA
            PEA   $0000
            PEA   $0000
            PEA   $0000
            LDA   L40D6
            PHA
            LDA   L1D7B
            PHA
            PEA   $C008
            PEA   $0000
            PEA   $0000
            _NewHandle
            JSR   L3D9D
            PLA
            STA   $00
            STA   L1D81
            PLA
            STA   $02
            STA   L1D81+2
            PLA
            STA   $02
            PLA
            STA   $00
            LDA   $00
            PHA
            LDA   $02
            PHA
            LDA   L1D81
            STA   $00
            LDA   L1D81+2
            STA   $02
            LDY   #$0000
            LDA   [$00],Y
            STA   L1D85
            LDY   #$0002
            LDA   [$00],Y
            STA   L1D85+2
            PLA
            STA   $02
            PLA
            STA   $00
            LDA   L1D85+2
            STA   L1D57+2
            LDA   L1D85
            STA   L1D57
            JSL   GSOS
            DW    $0012       ; Read
            ADRL  L1D55
            JSR   L3D9D
            JSL   GSOS
            DW    $0014       ; Close
            ADRL  L1D71
            JSR   L3D9D
            LDA   L1D85+2
            STA   $02
            LDA   L1D85
            STA   $00
            LDA   L1D5B
            TAY
            LDA   #$0000
            STA   [$00],Y
            PLA
            STA   $02
            PLA
            STA   $00
            BRA   L40DA
L40D6       ADRL  $00000000
L40DA       RTS

            LDA   $00
            PHA
            LDA   $02
            PHA
            JSL   GSOS
            DW    $0010       ; Open
            ADRL  L1D4B
            JSR   L3D9D
            LDA   L1D4B
            STA   L1D55
            STA   L1D71
            LDA   L1E5D+2
            STA   L1D57+2
            STA   $02
            LDA   L1E5D
            STA   L1D57
            STA   $00
            JMP   L4110

L410A       DW    $0000       ;  ref num
L410C       ADRL  $00000000   ;  end of file
L4110       LDA   L1D4B
            STA   L410A
            JSL   GSOS
            DW    $0019       ; GetEOF
            ADRL  L410A
            LDA   L410C
            STA   L1D5B
            LDA   L410C+2
            STA   L1D5B+2
            JSR   L3D9D
            JSL   GSOS
            DW    $0012       ; Read
            ADRL  L1D55
            JSR   L3D9D
            JSL   GSOS
            DW    $0014       ; Close
            ADRL  L1D71
            JSR   L3D9D
            LDY   #$0009
            LDA   [$00],Y
            PHA
            _SetMasterSCB
            LDY   #$000B
            LDA   [$00],Y
            BNE   L415E
            RTS

L415E       LDY   #$000D
            LDA   [$00],Y
            STA   L4222
            BNE   L416D
            INY
            INY
            JMP   L418D

L416D       LDY   #$000F
            LDX   #$0000
L4173       LDA   #$0010
            STA   L4220
L4179       LDA   [$00],Y
            STAL  $E19E00,X
            INY
            INY
            INX
            INX
            DEC   L4220
            BNE   L4179
            DEC   L4222
            BNE   L4173
L418D       LDA   [$00],Y
            STA   L4226
            CMP   #$00C9
            BCC   L419A
            LDA   #$00C8
L419A       STA   L4224
            INY
            INY
            LDA   $02
            STA   L1E69+2
            LDA   $00
            STA   L1E69
            TYA
            CLC
            ADC   L1E69
            STA   L1E69
            BCC   L41B6
            INC   L1E69+2
L41B6       LDA   L4226
            ASL
            ASL
            CLC
            ADC   L1E69
            STA   L1E69
            BCC   L41C7
            INC   L1E69+2
L41C7       LDA   #$2000
            STA   L1E6F
            LDA   #$00E1
            STA   L1E6F+2
            LDA   #$00A0
            STA   L1E73
            LDA   #$0000
            STA   L4228
L41DF       LDA   [$00],Y
            STA   L1E6D
            INY
            INY
            PHY
            JSR   L4332
            LDA   L4228
            PHA
            LDA   [$00],Y
            PHA
            _SetSCB
            JSR   L3D9D
            PLY
            LDA   L1E6D
            CLC
            ADC   L1E69
            STA   L1E69
            BCC   L420B
            INC   L1E69+2
L420B       LDA   #$00A0
            STA   L1E73
            INY
            INY
            DEC   L4224
            BNE   L41DF
            PLA
            STA   $02
            PLA
            STA   $00
            BRA   L422A
L4220       DW    $0000
L4222       DW    $0000
L4224       DW    $0000
L4226       DW    $0000
L4228       DW    $0000
L422A       RTS

            LDA   #$00C1
            STA   L1D3F
            LDA   #$0000
            STA   L1D41
            JSL   GSOS
            DW    $0001       ; Create
            ADRL  L1D39
            JSR   L3D9D
            JSL   GSOS
            DW    $0010       ; Open
            ADRL  L1D4B
            JSR   L3D9D
            LDA   L1D4B
            STA   L1D63
            STA   L1D71
            LDA   #$00E1
            STA   L1D65+2
            LDA   #$2000
            STA   L1D65
            LDA   #$8000
            STA   L1D69
            JSL   GSOS
            DW    $0013       ; Write
            ADRL  L1D63
            JSR   L3D9D
            JSL   GSOS
            DW    $0014       ; Close
            ADRL  L1D71
            JSR   L3D9D
            RTS

            LDA   #$00C0
            STA   L1D3F
            LDA   #$0001
            STA   L1D41
            JSL   GSOS
            DW    $0001       ; Create
            ADRL  L1D39
            JSR   L3D9D
            JSL   GSOS
            DW    $0010       ; Open
            ADRL  L1D4B
            JSR   L3D9D
            LDA   L1D4B
            STA   L1D63
            STA   L1D71
            LDA   #$00E1
            STA   L1E69+2
            LDA   #$2000
            STA   L1E69
            LDA   #$8000
            STA   L1E6D
            STA   L1E73
            LDA   L1E5D+2
            STA   L1E6F+2
            STA   L1D65+2
            LDA   L1E5D
            STA   L1E6F
            STA   L1D65
L42DD       PEA   $0000
            PEA   ^L1E69
            PEA   L1E69
            PEA   ^L1E6D
            PEA   L1E6D
            LDA   L1E6F+2
            PHA
            LDA   L1E6F
            PHA
            LDA   L1E73
            PHA
            _PackBytes
            PLA
            STA   L1D69
            JSL   GSOS
            DW    $0013       ; Write
            ADRL  L1D63
            JSR   L3D9D
            LDA   L1E6D
            BNE   L42DD
            JSL   GSOS
            DW    $0014       ; Close
            ADRL  L1D71
            JSR   L3D9D
            RTS

L4323       LDA   #$0100
L4326       CLC
            LDY   L1D7D
            ADC   L1D7D
            STA   L1D7D
            TYA
            RTS

L4332       PEA   $0000
            LDA   L1E69+2
            PHA
            LDA   L1E69
            PHA
            LDA   L1E6D
            PHA
            PEA   ^L1E6F
            PEA   L1E6F
            PEA   ^L1E73
            PEA   L1E73
            _UnPackBytes
            PLA
            LDA   L1E73
            BNE   L4332
            RTS

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

L436A       STZ   L1E39
            LDA   #$1E00
            STA   L4381
L4373       JSR   L43F2
            LDA   L1E39
            BNE   L4380
            DEC   L4381
            BNE   L4373
L4380       RTS

L4381       DW    $0000

L43AE       PEA   $0000
            PEA   $FFFF
            PEA   ^L1E19
            PEA   L1E19
            _GetNextEvent
            PLA
            BEQ   L43AE
            LDA   L1E19
            CMP   #$0003
            BNE   L43AE
            LDA   L1E1B
            AND   #$007F
            RTS

L43D3       PEA   $0000
            PEA   $0402
            PEA   ^L1E19
            PEA   L1E19
            _GetNextEvent
            PLA
            BEQ   L43D3
            LDA   L1E19
            CMP   #$0001
            BNE   L43D3
            RTS

L43F2       PEA   $0000
            PEA   $FFFF
            PEA   ^L1E19
            PEA   L1E19
            _GetNextEvent
            PLA
            BEQ   L441B
            LDA   L1E19
            CMP   #$0001
            BEQ   L4415
            CMP   #$0003
            BNE   L441B
L4415       LDA   #$FFFF
            STA   L1E39
L441B       RTS

L441C       PEA   $0000
            PEA   $FFFF
            PEA   ^L1E19
            PEA   L1E19
            _GetNextEvent
            PLA
            BEQ   L441C
            LDA   L1E19
            CMP   #$0001
            BEQ   L443F
            CMP   #$0003
            BNE   L441C
L443F       RTS

L4468       LDX   #$0025
L446B       LDY   #$5000
L446E       DEY
            BNE   L446E
            DEX
            BNE   L446B
            RTS

L4475       TAY
L4476       JSR   L447D
            DEY
            BNE   L4476
            RTS

L447D       LDA   #$3000
L4480       DEC
            BNE   L4480
            RTS

L4494       PEA   $0000
            PEA   $0000
            PEA   $0000
            PEA   $0000
            _ReadTimeHex
            PLA
            STA   L44C2
            PLA
            STA   L44C2+2
            PLA
            PLA
            LDA   L44C2+2
            PHA
            LDA   L44C2
            PHA
            _SetRandSeed
            BRA   L44C6
L44C2       DW    $0000
L44C2+2     DW    $0000
L44C6       RTS

L44C7       PEA   $0000
            _Random
            PLA
            STA   L4523
            PEA   $0000
            PEA   $0000
            LDA   L1E41
            PHA
            LDA   L4523
            PHA
            _Multiply
            PLA
            STA   L4523+2
            PLA
            STA   L4523+4
            PEA   $0000
            PEA   $0000
            PEA   $0000
            PEA   $0000
            LDA   L4523+4
            PHA
            LDA   L4523+2
            PHA
            LDA   #$0001
            PHA
            LDA   #$0000
            PHA
            _LongDivide
            JSR   L3D9D
            PLA
            STA   L4523
            PLA
            PLA
            PLA
            LDA   L4523
            RTS

L4523       DW    $0000
L4523+2     DW    $0000
L4523+4     DW    $0000
L4529       LDA   L1E3D
            CMP   #$0041
            BCS   L4537
            SEC
            SBC   #$0030
            BRA   L453F
L4537       CLC
            ADC   #$000A
            SEC
            SBC   #$0041
L453F       ASL
            ASL
            TAX
            PEA   $0001
            LDA   L1E8E+2,X
            PHA
            LDA   L1E8E,X
            PHA
            _FFStartSound
            JSR   L4562
            PEA   $0001
            _FFStopSound
            RTS

L4562       PEA   $0000
            PEA   $0000
            _FFSoundDoneStatus
            JSR   L3D9D
            PLA
            BEQ   L4562
            RTS

L458C       LDA   #^L1E75
            STA   L1D57+2
            LDA   #L1E75
            STA   L1D57
            LDA   #$0000
            STA   L1D5B+2
            LDA   #$0006
            STA   L1D5B
            JSL   GSOS
            DW    $0012       ; Read
            ADRL  L1D55
            JSR   L3D9D
            LDA   L1E5D+2
            STA   L1D57+2
            LDA   L1E5D
            STA   L1D57
            JMP   L45C6

L45C0       DW    $0000       ;  ref num
L45C2       ADRL  $00000000   ;  end of file

L45C6       LDA   L1D4B
            STA   L45C0
            JSL   GSOS
            DW    $0019       ; GetEOF
            ADRL  L45C0
            LDA   L45C2
            STA   L1D5B
            LDA   L45C2+2
            STA   L1D5B+2
            JSR   L3D9D
            LDA   L1D5B
            SEC
            SBC   #$0006
            STA   L1D5B
            JSL   GSOS
            DW    $0012       ; Read
            ADRL  L1D55
            JSR   L3D9D
            JSL   GSOS
            DW    $0014       ; Close
            ADRL  L1D71
            JSR   L3D9D
            LDA   L1E5D+2
            STA   L1E69+2
            LDA   L1E5D
            STA   L1E69
            LDA   L1D5B
            STA   L1E6D
            LDA   L1E65+2
            STA   L1E6F+2
            LDA   L1E65
            STA   L1E6F
            LDA   L1E75
            STA   L1E73
            jmp   L4332

L4631       STZ   L3262
            STZ   L326A
            STZ   L3264
            STZ   L326C
            LDA   L1E77
            STA   L3266
            STA   L326E
            LDA   L1E79
            STA   L3268
            STA   L3270
            LDA   L1E79
            LSR
            CLC
            ADC   #$0001
            STA   L3260
            PEA   ^L3326
            PEA   L3326
            _PaintPixels
            jmp   L3D9D

L466B       LDA   #$0007
            PHA
            _SetSolidPenPat
            LDA   #$0001
            PHA
            LDA   #$000A
            PHA
            _SetPenSize
            LDA   #$0008
            PHA
            LDA   #$0000
            PHA
            _Line
            jmp   L3D9D


