(script 230)

(string
    string_116e "Ethel"
    string_1174 "Lillian"
    string_117c "casTalk"
    string_1184 "comeBack"
    string_118d "ethel"
    string_1193 "ethelActions"
    string_11a0 "lHead"
    string_11a6 "leargue"
    string_11ae "lilActions"
    string_11b9 "lillian"
    string_11c1 "talkActions"
    string_11cd ""
)

(said
    said_0e8e /boire,glass
    said_0e95 /handkerchief
    said_0e99 /gens,person,dame
    said_0ea3 ask[/ethel]/lil<about
    said_0eb1 ask[/lil]/ethel<about
    said_0ebf get>
    said_0ec3 ecouter/ethel,lil
    said_0ecc look/boire,glass
    said_0ed5 look/ethel
    said_0edb look/deliver
    said_0ee1 look/handkerchief
    said_0ee7 look/lil
    said_0eed look>
    said_0ef1 bonjour/ethel
    said_0ef7 bonjour/lil
    said_0efd bonjour/gens
    said_0f03 bonjour/person,hommes
)

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

// 0f12
(instance public leargue of Rgn
    (properties
        script $0
        number $0
        timer $0
        keep $0
        initialized $0
    )
    (method (init) // method_00ad
  00ad:39 57            pushi 57 // $57 init
  00af:76               push0 
  00b0:57 36 04         super Rgn 4 

  00b3:7a               push2 
  00b4:38 0087          pushi 87 // $87 clean
  00b7:39 04            pushi 4 // $4 x
  00b9:43 00 04         callk Load 4 

  00bc:39 04            pushi 4 // $4 x
  00be:38 008f          pushi 8f // $8f moveTo
  00c1:38 00f3          pushi f3 // $f3 close
  00c4:38 00dd          pushi dd // $dd setDirection
  00c7:38 00e2          pushi e2 // $e2 canInput
  00ca:45 15 08         callb procedure_0015 8 // LoadMany 

  00cd:39 03            pushi 3 // $3 y
  00cf:38 0080          pushi 80 // $80 timeLeft
  00d2:38 01f5          pushi 1f5 // $1f5 sel_501
  00d5:38 0200          pushi 200 // $200 sel_512
  00d8:45 15 06         callb procedure_0015 6 // LoadMany 

  00db:39 03            pushi 3 // $3 y
  00dd:38 008e          pushi 8e // $8e move
  00e0:39 04            pushi 4 // $4 x
  00e2:39 06            pushi 6 // $6 loop
  00e4:45 15 06         callb procedure_0015 6 // LoadMany 

  00e7:34 00dd            ldi dd 
  00ea:a0 017c            sag global380 
  00ed:34 00e2            ldi e2 
  00f0:a0 017e            sag global382 
  00f3:39 57            pushi 57 // $57 init
  00f5:76               push0 
  00f6:38 0089          pushi 89 // $89 hide
  00f9:76               push0 
  00fa:72 0fad          lofsa $10aa // Lillian
  00fd:4a 08             send 8 

  00ff:72 0fa8          lofsa $10aa // Lillian
  0102:a0 0175            sag global373 
  0105:88 0174            lsg global372 
  0108:35 01              ldi 1 
  010a:1a                 eq? 
  010b:2f 09               bt code_0116 
  010d:88 00cb            lsg global203 
  0110:35 02              ldi 2 
  0112:1a                 eq? 
  0113:30 008f            bnt code_01a5 

        code_0116
  0116:35 02              ldi 2 
  0118:a0 00cb            sag global203 
  011b:89 0c              lsg gPrevRoomNum 
  011d:35 2d              ldi 2d 
  011f:1c                 ne? 
  0120:2f 08               bt code_012a 
  0122:88 00c8            lsg gEthelState 
  0125:35 01              ldi 1 
  0127:1a                 eq? 
  0128:31 33              bnt code_015d 

        code_012a
  012a:35 01              ldi 1 
  012c:a0 00c8            sag gEthelState 
  012f:39 05            pushi 5 // $5 view
  0131:78               push1 
  0132:38 0145          pushi 145 // $145 highLiteY
  0135:39 12            pushi 12 // $12 illegalBits
  0137:78               push1 
  0138:76               push0 
  0139:39 06            pushi 6 // $6 loop
  013b:78               push1 
  013c:78               push1 
  013d:39 07            pushi 7 // $7 cel
  013f:78               push1 
  0140:39 06            pushi 6 // $6 loop
  0142:38 00c5          pushi c5 // $c5 posn
  0145:7a               push2 
  0146:38 0085          pushi 85 // $85 check
  0149:38 0095          pushi 95 // $95 theItem
  014c:38 00c9          pushi c9 // $c9 ignoreActors
  014f:76               push0 
  0150:39 42            pushi 42 // $42 setPri
  0152:78               push1 
  0153:39 0d            pushi d // $d lsTop
  0155:39 57            pushi 57 // $57 init
  0157:76               push0 
  0158:72 0ee7          lofsa $1042 // Ethel
  015b:4a 2e             send 2e 


        code_015d
  015d:39 05            pushi 5 // $5 view
  015f:78               push1 
  0160:38 01f5          pushi 1f5 // $1f5 sel_501
  0163:39 06            pushi 6 // $6 loop
  0165:78               push1 
  0166:39 04            pushi 4 // $4 x
  0168:39 07            pushi 7 // $7 cel
  016a:78               push1 
  016b:76               push0 
  016c:39 12            pushi 12 // $12 illegalBits
  016e:78               push1 
  016f:76               push0 
  0170:38 00c5          pushi c5 // $c5 posn
  0173:7a               push2 
  0174:39 78            pushi 78 // $78 changeState
  0176:38 0094          pushi 94 // $94 retreat
  0179:38 00a4          pushi a4 // $a4 cycleSpeed
  017c:78               push1 
  017d:78               push1 
  017e:38 00c9          pushi c9 // $c9 ignoreActors
  0181:76               push0 
  0182:38 00ca          pushi ca // $ca show
  0185:76               push0 
  0186:72 0f21          lofsa $10aa // Lillian
  0189:4a 2e             send 2e 

  018b:38 00c9          pushi c9 // $c9 ignoreActors
  018e:78               push1 
  018f:78               push1 
  0190:39 42            pushi 42 // $42 setPri
  0192:78               push1 
  0193:39 0b            pushi b // $b nsBottom
  0195:39 57            pushi 57 // $57 init
  0197:76               push0 
  0198:72 0f77          lofsa $1112 // lHead
  019b:4a 10             send 10 

  019d:39 7a            pushi 7a // $7a setScript
  019f:78               push1 
  01a0:74 0da7          lofss $0f4a // talkActions
  01a3:54 06             self 6 


        code_01a5
  01a5:48                 ret 
    )

    (method (doit) // method_01a6
  01a6:8b 08              lsl local8 
  01a8:35 46              ldi 46 
  01aa:22                 lt? 
  01ab:31 02              bnt code_01af 
  01ad:c3 08              +al local8 

        code_01af
  01af:83 06              lal local6 
  01b1:31 19              bnt code_01cc 
  01b3:83 07              lal local7 
  01b5:31 15              bnt code_01cc 
  01b7:63 08             pToa script 
  01b9:18                 not 
  01ba:31 10              bnt code_01cc 
  01bc:88 00ac            lsg global172 
  01bf:35 64              ldi 64 
  01c1:22                 lt? 
  01c2:31 08              bnt code_01cc 
  01c4:39 7a            pushi 7a // $7a setScript
  01c6:78               push1 
  01c7:74 0db4          lofss $0f7e // casTalk
  01ca:54 06             self 6 


        code_01cc
  01cc:88 00ac            lsg global172 
  01cf:35 63              ldi 63 
  01d1:1a                 eq? 
  01d2:31 22              bnt code_01f6 
  01d4:39 7e            pushi 7e // $7e setCycle
  01d6:78               push1 
  01d7:76               push0 
  01d8:72 0ecf          lofsa $10aa // Lillian
  01db:4a 06             send 6 

  01dd:39 7e            pushi 7e // $7e setCycle
  01df:78               push1 
  01e0:76               push0 
  01e1:72 0f2e          lofsa $1112 // lHead
  01e4:4a 06             send 6 

  01e6:76               push0 
  01e7:45 0f 00         callb procedure_000f 0 // cls 

  01ea:7a               push2 
  01eb:38 00e6          pushi e6 // $e6 prompt
  01ee:76               push0 
  01ef:40 fe19 04        call proc_000c 4 

  01f3:c0 00ac            +ag global172 

        code_01f6
  01f6:88 00ac            lsg global172 
  01f9:35 6e              ldi 6e 
  01fb:1a                 eq? 
  01fc:31 0d              bnt code_020b 
  01fe:76               push0 
  01ff:45 0f 00         callb procedure_000f 0 // cls 

  0202:39 7e            pushi 7e // $7e setCycle
  0204:78               push1 
  0205:76               push0 
  0206:72 0e39          lofsa $1042 // Ethel
  0209:4a 06             send 6 


        code_020b
  020b:88 0174            lsg global372 
  020e:35 01              ldi 1 
  0210:1a                 eq? 
  0211:31 33              bnt code_0246 
  0213:88 00cb            lsg global203 
  0216:35 01              ldi 1 
  0218:1a                 eq? 
  0219:31 2b              bnt code_0246 
  021b:63 08             pToa script 
  021d:18                 not 
  021e:31 26              bnt code_0246 
  0220:39 05            pushi 5 // $5 view
  0222:76               push0 
  0223:81 00              lag gEgo 
  0225:4a 04             send 4 

  0227:36                push 
  0228:35 00              ldi 0 
  022a:1a                 eq? 
  022b:2f 0d               bt code_023a 
  022d:39 05            pushi 5 // $5 view
  022f:76               push0 
  0230:81 00              lag gEgo 
  0232:4a 04             send 4 

  0234:36                push 
  0235:35 0b              ldi b 
  0237:1a                 eq? 
  0238:31 0c              bnt code_0246 

        code_023a
  023a:76               push0 
  023b:45 03 00         callb procedure_0003 0 // HandsOff 

  023e:39 7a            pushi 7a // $7a setScript
  0240:78               push1 
  0241:74 0dce          lofss $1012 // comeBack
  0244:54 06             self 6 


        code_0246
  0246:39 3c            pushi 3c // $3c doit
  0248:76               push0 
  0249:57 36 04         super Rgn 4 

  024c:48                 ret 
    )

    (method (dispose) // method_024d
  024d:78               push1 
  024e:38 03d9          pushi 3d9 // $3d9 sel_985
  0251:43 03 02         callk DisposeScript 2 

  0254:39 58            pushi 58 // $58 dispose
  0256:76               push0 
  0257:57 36 04         super Rgn 4 

  025a:48                 ret 
    )

    (method (handleEvent) // method_025b
  025b:39 6f            pushi 6f // $6f handleEvent
  025d:78               push1 
  025e:8f 01              lsp param1 
  0260:57 36 06         super Rgn 6 

  0263:39 4c            pushi 4c // $4c claimed
  0265:76               push0 
  0266:87 01              lap param1 
  0268:4a 04             send 4 

  026a:31 01              bnt code_026d 
  026c:48                 ret 

        code_026d
  026d:39 22            pushi 22 // $22 type
  026f:76               push0 
  0270:87 01              lap param1 
  0272:4a 04             send 4 

  0274:36                push 
  0275:34 0080            ldi 80 
  0278:1a                 eq? 
  0279:31 75              bnt code_02f0 
  027b:78               push1 
  027c:74 0c6e          lofss $0eed // look>
  027f:43 25 02         callk Said 2 

  0282:31 41              bnt code_02c5 
  0284:78               push1 
  0285:74 0c11          lofss $0e99 // /gens,person,dame
  0288:43 25 02         callk Said 2 

  028b:31 36              bnt code_02c3 
  028d:88 00cb            lsg global203 
  0290:35 02              ldi 2 
  0292:1a                 eq? 
  0293:31 15              bnt code_02aa 
  0295:88 00c8            lsg gEthelState 
  0298:35 01              ldi 1 
  029a:1a                 eq? 
  029b:31 0d              bnt code_02aa 
  029d:7a               push2 
  029e:38 00e6          pushi e6 // $e6 prompt
  02a1:78               push1 
  02a2:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  02a8:33 19              jmp code_02c3 

        code_02aa
  02aa:88 00cb            lsg global203 
  02ad:35 02              ldi 2 
  02af:1a                 eq? 
  02b0:31 09              bnt code_02bb 
  02b2:78               push1 
  02b3:74 0f03          lofss $11b9 // lillian
  02b6:45 19 02         callb procedure_0019 2 // DoLook 

  02b9:33 08              jmp code_02c3 

        code_02bb
  02bb:39 4c            pushi 4c // $4c claimed
  02bd:78               push1 
  02be:76               push0 
  02bf:87 01              lap param1 
  02c1:4a 06             send 6 


        code_02c3
  02c3:33 2b              jmp code_02f0 

        code_02c5
  02c5:78               push1 
  02c6:74 0c3a          lofss $0f03 // bonjour/person,hommes
  02c9:43 25 02         callk Said 2 

  02cc:31 0d              bnt code_02db 
  02ce:7a               push2 
  02cf:38 00e6          pushi e6 // $e6 prompt
  02d2:7a               push2 
  02d3:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  02d9:33 15              jmp code_02f0 

        code_02db
  02db:78               push1 
  02dc:74 0c1e          lofss $0efd // bonjour/gens
  02df:43 25 02         callk Said 2 

  02e2:31 0c              bnt code_02f0 
  02e4:7a               push2 
  02e5:38 00e6          pushi e6 // $e6 prompt
  02e8:39 03            pushi 3 // $3 y
  02ea:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_02f0
  02f0:48                 ret 
    )

)

