(script 16)

(string
    string_0ca8 "Door"
    string_0cad "Knocker"
    string_0cb5 "Lamp"
    string_0cba "Lamp2"
    string_0cc0 "Mat"
    string_0cc4 "Note"
    string_0cc9 "Room16"
    string_0cd0 "Rover"
    string_0cd6 "Window1"
    string_0cde "Window2"
    string_0ce6 "bark"
    string_0ceb "blowAway"
    string_0cf4 "exit"
    string_0cf9 "myBark"
    string_0d00 "myDoor"
    string_0d07 "myMusic"
    string_0d0f "window"
)

(said
    said_07c8 */beauregard
    said_07ce /bas
    said_07d2 /escalier
    said_07d6 /haut
    said_07da [<around,at][/room]
    said_07e8 bang/[<door,doorknocker]
    said_07f4 debarrasser/room
    said_07fa feed/beauregard
    said_0800 get/allumer
    said_0806 get/letter
    said_080c deliver,feed,hold/*<beauregard
    said_081b deliver,feed,hold/*[/beauregard]
    said_082c lift,(look<below)/doormat,(door<doormat)
    said_0842 look/door
    said_0848 look/door,doorknocker
    said_0851 look/doorknocker
    said_0857 look/doormat,(door<doormat)
    said_0865 look/allumer
    said_086b look>
    said_086f bouger,get/doormat,(door<doormat)
    said_0880 caliner,get,bouger/beauregard
    said_088c etudier,look/letter
    said_0895 bonjour,apprivoiser/beauregard
    said_089e actionner/doorknocker[<door]
    said_08a9 quoi/doorknocker<big
)

(synonym
    allumer | ignite | illuminer | light = lamp | lampe
)

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

// 08b8
(instance public Room16 of Rm
    (properties
        script $0
        number $0
        timer $0
        keep $0
        initialized $0
        picture $10
        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_0016
  0016:35 16              ldi 16 
  0018:65 1e             aTop south 
  001a:35 0f              ldi f 
  001c:65 20             aTop west 
  001e:35 11              ldi 11 
  0020:65 1c             aTop east 
  0022:35 25              ldi 25 
  0024:65 1a             aTop north 
  0026:35 73              ldi 73 
  0028:65 16             aTop horizon 
  002a:39 57            pushi 57 // $57 init
  002c:76               push0 
  002d:57 37 04         super Rm 4 

  0030:80 00df            lag gDetailLevel 
  0033:31 1e              bnt code_0053 
  0035:39 7e            pushi 7e // $7e setCycle
  0037:78               push1 
  0038:51 16            class Fwd 
  003a:36                push 
  003b:39 57            pushi 57 // $57 init
  003d:76               push0 
  003e:72 0991          lofsa $09d2 // Lamp
  0041:4a 0a             send a 

  0043:39 7e            pushi 7e // $7e setCycle
  0045:78               push1 
  0046:51 16            class Fwd 
  0048:36                push 
  0049:39 57            pushi 57 // $57 init
  004b:76               push0 
  004c:72 09d5          lofsa $0a24 // Lamp2
  004f:4a 0a             send a 

  0051:33 12              jmp code_0065 

        code_0053
  0053:38 00cb          pushi cb // $cb addToPic
  0056:76               push0 
  0057:72 0978          lofsa $09d2 // Lamp
  005a:4a 04             send 4 

  005c:38 00cb          pushi cb // $cb addToPic
  005f:76               push0 
  0060:72 09c1          lofsa $0a24 // Lamp2
  0063:4a 04             send 4 


        code_0065
  0065:39 61            pushi 61 // $61 add
  0067:78               push1 
  0068:74 0b2d          lofss $0b98 // Knocker
  006b:39 62            pushi 62 // $62 eachElementDo
  006d:78               push1 
  006e:39 57            pushi 57 // $57 init
  0070:39 3c            pushi 3c // $3c doit
  0072:76               push0 
  0073:81 0a              lag gAddToPics 
  0075:4a 10             send 10 

  0077:38 010a          pushi 10a // $10a setRegions
  007a:78               push1 
  007b:38 00ce          pushi ce // $ce yLast
  007e:38 010b          pushi 10b // $10b setFeatures
  0081:39 04            pushi 4 // $4 x
  0083:74 0b12          lofss $0b98 // Knocker
  0086:74 0b6f          lofss $0bf8 // Window1
  0089:74 0b98          lofss $0c24 // Window2
  008c:74 0bc1          lofss $0c50 // Mat
  008f:54 12             self 12 

  0091:39 04            pushi 4 // $4 x
  0093:38 0084          pushi 84 // $84 stop
  0096:39 2b            pushi 2b // $2b number
  0098:39 2c            pushi 2c // $2c handle
  009a:38 0080          pushi 80 // $80 timeLeft
  009d:45 15 08         callb procedure_0015 8 // LoadMany 

  00a0:88 00a5            lsg gAct 
  00a3:35 07              ldi 7 
  00a5:1a                 eq? 
  00a6:31 31              bnt code_00d9 
  00a8:88 00cb            lsg global203 
  00ab:34 01f4            ldi 1f4 
  00ae:1c                 ne? 
  00af:31 1a              bnt code_00cb 
  00b1:39 12            pushi 12 // $12 illegalBits
  00b3:78               push1 
  00b4:76               push0 
  00b5:38 00c9          pushi c9 // $c9 ignoreActors
  00b8:78               push1 
  00b9:78               push1 
  00ba:38 00d5          pushi d5 // $d5 ignoreHorizon
  00bd:78               push1 
  00be:78               push1 
  00bf:39 57            pushi 57 // $57 init
  00c1:76               push0 
  00c2:38 00c6          pushi c6 // $c6 stopUpd
  00c5:76               push0 
  00c6:72 09ff          lofsa $0ac8 // Note
  00c9:4a 1a             send 1a 


        code_00cb
  00cb:39 57            pushi 57 // $57 init
  00cd:76               push0 
  00ce:39 7a            pushi 7a // $7a setScript
  00d0:78               push1 
  00d1:74 086a          lofss $093e // bark
  00d4:72 0a59          lofsa $0b30 // Rover
  00d7:4a 0a             send a 


        code_00d9
  00d9:39 07            pushi 7 // $7 cel
  00db:78               push1 
  00dc:89 0c              lsg gPrevRoomNum 
  00de:35 25              ldi 25 
  00e0:1a                 eq? 
  00e1:31 04              bnt code_00e7 
  00e3:35 03              ldi 3 
  00e5:33 02              jmp code_00e9 

        code_00e7
  00e7:35 00              ldi 0 

        code_00e9
  00e9:36                push 
  00ea:39 57            pushi 57 // $57 init
  00ec:76               push0 
  00ed:38 00c6          pushi c6 // $c6 stopUpd
  00f0:76               push0 
  00f1:72 0982          lofsa $0a76 // Door
  00f4:4a 0e             send e 

  00f6:89 66              lsg global102 
  00f8:35 01              ldi 1 
  00fa:1a                 eq? 
  00fb:31 21              bnt code_011e 
  00fd:89 0c              lsg gPrevRoomNum 
  00ff:35 0f              ldi f 
  0101:1a                 eq? 
  0102:31 0d              bnt code_0111 
  0104:38 00c5          pushi c5 // $c5 posn
  0107:7a               push2 
  0108:78               push1 
  0109:39 7c            pushi 7c // $7c lastTime
  010b:81 00              lag gEgo 
  010d:4a 08             send 8 

  010f:33 0d              jmp code_011e 

        code_0111
  0111:38 00c5          pushi c5 // $c5 posn
  0114:7a               push2 
  0115:38 013e          pushi 13e // $13e elevY
  0118:39 7c            pushi 7c // $7c lastTime
  011a:81 00              lag gEgo 
  011c:4a 08             send 8 


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

  0122:a3 02              sal local2 
  0124:89 0c              lsg gPrevRoomNum 
  0126:3c                 dup 
  0127:35 25              ldi 25 
  0129:1a                 eq? 
  012a:31 20              bnt code_014c 
  012c:76               push0 
  012d:45 03 00         callb procedure_0003 0 // HandsOff 

  0130:38 00c5          pushi c5 // $c5 posn
  0133:7a               push2 
  0134:38 0091          pushi 91 // $91 isType
  0137:39 79            pushi 79 // $79 cue
  0139:81 00              lag gEgo 
  013b:4a 08             send 8 

  013d:83 02              lal local2 
  013f:18                 not 
  0140:31 08              bnt code_014a 
  0142:39 7a            pushi 7a // $7a setScript
  0144:78               push1 
  0145:74 085a          lofss $09a2 // exit
  0148:54 06             self 6 


        code_014a
  014a:33 2d              jmp code_0179 

        code_014c
  014c:3c                 dup 
  014d:35 16              ldi 16 
  014f:1a                 eq? 
  0150:31 10              bnt code_0162 
  0152:38 00c5          pushi c5 // $c5 posn
  0155:7a               push2 
  0156:38 00a0          pushi a0 // $a0 cycleDone
  0159:38 00bc          pushi bc // $bc motionInited
  015c:81 00              lag gEgo 
  015e:4a 08             send 8 

  0160:33 17              jmp code_0179 

        code_0162
  0162:3c                 dup 
  0163:35 11              ldi 11 
  0165:1a                 eq? 
  0166:31 11              bnt code_0179 
  0168:81 66              lag global102 
  016a:31 0d              bnt code_0179 
  016c:38 00c5          pushi c5 // $c5 posn
  016f:7a               push2 
  0170:38 0136          pushi 136 // $136 elevatorID
  0173:39 7e            pushi 7e // $7e setCycle
  0175:81 00              lag gEgo 
  0177:4a 08             send 8 


        code_0179
  0179:3a                toss 
  017a:39 05            pushi 5 // $5 view
  017c:78               push1 
  017d:76               push0 
  017e:39 12            pushi 12 // $12 illegalBits
  0180:78               push1 
  0181:38 8002          pushi 8002 // $8002 sel_32770
  0184:39 57            pushi 57 // $57 init
  0186:76               push0 
  0187:81 00              lag gEgo 
  0189:4a 10             send 10 

  018b:48                 ret 
    )

    (method (doit) // method_018c
  018c:83 02              lal local2 
  018e:31 1d              bnt code_01ad 
  0190:35 00              ldi 0 
  0192:a3 02              sal local2 
  0194:7a               push2 
  0195:39 10            pushi 10 // $10 lsRight
  0197:76               push0 
  0198:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  019e:89 0c              lsg gPrevRoomNum 
  01a0:35 25              ldi 25 
  01a2:1a                 eq? 
  01a3:31 08              bnt code_01ad 
  01a5:39 7a            pushi 7a // $7a setScript
  01a7:78               push1 
  01a8:74 07f7          lofss $09a2 // exit
  01ab:54 06             self 6 


        code_01ad
  01ad:89 0c              lsg gPrevRoomNum 
  01af:35 25              ldi 25 
  01b1:1a                 eq? 
  01b2:31 20              bnt code_01d4 
  01b4:83 01              lal local1 
  01b6:18                 not 
  01b7:31 1b              bnt code_01d4 
  01b9:39 07            pushi 7 // $7 cel
  01bb:76               push0 
  01bc:72 08b7          lofsa $0a76 // Door
  01bf:4a 04             send 4 

  01c1:36                push 
  01c2:35 00              ldi 0 
  01c4:1a                 eq? 
  01c5:31 0d              bnt code_01d4 
  01c7:35 01              ldi 1 
  01c9:a3 01              sal local1 
  01cb:38 00c6          pushi c6 // $c6 stopUpd
  01ce:76               push0 
  01cf:72 08a4          lofsa $0a76 // Door
  01d2:4a 04             send 4 


        code_01d4
  01d4:39 03            pushi 3 // $3 y
  01d6:76               push0 
  01d7:81 00              lag gEgo 
  01d9:4a 04             send 4 

  01db:36                push 
  01dc:34 008c            ldi 8c 
  01df:22                 lt? 
  01e0:31 06              bnt code_01e8 
  01e2:35 01              ldi 1 
  01e4:a1 66              sag global102 
  01e6:33 04              jmp code_01ec 

        code_01e8
  01e8:35 00              ldi 0 
  01ea:a1 66              sag global102 

        code_01ec
  01ec:38 00db          pushi db // $db onControl
  01ef:78               push1 
  01f0:78               push1 
  01f1:81 00              lag gEgo 
  01f3:4a 06             send 6 

  01f5:36                push 
  01f6:35 04              ldi 4 
  01f8:12                 and 
  01f9:31 1e              bnt code_0219 
  01fb:83 00              lal local0 
  01fd:18                 not 
  01fe:31 19              bnt code_0219 
  0200:39 06            pushi 6 // $6 loop
  0202:76               push0 
  0203:81 00              lag gEgo 
  0205:4a 04             send 4 

  0207:36                push 
  0208:35 03              ldi 3 
  020a:1a                 eq? 
  020b:31 0c              bnt code_0219 
  020d:35 01              ldi 1 
  020f:a3 00              sal local0 
  0211:39 7a            pushi 7a // $7a setScript
  0213:78               push1 
  0214:74 06f7          lofss $090e // myDoor
  0217:54 06             self 6 


        code_0219
  0219:39 3c            pushi 3c // $3c doit
  021b:76               push0 
  021c:57 37 04         super Rm 4 

  021f:48                 ret 
    )

    (method (dispose) // method_0220
  0220:39 58            pushi 58 // $58 dispose
  0222:76               push0 
  0223:57 37 04         super Rm 4 

  0226:48                 ret 
    )

    (method (newRoom) // method_0227
  0227:8f 01              lsp param1 
  0229:35 25              ldi 25 
  022b:1a                 eq? 
  022c:31 09              bnt code_0237 
  022e:38 0084          pushi 84 // $84 stop
  0231:76               push0 
  0232:80 00b7            lag gConMusic 
  0235:4a 04             send 4 


        code_0237
  0237:38 00f8          pushi f8 // $f8 newRoom
  023a:78               push1 
  023b:8f 01              lsp param1 
  023d:57 37 06         super Rm 6 

  0240:48                 ret 
    )

    (method (handleEvent) // method_0241
  0241:3f 01             link 1 // (var $1)
  0243:39 4c            pushi 4c // $4c claimed
  0245:76               push0 
  0246:87 01              lap param1 
  0248:4a 04             send 4 

  024a:31 03              bnt code_024f 
  024c:35 01              ldi 1 
  024e:48                 ret 

        code_024f
  024f:39 22            pushi 22 // $22 type
  0251:76               push0 
  0252:87 01              lap param1 
  0254:4a 04             send 4 

  0256:36                push 
  0257:34 0080            ldi 80 
  025a:1a                 eq? 
  025b:30 0082            bnt code_02e0 
  025e:78               push1 
  025f:74 0609          lofss $086b // look>
  0262:43 25 02         callk Said 2 

  0265:31 63              bnt code_02ca 
  0267:78               push1 
  0268:74 056f          lofss $07da // [<around,at][/room]
  026b:43 25 02         callk Said 2 

  026e:31 0c              bnt code_027c 
  0270:7a               push2 
  0271:39 10            pushi 10 // $10 lsRight
  0273:76               push0 
  0274:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  027a:33 4c              jmp code_02c8 

        code_027c
  027c:78               push1 
  027d:74 0552          lofss $07d2 // /escalier
  0280:43 25 02         callk Said 2 

  0283:31 0c              bnt code_0291 
  0285:7a               push2 
  0286:39 10            pushi 10 // $10 lsRight
  0288:78               push1 
  0289:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  028f:33 37              jmp code_02c8 

        code_0291
  0291:78               push1 
  0292:74 0539          lofss $07ce // /bas
  0295:43 25 02         callk Said 2 

  0298:31 1a              bnt code_02b4 
  029a:81 66              lag global102 
  029c:31 0c              bnt code_02aa 
  029e:7a               push2 
  029f:39 10            pushi 10 // $10 lsRight
  02a1:7a               push2 
  02a2:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  02a8:33 08              jmp code_02b2 

        code_02aa
  02aa:39 4c            pushi 4c // $4c claimed
  02ac:78               push1 
  02ad:76               push0 
  02ae:87 01              lap param1 
  02b0:4a 06             send 6 


        code_02b2
  02b2:33 14              jmp code_02c8 

        code_02b4
  02b4:78               push1 
  02b5:74 051e          lofss $07d6 // /haut
  02b8:43 25 02         callk Said 2 

  02bb:31 0b              bnt code_02c8 
  02bd:7a               push2 
  02be:39 10            pushi 10 // $10 lsRight
  02c0:39 03            pushi 3 // $3 y
  02c2:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_02c8
  02c8:33 16              jmp code_02e0 

        code_02ca
  02ca:78               push1 
  02cb:74 0526          lofss $07f4 // debarrasser/room
  02ce:43 25 02         callk Said 2 

  02d1:31 0d              bnt code_02e0 
  02d3:35 00              ldi 0 
  02d5:a0 00df            sag gDetailLevel 
  02d8:39 4c            pushi 4c // $4c claimed
  02da:78               push1 
  02db:78               push1 
  02dc:87 01              lap param1 
  02de:4a 06             send 6 


        code_02e0
  02e0:48                 ret 
    )

)

// 0908
(instance myDoor of Script
    (properties
        client $0
        state $ffff
        start $0
        timer $0
        cycles $0
        seconds $0
        lastSeconds $0
        register $0
        script $0
        caller $0
    )
    (method (changeState) // method_02e1
  02e1:87 01              lap param1 
  02e3:65 0a             aTop state 
  02e5:36                push 
  02e6:3c                 dup 
  02e7:35 00              ldi 0 
  02e9:1a                 eq? 
  02ea:31 40              bnt code_032c 
  02ec:38 00e9          pushi e9 // $e9 canControl
  02ef:78               push1 
  02f0:76               push0 
  02f1:51 2b            class User 
  02f3:4a 06             send 6 

  02f5:39 06            pushi 6 // $6 loop
  02f7:78               push1 
  02f8:39 03            pushi 3 // $3 y
  02fa:81 00              lag gEgo 
  02fc:4a 06             send 6 

  02fe:38 00a4          pushi a4 // $a4 cycleSpeed
  0301:78               push1 
  0302:78               push1 
  0303:38 00c9          pushi c9 // $c9 ignoreActors
  0306:78               push1 
  0307:78               push1 
  0308:39 7e            pushi 7e // $7e setCycle
  030a:7a               push2 
  030b:51 1a            class End 
  030d:36                push 
  030e:7c            pushSelf 
  030f:72 0764          lofsa $0a76 // Door
  0312:4a 14             send 14 

  0314:39 2b            pushi 2b // $2b number
  0316:78               push1 
  0317:39 2b            pushi 2b // $2b number
  0319:39 06            pushi 6 // $6 loop
  031b:78               push1 
  031c:78               push1 
  031d:39 3f            pushi 3f // $3f priority
  031f:78               push1 
  0320:39 05            pushi 5 // $5 view
  0322:39 2a            pushi 2a // $2a play
  0324:76               push0 
  0325:72 0954          lofsa $0c7c // myMusic
  0328:4a 16             send 16 

  032a:33 2a              jmp code_0356 

        code_032c
  032c:3c                 dup 
  032d:35 01              ldi 1 
  032f:1a                 eq? 
  0330:31 24              bnt code_0356 
  0332:39 12            pushi 12 // $12 illegalBits
  0334:78               push1 
  0335:76               push0 
  0336:38 00d3          pushi d3 // $d3 setMotion
  0339:39 03            pushi 3 // $3 y
  033b:51 1d            class MoveTo 
  033d:36                push 
  033e:39 04            pushi 4 // $4 x
  0340:76               push0 
  0341:81 00              lag gEgo 
  0343:4a 04             send 4 

  0345:36                push 
  0346:39 03            pushi 3 // $3 y
  0348:76               push0 
  0349:81 00              lag gEgo 
  034b:4a 04             send 4 

  034d:36                push 
  034e:35 32              ldi 32 
  0350:04                 sub 
  0351:36                push 
  0352:81 00              lag gEgo 
  0354:4a 10             send 10 


        code_0356
  0356:3a                toss 
  0357:48                 ret 
    )

)

// 0938
(instance bark 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_0358
  0358:39 3c            pushi 3c // $3c doit
  035a:76               push0 
  035b:57 05 04         super Script 4 

  035e:67 0a             pTos state 
  0360:35 05              ldi 5 
  0362:1a                 eq? 
  0363:31 32              bnt code_0397 
  0365:39 07            pushi 7 // $7 cel
  0367:76               push0 
  0368:72 07c5          lofsa $0b30 // Rover
  036b:4a 04             send 4 

  036d:36                push 
  036e:35 00              ldi 0 
  0370:1a                 eq? 
  0371:31 24              bnt code_0397 
  0373:78               push1 
  0374:39 0b            pushi b // $b nsBottom
  0376:43 31 02         callk DoSound 2 

  0379:36                push 
  037a:35 03              ldi 3 
  037c:24                 le? 
  037d:31 0b              bnt code_038a 
  037f:39 2b            pushi 2b // $2b number
  0381:78               push1 
  0382:38 0080          pushi 80 // $80 timeLeft
  0385:72 0846          lofsa $0bce // myBark
  0388:4a 06             send 6 


        code_038a
  038a:39 06            pushi 6 // $6 loop
  038c:78               push1 
  038d:78               push1 
  038e:39 2a            pushi 2a // $2a play
  0390:78               push1 
  0391:7c            pushSelf 
  0392:72 0839          lofsa $0bce // myBark
  0395:4a 0c             send c 


        code_0397
  0397:48                 ret 
    )

    (method (changeState) // method_0398
  0398:87 01              lap param1 
  039a:65 0a             aTop state 
  039c:36                push 
  039d:3c                 dup 
  039e:35 00              ldi 0 
  03a0:1a                 eq? 
  03a1:31 07              bnt code_03aa 
  03a3:35 03              ldi 3 
  03a5:65 10             aTop cycles 
  03a7:32 00c5            jmp code_046f 

        code_03aa
  03aa:3c                 dup 
  03ab:35 01              ldi 1 
  03ad:1a                 eq? 
  03ae:31 25              bnt code_03d5 
  03b0:38 0084          pushi 84 // $84 stop
  03b3:76               push0 
  03b4:80 00b7            lag gConMusic 
  03b7:4a 04             send 4 

  03b9:39 06            pushi 6 // $6 loop
  03bb:78               push1 
  03bc:39 03            pushi 3 // $3 y
  03be:38 00a4          pushi a4 // $a4 cycleSpeed
  03c1:78               push1 
  03c2:78               push1 
  03c3:39 7e            pushi 7e // $7e setCycle
  03c5:78               push1 
  03c6:51 16            class Fwd 
  03c8:36                push 
  03c9:72 0764          lofsa $0b30 // Rover
  03cc:4a 12             send 12 

  03ce:35 0c              ldi c 
  03d0:65 10             aTop cycles 
  03d2:32 009a            jmp code_046f 

        code_03d5
  03d5:3c                 dup 
  03d6:35 02              ldi 2 
  03d8:1a                 eq? 
  03d9:31 17              bnt code_03f2 
  03db:39 06            pushi 6 // $6 loop
  03dd:78               push1 
  03de:39 05            pushi 5 // $5 view
  03e0:39 07            pushi 7 // $7 cel
  03e2:78               push1 
  03e3:76               push0 
  03e4:39 7e            pushi 7e // $7e setCycle
  03e6:7a               push2 
  03e7:51 1a            class End 
  03e9:36                push 
  03ea:7c            pushSelf 
  03eb:72 0742          lofsa $0b30 // Rover
  03ee:4a 14             send 14 

  03f0:33 7d              jmp code_046f 

        code_03f2
  03f2:3c                 dup 
  03f3:35 03              ldi 3 
  03f5:1a                 eq? 
  03f6:31 16              bnt code_040e 
  03f8:39 06            pushi 6 // $6 loop
  03fa:78               push1 
  03fb:39 06            pushi 6 // $6 loop
  03fd:39 7e            pushi 7e // $7e setCycle
  03ff:78               push1 
  0400:51 16            class Fwd 
  0402:36                push 
  0403:72 072a          lofsa $0b30 // Rover
  0406:4a 0c             send c 

  0408:35 0c              ldi c 
  040a:65 10             aTop cycles 
  040c:33 61              jmp code_046f 

        code_040e
  040e:3c                 dup 
  040f:35 04              ldi 4 
  0411:1a                 eq? 
  0412:31 17              bnt code_042b 
  0414:39 06            pushi 6 // $6 loop
  0416:78               push1 
  0417:39 05            pushi 5 // $5 view
  0419:39 07            pushi 7 // $7 cel
  041b:78               push1 
  041c:78               push1 
  041d:39 7e            pushi 7e // $7e setCycle
  041f:7a               push2 
  0420:51 1b            class Beg 
  0422:36                push 
  0423:7c            pushSelf 
  0424:72 0709          lofsa $0b30 // Rover
  0427:4a 14             send 14 

  0429:33 44              jmp code_046f 

        code_042b
  042b:3c                 dup 
  042c:35 05              ldi 5 
  042e:1a                 eq? 
  042f:31 12              bnt code_0443 
  0431:39 06            pushi 6 // $6 loop
  0433:78               push1 
  0434:39 04            pushi 4 // $4 x
  0436:39 7e            pushi 7e // $7e setCycle
  0438:78               push1 
  0439:51 1a            class End 
  043b:36                push 
  043c:72 06f1          lofsa $0b30 // Rover
  043f:4a 0c             send c 

  0441:33 2c              jmp code_046f 

        code_0443
  0443:3c                 dup 
  0444:35 06              ldi 6 
  0446:1a                 eq? 
  0447:31 26              bnt code_046f 
  0449:39 7e            pushi 7e // $7e setCycle
  044b:78               push1 
  044c:51 1b            class Beg 
  044e:36                push 
  044f:72 06de          lofsa $0b30 // Rover
  0452:4a 06             send 6 

  0454:7a               push2 
  0455:78               push1 
  0456:39 64            pushi 64 // $64 allTrue
  0458:43 40 04         callk Random 4 

  045b:36                push 
  045c:35 28              ldi 28 
  045e:22                 lt? 
  045f:31 06              bnt code_0467 
  0461:35 04              ldi 4 
  0463:65 0a             aTop state 
  0465:33 04              jmp code_046b 

        code_0467
  0467:35 01              ldi 1 
  0469:65 0a             aTop state 

        code_046b
  046b:35 01              ldi 1 
  046d:65 10             aTop cycles 

        code_046f
  046f:3a                toss 
  0470:48                 ret 
    )

)

// 096c
(instance blowAway 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_0471
  0471:87 01              lap param1 
  0473:65 0a             aTop state 
  0475:36                push 
  0476:3c                 dup 
  0477:35 00              ldi 0 
  0479:1a                 eq? 
  047a:31 3a              bnt code_04b6 
  047c:34 01f4            ldi 1f4 
  047f:a0 00cb            sag global203 
  0482:7a               push2 
  0483:39 10            pushi 10 // $10 lsRight
  0485:39 04            pushi 4 // $4 x
  0487:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  048d:38 00c8          pushi c8 // $c8 setLoop
  0490:78               push1 
  0491:39 04            pushi 4 // $4 x
  0493:38 00dc          pushi dc // $dc setStep
  0496:7a               push2 
  0497:39 05            pushi 5 // $5 view
  0499:39 05            pushi 5 // $5 view
  049b:39 7e            pushi 7e // $7e setCycle
  049d:78               push1 
  049e:51 16            class Fwd 
  04a0:36                push 
  04a1:38 00d3          pushi d3 // $d3 setMotion
  04a4:39 04            pushi 4 // $4 x
  04a6:51 1d            class MoveTo 
  04a8:36                push 
  04a9:38 014a          pushi 14a // $14a eyesID
  04ac:39 69            pushi 69 // $69 last
  04ae:7c            pushSelf 
  04af:72 0616          lofsa $0ac8 // Note
  04b2:4a 20             send 20 

  04b4:33 16              jmp code_04cc 

        code_04b6
  04b6:3c                 dup 
  04b7:35 01              ldi 1 
  04b9:1a                 eq? 
  04ba:31 10              bnt code_04cc 
  04bc:39 58            pushi 58 // $58 dispose
  04be:76               push0 
  04bf:72 0606          lofsa $0ac8 // Note
  04c2:4a 04             send 4 

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


        code_04cc
  04cc:3a                toss 
  04cd:48                 ret 
    )

)

// 099c
(instance exit 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_04ce
  04ce:87 01              lap param1 
  04d0:65 0a             aTop state 
  04d2:36                push 
  04d3:3c                 dup 
  04d4:35 00              ldi 0 
  04d6:1a                 eq? 
  04d7:31 24              bnt code_04fd 
  04d9:39 7e            pushi 7e // $7e setCycle
  04db:7a               push2 
  04dc:51 1b            class Beg 
  04de:36                push 
  04df:7c            pushSelf 
  04e0:72 0593          lofsa $0a76 // Door
  04e3:4a 08             send 8 

  04e5:39 2b            pushi 2b // $2b number
  04e7:78               push1 
  04e8:39 2c            pushi 2c // $2c handle
  04ea:39 06            pushi 6 // $6 loop
  04ec:78               push1 
  04ed:78               push1 
  04ee:39 3f            pushi 3f // $3f priority
  04f0:78               push1 
  04f1:39 05            pushi 5 // $5 view
  04f3:39 2a            pushi 2a // $2a play
  04f5:76               push0 
  04f6:72 0783          lofsa $0c7c // myMusic
  04f9:4a 16             send 16 

  04fb:33 1b              jmp code_0518 

        code_04fd
  04fd:3c                 dup 
  04fe:35 01              ldi 1 
  0500:1a                 eq? 
  0501:31 15              bnt code_0518 
  0503:38 00c6          pushi c6 // $c6 stopUpd
  0506:76               push0 
  0507:72 056c          lofsa $0a76 // Door
  050a:4a 04             send 4 

  050c:76               push0 
  050d:45 04 00         callb procedure_0004 0 // HandsOn 

  0510:39 7a            pushi 7a // $7a setScript
  0512:78               push1 
  0513:76               push0 
  0514:63 08             pToa client 
  0516:4a 06             send 6 


        code_0518
  0518:3a                toss 
  0519:48                 ret 
    )

)

// 09cc
(instance Lamp of Prop
    (properties
        y $41
        x $74
        z $0
        heading $0
        yStep $2
        view $74
        loop $2
        cel $0
        priority $e
        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_051a
  051a:78               push1 
  051b:74 02e2          lofss $0800 // get/allumer
  051e:43 25 02         callk Said 2 

  0521:31 0d              bnt code_0530 
  0523:7a               push2 
  0524:39 10            pushi 10 // $10 lsRight
  0526:39 05            pushi 5 // $5 view
  0528:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  052e:33 2b              jmp code_055b 

        code_0530
  0530:39 03            pushi 3 // $3 y
  0532:7c            pushSelf 
  0533:8f 01              lsp param1 
  0535:39 03            pushi 3 // $3 y
  0537:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  053d:2f 09               bt code_0548 
  053f:78               push1 
  0540:74 0322          lofss $0865 // look/allumer
  0543:43 25 02         callk Said 2 

  0546:31 13              bnt code_055b 

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

  0550:7a               push2 
  0551:39 10            pushi 10 // $10 lsRight
  0553:39 06            pushi 6 // $6 loop
  0555:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_055b
  055b:48                 ret 
    )

)

// 0a1e
(instance Lamp2 of Prop
    (properties
        y $41
        x $cc
        z $0
        heading $0
        yStep $2
        view $74
        loop $2
        cel $0
        priority $e
        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_055c
  055c:39 03            pushi 3 // $3 y
  055e:7c            pushSelf 
  055f:8f 01              lsp param1 
  0561:39 03            pushi 3 // $3 y
  0563:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  0569:31 13              bnt code_057e 
  056b:39 4c            pushi 4c // $4c claimed
  056d:78               push1 
  056e:78               push1 
  056f:87 01              lap param1 
  0571:4a 06             send 6 

  0573:7a               push2 
  0574:39 10            pushi 10 // $10 lsRight
  0576:39 06            pushi 6 // $6 loop
  0578:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_057e
  057e:48                 ret 
    )

)

// 0a70
(instance Door of Prop
    (properties
        y $74
        x $88
        z $0
        heading $0
        yStep $2
        view $74
        loop $0
        cel $0
        priority $8
        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_057f
  057f:39 03            pushi 3 // $3 y
  0581:7c            pushSelf 
  0582:8f 01              lsp param1 
  0584:39 03            pushi 3 // $3 y
  0586:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  058c:2f 09               bt code_0597 
  058e:78               push1 
  058f:74 02b0          lofss $0842 // look/door
  0592:43 25 02         callk Said 2 

  0595:31 13              bnt code_05aa 

        code_0597
  0597:39 4c            pushi 4c // $4c claimed
  0599:78               push1 
  059a:78               push1 
  059b:87 01              lap param1 
  059d:4a 06             send 6 

  059f:7a               push2 
  05a0:39 10            pushi 10 // $10 lsRight
  05a2:39 07            pushi 7 // $7 cel
  05a4:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_05aa
  05aa:48                 ret 
    )

)

// 0ac2
(instance Note of Act
    (properties
        y $56
        x $ac
        z $0
        heading $0
        yStep $2
        view $74
        loop $3
        cel $0
        priority $0
        underBits $0
        signal $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
        lsTop $0
        lsLeft $0
        lsBottom $0
        lsRight $0
        brTop $0
        brLeft $0
        brBottom $0
        brRight $0
        cycleSpeed $0
        script $0
        cycler $0
        timer $0
        illegalBits $8000
        xLast $0
        yLast $0
        xStep $3
        moveSpeed $0
        blocks $0
        baseSetter $0
        mover $0
        looper $0
        viewer $0
        avoider $0
    )
    (method (handleEvent) // method_05ab
  05ab:88 00cb            lsg global203 
  05ae:34 01f4            ldi 1f4 
  05b1:1c                 ne? 
  05b2:31 7a              bnt code_062e 
  05b4:78               push1 
  05b5:74 0290          lofss $0848 // look/door,doorknocker
  05b8:43 25 02         callk Said 2 

  05bb:31 0d              bnt code_05ca 
  05bd:7a               push2 
  05be:39 10            pushi 10 // $10 lsRight
  05c0:39 08            pushi 8 // $8 underBits
  05c2:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  05c8:33 64              jmp code_062e 

        code_05ca
  05ca:78               push1 
  05cb:74 0238          lofss $0806 // get/letter
  05ce:43 25 02         callk Said 2 

  05d1:31 0d              bnt code_05e0 
  05d3:7a               push2 
  05d4:39 10            pushi 10 // $10 lsRight
  05d6:39 09            pushi 9 // $9 nsTop
  05d8:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  05de:33 4e              jmp code_062e 

        code_05e0
  05e0:78               push1 
  05e1:74 02a8          lofss $088c // etudier,look/letter
  05e4:43 25 02         callk Said 2 

  05e7:2f 0f               bt code_05f8 
  05e9:39 03            pushi 3 // $3 y
  05eb:7c            pushSelf 
  05ec:8f 01              lsp param1 
  05ee:39 03            pushi 3 // $3 y
  05f0:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  05f6:31 36              bnt code_062e 

        code_05f8
  05f8:39 4c            pushi 4c // $4c claimed
  05fa:78               push1 
  05fb:78               push1 
  05fc:87 01              lap param1 
  05fe:4a 06             send 6 

  0600:38 00da          pushi da // $da inRect
  0603:39 04            pushi 4 // $4 x
  0605:38 009e          pushi 9e // $9e completed
  0608:39 73            pushi 73 // $73 seconds
  060a:38 00ba          pushi ba // $ba targetX
  060d:39 7e            pushi 7e // $7e setCycle
  060f:81 00              lag gEgo 
  0611:4a 0c             send c 

  0613:31 15              bnt code_062a 
  0615:7a               push2 
  0616:39 10            pushi 10 // $10 lsRight
  0618:39 0a            pushi a // $a nsLeft
  061a:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0620:39 7a            pushi 7a // $7a setScript
  0622:78               push1 
  0623:74 034c          lofss $0972 // blowAway
  0626:54 06             self 6 

  0628:33 04              jmp code_062e 

        code_062a
  062a:76               push0 
  062b:45 09 00         callb procedure_0009 0 // NotClose 


        code_062e
  062e:48                 ret 
    )

)

// 0b2a
(instance Rover of Act
    (properties
        y $78
        x $70
        z $0
        heading $0
        yStep $2
        view $208
        loop $4
        cel $0
        priority $0
        underBits $0
        signal $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
        lsTop $0
        lsLeft $0
        lsBottom $0
        lsRight $0
        brTop $0
        brLeft $0
        brBottom $0
        brRight $0
        cycleSpeed $0
        script $0
        cycler $0
        timer $0
        illegalBits $8000
        xLast $0
        yLast $0
        xStep $3
        moveSpeed $0
        blocks $0
        baseSetter $0
        mover $0
        looper $0
        viewer $0
        avoider $0
    )
    (method (handleEvent) // method_062f
  062f:78               push1 
  0630:74 024d          lofss $0880 // caliner,get,bouger/beauregard
  0633:43 25 02         callk Said 2 

  0636:31 0e              bnt code_0646 
  0638:7a               push2 
  0639:39 10            pushi 10 // $10 lsRight
  063b:39 0b            pushi b // $b nsBottom
  063d:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0643:32 0086            jmp code_06cc 

        code_0646
  0646:78               push1 
  0647:74 01b0          lofss $07fa // feed/beauregard
  064a:43 25 02         callk Said 2 

  064d:31 0d              bnt code_065c 
  064f:7a               push2 
  0650:39 10            pushi 10 // $10 lsRight
  0652:39 0c            pushi c // $c nsRight
  0654:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  065a:33 70              jmp code_06cc 

        code_065c
  065c:78               push1 
  065d:74 01bb          lofss $081b // deliver,feed,hold/*[/beauregard]
  0660:43 25 02         callk Said 2 

  0663:2f 09               bt code_066e 
  0665:78               push1 
  0666:74 01a3          lofss $080c // deliver,feed,hold/*<beauregard
  0669:43 25 02         callk Said 2 

  066c:31 1d              bnt code_068b 

        code_066e
  066e:80 00db            lag global219 
  0671:31 12              bnt code_0685 
  0673:80 00e0            lag global224 
  0676:31 0d              bnt code_0685 
  0678:7a               push2 
  0679:39 10            pushi 10 // $10 lsRight
  067b:39 0c            pushi c // $c nsRight
  067d:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0683:33 04              jmp code_0689 

        code_0685
  0685:76               push0 
  0686:45 0d 00         callb procedure_000d 0 // DontHave 


        code_0689
  0689:33 41              jmp code_06cc 

        code_068b
  068b:78               push1 
  068c:74 0206          lofss $0895 // bonjour,apprivoiser/beauregard
  068f:43 25 02         callk Said 2 

  0692:31 0d              bnt code_06a1 
  0694:7a               push2 
  0695:39 10            pushi 10 // $10 lsRight
  0697:39 0d            pushi d // $d lsTop
  0699:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  069f:33 2b              jmp code_06cc 

        code_06a1
  06a1:39 03            pushi 3 // $3 y
  06a3:7c            pushSelf 
  06a4:8f 01              lsp param1 
  06a6:39 03            pushi 3 // $3 y
  06a8:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  06ae:2f 09               bt code_06b9 
  06b0:78               push1 
  06b1:74 0114          lofss $07c8 // */beauregard
  06b4:43 25 02         callk Said 2 

  06b7:31 13              bnt code_06cc 

        code_06b9
  06b9:39 4c            pushi 4c // $4c claimed
  06bb:78               push1 
  06bc:78               push1 
  06bd:87 01              lap param1 
  06bf:4a 06             send 6 

  06c1:7a               push2 
  06c2:39 10            pushi 10 // $10 lsRight
  06c4:39 0e            pushi e // $e lsLeft
  06c6:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_06cc
  06cc:48                 ret 
    )

)

