(script 272)

(string
    string_0646 "ClarAss"
    string_064e "Clarence"
    string_0657 "Smoke"
    string_065d "clarActions"
    string_0669 "clardrink"
    string_0673 "clarence"
)

(said
    said_0498 */attorney>
    said_049f boire/alcohol
    said_04a5 get/butt
    said_04ab get/boire,glass,alcohol
    said_04b7 ecouter
    said_04ba look/attorney
    said_04c0 look/butt
    said_04c6 look/glass,boire
    said_04cf bonjour
)

(synonym
    attorney | clarence | lawyer = person | personne
    attorney | clarence | lawyer = fellow | gars | gentleman | guy | homme | man | type
)

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

// 04d8
(instance public clardrink of Rgn
    (properties
        script $0
        number $0
        timer $0
        keep $0
        initialized $0
    )
    (method (init) // method_001a
  001a:39 57            pushi 57 // $57 init
  001c:76               push0 
  001d:57 36 04         super Rgn 4 

  0020:7a               push2 
  0021:38 0087          pushi 87 // $87 clean
  0024:39 29            pushi 29 // $29 edit
  0026:43 00 04         callk Load 4 

  0029:7a               push2 
  002a:38 0080          pushi 80 // $80 timeLeft
  002d:38 0282          pushi 282 // $282 sel_642
  0030:43 00 04         callk Load 4 

  0033:39 05            pushi 5 // $5 view
  0035:38 0084          pushi 84 // $84 stop
  0038:39 1d            pushi 1d // $1d back
  003a:39 5e            pushi 5e // $5e respondsTo
  003c:39 5f            pushi 5f // $5f yourself
  003e:39 60            pushi 60 // $60 size
  0040:45 15 0a         callb procedure_0015 a // LoadMany 

  0043:39 04            pushi 4 // $4 x
  0045:38 008f          pushi 8f // $8f moveTo
  0048:38 00f3          pushi f3 // $f3 close
  004b:38 0129          pushi 129 // $129 setMapSet
  004e:38 0196          pushi 196 // $196 sel_406
  0051:45 15 08         callb procedure_0015 8 // LoadMany 

  0054:39 03            pushi 3 // $3 y
  0056:38 008e          pushi 8e // $8e move
  0059:39 07            pushi 7 // $7 cel
  005b:39 0c            pushi c // $c nsRight
  005d:45 15 06         callb procedure_0015 6 // LoadMany 

  0060:35 40              ldi 40 
  0062:a0 00d0            sag global208 
  0065:34 0129            ldi 129 
  0068:a0 017f            sag global383 
  006b:39 57            pushi 57 // $57 init
  006d:76               push0 
  006e:38 00c6          pushi c6 // $c6 stopUpd
  0071:76               push0 
  0072:72 0533          lofsa $05a8 // ClarAss
  0075:4a 08             send 8 

  0077:39 12            pushi 12 // $12 illegalBits
  0079:78               push1 
  007a:76               push0 
  007b:39 42            pushi 42 // $42 setPri
  007d:78               push1 
  007e:39 06            pushi 6 // $6 loop
  0080:39 57            pushi 57 // $57 init
  0082:76               push0 
  0083:72 04ba          lofsa $0540 // Clarence
  0086:4a 10             send 10 

  0088:39 42            pushi 42 // $42 setPri
  008a:78               push1 
  008b:39 06            pushi 6 // $6 loop
  008d:39 57            pushi 57 // $57 init
  008f:76               push0 
  0090:38 0089          pushi 89 // $89 hide
  0093:76               push0 
  0094:72 055f          lofsa $05f6 // Smoke
  0097:4a 0e             send e 

  0099:39 7a            pushi 7a // $7a setScript
  009b:78               push1 
  009c:74 0471          lofss $0510 // clarActions
  009f:54 06             self 6 

  00a1:48                 ret 
    )

    (method (doit) // method_00a2
  00a2:39 3c            pushi 3c // $3c doit
  00a4:76               push0 
  00a5:57 36 04         super Rgn 4 

  00a8:48                 ret 
    )

    (method (dispose) // method_00a9
  00a9:39 58            pushi 58 // $58 dispose
  00ab:76               push0 
  00ac:57 36 04         super Rgn 4 

  00af:48                 ret 
    )

    (method (handleEvent) // method_00b0
  00b0:39 6f            pushi 6f // $6f handleEvent
  00b2:78               push1 
  00b3:8f 01              lsp param1 
  00b5:57 36 06         super Rgn 6 

  00b8:48                 ret 
    )

)