// 0f44
(instance talkActions 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_02f1
  02f1:39 3c            pushi 3c // $3c doit
  02f3:76               push0 
  02f4:57 05 04         super Script 4 

  02f7:88 00ac            lsg global172 
  02fa:35 62              ldi 62 
  02fc:1e                 gt? 
  02fd:31 08              bnt code_0307 
  02ff:39 7a            pushi 7a // $7a setScript
  0301:78               push1 
  0302:76               push0 
  0303:63 08             pToa client 
  0305:4a 06             send 6 


        code_0307
  0307:48                 ret 
    )

    (method (changeState) // method_0308
  0308:87 01              lap param1 
  030a:65 0a             aTop state 
  030c:36                push 
  030d:3c                 dup 
  030e:35 00              ldi 0 
  0310:1a                 eq? 
  0311:31 15              bnt code_0328 
  0313:88 00c8            lsg gEthelState 
  0316:35 00              ldi 0 
  0318:1a                 eq? 
  0319:31 06              bnt code_0321 
  031b:35 05              ldi 5 
  031d:65 12             aTop seconds 
  031f:33 04              jmp code_0325 

        code_0321
  0321:35 01              ldi 1 
  0323:65 10             aTop cycles 

        code_0325
  0325:32 034c            jmp code_0674 

        code_0328
  0328:3c                 dup 
  0329:35 01              ldi 1 
  032b:1a                 eq? 
  032c:30 0097            bnt code_03c6 
  032f:88 00c8            lsg gEthelState 
  0332:35 00              ldi 0 
  0334:1a                 eq? 
  0335:30 0083            bnt code_03bb 
  0338:c0 00c8            +ag gEthelState 
  033b:35 01              ldi 1 
  033d:a3 01              sal local1 
  033f:38 00da          pushi da // $da inRect
  0342:39 04            pushi 4 // $4 x
  0344:38 0091          pushi 91 // $91 isType
  0347:38 009d          pushi 9d // $9d cycleDir
  034a:38 00a0          pushi a0 // $a0 cycleDone
  034d:38 00a2          pushi a2 // $a2 setCel
  0350:81 00              lag gEgo 
  0352:4a 0c             send c 

  0354:31 20              bnt code_0376 
  0356:38 00d3          pushi d3 // $d3 setMotion
  0359:39 03            pushi 3 // $3 y
  035b:51 1d            class MoveTo 
  035d:36                push 
  035e:39 04            pushi 4 // $4 x
  0360:76               push0 
  0361:81 00              lag gEgo 
  0363:4a 04             send 4 

  0365:36                push 
  0366:35 32              ldi 32 
  0368:04                 sub 
  0369:36                push 
  036a:39 03            pushi 3 // $3 y
  036c:76               push0 
  036d:81 00              lag gEgo 
  036f:4a 04             send 4 

  0371:36                push 
  0372:81 00              lag gEgo 
  0374:4a 0a             send a 


        code_0376
  0376:39 05            pushi 5 // $5 view
  0378:78               push1 
  0379:38 0145          pushi 145 // $145 highLiteY
  037c:38 00c8          pushi c8 // $c8 setLoop
  037f:78               push1 
  0380:76               push0 
  0381:39 12            pushi 12 // $12 illegalBits
  0383:78               push1 
  0384:38 8000          pushi 8000 // $8000 sel_32768
  0387:38 00c5          pushi c5 // $c5 posn
  038a:7a               push2 
  038b:38 0127          pushi 127 // $127 intermediate
  038e:39 79            pushi 79 // $79 cue
  0390:39 7e            pushi 7e // $7e setCycle
  0392:78               push1 
  0393:51 17            class Walk 
  0395:36                push 
  0396:38 00d4          pushi d4 // $d4 setAvoider
  0399:78               push1 
  039a:39 56            pushi 56 // $56 new
  039c:76               push0 
  039d:51 21            class Avoid 
  039f:4a 04             send 4 

  03a1:36                push 
  03a2:38 00d3          pushi d3 // $d3 setMotion
  03a5:39 04            pushi 4 // $4 x
  03a7:51 1d            class MoveTo 
  03a9:36                push 
  03aa:38 009d          pushi 9d // $9d cycleDir
  03ad:38 00a1          pushi a1 // $a1 motionCue
  03b0:7c            pushSelf 
  03b1:39 57            pushi 57 // $57 init
  03b3:76               push0 
  03b4:72 0c8b          lofsa $1042 // Ethel
  03b7:4a 36             send 36 

  03b9:33 08              jmp code_03c3 

        code_03bb
  03bb:35 00              ldi 0 
  03bd:a3 01              sal local1 
  03bf:35 01              ldi 1 
  03c1:65 10             aTop cycles 

        code_03c3
  03c3:32 02ae            jmp code_0674 

        code_03c6
  03c6:3c                 dup 
  03c7:35 02              ldi 2 
  03c9:1a                 eq? 
  03ca:31 4e              bnt code_041a 
  03cc:83 01              lal local1 
  03ce:31 36              bnt code_0406 
  03d0:39 06            pushi 6 // $6 loop
  03d2:78               push1 
  03d3:78               push1 
  03d4:39 07            pushi 7 // $7 cel
  03d6:78               push1 
  03d7:39 06            pushi 6 // $6 loop
  03d9:38 00c9          pushi c9 // $c9 ignoreActors
  03dc:76               push0 
  03dd:38 00c5          pushi c5 // $c5 posn
  03e0:7a               push2 
  03e1:38 0085          pushi 85 // $85 check
  03e4:38 0095          pushi 95 // $95 theItem
  03e7:39 42            pushi 42 // $42 setPri
  03e9:78               push1 
  03ea:39 0d            pushi d // $d lsTop
  03ec:38 00d4          pushi d4 // $d4 setAvoider
  03ef:78               push1 
  03f0:76               push0 
  03f1:39 7e            pushi 7e // $7e setCycle
  03f3:7a               push2 
  03f4:51 1b            class Beg 
  03f6:36                push 
  03f7:7c            pushSelf 
  03f8:72 0c47          lofsa $1042 // Ethel
  03fb:4a 2c             send 2c 

  03fd:78               push1 
  03fe:38 03d9          pushi 3d9 // $3d9 sel_985
  0401:43 03 02         callk DisposeScript 2 

  0404:33 04              jmp code_040a 

        code_0406
  0406:35 01              ldi 1 
  0408:65 10             aTop cycles 

        code_040a
  040a:88 00d0            lsg global208 
  040d:35 28              ldi 28 
  040f:14                  or 
  0410:a0 00d0            sag global208 
  0413:76               push0 
  0414:45 04 00         callb procedure_0004 0 // HandsOn 

  0417:32 025a            jmp code_0674 

        code_041a
  041a:3c                 dup 
  041b:35 03              ldi 3 
  041d:1a                 eq? 
  041e:30 015f            bnt code_0580 
  0421:38 00e2          pushi e2 // $e2 canInput
  0424:78               push1 
  0425:76               push0 
  0426:51 2b            class User 
  0428:4a 06             send 6 

  042a:83 01              lal local1 
  042c:31 0d              bnt code_043b 
  042e:7a               push2 
  042f:38 00e6          pushi e6 // $e6 prompt
  0432:39 04            pushi 4 // $4 x
  0434:40 fbd4 04        call proc_000c 4 

  0438:32 013e            jmp code_0579 

        code_043b
  043b:88 00b2            lsg global178 
  043e:34 7fff            ldi 7fff 
  0441:12                 and 
  0442:a3 05              sal local5 
  0444:36                push 
  0445:80 00b2            lag global178 
  0448:1a                 eq? 
  0449:31 15              bnt code_0460 
  044b:88 00b2            lsg global178 
  044e:35 0a              ldi a 
  0450:22                 lt? 
  0451:31 05              bnt code_0458 
  0453:c0 00b2            +ag global178 
  0456:33 06              jmp code_045e 

        code_0458
  0458:34 8002            ldi 8002 
  045b:a0 00b2            sag global178 

        code_045e
  045e:33 55              jmp code_04b5 

        code_0460
  0460:8b 05              lsl local5 
  0462:3c                 dup 
  0463:35 02              ldi 2 
  0465:1a                 eq? 
  0466:31 08              bnt code_0470 
  0468:34 8004            ldi 8004 
  046b:a0 00b2            sag global178 
  046e:33 44              jmp code_04b4 

        code_0470
  0470:3c                 dup 
  0471:35 04              ldi 4 
  0473:1a                 eq? 
  0474:31 08              bnt code_047e 
  0476:34 8006            ldi 8006 
  0479:a0 00b2            sag global178 
  047c:33 36              jmp code_04b4 

        code_047e
  047e:3c                 dup 
  047f:35 06              ldi 6 
  0481:1a                 eq? 
  0482:31 08              bnt code_048c 
  0484:34 8007            ldi 8007 
  0487:a0 00b2            sag global178 
  048a:33 28              jmp code_04b4 

        code_048c
  048c:3c                 dup 
  048d:35 07              ldi 7 
  048f:1a                 eq? 
  0490:31 08              bnt code_049a 
  0492:34 8009            ldi 8009 
  0495:a0 00b2            sag global178 
  0498:33 1a              jmp code_04b4 

        code_049a
  049a:3c                 dup 
  049b:35 09              ldi 9 
  049d:1a                 eq? 
  049e:31 08              bnt code_04a8 
  04a0:34 800a            ldi 800a 
  04a3:a0 00b2            sag global178 
  04a6:33 0c              jmp code_04b4 

        code_04a8
  04a8:3c                 dup 
  04a9:35 0a              ldi a 
  04ab:1a                 eq? 
  04ac:31 06              bnt code_04b4 
  04ae:34 8002            ldi 8002 
  04b1:a0 00b2            sag global178 

        code_04b4
  04b4:3a                toss 

        code_04b5
  04b5:8b 05              lsl local5 
  04b7:3c                 dup 
  04b8:35 00              ldi 0 
  04ba:1a                 eq? 
  04bb:31 0d              bnt code_04ca 
  04bd:7a               push2 
  04be:38 00e6          pushi e6 // $e6 prompt
  04c1:39 05            pushi 5 // $5 view
  04c3:40 fb45 04        call proc_000c 4 

  04c7:32 00ae            jmp code_0578 

        code_04ca
  04ca:3c                 dup 
  04cb:35 01              ldi 1 
  04cd:1a                 eq? 
  04ce:31 0d              bnt code_04dd 
  04d0:7a               push2 
  04d1:38 00e6          pushi e6 // $e6 prompt
  04d4:39 06            pushi 6 // $6 loop
  04d6:40 fb80 04        call proc_005a 4 

  04da:32 009b            jmp code_0578 

        code_04dd
  04dd:3c                 dup 
  04de:35 02              ldi 2 
  04e0:1a                 eq? 
  04e1:31 0d              bnt code_04f0 
  04e3:7a               push2 
  04e4:38 00e6          pushi e6 // $e6 prompt
  04e7:39 07            pushi 7 // $7 cel
  04e9:40 fb1f 04        call proc_000c 4 

  04ed:32 0088            jmp code_0578 

        code_04f0
  04f0:3c                 dup 
  04f1:35 03              ldi 3 
  04f3:1a                 eq? 
  04f4:31 0c              bnt code_0502 
  04f6:7a               push2 
  04f7:38 00e6          pushi e6 // $e6 prompt
  04fa:39 08            pushi 8 // $8 underBits
  04fc:40 fb5a 04        call proc_005a 4 

  0500:33 76              jmp code_0578 

        code_0502
  0502:3c                 dup 
  0503:35 04              ldi 4 
  0505:1a                 eq? 
  0506:31 0c              bnt code_0514 
  0508:7a               push2 
  0509:38 00e6          pushi e6 // $e6 prompt
  050c:39 09            pushi 9 // $9 nsTop
  050e:40 fafa 04        call proc_000c 4 

  0512:33 64              jmp code_0578 

        code_0514
  0514:3c                 dup 
  0515:35 05              ldi 5 
  0517:1a                 eq? 
  0518:31 0c              bnt code_0526 
  051a:7a               push2 
  051b:38 00e6          pushi e6 // $e6 prompt
  051e:39 0a            pushi a // $a nsLeft
  0520:40 fb36 04        call proc_005a 4 

  0524:33 52              jmp code_0578 

        code_0526
  0526:3c                 dup 
  0527:35 06              ldi 6 
  0529:1a                 eq? 
  052a:31 0c              bnt code_0538 
  052c:7a               push2 
  052d:38 00e6          pushi e6 // $e6 prompt
  0530:39 0b            pushi b // $b nsBottom
  0532:40 fb24 04        call proc_005a 4 

  0536:33 40              jmp code_0578 

        code_0538
  0538:3c                 dup 
  0539:35 07              ldi 7 
  053b:1a                 eq? 
  053c:31 0c              bnt code_054a 
  053e:7a               push2 
  053f:38 00e6          pushi e6 // $e6 prompt
  0542:39 0c            pushi c // $c nsRight
  0544:40 fac4 04        call proc_000c 4 

  0548:33 2e              jmp code_0578 

        code_054a
  054a:3c                 dup 
  054b:35 08              ldi 8 
  054d:1a                 eq? 
  054e:31 0c              bnt code_055c 
  0550:7a               push2 
  0551:38 00e6          pushi e6 // $e6 prompt
  0554:39 0d            pushi d // $d lsTop
  0556:40 fb00 04        call proc_005a 4 

  055a:33 1c              jmp code_0578 

        code_055c
  055c:3c                 dup 
  055d:35 09              ldi 9 
  055f:1a                 eq? 
  0560:31 0c              bnt code_056e 
  0562:7a               push2 
  0563:38 00e6          pushi e6 // $e6 prompt
  0566:39 0e            pushi e // $e lsLeft
  0568:40 faee 04        call proc_005a 4 

  056c:33 0a              jmp code_0578 

        code_056e
  056e:7a               push2 
  056f:38 00e6          pushi e6 // $e6 prompt
  0572:39 0f            pushi f // $f lsBottom
  0574:40 fa94 04        call proc_000c 4 


        code_0578
  0578:3a                toss 

        code_0579
  0579:35 07              ldi 7 
  057b:65 12             aTop seconds 
  057d:32 00f4            jmp code_0674 

        code_0580
  0580:3c                 dup 
  0581:35 04              ldi 4 
  0583:1a                 eq? 
  0584:31 37              bnt code_05bd 
  0586:76               push0 
  0587:45 0f 00         callb procedure_000f 0 // cls 

  058a:39 7e            pushi 7e // $7e setCycle
  058c:78               push1 
  058d:76               push0 
  058e:39 07            pushi 7 // $7 cel
  0590:78               push1 
  0591:76               push0 
  0592:39 06            pushi 6 // $6 loop
  0594:78               push1 
  0595:39 04            pushi 4 // $4 x
  0597:72 0b10          lofsa $10aa // Lillian
  059a:4a 12             send 12 

  059c:39 07            pushi 7 // $7 cel
  059e:78               push1 
  059f:76               push0 
  05a0:38 00c7          pushi c7 // $c7 forceUpd
  05a3:76               push0 
  05a4:72 0b6b          lofsa $1112 // lHead
  05a7:4a 0a             send a 

  05a9:39 07            pushi 7 // $7 cel
  05ab:78               push1 
  05ac:76               push0 
  05ad:38 00c7          pushi c7 // $c7 forceUpd
  05b0:76               push0 
  05b1:72 0a8e          lofsa $1042 // Ethel
  05b4:4a 0a             send a 

  05b6:35 01              ldi 1 
  05b8:65 12             aTop seconds 
  05ba:32 00b7            jmp code_0674 

        code_05bd
  05bd:3c                 dup 
  05be:35 05              ldi 5 
  05c0:1a                 eq? 
  05c1:31 7c              bnt code_063f 
  05c3:76               push0 
  05c4:45 0f 00         callb procedure_000f 0 // cls 

  05c7:8b 01              lsl local1 
  05c9:35 00              ldi 0 
  05cb:1a                 eq? 
  05cc:31 67              bnt code_0635 
  05ce:35 05              ldi 5 
  05d0:65 12             aTop seconds 
  05d2:8b 05              lsl local5 
  05d4:3c                 dup 
  05d5:35 00              ldi 0 
  05d7:1a                 eq? 
  05d8:31 0c              bnt code_05e6 
  05da:7a               push2 
  05db:38 00e6          pushi e6 // $e6 prompt
  05de:39 10            pushi 10 // $10 lsRight
  05e0:40 fa28 04        call proc_000c 4 

  05e4:33 4c              jmp code_0632 

        code_05e6
  05e6:3c                 dup 
  05e7:35 01              ldi 1 
  05e9:1a                 eq? 
  05ea:31 0c              bnt code_05f8 
  05ec:7a               push2 
  05ed:38 00e6          pushi e6 // $e6 prompt
  05f0:39 11            pushi 11 // $11 signal
  05f2:40 fa64 04        call proc_005a 4 

  05f6:33 3a              jmp code_0632 

        code_05f8
  05f8:3c                 dup 
  05f9:35 05              ldi 5 
  05fb:1a                 eq? 
  05fc:31 0c              bnt code_060a 
  05fe:7a               push2 
  05ff:38 00e6          pushi e6 // $e6 prompt
  0602:39 12            pushi 12 // $12 illegalBits
  0604:40 fa52 04        call proc_005a 4 

  0608:33 28              jmp code_0632 

        code_060a
  060a:3c                 dup 
  060b:35 07              ldi 7 
  060d:1a                 eq? 
  060e:31 0c              bnt code_061c 
  0610:7a               push2 
  0611:38 00e6          pushi e6 // $e6 prompt
  0614:39 13            pushi 13 // $13 brTop
  0616:40 f9f2 04        call proc_000c 4 

  061a:33 16              jmp code_0632 

        code_061c
  061c:3c                 dup 
  061d:35 08              ldi 8 
  061f:1a                 eq? 
  0620:31 0c              bnt code_062e 
  0622:7a               push2 
  0623:38 00e6          pushi e6 // $e6 prompt
  0626:39 14            pushi 14 // $14 brLeft
  0628:40 fa2e 04        call proc_005a 4 

  062c:33 04              jmp code_0632 

        code_062e
  062e:35 01              ldi 1 
  0630:65 10             aTop cycles 

        code_0632
  0632:3a                toss 
  0633:33 04              jmp code_0639 

        code_0635
  0635:35 01              ldi 1 
  0637:65 10             aTop cycles 

        code_0639
  0639:35 00              ldi 0 
  063b:a3 01              sal local1 
  063d:33 35              jmp code_0674 

        code_063f
  063f:3c                 dup 
  0640:35 06              ldi 6 
  0642:1a                 eq? 
  0643:31 2f              bnt code_0674 
  0645:35 00              ldi 0 
  0647:a3 08              sal local8 
  0649:39 7a            pushi 7a // $7a setScript
  064b:78               push1 
  064c:74 0993          lofss $0fe2 // lilActions
  064f:72 0a58          lofsa $10aa // Lillian
  0652:4a 06             send 6 

  0654:39 7a            pushi 7a // $7a setScript
  0656:78               push1 
  0657:74 0958          lofss $0fb2 // ethelActions
  065a:72 09e5          lofsa $1042 // Ethel
  065d:4a 06             send 6 

  065f:39 7a            pushi 7a // $7a setScript
  0661:78               push1 
  0662:76               push0 
  0663:63 08             pToa client 
  0665:4a 06             send 6 

  0667:38 00e2          pushi e2 // $e2 canInput
  066a:78               push1 
  066b:78               push1 
  066c:51 2b            class User 
  066e:4a 06             send 6 

  0670:76               push0 
  0671:45 0f 00         callb procedure_000f 0 // cls 


        code_0674
  0674:3a                toss 
  0675:48                 ret 
    )

)

