(script 217)

(string
    string_0c1c "ClarAss"
    string_0c24 "Clarence"
    string_0c2d "Gertie"
    string_0c34 "GertieClarArgue"
    string_0c44 "Smoke"
    string_0c4a "argue"
    string_0c50 "clarActions"
    string_0c5c "clarence"
    string_0c65 "gBlock"
    string_0c6c "gertActions"
    string_0c78 "gertie"
    string_0c7f ""
)

(said
    said_0974 /butt
    said_0978 /boire,glass
    said_097f ask[/attorney]/gertie<about
    said_098d ask[/gertie]/attorney<about
    said_099b get/butt
    said_09a1 get/boire,glass
    said_09aa ecouter/attorney,gertie
    said_09b3 look,bonjour/person
    said_09bc look/attorney
    said_09c2 look/gertie
    said_09c8 look/gens
    said_09ce look>
    said_09d2 bonjour/attorney
    said_09d8 bonjour/gertie
    said_09de bonjour/gens
)

(synonym
    butt | cigar | cigare | megot = cigarette
    gertie | gertrude = dame | femme | fille | girl | lady | maiden | woman
    attorney | clarence | lawyer = fellow | gars | gentleman | guy | homme | man | type
)

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

// 09ea
(instance public GertieClarArgue of Rgn
    (properties
        script $0
        number $0
        timer $0
        keep $0
        initialized $0
    )
    (method (init) // method_00a7
  00a7:39 57            pushi 57 // $57 init
  00a9:76               push0 
  00aa:57 36 04         super Rgn 4 

  00ad:88 00ad            lsg gSpyFlags 
  00b0:35 02              ldi 2 
  00b2:12                 and 
  00b3:18                 not 
  00b4:31 30              bnt code_00e6 
  00b6:39 03            pushi 3 // $3 y
  00b8:38 0087          pushi 87 // $87 clean
  00bb:39 04            pushi 4 // $4 x
  00bd:39 29            pushi 29 // $29 edit
  00bf:45 15 06         callb procedure_0015 6 // LoadMany 

  00c2:7a               push2 
  00c3:38 0080          pushi 80 // $80 timeLeft
  00c6:38 0282          pushi 282 // $282 sel_642
  00c9:43 00 04         callk Load 4 

  00cc:39 05            pushi 5 // $5 view
  00ce:38 0084          pushi 84 // $84 stop
  00d1:39 1d            pushi 1d // $1d back
  00d3:39 5e            pushi 5e // $5e respondsTo
  00d5:39 5f            pushi 5f // $5f yourself
  00d7:39 60            pushi 60 // $60 size
  00d9:45 15 0a         callb procedure_0015 a // LoadMany 

  00dc:7a               push2 
  00dd:38 0082          pushi 82 // $82 owner
  00e0:38 0196          pushi 196 // $196 sel_406
  00e3:43 00 04         callk Load 4 


        code_00e6
  00e6:39 03            pushi 3 // $3 y
  00e8:38 008f          pushi 8f // $8f moveTo
  00eb:38 00f3          pushi f3 // $f3 close
  00ee:38 00da          pushi da // $da inRect
  00f1:45 15 06         callb procedure_0015 6 // LoadMany 

  00f4:39 03            pushi 3 // $3 y
  00f6:38 008e          pushi 8e // $8e move
  00f9:39 07            pushi 7 // $7 cel
  00fb:78               push1 
  00fc:45 15 06         callb procedure_0015 6 // LoadMany 

  00ff:35 40              ldi 40 
  0101:a0 00d0            sag global208 
  0104:34 00da            ldi da 
  0107:a0 017f            sag global383 
  010a:34 00d8            ldi d8 
  010d:a0 0179            sag global377 
  0110:39 57            pushi 57 // $57 init
  0112:76               push0 
  0113:38 00c6          pushi c6 // $c6 stopUpd
  0116:76               push0 
  0117:72 0a3c          lofsa $0b56 // ClarAss
  011a:4a 08             send 8 

  011c:39 42            pushi 42 // $42 setPri
  011e:78               push1 
  011f:39 06            pushi 6 // $6 loop
  0121:39 57            pushi 57 // $57 init
  0123:76               push0 
  0124:72 09dd          lofsa $0b04 // Clarence
  0127:4a 0a             send a 

  0129:39 42            pushi 42 // $42 setPri
  012b:78               push1 
  012c:39 06            pushi 6 // $6 loop
  012e:39 57            pushi 57 // $57 init
  0130:76               push0 
  0131:38 0089          pushi 89 // $89 hide
  0134:76               push0 
  0135:72 0a6c          lofsa $0ba4 // Smoke
  0138:4a 0e             send e 

  013a:38 00d8          pushi d8 // $d8 observeBlocks
  013d:78               push1 
  013e:74 0ab1          lofss $0bf2 // gBlock
  0141:81 00              lag gEgo 
  0143:4a 06             send 6 

  0145:88 00ad            lsg gSpyFlags 
  0148:35 02              ldi 2 
  014a:12                 and 
  014b:18                 not 
  014c:31 23              bnt code_0171 
  014e:7a               push2 
  014f:38 008f          pushi 8f // $8f moveTo
  0152:38 00d8          pushi d8 // $d8 observeBlocks
  0155:45 15 04         callb procedure_0015 4 // LoadMany 

  0158:39 57            pushi 57 // $57 init
  015a:76               push0 
  015b:72 0954          lofsa $0ab2 // Gertie
  015e:4a 04             send 4 

  0160:39 7a            pushi 7a // $7a setScript
  0162:78               push1 
  0163:74 08bc          lofss $0a22 // argue
  0166:54 06             self 6 

  0168:88 00d0            lsg global208 
  016b:35 01              ldi 1 
  016d:14                  or 
  016e:a0 00d0            sag global208 

        code_0171
  0171:48                 ret 
    )

    (method (doit) // method_0172
  0172:39 3c            pushi 3c // $3c doit
  0174:76               push0 
  0175:57 36 04         super Rgn 4 

  0178:48                 ret 
    )

    (method (dispose) // method_0179
  0179:88 00ad            lsg gSpyFlags 
  017c:35 02              ldi 2 
  017e:12                 and 
  017f:18                 not 
  0180:31 0e              bnt code_0190 
  0182:88 0171            lsg global369 
  0185:35 00              ldi 0 
  0187:1a                 eq? 
  0188:31 06              bnt code_0190 
  018a:34 0708            ldi 708 
  018d:a0 0171            sag global369 

        code_0190
  0190:78               push1 
  0191:38 00cc          pushi cc // $cc isExtra
  0194:43 03 02         callk DisposeScript 2 

  0197:78               push1 
  0198:38 03d9          pushi 3d9 // $3d9 sel_985
  019b:43 03 02         callk DisposeScript 2 

  019e:39 58            pushi 58 // $58 dispose
  01a0:76               push0 
  01a1:57 36 04         super Rgn 4 

  01a4:48                 ret 
    )

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

  01ad:39 4c            pushi 4c // $4c claimed
  01af:76               push0 
  01b0:87 01              lap param1 
  01b2:4a 04             send 4 

  01b4:31 03              bnt code_01b9 
  01b6:35 01              ldi 1 
  01b8:48                 ret 

        code_01b9
  01b9:39 22            pushi 22 // $22 type
  01bb:76               push0 
  01bc:87 01              lap param1 
  01be:4a 04             send 4 

  01c0:36                push 
  01c1:34 0080            ldi 80 
  01c4:1a                 eq? 
  01c5:31 7d              bnt code_0244 
  01c7:78               push1 
  01c8:74 0803          lofss $09ce // look>
  01cb:43 25 02         callk Said 2 

  01ce:31 32              bnt code_0202 
  01d0:78               push1 
  01d1:74 07a0          lofss $0974 // /butt
  01d4:43 25 02         callk Said 2 

  01d7:31 13              bnt code_01ec 
  01d9:78               push1 
  01da:39 0d            pushi d // $d lsTop
  01dc:45 05 02         callb procedure_0005 2 // SetFlag 

  01df:7a               push2 
  01e0:38 00d9          pushi d9 // $d9 ignoreBlocks
  01e3:76               push0 
  01e4:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  01ea:33 14              jmp code_0200 

        code_01ec
  01ec:78               push1 
  01ed:74 0788          lofss $0978 // /boire,glass
  01f0:43 25 02         callk Said 2 

  01f3:31 0b              bnt code_0200 
  01f5:7a               push2 
  01f6:38 00d9          pushi d9 // $d9 ignoreBlocks
  01f9:78               push1 
  01fa:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0200
  0200:33 42              jmp code_0244 

        code_0202
  0202:78               push1 
  0203:74 07a4          lofss $09aa // ecouter/attorney,gertie
  0206:43 25 02         callk Said 2 

  0209:31 0d              bnt code_0218 
  020b:7a               push2 
  020c:38 00d9          pushi d9 // $d9 ignoreBlocks
  020f:7a               push2 
  0210:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0216:33 2c              jmp code_0244 

        code_0218
  0218:78               push1 
  0219:74 077f          lofss $099b // get/butt
  021c:43 25 02         callk Said 2 

  021f:31 0e              bnt code_022f 
  0221:7a               push2 
  0222:38 00d9          pushi d9 // $d9 ignoreBlocks
  0225:39 03            pushi 3 // $3 y
  0227:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  022d:33 15              jmp code_0244 

        code_022f
  022f:78               push1 
  0230:74 076e          lofss $09a1 // get/boire,glass
  0233:43 25 02         callk Said 2 

  0236:31 0c              bnt code_0244 
  0238:7a               push2 
  0239:38 00d9          pushi d9 // $d9 ignoreBlocks
  023c:39 04            pushi 4 // $4 x
  023e:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0244
  0244:48                 ret 
    )

)