// 0b92
(instance Knocker of RPicView
    (properties
        y $56
        x $ac
        z $0
        heading $0
        view $74
        loop $1
        cel $0
        priority $ffff
        signal $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
    )
    (method (handleEvent) // method_06cd
  06cd:78               push1 
  06ce:74 01d8          lofss $08a9 // quoi/doorknocker<big
  06d1:43 25 02         callk Said 2 

  06d4:31 0d              bnt code_06e3 
  06d6:7a               push2 
  06d7:39 10            pushi 10 // $10 lsRight
  06d9:39 0f            pushi f // $f lsBottom
  06db:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  06e1:33 4a              jmp code_072d 

        code_06e3
  06e3:78               push1 
  06e4:74 0101          lofss $07e8 // bang/[<door,doorknocker]
  06e7:43 25 02         callk Said 2 

  06ea:2f 09               bt code_06f5 
  06ec:78               push1 
  06ed:74 01ae          lofss $089e // actionner/doorknocker[<door]
  06f0:43 25 02         callk Said 2 

  06f3:31 0d              bnt code_0702 

        code_06f5
  06f5:7a               push2 
  06f6:39 10            pushi 10 // $10 lsRight
  06f8:39 10            pushi 10 // $10 lsRight
  06fa:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0700:33 2b              jmp code_072d 

        code_0702
  0702:39 03            pushi 3 // $3 y
  0704:7c            pushSelf 
  0705:8f 01              lsp param1 
  0707:39 03            pushi 3 // $3 y
  0709:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  070f:2f 09               bt code_071a 
  0711:78               push1 
  0712:74 013c          lofss $0851 // look/doorknocker
  0715:43 25 02         callk Said 2 

  0718:31 13              bnt code_072d 

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

  0722:7a               push2 
  0723:39 10            pushi 10 // $10 lsRight
  0725:39 11            pushi 11 // $11 signal
  0727:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_072d
  072d:48                 ret 
    )

)

