(script 302)

(string
    string_0768 "Arm"
    string_076c "Ethel"
    string_0772 "Eye"
    string_0776 "Mouth"
    string_077c "ParrotMouth"
    string_0788 "Salute"
    string_078f "cycleMouth"
    string_079a "ethelEyes"
    string_07a4 "myMusic"
    string_07ac "parrotBody"
    string_07b7 "scene38b"
    string_07c0 "speech38"
    string_07c9 ""
)

(said
)

(local
    local0 = $0000
    local1 = $0000
    local2 = $0000
)

// 045c
(instance public scene38b of Rm
    (properties
        script $0
        number $0
        timer $0
        keep $0
        initialized $0
        picture $3e
        style $7
        horizon $0
        controls $0
        north $0
        east $0
        south $0
        west $0
        curPic $0
        picAngle $0
        vanishingX $a0
        vanishingY $8ad0
        vertAngle $0
    )
    (method (init) // method_00f0
  00f0:39 57            pushi 57 // $57 init
  00f2:76               push0 
  00f3:57 37 04         super Rm 4 

  00f6:7a               push2 
  00f7:38 0087          pushi 87 // $87 clean
  00fa:39 04            pushi 4 // $4 x
  00fc:43 00 04         callk Load 4 

  00ff:76               push0 
  0100:45 03 00         callb procedure_0003 0 // HandsOff 

  0103:39 61            pushi 61 // $61 add
  0105:78               push1 
  0106:74 046d          lofss $0576 // parrotBody
  0109:39 3c            pushi 3c // $3c doit
  010b:76               push0 
  010c:81 0a              lag gAddToPics 
  010e:4a 0a             send a 

  0110:39 42            pushi 42 // $42 setPri
  0112:78               push1 
  0113:78               push1 
  0114:39 57            pushi 57 // $57 init
  0116:76               push0 
  0117:72 04ea          lofsa $0604 // Ethel
  011a:4a 0a             send a 

  011c:39 42            pushi 42 // $42 setPri
  011e:78               push1 
  011f:7a               push2 
  0120:39 57            pushi 57 // $57 init
  0122:76               push0 
  0123:72 057a          lofsa $06a0 // Mouth
  0126:4a 0a             send a 

  0128:39 42            pushi 42 // $42 setPri
  012a:78               push1 
  012b:7a               push2 
  012c:39 57            pushi 57 // $57 init
  012e:76               push0 
  012f:39 7a            pushi 7a // $7a setScript
  0131:78               push1 
  0132:74 03e1          lofss $0516 // ethelEyes
  0135:72 05b6          lofsa $06ee // Eye
  0138:4a 10             send 10 

  013a:38 00c8          pushi c8 // $c8 setLoop
  013d:78               push1 
  013e:39 08            pushi 8 // $8 underBits
  0140:39 42            pushi 42 // $42 setPri
  0142:78               push1 
  0143:7a               push2 
  0144:39 7e            pushi 7e // $7e setCycle
  0146:78               push1 
  0147:76               push0 
  0148:39 57            pushi 57 // $57 init
  014a:76               push0 
  014b:38 0089          pushi 89 // $89 hide
  014e:76               push0 
  014f:72 044e          lofsa $05a0 // Arm
  0152:4a 1a             send 1a 

  0154:39 42            pushi 42 // $42 setPri
  0156:78               push1 
  0157:7a               push2 
  0158:39 57            pushi 57 // $57 init
  015a:76               push0 
  015b:72 04f4          lofsa $0652 // ParrotMouth
  015e:4a 0a             send a 

  0160:39 2b            pushi 2b // $2b number
  0162:78               push1 
  0163:39 1b            pushi 1b // $1b elements
  0165:39 06            pushi 6 // $6 loop
  0167:78               push1 
  0168:39 ff            pushi ff // $ff checkAni
  016a:39 2a            pushi 2a // $2a play
  016c:76               push0 
  016d:72 05cc          lofsa $073c // myMusic
  0170:4a 10             send 10 

  0172:88 00ad            lsg gSpyFlags 
  0175:35 02              ldi 2 
  0177:12                 and 
  0178:18                 not 
  0179:31 0a              bnt code_0185 
  017b:39 7a            pushi 7a // $7a setScript
  017d:78               push1 
  017e:74 032d          lofss $04ae // speech38
  0181:54 06             self 6 

  0183:33 08              jmp code_018d 

        code_0185
  0185:39 7a            pushi 7a // $7a setScript
  0187:78               push1 
  0188:74 03bb          lofss $0546 // Salute
  018b:54 06             self 6 


        code_018d
  018d:48                 ret 
    )

    (method (doit) // method_018e
  018e:39 3c            pushi 3c // $3c doit
  0190:76               push0 
  0191:57 37 04         super Rm 4 

  0194:48                 ret 
    )

    (method (dispose) // method_0195
  0195:39 58            pushi 58 // $58 dispose
  0197:76               push0 
  0198:57 37 04         super Rm 4 

  019b:88 00ad            lsg gSpyFlags 
  019e:35 02              ldi 2 
  01a0:14                  or 
  01a1:a0 00ad            sag gSpyFlags 
  01a4:48                 ret 
    )

    (method (handleEvent) // method_01a5
  01a5:39 6f            pushi 6f // $6f handleEvent
  01a7:78               push1 
  01a8:8f 01              lsp param1 
  01aa:57 37 06         super Rm 6 

  01ad:48                 ret 
    )

)

