(script 237)

(string
    string_0e4c "CHead"
    string_0e52 "Clarence"
    string_0e5b "Smoke"
    string_0e61 "WHead"
    string_0e67 "Wilbur"
    string_0e6e "argue"
    string_0e74 "clarActions"
    string_0e80 "clarence"
    string_0e89 "goSee"
    string_0e8f "wcargue"
    string_0e97 "wilActions"
    string_0ea2 "wilbur"
    string_0ea9 ""
)

(said
    said_0b20 ask[/attorney]/c<about
    said_0b2e ask[/c]/attorney<about
    said_0b3c get/butt
    said_0b42 ecouter/attorney,c
    said_0b4b look,bonjour/person,hommes
    said_0b57 look/attorney
    said_0b5d look/butt
    said_0b63 look/c,hommes
    said_0b6c look/man
    said_0b72 look/hommes
    said_0b78 bonjour/attorney
    said_0b7e bonjour/c,man
    said_0b87 bonjour/man
    said_0b8d bonjour/hommes
    said_0b93 raconter[/c]/gertie<about
)

(synonym
    butt | cigar | cigare | megot = cigarette
    hommes | men = gens | people | personnes
)

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

// 0ba8
(instance public wcargue of Rgn
    (properties
        script $0
        number $0
        timer $0
        keep $0
        initialized $0
    )
    (method (init) // method_0111
  0111:39 57            pushi 57 // $57 init
  0113:76               push0 
  0114:57 36 04         super Rgn 4 

  0117:7a               push2 
  0118:38 0087          pushi 87 // $87 clean
  011b:39 04            pushi 4 // $4 x
  011d:43 00 04         callk Load 4 

  0120:39 03            pushi 3 // $3 y
  0122:38 008e          pushi 8e // $8e move
  0125:39 07            pushi 7 // $7 cel
  0127:39 08            pushi 8 // $8 underBits
  0129:45 15 06         callb procedure_0015 6 // LoadMany 

  012c:39 04            pushi 4 // $4 x
  012e:38 008f          pushi 8f // $8f moveTo
  0131:38 00f3          pushi f3 // $f3 close
  0134:38 00f7          pushi f7 // $f7 empty
  0137:38 00f8          pushi f8 // $f8 newRoom
  013a:45 15 08         callb procedure_0015 8 // LoadMany 

  013d:34 00c0            ldi c0 
  0140:a0 00d0            sag global208 
  0143:34 00f8            ldi f8 
  0146:a0 017f            sag global383 
  0149:34 00f7            ldi f7 
  014c:a0 0180            sag global384 
  014f:7a               push2 
  0150:38 0080          pushi 80 // $80 timeLeft
  0153:38 0194          pushi 194 // $194 sel_404
  0156:43 00 04         callk Load 4 

  0159:39 57            pushi 57 // $57 init
  015b:76               push0 
  015c:72 0b8f          lofsa $0cee // Clarence
  015f:4a 04             send 4 

  0161:39 57            pushi 57 // $57 init
  0163:76               push0 
  0164:72 0b39          lofsa $0ca0 // CHead
  0167:4a 04             send 4 

  0169:39 57            pushi 57 // $57 init
  016b:76               push0 
  016c:72 0c1f          lofsa $0d8e // Wilbur
  016f:4a 04             send 4 

  0171:38 00c9          pushi c9 // $c9 ignoreActors
  0174:78               push1 
  0175:78               push1 
  0176:39 57            pushi 57 // $57 init
  0178:76               push0 
  0179:72 0bc4          lofsa $0d40 // WHead
  017c:4a 0a             send a 

  017e:39 57            pushi 57 // $57 init
  0180:76               push0 
  0181:38 0089          pushi 89 // $89 hide
  0184:76               push0 
  0185:72 0c6e          lofsa $0df6 // Smoke
  0188:4a 08             send 8 

  018a:39 7a            pushi 7a // $7a setScript
  018c:78               push1 
  018d:74 0a50          lofss $0be0 // argue
  0190:54 06             self 6 

  0192:48                 ret 
    )

    (method (doit) // method_0193
  0193:88 00ac            lsg global172 
  0196:35 64              ldi 64 
  0198:1a                 eq? 
  0199:31 16              bnt code_01b1 
  019b:83 05              lal local5 
  019d:18                 not 
  019e:31 11              bnt code_01b1 
  01a0:35 01              ldi 1 
  01a2:a3 05              sal local5 
  01a4:76               push0 
  01a5:45 0f 00         callb procedure_000f 0 // cls 

  01a8:7a               push2 
  01a9:38 00ed          pushi ed // $ed put
  01ac:76               push0 
  01ad:40 fea6 04        call proc_0057 4 


        code_01b1
  01b1:88 00ac            lsg global172 
  01b4:35 6e              ldi 6e 
  01b6:1a                 eq? 
  01b7:31 04              bnt code_01bd 
  01b9:76               push0 
  01ba:45 0f 00         callb procedure_000f 0 // cls 


        code_01bd
  01bd:39 3c            pushi 3c // $3c doit
  01bf:76               push0 
  01c0:57 36 04         super Rgn 4 

  01c3:48                 ret 
    )

    (method (dispose) // method_01c4
  01c4:78               push1 
  01c5:38 03d9          pushi 3d9 // $3d9 sel_985
  01c8:43 03 02         callk DisposeScript 2 

  01cb:39 58            pushi 58 // $58 dispose
  01cd:76               push0 
  01ce:57 36 04         super Rgn 4 

  01d1:48                 ret 
    )

    (method (handleEvent) // method_01d2
  01d2:39 4c            pushi 4c // $4c claimed
  01d4:76               push0 
  01d5:87 01              lap param1 
  01d7:4a 04             send 4 

  01d9:31 03              bnt code_01de 
  01db:35 01              ldi 1 
  01dd:48                 ret 

        code_01de
  01de:48                 ret 
    )

)

