(script 36)

(string
    string_1c56 "Bdoor"
    string_1c5c "DoorFunc"
    string_1c65 "Fdoor"
    string_1c6b "Piano"
    string_1c71 "Room36"
    string_1c78 "balls"
    string_1c7e "billiard"
    string_1c87 "bookcase"
    string_1c90 "chair"
    string_1c96 "couch"
    string_1c9c "crank_"
    string_1ca3 "cues"
    string_1ca8 "door"
    string_1cad "doorMusic"
    string_1cb7 "enterPanel"
    string_1cc2 "exiting"
    string_1cca "harp"
    string_1ccf "item"
    string_1cd4 "keys"
    string_1cd9 "lamp"
    string_1cde "lamp1"
    string_1ce4 "lamp2"
    string_1cea "mandolin"
    string_1cf3 "myDoor"
    string_1cfa "myMusic"
    string_1d02 "panel"
    string_1d08 "phono"
    string_1d0e "playPiano"
    string_1d18 "portrait"
    string_1d21 "record"
    string_1d28 "rim"
    string_1d2c "roll"
    string_1d31 "ship"
    string_1d36 "sofa1"
    string_1d3c "sofa2"
    string_1d42 "soundFX"
    string_1d4a "table"
    string_1d50 "table1"
    string_1d57 "table2"
    string_1d5e "tromb"
    string_1d64 "trump"
    string_1d6a "windMusic"
    string_1d74 "wingback"
    string_1d7d ""
)

