(script 57)

(string
    string_1d4c "Box"
    string_1d50 "CloseVault"
    string_1d5b "GettingIn"
    string_1d65 "GettingOut"
    string_1d70 "OpenVault"
    string_1d7a "RollSkull"
    string_1d84 "Room57"
    string_1d8b "Window1"
    string_1d93 "Window2"
    string_1d9b "casket"
    string_1da2 "claudesCover"
    string_1daf "lantern"
    string_1db7 "lid"
    string_1dbb "marysCover"
    string_1dc6 "myMusic"
    string_1dce "pouch"
    string_1dd4 "rubysCover"
    string_1ddf "skeleton"
    string_1de8 "skeletons"
    string_1df2 "skull"
    string_1df8 "tomsCover"
)

(said
    said_15fe (break,arracher)[<(open,haut)]//cane
    said_1614 (break,arracher)[<(open,haut)]//barre
    said_162a (break,arracher)[<(open,haut)]//poker
    said_1640 (break,lift,arracher)<actionner<cane
    said_1651 (break,lift,arracher)<actionner<barre
    said_1662 (break,lift,arracher)<actionner<poker
    said_1673 (clore,couvrir)>
    said_167c (look<dans),get,open/casket>
    said_168e (bouger,get)>
    said_1697 */*/barre
    said_16a0 */barre
    said_16a6 *<actionner<barre
    said_16af //door>
    said_16b5 //coffre,(door<coffre)>
    said_16c3 //coffre>
    said_16c9 /bar,door[<room]>
    said_16d6 /casket
    said_16da /ceiling
    said_16de /claude,(crouton<claude)
    said_16ea /dirt
    said_16ee /door>
    said_16f3 /frances,(crouton<frances)
    said_16ff /lantern
    said_1703 /couvercle>
    said_1708 /room>
    said_170d /rubis,(crouton<rubis)
    said_1719 /s,(crouton<s)
    said_1725 /sarcophage
    said_1729 /sarcophage,(couvercle<sarcophage)
    said_1735 /skeleton
    said_1739 /skeleton,casket>
    said_1741 /escalier
    said_1745 /coffre,(door<coffre)>
    said_1752 /coffre>
    said_1757 /mur
    said_175b <bas
    said_175f <dans
    said_1763 <haut
    said_1767 [<around,at][/room]
    said_1775 break,arracher,open
    said_177e break/fenetre
    said_1784 clore
    said_1787 eteindre,eteindre,(rotate<off)
    said_1795 get/bourse
    said_179b latch,bar/*
    said_17a4 look
    said_17a7 look,etudier/nameplate
    said_17b0 look/glass<stained
    said_17b9 look/sarcophage
    said_17bf look/fenetre
    said_17c5 look>
    said_17c9 abaisser/bar
    said_17cf open
    said_17d2 open//cane
    said_17d9 open//barre
    said_17e0 open//poker
    said_17e7 open/fenetre
    said_17ed open<actionner<barre
    said_17f6 etudier/coffre
    said_17fc debloquer
    said_17ff debloquer,debloquer,detach,lift,lift,bouger
)

(synonym
    bourse | diamant | diamond | gem | gemme | jewel | joyau | pouch | treasure | tresor = bag | sac | sack | valise
    skeleton | squelette = bone | os | soupbone
    room = crypt | crypte | tomb | tombeau
)

(local
    local0 = $0000
    local1 = $0000
    local2 = $0000
    local3 = $0000
    local4 = $0000
    local5 = $0000
    local6 = $0000
    local7 = $0000
    local8 = $0000
    local9 = $0000
    local10 = $0000
    local11 = $0000
    local12 = $0000
    local13 = $0000
    local14 = $0000
    local15 = $0000
)

// 1818
(instance public Room57 of Rm
    (properties
        script $0
        number $0
        timer $0
        keep $0
        initialized $0
        picture $39
        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_00fa
  00fa:35 00              ldi 0 
  00fc:65 16             aTop horizon 
  00fe:39 57            pushi 57 // $57 init
  0100:76               push0 
  0101:57 37 04         super Rm 4 

  0104:39 61            pushi 61 // $61 add
  0106:39 03            pushi 3 // $3 y
  0108:74 1af9          lofss $1c04 // skeleton
  010b:74 1b20          lofss $1c2e // casket
  010e:74 1b47          lofss $1c58 // skeletons
  0111:39 3c            pushi 3c // $3c doit
  0113:76               push0 
  0114:81 0a              lag gAddToPics 
  0116:4a 0e             send e 

  0118:38 010b          pushi 10b // $10b setFeatures
  011b:39 03            pushi 3 // $3 y
  011d:74 1bba          lofss $1cda // Box
  0120:74 1b5f          lofss $1c82 // Window1
  0123:74 1b88          lofss $1cae // Window2
  0126:54 0a             self a 

  0128:39 05            pushi 5 // $5 view
  012a:38 0080          pushi 80 // $80 timeLeft
  012d:39 1b            pushi 1b // $1b elements
  012f:39 1c            pushi 1c // $1c color
  0131:39 1d            pushi 1d // $1d back
  0133:39 1e            pushi 1e // $1e mode
  0135:45 15 0a         callb procedure_0015 a // LoadMany 

  0138:39 03            pushi 3 // $3 y
  013a:38 0082          pushi 82 // $82 owner
  013d:38 03d9          pushi 3d9 // $3d9 sel_985
  0140:38 03df          pushi 3df // $3df sel_991
  0143:45 15 06         callb procedure_0015 6 // LoadMany 

  0146:39 06            pushi 6 // $6 loop
  0148:38 0084          pushi 84 // $84 stop
  014b:39 3c            pushi 3c // $3c doit
  014d:39 47            pushi 47 // $47 wordFail
  014f:39 7a            pushi 7a // $7a setScript
  0151:39 7b            pushi 7b // $7b cycleCnt
  0153:39 7c            pushi 7c // $7c lastTime
  0155:45 15 0c         callb procedure_0015 c // LoadMany 

  0158:89 0c              lsg gPrevRoomNum 
  015a:35 02              ldi 2 
  015c:1a                 eq? 
  015d:31 18              bnt code_0177 
  015f:35 01              ldi 1 
  0161:a3 0d              sal local13 
  0163:39 05            pushi 5 // $5 view
  0165:78               push1 
  0166:76               push0 
  0167:38 00c5          pushi c5 // $c5 posn
  016a:7a               push2 
  016b:39 2b            pushi 2b // $2b number
  016d:38 0094          pushi 94 // $94 retreat
  0170:39 57            pushi 57 // $57 init
  0172:76               push0 
  0173:81 00              lag gEgo 
  0175:4a 12             send 12 


        code_0177
  0177:39 05            pushi 5 // $5 view
  0179:78               push1 
  017a:38 009d          pushi 9d // $9d cycleDir
  017d:39 06            pushi 6 // $6 loop
  017f:78               push1 
  0180:76               push0 
  0181:38 00c5          pushi c5 // $c5 posn
  0184:7a               push2 
  0185:38 00e4          pushi e4 // $e4 echo
  0188:39 54            pushi 54 // $54 delete
  018a:39 42            pushi 42 // $42 setPri
  018c:78               push1 
  018d:39 08            pushi 8 // $8 underBits
  018f:38 00c9          pushi c9 // $c9 ignoreActors
  0192:78               push1 
  0193:78               push1 
  0194:39 57            pushi 57 // $57 init
  0196:76               push0 
  0197:72 17d0          lofsa $196a // lid
  019a:4a 24             send 24 

  019c:38 0082          pushi 82 // $82 owner
  019f:76               push0 
  01a0:39 43            pushi 43 // $43 at
  01a2:78               push1 
  01a3:7a               push2 
  01a4:81 09              lag gInventory 
  01a6:4a 06             send 6 

  01a8:4a 04             send 4 

  01aa:36                push 
  01ab:81 0b              lag gCurRoomNum 
  01ad:1a                 eq? 
  01ae:31 05              bnt code_01b5 
  01b0:76               push0 
  01b1:40 ff0c 00        call proc_00c1 0 


        code_01b5
  01b5:38 00ee          pushi ee // $ee has
  01b8:78               push1 
  01b9:39 16            pushi 16 // $16 brRight
  01bb:81 00              lag gEgo 
  01bd:4a 06             send 6 

  01bf:18                 not 
  01c0:31 10              bnt code_01d2 
  01c2:39 42            pushi 42 // $42 setPri
  01c4:78               push1 
  01c5:78               push1 
  01c6:38 00c6          pushi c6 // $c6 stopUpd
  01c9:76               push0 
  01ca:39 57            pushi 57 // $57 init
  01cc:76               push0 
  01cd:72 1930          lofsa $1b00 // pouch
  01d0:4a 0e             send e 


        code_01d2
  01d2:39 05            pushi 5 // $5 view
  01d4:78               push1 
  01d5:38 009d          pushi 9d // $9d cycleDir
  01d8:39 06            pushi 6 // $6 loop
  01da:78               push1 
  01db:7a               push2 
  01dc:38 00c9          pushi c9 // $c9 ignoreActors
  01df:78               push1 
  01e0:78               push1 
  01e1:38 00c6          pushi c6 // $c6 stopUpd
  01e4:76               push0 
  01e5:39 57            pushi 57 // $57 init
  01e7:76               push0 
  01e8:72 17cd          lofsa $19b8 // marysCover
  01eb:4a 1a             send 1a 

  01ed:88 00a9            lsg global169 
  01f0:35 02              ldi 2 
  01f2:12                 and 
  01f3:31 1e              bnt code_0213 
  01f5:39 07            pushi 7 // $7 cel
  01f7:78               push1 
  01f8:78               push1 
  01f9:74 17bc          lofss $19b8 // marysCover
  01fc:43 0e 02         callk NumCels 2 

  01ff:36                push 
  0200:35 01              ldi 1 
  0202:04                 sub 
  0203:36                push 
  0204:38 00c5          pushi c5 // $c5 posn
  0207:7a               push2 
  0208:39 20            pushi 20 // $20 state
  020a:39 57            pushi 57 // $57 init
  020c:72 17a9          lofsa $19b8 // marysCover
  020f:4a 0e             send e 

  0211:33 15              jmp code_0228 

        code_0213
  0213:39 06            pushi 6 // $6 loop
  0215:78               push1 
  0216:78               push1 
  0217:39 07            pushi 7 // $7 cel
  0219:78               push1 
  021a:76               push0 
  021b:38 00c5          pushi c5 // $c5 posn
  021e:7a               push2 
  021f:39 2e            pushi 2e // $2e dx
  0221:39 57            pushi 57 // $57 init
  0223:72 1792          lofsa $19b8 // marysCover
  0226:4a 14             send 14 


        code_0228
  0228:39 05            pushi 5 // $5 view
  022a:78               push1 
  022b:38 009d          pushi 9d // $9d cycleDir
  022e:39 06            pushi 6 // $6 loop
  0230:78               push1 
  0231:7a               push2 
  0232:38 00c9          pushi c9 // $c9 ignoreActors
  0235:78               push1 
  0236:78               push1 
  0237:38 00c6          pushi c6 // $c6 stopUpd
  023a:76               push0 
  023b:39 57            pushi 57 // $57 init
  023d:76               push0 
  023e:72 17c9          lofsa $1a0a // rubysCover
  0241:4a 1a             send 1a 

  0243:88 00a9            lsg global169 
  0246:35 04              ldi 4 
  0248:12                 and 
  0249:31 1e              bnt code_0269 
  024b:39 07            pushi 7 // $7 cel
  024d:78               push1 
  024e:78               push1 
  024f:74 17b8          lofss $1a0a // rubysCover
  0252:43 0e 02         callk NumCels 2 

  0255:36                push 
  0256:35 01              ldi 1 
  0258:04                 sub 
  0259:36                push 
  025a:38 00c5          pushi c5 // $c5 posn
  025d:7a               push2 
  025e:39 74            pushi 74 // $74 lastSeconds
  0260:39 45            pushi 45 // $45 done
  0262:72 17a5          lofsa $1a0a // rubysCover
  0265:4a 0e             send e 

  0267:33 16              jmp code_027f 

        code_0269
  0269:39 06            pushi 6 // $6 loop
  026b:78               push1 
  026c:78               push1 
  026d:39 07            pushi 7 // $7 cel
  026f:78               push1 
  0270:78               push1 
  0271:38 00c5          pushi c5 // $c5 posn
  0274:7a               push2 
  0275:38 0082          pushi 82 // $82 owner
  0278:39 46            pushi 46 // $46 width
  027a:72 178d          lofsa $1a0a // rubysCover
  027d:4a 14             send 14 


        code_027f
  027f:39 05            pushi 5 // $5 view
  0281:78               push1 
  0282:38 009d          pushi 9d // $9d cycleDir
  0285:39 06            pushi 6 // $6 loop
  0287:78               push1 
  0288:39 03            pushi 3 // $3 y
  028a:38 00c9          pushi c9 // $c9 ignoreActors
  028d:78               push1 
  028e:78               push1 
  028f:38 00c6          pushi c6 // $c6 stopUpd
  0292:76               push0 
  0293:39 57            pushi 57 // $57 init
  0295:76               push0 
  0296:72 17c3          lofsa $1a5c // tomsCover
  0299:4a 1a             send 1a 

  029b:88 00a9            lsg global169 
  029e:35 08              ldi 8 
  02a0:12                 and 
  02a1:31 1f              bnt code_02c2 
  02a3:39 07            pushi 7 // $7 cel
  02a5:78               push1 
  02a6:78               push1 
  02a7:74 17b2          lofss $1a5c // tomsCover
  02aa:43 0e 02         callk NumCels 2 

  02ad:36                push 
  02ae:35 01              ldi 1 
  02b0:04                 sub 
  02b1:36                push 
  02b2:38 00c5          pushi c5 // $c5 posn
  02b5:7a               push2 
  02b6:38 00c0          pushi c0 // $c0 gx
  02b9:39 47            pushi 47 // $47 wordFail
  02bb:72 179e          lofsa $1a5c // tomsCover
  02be:4a 0e             send e 

  02c0:33 16              jmp code_02d8 

        code_02c2
  02c2:39 06            pushi 6 // $6 loop
  02c4:78               push1 
  02c5:78               push1 
  02c6:39 07            pushi 7 // $7 cel
  02c8:78               push1 
  02c9:7a               push2 
  02ca:38 00c5          pushi c5 // $c5 posn
  02cd:7a               push2 
  02ce:38 00b1          pushi b1 // $b1 bumpTurn
  02d1:39 47            pushi 47 // $47 wordFail
  02d3:72 1786          lofsa $1a5c // tomsCover
  02d6:4a 14             send 14 


        code_02d8
  02d8:39 05            pushi 5 // $5 view
  02da:78               push1 
  02db:38 009d          pushi 9d // $9d cycleDir
  02de:39 06            pushi 6 // $6 loop
  02e0:78               push1 
  02e1:39 03            pushi 3 // $3 y
  02e3:38 00c9          pushi c9 // $c9 ignoreActors
  02e6:78               push1 
  02e7:78               push1 
  02e8:38 00c6          pushi c6 // $c6 stopUpd
  02eb:76               push0 
  02ec:39 57            pushi 57 // $57 init
  02ee:76               push0 
  02ef:72 17bc          lofsa $1aae // claudesCover
  02f2:4a 1a             send 1a 

  02f4:88 00a9            lsg global169 
  02f7:35 10              ldi 10 
  02f9:12                 and 
  02fa:31 1f              bnt code_031b 
  02fc:39 07            pushi 7 // $7 cel
  02fe:78               push1 
  02ff:78               push1 
  0300:74 17ab          lofss $1aae // claudesCover
  0303:43 0e 02         callk NumCels 2 

  0306:36                push 
  0307:35 01              ldi 1 
  0309:04                 sub 
  030a:36                push 
  030b:38 00c5          pushi c5 // $c5 posn
  030e:7a               push2 
  030f:38 0119          pushi 119 // $119 startExtra
  0312:39 5b            pushi 5b // $5b perform
  0314:72 1797          lofsa $1aae // claudesCover
  0317:4a 0e             send e 

  0319:33 17              jmp code_0332 

        code_031b
  031b:39 06            pushi 6 // $6 loop
  031d:78               push1 
  031e:78               push1 
  031f:39 07            pushi 7 // $7 cel
  0321:78               push1 
  0322:39 03            pushi 3 // $3 y
  0324:38 00c5          pushi c5 // $c5 posn
  0327:7a               push2 
  0328:38 010a          pushi 10a // $10a setRegions
  032b:39 5b            pushi 5b // $5b perform
  032d:72 177e          lofsa $1aae // claudesCover
  0330:4a 14             send 14 


        code_0332
  0332:39 05            pushi 5 // $5 view
  0334:78               push1 
  0335:38 009d          pushi 9d // $9d cycleDir
  0338:39 12            pushi 12 // $12 illegalBits
  033a:78               push1 
  033b:76               push0 
  033c:38 00c9          pushi c9 // $c9 ignoreActors
  033f:78               push1 
  0340:78               push1 
  0341:39 3f            pushi 3f // $3f priority
  0343:78               push1 
  0344:78               push1 
  0345:72 1858          lofsa $1ba0 // skull
  0348:4a 18             send 18 

  034a:88 00a9            lsg global169 
  034d:34 0200            ldi 200 
  0350:12                 and 
  0351:31 28              bnt code_037b 
  0353:39 06            pushi 6 // $6 loop
  0355:78               push1 
  0356:39 06            pushi 6 // $6 loop
  0358:72 1845          lofsa $1ba0 // skull
  035b:4a 06             send 6 

  035d:39 07            pushi 7 // $7 cel
  035f:78               push1 
  0360:78               push1 
  0361:74 183c          lofss $1ba0 // skull
  0364:43 0e 02         callk NumCels 2 

  0367:36                push 
  0368:35 01              ldi 1 
  036a:04                 sub 
  036b:36                push 
  036c:38 00c5          pushi c5 // $c5 posn
  036f:7a               push2 
  0370:39 4b            pushi 4b // $4b said
  0372:39 75            pushi 75 // $75 register
  0374:72 1829          lofsa $1ba0 // skull
  0377:4a 0e             send e 

  0379:33 17              jmp code_0392 

        code_037b
  037b:38 00c8          pushi c8 // $c8 setLoop
  037e:78               push1 
  037f:39 05            pushi 5 // $5 view
  0381:39 07            pushi 7 // $7 cel
  0383:78               push1 
  0384:76               push0 
  0385:38 00c5          pushi c5 // $c5 posn
  0388:7a               push2 
  0389:39 35            pushi 35 // $35 b-incr
  038b:39 4f            pushi 4f // $4f restore
  038d:72 1810          lofsa $1ba0 // skull
  0390:4a 14             send 14 


        code_0392
  0392:38 00c6          pushi c6 // $c6 stopUpd
  0395:76               push0 
  0396:39 57            pushi 57 // $57 init
  0398:76               push0 
  0399:72 1804          lofsa $1ba0 // skull
  039c:4a 08             send 8 

  039e:76               push0 
  039f:45 14 00         callb procedure_0014 0 // IsFirstTimeInRoom 

  03a2:31 2d              bnt code_03d1 
  03a4:35 01              ldi 1 
  03a6:a3 0e              sal local14 
  03a8:39 2b            pushi 2b // $2b number
  03aa:78               push1 
  03ab:39 47            pushi 47 // $47 wordFail
  03ad:39 06            pushi 6 // $6 loop
  03af:78               push1 
  03b0:78               push1 
  03b1:39 2a            pushi 2a // $2a play
  03b3:76               push0 
  03b4:72 194f          lofsa $1d06 // myMusic
  03b7:4a 10             send 10 

  03b9:39 07            pushi 7 // $7 cel
  03bb:78               push1 
  03bc:76               push0 
  03bd:38 00a4          pushi a4 // $a4 cycleSpeed
  03c0:78               push1 
  03c1:39 04            pushi 4 // $4 x
  03c3:39 7e            pushi 7e // $7e setCycle
  03c5:7a               push2 
  03c6:51 1a            class End 
  03c8:36                push 
  03c9:7c            pushSelf 
  03ca:72 159d          lofsa $196a // lid
  03cd:4a 14             send 14 

  03cf:33 2e              jmp code_03ff 

        code_03d1
  03d1:39 57            pushi 57 // $57 init
  03d3:76               push0 
  03d4:81 00              lag gEgo 
  03d6:4a 04             send 4 

  03d8:39 07            pushi 7 // $7 cel
  03da:78               push1 
  03db:78               push1 
  03dc:74 158b          lofss $196a // lid
  03df:43 0e 02         callk NumCels 2 

  03e2:36                push 
  03e3:35 01              ldi 1 
  03e5:04                 sub 
  03e6:36                push 
  03e7:38 00c6          pushi c6 // $c6 stopUpd
  03ea:76               push0 
  03eb:72 157c          lofsa $196a // lid
  03ee:4a 0a             send a 

  03f0:89 0c              lsg gPrevRoomNum 
  03f2:35 02              ldi 2 
  03f4:1c                 ne? 
  03f5:31 08              bnt code_03ff 
  03f7:39 7a            pushi 7a // $7a setScript
  03f9:78               push1 
  03fa:74 153d          lofss $193a // GettingOut
  03fd:54 06             self 6 


        code_03ff
  03ff:48                 ret 
    )

    (method (doit) // method_0400
  0400:88 008a            lsg gTombBarred 
  0403:35 01              ldi 1 
  0405:1a                 eq? 
  0406:31 1b              bnt code_0423 
  0408:38 00db          pushi db // $db onControl
  040b:78               push1 
  040c:78               push1 
  040d:81 00              lag gEgo 
  040f:4a 06             send 6 

  0411:36                push 
  0412:34 0200            ldi 200 
  0415:12                 and 
  0416:31 09              bnt code_0421 
  0418:38 00f8          pushi f8 // $f8 newRoom
  041b:78               push1 
  041c:7a               push2 
  041d:81 02              lag gCurRoom 
  041f:4a 06             send 6 


        code_0421
  0421:33 29              jmp code_044c 

        code_0423
  0423:38 00db          pushi db // $db onControl
  0426:78               push1 
  0427:78               push1 
  0428:81 00              lag gEgo 
  042a:4a 06             send 6 

  042c:36                push 
  042d:34 0200            ldi 200 
  0430:12                 and 
  0431:31 15              bnt code_0448 
  0433:83 0c              lal local12 
  0435:18                 not 
  0436:31 0e              bnt code_0446 
  0438:35 01              ldi 1 
  043a:a3 0c              sal local12 
  043c:7a               push2 
  043d:39 39            pushi 39 // $39 canBeHere
  043f:76               push0 
  0440:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0446
  0446:33 04              jmp code_044c 

        code_0448
  0448:35 00              ldi 0 
  044a:a3 0c              sal local12 

        code_044c
  044c:38 00db          pushi db // $db onControl
  044f:78               push1 
  0450:78               push1 
  0451:81 00              lag gEgo 
  0453:4a 06             send 6 

  0455:36                push 
  0456:35 20              ldi 20 
  0458:12                 and 
  0459:31 26              bnt code_0481 
  045b:83 0d              lal local13 
  045d:31 22              bnt code_0481 
  045f:80 0089            lag global137 
  0462:31 0a              bnt code_046e 
  0464:39 7a            pushi 7a // $7a setScript
  0466:78               push1 
  0467:74 14a0          lofss $190a // GettingIn
  046a:54 06             self 6 

  046c:33 13              jmp code_0481 

        code_046e
  046e:83 0f              lal local15 
  0470:18                 not 
  0471:31 0e              bnt code_0481 
  0473:35 01              ldi 1 
  0475:a3 0f              sal local15 
  0477:7a               push2 
  0478:39 39            pushi 39 // $39 canBeHere
  047a:78               push1 
  047b:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0481
  0481:38 00db          pushi db // $db onControl
  0484:78               push1 
  0485:78               push1 
  0486:81 00              lag gEgo 
  0488:4a 06             send 6 

  048a:36                push 
  048b:35 01              ldi 1 
  048d:12                 and 
  048e:31 04              bnt code_0494 
  0490:35 00              ldi 0 
  0492:a3 0f              sal local15 

        code_0494
  0494:39 3c            pushi 3c // $3c doit
  0496:76               push0 
  0497:57 37 04         super Rm 4 

  049a:48                 ret 
    )

    (method (dispose) // method_049b
  049b:78               push1 
  049c:38 03d9          pushi 3d9 // $3d9 sel_985
  049f:43 03 02         callk DisposeScript 2 

  04a2:78               push1 
  04a3:38 03df          pushi 3df // $3df sel_991
  04a6:43 03 02         callk DisposeScript 2 

  04a9:39 58            pushi 58 // $58 dispose
  04ab:76               push0 
  04ac:57 37 04         super Rm 4 

  04af:48                 ret 
    )

    (method (newRoom) // method_04b0
  04b0:38 00f8          pushi f8 // $f8 newRoom
  04b3:78               push1 
  04b4:8f 01              lsp param1 
  04b6:57 37 06         super Rm 6 

  04b9:48                 ret 
    )

    (method (handleEvent) // method_04ba
  04ba:3f 01             link 1 // (var $1)
  04bc:39 4c            pushi 4c // $4c claimed
  04be:76               push0 
  04bf:87 01              lap param1 
  04c1:4a 04             send 4 

  04c3:31 01              bnt code_04c6 
  04c5:48                 ret 

        code_04c6
  04c6:39 22            pushi 22 // $22 type
  04c8:76               push0 
  04c9:87 01              lap param1 
  04cb:4a 04             send 4 

  04cd:36                push 
  04ce:34 0080            ldi 80 
  04d1:1a                 eq? 
  04d2:30 07a1            bnt code_0c76 
  04d5:78               push1 
  04d6:74 11a3          lofss $167c // (look<dans),get,open/casket>
  04d9:43 25 02         callk Said 2 

  04dc:31 23              bnt code_0501 
  04de:88 00a9            lsg global169 
  04e1:35 08              ldi 8 
  04e3:12                 and 
  04e4:31 0c              bnt code_04f2 
  04e6:7a               push2 
  04e7:39 39            pushi 39 // $39 canBeHere
  04e9:7a               push2 
  04ea:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  04f0:33 04              jmp code_04f6 

        code_04f2
  04f2:76               push0 
  04f3:45 12 00         callb procedure_0012 0 // NotHere 


        code_04f6
  04f6:39 4c            pushi 4c // $4c claimed
  04f8:78               push1 
  04f9:78               push1 
  04fa:87 01              lap param1 
  04fc:4a 06             send 6 

  04fe:32 0775            jmp code_0c76 

        code_0501
  0501:78               push1 
  0502:74 1296          lofss $179b // latch,bar/*
  0505:43 25 02         callk Said 2 

  0508:2f 09               bt code_0513 
  050a:78               push1 
  050b:74 12bb          lofss $17c9 // abaisser/bar
  050e:43 25 02         callk Said 2 

  0511:31 0e              bnt code_0521 

        code_0513
  0513:7a               push2 
  0514:39 39            pushi 39 // $39 canBeHere
  0516:39 03            pushi 3 // $3 y
  0518:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  051e:32 0755            jmp code_0c76 

        code_0521
  0521:38 00ee          pushi ee // $ee has
  0524:78               push1 
  0525:39 07            pushi 7 // $7 cel
  0527:81 00              lag gEgo 
  0529:4a 06             send 6 

  052b:18                 not 
  052c:31 22              bnt code_0550 
  052e:78               push1 
  052f:74 116e          lofss $16a0 // */barre
  0532:43 25 02         callk Said 2 

  0535:2f 12               bt code_0549 
  0537:78               push1 
  0538:74 115c          lofss $1697 // */*/barre
  053b:43 25 02         callk Said 2 

  053e:2f 09               bt code_0549 
  0540:78               push1 
  0541:74 1162          lofss $16a6 // *<actionner<barre
  0544:43 25 02         callk Said 2 

  0547:31 07              bnt code_0550 

        code_0549
  0549:76               push0 
  054a:45 0d 00         callb procedure_000d 0 // DontHave 

  054d:32 0726            jmp code_0c76 

        code_0550
  0550:78               push1 
  0551:74 1253          lofss $17a7 // look,etudier/nameplate
  0554:43 25 02         callk Said 2 

  0557:2f 09               bt code_0562 
  0559:78               push1 
  055a:74 1299          lofss $17f6 // etudier/coffre
  055d:43 25 02         callk Said 2 

  0560:31 77              bnt code_05d9 

        code_0562
  0562:38 00db          pushi db // $db onControl
  0565:78               push1 
  0566:76               push0 
  0567:81 00              lag gEgo 
  0569:4a 06             send 6 

  056b:36                push 
  056c:35 02              ldi 2 
  056e:12                 and 
  056f:31 0d              bnt code_057e 
  0571:7a               push2 
  0572:39 39            pushi 39 // $39 canBeHere
  0574:39 04            pushi 4 // $4 x
  0576:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  057c:33 58              jmp code_05d6 

        code_057e
  057e:38 00db          pushi db // $db onControl
  0581:78               push1 
  0582:76               push0 
  0583:81 00              lag gEgo 
  0585:4a 06             send 6 

  0587:36                push 
  0588:35 04              ldi 4 
  058a:12                 and 
  058b:31 0d              bnt code_059a 
  058d:7a               push2 
  058e:39 39            pushi 39 // $39 canBeHere
  0590:39 05            pushi 5 // $5 view
  0592:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0598:33 3c              jmp code_05d6 

        code_059a
  059a:38 00db          pushi db // $db onControl
  059d:78               push1 
  059e:76               push0 
  059f:81 00              lag gEgo 
  05a1:4a 06             send 6 

  05a3:36                push 
  05a4:35 08              ldi 8 
  05a6:12                 and 
  05a7:31 0d              bnt code_05b6 
  05a9:7a               push2 
  05aa:39 39            pushi 39 // $39 canBeHere
  05ac:39 06            pushi 6 // $6 loop
  05ae:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  05b4:33 20              jmp code_05d6 

        code_05b6
  05b6:38 00db          pushi db // $db onControl
  05b9:78               push1 
  05ba:76               push0 
  05bb:81 00              lag gEgo 
  05bd:4a 06             send 6 

  05bf:36                push 
  05c0:35 10              ldi 10 
  05c2:12                 and 
  05c3:31 0d              bnt code_05d2 
  05c5:7a               push2 
  05c6:39 39            pushi 39 // $39 canBeHere
  05c8:39 07            pushi 7 // $7 cel
  05ca:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  05d0:33 04              jmp code_05d6 

        code_05d2
  05d2:76               push0 
  05d3:45 09 00         callb procedure_0009 0 // NotClose 


        code_05d6
  05d6:32 069d            jmp code_0c76 

        code_05d9
  05d9:78               push1 
  05da:74 1168          lofss $1745 // /coffre,(door<coffre)>
  05dd:43 25 02         callk Said 2 

  05e0:2f 2f               bt code_0611 
  05e2:78               push1 
  05e3:74 1108          lofss $16ee // /door>
  05e6:43 25 02         callk Said 2 

  05e9:31 09              bnt code_05f4 
  05eb:78               push1 
  05ec:74 1163          lofss $1752 // /coffre>
  05ef:43 25 02         callk Said 2 

  05f2:2f 1d               bt code_0611 

        code_05f4
  05f4:78               push1 
  05f5:74 10bd          lofss $16b5 // //coffre,(door<coffre)>
  05f8:43 25 02         callk Said 2 

  05fb:2f 14               bt code_0611 
  05fd:78               push1 
  05fe:74 10ae          lofss $16af // //door>
  0601:43 25 02         callk Said 2 

  0604:30 0218            bnt code_081f 
  0607:78               push1 
  0608:74 10b8          lofss $16c3 // //coffre>
  060b:43 25 02         callk Said 2 

  060e:30 020e            bnt code_081f 

        code_0611
  0611:35 02              ldi 2 
  0613:a3 00              sal local0 

        code_0615
  0615:8b 00              lsl local0 
  0617:35 10              ldi 10 
  0619:24                 le? 
  061a:30 01ec            bnt code_0809 
  061d:38 00db          pushi db // $db onControl
  0620:78               push1 
  0621:78               push1 
  0622:81 00              lag gEgo 
  0624:4a 06             send 6 

  0626:36                push 
  0627:83 00              lal local0 
  0629:12                 and 
  062a:30 01d2            bnt code_07ff 
  062d:35 02              ldi 2 
  062f:a5 00              sat temp0 
  0631:80 00db            lag global219 
  0634:31 0f              bnt code_0645 
  0636:80 00e0            lag global224 
  0639:18                 not 
  063a:31 01              bnt code_063d 
  063c:48                 ret 

        code_063d
  063d:88 00ab            lsg global171 
  0640:35 07              ldi 7 
  0642:1c                 ne? 
  0643:a5 00              sat temp0 

        code_0645
  0645:78               push1 
  0646:74 117c          lofss $17c5 // look>
  0649:43 25 02         callk Said 2 

  064c:31 49              bnt code_0697 
  064e:88 00a9            lsg global169 
  0651:83 00              lal local0 
  0653:12                 and 
  0654:18                 not 
  0655:31 16              bnt code_066d 
  0657:7a               push2 
  0658:39 39            pushi 39 // $39 canBeHere
  065a:39 08            pushi 8 // $8 underBits
  065c:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0662:39 4c            pushi 4c // $4c claimed
  0664:78               push1 
  0665:78               push1 
  0666:87 01              lap param1 
  0668:4a 06             send 6 

  066a:32 019c            jmp code_0809 

        code_066d
  066d:78               push1 
  066e:74 10ee          lofss $175f // <dans
  0671:43 25 02         callk Said 2 

  0674:31 08              bnt code_067e 
  0676:76               push0 
  0677:40 f9d9 00        call proc_0054 0 

  067b:32 018b            jmp code_0809 

        code_067e
  067e:7a               push2 
  067f:39 39            pushi 39 // $39 canBeHere
  0681:39 09            pushi 9 // $9 nsTop
  0683:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

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

  0691:32 0175            jmp code_0809 
  0694:32 0168            jmp code_07ff 

        code_0697
  0697:78               push1 
  0698:74 0f63          lofss $15fe // (break,arracher)[<(open,haut)]//cane
  069b:43 25 02         callk Said 2 

  069e:2f 12               bt code_06b2 
  06a0:78               push1 
  06a1:74 0f9c          lofss $1640 // (break,lift,arracher)<actionner<cane
  06a4:43 25 02         callk Said 2 

  06a7:2f 09               bt code_06b2 
  06a9:78               push1 
  06aa:74 1125          lofss $17d2 // open//cane
  06ad:43 25 02         callk Said 2 

  06b0:31 24              bnt code_06d6 

        code_06b2
  06b2:38 00ee          pushi ee // $ee has
  06b5:78               push1 
  06b6:39 15            pushi 15 // $15 brBottom
  06b8:81 00              lag gEgo 
  06ba:4a 06             send 6 

  06bc:31 0e              bnt code_06cc 
  06be:7a               push2 
  06bf:39 39            pushi 39 // $39 canBeHere
  06c1:39 0a            pushi a // $a nsLeft
  06c3:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  06c9:32 013d            jmp code_0809 

        code_06cc
  06cc:76               push0 
  06cd:45 0d 00         callb procedure_000d 0 // DontHave 

  06d0:32 0136            jmp code_0809 
  06d3:32 0129            jmp code_07ff 

        code_06d6
  06d6:78               push1 
  06d7:74 0f50          lofss $162a // (break,arracher)[<(open,haut)]//poker
  06da:43 25 02         callk Said 2 

  06dd:2f 12               bt code_06f1 
  06df:78               push1 
  06e0:74 0f7f          lofss $1662 // (break,lift,arracher)<actionner<poker
  06e3:43 25 02         callk Said 2 

  06e6:2f 09               bt code_06f1 
  06e8:78               push1 
  06e9:74 10f4          lofss $17e0 // open//poker
  06ec:43 25 02         callk Said 2 

  06ef:31 24              bnt code_0715 

        code_06f1
  06f1:38 00ee          pushi ee // $ee has
  06f4:78               push1 
  06f5:39 06            pushi 6 // $6 loop
  06f7:81 00              lag gEgo 
  06f9:4a 06             send 6 

  06fb:31 0e              bnt code_070b 
  06fd:7a               push2 
  06fe:39 39            pushi 39 // $39 canBeHere
  0700:39 0b            pushi b // $b nsBottom
  0702:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0708:32 00fe            jmp code_0809 

        code_070b
  070b:76               push0 
  070c:45 0d 00         callb procedure_000d 0 // DontHave 

  070f:32 00f7            jmp code_0809 
  0712:32 00ea            jmp code_07ff 

        code_0715
  0715:8d 00              lst temp0 
  0717:35 01              ldi 1 
  0719:1c                 ne? 
  071a:31 55              bnt code_0771 
  071c:88 00a9            lsg global169 
  071f:83 00              lal local0 
  0721:12                 and 
  0722:18                 not 
  0723:31 4c              bnt code_0771 
  0725:78               push1 
  0726:74 0eeb          lofss $1614 // (break,arracher)[<(open,haut)]//barre
  0729:43 25 02         callk Said 2 

  072c:2f 1b               bt code_0749 
  072e:78               push1 
  072f:74 0f1f          lofss $1651 // (break,lift,arracher)<actionner<barre
  0732:43 25 02         callk Said 2 

  0735:2f 12               bt code_0749 
  0737:78               push1 
  0738:74 109e          lofss $17d9 // open//barre
  073b:43 25 02         callk Said 2 

  073e:2f 09               bt code_0749 
  0740:78               push1 
  0741:74 10a9          lofss $17ed // open<actionner<barre
  0744:43 25 02         callk Said 2 

  0747:31 28              bnt code_0771 

        code_0749
  0749:38 00ee          pushi ee // $ee has
  074c:78               push1 
  074d:39 07            pushi 7 // $7 cel
  074f:81 00              lag gEgo 
  0751:4a 06             send 6 

  0753:31 0b              bnt code_0760 
  0755:39 7a            pushi 7a // $7a setScript
  0757:78               push1 
  0758:74 1117          lofss $1872 // OpenVault
  075b:54 06             self 6 

  075d:32 00a9            jmp code_0809 

        code_0760
  0760:7a               push2 
  0761:39 39            pushi 39 // $39 canBeHere
  0763:39 0c            pushi c // $c nsRight
  0765:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  076b:32 009b            jmp code_0809 
  076e:32 008e            jmp code_07ff 

        code_0771
  0771:78               push1 
  0772:74 1000          lofss $1775 // break,arracher,open
  0775:43 25 02         callk Said 2 

  0778:31 34              bnt code_07ae 
  077a:88 00a9            lsg global169 
  077d:83 00              lal local0 
  077f:12                 and 
  0780:31 07              bnt code_0789 
  0782:76               push0 
  0783:45 10 00         callb procedure_0010 0 // AlreadyOpen 

  0786:32 0080            jmp code_0809 

        code_0789
  0789:88 00a9            lsg global169 
  078c:8b 00              lsl local0 
  078e:35 08              ldi 8 
  0790:0e                 shl 
  0791:12                 and 
  0792:18                 not 
  0793:31 0d              bnt code_07a2 
  0795:7a               push2 
  0796:39 39            pushi 39 // $39 canBeHere
  0798:39 0d            pushi d // $d lsTop
  079a:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  07a0:33 67              jmp code_0809 

        code_07a2
  07a2:39 7a            pushi 7a // $7a setScript
  07a4:78               push1 
  07a5:74 10ca          lofss $1872 // OpenVault
  07a8:54 06             self 6 

  07aa:33 5d              jmp code_0809 
  07ac:33 51              jmp code_07ff 

        code_07ae
  07ae:78               push1 
  07af:74 0fd2          lofss $1784 // clore
  07b2:43 25 02         callk Said 2 

  07b5:31 23              bnt code_07da 
  07b7:88 00a9            lsg global169 
  07ba:83 00              lal local0 
  07bc:12                 and 
  07bd:18                 not 
  07be:31 06              bnt code_07c6 
  07c0:76               push0 
  07c1:45 11 00         callb procedure_0011 0 // AlreadyClosed 

  07c4:33 43              jmp code_0809 

        code_07c6
  07c6:39 12            pushi 12 // $12 illegalBits
  07c8:78               push1 
  07c9:76               push0 
  07ca:81 00              lag gEgo 
  07cc:4a 06             send 6 

  07ce:39 7a            pushi 7a // $7a setScript
  07d0:78               push1 
  07d1:74 10d2          lofss $18a6 // CloseVault
  07d4:54 06             self 6 

  07d6:33 31              jmp code_0809 
  07d8:33 25              jmp code_07ff 

        code_07da
  07da:78               push1 
  07db:74 101e          lofss $17fc // debloquer
  07de:43 25 02         callk Said 2 

  07e1:31 1c              bnt code_07ff 
  07e3:88 00a9            lsg global169 
  07e6:83 00              lal local0 
  07e8:12                 and 
  07e9:18                 not 
  07ea:31 0d              bnt code_07f9 
  07ec:7a               push2 
  07ed:39 39            pushi 39 // $39 canBeHere
  07ef:39 0e            pushi e // $e lsLeft
  07f1:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  07f7:33 10              jmp code_0809 

        code_07f9
  07f9:76               push0 
  07fa:45 10 00         callb procedure_0010 0 // AlreadyOpen 

  07fd:33 0a              jmp code_0809 

        code_07ff
  07ff:8b 00              lsl local0 
  0801:35 01              ldi 1 
  0803:0e                 shl 
  0804:a3 00              sal local0 
  0806:32 fe0c            jmp code_0615 

        code_0809
  0809:8b 00              lsl local0 
  080b:35 10              ldi 10 
  080d:1e                 gt? 
  080e:31 0c              bnt code_081c 
  0810:76               push0 
  0811:45 09 00         callb procedure_0009 0 // NotClose 

  0814:39 4c            pushi 4c // $4c claimed
  0816:78               push1 
  0817:78               push1 
  0818:87 01              lap param1 
  081a:4a 06             send 6 


        code_081c
  081c:32 0457            jmp code_0c76 

        code_081f
  081f:78               push1 
  0820:74 0ea6          lofss $16c9 // /bar,door[<room]>
  0823:43 25 02         callk Said 2 

  0826:2f 14               bt code_083c 
  0828:78               push1 
  0829:74 0ec2          lofss $16ee // /door>
  082c:43 25 02         callk Said 2 

  082f:30 00b4            bnt code_08e6 
  0832:78               push1 
  0833:74 0ed2          lofss $1708 // /room>
  0836:43 25 02         callk Said 2 

  0839:30 00aa            bnt code_08e6 

        code_083c
  083c:78               push1 
  083d:74 0f64          lofss $17a4 // look
  0840:43 25 02         callk Said 2 

  0843:31 21              bnt code_0866 
  0845:88 008a            lsg gTombBarred 
  0848:35 00              ldi 0 
  084a:1a                 eq? 
  084b:31 0c              bnt code_0859 
  084d:7a               push2 
  084e:39 39            pushi 39 // $39 canBeHere
  0850:76               push0 
  0851:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0857:33 0b              jmp code_0864 

        code_0859
  0859:7a               push2 
  085a:39 39            pushi 39 // $39 canBeHere
  085c:39 0f            pushi f // $f lsBottom
  085e:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0864
  0864:33 7d              jmp code_08e3 

        code_0866
  0866:78               push1 
  0867:74 0f65          lofss $17cf // open
  086a:43 25 02         callk Said 2 

  086d:31 21              bnt code_0890 
  086f:88 008a            lsg gTombBarred 
  0872:35 00              ldi 0 
  0874:1a                 eq? 
  0875:31 0c              bnt code_0883 
  0877:7a               push2 
  0878:39 39            pushi 39 // $39 canBeHere
  087a:76               push0 
  087b:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0881:33 0b              jmp code_088e 

        code_0883
  0883:7a               push2 
  0884:39 39            pushi 39 // $39 canBeHere
  0886:39 0f            pushi f // $f lsBottom
  0888:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_088e
  088e:33 53              jmp code_08e3 

        code_0890
  0890:78               push1 
  0891:74 0f6b          lofss $17ff // debloquer,debloquer,detach,lift,lift,bouger
  0894:43 25 02         callk Said 2 

  0897:31 4a              bnt code_08e3 
  0899:38 00db          pushi db // $db onControl
  089c:78               push1 
  089d:76               push0 
  089e:81 00              lag gEgo 
  08a0:4a 06             send 6 

  08a2:36                push 
  08a3:34 0200            ldi 200 
  08a6:12                 and 
  08a7:2f 0f               bt code_08b8 
  08a9:38 00db          pushi db // $db onControl
  08ac:78               push1 
  08ad:76               push0 
  08ae:81 00              lag gEgo 
  08b0:4a 06             send 6 

  08b2:36                push 
  08b3:35 40              ldi 40 
  08b5:12                 and 
  08b6:31 27              bnt code_08df 

        code_08b8
  08b8:88 008a            lsg gTombBarred 
  08bb:35 00              ldi 0 
  08bd:1a                 eq? 
  08be:31 12              bnt code_08d2 
  08c0:35 01              ldi 1 
  08c2:a0 008a            sag gTombBarred 
  08c5:7a               push2 
  08c6:39 39            pushi 39 // $39 canBeHere
  08c8:39 10            pushi 10 // $10 lsRight
  08ca:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  08d0:33 0b              jmp code_08dd 

        code_08d2
  08d2:7a               push2 
  08d3:39 39            pushi 39 // $39 canBeHere
  08d5:39 11            pushi 11 // $11 signal
  08d7:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_08dd
  08dd:33 04              jmp code_08e3 

        code_08df
  08df:76               push0 
  08e0:45 09 00         callb procedure_0009 0 // NotClose 


        code_08e3
  08e3:32 0390            jmp code_0c76 

        code_08e6
  08e6:78               push1 
  08e7:74 0edb          lofss $17c5 // look>
  08ea:43 25 02         callk Said 2 

  08ed:30 0288            bnt code_0b78 
  08f0:78               push1 
  08f1:74 0e73          lofss $1767 // [<around,at][/room]
  08f4:43 25 02         callk Said 2 

  08f7:31 08              bnt code_0901 
  08f9:76               push0 
  08fa:40 f720 00        call proc_001e 0 

  08fe:32 0274            jmp code_0b75 

        code_0901
  0901:78               push1 
  0902:74 0e3c          lofss $1741 // /escalier
  0905:43 25 02         callk Said 2 

  0908:31 0e              bnt code_0918 
  090a:7a               push2 
  090b:39 39            pushi 39 // $39 canBeHere
  090d:39 12            pushi 12 // $12 illegalBits
  090f:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0915:32 025d            jmp code_0b75 

        code_0918
  0918:78               push1 
  0919:74 0e3b          lofss $1757 // /mur
  091c:43 25 02         callk Said 2 

  091f:31 0e              bnt code_092f 
  0921:7a               push2 
  0922:39 39            pushi 39 // $39 canBeHere
  0924:39 13            pushi 13 // $13 brTop
  0926:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  092c:32 0246            jmp code_0b75 

        code_092f
  092f:78               push1 
  0930:74 0db7          lofss $16ea // /dirt
  0933:43 25 02         callk Said 2 

  0936:2f 09               bt code_0941 
  0938:78               push1 
  0939:74 0e1f          lofss $175b // <bas
  093c:43 25 02         callk Said 2 

  093f:31 0e              bnt code_094f 

        code_0941
  0941:7a               push2 
  0942:39 39            pushi 39 // $39 canBeHere
  0944:39 14            pushi 14 // $14 brLeft
  0946:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  094c:32 0226            jmp code_0b75 

        code_094f
  094f:78               push1 
  0950:74 0d87          lofss $16da // /ceiling
  0953:43 25 02         callk Said 2 

  0956:2f 09               bt code_0961 
  0958:78               push1 
  0959:74 0e07          lofss $1763 // <haut
  095c:43 25 02         callk Said 2 

  095f:31 0e              bnt code_096f 

        code_0961
  0961:7a               push2 
  0962:39 39            pushi 39 // $39 canBeHere
  0964:39 15            pushi 15 // $15 brBottom
  0966:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  096c:32 0206            jmp code_0b75 

        code_096f
  096f:78               push1 
  0970:74 0d80          lofss $16f3 // /frances,(crouton<frances)
  0973:43 25 02         callk Said 2 

  0976:31 3a              bnt code_09b2 
  0978:88 00a9            lsg global169 
  097b:35 02              ldi 2 
  097d:12                 and 
  097e:18                 not 
  097f:31 0d              bnt code_098e 
  0981:7a               push2 
  0982:39 39            pushi 39 // $39 canBeHere
  0984:39 16            pushi 16 // $16 brRight
  0986:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  098c:33 21              jmp code_09af 

        code_098e
  098e:38 00db          pushi db // $db onControl
  0991:78               push1 
  0992:78               push1 
  0993:81 00              lag gEgo 
  0995:4a 06             send 6 

  0997:36                push 
  0998:35 02              ldi 2 
  099a:12                 and 
  099b:18                 not 
  099c:31 06              bnt code_09a4 
  099e:76               push0 
  099f:45 09 00         callb procedure_0009 0 // NotClose 

  09a2:33 0b              jmp code_09af 

        code_09a4
  09a4:7a               push2 
  09a5:39 39            pushi 39 // $39 canBeHere
  09a7:39 17            pushi 17 // $17 name
  09a9:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_09af
  09af:32 01c3            jmp code_0b75 

        code_09b2
  09b2:78               push1 
  09b3:74 0d63          lofss $1719 // /s,(crouton<s)
  09b6:43 25 02         callk Said 2 

  09b9:31 3a              bnt code_09f5 
  09bb:88 00a9            lsg global169 
  09be:35 08              ldi 8 
  09c0:12                 and 
  09c1:18                 not 
  09c2:31 0d              bnt code_09d1 
  09c4:7a               push2 
  09c5:39 39            pushi 39 // $39 canBeHere
  09c7:39 16            pushi 16 // $16 brRight
  09c9:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  09cf:33 21              jmp code_09f2 

        code_09d1
  09d1:38 00db          pushi db // $db onControl
  09d4:78               push1 
  09d5:78               push1 
  09d6:81 00              lag gEgo 
  09d8:4a 06             send 6 

  09da:36                push 
  09db:35 08              ldi 8 
  09dd:12                 and 
  09de:18                 not 
  09df:31 06              bnt code_09e7 
  09e1:76               push0 
  09e2:45 09 00         callb procedure_0009 0 // NotClose 

  09e5:33 0b              jmp code_09f2 

        code_09e7
  09e7:7a               push2 
  09e8:39 39            pushi 39 // $39 canBeHere
  09ea:39 17            pushi 17 // $17 name
  09ec:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_09f2
  09f2:32 0180            jmp code_0b75 

        code_09f5
  09f5:78               push1 
  09f6:74 0ce5          lofss $16de // /claude,(crouton<claude)
  09f9:43 25 02         callk Said 2 

  09fc:31 3a              bnt code_0a38 
  09fe:88 00a9            lsg global169 
  0a01:35 10              ldi 10 
  0a03:12                 and 
  0a04:18                 not 
  0a05:31 0d              bnt code_0a14 
  0a07:7a               push2 
  0a08:39 39            pushi 39 // $39 canBeHere
  0a0a:39 16            pushi 16 // $16 brRight
  0a0c:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0a12:33 21              jmp code_0a35 

        code_0a14
  0a14:38 00db          pushi db // $db onControl
  0a17:78               push1 
  0a18:78               push1 
  0a19:81 00              lag gEgo 
  0a1b:4a 06             send 6 

  0a1d:36                push 
  0a1e:35 10              ldi 10 
  0a20:12                 and 
  0a21:18                 not 
  0a22:31 06              bnt code_0a2a 
  0a24:76               push0 
  0a25:45 09 00         callb procedure_0009 0 // NotClose 

  0a28:33 0b              jmp code_0a35 

        code_0a2a
  0a2a:7a               push2 
  0a2b:39 39            pushi 39 // $39 canBeHere
  0a2d:39 17            pushi 17 // $17 name
  0a2f:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0a35
  0a35:32 013d            jmp code_0b75 

        code_0a38
  0a38:78               push1 
  0a39:74 0cd1          lofss $170d // /rubis,(crouton<rubis)
  0a3c:43 25 02         callk Said 2 

  0a3f:31 6f              bnt code_0ab0 
  0a41:88 00a9            lsg global169 
  0a44:35 04              ldi 4 
  0a46:12                 and 
  0a47:18                 not 
  0a48:31 0d              bnt code_0a57 
  0a4a:7a               push2 
  0a4b:39 39            pushi 39 // $39 canBeHere
  0a4d:39 16            pushi 16 // $16 brRight
  0a4f:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0a55:33 56              jmp code_0aad 

        code_0a57
  0a57:38 00db          pushi db // $db onControl
  0a5a:78               push1 
  0a5b:78               push1 
  0a5c:81 00              lag gEgo 
  0a5e:4a 06             send 6 

  0a60:36                push 
  0a61:35 04              ldi 4 
  0a63:12                 and 
  0a64:18                 not 
  0a65:31 06              bnt code_0a6d 
  0a67:76               push0 
  0a68:45 09 00         callb procedure_0009 0 // NotClose 

  0a6b:33 40              jmp code_0aad 

        code_0a6d
  0a6d:38 00ee          pushi ee // $ee has
  0a70:78               push1 
  0a71:39 16            pushi 16 // $16 brRight
  0a73:81 00              lag gEgo 
  0a75:4a 06             send 6 

  0a77:31 0d              bnt code_0a86 
  0a79:7a               push2 
  0a7a:39 39            pushi 39 // $39 canBeHere
  0a7c:39 18            pushi 18 // $18 key
  0a7e:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0a84:33 27              jmp code_0aad 

        code_0a86
  0a86:7a               push2 
  0a87:39 39            pushi 39 // $39 canBeHere
  0a89:39 19            pushi 19 // $19 time
  0a8b:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0a91:39 2b            pushi 2b // $2b number
  0a93:78               push1 
  0a94:39 3c            pushi 3c // $3c doit
  0a96:39 06            pushi 6 // $6 loop
  0a98:78               push1 
  0a99:78               push1 
  0a9a:39 2a            pushi 2a // $2a play
  0a9c:76               push0 
  0a9d:72 1266          lofsa $1d06 // myMusic
  0aa0:4a 10             send 10 

  0aa2:7a               push2 
  0aa3:39 39            pushi 39 // $39 canBeHere
  0aa5:39 1a            pushi 1a // $1a text
  0aa7:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0aad
  0aad:32 00c5            jmp code_0b75 

        code_0ab0
  0ab0:78               push1 
  0ab1:74 0c85          lofss $1739 // /skeleton,casket>
  0ab4:43 25 02         callk Said 2 

  0ab7:30 00bb            bnt code_0b75 
  0aba:35 02              ldi 2 
  0abc:a3 00              sal local0 

        code_0abe
  0abe:8b 00              lsl local0 
  0ac0:35 10              ldi 10 
  0ac2:24                 le? 
  0ac3:31 6a              bnt code_0b2f 
  0ac5:38 00db          pushi db // $db onControl
  0ac8:78               push1 
  0ac9:78               push1 
  0aca:81 00              lag gEgo 
  0acc:4a 06             send 6 

  0ace:36                push 
  0acf:83 00              lal local0 
  0ad1:12                 and 
  0ad2:31 52              bnt code_0b26 
  0ad4:88 00a9            lsg global169 
  0ad7:83 00              lal local0 
  0ad9:12                 and 
  0ada:31 4a              bnt code_0b26 
  0adc:8b 00              lsl local0 
  0ade:35 04              ldi 4 
  0ae0:1a                 eq? 
  0ae1:31 06              bnt code_0ae9 
  0ae3:76               push0 
  0ae4:45 12 00         callb procedure_0012 0 // NotHere 

  0ae7:33 46              jmp code_0b2f 

        code_0ae9
  0ae9:78               push1 
  0aea:74 0c48          lofss $1735 // /skeleton
  0aed:43 25 02         callk Said 2 

  0af0:31 1a              bnt code_0b0c 
  0af2:8b 00              lsl local0 
  0af4:35 08              ldi 8 
  0af6:1a                 eq? 
  0af7:31 06              bnt code_0aff 
  0af9:76               push0 
  0afa:45 12 00         callb procedure_0012 0 // NotHere 

  0afd:33 30              jmp code_0b2f 

        code_0aff
  0aff:7a               push2 
  0b00:39 39            pushi 39 // $39 canBeHere
  0b02:39 17            pushi 17 // $17 name
  0b04:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0b0a:33 23              jmp code_0b2f 

        code_0b0c
  0b0c:8b 00              lsl local0 
  0b0e:35 08              ldi 8 
  0b10:1c                 ne? 
  0b11:31 06              bnt code_0b19 
  0b13:76               push0 
  0b14:45 12 00         callb procedure_0012 0 // NotHere 

  0b17:33 16              jmp code_0b2f 

        code_0b19
  0b19:7a               push2 
  0b1a:39 39            pushi 39 // $39 canBeHere
  0b1c:39 1b            pushi 1b // $1b elements
  0b1e:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0b24:33 09              jmp code_0b2f 

        code_0b26
  0b26:8b 00              lsl local0 
  0b28:35 01              ldi 1 
  0b2a:0e                 shl 
  0b2b:a3 00              sal local0 
  0b2d:33 8f              jmp code_0abe 

        code_0b2f
  0b2f:8b 00              lsl local0 
  0b31:35 10              ldi 10 
  0b33:1e                 gt? 
  0b34:31 37              bnt code_0b6d 
  0b36:80 00a9            lag global169 
  0b39:31 2e              bnt code_0b69 
  0b3b:78               push1 
  0b3c:74 0bf6          lofss $1735 // /skeleton
  0b3f:43 25 02         callk Said 2 

  0b42:31 08              bnt code_0b4c 
  0b44:88 00a9            lsg global169 
  0b47:35 12              ldi 12 
  0b49:12                 and 
  0b4a:2f 11               bt code_0b5d 

        code_0b4c
  0b4c:78               push1 
  0b4d:74 0b86          lofss $16d6 // /casket
  0b50:43 25 02         callk Said 2 

  0b53:31 0e              bnt code_0b63 
  0b55:88 00a9            lsg global169 
  0b58:35 08              ldi 8 
  0b5a:12                 and 
  0b5b:31 06              bnt code_0b63 

        code_0b5d
  0b5d:76               push0 
  0b5e:45 09 00         callb procedure_0009 0 // NotClose 

  0b61:33 04              jmp code_0b67 

        code_0b63
  0b63:76               push0 
  0b64:45 12 00         callb procedure_0012 0 // NotHere 


        code_0b67
  0b67:33 04              jmp code_0b6d 

        code_0b69
  0b69:76               push0 
  0b6a:45 12 00         callb procedure_0012 0 // NotHere 


        code_0b6d
  0b6d:39 4c            pushi 4c // $4c claimed
  0b6f:78               push1 
  0b70:78               push1 
  0b71:87 01              lap param1 
  0b73:4a 06             send 6 


        code_0b75
  0b75:32 00fe            jmp code_0c76 

        code_0b78
  0b78:78               push1 
  0b79:74 0b12          lofss $168e // (bouger,get)>
  0b7c:43 25 02         callk Said 2 

  0b7f:30 0083            bnt code_0c05 
  0b82:78               push1 
  0b83:74 0bb3          lofss $1739 // /skeleton,casket>
  0b86:43 25 02         callk Said 2 

  0b89:31 3c              bnt code_0bc7 
  0b8b:78               push1 
  0b8c:74 0ba6          lofss $1735 // /skeleton
  0b8f:43 25 02         callk Said 2 

  0b92:31 08              bnt code_0b9c 
  0b94:88 00a9            lsg global169 
  0b97:35 12              ldi 12 
  0b99:12                 and 
  0b9a:2f 11               bt code_0bad 

        code_0b9c
  0b9c:78               push1 
  0b9d:74 0b36          lofss $16d6 // /casket
  0ba0:43 25 02         callk Said 2 

  0ba3:31 14              bnt code_0bb9 
  0ba5:88 00a9            lsg global169 
  0ba8:35 08              ldi 8 
  0baa:12                 and 
  0bab:31 0c              bnt code_0bb9 

        code_0bad
  0bad:7a               push2 
  0bae:39 39            pushi 39 // $39 canBeHere
  0bb0:7a               push2 
  0bb1:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0bb7:33 0c              jmp code_0bc5 

        code_0bb9
  0bb9:76               push0 
  0bba:45 12 00         callb procedure_0012 0 // NotHere 

  0bbd:39 4c            pushi 4c // $4c claimed
  0bbf:78               push1 
  0bc0:78               push1 
  0bc1:87 01              lap param1 
  0bc3:4a 06             send 6 


        code_0bc5
  0bc5:33 3c              jmp code_0c03 

        code_0bc7
  0bc7:78               push1 
  0bc8:74 0b34          lofss $16ff // /lantern
  0bcb:43 25 02         callk Said 2 

  0bce:31 33              bnt code_0c03 
  0bd0:38 00ee          pushi ee // $ee has
  0bd3:78               push1 
  0bd4:7a               push2 
  0bd5:81 00              lag gEgo 
  0bd7:4a 06             send 6 

  0bd9:31 06              bnt code_0be1 
  0bdb:76               push0 
  0bdc:45 0a 00         callb procedure_000a 0 // AlreadyTook 

  0bdf:33 22              jmp code_0c03 

        code_0be1
  0be1:76               push0 
  0be2:45 03 00         callb procedure_0003 0 // HandsOff 

  0be5:38 00d4          pushi d4 // $d4 setAvoider
  0be8:78               push1 
  0be9:39 56            pushi 56 // $56 new
  0beb:76               push0 
  0bec:51 21            class Avoid 
  0bee:4a 04             send 4 

  0bf0:36                push 
  0bf1:38 00d3          pushi d3 // $d3 setMotion
  0bf4:39 04            pushi 4 // $4 x
  0bf6:51 1d            class MoveTo 
  0bf8:36                push 
  0bf9:38 0090          pushi 90 // $90 setMark
  0bfc:39 70            pushi 70 // $70 start
  0bfe:7c            pushSelf 
  0bff:81 00              lag gEgo 
  0c01:4a 12             send 12 


        code_0c03
  0c03:33 71              jmp code_0c76 

        code_0c05
  0c05:78               push1 
  0c06:74 0bde          lofss $17e7 // open/fenetre
  0c09:43 25 02         callk Said 2 

  0c0c:31 0d              bnt code_0c1b 
  0c0e:7a               push2 
  0c0f:39 39            pushi 39 // $39 canBeHere
  0c11:39 1c            pushi 1c // $1c color
  0c13:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0c19:33 5b              jmp code_0c76 

        code_0c1b
  0c1b:78               push1 
  0c1c:74 0b5f          lofss $177e // break/fenetre
  0c1f:43 25 02         callk Said 2 

  0c22:31 0d              bnt code_0c31 
  0c24:7a               push2 
  0c25:39 39            pushi 39 // $39 canBeHere
  0c27:39 1d            pushi 1d // $1d back
  0c29:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0c2f:33 45              jmp code_0c76 

        code_0c31
  0c31:78               push1 
  0c32:74 0a3e          lofss $1673 // (clore,couvrir)>
  0c35:43 25 02         callk Said 2 

  0c38:31 28              bnt code_0c62 
  0c3a:78               push1 
  0c3b:74 0aeb          lofss $1729 // /sarcophage,(couvercle<sarcophage)
  0c3e:43 25 02         callk Said 2 

  0c41:2f 12               bt code_0c55 
  0c43:78               push1 
  0c44:74 0abc          lofss $1703 // /couvercle>
  0c47:43 25 02         callk Said 2 

  0c4a:31 14              bnt code_0c60 
  0c4c:78               push1 
  0c4d:74 0ad5          lofss $1725 // /sarcophage
  0c50:43 25 02         callk Said 2 

  0c53:31 0b              bnt code_0c60 

        code_0c55
  0c55:7a               push2 
  0c56:39 39            pushi 39 // $39 canBeHere
  0c58:39 1e            pushi 1e // $1e mode
  0c5a:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0c60
  0c60:33 14              jmp code_0c76 

        code_0c62
  0c62:78               push1 
  0c63:74 0b21          lofss $1787 // eteindre,eteindre,(rotate<off)
  0c66:43 25 02         callk Said 2 

  0c69:31 0b              bnt code_0c76 
  0c6b:7a               push2 
  0c6c:39 39            pushi 39 // $39 canBeHere
  0c6e:39 1f            pushi 1f // $1f style
  0c70:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0c76
  0c76:48                 ret 
    )

    (method (cue) // method_0c77
  0c77:38 00ee          pushi ee // $ee has
  0c7a:78               push1 
  0c7b:7a               push2 
  0c7c:81 00              lag gEgo 
  0c7e:4a 06             send 6 

  0c80:31 1a              bnt code_0c9c 
  0c82:38 00c6          pushi c6 // $c6 stopUpd
  0c85:76               push0 
  0c86:72 0ce1          lofsa $196a // lid
  0c89:4a 04             send 4 

  0c8b:39 57            pushi 57 // $57 init
  0c8d:76               push0 
  0c8e:81 00              lag gEgo 
  0c90:4a 04             send 4 

  0c92:39 7a            pushi 7a // $7a setScript
  0c94:78               push1 
  0c95:74 0ca2          lofss $193a // GettingOut
  0c98:54 06             self 6 

  0c9a:33 2a              jmp code_0cc6 

        code_0c9c
  0c9c:38 0089          pushi 89 // $89 hide
  0c9f:76               push0 
  0ca0:72 0eaf          lofsa $1b52 // lantern
  0ca3:4a 04             send 4 

  0ca5:39 06            pushi 6 // $6 loop
  0ca7:78               push1 
  0ca8:76               push0 
  0ca9:38 00d4          pushi d4 // $d4 setAvoider
  0cac:78               push1 
  0cad:76               push0 
  0cae:81 00              lag gEgo 
  0cb0:4a 0c             send c 

  0cb2:38 008f          pushi 8f // $8f moveTo
  0cb5:78               push1 
  0cb6:89 00              lsg gEgo 
  0cb8:39 43            pushi 43 // $43 at
  0cba:78               push1 
  0cbb:7a               push2 
  0cbc:81 09              lag gInventory 
  0cbe:4a 06             send 6 

  0cc0:4a 06             send 6 

  0cc2:76               push0 
  0cc3:45 04 00         callb procedure_0004 0 // HandsOn 


        code_0cc6
  0cc6:48                 ret 
    )

)

