(script 321)

(string
    string_0c5e "Gloria"
    string_0c65 "GlorsEyes"
    string_0c6f "Hand"
    string_0c74 "Rudy"
    string_0c79 "RudysEyes"
    string_0c83 "Smoke"
    string_0c89 "cycleMouth"
    string_0c94 "glorEye"
    string_0c9c "glorMouth"
    string_0ca6 "glow"
    string_0cab "myMusic"
    string_0cb3 "noOne"
    string_0cb9 "puff"
    string_0cbe "rudyEye"
    string_0cc6 "rudyMouth"
    string_0cd0 "scene36a"
    string_0cd9 "speech36a"
    string_0ce3 "twice"
    string_0ce9 ""
)

(said
)

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

// 0762
(instance public scene36a 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_00d4
  00d4:39 57            pushi 57 // $57 init
  00d6:76               push0 
  00d7:57 37 04         super Rm 4 

  00da:7a               push2 
  00db:38 0087          pushi 87 // $87 clean
  00de:39 04            pushi 4 // $4 x
  00e0:43 00 04         callk Load 4 

  00e3:76               push0 
  00e4:45 03 00         callb procedure_0003 0 // HandsOff 

  00e7:39 2b            pushi 2b // $2b number
  00e9:78               push1 
  00ea:39 1b            pushi 1b // $1b elements
  00ec:39 06            pushi 6 // $6 loop
  00ee:78               push1 
  00ef:39 ff            pushi ff // $ff checkAni
  00f1:39 2a            pushi 2a // $2a play
  00f3:76               push0 
  00f4:72 0b37          lofsa $0c2e // myMusic
  00f7:4a 10             send 10 

  00f9:88 00ad            lsg gSpyFlags 
  00fc:35 01              ldi 1 
  00fe:12                 and 
  00ff:18                 not 
  0100:31 7e              bnt code_0180 
  0102:88 0170            lsg gCycleTimers 
  0105:35 01              ldi 1 
  0107:1a                 eq? 
  0108:31 0b              bnt code_0115 
  010a:76               push0 
  010b:41 a5 00          call proc_00b3 0 

  010e:35 01              ldi 1 
  0110:a0 00c7            sag global199 
  0113:33 6b              jmp code_0180 

        code_0115
  0115:7a               push2 
  0116:38 0087          pushi 87 // $87 clean
  0119:39 29            pushi 29 // $29 edit
  011b:43 00 04         callk Load 4 

  011e:7a               push2 
  011f:38 008f          pushi 8f // $8f moveTo
  0122:38 0196          pushi 196 // $196 sel_406
  0125:45 15 04         callb procedure_0015 4 // LoadMany 

  0128:7a               push2 
  0129:38 0080          pushi 80 // $80 timeLeft
  012c:38 0282          pushi 282 // $282 sel_642
  012f:43 00 04         callk Load 4 

  0132:39 05            pushi 5 // $5 view
  0134:38 0084          pushi 84 // $84 stop
  0137:39 1d            pushi 1d // $1d back
  0139:39 5e            pushi 5e // $5e respondsTo
  013b:39 5f            pushi 5f // $5f yourself
  013d:39 60            pushi 60 // $60 size
  013f:45 15 0a         callb procedure_0015 a // LoadMany 

  0142:39 42            pushi 42 // $42 setPri
  0144:78               push1 
  0145:78               push1 
  0146:39 57            pushi 57 // $57 init
  0148:76               push0 
  0149:38 00c6          pushi c6 // $c6 stopUpd
  014c:76               push0 
  014d:72 07de          lofsa $092e // Rudy
  0150:4a 0e             send e 

  0152:39 42            pushi 42 // $42 setPri
  0154:78               push1 
  0155:7a               push2 
  0156:39 57            pushi 57 // $57 init
  0158:76               push0 
  0159:38 0089          pushi 89 // $89 hide
  015c:76               push0 
  015d:72 0896          lofsa $09f6 // rudyMouth
  0160:4a 0e             send e 

  0162:39 42            pushi 42 // $42 setPri
  0164:78               push1 
  0165:7a               push2 
  0166:39 57            pushi 57 // $57 init
  0168:76               push0 
  0169:38 00c6          pushi c6 // $c6 stopUpd
  016c:76               push0 
  016d:39 7a            pushi 7a // $7a setScript
  016f:78               push1 
  0170:74 0641          lofss $07b4 // RudysEyes
  0173:72 091c          lofsa $0a92 // rudyEye
  0176:4a 14             send 14 

  0178:39 7a            pushi 7a // $7a setScript
  017a:78               push1 
  017b:74 0696          lofss $0814 // speech36a
  017e:54 06             self 6 


        code_0180
  0180:88 00c7            lsg global199 
  0183:35 01              ldi 1 
  0185:1a                 eq? 
  0186:31 0b              bnt code_0193 
  0188:39 7a            pushi 7a // $7a setScript
  018a:78               push1 
  018b:74 06ee          lofss $087c // noOne
  018e:54 06             self 6 

  0190:32 009d            jmp code_0230 

        code_0193
  0193:38 00c8          pushi c8 // $c8 setLoop
  0196:78               push1 
  0197:39 04            pushi 4 // $4 x
  0199:39 42            pushi 42 // $42 setPri
  019b:78               push1 
  019c:7a               push2 
  019d:38 00c9          pushi c9 // $c9 ignoreActors
  01a0:78               push1 
  01a1:78               push1 
  01a2:39 57            pushi 57 // $57 init
  01a4:76               push0 
  01a5:38 00c6          pushi c6 // $c6 stopUpd
  01a8:76               push0 
  01a9:38 0089          pushi 89 // $89 hide
  01ac:76               push0 
  01ad:72 07e2          lofsa $0992 // Smoke
  01b0:4a 1e             send 1e 

  01b2:39 57            pushi 57 // $57 init
  01b4:76               push0 
  01b5:38 00c6          pushi c6 // $c6 stopUpd
  01b8:76               push0 
  01b9:38 0089          pushi 89 // $89 hide
  01bc:76               push0 
  01bd:72 096e          lofsa $0b2e // glow
  01c0:4a 0c             send c 

  01c2:39 42            pushi 42 // $42 setPri
  01c4:78               push1 
  01c5:7a               push2 
  01c6:39 57            pushi 57 // $57 init
  01c8:76               push0 
  01c9:72 0878          lofsa $0a44 // glorMouth
  01cc:4a 0a             send a 

  01ce:39 42            pushi 42 // $42 setPri
  01d0:78               push1 
  01d1:7a               push2 
  01d2:39 57            pushi 57 // $57 init
  01d4:76               push0 
  01d5:38 00c6          pushi c6 // $c6 stopUpd
  01d8:76               push0 
  01d9:39 7a            pushi 7a // $7a setScript
  01db:78               push1 
  01dc:74 0605          lofss $07e4 // GlorsEyes
  01df:72 08fe          lofsa $0ae0 // glorEye
  01e2:4a 14             send 14 

  01e4:39 42            pushi 42 // $42 setPri
  01e6:78               push1 
  01e7:78               push1 
  01e8:39 57            pushi 57 // $57 init
  01ea:76               push0 
  01eb:72 06f2          lofsa $08e0 // Gloria
  01ee:4a 0a             send a 

  01f0:39 42            pushi 42 // $42 setPri
  01f2:78               push1 
  01f3:78               push1 
  01f4:39 57            pushi 57 // $57 init
  01f6:76               push0 
  01f7:38 0089          pushi 89 // $89 hide
  01fa:76               push0 
  01fb:72 097e          lofsa $0b7c // puff
  01fe:4a 0e             send e 

  0200:38 00c8          pushi c8 // $c8 setLoop
  0203:78               push1 
  0204:78               push1 
  0205:38 00a2          pushi a2 // $a2 setCel
  0208:78               push1 
  0209:76               push0 
  020a:39 42            pushi 42 // $42 setPri
  020c:78               push1 
  020d:39 03            pushi 3 // $3 y
  020f:38 00c9          pushi c9 // $c9 ignoreActors
  0212:78               push1 
  0213:78               push1 
  0214:39 57            pushi 57 // $57 init
  0216:76               push0 
  0217:38 00c6          pushi c6 // $c6 stopUpd
  021a:76               push0 
  021b:72 09ac          lofsa $0bca // Hand
  021e:4a 20             send 20 

  0220:88 00ad            lsg gSpyFlags 
  0223:35 01              ldi 1 
  0225:12                 and 
  0226:31 08              bnt code_0230 
  0228:39 7a            pushi 7a // $7a setScript
  022a:78               push1 
  022b:74 061e          lofss $084c // twice
  022e:54 06             self 6 


        code_0230
  0230:48                 ret 
    )

    (method (doit) // method_0231
  0231:39 3c            pushi 3c // $3c doit
  0233:76               push0 
  0234:57 37 04         super Rm 4 

  0237:48                 ret 
    )

    (method (dispose) // method_0238
  0238:39 58            pushi 58 // $58 dispose
  023a:76               push0 
  023b:57 37 04         super Rm 4 

  023e:48                 ret 
    )

    (method (handleEvent) // method_023f
  023f:39 6f            pushi 6f // $6f handleEvent
  0241:78               push1 
  0242:8f 01              lsp param1 
  0244:57 37 06         super Rm 6 

  0247:48                 ret 
    )

)