// 0bda
(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_01df
  01df:87 01              lap param1 
  01e1:65 0a             aTop state 
  01e3:36                push 
  01e4:3c                 dup 
  01e5:35 00              ldi 0 
  01e7:1a                 eq? 
  01e8:31 07              bnt code_01f1 
  01ea:35 02              ldi 2 
  01ec:65 10             aTop cycles 
  01ee:32 021a            jmp code_040b 

        code_01f1
  01f1:3c                 dup 
  01f2:35 01              ldi 1 
  01f4:1a                 eq? 
  01f5:30 009c            bnt code_0294 
  01f8:38 00e2          pushi e2 // $e2 canInput
  01fb:78               push1 
  01fc:76               push0 
  01fd:51 2b            class User 
  01ff:4a 06             send 6 

  0201:88 00b3            lsg global179 
  0204:35 06              ldi 6 
  0206:22                 lt? 
  0207:31 05              bnt code_020e 
  0209:c0 00b3            +ag global179 
  020c:33 05              jmp code_0213 

        code_020e
  020e:35 03              ldi 3 
  0210:a0 00b3            sag global179 

        code_0213
  0213:88 00b3            lsg global179 
  0216:3c                 dup 
  0217:35 01              ldi 1 
  0219:1a                 eq? 
  021a:31 0f              bnt code_022b 
  021c:7a               push2 
  021d:38 00ed          pushi ed // $ed put
  0220:78               push1 
  0221:40 fe90 04        call proc_00b5 4 

  0225:35 06              ldi 6 
  0227:65 12             aTop seconds 
  0229:33 65              jmp code_0290 

        code_022b
  022b:3c                 dup 
  022c:35 02              ldi 2 
  022e:1a                 eq? 
  022f:31 0f              bnt code_0240 
  0231:7a               push2 
  0232:38 00ed          pushi ed // $ed put
  0235:7a               push2 
  0236:40 fe1d 04        call proc_0057 4 

  023a:35 06              ldi 6 
  023c:65 12             aTop seconds 
  023e:33 50              jmp code_0290 

        code_0240
  0240:3c                 dup 
  0241:35 03              ldi 3 
  0243:1a                 eq? 
  0244:31 10              bnt code_0256 
  0246:7a               push2 
  0247:38 00ed          pushi ed // $ed put
  024a:39 03            pushi 3 // $3 y
  024c:40 fe65 04        call proc_00b5 4 

  0250:35 04              ldi 4 
  0252:65 12             aTop seconds 
  0254:33 3a              jmp code_0290 

        code_0256
  0256:3c                 dup 
  0257:35 04              ldi 4 
  0259:1a                 eq? 
  025a:31 10              bnt code_026c 
  025c:7a               push2 
  025d:38 00ed          pushi ed // $ed put
  0260:39 04            pushi 4 // $4 x
  0262:40 fdf1 04        call proc_0057 4 

  0266:35 03              ldi 3 
  0268:65 12             aTop seconds 
  026a:33 24              jmp code_0290 

        code_026c
  026c:3c                 dup 
  026d:35 05              ldi 5 
  026f:1a                 eq? 
  0270:31 10              bnt code_0282 
  0272:35 05              ldi 5 
  0274:65 12             aTop seconds 
  0276:7a               push2 
  0277:38 00ed          pushi ed // $ed put
  027a:39 05            pushi 5 // $5 view
  027c:40 fe35 04        call proc_00b5 4 

  0280:33 0e              jmp code_0290 

        code_0282
  0282:7a               push2 
  0283:38 00ed          pushi ed // $ed put
  0286:39 06            pushi 6 // $6 loop
  0288:40 fdcb 04        call proc_0057 4 

  028c:35 03              ldi 3 
  028e:65 12             aTop seconds 

        code_0290
  0290:3a                toss 
  0291:32 0177            jmp code_040b 

        code_0294
  0294:3c                 dup 
  0295:35 02              ldi 2 
  0297:1a                 eq? 
  0298:30 00c2            bnt code_035d 
  029b:76               push0 
  029c:45 0f 00         callb procedure_000f 0 // cls 

  029f:39 05            pushi 5 // $5 view
  02a1:78               push1 
  02a2:38 0192          pushi 192 // $192 sel_402
  02a5:39 06            pushi 6 // $6 loop
  02a7:78               push1 
  02a8:39 08            pushi 8 // $8 underBits
  02aa:39 07            pushi 7 // $7 cel
  02ac:78               push1 
  02ad:7a               push2 
  02ae:39 7e            pushi 7e // $7e setCycle
  02b0:78               push1 
  02b1:76               push0 
  02b2:72 09eb          lofsa $0ca0 // CHead
  02b5:4a 18             send 18 

  02b7:39 05            pushi 5 // $5 view
  02b9:78               push1 
  02ba:38 01a9          pushi 1a9 // $1a9 sel_425
  02bd:39 06            pushi 6 // $6 loop
  02bf:78               push1 
  02c0:39 05            pushi 5 // $5 view
  02c2:39 07            pushi 7 // $7 cel
  02c4:78               push1 
  02c5:76               push0 
  02c6:39 7e            pushi 7e // $7e setCycle
  02c8:78               push1 
  02c9:76               push0 
  02ca:72 0a73          lofsa $0d40 // WHead
  02cd:4a 18             send 18 

  02cf:88 00b3            lsg global179 
  02d2:3c                 dup 
  02d3:35 01              ldi 1 
  02d5:1a                 eq? 
  02d6:31 0f              bnt code_02e7 
  02d8:39 7e            pushi 7e // $7e setCycle
  02da:78               push1 
  02db:76               push0 
  02dc:72 0a0f          lofsa $0cee // Clarence
  02df:4a 06             send 6 

  02e1:35 01              ldi 1 
  02e3:65 12             aTop seconds 
  02e5:33 72              jmp code_0359 

        code_02e7
  02e7:3c                 dup 
  02e8:35 02              ldi 2 
  02ea:1a                 eq? 
  02eb:31 0f              bnt code_02fc 
  02ed:39 7e            pushi 7e // $7e setCycle
  02ef:78               push1 
  02f0:76               push0 
  02f1:72 0a9a          lofsa $0d8e // Wilbur
  02f4:4a 06             send 6 

  02f6:35 01              ldi 1 
  02f8:65 12             aTop seconds 
  02fa:33 5d              jmp code_0359 

        code_02fc
  02fc:3c                 dup 
  02fd:35 03              ldi 3 
  02ff:1a                 eq? 
  0300:31 2a              bnt code_032c 
  0302:39 06            pushi 6 // $6 loop
  0304:78               push1 
  0305:78               push1 
  0306:39 07            pushi 7 // $7 cel
  0308:78               push1 
  0309:76               push0 
  030a:39 7e            pushi 7e // $7e setCycle
  030c:7a               push2 
  030d:51 1a            class End 
  030f:36                push 
  0310:7c            pushSelf 
  0311:72 0a7a          lofsa $0d8e // Wilbur
  0314:4a 14             send 14 

  0316:39 06            pushi 6 // $6 loop
  0318:78               push1 
  0319:76               push0 
  031a:39 07            pushi 7 // $7 cel
  031c:78               push1 
  031d:39 03            pushi 3 // $3 y
  031f:39 7e            pushi 7e // $7e setCycle
  0321:78               push1 
  0322:51 1b            class Beg 
  0324:36                push 
  0325:72 09c6          lofsa $0cee // Clarence
  0328:4a 12             send 12 

  032a:33 2d              jmp code_0359 

        code_032c
  032c:3c                 dup 
  032d:35 04              ldi 4 
  032f:1a                 eq? 
  0330:31 16              bnt code_0348 
  0332:39 06            pushi 6 // $6 loop
  0334:78               push1 
  0335:78               push1 
  0336:39 07            pushi 7 // $7 cel
  0338:78               push1 
  0339:76               push0 
  033a:39 7e            pushi 7e // $7e setCycle
  033c:7a               push2 
  033d:51 1a            class End 
  033f:36                push 
  0340:7c            pushSelf 
  0341:72 0a4a          lofsa $0d8e // Wilbur
  0344:4a 14             send 14 

  0346:33 11              jmp code_0359 

        code_0348
  0348:39 07            pushi 7 // $7 cel
  034a:78               push1 
  034b:39 03            pushi 3 // $3 y
  034d:39 7e            pushi 7e // $7e setCycle
  034f:7a               push2 
  0350:51 1b            class Beg 
  0352:36                push 
  0353:7c            pushSelf 
  0354:72 0a37          lofsa $0d8e // Wilbur
  0357:4a 0e             send e 


        code_0359
  0359:3a                toss 
  035a:32 00ae            jmp code_040b 

        code_035d
  035d:3c                 dup 
  035e:35 03              ldi 3 
  0360:1a                 eq? 
  0361:31 4c              bnt code_03af 
  0363:88 00b3            lsg global179 
  0366:3c                 dup 
  0367:35 01              ldi 1 
  0369:1a                 eq? 
  036a:31 10              bnt code_037c 
  036c:7a               push2 
  036d:38 00ed          pushi ed // $ed put
  0370:39 07            pushi 7 // $7 cel
  0372:40 fd3f 04        call proc_00b5 4 

  0376:35 04              ldi 4 
  0378:65 12             aTop seconds 
  037a:33 30              jmp code_03ac 

        code_037c
  037c:3c                 dup 
  037d:35 02              ldi 2 
  037f:1a                 eq? 
  0380:31 10              bnt code_0392 
  0382:7a               push2 
  0383:38 00ed          pushi ed // $ed put
  0386:39 08            pushi 8 // $8 underBits
  0388:40 fccb 04        call proc_0057 4 

  038c:35 04              ldi 4 
  038e:65 12             aTop seconds 
  0390:33 1a              jmp code_03ac 

        code_0392
  0392:3c                 dup 
  0393:35 03              ldi 3 
  0395:1a                 eq? 
  0396:31 10              bnt code_03a8 
  0398:7a               push2 
  0399:38 00ed          pushi ed // $ed put
  039c:39 09            pushi 9 // $9 nsTop
  039e:40 fcb5 04        call proc_0057 4 

  03a2:35 03              ldi 3 
  03a4:65 12             aTop seconds 
  03a6:33 04              jmp code_03ac 

        code_03a8
  03a8:35 01              ldi 1 
  03aa:65 10             aTop cycles 

        code_03ac
  03ac:3a                toss 
  03ad:33 5c              jmp code_040b 

        code_03af
  03af:3c                 dup 
  03b0:35 04              ldi 4 
  03b2:1a                 eq? 
  03b3:31 56              bnt code_040b 
  03b5:39 05            pushi 5 // $5 view
  03b7:78               push1 
  03b8:38 0192          pushi 192 // $192 sel_402
  03bb:39 06            pushi 6 // $6 loop
  03bd:78               push1 
  03be:39 08            pushi 8 // $8 underBits
  03c0:39 07            pushi 7 // $7 cel
  03c2:78               push1 
  03c3:7a               push2 
  03c4:39 7e            pushi 7e // $7e setCycle
  03c6:78               push1 
  03c7:76               push0 
  03c8:72 08d5          lofsa $0ca0 // CHead
  03cb:4a 18             send 18 

  03cd:39 05            pushi 5 // $5 view
  03cf:78               push1 
  03d0:38 01a9          pushi 1a9 // $1a9 sel_425
  03d3:39 06            pushi 6 // $6 loop
  03d5:78               push1 
  03d6:39 05            pushi 5 // $5 view
  03d8:39 07            pushi 7 // $7 cel
  03da:78               push1 
  03db:76               push0 
  03dc:39 7e            pushi 7e // $7e setCycle
  03de:78               push1 
  03df:76               push0 
  03e0:72 095d          lofsa $0d40 // WHead
  03e3:4a 18             send 18 

  03e5:39 7a            pushi 7a // $7a setScript
  03e7:78               push1 
  03e8:74 0825          lofss $0c10 // wilActions
  03eb:72 09a0          lofsa $0d8e // Wilbur
  03ee:4a 06             send 6 

  03f0:39 7a            pushi 7a // $7a setScript
  03f2:78               push1 
  03f3:74 084a          lofss $0c40 // clarActions
  03f6:72 08f5          lofsa $0cee // Clarence
  03f9:4a 06             send 6 

  03fb:76               push0 
  03fc:45 0f 00         callb procedure_000f 0 // cls 

  03ff:76               push0 
  0400:45 04 00         callb procedure_0004 0 // HandsOn 

  0403:39 7a            pushi 7a // $7a setScript
  0405:78               push1 
  0406:76               push0 
  0407:63 08             pToa client 
  0409:4a 06             send 6 


        code_040b
  040b:3a                toss 
  040c:48                 ret 
    )

)

