(script 402)

(string
    string_0a3e "Book"
    string_0a43 "Chair"
    string_0a49 "Clarence"
    string_0a52 "Wilbur"
    string_0a59 "WilburBlock"
    string_0a65 "goSee"
    string_0a6b "reading"
    string_0a73 "walkThru"
    string_0a7c "wilbRead"
    string_0a85 "wilbur"
)

(said
    said_07b0 /c>
    said_07b5 /magazine>
    said_07ba get,chaparder
    said_07c0 ecouter
    said_07c3 look
    said_07c6 look/c
    said_07cc etudier
    said_07cf bonjour
    said_07d2 raconter[/c]/gertie<about
)

(synonym
    c | doc | docteur | doctor | dr | wilbur = person | personne
    c | doc | docteur | doctor | dr | wilbur = fellow | gars | gentleman | guy | homme | man | type
)

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

// 07e6
(instance public wilbRead of Rgn
    (properties
        script $0
        number $0
        timer $0
        keep $0
        initialized $0
    )
    (method (init) // method_004e
  004e:39 57            pushi 57 // $57 init
  0050:76               push0 
  0051:57 36 04         super Rgn 4 

  0054:35 00              ldi 0 
  0056:a3 03              sal local3 
  0058:88 009a            lsg gClarenceWilburState 
  005b:35 04              ldi 4 
  005d:20                 ge? 
  005e:30 0081            bnt code_00e2 
  0061:89 76              lsg gMustDos 
  0063:35 08              ldi 8 
  0065:12                 and 
  0066:18                 not 
  0067:31 23              bnt code_008c 
  0069:39 05            pushi 5 // $5 view
  006b:38 0084          pushi 84 // $84 stop
  006e:39 1d            pushi 1d // $1d back
  0070:39 5e            pushi 5e // $5e respondsTo
  0072:39 5f            pushi 5f // $5f yourself
  0074:39 60            pushi 60 // $60 size
  0076:45 15 0a         callb procedure_0015 a // LoadMany 

  0079:7a               push2 
  007a:38 0082          pushi 82 // $82 owner
  007d:38 0196          pushi 196 // $196 sel_406
  0080:43 00 04         callk Load 4 

  0083:7a               push2 
  0084:38 0087          pushi 87 // $87 clean
  0087:39 29            pushi 29 // $29 edit
  0089:43 00 04         callk Load 4 


        code_008c
  008c:39 04            pushi 4 // $4 x
  008e:38 0080          pushi 80 // $80 timeLeft
  0091:38 01a4          pushi 1a4 // $1a4 sel_420
  0094:38 0282          pushi 282 // $282 sel_642
  0097:38 038b          pushi 38b // $38b sel_907
  009a:45 15 08         callb procedure_0015 8 // LoadMany 

  009d:39 03            pushi 3 // $3 y
  009f:38 008f          pushi 8f // $8f moveTo
  00a2:38 00f3          pushi f3 // $f3 close
  00a5:38 00f7          pushi f7 // $f7 empty
  00a8:45 15 06         callb procedure_0015 6 // LoadMany 

  00ab:34 0080            ldi 80 
  00ae:a0 00d0            sag global208 
  00b1:34 00f7            ldi f7 
  00b4:a0 0180            sag global384 
  00b7:38 00c5          pushi c5 // $c5 posn
  00ba:7a               push2 
  00bb:38 00c4          pushi c4 // $c4 setTest
  00be:38 008b          pushi 8b // $8b select
  00c1:39 57            pushi 57 // $57 init
  00c3:76               push0 
  00c4:38 00c6          pushi c6 // $c6 stopUpd
  00c7:76               push0 
  00c8:72 07b7          lofsa $0882 // Wilbur
  00cb:4a 10             send 10 

  00cd:39 7a            pushi 7a // $7a setScript
  00cf:78               push1 
  00d0:74 077b          lofss $084e // reading
  00d3:54 06             self 6 

  00d5:38 00d8          pushi d8 // $d8 observeBlocks
  00d8:78               push1 
  00d9:74 080e          lofss $08ea // WilburBlock
  00dc:81 00              lag gEgo 
  00de:4a 06             send 6 

  00e0:33 42              jmp code_0124 

        code_00e2
  00e2:88 009a            lsg gClarenceWilburState 
  00e5:35 02              ldi 2 
  00e7:1a                 eq? 
  00e8:31 3a              bnt code_0124 
  00ea:39 03            pushi 3 // $3 y
  00ec:38 0080          pushi 80 // $80 timeLeft
  00ef:38 0190          pushi 190 // $190 sel_400
  00f2:38 01a4          pushi 1a4 // $1a4 sel_420
  00f5:45 15 06         callb procedure_0015 6 // LoadMany 

  00f8:39 05            pushi 5 // $5 view
  00fa:78               push1 
  00fb:38 01a4          pushi 1a4 // $1a4 sel_420
  00fe:38 00c5          pushi c5 // $c5 posn
  0101:7a               push2 
  0102:38 00be          pushi be // $be offScreenOK
  0105:38 0094          pushi 94 // $94 retreat
  0108:39 57            pushi 57 // $57 init
  010a:76               push0 
  010b:39 7a            pushi 7a // $7a setScript
  010d:78               push1 
  010e:74 070d          lofss $081e // walkThru
  0111:72 076e          lofsa $0882 // Wilbur
  0114:4a 18             send 18 

  0116:39 05            pushi 5 // $5 view
  0118:78               push1 
  0119:38 0190          pushi 190 // $190 sel_400
  011c:39 57            pushi 57 // $57 init
  011e:76               push0 
  011f:72 07e8          lofsa $090a // Clarence
  0122:4a 0a             send a 


        code_0124
  0124:48                 ret 
    )

    (method (doit) // method_0125
  0125:39 3c            pushi 3c // $3c doit
  0127:76               push0 
  0128:57 36 04         super Rgn 4 

  012b:48                 ret 
    )

    (method (dispose) // method_012c
  012c:39 58            pushi 58 // $58 dispose
  012e:76               push0 
  012f:57 36 04         super Rgn 4 

  0132:48                 ret 
    )

    (method (handleEvent) // method_0133
  0133:39 6f            pushi 6f // $6f handleEvent
  0135:78               push1 
  0136:8f 01              lsp param1 
  0138:57 36 06         super Rgn 6 

  013b:39 4c            pushi 4c // $4c claimed
  013d:76               push0 
  013e:87 01              lap param1 
  0140:4a 04             send 4 

  0142:31 03              bnt code_0147 
  0144:35 01              ldi 1 
  0146:48                 ret 

        code_0147
  0147:39 22            pushi 22 // $22 type
  0149:76               push0 
  014a:87 01              lap param1 
  014c:4a 04             send 4 

  014e:36                push 
  014f:34 0080            ldi 80 
  0152:1a                 eq? 
  0153:30 0127            bnt code_027d 
  0156:78               push1 
  0157:74 0656          lofss $07b0 // /c>
  015a:43 25 02         callk Said 2 

  015d:30 00b4            bnt code_0214 
  0160:78               push1 
  0161:74 065c          lofss $07c0 // ecouter
  0164:43 25 02         callk Said 2 

  0167:31 0e              bnt code_0177 
  0169:7a               push2 
  016a:38 0192          pushi 192 // $192 sel_402
  016d:76               push0 
  016e:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0174:32 009b            jmp code_0212 

        code_0177
  0177:78               push1 
  0178:74 0654          lofss $07cf // bonjour
  017b:43 25 02         callk Said 2 

  017e:30 0091            bnt code_0212 
  0181:35 08              ldi 8 
  0183:a0 00d5            sag global213 
  0186:8b 00              lsl local0 
  0188:3c                 dup 
  0189:35 00              ldi 0 
  018b:1a                 eq? 
  018c:31 1b              bnt code_01a9 
  018e:39 03            pushi 3 // $3 y
  0190:78               push1 
  0191:38 0192          pushi 192 // $192 sel_402
  0194:78               push1 
  0195:45 01 06         callb procedure_0001 6 // Say 

  0198:35 0c              ldi c 
  019a:a0 00d5            sag global213 
  019d:39 03            pushi 3 // $3 y
  019f:76               push0 
  01a0:38 0192          pushi 192 // $192 sel_402
  01a3:7a               push2 
  01a4:45 01 06         callb procedure_0001 6 // Say 

  01a7:33 66              jmp code_020f 

        code_01a9
  01a9:3c                 dup 
  01aa:35 01              ldi 1 
  01ac:1a                 eq? 
  01ad:31 1d              bnt code_01cc 
  01af:39 03            pushi 3 // $3 y
  01b1:78               push1 
  01b2:38 0192          pushi 192 // $192 sel_402
  01b5:39 03            pushi 3 // $3 y
  01b7:45 01 06         callb procedure_0001 6 // Say 

  01ba:35 0c              ldi c 
  01bc:a0 00d5            sag global213 
  01bf:39 03            pushi 3 // $3 y
  01c1:76               push0 
  01c2:38 0192          pushi 192 // $192 sel_402
  01c5:39 04            pushi 4 // $4 x
  01c7:45 01 06         callb procedure_0001 6 // Say 

  01ca:33 43              jmp code_020f 

        code_01cc
  01cc:3c                 dup 
  01cd:35 02              ldi 2 
  01cf:1a                 eq? 
  01d0:31 1d              bnt code_01ef 
  01d2:39 03            pushi 3 // $3 y
  01d4:78               push1 
  01d5:38 0192          pushi 192 // $192 sel_402
  01d8:39 05            pushi 5 // $5 view
  01da:45 01 06         callb procedure_0001 6 // Say 

  01dd:35 0c              ldi c 
  01df:a0 00d5            sag global213 
  01e2:39 03            pushi 3 // $3 y
  01e4:76               push0 
  01e5:38 0192          pushi 192 // $192 sel_402
  01e8:39 06            pushi 6 // $6 loop
  01ea:45 01 06         callb procedure_0001 6 // Say 

  01ed:33 20              jmp code_020f 

        code_01ef
  01ef:3c                 dup 
  01f0:35 03              ldi 3 
  01f2:1a                 eq? 
  01f3:31 0e              bnt code_0203 
  01f5:7a               push2 
  01f6:38 0192          pushi 192 // $192 sel_402
  01f9:39 07            pushi 7 // $7 cel
  01fb:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0201:33 0c              jmp code_020f 

        code_0203
  0203:7a               push2 
  0204:38 0192          pushi 192 // $192 sel_402
  0207:39 08            pushi 8 // $8 underBits
  0209:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_020f
  020f:3a                toss 
  0210:c3 00              +al local0 

        code_0212
  0212:33 69              jmp code_027d 

        code_0214
  0214:78               push1 
  0215:74 059d          lofss $07b5 // /magazine>
  0218:43 25 02         callk Said 2 

  021b:31 60              bnt code_027d 
  021d:78               push1 
  021e:74 05ab          lofss $07cc // etudier
  0221:43 25 02         callk Said 2 

  0224:31 0e              bnt code_0234 
  0226:7a               push2 
  0227:38 0192          pushi 192 // $192 sel_402
  022a:39 09            pushi 9 // $9 nsTop
  022c:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0232:33 49              jmp code_027d 

        code_0234
  0234:78               push1 
  0235:74 0582          lofss $07ba // get,chaparder
  0238:43 25 02         callk Said 2 

  023b:31 0e              bnt code_024b 
  023d:7a               push2 
  023e:38 0192          pushi 192 // $192 sel_402
  0241:39 0a            pushi a // $a nsLeft
  0243:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0249:33 32              jmp code_027d 

        code_024b
  024b:78               push1 
  024c:74 0574          lofss $07c3 // look
  024f:43 25 02         callk Said 2 

  0252:31 29              bnt code_027d 
  0254:38 00ae          pushi ae // $ae distanceTo
  0257:78               push1 
  0258:74 0627          lofss $0882 // Wilbur
  025b:81 00              lag gEgo 
  025d:4a 06             send 6 

  025f:36                push 
  0260:35 28              ldi 28 
  0262:22                 lt? 
  0263:31 14              bnt code_0279 
  0265:78               push1 
  0266:39 11            pushi 11 // $11 signal
  0268:45 05 02         callb procedure_0005 2 // SetFlag 

  026b:7a               push2 
  026c:38 0192          pushi 192 // $192 sel_402
  026f:39 0b            pushi b // $b nsBottom
  0271:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0277:33 04              jmp code_027d 

        code_0279
  0279:76               push0 
  027a:45 09 00         callb procedure_0009 0 // NotClose 


        code_027d
  027d:48                 ret 
    )

)