// 0f78
(instance casTalk 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_0676
  0676:39 3c            pushi 3c // $3c doit
  0678:76               push0 
  0679:57 05 04         super Script 4 

  067c:88 00ac            lsg global172 
  067f:35 62              ldi 62 
  0681:1e                 gt? 
  0682:31 08              bnt code_068c 
  0684:39 7a            pushi 7a // $7a setScript
  0686:78               push1 
  0687:76               push0 
  0688:63 08             pToa client 
  068a:4a 06             send 6 


        code_068c
  068c:48                 ret 
    )

    (method (changeState) // method_068d
  068d:87 01              lap param1 
  068f:65 0a             aTop state 
  0691:36                push 
  0692:3c                 dup 
  0693:35 00              ldi 0 
  0695:1a                 eq? 
  0696:30 00cf            bnt code_0768 
  0699:38 00e2          pushi e2 // $e2 canInput
  069c:78               push1 
  069d:76               push0 
  069e:51 2b            class User 
  06a0:4a 06             send 6 

  06a2:35 05              ldi 5 
  06a4:65 12             aTop seconds 
  06a6:88 00b4            lsg global180 
  06a9:3c                 dup 
  06aa:35 00              ldi 0 
  06ac:1a                 eq? 
  06ad:31 0d              bnt code_06bc 
  06af:7a               push2 
  06b0:38 00e6          pushi e6 // $e6 prompt
  06b3:39 15            pushi 15 // $15 brBottom
  06b5:40 f953 04        call proc_000c 4 

  06b9:32 00a8            jmp code_0764 

        code_06bc
  06bc:3c                 dup 
  06bd:35 01              ldi 1 
  06bf:1a                 eq? 
  06c0:31 0d              bnt code_06cf 
  06c2:7a               push2 
  06c3:38 00e6          pushi e6 // $e6 prompt
  06c6:39 16            pushi 16 // $16 brRight
  06c8:40 f98e 04        call proc_005a 4 

  06cc:32 0095            jmp code_0764 

        code_06cf
  06cf:3c                 dup 
  06d0:35 02              ldi 2 
  06d2:1a                 eq? 
  06d3:31 0d              bnt code_06e2 
  06d5:7a               push2 
  06d6:38 00e6          pushi e6 // $e6 prompt
  06d9:39 17            pushi 17 // $17 name
  06db:40 f92d 04        call proc_000c 4 

  06df:32 0082            jmp code_0764 

        code_06e2
  06e2:3c                 dup 
  06e3:35 03              ldi 3 
  06e5:1a                 eq? 
  06e6:31 0c              bnt code_06f4 
  06e8:7a               push2 
  06e9:38 00e6          pushi e6 // $e6 prompt
  06ec:39 18            pushi 18 // $18 key
  06ee:40 f968 04        call proc_005a 4 

  06f2:33 70              jmp code_0764 

        code_06f4
  06f4:3c                 dup 
  06f5:35 04              ldi 4 
  06f7:1a                 eq? 
  06f8:31 0c              bnt code_0706 
  06fa:7a               push2 
  06fb:38 00e6          pushi e6 // $e6 prompt
  06fe:39 19            pushi 19 // $19 time
  0700:40 f908 04        call proc_000c 4 

  0704:33 5e              jmp code_0764 

        code_0706
  0706:3c                 dup 
  0707:35 05              ldi 5 
  0709:1a                 eq? 
  070a:31 0c              bnt code_0718 
  070c:7a               push2 
  070d:38 00e6          pushi e6 // $e6 prompt
  0710:39 1a            pushi 1a // $1a text
  0712:40 f8f6 04        call proc_000c 4 

  0716:33 4c              jmp code_0764 

        code_0718
  0718:3c                 dup 
  0719:35 06              ldi 6 
  071b:1a                 eq? 
  071c:31 0c              bnt code_072a 
  071e:7a               push2 
  071f:38 00e6          pushi e6 // $e6 prompt
  0722:39 1b            pushi 1b // $1b elements
  0724:40 f932 04        call proc_005a 4 

  0728:33 3a              jmp code_0764 

        code_072a
  072a:3c                 dup 
  072b:35 07              ldi 7 
  072d:1a                 eq? 
  072e:31 0c              bnt code_073c 
  0730:7a               push2 
  0731:38 00e6          pushi e6 // $e6 prompt
  0734:39 1c            pushi 1c // $1c color
  0736:40 f8d2 04        call proc_000c 4 

  073a:33 28              jmp code_0764 

        code_073c
  073c:3c                 dup 
  073d:35 08              ldi 8 
  073f:1a                 eq? 
  0740:31 0c              bnt code_074e 
  0742:7a               push2 
  0743:38 00e6          pushi e6 // $e6 prompt
  0746:39 1d            pushi 1d // $1d back
  0748:40 f8c0 04        call proc_000c 4 

  074c:33 16              jmp code_0764 

        code_074e
  074e:3c                 dup 
  074f:35 09              ldi 9 
  0751:1a                 eq? 
  0752:31 0c              bnt code_0760 
  0754:7a               push2 
  0755:38 00e6          pushi e6 // $e6 prompt
  0758:39 1e            pushi 1e // $1e mode
  075a:40 f8ae 04        call proc_000c 4 

  075e:33 04              jmp code_0764 

        code_0760
  0760:35 01              ldi 1 
  0762:65 12             aTop seconds 

        code_0764
  0764:3a                toss 
  0765:32 0195            jmp code_08fd 

        code_0768
  0768:3c                 dup 
  0769:35 01              ldi 1 
  076b:1a                 eq? 
  076c:31 3b              bnt code_07a9 
  076e:76               push0 
  076f:45 0f 00         callb procedure_000f 0 // cls 

  0772:39 06            pushi 6 // $6 loop
  0774:78               push1 
  0775:39 04            pushi 4 // $4 x
  0777:38 00c6          pushi c6 // $c6 stopUpd
  077a:76               push0 
  077b:72 092c          lofsa $10aa // Lillian
  077e:4a 0a             send a 

  0780:39 07            pushi 7 // $7 cel
  0782:78               push1 
  0783:76               push0 
  0784:38 00c7          pushi c7 // $c7 forceUpd
  0787:76               push0 
  0788:38 00c6          pushi c6 // $c6 stopUpd
  078b:76               push0 
  078c:72 0983          lofsa $1112 // lHead
  078f:4a 0e             send e 

  0791:39 07            pushi 7 // $7 cel
  0793:78               push1 
  0794:76               push0 
  0795:38 00c7          pushi c7 // $c7 forceUpd
  0798:76               push0 
  0799:38 00c6          pushi c6 // $c6 stopUpd
  079c:76               push0 
  079d:72 08a2          lofsa $1042 // Ethel
  07a0:4a 0e             send e 

  07a2:35 01              ldi 1 
  07a4:65 12             aTop seconds 
  07a6:32 0154            jmp code_08fd 

        code_07a9
  07a9:3c                 dup 
  07aa:35 02              ldi 2 
  07ac:1a                 eq? 
  07ad:30 00ca            bnt code_087a 
  07b0:76               push0 
  07b1:45 0f 00         callb procedure_000f 0 // cls 

  07b4:35 05              ldi 5 
  07b6:65 12             aTop seconds 
  07b8:88 00b4            lsg global180 
  07bb:3c                 dup 
  07bc:35 00              ldi 0 
  07be:1a                 eq? 
  07bf:31 0d              bnt code_07ce 
  07c1:7a               push2 
  07c2:38 00e6          pushi e6 // $e6 prompt
  07c5:39 1f            pushi 1f // $1f style
  07c7:40 f88f 04        call proc_005a 4 

  07cb:32 00a8            jmp code_0876 

        code_07ce
  07ce:3c                 dup 
  07cf:35 01              ldi 1 
  07d1:1a                 eq? 
  07d2:31 0d              bnt code_07e1 
  07d4:7a               push2 
  07d5:38 00e6          pushi e6 // $e6 prompt
  07d8:39 20            pushi 20 // $20 state
  07da:40 f82e 04        call proc_000c 4 

  07de:32 0095            jmp code_0876 

        code_07e1
  07e1:3c                 dup 
  07e2:35 02              ldi 2 
  07e4:1a                 eq? 
  07e5:31 0d              bnt code_07f4 
  07e7:7a               push2 
  07e8:38 00e6          pushi e6 // $e6 prompt
  07eb:39 21            pushi 21 // $21 font
  07ed:40 f869 04        call proc_005a 4 

  07f1:32 0082            jmp code_0876 

        code_07f4
  07f4:3c                 dup 
  07f5:35 03              ldi 3 
  07f7:1a                 eq? 
  07f8:31 0c              bnt code_0806 
  07fa:7a               push2 
  07fb:38 00e6          pushi e6 // $e6 prompt
  07fe:39 22            pushi 22 // $22 type
  0800:40 f808 04        call proc_000c 4 

  0804:33 70              jmp code_0876 

        code_0806
  0806:3c                 dup 
  0807:35 04              ldi 4 
  0809:1a                 eq? 
  080a:31 0c              bnt code_0818 
  080c:7a               push2 
  080d:38 00e6          pushi e6 // $e6 prompt
  0810:39 23            pushi 23 // $23 window
  0812:40 f844 04        call proc_005a 4 

  0816:33 5e              jmp code_0876 

        code_0818
  0818:3c                 dup 
  0819:35 05              ldi 5 
  081b:1a                 eq? 
  081c:31 0c              bnt code_082a 
  081e:7a               push2 
  081f:38 00e6          pushi e6 // $e6 prompt
  0822:39 24            pushi 24 // $24 cursor
  0824:40 f832 04        call proc_005a 4 

  0828:33 4c              jmp code_0876 

        code_082a
  082a:3c                 dup 
  082b:35 06              ldi 6 
  082d:1a                 eq? 
  082e:31 0c              bnt code_083c 
  0830:7a               push2 
  0831:38 00e6          pushi e6 // $e6 prompt
  0834:39 25            pushi 25 // $25 max
  0836:40 f7d2 04        call proc_000c 4 

  083a:33 3a              jmp code_0876 

        code_083c
  083c:3c                 dup 
  083d:35 07              ldi 7 
  083f:1a                 eq? 
  0840:31 0c              bnt code_084e 
  0842:7a               push2 
  0843:38 00e6          pushi e6 // $e6 prompt
  0846:39 26            pushi 26 // $26 mark
  0848:40 f80e 04        call proc_005a 4 

  084c:33 28              jmp code_0876 

        code_084e
  084e:3c                 dup 
  084f:35 08              ldi 8 
  0851:1a                 eq? 
  0852:31 0c              bnt code_0860 
  0854:7a               push2 
  0855:38 00e6          pushi e6 // $e6 prompt
  0858:39 27            pushi 27 // $27 who
  085a:40 f7fc 04        call proc_005a 4 

  085e:33 16              jmp code_0876 

        code_0860
  0860:3c                 dup 
  0861:35 09              ldi 9 
  0863:1a                 eq? 
  0864:31 0c              bnt code_0872 
  0866:7a               push2 
  0867:38 00e6          pushi e6 // $e6 prompt
  086a:39 28            pushi 28 // $28 message
  086c:40 f7ea 04        call proc_005a 4 

  0870:33 04              jmp code_0876 

        code_0872
  0872:35 01              ldi 1 
  0874:65 12             aTop seconds 

        code_0876
  0876:3a                toss 
  0877:32 0083            jmp code_08fd 

        code_087a
  087a:3c                 dup 
  087b:35 03              ldi 3 
  087d:1a                 eq? 
  087e:31 35              bnt code_08b5 
  0880:76               push0 
  0881:45 0f 00         callb procedure_000f 0 // cls 

  0884:39 07            pushi 7 // $7 cel
  0886:78               push1 
  0887:76               push0 
  0888:38 00c7          pushi c7 // $c7 forceUpd
  088b:76               push0 
  088c:38 00c6          pushi c6 // $c6 stopUpd
  088f:76               push0 
  0890:72 087f          lofsa $1112 // lHead
  0893:4a 0e             send e 

  0895:35 05              ldi 5 
  0897:65 12             aTop seconds 
  0899:88 00b4            lsg global180 
  089c:3c                 dup 
  089d:35 08              ldi 8 
  089f:1a                 eq? 
  08a0:31 0c              bnt code_08ae 
  08a2:7a               push2 
  08a3:38 00e6          pushi e6 // $e6 prompt
  08a6:39 29            pushi 29 // $29 edit
  08a8:40 f760 04        call proc_000c 4 

  08ac:33 04              jmp code_08b2 

        code_08ae
  08ae:35 01              ldi 1 
  08b0:65 10             aTop cycles 

        code_08b2
  08b2:3a                toss 
  08b3:33 48              jmp code_08fd 

        code_08b5
  08b5:3c                 dup 
  08b6:35 04              ldi 4 
  08b8:1a                 eq? 
  08b9:31 42              bnt code_08fd 
  08bb:35 00              ldi 0 
  08bd:a3 08              sal local8 
  08bf:88 00b4            lsg global180 
  08c2:35 09              ldi 9 
  08c4:22                 lt? 
  08c5:31 03              bnt code_08ca 
  08c7:c0 00b4            +ag global180 

        code_08ca
  08ca:76               push0 
  08cb:45 0f 00         callb procedure_000f 0 // cls 

  08ce:38 00e2          pushi e2 // $e2 canInput
  08d1:78               push1 
  08d2:78               push1 
  08d3:51 2b            class User 
  08d5:4a 06             send 6 

  08d7:39 7a            pushi 7a // $7a setScript
  08d9:78               push1 
  08da:74 0705          lofss $0fe2 // lilActions
  08dd:72 07ca          lofsa $10aa // Lillian
  08e0:4a 06             send 6 

  08e2:39 7a            pushi 7a // $7a setScript
  08e4:78               push1 
  08e5:74 06ca          lofss $0fb2 // ethelActions
  08e8:72 0757          lofsa $1042 // Ethel
  08eb:4a 06             send 6 

  08ed:35 00              ldi 0 
  08ef:a3 07              sal local7 
  08f1:35 00              ldi 0 
  08f3:a3 06              sal local6 
  08f5:39 7a            pushi 7a // $7a setScript
  08f7:78               push1 
  08f8:76               push0 
  08f9:63 08             pToa client 
  08fb:4a 06             send 6 


        code_08fd
  08fd:3a                toss 
  08fe:48                 ret 
    )

)

