(script 74)

(string
    string_2460 "Bswing"
    string_2467 "Fifi"
    string_246c "FifiButt"
    string_2475 "Room74"
    string_247c "Tswing"
    string_2483 "bed"
    string_2487 "chair"
    string_248d "chair1"
    string_2494 "chair2"
    string_249b "couch"
    string_24a1 "decanter"
    string_24aa "door"
    string_24af "finishDress"
    string_24bb "flowers"
    string_24c3 "glasses"
    string_24cb "knockDoor"
    string_24d5 "lamp"
    string_24da "lamp1"
    string_24e0 "lamp2"
    string_24e6 "mirror"
    string_24ed "myDoor"
    string_24f4 "myMusic"
    string_24fc "mySound"
    string_2504 "phono"
    string_250a "photo"
    string_2510 "picture"
    string_2518 "primp"
    string_251e "record"
    string_2525 "sofa"
    string_252a "startDress"
    string_2535 "table"
    string_253b "table1"
    string_2542 "table2"
    string_2549 "wardrobe"
)

(said
    said_1abe (look<(below,through)),chercher/dirt,cloth
    said_1ad4 /attic
    said_1ad8 /bedroom
    said_1adc /curtain
    said_1ae0 /dormer
    said_1ae4 /downstair
    said_1ae8 /room<dressing
    said_1aef /escalier
    said_1af3 /fenetre
    said_1af7 <below/carpet
    said_1afe <bas
    said_1b02 <haut
    said_1b06 [<around,at][/room]
    said_1b14 ask,raconter,hold,deliver,look,get,abattre,embrasser,embrace,draguer>
    said_1b33 bang[/door]
    said_1b3b change,(attach<on),porter/cloth
    said_1b4c clore/door
    said_1b52 boire,for,get/carafe,alcohol
    said_1b61 boire/[<alcohol]
    said_1b6a find,enter,(aller[<dans])/attic
    said_1b7d get,get,bouger/cloth
    said_1b89 get/blossom
    said_1b8f get/glass
    said_1b95 get/lamp
    said_1b9b get/miroir
    said_1ba1 get/music,chanson,(joueur<chanson)
    said_1bb2 ecouter/fifi
    said_1bb8 look,(look<at)/carafe/monocle<avec
    said_1bcc look,find/chanson
    said_1bd5 look/armoire
    said_1bdb look/blossom
    said_1be1 look/carafe,alcohol
    said_1bea look/dirt,cloth,pile
    said_1bf6 look/door[<attic]
    said_1c01 look/door[<swinging]
    said_1c0c look/fifi
    said_1c12 look/empreinte
    said_1c18 look/glass
    said_1c1e look/gramophone,armoire,(joueur<chanson)
    said_1c2f look/keyhole
    said_1c35 look/miroir
    said_1c3b look/nightstand
    said_1c41 look/reflection
    said_1c47 look/coiffeuse,(nightstand<dressing)
    said_1c55 look<(behind,below)/miroir
    said_1c63 look<below/bed
    said_1c6c look<dans/carafe,alcohol
    said_1c78 look<dans/glass
    said_1c81 look<dans/miroir
    said_1c8a look<actionner<monocle/carafe
    said_1c96 look>
    said_1c9a open,(look<dans)/armoire
    said_1ca8 open,(look<dans)/coiffeuse,drawer,(nightstand<dressing)
    said_1cc1 open,get/carafe,alcohol
    said_1ccd open/door
    said_1cd3 open/door/cle
    said_1cdc attirer,clore,open/curtain
    said_1ce8 arreter,(rotate<off)/chanson,gramophone
    said_1cf9 bonjour/fifi
    said_1cff actionner,debloquer/cle,door
    said_1d0b vent,jouer,(rotate<on)/gramophone,music,chanson,(joueur<chanson)
)

(synonym
    escalier | stair | staircase | stairway | step = upstair
    debloquer | deverrouiller | unbar | unlatch | unlock = attach | inserer | insert | mettre | place | placer | poser | put | set | stick
    armoire | cabinet | cupboard | hutch | wardrobe = armoire | cabinet | cupboard | hutch | wardrobe
    armoire | cabinet | cupboard | hutch | wardrobe = closet | placard
    fifi | maid = person | personne
    fifi | maid = dame | femme | fille | girl | lady | maiden | woman
    carafe | decanter = bottle | bouteille | jar | jarre
)

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

