(script 220)

(string
    string_07e0 "Gloria"
    string_07e7 "Jeeves"
    string_07ee "Wilbur"
    string_07f5 "WilburBlock"
    string_0801 "reading"
    string_0809 "wilbGlor"
    string_0812 "wilbRead"
    string_081b "wilbur"
)

(said
    said_05ba /c>
    said_05bf /magazine>
    said_05c4 get,chaparder
    said_05ca ecouter
    said_05cd look,etudier
    said_05d3 look/c
    said_05d9 bonjour
)

(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
)

// 05e2
(instance Jeeves of servent
    (properties
        y $0
        x $0
        z $0
        heading $0
        yStep $2
        view $0
        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
        guest1 $0
        exitX $0
        exitY $0
        seconds $0
        lastSeconds $0
        serveState $0
        guestState $0
        serving $0
        outOfRoom $0
        itemX $0
        itemY $0
    )
)

// 065c
(instance public wilbRead of Rgn
    (properties
        script $0
        number $0
        timer $0
        keep $0
        initialized $0
    )
    (method (init) // method_0083
  0083:39 57            pushi 57 // $57 init
  0085:76               push0 
  0086:57 36 04         super Rgn 4 

  0089:39 03            pushi 3 // $3 y
  008b:38 0087          pushi 87 // $87 clean
  008e:39 04            pushi 4 // $4 x
  0090:39 29            pushi 29 // $29 edit
  0092:45 15 06         callb procedure_0015 6 // LoadMany 

  0095:39 03            pushi 3 // $3 y
  0097:38 0080          pushi 80 // $80 timeLeft
  009a:38 0282          pushi 282 // $282 sel_642
  009d:38 038b          pushi 38b // $38b sel_907
  00a0:45 15 06         callb procedure_0015 6 // LoadMany 

  00a3:39 05            pushi 5 // $5 view
  00a5:38 0084          pushi 84 // $84 stop
  00a8:39 1d            pushi 1d // $1d back
  00aa:39 5e            pushi 5e // $5e respondsTo
  00ac:39 5f            pushi 5f // $5f yourself
  00ae:39 60            pushi 60 // $60 size
  00b0:45 15 0a         callb procedure_0015 a // LoadMany 

  00b3:39 04            pushi 4 // $4 x
  00b5:38 008f          pushi 8f // $8f moveTo
  00b8:38 00f3          pushi f3 // $f3 close
  00bb:38 00db          pushi db // $db onControl
  00be:38 0196          pushi 196 // $196 sel_406
  00c1:45 15 08         callb procedure_0015 8 // LoadMany 

  00c4:34 0080            ldi 80 
  00c7:a0 00d0            sag global208 
  00ca:34 00db            ldi db 
  00cd:a0 0180            sag global384 
  00d0:39 57            pushi 57 // $57 init
  00d2:76               push0 
  00d3:38 00c6          pushi c6 // $c6 stopUpd
  00d6:76               push0 
  00d7:39 7a            pushi 7a // $7a setScript
  00d9:78               push1 
  00da:74 05b7          lofss $0694 // reading
  00dd:72 0614          lofsa $06f4 // Wilbur
  00e0:4a 0e             send e 

  00e2:88 0172            lsg global370 
  00e5:35 01              ldi 1 
  00e7:1e                 gt? 
  00e8:31 55              bnt code_013f 
  00ea:88 00c7            lsg global199 
  00ed:35 01              ldi 1 
  00ef:1a                 eq? 
  00f0:31 4d              bnt code_013f 
  00f2:35 00              ldi 0 
  00f4:a0 0172            sag global370 
  00f7:7a               push2 
  00f8:38 0080          pushi 80 // $80 timeLeft
  00fb:38 0169          pushi 169 // $169 sel_361
  00fe:43 00 04         callk Load 4 

  0101:89 0c              lsg gPrevRoomNum 
  0103:35 21              ldi 21 
  0105:1a                 eq? 
  0106:31 22              bnt code_012a 
  0108:38 00c5          pushi c5 // $c5 posn
  010b:7a               push2 
  010c:39 04            pushi 4 // $4 x
  010e:76               push0 
  010f:81 00              lag gEgo 
  0111:4a 04             send 4 

  0113:36                push 
  0114:38 0091          pushi 91 // $91 isType
  0117:81 00              lag gEgo 
  0119:4a 08             send 8 

  011b:38 00c5          pushi c5 // $c5 posn
  011e:7a               push2 
  011f:38 0122          pushi 122 // $122 xTilt
  0122:38 0097          pushi 97 // $97 open
  0125:72 0654          lofsa $077c // Gloria
  0128:4a 08             send 8 


        code_012a
  012a:39 57            pushi 57 // $57 init
  012c:76               push0 
  012d:39 7a            pushi 7a // $7a setScript
  012f:78               push1 
  0130:74 0591          lofss $06c4 // wilbGlor
  0133:72 0646          lofsa $077c // Gloria
  0136:4a 0a             send a 

  0138:35 02              ldi 2 
  013a:a0 00c7            sag global199 
  013d:33 6b              jmp code_01aa 

        code_013f
  013f:88 00c2            lsg global194 
  0142:35 08              ldi 8 
  0144:12                 and 
  0145:18                 not 
  0146:31 62              bnt code_01aa 
  0148:88 00c2            lsg global194 
  014b:35 08              ldi 8 
  014d:14                  or 
  014e:a0 00c2            sag global194 
  0151:39 05            pushi 5 // $5 view
  0153:78               push1 
  0154:38 01bc          pushi 1bc // $1bc sel_444
  0157:38 00c5          pushi c5 // $c5 posn
  015a:7a               push2 
  015b:38 0140          pushi 140 // $140 upRoomNo
  015e:38 0096          pushi 96 // $96 busy
  0161:39 7e            pushi 7e // $7e setCycle
  0163:78               push1 
  0164:51 17            class Walk 
  0166:36                push 
  0167:38 014c          pushi 14c // $14c guest1
  016a:78               push1 
  016b:74 0586          lofss $06f4 // Wilbur
  016e:38 014d          pushi 14d // $14d exitX
  0171:78               push1 
  0172:38 0154          pushi 154 // $154 itemY
  0175:38 014e          pushi 14e // $14e exitY
  0178:78               push1 
  0179:38 0096          pushi 96 // $96 busy
  017c:38 0153          pushi 153 // $153 itemX
  017f:78               push1 
  0180:38 00c5          pushi c5 // $c5 posn
  0183:38 0154          pushi 154 // $154 itemY
  0186:78               push1 
  0187:38 0095          pushi 95 // $95 theItem
  018a:38 00d4          pushi d4 // $d4 setAvoider
  018d:78               push1 
  018e:38 00be          pushi be // $be offScreenOK
  0191:78               push1 
  0192:78               push1 
  0193:39 56            pushi 56 // $56 new
  0195:76               push0 
  0196:51 21            class Avoid 
  0198:4a 04             send 4 

  019a:4a 06             send 6 

  019c:36                push 
  019d:39 57            pushi 57 // $57 init
  019f:76               push0 
  01a0:72 0445          lofsa $05e8 // Jeeves
  01a3:4a 3c             send 3c 

  01a5:35 01              ldi 1 
  01a7:a0 00a7            sag global167 

        code_01aa
  01aa:38 00d8          pushi d8 // $d8 observeBlocks
  01ad:78               push1 
  01ae:74 05ab          lofss $075c // WilburBlock
  01b1:81 00              lag gEgo 
  01b3:4a 06             send 6 

  01b5:48                 ret 
    )

    (method (doit) // method_01b6
  01b6:39 3c            pushi 3c // $3c doit
  01b8:76               push0 
  01b9:57 36 04         super Rgn 4 

  01bc:48                 ret 
    )

    (method (dispose) // method_01bd
  01bd:39 58            pushi 58 // $58 dispose
  01bf:76               push0 
  01c0:57 36 04         super Rgn 4 

  01c3:48                 ret 
    )

    (method (handleEvent) // method_01c4
  01c4:39 4c            pushi 4c // $4c claimed
  01c6:76               push0 
  01c7:87 01              lap param1 
  01c9:4a 04             send 4 

  01cb:31 03              bnt code_01d0 
  01cd:35 01              ldi 1 
  01cf:48                 ret 

        code_01d0
  01d0:39 22            pushi 22 // $22 type
  01d2:76               push0 
  01d3:87 01              lap param1 
  01d5:4a 04             send 4 

  01d7:36                push 
  01d8:34 0080            ldi 80 
  01db:1a                 eq? 
  01dc:30 0118            bnt code_02f7 
  01df:78               push1 
  01e0:74 03d7          lofss $05ba // /c>
  01e3:43 25 02         callk Said 2 

  01e6:30 00b4            bnt code_029d 
  01e9:78               push1 
  01ea:74 03dd          lofss $05ca // ecouter
  01ed:43 25 02         callk Said 2 

  01f0:31 0e              bnt code_0200 
  01f2:7a               push2 
  01f3:38 00dc          pushi dc // $dc setStep
  01f6:76               push0 
  01f7:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  01fd:32 009b            jmp code_029b 

        code_0200
  0200:78               push1 
  0201:74 03d5          lofss $05d9 // bonjour
  0204:43 25 02         callk Said 2 

  0207:30 0091            bnt code_029b 
  020a:35 08              ldi 8 
  020c:a0 00d5            sag global213 
  020f:8b 00              lsl local0 
  0211:3c                 dup 
  0212:35 00              ldi 0 
  0214:1a                 eq? 
  0215:31 1b              bnt code_0232 
  0217:39 03            pushi 3 // $3 y
  0219:78               push1 
  021a:38 00dc          pushi dc // $dc setStep
  021d:78               push1 
  021e:45 01 06         callb procedure_0001 6 // Say 

  0221:35 0c              ldi c 
  0223:a0 00d5            sag global213 
  0226:39 03            pushi 3 // $3 y
  0228:76               push0 
  0229:38 00dc          pushi dc // $dc setStep
  022c:7a               push2 
  022d:45 01 06         callb procedure_0001 6 // Say 

  0230:33 66              jmp code_0298 

        code_0232
  0232:3c                 dup 
  0233:35 01              ldi 1 
  0235:1a                 eq? 
  0236:31 1d              bnt code_0255 
  0238:39 03            pushi 3 // $3 y
  023a:78               push1 
  023b:38 00dc          pushi dc // $dc setStep
  023e:39 03            pushi 3 // $3 y
  0240:45 01 06         callb procedure_0001 6 // Say 

  0243:35 0c              ldi c 
  0245:a0 00d5            sag global213 
  0248:39 03            pushi 3 // $3 y
  024a:76               push0 
  024b:38 00dc          pushi dc // $dc setStep
  024e:39 04            pushi 4 // $4 x
  0250:45 01 06         callb procedure_0001 6 // Say 

  0253:33 43              jmp code_0298 

        code_0255
  0255:3c                 dup 
  0256:35 02              ldi 2 
  0258:1a                 eq? 
  0259:31 1d              bnt code_0278 
  025b:39 03            pushi 3 // $3 y
  025d:78               push1 
  025e:38 00dc          pushi dc // $dc setStep
  0261:39 05            pushi 5 // $5 view
  0263:45 01 06         callb procedure_0001 6 // Say 

  0266:35 0c              ldi c 
  0268:a0 00d5            sag global213 
  026b:39 03            pushi 3 // $3 y
  026d:76               push0 
  026e:38 00dc          pushi dc // $dc setStep
  0271:39 06            pushi 6 // $6 loop
  0273:45 01 06         callb procedure_0001 6 // Say 

  0276:33 20              jmp code_0298 

        code_0278
  0278:3c                 dup 
  0279:35 03              ldi 3 
  027b:1a                 eq? 
  027c:31 0e              bnt code_028c 
  027e:7a               push2 
  027f:38 00dc          pushi dc // $dc setStep
  0282:39 07            pushi 7 // $7 cel
  0284:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  028a:33 0c              jmp code_0298 

        code_028c
  028c:7a               push2 
  028d:38 00dc          pushi dc // $dc setStep
  0290:39 08            pushi 8 // $8 underBits
  0292:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0298
  0298:3a                toss 
  0299:c3 00              +al local0 

        code_029b
  029b:33 5a              jmp code_02f7 

        code_029d
  029d:78               push1 
  029e:74 031e          lofss $05bf // /magazine>
  02a1:43 25 02         callk Said 2 

  02a4:31 51              bnt code_02f7 
  02a6:78               push1 
  02a7:74 031a          lofss $05c4 // get,chaparder
  02aa:43 25 02         callk Said 2 

  02ad:31 0e              bnt code_02bd 
  02af:7a               push2 
  02b0:38 00dc          pushi dc // $dc setStep
  02b3:39 09            pushi 9 // $9 nsTop
  02b5:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  02bb:33 3a              jmp code_02f7 

        code_02bd
  02bd:78               push1 
  02be:74 030c          lofss $05cd // look,etudier
  02c1:43 25 02         callk Said 2 

  02c4:31 31              bnt code_02f7 
  02c6:38 00ae          pushi ae // $ae distanceTo
  02c9:78               push1 
  02ca:74 0427          lofss $06f4 // Wilbur
  02cd:81 00              lag gEgo 
  02cf:4a 06             send 6 

  02d1:36                push 
  02d2:35 14              ldi 14 
  02d4:22                 lt? 
  02d5:31 14              bnt code_02eb 
  02d7:78               push1 
  02d8:39 11            pushi 11 // $11 signal
  02da:45 05 02         callb procedure_0005 2 // SetFlag 

  02dd:7a               push2 
  02de:38 00dc          pushi dc // $dc setStep
  02e1:39 0a            pushi a // $a nsLeft
  02e3:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  02e9:33 0c              jmp code_02f7 

        code_02eb
  02eb:7a               push2 
  02ec:38 00dc          pushi dc // $dc setStep
  02ef:39 0b            pushi b // $b nsBottom
  02f1:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_02f7
  02f7:48                 ret 
    )

)