// 0fac
(instance ethelActions 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_08ff
  08ff:87 01              lap param1 
  0901:65 0a             aTop state 
  0903:36                push 
  0904:3c                 dup 
  0905:35 00              ldi 0 
  0907:1a                 eq? 
  0908:31 1c              bnt code_0926 
  090a:39 07            pushi 7 // $7 cel
  090c:78               push1 
  090d:76               push0 
  090e:39 06            pushi 6 // $6 loop
  0910:78               push1 
  0911:78               push1 
  0912:38 00a4          pushi a4 // $a4 cycleSpeed
  0915:78               push1 
  0916:78               push1 
  0917:39 7e            pushi 7e // $7e setCycle
  0919:7a               push2 
  091a:51 1a            class End 
  091c:36                push 
  091d:7c            pushSelf 
  091e:72 0721          lofsa $1042 // Ethel
  0921:4a 1a             send 1a 

  0923:32 008e            jmp code_09b4 

        code_0926
  0926:3c                 dup 
  0927:35 01              ldi 1 
  0929:1a                 eq? 
  092a:31 19              bnt code_0945 
  092c:39 07            pushi 7 // $7 cel
  092e:78               push1 
  092f:76               push0 
  0930:39 06            pushi 6 // $6 loop
  0932:78               push1 
  0933:7a               push2 
  0934:39 7e            pushi 7e // $7e setCycle
  0936:78               push1 
  0937:51 1a            class End 
  0939:36                push 
  093a:72 0705          lofsa $1042 // Ethel
  093d:4a 12             send 12 

  093f:35 03              ldi 3 
  0941:65 12             aTop seconds 
  0943:33 6f              jmp code_09b4 

        code_0945
  0945:3c                 dup 
  0946:35 02              ldi 2 
  0948:1a                 eq? 
  0949:31 2c              bnt code_0977 
  094b:39 06            pushi 6 // $6 loop
  094d:78               push1 
  094e:7a               push2 
  094f:39 7e            pushi 7e // $7e setCycle
  0951:78               push1 
  0952:51 1b            class Beg 
  0954:36                push 
  0955:72 06ea          lofsa $1042 // Ethel
  0958:4a 0c             send c 

  095a:7a               push2 
  095b:78               push1 
  095c:39 64            pushi 64 // $64 allTrue
  095e:43 40 04         callk Random 4 

  0961:36                push 
  0962:35 28              ldi 28 
  0964:22                 lt? 
  0965:31 04              bnt code_096b 
  0967:35 00              ldi 0 
  0969:65 0a             aTop state 

        code_096b
  096b:7a               push2 
  096c:39 06            pushi 6 // $6 loop
  096e:39 0c            pushi c // $c nsRight
  0970:43 40 04         callk Random 4 

  0973:65 12             aTop seconds 
  0975:33 3d              jmp code_09b4 

        code_0977
  0977:3c                 dup 
  0978:35 03              ldi 3 
  097a:1a                 eq? 
  097b:31 37              bnt code_09b4 
  097d:39 06            pushi 6 // $6 loop
  097f:78               push1 
  0980:78               push1 
  0981:39 07            pushi 7 // $7 cel
  0983:78               push1 
  0984:39 06            pushi 6 // $6 loop
  0986:39 7e            pushi 7e // $7e setCycle
  0988:78               push1 
  0989:51 1b            class Beg 
  098b:36                push 
  098c:72 06b3          lofsa $1042 // Ethel
  098f:4a 12             send 12 

  0991:8b 08              lsl local8 
  0993:35 46              ldi 46 
  0995:1a                 eq? 
  0996:31 0e              bnt code_09a6 
  0998:39 7a            pushi 7a // $7a setScript
  099a:78               push1 
  099b:76               push0 
  099c:63 08             pToa client 
  099e:4a 06             send 6 

  09a0:35 01              ldi 1 
  09a2:a3 06              sal local6 
  09a4:33 0e              jmp code_09b4 

        code_09a6
  09a6:35 ff              ldi ff 
  09a8:65 0a             aTop state 
  09aa:7a               push2 
  09ab:39 06            pushi 6 // $6 loop
  09ad:39 0c            pushi c // $c nsRight
  09af:43 40 04         callk Random 4 

  09b2:65 12             aTop seconds 

        code_09b4
  09b4:3a                toss 
  09b5:48                 ret 
    )

)