// 07ae
(instance RudysEyes 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_0248
  0248:87 01              lap param1 
  024a:65 0a             aTop state 
  024c:36                push 
  024d:3c                 dup 
  024e:35 00              ldi 0 
  0250:1a                 eq? 
  0251:31 1f              bnt code_0272 
  0253:38 00c8          pushi c8 // $c8 setLoop
  0256:78               push1 
  0257:39 08            pushi 8 // $8 underBits
  0259:38 00a2          pushi a2 // $a2 setCel
  025c:78               push1 
  025d:76               push0 
  025e:38 00c7          pushi c7 // $c7 forceUpd
  0261:76               push0 
  0262:72 082d          lofsa $0a92 // rudyEye
  0265:4a 10             send 10 

  0267:7a               push2 
  0268:78               push1 
  0269:39 03            pushi 3 // $3 y
  026b:43 40 04         callk Random 4 

  026e:65 12             aTop seconds 
  0270:33 5a              jmp code_02cc 

        code_0272
  0272:3c                 dup 
  0273:35 01              ldi 1 
  0275:1a                 eq? 
  0276:31 54              bnt code_02cc 
  0278:83 01              lal local1 
  027a:18                 not 
  027b:31 2a              bnt code_02a7 
  027d:7a               push2 
  027e:78               push1 
  027f:7a               push2 
  0280:43 40 04         callk Random 4 

  0283:36                push 
  0284:35 01              ldi 1 
  0286:1a                 eq? 
  0287:31 1e              bnt code_02a7 
  0289:38 00c8          pushi c8 // $c8 setLoop
  028c:78               push1 
  028d:39 07            pushi 7 // $7 cel
  028f:38 00a2          pushi a2 // $a2 setCel
  0292:78               push1 
  0293:78               push1 
  0294:38 00c7          pushi c7 // $c7 forceUpd
  0297:76               push0 
  0298:72 07f7          lofsa $0a92 // rudyEye
  029b:4a 10             send 10 

  029d:35 01              ldi 1 
  029f:a3 01              sal local1 
  02a1:35 01              ldi 1 
  02a3:65 10             aTop cycles 
  02a5:33 21              jmp code_02c8 

        code_02a7
  02a7:38 00c8          pushi c8 // $c8 setLoop
  02aa:78               push1 
  02ab:39 08            pushi 8 // $8 underBits
  02ad:38 00a2          pushi a2 // $a2 setCel
  02b0:78               push1 
  02b1:78               push1 
  02b2:38 00c7          pushi c7 // $c7 forceUpd
  02b5:76               push0 
  02b6:72 07d9          lofsa $0a92 // rudyEye
  02b9:4a 10             send 10 

  02bb:35 00              ldi 0 
  02bd:a3 01              sal local1 
  02bf:7a               push2 
  02c0:78               push1 
  02c1:39 03            pushi 3 // $3 y
  02c3:43 40 04         callk Random 4 

  02c6:65 12             aTop seconds 

        code_02c8
  02c8:35 ff              ldi ff 
  02ca:65 0a             aTop state 

        code_02cc
  02cc:3a                toss 
  02cd:48                 ret 
    )

)