// 0a1c
(instance argue 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_0245
  0245:87 01              lap param1 
  0247:65 0a             aTop state 
  0249:36                push 
  024a:3c                 dup 
  024b:35 00              ldi 0 
  024d:1a                 eq? 
  024e:31 41              bnt code_0291 
  0250:80 00d8            lag global216 
  0253:18                 not 
  0254:31 06              bnt code_025c 
  0256:35 ff              ldi ff 
  0258:65 0a             aTop state 
  025a:33 2e              jmp code_028a 

        code_025c
  025c:89 76              lsg gMustDos 
  025e:35 02              ldi 2 
  0260:12                 and 
  0261:18                 not 
  0262:31 1b              bnt code_027f 
  0264:89 76              lsg gMustDos 
  0266:35 02              ldi 2 
  0268:14                  or 
  0269:a1 76              sag gMustDos 
  026b:39 7a            pushi 7a // $7a setScript
  026d:78               push1 
  026e:7a               push2 
  026f:38 0196          pushi 196 // $196 sel_406
  0272:76               push0 
  0273:43 02 04         callk ScriptID 4 

  0276:36                push 
  0277:54 06             self 6 

  0279:35 ff              ldi ff 
  027b:65 0a             aTop state 
  027d:33 0b              jmp code_028a 

        code_027f
  027f:39 76            pushi 76 // $76 script
  0281:76               push0 
  0282:54 04             self 4 

  0284:31 04              bnt code_028a 
  0286:35 ff              ldi ff 
  0288:65 0a             aTop state 

        code_028a
  028a:35 01              ldi 1 
  028c:65 10             aTop cycles 
  028e:32 0211            jmp code_04a2 

        code_0291
  0291:3c                 dup 
  0292:35 01              ldi 1 
  0294:1a                 eq? 
  0295:30 0154            bnt code_03ec 
  0298:38 00e2          pushi e2 // $e2 canInput
  029b:78               push1 
  029c:76               push0 
  029d:51 2b            class User 
  029f:4a 06             send 6 

  02a1:88 00ac            lsg global172 
  02a4:34 7fff            ldi 7fff 
  02a7:12                 and 
  02a8:a3 06              sal local6 
  02aa:36                push 
  02ab:80 00ac            lag global172 
  02ae:1a                 eq? 
  02af:31 15              bnt code_02c6 
  02b1:88 00ac            lsg global172 
  02b4:35 0a              ldi a 
  02b6:22                 lt? 
  02b7:31 05              bnt code_02be 
  02b9:c0 00ac            +ag global172 
  02bc:33 06              jmp code_02c4 

        code_02be
  02be:34 8001            ldi 8001 
  02c1:a0 00ac            sag global172 

        code_02c4
  02c4:33 55              jmp code_031b 

        code_02c6
  02c6:8b 06              lsl local6 
  02c8:3c                 dup 
  02c9:35 01              ldi 1 
  02cb:1a                 eq? 
  02cc:31 08              bnt code_02d6 
  02ce:34 8002            ldi 8002 
  02d1:a0 00ac            sag global172 
  02d4:33 44              jmp code_031a 

        code_02d6
  02d6:3c                 dup 
  02d7:35 02              ldi 2 
  02d9:1a                 eq? 
  02da:31 08              bnt code_02e4 
  02dc:34 8005            ldi 8005 
  02df:a0 00ac            sag global172 
  02e2:33 36              jmp code_031a 

        code_02e4
  02e4:3c                 dup 
  02e5:35 05              ldi 5 
  02e7:1a                 eq? 
  02e8:31 08              bnt code_02f2 
  02ea:34 8006            ldi 8006 
  02ed:a0 00ac            sag global172 
  02f0:33 28              jmp code_031a 

        code_02f2
  02f2:3c                 dup 
  02f3:35 06              ldi 6 
  02f5:1a                 eq? 
  02f6:31 08              bnt code_0300 
  02f8:34 8009            ldi 8009 
  02fb:a0 00ac            sag global172 
  02fe:33 1a              jmp code_031a 

        code_0300
  0300:3c                 dup 
  0301:35 09              ldi 9 
  0303:1a                 eq? 
  0304:31 08              bnt code_030e 
  0306:34 800a            ldi 800a 
  0309:a0 00ac            sag global172 
  030c:33 0c              jmp code_031a 

        code_030e
  030e:3c                 dup 
  030f:35 0a              ldi a 
  0311:1a                 eq? 
  0312:31 06              bnt code_031a 
  0314:34 8001            ldi 8001 
  0317:a0 00ac            sag global172 

        code_031a
  031a:3a                toss 

        code_031b
  031b:8b 06              lsl local6 
  031d:3c                 dup 
  031e:35 00              ldi 0 
  0320:1a                 eq? 
  0321:31 0d              bnt code_0330 
  0323:7a               push2 
  0324:38 00d9          pushi d9 // $d9 ignoreBlocks
  0327:39 05            pushi 5 // $5 view
  0329:40 fd2f 04        call proc_005c 4 

  032d:32 00b4            jmp code_03e4 

        code_0330
  0330:3c                 dup 
  0331:35 01              ldi 1 
  0333:1a                 eq? 
  0334:31 0d              bnt code_0343 
  0336:7a               push2 
  0337:38 00d9          pushi d9 // $d9 ignoreBlocks
  033a:39 06            pushi 6 // $6 loop
  033c:40 fcde 04        call proc_001e 4 

  0340:32 00a1            jmp code_03e4 

        code_0343
  0343:3c                 dup 
  0344:35 02              ldi 2 
  0346:1a                 eq? 
  0347:31 0d              bnt code_0356 
  0349:7a               push2 
  034a:38 00d9          pushi d9 // $d9 ignoreBlocks
  034d:39 07            pushi 7 // $7 cel
  034f:40 fd09 04        call proc_005c 4 

  0353:32 008e            jmp code_03e4 

        code_0356
  0356:3c                 dup 
  0357:35 03              ldi 3 
  0359:1a                 eq? 
  035a:31 0c              bnt code_0368 
  035c:7a               push2 
  035d:38 00d9          pushi d9 // $d9 ignoreBlocks
  0360:39 08            pushi 8 // $8 underBits
  0362:40 fcb8 04        call proc_001e 4 

  0366:33 7c              jmp code_03e4 

        code_0368
  0368:3c                 dup 
  0369:35 04              ldi 4 
  036b:1a                 eq? 
  036c:31 0c              bnt code_037a 
  036e:7a               push2 
  036f:38 00d9          pushi d9 // $d9 ignoreBlocks
  0372:39 09            pushi 9 // $9 nsTop
  0374:40 fce4 04        call proc_005c 4 

  0378:33 6a              jmp code_03e4 

        code_037a
  037a:3c                 dup 
  037b:35 05              ldi 5 
  037d:1a                 eq? 
  037e:31 0c              bnt code_038c 
  0380:7a               push2 
  0381:38 00d9          pushi d9 // $d9 ignoreBlocks
  0384:39 0a            pushi a // $a nsLeft
  0386:40 fc94 04        call proc_001e 4 

  038a:33 58              jmp code_03e4 

        code_038c
  038c:3c                 dup 
  038d:35 06              ldi 6 
  038f:1a                 eq? 
  0390:31 0c              bnt code_039e 
  0392:7a               push2 
  0393:38 00d9          pushi d9 // $d9 ignoreBlocks
  0396:39 0b            pushi b // $b nsBottom
  0398:40 fcc0 04        call proc_005c 4 

  039c:33 46              jmp code_03e4 

        code_039e
  039e:3c                 dup 
  039f:35 07              ldi 7 
  03a1:1a                 eq? 
  03a2:31 0c              bnt code_03b0 
  03a4:7a               push2 
  03a5:38 00d9          pushi d9 // $d9 ignoreBlocks
  03a8:39 0c            pushi c // $c nsRight
  03aa:40 fc70 04        call proc_001e 4 

  03ae:33 34              jmp code_03e4 

        code_03b0
  03b0:3c                 dup 
  03b1:35 08              ldi 8 
  03b3:1a                 eq? 
  03b4:31 0c              bnt code_03c2 
  03b6:7a               push2 
  03b7:38 00d9          pushi d9 // $d9 ignoreBlocks
  03ba:39 0d            pushi d // $d lsTop
  03bc:40 fc9c 04        call proc_005c 4 

  03c0:33 22              jmp code_03e4 

        code_03c2
  03c2:3c                 dup 
  03c3:35 09              ldi 9 
  03c5:1a                 eq? 
  03c6:31 0c              bnt code_03d4 
  03c8:7a               push2 
  03c9:38 00d9          pushi d9 // $d9 ignoreBlocks
  03cc:39 0e            pushi e // $e lsLeft
  03ce:40 fc4c 04        call proc_001e 4 

  03d2:33 10              jmp code_03e4 

        code_03d4
  03d4:3c                 dup 
  03d5:35 0a              ldi a 
  03d7:1a                 eq? 
  03d8:31 0a              bnt code_03e4 
  03da:7a               push2 
  03db:38 00d9          pushi d9 // $d9 ignoreBlocks
  03de:39 0f            pushi f // $f lsBottom
  03e0:40 fc78 04        call proc_005c 4 


        code_03e4
  03e4:3a                toss 
  03e5:35 05              ldi 5 
  03e7:65 12             aTop seconds 
  03e9:32 00b6            jmp code_04a2 

        code_03ec
  03ec:3c                 dup 
  03ed:35 02              ldi 2 
  03ef:1a                 eq? 
  03f0:31 6f              bnt code_0461 
  03f2:76               push0 
  03f3:45 0f 00         callb procedure_000f 0 // cls 

  03f6:8b 06              lsl local6 
  03f8:3c                 dup 
  03f9:35 00              ldi 0 
  03fb:1a                 eq? 
  03fc:31 0c              bnt code_040a 
  03fe:7a               push2 
  03ff:38 00d9          pushi d9 // $d9 ignoreBlocks
  0402:39 10            pushi 10 // $10 lsRight
  0404:40 fc54 04        call proc_005c 4 

  0408:33 50              jmp code_045a 

        code_040a
  040a:3c                 dup 
  040b:35 03              ldi 3 
  040d:1a                 eq? 
  040e:31 0c              bnt code_041c 
  0410:7a               push2 
  0411:38 00d9          pushi d9 // $d9 ignoreBlocks
  0414:39 11            pushi 11 // $11 signal
  0416:40 fc04 04        call proc_001e 4 

  041a:33 3e              jmp code_045a 

        code_041c
  041c:3c                 dup 
  041d:35 07              ldi 7 
  041f:1a                 eq? 
  0420:31 0c              bnt code_042e 
  0422:7a               push2 
  0423:38 00d9          pushi d9 // $d9 ignoreBlocks
  0426:39 12            pushi 12 // $12 illegalBits
  0428:40 fc30 04        call proc_005c 4 

  042c:33 2c              jmp code_045a 

        code_042e
  042e:3c                 dup 
  042f:35 08              ldi 8 
  0431:1a                 eq? 
  0432:31 0c              bnt code_0440 
  0434:7a               push2 
  0435:38 00d9          pushi d9 // $d9 ignoreBlocks
  0438:39 13            pushi 13 // $13 brTop
  043a:40 fbe0 04        call proc_001e 4 

  043e:33 1a              jmp code_045a 

        code_0440
  0440:39 7e            pushi 7e // $7e setCycle
  0442:78               push1 
  0443:76               push0 
  0444:72 06bd          lofsa $0b04 // Clarence
  0447:4a 06             send 6 

  0449:39 06            pushi 6 // $6 loop
  044b:78               push1 
  044c:78               push1 
  044d:39 07            pushi 7 // $7 cel
  044f:78               push1 
  0450:78               push1 
  0451:38 00c6          pushi c6 // $c6 stopUpd
  0454:76               push0 
  0455:72 065a          lofsa $0ab2 // Gertie
  0458:4a 10             send 10 


        code_045a
  045a:3a                toss 
  045b:35 03              ldi 3 
  045d:65 12             aTop seconds 
  045f:33 41              jmp code_04a2 

        code_0461
  0461:3c                 dup 
  0462:35 03              ldi 3 
  0464:1a                 eq? 
  0465:31 3b              bnt code_04a2 
  0467:76               push0 
  0468:45 0f 00         callb procedure_000f 0 // cls 

  046b:39 06            pushi 6 // $6 loop
  046d:78               push1 
  046e:78               push1 
  046f:39 07            pushi 7 // $7 cel
  0471:78               push1 
  0472:78               push1 
  0473:38 00c6          pushi c6 // $c6 stopUpd
  0476:76               push0 
  0477:39 7a            pushi 7a // $7a setScript
  0479:78               push1 
  047a:74 05d5          lofss $0a52 // gertActions
  047d:72 0632          lofsa $0ab2 // Gertie
  0480:4a 16             send 16 

  0482:38 00c6          pushi c6 // $c6 stopUpd
  0485:76               push0 
  0486:39 7a            pushi 7a // $7a setScript
  0488:78               push1 
  0489:74 05f6          lofss $0a82 // clarActions
  048c:72 0675          lofsa $0b04 // Clarence
  048f:4a 0a             send a 

  0491:38 00e2          pushi e2 // $e2 canInput
  0494:78               push1 
  0495:78               push1 
  0496:51 2b            class User 
  0498:4a 06             send 6 

  049a:39 7a            pushi 7a // $7a setScript
  049c:78               push1 
  049d:76               push0 
  049e:63 08             pToa client 
  04a0:4a 06             send 6 


        code_04a2
  04a2:3a                toss 
  04a3:48                 ret 
    )

)