// 0bc8
(instance myBark of Sound
    (properties
        state $0
        number $20
        priority $0
        loop $1
        handle $0
        signal $0
        prevSignal $0
        client $0
        owner $0
    )
)

// 0bf2
(instance Window1 of RFeature
    (properties
        y $0
        x $0
        z $0
        heading $0
        nsTop $24
        nsLeft $22
        nsBottom $71
        nsRight $42
    )
    (method (handleEvent) // method_072e
  072e:39 03            pushi 3 // $3 y
  0730:7c            pushSelf 
  0731:8f 01              lsp param1 
  0733:39 03            pushi 3 // $3 y
  0735:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  073b:31 0f              bnt code_074c 
  073d:39 4c            pushi 4c // $4c claimed
  073f:78               push1 
  0740:78               push1 
  0741:87 01              lap param1 
  0743:4a 06             send 6 

  0745:78               push1 
  0746:74 05c6          lofss $0d0f // window
  0749:45 19 02         callb procedure_0019 2 // DoLook 


        code_074c
  074c:48                 ret 
    )

)

// 0c1e
(instance Window2 of RFeature
    (properties
        y $0
        x $0
        z $0
        heading $0
        nsTop $24
        nsLeft $fd
        nsBottom $71
        nsRight $11d
    )
    (method (handleEvent) // method_074d
  074d:39 03            pushi 3 // $3 y
  074f:7c            pushSelf 
  0750:8f 01              lsp param1 
  0752:39 03            pushi 3 // $3 y
  0754:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  075a:31 0f              bnt code_076b 
  075c:39 4c            pushi 4c // $4c claimed
  075e:78               push1 
  075f:78               push1 
  0760:87 01              lap param1 
  0762:4a 06             send 6 

  0764:78               push1 
  0765:74 05a7          lofss $0d0f // window
  0768:45 19 02         callb procedure_0019 2 // DoLook 


        code_076b
  076b:48                 ret 
    )

)

