(script 33)

(string
    string_1470 "Case1"
    string_1476 "Case2"
    string_147c "Clock"
    string_1482 "CloseClock"
    string_148d "CloseMirror"
    string_1499 "Mirror"
    string_14a0 "MoveClock"
    string_14aa "PushMirror"
    string_14b5 "Room33"
    string_14bc "ShowTime"
    string_14c5 "clockFace"
    string_14cf "door"
    string_14d4 "hourHand"
    string_14dd "lDoor"
    string_14e3 "lamp"
    string_14e8 "lampL"
    string_14ee "lampR"
    string_14f4 "minuteHand"
    string_14ff "mirrorImage"
    string_150b "myDoor"
    string_1512 "mySound"
    string_151a "phone"
    string_1520 "rDoor"
    string_1526 "table"
)

(said
    said_0dc2 (look<(dans,dans))/miroir
    said_0dd2 (appuyer,attirer)[<open,on]/miroir
    said_0de5 (attirer,appuyer)[<open,on]/clock
    said_0df8 /dirt
    said_0dfc /door
    said_0e00 /door<avant
    said_0e07 /door<cachoterie
    said_0e0e /pendulum
    said_0e12 /reflection[/miroir]
    said_0e1b <bas
    said_0e1f [<around,at][/room]
    said_0e2d break/miroir
    said_0e33 clore/clock,miroir
    said_0e3c ecouter/clock
    said_0e42 look/archway
    said_0e48 look/armoire
    said_0e4e look/curtain<lamp
    said_0e57 look<behind/clock
    said_0e60 look<behind/miroir
    said_0e69 look>
    said_0e6d look[<at]/miroir
    said_0e78 bouger/armoire
    said_0e7e bouger/clock
    said_0e84 open,(look<(dans,dans,dans))/clock
    said_0e9a open,(look<dans)/armoire
    said_0ea8 open,(look<dans)/drawer
    said_0eb6 open/miroir
    said_0ebc etudier,look[<at]/clock,temps
    said_0ecd rotate,bouger/miroir
    said_0ed6 debloquer/armoire
)

(synonym
    room = hall | hallway
    armoire | cabinet | cupboard | hutch | wardrobe = armoire | cabinet | cupboard | hutch | wardrobe
    armoire | cabinet | cupboard | hutch | wardrobe = closet | placard
)

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