// 068e
(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 (changeState) // method_02f8
  02f8:3f 01             link 1 // (var $1)
  02fa:87 01              lap param1 
  02fc:65 0a             aTop state 
  02fe:36                push 
  02ff:3c                 dup 
  0300:35 00              ldi 0 
  0302:1a                 eq? 
  0303:31 1d              bnt code_0322 
  0305:39 06            pushi 6 // $6 loop
  0307:78               push1 
  0308:83 01              lal local1 
  030a:31 04              bnt code_0310 
  030c:35 05              ldi 5 
  030e:33 02              jmp code_0312 

        code_0310
  0310:35 00              ldi 0 

        code_0312
  0312:36                push 
  0313:39 7e            pushi 7e // $7e setCycle
  0315:7a               push2 
  0316:51 1a            class End 
  0318:36                push 
  0319:7c            pushSelf 
  031a:72 03d7          lofsa $06f4 // Wilbur
  031d:4a 0e             send e 

  031f:32 00fd            jmp code_041f 

        code_0322
  0322:3c                 dup 
  0323:35 01              ldi 1 
  0325:1a                 eq? 
  0326:31 45              bnt code_036d 
  0328:7a               push2 
  0329:78               push1 
  032a:39 64            pushi 64 // $64 allTrue
  032c:43 40 04         callk Random 4 

  032f:a5 00              sat temp0 
  0331:83 01              lal local1 
  0333:31 20              bnt code_0355 
  0335:8d 00              lst temp0 
  0337:35 2b              ldi 2b 
  0339:22                 lt? 
  033a:31 06              bnt code_0342 
  033c:35 02              ldi 2 
  033e:65 0a             aTop state 
  0340:33 11              jmp code_0353 

        code_0342
  0342:8d 00              lst temp0 
  0344:35 38              ldi 38 
  0346:1e                 gt? 
  0347:31 06              bnt code_034f 
  0349:35 05              ldi 5 
  034b:65 0a             aTop state 
  034d:33 04              jmp code_0353 

        code_034f
  034f:35 ff              ldi ff 
  0351:65 0a             aTop state 

        code_0353
  0353:33 0b              jmp code_0360 

        code_0355
  0355:8d 00              lst temp0 
  0357:35 33              ldi 33 
  0359:22                 lt? 
  035a:31 04              bnt code_0360 
  035c:35 ff              ldi ff 
  035e:65 0a             aTop state 

        code_0360
  0360:7a               push2 
  0361:39 05            pushi 5 // $5 view
  0363:39 0a            pushi a // $a nsLeft
  0365:43 40 04         callk Random 4 

  0368:65 12             aTop seconds 
  036a:32 00b2            jmp code_041f 

        code_036d
  036d:3c                 dup 
  036e:35 02              ldi 2 
  0370:1a                 eq? 
  0371:31 29              bnt code_039c 
  0373:35 01              ldi 1 
  0375:a3 01              sal local1 
  0377:39 06            pushi 6 // $6 loop
  0379:78               push1 
  037a:39 04            pushi 4 // $4 x
  037c:39 07            pushi 7 // $7 cel
  037e:78               push1 
  037f:76               push0 
  0380:39 7e            pushi 7e // $7e setCycle
  0382:78               push1 
  0383:51 1a            class End 
  0385:36                push 
  0386:72 036b          lofsa $06f4 // Wilbur
  0389:4a 12             send 12 

  038b:7a               push2 
  038c:39 05            pushi 5 // $5 view
  038e:39 0a            pushi a // $a nsLeft
  0390:43 40 04         callk Random 4 

  0393:65 12             aTop seconds 
  0395:35 00              ldi 0 
  0397:65 0a             aTop state 
  0399:32 0083            jmp code_041f 

        code_039c
  039c:3c                 dup 
  039d:35 03              ldi 3 
  039f:1a                 eq? 
  03a0:31 17              bnt code_03b9 
  03a2:39 06            pushi 6 // $6 loop
  03a4:78               push1 
  03a5:39 06            pushi 6 // $6 loop
  03a7:39 07            pushi 7 // $7 cel
  03a9:78               push1 
  03aa:76               push0 
  03ab:39 7e            pushi 7e // $7e setCycle
  03ad:7a               push2 
  03ae:51 1a            class End 
  03b0:36                push 
  03b1:7c            pushSelf 
  03b2:72 033f          lofsa $06f4 // Wilbur
  03b5:4a 14             send 14 

  03b7:33 66              jmp code_041f 

        code_03b9
  03b9:3c                 dup 
  03ba:35 04              ldi 4 
  03bc:1a                 eq? 
  03bd:31 1a              bnt code_03d9 
  03bf:39 06            pushi 6 // $6 loop
  03c1:78               push1 
  03c2:39 07            pushi 7 // $7 cel
  03c4:39 07            pushi 7 // $7 cel
  03c6:78               push1 
  03c7:76               push0 
  03c8:39 7e            pushi 7e // $7e setCycle
  03ca:78               push1 
  03cb:51 16            class Fwd 
  03cd:36                push 
  03ce:72 0323          lofsa $06f4 // Wilbur
  03d1:4a 12             send 12 

  03d3:35 03              ldi 3 
  03d5:65 12             aTop seconds 
  03d7:33 46              jmp code_041f 

        code_03d9
  03d9:3c                 dup 
  03da:35 05              ldi 5 
  03dc:1a                 eq? 
  03dd:31 1c              bnt code_03fb 
  03df:39 06            pushi 6 // $6 loop
  03e1:78               push1 
  03e2:39 06            pushi 6 // $6 loop
  03e4:39 07            pushi 7 // $7 cel
  03e6:78               push1 
  03e7:39 03            pushi 3 // $3 y
  03e9:39 7e            pushi 7e // $7e setCycle
  03eb:7a               push2 
  03ec:51 1b            class Beg 
  03ee:36                push 
  03ef:7c            pushSelf 
  03f0:72 0301          lofsa $06f4 // Wilbur
  03f3:4a 14             send 14 

  03f5:35 00              ldi 0 
  03f7:65 0a             aTop state 
  03f9:33 24              jmp code_041f 

        code_03fb
  03fb:3c                 dup 
  03fc:35 06              ldi 6 
  03fe:1a                 eq? 
  03ff:31 1e              bnt code_041f 
  0401:35 00              ldi 0 
  0403:a3 01              sal local1 
  0405:39 06            pushi 6 // $6 loop
  0407:78               push1 
  0408:39 04            pushi 4 // $4 x
  040a:39 07            pushi 7 // $7 cel
  040c:78               push1 
  040d:39 04            pushi 4 // $4 x
  040f:39 7e            pushi 7e // $7e setCycle
  0411:7a               push2 
  0412:51 1a            class End 
  0414:36                push 
  0415:7c            pushSelf 
  0416:72 02db          lofsa $06f4 // Wilbur
  0419:4a 14             send 14 

  041b:35 00              ldi 0 
  041d:65 0a             aTop state 

        code_041f
  041f:3a                toss 
  0420:48                 ret 
    )

)