(said
    said_1154 (rotate<on),(vent[<haut])/gramophone,(joueur<chanson)
    said_1171 (vent[<haut]),control,rotate/piano,control,fontainier,mecanisme[<winding][/piano]
    said_1197 /ball[<billard]
    said_11a0 /banc
    said_11a4 /banc[<piano]
    said_11ad /dirt
    said_11b1 /door
    said_11b5 /panel,(door<cachoterie)>
    said_11c2 /piano
    said_11c6 /chanson
    said_11ca <bas
    said_11ce [<around,at][/room]
    said_11dc ask,raconter,hold,deliver,look,get,abattre,embrasser,embrace,draguer>
    said_11fb ask/*/(game,billard)<jouer<a
    said_120f ask[/actress]/rudolph<about>
    said_121e ask[/rudolph]/actress<about>
    said_122d get/ball
    said_1233 get/bateau
    said_1239 get/cue[<billard]
    said_1244 get/guitar
    said_124a get/painting
    said_1250 get/chanson
    said_1256 look
    said_1259 look/(nightstand<billard),billard
    said_1267 look/actress,dame
    said_1270 look/actress,dame/painting
    said_127c look/bateau
    said_1282 look/bibliotheque
    said_1288 look/control,fontainier,mecanisme[<winding][/piano]
    said_129e look/eye/actress,dame
    said_12aa look/eye>
    said_12b1 look/eye[<actress,dame,painting]
    said_12c2 look/gramophone,armoire,(joueur<chanson)
    said_12d3 look/guitar
    said_12d9 look/painting
    said_12df look/piano
    said_12e5 look/rack,cue
    said_12ee look<behind,below/painting
    said_12fa look>
    said_12fe open,(look<dans)/gramophone,armoire,(joueur<chanson)
    said_1317 open,(look<dans)>
    said_1323 open,bouger
    said_1329 open/painting
    said_132f jouer,attach,control,rotate/fontainier,gramophone,music,chanson[/(gramophone,(joueur<chanson))<on]
    said_1359 jouer/game,billard
    said_1362 jouer/guitar
    said_1368 jouer/piano
    said_136e raconter[/actress,attorney]/gertie<about>
)

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

// 1386
(instance public Room36 of Rm
    (properties
        script $0
        number $0
        timer $0
        keep $0
        initialized $0
        picture $24
        style $ffff
        horizon $0
        controls $0
        north $0
        east $0
        south $0
        west $0
        curPic $0
        picAngle $0
        vanishingX $a0
        vanishingY $8ad0
        vertAngle $0
    )
    (method (init) // method_000c
  000c:39 57            pushi 57 // $57 init
  000e:76               push0 
  000f:57 37 04         super Rm 4 

  0012:35 25              ldi 25 
  0014:65 1c             aTop east 
  0016:76               push0 
  0017:45 14 00         callb procedure_0014 0 // IsFirstTimeInRoom 

  001a:a3 06              sal local6 
  001c:7a               push2 
  001d:38 0080          pushi 80 // $80 timeLeft
  0020:39 10            pushi 10 // $10 lsRight
  0022:43 00 04         callk Load 4 

  0025:39 05            pushi 5 // $5 view
  0027:38 0084          pushi 84 // $84 stop
  002a:39 2b            pushi 2b // $2b number
  002c:39 2c            pushi 2c // $2c handle
  002e:39 4a            pushi 4a // $4a pragmaFail
  0030:39 4b            pushi 4b // $4b said
  0032:45 15 0a         callb procedure_0015 a // LoadMany 

  0035:35 00              ldi 0 
  0037:a1 78              sag global120 
  0039:88 00a5            lsg gAct 
  003c:35 00              ldi 0 
  003e:1a                 eq? 
  003f:31 08              bnt code_0049 
  0041:88 00c7            lsg global199 
  0044:35 02              ldi 2 
  0046:1a                 eq? 
  0047:2f 18               bt code_0061 

        code_0049
  0049:88 009a            lsg gClarenceWilburState 
  004c:35 04              ldi 4 
  004e:1c                 ne? 
  004f:31 08              bnt code_0059 
  0051:88 00a5            lsg gAct 
  0054:35 01              ldi 1 
  0056:1a                 eq? 
  0057:2f 08               bt code_0061 

        code_0059
  0059:88 00a5            lsg gAct 
  005c:35 02              ldi 2 
  005e:1a                 eq? 
  005f:31 17              bnt code_0078 

        code_0061
  0061:39 06            pushi 6 // $6 loop
  0063:38 0084          pushi 84 // $84 stop
  0066:38 00c8          pushi c8 // $c8 setLoop
  0069:38 00c9          pushi c9 // $c9 ignoreActors
  006c:38 00ca          pushi ca // $ca show
  006f:38 00cb          pushi cb // $cb addToPic
  0072:38 00cc          pushi cc // $cc isExtra
  0075:45 15 0c         callb procedure_0015 c // LoadMany 


        code_0078
  0078:38 010b          pushi 10b // $10b setFeatures
  007b:39 11            pushi 11 // $11 signal
  007d:74 1482          lofss $1502 // phono
  0080:74 158d          lofss $1610 // harp
  0083:74 15c0          lofss $1646 // tromb
  0086:74 15f3          lofss $167c // trump
  0089:74 16fe          lofss $178a // item
  008c:74 1a81          lofss $1b10 // Piano
  008f:74 168c          lofss $171e // bookcase
  0092:74 161d          lofss $16b2 // mandolin
  0095:74 1650          lofss $16e8 // cues
  0098:74 16b9          lofss $1754 // ship
  009b:74 1782          lofss $1820 // billiard
  009e:74 1539          lofss $15da // wingback
  00a1:74 1494          lofss $1538 // sofa1
  00a4:74 14c7          lofss $156e // sofa2
  00a7:74 14fa          lofss $15a4 // table1
  00aa:74 1713          lofss $17c0 // table2
  00ad:74 17a6          lofss $1856 // portrait
  00b0:54 26             self 26 

  00b2:80 00df            lag gDetailLevel 
  00b5:31 1e              bnt code_00d5 
  00b7:39 7e            pushi 7e // $7e setCycle
  00b9:78               push1 
  00ba:51 16            class Fwd 
  00bc:36                push 
  00bd:39 57            pushi 57 // $57 init
  00bf:76               push0 
  00c0:72 19a9          lofsa $1a6c // lamp1
  00c3:4a 0a             send a 

  00c5:39 7e            pushi 7e // $7e setCycle
  00c7:78               push1 
  00c8:51 16            class Fwd 
  00ca:36                push 
  00cb:39 57            pushi 57 // $57 init
  00cd:76               push0 
  00ce:72 19ed          lofsa $1abe // lamp2
  00d1:4a 0a             send a 

  00d3:33 18              jmp code_00ed 

        code_00d5
  00d5:39 57            pushi 57 // $57 init
  00d7:76               push0 
  00d8:38 00c6          pushi c6 // $c6 stopUpd
  00db:76               push0 
  00dc:72 198d          lofsa $1a6c // lamp1
  00df:4a 08             send 8 

  00e1:39 57            pushi 57 // $57 init
  00e3:76               push0 
  00e4:38 00c6          pushi c6 // $c6 stopUpd
  00e7:76               push0 
  00e8:72 19d3          lofsa $1abe // lamp2
  00eb:4a 08             send 8 


        code_00ed
  00ed:39 07            pushi 7 // $7 cel
  00ef:78               push1 
  00f0:89 0c              lsg gPrevRoomNum 
  00f2:35 0f              ldi f 
  00f4:1a                 eq? 
  00f5:31 04              bnt code_00fb 
  00f7:35 02              ldi 2 
  00f9:33 02              jmp code_00fd 

        code_00fb
  00fb:35 00              ldi 0 

        code_00fd
  00fd:36                push 
  00fe:39 57            pushi 57 // $57 init
  0100:76               push0 
  0101:38 00c6          pushi c6 // $c6 stopUpd
  0104:76               push0 
  0105:72 1784          lofsa $188c // Fdoor
  0108:4a 0e             send e 

  010a:72 177f          lofsa $188c // Fdoor
  010d:a0 0175            sag global373 
  0110:39 07            pushi 7 // $7 cel
  0112:78               push1 
  0113:89 0c              lsg gPrevRoomNum 
  0115:35 0f              ldi f 
  0117:1a                 eq? 
  0118:31 04              bnt code_011e 
  011a:35 02              ldi 2 
  011c:33 02              jmp code_0120 

        code_011e
  011e:35 00              ldi 0 

        code_0120
  0120:36                push 
  0121:39 57            pushi 57 // $57 init
  0123:76               push0 
  0124:38 00c6          pushi c6 // $c6 stopUpd
  0127:76               push0 
  0128:72 17b3          lofsa $18de // Bdoor
  012b:4a 0e             send e 

  012d:72 17ae          lofsa $18de // Bdoor
  0130:a0 0176            sag global374 
  0133:39 04            pushi 4 // $4 x
  0135:78               push1 
  0136:89 0c              lsg gPrevRoomNum 
  0138:35 31              ldi 31 
  013a:1a                 eq? 
  013b:31 05              bnt code_0142 
  013d:34 0092            ldi 92 
  0140:33 03              jmp code_0145 

        code_0142
  0142:34 008d            ldi 8d 

        code_0145
  0145:36                push 
  0146:39 57            pushi 57 // $57 init
  0148:76               push0 
  0149:38 00c6          pushi c6 // $c6 stopUpd
  014c:76               push0 
  014d:72 19ec          lofsa $1b3c // panel
  0150:4a 0e             send e 

  0152:39 57            pushi 57 // $57 init
  0154:76               push0 
  0155:38 00c6          pushi c6 // $c6 stopUpd
  0158:76               push0 
  0159:72 18be          lofsa $1a1a // crank_
  015c:4a 08             send 8 

  015e:39 57            pushi 57 // $57 init
  0160:76               push0 
  0161:38 0089          pushi 89 // $89 hide
  0164:76               push0 
  0165:72 17c8          lofsa $1930 // keys
  0168:4a 08             send 8 

  016a:39 57            pushi 57 // $57 init
  016c:76               push0 
  016d:38 00c6          pushi c6 // $c6 stopUpd
  0170:76               push0 
  0171:72 180a          lofsa $197e // roll
  0174:4a 08             send 8 

  0176:88 00a5            lsg gAct 
  0179:3c                 dup 
  017a:35 00              ldi 0 
  017c:1a                 eq? 
  017d:31 77              bnt code_01f6 
  017f:88 00ad            lsg gSpyFlags 
  0182:35 01              ldi 1 
  0184:12                 and 
  0185:18                 not 
  0186:31 21              bnt code_01a9 
  0188:88 0170            lsg gCycleTimers 
  018b:35 01              ldi 1 
  018d:1a                 eq? 
  018e:31 19              bnt code_01a9 
  0190:35 00              ldi 0 
  0192:a0 0170            sag gCycleTimers 
  0195:34 0708            ldi 708 
  0198:a0 0172            sag global370 
  019b:88 00ad            lsg gSpyFlags 
  019e:35 01              ldi 1 
  01a0:14                  or 
  01a1:a0 00ad            sag gSpyFlags 
  01a4:35 01              ldi 1 
  01a6:a0 00c7            sag global199 

        code_01a9
  01a9:88 00c7            lsg global199 
  01ac:35 01              ldi 1 
  01ae:1a                 eq? 
  01af:31 12              bnt code_01c3 
  01b1:88 0172            lsg global370 
  01b4:35 01              ldi 1 
  01b6:1a                 eq? 
  01b7:31 0a              bnt code_01c3 
  01b9:35 00              ldi 0 
  01bb:a0 0172            sag global370 
  01be:35 02              ldi 2 
  01c0:a0 00c7            sag global199 

        code_01c3
  01c3:88 00c7            lsg global199 
  01c6:3c                 dup 
  01c7:35 00              ldi 0 
  01c9:1a                 eq? 
  01ca:31 0f              bnt code_01db 
  01cc:35 01              ldi 1 
  01ce:a3 03              sal local3 
  01d0:38 010a          pushi 10a // $10a setRegions
  01d3:78               push1 
  01d4:38 00e8          pushi e8 // $e8 mapKeyToDir
  01d7:54 06             self 6 

  01d9:33 17              jmp code_01f2 

        code_01db
  01db:3c                 dup 
  01dc:35 02              ldi 2 
  01de:1a                 eq? 
  01df:31 11              bnt code_01f2 
  01e1:35 01              ldi 1 
  01e3:a3 03              sal local3 
  01e5:35 01              ldi 1 
  01e7:a3 00              sal local0 
  01e9:38 010a          pushi 10a // $10a setRegions
  01ec:78               push1 
  01ed:38 00e9          pushi e9 // $e9 canControl
  01f0:54 06             self 6 


        code_01f2
  01f2:3a                toss 
  01f3:32 0084            jmp code_027a 

        code_01f6
  01f6:3c                 dup 
  01f7:35 01              ldi 1 
  01f9:1a                 eq? 
  01fa:31 47              bnt code_0243 
  01fc:35 01              ldi 1 
  01fe:a3 03              sal local3 
  0200:88 009a            lsg gClarenceWilburState 
  0203:35 04              ldi 4 
  0205:1a                 eq? 
  0206:2f 08               bt code_0210 
  0208:88 0170            lsg gCycleTimers 
  020b:35 01              ldi 1 
  020d:1a                 eq? 
  020e:31 1f              bnt code_022f 

        code_0210
  0210:35 04              ldi 4 
  0212:a0 009a            sag gClarenceWilburState 
  0215:35 00              ldi 0 
  0217:a0 0170            sag gCycleTimers 
  021a:38 010a          pushi 10a // $10a setRegions
  021d:78               push1 
  021e:38 00f5          pushi f5 // $f5 saidMe
  0221:54 06             self 6 

  0223:39 3f            pushi 3f // $3f priority
  0225:78               push1 
  0226:39 07            pushi 7 // $7 cel
  0228:72 12a5          lofsa $14d0 // balls
  022b:4a 06             send 6 

  022d:33 12              jmp code_0241 

        code_022f
  022f:35 01              ldi 1 
  0231:a3 00              sal local0 
  0233:35 02              ldi 2 
  0235:a0 00c7            sag global199 
  0238:38 010a          pushi 10a // $10a setRegions
  023b:78               push1 
  023c:38 00e9          pushi e9 // $e9 canControl
  023f:54 06             self 6 


        code_0241
  0241:33 37              jmp code_027a 

        code_0243
  0243:3c                 dup 
  0244:35 02              ldi 2 
  0246:1a                 eq? 
  0247:31 13              bnt code_025c 
  0249:35 01              ldi 1 
  024b:a3 03              sal local3 
  024d:35 01              ldi 1 
  024f:a3 00              sal local0 
  0251:38 010a          pushi 10a // $10a setRegions
  0254:78               push1 
  0255:38 00e9          pushi e9 // $e9 canControl
  0258:54 06             self 6 

  025a:33 1e              jmp code_027a 

        code_025c
  025c:3c                 dup 
  025d:35 03              ldi 3 
  025f:1a                 eq? 
  0260:31 14              bnt code_0276 
  0262:88 008d            lsg global141 
  0265:35 04              ldi 4 
  0267:12                 and 
  0268:18                 not 
  0269:31 09              bnt code_0274 
  026b:38 010a          pushi 10a // $10a setRegions
  026e:78               push1 
  026f:38 017e          pushi 17e // $17e sel_382
  0272:54 06             self 6 


        code_0274
  0274:33 04              jmp code_027a 

        code_0276
  0276:35 00              ldi 0 
  0278:a3 03              sal local3 

        code_027a
  027a:3a                toss 
  027b:39 61            pushi 61 // $61 add
  027d:39 12            pushi 12 // $12 illegalBits
  027f:74 124e          lofss $14d0 // balls
  0282:74 127d          lofss $1502 // phono
  0285:74 12b0          lofss $1538 // sofa1
  0288:74 12e3          lofss $156e // sofa2
  028b:74 1316          lofss $15a4 // table1
  028e:74 152f          lofss $17c0 // table2
  0291:74 15c2          lofss $1856 // portrait
  0294:74 1343          lofss $15da // wingback
  0297:74 1376          lofss $1610 // harp
  029a:74 13a9          lofss $1646 // tromb
  029d:74 13dc          lofss $167c // trump
  02a0:74 140f          lofss $16b2 // mandolin
  02a3:74 1442          lofss $16e8 // cues
  02a6:74 1475          lofss $171e // bookcase
  02a9:74 14a8          lofss $1754 // ship
  02ac:74 1547          lofss $17f6 // rim
  02af:74 156e          lofss $1820 // billiard
  02b2:74 14d5          lofss $178a // item
  02b5:39 62            pushi 62 // $62 eachElementDo
  02b7:78               push1 
  02b8:39 57            pushi 57 // $57 init
  02ba:39 3c            pushi 3c // $3c doit
  02bc:76               push0 
  02bd:81 0a              lag gAddToPics 
  02bf:4a 32             send 32 

  02c1:89 0c              lsg gPrevRoomNum 
  02c3:35 31              ldi 31 
  02c5:1c                 ne? 
  02c6:31 54              bnt code_031c 
  02c8:89 0c              lsg gPrevRoomNum 
  02ca:35 25              ldi 25 
  02cc:1a                 eq? 
  02cd:31 0f              bnt code_02de 
  02cf:38 00c5          pushi c5 // $c5 posn
  02d2:7a               push2 
  02d3:38 0131          pushi 131 // $131 numOfLoops
  02d6:39 62            pushi 62 // $62 eachElementDo
  02d8:81 00              lag gEgo 
  02da:4a 08             send 8 

  02dc:33 26              jmp code_0304 

        code_02de
  02de:38 00c5          pushi c5 // $c5 posn
  02e1:7a               push2 
  02e2:39 3c            pushi 3c // $3c doit
  02e4:39 77            pushi 77 // $77 caller
  02e6:81 00              lag gEgo 
  02e8:4a 08             send 8 

  02ea:83 06              lal local6 
  02ec:18                 not 
  02ed:31 15              bnt code_0304 
  02ef:38 00d3          pushi d3 // $d3 setMotion
  02f2:39 03            pushi 3 // $3 y
  02f4:51 1d            class MoveTo 
  02f6:36                push 
  02f7:39 44            pushi 44 // $44 next
  02f9:39 77            pushi 77 // $77 caller
  02fb:81 00              lag gEgo 
  02fd:4a 0a             send a 

  02ff:35 02              ldi 2 
  0301:a0 00ca            sag global202 

        code_0304
  0304:39 05            pushi 5 // $5 view
  0306:78               push1 
  0307:76               push0 
  0308:39 12            pushi 12 // $12 illegalBits
  030a:78               push1 
  030b:38 8004          pushi 8004 // $8004 sel_32772
  030e:39 42            pushi 42 // $42 setPri
  0310:78               push1 
  0311:39 ff            pushi ff // $ff checkAni
  0313:39 57            pushi 57 // $57 init
  0315:76               push0 
  0316:81 00              lag gEgo 
  0318:4a 16             send 16 

  031a:33 36              jmp code_0352 

        code_031c
  031c:39 05            pushi 5 // $5 view
  031e:78               push1 
  031f:76               push0 
  0320:39 12            pushi 12 // $12 illegalBits
  0322:78               push1 
  0323:38 8004          pushi 8004 // $8004 sel_32772
  0326:39 42            pushi 42 // $42 setPri
  0328:78               push1 
  0329:7a               push2 
  032a:39 06            pushi 6 // $6 loop
  032c:78               push1 
  032d:7a               push2 
  032e:38 00c5          pushi c5 // $c5 posn
  0331:7a               push2 
  0332:39 7e            pushi 7e // $7e setCycle
  0334:39 4f            pushi 4f // $4f restore
  0336:39 57            pushi 57 // $57 init
  0338:76               push0 
  0339:81 00              lag gEgo 
  033b:4a 24             send 24 

  033d:38 00c5          pushi c5 // $c5 posn
  0340:7a               push2 
  0341:38 008a          pushi 8a // $8a enable
  0344:39 4f            pushi 4f // $4f restore
  0346:81 00              lag gEgo 
  0348:4a 08             send 8 

  034a:39 7a            pushi 7a // $7a setScript
  034c:78               push1 
  034d:74 10ec          lofss $143c // enterPanel
  0350:54 06             self 6 


        code_0352
  0352:48                 ret 
    )

    (method (doit) // method_0353
  0353:88 00a5            lsg gAct 
  0356:35 03              ldi 3 
  0358:1a                 eq? 
  0359:31 17              bnt code_0372 
  035b:88 00d9            lsg global217 
  035e:35 00              ldi 0 
  0360:1a                 eq? 
  0361:31 0f              bnt code_0372 
  0363:7a               push2 
  0364:39 24            pushi 24 // $24 cursor
  0366:76               push0 
  0367:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  036d:35 01              ldi 1 
  036f:a0 00d9            sag global217 

        code_0372
  0372:88 00a5            lsg gAct 
  0375:35 03              ldi 3 
  0377:1a                 eq? 
  0378:31 0c              bnt code_0386 
  037a:88 0176            lsg global374 
  037d:35 01              ldi 1 
  037f:1a                 eq? 
  0380:31 04              bnt code_0386 
  0382:35 01              ldi 1 
  0384:a3 03              sal local3 

        code_0386
  0386:88 00a5            lsg gAct 
  0389:35 03              ldi 3 
  038b:1a                 eq? 
  038c:31 0c              bnt code_039a 
  038e:88 0176            lsg global374 
  0391:35 00              ldi 0 
  0393:1a                 eq? 
  0394:31 04              bnt code_039a 
  0396:35 00              ldi 0 
  0398:a3 03              sal local3 

        code_039a
  039a:83 06              lal local6 
  039c:31 2a              bnt code_03c8 
  039e:7a               push2 
  039f:39 24            pushi 24 // $24 cursor
  03a1:78               push1 
  03a2:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  03a8:89 0c              lsg gPrevRoomNum 
  03aa:35 0f              ldi f 
  03ac:1a                 eq? 
  03ad:31 15              bnt code_03c4 
  03af:38 00d3          pushi d3 // $d3 setMotion
  03b2:39 03            pushi 3 // $3 y
  03b4:51 1d            class MoveTo 
  03b6:36                push 
  03b7:39 44            pushi 44 // $44 next
  03b9:39 77            pushi 77 // $77 caller
  03bb:81 00              lag gEgo 
  03bd:4a 0a             send a 

  03bf:35 02              ldi 2 
  03c1:a0 00ca            sag global202 

        code_03c4
  03c4:35 00              ldi 0 
  03c6:a3 06              sal local6 

        code_03c8
  03c8:88 00ca            lsg global202 
  03cb:35 01              ldi 1 
  03cd:1a                 eq? 
  03ce:2f 08               bt code_03d8 
  03d0:88 00ca            lsg global202 
  03d3:35 02              ldi 2 
  03d5:1a                 eq? 
  03d6:31 16              bnt code_03ee 

        code_03d8
  03d8:39 76            pushi 76 // $76 script
  03da:76               push0 
  03db:72 14ae          lofsa $188c // Fdoor
  03de:4a 04             send 4 

  03e0:18                 not 
  03e1:31 0b              bnt code_03ee 
  03e3:39 7a            pushi 7a // $7a setScript
  03e5:78               push1 
  03e6:74 1083          lofss $146c // DoorFunc
  03e9:72 14a0          lofsa $188c // Fdoor
  03ec:4a 06             send 6 


        code_03ee
  03ee:63 08             pToa script 
  03f0:18                 not 
  03f1:31 60              bnt code_0453 
  03f3:38 00db          pushi db // $db onControl
  03f6:78               push1 
  03f7:76               push0 
  03f8:81 00              lag gEgo 
  03fa:4a 06             send 6 

  03fc:36                push 
  03fd:35 08              ldi 8 
  03ff:12                 and 
  0400:31 24              bnt code_0426 
  0402:39 06            pushi 6 // $6 loop
  0404:76               push0 
  0405:81 00              lag gEgo 
  0407:4a 04             send 4 

  0409:36                push 
  040a:35 01              ldi 1 
  040c:1a                 eq? 
  040d:31 15              bnt code_0424 
  040f:39 42            pushi 42 // $42 setPri
  0411:78               push1 
  0412:39 08            pushi 8 // $8 underBits
  0414:81 00              lag gEgo 
  0416:4a 06             send 6 

  0418:76               push0 
  0419:45 03 00         callb procedure_0003 0 // HandsOff 

  041c:39 7a            pushi 7a // $7a setScript
  041e:78               push1 
  041f:74 107a          lofss $149c // myDoor
  0422:54 06             self 6 


        code_0424
  0424:33 2d              jmp code_0453 

        code_0426
  0426:38 00da          pushi da // $da inRect
  0429:39 04            pushi 4 // $4 x
  042b:39 2e            pushi 2e // $2e dx
  042d:39 78            pushi 78 // $78 changeState
  042f:39 37            pushi 37 // $37 yStep
  0431:38 0083          pushi 83 // $83 playMaybe
  0434:81 00              lag gEgo 
  0436:4a 0c             send c 

  0438:31 0b              bnt code_0445 
  043a:39 42            pushi 42 // $42 setPri
  043c:78               push1 
  043d:39 0a            pushi a // $a nsLeft
  043f:81 00              lag gEgo 
  0441:4a 06             send 6 

  0443:33 0e              jmp code_0453 

        code_0445
  0445:83 05              lal local5 
  0447:18                 not 
  0448:31 09              bnt code_0453 
  044a:39 42            pushi 42 // $42 setPri
  044c:78               push1 
  044d:39 ff            pushi ff // $ff checkAni
  044f:81 00              lag gEgo 
  0451:4a 06             send 6 


        code_0453
  0453:38 00db          pushi db // $db onControl
  0456:78               push1 
  0457:78               push1 
  0458:81 00              lag gEgo 
  045a:4a 06             send 6 

  045c:36                push 
  045d:35 04              ldi 4 
  045f:12                 and 
  0460:31 19              bnt code_047b 
  0462:39 12            pushi 12 // $12 illegalBits
  0464:78               push1 
  0465:38 8000          pushi 8000 // $8000 sel_32768
  0468:38 00c9          pushi c9 // $c9 ignoreActors
  046b:78               push1 
  046c:76               push0 
  046d:81 00              lag gEgo 
  046f:4a 0c             send c 

  0471:38 00f8          pushi f8 // $f8 newRoom
  0474:78               push1 
  0475:39 0f            pushi f // $f lsBottom
  0477:81 02              lag gCurRoom 
  0479:4a 06             send 6 


        code_047b
  047b:38 00db          pushi db // $db onControl
  047e:78               push1 
  047f:78               push1 
  0480:81 00              lag gEgo 
  0482:4a 06             send 6 

  0484:36                push 
  0485:35 20              ldi 20 
  0487:12                 and 
  0488:31 19              bnt code_04a3 
  048a:8b 03              lsl local3 
  048c:35 00              ldi 0 
  048e:1a                 eq? 
  048f:31 12              bnt code_04a3 
  0491:88 00cc            lsg global204 
  0494:35 00              ldi 0 
  0496:1a                 eq? 
  0497:31 0a              bnt code_04a3 
  0499:38 00f8          pushi f8 // $f8 newRoom
  049c:78               push1 
  049d:39 31            pushi 31 // $31 b-i1
  049f:81 02              lag gCurRoom 
  04a1:4a 06             send 6 


        code_04a3
  04a3:39 04            pushi 4 // $4 x
  04a5:76               push0 
  04a6:81 00              lag gEgo 
  04a8:4a 04             send 4 

  04aa:36                push 
  04ab:34 00be            ldi be 
  04ae:22                 lt? 
  04af:31 06              bnt code_04b7 
  04b1:35 2c              ldi 2c 
  04b3:65 2a             aTop vertAngle 
  04b5:33 04              jmp code_04bb 

        code_04b7
  04b7:35 0a              ldi a 
  04b9:65 2a             aTop vertAngle 

        code_04bb
  04bb:39 3c            pushi 3c // $3c doit
  04bd:76               push0 
  04be:57 37 04         super Rm 4 

  04c1:48                 ret 
    )

    (method (dispose) // method_04c2
  04c2:88 00a0            lsg global160 
  04c5:35 04              ldi 4 
  04c7:22                 lt? 
  04c8:31 05              bnt code_04cf 
  04ca:c0 00a0            +ag global160 
  04cd:33 05              jmp code_04d4 

        code_04cf
  04cf:35 00              ldi 0 
  04d1:a0 00a0            sag global160 

        code_04d4
  04d4:78               push1 
  04d5:38 00cc          pushi cc // $cc isExtra
  04d8:43 03 02         callk DisposeScript 2 

  04db:39 58            pushi 58 // $58 dispose
  04dd:76               push0 
  04de:57 37 04         super Rm 4 

  04e1:48                 ret 
    )

    (method (newRoom) // method_04e2
  04e2:76               push0 
  04e3:45 0f 00         callb procedure_000f 0 // cls 

  04e6:35 00              ldi 0 
  04e8:a0 00be            sag global190 
  04eb:38 00f8          pushi f8 // $f8 newRoom
  04ee:78               push1 
  04ef:8f 01              lsp param1 
  04f1:57 37 06         super Rm 6 

  04f4:48                 ret 
    )

    (method (handleEvent) // method_04f5
  04f5:39 6f            pushi 6f // $6f handleEvent
  04f7:78               push1 
  04f8:8f 01              lsp param1 
  04fa:57 37 06         super Rm 6 

  04fd:39 4c            pushi 4c // $4c claimed
  04ff:76               push0 
  0500:87 01              lap param1 
  0502:4a 04             send 4 

  0504:31 01              bnt code_0507 
  0506:48                 ret 

        code_0507
  0507:39 22            pushi 22 // $22 type
  0509:76               push0 
  050a:87 01              lap param1 
  050c:4a 04             send 4 

  050e:36                push 
  050f:34 0080            ldi 80 
  0512:1a                 eq? 
  0513:30 0285            bnt code_079b 
  0516:78               push1 
  0517:38 03de          pushi 3de // $3de sel_990
  051a:43 03 02         callk DisposeScript 2 

  051d:78               push1 
  051e:74 0e38          lofss $1359 // jouer/game,billard
  0521:43 25 02         callk Said 2 

  0524:2f 09               bt code_052f 
  0526:78               push1 
  0527:74 0cd1          lofss $11fb // ask/*/(game,billard)<jouer<a
  052a:43 25 02         callk Said 2 

  052d:31 0a              bnt code_0539 

        code_052f
  052f:7a               push2 
  0530:39 24            pushi 24 // $24 cursor
  0532:7a               push2 
  0533:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0539
  0539:88 00d0            lsg global208 
  053c:34 0104            ldi 104 
  053f:1c                 ne? 
  0540:2f 14               bt code_0556 
  0542:78               push1 
  0543:74 0cd8          lofss $121e // ask[/rudolph]/actress<about>
  0546:43 25 02         callk Said 2 

  0549:18                 not 
  054a:31 2f              bnt code_057b 
  054c:78               push1 
  054d:74 0cbf          lofss $120f // ask[/actress]/rudolph<about>
  0550:43 25 02         callk Said 2 

  0553:18                 not 
  0554:31 25              bnt code_057b 

        code_0556
  0556:88 00d0            lsg global208 
  0559:35 44              ldi 44 
  055b:12                 and 
  055c:18                 not 
  055d:2f 1a               bt code_0579 
  055f:78               push1 
  0560:74 0e0b          lofss $136e // raconter[/actress,attorney]/gertie<about>
  0563:43 25 02         callk Said 2 

  0566:18                 not 
  0567:2f 10               bt code_0579 
  0569:89 7b              lsg gCorpseFlags 
  056b:35 01              ldi 1 
  056d:12                 and 
  056e:18                 not 
  056f:2f 08               bt code_0579 
  0571:88 0091            lsg global145 
  0574:35 02              ldi 2 
  0576:12                 and 
  0577:31 02              bnt code_057b 

        code_0579
  0579:35 01              ldi 1 

        code_057b
  057b:a3 08              sal local8 
  057d:80 00d0            lag global208 
  0580:31 31              bnt code_05b3 
  0582:83 08              lal local8 
  0584:31 2d              bnt code_05b3 
  0586:78               push1 
  0587:74 0c52          lofss $11dc // ask,raconter,hold,deliver,look,get,abattre,embrasser,embrace,draguer>
  058a:43 25 02         callk Said 2 

  058d:31 24              bnt code_05b3 
  058f:39 7a            pushi 7a // $7a setScript
  0591:78               push1 
  0592:7a               push2 
  0593:38 00f3          pushi f3 // $f3 close
  0596:76               push0 
  0597:43 02 04         callk ScriptID 4 

  059a:36                push 
  059b:54 06             self 6 

  059d:39 6f            pushi 6f // $6f handleEvent
  059f:78               push1 
  05a0:8f 01              lsp param1 
  05a2:39 76            pushi 76 // $76 script
  05a4:76               push0 
  05a5:54 04             self 4 

  05a7:4a 06             send 6 

  05a9:39 4c            pushi 4c // $4c claimed
  05ab:76               push0 
  05ac:87 01              lap param1 
  05ae:4a 04             send 4 

  05b0:31 01              bnt code_05b3 
  05b2:48                 ret 

        code_05b3
  05b3:78               push1 
  05b4:74 0bfe          lofss $11b5 // /panel,(door<cachoterie)>
  05b7:43 25 02         callk Said 2 

  05ba:31 72              bnt code_062e 
  05bc:88 00af            lsg global175 
  05bf:35 04              ldi 4 
  05c1:12                 and 
  05c2:31 3e              bnt code_0602 
  05c4:78               push1 
  05c5:74 0d5b          lofss $1323 // open,bouger
  05c8:43 25 02         callk Said 2 

  05cb:31 35              bnt code_0602 
  05cd:83 03              lal local3 
  05cf:18                 not 
  05d0:31 23              bnt code_05f5 
  05d2:38 00db          pushi db // $db onControl
  05d5:78               push1 
  05d6:76               push0 
  05d7:81 00              lag gEgo 
  05d9:4a 06             send 6 

  05db:36                push 
  05dc:35 10              ldi 10 
  05de:12                 and 
  05df:31 0e              bnt code_05ef 
  05e1:76               push0 
  05e2:45 03 00         callb procedure_0003 0 // HandsOff 

  05e5:39 7a            pushi 7a // $7a setScript
  05e7:78               push1 
  05e8:74 0df1          lofss $13dc // exiting
  05eb:54 06             self 6 

  05ed:33 04              jmp code_05f3 

        code_05ef
  05ef:76               push0 
  05f0:45 09 00         callb procedure_0009 0 // NotClose 


        code_05f3
  05f3:33 0b              jmp code_0600 

        code_05f5
  05f5:7a               push2 
  05f6:39 24            pushi 24 // $24 cursor
  05f8:39 03            pushi 3 // $3 y
  05fa:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0600
  0600:33 29              jmp code_062b 

        code_0602
  0602:78               push1 
  0603:74 0c50          lofss $1256 // look
  0606:43 25 02         callk Said 2 

  0609:31 20              bnt code_062b 
  060b:88 00af            lsg global175 
  060e:35 04              ldi 4 
  0610:12                 and 
  0611:31 0d              bnt code_0620 
  0613:7a               push2 
  0614:39 24            pushi 24 // $24 cursor
  0616:39 04            pushi 4 // $4 x
  0618:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  061e:33 0b              jmp code_062b 

        code_0620
  0620:7a               push2 
  0621:39 24            pushi 24 // $24 cursor
  0623:39 05            pushi 5 // $5 view
  0625:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_062b
  062b:32 016d            jmp code_079b 

        code_062e
  062e:78               push1 
  062f:74 0cc8          lofss $12fa // look>
  0632:43 25 02         callk Said 2 

  0635:30 014f            bnt code_0787 
  0638:78               push1 
  0639:74 0b92          lofss $11ce // [<around,at][/room]
  063c:43 25 02         callk Said 2 

  063f:31 4f              bnt code_0690 
  0641:88 00a5            lsg gAct 
  0644:35 03              ldi 3 
  0646:1a                 eq? 
  0647:31 3a              bnt code_0683 
  0649:88 008d            lsg global141 
  064c:35 04              ldi 4 
  064e:12                 and 
  064f:18                 not 
  0650:31 25              bnt code_0677 
  0652:38 00ee          pushi ee // $ee has
  0655:78               push1 
  0656:39 09            pushi 9 // $9 nsTop
  0658:81 00              lag gEgo 
  065a:4a 06             send 6 

  065c:31 0d              bnt code_066b 
  065e:7a               push2 
  065f:39 24            pushi 24 // $24 cursor
  0661:39 06            pushi 6 // $6 loop
  0663:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0669:33 0a              jmp code_0675 

        code_066b
  066b:7a               push2 
  066c:39 24            pushi 24 // $24 cursor
  066e:76               push0 
  066f:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0675
  0675:33 0a              jmp code_0681 

        code_0677
  0677:7a               push2 
  0678:39 24            pushi 24 // $24 cursor
  067a:78               push1 
  067b:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0681
  0681:33 0a              jmp code_068d 

        code_0683
  0683:7a               push2 
  0684:39 24            pushi 24 // $24 cursor
  0686:78               push1 
  0687:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_068d
  068d:32 00f5            jmp code_0785 

        code_0690
  0690:78               push1 
  0691:74 0b03          lofss $1197 // /ball[<billard]
  0694:43 25 02         callk Said 2 

  0697:31 0e              bnt code_06a7 
  0699:7a               push2 
  069a:39 24            pushi 24 // $24 cursor
  069c:39 07            pushi 7 // $7 cel
  069e:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  06a4:32 00de            jmp code_0785 

        code_06a7
  06a7:78               push1 
  06a8:74 0af9          lofss $11a4 // /banc[<piano]
  06ab:43 25 02         callk Said 2 

  06ae:31 0e              bnt code_06be 
  06b0:7a               push2 
  06b1:39 24            pushi 24 // $24 cursor
  06b3:39 08            pushi 8 // $8 underBits
  06b5:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  06bb:32 00c7            jmp code_0785 

        code_06be
  06be:78               push1 
  06bf:74 0aeb          lofss $11ad // /dirt
  06c2:43 25 02         callk Said 2 

  06c5:2f 09               bt code_06d0 
  06c7:78               push1 
  06c8:74 0aff          lofss $11ca // <bas
  06cb:43 25 02         callk Said 2 

  06ce:31 5e              bnt code_072e 

        code_06d0
  06d0:88 00a5            lsg gAct 
  06d3:35 03              ldi 3 
  06d5:1a                 eq? 
  06d6:31 4c              bnt code_0724 
  06d8:38 00ee          pushi ee // $ee has
  06db:78               push1 
  06dc:39 09            pushi 9 // $9 nsTop
  06de:81 00              lag gEgo 
  06e0:4a 06             send 6 

  06e2:31 20              bnt code_0704 
  06e4:88 008d            lsg global141 
  06e7:35 04              ldi 4 
  06e9:12                 and 
  06ea:18                 not 
  06eb:31 0d              bnt code_06fa 
  06ed:7a               push2 
  06ee:39 24            pushi 24 // $24 cursor
  06f0:39 06            pushi 6 // $6 loop
  06f2:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  06f8:33 08              jmp code_0702 

        code_06fa
  06fa:39 4c            pushi 4c // $4c claimed
  06fc:78               push1 
  06fd:76               push0 
  06fe:87 01              lap param1 
  0700:4a 06             send 6 


        code_0702
  0702:33 1e              jmp code_0722 

        code_0704
  0704:88 008d            lsg global141 
  0707:35 04              ldi 4 
  0709:12                 and 
  070a:18                 not 
  070b:31 0d              bnt code_071a 
  070d:7a               push2 
  070e:39 24            pushi 24 // $24 cursor
  0710:39 09            pushi 9 // $9 nsTop
  0712:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0718:33 08              jmp code_0722 

        code_071a
  071a:39 4c            pushi 4c // $4c claimed
  071c:78               push1 
  071d:76               push0 
  071e:87 01              lap param1 
  0720:4a 06             send 6 


        code_0722
  0722:33 08              jmp code_072c 

        code_0724
  0724:39 4c            pushi 4c // $4c claimed
  0726:78               push1 
  0727:76               push0 
  0728:87 01              lap param1 
  072a:4a 06             send 6 


        code_072c
  072c:33 57              jmp code_0785 

        code_072e
  072e:78               push1 
  072f:74 0a7f          lofss $11b1 // /door
  0732:43 25 02         callk Said 2 

  0735:31 0d              bnt code_0744 
  0737:7a               push2 
  0738:39 24            pushi 24 // $24 cursor
  073a:39 0a            pushi a // $a nsLeft
  073c:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0742:33 41              jmp code_0785 

        code_0744
  0744:78               push1 
  0745:74 0a7e          lofss $11c6 // /chanson
  0748:43 25 02         callk Said 2 

  074b:31 38              bnt code_0785 
  074d:38 00ee          pushi ee // $ee has
  0750:78               push1 
  0751:39 09            pushi 9 // $9 nsTop
  0753:81 00              lag gEgo 
  0755:4a 06             send 6 

  0757:31 0a              bnt code_0763 
  0759:39 4c            pushi 4c // $4c claimed
  075b:78               push1 
  075c:76               push0 
  075d:87 01              lap param1 
  075f:4a 06             send 6 

  0761:33 22              jmp code_0785 

        code_0763
  0763:38 00ae          pushi ae // $ae distanceTo
  0766:78               push1 
  0767:74 0d98          lofss $1502 // phono
  076a:81 00              lag gEgo 
  076c:4a 06             send 6 

  076e:36                push 
  076f:35 14              ldi 14 
  0771:22                 lt? 
  0772:31 0d              bnt code_0781 
  0774:7a               push2 
  0775:39 24            pushi 24 // $24 cursor
  0777:39 0b            pushi b // $b nsBottom
  0779:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  077f:33 04              jmp code_0785 

        code_0781
  0781:76               push0 
  0782:45 09 00         callb procedure_0009 0 // NotClose 


        code_0785
  0785:33 14              jmp code_079b 

        code_0787
  0787:78               push1 
  0788:74 0aa2          lofss $122d // get/ball
  078b:43 25 02         callk Said 2 

  078e:31 0b              bnt code_079b 
  0790:7a               push2 
  0791:39 24            pushi 24 // $24 cursor
  0793:39 0c            pushi c // $c nsRight
  0795:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_079b
  079b:48                 ret 
    )

)