// 0ee2
(instance public Room33 of Rm
    (properties
        script $0
        number $0
        timer $0
        keep $0
        initialized $0
        picture $21
        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_0044
  0044:35 5f              ldi 5f 
  0046:65 16             aTop horizon 
  0048:35 04              ldi 4 
  004a:65 1a             aTop north 
  004c:35 25              ldi 25 
  004e:65 1e             aTop south 
  0050:39 57            pushi 57 // $57 init
  0052:76               push0 
  0053:57 37 04         super Rm 4 

  0056:39 03            pushi 3 // $3 y
  0058:38 0080          pushi 80 // $80 timeLeft
  005b:39 21            pushi 21 // $21 font
  005d:39 67            pushi 67 // $67 first
  005f:45 15 06         callb procedure_0015 6 // LoadMany 

  0062:39 05            pushi 5 // $5 view
  0064:38 0084          pushi 84 // $84 stop
  0067:39 2b            pushi 2b // $2b number
  0069:39 2c            pushi 2c // $2c handle
  006b:39 47            pushi 47 // $47 wordFail
  006d:39 48            pushi 48 // $48 syntaxFail
  006f:45 15 0a         callb procedure_0015 a // LoadMany 

  0072:39 57            pushi 57 // $57 init
  0074:76               push0 
  0075:38 0089          pushi 89 // $89 hide
  0078:76               push0 
  0079:72 1282          lofsa $12fe // clockFace
  007c:4a 08             send 8 

  007e:39 57            pushi 57 // $57 init
  0080:76               push0 
  0081:38 0089          pushi 89 // $89 hide
  0084:76               push0 
  0085:72 12c4          lofsa $134c // hourHand
  0088:4a 08             send 8 

  008a:39 57            pushi 57 // $57 init
  008c:76               push0 
  008d:38 0089          pushi 89 // $89 hide
  0090:76               push0 
  0091:72 1306          lofsa $139a // minuteHand
  0094:4a 08             send 8 

  0096:80 00df            lag gDetailLevel 
  0099:31 35              bnt code_00d0 
  009b:39 42            pushi 42 // $42 setPri
  009d:78               push1 
  009e:39 0c            pushi c // $c nsRight
  00a0:39 57            pushi 57 // $57 init
  00a2:76               push0 
  00a3:72 10c2          lofsa $1168 // mirrorImage
  00a6:4a 0a             send a 

  00a8:39 42            pushi 42 // $42 setPri
  00aa:78               push1 
  00ab:39 04            pushi 4 // $4 x
  00ad:39 7e            pushi 7e // $7e setCycle
  00af:78               push1 
  00b0:51 16            class Fwd 
  00b2:36                push 
  00b3:39 57            pushi 57 // $57 init
  00b5:76               push0 
  00b6:72 11a1          lofsa $125a // lampL
  00b9:4a 10             send 10 

  00bb:39 42            pushi 42 // $42 setPri
  00bd:78               push1 
  00be:39 04            pushi 4 // $4 x
  00c0:39 7e            pushi 7e // $7e setCycle
  00c2:78               push1 
  00c3:51 16            class Fwd 
  00c5:36                push 
  00c6:39 57            pushi 57 // $57 init
  00c8:76               push0 
  00c9:72 11e0          lofsa $12ac // lampR
  00cc:4a 10             send 10 

  00ce:33 12              jmp code_00e2 

        code_00d0
  00d0:38 00cb          pushi cb // $cb addToPic
  00d3:76               push0 
  00d4:72 1183          lofsa $125a // lampL
  00d7:4a 04             send 4 

  00d9:38 00cb          pushi cb // $cb addToPic
  00dc:76               push0 
  00dd:72 11cc          lofsa $12ac // lampR
  00e0:4a 04             send 4 


        code_00e2
  00e2:39 61            pushi 61 // $61 add
  00e4:7a               push2 
  00e5:74 0f70          lofss $1058 // lamp
  00e8:74 0fa3          lofss $108e // phone
  00eb:39 62            pushi 62 // $62 eachElementDo
  00ed:78               push1 
  00ee:39 57            pushi 57 // $57 init
  00f0:39 3c            pushi 3c // $3c doit
  00f2:76               push0 
  00f3:81 0a              lag gAddToPics 
  00f5:4a 12             send 12 

  00f7:78               push1 
  00f8:39 29            pushi 29 // $29 edit
  00fa:45 07 02         callb procedure_0007 2 // IsFlag 

  00fd:18                 not 
  00fe:2f 12               bt code_0112 
  0100:78               push1 
  0101:39 2a            pushi 2a // $2a play
  0103:45 07 02         callb procedure_0007 2 // IsFlag 

  0106:18                 not 
  0107:2f 09               bt code_0112 
  0109:78               push1 
  010a:39 2b            pushi 2b // $2b number
  010c:45 07 02         callb procedure_0007 2 // IsFlag 

  010f:18                 not 
  0110:31 20              bnt code_0132 

        code_0112
  0112:88 00a5            lsg gAct 
  0115:35 00              ldi 0 
  0117:1e                 gt? 
  0118:31 18              bnt code_0132 
  011a:35 01              ldi 1 
  011c:a3 04              sal local4 
  011e:7a               push2 
  011f:38 0080          pushi 80 // $80 timeLeft
  0122:38 039d          pushi 39d // $39d sel_925
  0125:43 00 04         callk Load 4 

  0128:7a               push2 
  0129:38 008f          pushi 8f // $8f moveTo
  012c:38 019c          pushi 19c // $19c sel_412
  012f:45 15 04         callb procedure_0015 4 // LoadMany 


        code_0132
  0132:38 00c6          pushi c6 // $c6 stopUpd
  0135:76               push0 
  0136:38 00c9          pushi c9 // $c9 ignoreActors
  0139:78               push1 
  013a:78               push1 
  013b:39 57            pushi 57 // $57 init
  013d:76               push0 
  013e:72 0f83          lofsa $10c4 // Clock
  0141:4a 0e             send e 

  0143:88 00a5            lsg gAct 
  0146:35 02              ldi 2 
  0148:1a                 eq? 
  0149:31 2e              bnt code_0179 
  014b:88 008f            lsg global143 
  014e:35 00              ldi 0 
  0150:1a                 eq? 
  0151:31 26              bnt code_0179 
  0153:88 0090            lsg global144 
  0156:35 00              ldi 0 
  0158:1a                 eq? 
  0159:31 1e              bnt code_0179 
  015b:88 008b            lsg global139 
  015e:35 00              ldi 0 
  0160:1a                 eq? 
  0161:31 16              bnt code_0179 
  0163:88 008c            lsg global140 
  0166:35 00              ldi 0 
  0168:1a                 eq? 
  0169:31 0e              bnt code_0179 
  016b:39 07            pushi 7 // $7 cel
  016d:78               push1 
  016e:78               push1 
  016f:38 00c9          pushi c9 // $c9 ignoreActors
  0172:78               push1 
  0173:76               push0 
  0174:72 0f4d          lofsa $10c4 // Clock
  0177:4a 0c             send c 


        code_0179
  0179:80 00b7            lag gConMusic 
  017c:a3 03              sal local3 
  017e:89 0c              lsg gPrevRoomNum 
  0180:35 21              ldi 21 
  0182:1c                 ne? 
  0183:31 11              bnt code_0196 
  0185:39 2b            pushi 2b // $2b number
  0187:78               push1 
  0188:39 1c            pushi 1c // $1c color
  018a:39 06            pushi 6 // $6 loop
  018c:78               push1 
  018d:39 ff            pushi ff // $ff checkAni
  018f:39 2a            pushi 2a // $2a play
  0191:76               push0 
  0192:83 03              lal local3 
  0194:4a 10             send 10 


        code_0196
  0196:38 00c6          pushi c6 // $c6 stopUpd
  0199:76               push0 
  019a:38 00c9          pushi c9 // $c9 ignoreActors
  019d:78               push1 
  019e:78               push1 
  019f:39 57            pushi 57 // $57 init
  01a1:76               push0 
  01a2:72 0f71          lofsa $1116 // Mirror
  01a5:4a 0e             send e 

  01a7:39 07            pushi 7 // $7 cel
  01a9:78               push1 
  01aa:89 0c              lsg gPrevRoomNum 
  01ac:35 04              ldi 4 
  01ae:1a                 eq? 
  01af:31 04              bnt code_01b5 
  01b1:35 02              ldi 2 
  01b3:33 02              jmp code_01b7 

        code_01b5
  01b5:35 00              ldi 0 

        code_01b7
  01b7:36                push 
  01b8:39 57            pushi 57 // $57 init
  01ba:76               push0 
  01bb:38 00c6          pushi c6 // $c6 stopUpd
  01be:76               push0 
  01bf:72 0ff4          lofsa $11b6 // rDoor
  01c2:4a 0e             send e 

  01c4:39 07            pushi 7 // $7 cel
  01c6:78               push1 
  01c7:89 0c              lsg gPrevRoomNum 
  01c9:35 04              ldi 4 
  01cb:1a                 eq? 
  01cc:31 04              bnt code_01d2 
  01ce:35 02              ldi 2 
  01d0:33 02              jmp code_01d4 

        code_01d2
  01d2:35 00              ldi 0 

        code_01d4
  01d4:36                push 
  01d5:38 00c6          pushi c6 // $c6 stopUpd
  01d8:76               push0 
  01d9:39 57            pushi 57 // $57 init
  01db:76               push0 
  01dc:72 1029          lofsa $1208 // lDoor
  01df:4a 0e             send e 

  01e1:38 010b          pushi 10b // $10b setFeatures
  01e4:39 04            pushi 4 // $4 x
  01e6:74 0ea5          lofss $108e // phone
  01e9:74 0e6c          lofss $1058 // lamp
  01ec:74 1225          lofss $1414 // Case2
  01ef:74 11f6          lofss $13e8 // Case1
  01f2:54 0c             self c 

  01f4:39 05            pushi 5 // $5 view
  01f6:78               push1 
  01f7:76               push0 
  01f8:39 12            pushi 12 // $12 illegalBits
  01fa:78               push1 
  01fb:38 8006          pushi 8006 // $8006 sel_32774
  01fe:39 57            pushi 57 // $57 init
  0200:76               push0 
  0201:81 00              lag gEgo 
  0203:4a 10             send 10 

  0205:89 0c              lsg gPrevRoomNum 
  0207:3c                 dup 
  0208:35 04              ldi 4 
  020a:1a                 eq? 
  020b:31 3f              bnt code_024c 
  020d:39 7e            pushi 7e // $7e setCycle
  020f:78               push1 
  0210:51 1b            class Beg 
  0212:36                push 
  0213:72 0fa0          lofsa $11b6 // rDoor
  0216:4a 06             send 6 

  0218:39 7e            pushi 7e // $7e setCycle
  021a:78               push1 
  021b:51 1b            class Beg 
  021d:36                push 
  021e:72 0fe7          lofsa $1208 // lDoor
  0221:4a 06             send 6 

  0223:38 00c5          pushi c5 // $c5 posn
  0226:7a               push2 
  0227:38 009f          pushi 9f // $9f nextCel
  022a:39 6e            pushi 6e // $6e indexOf
  022c:38 00d3          pushi d3 // $d3 setMotion
  022f:39 03            pushi 3 // $3 y
  0231:51 1d            class MoveTo 
  0233:36                push 
  0234:38 009f          pushi 9f // $9f nextCel
  0237:39 76            pushi 76 // $76 script
  0239:81 00              lag gEgo 
  023b:4a 12             send 12 

  023d:39 06            pushi 6 // $6 loop
  023f:78               push1 
  0240:78               push1 
  0241:39 2a            pushi 2a // $2a play
  0243:76               push0 
  0244:72 11f9          lofsa $1440 // mySound
  0247:4a 0a             send a 

  0249:32 0099            jmp code_02e5 

        code_024c
  024c:3c                 dup 
  024d:35 20              ldi 20 
  024f:1a                 eq? 
  0250:31 10              bnt code_0262 
  0252:38 00c5          pushi c5 // $c5 posn
  0255:7a               push2 
  0256:39 44            pushi 44 // $44 next
  0258:38 0087          pushi 87 // $87 clean
  025b:81 00              lag gEgo 
  025d:4a 08             send 8 

  025f:32 0083            jmp code_02e5 

        code_0262
  0262:3c                 dup 
  0263:35 22              ldi 22 
  0265:1a                 eq? 
  0266:31 15              bnt code_027d 
  0268:39 42            pushi 42 // $42 setPri
  026a:78               push1 
  026b:39 ff            pushi ff // $ff checkAni
  026d:38 00c5          pushi c5 // $c5 posn
  0270:7a               push2 
  0271:38 00fe          pushi fe // $fe setCursor
  0274:38 0088          pushi 88 // $88 fade
  0277:81 00              lag gEgo 
  0279:4a 0e             send e 

  027b:33 68              jmp code_02e5 

        code_027d
  027d:3c                 dup 
  027e:35 31              ldi 31 
  0280:1a                 eq? 
  0281:31 2e              bnt code_02b1 
  0283:38 00d7          pushi d7 // $d7 ignoreControl
  0286:78               push1 
  0287:7a               push2 
  0288:38 00c5          pushi c5 // $c5 posn
  028b:7a               push2 
  028c:39 34            pushi 34 // $34 b-xAxis
  028e:38 00a5          pushi a5 // $a5 cycler
  0291:81 00              lag gEgo 
  0293:4a 0e             send e 

  0295:39 07            pushi 7 // $7 cel
  0297:78               push1 
  0298:78               push1 
  0299:74 0e28          lofss $10c4 // Clock
  029c:43 0e 02         callk NumCels 2 

  029f:36                push 
  02a0:35 01              ldi 1 
  02a2:04                 sub 
  02a3:36                push 
  02a4:39 7a            pushi 7a // $7a setScript
  02a6:78               push1 
  02a7:74 0cbe          lofss $0f68 // CloseClock
  02aa:72 0e17          lofsa $10c4 // Clock
  02ad:4a 0c             send c 

  02af:33 34              jmp code_02e5 

        code_02b1
  02b1:3c                 dup 
  02b2:35 32              ldi 32 
  02b4:1a                 eq? 
  02b5:31 2e              bnt code_02e5 
  02b7:38 00c5          pushi c5 // $c5 posn
  02ba:7a               push2 
  02bb:38 010a          pushi 10a // $10a setRegions
  02be:38 009f          pushi 9f // $9f nextCel
  02c1:38 00d7          pushi d7 // $d7 ignoreControl
  02c4:78               push1 
  02c5:39 04            pushi 4 // $4 x
  02c7:81 00              lag gEgo 
  02c9:4a 0e             send e 

  02cb:39 07            pushi 7 // $7 cel
  02cd:78               push1 
  02ce:78               push1 
  02cf:74 0e44          lofss $1116 // Mirror
  02d2:43 0e 02         callk NumCels 2 

  02d5:36                push 
  02d6:35 01              ldi 1 
  02d8:04                 sub 
  02d9:36                push 
  02da:39 7a            pushi 7a // $7a setScript
  02dc:78               push1 
  02dd:74 0ce8          lofss $0fc8 // CloseMirror
  02e0:72 0e33          lofsa $1116 // Mirror
  02e3:4a 0c             send c 


        code_02e5
  02e5:3a                toss 
  02e6:48                 ret 
    )

    (method (doit) // method_02e7
  02e7:76               push0 
  02e8:45 14 00         callb procedure_0014 0 // IsFirstTimeInRoom 

  02eb:31 0a              bnt code_02f7 
  02ed:7a               push2 
  02ee:39 21            pushi 21 // $21 font
  02f0:78               push1 
  02f1:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_02f7
  02f7:83 04              lal local4 
  02f9:31 16              bnt code_0311 
  02fb:76               push0 
  02fc:45 03 00         callb procedure_0003 0 // HandsOff 

  02ff:35 00              ldi 0 
  0301:a3 04              sal local4 
  0303:39 7a            pushi 7a // $7a setScript
  0305:78               push1 
  0306:7a               push2 
  0307:38 019c          pushi 19c // $19c sel_412
  030a:76               push0 
  030b:43 02 04         callk ScriptID 4 

  030e:36                push 
  030f:54 06             self 6 


        code_0311
  0311:38 00db          pushi db // $db onControl
  0314:78               push1 
  0315:78               push1 
  0316:81 00              lag gEgo 
  0318:4a 06             send 6 

  031a:36                push 
  031b:35 20              ldi 20 
  031d:12                 and 
  031e:31 22              bnt code_0342 
  0320:83 01              lal local1 
  0322:18                 not 
  0323:31 1d              bnt code_0342 
  0325:39 06            pushi 6 // $6 loop
  0327:76               push0 
  0328:81 00              lag gEgo 
  032a:4a 04             send 4 

  032c:36                push 
  032d:35 03              ldi 3 
  032f:1a                 eq? 
  0330:31 10              bnt code_0342 
  0332:76               push0 
  0333:45 03 00         callb procedure_0003 0 // HandsOff 

  0336:35 01              ldi 1 
  0338:a3 01              sal local1 
  033a:39 7a            pushi 7a // $7a setScript
  033c:78               push1 
  033d:74 0cb8          lofss $0ff8 // myDoor
  0340:54 06             self 6 


        code_0342
  0342:38 00db          pushi db // $db onControl
  0345:78               push1 
  0346:78               push1 
  0347:81 00              lag gEgo 
  0349:4a 06             send 6 

  034b:36                push 
  034c:3c                 dup 
  034d:35 10              ldi 10 
  034f:1a                 eq? 
  0350:31 0c              bnt code_035e 
  0352:38 00f8          pushi f8 // $f8 newRoom
  0355:78               push1 
  0356:39 20            pushi 20 // $20 state
  0358:81 02              lag gCurRoom 
  035a:4a 06             send 6 

  035c:33 10              jmp code_036e 

        code_035e
  035e:3c                 dup 
  035f:35 08              ldi 8 
  0361:1a                 eq? 
  0362:31 0a              bnt code_036e 
  0364:38 00f8          pushi f8 // $f8 newRoom
  0367:78               push1 
  0368:39 22            pushi 22 // $22 type
  036a:81 02              lag gCurRoom 
  036c:4a 06             send 6 


        code_036e
  036e:3a                toss 
  036f:39 04            pushi 4 // $4 x
  0371:76               push0 
  0372:81 00              lag gEgo 
  0374:4a 04             send 4 

  0376:36                push 
  0377:34 0082            ldi 82 
  037a:22                 lt? 
  037b:31 06              bnt code_0383 
  037d:35 14              ldi 14 
  037f:65 2a             aTop vertAngle 
  0381:33 19              jmp code_039c 

        code_0383
  0383:39 04            pushi 4 // $4 x
  0385:76               push0 
  0386:81 00              lag gEgo 
  0388:4a 04             send 4 

  038a:36                push 
  038b:34 00be            ldi be 
  038e:22                 lt? 
  038f:31 06              bnt code_0397 
  0391:35 00              ldi 0 
  0393:65 2a             aTop vertAngle 
  0395:33 05              jmp code_039c 

        code_0397
  0397:34 00a0            ldi a0 
  039a:65 2a             aTop vertAngle 

        code_039c
  039c:89 0c              lsg gPrevRoomNum 
  039e:35 04              ldi 4 
  03a0:1a                 eq? 
  03a1:31 37              bnt code_03da 
  03a3:39 07            pushi 7 // $7 cel
  03a5:76               push0 
  03a6:72 0e5f          lofsa $1208 // lDoor
  03a9:4a 04             send 4 

  03ab:36                push 
  03ac:35 00              ldi 0 
  03ae:1a                 eq? 
  03af:31 29              bnt code_03da 
  03b1:39 07            pushi 7 // $7 cel
  03b3:76               push0 
  03b4:72 0dff          lofsa $11b6 // rDoor
  03b7:4a 04             send 4 

  03b9:36                push 
  03ba:35 00              ldi 0 
  03bc:1a                 eq? 
  03bd:31 1b              bnt code_03da 
  03bf:83 02              lal local2 
  03c1:18                 not 
  03c2:31 16              bnt code_03da 
  03c4:35 01              ldi 1 
  03c6:a3 02              sal local2 
  03c8:38 00c6          pushi c6 // $c6 stopUpd
  03cb:76               push0 
  03cc:72 0e39          lofsa $1208 // lDoor
  03cf:4a 04             send 4 

  03d1:38 00c6          pushi c6 // $c6 stopUpd
  03d4:76               push0 
  03d5:72 0dde          lofsa $11b6 // rDoor
  03d8:4a 04             send 4 


        code_03da
  03da:39 03            pushi 3 // $3 y
  03dc:76               push0 
  03dd:81 00              lag gEgo 
  03df:4a 04             send 4 

  03e1:36                push 
  03e2:34 0095            ldi 95 
  03e5:1e                 gt? 
  03e6:31 2b              bnt code_0413 
  03e8:39 03            pushi 3 // $3 y
  03ea:76               push0 
  03eb:81 00              lag gEgo 
  03ed:4a 04             send 4 

  03ef:36                push 
  03f0:34 00a1            ldi a1 
  03f3:22                 lt? 
  03f4:31 1d              bnt code_0413 
  03f6:39 06            pushi 6 // $6 loop
  03f8:78               push1 
  03f9:39 06            pushi 6 // $6 loop
  03fb:39 07            pushi 7 // $7 cel
  03fd:78               push1 
  03fe:38 00a0          pushi a0 // $a0 cycleDone
  0401:39 03            pushi 3 // $3 y
  0403:76               push0 
  0404:81 00              lag gEgo 
  0406:4a 04             send 4 

  0408:04                 sub 
  0409:36                push 
  040a:38 00c7          pushi c7 // $c7 forceUpd
  040d:76               push0 
  040e:72 0d57          lofsa $1168 // mirrorImage
  0411:4a 10             send 10 


        code_0413
  0413:39 3c            pushi 3c // $3c doit
  0415:76               push0 
  0416:57 37 04         super Rm 4 

  0419:48                 ret 
    )

    (method (dispose) // method_041a
  041a:78               push1 
  041b:38 00c8          pushi c8 // $c8 setLoop
  041e:43 03 02         callk DisposeScript 2 

  0421:78               push1 
  0422:38 03d9          pushi 3d9 // $3d9 sel_985
  0425:43 03 02         callk DisposeScript 2 

  0428:39 58            pushi 58 // $58 dispose
  042a:76               push0 
  042b:57 37 04         super Rm 4 

  042e:48                 ret 
    )

    (method (newRoom) // method_042f
  042f:8b 03              lsl local3 
  0431:80 00b7            lag gConMusic 
  0434:1a                 eq? 
  0435:31 0f              bnt code_0446 
  0437:8f 01              lsp param1 
  0439:35 25              ldi 25 
  043b:1c                 ne? 
  043c:31 08              bnt code_0446 
  043e:38 0084          pushi 84 // $84 stop
  0441:76               push0 
  0442:83 03              lal local3 
  0444:4a 04             send 4 


        code_0446
  0446:38 00f8          pushi f8 // $f8 newRoom
  0449:78               push1 
  044a:8f 01              lsp param1 
  044c:57 37 06         super Rm 6 

  044f:48                 ret 
    )

    (method (handleEvent) // method_0450
  0450:3f 01             link 1 // (var $1)
  0452:39 4c            pushi 4c // $4c claimed
  0454:76               push0 
  0455:87 01              lap param1 
  0457:4a 04             send 4 

  0459:31 03              bnt code_045e 
  045b:35 01              ldi 1 
  045d:48                 ret 

        code_045e
  045e:39 22            pushi 22 // $22 type
  0460:76               push0 
  0461:87 01              lap param1 
  0463:4a 04             send 4 

  0465:36                push 
  0466:34 0080            ldi 80 
  0469:1a                 eq? 
  046a:30 014f            bnt code_05bc 
  046d:78               push1 
  046e:74 09f8          lofss $0e69 // look>
  0471:43 25 02         callk Said 2 

  0474:30 009d            bnt code_0514 
  0477:78               push1 
  0478:74 09a4          lofss $0e1f // [<around,at][/room]
  047b:43 25 02         callk Said 2 

  047e:31 0d              bnt code_048d 
  0480:7a               push2 
  0481:39 21            pushi 21 // $21 font
  0483:78               push1 
  0484:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  048a:32 0084            jmp code_0511 

        code_048d
  048d:78               push1 
  048e:74 0976          lofss $0e07 // /door<cachoterie
  0491:43 25 02         callk Said 2 

  0494:31 0c              bnt code_04a2 
  0496:7a               push2 
  0497:39 21            pushi 21 // $21 font
  0499:7a               push2 
  049a:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  04a0:33 6f              jmp code_0511 

        code_04a2
  04a2:78               push1 
  04a3:74 095a          lofss $0e00 // /door<avant
  04a6:43 25 02         callk Said 2 

  04a9:31 0d              bnt code_04b8 
  04ab:7a               push2 
  04ac:39 21            pushi 21 // $21 font
  04ae:39 03            pushi 3 // $3 y
  04b0:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  04b6:33 59              jmp code_0511 

        code_04b8
  04b8:78               push1 
  04b9:74 0956          lofss $0e12 // /reflection[/miroir]
  04bc:43 25 02         callk Said 2 

  04bf:31 07              bnt code_04c8 
  04c1:76               push0 
  04c2:40 fb58 00        call proc_001e 0 

  04c6:33 49              jmp code_0511 

        code_04c8
  04c8:78               push1 
  04c9:74 0930          lofss $0dfc // /door
  04cc:43 25 02         callk Said 2 

  04cf:31 0d              bnt code_04de 
  04d1:7a               push2 
  04d2:39 21            pushi 21 // $21 font
  04d4:39 04            pushi 4 // $4 x
  04d6:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  04dc:33 33              jmp code_0511 

        code_04de
  04de:78               push1 
  04df:74 092c          lofss $0e0e // /pendulum
  04e2:43 25 02         callk Said 2 

  04e5:31 0d              bnt code_04f4 
  04e7:7a               push2 
  04e8:39 21            pushi 21 // $21 font
  04ea:39 05            pushi 5 // $5 view
  04ec:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  04f2:33 1d              jmp code_0511 

        code_04f4
  04f4:78               push1 
  04f5:74 0900          lofss $0df8 // /dirt
  04f8:43 25 02         callk Said 2 

  04fb:2f 09               bt code_0506 
  04fd:78               push1 
  04fe:74 091a          lofss $0e1b // <bas
  0501:43 25 02         callk Said 2 

  0504:31 0b              bnt code_0511 

        code_0506
  0506:7a               push2 
  0507:39 21            pushi 21 // $21 font
  0509:39 06            pushi 6 // $6 loop
  050b:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0511
  0511:32 00a8            jmp code_05bc 

        code_0514
  0514:78               push1 
  0515:74 0966          lofss $0e7e // bouger/clock
  0518:43 25 02         callk Said 2 

  051b:2f 09               bt code_0526 
  051d:78               push1 
  051e:74 08c4          lofss $0de5 // (attirer,appuyer)[<open,on]/clock
  0521:43 25 02         callk Said 2 

  0524:31 0f              bnt code_0535 

        code_0526
  0526:76               push0 
  0527:45 03 00         callb procedure_0003 0 // HandsOff 

  052a:39 7a            pushi 7a // $7a setScript
  052c:78               push1 
  052d:74 0a08          lofss $0f38 // MoveClock
  0530:54 06             self 6 

  0532:32 0087            jmp code_05bc 

        code_0535
  0535:78               push1 
  0536:74 08fa          lofss $0e33 // clore/clock,miroir
  0539:43 25 02         callk Said 2 

  053c:31 06              bnt code_0544 
  053e:76               push0 
  053f:45 11 00         callb procedure_0011 0 // AlreadyClosed 

  0542:33 78              jmp code_05bc 

        code_0544
  0544:78               push1 
  0545:74 0985          lofss $0ecd // rotate,bouger/miroir
  0548:43 25 02         callk Said 2 

  054b:2f 09               bt code_0556 
  054d:78               push1 
  054e:74 0881          lofss $0dd2 // (appuyer,attirer)[<open,on]/miroir
  0551:43 25 02         callk Said 2 

  0554:31 0e              bnt code_0564 

        code_0556
  0556:76               push0 
  0557:45 03 00         callb procedure_0003 0 // HandsOff 

  055a:39 7a            pushi 7a // $7a setScript
  055c:78               push1 
  055d:74 0a38          lofss $0f98 // PushMirror
  0560:54 06             self 6 

  0562:33 58              jmp code_05bc 

        code_0564
  0564:78               push1 
  0565:74 096e          lofss $0ed6 // debloquer/armoire
  0568:43 25 02         callk Said 2 

  056b:31 3b              bnt code_05a8 
  056d:38 00da          pushi da // $da inRect
  0570:39 04            pushi 4 // $4 x
  0572:39 48            pushi 48 // $48 syntaxFail
  0574:39 6a            pushi 6a // $6a prev
  0576:39 6f            pushi 6f // $6f handleEvent
  0578:39 79            pushi 79 // $79 cue
  057a:81 00              lag gEgo 
  057c:4a 0c             send c 

  057e:2f 15               bt code_0595 
  0580:38 00da          pushi da // $da inRect
  0583:39 04            pushi 4 // $4 x
  0585:38 00cf          pushi cf // $cf blocks
  0588:39 6a            pushi 6a // $6a prev
  058a:38 00fc          pushi fc // $fc showMem
  058d:39 79            pushi 79 // $79 cue
  058f:81 00              lag gEgo 
  0591:4a 0c             send c 

  0593:31 0d              bnt code_05a2 

        code_0595
  0595:7a               push2 
  0596:39 21            pushi 21 // $21 font
  0598:39 07            pushi 7 // $7 cel
  059a:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  05a0:33 04              jmp code_05a6 

        code_05a2
  05a2:76               push0 
  05a3:45 09 00         callb procedure_0009 0 // NotClose 


        code_05a6
  05a6:33 14              jmp code_05bc 

        code_05a8
  05a8:78               push1 
  05a9:74 0881          lofss $0e2d // break/miroir
  05ac:43 25 02         callk Said 2 

  05af:31 0b              bnt code_05bc 
  05b1:7a               push2 
  05b2:39 21            pushi 21 // $21 font
  05b4:39 08            pushi 8 // $8 underBits
  05b6:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_05bc
  05bc:48                 ret 
    )

)