// 186c
(instance OpenVault 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_0cc7
  0cc7:39 3c            pushi 3c // $3c doit
  0cc9:76               push0 
  0cca:57 05 04         super Script 4 

  0ccd:88 00a9            lsg global169 
  0cd0:34 0200            ldi 200 
  0cd3:12                 and 
  0cd4:18                 not 
  0cd5:31 2e              bnt code_0d05 
  0cd7:67 0a             pTos state 
  0cd9:35 04              ldi 4 
  0cdb:1a                 eq? 
  0cdc:31 27              bnt code_0d05 
  0cde:39 07            pushi 7 // $7 cel
  0ce0:76               push0 
  0ce1:72 0cd4          lofsa $19b8 // marysCover
  0ce4:4a 04             send 4 

  0ce6:36                push 
  0ce7:35 01              ldi 1 
  0ce9:1a                 eq? 
  0cea:31 19              bnt code_0d05 
  0cec:39 76            pushi 76 // $76 script
  0cee:76               push0 
  0cef:72 0eae          lofsa $1ba0 // skull
  0cf2:4a 04             send 4 

  0cf4:36                push 
  0cf5:35 00              ldi 0 
  0cf7:1a                 eq? 
  0cf8:31 0b              bnt code_0d05 
  0cfa:39 7a            pushi 7a // $7a setScript
  0cfc:78               push1 
  0cfd:74 0bda          lofss $18da // RollSkull
  0d00:72 0e9d          lofsa $1ba0 // skull
  0d03:4a 06             send 6 


        code_0d05
  0d05:48                 ret 
    )

    (method (changeState) // method_0d06
  0d06:87 01              lap param1 
  0d08:65 0a             aTop state 
  0d0a:36                push 
  0d0b:3c                 dup 
  0d0c:35 00              ldi 0 
  0d0e:1a                 eq? 
  0d0f:30 00d3            bnt code_0de5 
  0d12:78               push1 
  0d13:7a               push2 
  0d14:45 05 02         callb procedure_0005 2 // SetFlag 

  0d17:83 00              lal local0 
  0d19:a3 01              sal local1 
  0d1b:88 00a9            lsg global169 
  0d1e:83 01              lal local1 
  0d20:12                 and 
  0d21:18                 not 
  0d22:30 00b1            bnt code_0dd6 
  0d25:76               push0 
  0d26:45 03 00         callb procedure_0003 0 // HandsOff 

  0d29:88 00a9            lsg global169 
  0d2c:8b 01              lsl local1 
  0d2e:35 08              ldi 8 
  0d30:0e                 shl 
  0d31:12                 and 
  0d32:18                 not 
  0d33:31 1b              bnt code_0d50 
  0d35:39 07            pushi 7 // $7 cel
  0d37:39 39            pushi 39 // $39 canBeHere
  0d39:39 20            pushi 20 // $20 state
  0d3b:39 43            pushi 43 // $43 at
  0d3d:39 5a            pushi 5a // $5a showSelf
  0d3f:39 6e            pushi 6e // $6e indexOf
  0d41:39 1e            pushi 1e // $1e mode
  0d43:78               push1 
  0d44:46 00ff 0000 0e  calle ff procedure_0000 e // Print 

  0d4a:35 0a              ldi a 
  0d4c:a3 02              sal local2 
  0d4e:33 08              jmp code_0d58 

        code_0d50
  0d50:76               push0 
  0d51:45 16 00         callb procedure_0016 0 // Ok 

  0d54:35 03              ldi 3 
  0d56:a3 02              sal local2 

        code_0d58
  0d58:8b 01              lsl local1 
  0d5a:3c                 dup 
  0d5b:35 02              ldi 2 
  0d5d:1a                 eq? 
  0d5e:31 13              bnt code_0d73 
  0d60:35 4e              ldi 4e 
  0d62:a3 03              sal local3 
  0d64:35 6c              ldi 6c 
  0d66:a3 04              sal local4 
  0d68:35 00              ldi 0 
  0d6a:a3 05              sal local5 
  0d6c:72 0c49          lofsa $19b8 // marysCover
  0d6f:a3 0a              sal local10 
  0d71:33 4b              jmp code_0dbe 

        code_0d73
  0d73:3c                 dup 
  0d74:35 04              ldi 4 
  0d76:1a                 eq? 
  0d77:31 13              bnt code_0d8c 
  0d79:35 63              ldi 63 
  0d7b:a3 03              sal local3 
  0d7d:35 67              ldi 67 
  0d7f:a3 04              sal local4 
  0d81:35 01              ldi 1 
  0d83:a3 05              sal local5 
  0d85:72 0c82          lofsa $1a0a // rubysCover
  0d88:a3 0a              sal local10 
  0d8a:33 32              jmp code_0dbe 

        code_0d8c
  0d8c:3c                 dup 
  0d8d:35 08              ldi 8 
  0d8f:1a                 eq? 
  0d90:31 14              bnt code_0da6 
  0d92:34 00d1            ldi d1 
  0d95:a3 03              sal local3 
  0d97:35 68              ldi 68 
  0d99:a3 04              sal local4 
  0d9b:35 00              ldi 0 
  0d9d:a3 05              sal local5 
  0d9f:72 0cba          lofsa $1a5c // tomsCover
  0da2:a3 0a              sal local10 
  0da4:33 18              jmp code_0dbe 

        code_0da6
  0da6:3c                 dup 
  0da7:35 10              ldi 10 
  0da9:1a                 eq? 
  0daa:31 12              bnt code_0dbe 
  0dac:34 00ea            ldi ea 
  0daf:a3 03              sal local3 
  0db1:35 6f              ldi 6f 
  0db3:a3 04              sal local4 
  0db5:35 01              ldi 1 
  0db7:a3 05              sal local5 
  0db9:72 0cf2          lofsa $1aae // claudesCover
  0dbc:a3 0a              sal local10 

        code_0dbe
  0dbe:3a                toss 
  0dbf:39 12            pushi 12 // $12 illegalBits
  0dc1:78               push1 
  0dc2:76               push0 
  0dc3:38 00d3          pushi d3 // $d3 setMotion
  0dc6:39 04            pushi 4 // $4 x
  0dc8:51 1d            class MoveTo 
  0dca:36                push 
  0dcb:8b 03              lsl local3 
  0dcd:8b 04              lsl local4 
  0dcf:7c            pushSelf 
  0dd0:81 00              lag gEgo 
  0dd2:4a 12             send 12 

  0dd4:33 0c              jmp code_0de2 

        code_0dd6
  0dd6:76               push0 
  0dd7:45 10 00         callb procedure_0010 0 // AlreadyOpen 

  0dda:39 7a            pushi 7a // $7a setScript
  0ddc:78               push1 
  0ddd:76               push0 
  0dde:63 08             pToa client 
  0de0:4a 06             send 6 


        code_0de2
  0de2:32 0186            jmp code_0f6b 

        code_0de5
  0de5:3c                 dup 
  0de6:35 01              ldi 1 
  0de8:1a                 eq? 
  0de9:31 1c              bnt code_0e07 
  0deb:39 05            pushi 5 // $5 view
  0ded:78               push1 
  0dee:39 1d            pushi 1d // $1d back
  0df0:39 06            pushi 6 // $6 loop
  0df2:78               push1 
  0df3:8b 05              lsl local5 
  0df5:39 07            pushi 7 // $7 cel
  0df7:78               push1 
  0df8:76               push0 
  0df9:39 7e            pushi 7e // $7e setCycle
  0dfb:7a               push2 
  0dfc:51 1a            class End 
  0dfe:36                push 
  0dff:7c            pushSelf 
  0e00:81 00              lag gEgo 
  0e02:4a 1a             send 1a 

  0e04:32 0164            jmp code_0f6b 

        code_0e07
  0e07:3c                 dup 
  0e08:35 02              ldi 2 
  0e0a:1a                 eq? 
  0e0b:31 1b              bnt code_0e28 
  0e0d:39 06            pushi 6 // $6 loop
  0e0f:78               push1 
  0e10:8b 05              lsl local5 
  0e12:35 02              ldi 2 
  0e14:02                 add 
  0e15:36                push 
  0e16:39 07            pushi 7 // $7 cel
  0e18:78               push1 
  0e19:76               push0 
  0e1a:39 7e            pushi 7e // $7e setCycle
  0e1c:7a               push2 
  0e1d:51 1a            class End 
  0e1f:36                push 
  0e20:7c            pushSelf 
  0e21:81 00              lag gEgo 
  0e23:4a 14             send 14 

  0e25:32 0143            jmp code_0f6b 

        code_0e28
  0e28:3c                 dup 
  0e29:35 03              ldi 3 
  0e2b:1a                 eq? 
  0e2c:31 1e              bnt code_0e4c 
  0e2e:39 06            pushi 6 // $6 loop
  0e30:78               push1 
  0e31:8b 05              lsl local5 
  0e33:35 04              ldi 4 
  0e35:02                 add 
  0e36:36                push 
  0e37:39 07            pushi 7 // $7 cel
  0e39:78               push1 
  0e3a:76               push0 
  0e3b:39 7e            pushi 7e // $7e setCycle
  0e3d:78               push1 
  0e3e:51 16            class Fwd 
  0e40:36                push 
  0e41:81 00              lag gEgo 
  0e43:4a 12             send 12 

  0e45:83 02              lal local2 
  0e47:65 10             aTop cycles 
  0e49:32 011f            jmp code_0f6b 

        code_0e4c
  0e4c:3c                 dup 
  0e4d:35 04              ldi 4 
  0e4f:1a                 eq? 
  0e50:30 00ac            bnt code_0eff 
  0e53:8b 01              lsl local1 
  0e55:3c                 dup 
  0e56:35 02              ldi 2 
  0e58:1a                 eq? 
  0e59:31 12              bnt code_0e6d 
  0e5b:39 06            pushi 6 // $6 loop
  0e5d:78               push1 
  0e5e:7a               push2 
  0e5f:38 00c5          pushi c5 // $c5 posn
  0e62:7a               push2 
  0e63:39 20            pushi 20 // $20 state
  0e65:39 57            pushi 57 // $57 init
  0e67:83 0a              lal local10 
  0e69:4a 0e             send e 

  0e6b:33 4a              jmp code_0eb7 

        code_0e6d
  0e6d:3c                 dup 
  0e6e:35 04              ldi 4 
  0e70:1a                 eq? 
  0e71:31 12              bnt code_0e85 
  0e73:39 06            pushi 6 // $6 loop
  0e75:78               push1 
  0e76:7a               push2 
  0e77:38 00c5          pushi c5 // $c5 posn
  0e7a:7a               push2 
  0e7b:39 74            pushi 74 // $74 lastSeconds
  0e7d:39 45            pushi 45 // $45 done
  0e7f:83 0a              lal local10 
  0e81:4a 0e             send e 

  0e83:33 32              jmp code_0eb7 

        code_0e85
  0e85:3c                 dup 
  0e86:35 08              ldi 8 
  0e88:1a                 eq? 
  0e89:31 14              bnt code_0e9f 
  0e8b:39 06            pushi 6 // $6 loop
  0e8d:78               push1 
  0e8e:39 03            pushi 3 // $3 y
  0e90:38 00c5          pushi c5 // $c5 posn
  0e93:7a               push2 
  0e94:38 00c0          pushi c0 // $c0 gx
  0e97:39 47            pushi 47 // $47 wordFail
  0e99:83 0a              lal local10 
  0e9b:4a 0e             send e 

  0e9d:33 18              jmp code_0eb7 

        code_0e9f
  0e9f:3c                 dup 
  0ea0:35 10              ldi 10 
  0ea2:1a                 eq? 
  0ea3:31 12              bnt code_0eb7 
  0ea5:39 06            pushi 6 // $6 loop
  0ea7:78               push1 
  0ea8:39 03            pushi 3 // $3 y
  0eaa:38 00c5          pushi c5 // $c5 posn
  0ead:7a               push2 
  0eae:38 0119          pushi 119 // $119 startExtra
  0eb1:39 5b            pushi 5b // $5b perform
  0eb3:83 0a              lal local10 
  0eb5:4a 0e             send e 


        code_0eb7
  0eb7:3a                toss 
  0eb8:39 07            pushi 7 // $7 cel
  0eba:78               push1 
  0ebb:76               push0 
  0ebc:39 7e            pushi 7e // $7e setCycle
  0ebe:78               push1 
  0ebf:51 1a            class End 
  0ec1:36                push 
  0ec2:83 0a              lal local10 
  0ec4:4a 0c             send c 

  0ec6:39 2b            pushi 2b // $2b number
  0ec8:78               push1 
  0ec9:39 7b            pushi 7b // $7b cycleCnt
  0ecb:39 06            pushi 6 // $6 loop
  0ecd:78               push1 
  0ece:78               push1 
  0ecf:39 2a            pushi 2a // $2a play
  0ed1:76               push0 
  0ed2:72 0e31          lofsa $1d06 // myMusic
  0ed5:4a 10             send 10 

  0ed7:39 06            pushi 6 // $6 loop
  0ed9:78               push1 
  0eda:8b 05              lsl local5 
  0edc:35 02              ldi 2 
  0ede:02                 add 
  0edf:36                push 
  0ee0:81 00              lag gEgo 
  0ee2:4a 06             send 6 

  0ee4:39 07            pushi 7 // $7 cel
  0ee6:78               push1 
  0ee7:78               push1 
  0ee8:89 00              lsg gEgo 
  0eea:43 0e 02         callk NumCels 2 

  0eed:36                push 
  0eee:35 01              ldi 1 
  0ef0:04                 sub 
  0ef1:36                push 
  0ef2:39 7e            pushi 7e // $7e setCycle
  0ef4:7a               push2 
  0ef5:51 1b            class Beg 
  0ef7:36                push 
  0ef8:7c            pushSelf 
  0ef9:81 00              lag gEgo 
  0efb:4a 0e             send e 

  0efd:33 6c              jmp code_0f6b 

        code_0eff
  0eff:3c                 dup 
  0f00:35 05              ldi 5 
  0f02:1a                 eq? 
  0f03:31 23              bnt code_0f28 
  0f05:39 06            pushi 6 // $6 loop
  0f07:78               push1 
  0f08:76               push0 
  0f09:81 00              lag gEgo 
  0f0b:4a 06             send 6 

  0f0d:39 07            pushi 7 // $7 cel
  0f0f:78               push1 
  0f10:78               push1 
  0f11:89 00              lsg gEgo 
  0f13:43 0e 02         callk NumCels 2 

  0f16:36                push 
  0f17:35 01              ldi 1 
  0f19:04                 sub 
  0f1a:36                push 
  0f1b:39 7e            pushi 7e // $7e setCycle
  0f1d:7a               push2 
  0f1e:51 1b            class Beg 
  0f20:36                push 
  0f21:7c            pushSelf 
  0f22:81 00              lag gEgo 
  0f24:4a 0e             send e 

  0f26:33 43              jmp code_0f6b 

        code_0f28
  0f28:3c                 dup 
  0f29:35 06              ldi 6 
  0f2b:1a                 eq? 
  0f2c:31 3d              bnt code_0f6b 
  0f2e:39 05            pushi 5 // $5 view
  0f30:78               push1 
  0f31:76               push0 
  0f32:39 06            pushi 6 // $6 loop
  0f34:78               push1 
  0f35:7a               push2 
  0f36:39 07            pushi 7 // $7 cel
  0f38:78               push1 
  0f39:39 06            pushi 6 // $6 loop
  0f3b:39 7e            pushi 7e // $7e setCycle
  0f3d:78               push1 
  0f3e:51 17            class Walk 
  0f40:36                push 
  0f41:39 12            pushi 12 // $12 illegalBits
  0f43:78               push1 
  0f44:38 8000          pushi 8000 // $8000 sel_32768
  0f47:81 00              lag gEgo 
  0f49:4a 1e             send 1e 

  0f4b:88 00a9            lsg global169 
  0f4e:8b 01              lsl local1 
  0f50:35 08              ldi 8 
  0f52:0e                 shl 
  0f53:36                push 
  0f54:83 01              lal local1 
  0f56:14                  or 
  0f57:14                  or 
  0f58:a0 00a9            sag global169 
  0f5b:76               push0 
  0f5c:45 0f 00         callb procedure_000f 0 // cls 

  0f5f:76               push0 
  0f60:45 04 00         callb procedure_0004 0 // HandsOn 

  0f63:39 7a            pushi 7a // $7a setScript
  0f65:78               push1 
  0f66:76               push0 
  0f67:63 08             pToa client 
  0f69:4a 06             send 6 


        code_0f6b
  0f6b:3a                toss 
  0f6c:48                 ret 
    )

)