// 0c0a
(instance wilActions 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_040d
  040d:87 01              lap param1 
  040f:65 0a             aTop state 
  0411:36                push 
  0412:3c                 dup 
  0413:35 00              ldi 0 
  0415:1a                 eq? 
  0416:31 2c              bnt code_0444 
  0418:39 06            pushi 6 // $6 loop
  041a:76               push0 
  041b:72 0970          lofsa $0d8e // Wilbur
  041e:4a 04             send 4 

  0420:36                push 
  0421:35 01              ldi 1 
  0423:1e                 gt? 
  0424:31 17              bnt code_043d 
  0426:39 06            pushi 6 // $6 loop
  0428:78               push1 
  0429:78               push1 
  042a:39 07            pushi 7 // $7 cel
  042c:78               push1 
  042d:39 03            pushi 3 // $3 y
  042f:39 7e            pushi 7e // $7e setCycle
  0431:7a               push2 
  0432:51 1b            class Beg 
  0434:36                push 
  0435:7c            pushSelf 
  0436:72 0955          lofsa $0d8e // Wilbur
  0439:4a 14             send 14 

  043b:33 04              jmp code_0441 

        code_043d
  043d:35 01              ldi 1 
  043f:65 10             aTop cycles 

        code_0441
  0441:32 00e7            jmp code_052b 

        code_0444
  0444:3c                 dup 
  0445:35 01              ldi 1 
  0447:1a                 eq? 
  0448:31 26              bnt code_0470 
  044a:39 06            pushi 6 // $6 loop
  044c:78               push1 
  044d:39 09            pushi 9 // $9 nsTop
  044f:39 07            pushi 7 // $7 cel
  0451:78               push1 
  0452:76               push0 
  0453:38 00a4          pushi a4 // $a4 cycleSpeed
  0456:78               push1 
  0457:78               push1 
  0458:39 7e            pushi 7e // $7e setCycle
  045a:78               push1 
  045b:51 1a            class End 
  045d:36                push 
  045e:72 092d          lofsa $0d8e // Wilbur
  0461:4a 18             send 18 

  0463:7a               push2 
  0464:39 06            pushi 6 // $6 loop
  0466:39 0c            pushi c // $c nsRight
  0468:43 40 04         callk Random 4 

  046b:65 12             aTop seconds 
  046d:32 00bb            jmp code_052b 

        code_0470
  0470:3c                 dup 
  0471:35 02              ldi 2 
  0473:1a                 eq? 
  0474:31 18              bnt code_048e 
  0476:39 7e            pushi 7e // $7e setCycle
  0478:78               push1 
  0479:51 1b            class Beg 
  047b:36                push 
  047c:72 090f          lofsa $0d8e // Wilbur
  047f:4a 06             send 6 

  0481:7a               push2 
  0482:39 06            pushi 6 // $6 loop
  0484:39 0c            pushi c // $c nsRight
  0486:43 40 04         callk Random 4 

  0489:65 12             aTop seconds 
  048b:32 009d            jmp code_052b 

        code_048e
  048e:3c                 dup 
  048f:35 03              ldi 3 
  0491:1a                 eq? 
  0492:31 27              bnt code_04bb 
  0494:39 05            pushi 5 // $5 view
  0496:78               push1 
  0497:38 01a9          pushi 1a9 // $1a9 sel_425
  049a:39 06            pushi 6 // $6 loop
  049c:78               push1 
  049d:39 05            pushi 5 // $5 view
  049f:38 00a4          pushi a4 // $a4 cycleSpeed
  04a2:78               push1 
  04a3:78               push1 
  04a4:39 7e            pushi 7e // $7e setCycle
  04a6:78               push1 
  04a7:51 1a            class End 
  04a9:36                push 
  04aa:72 0893          lofsa $0d40 // WHead
  04ad:4a 18             send 18 

  04af:7a               push2 
  04b0:39 06            pushi 6 // $6 loop
  04b2:39 0c            pushi c // $c nsRight
  04b4:43 40 04         callk Random 4 

  04b7:65 12             aTop seconds 
  04b9:33 70              jmp code_052b 

        code_04bb
  04bb:3c                 dup 
  04bc:35 04              ldi 4 
  04be:1a                 eq? 
  04bf:31 1d              bnt code_04de 
  04c1:39 05            pushi 5 // $5 view
  04c3:78               push1 
  04c4:38 01a9          pushi 1a9 // $1a9 sel_425
  04c7:39 7e            pushi 7e // $7e setCycle
  04c9:78               push1 
  04ca:51 1b            class Beg 
  04cc:36                push 
  04cd:72 0870          lofsa $0d40 // WHead
  04d0:4a 0c             send c 

  04d2:7a               push2 
  04d3:39 06            pushi 6 // $6 loop
  04d5:39 0c            pushi c // $c nsRight
  04d7:43 40 04         callk Random 4 

  04da:65 12             aTop seconds 
  04dc:33 4d              jmp code_052b 

        code_04de
  04de:3c                 dup 
  04df:35 05              ldi 5 
  04e1:1a                 eq? 
  04e2:31 22              bnt code_0506 
  04e4:39 05            pushi 5 // $5 view
  04e6:78               push1 
  04e7:38 01a9          pushi 1a9 // $1a9 sel_425
  04ea:39 06            pushi 6 // $6 loop
  04ec:78               push1 
  04ed:39 07            pushi 7 // $7 cel
  04ef:39 7e            pushi 7e // $7e setCycle
  04f1:78               push1 
  04f2:51 1a            class End 
  04f4:36                push 
  04f5:72 0848          lofsa $0d40 // WHead
  04f8:4a 12             send 12 

  04fa:7a               push2 
  04fb:39 06            pushi 6 // $6 loop
  04fd:39 0c            pushi c // $c nsRight
  04ff:43 40 04         callk Random 4 

  0502:65 12             aTop seconds 
  0504:33 25              jmp code_052b 

        code_0506
  0506:3c                 dup 
  0507:35 06              ldi 6 
  0509:1a                 eq? 
  050a:31 1f              bnt code_052b 
  050c:39 05            pushi 5 // $5 view
  050e:78               push1 
  050f:38 01a9          pushi 1a9 // $1a9 sel_425
  0512:39 7e            pushi 7e // $7e setCycle
  0514:78               push1 
  0515:51 1b            class Beg 
  0517:36                push 
  0518:72 0825          lofsa $0d40 // WHead
  051b:4a 0c             send c 

  051d:35 00              ldi 0 
  051f:65 0a             aTop state 
  0521:7a               push2 
  0522:39 06            pushi 6 // $6 loop
  0524:39 0c            pushi c // $c nsRight
  0526:43 40 04         callk Random 4 

  0529:65 12             aTop seconds 

        code_052b
  052b:3a                toss 
  052c:48                 ret 
    )

)