// 0fdc
(instance lilActions 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_09b6
  09b6:87 01              lap param1 
  09b8:65 0a             aTop state 
  09ba:36                push 
  09bb:3c                 dup 
  09bc:35 00              ldi 0 
  09be:1a                 eq? 
  09bf:31 33              bnt code_09f4 
  09c1:39 06            pushi 6 // $6 loop
  09c3:78               push1 
  09c4:39 04            pushi 4 // $4 x
  09c6:39 07            pushi 7 // $7 cel
  09c8:78               push1 
  09c9:76               push0 
  09ca:38 00a4          pushi a4 // $a4 cycleSpeed
  09cd:78               push1 
  09ce:7a               push2 
  09cf:39 7e            pushi 7e // $7e setCycle
  09d1:78               push1 
  09d2:51 1a            class End 
  09d4:36                push 
  09d5:72 06d2          lofsa $10aa // Lillian
  09d8:4a 18             send 18 

  09da:38 00ca          pushi ca // $ca show
  09dd:76               push0 
  09de:38 00c6          pushi c6 // $c6 stopUpd
  09e1:76               push0 
  09e2:72 072d          lofsa $1112 // lHead
  09e5:4a 08             send 8 

  09e7:7a               push2 
  09e8:39 06            pushi 6 // $6 loop
  09ea:39 0c            pushi c // $c nsRight
  09ec:43 40 04         callk Random 4 

  09ef:65 12             aTop seconds 
  09f1:32 00fc            jmp code_0af0 

        code_09f4
  09f4:3c                 dup 
  09f5:35 01              ldi 1 
  09f7:1a                 eq? 
  09f8:31 3b              bnt code_0a35 
  09fa:38 00ca          pushi ca // $ca show
  09fd:76               push0 
  09fe:38 00c6          pushi c6 // $c6 stopUpd
  0a01:76               push0 
  0a02:72 070d          lofsa $1112 // lHead
  0a05:4a 08             send 8 

  0a07:39 06            pushi 6 // $6 loop
  0a09:78               push1 
  0a0a:39 06            pushi 6 // $6 loop
  0a0c:39 7e            pushi 7e // $7e setCycle
  0a0e:78               push1 
  0a0f:51 16            class Fwd 
  0a11:36                push 
  0a12:72 0695          lofsa $10aa // Lillian
  0a15:4a 0c             send c 

  0a17:7a               push2 
  0a18:78               push1 
  0a19:39 64            pushi 64 // $64 allTrue
  0a1b:43 40 04         callk Random 4 

  0a1e:36                push 
  0a1f:35 32              ldi 32 
  0a21:22                 lt? 
  0a22:31 04              bnt code_0a28 
  0a24:35 02              ldi 2 
  0a26:65 0a             aTop state 

        code_0a28
  0a28:7a               push2 
  0a29:39 05            pushi 5 // $5 view
  0a2b:39 08            pushi 8 // $8 underBits
  0a2d:43 40 04         callk Random 4 

  0a30:65 12             aTop seconds 
  0a32:32 00bb            jmp code_0af0 

        code_0a35
  0a35:3c                 dup 
  0a36:35 02              ldi 2 
  0a38:1a                 eq? 
  0a39:31 42              bnt code_0a7d 
  0a3b:39 06            pushi 6 // $6 loop
  0a3d:78               push1 
  0a3e:39 04            pushi 4 // $4 x
  0a40:39 07            pushi 7 // $7 cel
  0a42:78               push1 
  0a43:78               push1 
  0a44:74 0663          lofss $10aa // Lillian
  0a47:43 0e 02         callk NumCels 2 

  0a4a:36                push 
  0a4b:35 01              ldi 1 
  0a4d:04                 sub 
  0a4e:36                push 
  0a4f:39 7e            pushi 7e // $7e setCycle
  0a51:78               push1 
  0a52:51 1b            class Beg 
  0a54:36                push 
  0a55:72 0652          lofsa $10aa // Lillian
  0a58:4a 12             send 12 

  0a5a:8b 08              lsl local8 
  0a5c:35 46              ldi 46 
  0a5e:1a                 eq? 
  0a5f:31 0c              bnt code_0a6d 
  0a61:35 01              ldi 1 
  0a63:a3 07              sal local7 
  0a65:39 7a            pushi 7a // $7a setScript
  0a67:78               push1 
  0a68:76               push0 
  0a69:63 08             pToa client 
  0a6b:4a 06             send 6 


        code_0a6d
  0a6d:35 ff              ldi ff 
  0a6f:65 0a             aTop state 
  0a71:7a               push2 
  0a72:39 05            pushi 5 // $5 view
  0a74:39 08            pushi 8 // $8 underBits
  0a76:43 40 04         callk Random 4 

  0a79:65 12             aTop seconds 
  0a7b:33 73              jmp code_0af0 

        code_0a7d
  0a7d:3c                 dup 
  0a7e:35 03              ldi 3 
  0a80:1a                 eq? 
  0a81:31 20              bnt code_0aa3 
  0a83:38 0089          pushi 89 // $89 hide
  0a86:76               push0 
  0a87:72 0688          lofsa $1112 // lHead
  0a8a:4a 04             send 4 

  0a8c:39 06            pushi 6 // $6 loop
  0a8e:78               push1 
  0a8f:7a               push2 
  0a90:38 00a4          pushi a4 // $a4 cycleSpeed
  0a93:78               push1 
  0a94:78               push1 
  0a95:39 7e            pushi 7e // $7e setCycle
  0a97:7a               push2 
  0a98:51 1a            class End 
  0a9a:36                push 
  0a9b:7c            pushSelf 
  0a9c:72 060b          lofsa $10aa // Lillian
  0a9f:4a 14             send 14 

  0aa1:33 4d              jmp code_0af0 

        code_0aa3
  0aa3:3c                 dup 
  0aa4:35 04              ldi 4 
  0aa6:1a                 eq? 
  0aa7:31 1b              bnt code_0ac4 
  0aa9:39 06            pushi 6 // $6 loop
  0aab:78               push1 
  0aac:39 03            pushi 3 // $3 y
  0aae:38 00a4          pushi a4 // $a4 cycleSpeed
  0ab1:78               push1 
  0ab2:78               push1 
  0ab3:39 7e            pushi 7e // $7e setCycle
  0ab5:78               push1 
  0ab6:51 16            class Fwd 
  0ab8:36                push 
  0ab9:72 05ee          lofsa $10aa // Lillian
  0abc:4a 12             send 12 

  0abe:35 02              ldi 2 
  0ac0:65 12             aTop seconds 
  0ac2:33 2c              jmp code_0af0 

        code_0ac4
  0ac4:3c                 dup 
  0ac5:35 05              ldi 5 
  0ac7:1a                 eq? 
  0ac8:31 26              bnt code_0af0 
  0aca:39 07            pushi 7 // $7 cel
  0acc:78               push1 
  0acd:7a               push2 
  0ace:39 06            pushi 6 // $6 loop
  0ad0:78               push1 
  0ad1:7a               push2 
  0ad2:38 00a4          pushi a4 // $a4 cycleSpeed
  0ad5:78               push1 
  0ad6:78               push1 
  0ad7:39 7e            pushi 7e // $7e setCycle
  0ad9:78               push1 
  0ada:51 1b            class Beg 
  0adc:36                push 
  0add:72 05ca          lofsa $10aa // Lillian
  0ae0:4a 18             send 18 

  0ae2:35 00              ldi 0 
  0ae4:65 0a             aTop state 
  0ae6:7a               push2 
  0ae7:39 05            pushi 5 // $5 view
  0ae9:39 08            pushi 8 // $8 underBits
  0aeb:43 40 04         callk Random 4 

  0aee:65 12             aTop seconds 

        code_0af0
  0af0:3a                toss 
  0af1:48                 ret 
    )

)