// 1d30
(instance public Room74 of Rm
    (properties
        script $0
        number $0
        timer $0
        keep $0
        initialized $0
        picture $4a
        style $ffff
        horizon $0
        controls $0
        north $0
        east $0
        south $0
        west $0
        curPic $4a
        picAngle $0
        vanishingX $a0
        vanishingY $8ad0
        vertAngle $0
    )
    (method (init) // method_014c
  014c:35 2f              ldi 2f 
  014e:65 1e             aTop south 
  0150:35 4c              ldi 4c 
  0152:65 20             aTop west 
  0154:78               push1 
  0155:39 08            pushi 8 // $8 underBits
  0157:43 31 02         callk DoSound 2 

  015a:a3 08              sal local8 
  015c:7a               push2 
  015d:38 0081          pushi 81 // $81 prevSignal
  0160:38 00ae          pushi ae // $ae distanceTo
  0163:43 00 04         callk Load 4 

  0166:7a               push2 
  0167:38 0081          pushi 81 // $81 prevSignal
  016a:39 4a            pushi 4a // $4a pragmaFail
  016c:43 00 04         callk Load 4 

  016f:39 57            pushi 57 // $57 init
  0171:76               push0 
  0172:57 37 04         super Rm 4 

  0175:34 00ae            ldi ae 
  0178:a1 39              sag global57 
  017a:89 0c              lsg gPrevRoomNum 
  017c:35 2f              ldi 2f 
  017e:1a                 eq? 
  017f:31 14              bnt code_0195 
  0181:39 42            pushi 42 // $42 setPri
  0183:78               push1 
  0184:39 ff            pushi ff // $ff checkAni
  0186:38 00c5          pushi c5 // $c5 posn
  0189:7a               push2 
  018a:39 2a            pushi 2a // $2a play
  018c:38 00bb          pushi bb // $bb targetY
  018f:81 00              lag gEgo 
  0191:4a 0e             send e 

  0193:33 1d              jmp code_01b2 

        code_0195
  0195:89 0c              lsg gPrevRoomNum 
  0197:35 40              ldi 40 
  0199:1c                 ne? 
  019a:31 0e              bnt code_01aa 
  019c:38 00c5          pushi c5 // $c5 posn
  019f:7a               push2 
  01a0:39 06            pushi 6 // $6 loop
  01a2:39 62            pushi 62 // $62 eachElementDo
  01a4:81 00              lag gEgo 
  01a6:4a 08             send 8 

  01a8:33 08              jmp code_01b2 

        code_01aa
  01aa:78               push1 
  01ab:39 08            pushi 8 // $8 underBits
  01ad:43 31 02         callk DoSound 2 

  01b0:a3 08              sal local8 

        code_01b2
  01b2:39 06            pushi 6 // $6 loop
  01b4:78               push1 
  01b5:89 0c              lsg gPrevRoomNum 
  01b7:35 4a              ldi 4a 
  01b9:1e                 gt? 
  01ba:31 04              bnt code_01c0 
  01bc:35 03              ldi 3 
  01be:33 02              jmp code_01c2 

        code_01c0
  01c0:35 06              ldi 6 

        code_01c2
  01c2:36                push 
  01c3:72 2054          lofsa $221a // door
  01c6:4a 06             send 6 

  01c8:88 00a5            lsg gAct 
  01cb:35 02              ldi 2 
  01cd:20                 ge? 
  01ce:31 1b              bnt code_01eb 
  01d0:88 00a5            lsg gAct 
  01d3:35 05              ldi 5 
  01d5:22                 lt? 
  01d6:31 13              bnt code_01eb 
  01d8:39 61            pushi 61 // $61 add
  01da:78               push1 
  01db:74 1e20          lofss $1ffe // glasses
  01de:81 0a              lag gAddToPics 
  01e0:4a 06             send 6 

  01e2:38 010b          pushi 10b // $10b setFeatures
  01e5:78               push1 
  01e6:74 1e15          lofss $1ffe // glasses
  01e9:54 06             self 6 


        code_01eb
  01eb:88 00a5            lsg gAct 
  01ee:35 02              ldi 2 
  01f0:20                 ge? 
  01f1:31 4e              bnt code_0241 
  01f3:88 00a5            lsg gAct 
  01f6:35 06              ldi 6 
  01f8:22                 lt? 
  01f9:31 13              bnt code_020e 
  01fb:39 61            pushi 61 // $61 add
  01fd:78               push1 
  01fe:74 1e33          lofss $2034 // decanter
  0201:81 0a              lag gAddToPics 
  0203:4a 06             send 6 

  0205:38 010b          pushi 10b // $10b setFeatures
  0208:78               push1 
  0209:74 1e28          lofss $2034 // decanter
  020c:54 06             self 6 


        code_020e
  020e:89 7b              lsg gCorpseFlags 
  0210:35 40              ldi 40 
  0212:12                 and 
  0213:31 2c              bnt code_0241 
  0215:38 00ee          pushi ee // $ee has
  0218:78               push1 
  0219:39 05            pushi 5 // $5 view
  021b:81 00              lag gEgo 
  021d:4a 06             send 6 

  021f:18                 not 
  0220:31 1f              bnt code_0241 
  0222:39 07            pushi 7 // $7 cel
  0224:78               push1 
  0225:38 00a6          pushi a6 // $a6 lastCel
  0228:76               push0 
  0229:72 1fee          lofsa $221a // door
  022c:4a 04             send 4 

  022e:36                push 
  022f:38 00c9          pushi c9 // $c9 ignoreActors
  0232:78               push1 
  0233:78               push1 
  0234:72 1fe3          lofsa $221a // door
  0237:4a 0c             send c 

  0239:89 75              lsg global117 
  023b:34 8000            ldi 8000 
  023e:14                  or 
  023f:a1 75              sag global117 

        code_0241
  0241:7a               push2 
  0242:38 0080          pushi 80 // $80 timeLeft
  0245:39 38            pushi 38 // $38 moveSpeed
  0247:43 00 04         callk Load 4 

  024a:39 03            pushi 3 // $3 y
  024c:38 0084          pushi 84 // $84 stop
  024f:39 2b            pushi 2b // $2b number
  0251:39 30            pushi 30 // $30 b-moveCnt
  0253:45 15 06         callb procedure_0015 6 // LoadMany 

  0256:80 00df            lag gDetailLevel 
  0259:31 32              bnt code_028d 
  025b:39 42            pushi 42 // $42 setPri
  025d:78               push1 
  025e:39 0b            pushi b // $b nsBottom
  0260:39 7e            pushi 7e // $7e setCycle
  0262:78               push1 
  0263:51 16            class Fwd 
  0265:36                push 
  0266:38 00c9          pushi c9 // $c9 ignoreActors
  0269:78               push1 
  026a:78               push1 
  026b:39 57            pushi 57 // $57 init
  026d:76               push0 
  026e:72 1f05          lofsa $2176 // lamp1
  0271:4a 16             send 16 

  0273:39 42            pushi 42 // $42 setPri
  0275:78               push1 
  0276:39 0d            pushi d // $d lsTop
  0278:39 7e            pushi 7e // $7e setCycle
  027a:78               push1 
  027b:51 16            class Fwd 
  027d:36                push 
  027e:38 00c9          pushi c9 // $c9 ignoreActors
  0281:78               push1 
  0282:78               push1 
  0283:39 57            pushi 57 // $57 init
  0285:76               push0 
  0286:72 1f3f          lofsa $21c8 // lamp2
  0289:4a 16             send 16 

  028b:33 2c              jmp code_02b9 

        code_028d
  028d:39 42            pushi 42 // $42 setPri
  028f:78               push1 
  0290:39 0b            pushi b // $b nsBottom
  0292:38 00c9          pushi c9 // $c9 ignoreActors
  0295:78               push1 
  0296:78               push1 
  0297:39 57            pushi 57 // $57 init
  0299:76               push0 
  029a:38 00c6          pushi c6 // $c6 stopUpd
  029d:76               push0 
  029e:72 1ed5          lofsa $2176 // lamp1
  02a1:4a 14             send 14 

  02a3:39 42            pushi 42 // $42 setPri
  02a5:78               push1 
  02a6:39 0d            pushi d // $d lsTop
  02a8:38 00c9          pushi c9 // $c9 ignoreActors
  02ab:78               push1 
  02ac:78               push1 
  02ad:39 57            pushi 57 // $57 init
  02af:76               push0 
  02b0:38 00c6          pushi c6 // $c6 stopUpd
  02b3:76               push0 
  02b4:72 1f11          lofsa $21c8 // lamp2
  02b7:4a 14             send 14 


        code_02b9
  02b9:89 75              lsg global117 
  02bb:34 8000            ldi 8000 
  02be:12                 and 
  02bf:31 0f              bnt code_02d0 
  02c1:39 06            pushi 6 // $6 loop
  02c3:78               push1 
  02c4:39 06            pushi 6 // $6 loop
  02c6:39 07            pushi 7 // $7 cel
  02c8:78               push1 
  02c9:39 03            pushi 3 // $3 y
  02cb:72 1f4c          lofsa $221a // door
  02ce:4a 0c             send c 


        code_02d0
  02d0:39 42            pushi 42 // $42 setPri
  02d2:78               push1 
  02d3:39 07            pushi 7 // $7 cel
  02d5:38 00c9          pushi c9 // $c9 ignoreActors
  02d8:78               push1 
  02d9:78               push1 
  02da:39 57            pushi 57 // $57 init
  02dc:76               push0 
  02dd:38 00c6          pushi c6 // $c6 stopUpd
  02e0:76               push0 
  02e1:72 1f36          lofsa $221a // door
  02e4:4a 14             send 14 

  02e6:39 42            pushi 42 // $42 setPri
  02e8:78               push1 
  02e9:39 06            pushi 6 // $6 loop
  02eb:38 00c9          pushi c9 // $c9 ignoreActors
  02ee:78               push1 
  02ef:78               push1 
  02f0:39 57            pushi 57 // $57 init
  02f2:76               push0 
  02f3:38 00c6          pushi c6 // $c6 stopUpd
  02f6:76               push0 
  02f7:72 1f72          lofsa $226c // Tswing
  02fa:4a 14             send 14 

  02fc:39 42            pushi 42 // $42 setPri
  02fe:78               push1 
  02ff:39 08            pushi 8 // $8 underBits
  0301:38 00c9          pushi c9 // $c9 ignoreActors
  0304:78               push1 
  0305:78               push1 
  0306:39 57            pushi 57 // $57 init
  0308:76               push0 
  0309:38 00c6          pushi c6 // $c6 stopUpd
  030c:76               push0 
  030d:72 1fae          lofsa $22be // Bswing
  0310:4a 14             send 14 

  0312:72 1dc1          lofsa $20d6 // record
  0315:a0 0175            sag global373 
  0318:88 00a5            lsg gAct 
  031b:3c                 dup 
  031c:35 01              ldi 1 
  031e:1a                 eq? 
  031f:31 13              bnt code_0334 
  0321:89 7e              lsg global126 
  0323:35 01              ldi 1 
  0325:1a                 eq? 
  0326:31 09              bnt code_0331 
  0328:38 010a          pushi 10a // $10a setRegions
  032b:78               push1 
  032c:38 00f4          pushi f4 // $f4 description
  032f:54 06             self 6 


        code_0331
  0331:32 013a            jmp code_046e 

        code_0334
  0334:3c                 dup 
  0335:35 02              ldi 2 
  0337:1a                 eq? 
  0338:31 0c              bnt code_0346 
  033a:38 010a          pushi 10a // $10a setRegions
  033d:78               push1 
  033e:38 0105          pushi 105 // $105 north
  0341:54 06             self 6 

  0343:32 0128            jmp code_046e 

        code_0346
  0346:3c                 dup 
  0347:35 04              ldi 4 
  0349:1a                 eq? 
  034a:30 00f2            bnt code_043f 
  034d:35 01              ldi 1 
  034f:a3 04              sal local4 
  0351:7a               push2 
  0352:38 0084          pushi 84 // $84 stop
  0355:38 00df          pushi df // $df vanishingX
  0358:43 00 04         callk Load 4 

  035b:80 00b7            lag gConMusic 
  035e:a3 05              sal local5 
  0360:39 03            pushi 3 // $3 y
  0362:38 008f          pushi 8f // $8f moveTo
  0365:38 00f3          pushi f3 // $f3 close
  0368:38 0173          pushi 173 // $173 sel_371
  036b:45 15 06         callb procedure_0015 6 // LoadMany 

  036e:39 03            pushi 3 // $3 y
  0370:38 0080          pushi 80 // $80 timeLeft
  0373:38 01da          pushi 1da // $1da sel_474
  0376:38 03a0          pushi 3a0 // $3a0 sel_928
  0379:45 15 06         callb procedure_0015 6 // LoadMany 

  037c:35 10              ldi 10 
  037e:a0 00d0            sag global208 
  0381:34 0173            ldi 173 
  0384:a0 017d            sag global381 
  0387:89 0c              lsg gPrevRoomNum 
  0389:35 40              ldi 40 
  038b:1a                 eq? 
  038c:2f 09               bt code_0397 
  038e:88 00c0            lsg gFifiState 
  0391:35 40              ldi 40 
  0393:20                 ge? 
  0394:30 0080            bnt code_0417 

        code_0397
  0397:88 00c0            lsg gFifiState 
  039a:35 40              ldi 40 
  039c:1a                 eq? 
  039d:31 2f              bnt code_03ce 
  039f:7a               push2 
  03a0:38 0080          pushi 80 // $80 timeLeft
  03a3:38 01d7          pushi 1d7 // $1d7 sel_471
  03a6:43 00 04         callk Load 4 

  03a9:39 05            pushi 5 // $5 view
  03ab:78               push1 
  03ac:38 01d7          pushi 1d7 // $1d7 sel_471
  03af:38 00c5          pushi c5 // $c5 posn
  03b2:7a               push2 
  03b3:38 010f          pushi 10f // $10f code
  03b6:39 68            pushi 68 // $68 release
  03b8:39 06            pushi 6 // $6 loop
  03ba:78               push1 
  03bb:78               push1 
  03bc:39 57            pushi 57 // $57 init
  03be:76               push0 
  03bf:72 1f9c          lofsa $235e // Fifi
  03c2:4a 18             send 18 

  03c4:39 7a            pushi 7a // $7a setScript
  03c6:78               push1 
  03c7:74 19ec          lofss $1db6 // finishDress
  03ca:54 06             self 6 

  03cc:33 47              jmp code_0415 

        code_03ce
  03ce:39 05            pushi 5 // $5 view
  03d0:78               push1 
  03d1:38 01da          pushi 1da // $1da sel_474
  03d4:39 42            pushi 42 // $42 setPri
  03d6:78               push1 
  03d7:39 0d            pushi d // $d lsTop
  03d9:39 12            pushi 12 // $12 illegalBits
  03db:78               push1 
  03dc:76               push0 
  03dd:38 00c5          pushi c5 // $c5 posn
  03e0:7a               push2 
  03e1:38 00f2          pushi f2 // $f2 read
  03e4:38 0080          pushi 80 // $80 timeLeft
  03e7:39 06            pushi 6 // $6 loop
  03e9:78               push1 
  03ea:76               push0 
  03eb:38 00a4          pushi a4 // $a4 cycleSpeed
  03ee:78               push1 
  03ef:7a               push2 
  03f0:39 57            pushi 57 // $57 init
  03f2:76               push0 
  03f3:72 1f68          lofsa $235e // Fifi
  03f6:4a 2a             send 2a 

  03f8:39 42            pushi 42 // $42 setPri
  03fa:78               push1 
  03fb:39 0e            pushi e // $e lsLeft
  03fd:39 57            pushi 57 // $57 init
  03ff:76               push0 
  0400:38 00c6          pushi c6 // $c6 stopUpd
  0403:76               push0 
  0404:72 1f09          lofsa $2310 // FifiButt
  0407:4a 0e             send e 

  0409:35 01              ldi 1 
  040b:a3 0a              sal local10 
  040d:39 7a            pushi 7a // $7a setScript
  040f:78               push1 
  0410:74 19d3          lofss $1de6 // primp
  0413:54 06             self 6 


        code_0415
  0415:33 26              jmp code_043d 

        code_0417
  0417:39 05            pushi 5 // $5 view
  0419:78               push1 
  041a:38 01ce          pushi 1ce // $1ce sel_462
  041d:39 06            pushi 6 // $6 loop
  041f:78               push1 
  0420:76               push0 
  0421:39 07            pushi 7 // $7 cel
  0423:78               push1 
  0424:76               push0 
  0425:39 12            pushi 12 // $12 illegalBits
  0427:78               push1 
  0428:76               push0 
  0429:38 00c5          pushi c5 // $c5 posn
  042c:7a               push2 
  042d:39 76            pushi 76 // $76 script
  042f:39 4c            pushi 4c // $4c claimed
  0431:39 57            pushi 57 // $57 init
  0433:76               push0 
  0434:38 0089          pushi 89 // $89 hide
  0437:76               push0 
  0438:72 1f23          lofsa $235e // Fifi
  043b:4a 28             send 28 


        code_043d
  043d:33 2f              jmp code_046e 

        code_043f
  043f:3c                 dup 
  0440:35 05              ldi 5 
  0442:1a                 eq? 
  0443:31 29              bnt code_046e 
  0445:89 7b              lsg gCorpseFlags 
  0447:35 10              ldi 10 
  0449:12                 and 
  044a:18                 not 
  044b:31 21              bnt code_046e 
  044d:89 7b              lsg gCorpseFlags 
  044f:35 40              ldi 40 
  0451:12                 and 
  0452:18                 not 
  0453:31 19              bnt code_046e 
  0455:35 01              ldi 1 
  0457:a3 04              sal local4 
  0459:38 010a          pushi 10a // $10a setRegions
  045c:78               push1 
  045d:38 0111          pushi 111 // $111 cycleType
  0460:54 06             self 6 

  0462:39 57            pushi 57 // $57 init
  0464:76               push0 
  0465:38 00c6          pushi c6 // $c6 stopUpd
  0468:76               push0 
  0469:72 1cb8          lofsa $2124 // flowers
  046c:4a 08             send 8 


        code_046e
  046e:3a                toss 
  046f:89 0c              lsg gPrevRoomNum 
  0471:35 40              ldi 40 
  0473:1a                 eq? 
  0474:31 0b              bnt code_0481 
  0476:35 01              ldi 1 
  0478:a3 07              sal local7 
  047a:76               push0 
  047b:40 fbaf 00        call proc_002e 0 

  047f:33 05              jmp code_0486 

        code_0481
  0481:76               push0 
  0482:40 fc71 00        call proc_00f7 0 


        code_0486
  0486:89 75              lsg global117 
  0488:34 8000            ldi 8000 
  048b:12                 and 
  048c:18                 not 
  048d:31 0c              bnt code_049b 
  048f:39 12            pushi 12 // $12 illegalBits
  0491:78               push1 
  0492:38 8008          pushi 8008 // $8008 sel_32776
  0495:81 00              lag gEgo 
  0497:4a 06             send 6 

  0499:33 0a              jmp code_04a5 

        code_049b
  049b:39 12            pushi 12 // $12 illegalBits
  049d:78               push1 
  049e:38 8000          pushi 8000 // $8000 sel_32768
  04a1:81 00              lag gEgo 
  04a3:4a 06             send 6 


        code_04a5
  04a5:39 05            pushi 5 // $5 view
  04a7:78               push1 
  04a8:76               push0 
  04a9:39 57            pushi 57 // $57 init
  04ab:76               push0 
  04ac:81 00              lag gEgo 
  04ae:4a 0a             send a 

  04b0:48                 ret 
    )

    (method (doit) // method_04b1
  04b1:76               push0 
  04b2:45 14 00         callb procedure_0014 0 // IsFirstTimeInRoom 

  04b5:31 1d              bnt code_04d4 
  04b7:89 0c              lsg gPrevRoomNum 
  04b9:35 2f              ldi 2f 
  04bb:1a                 eq? 
  04bc:31 0c              bnt code_04ca 
  04be:7a               push2 
  04bf:39 4a            pushi 4a // $4a pragmaFail
  04c1:76               push0 
  04c2:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  04c8:33 0a              jmp code_04d4 

        code_04ca
  04ca:7a               push2 
  04cb:39 4a            pushi 4a // $4a pragmaFail
  04cd:78               push1 
  04ce:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_04d4
  04d4:39 3c            pushi 3c // $3c doit
  04d6:76               push0 
  04d7:57 37 04         super Rm 4 

  04da:38 00db          pushi db // $db onControl
  04dd:78               push1 
  04de:76               push0 
  04df:81 00              lag gEgo 
  04e1:4a 06             send 6 

  04e3:36                push 
  04e4:35 08              ldi 8 
  04e6:12                 and 
  04e7:31 07              bnt code_04f0 
  04e9:89 7b              lsg gCorpseFlags 
  04eb:35 40              ldi 40 
  04ed:12                 and 
  04ee:2f 0f               bt code_04ff 

        code_04f0
  04f0:38 00db          pushi db // $db onControl
  04f3:78               push1 
  04f4:76               push0 
  04f5:81 00              lag gEgo 
  04f7:4a 06             send 6 

  04f9:36                push 
  04fa:35 02              ldi 2 
  04fc:12                 and 
  04fd:31 10              bnt code_050f 

        code_04ff
  04ff:78               push1 
  0500:39 2e            pushi 2e // $2e dx
  0502:45 06 02         callb procedure_0006 2 // ClearFlag 

  0505:38 00f8          pushi f8 // $f8 newRoom
  0508:78               push1 
  0509:39 4b            pushi 4b // $4b said
  050b:81 02              lag gCurRoom 
  050d:4a 06             send 6 


        code_050f
  050f:38 00da          pushi da // $da inRect
  0512:39 04            pushi 4 // $4 x
  0514:39 f6            pushi f6 // $f6 carrying
  0516:76               push0 
  0517:39 3a            pushi 3a // $3a heading
  0519:39 64            pushi 64 // $64 allTrue
  051b:81 00              lag gEgo 
  051d:4a 0c             send c 

  051f:31 07              bnt code_0528 
  0521:35 03              ldi 3 
  0523:a3 02              sal local2 
  0525:32 0084            jmp code_05ac 

        code_0528
  0528:38 00da          pushi da // $da inRect
  052b:39 04            pushi 4 // $4 x
  052d:76               push0 
  052e:39 64            pushi 64 // $64 allTrue
  0530:39 40            pushi 40 // $40 modifiers
  0532:38 00c8          pushi c8 // $c8 setLoop
  0535:81 00              lag gEgo 
  0537:4a 0c             send c 

  0539:31 24              bnt code_055f 
  053b:8b 02              lsl local2 
  053d:35 01              ldi 1 
  053f:1c                 ne? 
  0540:31 1b              bnt code_055d 
  0542:35 01              ldi 1 
  0544:a3 02              sal local2 
  0546:76               push0 
  0547:40 fbac 00        call proc_00f7 0 

  054b:7a               push2 
  054c:39 08            pushi 8 // $8 underBits
  054e:76               push0 
  054f:43 31 04         callk DoSound 4 

  0552:38 0104          pushi 104 // $104 picture
  0555:78               push1 
  0556:39 4a            pushi 4a // $4a pragmaFail
  0558:72 17db          lofsa $1d36 // Room74
  055b:4a 06             send 6 


        code_055d
  055d:33 4d              jmp code_05ac 

        code_055f
  055f:35 02              ldi 2 
  0561:a3 02              sal local2 
  0563:7a               push2 
  0564:39 08            pushi 8 // $8 underBits
  0566:8b 08              lsl local8 
  0568:43 31 04         callk DoSound 4 

  056b:76               push0 
  056c:40 fabe 00        call proc_002e 0 

  0570:81 64              lag global100 
  0572:18                 not 
  0573:31 0e              bnt code_0583 
  0575:35 01              ldi 1 
  0577:a1 64              sag global100 
  0579:7a               push2 
  057a:39 4a            pushi 4a // $4a pragmaFail
  057c:7a               push2 
  057d:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0583
  0583:88 00a5            lsg gAct 
  0586:35 04              ldi 4 
  0588:1a                 eq? 
  0589:31 21              bnt code_05ac 
  058b:88 00c0            lsg gFifiState 
  058e:35 40              ldi 40 
  0590:22                 lt? 
  0591:31 19              bnt code_05ac 
  0593:83 06              lal local6 
  0595:18                 not 
  0596:31 14              bnt code_05ac 
  0598:c3 06              +al local6 
  059a:76               push0 
  059b:45 03 00         callb procedure_0003 0 // HandsOff 

  059e:78               push1 
  059f:39 14            pushi 14 // $14 brLeft
  05a1:45 05 02         callb procedure_0005 2 // SetFlag 

  05a4:39 7a            pushi 7a // $7a setScript
  05a6:78               push1 
  05a7:74 17dc          lofss $1d86 // startDress
  05aa:54 06             self 6 


        code_05ac
  05ac:38 00db          pushi db // $db onControl
  05af:78               push1 
  05b0:78               push1 
  05b1:81 00              lag gEgo 
  05b3:4a 06             send 6 

  05b5:36                push 
  05b6:35 10              ldi 10 
  05b8:12                 and 
  05b9:31 25              bnt code_05e0 
  05bb:8b 00              lsl local0 
  05bd:35 00              ldi 0 
  05bf:1a                 eq? 
  05c0:31 1e              bnt code_05e0 
  05c2:35 01              ldi 1 
  05c4:a3 00              sal local0 
  05c6:39 07            pushi 7 // $7 cel
  05c8:78               push1 
  05c9:78               push1 
  05ca:38 00c7          pushi c7 // $c7 forceUpd
  05cd:76               push0 
  05ce:72 1c9b          lofsa $226c // Tswing
  05d1:4a 0a             send a 

  05d3:39 07            pushi 7 // $7 cel
  05d5:78               push1 
  05d6:78               push1 
  05d7:38 00c7          pushi c7 // $c7 forceUpd
  05da:76               push0 
  05db:72 1ce0          lofsa $22be // Bswing
  05de:4a 0a             send a 


        code_05e0
  05e0:38 00db          pushi db // $db onControl
  05e3:78               push1 
  05e4:78               push1 
  05e5:81 00              lag gEgo 
  05e7:4a 06             send 6 

  05e9:36                push 
  05ea:34 4000            ldi 4000 
  05ed:12                 and 
  05ee:31 0f              bnt code_05ff 
  05f0:35 01              ldi 1 
  05f2:a3 03              sal local3 
  05f4:39 42            pushi 42 // $42 setPri
  05f6:78               push1 
  05f7:39 05            pushi 5 // $5 view
  05f9:81 00              lag gEgo 
  05fb:4a 06             send 6 

  05fd:33 0d              jmp code_060c 

        code_05ff
  05ff:35 00              ldi 0 
  0601:a3 03              sal local3 
  0603:39 42            pushi 42 // $42 setPri
  0605:78               push1 
  0606:39 ff            pushi ff // $ff checkAni
  0608:81 00              lag gEgo 
  060a:4a 06             send 6 


        code_060c
  060c:38 00db          pushi db // $db onControl
  060f:78               push1 
  0610:78               push1 
  0611:81 00              lag gEgo 
  0613:4a 06             send 6 

  0615:36                push 
  0616:35 20              ldi 20 
  0618:12                 and 
  0619:31 27              bnt code_0642 
  061b:8b 00              lsl local0 
  061d:35 00              ldi 0 
  061f:1a                 eq? 
  0620:31 20              bnt code_0642 
  0622:35 01              ldi 1 
  0624:a3 00              sal local0 
  0626:39 07            pushi 7 // $7 cel
  0628:78               push1 
  0629:39 03            pushi 3 // $3 y
  062b:38 00c7          pushi c7 // $c7 forceUpd
  062e:76               push0 
  062f:72 1c3a          lofsa $226c // Tswing
  0632:4a 0a             send a 

  0634:39 07            pushi 7 // $7 cel
  0636:78               push1 
  0637:39 03            pushi 3 // $3 y
  0639:38 00c7          pushi c7 // $c7 forceUpd
  063c:76               push0 
  063d:72 1c7e          lofsa $22be // Bswing
  0640:4a 0a             send a 


        code_0642
  0642:38 00db          pushi db // $db onControl
  0645:78               push1 
  0646:78               push1 
  0647:81 00              lag gEgo 
  0649:4a 06             send 6 

  064b:36                push 
  064c:35 01              ldi 1 
  064e:12                 and 
  064f:2f 10               bt code_0661 
  0651:38 00db          pushi db // $db onControl
  0654:78               push1 
  0655:78               push1 
  0656:81 00              lag gEgo 
  0658:4a 06             send 6 

  065a:36                push 
  065b:34 4000            ldi 4000 
  065e:12                 and 
  065f:31 21              bnt code_0682 

        code_0661
  0661:8b 00              lsl local0 
  0663:35 01              ldi 1 
  0665:1a                 eq? 
  0666:31 1a              bnt code_0682 
  0668:39 7e            pushi 7e // $7e setCycle
  066a:78               push1 
  066b:51 1a            class End 
  066d:36                push 
  066e:72 1bfb          lofsa $226c // Tswing
  0671:4a 06             send 6 

  0673:39 7e            pushi 7e // $7e setCycle
  0675:78               push1 
  0676:51 1a            class End 
  0678:36                push 
  0679:72 1c42          lofsa $22be // Bswing
  067c:4a 06             send 6 

  067e:35 00              ldi 0 
  0680:a3 00              sal local0 

        code_0682
  0682:39 04            pushi 4 // $4 x
  0684:76               push0 
  0685:81 00              lag gEgo 
  0687:4a 04             send 4 

  0689:36                push 
  068a:35 3a              ldi 3a 
  068c:22                 lt? 
  068d:31 06              bnt code_0695 
  068f:35 00              ldi 0 
  0691:65 2a             aTop vertAngle 
  0693:33 1a              jmp code_06af 

        code_0695
  0695:39 04            pushi 4 // $4 x
  0697:76               push0 
  0698:81 00              lag gEgo 
  069a:4a 04             send 4 

  069c:36                push 
  069d:34 00b4            ldi b4 
  06a0:22                 lt? 
  06a1:31 07              bnt code_06aa 
  06a3:34 009d            ldi 9d 
  06a6:65 2a             aTop vertAngle 
  06a8:33 05              jmp code_06af 

        code_06aa
  06aa:34 008c            ldi 8c 
  06ad:65 2a             aTop vertAngle 

        code_06af
  06af:48                 ret 
    )

    (method (dispose) // method_06b0
  06b0:78               push1 
  06b1:38 03d9          pushi 3d9 // $3d9 sel_985
  06b4:43 03 02         callk DisposeScript 2 

  06b7:78               push1 
  06b8:38 03d7          pushi 3d7 // $3d7 sel_983
  06bb:43 03 02         callk DisposeScript 2 

  06be:39 58            pushi 58 // $58 dispose
  06c0:76               push0 
  06c1:57 37 04         super Rm 4 

  06c4:48                 ret 
    )

    (method (newRoom) // method_06c5
  06c5:8b 05              lsl local5 
  06c7:80 00b7            lag gConMusic 
  06ca:1a                 eq? 
  06cb:31 0f              bnt code_06dc 
  06cd:8f 01              lsp param1 
  06cf:35 40              ldi 40 
  06d1:1c                 ne? 
  06d2:31 08              bnt code_06dc 
  06d4:38 0084          pushi 84 // $84 stop
  06d7:76               push0 
  06d8:83 05              lal local5 
  06da:4a 04             send 4 


        code_06dc
  06dc:78               push1 
  06dd:78               push1 
  06de:43 45 02         callk Wait 2 

  06e1:78               push1 
  06e2:39 0a            pushi a // $a nsLeft
  06e4:43 45 02         callk Wait 2 

  06e7:35 00              ldi 0 
  06e9:a0 00be            sag global190 
  06ec:7a               push2 
  06ed:39 08            pushi 8 // $8 underBits
  06ef:8b 08              lsl local8 
  06f1:43 31 04         callk DoSound 4 

  06f4:38 00f8          pushi f8 // $f8 newRoom
  06f7:78               push1 
  06f8:8f 01              lsp param1 
  06fa:57 37 06         super Rm 6 

  06fd:48                 ret 
    )

    (method (handleEvent) // method_06fe
  06fe:3f 01             link 1 // (var $1)
  0700:78               push1 
  0701:38 03de          pushi 3de // $3de sel_990
  0704:43 03 02         callk DisposeScript 2 

  0707:39 4c            pushi 4c // $4c claimed
  0709:76               push0 
  070a:87 01              lap param1 
  070c:4a 04             send 4 

  070e:31 03              bnt code_0713 
  0710:35 01              ldi 1 
  0712:48                 ret 

        code_0713
  0713:39 22            pushi 22 // $22 type
  0715:76               push0 
  0716:87 01              lap param1 
  0718:4a 04             send 4 

  071a:36                push 
  071b:34 0080            ldi 80 
  071e:1a                 eq? 
  071f:30 0251            bnt code_0973 
  0722:39 04            pushi 4 // $4 x
  0724:76               push0 
  0725:81 00              lag gEgo 
  0727:4a 04             send 4 

  0729:36                push 
  072a:35 40              ldi 40 
  072c:1e                 gt? 
  072d:31 34              bnt code_0763 
  072f:80 00d0            lag global208 
  0732:31 2f              bnt code_0763 
  0734:78               push1 
  0735:74 13dc          lofss $1b14 // ask,raconter,hold,deliver,look,get,abattre,embrasser,embrace,draguer>
  0738:43 25 02         callk Said 2 

  073b:31 26              bnt code_0763 
  073d:39 7a            pushi 7a // $7a setScript
  073f:78               push1 
  0740:7a               push2 
  0741:38 00f3          pushi f3 // $f3 close
  0744:76               push0 
  0745:43 02 04         callk ScriptID 4 

  0748:36                push 
  0749:54 06             self 6 

  074b:39 6f            pushi 6f // $6f handleEvent
  074d:78               push1 
  074e:8f 01              lsp param1 
  0750:39 76            pushi 76 // $76 script
  0752:76               push0 
  0753:54 04             self 4 

  0755:4a 06             send 6 

  0757:39 4c            pushi 4c // $4c claimed
  0759:76               push0 
  075a:87 01              lap param1 
  075c:4a 04             send 4 

  075e:31 03              bnt code_0763 
  0760:35 01              ldi 1 
  0762:48                 ret 

        code_0763
  0763:78               push1 
  0764:74 152f          lofss $1c96 // look>
  0767:43 25 02         callk Said 2 

  076a:30 0206            bnt code_0973 
  076d:78               push1 
  076e:74 1377          lofss $1ae8 // /room<dressing
  0771:43 25 02         callk Said 2 

  0774:31 1d              bnt code_0793 
  0776:83 07              lal local7 
  0778:18                 not 
  0779:31 11              bnt code_078c 
  077b:35 02              ldi 2 
  077d:31 0d              bnt code_078c 
  077f:7a               push2 
  0780:39 4a            pushi 4a // $4a pragmaFail
  0782:39 03            pushi 3 // $3 y
  0784:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  078a:33 04              jmp code_0790 

        code_078c
  078c:76               push0 
  078d:45 12 00         callb procedure_0012 0 // NotHere 


        code_0790
  0790:32 01e0            jmp code_0973 

        code_0793
  0793:78               push1 
  0794:74 1341          lofss $1ad8 // /bedroom
  0797:43 25 02         callk Said 2 

  079a:31 1e              bnt code_07ba 
  079c:35 02              ldi 2 
  079e:31 0c              bnt code_07ac 
  07a0:7a               push2 
  07a1:39 4a            pushi 4a // $4a pragmaFail
  07a3:7a               push2 
  07a4:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  07aa:33 0b              jmp code_07b7 

        code_07ac
  07ac:7a               push2 
  07ad:39 4a            pushi 4a // $4a pragmaFail
  07af:39 04            pushi 4 // $4 x
  07b1:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_07b7
  07b7:32 01b9            jmp code_0973 

        code_07ba
  07ba:78               push1 
  07bb:74 1348          lofss $1b06 // [<around,at][/room]
  07be:43 25 02         callk Said 2 

  07c1:31 68              bnt code_082b 
  07c3:83 03              lal local3 
  07c5:31 0d              bnt code_07d4 
  07c7:7a               push2 
  07c8:39 4a            pushi 4a // $4a pragmaFail
  07ca:39 05            pushi 5 // $5 view
  07cc:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  07d2:33 54              jmp code_0828 

        code_07d4
  07d4:8b 02              lsl local2 
  07d6:35 01              ldi 1 
  07d8:1a                 eq? 
  07d9:31 0c              bnt code_07e7 
  07db:7a               push2 
  07dc:39 4a            pushi 4a // $4a pragmaFail
  07de:76               push0 
  07df:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  07e5:33 41              jmp code_0828 

        code_07e7
  07e7:8b 02              lsl local2 
  07e9:35 03              ldi 3 
  07eb:1a                 eq? 
  07ec:31 0c              bnt code_07fa 
  07ee:7a               push2 
  07ef:39 4a            pushi 4a // $4a pragmaFail
  07f1:78               push1 
  07f2:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  07f8:33 2e              jmp code_0828 

        code_07fa
  07fa:89 7b              lsg gCorpseFlags 
  07fc:35 10              ldi 10 
  07fe:12                 and 
  07ff:18                 not 
  0800:31 1c              bnt code_081e 
  0802:88 00a5            lsg gAct 
  0805:35 05              ldi 5 
  0807:1a                 eq? 
  0808:31 14              bnt code_081e 
  080a:89 7b              lsg gCorpseFlags 
  080c:35 10              ldi 10 
  080e:14                  or 
  080f:a1 7b              sag gCorpseFlags 
  0811:7a               push2 
  0812:39 4a            pushi 4a // $4a pragmaFail
  0814:39 06            pushi 6 // $6 loop
  0816:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  081c:33 0a              jmp code_0828 

        code_081e
  081e:7a               push2 
  081f:39 4a            pushi 4a // $4a pragmaFail
  0821:7a               push2 
  0822:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0828
  0828:32 0148            jmp code_0973 

        code_082b
  082b:78               push1 
  082c:74 12cf          lofss $1afe // <bas
  082f:43 25 02         callk Said 2 

  0832:2f 09               bt code_083d 
  0834:78               push1 
  0835:74 12ac          lofss $1ae4 // /downstair
  0838:43 25 02         callk Said 2 

  083b:31 41              bnt code_087e 

        code_083d
  083d:8b 02              lsl local2 
  083f:35 01              ldi 1 
  0841:1a                 eq? 
  0842:31 0d              bnt code_0851 
  0844:7a               push2 
  0845:39 4a            pushi 4a // $4a pragmaFail
  0847:39 07            pushi 7 // $7 cel
  0849:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  084f:33 2a              jmp code_087b 

        code_0851
  0851:83 03              lal local3 
  0853:31 0d              bnt code_0862 
  0855:7a               push2 
  0856:39 4a            pushi 4a // $4a pragmaFail
  0858:39 05            pushi 5 // $5 view
  085a:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0860:33 19              jmp code_087b 

        code_0862
  0862:83 04              lal local4 
  0864:31 0d              bnt code_0873 
  0866:7a               push2 
  0867:39 4a            pushi 4a // $4a pragmaFail
  0869:39 08            pushi 8 // $8 underBits
  086b:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0871:33 08              jmp code_087b 

        code_0873
  0873:39 4c            pushi 4c // $4c claimed
  0875:78               push1 
  0876:76               push0 
  0877:87 01              lap param1 
  0879:4a 06             send 6 


        code_087b
  087b:32 00f5            jmp code_0973 

        code_087e
  087e:78               push1 
  087f:74 1280          lofss $1b02 // <haut
  0882:43 25 02         callk Said 2 

  0885:2f 09               bt code_0890 
  0887:78               push1 
  0888:74 1264          lofss $1aef // /escalier
  088b:43 25 02         callk Said 2 

  088e:31 1e              bnt code_08ae 

        code_0890
  0890:8b 02              lsl local2 
  0892:35 01              ldi 1 
  0894:1a                 eq? 
  0895:31 0c              bnt code_08a3 
  0897:7a               push2 
  0898:39 4a            pushi 4a // $4a pragmaFail
  089a:76               push0 
  089b:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  08a1:33 08              jmp code_08ab 

        code_08a3
  08a3:39 4c            pushi 4c // $4c claimed
  08a5:78               push1 
  08a6:76               push0 
  08a7:87 01              lap param1 
  08a9:4a 06             send 6 


        code_08ab
  08ab:32 00c5            jmp code_0973 

        code_08ae
  08ae:78               push1 
  08af:74 122e          lofss $1ae0 // /dormer
  08b2:43 25 02         callk Said 2 

  08b5:31 1f              bnt code_08d6 
  08b7:8b 02              lsl local2 
  08b9:35 02              ldi 2 
  08bb:1a                 eq? 
  08bc:31 0d              bnt code_08cb 
  08be:7a               push2 
  08bf:39 4a            pushi 4a // $4a pragmaFail
  08c1:39 09            pushi 9 // $9 nsTop
  08c3:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  08c9:33 08              jmp code_08d3 

        code_08cb
  08cb:39 4c            pushi 4c // $4c claimed
  08cd:78               push1 
  08ce:76               push0 
  08cf:87 01              lap param1 
  08d1:4a 06             send 6 


        code_08d3
  08d3:32 009d            jmp code_0973 

        code_08d6
  08d6:78               push1 
  08d7:74 11fa          lofss $1ad4 // /attic
  08da:43 25 02         callk Said 2 

  08dd:31 21              bnt code_0900 
  08df:8b 02              lsl local2 
  08e1:35 03              ldi 3 
  08e3:1c                 ne? 
  08e4:31 0d              bnt code_08f3 
  08e6:7a               push2 
  08e7:39 4a            pushi 4a // $4a pragmaFail
  08e9:39 0a            pushi a // $a nsLeft
  08eb:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  08f1:33 0b              jmp code_08fe 

        code_08f3
  08f3:7a               push2 
  08f4:39 4a            pushi 4a // $4a pragmaFail
  08f6:39 0b            pushi b // $b nsBottom
  08f8:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_08fe
  08fe:33 73              jmp code_0973 

        code_0900
  0900:78               push1 
  0901:74 11f3          lofss $1af7 // <below/carpet
  0904:43 25 02         callk Said 2 

  0907:31 1e              bnt code_0927 
  0909:8b 02              lsl local2 
  090b:35 02              ldi 2 
  090d:1a                 eq? 
  090e:31 0d              bnt code_091d 
  0910:7a               push2 
  0911:39 4a            pushi 4a // $4a pragmaFail
  0913:39 0c            pushi c // $c nsRight
  0915:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  091b:33 08              jmp code_0925 

        code_091d
  091d:39 4c            pushi 4c // $4c claimed
  091f:78               push1 
  0920:76               push0 
  0921:87 01              lap param1 
  0923:4a 06             send 6 


        code_0925
  0925:33 4c              jmp code_0973 

        code_0927
  0927:78               push1 
  0928:74 11c8          lofss $1af3 // /fenetre
  092b:43 25 02         callk Said 2 

  092e:31 1e              bnt code_094e 
  0930:8b 02              lsl local2 
  0932:35 02              ldi 2 
  0934:1a                 eq? 
  0935:31 0d              bnt code_0944 
  0937:7a               push2 
  0938:39 4a            pushi 4a // $4a pragmaFail
  093a:39 0d            pushi d // $d lsTop
  093c:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0942:33 08              jmp code_094c 

        code_0944
  0944:39 4c            pushi 4c // $4c claimed
  0946:78               push1 
  0947:76               push0 
  0948:87 01              lap param1 
  094a:4a 06             send 6 


        code_094c
  094c:33 25              jmp code_0973 

        code_094e
  094e:78               push1 
  094f:74 118a          lofss $1adc // /curtain
  0952:43 25 02         callk Said 2 

  0955:31 1c              bnt code_0973 
  0957:8b 02              lsl local2 
  0959:35 02              ldi 2 
  095b:1a                 eq? 
  095c:31 0d              bnt code_096b 
  095e:7a               push2 
  095f:39 4a            pushi 4a // $4a pragmaFail
  0961:39 0e            pushi e // $e lsLeft
  0963:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0969:33 08              jmp code_0973 

        code_096b
  096b:39 4c            pushi 4c // $4c claimed
  096d:78               push1 
  096e:76               push0 
  096f:87 01              lap param1 
  0971:4a 06             send 6 


        code_0973
  0973:48                 ret 
    )

)