// 0c3a
(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_052d
  052d:87 01              lap param1 
  052f:65 0a             aTop state 
  0531:36                push 
  0532:3c                 dup 
  0533:35 00              ldi 0 
  0535:1a                 eq? 
  0536:31 65              bnt code_059d 
  0538:8b 03              lsl local3 
  053a:35 01              ldi 1 
  053c:1a                 eq? 
  053d:31 17              bnt code_0556 
  053f:35 02              ldi 2 
  0541:a3 03              sal local3 
  0543:76               push0 
  0544:45 0f 00         callb procedure_000f 0 // cls 

  0547:39 06            pushi 6 // $6 loop
  0549:78               push1 
  054a:78               push1 
  054b:39 7e            pushi 7e // $7e setCycle
  054d:78               push1 
  054e:51 1b            class Beg 
  0550:36                push 
  0551:72 083a          lofsa $0d8e // Wilbur
  0554:4a 0c             send c 


        code_0556
  0556:39 06            pushi 6 // $6 loop
  0558:76               push0 
  0559:72 0792          lofsa $0cee // Clarence
  055c:4a 04             send 4 

  055e:36                push 
  055f:35 01              ldi 1 
  0561:1e                 gt? 
  0562:31 1b              bnt code_057f 
  0564:39 06            pushi 6 // $6 loop
  0566:78               push1 
  0567:76               push0 
  0568:39 07            pushi 7 // $7 cel
  056a:78               push1 
  056b:39 03            pushi 3 // $3 y
  056d:39 7e            pushi 7e // $7e setCycle
  056f:7a               push2 
  0570:51 1b            class Beg 
  0572:36                push 
  0573:7c            pushSelf 
  0574:72 0777          lofsa $0cee // Clarence
  0577:4a 14             send 14 

  0579:35 ff              ldi ff 
  057b:65 0a             aTop state 
  057d:33 1b              jmp code_059a 

        code_057f
  057f:39 06            pushi 6 // $6 loop
  0581:78               push1 
  0582:39 04            pushi 4 // $4 x
  0584:39 07            pushi 7 // $7 cel
  0586:78               push1 
  0587:39 09            pushi 9 // $9 nsTop
  0589:38 00a4          pushi a4 // $a4 cycleSpeed
  058c:78               push1 
  058d:78               push1 
  058e:39 7e            pushi 7e // $7e setCycle
  0590:7a               push2 
  0591:51 1a            class End 
  0593:36                push 
  0594:7c            pushSelf 
  0595:72 0756          lofsa $0cee // Clarence
  0598:4a 1a             send 1a 


        code_059a
  059a:32 0124            jmp code_06c1 

        code_059d
  059d:3c                 dup 
  059e:35 01              ldi 1 
  05a0:1a                 eq? 
  05a1:31 18              bnt code_05bb 
  05a3:39 06            pushi 6 // $6 loop
  05a5:78               push1 
  05a6:39 06            pushi 6 // $6 loop
  05a8:39 07            pushi 7 // $7 cel
  05aa:78               push1 
  05ab:76               push0 
  05ac:39 7e            pushi 7e // $7e setCycle
  05ae:7a               push2 
  05af:51 1a            class End 
  05b1:36                push 
  05b2:7c            pushSelf 
  05b3:72 0738          lofsa $0cee // Clarence
  05b6:4a 14             send 14 

  05b8:32 0106            jmp code_06c1 

        code_05bb
  05bb:3c                 dup 
  05bc:35 02              ldi 2 
  05be:1a                 eq? 
  05bf:31 1d              bnt code_05de 
  05c1:38 00ca          pushi ca // $ca show
  05c4:76               push0 
  05c5:39 42            pushi 42 // $42 setPri
  05c7:78               push1 
  05c8:39 07            pushi 7 // $7 cel
  05ca:38 00a4          pushi a4 // $a4 cycleSpeed
  05cd:78               push1 
  05ce:78               push1 
  05cf:39 7e            pushi 7e // $7e setCycle
  05d1:7a               push2 
  05d2:51 1a            class End 
  05d4:36                push 
  05d5:7c            pushSelf 
  05d6:72 081d          lofsa $0df6 // Smoke
  05d9:4a 18             send 18 

  05db:32 00e3            jmp code_06c1 

        code_05de
  05de:3c                 dup 
  05df:35 03              ldi 3 
  05e1:1a                 eq? 
  05e2:31 1a              bnt code_05fe 
  05e4:8b 02              lsl local2 
  05e6:35 02              ldi 2 
  05e8:22                 lt? 
  05e9:31 08              bnt code_05f3 
  05eb:c3 02              +al local2 
  05ed:35 01              ldi 1 
  05ef:65 0a             aTop state 
  05f1:33 04              jmp code_05f7 

        code_05f3
  05f3:35 00              ldi 0 
  05f5:a3 02              sal local2 

        code_05f7
  05f7:35 01              ldi 1 
  05f9:65 10             aTop cycles 
  05fb:32 00c3            jmp code_06c1 

        code_05fe
  05fe:3c                 dup 
  05ff:35 04              ldi 4 
  0601:1a                 eq? 
  0602:31 59              bnt code_065d 
  0604:7a               push2 
  0605:39 06            pushi 6 // $6 loop
  0607:39 0c            pushi c // $c nsRight
  0609:43 40 04         callk Random 4 

  060c:65 12             aTop seconds 
  060e:7a               push2 
  060f:78               push1 
  0610:39 64            pushi 64 // $64 allTrue
  0612:43 40 04         callk Random 4 

  0615:36                push 
  0616:35 28              ldi 28 
  0618:22                 lt? 
  0619:31 1b              bnt code_0636 
  061b:8b 03              lsl local3 
  061d:35 00              ldi 0 
  061f:1a                 eq? 
  0620:31 14              bnt code_0636 
  0622:35 01              ldi 1 
  0624:a3 03              sal local3 
  0626:7a               push2 
  0627:38 00ed          pushi ed // $ed put
  062a:39 0a            pushi a // $a nsLeft
  062c:40 fa27 04        call proc_0057 4 

  0630:35 04              ldi 4 
  0632:65 12             aTop seconds 
  0634:33 11              jmp code_0647 

        code_0636
  0636:7a               push2 
  0637:78               push1 
  0638:39 64            pushi 64 // $64 allTrue
  063a:43 40 04         callk Random 4 

  063d:36                push 
  063e:35 3c              ldi 3c 
  0640:22                 lt? 
  0641:31 04              bnt code_0647 
  0643:35 00              ldi 0 
  0645:65 0a             aTop state 

        code_0647
  0647:38 0089          pushi 89 // $89 hide
  064a:76               push0 
  064b:72 07a8          lofsa $0df6 // Smoke
  064e:4a 04             send 4 

  0650:39 7e            pushi 7e // $7e setCycle
  0652:78               push1 
  0653:51 1b            class Beg 
  0655:36                push 
  0656:72 0695          lofsa $0cee // Clarence
  0659:4a 06             send 6 

  065b:33 64              jmp code_06c1 

        code_065d
  065d:3c                 dup 
  065e:35 05              ldi 5 
  0660:1a                 eq? 
  0661:31 3f              bnt code_06a2 
  0663:8b 03              lsl local3 
  0665:35 01              ldi 1 
  0667:1a                 eq? 
  0668:31 17              bnt code_0681 
  066a:35 02              ldi 2 
  066c:a3 03              sal local3 
  066e:76               push0 
  066f:45 0f 00         callb procedure_000f 0 // cls 

  0672:39 06            pushi 6 // $6 loop
  0674:78               push1 
  0675:78               push1 
  0676:39 7e            pushi 7e // $7e setCycle
  0678:78               push1 
  0679:51 1b            class Beg 
  067b:36                push 
  067c:72 070f          lofsa $0d8e // Wilbur
  067f:4a 0c             send c 


        code_0681
  0681:39 06            pushi 6 // $6 loop
  0683:78               push1 
  0684:39 08            pushi 8 // $8 underBits
  0686:38 00a4          pushi a4 // $a4 cycleSpeed
  0689:78               push1 
  068a:78               push1 
  068b:39 7e            pushi 7e // $7e setCycle
  068d:78               push1 
  068e:51 1b            class Beg 
  0690:36                push 
  0691:72 060c          lofsa $0ca0 // CHead
  0694:4a 12             send 12 

  0696:7a               push2 
  0697:39 06            pushi 6 // $6 loop
  0699:39 0c            pushi c // $c nsRight
  069b:43 40 04         callk Random 4 

  069e:65 12             aTop seconds 
  06a0:33 1f              jmp code_06c1 

        code_06a2
  06a2:3c                 dup 
  06a3:35 06              ldi 6 
  06a5:1a                 eq? 
  06a6:31 19              bnt code_06c1 
  06a8:39 7e            pushi 7e // $7e setCycle
  06aa:78               push1 
  06ab:51 1a            class End 
  06ad:36                push 
  06ae:72 05ef          lofsa $0ca0 // CHead
  06b1:4a 06             send 6 

  06b3:35 00              ldi 0 
  06b5:65 0a             aTop state 
  06b7:7a               push2 
  06b8:39 06            pushi 6 // $6 loop
  06ba:39 0c            pushi c // $c nsRight
  06bc:43 40 04         callk Random 4 

  06bf:65 12             aTop seconds 

        code_06c1
  06c1:3a                toss 
  06c2:48                 ret 
    )

)