// 07de
(instance GlorsEyes 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_02ce
  02ce:87 01              lap param1 
  02d0:65 0a             aTop state 
  02d2:36                push 
  02d3:3c                 dup 
  02d4:35 00              ldi 0 
  02d6:1a                 eq? 
  02d7:31 0b              bnt code_02e4 
  02d9:7a               push2 
  02da:7a               push2 
  02db:39 05            pushi 5 // $5 view
  02dd:43 40 04         callk Random 4 

  02e0:65 12             aTop seconds 
  02e2:33 16              jmp code_02fa 

        code_02e4
  02e4:3c                 dup 
  02e5:35 01              ldi 1 
  02e7:1a                 eq? 
  02e8:31 10              bnt code_02fa 
  02ea:39 7e            pushi 7e // $7e setCycle
  02ec:7a               push2 
  02ed:51 1b            class Beg 
  02ef:36                push 
  02f0:7c            pushSelf 
  02f1:72 07ec          lofsa $0ae0 // glorEye
  02f4:4a 08             send 8 

  02f6:35 ff              ldi ff 
  02f8:65 0a             aTop state 

        code_02fa
  02fa:3a                toss 
  02fb:48                 ret 
    )

)

// 080e
(instance speech36a 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_02fc
  02fc:39 6f            pushi 6f // $6f handleEvent
  02fe:78               push1 
  02ff:8f 01              lsp param1 
  0301:57 05 06         super Script 6 

  0304:39 4c            pushi 4c // $4c claimed
  0306:76               push0 
  0307:87 01              lap param1 
  0309:4a 04             send 4 

  030b:18                 not 
  030c:31 42              bnt code_0350 
  030e:39 04            pushi 4 // $4 x
  0310:39 22            pushi 22 // $22 type
  0312:76               push0 
  0313:87 01              lap param1 
  0315:4a 04             send 4 

  0317:1a                 eq? 
  0318:31 36              bnt code_0350 
  031a:39 28            pushi 28 // $28 message
  031c:76               push0 
  031d:87 01              lap param1 
  031f:4a 04             send 4 

  0321:36                push 
  0322:35 53              ldi 53 
  0324:1a                 eq? 
  0325:2f 0d               bt code_0334 
  0327:39 28            pushi 28 // $28 message
  0329:76               push0 
  032a:87 01              lap param1 
  032c:4a 04             send 4 

  032e:36                push 
  032f:35 73              ldi 73 
  0331:1a                 eq? 
  0332:31 1c              bnt code_0350 

        code_0334
  0334:76               push0 
  0335:45 0f 00         callb procedure_000f 0 // cls 

  0338:88 00ad            lsg gSpyFlags 
  033b:35 01              ldi 1 
  033d:12                 and 
  033e:18                 not 
  033f:31 05              bnt code_0346 
  0341:76               push0 
  0342:40 fd6d 00        call proc_00b3 0 


        code_0346
  0346:38 00f8          pushi f8 // $f8 newRoom
  0349:78               push1 
  034a:89 0c              lsg gPrevRoomNum 
  034c:81 02              lag gCurRoom 
  034e:4a 06             send 6 


        code_0350
  0350:48                 ret 
    )

    (method (doit) // method_0351
  0351:39 3c            pushi 3c // $3c doit
  0353:76               push0 
  0354:57 05 04         super Script 4 

  0357:67 0a             pTos state 
  0359:35 01              ldi 1 
  035b:20                 ge? 
  035c:30 0105            bnt code_0464 
  035f:67 0a             pTos state 
  0361:35 02              ldi 2 
  0363:0a                 mod 
  0364:36                push 
  0365:35 00              ldi 0 
  0367:1a                 eq? 
  0368:31 71              bnt code_03db 
  036a:63 0a             pToa state 
  036c:31 6d              bnt code_03db 
  036e:67 0a             pTos state 
  0370:35 0c              ldi c 
  0372:1c                 ne? 
  0373:31 66              bnt code_03db 
  0375:35 00              ldi 0 
  0377:a3 00              sal local0 
  0379:39 06            pushi 6 // $6 loop
  037b:78               push1 
  037c:39 03            pushi 3 // $3 y
  037e:38 00a4          pushi a4 // $a4 cycleSpeed
  0381:78               push1 
  0382:76               push0 
  0383:72 06be          lofsa $0a44 // glorMouth
  0386:4a 0c             send c 

  0388:38 00d3          pushi d3 // $d3 setMotion
  038b:39 03            pushi 3 // $3 y
  038d:51 1d            class MoveTo 
  038f:36                push 
  0390:38 00a7          pushi a7 // $a7 isStopped
  0393:39 6f            pushi 6f // $6f handleEvent
  0395:72 0832          lofsa $0bca // Hand
  0398:4a 0a             send a 

  039a:38 0089          pushi 89 // $89 hide
  039d:76               push0 
  039e:72 078d          lofsa $0b2e // glow
  03a1:4a 04             send 4 

  03a3:39 04            pushi 4 // $4 x
  03a5:76               push0 
  03a6:72 0821          lofsa $0bca // Hand
  03a9:4a 04             send 4 

  03ab:36                push 
  03ac:34 00a7            ldi a7 
  03af:1a                 eq? 
  03b0:31 26              bnt code_03d8 
  03b2:39 03            pushi 3 // $3 y
  03b4:76               push0 
  03b5:72 0812          lofsa $0bca // Hand
  03b8:4a 04             send 4 

  03ba:36                push 
  03bb:35 6f              ldi 6f 
  03bd:1a                 eq? 
  03be:31 18              bnt code_03d8 
  03c0:38 00c5          pushi c5 // $c5 posn
  03c3:7a               push2 
  03c4:38 0094          pushi 94 // $94 retreat
  03c7:39 59            pushi 59 // $59 showStr
  03c9:38 00ca          pushi ca // $ca show
  03cc:76               push0 
  03cd:39 7e            pushi 7e // $7e setCycle
  03cf:78               push1 
  03d0:51 16            class Fwd 
  03d2:36                push 
  03d3:72 05bc          lofsa $0992 // Smoke
  03d6:4a 12             send 12 


        code_03d8
  03d8:32 0089            jmp code_0464 

        code_03db
  03db:39 04            pushi 4 // $4 x
  03dd:76               push0 
  03de:72 07e9          lofsa $0bca // Hand
  03e1:4a 04             send 4 

  03e3:36                push 
  03e4:34 00ba            ldi ba 
  03e7:1a                 eq? 
  03e8:31 46              bnt code_0430 
  03ea:39 03            pushi 3 // $3 y
  03ec:76               push0 
  03ed:72 07da          lofsa $0bca // Hand
  03f0:4a 04             send 4 

  03f2:36                push 
  03f3:35 6f              ldi 6f 
  03f5:1a                 eq? 
  03f6:31 38              bnt code_0430 
  03f8:8b 00              lsl local0 
  03fa:35 00              ldi 0 
  03fc:1a                 eq? 
  03fd:31 31              bnt code_0430 
  03ff:35 01              ldi 1 
  0401:a3 00              sal local0 
  0403:38 00ca          pushi ca // $ca show
  0406:76               push0 
  0407:72 0724          lofsa $0b2e // glow
  040a:4a 04             send 4 

  040c:39 06            pushi 6 // $6 loop
  040e:78               push1 
  040f:7a               push2 
  0410:38 00a4          pushi a4 // $a4 cycleSpeed
  0413:78               push1 
  0414:39 03            pushi 3 // $3 y
  0416:39 7e            pushi 7e // $7e setCycle
  0418:78               push1 
  0419:51 16            class Fwd 
  041b:36                push 
  041c:38 00ca          pushi ca // $ca show
  041f:76               push0 
  0420:72 0621          lofsa $0a44 // glorMouth
  0423:4a 16             send 16 

  0425:38 0089          pushi 89 // $89 hide
  0428:76               push0 
  0429:72 0566          lofsa $0992 // Smoke
  042c:4a 04             send 4 

  042e:33 34              jmp code_0464 

        code_0430
  0430:83 00              lal local0 
  0432:18                 not 
  0433:31 2f              bnt code_0464 
  0435:38 00d3          pushi d3 // $d3 setMotion
  0438:39 03            pushi 3 // $3 y
  043a:51 1d            class MoveTo 
  043c:36                push 
  043d:38 00ba          pushi ba // $ba targetX
  0440:39 6f            pushi 6f // $6f handleEvent
  0442:72 0785          lofsa $0bca // Hand
  0445:4a 0a             send a 

  0447:38 00d3          pushi d3 // $d3 setMotion
  044a:39 03            pushi 3 // $3 y
  044c:51 1d            class MoveTo 
  044e:36                push 
  044f:38 00a9          pushi a9 // $a9 moveDone
  0452:39 59            pushi 59 // $59 showStr
  0454:72 053b          lofsa $0992 // Smoke
  0457:4a 0a             send a 

  0459:39 7e            pushi 7e // $7e setCycle
  045b:78               push1 
  045c:51 1a            class End 
  045e:36                push 
  045f:72 05e2          lofsa $0a44 // glorMouth
  0462:4a 06             send 6 


        code_0464
  0464:48                 ret 
    )

    (method (changeState) // method_0465
  0465:39 2d            pushi 2d // $2d client
  0467:76               push0 
  0468:72 0441          lofsa $08ac // cycleMouth
  046b:4a 04             send 4 

  046d:31 0b              bnt code_047a 
  046f:35 01              ldi 1 
  0471:a3 03              sal local3 
  0473:35 01              ldi 1 
  0475:65 10             aTop cycles 
  0477:32 01b8            jmp code_0632 

        code_047a
  047a:87 01              lap param1 
  047c:65 0a             aTop state 
  047e:36                push 
  047f:3c                 dup 
  0480:35 00              ldi 0 
  0482:1a                 eq? 
  0483:31 41              bnt code_04c6 
  0485:80 00d8            lag global216 
  0488:18                 not 
  0489:31 06              bnt code_0491 
  048b:35 ff              ldi ff 
  048d:65 0a             aTop state 
  048f:33 2e              jmp code_04bf 

        code_0491
  0491:89 76              lsg gMustDos 
  0493:35 01              ldi 1 
  0495:12                 and 
  0496:18                 not 
  0497:31 1b              bnt code_04b4 
  0499:89 76              lsg gMustDos 
  049b:35 01              ldi 1 
  049d:14                  or 
  049e:a1 76              sag gMustDos 
  04a0:39 7a            pushi 7a // $7a setScript
  04a2:78               push1 
  04a3:7a               push2 
  04a4:38 0196          pushi 196 // $196 sel_406
  04a7:76               push0 
  04a8:43 02 04         callk ScriptID 4 

  04ab:36                push 
  04ac:54 06             self 6 

  04ae:35 ff              ldi ff 
  04b0:65 0a             aTop state 
  04b2:33 0b              jmp code_04bf 

        code_04b4
  04b4:39 76            pushi 76 // $76 script
  04b6:76               push0 
  04b7:54 04             self 4 

  04b9:31 04              bnt code_04bf 
  04bb:35 ff              ldi ff 
  04bd:65 0a             aTop state 

        code_04bf
  04bf:35 01              ldi 1 
  04c1:65 10             aTop cycles 
  04c3:32 016b            jmp code_0631 

        code_04c6
  04c6:3c                 dup 
  04c7:35 01              ldi 1 
  04c9:1a                 eq? 
  04ca:31 33              bnt code_04ff 
  04cc:39 0e            pushi e // $e lsLeft
  04ce:38 0141          pushi 141 // $141 downRoomNo
  04d1:76               push0 
  04d2:39 64            pushi 64 // $64 allTrue
  04d4:39 30            pushi 30 // $30 b-moveCnt
  04d6:39 08            pushi 8 // $8 underBits
  04d8:39 6a            pushi 6a // $6a prev
  04da:38 0100          pushi 100 // $100 notify
  04dd:39 66            pushi 66 // $66 isEmpty
  04df:39 0f            pushi f // $f lsBottom
  04e1:39 67            pushi 67 // $67 first
  04e3:39 ff            pushi ff // $ff checkAni
  04e5:39 69            pushi 69 // $69 last
  04e7:76               push0 
  04e8:39 6b            pushi 6b // $6b addToFront
  04ea:43 1b 1c         callk Display 1c 

  04ed:a3 04              sal local4 
  04ef:7a               push2 
  04f0:38 0141          pushi 141 // $141 downRoomNo
  04f3:78               push1 
  04f4:40 fb82 04        call proc_007a 4 

  04f8:35 0a              ldi a 
  04fa:65 12             aTop seconds 
  04fc:32 0132            jmp code_0631 

        code_04ff
  04ff:3c                 dup 
  0500:35 02              ldi 2 
  0502:1a                 eq? 
  0503:31 10              bnt code_0515 
  0505:7a               push2 
  0506:38 0141          pushi 141 // $141 downRoomNo
  0509:7a               push2 
  050a:40 fb1e 04        call proc_002c 4 

  050e:35 04              ldi 4 
  0510:65 12             aTop seconds 
  0512:32 011c            jmp code_0631 

        code_0515
  0515:3c                 dup 
  0516:35 03              ldi 3 
  0518:1a                 eq? 
  0519:31 11              bnt code_052c 
  051b:7a               push2 
  051c:38 0141          pushi 141 // $141 downRoomNo
  051f:39 03            pushi 3 // $3 y
  0521:40 fb55 04        call proc_007a 4 

  0525:35 07              ldi 7 
  0527:65 12             aTop seconds 
  0529:32 0105            jmp code_0631 

        code_052c
  052c:3c                 dup 
  052d:35 04              ldi 4 
  052f:1a                 eq? 
  0530:31 11              bnt code_0543 
  0532:7a               push2 
  0533:38 0141          pushi 141 // $141 downRoomNo
  0536:39 04            pushi 4 // $4 x
  0538:40 faf0 04        call proc_002c 4 

  053c:35 0a              ldi a 
  053e:65 12             aTop seconds 
  0540:32 00ee            jmp code_0631 

        code_0543
  0543:3c                 dup 
  0544:35 05              ldi 5 
  0546:1a                 eq? 
  0547:31 11              bnt code_055a 
  0549:7a               push2 
  054a:38 0141          pushi 141 // $141 downRoomNo
  054d:39 05            pushi 5 // $5 view
  054f:40 fb27 04        call proc_007a 4 

  0553:35 08              ldi 8 
  0555:65 12             aTop seconds 
  0557:32 00d7            jmp code_0631 

        code_055a
  055a:3c                 dup 
  055b:35 06              ldi 6 
  055d:1a                 eq? 
  055e:31 11              bnt code_0571 
  0560:7a               push2 
  0561:38 0141          pushi 141 // $141 downRoomNo
  0564:39 06            pushi 6 // $6 loop
  0566:40 fac2 04        call proc_002c 4 

  056a:35 0a              ldi a 
  056c:65 12             aTop seconds 
  056e:32 00c0            jmp code_0631 

        code_0571
  0571:3c                 dup 
  0572:35 07              ldi 7 
  0574:1a                 eq? 
  0575:31 11              bnt code_0588 
  0577:7a               push2 
  0578:38 0141          pushi 141 // $141 downRoomNo
  057b:39 07            pushi 7 // $7 cel
  057d:40 faf9 04        call proc_007a 4 

  0581:35 08              ldi 8 
  0583:65 12             aTop seconds 
  0585:32 00a9            jmp code_0631 

        code_0588
  0588:3c                 dup 
  0589:35 08              ldi 8 
  058b:1a                 eq? 
  058c:31 11              bnt code_059f 
  058e:7a               push2 
  058f:38 0141          pushi 141 // $141 downRoomNo
  0592:39 08            pushi 8 // $8 underBits
  0594:40 fa94 04        call proc_002c 4 

  0598:35 0a              ldi a 
  059a:65 12             aTop seconds 
  059c:32 0092            jmp code_0631 

        code_059f
  059f:3c                 dup 
  05a0:35 09              ldi 9 
  05a2:1a                 eq? 
  05a3:31 10              bnt code_05b5 
  05a5:7a               push2 
  05a6:38 0141          pushi 141 // $141 downRoomNo
  05a9:39 09            pushi 9 // $9 nsTop
  05ab:40 facb 04        call proc_007a 4 

  05af:35 08              ldi 8 
  05b1:65 12             aTop seconds 
  05b3:33 7c              jmp code_0631 

        code_05b5
  05b5:3c                 dup 
  05b6:35 0a              ldi a 
  05b8:1a                 eq? 
  05b9:31 10              bnt code_05cb 
  05bb:7a               push2 
  05bc:38 0141          pushi 141 // $141 downRoomNo
  05bf:39 0a            pushi a // $a nsLeft
  05c1:40 fa67 04        call proc_002c 4 

  05c5:35 0a              ldi a 
  05c7:65 12             aTop seconds 
  05c9:33 66              jmp code_0631 

        code_05cb
  05cb:3c                 dup 
  05cc:35 0b              ldi b 
  05ce:1a                 eq? 
  05cf:31 10              bnt code_05e1 
  05d1:7a               push2 
  05d2:38 0141          pushi 141 // $141 downRoomNo
  05d5:39 0b            pushi b // $b nsBottom
  05d7:40 fa9f 04        call proc_007a 4 

  05db:35 08              ldi 8 
  05dd:65 12             aTop seconds 
  05df:33 50              jmp code_0631 

        code_05e1
  05e1:3c                 dup 
  05e2:35 0c              ldi c 
  05e4:1a                 eq? 
  05e5:31 35              bnt code_061c 
  05e7:76               push0 
  05e8:45 0f 00         callb procedure_000f 0 // cls 

  05eb:38 00c8          pushi c8 // $c8 setLoop
  05ee:78               push1 
  05ef:78               push1 
  05f0:38 00dc          pushi dc // $dc setStep
  05f3:7a               push2 
  05f4:39 05            pushi 5 // $5 view
  05f6:39 05            pushi 5 // $5 view
  05f8:38 00d3          pushi d3 // $d3 setMotion
  05fb:39 04            pushi 4 // $4 x
  05fd:51 1d            class MoveTo 
  05ff:36                push 
  0600:39 d8            pushi d8 // $d8 observeBlocks
  0602:39 03            pushi 3 // $3 y
  0604:76               push0 
  0605:72 0326          lofsa $092e // Rudy
  0608:4a 04             send 4 

  060a:36                push 
  060b:7c            pushSelf 
  060c:72 031f          lofsa $092e // Rudy
  060f:4a 1a             send 1a 

  0611:38 0089          pushi 89 // $89 hide
  0614:76               push0 
  0615:72 047a          lofsa $0a92 // rudyEye
  0618:4a 04             send 4 

  061a:33 15              jmp code_0631 

        code_061c
  061c:3c                 dup 
  061d:35 0d              ldi d 
  061f:1a                 eq? 
  0620:31 0f              bnt code_0631 
  0622:76               push0 
  0623:40 fa8c 00        call proc_00b3 0 

  0627:38 00f8          pushi f8 // $f8 newRoom
  062a:78               push1 
  062b:89 0c              lsg gPrevRoomNum 
  062d:81 02              lag gCurRoom 
  062f:4a 06             send 6 


        code_0631
  0631:3a                toss 

        code_0632
  0632:48                 ret 
    )

)