// 050a
(instance clarActions of Script
    (properties
        client $0
        state $ffff
        start $0
        timer $0
        cycles $0
        seconds $0
        lastSeconds $0
        register $0
        script $0
        caller $0
    )
    (method (changeState) // method_00b9
  00b9:87 01              lap param1 
  00bb:65 0a             aTop state 
  00bd:36                push 
  00be:3c                 dup 
  00bf:35 00              ldi 0 
  00c1:1a                 eq? 
  00c2:31 41              bnt code_0105 
  00c4:80 00d8            lag global216 
  00c7:18                 not 
  00c8:31 06              bnt code_00d0 
  00ca:35 ff              ldi ff 
  00cc:65 0a             aTop state 
  00ce:33 2e              jmp code_00fe 

        code_00d0
  00d0:89 76              lsg gMustDos 
  00d2:35 08              ldi 8 
  00d4:12                 and 
  00d5:18                 not 
  00d6:31 1b              bnt code_00f3 
  00d8:89 76              lsg gMustDos 
  00da:35 08              ldi 8 
  00dc:14                  or 
  00dd:a1 76              sag gMustDos 
  00df:39 7a            pushi 7a // $7a setScript
  00e1:78               push1 
  00e2:7a               push2 
  00e3:38 0196          pushi 196 // $196 sel_406
  00e6:76               push0 
  00e7:43 02 04         callk ScriptID 4 

  00ea:36                push 
  00eb:54 06             self 6 

  00ed:35 ff              ldi ff 
  00ef:65 0a             aTop state 
  00f1:33 0b              jmp code_00fe 

        code_00f3
  00f3:39 76            pushi 76 // $76 script
  00f5:76               push0 
  00f6:54 04             self 4 

  00f8:31 04              bnt code_00fe 
  00fa:35 ff              ldi ff 
  00fc:65 0a             aTop state 

        code_00fe
  00fe:35 01              ldi 1 
  0100:65 10             aTop cycles 
  0102:32 01ae            jmp code_02b3 

        code_0105
  0105:3c                 dup 
  0106:35 01              ldi 1 
  0108:1a                 eq? 
  0109:31 25              bnt code_0130 
  010b:38 00c8          pushi c8 // $c8 setLoop
  010e:78               push1 
  010f:78               push1 
  0110:39 07            pushi 7 // $7 cel
  0112:78               push1 
  0113:76               push0 
  0114:39 7e            pushi 7e // $7e setCycle
  0116:7a               push2 
  0117:51 1a            class End 
  0119:36                push 
  011a:7c            pushSelf 
  011b:72 0422          lofsa $0540 // Clarence
  011e:4a 14             send 14 

  0120:7a               push2 
  0121:78               push1 
  0122:39 03            pushi 3 // $3 y
  0124:43 40 04         callk Random 4 

  0127:a3 01              sal local1 
  0129:35 00              ldi 0 
  012b:a3 02              sal local2 
  012d:32 0183            jmp code_02b3 

        code_0130
  0130:3c                 dup 
  0131:35 02              ldi 2 
  0133:1a                 eq? 
  0134:31 07              bnt code_013d 
  0136:35 02              ldi 2 
  0138:65 12             aTop seconds 
  013a:32 0176            jmp code_02b3 

        code_013d
  013d:3c                 dup 
  013e:35 03              ldi 3 
  0140:1a                 eq? 
  0141:31 16              bnt code_0159 
  0143:38 00c8          pushi c8 // $c8 setLoop
  0146:78               push1 
  0147:39 04            pushi 4 // $4 x
  0149:39 07            pushi 7 // $7 cel
  014b:78               push1 
  014c:78               push1 
  014d:72 03f0          lofsa $0540 // Clarence
  0150:4a 0c             send c 

  0152:35 01              ldi 1 
  0154:65 10             aTop cycles 
  0156:32 015a            jmp code_02b3 

        code_0159
  0159:3c                 dup 
  015a:35 04              ldi 4 
  015c:1a                 eq? 
  015d:31 17              bnt code_0176 
  015f:39 07            pushi 7 // $7 cel
  0161:78               push1 
  0162:76               push0 
  0163:39 7e            pushi 7e // $7e setCycle
  0165:7a               push2 
  0166:51 1a            class End 
  0168:36                push 
  0169:7c            pushSelf 
  016a:38 00ca          pushi ca // $ca show
  016d:76               push0 
  016e:72 0485          lofsa $05f6 // Smoke
  0171:4a 12             send 12 

  0173:32 013d            jmp code_02b3 

        code_0176
  0176:3c                 dup 
  0177:35 05              ldi 5 
  0179:1a                 eq? 
  017a:31 5e              bnt code_01da 
  017c:8b 02              lsl local2 
  017e:83 01              lal local1 
  0180:22                 lt? 
  0181:31 13              bnt code_0196 
  0183:c3 02              +al local2 
  0185:39 07            pushi 7 // $7 cel
  0187:78               push1 
  0188:76               push0 
  0189:72 03b4          lofsa $0540 // Clarence
  018c:4a 06             send 6 

  018e:35 01              ldi 1 
  0190:65 0a             aTop state 
  0192:65 10             aTop cycles 
  0194:33 41              jmp code_01d7 

        code_0196
  0196:39 07            pushi 7 // $7 cel
  0198:78               push1 
  0199:76               push0 
  019a:38 0089          pushi 89 // $89 hide
  019d:76               push0 
  019e:72 0455          lofsa $05f6 // Smoke
  01a1:4a 0a             send a 

  01a3:38 00c8          pushi c8 // $c8 setLoop
  01a6:78               push1 
  01a7:39 05            pushi 5 // $5 view
  01a9:72 0394          lofsa $0540 // Clarence
  01ac:4a 06             send 6 

  01ae:39 07            pushi 7 // $7 cel
  01b0:78               push1 
  01b1:78               push1 
  01b2:74 038b          lofss $0540 // Clarence
  01b5:43 0e 02         callk NumCels 2 

  01b8:36                push 
  01b9:35 03              ldi 3 
  01bb:04                 sub 
  01bc:36                push 
  01bd:38 00a4          pushi a4 // $a4 cycleSpeed
  01c0:78               push1 
  01c1:7a               push2 
  01c2:39 7e            pushi 7e // $7e setCycle
  01c4:78               push1 
  01c5:51 1b            class Beg 
  01c7:36                push 
  01c8:72 0375          lofsa $0540 // Clarence
  01cb:4a 12             send 12 

  01cd:7a               push2 
  01ce:39 03            pushi 3 // $3 y
  01d0:39 06            pushi 6 // $6 loop
  01d2:43 40 04         callk Random 4 

  01d5:65 12             aTop seconds 

        code_01d7
  01d7:32 00d9            jmp code_02b3 

        code_01da
  01da:3c                 dup 
  01db:35 06              ldi 6 
  01dd:1a                 eq? 
  01de:31 25              bnt code_0205 
  01e0:38 00c8          pushi c8 // $c8 setLoop
  01e3:78               push1 
  01e4:7a               push2 
  01e5:72 0358          lofsa $0540 // Clarence
  01e8:4a 06             send 6 

  01ea:39 07            pushi 7 // $7 cel
  01ec:78               push1 
  01ed:78               push1 
  01ee:74 034f          lofss $0540 // Clarence
  01f1:43 0e 02         callk NumCels 2 

  01f4:36                push 
  01f5:35 01              ldi 1 
  01f7:04                 sub 
  01f8:36                push 
  01f9:72 0344          lofsa $0540 // Clarence
  01fc:4a 06             send 6 

  01fe:35 01              ldi 1 
  0200:65 10             aTop cycles 
  0202:32 00ae            jmp code_02b3 

        code_0205
  0205:3c                 dup 
  0206:35 07              ldi 7 
  0208:1a                 eq? 
  0209:31 36              bnt code_0241 
  020b:39 7e            pushi 7e // $7e setCycle
  020d:78               push1 
  020e:51 1b            class Beg 
  0210:36                push 
  0211:72 032c          lofsa $0540 // Clarence
  0214:4a 06             send 6 

  0216:7a               push2 
  0217:78               push1 
  0218:39 04            pushi 4 // $4 x
  021a:43 40 04         callk Random 4 

  021d:36                push 
  021e:3c                 dup 
  021f:35 01              ldi 1 
  0221:1a                 eq? 
  0222:31 06              bnt code_022a 
  0224:35 00              ldi 0 
  0226:65 0a             aTop state 
  0228:33 0a              jmp code_0234 

        code_022a
  022a:3c                 dup 
  022b:35 03              ldi 3 
  022d:1a                 eq? 
  022e:31 04              bnt code_0234 
  0230:35 08              ldi 8 
  0232:65 0a             aTop state 

        code_0234
  0234:3a                toss 
  0235:7a               push2 
  0236:39 03            pushi 3 // $3 y
  0238:39 06            pushi 6 // $6 loop
  023a:43 40 04         callk Random 4 

  023d:65 12             aTop seconds 
  023f:33 72              jmp code_02b3 

        code_0241
  0241:3c                 dup 
  0242:35 08              ldi 8 
  0244:1a                 eq? 
  0245:31 1b              bnt code_0262 
  0247:39 7e            pushi 7e // $7e setCycle
  0249:78               push1 
  024a:51 1a            class End 
  024c:36                push 
  024d:72 02f0          lofsa $0540 // Clarence
  0250:4a 06             send 6 

  0252:35 06              ldi 6 
  0254:65 0a             aTop state 
  0256:7a               push2 
  0257:39 03            pushi 3 // $3 y
  0259:39 06            pushi 6 // $6 loop
  025b:43 40 04         callk Random 4 

  025e:65 12             aTop seconds 
  0260:33 51              jmp code_02b3 

        code_0262
  0262:3c                 dup 
  0263:35 09              ldi 9 
  0265:1a                 eq? 
  0266:31 1f              bnt code_0287 
  0268:38 00c8          pushi c8 // $c8 setLoop
  026b:78               push1 
  026c:39 09            pushi 9 // $9 nsTop
  026e:39 07            pushi 7 // $7 cel
  0270:78               push1 
  0271:76               push0 
  0272:39 7e            pushi 7e // $7e setCycle
  0274:78               push1 
  0275:51 1a            class End 
  0277:36                push 
  0278:72 02c5          lofsa $0540 // Clarence
  027b:4a 12             send 12 

  027d:7a               push2 
  027e:78               push1 
  027f:7a               push2 
  0280:43 40 04         callk Random 4 

  0283:65 12             aTop seconds 
  0285:33 2c              jmp code_02b3 

        code_0287
  0287:3c                 dup 
  0288:35 0a              ldi a 
  028a:1a                 eq? 
  028b:31 26              bnt code_02b3 
  028d:39 7e            pushi 7e // $7e setCycle
  028f:78               push1 
  0290:51 1b            class Beg 
  0292:36                push 
  0293:72 02aa          lofsa $0540 // Clarence
  0296:4a 06             send 6 

  0298:7a               push2 
  0299:39 03            pushi 3 // $3 y
  029b:39 06            pushi 6 // $6 loop
  029d:43 40 04         callk Random 4 

  02a0:65 12             aTop seconds 
  02a2:67 12             pTos seconds 
  02a4:35 05              ldi 5 
  02a6:22                 lt? 
  02a7:31 06              bnt code_02af 
  02a9:35 00              ldi 0 
  02ab:65 0a             aTop state 
  02ad:33 04              jmp code_02b3 

        code_02af
  02af:35 05              ldi 5 
  02b1:65 0a             aTop state 

        code_02b3
  02b3:3a                toss 
  02b4:48                 ret 
    )

)