// 0818
(instance walkThru 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_027e
  027e:87 01              lap param1 
  0280:65 0a             aTop state 
  0282:36                push 
  0283:3c                 dup 
  0284:35 00              ldi 0 
  0286:1a                 eq? 
  0287:31 0b              bnt code_0294 
  0289:35 03              ldi 3 
  028b:a0 009a            sag gClarenceWilburState 
  028e:35 02              ldi 2 
  0290:65 10             aTop cycles 
  0292:33 76              jmp code_030a 

        code_0294
  0294:3c                 dup 
  0295:35 01              ldi 1 
  0297:1a                 eq? 
  0298:31 55              bnt code_02ef 
  029a:76               push0 
  029b:45 03 00         callb procedure_0003 0 // HandsOff 

  029e:38 00e9          pushi e9 // $e9 canControl
  02a1:78               push1 
  02a2:78               push1 
  02a3:51 2b            class User 
  02a5:4a 06             send 6 

  02a7:39 03            pushi 3 // $3 y
  02a9:38 0192          pushi 192 // $192 sel_402
  02ac:39 0c            pushi c // $c nsRight
  02ae:39 58            pushi 58 // $58 dispose
  02b0:46 00ff 0000 06  calle ff procedure_0000 6 // Print 

  02b6:35 01              ldi 1 
  02b8:a3 01              sal local1 
  02ba:39 7e            pushi 7e // $7e setCycle
  02bc:78               push1 
  02bd:51 17            class Walk 
  02bf:36                push 
  02c0:38 00d3          pushi d3 // $d3 setMotion
  02c3:39 03            pushi 3 // $3 y
  02c5:51 1d            class MoveTo 
  02c7:36                push 
  02c8:38 017c          pushi 17c // $17c sel_380
  02cb:38 0095          pushi 95 // $95 theItem
  02ce:72 0639          lofsa $090a // Clarence
  02d1:4a 10             send 10 

  02d3:39 7e            pushi 7e // $7e setCycle
  02d5:78               push1 
  02d6:51 17            class Walk 
  02d8:36                push 
  02d9:38 00d3          pushi d3 // $d3 setMotion
  02dc:39 04            pushi 4 // $4 x
  02de:51 1d            class MoveTo 
  02e0:36                push 
  02e1:38 0168          pushi 168 // $168 sel_360
  02e4:38 0094          pushi 94 // $94 retreat
  02e7:7c            pushSelf 
  02e8:72 0597          lofsa $0882 // Wilbur
  02eb:4a 12             send 12 

  02ed:33 1b              jmp code_030a 

        code_02ef
  02ef:3c                 dup 
  02f0:35 02              ldi 2 
  02f2:1a                 eq? 
  02f3:31 15              bnt code_030a 
  02f5:76               push0 
  02f6:45 0f 00         callb procedure_000f 0 // cls 

  02f9:38 00e2          pushi e2 // $e2 canInput
  02fc:78               push1 
  02fd:78               push1 
  02fe:51 2b            class User 
  0300:4a 06             send 6 

  0302:39 7a            pushi 7a // $7a setScript
  0304:78               push1 
  0305:76               push0 
  0306:63 08             pToa client 
  0308:4a 06             send 6 


        code_030a
  030a:3a                toss 
  030b:48                 ret 
    )

)