// 04a8
(instance speech38 of Script
    (properties
        client $0
        state $ffff
        start $0
        timer $0
        cycles $0
        seconds $0
        lastSeconds $0
        register $0
        script $0
        caller $0
    )
    (method (handleEvent) // method_01ae
  01ae:39 6f            pushi 6f // $6f handleEvent
  01b0:78               push1 
  01b1:8f 01              lsp param1 
  01b3:57 05 06         super Script 6 

  01b6:39 4c            pushi 4c // $4c claimed
  01b8:76               push0 
  01b9:87 01              lap param1 
  01bb:4a 04             send 4 

  01bd:18                 not 
  01be:31 34              bnt code_01f4 
  01c0:39 04            pushi 4 // $4 x
  01c2:39 22            pushi 22 // $22 type
  01c4:76               push0 
  01c5:87 01              lap param1 
  01c7:4a 04             send 4 

  01c9:1a                 eq? 
  01ca:31 28              bnt code_01f4 
  01cc:39 28            pushi 28 // $28 message
  01ce:76               push0 
  01cf:87 01              lap param1 
  01d1:4a 04             send 4 

  01d3:36                push 
  01d4:35 53              ldi 53 
  01d6:1a                 eq? 
  01d7:2f 0d               bt code_01e6 
  01d9:39 28            pushi 28 // $28 message
  01db:76               push0 
  01dc:87 01              lap param1 
  01de:4a 04             send 4 

  01e0:36                push 
  01e1:35 73              ldi 73 
  01e3:1a                 eq? 
  01e4:31 0e              bnt code_01f4 

        code_01e6
  01e6:76               push0 
  01e7:45 0f 00         callb procedure_000f 0 // cls 

  01ea:38 00f8          pushi f8 // $f8 newRoom
  01ed:78               push1 
  01ee:89 0c              lsg gPrevRoomNum 
  01f0:81 02              lag gCurRoom 
  01f2:4a 06             send 6 


        code_01f4
  01f4:48                 ret 
    )

    (method (changeState) // method_01f5
  01f5:39 2d            pushi 2d // $2d client
  01f7:76               push0 
  01f8:72 02e7          lofsa $04e2 // cycleMouth
  01fb:4a 04             send 4 

  01fd:31 0b              bnt code_020a 
  01ff:35 01              ldi 1 
  0201:a3 02              sal local2 
  0203:35 01              ldi 1 
  0205:65 10             aTop cycles 
  0207:32 00ba            jmp code_02c4 

        code_020a
  020a:87 01              lap param1 
  020c:65 0a             aTop state 
  020e:36                push 
  020f:3c                 dup 
  0210:35 00              ldi 0 
  0212:1a                 eq? 
  0213:31 32              bnt code_0247 
  0215:39 0e            pushi e // $e lsLeft
  0217:38 012e          pushi 12e // $12e oldMover
  021a:76               push0 
  021b:39 64            pushi 64 // $64 allTrue
  021d:39 30            pushi 30 // $30 b-moveCnt
  021f:39 08            pushi 8 // $8 underBits
  0221:39 6a            pushi 6a // $6a prev
  0223:38 0100          pushi 100 // $100 notify
  0226:39 66            pushi 66 // $66 isEmpty
  0228:39 0f            pushi f // $f lsBottom
  022a:39 67            pushi 67 // $67 first
  022c:39 ff            pushi ff // $ff checkAni
  022e:39 69            pushi 69 // $69 last
  0230:76               push0 
  0231:39 6b            pushi 6b // $6b addToFront
  0233:43 1b 1c         callk Display 1c 

  0236:a3 00              sal local0 
  0238:7a               push2 
  0239:38 012e          pushi 12e // $12e oldMover
  023c:78               push1 
  023d:40 fdeb 04        call proc_002c 4 

  0241:35 05              ldi 5 
  0243:65 12             aTop seconds 
  0245:33 7c              jmp code_02c3 

        code_0247
  0247:3c                 dup 
  0248:35 01              ldi 1 
  024a:1a                 eq? 
  024b:31 13              bnt code_0260 
  024d:76               push0 
  024e:45 0f 00         callb procedure_000f 0 // cls 

  0251:7a               push2 
  0252:38 012e          pushi 12e // $12e oldMover
  0255:7a               push2 
  0256:40 fe16 04        call proc_0070 4 

  025a:35 05              ldi 5 
  025c:65 12             aTop seconds 
  025e:33 63              jmp code_02c3 

        code_0260
  0260:3c                 dup 
  0261:35 02              ldi 2 
  0263:1a                 eq? 
  0264:31 14              bnt code_027a 
  0266:76               push0 
  0267:45 0f 00         callb procedure_000f 0 // cls 

  026a:7a               push2 
  026b:38 012e          pushi 12e // $12e oldMover
  026e:39 03            pushi 3 // $3 y
  0270:40 fdb8 04        call proc_002c 4 

  0274:35 08              ldi 8 
  0276:65 12             aTop seconds 
  0278:33 49              jmp code_02c3 

        code_027a
  027a:3c                 dup 
  027b:35 03              ldi 3 
  027d:1a                 eq? 
  027e:31 14              bnt code_0294 
  0280:76               push0 
  0281:45 0f 00         callb procedure_000f 0 // cls 

  0284:7a               push2 
  0285:38 012e          pushi 12e // $12e oldMover
  0288:39 04            pushi 4 // $4 x
  028a:40 fd9e 04        call proc_002c 4 

  028e:35 06              ldi 6 
  0290:65 12             aTop seconds 
  0292:33 2f              jmp code_02c3 

        code_0294
  0294:3c                 dup 
  0295:35 04              ldi 4 
  0297:1a                 eq? 
  0298:31 14              bnt code_02ae 
  029a:76               push0 
  029b:45 0f 00         callb procedure_000f 0 // cls 

  029e:7a               push2 
  029f:38 012e          pushi 12e // $12e oldMover
  02a2:39 05            pushi 5 // $5 view
  02a4:40 fdc8 04        call proc_0070 4 

  02a8:35 05              ldi 5 
  02aa:65 12             aTop seconds 
  02ac:33 15              jmp code_02c3 

        code_02ae
  02ae:3c                 dup 
  02af:35 05              ldi 5 
  02b1:1a                 eq? 
  02b2:31 0f              bnt code_02c3 
  02b4:76               push0 
  02b5:45 0f 00         callb procedure_000f 0 // cls 

  02b8:39 7a            pushi 7a // $7a setScript
  02ba:78               push1 
  02bb:74 0288          lofss $0546 // Salute
  02be:72 02df          lofsa $05a0 // Arm
  02c1:4a 06             send 6 


        code_02c3
  02c3:3a                toss 

        code_02c4
  02c4:48                 ret 
    )

)