// 0f32
(instance MoveClock 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_05bd
  05bd:87 01              lap param1 
  05bf:65 0a             aTop state 
  05c1:36                push 
  05c2:3c                 dup 
  05c3:35 00              ldi 0 
  05c5:1a                 eq? 
  05c6:31 27              bnt code_05ef 
  05c8:38 00d6          pushi d6 // $d6 observeControl
  05cb:78               push1 
  05cc:39 10            pushi 10 // $10 lsRight
  05ce:38 00d4          pushi d4 // $d4 setAvoider
  05d1:78               push1 
  05d2:39 56            pushi 56 // $56 new
  05d4:76               push0 
  05d5:51 21            class Avoid 
  05d7:4a 04             send 4 

  05d9:36                push 
  05da:38 00d3          pushi d3 // $d3 setMotion
  05dd:39 04            pushi 4 // $4 x
  05df:51 1d            class MoveTo 
  05e1:36                push 
  05e2:39 55            pushi 55 // $55 z
  05e4:38 00a5          pushi a5 // $a5 cycler
  05e7:7c            pushSelf 
  05e8:81 00              lag gEgo 
  05ea:4a 18             send 18 

  05ec:32 009a            jmp code_0689 

        code_05ef
  05ef:3c                 dup 
  05f0:35 01              ldi 1 
  05f2:1a                 eq? 
  05f3:31 32              bnt code_0627 
  05f5:39 06            pushi 6 // $6 loop
  05f7:78               push1 
  05f8:78               push1 
  05f9:38 00d7          pushi d7 // $d7 ignoreControl
  05fc:78               push1 
  05fd:7a               push2 
  05fe:81 00              lag gEgo 
  0600:4a 0c             send c 

  0602:38 00a4          pushi a4 // $a4 cycleSpeed
  0605:78               push1 
  0606:39 03            pushi 3 // $3 y
  0608:39 7e            pushi 7e // $7e setCycle
  060a:7a               push2 
  060b:51 1a            class End 
  060d:36                push 
  060e:7c            pushSelf 
  060f:72 0ab2          lofsa $10c4 // Clock
  0612:4a 0e             send e 

  0614:39 2b            pushi 2b // $2b number
  0616:78               push1 
  0617:39 47            pushi 47 // $47 wordFail
  0619:39 06            pushi 6 // $6 loop
  061b:78               push1 
  061c:78               push1 
  061d:39 2a            pushi 2a // $2a play
  061f:76               push0 
  0620:72 0e1d          lofsa $1440 // mySound
  0623:4a 10             send 10 

  0625:33 62              jmp code_0689 

        code_0627
  0627:3c                 dup 
  0628:35 02              ldi 2 
  062a:1a                 eq? 
  062b:31 37              bnt code_0664 
  062d:88 008b            lsg global139 
  0630:35 00              ldi 0 
  0632:1a                 eq? 
  0633:31 12              bnt code_0647 
  0635:39 05            pushi 5 // $5 view
  0637:39 21            pushi 21 // $21 font
  0639:39 09            pushi 9 // $9 nsTop
  063b:39 43            pushi 43 // $43 at
  063d:39 4c            pushi 4c // $4c claimed
  063f:39 28            pushi 28 // $28 message
  0641:46 00ff 0000 0a  calle ff procedure_0000 a // Print 


        code_0647
  0647:38 00c6          pushi c6 // $c6 stopUpd
  064a:76               push0 
  064b:72 0a76          lofsa $10c4 // Clock
  064e:4a 04             send 4 

  0650:38 00d3          pushi d3 // $d3 setMotion
  0653:39 04            pushi 4 // $4 x
  0655:51 1d            class MoveTo 
  0657:36                push 
  0658:39 2e            pushi 2e // $2e dx
  065a:38 00a5          pushi a5 // $a5 cycler
  065d:7c            pushSelf 
  065e:81 00              lag gEgo 
  0660:4a 0c             send c 

  0662:33 25              jmp code_0689 

        code_0664
  0664:3c                 dup 
  0665:35 03              ldi 3 
  0667:1a                 eq? 
  0668:31 1f              bnt code_0689 
  066a:76               push0 
  066b:45 04 00         callb procedure_0004 0 // HandsOn 

  066e:38 00d4          pushi d4 // $d4 setAvoider
  0671:78               push1 
  0672:76               push0 
  0673:81 00              lag gEgo 
  0675:4a 06             send 6 

  0677:39 7a            pushi 7a // $7a setScript
  0679:78               push1 
  067a:76               push0 
  067b:63 08             pToa client 
  067d:4a 06             send 6 

  067f:38 00f8          pushi f8 // $f8 newRoom
  0682:78               push1 
  0683:39 31            pushi 31 // $31 b-i1
  0685:81 02              lag gCurRoom 
  0687:4a 06             send 6 


        code_0689
  0689:3a                toss 
  068a:48                 ret 
    )

)