// 0846
(instance twice 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_0633
  0633:87 01              lap param1 
  0635:65 0a             aTop state 
  0637:36                push 
  0638:3c                 dup 
  0639:35 00              ldi 0 
  063b:1a                 eq? 
  063c:31 1e              bnt code_065c 
  063e:38 00c5          pushi c5 // $c5 posn
  0641:7a               push2 
  0642:38 0094          pushi 94 // $94 retreat
  0645:39 59            pushi 59 // $59 showStr
  0647:38 00ca          pushi ca // $ca show
  064a:76               push0 
  064b:39 7e            pushi 7e // $7e setCycle
  064d:78               push1 
  064e:51 16            class Fwd 
  0650:36                push 
  0651:72 033e          lofsa $0992 // Smoke
  0654:4a 12             send 12 

  0656:35 01              ldi 1 
  0658:65 10             aTop cycles 
  065a:33 75              jmp code_06d1 

        code_065c
  065c:3c                 dup 
  065d:35 01              ldi 1 
  065f:1a                 eq? 
  0660:31 2e              bnt code_0690 
  0662:88 00c7            lsg global199 
  0665:35 02              ldi 2 
  0667:1a                 eq? 
  0668:31 11              bnt code_067b 
  066a:39 03            pushi 3 // $3 y
  066c:38 0141          pushi 141 // $141 downRoomNo
  066f:39 0c            pushi c // $c nsRight
  0671:39 58            pushi 58 // $58 dispose
  0673:46 00ff 0000 06  calle ff procedure_0000 6 // Print 

  0679:33 0f              jmp code_068a 

        code_067b
  067b:39 03            pushi 3 // $3 y
  067d:38 0141          pushi 141 // $141 downRoomNo
  0680:39 0d            pushi d // $d lsTop
  0682:39 58            pushi 58 // $58 dispose
  0684:46 00ff 0000 06  calle ff procedure_0000 6 // Print 


        code_068a
  068a:35 04              ldi 4 
  068c:65 12             aTop seconds 
  068e:33 41              jmp code_06d1 

        code_0690
  0690:3c                 dup 
  0691:35 02              ldi 2 
  0693:1a                 eq? 
  0694:31 2b              bnt code_06c1 
  0696:76               push0 
  0697:45 0f 00         callb procedure_000f 0 // cls 

  069a:38 00d3          pushi d3 // $d3 setMotion
  069d:39 03            pushi 3 // $3 y
  069f:51 1d            class MoveTo 
  06a1:36                push 
  06a2:38 00a9          pushi a9 // $a9 moveDone
  06a5:39 59            pushi 59 // $59 showStr
  06a7:72 02e8          lofsa $0992 // Smoke
  06aa:4a 0a             send a 

  06ac:38 00d3          pushi d3 // $d3 setMotion
  06af:39 04            pushi 4 // $4 x
  06b1:51 1d            class MoveTo 
  06b3:36                push 
  06b4:38 00ba          pushi ba // $ba targetX
  06b7:39 6f            pushi 6f // $6f handleEvent
  06b9:7c            pushSelf 
  06ba:72 050d          lofsa $0bca // Hand
  06bd:4a 0c             send c 

  06bf:33 10              jmp code_06d1 

        code_06c1
  06c1:3c                 dup 
  06c2:35 03              ldi 3 
  06c4:1a                 eq? 
  06c5:31 0a              bnt code_06d1 
  06c7:38 00f8          pushi f8 // $f8 newRoom
  06ca:78               push1 
  06cb:89 0c              lsg gPrevRoomNum 
  06cd:81 02              lag gCurRoom 
  06cf:4a 06             send 6 


        code_06d1
  06d1:3a                toss 
  06d2:48                 ret 
    )

)