// 100c
(instance comeBack 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_0af2
  0af2:87 01              lap param1 
  0af4:65 0a             aTop state 
  0af6:36                push 
  0af7:3c                 dup 
  0af8:35 00              ldi 0 
  0afa:1a                 eq? 
  0afb:31 4c              bnt code_0b49 
  0afd:35 02              ldi 2 
  0aff:a0 00cb            sag global203 
  0b02:39 05            pushi 5 // $5 view
  0b04:78               push1 
  0b05:38 01f4          pushi 1f4 // $1f4 sel_500
  0b08:38 00c5          pushi c5 // $c5 posn
  0b0b:7a               push2 
  0b0c:39 e3            pushi e3 // $e3 controls
  0b0e:38 0094          pushi 94 // $94 retreat
  0b11:39 7e            pushi 7e // $7e setCycle
  0b13:78               push1 
  0b14:51 17            class Walk 
  0b16:36                push 
  0b17:39 42            pushi 42 // $42 setPri
  0b19:78               push1 
  0b1a:39 0a            pushi a // $a nsLeft
  0b1c:38 00d4          pushi d4 // $d4 setAvoider
  0b1f:78               push1 
  0b20:38 00be          pushi be // $be offScreenOK
  0b23:78               push1 
  0b24:78               push1 
  0b25:39 56            pushi 56 // $56 new
  0b27:76               push0 
  0b28:51 21            class Avoid 
  0b2a:4a 04             send 4 

  0b2c:4a 06             send 6 

  0b2e:36                push 
  0b2f:38 00d3          pushi d3 // $d3 setMotion
  0b32:39 04            pushi 4 // $4 x
  0b34:51 1d            class MoveTo 
  0b36:36                push 
  0b37:39 37            pushi 37 // $37 yStep
  0b39:38 0094          pushi 94 // $94 retreat
  0b3c:7c            pushSelf 
  0b3d:38 00ca          pushi ca // $ca show
  0b40:76               push0 
  0b41:72 0566          lofsa $10aa // Lillian
  0b44:4a 30             send 30 

  0b46:32 009b            jmp code_0be4 

        code_0b49
  0b49:3c                 dup 
  0b4a:35 01              ldi 1 
  0b4c:1a                 eq? 
  0b4d:31 1a              bnt code_0b69 
  0b4f:39 42            pushi 42 // $42 setPri
  0b51:78               push1 
  0b52:39 ff            pushi ff // $ff checkAni
  0b54:38 00d3          pushi d3 // $d3 setMotion
  0b57:39 04            pushi 4 // $4 x
  0b59:51 1d            class MoveTo 
  0b5b:36                push 
  0b5c:39 61            pushi 61 // $61 add
  0b5e:38 0097          pushi 97 // $97 open
  0b61:7c            pushSelf 
  0b62:72 0545          lofsa $10aa // Lillian
  0b65:4a 12             send 12 

  0b67:33 7b              jmp code_0be4 

        code_0b69
  0b69:3c                 dup 
  0b6a:35 02              ldi 2 
  0b6c:1a                 eq? 
  0b6d:31 15              bnt code_0b84 
  0b6f:38 00d3          pushi d3 // $d3 setMotion
  0b72:39 04            pushi 4 // $4 x
  0b74:51 1d            class MoveTo 
  0b76:36                push 
  0b77:39 79            pushi 79 // $79 cue
  0b79:38 0099          pushi 99 // $99 top
  0b7c:7c            pushSelf 
  0b7d:72 052a          lofsa $10aa // Lillian
  0b80:4a 0c             send c 

  0b82:33 60              jmp code_0be4 

        code_0b84
  0b84:3c                 dup 
  0b85:35 03              ldi 3 
  0b87:1a                 eq? 
  0b88:31 5a              bnt code_0be4 
  0b8a:88 00d0            lsg global208 
  0b8d:35 20              ldi 20 
  0b8f:14                  or 
  0b90:a0 00d0            sag global208 
  0b93:39 05            pushi 5 // $5 view
  0b95:78               push1 
  0b96:38 01f5          pushi 1f5 // $1f5 sel_501
  0b99:39 06            pushi 6 // $6 loop
  0b9b:78               push1 
  0b9c:76               push0 
  0b9d:39 07            pushi 7 // $7 cel
  0b9f:78               push1 
  0ba0:39 04            pushi 4 // $4 x
  0ba2:39 12            pushi 12 // $12 illegalBits
  0ba4:78               push1 
  0ba5:76               push0 
  0ba6:38 00c5          pushi c5 // $c5 posn
  0ba9:7a               push2 
  0baa:39 78            pushi 78 // $78 changeState
  0bac:38 0094          pushi 94 // $94 retreat
  0baf:38 00a4          pushi a4 // $a4 cycleSpeed
  0bb2:78               push1 
  0bb3:78               push1 
  0bb4:38 00d4          pushi d4 // $d4 setAvoider
  0bb7:78               push1 
  0bb8:76               push0 
  0bb9:38 00c9          pushi c9 // $c9 ignoreActors
  0bbc:76               push0 
  0bbd:38 00c6          pushi c6 // $c6 stopUpd
  0bc0:76               push0 
  0bc1:72 04e6          lofsa $10aa // Lillian
  0bc4:4a 34             send 34 

  0bc6:78               push1 
  0bc7:38 03d9          pushi 3d9 // $3d9 sel_985
  0bca:43 03 02         callk DisposeScript 2 

  0bcd:39 42            pushi 42 // $42 setPri
  0bcf:78               push1 
  0bd0:39 0b            pushi b // $b nsBottom
  0bd2:39 57            pushi 57 // $57 init
  0bd4:76               push0 
  0bd5:72 053a          lofsa $1112 // lHead
  0bd8:4a 0a             send a 

  0bda:39 7a            pushi 7a // $7a setScript
  0bdc:78               push1 
  0bdd:74 036a          lofss $0f4a // talkActions
  0be0:63 08             pToa client 
  0be2:4a 06             send 6 


        code_0be4
  0be4:3a                toss 
  0be5:48                 ret 
    )

)