// 13d6
(instance exiting 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_079c
  079c:87 01              lap param1 
  079e:65 0a             aTop state 
  07a0:36                push 
  07a1:3c                 dup 
  07a2:35 00              ldi 0 
  07a4:1a                 eq? 
  07a5:31 3a              bnt code_07e1 
  07a7:35 01              ldi 1 
  07a9:a3 05              sal local5 
  07ab:35 01              ldi 1 
  07ad:a0 00cc            sag global204 
  07b0:38 00d3          pushi d3 // $d3 setMotion
  07b3:39 04            pushi 4 // $4 x
  07b5:51 1d            class MoveTo 
  07b7:36                push 
  07b8:38 00aa          pushi aa // $aa triedToMove
  07bb:39 53            pushi 53 // $53 draw
  07bd:7c            pushSelf 
  07be:72 137b          lofsa $1b3c // panel
  07c1:4a 0c             send c 

  07c3:39 12            pushi 12 // $12 illegalBits
  07c5:78               push1 
  07c6:38 8000          pushi 8000 // $8000 sel_32768
  07c9:81 00              lag gEgo 
  07cb:4a 06             send 6 

  07cd:39 2b            pushi 2b // $2b number
  07cf:78               push1 
  07d0:39 4a            pushi 4a // $4a pragmaFail
  07d2:39 06            pushi 6 // $6 loop
  07d4:78               push1 
  07d5:78               push1 
  07d6:39 2a            pushi 2a // $2a play
  07d8:76               push0 
  07d9:72 13ee          lofsa $1bca // soundFX
  07dc:4a 10             send 10 

  07de:32 00a0            jmp code_0881 

        code_07e1
  07e1:3c                 dup 
  07e2:35 01              ldi 1 
  07e4:1a                 eq? 
  07e5:31 35              bnt code_081c 
  07e7:38 00da          pushi da // $da inRect
  07ea:39 04            pushi 4 // $4 x
  07ec:38 0089          pushi 89 // $89 hide
  07ef:39 57            pushi 57 // $57 init
  07f1:38 008b          pushi 8b // $8b select
  07f4:39 59            pushi 59 // $59 showStr
  07f6:81 00              lag gEgo 
  07f8:4a 0c             send c 

  07fa:31 06              bnt code_0802 
  07fc:35 01              ldi 1 
  07fe:65 10             aTop cycles 
  0800:33 18              jmp code_081a 

        code_0802
  0802:39 12            pushi 12 // $12 illegalBits
  0804:78               push1 
  0805:38 8000          pushi 8000 // $8000 sel_32768
  0808:38 00d3          pushi d3 // $d3 setMotion
  080b:39 04            pushi 4 // $4 x
  080d:51 1d            class MoveTo 
  080f:36                push 
  0810:38 008a          pushi 8a // $8a enable
  0813:39 58            pushi 58 // $58 dispose
  0815:7c            pushSelf 
  0816:81 00              lag gEgo 
  0818:4a 12             send 12 


        code_081a
  081a:33 65              jmp code_0881 

        code_081c
  081c:3c                 dup 
  081d:35 02              ldi 2 
  081f:1a                 eq? 
  0820:31 14              bnt code_0836 
  0822:38 00d3          pushi d3 // $d3 setMotion
  0825:39 04            pushi 4 // $4 x
  0827:51 1d            class MoveTo 
  0829:36                push 
  082a:38 008a          pushi 8a // $8a enable
  082d:39 4f            pushi 4f // $4f restore
  082f:7c            pushSelf 
  0830:81 00              lag gEgo 
  0832:4a 0c             send c 

  0834:33 4b              jmp code_0881 

        code_0836
  0836:3c                 dup 
  0837:35 03              ldi 3 
  0839:1a                 eq? 
  083a:31 2e              bnt code_086a 
  083c:39 42            pushi 42 // $42 setPri
  083e:78               push1 
  083f:7a               push2 
  0840:81 00              lag gEgo 
  0842:4a 06             send 6 

  0844:38 00d3          pushi d3 // $d3 setMotion
  0847:39 04            pushi 4 // $4 x
  0849:51 1d            class MoveTo 
  084b:36                push 
  084c:38 008d          pushi 8d // $8d setSize
  084f:39 53            pushi 53 // $53 draw
  0851:7c            pushSelf 
  0852:72 12e7          lofsa $1b3c // panel
  0855:4a 0c             send c 

  0857:39 2b            pushi 2b // $2b number
  0859:78               push1 
  085a:39 4b            pushi 4b // $4b said
  085c:39 06            pushi 6 // $6 loop
  085e:78               push1 
  085f:78               push1 
  0860:39 2a            pushi 2a // $2a play
  0862:76               push0 
  0863:72 1364          lofsa $1bca // soundFX
  0866:4a 10             send 10 

  0868:33 17              jmp code_0881 

        code_086a
  086a:3c                 dup 
  086b:35 04              ldi 4 
  086d:1a                 eq? 
  086e:31 11              bnt code_0881 
  0870:76               push0 
  0871:45 04 00         callb procedure_0004 0 // HandsOn 

  0874:35 00              ldi 0 
  0876:a0 00cc            sag global204 
  0879:39 7a            pushi 7a // $7a setScript
  087b:78               push1 
  087c:76               push0 
  087d:63 08             pToa client 
  087f:4a 06             send 6 


        code_0881
  0881:3a                toss 
  0882:48                 ret 
    )

)