// 04dc
(instance cycleMouth of Script
    (properties
        client $0
        state $ffff
        start $0
        timer $0
        cycles $0
        seconds $0
        lastSeconds $0
        register $0
        script $0
        caller $0
    )
    (method (doit) // method_02c5
  02c5:39 3c            pushi 3c // $3c doit
  02c7:76               push0 
  02c8:57 05 04         super Script 4 

  02cb:83 02              lal local2 
  02cd:31 08              bnt code_02d7 
  02cf:35 00              ldi 0 
  02d1:a3 02              sal local2 
  02d3:35 01              ldi 1 
  02d5:65 10             aTop cycles 

        code_02d7
  02d7:48                 ret 
    )

    (method (changeState) // method_02d8
  02d8:87 01              lap param1 
  02da:65 0a             aTop state 
  02dc:36                push 
  02dd:3c                 dup 
  02de:35 00              ldi 0 
  02e0:1a                 eq? 
  02e1:31 18              bnt code_02fb 
  02e3:39 07            pushi 7 // $7 cel
  02e5:78               push1 
  02e6:76               push0 
  02e7:39 7e            pushi 7e // $7e setCycle
  02e9:78               push1 
  02ea:51 16            class Fwd 
  02ec:36                push 
  02ed:38 00ca          pushi ca // $ca show
  02f0:76               push0 
  02f1:63 08             pToa client 
  02f3:4a 10             send 10 

  02f5:83 01              lal local1 
  02f7:65 10             aTop cycles 
  02f9:33 2c              jmp code_0327 

        code_02fb
  02fb:3c                 dup 
  02fc:35 01              ldi 1 
  02fe:1a                 eq? 
  02ff:31 26              bnt code_0327 
  0301:39 7a            pushi 7a // $7a setScript
  0303:78               push1 
  0304:76               push0 
  0305:39 7e            pushi 7e // $7e setCycle
  0307:78               push1 
  0308:76               push0 
  0309:39 07            pushi 7 // $7 cel
  030b:78               push1 
  030c:76               push0 
  030d:63 08             pToa client 
  030f:4a 12             send 12 

  0311:67 08             pTos client 
  0313:72 038a          lofsa $06a0 // Mouth
  0316:1a                 eq? 
  0317:31 08              bnt code_0321 
  0319:38 0089          pushi 89 // $89 hide
  031c:76               push0 
  031d:63 08             pToa client 
  031f:4a 04             send 4 


        code_0321
  0321:39 2d            pushi 2d // $2d client
  0323:78               push1 
  0324:76               push0 
  0325:54 06             self 6 


        code_0327
  0327:3a                toss 
  0328:48                 ret 
    )

)