// 0c6a
(instance goSee 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_06c3
  06c3:87 01              lap param1 
  06c5:65 0a             aTop state 
  06c7:36                push 
  06c8:3c                 dup 
  06c9:35 00              ldi 0 
  06cb:1a                 eq? 
  06cc:31 56              bnt code_0724 
  06ce:76               push0 
  06cf:45 0f 00         callb procedure_000f 0 // cls 

  06d2:76               push0 
  06d3:45 03 00         callb procedure_0003 0 // HandsOff 

  06d6:38 0089          pushi 89 // $89 hide
  06d9:76               push0 
  06da:72 0663          lofsa $0d40 // WHead
  06dd:4a 04             send 4 

  06df:39 05            pushi 5 // $5 view
  06e1:78               push1 
  06e2:38 01a4          pushi 1a4 // $1a4 sel_420
  06e5:39 7e            pushi 7e // $7e setCycle
  06e7:78               push1 
  06e8:51 17            class Walk 
  06ea:36                push 
  06eb:38 00a4          pushi a4 // $a4 cycleSpeed
  06ee:78               push1 
  06ef:76               push0 
  06f0:39 42            pushi 42 // $42 setPri
  06f2:78               push1 
  06f3:39 ff            pushi ff // $ff checkAni
  06f5:39 12            pushi 12 // $12 illegalBits
  06f7:78               push1 
  06f8:38 8000          pushi 8000 // $8000 sel_32768
  06fb:38 00d4          pushi d4 // $d4 setAvoider
  06fe:78               push1 
  06ff:38 00be          pushi be // $be offScreenOK
  0702:78               push1 
  0703:78               push1 
  0704:39 56            pushi 56 // $56 new
  0706:76               push0 
  0707:51 21            class Avoid 
  0709:4a 04             send 4 

  070b:4a 06             send 6 

  070d:36                push 
  070e:38 00d3          pushi d3 // $d3 setMotion
  0711:39 04            pushi 4 // $4 x
  0713:51 1d            class MoveTo 
  0715:36                push 
  0716:38 012c          pushi 12c // $12c surrogate
  0719:39 78            pushi 78 // $78 changeState
  071b:7c            pushSelf 
  071c:72 066f          lofsa $0d8e // Wilbur
  071f:4a 30             send 30 

  0721:32 00d1            jmp code_07f5 

        code_0724
  0724:3c                 dup 
  0725:35 01              ldi 1 
  0727:1a                 eq? 
  0728:31 11              bnt code_073b 
  072a:35 01              ldi 1 
  072c:a0 00be            sag global190 
  072f:76               push0 
  0730:40 f8e6 00        call proc_001a 0 

  0734:35 05              ldi 5 
  0736:65 12             aTop seconds 
  0738:32 00ba            jmp code_07f5 

        code_073b
  073b:3c                 dup 
  073c:35 02              ldi 2 
  073e:1a                 eq? 
  073f:31 63              bnt code_07a4 
  0741:76               push0 
  0742:40 f8eb 00        call proc_0031 0 

  0746:39 03            pushi 3 // $3 y
  0748:38 00ed          pushi ed // $ed put
  074b:39 0b            pushi b // $b nsBottom
  074d:39 58            pushi 58 // $58 dispose
  074f:46 00ff 0000 06  calle ff procedure_0000 6 // Print 

  0755:38 00da          pushi da // $da inRect
  0758:39 04            pushi 4 // $4 x
  075a:38 0096          pushi 96 // $96 busy
  075d:39 62            pushi 62 // $62 eachElementDo
  075f:38 00af          pushi af // $af incClientPos
  0762:39 66            pushi 66 // $66 isEmpty
  0764:81 00              lag gEgo 
  0766:4a 0c             send c 

  0768:31 20              bnt code_078a 
  076a:38 00d3          pushi d3 // $d3 setMotion
  076d:39 03            pushi 3 // $3 y
  076f:51 1d            class MoveTo 
  0771:36                push 
  0772:39 04            pushi 4 // $4 x
  0774:76               push0 
  0775:81 00              lag gEgo 
  0777:4a 04             send 4 

  0779:36                push 
  077a:35 0a              ldi a 
  077c:02                 add 
  077d:36                push 
  077e:39 03            pushi 3 // $3 y
  0780:76               push0 
  0781:81 00              lag gEgo 
  0783:4a 04             send 4 

  0785:36                push 
  0786:81 00              lag gEgo 
  0788:4a 0a             send a 


        code_078a
  078a:38 00d3          pushi d3 // $d3 setMotion
  078d:39 04            pushi 4 // $4 x
  078f:51 1d            class MoveTo 
  0791:36                push 
  0792:38 009d          pushi 9d // $9d cycleDir
  0795:39 64            pushi 64 // $64 allTrue
  0797:7c            pushSelf 
  0798:72 05f3          lofsa $0d8e // Wilbur
  079b:4a 0c             send c 

  079d:35 00              ldi 0 
  079f:a0 00be            sag global190 
  07a2:33 51              jmp code_07f5 

        code_07a4
  07a4:3c                 dup 
  07a5:35 03              ldi 3 
  07a7:1a                 eq? 
  07a8:31 4b              bnt code_07f5 
  07aa:76               push0 
  07ab:45 0f 00         callb procedure_000f 0 // cls 

  07ae:35 08              ldi 8 
  07b0:a0 00d5            sag global213 
  07b3:39 03            pushi 3 // $3 y
  07b5:78               push1 
  07b6:38 00ed          pushi ed // $ed put
  07b9:39 0c            pushi c // $c nsRight
  07bb:45 01 06         callb procedure_0001 6 // Say 

  07be:76               push0 
  07bf:45 04 00         callb procedure_0004 0 // HandsOn 

  07c2:38 00d4          pushi d4 // $d4 setAvoider
  07c5:78               push1 
  07c6:76               push0 
  07c7:72 05c4          lofsa $0d8e // Wilbur
  07ca:4a 06             send 6 

  07cc:39 05            pushi 5 // $5 view
  07ce:78               push1 
  07cf:38 01a9          pushi 1a9 // $1a9 sel_425
  07d2:39 06            pushi 6 // $6 loop
  07d4:78               push1 
  07d5:78               push1 
  07d6:39 7a            pushi 7a // $7a setScript
  07d8:78               push1 
  07d9:74 0434          lofss $0c10 // wilActions
  07dc:72 05af          lofsa $0d8e // Wilbur
  07df:4a 12             send 12 

  07e1:39 7a            pushi 7a // $7a setScript
  07e3:78               push1 
  07e4:74 0459          lofss $0c40 // clarActions
  07e7:72 0504          lofsa $0cee // Clarence
  07ea:4a 06             send 6 

  07ec:38 00ca          pushi ca // $ca show
  07ef:76               push0 
  07f0:72 054d          lofsa $0d40 // WHead
  07f3:4a 04             send 4 


        code_07f5
  07f5:3a                toss 
  07f6:48                 ret 
    )

)