// 1406
(instance playPiano 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_0883
  0883:87 01              lap param1 
  0885:65 0a             aTop state 
  0887:36                push 
  0888:3c                 dup 
  0889:35 00              ldi 0 
  088b:1a                 eq? 
  088c:31 1a              bnt code_08a8 
  088e:35 01              ldi 1 
  0890:a3 01              sal local1 
  0892:76               push0 
  0893:45 03 00         callb procedure_0003 0 // HandsOff 

  0896:38 00d7          pushi d7 // $d7 ignoreControl
  0899:78               push1 
  089a:38 8000          pushi 8000 // $8000 sel_32768
  089d:81 00              lag gEgo 
  089f:4a 06             send 6 

  08a1:35 02              ldi 2 
  08a3:65 10             aTop cycles 
  08a5:32 0141            jmp code_09e9 

        code_08a8
  08a8:3c                 dup 
  08a9:35 01              ldi 1 
  08ab:1a                 eq? 
  08ac:31 15              bnt code_08c3 
  08ae:38 00d3          pushi d3 // $d3 setMotion
  08b1:39 04            pushi 4 // $4 x
  08b3:51 1d            class MoveTo 
  08b5:36                push 
  08b6:38 0089          pushi 89 // $89 hide
  08b9:39 59            pushi 59 // $59 showStr
  08bb:7c            pushSelf 
  08bc:81 00              lag gEgo 
  08be:4a 0c             send c 

  08c0:32 0126            jmp code_09e9 

        code_08c3
  08c3:3c                 dup 
  08c4:35 02              ldi 2 
  08c6:1a                 eq? 
  08c7:31 1b              bnt code_08e4 
  08c9:39 05            pushi 5 // $5 view
  08cb:78               push1 
  08cc:39 10            pushi 10 // $10 lsRight
  08ce:39 06            pushi 6 // $6 loop
  08d0:78               push1 
  08d1:78               push1 
  08d2:39 07            pushi 7 // $7 cel
  08d4:78               push1 
  08d5:76               push0 
  08d6:39 7e            pushi 7e // $7e setCycle
  08d8:7a               push2 
  08d9:51 1a            class End 
  08db:36                push 
  08dc:7c            pushSelf 
  08dd:81 00              lag gEgo 
  08df:4a 1a             send 1a 

  08e1:32 0105            jmp code_09e9 

        code_08e4
  08e4:3c                 dup 
  08e5:35 03              ldi 3 
  08e7:1a                 eq? 
  08e8:31 3a              bnt code_0924 
  08ea:38 0089          pushi 89 // $89 hide
  08ed:76               push0 
  08ee:72 1129          lofsa $1a1a // crank_
  08f1:4a 04             send 4 

  08f3:89 78              lsg global120 
  08f5:35 00              ldi 0 
  08f7:1a                 eq? 
  08f8:31 04              bnt code_08fe 
  08fa:35 01              ldi 1 
  08fc:a1 78              sag global120 

        code_08fe
  08fe:39 06            pushi 6 // $6 loop
  0900:78               push1 
  0901:39 ff            pushi ff // $ff checkAni
  0903:39 2a            pushi 2a // $2a play
  0905:76               push0 
  0906:72 1315          lofsa $1c1e // windMusic
  0909:4a 0a             send a 

  090b:39 06            pushi 6 // $6 loop
  090d:78               push1 
  090e:76               push0 
  090f:39 07            pushi 7 // $7 cel
  0911:78               push1 
  0912:76               push0 
  0913:39 7e            pushi 7e // $7e setCycle
  0915:78               push1 
  0916:51 16            class Fwd 
  0918:36                push 
  0919:81 00              lag gEgo 
  091b:4a 12             send 12 

  091d:35 0e              ldi e 
  091f:65 10             aTop cycles 
  0921:32 00c5            jmp code_09e9 

        code_0924
  0924:3c                 dup 
  0925:35 04              ldi 4 
  0927:1a                 eq? 
  0928:31 2d              bnt code_0957 
  092a:38 0084          pushi 84 // $84 stop
  092d:76               push0 
  092e:72 12ed          lofsa $1c1e // windMusic
  0931:4a 04             send 4 

  0933:38 00ca          pushi ca // $ca show
  0936:76               push0 
  0937:72 10e0          lofsa $1a1a // crank_
  093a:4a 04             send 4 

  093c:39 05            pushi 5 // $5 view
  093e:78               push1 
  093f:39 10            pushi 10 // $10 lsRight
  0941:39 06            pushi 6 // $6 loop
  0943:78               push1 
  0944:78               push1 
  0945:39 07            pushi 7 // $7 cel
  0947:78               push1 
  0948:76               push0 
  0949:39 7e            pushi 7e // $7e setCycle
  094b:7a               push2 
  094c:51 1b            class Beg 
  094e:36                push 
  094f:7c            pushSelf 
  0950:81 00              lag gEgo 
  0952:4a 1a             send 1a 

  0954:32 0092            jmp code_09e9 

        code_0957
  0957:3c                 dup 
  0958:35 05              ldi 5 
  095a:1a                 eq? 
  095b:31 56              bnt code_09b3 
  095d:39 05            pushi 5 // $5 view
  095f:78               push1 
  0960:76               push0 
  0961:39 06            pushi 6 // $6 loop
  0963:78               push1 
  0964:76               push0 
  0965:39 7e            pushi 7e // $7e setCycle
  0967:78               push1 
  0968:51 17            class Walk 
  096a:36                push 
  096b:38 00d6          pushi d6 // $d6 observeControl
  096e:78               push1 
  096f:38 8000          pushi 8000 // $8000 sel_32768
  0972:81 00              lag gEgo 
  0974:4a 18             send 18 

  0976:76               push0 
  0977:45 04 00         callb procedure_0004 0 // HandsOn 

  097a:80 00df            lag gDetailLevel 
  097d:31 0f              bnt code_098e 
  097f:38 00ca          pushi ca // $ca show
  0982:76               push0 
  0983:39 7e            pushi 7e // $7e setCycle
  0985:78               push1 
  0986:51 16            class Fwd 
  0988:36                push 
  0989:72 0fa4          lofsa $1930 // keys
  098c:4a 0a             send a 


        code_098e
  098e:39 7e            pushi 7e // $7e setCycle
  0990:78               push1 
  0991:51 16            class Fwd 
  0993:36                push 
  0994:72 0fe7          lofsa $197e // roll
  0997:4a 06             send 6 

  0999:39 2b            pushi 2b // $2b number
  099b:78               push1 
  099c:38 00c8          pushi c8 // $c8 setLoop
  099f:80 00a0            lag global160 
  09a2:02                 add 
  09a3:36                push 
  09a4:39 06            pushi 6 // $6 loop
  09a6:78               push1 
  09a7:78               push1 
  09a8:39 2a            pushi 2a // $2a play
  09aa:78               push1 
  09ab:7c            pushSelf 
  09ac:72 11f1          lofsa $1ba0 // myMusic
  09af:4a 12             send 12 

  09b1:33 36              jmp code_09e9 

        code_09b3
  09b3:3c                 dup 
  09b4:35 06              ldi 6 
  09b6:1a                 eq? 
  09b7:31 30              bnt code_09e9 
  09b9:88 00a0            lsg global160 
  09bc:35 04              ldi 4 
  09be:22                 lt? 
  09bf:31 05              bnt code_09c6 
  09c1:c0 00a0            +ag global160 
  09c4:33 05              jmp code_09cb 

        code_09c6
  09c6:35 00              ldi 0 
  09c8:a0 00a0            sag global160 

        code_09cb
  09cb:38 0089          pushi 89 // $89 hide
  09ce:76               push0 
  09cf:72 0f5e          lofsa $1930 // keys
  09d2:4a 04             send 4 

  09d4:38 00c6          pushi c6 // $c6 stopUpd
  09d7:76               push0 
  09d8:72 0fa3          lofsa $197e // roll
  09db:4a 04             send 4 

  09dd:35 00              ldi 0 
  09df:a3 01              sal local1 
  09e1:39 7a            pushi 7a // $7a setScript
  09e3:78               push1 
  09e4:76               push0 
  09e5:63 08             pToa client 
  09e7:4a 06             send 6 


        code_09e9
  09e9:3a                toss 
  09ea:48                 ret 
    )

)