// 0848
(instance reading of Script
    (properties
        client $0
        state $ffff
        start $0
        timer $0
        cycles $0
        seconds $0
        lastSeconds $0
        register $0
        script $0
        caller $0
    )
    (method (doit) // method_030c
  030c:8b 03              lsl local3 
  030e:35 05              ldi 5 
  0310:1a                 eq? 
  0311:31 08              bnt code_031b 
  0313:39 7a            pushi 7a // $7a setScript
  0315:78               push1 
  0316:76               push0 
  0317:63 08             pToa client 
  0319:4a 06             send 6 


        code_031b
  031b:39 3c            pushi 3c // $3c doit
  031d:76               push0 
  031e:57 05 04         super Script 4 

  0321:48                 ret 
    )

    (method (changeState) // method_0322
  0322:3f 01             link 1 // (var $1)
  0324:87 01              lap param1 
  0326:65 0a             aTop state 
  0328:36                push 
  0329:3c                 dup 
  032a:35 00              ldi 0 
  032c:1a                 eq? 
  032d:31 41              bnt code_0370 
  032f:80 00d8            lag global216 
  0332:18                 not 
  0333:31 06              bnt code_033b 
  0335:35 ff              ldi ff 
  0337:65 0a             aTop state 
  0339:33 2e              jmp code_0369 

        code_033b
  033b:89 76              lsg gMustDos 
  033d:35 08              ldi 8 
  033f:12                 and 
  0340:18                 not 
  0341:31 1b              bnt code_035e 
  0343:89 76              lsg gMustDos 
  0345:35 08              ldi 8 
  0347:14                  or 
  0348:a1 76              sag gMustDos 
  034a:39 7a            pushi 7a // $7a setScript
  034c:78               push1 
  034d:7a               push2 
  034e:38 0196          pushi 196 // $196 sel_406
  0351:76               push0 
  0352:43 02 04         callk ScriptID 4 

  0355:36                push 
  0356:54 06             self 6 

  0358:35 ff              ldi ff 
  035a:65 0a             aTop state 
  035c:33 0b              jmp code_0369 

        code_035e
  035e:39 76            pushi 76 // $76 script
  0360:76               push0 
  0361:54 04             self 4 

  0363:31 04              bnt code_0369 
  0365:35 ff              ldi ff 
  0367:65 0a             aTop state 

        code_0369
  0369:35 01              ldi 1 
  036b:65 10             aTop cycles 
  036d:32 0120            jmp code_0490 

        code_0370
  0370:3c                 dup 
  0371:35 01              ldi 1 
  0373:1a                 eq? 
  0374:31 1d              bnt code_0393 
  0376:39 06            pushi 6 // $6 loop
  0378:78               push1 
  0379:83 02              lal local2 
  037b:31 04              bnt code_0381 
  037d:35 05              ldi 5 
  037f:33 02              jmp code_0383 

        code_0381
  0381:35 00              ldi 0 

        code_0383
  0383:36                push 
  0384:39 7e            pushi 7e // $7e setCycle
  0386:7a               push2 
  0387:51 1a            class End 
  0389:36                push 
  038a:7c            pushSelf 
  038b:72 04f4          lofsa $0882 // Wilbur
  038e:4a 0e             send e 

  0390:32 00fd            jmp code_0490 

        code_0393
  0393:3c                 dup 
  0394:35 02              ldi 2 
  0396:1a                 eq? 
  0397:31 45              bnt code_03de 
  0399:7a               push2 
  039a:78               push1 
  039b:39 64            pushi 64 // $64 allTrue
  039d:43 40 04         callk Random 4 

  03a0:a5 00              sat temp0 
  03a2:83 02              lal local2 
  03a4:31 20              bnt code_03c6 
  03a6:8d 00              lst temp0 
  03a8:35 2b              ldi 2b 
  03aa:22                 lt? 
  03ab:31 06              bnt code_03b3 
  03ad:35 03              ldi 3 
  03af:65 0a             aTop state 
  03b1:33 11              jmp code_03c4 

        code_03b3
  03b3:8d 00              lst temp0 
  03b5:35 38              ldi 38 
  03b7:1e                 gt? 
  03b8:31 06              bnt code_03c0 
  03ba:35 06              ldi 6 
  03bc:65 0a             aTop state 
  03be:33 04              jmp code_03c4 

        code_03c0
  03c0:35 00              ldi 0 
  03c2:65 0a             aTop state 

        code_03c4
  03c4:33 0b              jmp code_03d1 

        code_03c6
  03c6:8d 00              lst temp0 
  03c8:35 33              ldi 33 
  03ca:22                 lt? 
  03cb:31 04              bnt code_03d1 
  03cd:35 00              ldi 0 
  03cf:65 0a             aTop state 

        code_03d1
  03d1:7a               push2 
  03d2:39 05            pushi 5 // $5 view
  03d4:39 0a            pushi a // $a nsLeft
  03d6:43 40 04         callk Random 4 

  03d9:65 12             aTop seconds 
  03db:32 00b2            jmp code_0490 

        code_03de
  03de:3c                 dup 
  03df:35 03              ldi 3 
  03e1:1a                 eq? 
  03e2:31 29              bnt code_040d 
  03e4:35 01              ldi 1 
  03e6:a3 02              sal local2 
  03e8:39 06            pushi 6 // $6 loop
  03ea:78               push1 
  03eb:39 04            pushi 4 // $4 x
  03ed:39 07            pushi 7 // $7 cel
  03ef:78               push1 
  03f0:76               push0 
  03f1:39 7e            pushi 7e // $7e setCycle
  03f3:78               push1 
  03f4:51 1a            class End 
  03f6:36                push 
  03f7:72 0488          lofsa $0882 // Wilbur
  03fa:4a 12             send 12 

  03fc:7a               push2 
  03fd:39 05            pushi 5 // $5 view
  03ff:39 0a            pushi a // $a nsLeft
  0401:43 40 04         callk Random 4 

  0404:65 12             aTop seconds 
  0406:35 01              ldi 1 
  0408:65 0a             aTop state 
  040a:32 0083            jmp code_0490 

        code_040d
  040d:3c                 dup 
  040e:35 04              ldi 4 
  0410:1a                 eq? 
  0411:31 17              bnt code_042a 
  0413:39 06            pushi 6 // $6 loop
  0415:78               push1 
  0416:39 06            pushi 6 // $6 loop
  0418:39 07            pushi 7 // $7 cel
  041a:78               push1 
  041b:76               push0 
  041c:39 7e            pushi 7e // $7e setCycle
  041e:7a               push2 
  041f:51 1a            class End 
  0421:36                push 
  0422:7c            pushSelf 
  0423:72 045c          lofsa $0882 // Wilbur
  0426:4a 14             send 14 

  0428:33 66              jmp code_0490 

        code_042a
  042a:3c                 dup 
  042b:35 05              ldi 5 
  042d:1a                 eq? 
  042e:31 1a              bnt code_044a 
  0430:39 06            pushi 6 // $6 loop
  0432:78               push1 
  0433:39 07            pushi 7 // $7 cel
  0435:39 07            pushi 7 // $7 cel
  0437:78               push1 
  0438:76               push0 
  0439:39 7e            pushi 7e // $7e setCycle
  043b:78               push1 
  043c:51 16            class Fwd 
  043e:36                push 
  043f:72 0440          lofsa $0882 // Wilbur
  0442:4a 12             send 12 

  0444:35 03              ldi 3 
  0446:65 12             aTop seconds 
  0448:33 46              jmp code_0490 

        code_044a
  044a:3c                 dup 
  044b:35 06              ldi 6 
  044d:1a                 eq? 
  044e:31 1c              bnt code_046c 
  0450:39 06            pushi 6 // $6 loop
  0452:78               push1 
  0453:39 06            pushi 6 // $6 loop
  0455:39 07            pushi 7 // $7 cel
  0457:78               push1 
  0458:39 03            pushi 3 // $3 y
  045a:39 7e            pushi 7e // $7e setCycle
  045c:7a               push2 
  045d:51 1b            class Beg 
  045f:36                push 
  0460:7c            pushSelf 
  0461:72 041e          lofsa $0882 // Wilbur
  0464:4a 14             send 14 

  0466:35 01              ldi 1 
  0468:65 0a             aTop state 
  046a:33 24              jmp code_0490 

        code_046c
  046c:3c                 dup 
  046d:35 07              ldi 7 
  046f:1a                 eq? 
  0470:31 1e              bnt code_0490 
  0472:35 00              ldi 0 
  0474:a3 02              sal local2 
  0476:39 06            pushi 6 // $6 loop
  0478:78               push1 
  0479:39 04            pushi 4 // $4 x
  047b:39 07            pushi 7 // $7 cel
  047d:78               push1 
  047e:39 04            pushi 4 // $4 x
  0480:39 7e            pushi 7e // $7e setCycle
  0482:7a               push2 
  0483:51 1a            class End 
  0485:36                push 
  0486:7c            pushSelf 
  0487:72 03f8          lofsa $0882 // Wilbur
  048a:4a 14             send 14 

  048c:35 01              ldi 1 
  048e:65 0a             aTop state 

        code_0490
  0490:3a                toss 
  0491:48                 ret 
    )

)

