(script 238)

(string
    string_075c "Ethel"
    string_0762 "ethelParrot"
    string_076e "etheparr"
    string_0777 ""
)

(said
    said_0604 /boire,glass>
    said_060c /ethel>
    said_0611 ask,raconter//*<about
    said_061e ask,raconter/parrot>
    said_0628 embrace
    said_062b get
    said_062e deliver/*<ethel
    said_0637 deliver/*[/ethel]
    said_0642 abattre
    said_0645 embrasser
    said_0648 ecouter
    said_064b look
    said_064e look/ethel
    said_0654 hold,deliver/*/parrot>
    said_0661 hold,deliver/*<parrot>
    said_066e hold/*<ethel
    said_0677 hold/*[/ethel]
    said_0682 bonjour
)

(synonym
    ethel = person | personne
    ethel = dame | femme | fille | girl | lady | maiden | woman
)

(local
    local0 = $0000
    local1 = $0000
)

// 068c
(instance public etheparr of Rgn
    (properties
        script $0
        number $0
        timer $0
        keep $0
        initialized $0
    )
    (method (init) // method_006c
  006c:39 57            pushi 57 // $57 init
  006e:76               push0 
  006f:57 36 04         super Rgn 4 

  0072:7a               push2 
  0073:38 0087          pushi 87 // $87 clean
  0076:39 04            pushi 4 // $4 x
  0078:43 00 04         callk Load 4 

  007b:35 08              ldi 8 
  007d:a0 00c3            sag global195 
  0080:39 57            pushi 57 // $57 init
  0082:76               push0 
  0083:39 7a            pushi 7a // $7a setScript
  0085:78               push1 
  0086:74 063b          lofss $06c4 // ethelParrot
  0089:72 0668          lofsa $06f4 // Ethel
  008c:4a 0a             send a 

  008e:48                 ret 
    )

    (method (doit) // method_008f
  008f:39 3c            pushi 3c // $3c doit
  0091:76               push0 
  0092:57 36 04         super Rgn 4 

  0095:48                 ret 
    )

    (method (dispose) // method_0096
  0096:39 58            pushi 58 // $58 dispose
  0098:76               push0 
  0099:57 36 04         super Rgn 4 

  009c:48                 ret 
    )

    (method (handleEvent) // method_009d
  009d:3f 01             link 1 // (var $1)
  009f:39 4c            pushi 4c // $4c claimed
  00a1:76               push0 
  00a2:87 01              lap param1 
  00a4:4a 04             send 4 

  00a6:31 03              bnt code_00ab 
  00a8:35 01              ldi 1 
  00aa:48                 ret 

        code_00ab
  00ab:39 22            pushi 22 // $22 type
  00ad:76               push0 
  00ae:87 01              lap param1 
  00b0:4a 04             send 4 

  00b2:36                push 
  00b3:34 0080            ldi 80 
  00b6:1a                 eq? 
  00b7:31 33              bnt code_00ec 
  00b9:78               push1 
  00ba:74 0547          lofss $0604 // /boire,glass>
  00bd:43 25 02         callk Said 2 

  00c0:31 2a              bnt code_00ec 
  00c2:78               push1 
  00c3:74 0585          lofss $064b // look
  00c6:43 25 02         callk Said 2 

  00c9:31 0d              bnt code_00d8 
  00cb:7a               push2 
  00cc:38 00ee          pushi ee // $ee has
  00cf:76               push0 
  00d0:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  00d6:33 14              jmp code_00ec 

        code_00d8
  00d8:78               push1 
  00d9:74 054f          lofss $062b // get
  00dc:43 25 02         callk Said 2 

  00df:31 0b              bnt code_00ec 
  00e1:7a               push2 
  00e2:38 00ee          pushi ee // $ee has
  00e5:78               push1 
  00e6:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_00ec
  00ec:39 6f            pushi 6f // $6f handleEvent
  00ee:78               push1 
  00ef:8f 01              lsp param1 
  00f1:57 36 06         super Rgn 6 

  00f4:48                 ret 
    )

)

// 06be
(instance ethelParrot 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_00f5
  00f5:87 01              lap param1 
  00f7:65 0a             aTop state 
  00f9:36                push 
  00fa:3c                 dup 
  00fb:35 00              ldi 0 
  00fd:1a                 eq? 
  00fe:31 13              bnt code_0113 
  0100:39 06            pushi 6 // $6 loop
  0102:78               push1 
  0103:76               push0 
  0104:39 7e            pushi 7e // $7e setCycle
  0106:7a               push2 
  0107:51 1a            class End 
  0109:36                push 
  010a:7c            pushSelf 
  010b:72 05e6          lofsa $06f4 // Ethel
  010e:4a 0e             send e 

  0110:32 0222            jmp code_0335 

        code_0113
  0113:3c                 dup 
  0114:35 01              ldi 1 
  0116:1a                 eq? 
  0117:31 74              bnt code_018d 
  0119:38 00e2          pushi e2 // $e2 canInput
  011c:78               push1 
  011d:76               push0 
  011e:51 2b            class User 
  0120:4a 06             send 6 

  0122:83 01              lal local1 
  0124:31 56              bnt code_017c 
  0126:8b 01              lsl local1 
  0128:3c                 dup 
  0129:35 01              ldi 1 
  012b:1a                 eq? 
  012c:31 0b              bnt code_0139 
  012e:7a               push2 
  012f:38 00ee          pushi ee // $ee has
  0132:7a               push2 
  0133:40 fee3 04        call proc_001a 4 

  0137:33 40              jmp code_0179 

        code_0139
  0139:3c                 dup 
  013a:35 02              ldi 2 
  013c:1a                 eq? 
  013d:31 0c              bnt code_014b 
  013f:7a               push2 
  0140:38 00ee          pushi ee // $ee has
  0143:39 03            pushi 3 // $3 y
  0145:40 fed1 04        call proc_001a 4 

  0149:33 2e              jmp code_0179 

        code_014b
  014b:3c                 dup 
  014c:35 03              ldi 3 
  014e:1a                 eq? 
  014f:31 0c              bnt code_015d 
  0151:7a               push2 
  0152:38 00ee          pushi ee // $ee has
  0155:39 04            pushi 4 // $4 x
  0157:40 feef 04        call proc_004a 4 

  015b:33 1c              jmp code_0179 

        code_015d
  015d:3c                 dup 
  015e:35 04              ldi 4 
  0160:1a                 eq? 
  0161:31 0c              bnt code_016f 
  0163:7a               push2 
  0164:38 00ee          pushi ee // $ee has
  0167:39 05            pushi 5 // $5 view
  0169:40 fead 04        call proc_001a 4 

  016d:33 0a              jmp code_0179 

        code_016f
  016f:7a               push2 
  0170:38 00ee          pushi ee // $ee has
  0173:39 06            pushi 6 // $6 loop
  0175:40 fea1 04        call proc_001a 4 


        code_0179
  0179:3a                toss 
  017a:33 0a              jmp code_0186 

        code_017c
  017c:7a               push2 
  017d:38 00ee          pushi ee // $ee has
  0180:39 07            pushi 7 // $7 cel
  0182:40 fe94 04        call proc_001a 4 


        code_0186
  0186:35 05              ldi 5 
  0188:65 12             aTop seconds 
  018a:32 01a8            jmp code_0335 

        code_018d
  018d:3c                 dup 
  018e:35 02              ldi 2 
  0190:1a                 eq? 
  0191:31 77              bnt code_020a 
  0193:39 7e            pushi 7e // $7e setCycle
  0195:78               push1 
  0196:76               push0 
  0197:72 055a          lofsa $06f4 // Ethel
  019a:4a 06             send 6 

  019c:83 01              lal local1 
  019e:31 57              bnt code_01f7 
  01a0:8b 01              lsl local1 
  01a2:3c                 dup 
  01a3:35 01              ldi 1 
  01a5:1a                 eq? 
  01a6:31 0c              bnt code_01b4 
  01a8:7a               push2 
  01a9:38 00ee          pushi ee // $ee has
  01ac:39 08            pushi 8 // $8 underBits
  01ae:40 fe98 04        call proc_004a 4 

  01b2:33 40              jmp code_01f4 

        code_01b4
  01b4:3c                 dup 
  01b5:35 02              ldi 2 
  01b7:1a                 eq? 
  01b8:31 0c              bnt code_01c6 
  01ba:7a               push2 
  01bb:38 00ee          pushi ee // $ee has
  01be:39 09            pushi 9 // $9 nsTop
  01c0:40 fe86 04        call proc_004a 4 

  01c4:33 2e              jmp code_01f4 

        code_01c6
  01c6:3c                 dup 
  01c7:35 03              ldi 3 
  01c9:1a                 eq? 
  01ca:31 0c              bnt code_01d8 
  01cc:7a               push2 
  01cd:38 00ee          pushi ee // $ee has
  01d0:39 0a            pushi a // $a nsLeft
  01d2:40 fe44 04        call proc_001a 4 

  01d6:33 1c              jmp code_01f4 

        code_01d8
  01d8:3c                 dup 
  01d9:35 04              ldi 4 
  01db:1a                 eq? 
  01dc:31 0c              bnt code_01ea 
  01de:7a               push2 
  01df:38 00ee          pushi ee // $ee has
  01e2:39 0b            pushi b // $b nsBottom
  01e4:40 fe62 04        call proc_004a 4 

  01e8:33 0a              jmp code_01f4 

        code_01ea
  01ea:7a               push2 
  01eb:38 00ee          pushi ee // $ee has
  01ee:39 0c            pushi c // $c nsRight
  01f0:40 fe56 04        call proc_004a 4 


        code_01f4
  01f4:3a                toss 
  01f5:33 0a              jmp code_0201 

        code_01f7
  01f7:7a               push2 
  01f8:38 00ee          pushi ee // $ee has
  01fb:39 0d            pushi d // $d lsTop
  01fd:40 fe49 04        call proc_004a 4 


        code_0201
  0201:c3 01              +al local1 
  0203:35 03              ldi 3 
  0205:65 12             aTop seconds 
  0207:32 012b            jmp code_0335 

        code_020a
  020a:3c                 dup 
  020b:35 03              ldi 3 
  020d:1a                 eq? 
  020e:31 39              bnt code_0249 
  0210:38 00e2          pushi e2 // $e2 canInput
  0213:78               push1 
  0214:78               push1 
  0215:51 2b            class User 
  0217:4a 06             send 6 

  0219:76               push0 
  021a:45 0f 00         callb procedure_000f 0 // cls 

  021d:39 06            pushi 6 // $6 loop
  021f:78               push1 
  0220:76               push0 
  0221:39 07            pushi 7 // $7 cel
  0223:78               push1 
  0224:39 03            pushi 3 // $3 y
  0226:39 7e            pushi 7e // $7e setCycle
  0228:78               push1 
  0229:51 1b            class Beg 
  022b:36                push 
  022c:72 04c5          lofsa $06f4 // Ethel
  022f:4a 12             send 12 

  0231:7a               push2 
  0232:78               push1 
  0233:39 64            pushi 64 // $64 allTrue
  0235:43 40 04         callk Random 4 

  0238:36                push 
  0239:35 14              ldi 14 
  023b:22                 lt? 
  023c:31 04              bnt code_0242 
  023e:35 06              ldi 6 
  0240:65 0a             aTop state 

        code_0242
  0242:35 0a              ldi a 
  0244:65 12             aTop seconds 
  0246:32 00ec            jmp code_0335 

        code_0249
  0249:3c                 dup 
  024a:35 04              ldi 4 
  024c:1a                 eq? 
  024d:31 1f              bnt code_026e 
  024f:39 06            pushi 6 // $6 loop
  0251:78               push1 
  0252:7a               push2 
  0253:39 07            pushi 7 // $7 cel
  0255:78               push1 
  0256:76               push0 
  0257:38 00a4          pushi a4 // $a4 cycleSpeed
  025a:78               push1 
  025b:7a               push2 
  025c:39 7e            pushi 7e // $7e setCycle
  025e:78               push1 
  025f:51 1a            class End 
  0261:36                push 
  0262:72 048f          lofsa $06f4 // Ethel
  0265:4a 18             send 18 

  0267:35 03              ldi 3 
  0269:65 12             aTop seconds 
  026b:32 00c7            jmp code_0335 

        code_026e
  026e:3c                 dup 
  026f:35 05              ldi 5 
  0271:1a                 eq? 
  0272:31 0f              bnt code_0283 
  0274:39 7e            pushi 7e // $7e setCycle
  0276:7a               push2 
  0277:51 1b            class Beg 
  0279:36                push 
  027a:7c            pushSelf 
  027b:72 0476          lofsa $06f4 // Ethel
  027e:4a 08             send 8 

  0280:32 00b2            jmp code_0335 

        code_0283
  0283:3c                 dup 
  0284:35 06              ldi 6 
  0286:1a                 eq? 
  0287:31 18              bnt code_02a1 
  0289:7a               push2 
  028a:78               push1 
  028b:39 64            pushi 64 // $64 allTrue
  028d:43 40 04         callk Random 4 

  0290:36                push 
  0291:35 14              ldi 14 
  0293:22                 lt? 
  0294:31 04              bnt code_029a 
  0296:35 ff              ldi ff 
  0298:65 0a             aTop state 

        code_029a
  029a:35 0a              ldi a 
  029c:65 12             aTop seconds 
  029e:32 0094            jmp code_0335 

        code_02a1
  02a1:3c                 dup 
  02a2:35 07              ldi 7 
  02a4:1a                 eq? 
  02a5:31 2d              bnt code_02d4 
  02a7:39 06            pushi 6 // $6 loop
  02a9:78               push1 
  02aa:39 03            pushi 3 // $3 y
  02ac:39 7e            pushi 7e // $7e setCycle
  02ae:78               push1 
  02af:51 1a            class End 
  02b1:36                push 
  02b2:72 043f          lofsa $06f4 // Ethel
  02b5:4a 0c             send c 

  02b7:7a               push2 
  02b8:78               push1 
  02b9:39 64            pushi 64 // $64 allTrue
  02bb:43 40 04         callk Random 4 

  02be:36                push 
  02bf:35 14              ldi 14 
  02c1:22                 lt? 
  02c2:31 04              bnt code_02c8 
  02c4:35 ff              ldi ff 
  02c6:65 0a             aTop state 

        code_02c8
  02c8:7a               push2 
  02c9:39 06            pushi 6 // $6 loop
  02cb:39 0c            pushi c // $c nsRight
  02cd:43 40 04         callk Random 4 

  02d0:65 12             aTop seconds 
  02d2:33 61              jmp code_0335 

        code_02d4
  02d4:3c                 dup 
  02d5:35 08              ldi 8 
  02d7:1a                 eq? 
  02d8:31 20              bnt code_02fa 
  02da:39 06            pushi 6 // $6 loop
  02dc:78               push1 
  02dd:39 04            pushi 4 // $4 x
  02df:39 07            pushi 7 // $7 cel
  02e1:78               push1 
  02e2:76               push0 
  02e3:39 7e            pushi 7e // $7e setCycle
  02e5:78               push1 
  02e6:51 1a            class End 
  02e8:36                push 
  02e9:72 0408          lofsa $06f4 // Ethel
  02ec:4a 12             send 12 

  02ee:7a               push2 
  02ef:39 03            pushi 3 // $3 y
  02f1:39 06            pushi 6 // $6 loop
  02f3:43 40 04         callk Random 4 

  02f6:65 12             aTop seconds 
  02f8:33 3b              jmp code_0335 

        code_02fa
  02fa:3c                 dup 
  02fb:35 09              ldi 9 
  02fd:1a                 eq? 
  02fe:31 35              bnt code_0335 
  0300:39 06            pushi 6 // $6 loop
  0302:78               push1 
  0303:39 05            pushi 5 // $5 view
  0305:39 07            pushi 7 // $7 cel
  0307:78               push1 
  0308:76               push0 
  0309:39 7e            pushi 7e // $7e setCycle
  030b:78               push1 
  030c:51 1a            class End 
  030e:36                push 
  030f:72 03e2          lofsa $06f4 // Ethel
  0312:4a 12             send 12 

  0314:7a               push2 
  0315:78               push1 
  0316:39 64            pushi 64 // $64 allTrue
  0318:43 40 04         callk Random 4 

  031b:36                push 
  031c:35 14              ldi 14 
  031e:22                 lt? 
  031f:31 06              bnt code_0327 
  0321:35 ff              ldi ff 
  0323:65 0a             aTop state 
  0325:33 04              jmp code_032b 

        code_0327
  0327:35 03              ldi 3 
  0329:65 0a             aTop state 

        code_032b
  032b:7a               push2 
  032c:39 06            pushi 6 // $6 loop
  032e:39 0c            pushi c // $c nsRight
  0330:43 40 04         callk Random 4 

  0333:65 12             aTop seconds 

        code_0335
  0335:3a                toss 
  0336:48                 ret 
    )

)

// 06ee
(instance Ethel of Act
    (properties
        y $66
        x $a8
        z $0
        heading $0
        yStep $2
        view $149
        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_0337
  0337:35 04              ldi 4 
  0339:a0 00d5            sag global213 
  033c:78               push1 
  033d:74 02de          lofss $061e // ask,raconter/parrot>
  0340:43 25 02         callk Said 2 

  0343:2f 12               bt code_0357 
  0345:78               push1 
  0346:74 030b          lofss $0654 // hold,deliver/*/parrot>
  0349:43 25 02         callk Said 2 

  034c:2f 09               bt code_0357 
  034e:78               push1 
  034f:74 030f          lofss $0661 // hold,deliver/*<parrot>
  0352:43 25 02         callk Said 2 

  0355:31 03              bnt code_035a 

        code_0357
  0357:32 02a4            jmp code_05fe 

        code_035a
  035a:39 03            pushi 3 // $3 y
  035c:7c            pushSelf 
  035d:8f 01              lsp param1 
  035f:39 03            pushi 3 // $3 y
  0361:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  0367:2f 09               bt code_0372 
  0369:78               push1 
  036a:74 02e1          lofss $064e // look/ethel
  036d:43 25 02         callk Said 2 

  0370:31 36              bnt code_03a8 

        code_0372
  0372:88 00cf            lsg global207 
  0375:35 08              ldi 8 
  0377:12                 and 
  0378:18                 not 
  0379:31 16              bnt code_0391 
  037b:88 00cf            lsg global207 
  037e:35 08              ldi 8 
  0380:14                  or 
  0381:a0 00cf            sag global207 
  0384:39 03            pushi 3 // $3 y
  0386:76               push0 
  0387:38 00ee          pushi ee // $ee has
  038a:39 0e            pushi e // $e lsLeft
  038c:45 01 06         callb procedure_0001 6 // Say 

  038f:33 0c              jmp code_039d 

        code_0391
  0391:7a               push2 
  0392:38 00ee          pushi ee // $ee has
  0395:39 0f            pushi f // $f lsBottom
  0397:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_039d
  039d:39 4c            pushi 4c // $4c claimed
  039f:78               push1 
  03a0:78               push1 
  03a1:87 01              lap param1 
  03a3:4a 06             send 6 

  03a5:32 0256            jmp code_05fe 

        code_03a8
  03a8:78               push1 
  03a9:74 0265          lofss $0611 // ask,raconter//*<about
  03ac:43 25 02         callk Said 2 

  03af:30 009e            bnt code_0450 
  03b2:7a               push2 
  03b3:78               push1 
  03b4:39 08            pushi 8 // $8 underBits
  03b6:43 40 04         callk Random 4 

  03b9:36                push 
  03ba:3c                 dup 
  03bb:35 01              ldi 1 
  03bd:1a                 eq? 
  03be:31 0d              bnt code_03cd 
  03c0:39 03            pushi 3 // $3 y
  03c2:78               push1 
  03c3:38 00ee          pushi ee // $ee has
  03c6:39 10            pushi 10 // $10 lsRight
  03c8:45 01 06         callb procedure_0001 6 // Say 

  03cb:33 7f              jmp code_044c 

        code_03cd
  03cd:3c                 dup 
  03ce:35 02              ldi 2 
  03d0:1a                 eq? 
  03d1:31 0d              bnt code_03e0 
  03d3:39 03            pushi 3 // $3 y
  03d5:78               push1 
  03d6:38 00ee          pushi ee // $ee has
  03d9:39 11            pushi 11 // $11 signal
  03db:45 01 06         callb procedure_0001 6 // Say 

  03de:33 6c              jmp code_044c 

        code_03e0
  03e0:3c                 dup 
  03e1:35 03              ldi 3 
  03e3:1a                 eq? 
  03e4:31 0d              bnt code_03f3 
  03e6:39 03            pushi 3 // $3 y
  03e8:78               push1 
  03e9:38 00ee          pushi ee // $ee has
  03ec:39 12            pushi 12 // $12 illegalBits
  03ee:45 01 06         callb procedure_0001 6 // Say 

  03f1:33 59              jmp code_044c 

        code_03f3
  03f3:3c                 dup 
  03f4:35 04              ldi 4 
  03f6:1a                 eq? 
  03f7:31 0e              bnt code_0407 
  03f9:7a               push2 
  03fa:38 00ee          pushi ee // $ee has
  03fd:39 13            pushi 13 // $13 brTop
  03ff:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0405:33 45              jmp code_044c 

        code_0407
  0407:3c                 dup 
  0408:35 05              ldi 5 
  040a:1a                 eq? 
  040b:31 0d              bnt code_041a 
  040d:39 03            pushi 3 // $3 y
  040f:78               push1 
  0410:38 00ee          pushi ee // $ee has
  0413:39 14            pushi 14 // $14 brLeft
  0415:45 01 06         callb procedure_0001 6 // Say 

  0418:33 32              jmp code_044c 

        code_041a
  041a:3c                 dup 
  041b:35 06              ldi 6 
  041d:1a                 eq? 
  041e:31 0d              bnt code_042d 
  0420:39 03            pushi 3 // $3 y
  0422:78               push1 
  0423:38 00ee          pushi ee // $ee has
  0426:39 15            pushi 15 // $15 brBottom
  0428:45 01 06         callb procedure_0001 6 // Say 

  042b:33 1f              jmp code_044c 

        code_042d
  042d:3c                 dup 
  042e:35 07              ldi 7 
  0430:1a                 eq? 
  0431:31 0d              bnt code_0440 
  0433:39 03            pushi 3 // $3 y
  0435:78               push1 
  0436:38 00ee          pushi ee // $ee has
  0439:39 16            pushi 16 // $16 brRight
  043b:45 01 06         callb procedure_0001 6 // Say 

  043e:33 0c              jmp code_044c 

        code_0440
  0440:7a               push2 
  0441:38 00ee          pushi ee // $ee has
  0444:39 17            pushi 17 // $17 name
  0446:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_044c
  044c:3a                toss 
  044d:32 01ae            jmp code_05fe 

        code_0450
  0450:78               push1 
  0451:74 01da          lofss $062e // deliver/*<ethel
  0454:43 25 02         callk Said 2 

  0457:2f 09               bt code_0462 
  0459:78               push1 
  045a:74 01da          lofss $0637 // deliver/*[/ethel]
  045d:43 25 02         callk Said 2 

  0460:31 1f              bnt code_0481 

        code_0462
  0462:80 00db            lag global219 
  0465:31 13              bnt code_047a 
  0467:80 00e0            lag global224 
  046a:31 0e              bnt code_047a 
  046c:7a               push2 
  046d:38 00ee          pushi ee // $ee has
  0470:39 18            pushi 18 // $18 key
  0472:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0478:33 04              jmp code_047e 

        code_047a
  047a:76               push0 
  047b:45 0d 00         callb procedure_000d 0 // DontHave 


        code_047e
  047e:32 017d            jmp code_05fe 

        code_0481
  0481:78               push1 
  0482:74 01e9          lofss $066e // hold/*<ethel
  0485:43 25 02         callk Said 2 

  0488:2f 09               bt code_0493 
  048a:78               push1 
  048b:74 01e9          lofss $0677 // hold/*[/ethel]
  048e:43 25 02         callk Said 2 

  0491:31 1f              bnt code_04b2 

        code_0493
  0493:80 00db            lag global219 
  0496:31 13              bnt code_04ab 
  0498:80 00e0            lag global224 
  049b:31 0e              bnt code_04ab 
  049d:7a               push2 
  049e:38 00ee          pushi ee // $ee has
  04a1:39 19            pushi 19 // $19 time
  04a3:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  04a9:33 04              jmp code_04af 

        code_04ab
  04ab:76               push0 
  04ac:45 0d 00         callb procedure_000d 0 // DontHave 


        code_04af
  04af:32 014c            jmp code_05fe 

        code_04b2
  04b2:78               push1 
  04b3:74 0156          lofss $060c // /ethel>
  04b6:43 25 02         callk Said 2 

  04b9:30 0142            bnt code_05fe 
  04bc:78               push1 
  04bd:74 01c2          lofss $0682 // bonjour
  04c0:43 25 02         callk Said 2 

  04c3:30 00c7            bnt code_058d 
  04c6:8b 00              lsl local0 
  04c8:3c                 dup 
  04c9:35 00              ldi 0 
  04cb:1a                 eq? 
  04cc:31 0f              bnt code_04dd 
  04ce:7a               push2 
  04cf:38 00ee          pushi ee // $ee has
  04d2:39 1a            pushi 1a // $1a text
  04d4:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  04da:32 00ab            jmp code_0588 

        code_04dd
  04dd:3c                 dup 
  04de:35 01              ldi 1 
  04e0:1a                 eq? 
  04e1:31 19              bnt code_04fc 
  04e3:39 03            pushi 3 // $3 y
  04e5:78               push1 
  04e6:38 00ee          pushi ee // $ee has
  04e9:39 1b            pushi 1b // $1b elements
  04eb:45 01 06         callb procedure_0001 6 // Say 

  04ee:39 03            pushi 3 // $3 y
  04f0:78               push1 
  04f1:38 00ee          pushi ee // $ee has
  04f4:39 1c            pushi 1c // $1c color
  04f6:45 01 06         callb procedure_0001 6 // Say 

  04f9:32 008c            jmp code_0588 

        code_04fc
  04fc:3c                 dup 
  04fd:35 02              ldi 2 
  04ff:1a                 eq? 
  0500:31 2d              bnt code_052f 
  0502:39 03            pushi 3 // $3 y
  0504:78               push1 
  0505:38 00ee          pushi ee // $ee has
  0508:39 1d            pushi 1d // $1d back
  050a:45 01 06         callb procedure_0001 6 // Say 

  050d:35 0c              ldi c 
  050f:a0 00d5            sag global213 
  0512:39 03            pushi 3 // $3 y
  0514:78               push1 
  0515:38 00ee          pushi ee // $ee has
  0518:39 1e            pushi 1e // $1e mode
  051a:45 01 06         callb procedure_0001 6 // Say 

  051d:35 04              ldi 4 
  051f:a0 00d5            sag global213 
  0522:39 03            pushi 3 // $3 y
  0524:78               push1 
  0525:38 00ee          pushi ee // $ee has
  0528:39 1f            pushi 1f // $1f style
  052a:45 01 06         callb procedure_0001 6 // Say 

  052d:33 59              jmp code_0588 

        code_052f
  052f:3c                 dup 
  0530:35 03              ldi 3 
  0532:1a                 eq? 
  0533:31 24              bnt code_0559 
  0535:39 03            pushi 3 // $3 y
  0537:78               push1 
  0538:38 00ee          pushi ee // $ee has
  053b:39 20            pushi 20 // $20 state
  053d:45 01 06         callb procedure_0001 6 // Say 

  0540:39 03            pushi 3 // $3 y
  0542:78               push1 
  0543:38 00ee          pushi ee // $ee has
  0546:39 21            pushi 21 // $21 font
  0548:45 01 06         callb procedure_0001 6 // Say 

  054b:7a               push2 
  054c:38 00ee          pushi ee // $ee has
  054f:39 22            pushi 22 // $22 type
  0551:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0557:33 2f              jmp code_0588 

        code_0559
  0559:3c                 dup 
  055a:35 04              ldi 4 
  055c:1a                 eq? 
  055d:31 1d              bnt code_057c 
  055f:39 03            pushi 3 // $3 y
  0561:78               push1 
  0562:38 00ee          pushi ee // $ee has
  0565:39 23            pushi 23 // $23 window
  0567:45 01 06         callb procedure_0001 6 // Say 

  056a:35 0c              ldi c 
  056c:a0 00d5            sag global213 
  056f:39 03            pushi 3 // $3 y
  0571:78               push1 
  0572:38 00ee          pushi ee // $ee has
  0575:39 24            pushi 24 // $24 cursor
  0577:45 01 06         callb procedure_0001 6 // Say 

  057a:33 0c              jmp code_0588 

        code_057c
  057c:7a               push2 
  057d:38 00ee          pushi ee // $ee has
  0580:39 25            pushi 25 // $25 max
  0582:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0588
  0588:3a                toss 
  0589:c3 00              +al local0 
  058b:33 71              jmp code_05fe 

        code_058d
  058d:78               push1 
  058e:74 00b7          lofss $0648 // ecouter
  0591:43 25 02         callk Said 2 

  0594:31 0e              bnt code_05a4 
  0596:7a               push2 
  0597:38 00ee          pushi ee // $ee has
  059a:39 26            pushi 26 // $26 mark
  059c:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  05a2:33 5a              jmp code_05fe 

        code_05a4
  05a4:78               push1 
  05a5:74 0083          lofss $062b // get
  05a8:43 25 02         callk Said 2 

  05ab:31 0e              bnt code_05bb 
  05ad:7a               push2 
  05ae:38 00ee          pushi ee // $ee has
  05b1:39 27            pushi 27 // $27 who
  05b3:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  05b9:33 43              jmp code_05fe 

        code_05bb
  05bb:78               push1 
  05bc:74 0083          lofss $0642 // abattre
  05bf:43 25 02         callk Said 2 

  05c2:31 0e              bnt code_05d2 
  05c4:7a               push2 
  05c5:38 00ee          pushi ee // $ee has
  05c8:39 28            pushi 28 // $28 message
  05ca:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  05d0:33 2c              jmp code_05fe 

        code_05d2
  05d2:78               push1 
  05d3:74 006f          lofss $0645 // embrasser
  05d6:43 25 02         callk Said 2 

  05d9:31 0e              bnt code_05e9 
  05db:7a               push2 
  05dc:38 00ee          pushi ee // $ee has
  05df:39 29            pushi 29 // $29 edit
  05e1:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  05e7:33 15              jmp code_05fe 

        code_05e9
  05e9:78               push1 
  05ea:74 003b          lofss $0628 // embrace
  05ed:43 25 02         callk Said 2 

  05f0:31 0c              bnt code_05fe 
  05f2:7a               push2 
  05f3:38 00ee          pushi ee // $ee has
  05f6:39 2a            pushi 2a // $2a play
  05f8:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_05fe
  05fe:48                 ret 
  05ff:00                bnot 
    )

)