// 1436
(instance enterPanel 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_09eb
  09eb:87 01              lap param1 
  09ed:65 0a             aTop state 
  09ef:36                push 
  09f0:3c                 dup 
  09f1:35 00              ldi 0 
  09f3:1a                 eq? 
  09f4:31 34              bnt code_0a2a 
  09f6:76               push0 
  09f7:45 03 00         callb procedure_0003 0 // HandsOff 

  09fa:35 01              ldi 1 
  09fc:a3 05              sal local5 
  09fe:35 01              ldi 1 
  0a00:a0 00cc            sag global204 
  0a03:38 00d3          pushi d3 // $d3 setMotion
  0a06:39 04            pushi 4 // $4 x
  0a08:51 1d            class MoveTo 
  0a0a:36                push 
  0a0b:38 00aa          pushi aa // $aa triedToMove
  0a0e:39 53            pushi 53 // $53 draw
  0a10:7c            pushSelf 
  0a11:72 1128          lofsa $1b3c // panel
  0a14:4a 0c             send c 

  0a16:39 2b            pushi 2b // $2b number
  0a18:78               push1 
  0a19:39 4a            pushi 4a // $4a pragmaFail
  0a1b:39 06            pushi 6 // $6 loop
  0a1d:78               push1 
  0a1e:78               push1 
  0a1f:39 2a            pushi 2a // $2a play
  0a21:76               push0 
  0a22:72 11a5          lofsa $1bca // soundFX
  0a25:4a 10             send 10 

  0a27:32 008a            jmp code_0ab4 

        code_0a2a
  0a2a:3c                 dup 
  0a2b:35 01              ldi 1 
  0a2d:1a                 eq? 
  0a2e:31 23              bnt code_0a53 
  0a30:38 00d3          pushi d3 // $d3 setMotion
  0a33:39 04            pushi 4 // $4 x
  0a35:51 1d            class MoveTo 
  0a37:36                push 
  0a38:39 04            pushi 4 // $4 x
  0a3a:76               push0 
  0a3b:81 00              lag gEgo 
  0a3d:4a 04             send 4 

  0a3f:36                push 
  0a40:39 03            pushi 3 // $3 y
  0a42:76               push0 
  0a43:81 00              lag gEgo 
  0a45:4a 04             send 4 

  0a47:36                push 
  0a48:35 0f              ldi f 
  0a4a:02                 add 
  0a4b:36                push 
  0a4c:7c            pushSelf 
  0a4d:81 00              lag gEgo 
  0a4f:4a 0c             send c 

  0a51:33 61              jmp code_0ab4 

        code_0a53
  0a53:3c                 dup 
  0a54:35 02              ldi 2 
  0a56:1a                 eq? 
  0a57:31 35              bnt code_0a8e 
  0a59:39 42            pushi 42 // $42 setPri
  0a5b:78               push1 
  0a5c:39 ff            pushi ff // $ff checkAni
  0a5e:39 12            pushi 12 // $12 illegalBits
  0a60:78               push1 
  0a61:38 8000          pushi 8000 // $8000 sel_32768
  0a64:81 00              lag gEgo 
  0a66:4a 0c             send c 

  0a68:38 00d3          pushi d3 // $d3 setMotion
  0a6b:39 04            pushi 4 // $4 x
  0a6d:51 1d            class MoveTo 
  0a6f:36                push 
  0a70:38 008d          pushi 8d // $8d setSize
  0a73:39 53            pushi 53 // $53 draw
  0a75:7c            pushSelf 
  0a76:72 10c3          lofsa $1b3c // panel
  0a79:4a 0c             send c 

  0a7b:39 2b            pushi 2b // $2b number
  0a7d:78               push1 
  0a7e:39 4b            pushi 4b // $4b said
  0a80:39 06            pushi 6 // $6 loop
  0a82:78               push1 
  0a83:78               push1 
  0a84:39 2a            pushi 2a // $2a play
  0a86:76               push0 
  0a87:72 1140          lofsa $1bca // soundFX
  0a8a:4a 10             send 10 

  0a8c:33 26              jmp code_0ab4 

        code_0a8e
  0a8e:3c                 dup 
  0a8f:35 03              ldi 3 
  0a91:1a                 eq? 
  0a92:31 20              bnt code_0ab4 
  0a94:76               push0 
  0a95:45 04 00         callb procedure_0004 0 // HandsOn 

  0a98:7a               push2 
  0a99:39 24            pushi 24 // $24 cursor
  0a9b:39 0d            pushi d // $d lsTop
  0a9d:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0aa3:35 00              ldi 0 
  0aa5:a0 00cc            sag global204 
  0aa8:35 00              ldi 0 
  0aaa:a3 05              sal local5 
  0aac:39 7a            pushi 7a // $7a setScript
  0aae:78               push1 
  0aaf:76               push0 
  0ab0:63 08             pToa client 
  0ab2:4a 06             send 6 


        code_0ab4
  0ab4:3a                toss 
  0ab5:48                 ret 
    )

)

// 1466
(instance DoorFunc 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_0ab6
  0ab6:87 01              lap param1 
  0ab8:65 0a             aTop state 
  0aba:36                push 
  0abb:3c                 dup 
  0abc:35 00              ldi 0 
  0abe:1a                 eq? 
  0abf:31 63              bnt code_0b24 
  0ac1:38 00e9          pushi e9 // $e9 canControl
  0ac4:76               push0 
  0ac5:51 2b            class User 
  0ac7:4a 04             send 4 

  0ac9:a3 07              sal local7 
  0acb:38 00e9          pushi e9 // $e9 canControl
  0ace:78               push1 
  0acf:76               push0 
  0ad0:51 2b            class User 
  0ad2:4a 06             send 6 

  0ad4:39 7e            pushi 7e // $7e setCycle
  0ad6:78               push1 
  0ad7:88 00ca            lsg global202 
  0ada:35 01              ldi 1 
  0adc:1a                 eq? 
  0add:31 04              bnt code_0ae3 
  0adf:51 1a            class End 
  0ae1:33 02              jmp code_0ae5 

        code_0ae3
  0ae3:51 1b            class Beg 

        code_0ae5
  0ae5:36                push 
  0ae6:72 0df5          lofsa $18de // Bdoor
  0ae9:4a 06             send 6 

  0aeb:39 7e            pushi 7e // $7e setCycle
  0aed:7a               push2 
  0aee:88 00ca            lsg global202 
  0af1:35 01              ldi 1 
  0af3:1a                 eq? 
  0af4:31 04              bnt code_0afa 
  0af6:51 1a            class End 
  0af8:33 02              jmp code_0afc 

        code_0afa
  0afa:51 1b            class Beg 

        code_0afc
  0afc:36                push 
  0afd:7c            pushSelf 
  0afe:72 0d8b          lofsa $188c // Fdoor
  0b01:4a 08             send 8 

  0b03:83 00              lal local0 
  0b05:18                 not 
  0b06:31 1a              bnt code_0b22 
  0b08:39 2b            pushi 2b // $2b number
  0b0a:78               push1 
  0b0b:88 00ca            lsg global202 
  0b0e:35 01              ldi 1 
  0b10:1a                 eq? 
  0b11:31 04              bnt code_0b17 
  0b13:35 2b              ldi 2b 
  0b15:33 02              jmp code_0b19 

        code_0b17
  0b17:35 2c              ldi 2c 

        code_0b19
  0b19:36                push 
  0b1a:39 2a            pushi 2a // $2a play
  0b1c:76               push0 
  0b1d:72 10d4          lofsa $1bf4 // doorMusic
  0b20:4a 0a             send a 


        code_0b22
  0b22:33 2f              jmp code_0b53 

        code_0b24
  0b24:3c                 dup 
  0b25:35 01              ldi 1 
  0b27:1a                 eq? 
  0b28:31 29              bnt code_0b53 
  0b2a:38 00e9          pushi e9 // $e9 canControl
  0b2d:78               push1 
  0b2e:8b 07              lsl local7 
  0b30:51 2b            class User 
  0b32:4a 06             send 6 

  0b34:38 00c6          pushi c6 // $c6 stopUpd
  0b37:76               push0 
  0b38:72 0da3          lofsa $18de // Bdoor
  0b3b:4a 04             send 4 

  0b3d:38 00c6          pushi c6 // $c6 stopUpd
  0b40:76               push0 
  0b41:72 0d48          lofsa $188c // Fdoor
  0b44:4a 04             send 4 

  0b46:35 03              ldi 3 
  0b48:a0 00ca            sag global202 
  0b4b:39 7a            pushi 7a // $7a setScript
  0b4d:78               push1 
  0b4e:76               push0 
  0b4f:63 08             pToa client 
  0b51:4a 06             send 6 


        code_0b53
  0b53:3a                toss 
  0b54:48                 ret 
    )

)