// 1d80
(instance startDress 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_0974
  0974:87 01              lap param1 
  0976:65 0a             aTop state 
  0978:36                push 
  0979:3c                 dup 
  097a:35 00              ldi 0 
  097c:1a                 eq? 
  097d:31 4c              bnt code_09cb 
  097f:76               push0 
  0980:45 03 00         callb procedure_0003 0 // HandsOff 

  0983:39 7e            pushi 7e // $7e setCycle
  0985:78               push1 
  0986:51 16            class Fwd 
  0988:36                push 
  0989:39 57            pushi 57 // $57 init
  098b:76               push0 
  098c:72 1747          lofsa $20d6 // record
  098f:4a 0a             send a 

  0991:89 0c              lsg gPrevRoomNum 
  0993:35 40              ldi 40 
  0995:1c                 ne? 
  0996:31 12              bnt code_09aa 
  0998:39 2b            pushi 2b // $2b number
  099a:78               push1 
  099b:38 00df          pushi df // $df vanishingX
  099e:39 06            pushi 6 // $6 loop
  09a0:78               push1 
  09a1:39 ff            pushi ff // $ff checkAni
  09a3:39 2a            pushi 2a // $2a play
  09a5:76               push0 
  09a6:83 05              lal local5 
  09a8:4a 10             send 10 


        code_09aa
  09aa:38 00ca          pushi ca // $ca show
  09ad:76               push0 
  09ae:39 05            pushi 5 // $5 view
  09b0:78               push1 
  09b1:38 01ce          pushi 1ce // $1ce sel_462
  09b4:39 06            pushi 6 // $6 loop
  09b6:78               push1 
  09b7:78               push1 
  09b8:39 07            pushi 7 // $7 cel
  09ba:78               push1 
  09bb:76               push0 
  09bc:39 7e            pushi 7e // $7e setCycle
  09be:7a               push2 
  09bf:51 1a            class End 
  09c1:36                push 
  09c2:7c            pushSelf 
  09c3:72 1998          lofsa $235e // Fifi
  09c6:4a 1e             send 1e 

  09c8:32 00be            jmp code_0a89 

        code_09cb
  09cb:3c                 dup 
  09cc:35 01              ldi 1 
  09ce:1a                 eq? 
  09cf:31 17              bnt code_09e8 
  09d1:39 06            pushi 6 // $6 loop
  09d3:78               push1 
  09d4:7a               push2 
  09d5:39 07            pushi 7 // $7 cel
  09d7:78               push1 
  09d8:76               push0 
  09d9:39 7e            pushi 7e // $7e setCycle
  09db:7a               push2 
  09dc:51 1a            class End 
  09de:36                push 
  09df:7c            pushSelf 
  09e0:72 197b          lofsa $235e // Fifi
  09e3:4a 14             send 14 

  09e5:32 00a1            jmp code_0a89 

        code_09e8
  09e8:3c                 dup 
  09e9:35 02              ldi 2 
  09eb:1a                 eq? 
  09ec:31 21              bnt code_0a0f 
  09ee:39 05            pushi 5 // $5 view
  09f0:78               push1 
  09f1:38 01cc          pushi 1cc // $1cc sel_460
  09f4:39 7e            pushi 7e // $7e setCycle
  09f6:78               push1 
  09f7:51 17            class Walk 
  09f9:36                push 
  09fa:38 00d3          pushi d3 // $d3 setMotion
  09fd:39 04            pushi 4 // $4 x
  09ff:51 1d            class MoveTo 
  0a01:36                push 
  0a02:38 00e3          pushi e3 // $e3 controls
  0a05:39 6b            pushi 6b // $6b addToFront
  0a07:7c            pushSelf 
  0a08:72 1953          lofsa $235e // Fifi
  0a0b:4a 18             send 18 

  0a0d:33 7a              jmp code_0a89 

        code_0a0f
  0a0f:3c                 dup 
  0a10:35 03              ldi 3 
  0a12:1a                 eq? 
  0a13:31 2f              bnt code_0a44 
  0a15:39 07            pushi 7 // $7 cel
  0a17:78               push1 
  0a18:78               push1 
  0a19:38 00c7          pushi c7 // $c7 forceUpd
  0a1c:76               push0 
  0a1d:72 184c          lofsa $226c // Tswing
  0a20:4a 0a             send a 

  0a22:39 07            pushi 7 // $7 cel
  0a24:78               push1 
  0a25:78               push1 
  0a26:38 00c7          pushi c7 // $c7 forceUpd
  0a29:76               push0 
  0a2a:72 1891          lofsa $22be // Bswing
  0a2d:4a 0a             send a 

  0a2f:38 00d3          pushi d3 // $d3 setMotion
  0a32:39 04            pushi 4 // $4 x
  0a34:51 1d            class MoveTo 
  0a36:36                push 
  0a37:38 00f1          pushi f1 // $f1 write
  0a3a:39 6b            pushi 6b // $6b addToFront
  0a3c:7c            pushSelf 
  0a3d:72 191e          lofsa $235e // Fifi
  0a40:4a 0c             send c 

  0a42:33 45              jmp code_0a89 

        code_0a44
  0a44:3c                 dup 
  0a45:35 04              ldi 4 
  0a47:1a                 eq? 
  0a48:31 2f              bnt code_0a79 
  0a4a:39 07            pushi 7 // $7 cel
  0a4c:78               push1 
  0a4d:76               push0 
  0a4e:38 00c7          pushi c7 // $c7 forceUpd
  0a51:76               push0 
  0a52:72 1817          lofsa $226c // Tswing
  0a55:4a 0a             send a 

  0a57:39 07            pushi 7 // $7 cel
  0a59:78               push1 
  0a5a:76               push0 
  0a5b:38 00c7          pushi c7 // $c7 forceUpd
  0a5e:76               push0 
  0a5f:72 185c          lofsa $22be // Bswing
  0a62:4a 0a             send a 

  0a64:38 00d3          pushi d3 // $d3 setMotion
  0a67:39 04            pushi 4 // $4 x
  0a69:51 1d            class MoveTo 
  0a6b:36                push 
  0a6c:38 010f          pushi 10f // $10f code
  0a6f:39 6b            pushi 6b // $6b addToFront
  0a71:7c            pushSelf 
  0a72:72 18e9          lofsa $235e // Fifi
  0a75:4a 0c             send c 

  0a77:33 10              jmp code_0a89 

        code_0a79
  0a79:3c                 dup 
  0a7a:35 05              ldi 5 
  0a7c:1a                 eq? 
  0a7d:31 0a              bnt code_0a89 
  0a7f:38 00f8          pushi f8 // $f8 newRoom
  0a82:78               push1 
  0a83:39 40            pushi 40 // $40 modifiers
  0a85:81 02              lag gCurRoom 
  0a87:4a 06             send 6 


        code_0a89
  0a89:3a                toss 
  0a8a:48                 ret 
    )

)

// 1db0
(instance finishDress 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_0a8b
  0a8b:87 01              lap param1 
  0a8d:65 0a             aTop state 
  0a8f:36                push 
  0a90:3c                 dup 
  0a91:35 00              ldi 0 
  0a93:1a                 eq? 
  0a94:31 33              bnt code_0ac9 
  0a96:76               push0 
  0a97:45 03 00         callb procedure_0003 0 // HandsOff 

  0a9a:39 7e            pushi 7e // $7e setCycle
  0a9c:78               push1 
  0a9d:51 16            class Fwd 
  0a9f:36                push 
  0aa0:39 57            pushi 57 // $57 init
  0aa2:76               push0 
  0aa3:72 1630          lofsa $20d6 // record
  0aa6:4a 0a             send a 

  0aa8:35 4a              ldi 4a 
  0aaa:a0 00c0            sag gFifiState 
  0aad:39 7e            pushi 7e // $7e setCycle
  0aaf:78               push1 
  0ab0:51 17            class Walk 
  0ab2:36                push 
  0ab3:38 00d3          pushi d3 // $d3 setMotion
  0ab6:39 04            pushi 4 // $4 x
  0ab8:51 1d            class MoveTo 
  0aba:36                push 
  0abb:38 00f5          pushi f5 // $f5 saidMe
  0abe:39 6b            pushi 6b // $6b addToFront
  0ac0:7c            pushSelf 
  0ac1:72 189a          lofsa $235e // Fifi
  0ac4:4a 12             send 12 

  0ac6:32 00c2            jmp code_0b8b 

        code_0ac9
  0ac9:3c                 dup 
  0aca:35 01              ldi 1 
  0acc:1a                 eq? 
  0acd:31 32              bnt code_0b01 
  0acf:39 07            pushi 7 // $7 cel
  0ad1:78               push1 
  0ad2:39 03            pushi 3 // $3 y
  0ad4:38 00c7          pushi c7 // $c7 forceUpd
  0ad7:76               push0 
  0ad8:72 1791          lofsa $226c // Tswing
  0adb:4a 0a             send a 

  0add:39 07            pushi 7 // $7 cel
  0adf:78               push1 
  0ae0:39 03            pushi 3 // $3 y
  0ae2:38 00c7          pushi c7 // $c7 forceUpd
  0ae5:76               push0 
  0ae6:72 17d5          lofsa $22be // Bswing
  0ae9:4a 0a             send a 

  0aeb:38 00d3          pushi d3 // $d3 setMotion
  0aee:39 04            pushi 4 // $4 x
  0af0:51 1d            class MoveTo 
  0af2:36                push 
  0af3:38 00e1          pushi e1 // $e1 alterEgo
  0af6:39 6e            pushi 6e // $6e indexOf
  0af8:7c            pushSelf 
  0af9:72 1862          lofsa $235e // Fifi
  0afc:4a 0c             send c 

  0afe:32 008a            jmp code_0b8b 

        code_0b01
  0b01:3c                 dup 
  0b02:35 02              ldi 2 
  0b04:1a                 eq? 
  0b05:31 2f              bnt code_0b36 
  0b07:39 07            pushi 7 // $7 cel
  0b09:78               push1 
  0b0a:76               push0 
  0b0b:38 00c7          pushi c7 // $c7 forceUpd
  0b0e:76               push0 
  0b0f:72 175a          lofsa $226c // Tswing
  0b12:4a 0a             send a 

  0b14:39 07            pushi 7 // $7 cel
  0b16:78               push1 
  0b17:76               push0 
  0b18:38 00c7          pushi c7 // $c7 forceUpd
  0b1b:76               push0 
  0b1c:72 179f          lofsa $22be // Bswing
  0b1f:4a 0a             send a 

  0b21:38 00d3          pushi d3 // $d3 setMotion
  0b24:39 04            pushi 4 // $4 x
  0b26:51 1d            class MoveTo 
  0b28:36                push 
  0b29:38 00af          pushi af // $af incClientPos
  0b2c:39 6e            pushi 6e // $6e indexOf
  0b2e:7c            pushSelf 
  0b2f:72 182c          lofsa $235e // Fifi
  0b32:4a 0c             send c 

  0b34:33 55              jmp code_0b8b 

        code_0b36
  0b36:3c                 dup 
  0b37:35 03              ldi 3 
  0b39:1a                 eq? 
  0b3a:31 16              bnt code_0b52 
  0b3c:38 00d3          pushi d3 // $d3 setMotion
  0b3f:39 04            pushi 4 // $4 x
  0b41:51 1d            class MoveTo 
  0b43:36                push 
  0b44:38 00b5          pushi b5 // $b5 escapes
  0b47:38 0097          pushi 97 // $97 open
  0b4a:7c            pushSelf 
  0b4b:72 1810          lofsa $235e // Fifi
  0b4e:4a 0c             send c 

  0b50:33 39              jmp code_0b8b 

        code_0b52
  0b52:3c                 dup 
  0b53:35 04              ldi 4 
  0b55:1a                 eq? 
  0b56:31 1a              bnt code_0b72 
  0b58:39 12            pushi 12 // $12 illegalBits
  0b5a:78               push1 
  0b5b:76               push0 
  0b5c:38 00d3          pushi d3 // $d3 setMotion
  0b5f:39 04            pushi 4 // $4 x
  0b61:51 1d            class MoveTo 
  0b63:36                push 
  0b64:38 00fa          pushi fa // $fa restart
  0b67:38 009c          pushi 9c // $9c right
  0b6a:7c            pushSelf 
  0b6b:72 17f0          lofsa $235e // Fifi
  0b6e:4a 12             send 12 

  0b70:33 19              jmp code_0b8b 

        code_0b72
  0b72:3c                 dup 
  0b73:35 05              ldi 5 
  0b75:1a                 eq? 
  0b76:31 13              bnt code_0b8b 
  0b78:39 7a            pushi 7a // $7a setScript
  0b7a:78               push1 
  0b7b:74 1268          lofss $1de6 // primp
  0b7e:72 17dd          lofsa $235e // Fifi
  0b81:4a 06             send 6 

  0b83:39 7a            pushi 7a // $7a setScript
  0b85:78               push1 
  0b86:76               push0 
  0b87:63 08             pToa client 
  0b89:4a 06             send 6 


        code_0b8b
  0b8b:3a                toss 
  0b8c:48                 ret 
    )

)