// 087c
(instance Wilbur of Act
    (properties
        y $0
        x $0
        z $0
        heading $0
        yStep $2
        view $1a8
        loop $0
        cel $0
        priority $0
        underBits $0
        signal $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
        lsTop $0
        lsLeft $0
        lsBottom $0
        lsRight $0
        brTop $0
        brLeft $0
        brBottom $0
        brRight $0
        cycleSpeed $0
        script $0
        cycler $0
        timer $0
        illegalBits $0
        xLast $0
        yLast $0
        xStep $3
        moveSpeed $0
        blocks $0
        baseSetter $0
        mover $0
        looper $0
        viewer $0
        avoider $0
    )
    (method (handleEvent) // method_0492
  0492:39 6f            pushi 6f // $6f handleEvent
  0494:78               push1 
  0495:8f 01              lsp param1 
  0497:57 28 06         super Act 6 

  049a:78               push1 
  049b:39 33            pushi 33 // $33 b-di
  049d:45 07 02         callb procedure_0007 2 // IsFlag 

  04a0:30 0092            bnt code_0535 
  04a3:78               push1 
  04a4:74 032b          lofss $07d2 // raconter[/c]/gertie<about
  04a7:43 25 02         callk Said 2 

  04aa:30 0088            bnt code_0535 
  04ad:88 009a            lsg gClarenceWilburState 
  04b0:35 04              ldi 4 
  04b2:20                 ge? 
  04b3:31 72              bnt code_0527 
  04b5:35 08              ldi 8 
  04b7:a0 00d5            sag global213 
  04ba:89 7b              lsg gCorpseFlags 
  04bc:35 01              ldi 1 
  04be:12                 and 
  04bf:31 59              bnt code_051a 
  04c1:88 0091            lsg global145 
  04c4:35 04              ldi 4 
  04c6:12                 and 
  04c7:31 0d              bnt code_04d6 
  04c9:39 03            pushi 3 // $3 y
  04cb:78               push1 
  04cc:38 0192          pushi 192 // $192 sel_402
  04cf:39 0d            pushi d // $d lsTop
  04d1:45 01 06         callb procedure_0001 6 // Say 

  04d4:33 42              jmp code_0518 

        code_04d6
  04d6:38 00db          pushi db // $db onControl
  04d9:78               push1 
  04da:78               push1 
  04db:81 00              lag gEgo 
  04dd:4a 06             send 6 

  04df:36                push 
  04e0:35 28              ldi 28 
  04e2:12                 and 
  04e3:31 0e              bnt code_04f3 
  04e5:7a               push2 
  04e6:38 0192          pushi 192 // $192 sel_402
  04e9:39 0e            pushi e // $e lsLeft
  04eb:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  04f1:33 25              jmp code_0518 

        code_04f3
  04f3:76               push0 
  04f4:45 03 00         callb procedure_0003 0 // HandsOff 

  04f7:88 0091            lsg global145 
  04fa:35 04              ldi 4 
  04fc:14                  or 
  04fd:a0 0091            sag global145 
  0500:39 7a            pushi 7a // $7a setScript
  0502:78               push1 
  0503:76               push0 
  0504:72 037b          lofsa $0882 // Wilbur
  0507:4a 06             send 6 

  0509:35 05              ldi 5 
  050b:a3 03              sal local3 
  050d:39 7a            pushi 7a // $7a setScript
  050f:78               push1 
  0510:74 04f7          lofss $0a0a // goSee
  0513:72 02d6          lofsa $07ec // wilbRead
  0516:4a 06             send 6 


        code_0518
  0518:33 0b              jmp code_0525 

        code_051a
  051a:39 03            pushi 3 // $3 y
  051c:78               push1 
  051d:38 0192          pushi 192 // $192 sel_402
  0520:39 0f            pushi f // $f lsBottom
  0522:45 01 06         callb procedure_0001 6 // Say 


        code_0525
  0525:33 0c              jmp code_0533 

        code_0527
  0527:7a               push2 
  0528:38 0192          pushi 192 // $192 sel_402
  052b:39 10            pushi 10 // $10 lsRight
  052d:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0533
  0533:33 5f              jmp code_0594 

        code_0535
  0535:39 03            pushi 3 // $3 y
  0537:7c            pushSelf 
  0538:8f 01              lsp param1 
  053a:39 03            pushi 3 // $3 y
  053c:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  0542:31 1b              bnt code_055f 
  0544:88 00cf            lsg global207 
  0547:34 0080            ldi 80 
  054a:12                 and 
  054b:18                 not 
  054c:31 11              bnt code_055f 
  054e:39 4c            pushi 4c // $4c claimed
  0550:78               push1 
  0551:78               push1 
  0552:87 01              lap param1 
  0554:4a 06             send 6 

  0556:78               push1 
  0557:74 052b          lofss $0a85 // wilbur
  055a:45 19 02         callb procedure_0019 2 // DoLook 

  055d:33 35              jmp code_0594 

        code_055f
  055f:88 00cf            lsg global207 
  0562:34 0080            ldi 80 
  0565:12                 and 
  0566:31 2c              bnt code_0594 
  0568:39 03            pushi 3 // $3 y
  056a:7c            pushSelf 
  056b:8f 01              lsp param1 
  056d:39 03            pushi 3 // $3 y
  056f:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  0575:2f 09               bt code_0580 
  0577:78               push1 
  0578:74 024b          lofss $07c6 // look/c
  057b:43 25 02         callk Said 2 

  057e:31 14              bnt code_0594 

        code_0580
  0580:39 4c            pushi 4c // $4c claimed
  0582:78               push1 
  0583:78               push1 
  0584:87 01              lap param1 
  0586:4a 06             send 6 

  0588:7a               push2 
  0589:38 0192          pushi 192 // $192 sel_402
  058c:39 11            pushi 11 // $11 signal
  058e:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0594
  0594:48                 ret 
    )

)