// 0a4c
(instance gertActions 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_04a4
  04a4:87 01              lap param1 
  04a6:65 0a             aTop state 
  04a8:36                push 
  04a9:3c                 dup 
  04aa:35 00              ldi 0 
  04ac:1a                 eq? 
  04ad:31 1e              bnt code_04cd 
  04af:39 06            pushi 6 // $6 loop
  04b1:78               push1 
  04b2:78               push1 
  04b3:39 07            pushi 7 // $7 cel
  04b5:78               push1 
  04b6:78               push1 
  04b7:38 00c7          pushi c7 // $c7 forceUpd
  04ba:76               push0 
  04bb:72 05f4          lofsa $0ab2 // Gertie
  04be:4a 10             send 10 

  04c0:7a               push2 
  04c1:39 03            pushi 3 // $3 y
  04c3:39 08            pushi 8 // $8 underBits
  04c5:43 40 04         callk Random 4 

  04c8:65 12             aTop seconds 
  04ca:32 00b4            jmp code_0581 

        code_04cd
  04cd:3c                 dup 
  04ce:35 01              ldi 1 
  04d0:1a                 eq? 
  04d1:31 27              bnt code_04fa 
  04d3:39 06            pushi 6 // $6 loop
  04d5:78               push1 
  04d6:78               push1 
  04d7:39 07            pushi 7 // $7 cel
  04d9:78               push1 
  04da:76               push0 
  04db:38 00c7          pushi c7 // $c7 forceUpd
  04de:76               push0 
  04df:72 05d0          lofsa $0ab2 // Gertie
  04e2:4a 10             send 10 

  04e4:7a               push2 
  04e5:39 ff            pushi ff // $ff checkAni
  04e7:78               push1 
  04e8:43 40 04         callk Random 4 

  04eb:65 0a             aTop state 
  04ed:7a               push2 
  04ee:39 03            pushi 3 // $3 y
  04f0:39 08            pushi 8 // $8 underBits
  04f2:43 40 04         callk Random 4 

  04f5:65 12             aTop seconds 
  04f7:32 0087            jmp code_0581 

        code_04fa
  04fa:3c                 dup 
  04fb:35 02              ldi 2 
  04fd:1a                 eq? 
  04fe:31 1f              bnt code_051f 
  0500:39 06            pushi 6 // $6 loop
  0502:78               push1 
  0503:76               push0 
  0504:39 07            pushi 7 // $7 cel
  0506:78               push1 
  0507:76               push0 
  0508:39 7e            pushi 7e // $7e setCycle
  050a:78               push1 
  050b:51 1a            class End 
  050d:36                push 
  050e:72 05a1          lofsa $0ab2 // Gertie
  0511:4a 12             send 12 

  0513:7a               push2 
  0514:39 03            pushi 3 // $3 y
  0516:39 05            pushi 5 // $5 view
  0518:43 40 04         callk Random 4 

  051b:65 12             aTop seconds 
  051d:33 62              jmp code_0581 

        code_051f
  051f:3c                 dup 
  0520:35 03              ldi 3 
  0522:1a                 eq? 
  0523:31 1f              bnt code_0544 
  0525:39 06            pushi 6 // $6 loop
  0527:78               push1 
  0528:76               push0 
  0529:39 07            pushi 7 // $7 cel
  052b:78               push1 
  052c:76               push0 
  052d:39 7e            pushi 7e // $7e setCycle
  052f:78               push1 
  0530:51 1a            class End 
  0532:36                push 
  0533:72 057c          lofsa $0ab2 // Gertie
  0536:4a 12             send 12 

  0538:7a               push2 
  0539:39 03            pushi 3 // $3 y
  053b:39 08            pushi 8 // $8 underBits
  053d:43 40 04         callk Random 4 

  0540:65 12             aTop seconds 
  0542:33 3d              jmp code_0581 

        code_0544
  0544:3c                 dup 
  0545:35 04              ldi 4 
  0547:1a                 eq? 
  0548:31 1c              bnt code_0566 
  054a:39 06            pushi 6 // $6 loop
  054c:78               push1 
  054d:39 03            pushi 3 // $3 y
  054f:39 7e            pushi 7e // $7e setCycle
  0551:78               push1 
  0552:51 16            class Fwd 
  0554:36                push 
  0555:72 055a          lofsa $0ab2 // Gertie
  0558:4a 0c             send c 

  055a:7a               push2 
  055b:39 03            pushi 3 // $3 y
  055d:39 08            pushi 8 // $8 underBits
  055f:43 40 04         callk Random 4 

  0562:65 12             aTop seconds 
  0564:33 1b              jmp code_0581 

        code_0566
  0566:3c                 dup 
  0567:35 05              ldi 5 
  0569:1a                 eq? 
  056a:31 15              bnt code_0581 
  056c:39 7e            pushi 7e // $7e setCycle
  056e:78               push1 
  056f:76               push0 
  0570:38 00c6          pushi c6 // $c6 stopUpd
  0573:76               push0 
  0574:72 053b          lofsa $0ab2 // Gertie
  0577:4a 0a             send a 

  0579:35 ff              ldi ff 
  057b:65 0a             aTop state 
  057d:35 01              ldi 1 
  057f:65 10             aTop cycles 

        code_0581
  0581:3a                toss 
  0582:48                 ret 
    )

)