// 1de0
(instance primp 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_0b8d
  0b8d:39 3c            pushi 3c // $3c doit
  0b8f:76               push0 
  0b90:57 05 04         super Script 4 

  0b93:89 0c              lsg gPrevRoomNum 
  0b95:35 40              ldi 40 
  0b97:1c                 ne? 
  0b98:31 3f              bnt code_0bd9 
  0b9a:83 0a              lal local10 
  0b9c:31 3b              bnt code_0bd9 
  0b9e:39 04            pushi 4 // $4 x
  0ba0:76               push0 
  0ba1:81 00              lag gEgo 
  0ba3:4a 04             send 4 

  0ba5:36                push 
  0ba6:35 41              ldi 41 
  0ba8:1e                 gt? 
  0ba9:31 26              bnt code_0bd1 
  0bab:35 00              ldi 0 
  0bad:a3 0a              sal local10 
  0baf:39 2b            pushi 2b // $2b number
  0bb1:78               push1 
  0bb2:38 00df          pushi df // $df vanishingX
  0bb5:39 06            pushi 6 // $6 loop
  0bb7:78               push1 
  0bb8:39 ff            pushi ff // $ff checkAni
  0bba:39 2a            pushi 2a // $2a play
  0bbc:76               push0 
  0bbd:83 05              lal local5 
  0bbf:4a 10             send 10 

  0bc1:39 7e            pushi 7e // $7e setCycle
  0bc3:78               push1 
  0bc4:51 16            class Fwd 
  0bc6:36                push 
  0bc7:39 57            pushi 57 // $57 init
  0bc9:76               push0 
  0bca:72 1509          lofsa $20d6 // record
  0bcd:4a 0a             send a 

  0bcf:33 08              jmp code_0bd9 

        code_0bd1
  0bd1:38 0084          pushi 84 // $84 stop
  0bd4:76               push0 
  0bd5:83 05              lal local5 
  0bd7:4a 04             send 4 


        code_0bd9
  0bd9:48                 ret 
    )

    (method (changeState) // method_0bda
  0bda:87 01              lap param1 
  0bdc:65 0a             aTop state 
  0bde:36                push 
  0bdf:3c                 dup 
  0be0:35 00              ldi 0 
  0be2:1a                 eq? 
  0be3:31 46              bnt code_0c2b 
  0be5:76               push0 
  0be6:45 04 00         callb procedure_0004 0 // HandsOn 

  0be9:39 05            pushi 5 // $5 view
  0beb:78               push1 
  0bec:38 01da          pushi 1da // $1da sel_474
  0bef:39 42            pushi 42 // $42 setPri
  0bf1:78               push1 
  0bf2:39 0d            pushi d // $d lsTop
  0bf4:39 12            pushi 12 // $12 illegalBits
  0bf6:78               push1 
  0bf7:76               push0 
  0bf8:38 00c5          pushi c5 // $c5 posn
  0bfb:7a               push2 
  0bfc:38 00f2          pushi f2 // $f2 read
  0bff:38 0080          pushi 80 // $80 timeLeft
  0c02:39 06            pushi 6 // $6 loop
  0c04:78               push1 
  0c05:76               push0 
  0c06:38 00a4          pushi a4 // $a4 cycleSpeed
  0c09:78               push1 
  0c0a:7a               push2 
  0c0b:39 7e            pushi 7e // $7e setCycle
  0c0d:7a               push2 
  0c0e:51 1a            class End 
  0c10:36                push 
  0c11:7c            pushSelf 
  0c12:72 1749          lofsa $235e // Fifi
  0c15:4a 2e             send 2e 

  0c17:39 42            pushi 42 // $42 setPri
  0c19:78               push1 
  0c1a:39 0e            pushi e // $e lsLeft
  0c1c:39 57            pushi 57 // $57 init
  0c1e:76               push0 
  0c1f:38 00c6          pushi c6 // $c6 stopUpd
  0c22:76               push0 
  0c23:72 16ea          lofsa $2310 // FifiButt
  0c26:4a 0e             send e 

  0c28:32 0225            jmp code_0e50 

        code_0c2b
  0c2b:3c                 dup 
  0c2c:35 01              ldi 1 
  0c2e:1a                 eq? 
  0c2f:31 16              bnt code_0c47 
  0c31:39 06            pushi 6 // $6 loop
  0c33:78               push1 
  0c34:78               push1 
  0c35:39 7e            pushi 7e // $7e setCycle
  0c37:78               push1 
  0c38:51 16            class Fwd 
  0c3a:36                push 
  0c3b:72 1720          lofsa $235e // Fifi
  0c3e:4a 0c             send c 

  0c40:35 03              ldi 3 
  0c42:65 12             aTop seconds 
  0c44:32 0209            jmp code_0e50 

        code_0c47
  0c47:3c                 dup 
  0c48:35 02              ldi 2 
  0c4a:1a                 eq? 
  0c4b:31 17              bnt code_0c64 
  0c4d:39 06            pushi 6 // $6 loop
  0c4f:78               push1 
  0c50:7a               push2 
  0c51:39 07            pushi 7 // $7 cel
  0c53:78               push1 
  0c54:76               push0 
  0c55:39 7e            pushi 7e // $7e setCycle
  0c57:7a               push2 
  0c58:51 1a            class End 
  0c5a:36                push 
  0c5b:7c            pushSelf 
  0c5c:72 16ff          lofsa $235e // Fifi
  0c5f:4a 14             send 14 

  0c61:32 01ec            jmp code_0e50 

        code_0c64
  0c64:3c                 dup 
  0c65:35 03              ldi 3 
  0c67:1a                 eq? 
  0c68:31 17              bnt code_0c81 
  0c6a:39 06            pushi 6 // $6 loop
  0c6c:78               push1 
  0c6d:39 03            pushi 3 // $3 y
  0c6f:39 7e            pushi 7e // $7e setCycle
  0c71:78               push1 
  0c72:51 16            class Fwd 
  0c74:36                push 
  0c75:72 16e6          lofsa $235e // Fifi
  0c78:4a 0c             send c 

  0c7a:35 03              ldi 3 
  0c7c:65 12             aTop seconds 
  0c7e:32 01cf            jmp code_0e50 

        code_0c81
  0c81:3c                 dup 
  0c82:35 04              ldi 4 
  0c84:1a                 eq? 
  0c85:31 17              bnt code_0c9e 
  0c87:39 06            pushi 6 // $6 loop
  0c89:78               push1 
  0c8a:76               push0 
  0c8b:39 07            pushi 7 // $7 cel
  0c8d:78               push1 
  0c8e:78               push1 
  0c8f:39 7e            pushi 7e // $7e setCycle
  0c91:7a               push2 
  0c92:51 1b            class Beg 
  0c94:36                push 
  0c95:7c            pushSelf 
  0c96:72 16c5          lofsa $235e // Fifi
  0c99:4a 14             send 14 

  0c9b:32 01b2            jmp code_0e50 

        code_0c9e
  0c9e:3c                 dup 
  0c9f:35 05              ldi 5 
  0ca1:1a                 eq? 
  0ca2:31 0b              bnt code_0caf 
  0ca4:35 08              ldi 8 
  0ca6:65 12             aTop seconds 
  0ca8:35 0c              ldi c 
  0caa:65 0a             aTop state 
  0cac:32 01a1            jmp code_0e50 

        code_0caf
  0caf:3c                 dup 
  0cb0:35 06              ldi 6 
  0cb2:1a                 eq? 
  0cb3:31 18              bnt code_0ccd 
  0cb5:39 06            pushi 6 // $6 loop
  0cb7:78               push1 
  0cb8:39 04            pushi 4 // $4 x
  0cba:39 07            pushi 7 // $7 cel
  0cbc:78               push1 
  0cbd:76               push0 
  0cbe:39 7e            pushi 7e // $7e setCycle
  0cc0:7a               push2 
  0cc1:51 1a            class End 
  0cc3:36                push 
  0cc4:7c            pushSelf 
  0cc5:72 1696          lofsa $235e // Fifi
  0cc8:4a 14             send 14 

  0cca:32 0183            jmp code_0e50 

        code_0ccd
  0ccd:3c                 dup 
  0cce:35 07              ldi 7 
  0cd0:1a                 eq? 
  0cd1:31 1b              bnt code_0cee 
  0cd3:39 06            pushi 6 // $6 loop
  0cd5:78               push1 
  0cd6:39 05            pushi 5 // $5 view
  0cd8:39 07            pushi 7 // $7 cel
  0cda:78               push1 
  0cdb:76               push0 
  0cdc:39 7e            pushi 7e // $7e setCycle
  0cde:78               push1 
  0cdf:51 16            class Fwd 
  0ce1:36                push 
  0ce2:72 1679          lofsa $235e // Fifi
  0ce5:4a 12             send 12 

  0ce7:35 03              ldi 3 
  0ce9:65 12             aTop seconds 
  0ceb:32 0162            jmp code_0e50 

        code_0cee
  0cee:3c                 dup 
  0cef:35 08              ldi 8 
  0cf1:1a                 eq? 
  0cf2:31 18              bnt code_0d0c 
  0cf4:39 06            pushi 6 // $6 loop
  0cf6:78               push1 
  0cf7:39 04            pushi 4 // $4 x
  0cf9:39 07            pushi 7 // $7 cel
  0cfb:78               push1 
  0cfc:78               push1 
  0cfd:39 7e            pushi 7e // $7e setCycle
  0cff:7a               push2 
  0d00:51 1b            class Beg 
  0d02:36                push 
  0d03:7c            pushSelf 
  0d04:72 1657          lofsa $235e // Fifi
  0d07:4a 14             send 14 

  0d09:32 0144            jmp code_0e50 

        code_0d0c
  0d0c:3c                 dup 
  0d0d:35 09              ldi 9 
  0d0f:1a                 eq? 
  0d10:31 0b              bnt code_0d1d 
  0d12:35 08              ldi 8 
  0d14:65 12             aTop seconds 
  0d16:35 0c              ldi c 
  0d18:65 0a             aTop state 
  0d1a:32 0133            jmp code_0e50 

        code_0d1d
  0d1d:3c                 dup 
  0d1e:35 0a              ldi a 
  0d20:1a                 eq? 
  0d21:31 18              bnt code_0d3b 
  0d23:39 06            pushi 6 // $6 loop
  0d25:78               push1 
  0d26:39 06            pushi 6 // $6 loop
  0d28:39 07            pushi 7 // $7 cel
  0d2a:78               push1 
  0d2b:76               push0 
  0d2c:39 7e            pushi 7e // $7e setCycle
  0d2e:7a               push2 
  0d2f:51 1a            class End 
  0d31:36                push 
  0d32:7c            pushSelf 
  0d33:72 1628          lofsa $235e // Fifi
  0d36:4a 14             send 14 

  0d38:32 0115            jmp code_0e50 

        code_0d3b
  0d3b:3c                 dup 
  0d3c:35 0b              ldi b 
  0d3e:1a                 eq? 
  0d3f:31 1b              bnt code_0d5c 
  0d41:39 06            pushi 6 // $6 loop
  0d43:78               push1 
  0d44:39 07            pushi 7 // $7 cel
  0d46:39 07            pushi 7 // $7 cel
  0d48:78               push1 
  0d49:76               push0 
  0d4a:39 7e            pushi 7e // $7e setCycle
  0d4c:78               push1 
  0d4d:51 16            class Fwd 
  0d4f:36                push 
  0d50:72 160b          lofsa $235e // Fifi
  0d53:4a 12             send 12 

  0d55:35 03              ldi 3 
  0d57:65 12             aTop seconds 
  0d59:32 00f4            jmp code_0e50 

        code_0d5c
  0d5c:3c                 dup 
  0d5d:35 0c              ldi c 
  0d5f:1a                 eq? 
  0d60:31 18              bnt code_0d7a 
  0d62:39 06            pushi 6 // $6 loop
  0d64:78               push1 
  0d65:39 06            pushi 6 // $6 loop
  0d67:39 07            pushi 7 // $7 cel
  0d69:78               push1 
  0d6a:78               push1 
  0d6b:39 7e            pushi 7e // $7e setCycle
  0d6d:7a               push2 
  0d6e:51 1b            class Beg 
  0d70:36                push 
  0d71:7c            pushSelf 
  0d72:72 15e9          lofsa $235e // Fifi
  0d75:4a 14             send 14 

  0d77:32 00d6            jmp code_0e50 

        code_0d7a
  0d7a:3c                 dup 
  0d7b:35 0d              ldi d 
  0d7d:1a                 eq? 
  0d7e:31 36              bnt code_0db6 
  0d80:83 09              lal local9 
  0d82:31 2b              bnt code_0daf 
  0d84:7a               push2 
  0d85:78               push1 
  0d86:39 03            pushi 3 // $3 y
  0d88:43 40 04         callk Random 4 

  0d8b:36                push 
  0d8c:3c                 dup 
  0d8d:35 01              ldi 1 
  0d8f:1a                 eq? 
  0d90:31 06              bnt code_0d98 
  0d92:35 ff              ldi ff 
  0d94:65 0a             aTop state 
  0d96:33 16              jmp code_0dae 

        code_0d98
  0d98:3c                 dup 
  0d99:35 02              ldi 2 
  0d9b:1a                 eq? 
  0d9c:31 06              bnt code_0da4 
  0d9e:35 05              ldi 5 
  0da0:65 0a             aTop state 
  0da2:33 0a              jmp code_0dae 

        code_0da4
  0da4:3c                 dup 
  0da5:35 03              ldi 3 
  0da7:1a                 eq? 
  0da8:31 04              bnt code_0dae 
  0daa:35 09              ldi 9 
  0dac:65 0a             aTop state 

        code_0dae
  0dae:3a                toss 

        code_0daf
  0daf:35 06              ldi 6 
  0db1:65 12             aTop seconds 
  0db3:32 009a            jmp code_0e50 

        code_0db6
  0db6:3c                 dup 
  0db7:35 0e              ldi e 
  0db9:1a                 eq? 
  0dba:31 1e              bnt code_0dda 
  0dbc:c3 09              +al local9 
  0dbe:39 05            pushi 5 // $5 view
  0dc0:78               push1 
  0dc1:38 01de          pushi 1de // $1de sel_478
  0dc4:39 06            pushi 6 // $6 loop
  0dc6:78               push1 
  0dc7:76               push0 
  0dc8:39 07            pushi 7 // $7 cel
  0dca:78               push1 
  0dcb:76               push0 
  0dcc:39 7e            pushi 7e // $7e setCycle
  0dce:7a               push2 
  0dcf:51 1a            class End 
  0dd1:36                push 
  0dd2:7c            pushSelf 
  0dd3:72 1588          lofsa $235e // Fifi
  0dd6:4a 1a             send 1a 

  0dd8:33 76              jmp code_0e50 

        code_0dda
  0dda:3c                 dup 
  0ddb:35 0f              ldi f 
  0ddd:1a                 eq? 
  0dde:31 15              bnt code_0df5 
  0de0:39 06            pushi 6 // $6 loop
  0de2:78               push1 
  0de3:78               push1 
  0de4:39 7e            pushi 7e // $7e setCycle
  0de6:78               push1 
  0de7:51 16            class Fwd 
  0de9:36                push 
  0dea:72 1571          lofsa $235e // Fifi
  0ded:4a 0c             send c 

  0def:35 03              ldi 3 
  0df1:65 12             aTop seconds 
  0df3:33 5b              jmp code_0e50 

        code_0df5
  0df5:3c                 dup 
  0df6:35 10              ldi 10 
  0df8:1a                 eq? 
  0df9:31 16              bnt code_0e11 
  0dfb:39 06            pushi 6 // $6 loop
  0dfd:78               push1 
  0dfe:7a               push2 
  0dff:39 07            pushi 7 // $7 cel
  0e01:78               push1 
  0e02:76               push0 
  0e03:39 7e            pushi 7e // $7e setCycle
  0e05:7a               push2 
  0e06:51 1a            class End 
  0e08:36                push 
  0e09:7c            pushSelf 
  0e0a:72 1551          lofsa $235e // Fifi
  0e0d:4a 14             send 14 

  0e0f:33 3f              jmp code_0e50 

        code_0e11
  0e11:3c                 dup 
  0e12:35 11              ldi 11 
  0e14:1a                 eq? 
  0e15:31 1a              bnt code_0e31 
  0e17:39 06            pushi 6 // $6 loop
  0e19:78               push1 
  0e1a:39 03            pushi 3 // $3 y
  0e1c:39 07            pushi 7 // $7 cel
  0e1e:78               push1 
  0e1f:76               push0 
  0e20:39 7e            pushi 7e // $7e setCycle
  0e22:78               push1 
  0e23:51 16            class Fwd 
  0e25:36                push 
  0e26:72 1535          lofsa $235e // Fifi
  0e29:4a 12             send 12 

  0e2b:35 03              ldi 3 
  0e2d:65 12             aTop seconds 
  0e2f:33 1f              jmp code_0e50 

        code_0e31
  0e31:3c                 dup 
  0e32:35 12              ldi 12 
  0e34:1a                 eq? 
  0e35:31 19              bnt code_0e50 
  0e37:39 06            pushi 6 // $6 loop
  0e39:78               push1 
  0e3a:7a               push2 
  0e3b:39 07            pushi 7 // $7 cel
  0e3d:78               push1 
  0e3e:39 03            pushi 3 // $3 y
  0e40:39 7e            pushi 7e // $7e setCycle
  0e42:7a               push2 
  0e43:51 1b            class Beg 
  0e45:36                push 
  0e46:7c            pushSelf 
  0e47:72 1514          lofsa $235e // Fifi
  0e4a:4a 14             send 14 

  0e4c:35 ff              ldi ff 
  0e4e:65 0a             aTop state 

        code_0e50
  0e50:3a                toss 
  0e51:48                 ret 
    )

)