// 06be
(instance wilbGlor 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_0421
  0421:87 01              lap param1 
  0423:65 0a             aTop state 
  0425:36                push 
  0426:3c                 dup 
  0427:35 00              ldi 0 
  0429:1a                 eq? 
  042a:31 27              bnt code_0453 
  042c:76               push0 
  042d:45 03 00         callb procedure_0003 0 // HandsOff 

  0430:78               push1 
  0431:39 18            pushi 18 // $18 key
  0433:45 05 02         callb procedure_0005 2 // SetFlag 

  0436:39 7e            pushi 7e // $7e setCycle
  0438:78               push1 
  0439:51 17            class Walk 
  043b:36                push 
  043c:38 00d3          pushi d3 // $d3 setMotion
  043f:39 04            pushi 4 // $4 x
  0441:51 1d            class MoveTo 
  0443:36                push 
  0444:38 00da          pushi da // $da inRect
  0447:38 008e          pushi 8e // $8e move
  044a:7c            pushSelf 
  044b:72 032e          lofsa $077c // Gloria
  044e:4a 12             send 12 

  0450:32 0101            jmp code_0554 

        code_0453
  0453:3c                 dup 
  0454:35 01              ldi 1 
  0456:1a                 eq? 
  0457:31 33              bnt code_048c 
  0459:39 06            pushi 6 // $6 loop
  045b:78               push1 
  045c:78               push1 
  045d:39 07            pushi 7 // $7 cel
  045f:78               push1 
  0460:76               push0 
  0461:39 7e            pushi 7e // $7e setCycle
  0463:78               push1 
  0464:51 1a            class End 
  0466:36                push 
  0467:72 028a          lofsa $06f4 // Wilbur
  046a:4a 12             send 12 

  046c:39 05            pushi 5 // $5 view
  046e:78               push1 
  046f:38 0169          pushi 169 // $169 sel_361
  0472:39 06            pushi 6 // $6 loop
  0474:78               push1 
  0475:7a               push2 
  0476:72 0303          lofsa $077c // Gloria
  0479:4a 0c             send c 

  047b:7a               push2 
  047c:38 00dc          pushi dc // $dc setStep
  047f:39 0c            pushi c // $c nsRight
  0481:40 fbcb 04        call proc_0050 4 

  0485:35 07              ldi 7 
  0487:65 12             aTop seconds 
  0489:32 00c8            jmp code_0554 

        code_048c
  048c:3c                 dup 
  048d:35 02              ldi 2 
  048f:1a                 eq? 
  0490:31 15              bnt code_04a7 
  0492:76               push0 
  0493:45 0f 00         callb procedure_000f 0 // cls 

  0496:7a               push2 
  0497:38 00dc          pushi dc // $dc setStep
  049a:39 0d            pushi d // $d lsTop
  049c:40 fb7a 04        call proc_001a 4 

  04a0:35 07              ldi 7 
  04a2:65 12             aTop seconds 
  04a4:32 00ad            jmp code_0554 

        code_04a7
  04a7:3c                 dup 
  04a8:35 03              ldi 3 
  04aa:1a                 eq? 
  04ab:31 15              bnt code_04c2 
  04ad:76               push0 
  04ae:45 0f 00         callb procedure_000f 0 // cls 

  04b1:7a               push2 
  04b2:38 00dc          pushi dc // $dc setStep
  04b5:39 0e            pushi e // $e lsLeft
  04b7:40 fb95 04        call proc_0050 4 

  04bb:35 07              ldi 7 
  04bd:65 12             aTop seconds 
  04bf:32 0092            jmp code_0554 

        code_04c2
  04c2:3c                 dup 
  04c3:35 04              ldi 4 
  04c5:1a                 eq? 
  04c6:31 14              bnt code_04dc 
  04c8:76               push0 
  04c9:45 0f 00         callb procedure_000f 0 // cls 

  04cc:7a               push2 
  04cd:38 00dc          pushi dc // $dc setStep
  04d0:39 0f            pushi f // $f lsBottom
  04d2:40 fb44 04        call proc_001a 4 

  04d6:35 05              ldi 5 
  04d8:65 12             aTop seconds 
  04da:33 78              jmp code_0554 

        code_04dc
  04dc:3c                 dup 
  04dd:35 05              ldi 5 
  04df:1a                 eq? 
  04e0:31 14              bnt code_04f6 
  04e2:76               push0 
  04e3:45 0f 00         callb procedure_000f 0 // cls 

  04e6:7a               push2 
  04e7:38 00dc          pushi dc // $dc setStep
  04ea:39 10            pushi 10 // $10 lsRight
  04ec:40 fb60 04        call proc_0050 4 

  04f0:35 02              ldi 2 
  04f2:65 12             aTop seconds 
  04f4:33 5e              jmp code_0554 

        code_04f6
  04f6:3c                 dup 
  04f7:35 06              ldi 6 
  04f9:1a                 eq? 
  04fa:31 33              bnt code_052f 
  04fc:76               push0 
  04fd:45 0f 00         callb procedure_000f 0 // cls 

  0500:39 05            pushi 5 // $5 view
  0502:78               push1 
  0503:38 0168          pushi 168 // $168 sel_360
  0506:38 00d3          pushi d3 // $d3 setMotion
  0509:39 04            pushi 4 // $4 x
  050b:51 1d            class MoveTo 
  050d:36                push 
  050e:38 0154          pushi 154 // $154 itemY
  0511:38 0098          pushi 98 // $98 center
  0514:7c            pushSelf 
  0515:72 0264          lofsa $077c // Gloria
  0518:4a 12             send 12 

  051a:39 06            pushi 6 // $6 loop
  051c:78               push1 
  051d:78               push1 
  051e:39 07            pushi 7 // $7 cel
  0520:78               push1 
  0521:78               push1 
  0522:39 7e            pushi 7e // $7e setCycle
  0524:78               push1 
  0525:51 1b            class Beg 
  0527:36                push 
  0528:72 01c9          lofsa $06f4 // Wilbur
  052b:4a 12             send 12 

  052d:33 25              jmp code_0554 

        code_052f
  052f:3c                 dup 
  0530:35 07              ldi 7 
  0532:1a                 eq? 
  0533:31 1f              bnt code_0554 
  0535:76               push0 
  0536:45 04 00         callb procedure_0004 0 // HandsOn 

  0539:39 7a            pushi 7a // $7a setScript
  053b:78               push1 
  053c:74 0155          lofss $0694 // reading
  053f:72 01b2          lofsa $06f4 // Wilbur
  0542:4a 06             send 6 

  0544:39 58            pushi 58 // $58 dispose
  0546:76               push0 
  0547:72 0232          lofsa $077c // Gloria
  054a:4a 04             send 4 

  054c:39 7a            pushi 7a // $7a setScript
  054e:78               push1 
  054f:76               push0 
  0550:63 08             pToa client 
  0552:4a 06             send 6 


        code_0554
  0554:3a                toss 
  0555:48                 ret 
    )

)