// 0510
(instance ethelEyes of Script
    (properties
        client $0
        state $ffff
        start $0
        timer $0
        cycles $0
        seconds $0
        lastSeconds $0
        register $0
        script $0
        caller $0
    )
    (method (changeState) // method_0329
  0329:87 01              lap param1 
  032b:65 0a             aTop state 
  032d:36                push 
  032e:3c                 dup 
  032f:35 00              ldi 0 
  0331:1a                 eq? 
  0332:31 0b              bnt code_033f 
  0334:7a               push2 
  0335:7a               push2 
  0336:39 05            pushi 5 // $5 view
  0338:43 40 04         callk Random 4 

  033b:65 12             aTop seconds 
  033d:33 22              jmp code_0361 

        code_033f
  033f:3c                 dup 
  0340:35 01              ldi 1 
  0342:1a                 eq? 
  0343:31 1c              bnt code_0361 
  0345:39 06            pushi 6 // $6 loop
  0347:78               push1 
  0348:7a               push2 
  0349:39 05            pushi 5 // $5 view
  034b:39 07            pushi 7 // $7 cel
  034d:43 40 04         callk Random 4 

  0350:36                push 
  0351:39 7e            pushi 7e // $7e setCycle
  0353:7a               push2 
  0354:51 1a            class End 
  0356:36                push 
  0357:7c            pushSelf 
  0358:72 0393          lofsa $06ee // Eye
  035b:4a 0e             send e 

  035d:35 ff              ldi ff 
  035f:65 0a             aTop state 

        code_0361
  0361:3a                toss 
  0362:48                 ret 
    )

)