// 18a0
(instance CloseVault 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_0f6d
  0f6d:3f 01             link 1 // (var $1)
  0f6f:39 3c            pushi 3c // $3c doit
  0f71:76               push0 
  0f72:57 05 04         super Script 4 

  0f75:67 0a             pTos state 
  0f77:35 02              ldi 2 
  0f79:1a                 eq? 
  0f7a:30 0095            bnt code_1012 
  0f7d:39 07            pushi 7 // $7 cel
  0f7f:76               push0 
  0f80:81 00              lag gEgo 
  0f82:4a 04             send 4 

  0f84:a5 00              sat temp0 
  0f86:36                push 
  0f87:35 02              ldi 2 
  0f89:1e                 gt? 
  0f8a:31 16              bnt code_0fa2 
  0f8c:8d 00              lst temp0 
  0f8e:35 06              ldi 6 
  0f90:22                 lt? 
  0f91:31 0f              bnt code_0fa2 
  0f93:39 07            pushi 7 // $7 cel
  0f95:78               push1 
  0f96:39 05            pushi 5 // $5 view
  0f98:85 00              lat temp0 
  0f9a:04                 sub 
  0f9b:36                push 
  0f9c:83 0a              lal local10 
  0f9e:4a 06             send 6 

  0fa0:33 70              jmp code_1012 

        code_0fa2
  0fa2:8d 00              lst temp0 
  0fa4:35 06              ldi 6 
  0fa6:1a                 eq? 
  0fa7:31 69              bnt code_1012 
  0fa9:8b 01              lsl local1 
  0fab:3c                 dup 
  0fac:35 02              ldi 2 
  0fae:1a                 eq? 
  0faf:31 0e              bnt code_0fbf 
  0fb1:35 2e              ldi 2e 
  0fb3:a3 06              sal local6 
  0fb5:35 57              ldi 57 
  0fb7:a3 07              sal local7 
  0fb9:35 00              ldi 0 
  0fbb:a3 09              sal local9 
  0fbd:33 3d              jmp code_0ffc 

        code_0fbf
  0fbf:3c                 dup 
  0fc0:35 04              ldi 4 
  0fc2:1a                 eq? 
  0fc3:31 0f              bnt code_0fd4 
  0fc5:34 0082            ldi 82 
  0fc8:a3 06              sal local6 
  0fca:35 46              ldi 46 
  0fcc:a3 07              sal local7 
  0fce:35 01              ldi 1 
  0fd0:a3 09              sal local9 
  0fd2:33 28              jmp code_0ffc 

        code_0fd4
  0fd4:3c                 dup 
  0fd5:35 08              ldi 8 
  0fd7:1a                 eq? 
  0fd8:31 0f              bnt code_0fe9 
  0fda:34 00b1            ldi b1 
  0fdd:a3 06              sal local6 
  0fdf:35 47              ldi 47 
  0fe1:a3 07              sal local7 
  0fe3:35 02              ldi 2 
  0fe5:a3 09              sal local9 
  0fe7:33 13              jmp code_0ffc 

        code_0fe9
  0fe9:3c                 dup 
  0fea:35 10              ldi 10 
  0fec:1a                 eq? 
  0fed:31 0d              bnt code_0ffc 
  0fef:34 010a            ldi 10a 
  0ff2:a3 06              sal local6 
  0ff4:35 5b              ldi 5b 
  0ff6:a3 07              sal local7 
  0ff8:35 03              ldi 3 
  0ffa:a3 09              sal local9 

        code_0ffc
  0ffc:3a                toss 
  0ffd:39 06            pushi 6 // $6 loop
  0fff:78               push1 
  1000:78               push1 
  1001:39 07            pushi 7 // $7 cel
  1003:78               push1 
  1004:8b 09              lsl local9 
  1006:38 00c5          pushi c5 // $c5 posn
  1009:7a               push2 
  100a:8b 06              lsl local6 
  100c:8b 07              lsl local7 
  100e:83 0a              lal local10 
  1010:4a 14             send 14 


        code_1012
  1012:48                 ret 
    )

    (method (changeState) // method_1013
  1013:87 01              lap param1 
  1015:65 0a             aTop state 
  1017:36                push 
  1018:3c                 dup 
  1019:35 00              ldi 0 
  101b:1a                 eq? 
  101c:30 00c3            bnt code_10e2 
  101f:88 00a9            lsg global169 
  1022:83 00              lal local0 
  1024:12                 and 
  1025:30 00a1            bnt code_10c9 
  1028:76               push0 
  1029:45 03 00         callb procedure_0003 0 // HandsOff 

  102c:83 00              lal local0 
  102e:a3 01              sal local1 
  1030:88 00a9            lsg global169 
  1033:83 00              lal local0 
  1035:00                bnot 
  1036:12                 and 
  1037:a0 00a9            sag global169 
  103a:76               push0 
  103b:45 16 00         callb procedure_0016 0 // Ok 

  103e:8b 01              lsl local1 
  1040:3c                 dup 
  1041:35 02              ldi 2 
  1043:1a                 eq? 
  1044:31 17              bnt code_105d 
  1046:35 35              ldi 35 
  1048:a3 06              sal local6 
  104a:35 73              ldi 73 
  104c:a3 07              sal local7 
  104e:35 00              ldi 0 
  1050:a3 08              sal local8 
  1052:72 0963          lofsa $19b8 // marysCover
  1055:a3 0a              sal local10 
  1057:35 0f              ldi f 
  1059:a3 0b              sal local11 
  105b:33 58              jmp code_10b5 

        code_105d
  105d:3c                 dup 
  105e:35 04              ldi 4 
  1060:1a                 eq? 
  1061:31 18              bnt code_107b 
  1063:34 0092            ldi 92 
  1066:a3 06              sal local6 
  1068:35 63              ldi 63 
  106a:a3 07              sal local7 
  106c:35 00              ldi 0 
  106e:a3 08              sal local8 
  1070:72 0997          lofsa $1a0a // rubysCover
  1073:a3 0a              sal local10 
  1075:35 0f              ldi f 
  1077:a3 0b              sal local11 
  1079:33 3a              jmp code_10b5 

        code_107b
  107b:3c                 dup 
  107c:35 08              ldi 8 
  107e:1a                 eq? 
  107f:31 18              bnt code_1099 
  1081:34 00a9            ldi a9 
  1084:a3 06              sal local6 
  1086:35 64              ldi 64 
  1088:a3 07              sal local7 
  108a:35 01              ldi 1 
  108c:a3 08              sal local8 
  108e:72 09cb          lofsa $1a5c // tomsCover
  1091:a3 0a              sal local10 
  1093:35 f1              ldi f1 
  1095:a3 0b              sal local11 
  1097:33 1c              jmp code_10b5 

        code_1099
  1099:3c                 dup 
  109a:35 10              ldi 10 
  109c:1a                 eq? 
  109d:31 16              bnt code_10b5 
  109f:34 0104            ldi 104 
  10a2:a3 06              sal local6 
  10a4:35 79              ldi 79 
  10a6:a3 07              sal local7 
  10a8:35 01              ldi 1 
  10aa:a3 08              sal local8 
  10ac:72 09ff          lofsa $1aae // claudesCover
  10af:a3 0a              sal local10 
  10b1:35 f1              ldi f1 
  10b3:a3 0b              sal local11 

        code_10b5
  10b5:3a                toss 
  10b6:38 00d3          pushi d3 // $d3 setMotion
  10b9:39 04            pushi 4 // $4 x
  10bb:51 1d            class MoveTo 
  10bd:36                push 
  10be:8b 06              lsl local6 
  10c0:8b 07              lsl local7 
  10c2:7c            pushSelf 
  10c3:81 00              lag gEgo 
  10c5:4a 0c             send c 

  10c7:33 16              jmp code_10df 

        code_10c9
  10c9:39 12            pushi 12 // $12 illegalBits
  10cb:78               push1 
  10cc:38 8000          pushi 8000 // $8000 sel_32768
  10cf:81 00              lag gEgo 
  10d1:4a 06             send 6 

  10d3:76               push0 
  10d4:45 11 00         callb procedure_0011 0 // AlreadyClosed 

  10d7:39 7a            pushi 7a // $7a setScript
  10d9:78               push1 
  10da:76               push0 
  10db:63 08             pToa client 
  10dd:4a 06             send 6 


        code_10df
  10df:32 009a            jmp code_117c 

        code_10e2
  10e2:3c                 dup 
  10e3:35 01              ldi 1 
  10e5:1a                 eq? 
  10e6:31 17              bnt code_10ff 
  10e8:39 05            pushi 5 // $5 view
  10ea:78               push1 
  10eb:76               push0 
  10ec:39 06            pushi 6 // $6 loop
  10ee:78               push1 
  10ef:39 03            pushi 3 // $3 y
  10f1:39 07            pushi 7 // $7 cel
  10f3:78               push1 
  10f4:76               push0 
  10f5:81 00              lag gEgo 
  10f7:4a 12             send 12 

  10f9:35 01              ldi 1 
  10fb:65 10             aTop cycles 
  10fd:33 7d              jmp code_117c 

        code_10ff
  10ff:3c                 dup 
  1100:35 02              ldi 2 
  1102:1a                 eq? 
  1103:31 2c              bnt code_1131 
  1105:39 05            pushi 5 // $5 view
  1107:78               push1 
  1108:39 1e            pushi 1e // $1e mode
  110a:39 06            pushi 6 // $6 loop
  110c:78               push1 
  110d:8b 08              lsl local8 
  110f:39 07            pushi 7 // $7 cel
  1111:78               push1 
  1112:76               push0 
  1113:39 7e            pushi 7e // $7e setCycle
  1115:7a               push2 
  1116:51 1a            class End 
  1118:36                push 
  1119:7c            pushSelf 
  111a:81 00              lag gEgo 
  111c:4a 1a             send 1a 

  111e:39 2b            pushi 2b // $2b number
  1120:78               push1 
  1121:39 7b            pushi 7b // $7b cycleCnt
  1123:39 06            pushi 6 // $6 loop
  1125:78               push1 
  1126:78               push1 
  1127:39 2a            pushi 2a // $2a play
  1129:76               push0 
  112a:72 0bd9          lofsa $1d06 // myMusic
  112d:4a 10             send 10 

  112f:33 4b              jmp code_117c 

        code_1131
  1131:3c                 dup 
  1132:35 03              ldi 3 
  1134:1a                 eq? 
  1135:31 45              bnt code_117c 
  1137:39 05            pushi 5 // $5 view
  1139:78               push1 
  113a:76               push0 
  113b:39 06            pushi 6 // $6 loop
  113d:78               push1 
  113e:7a               push2 
  113f:39 07            pushi 7 // $7 cel
  1141:78               push1 
  1142:39 06            pushi 6 // $6 loop
  1144:38 00c5          pushi c5 // $c5 posn
  1147:7a               push2 
  1148:39 04            pushi 4 // $4 x
  114a:76               push0 
  114b:81 00              lag gEgo 
  114d:4a 04             send 4 

  114f:36                push 
  1150:83 0b              lal local11 
  1152:02                 add 
  1153:36                push 
  1154:39 03            pushi 3 // $3 y
  1156:76               push0 
  1157:81 00              lag gEgo 
  1159:4a 04             send 4 

  115b:36                push 
  115c:35 03              ldi 3 
  115e:02                 add 
  115f:36                push 
  1160:39 7e            pushi 7e // $7e setCycle
  1162:78               push1 
  1163:51 17            class Walk 
  1165:36                push 
  1166:39 12            pushi 12 // $12 illegalBits
  1168:78               push1 
  1169:38 8000          pushi 8000 // $8000 sel_32768
  116c:81 00              lag gEgo 
  116e:4a 26             send 26 

  1170:76               push0 
  1171:45 04 00         callb procedure_0004 0 // HandsOn 

  1174:39 7a            pushi 7a // $7a setScript
  1176:78               push1 
  1177:76               push0 
  1178:63 08             pToa client 
  117a:4a 06             send 6 


        code_117c
  117c:3a                toss 
  117d:48                 ret 
    )

)

