(include "sci.sh")
(use "Main")
(use "n255")
(use "Print")
(use "ClickMenu")
(use "n948")
(use "CueObj")
(use "SysWindow")
(use "User")
(use "View")
(use "Obj")
(script 10)


(local
    local0[27]

)
(procedure (localproc_0052)
    (if (proc999_5((send gRoom:style) 11 12 13 14))
        (send gRoom:
            drawPic((send gRoom:picture) 100)
            style(100)
        )
    )
)


(instance public debugHandler of Feature
    (properties)

    (method (init)
        (super:init())
        (send gMouseDownHandler:addToFront(self))
        (send gKeyDownHandler:addToFront(self))
    )


    (method (dispose)
        (send gMouseDownHandler:delete(self))
        (send gKeyDownHandler:delete(self))
        (super:dispose())
        DisposeScript(10)
    )


    (method (handleEvent pEvent)
        (var temp0[160], temp160, temp161, temp162, temp163, temp164, temp165, temp166, temp167, temp168, temp169, temp170, temp171, temp172, temp173, temp174, temp175, temp176, temp177, temp178, temp179[65280])
        (asm
            pushi   #type
            pushi   0
            lap     pEvent
            send    4
            push    
            dup     
            ldi     4
            eq?     
            bnt     code_09ce
            pushi   #claimed
            pushi   1
            pushi   1
            lap     pEvent
            send    6
            pushi   2
            pushi   10
            lofsa   "880.scr"
            push    
            callk   FileIO, 4
            not     
            bnt     code_0115
            pushi   11
            pushi   #message
            pushi   0
            lap     pEvent
            send    4
            push    
            pushi   11776
            pushi   4608
            pushi   8960
            pushi   9216
            pushi   9472
            pushi   12544
            pushi   6144
            pushi   6400
            pushi   4864
            pushi   12032
            calle   proc999_5, 22
            not     
            bnt     code_0115
            ldi     1
            ret     
code_0115:  pushi   #message
            pushi   0
            lap     pEvent
            send    4
            push    
            dup     
            ldi     7680
            eq?     
            bnt     code_0226
            pushi   #first
            pushi   0
            lag     gCast
            send    4
            sat     temp162
code_012e:  lat     temp162
            bnt     code_09ca
            pushi   1
            push    
            callk   NodeValue, 2
            sat     temp164
            pushi   14
            lea     @temp0
            push    
            pushi   10
            pushi   1
            pushi   #name
            pushi   0
            pushi   #{-super-}
            pushi   0
            lat     temp164
            send    4
            send    4
            push    
            pushi   #view
            pushi   0
            lat     temp164
            send    4
            push    
            pushi   #loop
            pushi   0
            lat     temp164
            send    4
            push    
            pushi   #cel
            pushi   0
            lat     temp164
            send    4
            push    
            pushi   #x
            pushi   0
            lat     temp164
            send    4
            push    
            pushi   #y
            pushi   0
            lat     temp164
            send    4
            push    
            pushi   #z
            pushi   0
            lat     temp164
            send    4
            push    
            pushi   #heading
            pushi   0
            lat     temp164
            send    4
            push    
            pushi   #priority
            pushi   0
            lat     temp164
            send    4
            push    
            pushi   #signal
            pushi   0
            lat     temp164
            send    4
            push    
            pushi   #isKindOf
            pushi   1
            class   Actor
            push    
            lat     temp164
            send    6
            bnt     code_01ab
            pushi   #illegalBits
            pushi   0
            lat     temp164
            send    4
            jmp     code_01ad
code_01ab:  ldi     65535
code_01ad:  push    
            callk   Format, 28
            pushi   #addText
            pushi   3
            lea     @temp0
            push    
            pushi   3
            pushi   #view
            pushi   0
            lat     temp164
            send    4
            push    
            pushi   #loop
            pushi   0
            lat     temp164
            send    4
            push    
            pushi   #cel
            pushi   0
            lat     temp164
            send    4
            push    
            callk   CelWide, 6
            push    
            pushi   0
            pushi   32
            pushi   1
            class   SysWindow
            push    
            pushi   214
            pushi   1
            pushi   #name
            pushi   0
            lat     temp164
            send    4
            push    
            pushi   213
            pushi   5
            pushi   #view
            pushi   0
            lat     temp164
            send    4
            push    
            pushi   #loop
            pushi   0
            lat     temp164
            send    4
            push    
            pushi   #cel
            pushi   0
            lat     temp164
            send    4
            push    
            pushi   0
            pushi   0
            pushi   110
            pushi   0
            class   Print
            send    40
            not     
            bnt     code_0215
            jmp     code_09ca
code_0215:  pushi   #next
            pushi   1
            lst     temp162
            lag     gCast
            send    6
            sat     temp162
            jmp     code_012e
            jmp     code_09ca
code_0226:  dup     
            ldi     12288
            eq?     
            bnt     code_0237
            pushi   #doit
            pushi   0
            class   PolyEdit
            send    4
            jmp     code_09ca
code_0237:  dup     
            ldi     11776
            eq?     
            bnt     code_024c
            pushi   0
            call    localproc_0052, 0
            pushi   1
            pushi   4
            callk   Show, 2
            jmp     code_09ca
code_024c:  dup     
            ldi     4608
            eq?     
            bnt     code_02f6
            pushi   16
            lea     @temp0
            push    
            pushi   10
            pushi   2
            pushi   #name
            pushi   0
            lag     gEgo
            send    4
            push    
            pushi   #view
            pushi   0
            lag     gEgo
            send    4
            push    
            pushi   #loop
            pushi   0
            lag     gEgo
            send    4
            push    
            pushi   #cel
            pushi   0
            lag     gEgo
            send    4
            push    
            pushi   #x
            pushi   0
            lag     gEgo
            send    4
            push    
            pushi   #y
            pushi   0
            lag     gEgo
            send    4
            push    
            pushi   #z
            pushi   0
            lag     gEgo
            send    4
            push    
            pushi   #heading
            pushi   0
            lag     gEgo
            send    4
            push    
            pushi   #priority
            pushi   0
            lag     gEgo
            send    4
            push    
            pushi   #signal
            pushi   0
            lag     gEgo
            send    4
            push    
            pushi   #illegalBits
            pushi   0
            lag     gEgo
            send    4
            push    
            pushi   #onControl
            pushi   0
            lag     gEgo
            send    4
            push    
            pushi   #onControl
            pushi   1
            pushi   1
            lag     gEgo
            send    6
            push    
            callk   Format, 32
            pushi   #addText
            pushi   1
            lea     @temp0
            push    
            pushi   213
            pushi   3
            pushi   #view
            pushi   0
            lag     gEgo
            send    4
            push    
            pushi   #loop
            pushi   0
            lag     gEgo
            send    4
            push    
            pushi   #cel
            pushi   0
            lag     gEgo
            send    4
            push    
            pushi   110
            pushi   0
            class   Print
            send    20
            jmp     code_09ca
code_02f6:  dup     
            ldi     8704
            eq?     
            bnt     code_0347
            ldi     0
            sat     temp0
            pushi   3
            lea     @temp0
            push    
            pushi   6
            lofsa   "Variable No."
            push    
            calle   proc921_2, 6
            pushi   1
            lea     @temp0
            push    
            callk   ReadNumber, 2
            sat     temp162
            ldi     0
            sat     temp0
            pushi   3
            lea     @temp0
            push    
            pushi   6
            lofsa   "Value"
            push    
            calle   proc921_2, 6
            pushi   1
            lea     @temp0
            push    
            callk   ReadNumber, 2
            push    
            lat     temp162
            sagi    gEgo
            ldi     0
            sat     temp0
            jmp     code_09ca
code_0347:  dup     
            ldi     8960
            eq?     
            bnt     code_03bd
            ldi     0
            sat     temp0
            pushi   #addText
            pushi   1
            lofsa   "Global number:"
            push    
            pushi   207
            pushi   4
            lea     @temp0
            push    
            pushi   6
            pushi   0
            pushi   12
            pushi   110
            pushi   0
            class   Print
            send    22
            pushi   1
            lea     @temp0
            push    
            callk   ReadNumber, 2
            sat     temp162
            pushi   1
            lsgi    gEgo
            callk   IsObject, 2
            bnt     code_039c
            pushi   4
            lea     @temp0
            push    
            lofsa   " Global %d: %s "
            push    
            lst     temp162
            pushi   #name
            pushi   0
            lat     temp162
            lagi    gEgo
            send    4
            push    
            callk   Format, 8
            jmp     code_03af
code_039c:  pushi   4
            lea     @temp0
            push    
            lofsa   " Global %d: %d "
            push    
            lst     temp162
            lat     temp162
            lsgi    gEgo
            callk   Format, 8
code_03af:  pushi   1
            lea     @temp0
            push    
            calle   proc921_0, 2
            jmp     code_09ca
code_03bd:  dup     
            ldi     5888
            eq?     
            bnt     code_03d3
            pushi   #doit
            pushi   0
            pushi   2
            pushi   16
            pushi   0
            callk   ScriptID, 4
            send    4
            jmp     code_09ca
code_03d3:  dup     
            ldi     9216
            eq?     
            bnt     code_04e1
            ldi     0
            sat     temp162
code_03df:  lst     temp162
            pushi   #size
            pushi   0
            lag     gCast
            send    4
            lt?     
            bnt     code_09ca
            pushi   #at
            pushi   1
            lst     temp162
            lag     gCast
            send    6
            sat     temp164
            pushi   #signal
            pushi   0
            send    4
            push    
            ldi     4
            and     
            not     
            bnt     code_04d9
            pushi   14
            lea     @temp0
            push    
            pushi   10
            pushi   1
            pushi   #name
            pushi   0
            pushi   #{-super-}
            pushi   0
            lat     temp164
            send    4
            send    4
            push    
            pushi   #view
            pushi   0
            lat     temp164
            send    4
            push    
            pushi   #loop
            pushi   0
            lat     temp164
            send    4
            push    
            pushi   #cel
            pushi   0
            lat     temp164
            send    4
            push    
            pushi   #x
            pushi   0
            lat     temp164
            send    4
            push    
            pushi   #y
            pushi   0
            lat     temp164
            send    4
            push    
            pushi   #z
            pushi   0
            lat     temp164
            send    4
            push    
            pushi   #heading
            pushi   0
            lat     temp164
            send    4
            push    
            pushi   #priority
            pushi   0
            lat     temp164
            send    4
            push    
            pushi   #signal
            pushi   0
            lat     temp164
            send    4
            push    
            pushi   #isKindOf
            pushi   1
            class   Actor
            push    
            lat     temp164
            send    6
            bnt     code_0475
            pushi   #illegalBits
            pushi   0
            lat     temp164
            send    4
            jmp     code_0477
code_0475:  ldi     65535
code_0477:  push    
            callk   Format, 28
            pushi   #addText
            pushi   3
            lea     @temp0
            push    
            pushi   3
            pushi   #view
            pushi   0
            lat     temp164
            send    4
            push    
            pushi   #loop
            pushi   0
            lat     temp164
            send    4
            push    
            pushi   #cel
            pushi   0
            lat     temp164
            send    4
            push    
            callk   CelWide, 6
            push    
            pushi   0
            pushi   32
            pushi   1
            class   SysWindow
            push    
            pushi   214
            pushi   1
            pushi   #name
            pushi   0
            lat     temp164
            send    4
            push    
            pushi   213
            pushi   5
            pushi   #view
            pushi   0
            lat     temp164
            send    4
            push    
            pushi   #loop
            pushi   0
            lat     temp164
            send    4
            push    
            pushi   #cel
            pushi   0
            lat     temp164
            send    4
            push    
            pushi   0
            pushi   0
            pushi   110
            pushi   0
            class   Print
            send    40
code_04d9:  +at     temp162
            jmp     code_03df
            jmp     code_09ca
code_04e1:  dup     
            ldi     9472
            eq?     
            bnt     code_0602
            pushi   0
            callk   GetPort, 0
            sat     temp160
            pushi   1
            pushi   0
            callk   SetPort, 2
            ldi     5
            sat     temp171
            ldi     16
            sat     temp172
            ldi     15
            sat     temp167
            ldi     80
            sat     temp168
            lst     temp167
            pushi   34
            lat     temp171
            mul     
            add     
            sat     temp170
            lst     temp168
            pushi   10
            lat     temp172
            mul     
            add     
            sat     temp169
            pushi   6
            pushi   7
            lst     temp167
            lst     temp168
            lst     temp170
            push    
            pushi   1
            callk   Graph, 12
            sat     temp165
            pushi   7
            pushi   11
            lst     temp167
            lst     temp168
            lst     temp170
            lst     temp169
            pushi   1
            pushi   255
            callk   Graph, 14
            ldi     0
            sat     temp166
code_0540:  lst     temp166
            ldi     256
            lt?     
            bnt     code_059e
            pushi   7
            pushi   11
            lst     temp167
            lat     temp171
            add     
            push    
            lst     temp171
            lst     temp166
            ldi     8
            div     
            mul     
            add     
            push    
            lst     temp168
            lat     temp172
            add     
            push    
            pushi   16
            lst     temp166
            ldi     8
            mod     
            mul     
            add     
            push    
            lst     temp167
            lat     temp171
            add     
            push    
            lat     temp171
            add     
            push    
            lst     temp171
            lst     temp166
            ldi     8
            div     
            mul     
            add     
            push    
            lst     temp168
            lat     temp172
            add     
            push    
            lat     temp172
            add     
            push    
            lst     temp172
            lst     temp166
            ldi     8
            mod     
            mul     
            add     
            push    
            pushi   1
            lst     temp166
            callk   Graph, 14
            +at     temp166
            jmp     code_0540
code_059e:  pushi   6
            pushi   12
            lst     temp167
            lst     temp168
            lst     temp170
            lst     temp169
            pushi   1
            callk   Graph, 12
code_05ae:  pushi   #new
            pushi   0
            class   Event
            send    4
            sat     temp161
            pushi   #type
            pushi   0
            send    4
            push    
            ldi     1
            eq?     
            bt      code_05cf
            pushi   #type
            pushi   0
            lat     temp161
            send    4
            push    
            ldi     4
            eq?     
            bnt     code_05d1
code_05cf:  jmp     code_05da
code_05d1:  pushi   #dispose
            pushi   0
            lat     temp161
            send    4
            jmp     code_05ae
code_05da:  pushi   #dispose
            pushi   0
            lat     temp161
            send    4
            pushi   2
            pushi   8
            lst     temp165
            callk   Graph, 4
            pushi   6
            pushi   12
            lst     temp167
            lst     temp168
            lst     temp170
            lst     temp169
            pushi   1
            callk   Graph, 12
            pushi   1
            lst     temp160
            callk   SetPort, 2
            jmp     code_09ca
code_0602:  dup     
            ldi     9728
            eq?     
            bnt     code_0620
            ldi     0
            sat     temp0
            pushi   1
            lofsa   "Flag No."
            push    
            calle   proc255_1, 2
            sat     temp162
            pushi   1
            push    
            callb   proc0_2, 2
            jmp     code_09ca
code_0620:  dup     
            ldi     12800
            eq?     
            bnt     code_063e
            ldi     0
            sat     temp0
            pushi   1
            lofsa   "Flag No."
            push    
            calle   proc255_1, 2
            sat     temp162
            pushi   1
            push    
            callb   proc0_3, 2
            jmp     code_09ca
code_063e:  dup     
            ldi     12544
            eq?     
            bnt     code_0677
            ldi     0
            sat     temp0
            pushi   1
            lofsa   "Flag No."
            push    
            calle   proc255_1, 2
            sat     temp162
            pushi   1
            push    
            callb   proc0_1, 2
            bnt     code_0669
            pushi   1
            lofsa   "TRUE"
            push    
            calle   proc921_0, 2
            jmp     code_09ca
code_0669:  pushi   1
            lofsa   "FALSE"
            push    
            calle   proc921_0, 2
            jmp     code_09ca
code_0677:  dup     
            ldi     6144
            eq?     
            bnt     code_0692
            pushi   #doit
            pushi   2
            lea     @global42
            push    
            pushi   0
            pushi   1
            pushi   952
            callk   ScriptID, 2
            send    8
            jmp     code_09ca
code_0692:  dup     
            ldi     6400
            eq?     
            bnt     code_06a6
            pushi   0
            call    localproc_0052, 0
            pushi   1
            pushi   2
            callk   Show, 2
            jmp     code_09ca
code_06a6:  dup     
            ldi     4096
            eq?     
            bnt     code_06b9
            pushi   #detailLevel
            pushi   1
            pushi   1
            lag     gSQ5
            send    6
            jmp     code_09ca
code_06b9:  dup     
            ldi     4864
            eq?     
            bnt     code_0757
            pushi   13
            lea     @temp0
            push    
            pushi   10
            pushi   3
            pushi   #name
            pushi   0
            lag     gRoom
            send    4
            push    
            lsg     gModNum
            pushi   #curPic
            pushi   0
            lag     gRoom
            send    4
            push    
            pushi   #style
            pushi   0
            lag     gRoom
            send    4
            push    
            pushi   #horizon
            pushi   0
            lag     gRoom
            send    4
            push    
            pushi   #north
            pushi   0
            lag     gRoom
            send    4
            push    
            pushi   #south
            pushi   0
            lag     gRoom
            send    4
            push    
            pushi   #east
            pushi   0
            lag     gRoom
            send    4
            push    
            pushi   #west
            pushi   0
            lag     gRoom
            send    4
            push    
            pushi   1
            pushi   #script
            pushi   0
            lag     gRoom
            send    4
            push    
            callk   IsObject, 2
            bnt     code_0731
            pushi   #name
            pushi   0
            pushi   #script
            pushi   0
            lag     gRoom
            send    4
            send    4
            jmp     code_0734
code_0731:  lofsa   "..none.."
code_0734:  push    
            callk   Format, 26
            pushi   #width
            pushi   1
            pushi   120
            pushi   205
            pushi   1
            lea     @temp0
            push    
            pushi   110
            pushi   0
            class   Print
            send    16
            pushi   #showMem
            pushi   0
            lag     gSQ5
            send    4
            jmp     code_09ca
code_0757:  dup     
            ldi     7936
            eq?     
            bnt     code_083f
            ldi     0
            sat     temp0
            pushi   #addText
            pushi   1
            lofsa   "Which Format?"
            push    
            pushi   212
            pushi   4
            pushi   0
            lofsa   "String"
            push    
            pushi   0
            pushi   12
            pushi   212
            pushi   4
            pushi   1
            lofsa   "Message"
            push    
            pushi   50
            pushi   12
            pushi   110
            pushi   0
            class   Print
            send    34
            bnt     code_07d2
            pushi   2
            lofsa   "Noun?"
            push    
            pushi   0
            calle   proc255_1, 4
            sat     temp174
            pushi   2
            lofsa   "Verb?"
            push    
            pushi   0
            calle   proc255_1, 4
            sat     temp175
            pushi   2
            lofsa   "Case?"
            push    
            pushi   0
            calle   proc255_1, 4
            sat     temp176
            pushi   2
            lofsa   "Sequence?"
            push    
            pushi   0
            calle   proc255_1, 4
            sat     temp177
            pushi   6
            pushi   0
            lst     temp174
            lst     temp175
            lst     temp176
            push    
            lea     @temp0
            push    
            callk   GetMessage, 12
            jmp     code_07e4
code_07d2:  pushi   3
            lea     @temp0
            push    
            pushi   50
            lofsa   "String to display?"
            push    
            calle   proc921_2, 6
code_07e4:  pushi   2
            lofsa   "Y Parameter?"
            push    
            pushi   0
            calle   proc255_1, 4
            sat     temp167
            pushi   2
            lofsa   "X Parameter?"
            push    
            pushi   0
            calle   proc255_1, 4
            sat     temp168
            pushi   2
            lofsa   "Box Width?"
            push    
            pushi   0
            calle   proc255_1, 4
            sat     temp162
            pushi   2
            lofsa   "Font Number?"
            push    
            pushi   0
            calle   proc255_1, 4
            sat     temp163
            not     
            bnt     code_081b
            lag     gFont
            sat     temp163
code_081b:  pushi   #posn
            pushi   2
            lst     temp168
            lst     temp167
            pushi   67
            pushi   1
            lst     temp162
            pushi   30
            pushi   1
            lst     temp163
            pushi   205
            pushi   1
            lea     @temp0
            push    
            pushi   110
            pushi   0
            class   Print
            send    30
            jmp     code_09ca
code_083f:  dup     
            ldi     5120
            eq?     
            bnt     code_0890
            lag     gDialog
            bnt     code_084f
            pushi   #dispose
            pushi   0
            send    4
code_084f:  pushi   #addText
            pushi   1
            lofsa   "Which room do you want?"
            push    
            pushi   207
            pushi   4
            lea     @temp0
            push    
            pushi   6
            pushi   115
            pushi   35
            pushi   110
            pushi   0
            class   Print
            send    22
            lat     temp0
            bnt     code_09ca
            pushi   1
            lea     @temp0
            push    
            callk   ReadNumber, 2
            sat     temp162
            push    
            ldi     0
            gt?     
            bnt     code_09ca
            pushi   #newRoom
            pushi   1
            lst     temp162
            lag     gRoom
            send    6
            jmp     code_09ca
code_0890:  dup     
            ldi     5632
            eq?     
            bnt     code_08ba
            pushi   #canInput
            pushi   1
            pushi   1
            pushi   246
            pushi   1
            pushi   1
            class   User
            send    12
            pushi   #enable
            pushi   6
            pushi   0
            pushi   1
            pushi   2
            pushi   3
            pushi   5
            pushi   6
            lag     gSq5IconBar
            send    16
            jmp     code_09ca
code_08ba:  dup     
            ldi     22
            eq?     
            bnt     code_08c8
            pushi   1
            pushi   1
            callk   Show, 2
            jmp     code_09ca
code_08c8:  dup     
            ldi     4352
            eq?     
            bnt     code_08d9
            pushi   #doit
            pushi   0
            class   Class_948_0
            send    4
            jmp     code_09ca
code_08d9:  dup     
            ldi     11520
            eq?     
            bnt     code_08e7
            ldi     1
            sag     global4
            jmp     code_09ca
code_08e7:  dup     
            ldi     12032
            eq?     
            bnt     code_090d
            pushi   #addText
            pushi   3
            lofsa   "Version number:"
            push    
            pushi   0
            pushi   0
            pushi   205
            pushi   3
            lsg     global27
            pushi   0
            pushi   14
            pushi   110
            pushi   0
            class   Print
            send    24
            jmp     code_09ca
code_090d:  dup     
            ldi     5376
            eq?     
            bnt     code_0976
            ldi     0
            sat     temp167
code_0919:  lst     temp167
            pushi   #size
            pushi   0
            lag     gCast
            send    4
            lt?     
            bnt     code_09ca
            pushi   9
            pushi   11
            pushi   #brTop
            pushi   0
            pushi   #at
            pushi   1
            lst     temp167
            lag     gCast
            send    6
            send    4
            push    
            pushi   #brLeft
            pushi   0
            pushi   #at
            pushi   1
            lst     temp167
            lag     gCast
            send    6
            send    4
            push    
            pushi   #brBottom
            pushi   0
            pushi   #at
            pushi   1
            lst     temp167
            lag     gCast
            send    6
            send    4
            push    
            pushi   #brRight
            pushi   0
            pushi   #at
            pushi   1
            lst     temp167
            lag     gCast
            send    6
            send    4
            push    
            pushi   1
            lsg     global151
            pushi   65535
            dup     
            callk   Graph, 18
            +at     temp167
            jmp     code_0919
            jmp     code_09ca
code_0976:  dup     
            ldi     11264
            eq?     
            bnt     code_0983
            ldi     1
            sag     global4
            jmp     code_09ca
code_0983:  dup     
            ldi     63
            eq?     
            bnt     code_09c2
            pushi   1
            lofsa   "Debug options:      (Page 1 of 5)\n\n   A - Show cast\n   B - Polygon editor\n   C - Show control map\n   D - Place an actor\n   E - Show ego info\n   F - Show feature outlines\n   G - Set global\n"
            push    
            calle   proc921_0, 2
            pushi   1
            lofsa   "Debug options:      (Page 2 of 5)\n\n   H - Show global\n   I - Get inventory item\n   J - Justify text on screen\n   K - Show palette\n   L - Set flag\n   M - Clear flag\n   N - Show flag\n"
            push    
            calle   proc921_0, 2
            pushi   1
            lofsa   "Debug options:      (Page 3 of 5)\n\n   O - QA Note Logger\n   P - Show priority map\n   Q - Set Detail to 1\n   R - Show room info/free memory\n   S - Show a string or message\n   T - Teleport\n   U - Give HandsOn\n"
            push    
            calle   proc921_0, 2
            pushi   1
            lofsa   "Debug options:      (Page 4 of 5)\n\n   V - Show visual map\n   W - Feature writer\n   Y - Stuff or Unstuff a clue\n   X,Z - Quick quit\n"
            push    
            calle   proc921_0, 2
            pushi   1
            lofsa   "Debug options:      (Page 5 of 5)\n\n  A=Alt, C=Ctrl, L=Left shift, R=Right shift\n\n  Left click:\n    A       Move ego\n    CL      Show ego\n    CR      Show room\n    CA      Show position\n"
            push    
            calle   proc921_0, 2
            jmp     code_09ca
code_09c2:  pushi   #claimed
            pushi   1
            pushi   0
            lap     pEvent
            send    6
code_09ca:  toss    
            jmp     code_0b77
code_09ce:  dup     
            ldi     1
            eq?     
            bnt     code_0b77
            pushi   #modifiers
            pushi   0
            lap     pEvent
            send    4
            push    
            dup     
            ldi     13
            eq?     
            bnt     code_09e8
            ldi     0
            jmp     code_0b76
code_09e8:  dup     
            ldi     14
            eq?     
            bnt     code_09f3
            ldi     0
            jmp     code_0b76
code_09f3:  dup     
            ldi     12
            eq?     
            bnt     code_0a6e
            pushi   #claimed
            pushi   1
            pushi   1
            lap     pEvent
            send    6
            pushi   5
            lea     @temp0
            push    
            pushi   10
            pushi   4
            pushi   #x
            pushi   0
            lap     pEvent
            send    4
            push    
            pushi   #y
            pushi   0
            lap     pEvent
            send    4
            push    
            callk   Format, 10
            pushi   #posn
            pushi   2
            pushi   160
            pushi   10
            pushi   30
            pushi   1
            pushi   999
            pushi   210
            pushi   1
            pushi   1
            pushi   205
            pushi   1
            lea     @temp0
            push    
            pushi   110
            pushi   0
            class   Print
            send    30
            sat     temp160
code_0a42:  pushi   2
            pushi   #type
            pushi   0
            pushi   #new
            pushi   0
            class   Event
            send    4
            sat     temp161
            send    4
            ne?     
            bnt     code_0a5d
            pushi   #dispose
            pushi   0
            lat     temp161
            send    4
            jmp     code_0a42
code_0a5d:  pushi   #dispose
            pushi   0
            lat     temp161
            send    4
            pushi   #dispose
            pushi   0
            lat     temp160
            send    4
            jmp     code_0b76
code_0a6e:  dup     
            ldi     5
            eq?     
            bnt     code_0a8e
            pushi   #type
            pushi   1
            pushi   4
            pushi   37
            pushi   1
            pushi   4864
            lap     pEvent
            send    12
            pushi   #handleEvent
            pushi   1
            lsp     pEvent
            self    6
            jmp     code_0b76
code_0a8e:  dup     
            ldi     6
            eq?     
            bnt     code_0aae
            pushi   #type
            pushi   1
            pushi   4
            pushi   37
            pushi   1
            pushi   4608
            lap     pEvent
            send    12
            pushi   #handleEvent
            pushi   1
            lsp     pEvent
            self    6
            jmp     code_0b76
code_0aae:  dup     
            ldi     9
            eq?     
            bnt     code_0ab9
            ldi     0
            jmp     code_0b76
code_0ab9:  dup     
            ldi     10
            eq?     
            bnt     code_0ac4
            ldi     0
            jmp     code_0b76
code_0ac4:  dup     
            ldi     1
            eq?     
            bnt     code_0acf
            ldi     0
            jmp     code_0b76
code_0acf:  dup     
            ldi     2
            eq?     
            bnt     code_0ada
            ldi     0
            jmp     code_0b76
code_0ada:  dup     
            ldi     4
            eq?     
            bnt     code_0ae5
            ldi     0
            jmp     code_0b76
code_0ae5:  dup     
            ldi     8
            eq?     
            bnt     code_0b76
            pushi   #claimed
            pushi   1
            pushi   1
            lap     pEvent
            send    6
            pushi   #setCursor
            pushi   1
            pushi   996
            lag     gSQ5
            send    6
            sat     temp178
            pushi   #alterEgo
            pushi   0
            class   User
            send    4
            sat     temp173
            pushi   #signal
            pushi   0
            send    4
            sat     temp162
            pushi   #startUpd
            pushi   0
            lat     temp173
            send    4
code_0b1a:  pushi   2
            pushi   #type
            pushi   0
            pushi   #new
            pushi   0
            class   Event
            send    4
            sat     temp161
            send    4
            ne?     
            bnt     code_0b5c
            pushi   1
            pushi   #x
            pushi   #x
            pushi   0
            lat     temp161
            send    4
            push    
            pushi   0
            pushi   1
            pushi   #y
            pushi   0
            lat     temp161
            send    4
            push    
            ldi     10
            sub     
            push    
            lat     temp173
            send    12
            pushi   2
            pushi   #elements
            pushi   0
            lag     gCast
            send    4
            push    
            pushi   0
            callk   Animate, 4
            pushi   #dispose
            pushi   0
            lat     temp161
            send    4
            jmp     code_0b1a
code_0b5c:  pushi   #dispose
            pushi   0
            lat     temp161
            send    4
            pushi   #setCursor
            pushi   1
            lst     temp178
            lag     gSQ5
            send    6
            pushi   #signal
            pushi   1
            lst     temp162
            lat     temp173
            send    6
code_0b76:  toss    
code_0b77:  toss    
            ret     
        )
    )

)