// 0540
(instance Salute of Script
    (properties
        client $0
        state $ffff
        start $0
        timer $0
        cycles $0
        seconds $0
        lastSeconds $0
        register $0
        script $0
        caller $0
    )
    (method (changeState) // method_0363
  0363:87 01              lap param1 
  0365:65 0a             aTop state 
  0367:36                push 
  0368:3c                 dup 
  0369:35 00              ldi 0 
  036b:1a                 eq? 
  036c:31 31              bnt code_039f 
  036e:88 00ad            lsg gSpyFlags 
  0371:35 02              ldi 2 
  0373:12                 and 
  0374:31 0f              bnt code_0385 
  0376:39 03            pushi 3 // $3 y
  0378:38 012e          pushi 12e // $12e oldMover
  037b:39 06            pushi 6 // $6 loop
  037d:39 58            pushi 58 // $58 dispose
  037f:46 00ff 0000 06  calle ff procedure_0000 6 // Print 


        code_0385
  0385:38 00ca          pushi ca // $ca show
  0388:76               push0 
  0389:38 00d3          pushi d3 // $d3 setMotion
  038c:39 04            pushi 4 // $4 x
  038e:51 1d            class MoveTo 
  0390:36                push 
  0391:38 00b7          pushi b7 // $b7 nearestDist
  0394:39 63            pushi 63 // $63 firstTrue
  0396:7c            pushSelf 
  0397:72 0206          lofsa $05a0 // Arm
  039a:4a 10             send 10 

  039c:32 00b5            jmp code_0454 

        code_039f
  039f:3c                 dup 
  03a0:35 01              ldi 1 
  03a2:1a                 eq? 
  03a3:31 1a              bnt code_03bf 
  03a5:88 00ad            lsg gSpyFlags 
  03a8:35 02              ldi 2 
  03aa:12                 and 
  03ab:18                 not 
  03ac:31 0a              bnt code_03b8 
  03ae:7a               push2 
  03af:38 012e          pushi 12e // $12e oldMover
  03b2:39 07            pushi 7 // $7 cel
  03b4:40 fc74 04        call proc_002c 4 


        code_03b8
  03b8:35 03              ldi 3 
  03ba:65 12             aTop seconds 
  03bc:32 0095            jmp code_0454 

        code_03bf
  03bf:3c                 dup 
  03c0:35 02              ldi 2 
  03c2:1a                 eq? 
  03c3:31 15              bnt code_03da 
  03c5:38 00d3          pushi d3 // $d3 setMotion
  03c8:39 04            pushi 4 // $4 x
  03ca:51 1d            class MoveTo 
  03cc:36                push 
  03cd:38 00cd          pushi cd // $cd xLast
  03d0:39 6a            pushi 6a // $6a prev
  03d2:7c            pushSelf 
  03d3:72 01ca          lofsa $05a0 // Arm
  03d6:4a 0c             send c 

  03d8:33 7a              jmp code_0454 

        code_03da
  03da:3c                 dup 
  03db:35 03              ldi 3 
  03dd:1a                 eq? 
  03de:31 32              bnt code_0412 
  03e0:88 00ad            lsg gSpyFlags 
  03e3:35 02              ldi 2 
  03e5:12                 and 
  03e6:18                 not 
  03e7:31 04              bnt code_03ed 
  03e9:76               push0 
  03ea:45 0f 00         callb procedure_000f 0 // cls 


        code_03ed
  03ed:39 7e            pushi 7e // $7e setCycle
  03ef:78               push1 
  03f0:51 1a            class End 
  03f2:36                push 
  03f3:72 01aa          lofsa $05a0 // Arm
  03f6:4a 06             send 6 

  03f8:38 00ca          pushi ca // $ca show
  03fb:76               push0 
  03fc:38 00a4          pushi a4 // $a4 cycleSpeed
  03ff:78               push1 
  0400:7a               push2 
  0401:39 7e            pushi 7e // $7e setCycle
  0403:78               push1 
  0404:51 16            class Fwd 
  0406:36                push 
  0407:72 0296          lofsa $06a0 // Mouth
  040a:4a 10             send 10 

  040c:35 02              ldi 2 
  040e:65 12             aTop seconds 
  0410:33 42              jmp code_0454 

        code_0412
  0412:3c                 dup 
  0413:35 04              ldi 4 
  0415:1a                 eq? 
  0416:31 24              bnt code_043c 
  0418:38 0089          pushi 89 // $89 hide
  041b:76               push0 
  041c:72 0281          lofsa $06a0 // Mouth
  041f:4a 04             send 4 

  0421:38 00a2          pushi a2 // $a2 setCel
  0424:78               push1 
  0425:76               push0 
  0426:38 00d3          pushi d3 // $d3 setMotion
  0429:39 04            pushi 4 // $4 x
  042b:51 1d            class MoveTo 
  042d:36                push 
  042e:38 00c7          pushi c7 // $c7 forceUpd
  0431:38 0086          pushi 86 // $86 pause
  0434:7c            pushSelf 
  0435:72 0168          lofsa $05a0 // Arm
  0438:4a 12             send 12 

  043a:33 18              jmp code_0454 

        code_043c
  043c:3c                 dup 
  043d:35 05              ldi 5 
  043f:1a                 eq? 
  0440:31 12              bnt code_0454 
  0442:39 7a            pushi 7a // $7a setScript
  0444:78               push1 
  0445:76               push0 
  0446:63 08             pToa client 
  0448:4a 06             send 6 

  044a:38 00f8          pushi f8 // $f8 newRoom
  044d:78               push1 
  044e:89 0c              lsg gPrevRoomNum 
  0450:81 02              lag gCurRoom 
  0452:4a 06             send 6 


        code_0454
  0454:3a                toss 
  0455:48                 ret 
    )

)

