(script 231)

(string
    string_0ba2 "Colonel"
    string_0baa "Fifi"
    string_0baf "Glow"
    string_0bb4 "Kiss"
    string_0bb9 "colonel"
    string_0bc1 "colonelActions"
    string_0bd0 "fifiActions"
    string_0bdc "kiss"
    string_0be1 "kisscolo"
    string_0bea "smoke1"
    string_0bf1 "smoke2"
)

(said
    said_086e /colonel,person
    said_0875 /fifi>
    said_087a ask,raconter/fifi/*<about
    said_0889 embrace
    said_088c get
    said_088f get,bouger,appuyer/fauteuilroulant
    said_089b get/butt
    said_08a1 deliver,hold
    said_08a7 deliver,hold/*/fifi
    said_08b3 deliver,hold/*<fifi
    said_08bf abattre
    said_08c2 embrasser
    said_08c5 ecouter/fifi,colonel
    said_08ce look/butt
    said_08d4 look/colonel
    said_08da look/fifi
    said_08e0 look/gens
    said_08e6 bonjour,look/person
    said_08ef bonjour/fifi
    said_08f5 bonjour/gens
    said_08fb bonjour>
)

(synonym
    colonel | henri = fellow | gars | gentleman | guy | homme | man | type
    fifi | maid = dame | femme | fille | girl | lady | maiden | woman
    butt | cigar | cigare | megot = cigarette
)

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

// 0906
(instance public kisscolo of Rgn
    (properties
        script $0
        number $0
        timer $0
        keep $0
        initialized $0
    )
    (method (init) // method_001e
  001e:39 57            pushi 57 // $57 init
  0020:76               push0 
  0021:57 36 04         super Rgn 4 

  0024:39 03            pushi 3 // $3 y
  0026:38 0087          pushi 87 // $87 clean
  0029:39 04            pushi 4 // $4 x
  002b:39 29            pushi 29 // $29 edit
  002d:45 15 06         callb procedure_0015 6 // LoadMany 

  0030:7a               push2 
  0031:38 0082          pushi 82 // $82 owner
  0034:38 03d9          pushi 3d9 // $3d9 sel_985
  0037:43 00 04         callk Load 4 

  003a:39 04            pushi 4 // $4 x
  003c:38 0080          pushi 80 // $80 timeLeft
  003f:38 01d6          pushi 1d6 // $1d6 sel_470
  0042:38 0282          pushi 282 // $282 sel_642
  0045:38 038d          pushi 38d // $38d sel_909
  0048:45 15 08         callb procedure_0015 8 // LoadMany 

  004b:39 06            pushi 6 // $6 loop
  004d:38 0084          pushi 84 // $84 stop
  0050:39 1d            pushi 1d // $1d back
  0052:39 33            pushi 33 // $33 b-di
  0054:39 5e            pushi 5e // $5e respondsTo
  0056:39 5f            pushi 5f // $5f yourself
  0058:39 60            pushi 60 // $60 size
  005a:45 15 0c         callb procedure_0015 c // LoadMany 

  005d:39 04            pushi 4 // $4 x
  005f:38 008f          pushi 8f // $8f moveTo
  0062:38 00f3          pushi f3 // $f3 close
  0065:38 00e1          pushi e1 // $e1 alterEgo
  0068:38 0196          pushi 196 // $196 sel_406
  006b:45 15 08         callb procedure_0015 8 // LoadMany 

  006e:34 0200            ldi 200 
  0071:a0 00d0            sag global208 
  0074:34 00e1            ldi e1 
  0077:a0 0182            sag global386 
  007a:88 00a5            lsg gAct 
  007d:35 00              ldi 0 
  007f:1a                 eq? 
  0080:31 5e              bnt code_00e0 
  0082:88 0173            lsg global371 
  0085:35 00              ldi 0 
  0087:1a                 eq? 
  0088:31 56              bnt code_00e0 
  008a:34 0708            ldi 708 
  008d:a0 0173            sag global371 
  0090:39 04            pushi 4 // $4 x
  0092:38 0080          pushi 80 // $80 timeLeft
  0095:38 0130          pushi 130 // $130 loopIndex
  0098:38 01d0          pushi 1d0 // $1d0 sel_464
  009b:38 0388          pushi 388 // $388 sel_904
  009e:45 15 08         callb procedure_0015 8 // LoadMany 

  00a1:35 10              ldi 10 
  00a3:a0 00c3            sag global195 
  00a6:39 05            pushi 5 // $5 view
  00a8:78               push1 
  00a9:38 01d2          pushi 1d2 // $1d2 sel_466
  00ac:38 00d4          pushi d4 // $d4 setAvoider
  00af:78               push1 
  00b0:39 56            pushi 56 // $56 new
  00b2:76               push0 
  00b3:51 21            class Avoid 
  00b5:4a 04             send 4 

  00b7:36                push 
  00b8:39 57            pushi 57 // $57 init
  00ba:76               push0 
  00bb:38 0089          pushi 89 // $89 hide
  00be:76               push0 
  00bf:72 0a4c          lofsa $0b0e // Fifi
  00c2:4a 14             send 14 

  00c4:39 05            pushi 5 // $5 view
  00c6:78               push1 
  00c7:38 01d2          pushi 1d2 // $1d2 sel_466
  00ca:39 57            pushi 57 // $57 init
  00cc:76               push0 
  00cd:38 00c6          pushi c6 // $c6 stopUpd
  00d0:76               push0 
  00d1:72 08fe          lofsa $09d2 // Colonel
  00d4:4a 0e             send e 

  00d6:39 7a            pushi 7a // $7a setScript
  00d8:78               push1 
  00d9:74 0862          lofss $093e // kiss
  00dc:54 06             self 6 

  00de:33 52              jmp code_0132 

        code_00e0
  00e0:88 0173            lsg global371 
  00e3:35 01              ldi 1 
  00e5:1c                 ne? 
  00e6:31 32              bnt code_011a 
  00e8:89 7c              lsg global124 
  00ea:35 00              ldi 0 
  00ec:1a                 eq? 
  00ed:31 2b              bnt code_011a 
  00ef:35 10              ldi 10 
  00f1:a0 00c3            sag global195 
  00f4:39 05            pushi 5 // $5 view
  00f6:78               push1 
  00f7:38 01d0          pushi 1d0 // $1d0 sel_464
  00fa:38 00d4          pushi d4 // $d4 setAvoider
  00fd:78               push1 
  00fe:39 56            pushi 56 // $56 new
  0100:76               push0 
  0101:51 21            class Avoid 
  0103:4a 04             send 4 

  0105:36                push 
  0106:39 57            pushi 57 // $57 init
  0108:76               push0 
  0109:39 12            pushi 12 // $12 illegalBits
  010b:78               push1 
  010c:38 8004          pushi 8004 // $8004 sel_32772
  010f:39 7a            pushi 7a // $7a setScript
  0111:78               push1 
  0112:74 085d          lofss $0972 // fifiActions
  0115:72 09f6          lofsa $0b0e // Fifi
  0118:4a 1c             send 1c 


        code_011a
  011a:39 05            pushi 5 // $5 view
  011c:78               push1 
  011d:38 0130          pushi 130 // $130 loopIndex
  0120:39 57            pushi 57 // $57 init
  0122:76               push0 
  0123:38 00c6          pushi c6 // $c6 stopUpd
  0126:76               push0 
  0127:39 7a            pushi 7a // $7a setScript
  0129:78               push1 
  012a:74 0875          lofss $09a2 // colonelActions
  012d:72 08a2          lofsa $09d2 // Colonel
  0130:4a 14             send 14 


        code_0132
  0132:38 00c5          pushi c5 // $c5 posn
  0135:7a               push2 
  0136:39 04            pushi 4 // $4 x
  0138:76               push0 
  0139:72 0896          lofsa $09d2 // Colonel
  013c:4a 04             send 4 

  013e:36                push 
  013f:35 0a              ldi a 
  0141:02                 add 
  0142:36                push 
  0143:39 03            pushi 3 // $3 y
  0145:76               push0 
  0146:72 0889          lofsa $09d2 // Colonel
  0149:4a 04             send 4 

  014b:36                push 
  014c:39 55            pushi 55 // $55 z
  014e:78               push1 
  014f:39 1d            pushi 1d // $1d back
  0151:39 57            pushi 57 // $57 init
  0153:76               push0 
  0154:38 0089          pushi 89 // $89 hide
  0157:76               push0 
  0158:72 0965          lofsa $0ac0 // Glow
  015b:4a 16             send 16 

  015d:38 00c5          pushi c5 // $c5 posn
  0160:7a               push2 
  0161:39 04            pushi 4 // $4 x
  0163:76               push0 
  0164:72 086b          lofsa $09d2 // Colonel
  0167:4a 04             send 4 

  0169:36                push 
  016a:35 06              ldi 6 
  016c:02                 add 
  016d:36                push 
  016e:39 03            pushi 3 // $3 y
  0170:76               push0 
  0171:72 085e          lofsa $09d2 // Colonel
  0174:4a 04             send 4 

  0176:36                push 
  0177:35 1e              ldi 1e 
  0179:04                 sub 
  017a:36                push 
  017b:39 42            pushi 42 // $42 setPri
  017d:78               push1 
  017e:78               push1 
  017f:39 03            pushi 3 // $3 y
  0181:76               push0 
  0182:72 084d          lofsa $09d2 // Colonel
  0185:4a 04             send 4 

  0187:36                push 
  0188:43 65 02         callk CoordPri 2 

  018b:36                push 
  018c:39 57            pushi 57 // $57 init
  018e:76               push0 
  018f:38 0089          pushi 89 // $89 hide
  0192:76               push0 
  0193:72 088e          lofsa $0a24 // smoke1
  0196:4a 16             send 16 

  0198:38 00c5          pushi c5 // $c5 posn
  019b:7a               push2 
  019c:39 04            pushi 4 // $4 x
  019e:76               push0 
  019f:72 0830          lofsa $09d2 // Colonel
  01a2:4a 04             send 4 

  01a4:36                push 
  01a5:35 0b              ldi b 
  01a7:02                 add 
  01a8:36                push 
  01a9:39 03            pushi 3 // $3 y
  01ab:76               push0 
  01ac:72 0823          lofsa $09d2 // Colonel
  01af:4a 04             send 4 

  01b1:36                push 
  01b2:35 18              ldi 18 
  01b4:04                 sub 
  01b5:36                push 
  01b6:39 42            pushi 42 // $42 setPri
  01b8:78               push1 
  01b9:78               push1 
  01ba:39 03            pushi 3 // $3 y
  01bc:76               push0 
  01bd:72 0812          lofsa $09d2 // Colonel
  01c0:4a 04             send 4 

  01c2:36                push 
  01c3:43 65 02         callk CoordPri 2 

  01c6:36                push 
  01c7:39 57            pushi 57 // $57 init
  01c9:76               push0 
  01ca:38 0089          pushi 89 // $89 hide
  01cd:76               push0 
  01ce:72 08a1          lofsa $0a72 // smoke2
  01d1:4a 16             send 16 

  01d3:48                 ret 
    )

    (method (doit) // method_01d4
  01d4:39 3c            pushi 3c // $3c doit
  01d6:76               push0 
  01d7:57 36 04         super Rgn 4 

  01da:48                 ret 
    )

    (method (dispose) // method_01db
  01db:78               push1 
  01dc:38 03d9          pushi 3d9 // $3d9 sel_985
  01df:43 03 02         callk DisposeScript 2 

  01e2:39 58            pushi 58 // $58 dispose
  01e4:76               push0 
  01e5:57 36 04         super Rgn 4 

  01e8:48                 ret 
    )

    (method (handleEvent) // method_01e9
  01e9:39 6f            pushi 6f // $6f handleEvent
  01eb:78               push1 
  01ec:8f 01              lsp param1 
  01ee:57 36 06         super Rgn 6 

  01f1:39 4c            pushi 4c // $4c claimed
  01f3:76               push0 
  01f4:87 01              lap param1 
  01f6:4a 04             send 4 

  01f8:31 03              bnt code_01fd 
  01fa:35 01              ldi 1 
  01fc:48                 ret 

        code_01fd
  01fd:39 22            pushi 22 // $22 type
  01ff:76               push0 
  0200:87 01              lap param1 
  0202:4a 04             send 4 

  0204:36                push 
  0205:34 0080            ldi 80 
  0208:1a                 eq? 
  0209:30 00cc            bnt code_02d8 
  020c:78               push1 
  020d:74 06be          lofss $08ce // look/butt
  0210:43 25 02         callk Said 2 

  0213:31 14              bnt code_0229 
  0215:78               push1 
  0216:39 0d            pushi d // $d lsTop
  0218:45 05 02         callb procedure_0005 2 // SetFlag 

  021b:7a               push2 
  021c:38 00e7          pushi e7 // $e7 inputLineAddr
  021f:76               push0 
  0220:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0226:32 00af            jmp code_02d8 

        code_0229
  0229:78               push1 
  022a:74 0698          lofss $08c5 // ecouter/fifi,colonel
  022d:43 25 02         callk Said 2 

  0230:31 0e              bnt code_0240 
  0232:7a               push2 
  0233:38 00e7          pushi e7 // $e7 inputLineAddr
  0236:78               push1 
  0237:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  023d:32 0098            jmp code_02d8 

        code_0240
  0240:78               push1 
  0241:74 0657          lofss $089b // get/butt
  0244:43 25 02         callk Said 2 

  0247:31 0e              bnt code_0257 
  0249:7a               push2 
  024a:38 00e7          pushi e7 // $e7 inputLineAddr
  024d:7a               push2 
  024e:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0254:32 0081            jmp code_02d8 

        code_0257
  0257:78               push1 
  0258:74 06a0          lofss $08fb // bonjour>
  025b:43 25 02         callk Said 2 

  025e:31 78              bnt code_02d8 
  0260:78               push1 
  0261:74 060a          lofss $086e // /colonel,person
  0264:43 25 02         callk Said 2 

  0267:31 6f              bnt code_02d8 
  0269:35 0a              ldi a 
  026b:a0 00d5            sag global213 
  026e:8b 01              lsl local1 
  0270:3c                 dup 
  0271:35 00              ldi 0 
  0273:1a                 eq? 
  0274:31 0d              bnt code_0283 
  0276:39 03            pushi 3 // $3 y
  0278:78               push1 
  0279:38 00e7          pushi e7 // $e7 inputLineAddr
  027c:39 03            pushi 3 // $3 y
  027e:45 01 06         callb procedure_0001 6 // Say 

  0281:33 4b              jmp code_02ce 

        code_0283
  0283:3c                 dup 
  0284:35 01              ldi 1 
  0286:1a                 eq? 
  0287:31 0d              bnt code_0296 
  0289:39 03            pushi 3 // $3 y
  028b:78               push1 
  028c:38 00e7          pushi e7 // $e7 inputLineAddr
  028f:39 04            pushi 4 // $4 x
  0291:45 01 06         callb procedure_0001 6 // Say 

  0294:33 38              jmp code_02ce 

        code_0296
  0296:3c                 dup 
  0297:35 02              ldi 2 
  0299:1a                 eq? 
  029a:31 0d              bnt code_02a9 
  029c:39 03            pushi 3 // $3 y
  029e:78               push1 
  029f:38 00e7          pushi e7 // $e7 inputLineAddr
  02a2:39 05            pushi 5 // $5 view
  02a4:45 01 06         callb procedure_0001 6 // Say 

  02a7:33 25              jmp code_02ce 

        code_02a9
  02a9:3c                 dup 
  02aa:35 03              ldi 3 
  02ac:1a                 eq? 
  02ad:31 0d              bnt code_02bc 
  02af:39 03            pushi 3 // $3 y
  02b1:78               push1 
  02b2:38 00e7          pushi e7 // $e7 inputLineAddr
  02b5:39 06            pushi 6 // $6 loop
  02b7:45 01 06         callb procedure_0001 6 // Say 

  02ba:33 12              jmp code_02ce 

        code_02bc
  02bc:3c                 dup 
  02bd:35 04              ldi 4 
  02bf:1a                 eq? 
  02c0:31 0c              bnt code_02ce 
  02c2:7a               push2 
  02c3:38 00e7          pushi e7 // $e7 inputLineAddr
  02c6:39 07            pushi 7 // $7 cel
  02c8:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_02ce
  02ce:3a                toss 
  02cf:8b 01              lsl local1 
  02d1:35 04              ldi 4 
  02d3:22                 lt? 
  02d4:31 02              bnt code_02d8 
  02d6:c3 01              +al local1 

        code_02d8
  02d8:48                 ret 
    )

)

// 0938
(instance kiss 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_02d9
  02d9:67 0a             pTos state 
  02db:35 01              ldi 1 
  02dd:1a                 eq? 
  02de:31 1f              bnt code_02ff 
  02e0:39 07            pushi 7 // $7 cel
  02e2:76               push0 
  02e3:72 06ec          lofsa $09d2 // Colonel
  02e6:4a 04             send 4 

  02e8:36                push 
  02e9:35 02              ldi 2 
  02eb:1a                 eq? 
  02ec:31 11              bnt code_02ff 
  02ee:39 2b            pushi 2b // $2b number
  02f0:78               push1 
  02f1:39 33            pushi 33 // $33 b-di
  02f3:39 06            pushi 6 // $6 loop
  02f5:78               push1 
  02f6:78               push1 
  02f7:39 2a            pushi 2a // $2a play
  02f9:76               push0 
  02fa:72 0879          lofsa $0b76 // Kiss
  02fd:4a 10             send 10 


        code_02ff
  02ff:39 3c            pushi 3c // $3c doit
  0301:76               push0 
  0302:57 05 04         super Script 4 

  0305:48                 ret 
    )

    (method (changeState) // method_0306
  0306:87 01              lap param1 
  0308:65 0a             aTop state 
  030a:36                push 
  030b:3c                 dup 
  030c:35 00              ldi 0 
  030e:1a                 eq? 
  030f:31 41              bnt code_0352 
  0311:80 00d8            lag global216 
  0314:18                 not 
  0315:31 06              bnt code_031d 
  0317:35 ff              ldi ff 
  0319:65 0a             aTop state 
  031b:33 2e              jmp code_034b 

        code_031d
  031d:89 76              lsg gMustDos 
  031f:35 08              ldi 8 
  0321:12                 and 
  0322:18                 not 
  0323:31 1b              bnt code_0340 
  0325:89 76              lsg gMustDos 
  0327:35 08              ldi 8 
  0329:14                  or 
  032a:a1 76              sag gMustDos 
  032c:39 7a            pushi 7a // $7a setScript
  032e:78               push1 
  032f:7a               push2 
  0330:38 0196          pushi 196 // $196 sel_406
  0333:76               push0 
  0334:43 02 04         callk ScriptID 4 

  0337:36                push 
  0338:54 06             self 6 

  033a:35 ff              ldi ff 
  033c:65 0a             aTop state 
  033e:33 0b              jmp code_034b 

        code_0340
  0340:39 76            pushi 76 // $76 script
  0342:76               push0 
  0343:54 04             self 4 

  0345:31 04              bnt code_034b 
  0347:35 ff              ldi ff 
  0349:65 0a             aTop state 

        code_034b
  034b:35 01              ldi 1 
  034d:65 10             aTop cycles 
  034f:32 00ee            jmp code_0440 

        code_0352
  0352:3c                 dup 
  0353:35 01              ldi 1 
  0355:1a                 eq? 
  0356:31 18              bnt code_0370 
  0358:76               push0 
  0359:45 03 00         callb procedure_0003 0 // HandsOff 

  035c:38 00a4          pushi a4 // $a4 cycleSpeed
  035f:78               push1 
  0360:7a               push2 
  0361:39 7e            pushi 7e // $7e setCycle
  0363:7a               push2 
  0364:51 1a            class End 
  0366:36                push 
  0367:7c            pushSelf 
  0368:72 0667          lofsa $09d2 // Colonel
  036b:4a 0e             send e 

  036d:32 00d0            jmp code_0440 

        code_0370
  0370:3c                 dup 
  0371:35 02              ldi 2 
  0373:1a                 eq? 
  0374:31 6d              bnt code_03e3 
  0376:39 0c            pushi c // $c nsRight
  0378:38 00e7          pushi e7 // $e7 inputLineAddr
  037b:39 08            pushi 8 // $8 underBits
  037d:39 43            pushi 43 // $43 at
  037f:38 008c          pushi 8c // $8c track
  0382:38 0096          pushi 96 // $96 busy
  0385:39 21            pushi 21 // $21 font
  0387:39 04            pushi 4 // $4 x
  0389:39 46            pushi 46 // $46 width
  038b:39 7d            pushi 7d // $7d set
  038d:39 1e            pushi 1e // $1e mode
  038f:78               push1 
  0390:39 58            pushi 58 // $58 dispose
  0392:46 00ff 0000 18  calle ff procedure_0000 18 // Print 

  0398:39 05            pushi 5 // $5 view
  039a:78               push1 
  039b:38 0130          pushi 130 // $130 loopIndex
  039e:38 00c5          pushi c5 // $c5 posn
  03a1:7a               push2 
  03a2:38 00b9          pushi b9 // $b9 nonBumps
  03a5:38 008c          pushi 8c // $8c track
  03a8:39 06            pushi 6 // $6 loop
  03aa:78               push1 
  03ab:76               push0 
  03ac:39 07            pushi 7 // $7 cel
  03ae:78               push1 
  03af:76               push0 
  03b0:38 00a4          pushi a4 // $a4 cycleSpeed
  03b3:78               push1 
  03b4:76               push0 
  03b5:72 061a          lofsa $09d2 // Colonel
  03b8:4a 20             send 20 

  03ba:38 00ca          pushi ca // $ca show
  03bd:76               push0 
  03be:39 05            pushi 5 // $5 view
  03c0:78               push1 
  03c1:38 01d2          pushi 1d2 // $1d2 sel_466
  03c4:39 06            pushi 6 // $6 loop
  03c6:78               push1 
  03c7:78               push1 
  03c8:38 00a4          pushi a4 // $a4 cycleSpeed
  03cb:78               push1 
  03cc:7a               push2 
  03cd:38 00c9          pushi c9 // $c9 ignoreActors
  03d0:78               push1 
  03d1:78               push1 
  03d2:39 7e            pushi 7e // $7e setCycle
  03d4:78               push1 
  03d5:51 16            class Fwd 
  03d7:36                push 
  03d8:72 0733          lofsa $0b0e // Fifi
  03db:4a 22             send 22 

  03dd:35 04              ldi 4 
  03df:65 12             aTop seconds 
  03e1:33 5d              jmp code_0440 

        code_03e3
  03e3:3c                 dup 
  03e4:35 03              ldi 3 
  03e6:1a                 eq? 
  03e7:31 16              bnt code_03ff 
  03e9:39 07            pushi 7 // $7 cel
  03eb:78               push1 
  03ec:76               push0 
  03ed:39 06            pushi 6 // $6 loop
  03ef:78               push1 
  03f0:7a               push2 
  03f1:39 7e            pushi 7e // $7e setCycle
  03f3:7a               push2 
  03f4:51 1a            class End 
  03f6:36                push 
  03f7:7c            pushSelf 
  03f8:72 0713          lofsa $0b0e // Fifi
  03fb:4a 14             send 14 

  03fd:33 41              jmp code_0440 

        code_03ff
  03ff:3c                 dup 
  0400:35 04              ldi 4 
  0402:1a                 eq? 
  0403:31 3b              bnt code_0440 
  0405:76               push0 
  0406:45 04 00         callb procedure_0004 0 // HandsOn 

  0409:76               push0 
  040a:45 0f 00         callb procedure_000f 0 // cls 

  040d:39 7a            pushi 7a // $7a setScript
  040f:78               push1 
  0410:74 058f          lofss $09a2 // colonelActions
  0413:72 05bc          lofsa $09d2 // Colonel
  0416:4a 06             send 6 

  0418:39 05            pushi 5 // $5 view
  041a:78               push1 
  041b:38 01d6          pushi 1d6 // $1d6 sel_470
  041e:39 06            pushi 6 // $6 loop
  0420:78               push1 
  0421:78               push1 
  0422:38 00a4          pushi a4 // $a4 cycleSpeed
  0425:78               push1 
  0426:76               push0 
  0427:39 12            pushi 12 // $12 illegalBits
  0429:78               push1 
  042a:38 8004          pushi 8004 // $8004 sel_32772
  042d:39 7a            pushi 7a // $7a setScript
  042f:78               push1 
  0430:74 053f          lofss $0972 // fifiActions
  0433:72 06d8          lofsa $0b0e // Fifi
  0436:4a 1e             send 1e 

  0438:39 7a            pushi 7a // $7a setScript
  043a:78               push1 
  043b:76               push0 
  043c:63 08             pToa client 
  043e:4a 06             send 6 


        code_0440
  0440:3a                toss 
  0441:48                 ret 
    )

)

// 096c
(instance fifiActions 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_0442
  0442:87 01              lap param1 
  0444:65 0a             aTop state 
  0446:36                push 
  0447:3c                 dup 
  0448:35 00              ldi 0 
  044a:1a                 eq? 
  044b:30 0099            bnt code_04e7 
  044e:7a               push2 
  044f:76               push0 
  0450:39 04            pushi 4 // $4 x
  0452:43 40 04         callk Random 4 

  0455:a3 02              sal local2 
  0457:39 05            pushi 5 // $5 view
  0459:78               push1 
  045a:38 01d0          pushi 1d0 // $1d0 sel_464
  045d:39 7e            pushi 7e // $7e setCycle
  045f:78               push1 
  0460:51 17            class Walk 
  0462:36                push 
  0463:38 00c9          pushi c9 // $c9 ignoreActors
  0466:78               push1 
  0467:76               push0 
  0468:38 00d3          pushi d3 // $d3 setMotion
  046b:39 04            pushi 4 // $4 x
  046d:51 1d            class MoveTo 
  046f:36                push 
  0470:8b 02              lsl local2 
  0472:3c                 dup 
  0473:35 00              ldi 0 
  0475:1a                 eq? 
  0476:31 05              bnt code_047d 
  0478:34 00e1            ldi e1 
  047b:33 29              jmp code_04a6 

        code_047d
  047d:3c                 dup 
  047e:35 01              ldi 1 
  0480:1a                 eq? 
  0481:31 05              bnt code_0488 
  0483:34 00f4            ldi f4 
  0486:33 1e              jmp code_04a6 

        code_0488
  0488:3c                 dup 
  0489:35 02              ldi 2 
  048b:1a                 eq? 
  048c:31 05              bnt code_0493 
  048e:34 00da            ldi da 
  0491:33 13              jmp code_04a6 

        code_0493
  0493:3c                 dup 
  0494:35 03              ldi 3 
  0496:1a                 eq? 
  0497:31 05              bnt code_049e 
  0499:34 0082            ldi 82 
  049c:33 08              jmp code_04a6 

        code_049e
  049e:3c                 dup 
  049f:35 04              ldi 4 
  04a1:1a                 eq? 
  04a2:31 02              bnt code_04a6 
  04a4:35 42              ldi 42 

        code_04a6
  04a6:3a                toss 
  04a7:36                push 
  04a8:8b 02              lsl local2 
  04aa:3c                 dup 
  04ab:35 00              ldi 0 
  04ad:1a                 eq? 
  04ae:31 04              bnt code_04b4 
  04b0:35 7e              ldi 7e 
  04b2:33 28              jmp code_04dc 

        code_04b4
  04b4:3c                 dup 
  04b5:35 01              ldi 1 
  04b7:1a                 eq? 
  04b8:31 05              bnt code_04bf 
  04ba:34 0081            ldi 81 
  04bd:33 1d              jmp code_04dc 

        code_04bf
  04bf:3c                 dup 
  04c0:35 02              ldi 2 
  04c2:1a                 eq? 
  04c3:31 04              bnt code_04c9 
  04c5:35 5a              ldi 5a 
  04c7:33 13              jmp code_04dc 

        code_04c9
  04c9:3c                 dup 
  04ca:35 03              ldi 3 
  04cc:1a                 eq? 
  04cd:31 04              bnt code_04d3 
  04cf:35 5e              ldi 5e 
  04d1:33 09              jmp code_04dc 

        code_04d3
  04d3:3c                 dup 
  04d4:35 04              ldi 4 
  04d6:1a                 eq? 
  04d7:31 03              bnt code_04dc 
  04d9:34 0089            ldi 89 

        code_04dc
  04dc:3a                toss 
  04dd:36                push 
  04de:7c            pushSelf 
  04df:72 062c          lofsa $0b0e // Fifi
  04e2:4a 1e             send 1e 

  04e4:32 00bd            jmp code_05a4 

        code_04e7
  04e7:3c                 dup 
  04e8:35 01              ldi 1 
  04ea:1a                 eq? 
  04eb:31 4f              bnt code_053c 
  04ed:39 05            pushi 5 // $5 view
  04ef:78               push1 
  04f0:38 01d6          pushi 1d6 // $1d6 sel_470
  04f3:39 07            pushi 7 // $7 cel
  04f5:78               push1 
  04f6:76               push0 
  04f7:39 06            pushi 6 // $6 loop
  04f9:78               push1 
  04fa:8b 02              lsl local2 
  04fc:3c                 dup 
  04fd:35 00              ldi 0 
  04ff:1a                 eq? 
  0500:31 04              bnt code_0506 
  0502:35 05              ldi 5 
  0504:33 26              jmp code_052c 

        code_0506
  0506:3c                 dup 
  0507:35 01              ldi 1 
  0509:1a                 eq? 
  050a:31 04              bnt code_0510 
  050c:35 00              ldi 0 
  050e:33 1c              jmp code_052c 

        code_0510
  0510:3c                 dup 
  0511:35 02              ldi 2 
  0513:1a                 eq? 
  0514:31 04              bnt code_051a 
  0516:35 01              ldi 1 
  0518:33 12              jmp code_052c 

        code_051a
  051a:3c                 dup 
  051b:35 03              ldi 3 
  051d:1a                 eq? 
  051e:31 04              bnt code_0524 
  0520:35 01              ldi 1 
  0522:33 08              jmp code_052c 

        code_0524
  0524:3c                 dup 
  0525:35 04              ldi 4 
  0527:1a                 eq? 
  0528:31 02              bnt code_052c 
  052a:35 05              ldi 5 

        code_052c
  052c:3a                toss 
  052d:36                push 
  052e:39 7e            pushi 7e // $7e setCycle
  0530:7a               push2 
  0531:51 1a            class End 
  0533:36                push 
  0534:7c            pushSelf 
  0535:72 05d6          lofsa $0b0e // Fifi
  0538:4a 1a             send 1a 

  053a:33 68              jmp code_05a4 

        code_053c
  053c:3c                 dup 
  053d:35 02              ldi 2 
  053f:1a                 eq? 
  0540:31 48              bnt code_058a 
  0542:39 06            pushi 6 // $6 loop
  0544:78               push1 
  0545:8b 02              lsl local2 
  0547:3c                 dup 
  0548:35 00              ldi 0 
  054a:1a                 eq? 
  054b:31 04              bnt code_0551 
  054d:35 07              ldi 7 
  054f:33 26              jmp code_0577 

        code_0551
  0551:3c                 dup 
  0552:35 01              ldi 1 
  0554:1a                 eq? 
  0555:31 04              bnt code_055b 
  0557:35 02              ldi 2 
  0559:33 1c              jmp code_0577 

        code_055b
  055b:3c                 dup 
  055c:35 02              ldi 2 
  055e:1a                 eq? 
  055f:31 04              bnt code_0565 
  0561:35 03              ldi 3 
  0563:33 12              jmp code_0577 

        code_0565
  0565:3c                 dup 
  0566:35 03              ldi 3 
  0568:1a                 eq? 
  0569:31 04              bnt code_056f 
  056b:35 03              ldi 3 
  056d:33 08              jmp code_0577 

        code_056f
  056f:3c                 dup 
  0570:35 04              ldi 4 
  0572:1a                 eq? 
  0573:31 02              bnt code_0577 
  0575:35 07              ldi 7 

        code_0577
  0577:3a                toss 
  0578:36                push 
  0579:39 7e            pushi 7e // $7e setCycle
  057b:78               push1 
  057c:51 16            class Fwd 
  057e:36                push 
  057f:72 058c          lofsa $0b0e // Fifi
  0582:4a 0c             send c 

  0584:35 04              ldi 4 
  0586:65 12             aTop seconds 
  0588:33 1a              jmp code_05a4 

        code_058a
  058a:3c                 dup 
  058b:35 03              ldi 3 
  058d:1a                 eq? 
  058e:31 14              bnt code_05a4 
  0590:39 07            pushi 7 // $7 cel
  0592:78               push1 
  0593:7a               push2 
  0594:39 7e            pushi 7e // $7e setCycle
  0596:7a               push2 
  0597:51 1b            class Beg 
  0599:36                push 
  059a:7c            pushSelf 
  059b:72 0570          lofsa $0b0e // Fifi
  059e:4a 0e             send e 

  05a0:35 ff              ldi ff 
  05a2:65 0a             aTop state 

        code_05a4
  05a4:3a                toss 
  05a5:48                 ret 
    )

)

// 099c
(instance colonelActions 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_05a6
  05a6:87 01              lap param1 
  05a8:65 0a             aTop state 
  05aa:36                push 
  05ab:3c                 dup 
  05ac:35 00              ldi 0 
  05ae:1a                 eq? 
  05af:31 24              bnt code_05d5 
  05b1:39 07            pushi 7 // $7 cel
  05b3:78               push1 
  05b4:76               push0 
  05b5:38 0089          pushi 89 // $89 hide
  05b8:76               push0 
  05b9:72 04b6          lofsa $0a72 // smoke2
  05bc:4a 0a             send a 

  05be:39 06            pushi 6 // $6 loop
  05c0:78               push1 
  05c1:76               push0 
  05c2:39 07            pushi 7 // $7 cel
  05c4:78               push1 
  05c5:76               push0 
  05c6:39 7e            pushi 7e // $7e setCycle
  05c8:7a               push2 
  05c9:51 1a            class End 
  05cb:36                push 
  05cc:7c            pushSelf 
  05cd:72 0402          lofsa $09d2 // Colonel
  05d0:4a 14             send 14 

  05d2:32 00b5            jmp code_068a 

        code_05d5
  05d5:3c                 dup 
  05d6:35 01              ldi 1 
  05d8:1a                 eq? 
  05d9:31 1e              bnt code_05f9 
  05db:38 00ca          pushi ca // $ca show
  05de:76               push0 
  05df:39 06            pushi 6 // $6 loop
  05e1:78               push1 
  05e2:78               push1 
  05e3:39 07            pushi 7 // $7 cel
  05e5:78               push1 
  05e6:76               push0 
  05e7:39 7e            pushi 7e // $7e setCycle
  05e9:78               push1 
  05ea:51 16            class Fwd 
  05ec:36                push 
  05ed:72 04d0          lofsa $0ac0 // Glow
  05f0:4a 16             send 16 

  05f2:35 12              ldi 12 
  05f4:65 10             aTop cycles 
  05f6:32 0091            jmp code_068a 

        code_05f9
  05f9:3c                 dup 
  05fa:35 02              ldi 2 
  05fc:1a                 eq? 
  05fd:31 2a              bnt code_0629 
  05ff:38 0089          pushi 89 // $89 hide
  0602:76               push0 
  0603:72 04ba          lofsa $0ac0 // Glow
  0606:4a 04             send 4 

  0608:39 06            pushi 6 // $6 loop
  060a:78               push1 
  060b:76               push0 
  060c:39 07            pushi 7 // $7 cel
  060e:78               push1 
  060f:78               push1 
  0610:74 03bf          lofss $09d2 // Colonel
  0613:43 0e 02         callk NumCels 2 

  0616:36                push 
  0617:35 01              ldi 1 
  0619:04                 sub 
  061a:36                push 
  061b:39 7e            pushi 7e // $7e setCycle
  061d:7a               push2 
  061e:51 1b            class Beg 
  0620:36                push 
  0621:7c            pushSelf 
  0622:72 03ad          lofsa $09d2 // Colonel
  0625:4a 14             send 14 

  0627:33 61              jmp code_068a 

        code_0629
  0629:3c                 dup 
  062a:35 03              ldi 3 
  062c:1a                 eq? 
  062d:31 21              bnt code_0650 
  062f:39 7e            pushi 7e // $7e setCycle
  0631:78               push1 
  0632:51 16            class Fwd 
  0634:36                push 
  0635:38 00ca          pushi ca // $ca show
  0638:76               push0 
  0639:72 0436          lofsa $0a72 // smoke2
  063c:4a 0a             send a 

  063e:38 00ca          pushi ca // $ca show
  0641:76               push0 
  0642:39 7e            pushi 7e // $7e setCycle
  0644:7a               push2 
  0645:51 1a            class End 
  0647:36                push 
  0648:7c            pushSelf 
  0649:72 03d8          lofsa $0a24 // smoke1
  064c:4a 0c             send c 

  064e:33 3a              jmp code_068a 

        code_0650
  0650:3c                 dup 
  0651:35 04              ldi 4 
  0653:1a                 eq? 
  0654:31 13              bnt code_0669 
  0656:39 07            pushi 7 // $7 cel
  0658:78               push1 
  0659:76               push0 
  065a:38 0089          pushi 89 // $89 hide
  065d:76               push0 
  065e:72 03c3          lofsa $0a24 // smoke1
  0661:4a 0a             send a 

  0663:35 01              ldi 1 
  0665:65 10             aTop cycles 
  0667:33 21              jmp code_068a 

        code_0669
  0669:3c                 dup 
  066a:35 05              ldi 5 
  066c:1a                 eq? 
  066d:31 1b              bnt code_068a 
  066f:7a               push2 
  0670:78               push1 
  0671:39 64            pushi 64 // $64 allTrue
  0673:43 40 04         callk Random 4 

  0676:36                push 
  0677:35 1e              ldi 1e 
  0679:22                 lt? 
  067a:31 06              bnt code_0682 
  067c:35 ff              ldi ff 
  067e:65 0a             aTop state 
  0680:33 04              jmp code_0686 

        code_0682
  0682:35 04              ldi 4 
  0684:65 0a             aTop state 

        code_0686
  0686:35 05              ldi 5 
  0688:65 12             aTop seconds 

        code_068a
  068a:3a                toss 
  068b:48                 ret 
    )

)

// 09cc
(instance Colonel of Prop
    (properties
        y $8c
        x $b9
        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
    )
    (method (handleEvent) // method_068c
  068c:78               push1 
  068d:74 01ff          lofss $088f // get,bouger,appuyer/fauteuilroulant
  0690:43 25 02         callk Said 2 

  0693:31 0e              bnt code_06a3 
  0695:7a               push2 
  0696:38 00e7          pushi e7 // $e7 inputLineAddr
  0699:39 09            pushi 9 // $9 nsTop
  069b:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  06a1:33 5f              jmp code_0702 

        code_06a3
  06a3:39 03            pushi 3 // $3 y
  06a5:7c            pushSelf 
  06a6:8f 01              lsp param1 
  06a8:39 03            pushi 3 // $3 y
  06aa:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  06b0:31 1b              bnt code_06cd 
  06b2:88 00cf            lsg global207 
  06b5:34 0200            ldi 200 
  06b8:12                 and 
  06b9:18                 not 
  06ba:31 11              bnt code_06cd 
  06bc:39 4c            pushi 4c // $4c claimed
  06be:78               push1 
  06bf:78               push1 
  06c0:87 01              lap param1 
  06c2:4a 06             send 6 

  06c4:78               push1 
  06c5:74 04f1          lofss $0bb9 // colonel
  06c8:45 19 02         callb procedure_0019 2 // DoLook 

  06cb:33 35              jmp code_0702 

        code_06cd
  06cd:88 00cf            lsg global207 
  06d0:34 0200            ldi 200 
  06d3:12                 and 
  06d4:31 2c              bnt code_0702 
  06d6:39 03            pushi 3 // $3 y
  06d8:7c            pushSelf 
  06d9:8f 01              lsp param1 
  06db:39 03            pushi 3 // $3 y
  06dd:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  06e3:2f 09               bt code_06ee 
  06e5:78               push1 
  06e6:74 01eb          lofss $08d4 // look/colonel
  06e9:43 25 02         callk Said 2 

  06ec:31 14              bnt code_0702 

        code_06ee
  06ee:39 4c            pushi 4c // $4c claimed
  06f0:78               push1 
  06f1:78               push1 
  06f2:87 01              lap param1 
  06f4:4a 06             send 6 

  06f6:7a               push2 
  06f7:38 00e7          pushi e7 // $e7 inputLineAddr
  06fa:39 0a            pushi a // $a nsLeft
  06fc:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0702
  0702:48                 ret 
    )

)

// 0a1e
(instance smoke1 of Prop
    (properties
        y $0
        x $0
        z $0
        heading $0
        yStep $2
        view $130
        loop $2
        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
    )
)

// 0a6c
(instance smoke2 of Prop
    (properties
        y $0
        x $0
        z $0
        heading $0
        yStep $2
        view $130
        loop $3
        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
    )
)

// 0aba
(instance Glow of Prop
    (properties
        y $0
        x $0
        z $0
        heading $0
        yStep $2
        view $130
        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
    )
)

// 0b08
(instance Fifi of Act
    (properties
        y $8c
        x $ce
        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_0703
  0703:78               push1 
  0704:74 01df          lofss $08e6 // bonjour,look/person
  0707:43 25 02         callk Said 2 

  070a:31 0f              bnt code_071b 
  070c:7a               push2 
  070d:38 00e7          pushi e7 // $e7 inputLineAddr
  0710:39 0b            pushi b // $b nsBottom
  0712:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0718:32 014e            jmp code_0869 

        code_071b
  071b:78               push1 
  071c:74 01d6          lofss $08f5 // bonjour/gens
  071f:43 25 02         callk Said 2 

  0722:31 0f              bnt code_0733 
  0724:7a               push2 
  0725:38 00e7          pushi e7 // $e7 inputLineAddr
  0728:39 0c            pushi c // $c nsRight
  072a:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0730:32 0136            jmp code_0869 

        code_0733
  0733:78               push1 
  0734:74 01a9          lofss $08e0 // look/gens
  0737:43 25 02         callk Said 2 

  073a:31 0f              bnt code_074b 
  073c:7a               push2 
  073d:38 00e7          pushi e7 // $e7 inputLineAddr
  0740:39 0d            pushi d // $d lsTop
  0742:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0748:32 011e            jmp code_0869 

        code_074b
  074b:78               push1 
  074c:74 012b          lofss $087a // ask,raconter/fifi/*<about
  074f:43 25 02         callk Said 2 

  0752:2f 1b               bt code_076f 
  0754:78               push1 
  0755:74 0197          lofss $08ef // bonjour/fifi
  0758:43 25 02         callk Said 2 

  075b:2f 12               bt code_076f 
  075d:78               push1 
  075e:74 0152          lofss $08b3 // deliver,hold/*<fifi
  0761:43 25 02         callk Said 2 

  0764:2f 09               bt code_076f 
  0766:78               push1 
  0767:74 013d          lofss $08a7 // deliver,hold/*/fifi
  076a:43 25 02         callk Said 2 

  076d:31 46              bnt code_07b5 

        code_076f
  076f:39 4c            pushi 4c // $4c claimed
  0771:78               push1 
  0772:76               push0 
  0773:87 01              lap param1 
  0775:4a 06             send 6 

  0777:78               push1 
  0778:74 0126          lofss $08a1 // deliver,hold
  077b:43 25 02         callk Said 2 

  077e:31 1e              bnt code_079e 
  0780:80 00db            lag global219 
  0783:31 13              bnt code_0798 
  0785:80 00e0            lag global224 
  0788:31 0e              bnt code_0798 
  078a:7a               push2 
  078b:38 00e7          pushi e7 // $e7 inputLineAddr
  078e:39 0e            pushi e // $e lsLeft
  0790:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0796:33 04              jmp code_079c 

        code_0798
  0798:76               push0 
  0799:45 0d 00         callb procedure_000d 0 // DontHave 


        code_079c
  079c:33 14              jmp code_07b2 

        code_079e
  079e:7a               push2 
  079f:38 00e7          pushi e7 // $e7 inputLineAddr
  07a2:39 0e            pushi e // $e lsLeft
  07a4:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  07aa:39 4c            pushi 4c // $4c claimed
  07ac:78               push1 
  07ad:78               push1 
  07ae:87 01              lap param1 
  07b0:4a 06             send 6 


        code_07b2
  07b2:32 00b4            jmp code_0869 

        code_07b5
  07b5:39 03            pushi 3 // $3 y
  07b7:7c            pushSelf 
  07b8:8f 01              lsp param1 
  07ba:39 03            pushi 3 // $3 y
  07bc:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  07c2:2f 09               bt code_07cd 
  07c4:78               push1 
  07c5:74 0112          lofss $08da // look/fifi
  07c8:43 25 02         callk Said 2 

  07cb:31 39              bnt code_0806 

        code_07cd
  07cd:88 00cf            lsg global207 
  07d0:35 10              ldi 10 
  07d2:12                 and 
  07d3:31 0e              bnt code_07e3 
  07d5:7a               push2 
  07d6:38 00e7          pushi e7 // $e7 inputLineAddr
  07d9:39 0f            pushi f // $f lsBottom
  07db:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  07e1:33 19              jmp code_07fc 

        code_07e3
  07e3:88 00cf            lsg global207 
  07e6:35 10              ldi 10 
  07e8:14                  or 
  07e9:a0 00cf            sag global207 
  07ec:35 05              ldi 5 
  07ee:a0 00d5            sag global213 
  07f1:39 03            pushi 3 // $3 y
  07f3:76               push0 
  07f4:38 00e7          pushi e7 // $e7 inputLineAddr
  07f7:39 10            pushi 10 // $10 lsRight
  07f9:45 01 06         callb procedure_0001 6 // Say 


        code_07fc
  07fc:39 4c            pushi 4c // $4c claimed
  07fe:78               push1 
  07ff:78               push1 
  0800:87 01              lap param1 
  0802:4a 06             send 6 

  0804:33 63              jmp code_0869 

        code_0806
  0806:78               push1 
  0807:74 006b          lofss $0875 // /fifi>
  080a:43 25 02         callk Said 2 

  080d:31 5a              bnt code_0869 
  080f:78               push1 
  0810:74 0079          lofss $088c // get
  0813:43 25 02         callk Said 2 

  0816:31 0e              bnt code_0826 
  0818:7a               push2 
  0819:38 00e7          pushi e7 // $e7 inputLineAddr
  081c:39 11            pushi 11 // $11 signal
  081e:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0824:33 43              jmp code_0869 

        code_0826
  0826:78               push1 
  0827:74 0095          lofss $08bf // abattre
  082a:43 25 02         callk Said 2 

  082d:31 0e              bnt code_083d 
  082f:7a               push2 
  0830:38 00e7          pushi e7 // $e7 inputLineAddr
  0833:39 12            pushi 12 // $12 illegalBits
  0835:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  083b:33 2c              jmp code_0869 

        code_083d
  083d:78               push1 
  083e:74 0081          lofss $08c2 // embrasser
  0841:43 25 02         callk Said 2 

  0844:31 0e              bnt code_0854 
  0846:7a               push2 
  0847:38 00e7          pushi e7 // $e7 inputLineAddr
  084a:39 13            pushi 13 // $13 brTop
  084c:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0852:33 15              jmp code_0869 

        code_0854
  0854:78               push1 
  0855:74 0031          lofss $0889 // embrace
  0858:43 25 02         callk Said 2 

  085b:31 0c              bnt code_0869 
  085d:7a               push2 
  085e:38 00e7          pushi e7 // $e7 inputLineAddr
  0861:39 14            pushi 14 // $14 brLeft
  0863:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0869
  0869:48                 ret 
    )

)

// 0b70
(instance Kiss of Sound
    (properties
        state $0
        number $0
        priority $0
        loop $1
        handle $0
        signal $0
        prevSignal $0
        client $0
        owner $0
    )
)