// 0c9a
(instance CHead of Prop
    (properties
        y $68
        x $72
        z $28
        heading $0
        yStep $2
        view $192
        loop $8
        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
    )
)

// 0ce8
(instance Clarence of Prop
    (properties
        y $68
        x $72
        z $0
        heading $0
        yStep $2
        view $192
        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_07f7
  07f7:39 6f            pushi 6f // $6f handleEvent
  07f9:78               push1 
  07fa:8f 01              lsp param1 
  07fc:57 27 06         super Prop 6 

  07ff:38 00ae          pushi ae // $ae distanceTo
  0802:78               push1 
  0803:74 04e8          lofss $0cee // Clarence
  0806:81 00              lag gEgo 
  0808:4a 06             send 6 

  080a:36                push 
  080b:38 00ae          pushi ae // $ae distanceTo
  080e:78               push1 
  080f:74 057c          lofss $0d8e // Wilbur
  0812:81 00              lag gEgo 
  0814:4a 06             send 6 

  0816:22                 lt? 
  0817:31 07              bnt code_0820 
  0819:35 40              ldi 40 
  081b:a0 00d6            sag global214 
  081e:33 06              jmp code_0826 

        code_0820
  0820:34 0080            ldi 80 
  0823:a0 00d6            sag global214 

        code_0826
  0826:35 07              ldi 7 
  0828:a0 00d5            sag global213 
  082b:78               push1 
  082c:74 032e          lofss $0b5d // look/butt
  082f:43 25 02         callk Said 2 

  0832:31 15              bnt code_0849 
  0834:78               push1 
  0835:39 0d            pushi d // $d lsTop
  0837:45 05 02         callb procedure_0005 2 // SetFlag 

  083a:7a               push2 
  083b:38 00ed          pushi ed // $ed put
  083e:39 0d            pushi d // $d lsTop
  0840:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0846:32 0144            jmp code_098d 

        code_0849
  0849:78               push1 
  084a:74 02ef          lofss $0b3c // get/butt
  084d:43 25 02         callk Said 2 

  0850:31 0f              bnt code_0861 
  0852:7a               push2 
  0853:38 00ed          pushi ed // $ed put
  0856:39 0e            pushi e // $e lsLeft
  0858:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  085e:32 012c            jmp code_098d 

        code_0861
  0861:78               push1 
  0862:74 0307          lofss $0b6c // look/man
  0865:43 25 02         callk Said 2 

  0868:31 23              bnt code_088d 
  086a:39 4c            pushi 4c // $4c claimed
  086c:78               push1 
  086d:78               push1 
  086e:87 01              lap param1 
  0870:4a 06             send 6 

  0872:88 00d6            lsg global214 
  0875:35 40              ldi 40 
  0877:1a                 eq? 
  0878:31 09              bnt code_0883 
  087a:78               push1 
  087b:74 0602          lofss $0e80 // clarence
  087e:45 19 02         callb procedure_0019 2 // DoLook 

  0881:33 07              jmp code_088a 

        code_0883
  0883:78               push1 
  0884:74 061b          lofss $0ea2 // wilbur
  0887:45 19 02         callb procedure_0019 2 // DoLook 


        code_088a
  088a:32 0100            jmp code_098d 

        code_088d
  088d:39 03            pushi 3 // $3 y
  088f:7c            pushSelf 
  0890:8f 01              lsp param1 
  0892:39 03            pushi 3 // $3 y
  0894:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  089a:31 1b              bnt code_08b7 
  089c:88 00cf            lsg global207 
  089f:35 40              ldi 40 
  08a1:12                 and 
  08a2:18                 not 
  08a3:31 12              bnt code_08b7 
  08a5:39 4c            pushi 4c // $4c claimed
  08a7:78               push1 
  08a8:78               push1 
  08a9:87 01              lap param1 
  08ab:4a 06             send 6 

  08ad:78               push1 
  08ae:74 05cf          lofss $0e80 // clarence
  08b1:45 19 02         callb procedure_0019 2 // DoLook 

  08b4:32 00d6            jmp code_098d 

        code_08b7
  08b7:88 00cf            lsg global207 
  08ba:35 40              ldi 40 
  08bc:12                 and 
  08bd:31 2f              bnt code_08ee 
  08bf:39 03            pushi 3 // $3 y
  08c1:7c            pushSelf 
  08c2:8f 01              lsp param1 
  08c4:39 03            pushi 3 // $3 y
  08c6:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  08cc:2f 09               bt code_08d7 
  08ce:78               push1 
  08cf:74 0285          lofss $0b57 // look/attorney
  08d2:43 25 02         callk Said 2 

  08d5:31 17              bnt code_08ee 

        code_08d7
  08d7:39 4c            pushi 4c // $4c claimed
  08d9:78               push1 
  08da:78               push1 
  08db:87 01              lap param1 
  08dd:4a 06             send 6 

  08df:7a               push2 
  08e0:38 00ed          pushi ed // $ed put
  08e3:39 0f            pushi f // $f lsBottom
  08e5:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  08eb:32 009f            jmp code_098d 

        code_08ee
  08ee:78               push1 
  08ef:74 0286          lofss $0b78 // bonjour/attorney
  08f2:43 25 02         callk Said 2 

  08f5:2f 11               bt code_0908 
  08f7:88 00d6            lsg global214 
  08fa:35 40              ldi 40 
  08fc:1a                 eq? 
  08fd:31 55              bnt code_0954 
  08ff:78               push1 
  0900:74 0284          lofss $0b87 // bonjour/man
  0903:43 25 02         callk Said 2 

  0906:31 4c              bnt code_0954 

        code_0908
  0908:8b 00              lsl local0 
  090a:3c                 dup 
  090b:35 00              ldi 0 
  090d:1a                 eq? 
  090e:31 0d              bnt code_091d 
  0910:39 03            pushi 3 // $3 y
  0912:78               push1 
  0913:38 00ed          pushi ed // $ed put
  0916:39 10            pushi 10 // $10 lsRight
  0918:45 01 06         callb procedure_0001 6 // Say 

  091b:33 32              jmp code_094f 

        code_091d
  091d:3c                 dup 
  091e:35 01              ldi 1 
  0920:1a                 eq? 
  0921:31 0d              bnt code_0930 
  0923:39 03            pushi 3 // $3 y
  0925:78               push1 
  0926:38 00ed          pushi ed // $ed put
  0929:39 11            pushi 11 // $11 signal
  092b:45 01 06         callb procedure_0001 6 // Say 

  092e:33 1f              jmp code_094f 

        code_0930
  0930:3c                 dup 
  0931:35 02              ldi 2 
  0933:1a                 eq? 
  0934:31 0d              bnt code_0943 
  0936:39 03            pushi 3 // $3 y
  0938:78               push1 
  0939:38 00ed          pushi ed // $ed put
  093c:39 12            pushi 12 // $12 illegalBits
  093e:45 01 06         callb procedure_0001 6 // Say 

  0941:33 0c              jmp code_094f 

        code_0943
  0943:7a               push2 
  0944:38 00ed          pushi ed // $ed put
  0947:39 13            pushi 13 // $13 brTop
  0949:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_094f
  094f:3a                toss 
  0950:c3 00              +al local0 
  0952:33 39              jmp code_098d 

        code_0954
  0954:78               push1 
  0955:74 01c8          lofss $0b20 // ask[/attorney]/c<about
  0958:43 25 02         callk Said 2 

  095b:31 1b              bnt code_0978 
  095d:35 01              ldi 1 
  095f:a0 00d4            sag global212 
  0962:87 01              lap param1 
  0964:a0 00d1            sag global209 
  0967:39 03            pushi 3 // $3 y
  0969:39 13            pushi 13 // $13 brTop
  096b:38 00ed          pushi ed // $ed put
  096e:39 14            pushi 14 // $14 brLeft
  0970:46 00f3 0001 06  calle f3 procedure_0001 6 // proc243_1 

  0976:33 15              jmp code_098d 

        code_0978
  0978:78               push1 
  0979:74 01c6          lofss $0b42 // ecouter/attorney,c
  097c:43 25 02         callk Said 2 

  097f:31 0c              bnt code_098d 
  0981:7a               push2 
  0982:38 00ed          pushi ed // $ed put
  0985:39 15            pushi 15 // $15 brBottom
  0987:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_098d
  098d:48                 ret 
    )

)