// 0570
(instance parrotBody of PV
    (properties
        y $67
        x $54
        z $0
        heading $0
        view $20d
        loop $0
        cel $0
        priority $1
        signal $0
    )
)

// 059a
(instance Arm of Act
    (properties
        y $86
        x $c7
        z $0
        heading $0
        yStep $2
        view $144
        loop $0
        cel $0
        priority $0
        underBits $0
        signal $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
        lsTop $0
        lsLeft $0
        lsBottom $0
        lsRight $0
        brTop $0
        brLeft $0
        brBottom $0
        brRight $0
        cycleSpeed $0
        script $0
        cycler $0
        timer $0
        illegalBits $8000
        xLast $0
        yLast $0
        xStep $3
        moveSpeed $0
        blocks $0
        baseSetter $0
        mover $0
        looper $0
        viewer $0
        avoider $0
    )
)

// 05fe
(instance Ethel of Prop
    (properties
        y $6a
        x $de
        z $0
        heading $0
        yStep $2
        view $144
        loop $3
        cel $0
        priority $0
        underBits $0
        signal $4000
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
        lsTop $0
        lsLeft $0
        lsBottom $0
        lsRight $0
        brTop $0
        brLeft $0
        brBottom $0
        brRight $0
        cycleSpeed $0
        script $0
        cycler $0
        timer $0
    )
)

// 064c
(instance ParrotMouth of Prop
    (properties
        y $45
        x $5c
        z $0
        heading $0
        yStep $2
        view $20d
        loop $1
        cel $0
        priority $0
        underBits $0
        signal $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
        lsTop $0
        lsLeft $0
        lsBottom $0
        lsRight $0
        brTop $0
        brLeft $0
        brBottom $0
        brRight $0
        cycleSpeed $0
        script $0
        cycler $0
        timer $0
    )
)

// 069a
(instance Mouth of Prop
    (properties
        y $59
        x $d4
        z $0
        heading $0
        yStep $2
        view $144
        loop $4
        cel $0
        priority $0
        underBits $0
        signal $4000
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
        lsTop $0
        lsLeft $0
        lsBottom $0
        lsRight $0
        brTop $0
        brLeft $0
        brBottom $0
        brRight $0
        cycleSpeed $1
        script $0
        cycler $0
        timer $0
    )
)

// 06e8
(instance Eye of Prop
    (properties
        y $4a
        x $d4
        z $0
        heading $0
        yStep $2
        view $144
        loop $5
        cel $0
        priority $0
        underBits $0
        signal $4000
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
        lsTop $0
        lsLeft $0
        lsBottom $0
        lsRight $0
        brTop $0
        brLeft $0
        brBottom $0
        brRight $0
        cycleSpeed $0
        script $0
        cycler $0
        timer $0
    )
)

// 0736
(instance myMusic of Sound
    (properties
        state $0
        number $0
        priority $0
        loop $1
        handle $0
        signal $0
        prevSignal $0
        client $0
        owner $0
    )
)



(procedure proc_000c
  000c:3e 01f4           link 1f4 // (var $1f4)
  000f:78               push1 
  0010:59 01            &rest 1 
  0012:5b 04 00           lea 4 0 
  0015:36                push 
  0016:43 4d 02         callk GetFarText 2 

  0019:78               push1 
  001a:5b 04 00           lea 4 0 
  001d:36                push 
  001e:43 4a 02         callk StrLen 2 

  0021:36                push 
  0022:35 03              ldi 3 
  0024:08                 div 
  0025:36                push 
  0026:35 01              ldi 1 
  0028:02                 add 
  0029:a3 01              sal local1 
  002b:48                 ret 
)