// 18d4
(instance RollSkull 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_117e
  117e:87 01              lap param1 
  1180:65 0a             aTop state 
  1182:36                push 
  1183:3c                 dup 
  1184:35 00              ldi 0 
  1186:1a                 eq? 
  1187:31 34              bnt code_11bd 
  1189:38 00a3          pushi a3 // $a3 startUpd
  118c:76               push0 
  118d:39 42            pushi 42 // $42 setPri
  118f:78               push1 
  1190:39 0f            pushi f // $f lsBottom
  1192:38 00dc          pushi dc // $dc setStep
  1195:7a               push2 
  1196:39 06            pushi 6 // $6 loop
  1198:39 04            pushi 4 // $4 x
  119a:39 7e            pushi 7e // $7e setCycle
  119c:78               push1 
  119d:51 16            class Fwd 
  119f:36                push 
  11a0:39 38            pushi 38 // $38 moveSpeed
  11a2:78               push1 
  11a3:76               push0 
  11a4:38 00a4          pushi a4 // $a4 cycleSpeed
  11a7:78               push1 
  11a8:76               push0 
  11a9:38 00d3          pushi d3 // $d3 setMotion
  11ac:39 04            pushi 4 // $4 x
  11ae:51 1d            class MoveTo 
  11b0:36                push 
  11b1:39 4b            pushi 4b // $4b said
  11b3:39 75            pushi 75 // $75 register
  11b5:7c            pushSelf 
  11b6:72 09e7          lofsa $1ba0 // skull
  11b9:4a 30             send 30 

  11bb:33 75              jmp code_1232 

        code_11bd
  11bd:3c                 dup 
  11be:35 01              ldi 1 
  11c0:1a                 eq? 
  11c1:31 25              bnt code_11e8 
  11c3:39 2b            pushi 2b // $2b number
  11c5:78               push1 
  11c6:39 7a            pushi 7a // $7a setScript
  11c8:39 06            pushi 6 // $6 loop
  11ca:78               push1 
  11cb:78               push1 
  11cc:39 2a            pushi 2a // $2a play
  11ce:76               push0 
  11cf:72 0b34          lofsa $1d06 // myMusic
  11d2:4a 10             send 10 

  11d4:38 00d3          pushi d3 // $d3 setMotion
  11d7:39 04            pushi 4 // $4 x
  11d9:51 23            class JumpTo 
  11db:36                push 
  11dc:39 5a            pushi 5a // $5a showSelf
  11de:39 75            pushi 75 // $75 register
  11e0:7c            pushSelf 
  11e1:72 09bc          lofsa $1ba0 // skull
  11e4:4a 0c             send c 

  11e6:33 4a              jmp code_1232 

        code_11e8
  11e8:3c                 dup 
  11e9:35 02              ldi 2 
  11eb:1a                 eq? 
  11ec:31 2d              bnt code_121b 
  11ee:39 2b            pushi 2b // $2b number
  11f0:78               push1 
  11f1:39 7c            pushi 7c // $7c lastTime
  11f3:39 06            pushi 6 // $6 loop
  11f5:78               push1 
  11f6:78               push1 
  11f7:39 2a            pushi 2a // $2a play
  11f9:76               push0 
  11fa:72 0b09          lofsa $1d06 // myMusic
  11fd:4a 10             send 10 

  11ff:39 06            pushi 6 // $6 loop
  1201:78               push1 
  1202:39 06            pushi 6 // $6 loop
  1204:39 07            pushi 7 // $7 cel
  1206:78               push1 
  1207:76               push0 
  1208:39 42            pushi 42 // $42 setPri
  120a:78               push1 
  120b:39 ff            pushi ff // $ff checkAni
  120d:39 7e            pushi 7e // $7e setCycle
  120f:7a               push2 
  1210:51 1a            class End 
  1212:36                push 
  1213:7c            pushSelf 
  1214:72 0989          lofsa $1ba0 // skull
  1217:4a 1a             send 1a 

  1219:33 17              jmp code_1232 

        code_121b
  121b:3c                 dup 
  121c:35 03              ldi 3 
  121e:1a                 eq? 
  121f:31 11              bnt code_1232 
  1221:38 00c6          pushi c6 // $c6 stopUpd
  1224:76               push0 
  1225:72 0978          lofsa $1ba0 // skull
  1228:4a 04             send 4 

  122a:39 7a            pushi 7a // $7a setScript
  122c:78               push1 
  122d:76               push0 
  122e:63 08             pToa client 
  1230:4a 06             send 6 


        code_1232
  1232:3a                toss 
  1233:48                 ret 
    )

)