// 0f62
(instance CloseClock 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_068b
  068b:87 01              lap param1 
  068d:65 0a             aTop state 
  068f:36                push 
  0690:3c                 dup 
  0691:35 00              ldi 0 
  0693:1a                 eq? 
  0694:31 1d              bnt code_06b3 
  0696:76               push0 
  0697:45 03 00         callb procedure_0003 0 // HandsOff 

  069a:38 00d7          pushi d7 // $d7 ignoreControl
  069d:78               push1 
  069e:7a               push2 
  069f:38 00d3          pushi d3 // $d3 setMotion
  06a2:39 04            pushi 4 // $4 x
  06a4:51 1d            class MoveTo 
  06a6:36                push 
  06a7:39 55            pushi 55 // $55 z
  06a9:38 00a5          pushi a5 // $a5 cycler
  06ac:7c            pushSelf 
  06ad:81 00              lag gEgo 
  06af:4a 12             send 12 

  06b1:33 50              jmp code_0703 

        code_06b3
  06b3:3c                 dup 
  06b4:35 01              ldi 1 
  06b6:1a                 eq? 
  06b7:31 25              bnt code_06de 
  06b9:38 00a4          pushi a4 // $a4 cycleSpeed
  06bc:78               push1 
  06bd:39 03            pushi 3 // $3 y
  06bf:39 7e            pushi 7e // $7e setCycle
  06c1:7a               push2 
  06c2:51 1b            class Beg 
  06c4:36                push 
  06c5:7c            pushSelf 
  06c6:72 09fb          lofsa $10c4 // Clock
  06c9:4a 0e             send e 

  06cb:39 2b            pushi 2b // $2b number
  06cd:78               push1 
  06ce:39 47            pushi 47 // $47 wordFail
  06d0:39 06            pushi 6 // $6 loop
  06d2:78               push1 
  06d3:78               push1 
  06d4:39 2a            pushi 2a // $2a play
  06d6:76               push0 
  06d7:72 0d66          lofsa $1440 // mySound
  06da:4a 10             send 10 

  06dc:33 25              jmp code_0703 

        code_06de
  06de:3c                 dup 
  06df:35 02              ldi 2 
  06e1:1a                 eq? 
  06e2:31 1f              bnt code_0703 
  06e4:38 00c6          pushi c6 // $c6 stopUpd
  06e7:76               push0 
  06e8:72 09d9          lofsa $10c4 // Clock
  06eb:4a 04             send 4 

  06ed:39 12            pushi 12 // $12 illegalBits
  06ef:78               push1 
  06f0:38 8006          pushi 8006 // $8006 sel_32774
  06f3:81 00              lag gEgo 
  06f5:4a 06             send 6 

  06f7:76               push0 
  06f8:45 04 00         callb procedure_0004 0 // HandsOn 

  06fb:39 7a            pushi 7a // $7a setScript
  06fd:78               push1 
  06fe:76               push0 
  06ff:63 08             pToa client 
  0701:4a 06             send 6 


        code_0703
  0703:3a                toss 
  0704:48                 ret 
    )

)