(procedure proc_002c
  002c:76               push0 
  002d:59 01            &rest 1 
  002f:41 da 00          call proc_000c 0 

  0032:8b 01              lsl local1 
  0034:8b 01              lsl local1 
  0036:35 04              ldi 4 
  0038:08                 div 
  0039:02                 add 
  003a:a3 01              sal local1 
  003c:39 7a            pushi 7a // $7a setScript
  003e:78               push1 
  003f:74 04a0          lofss $04e2 // cycleMouth
  0042:72 065b          lofsa $06a0 // Mouth
  0045:4a 06             send 6 

  0047:39 7e            pushi 7e // $7e setCycle
  0049:78               push1 
  004a:76               push0 
  004b:72 0604          lofsa $0652 // ParrotMouth
  004e:4a 06             send 6 

  0050:39 0a            pushi a // $a nsLeft
  0052:59 01            &rest 1 
  0054:39 43            pushi 43 // $43 at
  0056:38 00a0          pushi a0 // $a0 cycleDone
  0059:39 78            pushi 78 // $78 changeState
  005b:39 21            pushi 21 // $21 font
  005d:39 04            pushi 4 // $4 x
  005f:39 46            pushi 46 // $46 width
  0061:38 008c          pushi 8c // $8c track
  0064:39 1e            pushi 1e // $1e mode
  0066:78               push1 
  0067:39 58            pushi 58 // $58 dispose
  0069:46 00ff 0000 14  calle ff procedure_0000 14 // Print 

  006f:48                 ret 
)

(procedure proc_0070
  0070:76               push0 
  0071:59 01            &rest 1 
  0073:41 96 00          call proc_000c 0 

  0076:39 7a            pushi 7a // $7a setScript
  0078:78               push1 
  0079:74 0466          lofss $04e2 // cycleMouth
  007c:72 05d3          lofsa $0652 // ParrotMouth
  007f:4a 06             send 6 

  0081:39 7e            pushi 7e // $7e setCycle
  0083:78               push1 
  0084:76               push0 
  0085:72 0618          lofsa $06a0 // Mouth
  0088:4a 06             send 6 

  008a:39 0a            pushi a // $a nsLeft
  008c:59 01            &rest 1 
  008e:39 43            pushi 43 // $43 at
  0090:39 14            pushi 14 // $14 brLeft
  0092:39 78            pushi 78 // $78 changeState
  0094:39 21            pushi 21 // $21 font
  0096:39 04            pushi 4 // $4 x
  0098:39 46            pushi 46 // $46 width
  009a:38 008c          pushi 8c // $8c track
  009d:39 1e            pushi 1e // $1e mode
  009f:78               push1 
  00a0:39 58            pushi 58 // $58 dispose
  00a2:46 00ff 0000 14  calle ff procedure_0000 14 // Print 

  00a8:48                 ret 
  00a9:39 6f            pushi 6f // $6f handleEvent
  00ab:78               push1 
  00ac:8f 01              lsp param1 
  00ae:57 37 06         super Rm 6 

  00b1:39 4c            pushi 4c // $4c claimed
  00b3:76               push0 
  00b4:87 01              lap param1 
  00b6:4a 04             send 4 

  00b8:18                 not 
  00b9:31 34              bnt code_00ef 
  00bb:39 04            pushi 4 // $4 x
  00bd:39 22            pushi 22 // $22 type
  00bf:76               push0 
  00c0:87 01              lap param1 
  00c2:4a 04             send 4 

  00c4:1a                 eq? 
  00c5:31 28              bnt code_00ef 
  00c7:39 28            pushi 28 // $28 message
  00c9:76               push0 
  00ca:87 01              lap param1 
  00cc:4a 04             send 4 

  00ce:36                push 
  00cf:35 53              ldi 53 
  00d1:1a                 eq? 
  00d2:2f 0d               bt code_00e1 
  00d4:39 28            pushi 28 // $28 message
  00d6:76               push0 
  00d7:87 01              lap param1 
  00d9:4a 04             send 4 

  00db:36                push 
  00dc:35 73              ldi 73 
  00de:1a                 eq? 
  00df:31 0e              bnt code_00ef 

        code_00e1
  00e1:76               push0 
  00e2:45 0f 00         callb procedure_000f 0 // cls 

  00e5:38 00f8          pushi f8 // $f8 newRoom
  00e8:78               push1 
  00e9:89 0c              lsg gPrevRoomNum 
  00eb:81 02              lag gCurRoom 
  00ed:4a 06             send 6 


        code_00ef
  00ef:48                 ret 
)