// 08e4
(instance WilburBlock of Blk
    (properties
        top $87
        left $c4
        bottom $8b
        right $cc
    )
)

// 0904
(instance Clarence of Act
    (properties
        y $95
        x $d8
        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
        illegalBits $8000
        xLast $0
        yLast $0
        xStep $3
        moveSpeed $0
        blocks $0
        baseSetter $0
        mover $0
        looper $0
        viewer $0
        avoider $0
    )
)

// 0968
(instance Book of Prop
    (properties
        y $74
        x $b0
        z $0
        heading $0
        yStep $2
        view $84
        loop $1
        cel $5
        priority $b
        underBits $0
        signal $10
        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
    )
)

// 09b6
(instance Chair of Prop
    (properties
        y $8b
        x $c4
        z $0
        heading $0
        yStep $2
        view $84
        loop $1
        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
    )
)

// 0a04
(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_0595
  0595:87 01              lap param1 
  0597:65 0a             aTop state 
  0599:36                push 
  059a:3c                 dup 
  059b:35 00              ldi 0 
  059d:1a                 eq? 
  059e:31 51              bnt code_05f1 
  05a0:35 01              ldi 1 
  05a2:a0 00be            sag global190 
  05a5:39 03            pushi 3 // $3 y
  05a7:78               push1 
  05a8:38 0192          pushi 192 // $192 sel_402
  05ab:39 12            pushi 12 // $12 illegalBits
  05ad:45 01 06         callb procedure_0001 6 // Say 

  05b0:39 06            pushi 6 // $6 loop
  05b2:78               push1 
  05b3:39 08            pushi 8 // $8 underBits
  05b5:39 07            pushi 7 // $7 cel
  05b7:78               push1 
  05b8:76               push0 
  05b9:39 7e            pushi 7e // $7e setCycle
  05bb:7a               push2 
  05bc:51 1a            class End 
  05be:36                push 
  05bf:7c            pushSelf 
  05c0:72 02bf          lofsa $0882 // Wilbur
  05c3:4a 14             send 14 

  05c5:38 00da          pushi da // $da inRect
  05c8:39 04            pushi 4 // $4 x
  05ca:38 00b0          pushi b0 // $b0 pickLoop
  05cd:38 008c          pushi 8c // $8c track
  05d0:38 00d5          pushi d5 // $d5 ignoreHorizon
  05d3:38 0096          pushi 96 // $96 busy
  05d6:81 00              lag gEgo 
  05d8:4a 0c             send c 

  05da:31 12              bnt code_05ee 
  05dc:38 00d3          pushi d3 // $d3 setMotion
  05df:39 03            pushi 3 // $3 y
  05e1:51 1d            class MoveTo 
  05e3:36                push 
  05e4:38 00b9          pushi b9 // $b9 nonBumps
  05e7:38 009b          pushi 9b // $9b bottom
  05ea:81 00              lag gEgo 
  05ec:4a 0a             send a 


        code_05ee
  05ee:32 01b9            jmp code_07aa 

        code_05f1
  05f1:3c                 dup 
  05f2:35 01              ldi 1 
  05f4:1a                 eq? 
  05f5:31 20              bnt code_0617 
  05f7:39 57            pushi 57 // $57 init
  05f9:76               push0 
  05fa:72 0371          lofsa $096e // Book
  05fd:4a 04             send 4 

  05ff:39 06            pushi 6 // $6 loop
  0601:78               push1 
  0602:39 09            pushi 9 // $9 nsTop
  0604:39 07            pushi 7 // $7 cel
  0606:78               push1 
  0607:76               push0 
  0608:39 7e            pushi 7e // $7e setCycle
  060a:7a               push2 
  060b:51 1a            class End 
  060d:36                push 
  060e:7c            pushSelf 
  060f:72 0270          lofsa $0882 // Wilbur
  0612:4a 14             send 14 

  0614:32 0193            jmp code_07aa 

        code_0617
  0617:3c                 dup 
  0618:35 02              ldi 2 
  061a:1a                 eq? 
  061b:31 67              bnt code_0684 
  061d:39 57            pushi 57 // $57 init
  061f:76               push0 
  0620:38 00c6          pushi c6 // $c6 stopUpd
  0623:76               push0 
  0624:72 0395          lofsa $09bc // Chair
  0627:4a 08             send 8 

  0629:38 00c5          pushi c5 // $c5 posn
  062c:7a               push2 
  062d:38 00c4          pushi c4 // $c4 setTest
  0630:38 008d          pushi 8d // $8d setSize
  0633:39 05            pushi 5 // $5 view
  0635:78               push1 
  0636:38 01a4          pushi 1a4 // $1a4 sel_420
  0639:39 12            pushi 12 // $12 illegalBits
  063b:78               push1 
  063c:38 8000          pushi 8000 // $8000 sel_32768
  063f:39 06            pushi 6 // $6 loop
  0641:78               push1 
  0642:7a               push2 
  0643:39 07            pushi 7 // $7 cel
  0645:78               push1 
  0646:76               push0 
  0647:38 00a4          pushi a4 // $a4 cycleSpeed
  064a:78               push1 
  064b:76               push0 
  064c:39 7e            pushi 7e // $7e setCycle
  064e:78               push1 
  064f:51 17            class Walk 
  0651:36                push 
  0652:38 00d4          pushi d4 // $d4 setAvoider
  0655:78               push1 
  0656:38 00be          pushi be // $be offScreenOK
  0659:78               push1 
  065a:78               push1 
  065b:39 56            pushi 56 // $56 new
  065d:76               push0 
  065e:51 21            class Avoid 
  0660:4a 04             send 4 

  0662:4a 06             send 6 

  0664:36                push 
  0665:38 00d3          pushi d3 // $d3 setMotion
  0668:39 04            pushi 4 // $4 x
  066a:51 1d            class MoveTo 
  066c:36                push 
  066d:38 0154          pushi 154 // $154 itemY
  0670:38 0096          pushi 96 // $96 busy
  0673:7c            pushSelf 
  0674:72 020b          lofsa $0882 // Wilbur
  0677:4a 3e             send 3e 

  0679:39 06            pushi 6 // $6 loop
  067b:78               push1 
  067c:76               push0 
  067d:81 00              lag gEgo 
  067f:4a 06             send 6 

  0681:32 0126            jmp code_07aa 

        code_0684
  0684:3c                 dup 
  0685:35 03              ldi 3 
  0687:1a                 eq? 
  0688:31 1b              bnt code_06a5 
  068a:35 01              ldi 1 
  068c:a0 00be            sag global190 
  068f:35 05              ldi 5 
  0691:65 12             aTop seconds 
  0693:76               push0 
  0694:40 f982 00        call proc_001a 0 

  0698:38 00c9          pushi c9 // $c9 ignoreActors
  069b:78               push1 
  069c:78               push1 
  069d:72 031c          lofsa $09bc // Chair
  06a0:4a 06             send 6 

  06a2:32 0105            jmp code_07aa 

        code_06a5
  06a5:3c                 dup 
  06a6:35 04              ldi 4 
  06a8:1a                 eq? 
  06a9:31 39              bnt code_06e4 
  06ab:76               push0 
  06ac:40 f981 00        call proc_0031 0 

  06b0:39 03            pushi 3 // $3 y
  06b2:38 0192          pushi 192 // $192 sel_402
  06b5:39 13            pushi 13 // $13 brTop
  06b7:39 58            pushi 58 // $58 dispose
  06b9:46 00ff 0000 06  calle ff procedure_0000 6 // Print 

  06bf:38 00a3          pushi a3 // $a3 startUpd
  06c2:76               push0 
  06c3:72 02f6          lofsa $09bc // Chair
  06c6:4a 04             send 4 

  06c8:38 00d3          pushi d3 // $d3 setMotion
  06cb:39 04            pushi 4 // $4 x
  06cd:51 1d            class MoveTo 
  06cf:36                push 
  06d0:38 00c4          pushi c4 // $c4 setTest
  06d3:38 008c          pushi 8c // $8c track
  06d6:7c            pushSelf 
  06d7:72 01a8          lofsa $0882 // Wilbur
  06da:4a 0c             send c 

  06dc:35 00              ldi 0 
  06de:a0 00be            sag global190 
  06e1:32 00c6            jmp code_07aa 

        code_06e4
  06e4:3c                 dup 
  06e5:35 05              ldi 5 
  06e7:1a                 eq? 
  06e8:31 61              bnt code_074b 
  06ea:76               push0 
  06eb:45 0f 00         callb procedure_000f 0 // cls 

  06ee:39 58            pushi 58 // $58 dispose
  06f0:76               push0 
  06f1:72 02c8          lofsa $09bc // Chair
  06f4:4a 04             send 4 

  06f6:35 08              ldi 8 
  06f8:a0 00d5            sag global213 
  06fb:39 03            pushi 3 // $3 y
  06fd:78               push1 
  06fe:38 0192          pushi 192 // $192 sel_402
  0701:39 14            pushi 14 // $14 brLeft
  0703:45 01 06         callb procedure_0001 6 // Say 

  0706:39 05            pushi 5 // $5 view
  0708:78               push1 
  0709:38 01a8          pushi 1a8 // $1a8 sel_424
  070c:39 12            pushi 12 // $12 illegalBits
  070e:78               push1 
  070f:76               push0 
  0710:38 00c5          pushi c5 // $c5 posn
  0713:7a               push2 
  0714:38 00c4          pushi c4 // $c4 setTest
  0717:38 008b          pushi 8b // $8b select
  071a:39 06            pushi 6 // $6 loop
  071c:78               push1 
  071d:39 09            pushi 9 // $9 nsTop
  071f:39 07            pushi 7 // $7 cel
  0721:78               push1 
  0722:39 04            pushi 4 // $4 x
  0724:38 00d4          pushi d4 // $d4 setAvoider
  0727:78               push1 
  0728:76               push0 
  0729:72 0156          lofsa $0882 // Wilbur
  072c:4a 26             send 26 

  072e:39 04            pushi 4 // $4 x
  0730:76               push0 
  0731:81 00              lag gEgo 
  0733:4a 04             send 4 

  0735:36                push 
  0736:34 00b9            ldi b9 
  0739:1a                 eq? 
  073a:31 09              bnt code_0745 
  073c:39 06            pushi 6 // $6 loop
  073e:78               push1 
  073f:39 03            pushi 3 // $3 y
  0741:81 00              lag gEgo 
  0743:4a 06             send 6 


        code_0745
  0745:35 01              ldi 1 
  0747:65 10             aTop cycles 
  0749:33 5f              jmp code_07aa 

        code_074b
  074b:3c                 dup 
  074c:35 06              ldi 6 
  074e:1a                 eq? 
  074f:31 0e              bnt code_075f 
  0751:39 7e            pushi 7e // $7e setCycle
  0753:7a               push2 
  0754:51 1b            class Beg 
  0756:36                push 
  0757:7c            pushSelf 
  0758:72 0127          lofsa $0882 // Wilbur
  075b:4a 08             send 8 

  075d:33 4b              jmp code_07aa 

        code_075f
  075f:3c                 dup 
  0760:35 07              ldi 7 
  0762:1a                 eq? 
  0763:31 27              bnt code_078c 
  0765:78               push1 
  0766:38 03d9          pushi 3d9 // $3d9 sel_985
  0769:43 03 02         callk DisposeScript 2 

  076c:39 58            pushi 58 // $58 dispose
  076e:76               push0 
  076f:72 01fc          lofsa $096e // Book
  0772:4a 04             send 4 

  0774:39 06            pushi 6 // $6 loop
  0776:78               push1 
  0777:39 08            pushi 8 // $8 underBits
  0779:39 07            pushi 7 // $7 cel
  077b:78               push1 
  077c:39 05            pushi 5 // $5 view
  077e:39 7e            pushi 7e // $7e setCycle
  0780:7a               push2 
  0781:51 1b            class Beg 
  0783:36                push 
  0784:7c            pushSelf 
  0785:72 00fa          lofsa $0882 // Wilbur
  0788:4a 14             send 14 

  078a:33 1e              jmp code_07aa 

        code_078c
  078c:3c                 dup 
  078d:35 08              ldi 8 
  078f:1a                 eq? 
  0790:31 18              bnt code_07aa 
  0792:35 00              ldi 0 
  0794:a0 00be            sag global190 
  0797:35 00              ldi 0 
  0799:a3 03              sal local3 
  079b:76               push0 
  079c:45 04 00         callb procedure_0004 0 // HandsOn 

  079f:39 7a            pushi 7a // $7a setScript
  07a1:78               push1 
  07a2:74 00a9          lofss $084e // reading
  07a5:72 0044          lofsa $07ec // wilbRead
  07a8:4a 06             send 6 


        code_07aa
  07aa:3a                toss 
  07ab:48                 ret 
    )

)



(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 20            pushi 20 // $20 state
  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:48                 ret 
)