// 0f92
(instance PushMirror 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_0705
  0705:87 01              lap param1 
  0707:65 0a             aTop state 
  0709:36                push 
  070a:3c                 dup 
  070b:35 00              ldi 0 
  070d:1a                 eq? 
  070e:31 22              bnt code_0732 
  0710:38 00d4          pushi d4 // $d4 setAvoider
  0713:78               push1 
  0714:39 56            pushi 56 // $56 new
  0716:76               push0 
  0717:51 21            class Avoid 
  0719:4a 04             send 4 

  071b:36                push 
  071c:38 00d3          pushi d3 // $d3 setMotion
  071f:39 04            pushi 4 // $4 x
  0721:51 1d            class MoveTo 
  0723:36                push 
  0724:38 0100          pushi 100 // $100 notify
  0727:38 009f          pushi 9f // $9f nextCel
  072a:7c            pushSelf 
  072b:81 00              lag gEgo 
  072d:4a 12             send 12 

  072f:32 00ce            jmp code_0800 

        code_0732
  0732:3c                 dup 
  0733:35 01              ldi 1 
  0735:1a                 eq? 
  0736:31 38              bnt code_0770 
  0738:39 06            pushi 6 // $6 loop
  073a:78               push1 
  073b:76               push0 
  073c:39 07            pushi 7 // $7 cel
  073e:78               push1 
  073f:78               push1 
  0740:38 00d7          pushi d7 // $d7 ignoreControl
  0743:78               push1 
  0744:39 04            pushi 4 // $4 x
  0746:81 00              lag gEgo 
  0748:4a 12             send 12 

  074a:38 00a4          pushi a4 // $a4 cycleSpeed
  074d:78               push1 
  074e:39 03            pushi 3 // $3 y
  0750:39 7e            pushi 7e // $7e setCycle
  0752:7a               push2 
  0753:51 1a            class End 
  0755:36                push 
  0756:7c            pushSelf 
  0757:72 09bc          lofsa $1116 // Mirror
  075a:4a 0e             send e 

  075c:39 2b            pushi 2b // $2b number
  075e:78               push1 
  075f:39 48            pushi 48 // $48 syntaxFail
  0761:39 06            pushi 6 // $6 loop
  0763:78               push1 
  0764:78               push1 
  0765:39 2a            pushi 2a // $2a play
  0767:76               push0 
  0768:72 0cd5          lofsa $1440 // mySound
  076b:4a 10             send 10 

  076d:32 0090            jmp code_0800 

        code_0770
  0770:3c                 dup 
  0771:35 02              ldi 2 
  0773:1a                 eq? 
  0774:31 65              bnt code_07db 
  0776:88 008c            lsg global140 
  0779:35 00              ldi 0 
  077b:1a                 eq? 
  077c:31 12              bnt code_0790 
  077e:39 05            pushi 5 // $5 view
  0780:39 21            pushi 21 // $21 font
  0782:39 0a            pushi a // $a nsLeft
  0784:39 43            pushi 43 // $43 at
  0786:39 46            pushi 46 // $46 width
  0788:39 24            pushi 24 // $24 cursor
  078a:46 00ff 0000 0a  calle ff procedure_0000 a // Print 


        code_0790
  0790:38 00c6          pushi c6 // $c6 stopUpd
  0793:76               push0 
  0794:72 097f          lofsa $1116 // Mirror
  0797:4a 04             send 4 

  0799:39 05            pushi 5 // $5 view
  079b:78               push1 
  079c:39 21            pushi 21 // $21 font
  079e:39 06            pushi 6 // $6 loop
  07a0:78               push1 
  07a1:76               push0 
  07a2:39 07            pushi 7 // $7 cel
  07a4:78               push1 
  07a5:76               push0 
  07a6:38 00c5          pushi c5 // $c5 posn
  07a9:7a               push2 
  07aa:38 010a          pushi 10a // $10a setRegions
  07ad:38 009f          pushi 9f // $9f nextCel
  07b0:39 42            pushi 42 // $42 setPri
  07b2:78               push1 
  07b3:39 0d            pushi d // $d lsTop
  07b5:39 7e            pushi 7e // $7e setCycle
  07b7:7a               push2 
  07b8:51 1a            class End 
  07ba:36                push 
  07bb:7c            pushSelf 
  07bc:81 00              lag gEgo 
  07be:4a 28             send 28 

  07c0:80 00df            lag gDetailLevel 
  07c3:31 14              bnt code_07d9 
  07c5:39 06            pushi 6 // $6 loop
  07c7:78               push1 
  07c8:39 07            pushi 7 // $7 cel
  07ca:39 07            pushi 7 // $7 cel
  07cc:78               push1 
  07cd:76               push0 
  07ce:39 7e            pushi 7e // $7e setCycle
  07d0:78               push1 
  07d1:51 1a            class End 
  07d3:36                push 
  07d4:72 0991          lofsa $1168 // mirrorImage
  07d7:4a 12             send 12 


        code_07d9
  07d9:33 25              jmp code_0800 

        code_07db
  07db:3c                 dup 
  07dc:35 03              ldi 3 
  07de:1a                 eq? 
  07df:31 1f              bnt code_0800 
  07e1:76               push0 
  07e2:45 04 00         callb procedure_0004 0 // HandsOn 

  07e5:38 00d4          pushi d4 // $d4 setAvoider
  07e8:78               push1 
  07e9:76               push0 
  07ea:81 00              lag gEgo 
  07ec:4a 06             send 6 

  07ee:39 7a            pushi 7a // $7a setScript
  07f0:78               push1 
  07f1:76               push0 
  07f2:63 08             pToa client 
  07f4:4a 06             send 6 

  07f6:38 00f8          pushi f8 // $f8 newRoom
  07f9:78               push1 
  07fa:39 32            pushi 32 // $32 b-i2
  07fc:81 02              lag gCurRoom 
  07fe:4a 06             send 6 


        code_0800
  0800:3a                toss 
  0801:48                 ret 
    )

)

// 0fc2
(instance CloseMirror 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_0802
  0802:87 01              lap param1 
  0804:65 0a             aTop state 
  0806:36                push 
  0807:3c                 dup 
  0808:35 00              ldi 0 
  080a:1a                 eq? 
  080b:31 46              bnt code_0853 
  080d:76               push0 
  080e:45 03 00         callb procedure_0003 0 // HandsOff 

  0811:39 05            pushi 5 // $5 view
  0813:78               push1 
  0814:39 21            pushi 21 // $21 font
  0816:39 06            pushi 6 // $6 loop
  0818:78               push1 
  0819:7a               push2 
  081a:39 07            pushi 7 // $7 cel
  081c:78               push1 
  081d:76               push0 
  081e:38 00c5          pushi c5 // $c5 posn
  0821:7a               push2 
  0822:38 010a          pushi 10a // $10a setRegions
  0825:38 009f          pushi 9f // $9f nextCel
  0828:39 42            pushi 42 // $42 setPri
  082a:78               push1 
  082b:39 0d            pushi d // $d lsTop
  082d:39 7e            pushi 7e // $7e setCycle
  082f:7a               push2 
  0830:51 1a            class End 
  0832:36                push 
  0833:7c            pushSelf 
  0834:81 00              lag gEgo 
  0836:4a 28             send 28 

  0838:80 00df            lag gDetailLevel 
  083b:31 14              bnt code_0851 
  083d:39 06            pushi 6 // $6 loop
  083f:78               push1 
  0840:39 07            pushi 7 // $7 cel
  0842:39 07            pushi 7 // $7 cel
  0844:78               push1 
  0845:76               push0 
  0846:39 7e            pushi 7e // $7e setCycle
  0848:78               push1 
  0849:51 1a            class End 
  084b:36                push 
  084c:72 0919          lofsa $1168 // mirrorImage
  084f:4a 12             send 12 


        code_0851
  0851:33 7b              jmp code_08ce 

        code_0853
  0853:3c                 dup 
  0854:35 01              ldi 1 
  0856:1a                 eq? 
  0857:31 50              bnt code_08a9 
  0859:39 05            pushi 5 // $5 view
  085b:78               push1 
  085c:76               push0 
  085d:39 06            pushi 6 // $6 loop
  085f:78               push1 
  0860:78               push1 
  0861:39 07            pushi 7 // $7 cel
  0863:78               push1 
  0864:76               push0 
  0865:38 00c5          pushi c5 // $c5 posn
  0868:7a               push2 
  0869:38 0101          pushi 101 // $101 curPic
  086c:38 009f          pushi 9f // $9f nextCel
  086f:39 42            pushi 42 // $42 setPri
  0871:78               push1 
  0872:39 ff            pushi ff // $ff checkAni
  0874:39 7e            pushi 7e // $7e setCycle
  0876:78               push1 
  0877:51 17            class Walk 
  0879:36                push 
  087a:38 00d6          pushi d6 // $d6 observeControl
  087d:78               push1 
  087e:39 04            pushi 4 // $4 x
  0880:81 00              lag gEgo 
  0882:4a 2c             send 2c 

  0884:38 00a4          pushi a4 // $a4 cycleSpeed
  0887:78               push1 
  0888:39 03            pushi 3 // $3 y
  088a:39 7e            pushi 7e // $7e setCycle
  088c:7a               push2 
  088d:51 1b            class Beg 
  088f:36                push 
  0890:7c            pushSelf 
  0891:72 0882          lofsa $1116 // Mirror
  0894:4a 0e             send e 

  0896:39 2b            pushi 2b // $2b number
  0898:78               push1 
  0899:39 48            pushi 48 // $48 syntaxFail
  089b:39 06            pushi 6 // $6 loop
  089d:78               push1 
  089e:78               push1 
  089f:39 2a            pushi 2a // $2a play
  08a1:76               push0 
  08a2:72 0b9b          lofsa $1440 // mySound
  08a5:4a 10             send 10 

  08a7:33 25              jmp code_08ce 

        code_08a9
  08a9:3c                 dup 
  08aa:35 02              ldi 2 
  08ac:1a                 eq? 
  08ad:31 1f              bnt code_08ce 
  08af:39 12            pushi 12 // $12 illegalBits
  08b1:78               push1 
  08b2:38 8006          pushi 8006 // $8006 sel_32774
  08b5:81 00              lag gEgo 
  08b7:4a 06             send 6 

  08b9:38 00c6          pushi c6 // $c6 stopUpd
  08bc:76               push0 
  08bd:72 0856          lofsa $1116 // Mirror
  08c0:4a 04             send 4 

  08c2:76               push0 
  08c3:45 04 00         callb procedure_0004 0 // HandsOn 

  08c6:39 7a            pushi 7a // $7a setScript
  08c8:78               push1 
  08c9:76               push0 
  08ca:63 08             pToa client 
  08cc:4a 06             send 6 


        code_08ce
  08ce:3a                toss 
  08cf:48                 ret 
    )

)

// 0ff2
(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 (changeState) // method_08d0
  08d0:87 01              lap param1 
  08d2:65 0a             aTop state 
  08d4:36                push 
  08d5:3c                 dup 
  08d6:35 00              ldi 0 
  08d8:1a                 eq? 
  08d9:31 07              bnt code_08e2 
  08db:35 02              ldi 2 
  08dd:65 10             aTop cycles 
  08df:32 009a            jmp code_097c 

        code_08e2
  08e2:3c                 dup 
  08e3:35 01              ldi 1 
  08e5:1a                 eq? 
  08e6:31 2f              bnt code_0917 
  08e8:38 00da          pushi da // $da inRect
  08eb:39 04            pushi 4 // $4 x
  08ed:38 009b          pushi 9b // $9b bottom
  08f0:39 64            pushi 64 // $64 allTrue
  08f2:38 00a5          pushi a5 // $a5 cycler
  08f5:39 6e            pushi 6e // $6e indexOf
  08f7:81 00              lag gEgo 
  08f9:4a 0c             send c 

  08fb:31 14              bnt code_0911 
  08fd:38 00d3          pushi d3 // $d3 setMotion
  0900:39 04            pushi 4 // $4 x
  0902:51 1d            class MoveTo 
  0904:36                push 
  0905:38 009f          pushi 9f // $9f nextCel
  0908:39 73            pushi 73 // $73 seconds
  090a:7c            pushSelf 
  090b:81 00              lag gEgo 
  090d:4a 0c             send c 

  090f:33 04              jmp code_0915 

        code_0911
  0911:35 01              ldi 1 
  0913:65 10             aTop cycles 

        code_0915
  0915:33 65              jmp code_097c 

        code_0917
  0917:3c                 dup 
  0918:35 02              ldi 2 
  091a:1a                 eq? 
  091b:31 48              bnt code_0965 
  091d:39 06            pushi 6 // $6 loop
  091f:78               push1 
  0920:39 03            pushi 3 // $3 y
  0922:81 00              lag gEgo 
  0924:4a 06             send 6 

  0926:38 00a4          pushi a4 // $a4 cycleSpeed
  0929:78               push1 
  092a:78               push1 
  092b:38 00c9          pushi c9 // $c9 ignoreActors
  092e:78               push1 
  092f:78               push1 
  0930:39 7e            pushi 7e // $7e setCycle
  0932:7a               push2 
  0933:51 1a            class End 
  0935:36                push 
  0936:7c            pushSelf 
  0937:72 087c          lofsa $11b6 // rDoor
  093a:4a 14             send 14 

  093c:38 00a4          pushi a4 // $a4 cycleSpeed
  093f:78               push1 
  0940:78               push1 
  0941:38 00c9          pushi c9 // $c9 ignoreActors
  0944:78               push1 
  0945:78               push1 
  0946:39 7e            pushi 7e // $7e setCycle
  0948:7a               push2 
  0949:51 1a            class End 
  094b:36                push 
  094c:7c            pushSelf 
  094d:72 08b8          lofsa $1208 // lDoor
  0950:4a 14             send 14 

  0952:39 2b            pushi 2b // $2b number
  0954:78               push1 
  0955:39 2b            pushi 2b // $2b number
  0957:39 06            pushi 6 // $6 loop
  0959:78               push1 
  095a:78               push1 
  095b:39 2a            pushi 2a // $2a play
  095d:76               push0 
  095e:72 0adf          lofsa $1440 // mySound
  0961:4a 10             send 10 

  0963:33 17              jmp code_097c 

        code_0965
  0965:3c                 dup 
  0966:35 03              ldi 3 
  0968:1a                 eq? 
  0969:31 11              bnt code_097c 
  096b:38 00d3          pushi d3 // $d3 setMotion
  096e:39 03            pushi 3 // $3 y
  0970:51 1d            class MoveTo 
  0972:36                push 
  0973:38 009d          pushi 9d // $9d cycleDir
  0976:39 58            pushi 58 // $58 dispose
  0978:81 00              lag gEgo 
  097a:4a 0a             send a 


        code_097c
  097c:3a                toss 
  097d:48                 ret 
    )

)