// 0a7c
(instance clarActions 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_0583
  0583:87 01              lap param1 
  0585:65 0a             aTop state 
  0587:36                push 
  0588:3c                 dup 
  0589:35 00              ldi 0 
  058b:1a                 eq? 
  058c:31 0b              bnt code_0599 
  058e:35 05              ldi 5 
  0590:65 0a             aTop state 
  0592:35 01              ldi 1 
  0594:65 10             aTop cycles 
  0596:32 01ae            jmp code_0747 

        code_0599
  0599:3c                 dup 
  059a:35 01              ldi 1 
  059c:1a                 eq? 
  059d:31 25              bnt code_05c4 
  059f:38 00c8          pushi c8 // $c8 setLoop
  05a2:78               push1 
  05a3:78               push1 
  05a4:39 07            pushi 7 // $7 cel
  05a6:78               push1 
  05a7:76               push0 
  05a8:39 7e            pushi 7e // $7e setCycle
  05aa:7a               push2 
  05ab:51 1a            class End 
  05ad:36                push 
  05ae:7c            pushSelf 
  05af:72 0552          lofsa $0b04 // Clarence
  05b2:4a 14             send 14 

  05b4:7a               push2 
  05b5:78               push1 
  05b6:39 03            pushi 3 // $3 y
  05b8:43 40 04         callk Random 4 

  05bb:a3 03              sal local3 
  05bd:35 00              ldi 0 
  05bf:a3 04              sal local4 
  05c1:32 0183            jmp code_0747 

        code_05c4
  05c4:3c                 dup 
  05c5:35 02              ldi 2 
  05c7:1a                 eq? 
  05c8:31 07              bnt code_05d1 
  05ca:35 02              ldi 2 
  05cc:65 12             aTop seconds 
  05ce:32 0176            jmp code_0747 

        code_05d1
  05d1:3c                 dup 
  05d2:35 03              ldi 3 
  05d4:1a                 eq? 
  05d5:31 16              bnt code_05ed 
  05d7:38 00c8          pushi c8 // $c8 setLoop
  05da:78               push1 
  05db:39 04            pushi 4 // $4 x
  05dd:39 07            pushi 7 // $7 cel
  05df:78               push1 
  05e0:78               push1 
  05e1:72 0520          lofsa $0b04 // Clarence
  05e4:4a 0c             send c 

  05e6:35 01              ldi 1 
  05e8:65 10             aTop cycles 
  05ea:32 015a            jmp code_0747 

        code_05ed
  05ed:3c                 dup 
  05ee:35 04              ldi 4 
  05f0:1a                 eq? 
  05f1:31 17              bnt code_060a 
  05f3:39 07            pushi 7 // $7 cel
  05f5:78               push1 
  05f6:76               push0 
  05f7:39 7e            pushi 7e // $7e setCycle
  05f9:7a               push2 
  05fa:51 1a            class End 
  05fc:36                push 
  05fd:7c            pushSelf 
  05fe:38 00ca          pushi ca // $ca show
  0601:76               push0 
  0602:72 059f          lofsa $0ba4 // Smoke
  0605:4a 12             send 12 

  0607:32 013d            jmp code_0747 

        code_060a
  060a:3c                 dup 
  060b:35 05              ldi 5 
  060d:1a                 eq? 
  060e:31 5e              bnt code_066e 
  0610:8b 04              lsl local4 
  0612:83 03              lal local3 
  0614:22                 lt? 
  0615:31 13              bnt code_062a 
  0617:c3 04              +al local4 
  0619:39 07            pushi 7 // $7 cel
  061b:78               push1 
  061c:76               push0 
  061d:72 04e4          lofsa $0b04 // Clarence
  0620:4a 06             send 6 

  0622:35 01              ldi 1 
  0624:65 0a             aTop state 
  0626:65 10             aTop cycles 
  0628:33 41              jmp code_066b 

        code_062a
  062a:39 07            pushi 7 // $7 cel
  062c:78               push1 
  062d:76               push0 
  062e:38 0089          pushi 89 // $89 hide
  0631:76               push0 
  0632:72 056f          lofsa $0ba4 // Smoke
  0635:4a 0a             send a 

  0637:38 00c8          pushi c8 // $c8 setLoop
  063a:78               push1 
  063b:39 05            pushi 5 // $5 view
  063d:72 04c4          lofsa $0b04 // Clarence
  0640:4a 06             send 6 

  0642:39 07            pushi 7 // $7 cel
  0644:78               push1 
  0645:78               push1 
  0646:74 04bb          lofss $0b04 // Clarence
  0649:43 0e 02         callk NumCels 2 

  064c:36                push 
  064d:35 03              ldi 3 
  064f:04                 sub 
  0650:36                push 
  0651:38 00a4          pushi a4 // $a4 cycleSpeed
  0654:78               push1 
  0655:7a               push2 
  0656:39 7e            pushi 7e // $7e setCycle
  0658:78               push1 
  0659:51 1b            class Beg 
  065b:36                push 
  065c:72 04a5          lofsa $0b04 // Clarence
  065f:4a 12             send 12 

  0661:7a               push2 
  0662:39 03            pushi 3 // $3 y
  0664:39 06            pushi 6 // $6 loop
  0666:43 40 04         callk Random 4 

  0669:65 12             aTop seconds 

        code_066b
  066b:32 00d9            jmp code_0747 

        code_066e
  066e:3c                 dup 
  066f:35 06              ldi 6 
  0671:1a                 eq? 
  0672:31 25              bnt code_0699 
  0674:38 00c8          pushi c8 // $c8 setLoop
  0677:78               push1 
  0678:7a               push2 
  0679:72 0488          lofsa $0b04 // Clarence
  067c:4a 06             send 6 

  067e:39 07            pushi 7 // $7 cel
  0680:78               push1 
  0681:78               push1 
  0682:74 047f          lofss $0b04 // Clarence
  0685:43 0e 02         callk NumCels 2 

  0688:36                push 
  0689:35 01              ldi 1 
  068b:04                 sub 
  068c:36                push 
  068d:72 0474          lofsa $0b04 // Clarence
  0690:4a 06             send 6 

  0692:35 01              ldi 1 
  0694:65 10             aTop cycles 
  0696:32 00ae            jmp code_0747 

        code_0699
  0699:3c                 dup 
  069a:35 07              ldi 7 
  069c:1a                 eq? 
  069d:31 36              bnt code_06d5 
  069f:39 7e            pushi 7e // $7e setCycle
  06a1:78               push1 
  06a2:51 1b            class Beg 
  06a4:36                push 
  06a5:72 045c          lofsa $0b04 // Clarence
  06a8:4a 06             send 6 

  06aa:7a               push2 
  06ab:78               push1 
  06ac:39 04            pushi 4 // $4 x
  06ae:43 40 04         callk Random 4 

  06b1:36                push 
  06b2:3c                 dup 
  06b3:35 01              ldi 1 
  06b5:1a                 eq? 
  06b6:31 06              bnt code_06be 
  06b8:35 00              ldi 0 
  06ba:65 0a             aTop state 
  06bc:33 0a              jmp code_06c8 

        code_06be
  06be:3c                 dup 
  06bf:35 03              ldi 3 
  06c1:1a                 eq? 
  06c2:31 04              bnt code_06c8 
  06c4:35 08              ldi 8 
  06c6:65 0a             aTop state 

        code_06c8
  06c8:3a                toss 
  06c9:7a               push2 
  06ca:39 03            pushi 3 // $3 y
  06cc:39 06            pushi 6 // $6 loop
  06ce:43 40 04         callk Random 4 

  06d1:65 12             aTop seconds 
  06d3:33 72              jmp code_0747 

        code_06d5
  06d5:3c                 dup 
  06d6:35 08              ldi 8 
  06d8:1a                 eq? 
  06d9:31 1b              bnt code_06f6 
  06db:39 7e            pushi 7e // $7e setCycle
  06dd:78               push1 
  06de:51 1a            class End 
  06e0:36                push 
  06e1:72 0420          lofsa $0b04 // Clarence
  06e4:4a 06             send 6 

  06e6:35 06              ldi 6 
  06e8:65 0a             aTop state 
  06ea:7a               push2 
  06eb:39 03            pushi 3 // $3 y
  06ed:39 06            pushi 6 // $6 loop
  06ef:43 40 04         callk Random 4 

  06f2:65 12             aTop seconds 
  06f4:33 51              jmp code_0747 

        code_06f6
  06f6:3c                 dup 
  06f7:35 09              ldi 9 
  06f9:1a                 eq? 
  06fa:31 1f              bnt code_071b 
  06fc:38 00c8          pushi c8 // $c8 setLoop
  06ff:78               push1 
  0700:39 09            pushi 9 // $9 nsTop
  0702:39 07            pushi 7 // $7 cel
  0704:78               push1 
  0705:76               push0 
  0706:39 7e            pushi 7e // $7e setCycle
  0708:78               push1 
  0709:51 1a            class End 
  070b:36                push 
  070c:72 03f5          lofsa $0b04 // Clarence
  070f:4a 12             send 12 

  0711:7a               push2 
  0712:78               push1 
  0713:7a               push2 
  0714:43 40 04         callk Random 4 

  0717:65 12             aTop seconds 
  0719:33 2c              jmp code_0747 

        code_071b
  071b:3c                 dup 
  071c:35 0a              ldi a 
  071e:1a                 eq? 
  071f:31 26              bnt code_0747 
  0721:39 7e            pushi 7e // $7e setCycle
  0723:78               push1 
  0724:51 1b            class Beg 
  0726:36                push 
  0727:72 03da          lofsa $0b04 // Clarence
  072a:4a 06             send 6 

  072c:7a               push2 
  072d:39 03            pushi 3 // $3 y
  072f:39 06            pushi 6 // $6 loop
  0731:43 40 04         callk Random 4 

  0734:65 12             aTop seconds 
  0736:67 12             pTos seconds 
  0738:35 05              ldi 5 
  073a:22                 lt? 
  073b:31 06              bnt code_0743 
  073d:35 00              ldi 0 
  073f:65 0a             aTop state 
  0741:33 04              jmp code_0747 

        code_0743
  0743:35 05              ldi 5 
  0745:65 0a             aTop state 

        code_0747
  0747:3a                toss 
  0748:48                 ret 
    )

)