// 1e14
(instance knockDoor 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_0e52
  0e52:38 0081          pushi 81 // $81 prevSignal
  0e55:76               push0 
  0e56:72 1597          lofsa $23f0 // myMusic
  0e59:4a 04             send 4 

  0e5b:36                push 
  0e5c:35 0b              ldi b 
  0e5e:1a                 eq? 
  0e5f:31 0b              bnt code_0e6c 
  0e61:7a               push2 
  0e62:39 08            pushi 8 // $8 underBits
  0e64:76               push0 
  0e65:43 31 04         callk DoSound 4 

  0e68:35 01              ldi 1 
  0e6a:65 10             aTop cycles 

        code_0e6c
  0e6c:39 3c            pushi 3c // $3c doit
  0e6e:76               push0 
  0e6f:57 05 04         super Script 4 

  0e72:48                 ret 
    )

    (method (changeState) // method_0e73
  0e73:87 01              lap param1 
  0e75:65 0a             aTop state 
  0e77:36                push 
  0e78:3c                 dup 
  0e79:35 00              ldi 0 
  0e7b:1a                 eq? 
  0e7c:31 25              bnt code_0ea3 
  0e7e:38 0081          pushi 81 // $81 prevSignal
  0e81:78               push1 
  0e82:76               push0 
  0e83:72 156a          lofsa $23f0 // myMusic
  0e86:4a 06             send 6 

  0e88:76               push0 
  0e89:45 03 00         callb procedure_0003 0 // HandsOff 

  0e8c:39 05            pushi 5 // $5 view
  0e8e:78               push1 
  0e8f:39 38            pushi 38 // $38 moveSpeed
  0e91:39 06            pushi 6 // $6 loop
  0e93:78               push1 
  0e94:76               push0 
  0e95:39 7e            pushi 7e // $7e setCycle
  0e97:7a               push2 
  0e98:51 1a            class End 
  0e9a:36                push 
  0e9b:7c            pushSelf 
  0e9c:81 00              lag gEgo 
  0e9e:4a 14             send 14 

  0ea0:32 0085            jmp code_0f28 

        code_0ea3
  0ea3:3c                 dup 
  0ea4:35 01              ldi 1 
  0ea6:1a                 eq? 
  0ea7:31 2e              bnt code_0ed7 
  0ea9:39 2b            pushi 2b // $2b number
  0eab:78               push1 
  0eac:39 30            pushi 30 // $30 b-moveCnt
  0eae:39 06            pushi 6 // $6 loop
  0eb0:78               push1 
  0eb1:78               push1 
  0eb2:39 3f            pushi 3f // $3f priority
  0eb4:78               push1 
  0eb5:39 0f            pushi f // $f lsBottom
  0eb7:39 2a            pushi 2a // $2a play
  0eb9:76               push0 
  0eba:72 1533          lofsa $23f0 // myMusic
  0ebd:4a 16             send 16 

  0ebf:7a               push2 
  0ec0:39 08            pushi 8 // $8 underBits
  0ec2:8b 08              lsl local8 
  0ec4:43 31 04         callk DoSound 4 

  0ec7:39 06            pushi 6 // $6 loop
  0ec9:78               push1 
  0eca:7a               push2 
  0ecb:39 7e            pushi 7e // $7e setCycle
  0ecd:78               push1 
  0ece:51 16            class Fwd 
  0ed0:36                push 
  0ed1:81 00              lag gEgo 
  0ed3:4a 0c             send c 

  0ed5:33 51              jmp code_0f28 

        code_0ed7
  0ed7:3c                 dup 
  0ed8:35 02              ldi 2 
  0eda:1a                 eq? 
  0edb:31 26              bnt code_0f03 
  0edd:7a               push2 
  0ede:39 4a            pushi 4a // $4a pragmaFail
  0ee0:39 0f            pushi f // $f lsBottom
  0ee2:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0ee8:39 05            pushi 5 // $5 view
  0eea:78               push1 
  0eeb:39 38            pushi 38 // $38 moveSpeed
  0eed:39 06            pushi 6 // $6 loop
  0eef:78               push1 
  0ef0:76               push0 
  0ef1:39 07            pushi 7 // $7 cel
  0ef3:78               push1 
  0ef4:39 03            pushi 3 // $3 y
  0ef6:39 7e            pushi 7e // $7e setCycle
  0ef8:7a               push2 
  0ef9:51 1b            class Beg 
  0efb:36                push 
  0efc:7c            pushSelf 
  0efd:81 00              lag gEgo 
  0eff:4a 1a             send 1a 

  0f01:33 25              jmp code_0f28 

        code_0f03
  0f03:3c                 dup 
  0f04:35 03              ldi 3 
  0f06:1a                 eq? 
  0f07:31 1f              bnt code_0f28 
  0f09:76               push0 
  0f0a:45 04 00         callb procedure_0004 0 // HandsOn 

  0f0d:39 05            pushi 5 // $5 view
  0f0f:78               push1 
  0f10:76               push0 
  0f11:39 7e            pushi 7e // $7e setCycle
  0f13:78               push1 
  0f14:51 17            class Walk 
  0f16:36                push 
  0f17:39 06            pushi 6 // $6 loop
  0f19:78               push1 
  0f1a:39 03            pushi 3 // $3 y
  0f1c:81 00              lag gEgo 
  0f1e:4a 12             send 12 

  0f20:39 7a            pushi 7a // $7a setScript
  0f22:78               push1 
  0f23:76               push0 
  0f24:63 08             pToa client 
  0f26:4a 06             send 6 


        code_0f28
  0f28:3a                toss 
  0f29:48                 ret 
    )

)

// 1e48
(instance wardrobe of RPicView
    (properties
        y $4e
        x $54
        z $0
        heading $0
        view $ae
        loop $2
        cel $2
        priority $4
        signal $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
    )
    (method (handleEvent) // method_0f2a
  0f2a:78               push1 
  0f2b:74 0d6c          lofss $1c9a // open,(look<dans)/armoire
  0f2e:43 25 02         callk Said 2 

  0f31:31 0d              bnt code_0f40 
  0f33:7a               push2 
  0f34:39 4a            pushi 4a // $4a pragmaFail
  0f36:39 10            pushi 10 // $10 lsRight
  0f38:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0f3e:33 2b              jmp code_0f6b 

        code_0f40
  0f40:39 03            pushi 3 // $3 y
  0f42:7c            pushSelf 
  0f43:8f 01              lsp param1 
  0f45:39 03            pushi 3 // $3 y
  0f47:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  0f4d:2f 09               bt code_0f58 
  0f4f:78               push1 
  0f50:74 0c82          lofss $1bd5 // look/armoire
  0f53:43 25 02         callk Said 2 

  0f56:31 13              bnt code_0f6b 

        code_0f58
  0f58:39 4c            pushi 4c // $4c claimed
  0f5a:78               push1 
  0f5b:78               push1 
  0f5c:87 01              lap param1 
  0f5e:4a 06             send 6 

  0f60:7a               push2 
  0f61:39 4a            pushi 4a // $4a pragmaFail
  0f63:39 11            pushi 11 // $11 signal
  0f65:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0f6b
  0f6b:48                 ret 
    )

)

// 1e7e
(instance sofa of RPicView
    (properties
        y $4e
        x $8a
        z $0
        heading $0
        view $ae
        loop $2
        cel $1
        priority $3
        signal $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
    )
    (method (handleEvent) // method_0f6c
  0f6c:39 03            pushi 3 // $3 y
  0f6e:7c            pushSelf 
  0f6f:8f 01              lsp param1 
  0f71:39 03            pushi 3 // $3 y
  0f73:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  0f79:31 0f              bnt code_0f8a 
  0f7b:39 4c            pushi 4c // $4c claimed
  0f7d:78               push1 
  0f7e:78               push1 
  0f7f:87 01              lap param1 
  0f81:4a 06             send 6 

  0f83:78               push1 
  0f84:74 1514          lofss $249b // couch
  0f87:45 19 02         callb procedure_0019 2 // DoLook 


        code_0f8a
  0f8a:48                 ret 
    )

)

// 1eb4
(instance table1 of RPicView
    (properties
        y $4f
        x $c0
        z $0
        heading $0
        view $ae
        loop $2
        cel $7
        priority $3
        signal $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
    )
    (method (handleEvent) // method_0f8b
  0f8b:39 03            pushi 3 // $3 y
  0f8d:7c            pushSelf 
  0f8e:8f 01              lsp param1 
  0f90:39 03            pushi 3 // $3 y
  0f92:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  0f98:31 13              bnt code_0fad 
  0f9a:39 4c            pushi 4c // $4c claimed
  0f9c:78               push1 
  0f9d:78               push1 
  0f9e:87 01              lap param1 
  0fa0:4a 06             send 6 

  0fa2:7a               push2 
  0fa3:39 4a            pushi 4a // $4a pragmaFail
  0fa5:39 12            pushi 12 // $12 illegalBits
  0fa7:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0fad
  0fad:48                 ret 
    )

)

// 1eea
(instance bed of RPicView
    (properties
        y $8e
        x $e8
        z $0
        heading $0
        view $ae
        loop $2
        cel $0
        priority $a
        signal $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
    )
    (method (handleEvent) // method_0fae
  0fae:78               push1 
  0faf:74 0cb1          lofss $1c63 // look<below/bed
  0fb2:43 25 02         callk Said 2 

  0fb5:31 0d              bnt code_0fc4 
  0fb7:7a               push2 
  0fb8:39 4a            pushi 4a // $4a pragmaFail
  0fba:39 13            pushi 13 // $13 brTop
  0fbc:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0fc2:33 1e              jmp code_0fe2 

        code_0fc4
  0fc4:39 03            pushi 3 // $3 y
  0fc6:7c            pushSelf 
  0fc7:8f 01              lsp param1 
  0fc9:39 03            pushi 3 // $3 y
  0fcb:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  0fd1:31 0f              bnt code_0fe2 
  0fd3:39 4c            pushi 4c // $4c claimed
  0fd5:78               push1 
  0fd6:78               push1 
  0fd7:87 01              lap param1 
  0fd9:4a 06             send 6 

  0fdb:78               push1 
  0fdc:74 14a4          lofss $2483 // bed
  0fdf:45 19 02         callb procedure_0019 2 // DoLook 


        code_0fe2
  0fe2:48                 ret 
    )

)

// 1f20
(instance mirror of RPicView
    (properties
        y $9e
        x $10c
        z $0
        heading $0
        view $ae
        loop $2
        cel $3
        priority $c
        signal $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
    )
    (method (handleEvent) // method_0fe3
  0fe3:78               push1 
  0fe4:74 0c9a          lofss $1c81 // look<dans/miroir
  0fe7:43 25 02         callk Said 2 

  0fea:2f 09               bt code_0ff5 
  0fec:78               push1 
  0fed:74 0c51          lofss $1c41 // look/reflection
  0ff0:43 25 02         callk Said 2 

  0ff3:31 29              bnt code_101e 

        code_0ff5
  0ff5:38 00ae          pushi ae // $ae distanceTo
  0ff8:78               push1 
  0ff9:74 0f2a          lofss $1f26 // mirror
  0ffc:81 00              lag gEgo 
  0ffe:4a 06             send 6 

  1000:36                push 
  1001:35 50              ldi 50 
  1003:22                 lt? 
  1004:31 11              bnt code_1017 
  1006:35 0c              ldi c 
  1008:a0 00d5            sag global213 
  100b:39 03            pushi 3 // $3 y
  100d:76               push0 
  100e:39 4a            pushi 4a // $4a pragmaFail
  1010:39 14            pushi 14 // $14 brLeft
  1012:45 01 06         callb procedure_0001 6 // Say 

  1015:33 04              jmp code_101b 

        code_1017
  1017:76               push0 
  1018:45 09 00         callb procedure_0009 0 // NotClose 


        code_101b
  101b:32 00a6            jmp code_10c4 

        code_101e
  101e:78               push1 
  101f:74 0c33          lofss $1c55 // look<(behind,below)/miroir
  1022:43 25 02         callk Said 2 

  1025:31 0e              bnt code_1035 
  1027:7a               push2 
  1028:39 4a            pushi 4a // $4a pragmaFail
  102a:39 15            pushi 15 // $15 brBottom
  102c:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  1032:32 008f            jmp code_10c4 

        code_1035
  1035:78               push1 
  1036:74 0bfc          lofss $1c35 // look/miroir
  1039:43 25 02         callk Said 2 

  103c:31 0d              bnt code_104b 
  103e:7a               push2 
  103f:39 4a            pushi 4a // $4a pragmaFail
  1041:39 16            pushi 16 // $16 brRight
  1043:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  1049:33 79              jmp code_10c4 

        code_104b
  104b:78               push1 
  104c:74 0b4c          lofss $1b9b // get/miroir
  104f:43 25 02         callk Said 2 

  1052:31 0d              bnt code_1061 
  1054:7a               push2 
  1055:39 4a            pushi 4a // $4a pragmaFail
  1057:39 17            pushi 17 // $17 name
  1059:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  105f:33 63              jmp code_10c4 

        code_1061
  1061:78               push1 
  1062:74 0c43          lofss $1ca8 // open,(look<dans)/coiffeuse,drawer,(nightstand<dressing)
  1065:43 25 02         callk Said 2 

  1068:31 1e              bnt code_1088 
  106a:8b 02              lsl local2 
  106c:35 02              ldi 2 
  106e:1a                 eq? 
  106f:31 0d              bnt code_107e 
  1071:7a               push2 
  1072:39 4a            pushi 4a // $4a pragmaFail
  1074:39 18            pushi 18 // $18 key
  1076:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  107c:33 08              jmp code_1086 

        code_107e
  107e:39 4c            pushi 4c // $4c claimed
  1080:78               push1 
  1081:76               push0 
  1082:87 01              lap param1 
  1084:4a 06             send 6 


        code_1086
  1086:33 3c              jmp code_10c4 

        code_1088
  1088:39 03            pushi 3 // $3 y
  108a:7c            pushSelf 
  108b:8f 01              lsp param1 
  108d:39 03            pushi 3 // $3 y
  108f:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  1095:2f 09               bt code_10a0 
  1097:78               push1 
  1098:74 0bac          lofss $1c47 // look/coiffeuse,(nightstand<dressing)
  109b:43 25 02         callk Said 2 

  109e:31 24              bnt code_10c4 

        code_10a0
  10a0:8b 02              lsl local2 
  10a2:35 02              ldi 2 
  10a4:1a                 eq? 
  10a5:31 15              bnt code_10bc 
  10a7:7a               push2 
  10a8:39 4a            pushi 4a // $4a pragmaFail
  10aa:39 19            pushi 19 // $19 time
  10ac:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  10b2:39 4c            pushi 4c // $4c claimed
  10b4:78               push1 
  10b5:78               push1 
  10b6:87 01              lap param1 
  10b8:4a 06             send 6 

  10ba:33 08              jmp code_10c4 

        code_10bc
  10bc:39 4c            pushi 4c // $4c claimed
  10be:78               push1 
  10bf:76               push0 
  10c0:87 01              lap param1 
  10c2:4a 06             send 6 


        code_10c4
  10c4:48                 ret 
    )

)

// 1f56
(instance chair1 of RPicView
    (properties
        y $9d
        x $f5
        z $0
        heading $0
        view $ae
        loop $2
        cel $8
        priority $b
        signal $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
    )
    (method (handleEvent) // method_10c5
  10c5:39 03            pushi 3 // $3 y
  10c7:7c            pushSelf 
  10c8:8f 01              lsp param1 
  10ca:39 03            pushi 3 // $3 y
  10cc:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  10d2:31 0f              bnt code_10e3 
  10d4:39 4c            pushi 4c // $4c claimed
  10d6:78               push1 
  10d7:78               push1 
  10d8:87 01              lap param1 
  10da:4a 06             send 6 

  10dc:78               push1 
  10dd:74 13a7          lofss $2487 // chair
  10e0:45 19 02         callb procedure_0019 2 // DoLook 


        code_10e3
  10e3:48                 ret 
    )

)

// 1f8c
(instance chair2 of RPicView
    (properties
        y $9d
        x $65
        z $0
        heading $0
        view $ae
        loop $2
        cel $5
        priority $b
        signal $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
    )
    (method (handleEvent) // method_10e4
  10e4:39 03            pushi 3 // $3 y
  10e6:7c            pushSelf 
  10e7:8f 01              lsp param1 
  10e9:39 03            pushi 3 // $3 y
  10eb:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  10f1:31 0f              bnt code_1102 
  10f3:39 4c            pushi 4c // $4c claimed
  10f5:78               push1 
  10f6:78               push1 
  10f7:87 01              lap param1 
  10f9:4a 06             send 6 

  10fb:78               push1 
  10fc:74 1388          lofss $2487 // chair
  10ff:45 19 02         callb procedure_0019 2 // DoLook 


        code_1102
  1102:48                 ret 
    )

)

// 1fc2
(instance table2 of RPicView
    (properties
        y $9d
        x $8c
        z $0
        heading $0
        view $ae
        loop $2
        cel $7
        priority $b
        signal $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
    )
    (method (handleEvent) // method_1103
  1103:88 00a5            lsg gAct 
  1106:35 02              ldi 2 
  1108:20                 ge? 
  1109:31 59              bnt code_1164 
  110b:88 00a5            lsg gAct 
  110e:35 06              ldi 6 
  1110:22                 lt? 
  1111:31 51              bnt code_1164 
  1113:39 03            pushi 3 // $3 y
  1115:7c            pushSelf 
  1116:8f 01              lsp param1 
  1118:39 03            pushi 3 // $3 y
  111a:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  1120:2f 09               bt code_112b 
  1122:78               push1 
  1123:74 0b15          lofss $1c3b // look/nightstand
  1126:43 25 02         callk Said 2 

  1129:31 39              bnt code_1164 

        code_112b
  112b:88 00a5            lsg gAct 
  112e:35 05              ldi 5 
  1130:1a                 eq? 
  1131:31 1e              bnt code_1151 
  1133:83 04              lal local4 
  1135:31 0d              bnt code_1144 
  1137:7a               push2 
  1138:39 4a            pushi 4a // $4a pragmaFail
  113a:39 1a            pushi 1a // $1a text
  113c:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  1142:33 0b              jmp code_114f 

        code_1144
  1144:7a               push2 
  1145:39 4a            pushi 4a // $4a pragmaFail
  1147:39 1b            pushi 1b // $1b elements
  1149:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_114f
  114f:33 0b              jmp code_115c 

        code_1151
  1151:7a               push2 
  1152:39 4a            pushi 4a // $4a pragmaFail
  1154:39 1c            pushi 1c // $1c color
  1156:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_115c
  115c:39 4c            pushi 4c // $4c claimed
  115e:78               push1 
  115f:78               push1 
  1160:87 01              lap param1 
  1162:4a 06             send 6 


        code_1164
  1164:39 03            pushi 3 // $3 y
  1166:7c            pushSelf 
  1167:8f 01              lsp param1 
  1169:39 03            pushi 3 // $3 y
  116b:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  1171:31 0f              bnt code_1182 
  1173:39 4c            pushi 4c // $4c claimed
  1175:78               push1 
  1176:78               push1 
  1177:87 01              lap param1 
  1179:4a 06             send 6 

  117b:78               push1 
  117c:74 13b6          lofss $2535 // table
  117f:45 19 02         callb procedure_0019 2 // DoLook 


        code_1182
  1182:48                 ret 
    )

)