// 1022
(instance ShowTime 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_097e
  097e:3f 01             link 1 // (var $1)
  0980:87 01              lap param1 
  0982:65 0a             aTop state 
  0984:36                push 
  0985:3c                 dup 
  0986:35 00              ldi 0 
  0988:1a                 eq? 
  0989:31 34              bnt code_09bf 
  098b:76               push0 
  098c:45 03 00         callb procedure_0003 0 // HandsOff 

  098f:80 00df            lag gDetailLevel 
  0992:31 16              bnt code_09aa 
  0994:39 07            pushi 7 // $7 cel
  0996:78               push1 
  0997:76               push0 
  0998:39 7e            pushi 7e // $7e setCycle
  099a:7a               push2 
  099b:51 1a            class End 
  099d:36                push 
  099e:7c            pushSelf 
  099f:38 00ca          pushi ca // $ca show
  09a2:76               push0 
  09a3:72 0958          lofsa $12fe // clockFace
  09a6:4a 12             send 12 

  09a8:33 12              jmp code_09bc 

        code_09aa
  09aa:39 07            pushi 7 // $7 cel
  09ac:78               push1 
  09ad:39 05            pushi 5 // $5 view
  09af:38 00ca          pushi ca // $ca show
  09b2:76               push0 
  09b3:72 0948          lofsa $12fe // clockFace
  09b6:4a 0a             send a 

  09b8:35 01              ldi 1 
  09ba:65 10             aTop cycles 

        code_09bc
  09bc:32 00e9            jmp code_0aa8 

        code_09bf
  09bf:3c                 dup 
  09c0:35 01              ldi 1 
  09c2:1a                 eq? 
  09c3:31 6f              bnt code_0a34 
  09c5:39 06            pushi 6 // $6 loop
  09c7:78               push1 
  09c8:88 00bb            lsg gMinute 
  09cb:35 01              ldi 1 
  09cd:1e                 gt? 
  09ce:31 04              bnt code_09d4 
  09d0:35 07              ldi 7 
  09d2:33 02              jmp code_09d6 

        code_09d4
  09d4:35 06              ldi 6 

        code_09d6
  09d6:36                push 
  09d7:39 07            pushi 7 // $7 cel
  09d9:78               push1 
  09da:88 00ba            lsg gHour 
  09dd:35 0c              ldi c 
  09df:1a                 eq? 
  09e0:31 04              bnt code_09e6 
  09e2:35 00              ldi 0 
  09e4:33 03              jmp code_09e9 

        code_09e6
  09e6:80 00ba            lag gHour 

        code_09e9
  09e9:36                push 
  09ea:38 00ca          pushi ca // $ca show
  09ed:76               push0 
  09ee:72 095b          lofsa $134c // hourHand
  09f1:4a 10             send 10 

  09f3:39 06            pushi 6 // $6 loop
  09f5:78               push1 
  09f6:88 00bb            lsg gMinute 
  09f9:35 02              ldi 2 
  09fb:22                 lt? 
  09fc:31 04              bnt code_0a02 
  09fe:35 02              ldi 2 
  0a00:33 02              jmp code_0a04 

        code_0a02
  0a02:35 05              ldi 5 

        code_0a04
  0a04:36                push 
  0a05:72 0992          lofsa $139a // minuteHand
  0a08:4a 06             send 6 

  0a0a:39 07            pushi 7 // $7 cel
  0a0c:78               push1 
  0a0d:88 00bb            lsg gMinute 
  0a10:35 01              ldi 1 
  0a12:12                 and 
  0a13:31 0d              bnt code_0a22 
  0a15:78               push1 
  0a16:74 0981          lofss $139a // minuteHand
  0a19:43 0e 02         callk NumCels 2 

  0a1c:36                push 
  0a1d:35 01              ldi 1 
  0a1f:04                 sub 
  0a20:33 02              jmp code_0a24 

        code_0a22
  0a22:35 00              ldi 0 

        code_0a24
  0a24:36                push 
  0a25:38 00ca          pushi ca // $ca show
  0a28:76               push0 
  0a29:72 096e          lofsa $139a // minuteHand
  0a2c:4a 0a             send a 

  0a2e:35 04              ldi 4 
  0a30:65 10             aTop cycles 
  0a32:33 74              jmp code_0aa8 

        code_0a34
  0a34:3c                 dup 
  0a35:35 02              ldi 2 
  0a37:1a                 eq? 
  0a38:31 19              bnt code_0a53 
  0a3a:39 05            pushi 5 // $5 view
  0a3c:39 21            pushi 21 // $21 font
  0a3e:39 0b            pushi b // $b nsBottom
  0a40:39 43            pushi 43 // $43 at
  0a42:39 0a            pushi a // $a nsLeft
  0a44:38 0082          pushi 82 // $82 owner
  0a47:46 00ff 0000 0a  calle ff procedure_0000 a // Print 

  0a4d:35 01              ldi 1 
  0a4f:65 10             aTop cycles 
  0a51:33 55              jmp code_0aa8 

        code_0a53
  0a53:3c                 dup 
  0a54:35 03              ldi 3 
  0a56:1a                 eq? 
  0a57:31 34              bnt code_0a8d 
  0a59:38 0089          pushi 89 // $89 hide
  0a5c:76               push0 
  0a5d:72 08ec          lofsa $134c // hourHand
  0a60:4a 04             send 4 

  0a62:38 0089          pushi 89 // $89 hide
  0a65:76               push0 
  0a66:72 0931          lofsa $139a // minuteHand
  0a69:4a 04             send 4 

  0a6b:80 00df            lag gDetailLevel 
  0a6e:31 0e              bnt code_0a7e 
  0a70:39 7e            pushi 7e // $7e setCycle
  0a72:7a               push2 
  0a73:51 1b            class Beg 
  0a75:36                push 
  0a76:7c            pushSelf 
  0a77:72 0884          lofsa $12fe // clockFace
  0a7a:4a 08             send 8 

  0a7c:33 0d              jmp code_0a8b 

        code_0a7e
  0a7e:38 0089          pushi 89 // $89 hide
  0a81:76               push0 
  0a82:72 0879          lofsa $12fe // clockFace
  0a85:4a 04             send 4 

  0a87:35 01              ldi 1 
  0a89:65 10             aTop cycles 

        code_0a8b
  0a8b:33 1b              jmp code_0aa8 

        code_0a8d
  0a8d:3c                 dup 
  0a8e:35 04              ldi 4 
  0a90:1a                 eq? 
  0a91:31 15              bnt code_0aa8 
  0a93:38 0089          pushi 89 // $89 hide
  0a96:76               push0 
  0a97:72 0864          lofsa $12fe // clockFace
  0a9a:4a 04             send 4 

  0a9c:76               push0 
  0a9d:45 04 00         callb procedure_0004 0 // HandsOn 

  0aa0:39 7a            pushi 7a // $7a setScript
  0aa2:78               push1 
  0aa3:76               push0 
  0aa4:63 08             pToa client 
  0aa6:4a 06             send 6 


        code_0aa8
  0aa8:3a                toss 
  0aa9:48                 ret 
    )

)

// 1052
(instance lamp of RPicView
    (properties
        y $bd
        x $2d
        z $0
        heading $0
        view $85
        loop $0
        cel $0
        priority $e
        signal $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
    )
    (method (handleEvent) // method_0aaa
  0aaa:39 03            pushi 3 // $3 y
  0aac:7c            pushSelf 
  0aad:8f 01              lsp param1 
  0aaf:39 03            pushi 3 // $3 y
  0ab1:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  0ab7:31 0f              bnt code_0ac8 
  0ab9:39 4c            pushi 4c // $4c claimed
  0abb:78               push1 
  0abc:78               push1 
  0abd:87 01              lap param1 
  0abf:4a 06             send 6 

  0ac1:78               push1 
  0ac2:74 0a61          lofss $1526 // table
  0ac5:45 19 02         callb procedure_0019 2 // DoLook 


        code_0ac8
  0ac8:48                 ret 
    )

)

// 1088
(instance phone of RPicView
    (properties
        y $bd
        x $115
        z $0
        heading $0
        view $85
        loop $0
        cel $1
        priority $e
        signal $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
    )
    (method (handleEvent) // method_0ac9
  0ac9:39 03            pushi 3 // $3 y
  0acb:7c            pushSelf 
  0acc:8f 01              lsp param1 
  0ace:39 03            pushi 3 // $3 y
  0ad0:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  0ad6:31 0f              bnt code_0ae7 
  0ad8:39 4c            pushi 4c // $4c claimed
  0ada:78               push1 
  0adb:78               push1 
  0adc:87 01              lap param1 
  0ade:4a 06             send 6 

  0ae0:78               push1 
  0ae1:74 0a42          lofss $1526 // table
  0ae4:45 19 02         callb procedure_0019 2 // DoLook 


        code_0ae7
  0ae7:48                 ret 
    )

)