// 1904
(instance GettingIn 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_1234
  1234:87 01              lap param1 
  1236:65 0a             aTop state 
  1238:36                push 
  1239:3c                 dup 
  123a:35 00              ldi 0 
  123c:1a                 eq? 
  123d:31 21              bnt code_1260 
  123f:35 00              ldi 0 
  1241:a3 0d              sal local13 
  1243:76               push0 
  1244:45 03 00         callb procedure_0003 0 // HandsOff 

  1247:39 12            pushi 12 // $12 illegalBits
  1249:78               push1 
  124a:76               push0 
  124b:38 00d3          pushi d3 // $d3 setMotion
  124e:39 04            pushi 4 // $4 x
  1250:51 1d            class MoveTo 
  1252:36                push 
  1253:38 00b0          pushi b0 // $b0 pickLoop
  1256:39 6d            pushi 6d // $6d addAfter
  1258:7c            pushSelf 
  1259:81 00              lag gEgo 
  125b:4a 12             send 12 

  125d:32 00fd            jmp code_135d 

        code_1260
  1260:3c                 dup 
  1261:35 01              ldi 1 
  1263:1a                 eq? 
  1264:31 2e              bnt code_1294 
  1266:39 05            pushi 5 // $5 view
  1268:78               push1 
  1269:39 1c            pushi 1c // $1c color
  126b:39 06            pushi 6 // $6 loop
  126d:78               push1 
  126e:76               push0 
  126f:39 07            pushi 7 // $7 cel
  1271:78               push1 
  1272:76               push0 
  1273:38 00c5          pushi c5 // $c5 posn
  1276:7a               push2 
  1277:38 00b0          pushi b0 // $b0 pickLoop
  127a:39 6b            pushi 6b // $6b addToFront
  127c:39 42            pushi 42 // $42 setPri
  127e:78               push1 
  127f:39 08            pushi 8 // $8 underBits
  1281:38 00a4          pushi a4 // $a4 cycleSpeed
  1284:78               push1 
  1285:7a               push2 
  1286:39 7e            pushi 7e // $7e setCycle
  1288:7a               push2 
  1289:51 1a            class End 
  128b:36                push 
  128c:7c            pushSelf 
  128d:81 00              lag gEgo 
  128f:4a 2e             send 2e 

  1291:32 00c9            jmp code_135d 

        code_1294
  1294:3c                 dup 
  1295:35 02              ldi 2 
  1297:1a                 eq? 
  1298:31 5e              bnt code_12f8 
  129a:39 05            pushi 5 // $5 view
  129c:78               push1 
  129d:39 1b            pushi 1b // $1b elements
  129f:38 00c5          pushi c5 // $c5 posn
  12a2:7a               push2 
  12a3:38 00a7          pushi a7 // $a7 isStopped
  12a6:39 51            pushi 51 // $51 button
  12a8:81 00              lag gEgo 
  12aa:4a 0e             send e 

  12ac:38 00ee          pushi ee // $ee has
  12af:78               push1 
  12b0:7a               push2 
  12b1:81 00              lag gEgo 
  12b3:4a 06             send 6 

  12b5:31 07              bnt code_12be 
  12b7:39 79            pushi 79 // $79 cue
  12b9:76               push0 
  12ba:54 04             self 4 

  12bc:33 38              jmp code_12f6 

        code_12be
  12be:39 06            pushi 6 // $6 loop
  12c0:78               push1 
  12c1:76               push0 
  12c2:38 00a4          pushi a4 // $a4 cycleSpeed
  12c5:78               push1 
  12c6:78               push1 
  12c7:81 00              lag gEgo 
  12c9:4a 0c             send c 

  12cb:39 07            pushi 7 // $7 cel
  12cd:78               push1 
  12ce:78               push1 
  12cf:89 00              lsg gEgo 
  12d1:43 0e 02         callk NumCels 2 

  12d4:36                push 
  12d5:35 01              ldi 1 
  12d7:04                 sub 
  12d8:36                push 
  12d9:39 7e            pushi 7e // $7e setCycle
  12db:7a               push2 
  12dc:51 1b            class Beg 
  12de:36                push 
  12df:7c            pushSelf 
  12e0:81 00              lag gEgo 
  12e2:4a 0e             send e 

  12e4:38 00ec          pushi ec // $ec get
  12e7:78               push1 
  12e8:7a               push2 
  12e9:81 00              lag gEgo 
  12eb:4a 06             send 6 

  12ed:38 0089          pushi 89 // $89 hide
  12f0:76               push0 
  12f1:72 085e          lofsa $1b52 // lantern
  12f4:4a 04             send 4 


        code_12f6
  12f6:33 65              jmp code_135d 

        code_12f8
  12f8:3c                 dup 
  12f9:35 03              ldi 3 
  12fb:1a                 eq? 
  12fc:31 29              bnt code_1327 
  12fe:39 06            pushi 6 // $6 loop
  1300:78               push1 
  1301:39 04            pushi 4 // $4 x
  1303:38 00a4          pushi a4 // $a4 cycleSpeed
  1306:78               push1 
  1307:7a               push2 
  1308:81 00              lag gEgo 
  130a:4a 0c             send c 

  130c:39 07            pushi 7 // $7 cel
  130e:78               push1 
  130f:78               push1 
  1310:89 00              lsg gEgo 
  1312:43 0e 02         callk NumCels 2 

  1315:36                push 
  1316:35 01              ldi 1 
  1318:04                 sub 
  1319:36                push 
  131a:39 7e            pushi 7e // $7e setCycle
  131c:7a               push2 
  131d:51 1b            class Beg 
  131f:36                push 
  1320:7c            pushSelf 
  1321:81 00              lag gEgo 
  1323:4a 0e             send e 

  1325:33 36              jmp code_135d 

        code_1327
  1327:3c                 dup 
  1328:35 04              ldi 4 
  132a:1a                 eq? 
  132b:31 30              bnt code_135d 
  132d:39 42            pushi 42 // $42 setPri
  132f:78               push1 
  1330:39 ff            pushi ff // $ff checkAni
  1332:38 00a4          pushi a4 // $a4 cycleSpeed
  1335:78               push1 
  1336:76               push0 
  1337:39 12            pushi 12 // $12 illegalBits
  1339:78               push1 
  133a:38 8000          pushi 8000 // $8000 sel_32768
  133d:39 7e            pushi 7e // $7e setCycle
  133f:78               push1 
  1340:51 17            class Walk 
  1342:36                push 
  1343:81 00              lag gEgo 
  1345:4a 18             send 18 

  1347:76               push0 
  1348:45 04 00         callb procedure_0004 0 // HandsOn 

  134b:39 7a            pushi 7a // $7a setScript
  134d:78               push1 
  134e:76               push0 
  134f:63 08             pToa client 
  1351:4a 06             send 6 

  1353:38 00f8          pushi f8 // $f8 newRoom
  1356:78               push1 
  1357:39 38            pushi 38 // $38 moveSpeed
  1359:81 02              lag gCurRoom 
  135b:4a 06             send 6 


        code_135d
  135d:3a                toss 
  135e:48                 ret 
    )

)