// 053a
(instance Clarence of Act
    (properties
        y $4a
        x $ab
        z $0
        heading $0
        yStep $2
        view $191
        loop $1
        cel $0
        priority $0
        underBits $0
        signal $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
        lsTop $0
        lsLeft $0
        lsBottom $0
        lsRight $0
        brTop $0
        brLeft $0
        brBottom $0
        brRight $0
        cycleSpeed $0
        script $0
        cycler $0
        timer $0
        illegalBits $8000
        xLast $0
        yLast $0
        xStep $3
        moveSpeed $0
        blocks $0
        baseSetter $0
        mover $0
        looper $0
        viewer $0
        avoider $0
    )
    (method (handleEvent) // method_02b5
  02b5:78               push1 
  02b6:74 020d          lofss $04c6 // look/glass,boire
  02b9:43 25 02         callk Said 2 

  02bc:31 0e              bnt code_02cc 
  02be:7a               push2 
  02bf:38 0110          pushi 110 // $110 disable
  02c2:76               push0 
  02c3:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  02c9:32 01c6            jmp code_0492 

        code_02cc
  02cc:78               push1 
  02cd:74 01db          lofss $04ab // get/boire,glass,alcohol
  02d0:43 25 02         callk Said 2 

  02d3:31 0e              bnt code_02e3 
  02d5:7a               push2 
  02d6:38 0110          pushi 110 // $110 disable
  02d9:78               push1 
  02da:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  02e0:32 01af            jmp code_0492 

        code_02e3
  02e3:78               push1 
  02e4:74 01d9          lofss $04c0 // look/butt
  02e7:43 25 02         callk Said 2 

  02ea:31 0e              bnt code_02fa 
  02ec:7a               push2 
  02ed:38 0110          pushi 110 // $110 disable
  02f0:7a               push2 
  02f1:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  02f7:32 0198            jmp code_0492 

        code_02fa
  02fa:78               push1 
  02fb:74 01a7          lofss $04a5 // get/butt
  02fe:43 25 02         callk Said 2 

  0301:31 0f              bnt code_0312 
  0303:7a               push2 
  0304:38 0110          pushi 110 // $110 disable
  0307:39 03            pushi 3 // $3 y
  0309:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  030f:32 0180            jmp code_0492 

        code_0312
  0312:78               push1 
  0313:74 0189          lofss $049f // boire/alcohol
  0316:43 25 02         callk Said 2 

  0319:31 0f              bnt code_032a 
  031b:7a               push2 
  031c:38 0110          pushi 110 // $110 disable
  031f:39 04            pushi 4 // $4 x
  0321:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0327:32 0168            jmp code_0492 

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

  0337:31 1b              bnt code_0354 
  0339:88 00cf            lsg global207 
  033c:35 40              ldi 40 
  033e:12                 and 
  033f:18                 not 
  0340:31 12              bnt code_0354 
  0342:39 4c            pushi 4c // $4c claimed
  0344:78               push1 
  0345:78               push1 
  0346:87 01              lap param1 
  0348:4a 06             send 6 

  034a:78               push1 
  034b:74 0325          lofss $0673 // clarence
  034e:45 19 02         callb procedure_0019 2 // DoLook 

  0351:32 013e            jmp code_0492 

        code_0354
  0354:88 00cf            lsg global207 
  0357:35 40              ldi 40 
  0359:12                 and 
  035a:31 2f              bnt code_038b 
  035c:39 03            pushi 3 // $3 y
  035e:7c            pushSelf 
  035f:8f 01              lsp param1 
  0361:39 03            pushi 3 // $3 y
  0363:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  0369:2f 09               bt code_0374 
  036b:78               push1 
  036c:74 014b          lofss $04ba // look/attorney
  036f:43 25 02         callk Said 2 

  0372:31 17              bnt code_038b 

        code_0374
  0374:39 4c            pushi 4c // $4c claimed
  0376:78               push1 
  0377:78               push1 
  0378:87 01              lap param1 
  037a:4a 06             send 6 

  037c:7a               push2 
  037d:38 0110          pushi 110 // $110 disable
  0380:39 05            pushi 5 // $5 view
  0382:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0388:32 0107            jmp code_0492 

        code_038b
  038b:39 22            pushi 22 // $22 type
  038d:76               push0 
  038e:87 01              lap param1 
  0390:4a 04             send 4 

  0392:36                push 
  0393:34 0080            ldi 80 
  0396:1a                 eq? 
  0397:30 00f8            bnt code_0492 
  039a:78               push1 
  039b:74 00fa          lofss $0498 // */attorney>
  039e:43 25 02         callk Said 2 

  03a1:30 00ee            bnt code_0492 
  03a4:78               push1 
  03a5:74 0127          lofss $04cf // bonjour
  03a8:43 25 02         callk Said 2 

  03ab:30 00cf            bnt code_047d 
  03ae:35 07              ldi 7 
  03b0:a0 00d5            sag global213 
  03b3:8b 00              lsl local0 
  03b5:3c                 dup 
  03b6:35 00              ldi 0 
  03b8:1a                 eq? 
  03b9:31 0e              bnt code_03c9 
  03bb:39 03            pushi 3 // $3 y
  03bd:78               push1 
  03be:38 0110          pushi 110 // $110 disable
  03c1:39 06            pushi 6 // $6 loop
  03c3:45 01 06         callb procedure_0001 6 // Say 

  03c6:32 00af            jmp code_0478 

        code_03c9
  03c9:3c                 dup 
  03ca:35 01              ldi 1 
  03cc:1a                 eq? 
  03cd:31 1e              bnt code_03ed 
  03cf:39 03            pushi 3 // $3 y
  03d1:78               push1 
  03d2:38 0110          pushi 110 // $110 disable
  03d5:39 07            pushi 7 // $7 cel
  03d7:45 01 06         callb procedure_0001 6 // Say 

  03da:35 0c              ldi c 
  03dc:a0 00d5            sag global213 
  03df:39 03            pushi 3 // $3 y
  03e1:78               push1 
  03e2:38 0110          pushi 110 // $110 disable
  03e5:39 08            pushi 8 // $8 underBits
  03e7:45 01 06         callb procedure_0001 6 // Say 

  03ea:32 008b            jmp code_0478 

        code_03ed
  03ed:3c                 dup 
  03ee:35 02              ldi 2 
  03f0:1a                 eq? 
  03f1:31 0d              bnt code_0400 
  03f3:39 03            pushi 3 // $3 y
  03f5:78               push1 
  03f6:38 0110          pushi 110 // $110 disable
  03f9:39 09            pushi 9 // $9 nsTop
  03fb:45 01 06         callb procedure_0001 6 // Say 

  03fe:33 78              jmp code_0478 

        code_0400
  0400:3c                 dup 
  0401:35 03              ldi 3 
  0403:1a                 eq? 
  0404:31 1d              bnt code_0423 
  0406:39 03            pushi 3 // $3 y
  0408:78               push1 
  0409:38 0110          pushi 110 // $110 disable
  040c:39 0a            pushi a // $a nsLeft
  040e:45 01 06         callb procedure_0001 6 // Say 

  0411:35 0c              ldi c 
  0413:a0 00d5            sag global213 
  0416:39 03            pushi 3 // $3 y
  0418:78               push1 
  0419:38 0110          pushi 110 // $110 disable
  041c:39 0b            pushi b // $b nsBottom
  041e:45 01 06         callb procedure_0001 6 // Say 

  0421:33 55              jmp code_0478 

        code_0423
  0423:3c                 dup 
  0424:35 04              ldi 4 
  0426:1a                 eq? 
  0427:31 0d              bnt code_0436 
  0429:39 03            pushi 3 // $3 y
  042b:78               push1 
  042c:38 0110          pushi 110 // $110 disable
  042f:39 0c            pushi c // $c nsRight
  0431:45 01 06         callb procedure_0001 6 // Say 

  0434:33 42              jmp code_0478 

        code_0436
  0436:3c                 dup 
  0437:35 05              ldi 5 
  0439:1a                 eq? 
  043a:31 1d              bnt code_0459 
  043c:39 03            pushi 3 // $3 y
  043e:78               push1 
  043f:38 0110          pushi 110 // $110 disable
  0442:39 0d            pushi d // $d lsTop
  0444:45 01 06         callb procedure_0001 6 // Say 

  0447:35 0c              ldi c 
  0449:a0 00d5            sag global213 
  044c:39 03            pushi 3 // $3 y
  044e:78               push1 
  044f:38 0110          pushi 110 // $110 disable
  0452:39 0e            pushi e // $e lsLeft
  0454:45 01 06         callb procedure_0001 6 // Say 

  0457:33 1f              jmp code_0478 

        code_0459
  0459:3c                 dup 
  045a:35 06              ldi 6 
  045c:1a                 eq? 
  045d:31 0d              bnt code_046c 
  045f:39 03            pushi 3 // $3 y
  0461:78               push1 
  0462:38 0110          pushi 110 // $110 disable
  0465:39 0f            pushi f // $f lsBottom
  0467:45 01 06         callb procedure_0001 6 // Say 

  046a:33 0c              jmp code_0478 

        code_046c
  046c:7a               push2 
  046d:38 0110          pushi 110 // $110 disable
  0470:39 10            pushi 10 // $10 lsRight
  0472:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0478
  0478:3a                toss 
  0479:c3 00              +al local0 
  047b:33 15              jmp code_0492 

        code_047d
  047d:78               push1 
  047e:74 0036          lofss $04b7 // ecouter
  0481:43 25 02         callk Said 2 

  0484:31 0c              bnt code_0492 
  0486:7a               push2 
  0487:38 0110          pushi 110 // $110 disable
  048a:39 11            pushi 11 // $11 signal
  048c:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0492
  0492:48                 ret 
  0493:00                bnot 
    )

)

// 05a2
(instance ClarAss of Prop
    (properties
        y $66
        x $a8
        z $0
        heading $0
        yStep $2
        view $191
        loop $0
        cel $2
        priority $0
        underBits $0
        signal $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
        lsTop $0
        lsLeft $0
        lsBottom $0
        lsRight $0
        brTop $0
        brLeft $0
        brBottom $0
        brRight $0
        cycleSpeed $0
        script $0
        cycler $0
        timer $0
    )
)

// 05f0
(instance Smoke of Prop
    (properties
        y $3c
        x $a7
        z $0
        heading $0
        yStep $2
        view $191
        loop $6
        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
    )
)