// 0876
(instance noOne 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_06d3
  06d3:87 01              lap param1 
  06d5:65 0a             aTop state 
  06d7:36                push 
  06d8:3c                 dup 
  06d9:35 00              ldi 0 
  06db:1a                 eq? 
  06dc:31 1b              bnt code_06f9 
  06de:39 06            pushi 6 // $6 loop
  06e0:38 0141          pushi 141 // $141 downRoomNo
  06e3:39 0e            pushi e // $e lsLeft
  06e5:39 43            pushi 43 // $43 at
  06e7:39 41            pushi 41 // $41 replay
  06e9:39 43            pushi 43 // $43 at
  06eb:39 58            pushi 58 // $58 dispose
  06ed:46 00ff 0000 0c  calle ff procedure_0000 c // Print 

  06f3:35 05              ldi 5 
  06f5:65 12             aTop seconds 
  06f7:33 10              jmp code_0709 

        code_06f9
  06f9:3c                 dup 
  06fa:35 01              ldi 1 
  06fc:1a                 eq? 
  06fd:31 0a              bnt code_0709 
  06ff:38 00f8          pushi f8 // $f8 newRoom
  0702:78               push1 
  0703:89 0c              lsg gPrevRoomNum 
  0705:81 02              lag gCurRoom 
  0707:4a 06             send 6 


        code_0709
  0709:3a                toss 
  070a:48                 ret 
    )

)