// 1934
(instance GettingOut 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_135f
  135f:87 01              lap param1 
  1361:65 0a             aTop state 
  1363:36                push 
  1364:3c                 dup 
  1365:35 00              ldi 0 
  1367:1a                 eq? 
  1368:31 3b              bnt code_13a5 
  136a:35 00              ldi 0 
  136c:a3 0d              sal local13 
  136e:76               push0 
  136f:45 03 00         callb procedure_0003 0 // HandsOff 

  1372:39 05            pushi 5 // $5 view
  1374:78               push1 
  1375:39 1b            pushi 1b // $1b elements
  1377:39 06            pushi 6 // $6 loop
  1379:78               push1 
  137a:39 04            pushi 4 // $4 x
  137c:39 07            pushi 7 // $7 cel
  137e:78               push1 
  137f:76               push0 
  1380:39 12            pushi 12 // $12 illegalBits
  1382:78               push1 
  1383:76               push0 
  1384:38 00c5          pushi c5 // $c5 posn
  1387:7a               push2 
  1388:38 00a7          pushi a7 // $a7 isStopped
  138b:39 51            pushi 51 // $51 button
  138d:39 42            pushi 42 // $42 setPri
  138f:78               push1 
  1390:39 08            pushi 8 // $8 underBits
  1392:38 00a4          pushi a4 // $a4 cycleSpeed
  1395:78               push1 
  1396:7a               push2 
  1397:39 7e            pushi 7e // $7e setCycle
  1399:7a               push2 
  139a:51 1a            class End 
  139c:36                push 
  139d:7c            pushSelf 
  139e:81 00              lag gEgo 
  13a0:4a 34             send 34 

  13a2:32 00cf            jmp code_1474 

        code_13a5
  13a5:3c                 dup 
  13a6:35 01              ldi 1 
  13a8:1a                 eq? 
  13a9:31 1b              bnt code_13c6 
  13ab:39 06            pushi 6 // $6 loop
  13ad:78               push1 
  13ae:76               push0 
  13af:39 07            pushi 7 // $7 cel
  13b1:78               push1 
  13b2:76               push0 
  13b3:38 00a4          pushi a4 // $a4 cycleSpeed
  13b6:78               push1 
  13b7:78               push1 
  13b8:39 7e            pushi 7e // $7e setCycle
  13ba:7a               push2 
  13bb:51 1a            class End 
  13bd:36                push 
  13be:7c            pushSelf 
  13bf:81 00              lag gEgo 
  13c1:4a 1a             send 1a 

  13c3:32 00ae            jmp code_1474 

        code_13c6
  13c6:3c                 dup 
  13c7:35 02              ldi 2 
  13c9:1a                 eq? 
  13ca:31 3b              bnt code_1407 
  13cc:39 05            pushi 5 // $5 view
  13ce:78               push1 
  13cf:39 1c            pushi 1c // $1c color
  13d1:39 06            pushi 6 // $6 loop
  13d3:78               push1 
  13d4:76               push0 
  13d5:38 00c5          pushi c5 // $c5 posn
  13d8:7a               push2 
  13d9:38 00b0          pushi b0 // $b0 pickLoop
  13dc:39 6b            pushi 6b // $6b addToFront
  13de:38 00a4          pushi a4 // $a4 cycleSpeed
  13e1:78               push1 
  13e2:7a               push2 
  13e3:81 00              lag gEgo 
  13e5:4a 1a             send 1a 

  13e7:39 07            pushi 7 // $7 cel
  13e9:78               push1 
  13ea:78               push1 
  13eb:89 00              lsg gEgo 
  13ed:43 0e 02         callk NumCels 2 

  13f0:36                push 
  13f1:35 01              ldi 1 
  13f3:04                 sub 
  13f4:36                push 
  13f5:39 7e            pushi 7e // $7e setCycle
  13f7:7a               push2 
  13f8:51 1b            class Beg 
  13fa:36                push 
  13fb:7c            pushSelf 
  13fc:81 00              lag gEgo 
  13fe:4a 0e             send e 

  1400:76               push0 
  1401:40 ecbc 00        call proc_00c1 0 

  1405:33 6d              jmp code_1474 

        code_1407
  1407:3c                 dup 
  1408:35 03              ldi 3 
  140a:1a                 eq? 
  140b:31 3a              bnt code_1447 
  140d:39 05            pushi 5 // $5 view
  140f:78               push1 
  1410:76               push0 
  1411:39 06            pushi 6 // $6 loop
  1413:78               push1 
  1414:39 03            pushi 3 // $3 y
  1416:39 07            pushi 7 // $7 cel
  1418:78               push1 
  1419:76               push0 
  141a:38 00c5          pushi c5 // $c5 posn
  141d:7a               push2 
  141e:38 00b0          pushi b0 // $b0 pickLoop
  1421:39 6d            pushi 6d // $6d addAfter
  1423:39 42            pushi 42 // $42 setPri
  1425:78               push1 
  1426:39 ff            pushi ff // $ff checkAni
  1428:38 00a4          pushi a4 // $a4 cycleSpeed
  142b:78               push1 
  142c:76               push0 
  142d:39 7e            pushi 7e // $7e setCycle
  142f:78               push1 
  1430:51 17            class Walk 
  1432:36                push 
  1433:38 00d3          pushi d3 // $d3 setMotion
  1436:39 04            pushi 4 // $4 x
  1438:51 1d            class MoveTo 
  143a:36                push 
  143b:38 009b          pushi 9b // $9b bottom
  143e:39 7c            pushi 7c // $7c lastTime
  1440:7c            pushSelf 
  1441:81 00              lag gEgo 
  1443:4a 38             send 38 

  1445:33 2d              jmp code_1474 

        code_1447
  1447:3c                 dup 
  1448:35 04              ldi 4 
  144a:1a                 eq? 
  144b:31 27              bnt code_1474 
  144d:39 12            pushi 12 // $12 illegalBits
  144f:78               push1 
  1450:38 8000          pushi 8000 // $8000 sel_32768
  1453:81 00              lag gEgo 
  1455:4a 06             send 6 

  1457:76               push0 
  1458:45 04 00         callb procedure_0004 0 // HandsOn 

  145b:83 0e              lal local14 
  145d:31 05              bnt code_1464 
  145f:76               push0 
  1460:40 ebba 00        call proc_001e 0 


        code_1464
  1464:35 01              ldi 1 
  1466:a3 0d              sal local13 
  1468:35 00              ldi 0 
  146a:a3 0e              sal local14 
  146c:39 7a            pushi 7a // $7a setScript
  146e:78               push1 
  146f:76               push0 
  1470:63 08             pToa client 
  1472:4a 06             send 6 


        code_1474
  1474:3a                toss 
  1475:48                 ret 
    )

)