// 1ff8
(instance glasses of RPicView
    (properties
        y $8d
        x $8e
        z $0
        heading $0
        view $ae
        loop $2
        cel $4
        priority $e
        signal $4000
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
    )
    (method (handleEvent) // method_1183
  1183:78               push1 
  1184:74 0a08          lofss $1b8f // get/glass
  1187:43 25 02         callk Said 2 

  118a:31 0d              bnt code_1199 
  118c:7a               push2 
  118d:39 4a            pushi 4a // $4a pragmaFail
  118f:39 1d            pushi 1d // $1d back
  1191:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  1197:33 41              jmp code_11da 

        code_1199
  1199:78               push1 
  119a:74 0adb          lofss $1c78 // look<dans/glass
  119d:43 25 02         callk Said 2 

  11a0:31 0d              bnt code_11af 
  11a2:7a               push2 
  11a3:39 4a            pushi 4a // $4a pragmaFail
  11a5:39 1e            pushi 1e // $1e mode
  11a7:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  11ad:33 2b              jmp code_11da 

        code_11af
  11af:78               push1 
  11b0:74 0a65          lofss $1c18 // look/glass
  11b3:43 25 02         callk Said 2 

  11b6:2f 0f               bt code_11c7 
  11b8:39 03            pushi 3 // $3 y
  11ba:7c            pushSelf 
  11bb:8f 01              lsp param1 
  11bd:39 03            pushi 3 // $3 y
  11bf:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  11c5:31 13              bnt code_11da 

        code_11c7
  11c7:39 4c            pushi 4c // $4c claimed
  11c9:78               push1 
  11ca:78               push1 
  11cb:87 01              lap param1 
  11cd:4a 06             send 6 

  11cf:7a               push2 
  11d0:39 4a            pushi 4a // $4a pragmaFail
  11d2:39 1c            pushi 1c // $1c color
  11d4:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_11da
  11da:48                 ret 
    )

)

// 202e
(instance decanter of RPicView
    (properties
        y $8d
        x $82
        z $0
        heading $0
        view $ae
        loop $2
        cel $9
        priority $e
        signal $4000
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
    )
    (method (handleEvent) // method_11db
  11db:78               push1 
  11dc:74 0aab          lofss $1c8a // look<actionner<monocle/carafe
  11df:43 25 02         callk Said 2 

  11e2:2f 12               bt code_11f6 
  11e4:78               push1 
  11e5:74 09d0          lofss $1bb8 // look,(look<at)/carafe/monocle<avec
  11e8:43 25 02         callk Said 2 

  11eb:2f 09               bt code_11f6 
  11ed:78               push1 
  11ee:74 0a21          lofss $1c12 // look/empreinte
  11f1:43 25 02         callk Said 2 

  11f4:31 67              bnt code_125d 

        code_11f6
  11f6:38 00ee          pushi ee // $ee has
  11f9:78               push1 
  11fa:78               push1 
  11fb:81 00              lag gEgo 
  11fd:4a 06             send 6 

  11ff:31 55              bnt code_1256 
  1201:38 00ae          pushi ae // $ae distanceTo
  1204:78               push1 
  1205:74 0dc0          lofss $1fc8 // table2
  1208:81 00              lag gEgo 
  120a:4a 06             send 6 

  120c:36                push 
  120d:35 14              ldi 14 
  120f:22                 lt? 
  1210:31 3e              bnt code_1250 
  1212:88 00a5            lsg gAct 
  1215:35 05              ldi 5 
  1217:22                 lt? 
  1218:31 15              bnt code_122f 
  121a:39 06            pushi 6 // $6 loop
  121c:39 4a            pushi 4a // $4a pragmaFail
  121e:39 1f            pushi 1f // $1f style
  1220:39 52            pushi 52 // $52 icon
  1222:38 027b          pushi 27b // $27b sel_635
  1225:76               push0 
  1226:76               push0 
  1227:46 00ff 0000 0c  calle ff procedure_0000 c // Print 

  122d:33 13              jmp code_1242 

        code_122f
  122f:39 06            pushi 6 // $6 loop
  1231:39 4a            pushi 4a // $4a pragmaFail
  1233:39 20            pushi 20 // $20 state
  1235:39 52            pushi 52 // $52 icon
  1237:38 027b          pushi 27b // $27b sel_635
  123a:76               push0 
  123b:7a               push2 
  123c:46 00ff 0000 0c  calle ff procedure_0000 c // Print 


        code_1242
  1242:78               push1 
  1243:39 0b            pushi b // $b nsBottom
  1245:45 05 02         callb procedure_0005 2 // SetFlag 

  1248:78               push1 
  1249:39 1e            pushi 1e // $1e mode
  124b:45 05 02         callb procedure_0005 2 // SetFlag 

  124e:33 04              jmp code_1254 

        code_1250
  1250:76               push0 
  1251:45 09 00         callb procedure_0009 0 // NotClose 


        code_1254
  1254:33 04              jmp code_125a 

        code_1256
  1256:76               push0 
  1257:45 0d 00         callb procedure_000d 0 // DontHave 


        code_125a
  125a:32 00b2            jmp code_130f 

        code_125d
  125d:78               push1 
  125e:74 0900          lofss $1b61 // boire/[<alcohol]
  1261:43 25 02         callk Said 2 

  1264:2f 12               bt code_1278 
  1266:78               push1 
  1267:74 08e8          lofss $1b52 // boire,for,get/carafe,alcohol
  126a:43 25 02         callk Said 2 

  126d:2f 09               bt code_1278 
  126f:78               push1 
  1270:74 0a4e          lofss $1cc1 // open,get/carafe,alcohol
  1273:43 25 02         callk Said 2 

  1276:31 26              bnt code_129e 

        code_1278
  1278:83 04              lal local4 
  127a:31 15              bnt code_1291 
  127c:88 00a5            lsg gAct 
  127f:35 05              ldi 5 
  1281:1a                 eq? 
  1282:31 0d              bnt code_1291 
  1284:7a               push2 
  1285:39 4a            pushi 4a // $4a pragmaFail
  1287:39 21            pushi 21 // $21 font
  1289:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  128f:33 0b              jmp code_129c 

        code_1291
  1291:7a               push2 
  1292:39 4a            pushi 4a // $4a pragmaFail
  1294:39 1d            pushi 1d // $1d back
  1296:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_129c
  129c:33 71              jmp code_130f 

        code_129e
  129e:78               push1 
  129f:74 09ca          lofss $1c6c // look<dans/carafe,alcohol
  12a2:43 25 02         callk Said 2 

  12a5:31 22              bnt code_12c9 
  12a7:88 00a5            lsg gAct 
  12aa:35 05              ldi 5 
  12ac:20                 ge? 
  12ad:31 0d              bnt code_12bc 
  12af:7a               push2 
  12b0:39 4a            pushi 4a // $4a pragmaFail
  12b2:39 22            pushi 22 // $22 type
  12b4:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  12ba:33 0b              jmp code_12c7 

        code_12bc
  12bc:7a               push2 
  12bd:39 4a            pushi 4a // $4a pragmaFail
  12bf:39 23            pushi 23 // $23 window
  12c1:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_12c7
  12c7:33 46              jmp code_130f 

        code_12c9
  12c9:78               push1 
  12ca:74 0914          lofss $1be1 // look/carafe,alcohol
  12cd:43 25 02         callk Said 2 

  12d0:2f 0f               bt code_12e1 
  12d2:39 03            pushi 3 // $3 y
  12d4:7c            pushSelf 
  12d5:8f 01              lsp param1 
  12d7:39 03            pushi 3 // $3 y
  12d9:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  12df:31 2e              bnt code_130f 

        code_12e1
  12e1:78               push1 
  12e2:39 1e            pushi 1e // $1e mode
  12e4:45 05 02         callb procedure_0005 2 // SetFlag 

  12e7:88 00a5            lsg gAct 
  12ea:35 05              ldi 5 
  12ec:20                 ge? 
  12ed:31 0d              bnt code_12fc 
  12ef:7a               push2 
  12f0:39 4a            pushi 4a // $4a pragmaFail
  12f2:39 22            pushi 22 // $22 type
  12f4:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  12fa:33 0b              jmp code_1307 

        code_12fc
  12fc:7a               push2 
  12fd:39 4a            pushi 4a // $4a pragmaFail
  12ff:39 24            pushi 24 // $24 cursor
  1301:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_1307
  1307:39 4c            pushi 4c // $4c claimed
  1309:78               push1 
  130a:78               push1 
  130b:87 01              lap param1 
  130d:4a 06             send 6 


        code_130f
  130f:48                 ret 
    )

)

// 2064
(instance photo of RPicView
    (properties
        y $28
        x $8a
        z $0
        heading $0
        view $ae
        loop $2
        cel $6
        priority $4
        signal $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
    )
    (method (handleEvent) // method_1310
  1310:39 03            pushi 3 // $3 y
  1312:7c            pushSelf 
  1313:8f 01              lsp param1 
  1315:39 03            pushi 3 // $3 y
  1317:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  131d:31 0f              bnt code_132e 
  131f:39 4c            pushi 4c // $4c claimed
  1321:78               push1 
  1322:78               push1 
  1323:87 01              lap param1 
  1325:4a 06             send 6 

  1327:78               push1 
  1328:74 11e5          lofss $2510 // picture
  132b:45 19 02         callb procedure_0019 2 // DoLook 


        code_132e
  132e:48                 ret 
    )

)

// 209a
(instance phono of RPicView
    (properties
        y $3e
        x $bf
        z $0
        heading $0
        view $ae
        loop $2
        cel $b
        priority $4
        signal $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
    )
    (method (handleEvent) // method_132f
  132f:78               push1 
  1330:74 09b5          lofss $1ce8 // arreter,(rotate<off)/chanson,gramophone
  1333:43 25 02         callk Said 2 

  1336:31 68              bnt code_13a0 
  1338:38 00ae          pushi ae // $ae distanceTo
  133b:78               push1 
  133c:74 0d61          lofss $20a0 // phono
  133f:81 00              lag gEgo 
  1341:4a 06             send 6 

  1343:36                push 
  1344:35 14              ldi 14 
  1346:22                 lt? 
  1347:31 50              bnt code_1399 
  1349:83 04              lal local4 
  134b:31 3f              bnt code_138c 
  134d:88 00a5            lsg gAct 
  1350:35 05              ldi 5 
  1352:1a                 eq? 
  1353:31 37              bnt code_138c 
  1355:38 00a5          pushi a5 // $a5 cycler
  1358:76               push0 
  1359:72 0d7a          lofsa $20d6 // record
  135c:4a 04             send 4 

  135e:31 1f              bnt code_137f 
  1360:39 7e            pushi 7e // $7e setCycle
  1362:78               push1 
  1363:76               push0 
  1364:72 0d6f          lofsa $20d6 // record
  1367:4a 06             send 6 

  1369:38 0084          pushi 84 // $84 stop
  136c:76               push0 
  136d:80 0178            lag global376 
  1370:4a 04             send 4 

  1372:7a               push2 
  1373:39 4a            pushi 4a // $4a pragmaFail
  1375:39 25            pushi 25 // $25 max
  1377:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  137d:33 0b              jmp code_138a 

        code_137f
  137f:7a               push2 
  1380:39 4a            pushi 4a // $4a pragmaFail
  1382:39 26            pushi 26 // $26 mark
  1384:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_138a
  138a:33 0b              jmp code_1397 

        code_138c
  138c:7a               push2 
  138d:39 4a            pushi 4a // $4a pragmaFail
  138f:39 27            pushi 27 // $27 who
  1391:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_1397
  1397:33 04              jmp code_139d 

        code_1399
  1399:76               push0 
  139a:45 09 00         callb procedure_0009 0 // NotClose 


        code_139d
  139d:32 0105            jmp code_14a5 

        code_13a0
  13a0:78               push1 
  13a1:74 0967          lofss $1d0b // vent,jouer,(rotate<on)/gramophone,music,chanson,(joueur<chanson)
  13a4:43 25 02         callk Said 2 

  13a7:2f 09               bt code_13b2 
  13a9:78               push1 
  13aa:74 07f4          lofss $1ba1 // get/music,chanson,(joueur<chanson)
  13ad:43 25 02         callk Said 2 

  13b0:31 27              bnt code_13d9 

        code_13b2
  13b2:83 04              lal local4 
  13b4:31 15              bnt code_13cb 
  13b6:88 00a5            lsg gAct 
  13b9:35 05              ldi 5 
  13bb:1a                 eq? 
  13bc:31 0d              bnt code_13cb 
  13be:7a               push2 
  13bf:39 4a            pushi 4a // $4a pragmaFail
  13c1:39 28            pushi 28 // $28 message
  13c3:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  13c9:33 0b              jmp code_13d6 

        code_13cb
  13cb:7a               push2 
  13cc:39 4a            pushi 4a // $4a pragmaFail
  13ce:39 27            pushi 27 // $27 who
  13d0:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_13d6
  13d6:32 00cc            jmp code_14a5 

        code_13d9
  13d9:78               push1 
  13da:74 07ef          lofss $1bcc // look,find/chanson
  13dd:43 25 02         callk Said 2 

  13e0:31 5f              bnt code_1441 
  13e2:38 00ee          pushi ee // $ee has
  13e5:78               push1 
  13e6:39 09            pushi 9 // $9 nsTop
  13e8:81 00              lag gEgo 
  13ea:4a 06             send 6 

  13ec:31 0a              bnt code_13f8 
  13ee:39 4c            pushi 4c // $4c claimed
  13f0:78               push1 
  13f1:76               push0 
  13f2:87 01              lap param1 
  13f4:4a 06             send 6 

  13f6:33 47              jmp code_143f 

        code_13f8
  13f8:83 04              lal local4 
  13fa:31 20              bnt code_141c 
  13fc:88 00a5            lsg gAct 
  13ff:35 05              ldi 5 
  1401:1a                 eq? 
  1402:31 18              bnt code_141c 
  1404:38 00a5          pushi a5 // $a5 cycler
  1407:76               push0 
  1408:72 0ccb          lofsa $20d6 // record
  140b:4a 04             send 4 

  140d:31 0d              bnt code_141c 
  140f:7a               push2 
  1410:39 4a            pushi 4a // $4a pragmaFail
  1412:39 29            pushi 29 // $29 edit
  1414:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  141a:33 23              jmp code_143f 

        code_141c
  141c:38 00a5          pushi a5 // $a5 cycler
  141f:76               push0 
  1420:72 0cb3          lofsa $20d6 // record
  1423:4a 04             send 4 

  1425:31 0d              bnt code_1434 
  1427:7a               push2 
  1428:39 4a            pushi 4a // $4a pragmaFail
  142a:39 2a            pushi 2a // $2a play
  142c:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  1432:33 0b              jmp code_143f 

        code_1434
  1434:7a               push2 
  1435:39 4a            pushi 4a // $4a pragmaFail
  1437:39 2b            pushi 2b // $2b number
  1439:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_143f
  143f:33 64              jmp code_14a5 

        code_1441
  1441:39 03            pushi 3 // $3 y
  1443:7c            pushSelf 
  1444:8f 01              lsp param1 
  1446:39 03            pushi 3 // $3 y
  1448:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  144e:2f 09               bt code_1459 
  1450:78               push1 
  1451:74 07ca          lofss $1c1e // look/gramophone,armoire,(joueur<chanson)
  1454:43 25 02         callk Said 2 

  1457:31 4c              bnt code_14a5 

        code_1459
  1459:39 4c            pushi 4c // $4c claimed
  145b:78               push1 
  145c:78               push1 
  145d:87 01              lap param1 
  145f:4a 06             send 6 

  1461:83 04              lal local4 
  1463:31 20              bnt code_1485 
  1465:88 00a5            lsg gAct 
  1468:35 05              ldi 5 
  146a:1a                 eq? 
  146b:31 18              bnt code_1485 
  146d:38 00a5          pushi a5 // $a5 cycler
  1470:76               push0 
  1471:72 0c62          lofsa $20d6 // record
  1474:4a 04             send 4 

  1476:31 0d              bnt code_1485 
  1478:7a               push2 
  1479:39 4a            pushi 4a // $4a pragmaFail
  147b:39 29            pushi 29 // $29 edit
  147d:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  1483:33 20              jmp code_14a5 

        code_1485
  1485:88 00a5            lsg gAct 
  1488:35 05              ldi 5 
  148a:20                 ge? 
  148b:31 0d              bnt code_149a 
  148d:7a               push2 
  148e:39 4a            pushi 4a // $4a pragmaFail
  1490:39 2c            pushi 2c // $2c handle
  1492:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  1498:33 0b              jmp code_14a5 

        code_149a
  149a:7a               push2 
  149b:39 4a            pushi 4a // $4a pragmaFail
  149d:39 2d            pushi 2d // $2d client
  149f:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_14a5
  14a5:48                 ret 
    )

)

// 20d0
(instance record of Prop
    (properties
        y $35
        x $c1
        z $0
        heading $0
        yStep $2
        view $ae
        loop $7
        cel $5
        priority $4
        underBits $0
        signal $10
        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
    )
)

// 211e
(instance flowers of Prop
    (properties
        y $8f
        x $8d
        z $0
        heading $0
        yStep $2
        view $ae
        loop $2
        cel $a
        priority $e
        underBits $0
        signal $4010
        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_14a6
  14a6:78               push1 
  14a7:74 06df          lofss $1b89 // get/blossom
  14aa:43 25 02         callk Said 2 

  14ad:31 0d              bnt code_14bc 
  14af:7a               push2 
  14b0:39 4a            pushi 4a // $4a pragmaFail
  14b2:39 2e            pushi 2e // $2e dx
  14b4:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  14ba:33 2b              jmp code_14e7 

        code_14bc
  14bc:39 03            pushi 3 // $3 y
  14be:7c            pushSelf 
  14bf:8f 01              lsp param1 
  14c1:39 03            pushi 3 // $3 y
  14c3:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  14c9:2f 09               bt code_14d4 
  14cb:78               push1 
  14cc:74 070c          lofss $1bdb // look/blossom
  14cf:43 25 02         callk Said 2 

  14d2:31 13              bnt code_14e7 

        code_14d4
  14d4:39 4c            pushi 4c // $4c claimed
  14d6:78               push1 
  14d7:78               push1 
  14d8:87 01              lap param1 
  14da:4a 06             send 6 

  14dc:7a               push2 
  14dd:39 4a            pushi 4a // $4a pragmaFail
  14df:39 2f            pushi 2f // $2f dy
  14e1:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_14e7
  14e7:48                 ret 
    )

)