// 0aac
(instance Gertie of Prop
    (properties
        y $67
        x $7d
        z $0
        heading $0
        yStep $2
        view $156
        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
    )
    (method (handleEvent) // method_0749
  0749:38 00ae          pushi ae // $ae distanceTo
  074c:78               push1 
  074d:74 0362          lofss $0ab2 // Gertie
  0750:81 00              lag gEgo 
  0752:4a 06             send 6 

  0754:36                push 
  0755:38 00ae          pushi ae // $ae distanceTo
  0758:78               push1 
  0759:74 03a8          lofss $0b04 // Clarence
  075c:81 00              lag gEgo 
  075e:4a 06             send 6 

  0760:22                 lt? 
  0761:31 07              bnt code_076a 
  0763:35 01              ldi 1 
  0765:a0 00d6            sag global214 
  0768:33 05              jmp code_076f 

        code_076a
  076a:35 40              ldi 40 
  076c:a0 00d6            sag global214 

        code_076f
  076f:35 01              ldi 1 
  0771:a0 00d5            sag global213 
  0774:78               push1 
  0775:74 0250          lofss $09c8 // look/gens
  0778:43 25 02         callk Said 2 

  077b:31 0f              bnt code_078c 
  077d:7a               push2 
  077e:38 00d9          pushi d9 // $d9 ignoreBlocks
  0781:39 14            pushi 14 // $14 brLeft
  0783:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0789:32 0106            jmp code_0892 

        code_078c
  078c:78               push1 
  078d:74 0223          lofss $09b3 // look,bonjour/person
  0790:43 25 02         callk Said 2 

  0793:31 0f              bnt code_07a4 
  0795:7a               push2 
  0796:38 00d9          pushi d9 // $d9 ignoreBlocks
  0799:39 15            pushi 15 // $15 brBottom
  079b:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  07a1:32 00ee            jmp code_0892 

        code_07a4
  07a4:78               push1 
  07a5:74 0236          lofss $09de // bonjour/gens
  07a8:43 25 02         callk Said 2 

  07ab:31 0f              bnt code_07bc 
  07ad:7a               push2 
  07ae:38 00d9          pushi d9 // $d9 ignoreBlocks
  07b1:39 16            pushi 16 // $16 brRight
  07b3:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  07b9:32 00d6            jmp code_0892 

        code_07bc
  07bc:78               push1 
  07bd:74 01cd          lofss $098d // ask[/gertie]/attorney<about
  07c0:43 25 02         callk Said 2 

  07c3:31 1c              bnt code_07e1 
  07c5:35 01              ldi 1 
  07c7:a0 00d4            sag global212 
  07ca:87 01              lap param1 
  07cc:a0 00d1            sag global209 
  07cf:39 03            pushi 3 // $3 y
  07d1:39 04            pushi 4 // $4 x
  07d3:38 00d9          pushi d9 // $d9 ignoreBlocks
  07d6:39 17            pushi 17 // $17 name
  07d8:46 00f3 0001 06  calle f3 procedure_0001 6 // proc243_1 

  07de:32 00b1            jmp code_0892 

        code_07e1
  07e1:78               push1 
  07e2:74 01f3          lofss $09d8 // bonjour/gertie
  07e5:43 25 02         callk Said 2 

  07e8:31 4b              bnt code_0835 
  07ea:8b 00              lsl local0 
  07ec:3c                 dup 
  07ed:35 00              ldi 0 
  07ef:1a                 eq? 
  07f0:31 0d              bnt code_07ff 
  07f2:39 03            pushi 3 // $3 y
  07f4:78               push1 
  07f5:38 00d9          pushi d9 // $d9 ignoreBlocks
  07f8:39 18            pushi 18 // $18 key
  07fa:45 01 06         callb procedure_0001 6 // Say 

  07fd:33 31              jmp code_0830 

        code_07ff
  07ff:3c                 dup 
  0800:35 01              ldi 1 
  0802:1a                 eq? 
  0803:31 0d              bnt code_0812 
  0805:39 03            pushi 3 // $3 y
  0807:78               push1 
  0808:38 00d9          pushi d9 // $d9 ignoreBlocks
  080b:39 19            pushi 19 // $19 time
  080d:45 01 06         callb procedure_0001 6 // Say 

  0810:33 1e              jmp code_0830 

        code_0812
  0812:3c                 dup 
  0813:35 02              ldi 2 
  0815:1a                 eq? 
  0816:31 0d              bnt code_0825 
  0818:39 03            pushi 3 // $3 y
  081a:78               push1 
  081b:38 00d9          pushi d9 // $d9 ignoreBlocks
  081e:39 1a            pushi 1a // $1a text
  0820:45 01 06         callb procedure_0001 6 // Say 

  0823:33 0b              jmp code_0830 

        code_0825
  0825:39 03            pushi 3 // $3 y
  0827:78               push1 
  0828:38 00d9          pushi d9 // $d9 ignoreBlocks
  082b:39 1b            pushi 1b // $1b elements
  082d:45 01 06         callb procedure_0001 6 // Say 


        code_0830
  0830:3a                toss 
  0831:c3 00              +al local0 
  0833:33 5d              jmp code_0892 

        code_0835
  0835:39 03            pushi 3 // $3 y
  0837:7c            pushSelf 
  0838:8f 01              lsp param1 
  083a:39 03            pushi 3 // $3 y
  083c:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  0842:31 1a              bnt code_085e 
  0844:88 00cf            lsg global207 
  0847:35 01              ldi 1 
  0849:12                 and 
  084a:18                 not 
  084b:31 11              bnt code_085e 
  084d:39 4c            pushi 4c // $4c claimed
  084f:78               push1 
  0850:78               push1 
  0851:87 01              lap param1 
  0853:4a 06             send 6 

  0855:78               push1 
  0856:74 041f          lofss $0c78 // gertie
  0859:45 19 02         callb procedure_0019 2 // DoLook 

  085c:33 34              jmp code_0892 

        code_085e
  085e:88 00cf            lsg global207 
  0861:35 01              ldi 1 
  0863:12                 and 
  0864:31 2c              bnt code_0892 
  0866:39 03            pushi 3 // $3 y
  0868:7c            pushSelf 
  0869:8f 01              lsp param1 
  086b:39 03            pushi 3 // $3 y
  086d:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  0873:2f 09               bt code_087e 
  0875:78               push1 
  0876:74 0149          lofss $09c2 // look/gertie
  0879:43 25 02         callk Said 2 

  087c:31 14              bnt code_0892 

        code_087e
  087e:7a               push2 
  087f:38 00d9          pushi d9 // $d9 ignoreBlocks
  0882:39 1c            pushi 1c // $1c color
  0884:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  088a:39 4c            pushi 4c // $4c claimed
  088c:78               push1 
  088d:78               push1 
  088e:87 01              lap param1 
  0890:4a 06             send 6 


        code_0892
  0892:48                 ret 
    )

)