// 1496
(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_0b55
  0b55:39 3c            pushi 3c // $3c doit
  0b57:76               push0 
  0b58:57 05 04         super Script 4 

  0b5b:88 00ca            lsg global202 
  0b5e:35 03              ldi 3 
  0b60:1a                 eq? 
  0b61:31 09              bnt code_0b6c 
  0b63:35 00              ldi 0 
  0b65:a0 00ca            sag global202 
  0b68:35 01              ldi 1 
  0b6a:65 10             aTop cycles 

        code_0b6c
  0b6c:48                 ret 
    )

    (method (changeState) // method_0b6d
  0b6d:87 01              lap param1 
  0b6f:65 0a             aTop state 
  0b71:36                push 
  0b72:3c                 dup 
  0b73:35 00              ldi 0 
  0b75:1a                 eq? 
  0b76:31 18              bnt code_0b90 
  0b78:35 02              ldi 2 
  0b7a:65 10             aTop cycles 
  0b7c:38 00d3          pushi d3 // $d3 setMotion
  0b7f:78               push1 
  0b80:76               push0 
  0b81:38 00c9          pushi c9 // $c9 ignoreActors
  0b84:78               push1 
  0b85:78               push1 
  0b86:39 12            pushi 12 // $12 illegalBits
  0b88:78               push1 
  0b89:76               push0 
  0b8a:81 00              lag gEgo 
  0b8c:4a 12             send 12 

  0b8e:33 5f              jmp code_0bef 

        code_0b90
  0b90:3c                 dup 
  0b91:35 01              ldi 1 
  0b93:1a                 eq? 
  0b94:31 26              bnt code_0bbc 
  0b96:39 04            pushi 4 // $4 x
  0b98:76               push0 
  0b99:81 00              lag gEgo 
  0b9b:4a 04             send 4 

  0b9d:36                push 
  0b9e:35 44              ldi 44 
  0ba0:22                 lt? 
  0ba1:31 13              bnt code_0bb6 
  0ba3:38 00d3          pushi d3 // $d3 setMotion
  0ba6:39 04            pushi 4 // $4 x
  0ba8:51 1d            class MoveTo 
  0baa:36                push 
  0bab:39 50            pushi 50 // $50 title
  0bad:39 77            pushi 77 // $77 caller
  0baf:7c            pushSelf 
  0bb0:81 00              lag gEgo 
  0bb2:4a 0c             send c 

  0bb4:33 04              jmp code_0bba 

        code_0bb6
  0bb6:35 01              ldi 1 
  0bb8:65 10             aTop cycles 

        code_0bba
  0bba:33 33              jmp code_0bef 

        code_0bbc
  0bbc:3c                 dup 
  0bbd:35 02              ldi 2 
  0bbf:1a                 eq? 
  0bc0:31 07              bnt code_0bc9 
  0bc2:35 01              ldi 1 
  0bc4:a0 00ca            sag global202 
  0bc7:33 26              jmp code_0bef 

        code_0bc9
  0bc9:3c                 dup 
  0bca:35 03              ldi 3 
  0bcc:1a                 eq? 
  0bcd:31 20              bnt code_0bef 
  0bcf:38 00d3          pushi d3 // $d3 setMotion
  0bd2:39 03            pushi 3 // $3 y
  0bd4:51 1d            class MoveTo 
  0bd6:36                push 
  0bd7:39 04            pushi 4 // $4 x
  0bd9:76               push0 
  0bda:81 00              lag gEgo 
  0bdc:4a 04             send 4 

  0bde:36                push 
  0bdf:35 32              ldi 32 
  0be1:04                 sub 
  0be2:36                push 
  0be3:39 03            pushi 3 // $3 y
  0be5:76               push0 
  0be6:81 00              lag gEgo 
  0be8:4a 04             send 4 

  0bea:36                push 
  0beb:81 00              lag gEgo 
  0bed:4a 0a             send a 


        code_0bef
  0bef:3a                toss 
  0bf0:48                 ret 
    )

)

// 14ca
(instance balls of RPicView
    (properties
        y $66
        x $9d
        z $0
        heading $0
        view $88
        loop $9
        cel $5
        priority $9
        signal $4000
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
    )
)

// 14fc
(instance phono of RPicView
    (properties
        y $5d
        x $60
        z $0
        heading $0
        view $88
        loop $1
        cel $6
        priority $5
        signal $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
    )
    (method (handleEvent) // method_0bf1
  0bf1:78               push1 
  0bf2:74 065b          lofss $1250 // get/chanson
  0bf5:43 25 02         callk Said 2 

  0bf8:31 0e              bnt code_0c08 
  0bfa:7a               push2 
  0bfb:39 24            pushi 24 // $24 cursor
  0bfd:39 0e            pushi e // $e lsLeft
  0bff:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0c05:32 00b7            jmp code_0cbf 

        code_0c08
  0c08:78               push1 
  0c09:74 0723          lofss $132f // jouer,attach,control,rotate/fontainier,gramophone,music,chanson[/(gramophone,(joueur<chanson))<on]
  0c0c:43 25 02         callk Said 2 

  0c0f:2f 09               bt code_0c1a 
  0c11:78               push1 
  0c12:74 053f          lofss $1154 // (rotate<on),(vent[<haut])/gramophone,(joueur<chanson)
  0c15:43 25 02         callk Said 2 

  0c18:31 38              bnt code_0c52 

        code_0c1a
  0c1a:83 00              lal local0 
  0c1c:18                 not 
  0c1d:31 26              bnt code_0c45 
  0c1f:38 00ee          pushi ee // $ee has
  0c22:78               push1 
  0c23:39 09            pushi 9 // $9 nsTop
  0c25:81 00              lag gEgo 
  0c27:4a 06             send 6 

  0c29:31 0d              bnt code_0c38 
  0c2b:7a               push2 
  0c2c:39 24            pushi 24 // $24 cursor
  0c2e:39 0f            pushi f // $f lsBottom
  0c30:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0c36:33 0b              jmp code_0c43 

        code_0c38
  0c38:7a               push2 
  0c39:39 24            pushi 24 // $24 cursor
  0c3b:39 10            pushi 10 // $10 lsRight
  0c3d:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0c43
  0c43:33 0b              jmp code_0c50 

        code_0c45
  0c45:7a               push2 
  0c46:39 24            pushi 24 // $24 cursor
  0c48:39 11            pushi 11 // $11 signal
  0c4a:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0c50
  0c50:33 6d              jmp code_0cbf 

        code_0c52
  0c52:78               push1 
  0c53:74 06a8          lofss $12fe // open,(look<dans)/gramophone,armoire,(joueur<chanson)
  0c56:43 25 02         callk Said 2 

  0c59:31 24              bnt code_0c7f 
  0c5b:38 00ae          pushi ae // $ae distanceTo
  0c5e:78               push1 
  0c5f:74 0d6a          lofss $19cc // record
  0c62:81 00              lag gEgo 
  0c64:4a 06             send 6 

  0c66:36                push 
  0c67:35 1e              ldi 1e 
  0c69:22                 lt? 
  0c6a:31 0d              bnt code_0c79 
  0c6c:7a               push2 
  0c6d:39 24            pushi 24 // $24 cursor
  0c6f:39 12            pushi 12 // $12 illegalBits
  0c71:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0c77:33 04              jmp code_0c7d 

        code_0c79
  0c79:76               push0 
  0c7a:45 09 00         callb procedure_0009 0 // NotClose 


        code_0c7d
  0c7d:33 40              jmp code_0cbf 

        code_0c7f
  0c7f:39 03            pushi 3 // $3 y
  0c81:7c            pushSelf 
  0c82:8f 01              lsp param1 
  0c84:39 03            pushi 3 // $3 y
  0c86:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  0c8c:2f 09               bt code_0c97 
  0c8e:78               push1 
  0c8f:74 0630          lofss $12c2 // look/gramophone,armoire,(joueur<chanson)
  0c92:43 25 02         callk Said 2 

  0c95:31 28              bnt code_0cbf 

        code_0c97
  0c97:88 00a5            lsg gAct 
  0c9a:35 03              ldi 3 
  0c9c:1a                 eq? 
  0c9d:31 0d              bnt code_0cac 
  0c9f:7a               push2 
  0ca0:39 24            pushi 24 // $24 cursor
  0ca2:39 13            pushi 13 // $13 brTop
  0ca4:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0caa:33 0b              jmp code_0cb7 

        code_0cac
  0cac:7a               push2 
  0cad:39 24            pushi 24 // $24 cursor
  0caf:39 14            pushi 14 // $14 brLeft
  0cb1:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0cb7
  0cb7:39 4c            pushi 4c // $4c claimed
  0cb9:78               push1 
  0cba:78               push1 
  0cbb:87 01              lap param1 
  0cbd:4a 06             send 6 


        code_0cbf
  0cbf:48                 ret 
    )

)

// 1532
(instance sofa1 of RPicView
    (properties
        y $a7
        x $36
        z $0
        heading $0
        view $88
        loop $3
        cel $0
        priority $c
        signal $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
    )
    (method (handleEvent) // method_0cc0
  0cc0:39 03            pushi 3 // $3 y
  0cc2:7c            pushSelf 
  0cc3:8f 01              lsp param1 
  0cc5:39 03            pushi 3 // $3 y
  0cc7:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  0ccd:31 0f              bnt code_0cde 
  0ccf:39 4c            pushi 4c // $4c claimed
  0cd1:78               push1 
  0cd2:78               push1 
  0cd3:87 01              lap param1 
  0cd5:4a 06             send 6 

  0cd7:78               push1 
  0cd8:74 0fbb          lofss $1c96 // couch
  0cdb:45 19 02         callb procedure_0019 2 // DoLook 


        code_0cde
  0cde:48                 ret 
    )

)

// 1568
(instance sofa2 of RPicView
    (properties
        y $a7
        x $cb
        z $0
        heading $0
        view $88
        loop $3
        cel $0
        priority $c
        signal $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
    )
    (method (handleEvent) // method_0cdf
  0cdf:39 03            pushi 3 // $3 y
  0ce1:7c            pushSelf 
  0ce2:8f 01              lsp param1 
  0ce4:39 03            pushi 3 // $3 y
  0ce6:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  0cec:31 0f              bnt code_0cfd 
  0cee:39 4c            pushi 4c // $4c claimed
  0cf0:78               push1 
  0cf1:78               push1 
  0cf2:87 01              lap param1 
  0cf4:4a 06             send 6 

  0cf6:78               push1 
  0cf7:74 0f9c          lofss $1c96 // couch
  0cfa:45 19 02         callb procedure_0019 2 // DoLook 


        code_0cfd
  0cfd:48                 ret 
    )

)

// 159e
(instance table1 of RPicView
    (properties
        y $a7
        x $7e
        z $0
        heading $0
        view $88
        loop $2
        cel $4
        priority $c
        signal $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
    )
    (method (handleEvent) // method_0cfe
  0cfe:39 03            pushi 3 // $3 y
  0d00:7c            pushSelf 
  0d01:8f 01              lsp param1 
  0d03:39 03            pushi 3 // $3 y
  0d05:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  0d0b:31 0f              bnt code_0d1c 
  0d0d:39 4c            pushi 4c // $4c claimed
  0d0f:78               push1 
  0d10:78               push1 
  0d11:87 01              lap param1 
  0d13:4a 06             send 6 

  0d15:78               push1 
  0d16:74 1031          lofss $1d4a // table
  0d19:45 19 02         callb procedure_0019 2 // DoLook 


        code_0d1c
  0d1c:48                 ret 
    )

)

// 15d4
(instance wingback of RPicView
    (properties
        y $5e
        x $127
        z $0
        heading $0
        view $88
        loop $2
        cel $2
        priority $5
        signal $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
    )
    (method (handleEvent) // method_0d1d
  0d1d:39 03            pushi 3 // $3 y
  0d1f:7c            pushSelf 
  0d20:8f 01              lsp param1 
  0d22:39 03            pushi 3 // $3 y
  0d24:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  0d2a:31 0f              bnt code_0d3b 
  0d2c:39 4c            pushi 4c // $4c claimed
  0d2e:78               push1 
  0d2f:78               push1 
  0d30:87 01              lap param1 
  0d32:4a 06             send 6 

  0d34:78               push1 
  0d35:74 0f58          lofss $1c90 // chair
  0d38:45 19 02         callb procedure_0019 2 // DoLook 


        code_0d3b
  0d3b:48                 ret 
    )

)