// 1964
(instance lid of Prop
    (properties
        y $0
        x $0
        z $0
        heading $0
        yStep $2
        view $0
        loop $0
        cel $0
        priority $0
        underBits $0
        signal $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
        lsTop $0
        lsLeft $0
        lsBottom $0
        lsRight $0
        brTop $0
        brLeft $0
        brBottom $0
        brRight $0
        cycleSpeed $0
        script $0
        cycler $0
        timer $0
    )
)

// 19b2
(instance marysCover of Prop
    (properties
        y $0
        x $0
        z $0
        heading $0
        yStep $2
        view $0
        loop $0
        cel $0
        priority $0
        underBits $0
        signal $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
        lsTop $0
        lsLeft $0
        lsBottom $0
        lsRight $0
        brTop $0
        brLeft $0
        brBottom $0
        brRight $0
        cycleSpeed $0
        script $0
        cycler $0
        timer $0
    )
    (method (handleEvent) // method_1476
  1476:39 03            pushi 3 // $3 y
  1478:7c            pushSelf 
  1479:8f 01              lsp param1 
  147b:39 03            pushi 3 // $3 y
  147d:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  1483:31 13              bnt code_1498 
  1485:39 4c            pushi 4c // $4c claimed
  1487:78               push1 
  1488:78               push1 
  1489:87 01              lap param1 
  148b:4a 06             send 6 

  148d:7a               push2 
  148e:39 39            pushi 39 // $39 canBeHere
  1490:39 04            pushi 4 // $4 x
  1492:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_1498
  1498:48                 ret 
    )

)