// 0afe
(instance Clarence of Prop
    (properties
        y $4a
        x $ab
        z $0
        heading $0
        yStep $2
        view $191
        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
    )
    (method (handleEvent) // method_0893
  0893:35 07              ldi 7 
  0895:a0 00d5            sag global213 
  0898:78               push1 
  0899:74 0136          lofss $09d2 // bonjour/attorney
  089c:43 25 02         callk Said 2 

  089f:31 4c              bnt code_08ed 
  08a1:8b 01              lsl local1 
  08a3:3c                 dup 
  08a4:35 00              ldi 0 
  08a6:1a                 eq? 
  08a7:31 0d              bnt code_08b6 
  08a9:39 03            pushi 3 // $3 y
  08ab:78               push1 
  08ac:38 00d9          pushi d9 // $d9 ignoreBlocks
  08af:39 1d            pushi 1d // $1d back
  08b1:45 01 06         callb procedure_0001 6 // Say 

  08b4:33 31              jmp code_08e7 

        code_08b6
  08b6:3c                 dup 
  08b7:35 01              ldi 1 
  08b9:1a                 eq? 
  08ba:31 0d              bnt code_08c9 
  08bc:39 03            pushi 3 // $3 y
  08be:78               push1 
  08bf:38 00d9          pushi d9 // $d9 ignoreBlocks
  08c2:39 1e            pushi 1e // $1e mode
  08c4:45 01 06         callb procedure_0001 6 // Say 

  08c7:33 1e              jmp code_08e7 

        code_08c9
  08c9:3c                 dup 
  08ca:35 02              ldi 2 
  08cc:1a                 eq? 
  08cd:31 0d              bnt code_08dc 
  08cf:39 03            pushi 3 // $3 y
  08d1:78               push1 
  08d2:38 00d9          pushi d9 // $d9 ignoreBlocks
  08d5:39 1f            pushi 1f // $1f style
  08d7:45 01 06         callb procedure_0001 6 // Say 

  08da:33 0b              jmp code_08e7 

        code_08dc
  08dc:39 03            pushi 3 // $3 y
  08de:78               push1 
  08df:38 00d9          pushi d9 // $d9 ignoreBlocks
  08e2:39 20            pushi 20 // $20 state
  08e4:45 01 06         callb procedure_0001 6 // Say 


        code_08e7
  08e7:3a                toss 
  08e8:c3 01              +al local1 
  08ea:32 0081            jmp code_096e 

        code_08ed
  08ed:78               push1 
  08ee:74 008e          lofss $097f // ask[/attorney]/gertie<about
  08f1:43 25 02         callk Said 2 

  08f4:31 1b              bnt code_0911 
  08f6:35 01              ldi 1 
  08f8:a0 00d4            sag global212 
  08fb:87 01              lap param1 
  08fd:a0 00d1            sag global209 
  0900:39 03            pushi 3 // $3 y
  0902:39 09            pushi 9 // $9 nsTop
  0904:38 00d9          pushi d9 // $d9 ignoreBlocks
  0907:39 21            pushi 21 // $21 font
  0909:46 00f3 0001 06  calle f3 procedure_0001 6 // proc243_1 

  090f:33 5d              jmp code_096e 

        code_0911
  0911:39 03            pushi 3 // $3 y
  0913:7c            pushSelf 
  0914:8f 01              lsp param1 
  0916:39 03            pushi 3 // $3 y
  0918:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  091e:31 1a              bnt code_093a 
  0920:88 00cf            lsg global207 
  0923:35 40              ldi 40 
  0925:12                 and 
  0926:18                 not 
  0927:31 11              bnt code_093a 
  0929:39 4c            pushi 4c // $4c claimed
  092b:78               push1 
  092c:78               push1 
  092d:87 01              lap param1 
  092f:4a 06             send 6 

  0931:78               push1 
  0932:74 0327          lofss $0c5c // clarence
  0935:45 19 02         callb procedure_0019 2 // DoLook 

  0938:33 34              jmp code_096e 

        code_093a
  093a:88 00cf            lsg global207 
  093d:35 40              ldi 40 
  093f:12                 and 
  0940:31 2c              bnt code_096e 
  0942:39 03            pushi 3 // $3 y
  0944:7c            pushSelf 
  0945:8f 01              lsp param1 
  0947:39 03            pushi 3 // $3 y
  0949:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  094f:2f 09               bt code_095a 
  0951:78               push1 
  0952:74 0067          lofss $09bc // look/attorney
  0955:43 25 02         callk Said 2 

  0958:31 14              bnt code_096e 

        code_095a
  095a:39 4c            pushi 4c // $4c claimed
  095c:78               push1 
  095d:78               push1 
  095e:87 01              lap param1 
  0960:4a 06             send 6 

  0962:7a               push2 
  0963:38 00d9          pushi d9 // $d9 ignoreBlocks
  0966:39 14            pushi 14 // $14 brLeft
  0968:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_096e
  096e:48                 ret 
  096f:00                bnot 
    )

)