(procedure proc_001a
  001a:39 06            pushi 6 // $6 loop
  001c:78               push1 
  001d:78               push1 
  001e:39 7e            pushi 7e // $7e setCycle
  0020:78               push1 
  0021:51 16            class Fwd 
  0023:36                push 
  0024:72 06cd          lofsa $06f4 // Ethel
  0027:4a 0c             send c 

  0029:39 0b            pushi b // $b nsBottom
  002b:59 01            &rest 1 
  002d:39 43            pushi 43 // $43 at
  002f:39 50            pushi 50 // $50 title
  0031:38 0091          pushi 91 // $91 isType
  0034:39 21            pushi 21 // $21 font
  0036:39 04            pushi 4 // $4 x
  0038:39 46            pushi 46 // $46 width
  003a:39 7d            pushi 7d // $7d set
  003c:39 1e            pushi 1e // $1e mode
  003e:78               push1 
  003f:39 53            pushi 53 // $53 draw
  0041:39 58            pushi 58 // $58 dispose
  0043:46 00ff 0000 16  calle ff procedure_0000 16 // Print 

  0049:48                 ret 
)

(procedure proc_004a
  004a:39 0b            pushi b // $b nsBottom
  004c:59 01            &rest 1 
  004e:39 43            pushi 43 // $43 at
  0050:38 00ab          pushi ab // $ab setTarget
  0053:38 0091          pushi 91 // $91 isType
  0056:39 21            pushi 21 // $21 font
  0058:39 04            pushi 4 // $4 x
  005a:39 46            pushi 46 // $46 width
  005c:39 7d            pushi 7d // $7d set
  005e:39 1e            pushi 1e // $1e mode
  0060:78               push1 
  0061:39 53            pushi 53 // $53 draw
  0063:39 58            pushi 58 // $58 dispose
  0065:46 00ff 0000 16  calle ff procedure_0000 16 // Print 

  006b:48                 ret 
)