// 103c
(instance Ethel of Act
    (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
    )
    (method (handleEvent) // method_0be6
  0be6:38 00ae          pushi ae // $ae distanceTo
  0be9:78               push1 
  0bea:74 0455          lofss $1042 // Ethel
  0bed:81 00              lag gEgo 
  0bef:4a 06             send 6 

  0bf1:36                push 
  0bf2:38 00ae          pushi ae // $ae distanceTo
  0bf5:78               push1 
  0bf6:74 04b1          lofss $10aa // Lillian
  0bf9:81 00              lag gEgo 
  0bfb:4a 06             send 6 

  0bfd:22                 lt? 
  0bfe:31 07              bnt code_0c07 
  0c00:35 08              ldi 8 
  0c02:a0 00d6            sag global214 
  0c05:33 05              jmp code_0c0c 

        code_0c07
  0c07:35 20              ldi 20 
  0c09:a0 00d6            sag global214 

        code_0c0c
  0c0c:35 04              ldi 4 
  0c0e:a0 00d5            sag global213 
  0c11:39 03            pushi 3 // $3 y
  0c13:7c            pushSelf 
  0c14:8f 01              lsp param1 
  0c16:39 03            pushi 3 // $3 y
  0c18:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  0c1e:31 1b              bnt code_0c3b 
  0c20:88 00cf            lsg global207 
  0c23:35 08              ldi 8 
  0c25:12                 and 
  0c26:18                 not 
  0c27:31 12              bnt code_0c3b 
  0c29:39 4c            pushi 4c // $4c claimed
  0c2b:78               push1 
  0c2c:78               push1 
  0c2d:87 01              lap param1 
  0c2f:4a 06             send 6 

  0c31:78               push1 
  0c32:74 0558          lofss $118d // ethel
  0c35:45 19 02         callb procedure_0019 2 // DoLook 

  0c38:32 0155            jmp code_0d90 

        code_0c3b
  0c3b:88 00cf            lsg global207 
  0c3e:35 08              ldi 8 
  0c40:12                 and 
  0c41:31 2e              bnt code_0c71 
  0c43:39 03            pushi 3 // $3 y
  0c45:7c            pushSelf 
  0c46:8f 01              lsp param1 
  0c48:39 03            pushi 3 // $3 y
  0c4a:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  0c50:2f 09               bt code_0c5b 
  0c52:78               push1 
  0c53:74 027f          lofss $0ed5 // look/ethel
  0c56:43 25 02         callk Said 2 

  0c59:31 16              bnt code_0c71 

        code_0c5b
  0c5b:39 4c            pushi 4c // $4c claimed
  0c5d:78               push1 
  0c5e:78               push1 
  0c5f:87 01              lap param1 
  0c61:4a 06             send 6 

  0c63:7a               push2 
  0c64:38 00e6          pushi e6 // $e6 prompt
  0c67:78               push1 
  0c68:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0c6e:32 011f            jmp code_0d90 

        code_0c71
  0c71:78               push1 
  0c72:74 027c          lofss $0ef1 // bonjour/ethel
  0c75:43 25 02         callk Said 2 

  0c78:31 60              bnt code_0cda 
  0c7a:8b 00              lsl local0 
  0c7c:3c                 dup 
  0c7d:35 00              ldi 0 
  0c7f:1a                 eq? 
  0c80:31 0d              bnt code_0c8f 
  0c82:39 03            pushi 3 // $3 y
  0c84:78               push1 
  0c85:38 00e6          pushi e6 // $e6 prompt
  0c88:39 2a            pushi 2a // $2a play
  0c8a:45 01 06         callb procedure_0001 6 // Say 

  0c8d:33 45              jmp code_0cd4 

        code_0c8f
  0c8f:3c                 dup 
  0c90:35 01              ldi 1 
  0c92:1a                 eq? 
  0c93:31 0d              bnt code_0ca2 
  0c95:39 03            pushi 3 // $3 y
  0c97:78               push1 
  0c98:38 00e6          pushi e6 // $e6 prompt
  0c9b:39 2b            pushi 2b // $2b number
  0c9d:45 01 06         callb procedure_0001 6 // Say 

  0ca0:33 32              jmp code_0cd4 

        code_0ca2
  0ca2:3c                 dup 
  0ca3:35 02              ldi 2 
  0ca5:1a                 eq? 
  0ca6:31 0d              bnt code_0cb5 
  0ca8:39 03            pushi 3 // $3 y
  0caa:78               push1 
  0cab:38 00e6          pushi e6 // $e6 prompt
  0cae:39 2c            pushi 2c // $2c handle
  0cb0:45 01 06         callb procedure_0001 6 // Say 

  0cb3:33 1f              jmp code_0cd4 

        code_0cb5
  0cb5:3c                 dup 
  0cb6:35 03              ldi 3 
  0cb8:1a                 eq? 
  0cb9:31 0d              bnt code_0cc8 
  0cbb:39 03            pushi 3 // $3 y
  0cbd:78               push1 
  0cbe:38 00e6          pushi e6 // $e6 prompt
  0cc1:39 2d            pushi 2d // $2d client
  0cc3:45 01 06         callb procedure_0001 6 // Say 

  0cc6:33 0c              jmp code_0cd4 

        code_0cc8
  0cc8:7a               push2 
  0cc9:38 00e6          pushi e6 // $e6 prompt
  0ccc:39 2e            pushi 2e // $2e dx
  0cce:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0cd4
  0cd4:3a                toss 
  0cd5:c3 00              +al local0 
  0cd7:32 00b6            jmp code_0d90 

        code_0cda
  0cda:78               push1 
  0cdb:74 01c5          lofss $0ea3 // ask[/ethel]/lil<about
  0cde:43 25 02         callk Said 2 

  0ce1:31 1c              bnt code_0cff 
  0ce3:35 01              ldi 1 
  0ce5:a0 00d4            sag global212 
  0ce8:87 01              lap param1 
  0cea:a0 00d1            sag global209 
  0ced:39 03            pushi 3 // $3 y
  0cef:39 0e            pushi e // $e lsLeft
  0cf1:38 00e6          pushi e6 // $e6 prompt
  0cf4:39 2f            pushi 2f // $2f dy
  0cf6:46 00f3 0001 06  calle f3 procedure_0001 6 // proc243_1 

  0cfc:32 0091            jmp code_0d90 

        code_0cff
  0cff:78               push1 
  0d00:74 01c0          lofss $0ec3 // ecouter/ethel,lil
  0d03:43 25 02         callk Said 2 

  0d06:31 0e              bnt code_0d16 
  0d08:7a               push2 
  0d09:38 00e6          pushi e6 // $e6 prompt
  0d0c:39 30            pushi 30 // $30 b-moveCnt
  0d0e:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0d14:33 7a              jmp code_0d90 

        code_0d16
  0d16:78               push1 
  0d17:74 01b2          lofss $0ecc // look/boire,glass
  0d1a:43 25 02         callk Said 2 

  0d1d:31 0e              bnt code_0d2d 
  0d1f:7a               push2 
  0d20:38 00e6          pushi e6 // $e6 prompt
  0d23:39 31            pushi 31 // $31 b-i1
  0d25:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0d2b:33 63              jmp code_0d90 

        code_0d2d
  0d2d:78               push1 
  0d2e:74 01aa          lofss $0edb // look/deliver
  0d31:43 25 02         callk Said 2 

  0d34:31 0e              bnt code_0d44 
  0d36:7a               push2 
  0d37:38 00e6          pushi e6 // $e6 prompt
  0d3a:39 32            pushi 32 // $32 b-i2
  0d3c:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0d42:33 4c              jmp code_0d90 

        code_0d44
  0d44:78               push1 
  0d45:74 0199          lofss $0ee1 // look/handkerchief
  0d48:43 25 02         callk Said 2 

  0d4b:31 0e              bnt code_0d5b 
  0d4d:7a               push2 
  0d4e:38 00e6          pushi e6 // $e6 prompt
  0d51:39 33            pushi 33 // $33 b-di
  0d53:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0d59:33 35              jmp code_0d90 

        code_0d5b
  0d5b:78               push1 
  0d5c:74 0160          lofss $0ebf // get>
  0d5f:43 25 02         callk Said 2 

  0d62:31 2c              bnt code_0d90 
  0d64:78               push1 
  0d65:74 0126          lofss $0e8e // /boire,glass
  0d68:43 25 02         callk Said 2 

  0d6b:31 0e              bnt code_0d7b 
  0d6d:7a               push2 
  0d6e:38 00e6          pushi e6 // $e6 prompt
  0d71:39 34            pushi 34 // $34 b-xAxis
  0d73:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0d79:33 15              jmp code_0d90 

        code_0d7b
  0d7b:78               push1 
  0d7c:74 0116          lofss $0e95 // /handkerchief
  0d7f:43 25 02         callk Said 2 

  0d82:31 0c              bnt code_0d90 
  0d84:7a               push2 
  0d85:38 00e6          pushi e6 // $e6 prompt
  0d88:39 35            pushi 35 // $35 b-incr
  0d8a:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0d90
  0d90:48                 ret 
    )

)