// 06ee
(instance Wilbur of Act
    (properties
        y $8e
        x $c4
        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_0556
  0556:39 03            pushi 3 // $3 y
  0558:7c            pushSelf 
  0559:8f 01              lsp param1 
  055b:39 03            pushi 3 // $3 y
  055d:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  0563:31 1b              bnt code_0580 
  0565:88 00cf            lsg global207 
  0568:34 0080            ldi 80 
  056b:12                 and 
  056c:18                 not 
  056d:31 11              bnt code_0580 
  056f:39 4c            pushi 4c // $4c claimed
  0571:78               push1 
  0572:78               push1 
  0573:87 01              lap param1 
  0575:4a 06             send 6 

  0577:78               push1 
  0578:74 02a0          lofss $081b // wilbur
  057b:45 19 02         callb procedure_0019 2 // DoLook 

  057e:33 35              jmp code_05b5 

        code_0580
  0580:88 00cf            lsg global207 
  0583:34 0080            ldi 80 
  0586:12                 and 
  0587:31 2c              bnt code_05b5 
  0589:39 03            pushi 3 // $3 y
  058b:7c            pushSelf 
  058c:8f 01              lsp param1 
  058e:39 03            pushi 3 // $3 y
  0590:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  0596:2f 09               bt code_05a1 
  0598:78               push1 
  0599:74 0037          lofss $05d3 // look/c
  059c:43 25 02         callk Said 2 

  059f:31 14              bnt code_05b5 

        code_05a1
  05a1:39 4c            pushi 4c // $4c claimed
  05a3:78               push1 
  05a4:78               push1 
  05a5:87 01              lap param1 
  05a7:4a 06             send 6 

  05a9:7a               push2 
  05aa:38 00dc          pushi dc // $dc setStep
  05ad:39 11            pushi 11 // $11 signal
  05af:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_05b5
  05b5:48                 ret 
    )

)