// 10be
(instance Clock of Prop
    (properties
        y $a0
        x $35
        z $0
        heading $0
        yStep $2
        view $e9
        loop $0
        cel $0
        priority $c
        underBits $0
        signal $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
        lsTop $0
        lsLeft $0
        lsBottom $0
        lsRight $0
        brTop $0
        brLeft $0
        brBottom $0
        brRight $0
        cycleSpeed $0
        script $0
        cycler $0
        timer $0
    )
    (method (handleEvent) // method_0ae8
  0ae8:78               push1 
  0ae9:74 0356          lofss $0e42 // look/archway
  0aec:43 25 02         callk Said 2 

  0aef:31 26              bnt code_0b17 
  0af1:39 07            pushi 7 // $7 cel
  0af3:76               push0 
  0af4:72 05cd          lofsa $10c4 // Clock
  0af7:4a 04             send 4 

  0af9:36                push 
  0afa:35 01              ldi 1 
  0afc:1a                 eq? 
  0afd:31 0d              bnt code_0b0c 
  0aff:7a               push2 
  0b00:39 21            pushi 21 // $21 font
  0b02:39 0c            pushi c // $c nsRight
  0b04:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0b0a:33 08              jmp code_0b14 

        code_0b0c
  0b0c:39 4c            pushi 4c // $4c claimed
  0b0e:78               push1 
  0b0f:78               push1 
  0b10:87 01              lap param1 
  0b12:4a 06             send 6 


        code_0b14
  0b14:32 00d8            jmp code_0bef 

        code_0b17
  0b17:78               push1 
  0b18:74 0321          lofss $0e3c // ecouter/clock
  0b1b:43 25 02         callk Said 2 

  0b1e:31 0e              bnt code_0b2e 
  0b20:7a               push2 
  0b21:39 21            pushi 21 // $21 font
  0b23:39 0d            pushi d // $d lsTop
  0b25:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0b2b:32 00c1            jmp code_0bef 

        code_0b2e
  0b2e:78               push1 
  0b2f:74 0352          lofss $0e84 // open,(look<(dans,dans,dans))/clock
  0b32:43 25 02         callk Said 2 

  0b35:31 25              bnt code_0b5c 
  0b37:38 00ae          pushi ae // $ae distanceTo
  0b3a:78               push1 
  0b3b:74 0586          lofss $10c4 // Clock
  0b3e:81 00              lag gEgo 
  0b40:4a 06             send 6 

  0b42:36                push 
  0b43:35 1e              ldi 1e 
  0b45:22                 lt? 
  0b46:31 0d              bnt code_0b55 
  0b48:7a               push2 
  0b49:39 21            pushi 21 // $21 font
  0b4b:39 0e            pushi e // $e lsLeft
  0b4d:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0b53:33 04              jmp code_0b59 

        code_0b55
  0b55:76               push0 
  0b56:45 09 00         callb procedure_0009 0 // NotClose 


        code_0b59
  0b59:32 0093            jmp code_0bef 

        code_0b5c
  0b5c:78               push1 
  0b5d:74 02f7          lofss $0e57 // look<behind/clock
  0b60:43 25 02         callk Said 2 

  0b63:31 3f              bnt code_0ba4 
  0b65:38 00ae          pushi ae // $ae distanceTo
  0b68:78               push1 
  0b69:74 0558          lofss $10c4 // Clock
  0b6c:81 00              lag gEgo 
  0b6e:4a 06             send 6 

  0b70:36                push 
  0b71:35 1e              ldi 1e 
  0b73:22                 lt? 
  0b74:31 28              bnt code_0b9e 
  0b76:39 07            pushi 7 // $7 cel
  0b78:76               push0 
  0b79:72 0548          lofsa $10c4 // Clock
  0b7c:4a 04             send 4 

  0b7e:36                push 
  0b7f:35 01              ldi 1 
  0b81:1a                 eq? 
  0b82:31 0d              bnt code_0b91 
  0b84:7a               push2 
  0b85:39 21            pushi 21 // $21 font
  0b87:39 0f            pushi f // $f lsBottom
  0b89:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0b8f:33 0b              jmp code_0b9c 

        code_0b91
  0b91:7a               push2 
  0b92:39 21            pushi 21 // $21 font
  0b94:39 10            pushi 10 // $10 lsRight
  0b96:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0b9c
  0b9c:33 04              jmp code_0ba2 

        code_0b9e
  0b9e:76               push0 
  0b9f:45 09 00         callb procedure_0009 0 // NotClose 


        code_0ba2
  0ba2:33 4b              jmp code_0bef 

        code_0ba4
  0ba4:39 03            pushi 3 // $3 y
  0ba6:7c            pushSelf 
  0ba7:8f 01              lsp param1 
  0ba9:39 03            pushi 3 // $3 y
  0bab:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  0bb1:2f 09               bt code_0bbc 
  0bb3:78               push1 
  0bb4:74 0305          lofss $0ebc // etudier,look[<at]/clock,temps
  0bb7:43 25 02         callk Said 2 

  0bba:31 33              bnt code_0bef 

        code_0bbc
  0bbc:39 4c            pushi 4c // $4c claimed
  0bbe:78               push1 
  0bbf:78               push1 
  0bc0:87 01              lap param1 
  0bc2:4a 06             send 6 

  0bc4:39 07            pushi 7 // $7 cel
  0bc6:76               push0 
  0bc7:72 04fa          lofsa $10c4 // Clock
  0bca:4a 04             send 4 

  0bcc:36                push 
  0bcd:35 01              ldi 1 
  0bcf:1a                 eq? 
  0bd0:31 0d              bnt code_0bdf 
  0bd2:7a               push2 
  0bd3:39 21            pushi 21 // $21 font
  0bd5:39 11            pushi 11 // $11 signal
  0bd7:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0bdd:33 08              jmp code_0be7 

        code_0bdf
  0bdf:39 7a            pushi 7a // $7a setScript
  0be1:78               push1 
  0be2:74 0443          lofss $1028 // ShowTime
  0be5:54 06             self 6 


        code_0be7
  0be7:39 4c            pushi 4c // $4c claimed
  0be9:78               push1 
  0bea:78               push1 
  0beb:87 01              lap param1 
  0bed:4a 06             send 6 


        code_0bef
  0bef:48                 ret 
    )

)

// 1110
(instance Mirror of Prop
    (properties
        y $9a
        x $113
        z $0
        heading $0
        yStep $2
        view $e9
        loop $1
        cel $0
        priority $d
        underBits $0
        signal $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
        lsTop $0
        lsLeft $0
        lsBottom $0
        lsRight $0
        brTop $0
        brLeft $0
        brBottom $0
        brRight $0
        cycleSpeed $0
        script $0
        cycler $0
        timer $0
    )
    (method (handleEvent) // method_0bf0
  0bf0:78               push1 
  0bf1:74 02c2          lofss $0eb6 // open/miroir
  0bf4:43 25 02         callk Said 2 

  0bf7:31 0d              bnt code_0c06 
  0bf9:7a               push2 
  0bfa:39 21            pushi 21 // $21 font
  0bfc:39 12            pushi 12 // $12 illegalBits
  0bfe:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0c04:33 68              jmp code_0c6e 

        code_0c06
  0c06:78               push1 
  0c07:74 01b8          lofss $0dc2 // (look<(dans,dans))/miroir
  0c0a:43 25 02         callk Said 2 

  0c0d:31 07              bnt code_0c16 
  0c0f:76               push0 
  0c10:40 f40a 00        call proc_001e 0 

  0c14:33 58              jmp code_0c6e 

        code_0c16
  0c16:78               push1 
  0c17:74 0246          lofss $0e60 // look<behind/miroir
  0c1a:43 25 02         callk Said 2 

  0c1d:31 24              bnt code_0c43 
  0c1f:38 00ae          pushi ae // $ae distanceTo
  0c22:78               push1 
  0c23:74 04f0          lofss $1116 // Mirror
  0c26:81 00              lag gEgo 
  0c28:4a 06             send 6 

  0c2a:36                push 
  0c2b:35 1e              ldi 1e 
  0c2d:22                 lt? 
  0c2e:31 0d              bnt code_0c3d 
  0c30:7a               push2 
  0c31:39 21            pushi 21 // $21 font
  0c33:39 13            pushi 13 // $13 brTop
  0c35:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0c3b:33 04              jmp code_0c41 

        code_0c3d
  0c3d:76               push0 
  0c3e:45 09 00         callb procedure_0009 0 // NotClose 


        code_0c41
  0c41:33 2b              jmp code_0c6e 

        code_0c43
  0c43:39 03            pushi 3 // $3 y
  0c45:7c            pushSelf 
  0c46:8f 01              lsp param1 
  0c48:39 03            pushi 3 // $3 y
  0c4a:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  0c50:2f 09               bt code_0c5b 
  0c52:78               push1 
  0c53:74 0217          lofss $0e6d // look[<at]/miroir
  0c56:43 25 02         callk Said 2 

  0c59:31 13              bnt code_0c6e 

        code_0c5b
  0c5b:7a               push2 
  0c5c:39 21            pushi 21 // $21 font
  0c5e:39 14            pushi 14 // $14 brLeft
  0c60:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0c66:39 4c            pushi 4c // $4c claimed
  0c68:78               push1 
  0c69:78               push1 
  0c6a:87 01              lap param1 
  0c6c:4a 06             send 6 


        code_0c6e
  0c6e:48                 ret 
    )

)

// 1162
(instance mirrorImage of Prop
    (properties
        y $8e
        x $10c
        z $0
        heading $0
        yStep $2
        view $e9
        loop $6
        cel $0
        priority $0
        underBits $0
        signal $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
        lsTop $0
        lsLeft $0
        lsBottom $0
        lsRight $0
        brTop $0
        brLeft $0
        brBottom $0
        brRight $0
        cycleSpeed $0
        script $0
        cycler $0
        timer $0
    )
)

// 11b0
(instance rDoor of Prop
    (properties
        y $64
        x $b7
        z $0
        heading $0
        yStep $2
        view $e9
        loop $2
        cel $0
        priority $6
        underBits $0
        signal $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
        lsTop $0
        lsLeft $0
        lsBottom $0
        lsRight $0
        brTop $0
        brLeft $0
        brBottom $0
        brRight $0
        cycleSpeed $0
        script $0
        cycler $0
        timer $0
    )
    (method (handleEvent) // method_0c6f
  0c6f:39 03            pushi 3 // $3 y
  0c71:7c            pushSelf 
  0c72:8f 01              lsp param1 
  0c74:39 03            pushi 3 // $3 y
  0c76:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  0c7c:31 0f              bnt code_0c8d 
  0c7e:39 4c            pushi 4c // $4c claimed
  0c80:78               push1 
  0c81:78               push1 
  0c82:87 01              lap param1 
  0c84:4a 06             send 6 

  0c86:78               push1 
  0c87:74 0845          lofss $14cf // door
  0c8a:45 19 02         callb procedure_0019 2 // DoLook 


        code_0c8d
  0c8d:48                 ret 
    )

)