// 10a4
(instance Lillian of Act
    (properties
        y $86
        x $45
        z $0
        heading $0
        yStep $2
        view $1f4
        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
    )
    (method (handleEvent) // method_0d91
  0d91:88 00cb            lsg global203 
  0d94:35 02              ldi 2 
  0d96:1a                 eq? 
  0d97:30 00ee            bnt code_0e88 
  0d9a:35 06              ldi 6 
  0d9c:a0 00d5            sag global213 
  0d9f:39 03            pushi 3 // $3 y
  0da1:7c            pushSelf 
  0da2:8f 01              lsp param1 
  0da4:39 03            pushi 3 // $3 y
  0da6:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  0dac:31 1b              bnt code_0dc9 
  0dae:88 00cf            lsg global207 
  0db1:35 20              ldi 20 
  0db3:12                 and 
  0db4:18                 not 
  0db5:31 12              bnt code_0dc9 
  0db7:39 4c            pushi 4c // $4c claimed
  0db9:78               push1 
  0dba:78               push1 
  0dbb:87 01              lap param1 
  0dbd:4a 06             send 6 

  0dbf:78               push1 
  0dc0:74 03f6          lofss $11b9 // lillian
  0dc3:45 19 02         callb procedure_0019 2 // DoLook 

  0dc6:32 00bf            jmp code_0e88 

        code_0dc9
  0dc9:88 00cf            lsg global207 
  0dcc:35 20              ldi 20 
  0dce:12                 and 
  0dcf:31 2e              bnt code_0dff 
  0dd1:39 03            pushi 3 // $3 y
  0dd3:7c            pushSelf 
  0dd4:8f 01              lsp param1 
  0dd6:39 03            pushi 3 // $3 y
  0dd8:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  0dde:2f 09               bt code_0de9 
  0de0:78               push1 
  0de1:74 0103          lofss $0ee7 // look/lil
  0de4:43 25 02         callk Said 2 

  0de7:31 16              bnt code_0dff 

        code_0de9
  0de9:39 4c            pushi 4c // $4c claimed
  0deb:78               push1 
  0dec:78               push1 
  0ded:87 01              lap param1 
  0def:4a 06             send 6 

  0df1:7a               push2 
  0df2:38 00e6          pushi e6 // $e6 prompt
  0df5:78               push1 
  0df6:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0dfc:32 0089            jmp code_0e88 

        code_0dff
  0dff:78               push1 
  0e00:74 00f4          lofss $0ef7 // bonjour/lil
  0e03:43 25 02         callk Said 2 

  0e06:31 5e              bnt code_0e66 
  0e08:8b 02              lsl local2 
  0e0a:3c                 dup 
  0e0b:35 00              ldi 0 
  0e0d:1a                 eq? 
  0e0e:31 0d              bnt code_0e1d 
  0e10:39 03            pushi 3 // $3 y
  0e12:78               push1 
  0e13:38 00e6          pushi e6 // $e6 prompt
  0e16:39 36            pushi 36 // $36 xStep
  0e18:45 01 06         callb procedure_0001 6 // Say 

  0e1b:33 44              jmp code_0e61 

        code_0e1d
  0e1d:3c                 dup 
  0e1e:35 01              ldi 1 
  0e20:1a                 eq? 
  0e21:31 0d              bnt code_0e30 
  0e23:39 03            pushi 3 // $3 y
  0e25:78               push1 
  0e26:38 00e6          pushi e6 // $e6 prompt
  0e29:39 37            pushi 37 // $37 yStep
  0e2b:45 01 06         callb procedure_0001 6 // Say 

  0e2e:33 31              jmp code_0e61 

        code_0e30
  0e30:3c                 dup 
  0e31:35 02              ldi 2 
  0e33:1a                 eq? 
  0e34:31 0d              bnt code_0e43 
  0e36:39 03            pushi 3 // $3 y
  0e38:78               push1 
  0e39:38 00e6          pushi e6 // $e6 prompt
  0e3c:39 38            pushi 38 // $38 moveSpeed
  0e3e:45 01 06         callb procedure_0001 6 // Say 

  0e41:33 1e              jmp code_0e61 

        code_0e43
  0e43:3c                 dup 
  0e44:35 03              ldi 3 
  0e46:1a                 eq? 
  0e47:31 0d              bnt code_0e56 
  0e49:39 03            pushi 3 // $3 y
  0e4b:78               push1 
  0e4c:38 00e6          pushi e6 // $e6 prompt
  0e4f:39 39            pushi 39 // $39 canBeHere
  0e51:45 01 06         callb procedure_0001 6 // Say 

  0e54:33 0b              jmp code_0e61 

        code_0e56
  0e56:39 03            pushi 3 // $3 y
  0e58:78               push1 
  0e59:38 00e6          pushi e6 // $e6 prompt
  0e5c:39 3a            pushi 3a // $3a heading
  0e5e:45 01 06         callb procedure_0001 6 // Say 


        code_0e61
  0e61:3a                toss 
  0e62:c3 02              +al local2 
  0e64:33 22              jmp code_0e88 

        code_0e66
  0e66:78               push1 
  0e67:74 0047          lofss $0eb1 // ask[/lil]/ethel<about
  0e6a:43 25 02         callk Said 2 

  0e6d:31 19              bnt code_0e88 
  0e6f:35 01              ldi 1 
  0e71:a0 00d4            sag global212 
  0e74:87 01              lap param1 
  0e76:a0 00d1            sag global209 
  0e79:39 03            pushi 3 // $3 y
  0e7b:39 0a            pushi a // $a nsLeft
  0e7d:38 00e6          pushi e6 // $e6 prompt
  0e80:39 3b            pushi 3b // $3b mover
  0e82:46 00f3 0001 06  calle f3 procedure_0001 6 // proc243_1 


        code_0e88
  0e88:48                 ret 
  0e89:00                bnot 
    )

)

// 110c
(instance lHead of Prop
    (properties
        y $73
        x $74
        z $0
        heading $0
        yStep $2
        view $1f5
        loop $9
        cel $0
        priority $0
        underBits $0
        signal $4000
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
        lsTop $0
        lsLeft $0
        lsBottom $0
        lsRight $0
        brTop $0
        brLeft $0
        brBottom $0
        brRight $0
        cycleSpeed $0
        script $0
        cycler $0
        timer $0
    )
)



(procedure proc_000c
  000c:88 00ac            lsg global172 
  000f:35 64              ldi 64 
  0011:22                 lt? 
  0012:31 45              bnt code_0059 
  0014:38 00c6          pushi c6 // $c6 stopUpd
  0017:76               push0 
  0018:72 10f7          lofsa $1112 // lHead
  001b:4a 04             send 4 

  001d:38 00c6          pushi c6 // $c6 stopUpd
  0020:76               push0 
  0021:72 1086          lofsa $10aa // Lillian
  0024:4a 04             send 4 

  0026:39 06            pushi 6 // $6 loop
  0028:78               push1 
  0029:39 03            pushi 3 // $3 y
  002b:38 00a4          pushi a4 // $a4 cycleSpeed
  002e:78               push1 
  002f:78               push1 
  0030:39 7e            pushi 7e // $7e setCycle
  0032:78               push1 
  0033:51 16            class Fwd 
  0035:36                push 
  0036:72 1009          lofsa $1042 // Ethel
  0039:4a 12             send 12 

  003b:39 0a            pushi a // $a nsLeft
  003d:59 01            &rest 1 
  003f:39 43            pushi 43 // $43 at
  0041:38 00af          pushi af // $af incClientPos
  0044:39 7d            pushi 7d // $7d set
  0046:39 21            pushi 21 // $21 font
  0048:39 04            pushi 4 // $4 x
  004a:39 46            pushi 46 // $46 width
  004c:39 7d            pushi 7d // $7d set
  004e:39 1e            pushi 1e // $1e mode
  0050:78               push1 
  0051:39 58            pushi 58 // $58 dispose
  0053:46 00ff 0000 14  calle ff procedure_0000 14 // Print 


        code_0059
  0059:48                 ret 
)

(procedure proc_005a
  005a:88 00ac            lsg global172 
  005d:35 64              ldi 64 
  005f:22                 lt? 
  0060:31 4a              bnt code_00ac 
  0062:38 00c6          pushi c6 // $c6 stopUpd
  0065:76               push0 
  0066:72 0fd9          lofsa $1042 // Ethel
  0069:4a 04             send 4 

  006b:39 06            pushi 6 // $6 loop
  006d:78               push1 
  006e:78               push1 
  006f:38 00a4          pushi a4 // $a4 cycleSpeed
  0072:78               push1 
  0073:78               push1 
  0074:39 7e            pushi 7e // $7e setCycle
  0076:78               push1 
  0077:51 16            class Fwd 
  0079:36                push 
  007a:72 102d          lofsa $10aa // Lillian
  007d:4a 12             send 12 

  007f:38 00a4          pushi a4 // $a4 cycleSpeed
  0082:78               push1 
  0083:78               push1 
  0084:39 7e            pushi 7e // $7e setCycle
  0086:78               push1 
  0087:51 16            class Fwd 
  0089:36                push 
  008a:72 1085          lofsa $1112 // lHead
  008d:4a 0c             send c 

  008f:39 0a            pushi a // $a nsLeft
  0091:59 01            &rest 1 
  0093:39 43            pushi 43 // $43 at
  0095:39 0a            pushi a // $a nsLeft
  0097:39 2d            pushi 2d // $2d client
  0099:39 21            pushi 21 // $21 font
  009b:39 04            pushi 4 // $4 x
  009d:39 46            pushi 46 // $46 width
  009f:39 7d            pushi 7d // $7d set
  00a1:39 1e            pushi 1e // $1e mode
  00a3:78               push1 
  00a4:39 58            pushi 58 // $58 dispose
  00a6:46 00ff 0000 14  calle ff procedure_0000 14 // Print 


        code_00ac
  00ac:48                 ret 
)