// 0756
(instance WilburBlock of Blk
    (properties
        top $8a
        left $c4
        bottom $8e
        right $cc
    )
)

// 0776
(instance Gloria of Act
    (properties
        y $96
        x $136
        z $0
        heading $0
        yStep $2
        view $168
        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
    )
)



(procedure proc_001a
  001a:38 00c6          pushi c6 // $c6 stopUpd
  001d:76               push0 
  001e:72 075b          lofsa $077c // Gloria
  0021:4a 04             send 4 

  0023:39 06            pushi 6 // $6 loop
  0025:78               push1 
  0026:7a               push2 
  0027:39 7e            pushi 7e // $7e setCycle
  0029:78               push1 
  002a:51 16            class Fwd 
  002c:36                push 
  002d:72 06c4          lofsa $06f4 // Wilbur
  0030:4a 0c             send c 

  0032:39 0a            pushi a // $a nsLeft
  0034:59 01            &rest 1 
  0036:39 43            pushi 43 // $43 at
  0038:39 50            pushi 50 // $50 title
  003a:39 0f            pushi f // $f lsBottom
  003c:39 21            pushi 21 // $21 font
  003e:39 04            pushi 4 // $4 x
  0040:39 46            pushi 46 // $46 width
  0042:39 7d            pushi 7d // $7d set
  0044:39 1e            pushi 1e // $1e mode
  0046:78               push1 
  0047:39 58            pushi 58 // $58 dispose
  0049:46 00ff 0000 14  calle ff procedure_0000 14 // Print 

  004f:48                 ret 
)

(procedure proc_0050
  0050:38 00c6          pushi c6 // $c6 stopUpd
  0053:76               push0 
  0054:72 069d          lofsa $06f4 // Wilbur
  0057:4a 04             send 4 

  0059:39 7e            pushi 7e // $7e setCycle
  005b:78               push1 
  005c:51 16            class Fwd 
  005e:36                push 
  005f:72 071a          lofsa $077c // Gloria
  0062:4a 06             send 6 

  0064:39 0a            pushi a // $a nsLeft
  0066:59 01            &rest 1 
  0068:39 43            pushi 43 // $43 at
  006a:38 00a0          pushi a0 // $a0 cycleDone
  006d:39 0f            pushi f // $f lsBottom
  006f:39 21            pushi 21 // $21 font
  0071:39 04            pushi 4 // $4 x
  0073:39 46            pushi 46 // $46 width
  0075:39 7d            pushi 7d // $7d set
  0077:39 1e            pushi 1e // $1e mode
  0079:78               push1 
  007a:39 58            pushi 58 // $58 dispose
  007c:46 00ff 0000 14  calle ff procedure_0000 14 // Print 

  0082:48                 ret 
)