// 2170
(instance lamp1 of Prop
    (properties
        y $5d
        x $50
        z $0
        heading $0
        yStep $2
        view $ae
        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_14e8
  14e8:78               push1 
  14e9:74 064f          lofss $1b3b // change,(attach<on),porter/cloth
  14ec:43 25 02         callk Said 2 

  14ef:31 0e              bnt code_14ff 
  14f1:7a               push2 
  14f2:39 4a            pushi 4a // $4a pragmaFail
  14f4:39 30            pushi 30 // $30 b-moveCnt
  14f6:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  14fc:32 00a4            jmp code_15a3 

        code_14ff
  14ff:78               push1 
  1500:74 067a          lofss $1b7d // get,get,bouger/cloth
  1503:43 25 02         callk Said 2 

  1506:31 0e              bnt code_1516 
  1508:7a               push2 
  1509:39 4a            pushi 4a // $4a pragmaFail
  150b:39 31            pushi 31 // $31 b-i1
  150d:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  1513:32 008d            jmp code_15a3 

        code_1516
  1516:78               push1 
  1517:74 05a4          lofss $1abe // (look<(below,through)),chercher/dirt,cloth
  151a:43 25 02         callk Said 2 

  151d:31 17              bnt code_1536 
  151f:83 03              lal local3 
  1521:31 0d              bnt code_1530 
  1523:7a               push2 
  1524:39 4a            pushi 4a // $4a pragmaFail
  1526:39 32            pushi 32 // $32 b-i2
  1528:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  152e:33 04              jmp code_1534 

        code_1530
  1530:76               push0 
  1531:45 09 00         callb procedure_0009 0 // NotClose 


        code_1534
  1534:33 6d              jmp code_15a3 

        code_1536
  1536:78               push1 
  1537:74 06b0          lofss $1bea // look/dirt,cloth,pile
  153a:43 25 02         callk Said 2 

  153d:31 2c              bnt code_156b 
  153f:83 03              lal local3 
  1541:31 0d              bnt code_1550 
  1543:7a               push2 
  1544:39 4a            pushi 4a // $4a pragmaFail
  1546:39 33            pushi 33 // $33 b-di
  1548:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  154e:33 19              jmp code_1569 

        code_1550
  1550:83 04              lal local4 
  1552:31 0d              bnt code_1561 
  1554:7a               push2 
  1555:39 4a            pushi 4a // $4a pragmaFail
  1557:39 08            pushi 8 // $8 underBits
  1559:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  155f:33 08              jmp code_1569 

        code_1561
  1561:39 4c            pushi 4c // $4c claimed
  1563:78               push1 
  1564:76               push0 
  1565:87 01              lap param1 
  1567:4a 06             send 6 


        code_1569
  1569:33 38              jmp code_15a3 

        code_156b
  156b:83 03              lal local3 
  156d:31 16              bnt code_1585 
  156f:78               push1 
  1570:74 0769          lofss $1cdc // attirer,clore,open/curtain
  1573:43 25 02         callk Said 2 

  1576:31 0d              bnt code_1585 
  1578:7a               push2 
  1579:39 4a            pushi 4a // $4a pragmaFail
  157b:39 34            pushi 34 // $34 b-xAxis
  157d:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  1583:33 1e              jmp code_15a3 

        code_1585
  1585:39 03            pushi 3 // $3 y
  1587:7c            pushSelf 
  1588:8f 01              lsp param1 
  158a:39 03            pushi 3 // $3 y
  158c:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  1592:31 0f              bnt code_15a3 
  1594:39 4c            pushi 4c // $4c claimed
  1596:78               push1 
  1597:78               push1 
  1598:87 01              lap param1 
  159a:4a 06             send 6 

  159c:78               push1 
  159d:74 0f35          lofss $24d5 // lamp
  15a0:45 19 02         callb procedure_0019 2 // DoLook 


        code_15a3
  15a3:48                 ret 
    )

)

// 21c2
(instance lamp2 of Prop
    (properties
        y $5c
        x $44
        z $0
        heading $0
        yStep $2
        view $ae
        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
    )
    (method (handleEvent) // method_15a4
  15a4:78               push1 
  15a5:74 05ed          lofss $1b95 // get/lamp
  15a8:43 25 02         callk Said 2 

  15ab:31 0d              bnt code_15ba 
  15ad:7a               push2 
  15ae:39 4a            pushi 4a // $4a pragmaFail
  15b0:39 35            pushi 35 // $35 b-incr
  15b2:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  15b8:33 1e              jmp code_15d8 

        code_15ba
  15ba:39 03            pushi 3 // $3 y
  15bc:7c            pushSelf 
  15bd:8f 01              lsp param1 
  15bf:39 03            pushi 3 // $3 y
  15c1:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  15c7:31 0f              bnt code_15d8 
  15c9:39 4c            pushi 4c // $4c claimed
  15cb:78               push1 
  15cc:78               push1 
  15cd:87 01              lap param1 
  15cf:4a 06             send 6 

  15d1:78               push1 
  15d2:74 0f00          lofss $24d5 // lamp
  15d5:45 19 02         callb procedure_0019 2 // DoLook 


        code_15d8
  15d8:48                 ret 
    )

)

// 2214
(instance door of Prop
    (properties
        y $68
        x $30
        z $0
        heading $0
        yStep $2
        view $ae
        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_15d9
  15d9:78               push1 
  15da:74 06f0          lofss $1ccd // open/door
  15dd:43 25 02         callk Said 2 

  15e0:30 0087            bnt code_166a 
  15e3:38 00da          pushi da // $da inRect
  15e6:39 04            pushi 4 // $4 x
  15e8:39 15            pushi 15 // $15 brBottom
  15ea:39 5f            pushi 5f // $5f yourself
  15ec:39 2f            pushi 2f // $2f dy
  15ee:39 6e            pushi 6e // $6e indexOf
  15f0:81 00              lag gEgo 
  15f2:4a 0c             send c 

  15f4:31 5c              bnt code_1652 
  15f6:81 75              lag global117 
  15f8:31 37              bnt code_1631 
  15fa:89 75              lsg global117 
  15fc:34 8000            ldi 8000 
  15ff:12                 and 
  1600:31 06              bnt code_1608 
  1602:76               push0 
  1603:45 10 00         callb procedure_0010 0 // AlreadyOpen 

  1606:33 27              jmp code_162f 

        code_1608
  1608:39 03            pushi 3 // $3 y
  160a:76               push0 
  160b:81 00              lag gEgo 
  160d:4a 04             send 4 

  160f:36                push 
  1610:39 03            pushi 3 // $3 y
  1612:76               push0 
  1613:72 0c04          lofsa $221a // door
  1616:4a 04             send 4 

  1618:22                 lt? 
  1619:31 0c              bnt code_1627 
  161b:38 00c5          pushi c5 // $c5 posn
  161e:7a               push2 
  161f:39 21            pushi 21 // $21 font
  1621:39 59            pushi 59 // $59 showStr
  1623:81 00              lag gEgo 
  1625:4a 08             send 8 


        code_1627
  1627:39 7a            pushi 7a // $7a setScript
  1629:78               push1 
  162a:74 0ded          lofss $241a // myDoor
  162d:54 06             self 6 


        code_162f
  162f:33 1f              jmp code_1650 

        code_1631
  1631:8b 02              lsl local2 
  1633:35 01              ldi 1 
  1635:1a                 eq? 
  1636:31 0d              bnt code_1645 
  1638:7a               push2 
  1639:39 4a            pushi 4a // $4a pragmaFail
  163b:39 36            pushi 36 // $36 xStep
  163d:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  1643:33 0b              jmp code_1650 

        code_1645
  1645:7a               push2 
  1646:39 4a            pushi 4a // $4a pragmaFail
  1648:39 37            pushi 37 // $37 yStep
  164a:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_1650
  1650:33 15              jmp code_1667 

        code_1652
  1652:8b 02              lsl local2 
  1654:35 02              ldi 2 
  1656:1a                 eq? 
  1657:31 0a              bnt code_1663 
  1659:39 4c            pushi 4c // $4c claimed
  165b:78               push1 
  165c:76               push0 
  165d:87 01              lap param1 
  165f:4a 06             send 6 

  1661:33 04              jmp code_1667 

        code_1663
  1663:76               push0 
  1664:45 09 00         callb procedure_0009 0 // NotClose 


        code_1667
  1667:32 019c            jmp code_1806 

        code_166a
  166a:78               push1 
  166b:74 04de          lofss $1b4c // clore/door
  166e:43 25 02         callk Said 2 

  1671:31 44              bnt code_16b7 
  1673:38 00da          pushi da // $da inRect
  1676:39 04            pushi 4 // $4 x
  1678:39 15            pushi 15 // $15 brBottom
  167a:39 5f            pushi 5f // $5f yourself
  167c:39 2f            pushi 2f // $2f dy
  167e:39 73            pushi 73 // $73 seconds
  1680:81 00              lag gEgo 
  1682:4a 0c             send c 

  1684:31 19              bnt code_169f 
  1686:89 75              lsg global117 
  1688:34 8000            ldi 8000 
  168b:12                 and 
  168c:18                 not 
  168d:31 06              bnt code_1695 
  168f:76               push0 
  1690:45 11 00         callb procedure_0011 0 // AlreadyClosed 

  1693:33 08              jmp code_169d 

        code_1695
  1695:39 7a            pushi 7a // $7a setScript
  1697:78               push1 
  1698:74 0d7f          lofss $241a // myDoor
  169b:54 06             self 6 


        code_169d
  169d:33 15              jmp code_16b4 

        code_169f
  169f:8b 02              lsl local2 
  16a1:35 02              ldi 2 
  16a3:1a                 eq? 
  16a4:31 0a              bnt code_16b0 
  16a6:39 4c            pushi 4c // $4c claimed
  16a8:78               push1 
  16a9:76               push0 
  16aa:87 01              lap param1 
  16ac:4a 06             send 6 

  16ae:33 04              jmp code_16b4 

        code_16b0
  16b0:76               push0 
  16b1:45 09 00         callb procedure_0009 0 // NotClose 


        code_16b4
  16b4:32 014f            jmp code_1806 

        code_16b7
  16b7:78               push1 
  16b8:74 0644          lofss $1cff // actionner,debloquer/cle,door
  16bb:43 25 02         callk Said 2 

  16be:2f 09               bt code_16c9 
  16c0:78               push1 
  16c1:74 060f          lofss $1cd3 // open/door/cle
  16c4:43 25 02         callk Said 2 

  16c7:31 6d              bnt code_1736 

        code_16c9
  16c9:81 75              lag global117 
  16cb:31 0d              bnt code_16da 
  16cd:7a               push2 
  16ce:39 4a            pushi 4a // $4a pragmaFail
  16d0:39 38            pushi 38 // $38 moveSpeed
  16d2:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  16d8:33 59              jmp code_1733 

        code_16da
  16da:38 00da          pushi da // $da inRect
  16dd:39 04            pushi 4 // $4 x
  16df:39 15            pushi 15 // $15 brBottom
  16e1:39 5f            pushi 5f // $5f yourself
  16e3:39 2f            pushi 2f // $2f dy
  16e5:39 6e            pushi 6e // $6e indexOf
  16e7:81 00              lag gEgo 
  16e9:4a 0c             send c 

  16eb:31 42              bnt code_172f 
  16ed:8b 02              lsl local2 
  16ef:35 03              ldi 3 
  16f1:1a                 eq? 
  16f2:31 11              bnt code_1705 
  16f4:35 01              ldi 1 
  16f6:a1 75              sag global117 
  16f8:7a               push2 
  16f9:39 4a            pushi 4a // $4a pragmaFail
  16fb:39 39            pushi 39 // $39 canBeHere
  16fd:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  1703:33 28              jmp code_172d 

        code_1705
  1705:38 00ee          pushi ee // $ee has
  1708:78               push1 
  1709:39 05            pushi 5 // $5 view
  170b:81 00              lag gEgo 
  170d:4a 06             send 6 

  170f:31 11              bnt code_1722 
  1711:35 01              ldi 1 
  1713:a1 75              sag global117 
  1715:7a               push2 
  1716:39 4a            pushi 4a // $4a pragmaFail
  1718:39 3a            pushi 3a // $3a heading
  171a:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  1720:33 0b              jmp code_172d 

        code_1722
  1722:7a               push2 
  1723:39 4a            pushi 4a // $4a pragmaFail
  1725:39 3b            pushi 3b // $3b mover
  1727:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_172d
  172d:33 04              jmp code_1733 

        code_172f
  172f:76               push0 
  1730:45 09 00         callb procedure_0009 0 // NotClose 


        code_1733
  1733:32 00d0            jmp code_1806 

        code_1736
  1736:78               push1 
  1737:74 03f9          lofss $1b33 // bang[/door]
  173a:43 25 02         callk Said 2 

  173d:31 3a              bnt code_1779 
  173f:38 00da          pushi da // $da inRect
  1742:39 04            pushi 4 // $4 x
  1744:39 15            pushi 15 // $15 brBottom
  1746:39 5f            pushi 5f // $5f yourself
  1748:39 2f            pushi 2f // $2f dy
  174a:39 6e            pushi 6e // $6e indexOf
  174c:81 00              lag gEgo 
  174e:4a 0c             send c 

  1750:31 20              bnt code_1772 
  1752:89 75              lsg global117 
  1754:34 8000            ldi 8000 
  1757:12                 and 
  1758:18                 not 
  1759:31 0a              bnt code_1765 
  175b:39 7a            pushi 7a // $7a setScript
  175d:78               push1 
  175e:74 06b9          lofss $1e1a // knockDoor
  1761:54 06             self 6 

  1763:33 0b              jmp code_1770 

        code_1765
  1765:7a               push2 
  1766:39 4a            pushi 4a // $4a pragmaFail
  1768:39 3c            pushi 3c // $3c doit
  176a:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_1770
  1770:33 04              jmp code_1776 

        code_1772
  1772:76               push0 
  1773:45 09 00         callb procedure_0009 0 // NotClose 


        code_1776
  1776:32 008d            jmp code_1806 

        code_1779
  1779:78               push1 
  177a:74 03ed          lofss $1b6a // find,enter,(aller[<dans])/attic
  177d:43 25 02         callk Said 2 

  1780:31 1e              bnt code_17a0 
  1782:8b 02              lsl local2 
  1784:35 01              ldi 1 
  1786:1a                 eq? 
  1787:31 0d              bnt code_1796 
  1789:7a               push2 
  178a:39 4a            pushi 4a // $4a pragmaFail
  178c:39 3d            pushi 3d // $3d isBlocked
  178e:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  1794:33 08              jmp code_179e 

        code_1796
  1796:39 4c            pushi 4c // $4c claimed
  1798:78               push1 
  1799:76               push0 
  179a:87 01              lap param1 
  179c:4a 06             send 6 


        code_179e
  179e:33 66              jmp code_1806 

        code_17a0
  17a0:78               push1 
  17a1:74 048b          lofss $1c2f // look/keyhole
  17a4:43 25 02         callk Said 2 

  17a7:31 1e              bnt code_17c7 
  17a9:8b 02              lsl local2 
  17ab:35 01              ldi 1 
  17ad:1a                 eq? 
  17ae:31 0d              bnt code_17bd 
  17b0:7a               push2 
  17b1:39 4a            pushi 4a // $4a pragmaFail
  17b3:39 3e            pushi 3e // $3e looper
  17b5:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  17bb:33 08              jmp code_17c5 

        code_17bd
  17bd:39 4c            pushi 4c // $4c claimed
  17bf:78               push1 
  17c0:76               push0 
  17c1:87 01              lap param1 
  17c3:4a 06             send 6 


        code_17c5
  17c5:33 3f              jmp code_1806 

        code_17c7
  17c7:39 03            pushi 3 // $3 y
  17c9:7c            pushSelf 
  17ca:8f 01              lsp param1 
  17cc:39 03            pushi 3 // $3 y
  17ce:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  17d4:2f 09               bt code_17df 
  17d6:78               push1 
  17d7:74 041c          lofss $1bf6 // look/door[<attic]
  17da:43 25 02         callk Said 2 

  17dd:31 27              bnt code_1806 

        code_17df
  17df:39 4c            pushi 4c // $4c claimed
  17e1:78               push1 
  17e2:78               push1 
  17e3:87 01              lap param1 
  17e5:4a 06             send 6 

  17e7:8b 02              lsl local2 
  17e9:35 02              ldi 2 
  17eb:1a                 eq? 
  17ec:31 0d              bnt code_17fb 
  17ee:7a               push2 
  17ef:39 4a            pushi 4a // $4a pragmaFail
  17f1:39 3f            pushi 3f // $3f priority
  17f3:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  17f9:33 0b              jmp code_1806 

        code_17fb
  17fb:7a               push2 
  17fc:39 4a            pushi 4a // $4a pragmaFail
  17fe:39 40            pushi 40 // $40 modifiers
  1800:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_1806
  1806:48                 ret 
    )

)

// 2266
(instance Tswing of Prop
    (properties
        y $5e
        x $e9
        z $0
        heading $0
        yStep $2
        view $ae
        loop $4
        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_1807
  1807:8b 02              lsl local2 
  1809:35 02              ldi 2 
  180b:1a                 eq? 
  180c:31 2b              bnt code_1839 
  180e:39 03            pushi 3 // $3 y
  1810:7c            pushSelf 
  1811:8f 01              lsp param1 
  1813:39 03            pushi 3 // $3 y
  1815:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  181b:2f 09               bt code_1826 
  181d:78               push1 
  181e:74 03e0          lofss $1c01 // look/door[<swinging]
  1821:43 25 02         callk Said 2 

  1824:31 13              bnt code_1839 

        code_1826
  1826:7a               push2 
  1827:39 4a            pushi 4a // $4a pragmaFail
  1829:39 41            pushi 41 // $41 replay
  182b:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  1831:39 4c            pushi 4c // $4c claimed
  1833:78               push1 
  1834:78               push1 
  1835:87 01              lap param1 
  1837:4a 06             send 6 


        code_1839
  1839:48                 ret 
    )

)

// 22b8
(instance Bswing of Prop
    (properties
        y $69
        x $f5
        z $0
        heading $0
        yStep $2
        view $ae
        loop $5
        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_183a
  183a:8b 02              lsl local2 
  183c:35 02              ldi 2 
  183e:1a                 eq? 
  183f:31 2b              bnt code_186c 
  1841:39 03            pushi 3 // $3 y
  1843:7c            pushSelf 
  1844:8f 01              lsp param1 
  1846:39 03            pushi 3 // $3 y
  1848:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  184e:2f 09               bt code_1859 
  1850:78               push1 
  1851:74 03ad          lofss $1c01 // look/door[<swinging]
  1854:43 25 02         callk Said 2 

  1857:31 13              bnt code_186c 

        code_1859
  1859:7a               push2 
  185a:39 4a            pushi 4a // $4a pragmaFail
  185c:39 41            pushi 41 // $41 replay
  185e:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  1864:39 4c            pushi 4c // $4c claimed
  1866:78               push1 
  1867:78               push1 
  1868:87 01              lap param1 
  186a:4a 06             send 6 


        code_186c
  186c:48                 ret 
    )

)

// 230a
(instance FifiButt of Prop
    (properties
        y $99
        x $fc
        z $0
        heading $0
        yStep $2
        view $1de
        loop $4
        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
    )
)