// 0c4a
(instance Mat of RFeature
    (properties
        y $0
        x $0
        z $0
        heading $0
        nsTop $78
        nsLeft $8b
        nsBottom $7c
        nsRight $b2
    )
    (method (handleEvent) // method_076c
  076c:78               push1 
  076d:74 00ff          lofss $086f // bouger,get/doormat,(door<doormat)
  0770:43 25 02         callk Said 2 

  0773:31 0d              bnt code_0782 
  0775:7a               push2 
  0776:39 10            pushi 10 // $10 lsRight
  0778:39 12            pushi 12 // $12 illegalBits
  077a:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0780:33 41              jmp code_07c3 

        code_0782
  0782:78               push1 
  0783:74 00a6          lofss $082c // lift,(look<below)/doormat,(door<doormat)
  0786:43 25 02         callk Said 2 

  0789:31 0d              bnt code_0798 
  078b:7a               push2 
  078c:39 10            pushi 10 // $10 lsRight
  078e:39 13            pushi 13 // $13 brTop
  0790:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0796:33 2b              jmp code_07c3 

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

  07a5:2f 09               bt code_07b0 
  07a7:78               push1 
  07a8:74 00ac          lofss $0857 // look/doormat,(door<doormat)
  07ab:43 25 02         callk Said 2 

  07ae:31 13              bnt code_07c3 

        code_07b0
  07b0:39 4c            pushi 4c // $4c claimed
  07b2:78               push1 
  07b3:78               push1 
  07b4:87 01              lap param1 
  07b6:4a 06             send 6 

  07b8:7a               push2 
  07b9:39 10            pushi 10 // $10 lsRight
  07bb:39 14            pushi 14 // $14 brLeft
  07bd:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_07c3
  07c3:48                 ret 
    )

)

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