// 1a04
(instance rubysCover of Prop
    (properties
        y $0
        x $0
        z $0
        heading $0
        yStep $2
        view $0
        loop $0
        cel $0
        priority $0
        underBits $0
        signal $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
        lsTop $0
        lsLeft $0
        lsBottom $0
        lsRight $0
        brTop $0
        brLeft $0
        brBottom $0
        brRight $0
        cycleSpeed $0
        script $0
        cycler $0
        timer $0
    )
    (method (handleEvent) // method_1499
  1499:39 03            pushi 3 // $3 y
  149b:7c            pushSelf 
  149c:8f 01              lsp param1 
  149e:39 03            pushi 3 // $3 y
  14a0:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  14a6:31 13              bnt code_14bb 
  14a8:39 4c            pushi 4c // $4c claimed
  14aa:78               push1 
  14ab:78               push1 
  14ac:87 01              lap param1 
  14ae:4a 06             send 6 

  14b0:7a               push2 
  14b1:39 39            pushi 39 // $39 canBeHere
  14b3:39 05            pushi 5 // $5 view
  14b5:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_14bb
  14bb:48                 ret 
    )

)

// 1a56
(instance tomsCover of Prop
    (properties
        y $0
        x $0
        z $0
        heading $0
        yStep $2
        view $0
        loop $0
        cel $0
        priority $0
        underBits $0
        signal $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
        lsTop $0
        lsLeft $0
        lsBottom $0
        lsRight $0
        brTop $0
        brLeft $0
        brBottom $0
        brRight $0
        cycleSpeed $0
        script $0
        cycler $0
        timer $0
    )
    (method (handleEvent) // method_14bc
  14bc:39 03            pushi 3 // $3 y
  14be:7c            pushSelf 
  14bf:8f 01              lsp param1 
  14c1:39 03            pushi 3 // $3 y
  14c3:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  14c9:31 13              bnt code_14de 
  14cb:39 4c            pushi 4c // $4c claimed
  14cd:78               push1 
  14ce:78               push1 
  14cf:87 01              lap param1 
  14d1:4a 06             send 6 

  14d3:7a               push2 
  14d4:39 39            pushi 39 // $39 canBeHere
  14d6:39 06            pushi 6 // $6 loop
  14d8:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_14de
  14de:48                 ret 
    )

)

// 1aa8
(instance claudesCover of Prop
    (properties
        y $0
        x $0
        z $0
        heading $0
        yStep $2
        view $0
        loop $0
        cel $0
        priority $0
        underBits $0
        signal $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
        lsTop $0
        lsLeft $0
        lsBottom $0
        lsRight $0
        brTop $0
        brLeft $0
        brBottom $0
        brRight $0
        cycleSpeed $0
        script $0
        cycler $0
        timer $0
    )
    (method (handleEvent) // method_14df
  14df:39 03            pushi 3 // $3 y
  14e1:7c            pushSelf 
  14e2:8f 01              lsp param1 
  14e4:39 03            pushi 3 // $3 y
  14e6:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

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

  14f6:7a               push2 
  14f7:39 39            pushi 39 // $39 canBeHere
  14f9:39 07            pushi 7 // $7 cel
  14fb:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_1501
  1501:48                 ret 
    )

)

// 1afa
(instance pouch of Prop
    (properties
        y $3f
        x $7c
        z $0
        heading $0
        yStep $2
        view $9d
        loop $4
        cel $1
        priority $0
        underBits $0
        signal $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
        lsTop $0
        lsLeft $0
        lsBottom $0
        lsRight $0
        brTop $0
        brLeft $0
        brBottom $0
        brRight $0
        cycleSpeed $0
        script $0
        cycler $0
        timer $0
    )
    (method (handleEvent) // method_1502
  1502:78               push1 
  1503:74 028f          lofss $1795 // get/bourse
  1506:43 25 02         callk Said 2 

  1509:31 47              bnt code_1552 
  150b:38 00db          pushi db // $db onControl
  150e:78               push1 
  150f:76               push0 
  1510:81 00              lag gEgo 
  1512:4a 06             send 6 

  1514:36                push 
  1515:35 04              ldi 4 
  1517:12                 and 
  1518:31 24              bnt code_153e 
  151a:35 01              ldi 1 
  151c:a0 00b6            sag global182 
  151f:38 00ec          pushi ec // $ec get
  1522:78               push1 
  1523:39 16            pushi 16 // $16 brRight
  1525:81 00              lag gEgo 
  1527:4a 06             send 6 

  1529:39 58            pushi 58 // $58 dispose
  152b:76               push0 
  152c:72 05d1          lofsa $1b00 // pouch
  152f:4a 04             send 4 

  1531:7a               push2 
  1532:39 39            pushi 39 // $39 canBeHere
  1534:39 27            pushi 27 // $27 who
  1536:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  153c:33 12              jmp code_1550 

        code_153e
  153e:88 00a9            lsg global169 
  1541:35 04              ldi 4 
  1543:12                 and 
  1544:31 06              bnt code_154c 
  1546:76               push0 
  1547:45 09 00         callb procedure_0009 0 // NotClose 

  154a:33 04              jmp code_1550 

        code_154c
  154c:76               push0 
  154d:45 12 00         callb procedure_0012 0 // NotHere 


        code_1550
  1550:33 22              jmp code_1574 

        code_1552
  1552:39 03            pushi 3 // $3 y
  1554:7c            pushSelf 
  1555:8f 01              lsp param1 
  1557:39 03            pushi 3 // $3 y
  1559:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  155f:31 13              bnt code_1574 
  1561:39 4c            pushi 4c // $4c claimed
  1563:78               push1 
  1564:78               push1 
  1565:87 01              lap param1 
  1567:4a 06             send 6 

  1569:7a               push2 
  156a:39 39            pushi 39 // $39 canBeHere
  156c:39 1a            pushi 1a // $1a text
  156e:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_1574
  1574:48                 ret 
    )

)

// 1b4c
(instance lantern of Prop
    (properties
        y $0
        x $0
        z $0
        heading $0
        yStep $2
        view $0
        loop $0
        cel $0
        priority $0
        underBits $0
        signal $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
        lsTop $0
        lsLeft $0
        lsBottom $0
        lsRight $0
        brTop $0
        brLeft $0
        brBottom $0
        brRight $0
        cycleSpeed $0
        script $0
        cycler $0
        timer $0
    )
)

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

// 1bfe
(instance skeleton of PV
    (properties
        y $51
        x $28
        z $0
        heading $0
        view $9d
        loop $4
        cel $0
        priority $1
        signal $0
    )
)

// 1c28
(instance casket of PV
    (properties
        y $42
        x $b6
        z $0
        heading $0
        view $9d
        loop $4
        cel $2
        priority $1
        signal $0
    )
)

// 1c52
(instance skeletons of PV
    (properties
        y $57
        x $110
        z $0
        heading $0
        view $9d
        loop $4
        cel $3
        priority $1
        signal $0
    )
)

// 1c7c
(instance Window1 of RFeature
    (properties
        y $0
        x $0
        z $0
        heading $0
        nsTop $d
        nsLeft $48
        nsBottom $3b
        nsRight $69
    )
    (method (handleEvent) // method_1575
  1575:78               push1 
  1576:74 0246          lofss $17bf // look/fenetre
  1579:43 25 02         callk Said 2 

  157c:2f 18               bt code_1596 
  157e:78               push1 
  157f:74 022e          lofss $17b0 // look/glass<stained
  1582:43 25 02         callk Said 2 

  1585:2f 0f               bt code_1596 
  1587:39 03            pushi 3 // $3 y
  1589:7c            pushSelf 
  158a:8f 01              lsp param1 
  158c:39 03            pushi 3 // $3 y
  158e:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  1594:31 13              bnt code_15a9 

        code_1596
  1596:7a               push2 
  1597:39 39            pushi 39 // $39 canBeHere
  1599:39 28            pushi 28 // $28 message
  159b:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  15a1:39 4c            pushi 4c // $4c claimed
  15a3:78               push1 
  15a4:78               push1 
  15a5:87 01              lap param1 
  15a7:4a 06             send 6 


        code_15a9
  15a9:48                 ret 
    )

)

// 1ca8
(instance Window2 of RFeature
    (properties
        y $0
        x $0
        z $0
        heading $0
        nsTop $c
        nsLeft $cb
        nsBottom $3d
        nsRight $f0
    )
    (method (handleEvent) // method_15aa
  15aa:39 03            pushi 3 // $3 y
  15ac:7c            pushSelf 
  15ad:8f 01              lsp param1 
  15af:39 03            pushi 3 // $3 y
  15b1:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  15b7:31 13              bnt code_15cc 
  15b9:7a               push2 
  15ba:39 39            pushi 39 // $39 canBeHere
  15bc:39 28            pushi 28 // $28 message
  15be:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  15c4:39 4c            pushi 4c // $4c claimed
  15c6:78               push1 
  15c7:78               push1 
  15c8:87 01              lap param1 
  15ca:4a 06             send 6 


        code_15cc
  15cc:48                 ret 
    )

)

// 1cd4
(instance Box of RFeature
    (properties
        y $0
        x $0
        z $0
        heading $0
        nsTop $4b
        nsLeft $99
        nsBottom $77
        nsRight $1c
    )
    (method (handleEvent) // method_15cd
  15cd:39 03            pushi 3 // $3 y
  15cf:7c            pushSelf 
  15d0:8f 01              lsp param1 
  15d2:39 03            pushi 3 // $3 y
  15d4:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  15da:2f 09               bt code_15e5 
  15dc:78               push1 
  15dd:74 01d9          lofss $17b9 // look/sarcophage
  15e0:43 25 02         callk Said 2 

  15e3:31 13              bnt code_15f8 

        code_15e5
  15e5:7a               push2 
  15e6:39 39            pushi 39 // $39 canBeHere
  15e8:39 29            pushi 29 // $29 edit
  15ea:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  15f0:39 4c            pushi 4c // $4c claimed
  15f2:78               push1 
  15f3:78               push1 
  15f4:87 01              lap param1 
  15f6:4a 06             send 6 


        code_15f8
  15f8:48                 ret 
  15f9:00                bnot 
    )

)

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



(procedure proc_001e
  001e:3e 00fa           link fa // (var $fa)
  0021:88 008a            lsg gTombBarred 
  0024:35 01              ldi 1 
  0026:1a                 eq? 
  0027:31 16              bnt code_003f 
  0029:39 05            pushi 5 // $5 view
  002b:39 39            pushi 39 // $39 canBeHere
  002d:39 21            pushi 21 // $21 font
  002f:39 39            pushi 39 // $39 canBeHere
  0031:39 22            pushi 22 // $22 type
  0033:5b 04 00           lea 4 0 
  0036:36                push 
  0037:46 00ff 0004 0a  calle ff procedure_0004 a // Printf 

  003d:33 14              jmp code_0053 

        code_003f
  003f:39 05            pushi 5 // $5 view
  0041:39 39            pushi 39 // $39 canBeHere
  0043:39 21            pushi 21 // $21 font
  0045:39 39            pushi 39 // $39 canBeHere
  0047:39 23            pushi 23 // $23 window
  0049:5b 04 00           lea 4 0 
  004c:36                push 
  004d:46 00ff 0004 0a  calle ff procedure_0004 a // Printf 


        code_0053
  0053:48                 ret 
)

(procedure proc_0054
  0054:3f 32             link 32 // (var $32)
  0056:8b 00              lsl local0 
  0058:3c                 dup 
  0059:35 04              ldi 4 
  005b:1a                 eq? 
  005c:31 31              bnt code_008f 
  005e:38 00ee          pushi ee // $ee has
  0061:78               push1 
  0062:39 16            pushi 16 // $16 brRight
  0064:81 00              lag gEgo 
  0066:4a 06             send 6 

  0068:31 0d              bnt code_0077 
  006a:7a               push2 
  006b:39 39            pushi 39 // $39 canBeHere
  006d:39 18            pushi 18 // $18 key
  006f:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0075:33 16              jmp code_008d 

        code_0077
  0077:7a               push2 
  0078:39 39            pushi 39 // $39 canBeHere
  007a:39 19            pushi 19 // $19 time
  007c:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0082:7a               push2 
  0083:39 39            pushi 39 // $39 canBeHere
  0085:39 1a            pushi 1a // $1a text
  0087:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_008d
  008d:33 30              jmp code_00bf 

        code_008f
  008f:3c                 dup 
  0090:35 08              ldi 8 
  0092:1a                 eq? 
  0093:31 16              bnt code_00ab 
  0095:39 05            pushi 5 // $5 view
  0097:39 39            pushi 39 // $39 canBeHere
  0099:39 24            pushi 24 // $24 cursor
  009b:39 39            pushi 39 // $39 canBeHere
  009d:39 25            pushi 25 // $25 max
  009f:5b 04 00           lea 4 0 
  00a2:36                push 
  00a3:46 00ff 0004 0a  calle ff procedure_0004 a // Printf 

  00a9:33 14              jmp code_00bf 

        code_00ab
  00ab:39 05            pushi 5 // $5 view
  00ad:39 39            pushi 39 // $39 canBeHere
  00af:39 24            pushi 24 // $24 cursor
  00b1:39 39            pushi 39 // $39 canBeHere
  00b3:39 26            pushi 26 // $26 mark
  00b5:5b 04 00           lea 4 0 
  00b8:36                push 
  00b9:46 00ff 0004 0a  calle ff procedure_0004 a // Printf 


        code_00bf
  00bf:3a                toss 
  00c0:48                 ret 
)

(procedure proc_00c1
  00c1:39 05            pushi 5 // $5 view
  00c3:78               push1 
  00c4:39 1b            pushi 1b // $1b elements
  00c6:39 06            pushi 6 // $6 loop
  00c8:78               push1 
  00c9:39 03            pushi 3 // $3 y
  00cb:39 07            pushi 7 // $7 cel
  00cd:78               push1 
  00ce:76               push0 
  00cf:38 00c5          pushi c5 // $c5 posn
  00d2:7a               push2 
  00d3:38 009d          pushi 9d // $9d cycleDir
  00d6:39 4d            pushi 4d // $4d value
  00d8:39 42            pushi 42 // $42 setPri
  00da:78               push1 
  00db:39 07            pushi 7 // $7 cel
  00dd:38 00c6          pushi c6 // $c6 stopUpd
  00e0:76               push0 
  00e1:39 57            pushi 57 // $57 init
  00e3:76               push0 
  00e4:72 1a6b          lofsa $1b52 // lantern
  00e7:4a 28             send 28 

  00e9:38 008f          pushi 8f // $8f moveTo
  00ec:78               push1 
  00ed:89 0b              lsg gCurRoomNum 
  00ef:39 43            pushi 43 // $43 at
  00f1:78               push1 
  00f2:7a               push2 
  00f3:81 09              lag gInventory 
  00f5:4a 06             send 6 

  00f7:4a 06             send 6 

  00f9:48                 ret 
)