// 0d3a
(instance WHead of Prop
    (properties
        y $64
        x $9e
        z $27
        heading $0
        yStep $2
        view $1a9
        loop $5
        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
    )
)

// 0d88
(instance Wilbur of Act
    (properties
        y $64
        x $9d
        z $0
        heading $0
        yStep $2
        view $1a9
        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
        illegalBits $8000
        xLast $0
        yLast $0
        xStep $3
        moveSpeed $0
        blocks $0
        baseSetter $0
        mover $0
        looper $0
        viewer $0
        avoider $0
    )
    (method (handleEvent) // method_098e
  098e:35 08              ldi 8 
  0990:a0 00d5            sag global213 
  0993:78               push1 
  0994:39 33            pushi 33 // $33 b-di
  0996:45 07 02         callb procedure_0007 2 // IsFlag 

  0999:31 5f              bnt code_09fa 
  099b:78               push1 
  099c:74 01f4          lofss $0b93 // raconter[/c]/gertie<about
  099f:43 25 02         callk Said 2 

  09a2:31 56              bnt code_09fa 
  09a4:35 08              ldi 8 
  09a6:a0 00d5            sag global213 
  09a9:89 7b              lsg gCorpseFlags 
  09ab:35 01              ldi 1 
  09ad:12                 and 
  09ae:31 3f              bnt code_09ef 
  09b0:88 0091            lsg global145 
  09b3:35 04              ldi 4 
  09b5:12                 and 
  09b6:31 0d              bnt code_09c5 
  09b8:39 03            pushi 3 // $3 y
  09ba:78               push1 
  09bb:38 00ed          pushi ed // $ed put
  09be:39 16            pushi 16 // $16 brRight
  09c0:45 01 06         callb procedure_0001 6 // Say 

  09c3:33 28              jmp code_09ed 

        code_09c5
  09c5:39 03            pushi 3 // $3 y
  09c7:78               push1 
  09c8:38 00ed          pushi ed // $ed put
  09cb:39 17            pushi 17 // $17 name
  09cd:45 01 06         callb procedure_0001 6 // Say 

  09d0:88 0091            lsg global145 
  09d3:35 04              ldi 4 
  09d5:14                  or 
  09d6:a0 0091            sag global145 
  09d9:39 7a            pushi 7a // $7a setScript
  09db:78               push1 
  09dc:74 0291          lofss $0c70 // goSee
  09df:72 03ac          lofsa $0d8e // Wilbur
  09e2:4a 06             send 6 

  09e4:39 7a            pushi 7a // $7a setScript
  09e6:78               push1 
  09e7:76               push0 
  09e8:72 0303          lofsa $0cee // Clarence
  09eb:4a 06             send 6 


        code_09ed
  09ed:33 08              jmp code_09f7 

        code_09ef
  09ef:39 4c            pushi 4c // $4c claimed
  09f1:78               push1 
  09f2:76               push0 
  09f3:87 01              lap param1 
  09f5:4a 06             send 6 


        code_09f7
  09f7:32 0120            jmp code_0b1a 

        code_09fa
  09fa:78               push1 
  09fb:74 0174          lofss $0b72 // look/hommes
  09fe:43 25 02         callk Said 2 

  0a01:31 0f              bnt code_0a12 
  0a03:7a               push2 
  0a04:38 00ed          pushi ed // $ed put
  0a07:39 0f            pushi f // $f lsBottom
  0a09:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0a0f:32 0108            jmp code_0b1a 

        code_0a12
  0a12:78               push1 
  0a13:74 0135          lofss $0b4b // look,bonjour/person,hommes
  0a16:43 25 02         callk Said 2 

  0a19:31 0f              bnt code_0a2a 
  0a1b:7a               push2 
  0a1c:38 00ed          pushi ed // $ed put
  0a1f:39 18            pushi 18 // $18 key
  0a21:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0a27:32 00f0            jmp code_0b1a 

        code_0a2a
  0a2a:78               push1 
  0a2b:74 015f          lofss $0b8d // bonjour/hommes
  0a2e:43 25 02         callk Said 2 

  0a31:31 0f              bnt code_0a42 
  0a33:7a               push2 
  0a34:38 00ed          pushi ed // $ed put
  0a37:39 19            pushi 19 // $19 time
  0a39:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0a3f:32 00d8            jmp code_0b1a 

        code_0a42
  0a42:88 00cf            lsg global207 
  0a45:34 0080            ldi 80 
  0a48:12                 and 
  0a49:18                 not 
  0a4a:31 21              bnt code_0a6d 
  0a4c:39 03            pushi 3 // $3 y
  0a4e:7c            pushSelf 
  0a4f:8f 01              lsp param1 
  0a51:39 03            pushi 3 // $3 y
  0a53:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  0a59:31 12              bnt code_0a6d 
  0a5b:39 4c            pushi 4c // $4c claimed
  0a5d:78               push1 
  0a5e:78               push1 
  0a5f:87 01              lap param1 
  0a61:4a 06             send 6 

  0a63:78               push1 
  0a64:74 043b          lofss $0ea2 // wilbur
  0a67:45 19 02         callb procedure_0019 2 // DoLook 

  0a6a:32 00ad            jmp code_0b1a 

        code_0a6d
  0a6d:88 00cf            lsg global207 
  0a70:34 0080            ldi 80 
  0a73:12                 and 
  0a74:31 2e              bnt code_0aa4 
  0a76:39 03            pushi 3 // $3 y
  0a78:7c            pushSelf 
  0a79:8f 01              lsp param1 
  0a7b:39 03            pushi 3 // $3 y
  0a7d:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  0a83:2f 09               bt code_0a8e 
  0a85:78               push1 
  0a86:74 00da          lofss $0b63 // look/c,hommes
  0a89:43 25 02         callk Said 2 

  0a8c:31 16              bnt code_0aa4 

        code_0a8e
  0a8e:39 4c            pushi 4c // $4c claimed
  0a90:78               push1 
  0a91:78               push1 
  0a92:87 01              lap param1 
  0a94:4a 06             send 6 

  0a96:7a               push2 
  0a97:38 00ed          pushi ed // $ed put
  0a9a:39 0f            pushi f // $f lsBottom
  0a9c:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0aa2:33 76              jmp code_0b1a 

        code_0aa4
  0aa4:78               push1 
  0aa5:74 00d6          lofss $0b7e // bonjour/c,man
  0aa8:43 25 02         callk Said 2 

  0aab:31 4b              bnt code_0af8 
  0aad:8b 01              lsl local1 
  0aaf:3c                 dup 
  0ab0:35 00              ldi 0 
  0ab2:1a                 eq? 
  0ab3:31 0d              bnt code_0ac2 
  0ab5:39 03            pushi 3 // $3 y
  0ab7:78               push1 
  0ab8:38 00ed          pushi ed // $ed put
  0abb:39 1a            pushi 1a // $1a text
  0abd:45 01 06         callb procedure_0001 6 // Say 

  0ac0:33 31              jmp code_0af3 

        code_0ac2
  0ac2:3c                 dup 
  0ac3:35 01              ldi 1 
  0ac5:1a                 eq? 
  0ac6:31 0d              bnt code_0ad5 
  0ac8:39 03            pushi 3 // $3 y
  0aca:78               push1 
  0acb:38 00ed          pushi ed // $ed put
  0ace:39 1b            pushi 1b // $1b elements
  0ad0:45 01 06         callb procedure_0001 6 // Say 

  0ad3:33 1e              jmp code_0af3 

        code_0ad5
  0ad5:3c                 dup 
  0ad6:35 02              ldi 2 
  0ad8:1a                 eq? 
  0ad9:31 0d              bnt code_0ae8 
  0adb:39 03            pushi 3 // $3 y
  0add:78               push1 
  0ade:38 00ed          pushi ed // $ed put
  0ae1:39 1c            pushi 1c // $1c color
  0ae3:45 01 06         callb procedure_0001 6 // Say 

  0ae6:33 0b              jmp code_0af3 

        code_0ae8
  0ae8:39 03            pushi 3 // $3 y
  0aea:78               push1 
  0aeb:38 00ed          pushi ed // $ed put
  0aee:39 1d            pushi 1d // $1d back
  0af0:45 01 06         callb procedure_0001 6 // Say 


        code_0af3
  0af3:3a                toss 
  0af4:c3 01              +al local1 
  0af6:33 22              jmp code_0b1a 

        code_0af8
  0af8:78               push1 
  0af9:74 0032          lofss $0b2e // ask[/c]/attorney<about
  0afc:43 25 02         callk Said 2 

  0aff:31 19              bnt code_0b1a 
  0b01:35 01              ldi 1 
  0b03:a0 00d4            sag global212 
  0b06:87 01              lap param1 
  0b08:a0 00d1            sag global209 
  0b0b:39 03            pushi 3 // $3 y
  0b0d:39 04            pushi 4 // $4 x
  0b0f:38 00ed          pushi ed // $ed put
  0b12:39 14            pushi 14 // $14 brLeft
  0b14:46 00f3 0001 06  calle f3 procedure_0001 6 // proc243_1 


        code_0b1a
  0b1a:48                 ret 
  0b1b:00                bnot 
    )

)