// 160a
(instance harp of RPicView
    (properties
        y $30
        x $127
        z $0
        heading $0
        view $88
        loop $1
        cel $4
        priority $1
        signal $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
    )
    (method (handleEvent) // method_0d3c
  0d3c:39 03            pushi 3 // $3 y
  0d3e:7c            pushSelf 
  0d3f:8f 01              lsp param1 
  0d41:39 03            pushi 3 // $3 y
  0d43:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  0d49:2f 09               bt code_0d54 
  0d4b:78               push1 
  0d4c:74 0584          lofss $12d3 // look/guitar
  0d4f:43 25 02         callk Said 2 

  0d52:31 15              bnt code_0d69 

        code_0d54
  0d54:39 4c            pushi 4c // $4c claimed
  0d56:78               push1 
  0d57:78               push1 
  0d58:87 01              lap param1 
  0d5a:4a 06             send 6 

  0d5c:7a               push2 
  0d5d:39 24            pushi 24 // $24 cursor
  0d5f:39 15            pushi 15 // $15 brBottom
  0d61:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0d67:33 2a              jmp code_0d93 

        code_0d69
  0d69:78               push1 
  0d6a:74 04d7          lofss $1244 // get/guitar
  0d6d:43 25 02         callk Said 2 

  0d70:31 0d              bnt code_0d7f 
  0d72:7a               push2 
  0d73:39 24            pushi 24 // $24 cursor
  0d75:39 16            pushi 16 // $16 brRight
  0d77:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0d7d:33 14              jmp code_0d93 

        code_0d7f
  0d7f:78               push1 
  0d80:74 05df          lofss $1362 // jouer/guitar
  0d83:43 25 02         callk Said 2 

  0d86:31 0b              bnt code_0d93 
  0d88:7a               push2 
  0d89:39 24            pushi 24 // $24 cursor
  0d8b:39 16            pushi 16 // $16 brRight
  0d8d:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0d93
  0d93:48                 ret 
    )

)

// 1640
(instance tromb of RPicView
    (properties
        y $2d
        x $10c
        z $0
        heading $0
        view $88
        loop $1
        cel $5
        priority $1
        signal $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
    )
    (method (handleEvent) // method_0d94
  0d94:39 03            pushi 3 // $3 y
  0d96:7c            pushSelf 
  0d97:8f 01              lsp param1 
  0d99:39 03            pushi 3 // $3 y
  0d9b:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  0da1:31 13              bnt code_0db6 
  0da3:39 4c            pushi 4c // $4c claimed
  0da5:78               push1 
  0da6:78               push1 
  0da7:87 01              lap param1 
  0da9:4a 06             send 6 

  0dab:7a               push2 
  0dac:39 24            pushi 24 // $24 cursor
  0dae:39 15            pushi 15 // $15 brBottom
  0db0:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0db6
  0db6:48                 ret 
    )

)

// 1676
(instance trump of RPicView
    (properties
        y $2a
        x $e9
        z $0
        heading $0
        view $88
        loop $1
        cel $3
        priority $1
        signal $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
    )
    (method (handleEvent) // method_0db7
  0db7:39 03            pushi 3 // $3 y
  0db9:7c            pushSelf 
  0dba:8f 01              lsp param1 
  0dbc:39 03            pushi 3 // $3 y
  0dbe:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  0dc4:31 13              bnt code_0dd9 
  0dc6:39 4c            pushi 4c // $4c claimed
  0dc8:78               push1 
  0dc9:78               push1 
  0dca:87 01              lap param1 
  0dcc:4a 06             send 6 

  0dce:7a               push2 
  0dcf:39 24            pushi 24 // $24 cursor
  0dd1:39 15            pushi 15 // $15 brBottom
  0dd3:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0dd9
  0dd9:48                 ret 
    )

)

// 16ac
(instance mandolin of RPicView
    (properties
        y $38
        x $68
        z $0
        heading $0
        view $88
        loop $1
        cel $0
        priority $4
        signal $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
    )
    (method (handleEvent) // method_0dda
  0dda:39 03            pushi 3 // $3 y
  0ddc:7c            pushSelf 
  0ddd:8f 01              lsp param1 
  0ddf:39 03            pushi 3 // $3 y
  0de1:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  0de7:31 13              bnt code_0dfc 
  0de9:39 4c            pushi 4c // $4c claimed
  0deb:78               push1 
  0dec:78               push1 
  0ded:87 01              lap param1 
  0def:4a 06             send 6 

  0df1:7a               push2 
  0df2:39 24            pushi 24 // $24 cursor
  0df4:39 15            pushi 15 // $15 brBottom
  0df6:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0dfc
  0dfc:48                 ret 
    )

)

// 16e2
(instance cues of RPicView
    (properties
        y $7a
        x $1e
        z $0
        heading $0
        view $88
        loop $1
        cel $8
        priority $9
        signal $4000
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
    )
    (method (handleEvent) // method_0dfd
  0dfd:39 03            pushi 3 // $3 y
  0dff:7c            pushSelf 
  0e00:8f 01              lsp param1 
  0e02:39 03            pushi 3 // $3 y
  0e04:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  0e0a:2f 09               bt code_0e15 
  0e0c:78               push1 
  0e0d:74 04d5          lofss $12e5 // look/rack,cue
  0e10:43 25 02         callk Said 2 

  0e13:31 15              bnt code_0e2a 

        code_0e15
  0e15:39 4c            pushi 4c // $4c claimed
  0e17:78               push1 
  0e18:78               push1 
  0e19:87 01              lap param1 
  0e1b:4a 06             send 6 

  0e1d:7a               push2 
  0e1e:39 24            pushi 24 // $24 cursor
  0e20:39 17            pushi 17 // $17 name
  0e22:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0e28:33 14              jmp code_0e3e 

        code_0e2a
  0e2a:78               push1 
  0e2b:74 040b          lofss $1239 // get/cue[<billard]
  0e2e:43 25 02         callk Said 2 

  0e31:31 0b              bnt code_0e3e 
  0e33:7a               push2 
  0e34:39 24            pushi 24 // $24 cursor
  0e36:39 18            pushi 18 // $18 key
  0e38:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0e3e
  0e3e:48                 ret 
    )

)

// 1718
(instance bookcase of RPicView
    (properties
        y $70
        x $41
        z $0
        heading $0
        view $88
        loop $2
        cel $3
        priority $7
        signal $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
    )
    (method (handleEvent) // method_0e3f
  0e3f:39 03            pushi 3 // $3 y
  0e41:7c            pushSelf 
  0e42:8f 01              lsp param1 
  0e44:39 03            pushi 3 // $3 y
  0e46:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  0e4c:2f 09               bt code_0e57 
  0e4e:78               push1 
  0e4f:74 0430          lofss $1282 // look/bibliotheque
  0e52:43 25 02         callk Said 2 

  0e55:31 13              bnt code_0e6a 

        code_0e57
  0e57:39 4c            pushi 4c // $4c claimed
  0e59:78               push1 
  0e5a:78               push1 
  0e5b:87 01              lap param1 
  0e5d:4a 06             send 6 

  0e5f:7a               push2 
  0e60:39 24            pushi 24 // $24 cursor
  0e62:39 19            pushi 19 // $19 time
  0e64:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0e6a
  0e6a:48                 ret 
    )

)

// 174e
(instance ship of RPicView
    (properties
        y $94
        x $7f
        z $0
        heading $0
        view $88
        loop $1
        cel $1
        priority $c
        signal $4000
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
    )
    (method (handleEvent) // method_0e6b
  0e6b:39 03            pushi 3 // $3 y
  0e6d:7c            pushSelf 
  0e6e:8f 01              lsp param1 
  0e70:39 03            pushi 3 // $3 y
  0e72:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  0e78:2f 09               bt code_0e83 
  0e7a:78               push1 
  0e7b:74 03fe          lofss $127c // look/bateau
  0e7e:43 25 02         callk Said 2 

  0e81:31 15              bnt code_0e98 

        code_0e83
  0e83:39 4c            pushi 4c // $4c claimed
  0e85:78               push1 
  0e86:78               push1 
  0e87:87 01              lap param1 
  0e89:4a 06             send 6 

  0e8b:7a               push2 
  0e8c:39 24            pushi 24 // $24 cursor
  0e8e:39 1a            pushi 1a // $1a text
  0e90:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0e96:33 14              jmp code_0eac 

        code_0e98
  0e98:78               push1 
  0e99:74 0397          lofss $1233 // get/bateau
  0e9c:43 25 02         callk Said 2 

  0e9f:31 0b              bnt code_0eac 
  0ea1:7a               push2 
  0ea2:39 24            pushi 24 // $24 cursor
  0ea4:39 1b            pushi 1b // $1b elements
  0ea6:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0eac
  0eac:48                 ret 
    )

)

// 1784
(instance item of RPicView
    (properties
        y $5b
        x $e2
        z $0
        heading $0
        view $88
        loop $3
        cel $2
        priority $5
        signal $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
    )
    (method (handleEvent) // method_0ead
  0ead:39 03            pushi 3 // $3 y
  0eaf:7c            pushSelf 
  0eb0:8f 01              lsp param1 
  0eb2:39 03            pushi 3 // $3 y
  0eb4:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  0eba:31 0f              bnt code_0ecb 
  0ebc:39 4c            pushi 4c // $4c claimed
  0ebe:78               push1 
  0ebf:78               push1 
  0ec0:87 01              lap param1 
  0ec2:4a 06             send 6 

  0ec4:78               push1 
  0ec5:74 0dc8          lofss $1c90 // chair
  0ec8:45 19 02         callb procedure_0019 2 // DoLook 


        code_0ecb
  0ecb:48                 ret 
    )

)

// 17ba
(instance table2 of RPicView
    (properties
        y $5a
        x $fa
        z $0
        heading $0
        view $88
        loop $2
        cel $0
        priority $5
        signal $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
    )
    (method (handleEvent) // method_0ecc
  0ecc:39 03            pushi 3 // $3 y
  0ece:7c            pushSelf 
  0ecf:8f 01              lsp param1 
  0ed1:39 03            pushi 3 // $3 y
  0ed3:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  0ed9:31 0f              bnt code_0eea 
  0edb:39 4c            pushi 4c // $4c claimed
  0edd:78               push1 
  0ede:78               push1 
  0edf:87 01              lap param1 
  0ee1:4a 06             send 6 

  0ee3:78               push1 
  0ee4:74 0e63          lofss $1d4a // table
  0ee7:45 19 02         callb procedure_0019 2 // DoLook 


        code_0eea
  0eea:48                 ret 
    )

)

// 17f0
(instance rim of PV
    (properties
        y $6f
        x $9b
        z $0
        heading $0
        view $88
        loop $8
        cel $0
        priority $9
        signal $4000
    )
)

// 181a
(instance billiard of RPicView
    (properties
        y $7e
        x $9b
        z $0
        heading $0
        view $88
        loop $3
        cel $1
        priority $8
        signal $4000
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
    )
    (method (handleEvent) // method_0eeb
  0eeb:39 03            pushi 3 // $3 y
  0eed:7c            pushSelf 
  0eee:8f 01              lsp param1 
  0ef0:39 03            pushi 3 // $3 y
  0ef2:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  0ef8:2f 09               bt code_0f03 
  0efa:78               push1 
  0efb:74 035b          lofss $1259 // look/(nightstand<billard),billard
  0efe:43 25 02         callk Said 2 

  0f01:31 30              bnt code_0f33 

        code_0f03
  0f03:39 4c            pushi 4c // $4c claimed
  0f05:78               push1 
  0f06:78               push1 
  0f07:87 01              lap param1 
  0f09:4a 06             send 6 

  0f0b:88 00a5            lsg gAct 
  0f0e:35 01              ldi 1 
  0f10:1a                 eq? 
  0f11:31 15              bnt code_0f28 
  0f13:88 009a            lsg gClarenceWilburState 
  0f16:35 04              ldi 4 
  0f18:1a                 eq? 
  0f19:31 0d              bnt code_0f28 
  0f1b:7a               push2 
  0f1c:39 24            pushi 24 // $24 cursor
  0f1e:39 1c            pushi 1c // $1c color
  0f20:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0f26:33 0b              jmp code_0f33 

        code_0f28
  0f28:7a               push2 
  0f29:39 24            pushi 24 // $24 cursor
  0f2b:39 1d            pushi 1d // $1d back
  0f2d:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0f33
  0f33:48                 ret 
    )

)