// 08a6
(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_070b
  070b:39 3c            pushi 3c // $3c doit
  070d:76               push0 
  070e:57 05 04         super Script 4 

  0711:83 03              lal local3 
  0713:31 08              bnt code_071d 
  0715:35 00              ldi 0 
  0717:a3 03              sal local3 
  0719:35 01              ldi 1 
  071b:65 10             aTop cycles 

        code_071d
  071d:48                 ret 
    )

    (method (changeState) // method_071e
  071e:87 01              lap param1 
  0720:65 0a             aTop state 
  0722:36                push 
  0723:3c                 dup 
  0724:35 00              ldi 0 
  0726:1a                 eq? 
  0727:31 18              bnt code_0741 
  0729:39 07            pushi 7 // $7 cel
  072b:78               push1 
  072c:76               push0 
  072d:39 7e            pushi 7e // $7e setCycle
  072f:78               push1 
  0730:51 16            class Fwd 
  0732:36                push 
  0733:38 00ca          pushi ca // $ca show
  0736:76               push0 
  0737:63 08             pToa client 
  0739:4a 10             send 10 

  073b:83 02              lal local2 
  073d:65 10             aTop cycles 
  073f:33 18              jmp code_0759 

        code_0741
  0741:3c                 dup 
  0742:35 01              ldi 1 
  0744:1a                 eq? 
  0745:31 12              bnt code_0759 
  0747:39 7a            pushi 7a // $7a setScript
  0749:78               push1 
  074a:76               push0 
  074b:38 0089          pushi 89 // $89 hide
  074e:76               push0 
  074f:63 08             pToa client 
  0751:4a 0a             send a 

  0753:39 2d            pushi 2d // $2d client
  0755:78               push1 
  0756:76               push0 
  0757:54 06             self 6 


        code_0759
  0759:3a                toss 
  075a:48                 ret 
  075b:00                bnot 
    )

)