// 0b50
(instance ClarAss of Prop
    (properties
        y $66
        x $a8
        z $0
        heading $0
        yStep $2
        view $191
        loop $0
        cel $2
        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
    )
)

// 0b9e
(instance Smoke of Prop
    (properties
        y $3c
        x $a7
        z $0
        heading $0
        yStep $2
        view $191
        loop $6
        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
    )
)

// 0bec
(instance gBlock of Blk
    (properties
        top $62
        left $73
        bottom $68
        right $8c
    )
)



(procedure proc_001e
  001e:39 06            pushi 6 // $6 loop
  0020:78               push1 
  0021:7a               push2 
  0022:38 00a4          pushi a4 // $a4 cycleSpeed
  0025:78               push1 
  0026:78               push1 
  0027:39 7e            pushi 7e // $7e setCycle
  0029:78               push1 
  002a:51 16            class Fwd 
  002c:36                push 
  002d:72 0a82          lofsa $0ab2 // Gertie
  0030:4a 12             send 12 

  0032:39 7e            pushi 7e // $7e setCycle
  0034:78               push1 
  0035:76               push0 
  0036:72 0acb          lofsa $0b04 // Clarence
  0039:4a 06             send 6 

  003b:39 0b            pushi b // $b nsBottom
  003d:59 01            &rest 1 
  003f:39 43            pushi 43 // $43 at
  0041:39 0a            pushi a // $a nsLeft
  0043:38 008c          pushi 8c // $8c track
  0046:39 21            pushi 21 // $21 font
  0048:39 04            pushi 4 // $4 x
  004a:39 46            pushi 46 // $46 width
  004c:39 7d            pushi 7d // $7d set
  004e:39 1e            pushi 1e // $1e mode
  0050:78               push1 
  0051:39 53            pushi 53 // $53 draw
  0053:39 58            pushi 58 // $58 dispose
  0055:46 00ff 0000 16  calle ff procedure_0000 16 // Print 

  005b:48                 ret 
)

