(script 410)

(string
    string_08f2 "InvSaids"
    string_08fb ""
)

(said
    said_076a (look<dans),open/bidon[<huile]
    said_077d //agenda
    said_0782 //monocle>
    said_0788 //chanson
    said_078d /empreinte
    said_0791 /monocle>
    said_0796 <dans
    said_079a ask,raconter>
    said_07a1 ask/*<for
    said_07aa ask//*<for
    said_07b4 attach,charger/bullet/derringer
    said_07c0 clore
    said_07c3 detach,decharger/bullet[/derringer<de]
    said_07d4 debarrasser
    said_07d7 avaler
    said_07da avaler>
    said_07de eteindre,eteindre,(rotate<off)
    said_07ec get,get/huile<de/bidon
    said_07fb get>
    said_07ff deliver,hold>
    said_0806 allumer
    said_0809 allumer,(rotate<on)
    said_0814 charger/derringer
    said_081a look
    said_081d look/empreinte>
    said_0824 look<dans>
    said_082b look<actionner<monocle>
    said_0835 look>
    said_0839 look[<at]/monocle>
    said_0845 huile[/*]
    said_084d open,(look<dans)
    said_0858 open,(look<dans)/boite
    said_0866 open,(look<dans)/derringer
    said_0874 open,etudier,(look<dans)
    said_0882 frotter
    said_0885 etudier,open,(look<dans)
    said_0893 rotate/page
    said_0899 fumee/butt
    said_089f balancer
    said_08a2 decharger/derringer
    said_08a8 actionner
    said_08ab porter,(attach<on)
    said_08b6 ecrire
)

(local
)

// 08c0
(instance public InvSaids of Script
    (properties
        client $0
        state $ffff
        start $0
        timer $0
        cycles $0
        seconds $0
        lastSeconds $0
        register $0
        script $0
        caller $0
    )
    (method (handleEvent) // method_000c
  000c:3f 33             link 33 // (var $33)
  000e:38 00ee          pushi ee // $ee has
  0011:78               push1 
  0012:39 03            pushi 3 // $3 y
  0014:81 00              lag gEgo 
  0016:4a 06             send 6 

  0018:31 40              bnt code_005a 
  001a:78               push1 
  001b:74 07ce          lofss $07ec // get,get/huile<de/bidon
  001e:43 25 02         callk Said 2 

  0021:31 0d              bnt code_0030 
  0023:7a               push2 
  0024:38 019a          pushi 19a // $19a sel_410
  0027:76               push0 
  0028:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  002e:33 2a              jmp code_005a 

        code_0030
  0030:78               push1 
  0031:74 0736          lofss $076a // (look<dans),open/bidon[<huile]
  0034:43 25 02         callk Said 2 

  0037:31 0d              bnt code_0046 
  0039:7a               push2 
  003a:38 019a          pushi 19a // $19a sel_410
  003d:78               push1 
  003e:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0044:33 14              jmp code_005a 

        code_0046
  0046:78               push1 
  0047:74 07fb          lofss $0845 // huile[/*]
  004a:43 25 02         callk Said 2 

  004d:31 0b              bnt code_005a 
  004f:7a               push2 
  0050:38 019a          pushi 19a // $19a sel_410
  0053:7a               push2 
  0054:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_005a
  005a:78               push1 
  005b:74 0733          lofss $0791 // /monocle>
  005e:43 25 02         callk Said 2 

  0061:2f 13               bt code_0076 
  0063:78               push1 
  0064:74 071b          lofss $0782 // //monocle>
  0067:43 25 02         callk Said 2 

  006a:2f 0a               bt code_0076 
  006c:78               push1 
  006d:74 07bb          lofss $082b // look<actionner<monocle>
  0070:43 25 02         callk Said 2 

  0073:30 0155            bnt code_01cb 

        code_0076
  0076:78               push1 
  0077:74 07bf          lofss $0839 // look[<at]/monocle>
  007a:43 25 02         callk Said 2 

  007d:18                 not 
  007e:30 014a            bnt code_01cb 
  0081:38 00ee          pushi ee // $ee has
  0084:78               push1 
  0085:78               push1 
  0086:81 00              lag gEgo 
  0088:4a 06             send 6 

  008a:18                 not 
  008b:31 17              bnt code_00a4 
  008d:39 4c            pushi 4c // $4c claimed
  008f:78               push1 
  0090:78               push1 
  0091:87 01              lap param1 
  0093:4a 06             send 6 

  0095:7a               push2 
  0096:38 019a          pushi 19a // $19a sel_410
  0099:39 03            pushi 3 // $3 y
  009b:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  00a1:32 0127            jmp code_01cb 

        code_00a4
  00a4:78               push1 
  00a5:74 0803          lofss $08ab // porter,(attach<on)
  00a8:43 25 02         callk Said 2 

  00ab:31 0f              bnt code_00bc 
  00ad:7a               push2 
  00ae:38 019a          pushi 19a // $19a sel_410
  00b1:39 04            pushi 4 // $4 x
  00b3:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  00b9:32 010f            jmp code_01cb 

        code_00bc
  00bc:78               push1 
  00bd:74 0775          lofss $0835 // look>
  00c0:43 25 02         callk Said 2 

  00c3:30 0105            bnt code_01cb 
  00c6:78               push1 
  00c7:74 06cc          lofss $0796 // <dans
  00ca:43 25 02         callk Said 2 

  00cd:31 0f              bnt code_00de 
  00cf:7a               push2 
  00d0:38 019a          pushi 19a // $19a sel_410
  00d3:39 05            pushi 5 // $5 view
  00d5:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  00db:32 00e5            jmp code_01c3 

        code_00de
  00de:78               push1 
  00df:74 06ab          lofss $078d // /empreinte
  00e2:43 25 02         callk Said 2 

  00e5:31 14              bnt code_00fb 
  00e7:39 4c            pushi 4c // $4c claimed
  00e9:78               push1 
  00ea:76               push0 
  00eb:87 01              lap param1 
  00ed:4a 06             send 6 

  00ef:39 7a            pushi 7a // $7a setScript
  00f1:78               push1 
  00f2:76               push0 
  00f3:63 08             pToa client 
  00f5:4a 06             send 6 

  00f7:48                 ret 
  00f8:32 00c8            jmp code_01c3 

        code_00fb
  00fb:80 00e0            lag global224 
  00fe:18                 not 
  00ff:31 07              bnt code_0108 
  0101:76               push0 
  0102:45 0d 00         callb procedure_000d 0 // DontHave 

  0105:32 00bb            jmp code_01c3 

        code_0108
  0108:88 00ab            lsg global171 
  010b:3c                 dup 
  010c:35 17              ldi 17 
  010e:1a                 eq? 
  010f:31 1d              bnt code_012e 
  0111:39 06            pushi 6 // $6 loop
  0113:38 019a          pushi 19a // $19a sel_410
  0116:39 06            pushi 6 // $6 loop
  0118:39 52            pushi 52 // $52 icon
  011a:38 027a          pushi 27a // $27a sel_634
  011d:76               push0 
  011e:76               push0 
  011f:46 00ff 0000 0c  calle ff procedure_0000 c // Print 

  0125:78               push1 
  0126:39 06            pushi 6 // $6 loop
  0128:45 05 02         callb procedure_0005 2 // SetFlag 

  012b:32 0094            jmp code_01c2 

        code_012e
  012e:3c                 dup 
  012f:35 04              ldi 4 
  0131:1a                 eq? 
  0132:31 1c              bnt code_0150 
  0134:39 06            pushi 6 // $6 loop
  0136:38 019a          pushi 19a // $19a sel_410
  0139:39 07            pushi 7 // $7 cel
  013b:39 52            pushi 52 // $52 icon
  013d:38 027f          pushi 27f // $27f sel_639
  0140:76               push0 
  0141:76               push0 
  0142:46 00ff 0000 0c  calle ff procedure_0000 c // Print 

  0148:78               push1 
  0149:39 07            pushi 7 // $7 cel
  014b:45 05 02         callb procedure_0005 2 // SetFlag 

  014e:33 72              jmp code_01c2 

        code_0150
  0150:3c                 dup 
  0151:35 06              ldi 6 
  0153:1a                 eq? 
  0154:31 1c              bnt code_0172 
  0156:39 06            pushi 6 // $6 loop
  0158:38 019a          pushi 19a // $19a sel_410
  015b:39 08            pushi 8 // $8 underBits
  015d:39 52            pushi 52 // $52 icon
  015f:38 0278          pushi 278 // $278 sel_632
  0162:76               push0 
  0163:76               push0 
  0164:46 00ff 0000 0c  calle ff procedure_0000 c // Print 

  016a:78               push1 
  016b:39 08            pushi 8 // $8 underBits
  016d:45 05 02         callb procedure_0005 2 // SetFlag 

  0170:33 50              jmp code_01c2 

        code_0172
  0172:3c                 dup 
  0173:35 09              ldi 9 
  0175:1a                 eq? 
  0176:31 1c              bnt code_0194 
  0178:39 06            pushi 6 // $6 loop
  017a:38 019a          pushi 19a // $19a sel_410
  017d:39 09            pushi 9 // $9 nsTop
  017f:39 52            pushi 52 // $52 icon
  0181:38 027c          pushi 27c // $27c sel_636
  0184:76               push0 
  0185:76               push0 
  0186:46 00ff 0000 0c  calle ff procedure_0000 c // Print 

  018c:78               push1 
  018d:39 09            pushi 9 // $9 nsTop
  018f:45 05 02         callb procedure_0005 2 // SetFlag 

  0192:33 2e              jmp code_01c2 

        code_0194
  0194:3c                 dup 
  0195:35 13              ldi 13 
  0197:1a                 eq? 
  0198:31 1c              bnt code_01b6 
  019a:39 06            pushi 6 // $6 loop
  019c:38 019a          pushi 19a // $19a sel_410
  019f:39 0a            pushi a // $a nsLeft
  01a1:39 52            pushi 52 // $52 icon
  01a3:38 027d          pushi 27d // $27d sel_637
  01a6:76               push0 
  01a7:76               push0 
  01a8:46 00ff 0000 0c  calle ff procedure_0000 c // Print 

  01ae:78               push1 
  01af:39 0c            pushi c // $c nsRight
  01b1:45 05 02         callb procedure_0005 2 // SetFlag 

  01b4:33 0c              jmp code_01c2 

        code_01b6
  01b6:7a               push2 
  01b7:38 019a          pushi 19a // $19a sel_410
  01ba:39 0b            pushi b // $b nsBottom
  01bc:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_01c2
  01c2:3a                toss 

        code_01c3
  01c3:39 4c            pushi 4c // $4c claimed
  01c5:78               push1 
  01c6:78               push1 
  01c7:87 01              lap param1 
  01c9:4a 06             send 6 


        code_01cb
  01cb:39 4c            pushi 4c // $4c claimed
  01cd:76               push0 
  01ce:87 01              lap param1 
  01d0:4a 04             send 4 

  01d2:31 09              bnt code_01dd 
  01d4:39 7a            pushi 7a // $7a setScript
  01d6:78               push1 
  01d7:76               push0 
  01d8:63 08             pToa client 
  01da:4a 06             send 6 

  01dc:48                 ret 

        code_01dd
  01dd:35 00              ldi 0 
  01df:a5 00              sat temp0 
  01e1:78               push1 
  01e2:74 062f          lofss $0814 // charger/derringer
  01e5:43 25 02         callk Said 2 

  01e8:2f 09               bt code_01f3 
  01ea:78               push1 
  01eb:74 05c6          lofss $07b4 // attach,charger/bullet/derringer
  01ee:43 25 02         callk Said 2 

  01f1:31 5f              bnt code_0252 

        code_01f3
  01f3:80 00b9            lag global185 
  01f6:31 0e              bnt code_0206 
  01f8:7a               push2 
  01f9:38 019a          pushi 19a // $19a sel_410
  01fc:39 0c            pushi c // $c nsRight
  01fe:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0204:33 49              jmp code_024f 

        code_0206
  0206:38 00ee          pushi ee // $ee has
  0209:78               push1 
  020a:39 0f            pushi f // $f lsBottom
  020c:81 00              lag gEgo 
  020e:4a 06             send 6 

  0210:31 31              bnt code_0243 
  0212:38 00ee          pushi ee // $ee has
  0215:78               push1 
  0216:39 0e            pushi e // $e lsLeft
  0218:81 00              lag gEgo 
  021a:4a 06             send 6 

  021c:31 17              bnt code_0235 
  021e:76               push0 
  021f:45 16 00         callb procedure_0016 0 // Ok 

  0222:38 00ed          pushi ed // $ed put
  0225:7a               push2 
  0226:39 0e            pushi e // $e lsLeft
  0228:39 63            pushi 63 // $63 firstTrue
  022a:81 00              lag gEgo 
  022c:4a 08             send 8 

  022e:35 01              ldi 1 
  0230:a0 00b9            sag global185 
  0233:33 0c              jmp code_0241 

        code_0235
  0235:7a               push2 
  0236:38 019a          pushi 19a // $19a sel_410
  0239:39 0d            pushi d // $d lsTop
  023b:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0241
  0241:33 0c              jmp code_024f 

        code_0243
  0243:7a               push2 
  0244:38 019a          pushi 19a // $19a sel_410
  0247:39 0e            pushi e // $e lsLeft
  0249:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_024f
  024f:32 04ed            jmp code_073f 

        code_0252
  0252:78               push1 
  0253:74 056d          lofss $07c3 // detach,decharger/bullet[/derringer<de]
  0256:43 25 02         callk Said 2 

  0259:2f 09               bt code_0264 
  025b:78               push1 
  025c:74 0643          lofss $08a2 // decharger/derringer
  025f:43 25 02         callk Said 2 

  0262:31 3c              bnt code_02a0 

        code_0264
  0264:80 00b9            lag global185 
  0267:31 0e              bnt code_0277 
  0269:7a               push2 
  026a:38 019a          pushi 19a // $19a sel_410
  026d:39 0f            pushi f // $f lsBottom
  026f:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0275:33 26              jmp code_029d 

        code_0277
  0277:38 00ee          pushi ee // $ee has
  027a:78               push1 
  027b:39 0f            pushi f // $f lsBottom
  027d:81 00              lag gEgo 
  027f:4a 06             send 6 

  0281:31 0e              bnt code_0291 
  0283:7a               push2 
  0284:38 019a          pushi 19a // $19a sel_410
  0287:39 10            pushi 10 // $10 lsRight
  0289:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  028f:33 0c              jmp code_029d 

        code_0291
  0291:7a               push2 
  0292:38 019a          pushi 19a // $19a sel_410
  0295:39 0e            pushi e // $e lsLeft
  0297:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_029d
  029d:32 049f            jmp code_073f 

        code_02a0
  02a0:78               push1 
  02a1:74 05c2          lofss $0866 // open,(look<dans)/derringer
  02a4:43 25 02         callk Said 2 

  02a7:31 3c              bnt code_02e5 
  02a9:80 00b9            lag global185 
  02ac:31 0e              bnt code_02bc 
  02ae:7a               push2 
  02af:38 019a          pushi 19a // $19a sel_410
  02b2:39 11            pushi 11 // $11 signal
  02b4:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  02ba:33 26              jmp code_02e2 

        code_02bc
  02bc:38 00ee          pushi ee // $ee has
  02bf:78               push1 
  02c0:39 0f            pushi f // $f lsBottom
  02c2:81 00              lag gEgo 
  02c4:4a 06             send 6 

  02c6:31 0e              bnt code_02d6 
  02c8:7a               push2 
  02c9:38 019a          pushi 19a // $19a sel_410
  02cc:39 12            pushi 12 // $12 illegalBits
  02ce:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  02d4:33 0c              jmp code_02e2 

        code_02d6
  02d6:7a               push2 
  02d7:38 019a          pushi 19a // $19a sel_410
  02da:39 0e            pushi e // $e lsLeft
  02dc:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_02e2
  02e2:32 045a            jmp code_073f 

        code_02e5
  02e5:80 00e0            lag global224 
  02e8:31 54              bnt code_033e 
  02ea:78               push1 
  02eb:74 052f          lofss $081d // look/empreinte>
  02ee:43 25 02         callk Said 2 

  02f1:31 4b              bnt code_033e 
  02f3:78               push1 
  02f4:74 0486          lofss $077d // //agenda
  02f7:43 25 02         callk Said 2 

  02fa:31 1c              bnt code_0318 
  02fc:39 06            pushi 6 // $6 loop
  02fe:38 019a          pushi 19a // $19a sel_410
  0301:39 0a            pushi a // $a nsLeft
  0303:39 52            pushi 52 // $52 icon
  0305:38 027d          pushi 27d // $27d sel_637
  0308:76               push0 
  0309:76               push0 
  030a:46 00ff 0000 0c  calle ff procedure_0000 c // Print 

  0310:78               push1 
  0311:39 0c            pushi c // $c nsRight
  0313:45 05 02         callb procedure_0005 2 // SetFlag 

  0316:33 23              jmp code_033b 

        code_0318
  0318:78               push1 
  0319:74 046c          lofss $0788 // //chanson
  031c:43 25 02         callk Said 2 

  031f:31 1a              bnt code_033b 
  0321:39 06            pushi 6 // $6 loop
  0323:38 019a          pushi 19a // $19a sel_410
  0326:39 09            pushi 9 // $9 nsTop
  0328:39 52            pushi 52 // $52 icon
  032a:38 027c          pushi 27c // $27c sel_636
  032d:76               push0 
  032e:76               push0 
  032f:46 00ff 0000 0c  calle ff procedure_0000 c // Print 

  0335:78               push1 
  0336:39 09            pushi 9 // $9 nsTop
  0338:45 05 02         callb procedure_0005 2 // SetFlag 


        code_033b
  033b:32 0401            jmp code_073f 

        code_033e
  033e:78               push1 
  033f:74 0557          lofss $0899 // fumee/butt
  0342:43 25 02         callk Said 2 

  0345:31 0f              bnt code_0356 
  0347:7a               push2 
  0348:38 019a          pushi 19a // $19a sel_410
  034b:39 13            pushi 13 // $13 brTop
  034d:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0353:32 03e9            jmp code_073f 

        code_0356
  0356:78               push1 
  0357:74 04a1          lofss $07fb // get>
  035a:43 25 02         callk Said 2 

  035d:31 31              bnt code_0390 
  035f:80 00e0            lag global224 
  0362:31 0e              bnt code_0372 
  0364:76               push0 
  0365:45 0a 00         callb procedure_000a 0 // AlreadyTook 

  0368:39 4c            pushi 4c // $4c claimed
  036a:78               push1 
  036b:78               push1 
  036c:87 01              lap param1 
  036e:4a 06             send 6 

  0370:33 1b              jmp code_038d 

        code_0372
  0372:38 0082          pushi 82 // $82 owner
  0375:76               push0 
  0376:80 00db            lag global219 
  0379:4a 04             send 4 

  037b:36                push 
  037c:81 0b              lag gCurRoomNum 
  037e:1c                 ne? 
  037f:31 0c              bnt code_038d 
  0381:76               push0 
  0382:45 12 00         callb procedure_0012 0 // NotHere 

  0385:39 4c            pushi 4c // $4c claimed
  0387:78               push1 
  0388:78               push1 
  0389:87 01              lap param1 
  038b:4a 06             send 6 


        code_038d
  038d:32 03af            jmp code_073f 

        code_0390
  0390:78               push1 
  0391:74 040d          lofss $07a1 // ask/*<for
  0394:43 25 02         callk Said 2 

  0397:2f 09               bt code_03a2 
  0399:78               push1 
  039a:74 040d          lofss $07aa // ask//*<for
  039d:43 25 02         callk Said 2 

  03a0:31 1a              bnt code_03bc 

        code_03a2
  03a2:80 00e0            lag global224 
  03a5:31 06              bnt code_03ad 
  03a7:76               push0 
  03a8:45 0a 00         callb procedure_000a 0 // AlreadyTook 

  03ab:33 0c              jmp code_03b9 

        code_03ad
  03ad:7a               push2 
  03ae:38 019a          pushi 19a // $19a sel_410
  03b1:39 14            pushi 14 // $14 brLeft
  03b3:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_03b9
  03b9:32 0383            jmp code_073f 

        code_03bc
  03bc:78               push1 
  03bd:74 03da          lofss $079a // ask,raconter>
  03c0:43 25 02         callk Said 2 

  03c3:31 0c              bnt code_03d1 
  03c5:39 7a            pushi 7a // $7a setScript
  03c7:78               push1 
  03c8:76               push0 
  03c9:63 08             pToa client 
  03cb:4a 06             send 6 

  03cd:48                 ret 
  03ce:32 036e            jmp code_073f 

        code_03d1
  03d1:80 00e0            lag global224 
  03d4:18                 not 
  03d5:31 0f              bnt code_03e6 
  03d7:39 4c            pushi 4c // $4c claimed
  03d9:78               push1 
  03da:78               push1 
  03db:87 01              lap param1 
  03dd:4a 06             send 6 

  03df:76               push0 
  03e0:45 0d 00         callb procedure_000d 0 // DontHave 

  03e3:32 0359            jmp code_073f 

        code_03e6
  03e6:78               push1 
  03e7:74 03ea          lofss $07d4 // debarrasser
  03ea:43 25 02         callk Said 2 

  03ed:31 0f              bnt code_03fe 
  03ef:7a               push2 
  03f0:38 019a          pushi 19a // $19a sel_410
  03f3:39 15            pushi 15 // $15 brBottom
  03f5:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  03fb:32 0341            jmp code_073f 

        code_03fe
  03fe:78               push1 
  03ff:74 049d          lofss $089f // balancer
  0402:43 25 02         callk Said 2 

  0405:31 0f              bnt code_0416 
  0407:7a               push2 
  0408:38 019a          pushi 19a // $19a sel_410
  040b:39 16            pushi 16 // $16 brRight
  040d:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0413:32 0329            jmp code_073f 

        code_0416
  0416:78               push1 
  0417:74 040a          lofss $0824 // look<dans>
  041a:43 25 02         callk Said 2 

  041d:18                 not 
  041e:31 14              bnt code_0434 
  0420:78               push1 
  0421:74 03f6          lofss $081a // look
  0424:43 25 02         callk Said 2 

  0427:31 0b              bnt code_0434 
  0429:39 5a            pushi 5a // $5a showSelf
  042b:76               push0 
  042c:80 00db            lag global219 
  042f:4a 04             send 4 

  0431:32 030b            jmp code_073f 

        code_0434
  0434:78               push1 
  0435:74 0470          lofss $08a8 // actionner
  0438:43 25 02         callk Said 2 

  043b:31 3c              bnt code_0479 
  043d:39 04            pushi 4 // $4 x
  043f:5b 04 01           lea 4 1 
  0442:36                push 
  0443:38 019a          pushi 19a // $19a sel_410
  0446:39 17            pushi 17 // $17 name
  0448:39 17            pushi 17 // $17 name
  044a:76               push0 
  044b:80 00db            lag global219 
  044e:4a 04             send 4 

  0450:36                push 
  0451:43 4c 08         callk Format 8 

  0454:39 03            pushi 3 // $3 y
  0456:78               push1 
  0457:5b 04 01           lea 4 1 
  045a:36                push 
  045b:43 47 02         callk StrEnd 2 

  045e:36                push 
  045f:35 01              ldi 1 
  0461:04                 sub 
  0462:36                push 
  0463:38 019a          pushi 19a // $19a sel_410
  0466:39 18            pushi 18 // $18 key
  0468:43 4c 06         callk Format 6 

  046b:78               push1 
  046c:5b 04 01           lea 4 1 
  046f:36                push 
  0470:46 00ff 0000 02  calle ff procedure_0000 2 // Print 

  0476:32 02c6            jmp code_073f 

        code_0479
  0479:78               push1 
  047a:74 0382          lofss $07ff // deliver,hold>
  047d:43 25 02         callk Said 2 

  0480:31 0c              bnt code_048e 
  0482:39 7a            pushi 7a // $7a setScript
  0484:78               push1 
  0485:76               push0 
  0486:63 08             pToa client 
  0488:4a 06             send 6 

  048a:48                 ret 
  048b:32 02b1            jmp code_073f 

        code_048e
  048e:88 00ab            lsg global171 
  0491:3c                 dup 
  0492:35 13              ldi 13 
  0494:1a                 eq? 
  0495:31 5f              bnt code_04f6 
  0497:78               push1 
  0498:74 041b          lofss $08b6 // ecrire
  049b:43 25 02         callk Said 2 

  049e:31 0e              bnt code_04ae 
  04a0:7a               push2 
  04a1:38 019a          pushi 19a // $19a sel_410
  04a4:39 19            pushi 19 // $19 time
  04a6:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  04ac:33 45              jmp code_04f3 

        code_04ae
  04ae:78               push1 
  04af:74 03c2          lofss $0874 // open,etudier,(look<dans)
  04b2:43 25 02         callk Said 2 

  04b5:31 38              bnt code_04ef 
  04b7:7a               push2 
  04b8:38 019a          pushi 19a // $19a sel_410
  04bb:39 1a            pushi 1a // $1a text
  04bd:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  04c3:7a               push2 
  04c4:38 019a          pushi 19a // $19a sel_410
  04c7:39 1b            pushi 1b // $1b elements
  04c9:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  04cf:7a               push2 
  04d0:38 019a          pushi 19a // $19a sel_410
  04d3:39 1c            pushi 1c // $1c color
  04d5:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  04db:7a               push2 
  04dc:38 019a          pushi 19a // $19a sel_410
  04df:39 1d            pushi 1d // $1d back
  04e1:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  04e7:78               push1 
  04e8:39 03            pushi 3 // $3 y
  04ea:45 05 02         callb procedure_0005 2 // SetFlag 

  04ed:33 04              jmp code_04f3 

        code_04ef
  04ef:35 01              ldi 1 
  04f1:a5 00              sat temp0 

        code_04f3
  04f3:32 0248            jmp code_073e 

        code_04f6
  04f6:3c                 dup 
  04f7:35 16              ldi 16 
  04f9:1a                 eq? 
  04fa:31 1e              bnt code_051a 
  04fc:78               push1 
  04fd:74 034d          lofss $084d // open,(look<dans)
  0500:43 25 02         callk Said 2 

  0503:31 0e              bnt code_0513 
  0505:7a               push2 
  0506:38 019a          pushi 19a // $19a sel_410
  0509:39 1e            pushi 1e // $1e mode
  050b:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0511:33 04              jmp code_0517 

        code_0513
  0513:35 01              ldi 1 
  0515:a5 00              sat temp0 

        code_0517
  0517:32 0224            jmp code_073e 

        code_051a
  051a:3c                 dup 
  051b:35 0b              ldi b 
  051d:1a                 eq? 
  051e:30 0087            bnt code_05a8 
  0521:78               push1 
  0522:74 0333          lofss $0858 // open,(look<dans)/boite
  0525:43 25 02         callk Said 2 

  0528:31 47              bnt code_0571 
  052a:88 0088            lsg global136 
  052d:3c                 dup 
  052e:35 00              ldi 0 
  0530:1a                 eq? 
  0531:31 0e              bnt code_0541 
  0533:7a               push2 
  0534:38 019a          pushi 19a // $19a sel_410
  0537:39 1f            pushi 1f // $1f style
  0539:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  053f:33 2d              jmp code_056e 

        code_0541
  0541:3c                 dup 
  0542:35 01              ldi 1 
  0544:1a                 eq? 
  0545:31 0e              bnt code_0555 
  0547:7a               push2 
  0548:38 019a          pushi 19a // $19a sel_410
  054b:39 20            pushi 20 // $20 state
  054d:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0553:33 19              jmp code_056e 

        code_0555
  0555:78               push1 
  0556:39 04            pushi 4 // $4 x
  0558:5b 04 01           lea 4 1 
  055b:36                push 
  055c:38 019a          pushi 19a // $19a sel_410
  055f:39 21            pushi 21 // $21 font
  0561:88 0088            lsg global136 
  0564:43 4c 08         callk Format 8 

  0567:36                push 
  0568:46 00ff 0000 02  calle ff procedure_0000 2 // Print 


        code_056e
  056e:3a                toss 
  056f:33 34              jmp code_05a5 

        code_0571
  0571:78               push1 
  0572:74 0262          lofss $07d7 // avaler
  0575:43 25 02         callk Said 2 

  0578:31 27              bnt code_05a1 
  057a:88 0088            lsg global136 
  057d:35 00              ldi 0 
  057f:1e                 gt? 
  0580:31 11              bnt code_0593 
  0582:7a               push2 
  0583:38 019a          pushi 19a // $19a sel_410
  0586:39 22            pushi 22 // $22 type
  0588:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  058e:e0 0088            -ag global136 
  0591:33 0c              jmp code_059f 

        code_0593
  0593:7a               push2 
  0594:38 019a          pushi 19a // $19a sel_410
  0597:39 23            pushi 23 // $23 window
  0599:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_059f
  059f:33 04              jmp code_05a5 

        code_05a1
  05a1:35 01              ldi 1 
  05a3:a5 00              sat temp0 

        code_05a5
  05a5:32 0196            jmp code_073e 

        code_05a8
  05a8:3c                 dup 
  05a9:35 10              ldi 10 
  05ab:1a                 eq? 
  05ac:31 2a              bnt code_05d8 
  05ae:78               push1 
  05af:74 0254          lofss $0806 // allumer
  05b2:43 25 02         callk Said 2 

  05b5:31 1a              bnt code_05d1 
  05b7:7a               push2 
  05b8:38 019a          pushi 19a // $19a sel_410
  05bb:39 24            pushi 24 // $24 cursor
  05bd:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  05c3:7a               push2 
  05c4:38 019a          pushi 19a // $19a sel_410
  05c7:39 25            pushi 25 // $25 max
  05c9:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  05cf:33 04              jmp code_05d5 

        code_05d1
  05d1:35 01              ldi 1 
  05d3:a5 00              sat temp0 

        code_05d5
  05d5:32 0166            jmp code_073e 

        code_05d8
  05d8:3c                 dup 
  05d9:35 11              ldi 11 
  05db:1a                 eq? 
  05dc:31 31              bnt code_060f 
  05de:78               push1 
  05df:74 01f8          lofss $07da // avaler>
  05e2:43 25 02         callk Said 2 

  05e5:31 21              bnt code_0608 
  05e7:7a               push2 
  05e8:38 019a          pushi 19a // $19a sel_410
  05eb:39 26            pushi 26 // $26 mark
  05ed:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  05f3:38 00ed          pushi ed // $ed put
  05f6:7a               push2 
  05f7:39 11            pushi 11 // $11 signal
  05f9:76               push0 
  05fa:81 00              lag gEgo 
  05fc:4a 08             send 8 

  05fe:39 4c            pushi 4c // $4c claimed
  0600:78               push1 
  0601:78               push1 
  0602:87 01              lap param1 
  0604:4a 06             send 6 

  0606:33 04              jmp code_060c 

        code_0608
  0608:35 01              ldi 1 
  060a:a5 00              sat temp0 

        code_060c
  060c:32 012f            jmp code_073e 

        code_060f
  060f:3c                 dup 
  0610:35 00              ldi 0 
  0612:1a                 eq? 
  0613:31 35              bnt code_064a 
  0615:78               push1 
  0616:74 0292          lofss $08ab // porter,(attach<on)
  0619:43 25 02         callk Said 2 

  061c:31 0e              bnt code_062c 
  061e:7a               push2 
  061f:38 019a          pushi 19a // $19a sel_410
  0622:39 27            pushi 27 // $27 who
  0624:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  062a:33 1b              jmp code_0647 

        code_062c
  062c:78               push1 
  062d:74 0252          lofss $0882 // frotter
  0630:43 25 02         callk Said 2 

  0633:31 0e              bnt code_0643 
  0635:7a               push2 
  0636:38 019a          pushi 19a // $19a sel_410
  0639:39 28            pushi 28 // $28 message
  063b:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0641:33 04              jmp code_0647 

        code_0643
  0643:35 01              ldi 1 
  0645:a5 00              sat temp0 

        code_0647
  0647:32 00f4            jmp code_073e 

        code_064a
  064a:3c                 dup 
  064b:35 02              ldi 2 
  064d:1a                 eq? 
  064e:30 0095            bnt code_06e6 
  0651:78               push1 
  0652:74 01f8          lofss $084d // open,(look<dans)
  0655:43 25 02         callk Said 2 

  0658:31 0e              bnt code_0668 
  065a:7a               push2 
  065b:38 019a          pushi 19a // $19a sel_410
  065e:39 29            pushi 29 // $29 edit
  0660:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0666:33 7c              jmp code_06e4 

        code_0668
  0668:78               push1 
  0669:74 019d          lofss $0809 // allumer,(rotate<on)
  066c:43 25 02         callk Said 2 

  066f:31 40              bnt code_06b1 
  0671:38 00ee          pushi ee // $ee has
  0674:78               push1 
  0675:39 10            pushi 10 // $10 lsRight
  0677:81 00              lag gEgo 
  0679:4a 06             send 6 

  067b:31 26              bnt code_06a3 
  067d:80 0089            lag global137 
  0680:31 0e              bnt code_0690 
  0682:7a               push2 
  0683:38 019a          pushi 19a // $19a sel_410
  0686:39 2a            pushi 2a // $2a play
  0688:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  068e:33 11              jmp code_06a1 

        code_0690
  0690:7a               push2 
  0691:38 019a          pushi 19a // $19a sel_410
  0694:39 2b            pushi 2b // $2b number
  0696:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  069c:35 01              ldi 1 
  069e:a0 0089            sag global137 

        code_06a1
  06a1:33 0c              jmp code_06af 

        code_06a3
  06a3:7a               push2 
  06a4:38 019a          pushi 19a // $19a sel_410
  06a7:39 2c            pushi 2c // $2c handle
  06a9:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_06af
  06af:33 33              jmp code_06e4 

        code_06b1
  06b1:78               push1 
  06b2:74 0129          lofss $07de // eteindre,eteindre,(rotate<off)
  06b5:43 25 02         callk Said 2 

  06b8:31 26              bnt code_06e0 
  06ba:80 0089            lag global137 
  06bd:31 13              bnt code_06d2 
  06bf:35 00              ldi 0 
  06c1:a0 0089            sag global137 
  06c4:7a               push2 
  06c5:38 019a          pushi 19a // $19a sel_410
  06c8:39 2d            pushi 2d // $2d client
  06ca:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  06d0:33 0c              jmp code_06de 

        code_06d2
  06d2:7a               push2 
  06d3:38 019a          pushi 19a // $19a sel_410
  06d6:39 2e            pushi 2e // $2e dx
  06d8:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_06de
  06de:33 04              jmp code_06e4 

        code_06e0
  06e0:35 01              ldi 1 
  06e2:a5 00              sat temp0 

        code_06e4
  06e4:33 58              jmp code_073e 

        code_06e6
  06e6:3c                 dup 
  06e7:35 0a              ldi a 
  06e9:1a                 eq? 
  06ea:31 52              bnt code_073e 
  06ec:78               push1 
  06ed:74 0195          lofss $0885 // etudier,open,(look<dans)
  06f0:43 25 02         callk Said 2 

  06f3:2f 09               bt code_06fe 
  06f5:78               push1 
  06f6:74 019a          lofss $0893 // rotate/page
  06f9:43 25 02         callk Said 2 

  06fc:31 0e              bnt code_070c 

        code_06fe
  06fe:7a               push2 
  06ff:38 019a          pushi 19a // $19a sel_410
  0702:39 2f            pushi 2f // $2f dy
  0704:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  070a:33 32              jmp code_073e 

        code_070c
  070c:78               push1 
  070d:74 00b0          lofss $07c0 // clore
  0710:43 25 02         callk Said 2 

  0713:31 0e              bnt code_0723 
  0715:7a               push2 
  0716:38 019a          pushi 19a // $19a sel_410
  0719:39 30            pushi 30 // $30 b-moveCnt
  071b:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0721:33 1b              jmp code_073e 

        code_0723
  0723:78               push1 
  0724:74 018f          lofss $08b6 // ecrire
  0727:43 25 02         callk Said 2 

  072a:31 0e              bnt code_073a 
  072c:7a               push2 
  072d:38 019a          pushi 19a // $19a sel_410
  0730:39 31            pushi 31 // $31 b-i1
  0732:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0738:33 04              jmp code_073e 

        code_073a
  073a:35 01              ldi 1 
  073c:a5 00              sat temp0 

        code_073e
  073e:3a                toss 

        code_073f
  073f:85 00              lat temp0 
  0741:31 0c              bnt code_074f 
  0743:76               push0 
  0744:45 0c 00         callb procedure_000c 0 // CantDo 

  0747:39 4c            pushi 4c // $4c claimed
  0749:78               push1 
  074a:78               push1 
  074b:87 01              lap param1 
  074d:4a 06             send 6 


        code_074f
  074f:39 7a            pushi 7a // $7a setScript
  0751:78               push1 
  0752:76               push0 
  0753:63 08             pToa client 
  0755:4a 06             send 6 

  0757:48                 ret 
    )

    (method (dispose) // method_0758
  0758:39 58            pushi 58 // $58 dispose
  075a:76               push0 
  075b:57 05 04         super Script 4 

  075e:78               push1 
  075f:38 019a          pushi 19a // $19a sel_410
  0762:43 03 02         callk DisposeScript 2 

  0765:48                 ret 
    )

)