// 1202
(instance lDoor of Prop
    (properties
        y $64
        x $85
        z $0
        heading $0
        yStep $2
        view $e9
        loop $3
        cel $0
        priority $6
        underBits $0
        signal $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
        lsTop $0
        lsLeft $0
        lsBottom $0
        lsRight $0
        brTop $0
        brLeft $0
        brBottom $0
        brRight $0
        cycleSpeed $0
        script $0
        cycler $0
        timer $0
    )
    (method (handleEvent) // method_0c8e
  0c8e:39 03            pushi 3 // $3 y
  0c90:7c            pushSelf 
  0c91:8f 01              lsp param1 
  0c93:39 03            pushi 3 // $3 y
  0c95:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  0c9b:31 0f              bnt code_0cac 
  0c9d:39 4c            pushi 4c // $4c claimed
  0c9f:78               push1 
  0ca0:78               push1 
  0ca1:87 01              lap param1 
  0ca3:4a 06             send 6 

  0ca5:78               push1 
  0ca6:74 0826          lofss $14cf // door
  0ca9:45 19 02         callb procedure_0019 2 // DoLook 


        code_0cac
  0cac:48                 ret 
    )

)

// 1254
(instance lampL of Prop
    (properties
        y $51
        x $4c
        z $0
        heading $0
        yStep $2
        view $e9
        loop $4
        cel $1
        priority $4
        underBits $0
        signal $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
        lsTop $0
        lsLeft $0
        lsBottom $0
        lsRight $0
        brTop $0
        brLeft $0
        brBottom $0
        brRight $0
        cycleSpeed $0
        script $0
        cycler $0
        timer $0
    )
    (method (handleEvent) // method_0cad
  0cad:39 03            pushi 3 // $3 y
  0caf:7c            pushSelf 
  0cb0:8f 01              lsp param1 
  0cb2:39 03            pushi 3 // $3 y
  0cb4:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  0cba:2f 09               bt code_0cc5 
  0cbc:78               push1 
  0cbd:74 018e          lofss $0e4e // look/curtain<lamp
  0cc0:43 25 02         callk Said 2 

  0cc3:31 0f              bnt code_0cd4 

        code_0cc5
  0cc5:39 4c            pushi 4c // $4c claimed
  0cc7:78               push1 
  0cc8:78               push1 
  0cc9:87 01              lap param1 
  0ccb:4a 06             send 6 

  0ccd:78               push1 
  0cce:74 0812          lofss $14e3 // lamp
  0cd1:45 19 02         callb procedure_0019 2 // DoLook 


        code_0cd4
  0cd4:48                 ret 
    )

)

// 12a6
(instance lampR of Prop
    (properties
        y $51
        x $f7
        z $0
        heading $0
        yStep $2
        view $e9
        loop $5
        cel $0
        priority $4
        underBits $0
        signal $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
        lsTop $0
        lsLeft $0
        lsBottom $0
        lsRight $0
        brTop $0
        brLeft $0
        brBottom $0
        brRight $0
        cycleSpeed $0
        script $0
        cycler $0
        timer $0
    )
    (method (handleEvent) // method_0cd5
  0cd5:39 03            pushi 3 // $3 y
  0cd7:7c            pushSelf 
  0cd8:8f 01              lsp param1 
  0cda:39 03            pushi 3 // $3 y
  0cdc:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  0ce2:31 0f              bnt code_0cf3 
  0ce4:39 4c            pushi 4c // $4c claimed
  0ce6:78               push1 
  0ce7:78               push1 
  0ce8:87 01              lap param1 
  0cea:4a 06             send 6 

  0cec:78               push1 
  0ced:74 07f3          lofss $14e3 // lamp
  0cf0:45 19 02         callb procedure_0019 2 // DoLook 


        code_0cf3
  0cf3:48                 ret 
    )

)

// 12f8
(instance clockFace of Prop
    (properties
        y $6a
        x $2f
        z $0
        heading $0
        yStep $2
        view $67
        loop $1
        cel $0
        priority $e
        underBits $0
        signal $4010
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
        lsTop $0
        lsLeft $0
        lsBottom $0
        lsRight $0
        brTop $0
        brLeft $0
        brBottom $0
        brRight $0
        cycleSpeed $1
        script $0
        cycler $0
        timer $0
    )
)

// 1346
(instance hourHand of Prop
    (properties
        y $49
        x $51
        z $0
        heading $0
        yStep $2
        view $67
        loop $0
        cel $0
        priority $f
        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
    )
)

// 1394
(instance minuteHand of Prop
    (properties
        y $49
        x $51
        z $0
        heading $0
        yStep $2
        view $67
        loop $0
        cel $0
        priority $f
        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
    )
)

// 13e2
(instance Case1 of RFeature
    (properties
        y $0
        x $0
        z $0
        heading $0
        nsTop $2b
        nsLeft $4d
        nsBottom $68
        nsRight $6e
    )
    (method (handleEvent) // method_0cf4
  0cf4:39 03            pushi 3 // $3 y
  0cf6:7c            pushSelf 
  0cf7:8f 01              lsp param1 
  0cf9:39 03            pushi 3 // $3 y
  0cfb:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  0d01:2f 09               bt code_0d0c 
  0d03:78               push1 
  0d04:74 0141          lofss $0e48 // look/armoire
  0d07:43 25 02         callk Said 2 

  0d0a:31 13              bnt code_0d1f 

        code_0d0c
  0d0c:7a               push2 
  0d0d:39 21            pushi 21 // $21 font
  0d0f:39 15            pushi 15 // $15 brBottom
  0d11:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0d17:39 4c            pushi 4c // $4c claimed
  0d19:78               push1 
  0d1a:78               push1 
  0d1b:87 01              lap param1 
  0d1d:4a 06             send 6 


        code_0d1f
  0d1f:48                 ret 
    )

)

// 140e
(instance Case2 of RFeature
    (properties
        y $0
        x $0
        z $0
        heading $0
        nsTop $2b
        nsLeft $ce
        nsBottom $68
        nsRight $f4
    )
    (method (handleEvent) // method_0d20
  0d20:78               push1 
  0d21:74 0184          lofss $0ea8 // open,(look<dans)/drawer
  0d24:43 25 02         callk Said 2 

  0d27:31 0e              bnt code_0d37 
  0d29:7a               push2 
  0d2a:39 21            pushi 21 // $21 font
  0d2c:39 16            pushi 16 // $16 brRight
  0d2e:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0d34:32 0085            jmp code_0dbc 

        code_0d37
  0d37:78               push1 
  0d38:74 013d          lofss $0e78 // bouger/armoire
  0d3b:43 25 02         callk Said 2 

  0d3e:31 0d              bnt code_0d4d 
  0d40:7a               push2 
  0d41:39 21            pushi 21 // $21 font
  0d43:39 17            pushi 17 // $17 name
  0d45:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0d4b:33 6f              jmp code_0dbc 

        code_0d4d
  0d4d:78               push1 
  0d4e:74 0149          lofss $0e9a // open,(look<dans)/armoire
  0d51:43 25 02         callk Said 2 

  0d54:31 3b              bnt code_0d91 
  0d56:38 00da          pushi da // $da inRect
  0d59:39 04            pushi 4 // $4 x
  0d5b:39 48            pushi 48 // $48 syntaxFail
  0d5d:39 6a            pushi 6a // $6a prev
  0d5f:39 6f            pushi 6f // $6f handleEvent
  0d61:39 79            pushi 79 // $79 cue
  0d63:81 00              lag gEgo 
  0d65:4a 0c             send c 

  0d67:2f 15               bt code_0d7e 
  0d69:38 00da          pushi da // $da inRect
  0d6c:39 04            pushi 4 // $4 x
  0d6e:38 00cf          pushi cf // $cf blocks
  0d71:39 6a            pushi 6a // $6a prev
  0d73:38 00fc          pushi fc // $fc showMem
  0d76:39 79            pushi 79 // $79 cue
  0d78:81 00              lag gEgo 
  0d7a:4a 0c             send c 

  0d7c:31 0d              bnt code_0d8b 

        code_0d7e
  0d7e:7a               push2 
  0d7f:39 21            pushi 21 // $21 font
  0d81:39 18            pushi 18 // $18 key
  0d83:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0d89:33 04              jmp code_0d8f 

        code_0d8b
  0d8b:76               push0 
  0d8c:45 09 00         callb procedure_0009 0 // NotClose 


        code_0d8f
  0d8f:33 2b              jmp code_0dbc 

        code_0d91
  0d91:39 03            pushi 3 // $3 y
  0d93:7c            pushSelf 
  0d94:8f 01              lsp param1 
  0d96:39 03            pushi 3 // $3 y
  0d98:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  0d9e:2f 09               bt code_0da9 
  0da0:78               push1 
  0da1:74 00a4          lofss $0e48 // look/armoire
  0da4:43 25 02         callk Said 2 

  0da7:31 13              bnt code_0dbc 

        code_0da9
  0da9:7a               push2 
  0daa:39 21            pushi 21 // $21 font
  0dac:39 15            pushi 15 // $15 brBottom
  0dae:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0db4:39 4c            pushi 4c // $4c claimed
  0db6:78               push1 
  0db7:78               push1 
  0db8:87 01              lap param1 
  0dba:4a 06             send 6 


        code_0dbc
  0dbc:48                 ret 
  0dbd:00                bnot 
    )

)

// 143a
(instance mySound of Sound
    (properties
        state $0
        number $2c
        priority $5
        loop $1
        handle $0
        signal $0
        prevSignal $0
        client $0
        owner $0
    )
)



(procedure proc_001e
  001e:38 00ae          pushi ae // $ae distanceTo
  0021:78               push1 
  0022:74 10f1          lofss $1116 // Mirror
  0025:81 00              lag gEgo 
  0027:4a 06             send 6 

  0029:36                push 
  002a:35 32              ldi 32 
  002c:22                 lt? 
  002d:31 10              bnt code_003f 
  002f:35 0c              ldi c 
  0031:a0 00d5            sag global213 
  0034:39 03            pushi 3 // $3 y
  0036:76               push0 
  0037:39 21            pushi 21 // $21 font
  0039:76               push0 
  003a:45 01 06         callb procedure_0001 6 // Say 

  003d:33 04              jmp code_0043 

        code_003f
  003f:76               push0 
  0040:45 09 00         callb procedure_0009 0 // NotClose 


        code_0043
  0043:48                 ret 
)