// 1850
(instance portrait of RPicView
    (properties
        y $32
        x $b6
        z $0
        heading $0
        view $88
        loop $1
        cel $7
        priority $5
        signal $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
    )
    (method (handleEvent) // method_0f34
  0f34:78               push1 
  0f35:74 03b6          lofss $12ee // look<behind,below/painting
  0f38:43 25 02         callk Said 2 

  0f3b:31 0e              bnt code_0f4b 
  0f3d:7a               push2 
  0f3e:39 24            pushi 24 // $24 cursor
  0f40:39 1e            pushi 1e // $1e mode
  0f42:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0f48:32 0091            jmp code_0fdc 

        code_0f4b
  0f4b:78               push1 
  0f4c:74 02fb          lofss $124a // get/painting
  0f4f:43 25 02         callk Said 2 

  0f52:31 0d              bnt code_0f61 
  0f54:7a               push2 
  0f55:39 24            pushi 24 // $24 cursor
  0f57:39 1f            pushi 1f // $1f style
  0f59:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0f5f:33 7b              jmp code_0fdc 

        code_0f61
  0f61:78               push1 
  0f62:74 03c4          lofss $1329 // open/painting
  0f65:43 25 02         callk Said 2 

  0f68:31 0d              bnt code_0f77 
  0f6a:7a               push2 
  0f6b:39 24            pushi 24 // $24 cursor
  0f6d:39 20            pushi 20 // $20 state
  0f6f:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0f75:33 65              jmp code_0fdc 

        code_0f77
  0f77:78               push1 
  0f78:74 032f          lofss $12aa // look/eye>
  0f7b:43 25 02         callk Said 2 

  0f7e:31 09              bnt code_0f89 
  0f80:78               push1 
  0f81:74 02e3          lofss $1267 // look/actress,dame
  0f84:43 25 02         callk Said 2 

  0f87:2f 12               bt code_0f9b 

        code_0f89
  0f89:78               push1 
  0f8a:74 0324          lofss $12b1 // look/eye[<actress,dame,painting]
  0f8d:43 25 02         callk Said 2 

  0f90:2f 09               bt code_0f9b 
  0f92:78               push1 
  0f93:74 0308          lofss $129e // look/eye/actress,dame
  0f96:43 25 02         callk Said 2 

  0f99:31 0d              bnt code_0fa8 

        code_0f9b
  0f9b:7a               push2 
  0f9c:39 24            pushi 24 // $24 cursor
  0f9e:39 21            pushi 21 // $21 font
  0fa0:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0fa6:33 34              jmp code_0fdc 

        code_0fa8
  0fa8:39 03            pushi 3 // $3 y
  0faa:7c            pushSelf 
  0fab:8f 01              lsp param1 
  0fad:39 03            pushi 3 // $3 y
  0faf:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  0fb5:2f 12               bt code_0fc9 
  0fb7:78               push1 
  0fb8:74 031e          lofss $12d9 // look/painting
  0fbb:43 25 02         callk Said 2 

  0fbe:2f 09               bt code_0fc9 
  0fc0:78               push1 
  0fc1:74 02ac          lofss $1270 // look/actress,dame/painting
  0fc4:43 25 02         callk Said 2 

  0fc7:31 13              bnt code_0fdc 

        code_0fc9
  0fc9:39 4c            pushi 4c // $4c claimed
  0fcb:78               push1 
  0fcc:78               push1 
  0fcd:87 01              lap param1 
  0fcf:4a 06             send 6 

  0fd1:7a               push2 
  0fd2:39 24            pushi 24 // $24 cursor
  0fd4:39 22            pushi 22 // $22 type
  0fd6:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0fdc
  0fdc:48                 ret 
    )

)

// 1886
(instance Fdoor of Prop
    (properties
        y $74
        x $35
        z $0
        heading $0
        yStep $2
        view $c9
        loop $0
        cel $0
        priority $0
        underBits $0
        signal $4000
        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 $1
        script $0
        cycler $0
        timer $0
    )
    (method (handleEvent) // method_0fdd
  0fdd:39 03            pushi 3 // $3 y
  0fdf:7c            pushSelf 
  0fe0:8f 01              lsp param1 
  0fe2:39 03            pushi 3 // $3 y
  0fe4:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  0fea:31 0f              bnt code_0ffb 
  0fec:39 4c            pushi 4c // $4c claimed
  0fee:78               push1 
  0fef:78               push1 
  0ff0:87 01              lap param1 
  0ff2:4a 06             send 6 

  0ff4:78               push1 
  0ff5:74 0cb0          lofss $1ca8 // door
  0ff8:45 19 02         callb procedure_0019 2 // DoLook 


        code_0ffb
  0ffb:48                 ret 
    )

)

// 18d8
(instance Bdoor of Prop
    (properties
        y $7e
        x $2b
        z $0
        heading $0
        yStep $2
        view $c9
        loop $2
        cel $0
        priority $9
        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 $1
        script $0
        cycler $0
        timer $0
    )
    (method (handleEvent) // method_0ffc
  0ffc:39 03            pushi 3 // $3 y
  0ffe:7c            pushSelf 
  0fff:8f 01              lsp param1 
  1001:39 03            pushi 3 // $3 y
  1003:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  1009:31 0f              bnt code_101a 
  100b:39 4c            pushi 4c // $4c claimed
  100d:78               push1 
  100e:78               push1 
  100f:87 01              lap param1 
  1011:4a 06             send 6 

  1013:78               push1 
  1014:74 0c91          lofss $1ca8 // door
  1017:45 19 02         callb procedure_0019 2 // DoLook 


        code_101a
  101a:48                 ret 
    )

)

// 192a
(instance keys of Prop
    (properties
        y $4b
        x $b3
        z $0
        heading $0
        yStep $2
        view $88
        loop $7
        cel $0
        priority $5
        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
    )
)

// 1978
(instance roll of Prop
    (properties
        y $46
        x $b4
        z $0
        heading $0
        yStep $2
        view $88
        loop $6
        cel $0
        priority $5
        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
    )
)

// 19c6
(instance record of Prop
    (properties
        y $43
        x $62
        z $0
        heading $0
        yStep $2
        view $88
        loop $5
        cel $0
        priority $6
        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
    )
)

// 1a14
(instance crank_ of Prop
    (properties
        y $45
        x $92
        z $0
        heading $0
        yStep $2
        view $88
        loop $2
        cel $5
        priority $5
        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
    )
    (method (handleEvent) // method_101b
  101b:39 03            pushi 3 // $3 y
  101d:7c            pushSelf 
  101e:8f 01              lsp param1 
  1020:39 03            pushi 3 // $3 y
  1022:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  1028:2f 09               bt code_1033 
  102a:78               push1 
  102b:74 025a          lofss $1288 // look/control,fontainier,mecanisme[<winding][/piano]
  102e:43 25 02         callk Said 2 

  1031:31 15              bnt code_1048 

        code_1033
  1033:39 4c            pushi 4c // $4c claimed
  1035:78               push1 
  1036:78               push1 
  1037:87 01              lap param1 
  1039:4a 06             send 6 

  103b:7a               push2 
  103c:39 24            pushi 24 // $24 cursor
  103e:39 23            pushi 23 // $23 window
  1040:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  1046:33 51              jmp code_1099 

        code_1048
  1048:78               push1 
  1049:74 0125          lofss $1171 // (vent[<haut]),control,rotate/piano,control,fontainier,mecanisme[<winding][/piano]
  104c:43 25 02         callk Said 2 

  104f:31 48              bnt code_1099 
  1051:38 00db          pushi db // $db onControl
  1054:78               push1 
  1055:78               push1 
  1056:81 00              lag gEgo 
  1058:4a 06             send 6 

  105a:36                push 
  105b:35 10              ldi 10 
  105d:12                 and 
  105e:31 35              bnt code_1095 
  1060:8b 00              lsl local0 
  1062:35 00              ldi 0 
  1064:1a                 eq? 
  1065:31 21              bnt code_1088 
  1067:8b 01              lsl local1 
  1069:35 00              ldi 0 
  106b:1a                 eq? 
  106c:31 0d              bnt code_107b 
  106e:39 7a            pushi 7a // $7a setScript
  1070:78               push1 
  1071:74 0398          lofss $140c // playPiano
  1074:72 08b9          lofsa $1930 // keys
  1077:4a 06             send 6 

  1079:33 0b              jmp code_1086 

        code_107b
  107b:7a               push2 
  107c:39 24            pushi 24 // $24 cursor
  107e:39 24            pushi 24 // $24 cursor
  1080:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_1086
  1086:33 0b              jmp code_1093 

        code_1088
  1088:7a               push2 
  1089:39 24            pushi 24 // $24 cursor
  108b:39 25            pushi 25 // $25 max
  108d:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_1093
  1093:33 04              jmp code_1099 

        code_1095
  1095:76               push0 
  1096:45 09 00         callb procedure_0009 0 // NotClose 


        code_1099
  1099:48                 ret 
    )

)

// 1a66
(instance lamp1 of Prop
    (properties
        y $2d
        x $77
        z $0
        heading $0
        yStep $2
        view $88
        loop $0
        cel $1
        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
    )
    (method (handleEvent) // method_109a
  109a:39 03            pushi 3 // $3 y
  109c:7c            pushSelf 
  109d:8f 01              lsp param1 
  109f:39 03            pushi 3 // $3 y
  10a1:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  10a7:31 0f              bnt code_10b8 
  10a9:39 4c            pushi 4c // $4c claimed
  10ab:78               push1 
  10ac:78               push1 
  10ad:87 01              lap param1 
  10af:4a 06             send 6 

  10b1:78               push1 
  10b2:74 0c24          lofss $1cd9 // lamp
  10b5:45 19 02         callb procedure_0019 2 // DoLook 


        code_10b8
  10b8:48                 ret 
    )

)

// 1ab8
(instance lamp2 of Prop
    (properties
        y $2d
        x $f9
        z $0
        heading $0
        yStep $2
        view $88
        loop $0
        cel $0
        priority $1
        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
    )
    (method (handleEvent) // method_10b9
  10b9:39 03            pushi 3 // $3 y
  10bb:7c            pushSelf 
  10bc:8f 01              lsp param1 
  10be:39 03            pushi 3 // $3 y
  10c0:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  10c6:31 0f              bnt code_10d7 
  10c8:39 4c            pushi 4c // $4c claimed
  10ca:78               push1 
  10cb:78               push1 
  10cc:87 01              lap param1 
  10ce:4a 06             send 6 

  10d0:78               push1 
  10d1:74 0c05          lofss $1cd9 // lamp
  10d4:45 19 02         callb procedure_0019 2 // DoLook 


        code_10d7
  10d7:48                 ret 
    )

)

// 1b0a
(instance Piano of RFeature
    (properties
        y $0
        x $0
        z $0
        heading $0
        nsTop $34
        nsLeft $98
        nsBottom $4e
        nsRight $d1
    )
    (method (handleEvent) // method_10d8
  10d8:78               push1 
  10d9:74 023b          lofss $1317 // open,(look<dans)>
  10dc:43 25 02         callk Said 2 

  10df:31 2c              bnt code_110d 
  10e1:78               push1 
  10e2:74 00dd          lofss $11c2 // /piano
  10e5:43 25 02         callk Said 2 

  10e8:31 0d              bnt code_10f7 
  10ea:7a               push2 
  10eb:39 24            pushi 24 // $24 cursor
  10ed:39 26            pushi 26 // $26 mark
  10ef:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  10f5:33 14              jmp code_110b 

        code_10f7
  10f7:78               push1 
  10f8:74 00a5          lofss $11a0 // /banc
  10fb:43 25 02         callk Said 2 

  10fe:31 0b              bnt code_110b 
  1100:7a               push2 
  1101:39 24            pushi 24 // $24 cursor
  1103:39 27            pushi 27 // $27 who
  1105:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_110b
  110b:33 41              jmp code_114e 

        code_110d
  110d:39 03            pushi 3 // $3 y
  110f:7c            pushSelf 
  1110:8f 01              lsp param1 
  1112:39 03            pushi 3 // $3 y
  1114:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  111a:2f 09               bt code_1125 
  111c:78               push1 
  111d:74 01bf          lofss $12df // look/piano
  1120:43 25 02         callk Said 2 

  1123:31 15              bnt code_113a 

        code_1125
  1125:39 4c            pushi 4c // $4c claimed
  1127:78               push1 
  1128:78               push1 
  1129:87 01              lap param1 
  112b:4a 06             send 6 

  112d:7a               push2 
  112e:39 24            pushi 24 // $24 cursor
  1130:39 28            pushi 28 // $28 message
  1132:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  1138:33 14              jmp code_114e 

        code_113a
  113a:78               push1 
  113b:74 022a          lofss $1368 // jouer/piano
  113e:43 25 02         callk Said 2 

  1141:31 0b              bnt code_114e 
  1143:7a               push2 
  1144:39 24            pushi 24 // $24 cursor
  1146:39 29            pushi 29 // $29 edit
  1148:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_114e
  114e:48                 ret 
  114f:00                bnot 
    )

)

// 1b36
(instance panel of Act
    (properties
        y $53
        x $0
        z $0
        heading $0
        yStep $2
        view $88
        loop $2
        cel $6
        priority $3
        underBits $0
        signal $1810
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
        lsTop $0
        lsLeft $0
        lsBottom $0
        lsRight $0
        brTop $0
        brLeft $0
        brBottom $0
        brRight $0
        cycleSpeed $0
        script $0
        cycler $0
        timer $0
        illegalBits $0
        xLast $0
        yLast $0
        xStep $3
        moveSpeed $0
        blocks $0
        baseSetter $0
        mover $0
        looper $0
        viewer $0
        avoider $0
    )
)

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

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

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

// 1c18
(instance windMusic of Sound
    (properties
        state $0
        number $27
        priority $0
        loop $1
        handle $0
        signal $0
        prevSignal $0
        client $0
        owner $0
    )
)