// 08da
(instance Gloria of Prop
    (properties
        y $6e
        x $e7
        z $0
        heading $0
        yStep $2
        view $16f
        loop $0
        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
    )
)

// 0928
(instance Rudy of Act
    (properties
        y $6f
        x $61
        z $0
        heading $0
        yStep $2
        view $187
        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
    )
)

// 098c
(instance Smoke of Act
    (properties
        y $59
        x $94
        z $0
        heading $0
        yStep $5
        view $16f
        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 $5
        moveSpeed $0
        blocks $0
        baseSetter $0
        mover $0
        looper $0
        viewer $0
        avoider $0
    )
)

// 09f0
(instance rudyMouth of Prop
    (properties
        y $5f
        x $6a
        z $0
        heading $0
        yStep $2
        view $187
        loop $2
        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
    )
)

// 0a3e
(instance glorMouth of Prop
    (properties
        y $60
        x $d3
        z $0
        heading $0
        yStep $2
        view $16f
        loop $3
        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
    )
)

// 0a8c
(instance rudyEye of Prop
    (properties
        y $48
        x $6a
        z $0
        heading $0
        yStep $2
        view $187
        loop $8
        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
    )
)

// 0ada
(instance glorEye of Prop
    (properties
        y $4c
        x $cc
        z $0
        heading $0
        yStep $2
        view $16f
        loop $7
        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
    )
)