// 0df0
(instance Smoke of Prop
    (properties
        y $3e
        x $7e
        z $0
        heading $0
        yStep $2
        view $192
        loop $9
        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
    )
)



(procedure proc_001a
  001a:39 62            pushi 62 // $62 eachElementDo
  001c:78               push1 
  001d:38 0089          pushi 89 // $89 hide
  0020:81 05              lag gCast 
  0022:4a 06             send 6 

  0024:39 04            pushi 4 // $4 x
  0026:38 03e0          pushi 3e0 // $3e0 sel_992
  0029:39 06            pushi 6 // $6 loop
  002b:78               push1 
  002c:76               push0 
  002d:43 08 08         callk DrawPic 8 

  0030:48                 ret 
)

(procedure proc_0031
  0031:39 04            pushi 4 // $4 x
  0033:39 22            pushi 22 // $22 type
  0035:39 07            pushi 7 // $7 cel
  0037:78               push1 
  0038:76               push0 
  0039:43 08 08         callk DrawPic 8 

  003c:39 3c            pushi 3c // $3c doit
  003e:76               push0 
  003f:81 0a              lag gAddToPics 
  0041:4a 04             send 4 

  0043:39 62            pushi 62 // $62 eachElementDo
  0045:78               push1 
  0046:38 00ca          pushi ca // $ca show
  0049:81 05              lag gCast 
  004b:4a 06             send 6 

  004d:38 0089          pushi 89 // $89 hide
  0050:76               push0 
  0051:72 0cec          lofsa $0d40 // WHead
  0054:4a 04             send 4 

  0056:48                 ret 
)

(procedure proc_0057
  0057:39 06            pushi 6 // $6 loop
  0059:78               push1 
  005a:39 03            pushi 3 // $3 y
  005c:39 7e            pushi 7e // $7e setCycle
  005e:78               push1 
  005f:51 16            class Fwd 
  0061:36                push 
  0062:72 0d29          lofsa $0d8e // Wilbur
  0065:4a 0c             send c 

  0067:39 05            pushi 5 // $5 view
  0069:78               push1 
  006a:38 0194          pushi 194 // $194 sel_404
  006d:39 06            pushi 6 // $6 loop
  006f:78               push1 
  0070:39 05            pushi 5 // $5 view
  0072:39 7e            pushi 7e // $7e setCycle
  0074:78               push1 
  0075:51 16            class Fwd 
  0077:36                push 
  0078:72 0cc5          lofsa $0d40 // WHead
  007b:4a 12             send 12 

  007d:39 05            pushi 5 // $5 view
  007f:78               push1 
  0080:38 0192          pushi 192 // $192 sel_402
  0083:39 06            pushi 6 // $6 loop
  0085:78               push1 
  0086:39 08            pushi 8 // $8 underBits
  0088:39 07            pushi 7 // $7 cel
  008a:78               push1 
  008b:7a               push2 
  008c:39 7e            pushi 7e // $7e setCycle
  008e:78               push1 
  008f:76               push0 
  0090:72 0c0d          lofsa $0ca0 // CHead
  0093:4a 18             send 18 

  0095:39 0a            pushi a // $a nsLeft
  0097:59 01            &rest 1 
  0099:39 43            pushi 43 // $43 at
  009b:38 00ab          pushi ab // $ab setTarget
  009e:38 0096          pushi 96 // $96 busy
  00a1:39 21            pushi 21 // $21 font
  00a3:39 04            pushi 4 // $4 x
  00a5:39 46            pushi 46 // $46 width
  00a7:39 7d            pushi 7d // $7d set
  00a9:39 1e            pushi 1e // $1e mode
  00ab:78               push1 
  00ac:39 58            pushi 58 // $58 dispose
  00ae:46 00ff 0000 14  calle ff procedure_0000 14 // Print 

  00b4:48                 ret 
)

(procedure proc_00b5
  00b5:39 06            pushi 6 // $6 loop
  00b7:78               push1 
  00b8:7a               push2 
  00b9:39 7e            pushi 7e // $7e setCycle
  00bb:78               push1 
  00bc:51 16            class Fwd 
  00be:36                push 
  00bf:72 0c2c          lofsa $0cee // Clarence
  00c2:4a 0c             send c 

  00c4:39 05            pushi 5 // $5 view
  00c6:78               push1 
  00c7:38 0194          pushi 194 // $194 sel_404
  00ca:39 06            pushi 6 // $6 loop
  00cc:78               push1 
  00cd:39 03            pushi 3 // $3 y
  00cf:39 7e            pushi 7e // $7e setCycle
  00d1:78               push1 
  00d2:51 16            class Fwd 
  00d4:36                push 
  00d5:72 0bc8          lofsa $0ca0 // CHead
  00d8:4a 12             send 12 

  00da:39 05            pushi 5 // $5 view
  00dc:78               push1 
  00dd:38 01a9          pushi 1a9 // $1a9 sel_425
  00e0:39 06            pushi 6 // $6 loop
  00e2:78               push1 
  00e3:39 05            pushi 5 // $5 view
  00e5:39 07            pushi 7 // $7 cel
  00e7:78               push1 
  00e8:76               push0 
  00e9:39 7e            pushi 7e // $7e setCycle
  00eb:78               push1 
  00ec:76               push0 
  00ed:72 0c50          lofsa $0d40 // WHead
  00f0:4a 18             send 18 

  00f2:39 0a            pushi a // $a nsLeft
  00f4:59 01            &rest 1 
  00f6:39 43            pushi 43 // $43 at
  00f8:39 28            pushi 28 // $28 message
  00fa:38 0096          pushi 96 // $96 busy
  00fd:39 21            pushi 21 // $21 font
  00ff:39 04            pushi 4 // $4 x
  0101:39 46            pushi 46 // $46 width
  0103:39 7d            pushi 7d // $7d set
  0105:39 1e            pushi 1e // $1e mode
  0107:78               push1 
  0108:39 58            pushi 58 // $58 dispose
  010a:46 00ff 0000 14  calle ff procedure_0000 14 // Print 

  0110:48                 ret 
)