(procedure proc_005c
  005c:39 06            pushi 6 // $6 loop
  005e:78               push1 
  005f:78               push1 
  0060:39 07            pushi 7 // $7 cel
  0062:78               push1 
  0063:78               push1 
  0064:38 00c6          pushi c6 // $c6 stopUpd
  0067:76               push0 
  0068:72 0a47          lofsa $0ab2 // Gertie
  006b:4a 10             send 10 

  006d:39 06            pushi 6 // $6 loop
  006f:78               push1 
  0070:39 03            pushi 3 // $3 y
  0072:39 07            pushi 7 // $7 cel
  0074:78               push1 
  0075:76               push0 
  0076:38 00a4          pushi a4 // $a4 cycleSpeed
  0079:78               push1 
  007a:78               push1 
  007b:39 7e            pushi 7e // $7e setCycle
  007d:78               push1 
  007e:51 16            class Fwd 
  0080:36                push 
  0081:72 0a80          lofsa $0b04 // Clarence
  0084:4a 18             send 18 

  0086:39 0b            pushi b // $b nsBottom
  0088:59 01            &rest 1 
  008a:39 43            pushi 43 // $43 at
  008c:39 65            pushi 65 // $65 contains
  008e:38 008c          pushi 8c // $8c track
  0091:39 21            pushi 21 // $21 font
  0093:39 04            pushi 4 // $4 x
  0095:39 46            pushi 46 // $46 width
  0097:39 7d            pushi 7d // $7d set
  0099:39 1e            pushi 1e // $1e mode
  009b:78               push1 
  009c:39 53            pushi 53 // $53 draw
  009e:39 58            pushi 58 // $58 dispose
  00a0:46 00ff 0000 16  calle ff procedure_0000 16 // Print 

  00a6:48                 ret 
)