// 0b28
(instance glow of Prop
    (properties
        y $59
        x $aa
        z $0
        heading $0
        yStep $2
        view $16f
        loop $1
        cel $1
        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
    )
)

// 0b76
(instance puff of Prop
    (properties
        y $58
        x $c4
        z $0
        heading $0
        yStep $2
        view $16f
        loop $8
        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
    )
)

// 0bc4
(instance Hand of Act
    (properties
        y $6f
        x $a7
        z $0
        heading $0
        yStep $5
        view $16f
        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 $5
        moveSpeed $0
        blocks $0
        baseSetter $0
        mover $0
        looper $0
        viewer $0
        avoider $0
    )
)

// 0c28
(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 02              sal local2 
  002b:48                 ret 
)

(procedure proc_002c
  002c:39 07            pushi 7 // $7 cel
  002e:78               push1 
  002f:76               push0 
  0030:39 7e            pushi 7e // $7e setCycle
  0032:78               push1 
  0033:51 1a            class End 
  0035:36                push 
  0036:38 00ca          pushi ca // $ca show
  0039:76               push0 
  003a:72 0b3f          lofsa $0b7c // puff
  003d:4a 10             send 10 

  003f:76               push0 
  0040:59 01            &rest 1 
  0042:41 c7 00          call proc_000c 0 

  0045:8b 02              lsl local2 
  0047:8b 02              lsl local2 
  0049:35 04              ldi 4 
  004b:08                 div 
  004c:02                 add 
  004d:a3 02              sal local2 
  004f:39 7a            pushi 7a // $7a setScript
  0051:78               push1 
  0052:74 0857          lofss $08ac // cycleMouth
  0055:72 09ec          lofsa $0a44 // glorMouth
  0058:4a 06             send 6 

  005a:39 0a            pushi a // $a nsLeft
  005c:59 01            &rest 1 
  005e:39 43            pushi 43 // $43 at
  0060:38 00a0          pushi a0 // $a0 cycleDone
  0063:39 78            pushi 78 // $78 changeState
  0065:39 21            pushi 21 // $21 font
  0067:39 04            pushi 4 // $4 x
  0069:39 46            pushi 46 // $46 width
  006b:38 008c          pushi 8c // $8c track
  006e:39 1e            pushi 1e // $1e mode
  0070:78               push1 
  0071:39 58            pushi 58 // $58 dispose
  0073:46 00ff 0000 14  calle ff procedure_0000 14 // Print 

  0079:48                 ret 
)

(procedure proc_007a
  007a:38 0089          pushi 89 // $89 hide
  007d:76               push0 
  007e:72 0afb          lofsa $0b7c // puff
  0081:4a 04             send 4 

  0083:76               push0 
  0084:59 01            &rest 1 
  0086:41 83 00          call proc_000c 0 

  0089:39 7a            pushi 7a // $7a setScript
  008b:78               push1 
  008c:74 081d          lofss $08ac // cycleMouth
  008f:72 0964          lofsa $09f6 // rudyMouth
  0092:4a 06             send 6 

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

  00b2:48                 ret 
)

(procedure proc_00b3
  00b3:88 00ad            lsg gSpyFlags 
  00b6:35 01              ldi 1 
  00b8:14                  or 
  00b9:a0 00ad            sag gSpyFlags 
  00bc:35 00              ldi 0 
  00be:a0 0170            sag gCycleTimers 
  00c1:34 0708            ldi 708 
  00c4:a0 0172            sag global370 
  00c7:78               push1 
  00c8:39 17            pushi 17 // $17 name
  00ca:45 05 02         callb procedure_0005 2 // SetFlag 

  00cd:78               push1 
  00ce:39 18            pushi 18 // $18 key
  00d0:45 05 02         callb procedure_0005 2 // SetFlag 

  00d3:48                 ret 
)