// 2358
(instance Fifi of Act
    (properties
        y $0
        x $0
        z $0
        heading $0
        yStep $2
        view $0
        loop $0
        cel $0
        priority $0
        underBits $0
        signal $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
        lsTop $0
        lsLeft $0
        lsBottom $0
        lsRight $0
        brTop $0
        brLeft $0
        brBottom $0
        brRight $0
        cycleSpeed $0
        script $0
        cycler $0
        timer $0
        illegalBits $8000
        xLast $0
        yLast $0
        xStep $3
        moveSpeed $0
        blocks $0
        baseSetter $0
        mover $0
        looper $0
        viewer $0
        avoider $0
    )
    (method (handleEvent) // method_186d
  186d:83 07              lal local7 
  186f:18                 not 
  1870:30 00da            bnt code_194d 
  1873:35 05              ldi 5 
  1875:a0 00d5            sag global213 
  1878:78               push1 
  1879:74 0336          lofss $1bb2 // ecouter/fifi
  187c:43 25 02         callk Said 2 

  187f:31 0e              bnt code_188f 
  1881:7a               push2 
  1882:39 4a            pushi 4a // $4a pragmaFail
  1884:39 42            pushi 42 // $42 setPri
  1886:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  188c:32 00be            jmp code_194d 

        code_188f
  188f:78               push1 
  1890:74 0466          lofss $1cf9 // bonjour/fifi
  1893:43 25 02         callk Said 2 

  1896:31 6c              bnt code_1904 
  1898:8b 01              lsl local1 
  189a:3c                 dup 
  189b:35 00              ldi 0 
  189d:1a                 eq? 
  189e:31 0c              bnt code_18ac 
  18a0:39 03            pushi 3 // $3 y
  18a2:78               push1 
  18a3:39 4a            pushi 4a // $4a pragmaFail
  18a5:39 43            pushi 43 // $43 at
  18a7:45 01 06         callb procedure_0001 6 // Say 

  18aa:33 53              jmp code_18ff 

        code_18ac
  18ac:3c                 dup 
  18ad:35 01              ldi 1 
  18af:1a                 eq? 
  18b0:31 0c              bnt code_18be 
  18b2:39 03            pushi 3 // $3 y
  18b4:78               push1 
  18b5:39 4a            pushi 4a // $4a pragmaFail
  18b7:39 44            pushi 44 // $44 next
  18b9:45 01 06         callb procedure_0001 6 // Say 

  18bc:33 41              jmp code_18ff 

        code_18be
  18be:3c                 dup 
  18bf:35 02              ldi 2 
  18c1:1a                 eq? 
  18c2:31 0c              bnt code_18d0 
  18c4:39 03            pushi 3 // $3 y
  18c6:78               push1 
  18c7:39 4a            pushi 4a // $4a pragmaFail
  18c9:39 45            pushi 45 // $45 done
  18cb:45 01 06         callb procedure_0001 6 // Say 

  18ce:33 2f              jmp code_18ff 

        code_18d0
  18d0:3c                 dup 
  18d1:35 03              ldi 3 
  18d3:1a                 eq? 
  18d4:31 0c              bnt code_18e2 
  18d6:39 03            pushi 3 // $3 y
  18d8:78               push1 
  18d9:39 4a            pushi 4a // $4a pragmaFail
  18db:39 46            pushi 46 // $46 width
  18dd:45 01 06         callb procedure_0001 6 // Say 

  18e0:33 1d              jmp code_18ff 

        code_18e2
  18e2:3c                 dup 
  18e3:35 04              ldi 4 
  18e5:1a                 eq? 
  18e6:31 0c              bnt code_18f4 
  18e8:39 03            pushi 3 // $3 y
  18ea:78               push1 
  18eb:39 4a            pushi 4a // $4a pragmaFail
  18ed:39 47            pushi 47 // $47 wordFail
  18ef:45 01 06         callb procedure_0001 6 // Say 

  18f2:33 0b              jmp code_18ff 

        code_18f4
  18f4:7a               push2 
  18f5:39 4a            pushi 4a // $4a pragmaFail
  18f7:39 48            pushi 48 // $48 syntaxFail
  18f9:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_18ff
  18ff:3a                toss 
  1900:c3 01              +al local1 
  1902:33 49              jmp code_194d 

        code_1904
  1904:39 03            pushi 3 // $3 y
  1906:7c            pushSelf 
  1907:8f 01              lsp param1 
  1909:39 03            pushi 3 // $3 y
  190b:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  1911:2f 09               bt code_191c 
  1913:78               push1 
  1914:74 02f5          lofss $1c0c // look/fifi
  1917:43 25 02         callk Said 2 

  191a:31 31              bnt code_194d 

        code_191c
  191c:39 4c            pushi 4c // $4c claimed
  191e:78               push1 
  191f:78               push1 
  1920:87 01              lap param1 
  1922:4a 06             send 6 

  1924:88 00cf            lsg global207 
  1927:35 10              ldi 10 
  1929:12                 and 
  192a:18                 not 
  192b:31 15              bnt code_1942 
  192d:88 00cf            lsg global207 
  1930:35 10              ldi 10 
  1932:14                  or 
  1933:a0 00cf            sag global207 
  1936:39 03            pushi 3 // $3 y
  1938:76               push0 
  1939:39 4a            pushi 4a // $4a pragmaFail
  193b:39 49            pushi 49 // $49 semanticFail
  193d:45 01 06         callb procedure_0001 6 // Say 

  1940:33 0b              jmp code_194d 

        code_1942
  1942:7a               push2 
  1943:39 4a            pushi 4a // $4a pragmaFail
  1945:39 4a            pushi 4a // $4a pragmaFail
  1947:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_194d
  194d:48                 ret 
    )

)

// 23c0
(instance mySound of Sound
    (properties
        state $0
        number $0
        priority $0
        loop $1
        handle $0
        signal $0
        prevSignal $0
        client $0
        owner $0
    )
)

// 23ea
(instance myMusic of Sound
    (properties
        state $0
        number $0
        priority $0
        loop $1
        handle $0
        signal $0
        prevSignal $0
        client $0
        owner $0
    )
)

// 2414
(instance myDoor 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_194e
  194e:38 0081          pushi 81 // $81 prevSignal
  1951:76               push0 
  1952:72 0a71          lofsa $23c6 // mySound
  1955:4a 04             send 4 

  1957:36                push 
  1958:35 0b              ldi b 
  195a:1a                 eq? 
  195b:31 0b              bnt code_1968 
  195d:7a               push2 
  195e:39 08            pushi 8 // $8 underBits
  1960:76               push0 
  1961:43 31 04         callk DoSound 4 

  1964:35 01              ldi 1 
  1966:65 10             aTop cycles 

        code_1968
  1968:39 3c            pushi 3c // $3c doit
  196a:76               push0 
  196b:57 05 04         super Script 4 

  196e:48                 ret 
    )

    (method (changeState) // method_196f
  196f:87 01              lap param1 
  1971:65 0a             aTop state 
  1973:36                push 
  1974:3c                 dup 
  1975:35 00              ldi 0 
  1977:1a                 eq? 
  1978:31 3a              bnt code_19b4 
  197a:39 03            pushi 3 // $3 y
  197c:76               push0 
  197d:81 00              lag gEgo 
  197f:4a 04             send 4 

  1981:36                push 
  1982:39 03            pushi 3 // $3 y
  1984:76               push0 
  1985:72 0892          lofsa $221a // door
  1988:4a 04             send 4 

  198a:24                 le? 
  198b:31 13              bnt code_19a0 
  198d:38 00d3          pushi d3 // $d3 setMotion
  1990:39 04            pushi 4 // $4 x
  1992:51 1d            class MoveTo 
  1994:36                push 
  1995:39 21            pushi 21 // $21 font
  1997:39 59            pushi 59 // $59 showStr
  1999:7c            pushSelf 
  199a:81 00              lag gEgo 
  199c:4a 0c             send c 

  199e:33 11              jmp code_19b1 

        code_19a0
  19a0:38 00d3          pushi d3 // $d3 setMotion
  19a3:39 04            pushi 4 // $4 x
  19a5:51 1d            class MoveTo 
  19a7:36                push 
  19a8:39 21            pushi 21 // $21 font
  19aa:39 6a            pushi 6a // $6a prev
  19ac:7c            pushSelf 
  19ad:81 00              lag gEgo 
  19af:4a 0c             send c 


        code_19b1
  19b1:32 0103            jmp code_1ab7 

        code_19b4
  19b4:3c                 dup 
  19b5:35 01              ldi 1 
  19b7:1a                 eq? 
  19b8:30 00c1            bnt code_1a7c 
  19bb:39 03            pushi 3 // $3 y
  19bd:76               push0 
  19be:81 00              lag gEgo 
  19c0:4a 04             send 4 

  19c2:36                push 
  19c3:39 03            pushi 3 // $3 y
  19c5:76               push0 
  19c6:72 0851          lofsa $221a // door
  19c9:4a 04             send 4 

  19cb:24                 le? 
  19cc:31 0a              bnt code_19d8 
  19ce:39 06            pushi 6 // $6 loop
  19d0:78               push1 
  19d1:7a               push2 
  19d2:81 00              lag gEgo 
  19d4:4a 06             send 6 

  19d6:33 09              jmp code_19e1 

        code_19d8
  19d8:39 06            pushi 6 // $6 loop
  19da:78               push1 
  19db:39 03            pushi 3 // $3 y
  19dd:81 00              lag gEgo 
  19df:4a 06             send 6 


        code_19e1
  19e1:38 0081          pushi 81 // $81 prevSignal
  19e4:78               push1 
  19e5:76               push0 
  19e6:72 09dd          lofsa $23c6 // mySound
  19e9:4a 06             send 6 

  19eb:76               push0 
  19ec:45 03 00         callb procedure_0003 0 // HandsOff 

  19ef:89 75              lsg global117 
  19f1:34 8000            ldi 8000 
  19f4:12                 and 
  19f5:18                 not 
  19f6:31 42              bnt code_1a3a 
  19f8:39 2b            pushi 2b // $2b number
  19fa:78               push1 
  19fb:39 2b            pushi 2b // $2b number
  19fd:39 06            pushi 6 // $6 loop
  19ff:78               push1 
  1a00:78               push1 
  1a01:39 3f            pushi 3f // $3f priority
  1a03:78               push1 
  1a04:39 0a            pushi a // $a nsLeft
  1a06:39 2a            pushi 2a // $2a play
  1a08:76               push0 
  1a09:72 09ba          lofsa $23c6 // mySound
  1a0c:4a 16             send 16 

  1a0e:7a               push2 
  1a0f:39 08            pushi 8 // $8 underBits
  1a11:8b 08              lsl local8 
  1a13:43 31 04         callk DoSound 4 

  1a16:39 06            pushi 6 // $6 loop
  1a18:78               push1 
  1a19:39 06            pushi 6 // $6 loop
  1a1b:39 7e            pushi 7e // $7e setCycle
  1a1d:78               push1 
  1a1e:51 1a            class End 
  1a20:36                push 
  1a21:72 07f6          lofsa $221a // door
  1a24:4a 0c             send c 

  1a26:39 12            pushi 12 // $12 illegalBits
  1a28:78               push1 
  1a29:38 8000          pushi 8000 // $8000 sel_32768
  1a2c:81 00              lag gEgo 
  1a2e:4a 06             send 6 

  1a30:89 75              lsg global117 
  1a32:34 8000            ldi 8000 
  1a35:14                  or 
  1a36:a1 75              sag global117 
  1a38:33 40              jmp code_1a7a 

        code_1a3a
  1a3a:39 2b            pushi 2b // $2b number
  1a3c:78               push1 
  1a3d:39 2c            pushi 2c // $2c handle
  1a3f:39 06            pushi 6 // $6 loop
  1a41:78               push1 
  1a42:78               push1 
  1a43:39 3f            pushi 3f // $3f priority
  1a45:78               push1 
  1a46:39 0a            pushi a // $a nsLeft
  1a48:39 2a            pushi 2a // $2a play
  1a4a:76               push0 
  1a4b:72 0978          lofsa $23c6 // mySound
  1a4e:4a 16             send 16 

  1a50:7a               push2 
  1a51:39 08            pushi 8 // $8 underBits
  1a53:8b 08              lsl local8 
  1a55:43 31 04         callk DoSound 4 

  1a58:39 06            pushi 6 // $6 loop
  1a5a:78               push1 
  1a5b:39 06            pushi 6 // $6 loop
  1a5d:39 7e            pushi 7e // $7e setCycle
  1a5f:78               push1 
  1a60:51 1b            class Beg 
  1a62:36                push 
  1a63:72 07b4          lofsa $221a // door
  1a66:4a 0c             send c 

  1a68:39 12            pushi 12 // $12 illegalBits
  1a6a:78               push1 
  1a6b:38 8008          pushi 8008 // $8008 sel_32776
  1a6e:81 00              lag gEgo 
  1a70:4a 06             send 6 

  1a72:89 75              lsg global117 
  1a74:34 7fff            ldi 7fff 
  1a77:12                 and 
  1a78:a1 75              sag global117 

        code_1a7a
  1a7a:33 3b              jmp code_1ab7 

        code_1a7c
  1a7c:3c                 dup 
  1a7d:35 02              ldi 2 
  1a7f:1a                 eq? 
  1a80:31 35              bnt code_1ab7 
  1a82:89 75              lsg global117 
  1a84:34 8000            ldi 8000 
  1a87:12                 and 
  1a88:18                 not 
  1a89:31 20              bnt code_1aab 
  1a8b:39 06            pushi 6 // $6 loop
  1a8d:78               push1 
  1a8e:39 03            pushi 3 // $3 y
  1a90:76               push0 
  1a91:81 00              lag gEgo 
  1a93:4a 04             send 4 

  1a95:36                push 
  1a96:35 68              ldi 68 
  1a98:22                 lt? 
  1a99:31 04              bnt code_1a9f 
  1a9b:35 03              ldi 3 
  1a9d:33 02              jmp code_1aa1 

        code_1a9f
  1a9f:35 06              ldi 6 

        code_1aa1
  1aa1:36                push 
  1aa2:38 00c6          pushi c6 // $c6 stopUpd
  1aa5:76               push0 
  1aa6:72 0771          lofsa $221a // door
  1aa9:4a 0a             send a 


        code_1aab
  1aab:76               push0 
  1aac:45 04 00         callb procedure_0004 0 // HandsOn 

  1aaf:39 7a            pushi 7a // $7a setScript
  1ab1:78               push1 
  1ab2:76               push0 
  1ab3:63 08             pToa client 
  1ab5:4a 06             send 6 


        code_1ab7
  1ab7:3a                toss 
  1ab8:48                 ret 
  1ab9:00                bnot 
    )

)



(procedure proc_002e
  002e:83 07              lal local7 
  0030:30 00c3            bnt code_00f6 
  0033:35 00              ldi 0 
  0035:a3 07              sal local7 
  0037:35 00              ldi 0 
  0039:a1 3d              sag global61 
  003b:39 04            pushi 4 // $4 x
  003d:38 00ae          pushi ae // $ae distanceTo
  0040:39 03            pushi 3 // $3 y
  0042:78               push1 
  0043:76               push0 
  0044:43 08 08         callk DrawPic 8 

  0047:39 04            pushi 4 // $4 x
  0049:39 4a            pushi 4a // $4a pragmaFail
  004b:39 03            pushi 3 // $3 y
  004d:76               push0 
  004e:76               push0 
  004f:43 08 08         callk DrawPic 8 

  0052:88 00a5            lsg gAct 
  0055:35 02              ldi 2 
  0057:20                 ge? 
  0058:31 1e              bnt code_0078 
  005a:88 00a5            lsg gAct 
  005d:35 05              ldi 5 
  005f:22                 lt? 
  0060:31 16              bnt code_0078 
  0062:39 61            pushi 61 // $61 add
  0064:78               push1 
  0065:74 1f96          lofss $1ffe // glasses
  0068:81 0a              lag gAddToPics 
  006a:4a 06             send 6 

  006c:38 010b          pushi 10b // $10b setFeatures
  006f:78               push1 
  0070:74 1f8b          lofss $1ffe // glasses
  0073:72 1cc0          lofsa $1d36 // Room74
  0076:4a 06             send 6 


        code_0078
  0078:88 00a5            lsg gAct 
  007b:35 02              ldi 2 
  007d:20                 ge? 
  007e:31 16              bnt code_0096 
  0080:39 61            pushi 61 // $61 add
  0082:78               push1 
  0083:74 1fae          lofss $2034 // decanter
  0086:81 0a              lag gAddToPics 
  0088:4a 06             send 6 

  008a:38 010b          pushi 10b // $10b setFeatures
  008d:78               push1 
  008e:74 1fa3          lofss $2034 // decanter
  0091:72 1ca2          lofsa $1d36 // Room74
  0094:4a 06             send 6 


        code_0096
  0096:39 61            pushi 61 // $61 add
  0098:39 0a            pushi a // $a nsLeft
  009a:74 1db1          lofss $1e4e // wardrobe
  009d:74 1de4          lofss $1e84 // sofa
  00a0:74 1e17          lofss $1eba // table1
  00a3:74 1e80          lofss $1f26 // mirror
  00a6:74 1eb3          lofss $1f5c // chair1
  00a9:74 1ee6          lofss $1f92 // chair2
  00ac:74 1f19          lofss $1fc8 // table2
  00af:74 1fee          lofss $20a0 // phono
  00b2:74 1e3b          lofss $1ef0 // bed
  00b5:74 1fb2          lofss $206a // photo
  00b8:39 62            pushi 62 // $62 eachElementDo
  00ba:78               push1 
  00bb:39 57            pushi 57 // $57 init
  00bd:39 3c            pushi 3c // $3c doit
  00bf:76               push0 
  00c0:81 0a              lag gAddToPics 
  00c2:4a 22             send 22 

  00c4:38 010b          pushi 10b // $10b setFeatures
  00c7:39 0a            pushi a // $a nsLeft
  00c9:74 1db8          lofss $1e84 // sofa
  00cc:74 1deb          lofss $1eba // table1
  00cf:74 1e54          lofss $1f26 // mirror
  00d2:74 1d79          lofss $1e4e // wardrobe
  00d5:74 1e84          lofss $1f5c // chair1
  00d8:74 1eb7          lofss $1f92 // chair2
  00db:74 1eea          lofss $1fc8 // table2
  00de:74 1e0f          lofss $1ef0 // bed
  00e1:74 1f86          lofss $206a // photo
  00e4:74 1fb9          lofss $20a0 // phono
  00e7:72 1c4c          lofsa $1d36 // Room74
  00ea:4a 18             send 18 

  00ec:39 62            pushi 62 // $62 eachElementDo
  00ee:78               push1 
  00ef:38 00ca          pushi ca // $ca show
  00f2:81 05              lag gCast 
  00f4:4a 06             send 6 


        code_00f6
  00f6:48                 ret 
)

(procedure proc_00f7
  00f7:83 07              lal local7 
  00f9:18                 not 
  00fa:31 4f              bnt code_014b 
  00fc:35 01              ldi 1 
  00fe:a3 07              sal local7 
  0100:35 01              ldi 1 
  0102:a1 3d              sag global61 
  0104:39 04            pushi 4 // $4 x
  0106:38 00ae          pushi ae // $ae distanceTo
  0109:7a               push2 
  010a:78               push1 
  010b:78               push1 
  010c:43 08 08         callk DrawPic 8 

  010f:39 58            pushi 58 // $58 dispose
  0111:76               push0 
  0112:81 0a              lag gAddToPics 
  0114:4a 04             send 4 

  0116:39 58            pushi 58 // $58 dispose
  0118:76               push0 
  0119:81 34              lag gFeatures 
  011b:4a 04             send 4 

  011d:39 62            pushi 62 // $62 eachElementDo
  011f:78               push1 
  0120:38 0089          pushi 89 // $89 hide
  0123:81 05              lag gCast 
  0125:4a 06             send 6 

  0127:39 04            pushi 4 // $4 x
  0129:39 4a            pushi 4a // $4a pragmaFail
  012b:7a               push2 
  012c:76               push0 
  012d:76               push0 
  012e:43 08 08         callk DrawPic 8 

  0131:38 00ca          pushi ca // $ca show
  0134:76               push0 
  0135:72 20e2          lofsa $221a // door
  0138:4a 04             send 4 

  013a:38 00ca          pushi ca // $ca show
  013d:76               push0 
  013e:72 2087          lofsa $21c8 // lamp2
  0141:4a 04             send 4 

  0143:38 00ca          pushi ca // $ca show
  0146:76               push0 
  0147:81 00              lag gEgo 
  0149:4a 04             send 4 


        code_014b
  014b:48                 ret 
)

