(script 75)

(string
    string_0a00 "Junk"
    string_0a05 "Quel grenier sombre et effrayant ! La lumi}re de la lune qui {claire les grandes fen=tres est bienfaisante. Parmi tout ce bric-@-brac, une pile de vieux journaux attire votre attention."
    string_0abf "Room75"
    string_0ac6 "Shaft"
    string_0acc "Window1"
    string_0ad4 "arms"
    string_0ad9 "chain"
    string_0adf "down"
    string_0ae4 "elevator"
    string_0aed "gate"
    string_0af2 "head"
    string_0af7 "paper"
    string_0afd "readNewspaper"
    string_0b0b "up"
    string_0b0e "window"
    string_0b15 ""
)

(said
    said_05ec /boite
    said_05f0 /chest
    said_05f4 <dans/boite
    said_05fb <dans/chest
    said_0602 [<around,at][/room]
    said_0610 [<at]/fenetre
    said_0619 get,bouger/boite
    said_0622 get,etudier,look/journaux
    said_062e look/dechet,chose,furniture
    said_063a look>
    said_063e open>
)

(synonym
    journaux | newspaper = letter | lettre | note | paper | papier
    room = attic | grenier
)

(local
    local0 = $0000
    local1 = $0000
)

// 0648
(instance public Room75 of Rm
    (properties
        script $0
        number $0
        timer $0
        keep $0
        initialized $0
        picture $4b
        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_0039
  0039:35 00              ldi 0 
  003b:a1 3d              sag global61 
  003d:39 57            pushi 57 // $57 init
  003f:76               push0 
  0040:57 37 04         super Rm 4 

  0043:80 0184            lag gAtticFirstTime 
  0046:18                 not 
  0047:31 11              bnt code_005a 
  0049:88 00ba            lsg gHour 
  004c:35 08              ldi 8 
  004e:0e                 shl 
  004f:36                push 
  0050:88 00bb            lsg gMinute 
  0053:35 0f              ldi f 
  0055:06                 mul 
  0056:14                  or 
  0057:a0 0184            sag gAtticFirstTime 

        code_005a
  005a:38 010b          pushi 10b // $10b setFeatures
  005d:39 03            pushi 3 // $3 y
  005f:74 075e          lofss $07c0 // Window1
  0062:74 0787          lofss $07ec // Shaft
  0065:74 07b0          lofss $0818 // Junk
  0068:54 0a             self a 

  006a:89 7b              lsg gCorpseFlags 
  006c:35 40              ldi 40 
  006e:12                 and 
  006f:31 1e              bnt code_008f 
  0071:38 00e9          pushi e9 // $e9 canControl
  0074:78               push1 
  0075:76               push0 
  0076:38 00e2          pushi e2 // $e2 canInput
  0079:78               push1 
  007a:78               push1 
  007b:51 2b            class User 
  007d:4a 0c             send c 

  007f:35 01              ldi 1 
  0081:a0 00be            sag global190 
  0084:38 010a          pushi 10a // $10a setRegions
  0087:78               push1 
  0088:38 0122          pushi 122 // $122 xTilt
  008b:54 06             self 6 

  008d:33 20              jmp code_00af 

        code_008f
  008f:39 57            pushi 57 // $57 init
  0091:76               push0 
  0092:38 0089          pushi 89 // $89 hide
  0095:76               push0 
  0096:38 00c6          pushi c6 // $c6 stopUpd
  0099:76               push0 
  009a:72 0687          lofsa $0724 // head
  009d:4a 0c             send c 

  009f:39 57            pushi 57 // $57 init
  00a1:76               push0 
  00a2:38 0089          pushi 89 // $89 hide
  00a5:76               push0 
  00a6:38 00c6          pushi c6 // $c6 stopUpd
  00a9:76               push0 
  00aa:72 06c5          lofsa $0772 // arms
  00ad:4a 0c             send c 


        code_00af
  00af:89 0c              lsg gPrevRoomNum 
  00b1:35 42              ldi 42 
  00b3:1c                 ne? 
  00b4:31 3f              bnt code_00f5 
  00b6:89 0c              lsg gPrevRoomNum 
  00b8:35 4a              ldi 4a 
  00ba:1a                 eq? 
  00bb:31 10              bnt code_00cd 
  00bd:38 00c5          pushi c5 // $c5 posn
  00c0:7a               push2 
  00c1:38 00e6          pushi e6 // $e6 prompt
  00c4:38 00bc          pushi bc // $bc motionInited
  00c7:81 00              lag gEgo 
  00c9:4a 08             send 8 

  00cb:33 1a              jmp code_00e7 

        code_00cd
  00cd:89 0c              lsg gPrevRoomNum 
  00cf:35 2a              ldi 2a 
  00d1:1a                 eq? 
  00d2:31 06              bnt code_00da 
  00d4:78               push1 
  00d5:39 2e            pushi 2e // $2e dx
  00d7:45 06 02         callb procedure_0006 2 // ClearFlag 


        code_00da
  00da:38 00c5          pushi c5 // $c5 posn
  00dd:7a               push2 
  00de:39 50            pushi 50 // $50 title
  00e0:38 00bc          pushi bc // $bc motionInited
  00e3:81 00              lag gEgo 
  00e5:4a 08             send 8 


        code_00e7
  00e7:39 05            pushi 5 // $5 view
  00e9:78               push1 
  00ea:76               push0 
  00eb:39 12            pushi 12 // $12 illegalBits
  00ed:78               push1 
  00ee:38 8000          pushi 8000 // $8000 sel_32768
  00f1:81 00              lag gEgo 
  00f3:4a 0c             send c 


        code_00f5
  00f5:39 57            pushi 57 // $57 init
  00f7:76               push0 
  00f8:38 00c6          pushi c6 // $c6 stopUpd
  00fb:76               push0 
  00fc:72 05d3          lofsa $06d2 // paper
  00ff:4a 08             send 8 

  0101:38 0135          pushi 135 // $135 chainID
  0104:78               push1 
  0105:74 07a4          lofss $08ac // chain
  0108:38 0136          pushi 136 // $136 elevatorID
  010b:78               push1 
  010c:74 0801          lofss $0910 // elevator
  010f:38 0137          pushi 137 // $137 downID
  0112:78               push1 
  0113:74 085e          lofss $0974 // down
  0116:38 0138          pushi 138 // $138 upID
  0119:78               push1 
  011a:74 089d          lofss $09ba // up
  011d:38 0139          pushi 139 // $139 msgID
  0120:78               push1 
  0121:74 08e1          lofss $0a05 // Quel grenier sombre et effrayant ! La lumi}re de la lune qui {claire les grandes fen=tres est bienfaisante. Parmi tout ce bric-@-brac, une pile de vieux journaux attire votre attention.
  0124:39 57            pushi 57 // $57 init
  0126:76               push0 
  0127:72 071a          lofsa $0844 // gate
  012a:a0 0185            sag gGate 
  012d:4a 22             send 22 

  012f:48                 ret 
    )

    (method (doit) // method_0130
  0130:89 7b              lsg gCorpseFlags 
  0132:35 40              ldi 40 
  0134:12                 and 
  0135:18                 not 
  0136:31 18              bnt code_0150 
  0138:89 6d              lsg gElevatorState 
  013a:35 10              ldi 10 
  013c:12                 and 
  013d:18                 not 
  013e:31 10              bnt code_0150 
  0140:76               push0 
  0141:45 14 00         callb procedure_0014 0 // IsFirstTimeInRoom 

  0144:31 0a              bnt code_0150 
  0146:7a               push2 
  0147:39 4b            pushi 4b // $4b said
  0149:76               push0 
  014a:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0150
  0150:38 00eb          pushi eb // $eb edgeHit
  0153:76               push0 
  0154:81 00              lag gEgo 
  0156:4a 04             send 4 

  0158:36                push 
  0159:35 03              ldi 3 
  015b:1a                 eq? 
  015c:31 24              bnt code_0182 
  015e:39 04            pushi 4 // $4 x
  0160:76               push0 
  0161:81 00              lag gEgo 
  0163:4a 04             send 4 

  0165:36                push 
  0166:34 00bd            ldi bd 
  0169:22                 lt? 
  016a:31 0c              bnt code_0178 
  016c:38 00f8          pushi f8 // $f8 newRoom
  016f:78               push1 
  0170:39 4c            pushi 4c // $4c claimed
  0172:81 02              lag gCurRoom 
  0174:4a 06             send 6 

  0176:33 0a              jmp code_0182 

        code_0178
  0178:38 00f8          pushi f8 // $f8 newRoom
  017b:78               push1 
  017c:39 4a            pushi 4a // $4a pragmaFail
  017e:81 02              lag gCurRoom 
  0180:4a 06             send 6 


        code_0182
  0182:39 04            pushi 4 // $4 x
  0184:76               push0 
  0185:81 00              lag gEgo 
  0187:4a 04             send 4 

  0189:36                push 
  018a:34 0082            ldi 82 
  018d:22                 lt? 
  018e:31 06              bnt code_0196 
  0190:35 1e              ldi 1e 
  0192:65 2a             aTop vertAngle 
  0194:33 19              jmp code_01af 

        code_0196
  0196:39 04            pushi 4 // $4 x
  0198:76               push0 
  0199:81 00              lag gEgo 
  019b:4a 04             send 4 

  019d:36                push 
  019e:34 00be            ldi be 
  01a1:22                 lt? 
  01a2:31 06              bnt code_01aa 
  01a4:35 00              ldi 0 
  01a6:65 2a             aTop vertAngle 
  01a8:33 05              jmp code_01af 

        code_01aa
  01aa:34 0096            ldi 96 
  01ad:65 2a             aTop vertAngle 

        code_01af
  01af:39 3c            pushi 3c // $3c doit
  01b1:76               push0 
  01b2:57 37 04         super Rm 4 

  01b5:48                 ret 
    )

    (method (dispose) // method_01b6
  01b6:78               push1 
  01b7:38 00c9          pushi c9 // $c9 ignoreActors
  01ba:43 03 02         callk DisposeScript 2 

  01bd:39 58            pushi 58 // $58 dispose
  01bf:76               push0 
  01c0:57 37 04         super Rm 4 

  01c3:48                 ret 
    )

    (method (newRoom) // method_01c4
  01c4:38 00f8          pushi f8 // $f8 newRoom
  01c7:78               push1 
  01c8:8f 01              lsp param1 
  01ca:57 37 06         super Rm 6 

  01cd:48                 ret 
    )

    (method (handleEvent) // method_01ce
  01ce:39 6f            pushi 6f // $6f handleEvent
  01d0:78               push1 
  01d1:8f 01              lsp param1 
  01d3:57 37 06         super Rm 6 

  01d6:39 4c            pushi 4c // $4c claimed
  01d8:76               push0 
  01d9:87 01              lap param1 
  01db:4a 04             send 4 

  01dd:31 01              bnt code_01e0 
  01df:48                 ret 

        code_01e0
  01e0:39 22            pushi 22 // $22 type
  01e2:76               push0 
  01e3:87 01              lap param1 
  01e5:4a 04             send 4 

  01e7:36                push 
  01e8:34 0080            ldi 80 
  01eb:1a                 eq? 
  01ec:30 00e9            bnt code_02d8 
  01ef:78               push1 
  01f0:74 0426          lofss $0619 // get,bouger/boite
  01f3:43 25 02         callk Said 2 

  01f6:31 0d              bnt code_0205 
  01f8:7a               push2 
  01f9:39 4b            pushi 4b // $4b said
  01fb:78               push1 
  01fc:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0202:32 00d3            jmp code_02d8 

        code_0205
  0205:78               push1 
  0206:74 0431          lofss $063a // look>
  0209:43 25 02         callk Said 2 

  020c:30 0096            bnt code_02a5 
  020f:78               push1 
  0210:74 03ef          lofss $0602 // [<around,at][/room]
  0213:43 25 02         callk Said 2 

  0216:31 1f              bnt code_0237 
  0218:89 7b              lsg gCorpseFlags 
  021a:35 40              ldi 40 
  021c:12                 and 
  021d:31 0c              bnt code_022b 
  021f:7a               push2 
  0220:39 4b            pushi 4b // $4b said
  0222:7a               push2 
  0223:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0229:33 0a              jmp code_0235 

        code_022b
  022b:7a               push2 
  022c:39 4b            pushi 4b // $4b said
  022e:76               push0 
  022f:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0235
  0235:33 6c              jmp code_02a3 

        code_0237
  0237:78               push1 
  0238:74 03b9          lofss $05f4 // <dans/boite
  023b:43 25 02         callk Said 2 

  023e:31 0d              bnt code_024d 
  0240:7a               push2 
  0241:39 4b            pushi 4b // $4b said
  0243:39 03            pushi 3 // $3 y
  0245:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  024b:33 56              jmp code_02a3 

        code_024d
  024d:78               push1 
  024e:74 039b          lofss $05ec // /boite
  0251:43 25 02         callk Said 2 

  0254:31 0d              bnt code_0263 
  0256:7a               push2 
  0257:39 4b            pushi 4b // $4b said
  0259:39 04            pushi 4 // $4 x
  025b:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0261:33 40              jmp code_02a3 

        code_0263
  0263:78               push1 
  0264:74 0394          lofss $05fb // <dans/chest
  0267:43 25 02         callk Said 2 

  026a:31 0d              bnt code_0279 
  026c:7a               push2 
  026d:39 4b            pushi 4b // $4b said
  026f:39 05            pushi 5 // $5 view
  0271:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0277:33 2a              jmp code_02a3 

        code_0279
  0279:78               push1 
  027a:74 0373          lofss $05f0 // /chest
  027d:43 25 02         callk Said 2 

  0280:31 0d              bnt code_028f 
  0282:7a               push2 
  0283:39 4b            pushi 4b // $4b said
  0285:39 06            pushi 6 // $6 loop
  0287:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  028d:33 14              jmp code_02a3 

        code_028f
  028f:78               push1 
  0290:74 037d          lofss $0610 // [<at]/fenetre
  0293:43 25 02         callk Said 2 

  0296:31 0b              bnt code_02a3 
  0298:7a               push2 
  0299:39 4b            pushi 4b // $4b said
  029b:39 07            pushi 7 // $7 cel
  029d:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_02a3
  02a3:33 33              jmp code_02d8 

        code_02a5
  02a5:78               push1 
  02a6:74 0395          lofss $063e // open>
  02a9:43 25 02         callk Said 2 

  02ac:31 2a              bnt code_02d8 
  02ae:78               push1 
  02af:74 033a          lofss $05ec // /boite
  02b2:43 25 02         callk Said 2 

  02b5:31 0d              bnt code_02c4 
  02b7:7a               push2 
  02b8:39 4b            pushi 4b // $4b said
  02ba:39 03            pushi 3 // $3 y
  02bc:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  02c2:33 14              jmp code_02d8 

        code_02c4
  02c4:78               push1 
  02c5:74 0328          lofss $05f0 // /chest
  02c8:43 25 02         callk Said 2 

  02cb:31 0b              bnt code_02d8 
  02cd:7a               push2 
  02ce:39 4b            pushi 4b // $4b said
  02d0:39 05            pushi 5 // $5 view
  02d2:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_02d8
  02d8:48                 ret 
    )

)

// 0698
(instance readNewspaper of Script
    (properties
        client $0
        state $ffff
        start $0
        timer $0
        cycles $0
        seconds $0
        lastSeconds $0
        register $0
        script $0
        caller $0
    )
    (method (handleEvent) // method_02d9
  02d9:39 4c            pushi 4c // $4c claimed
  02db:76               push0 
  02dc:87 01              lap param1 
  02de:4a 04             send 4 

  02e0:18                 not 
  02e1:31 4b              bnt code_032e 
  02e3:39 22            pushi 22 // $22 type
  02e5:76               push0 
  02e6:87 01              lap param1 
  02e8:4a 04             send 4 

  02ea:36                push 
  02eb:35 01              ldi 1 
  02ed:1a                 eq? 
  02ee:2f 1a               bt code_030a 
  02f0:39 22            pushi 22 // $22 type
  02f2:76               push0 
  02f3:87 01              lap param1 
  02f5:4a 04             send 4 

  02f7:36                push 
  02f8:35 04              ldi 4 
  02fa:1a                 eq? 
  02fb:2f 0d               bt code_030a 
  02fd:39 22            pushi 22 // $22 type
  02ff:76               push0 
  0300:87 01              lap param1 
  0302:4a 04             send 4 

  0304:36                push 
  0305:35 40              ldi 40 
  0307:1a                 eq? 
  0308:31 24              bnt code_032e 

        code_030a
  030a:67 0a             pTos state 
  030c:35 04              ldi 4 
  030e:1a                 eq? 
  030f:31 1d              bnt code_032e 
  0311:39 22            pushi 22 // $22 type
  0313:76               push0 
  0314:87 01              lap param1 
  0316:4a 04             send 4 

  0318:36                push 
  0319:35 40              ldi 40 
  031b:1c                 ne? 
  031c:31 08              bnt code_0326 
  031e:35 00              ldi 0 
  0320:65 12             aTop seconds 
  0322:35 01              ldi 1 
  0324:65 10             aTop cycles 

        code_0326
  0326:39 4c            pushi 4c // $4c claimed
  0328:78               push1 
  0329:78               push1 
  032a:87 01              lap param1 
  032c:4a 06             send 6 


        code_032e
  032e:48                 ret 
    )

    (method (changeState) // method_032f
  032f:87 01              lap param1 
  0331:65 0a             aTop state 
  0333:36                push 
  0334:3c                 dup 
  0335:35 00              ldi 0 
  0337:1a                 eq? 
  0338:31 1c              bnt code_0356 
  033a:76               push0 
  033b:45 03 00         callb procedure_0003 0 // HandsOff 

  033e:39 12            pushi 12 // $12 illegalBits
  0340:78               push1 
  0341:76               push0 
  0342:38 00d3          pushi d3 // $d3 setMotion
  0345:39 04            pushi 4 // $4 x
  0347:51 1d            class MoveTo 
  0349:36                push 
  034a:39 20            pushi 20 // $20 state
  034c:39 7f            pushi 7f // $7f setReal
  034e:7c            pushSelf 
  034f:81 00              lag gEgo 
  0351:4a 12             send 12 

  0353:32 01be            jmp code_0514 

        code_0356
  0356:3c                 dup 
  0357:35 01              ldi 1 
  0359:1a                 eq? 
  035a:31 20              bnt code_037c 
  035c:39 05            pushi 5 // $5 view
  035e:78               push1 
  035f:39 3d            pushi 3d // $3d isBlocked
  0361:39 07            pushi 7 // $7 cel
  0363:78               push1 
  0364:76               push0 
  0365:39 06            pushi 6 // $6 loop
  0367:78               push1 
  0368:78               push1 
  0369:38 00a4          pushi a4 // $a4 cycleSpeed
  036c:78               push1 
  036d:78               push1 
  036e:39 7e            pushi 7e // $7e setCycle
  0370:7a               push2 
  0371:51 1a            class End 
  0373:36                push 
  0374:7c            pushSelf 
  0375:81 00              lag gEgo 
  0377:4a 20             send 20 

  0379:32 0198            jmp code_0514 

        code_037c
  037c:3c                 dup 
  037d:35 02              ldi 2 
  037f:1a                 eq? 
  0380:31 6a              bnt code_03ec 
  0382:38 0089          pushi 89 // $89 hide
  0385:76               push0 
  0386:38 00c7          pushi c7 // $c7 forceUpd
  0389:76               push0 
  038a:72 0345          lofsa $06d2 // paper
  038d:4a 08             send 8 

  038f:39 06            pushi 6 // $6 loop
  0391:78               push1 
  0392:7a               push2 
  0393:39 07            pushi 7 // $7 cel
  0395:78               push1 
  0396:76               push0 
  0397:81 00              lag gEgo 
  0399:4a 0c             send c 

  039b:38 00c5          pushi c5 // $c5 posn
  039e:7a               push2 
  039f:39 04            pushi 4 // $4 x
  03a1:76               push0 
  03a2:81 00              lag gEgo 
  03a4:4a 04             send 4 

  03a6:36                push 
  03a7:35 04              ldi 4 
  03a9:02                 add 
  03aa:36                push 
  03ab:39 03            pushi 3 // $3 y
  03ad:76               push0 
  03ae:81 00              lag gEgo 
  03b0:4a 04             send 4 

  03b2:36                push 
  03b3:35 26              ldi 26 
  03b5:04                 sub 
  03b6:36                push 
  03b7:38 00ca          pushi ca // $ca show
  03ba:76               push0 
  03bb:72 0366          lofsa $0724 // head
  03be:4a 0c             send c 

  03c0:38 00c5          pushi c5 // $c5 posn
  03c3:7a               push2 
  03c4:39 04            pushi 4 // $4 x
  03c6:76               push0 
  03c7:81 00              lag gEgo 
  03c9:4a 04             send 4 

  03cb:36                push 
  03cc:35 03              ldi 3 
  03ce:04                 sub 
  03cf:36                push 
  03d0:39 03            pushi 3 // $3 y
  03d2:76               push0 
  03d3:81 00              lag gEgo 
  03d5:4a 04             send 4 

  03d7:36                push 
  03d8:35 1a              ldi 1a 
  03da:04                 sub 
  03db:36                push 
  03dc:38 00ca          pushi ca // $ca show
  03df:76               push0 
  03e0:72 038f          lofsa $0772 // arms
  03e3:4a 0c             send c 

  03e5:35 02              ldi 2 
  03e7:65 10             aTop cycles 
  03e9:32 0128            jmp code_0514 

        code_03ec
  03ec:3c                 dup 
  03ed:35 03              ldi 3 
  03ef:1a                 eq? 
  03f0:31 12              bnt code_0404 
  03f2:7a               push2 
  03f3:39 4b            pushi 4b // $4b said
  03f5:39 08            pushi 8 // $8 underBits
  03f7:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  03fd:35 01              ldi 1 
  03ff:65 10             aTop cycles 
  0401:32 0110            jmp code_0514 

        code_0404
  0404:3c                 dup 
  0405:35 04              ldi 4 
  0407:1a                 eq? 
  0408:31 44              bnt code_044e 
  040a:c3 01              +al local1 
  040c:39 7e            pushi 7e // $7e setCycle
  040e:78               push1 
  040f:51 16            class Fwd 
  0411:36                push 
  0412:72 030f          lofsa $0724 // head
  0415:4a 06             send 6 

  0417:8b 01              lsl local1 
  0419:3c                 dup 
  041a:35 01              ldi 1 
  041c:1a                 eq? 
  041d:31 0b              bnt code_042a 
  041f:7a               push2 
  0420:39 4b            pushi 4b // $4b said
  0422:39 09            pushi 9 // $9 nsTop
  0424:40 fbf2 04        call proc_001a 4 

  0428:33 20              jmp code_044a 

        code_042a
  042a:3c                 dup 
  042b:35 02              ldi 2 
  042d:1a                 eq? 
  042e:31 0b              bnt code_043b 
  0430:7a               push2 
  0431:39 4b            pushi 4b // $4b said
  0433:39 0a            pushi a // $a nsLeft
  0435:40 fbe1 04        call proc_001a 4 

  0439:33 0f              jmp code_044a 

        code_043b
  043b:3c                 dup 
  043c:35 03              ldi 3 
  043e:1a                 eq? 
  043f:31 09              bnt code_044a 
  0441:7a               push2 
  0442:39 4b            pushi 4b // $4b said
  0444:39 0b            pushi b // $b nsBottom
  0446:40 fbd0 04        call proc_001a 4 


        code_044a
  044a:3a                toss 
  044b:32 00c6            jmp code_0514 

        code_044e
  044e:3c                 dup 
  044f:35 05              ldi 5 
  0451:1a                 eq? 
  0452:31 24              bnt code_0478 
  0454:76               push0 
  0455:45 0f 00         callb procedure_000f 0 // cls 

  0458:8b 01              lsl local1 
  045a:35 03              ldi 3 
  045c:22                 lt? 
  045d:31 12              bnt code_0471 
  045f:35 03              ldi 3 
  0461:65 0a             aTop state 
  0463:39 7e            pushi 7e // $7e setCycle
  0465:7a               push2 
  0466:51 1a            class End 
  0468:36                push 
  0469:7c            pushSelf 
  046a:72 0305          lofsa $0772 // arms
  046d:4a 08             send 8 

  046f:33 04              jmp code_0475 

        code_0471
  0471:35 01              ldi 1 
  0473:65 10             aTop cycles 

        code_0475
  0475:32 009c            jmp code_0514 

        code_0478
  0478:3c                 dup 
  0479:35 06              ldi 6 
  047b:1a                 eq? 
  047c:31 48              bnt code_04c6 
  047e:38 00ca          pushi ca // $ca show
  0481:76               push0 
  0482:38 00c7          pushi c7 // $c7 forceUpd
  0485:76               push0 
  0486:72 0249          lofsa $06d2 // paper
  0489:4a 08             send 8 

  048b:39 06            pushi 6 // $6 loop
  048d:78               push1 
  048e:78               push1 
  048f:81 00              lag gEgo 
  0491:4a 06             send 6 

  0493:39 07            pushi 7 // $7 cel
  0495:78               push1 
  0496:38 00a6          pushi a6 // $a6 lastCel
  0499:76               push0 
  049a:81 00              lag gEgo 
  049c:4a 04             send 4 

  049e:36                push 
  049f:39 7e            pushi 7e // $7e setCycle
  04a1:7a               push2 
  04a2:51 1b            class Beg 
  04a4:36                push 
  04a5:7c            pushSelf 
  04a6:81 00              lag gEgo 
  04a8:4a 0e             send e 

  04aa:38 0089          pushi 89 // $89 hide
  04ad:76               push0 
  04ae:38 00c7          pushi c7 // $c7 forceUpd
  04b1:76               push0 
  04b2:72 026f          lofsa $0724 // head
  04b5:4a 08             send 8 

  04b7:38 0089          pushi 89 // $89 hide
  04ba:76               push0 
  04bb:38 00c7          pushi c7 // $c7 forceUpd
  04be:76               push0 
  04bf:72 02b0          lofsa $0772 // arms
  04c2:4a 08             send 8 

  04c4:33 4e              jmp code_0514 

        code_04c6
  04c6:3c                 dup 
  04c7:35 07              ldi 7 
  04c9:1a                 eq? 
  04ca:31 48              bnt code_0514 
  04cc:7a               push2 
  04cd:39 4b            pushi 4b // $4b said
  04cf:39 0c            pushi c // $c nsRight
  04d1:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  04d7:35 01              ldi 1 
  04d9:a3 00              sal local0 
  04db:76               push0 
  04dc:45 04 00         callb procedure_0004 0 // HandsOn 

  04df:39 05            pushi 5 // $5 view
  04e1:78               push1 
  04e2:76               push0 
  04e3:39 06            pushi 6 // $6 loop
  04e5:78               push1 
  04e6:78               push1 
  04e7:38 00a4          pushi a4 // $a4 cycleSpeed
  04ea:78               push1 
  04eb:76               push0 
  04ec:39 12            pushi 12 // $12 illegalBits
  04ee:78               push1 
  04ef:38 8000          pushi 8000 // $8000 sel_32768
  04f2:39 7e            pushi 7e // $7e setCycle
  04f4:78               push1 
  04f5:51 17            class Walk 
  04f7:36                push 
  04f8:81 00              lag gEgo 
  04fa:4a 1e             send 1e 

  04fc:39 58            pushi 58 // $58 dispose
  04fe:76               push0 
  04ff:72 0222          lofsa $0724 // head
  0502:4a 04             send 4 

  0504:39 58            pushi 58 // $58 dispose
  0506:76               push0 
  0507:72 0268          lofsa $0772 // arms
  050a:4a 04             send 4 

  050c:39 7a            pushi 7a // $7a setScript
  050e:78               push1 
  050f:76               push0 
  0510:63 08             pToa client 
  0512:4a 06             send 6 


        code_0514
  0514:3a                toss 
  0515:48                 ret 
    )

)

// 06cc
(instance paper of Prop
    (properties
        y $7f
        x $11
        z $0
        heading $0
        yStep $2
        view $3d
        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_0516
  0516:78               push1 
  0517:74 0108          lofss $0622 // get,etudier,look/journaux
  051a:43 25 02         callk Said 2 

  051d:2f 0f               bt code_052e 
  051f:39 03            pushi 3 // $3 y
  0521:7c            pushSelf 
  0522:8f 01              lsp param1 
  0524:39 03            pushi 3 // $3 y
  0526:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  052c:31 4f              bnt code_057d 

        code_052e
  052e:39 4c            pushi 4c // $4c claimed
  0530:78               push1 
  0531:78               push1 
  0532:87 01              lap param1 
  0534:4a 06             send 6 

  0536:89 6d              lsg gElevatorState 
  0538:35 10              ldi 10 
  053a:12                 and 
  053b:31 0d              bnt code_054a 
  053d:7a               push2 
  053e:39 4b            pushi 4b // $4b said
  0540:39 0d            pushi d // $d lsTop
  0542:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0548:33 33              jmp code_057d 

        code_054a
  054a:83 00              lal local0 
  054c:31 0d              bnt code_055b 
  054e:7a               push2 
  054f:39 4b            pushi 4b // $4b said
  0551:39 0e            pushi e // $e lsLeft
  0553:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0559:33 22              jmp code_057d 

        code_055b
  055b:38 00ae          pushi ae // $ae distanceTo
  055e:78               push1 
  055f:74 0170          lofss $06d2 // paper
  0562:81 00              lag gEgo 
  0564:4a 06             send 6 

  0566:36                push 
  0567:35 32              ldi 32 
  0569:22                 lt? 
  056a:31 0d              bnt code_0579 
  056c:39 7a            pushi 7a // $7a setScript
  056e:78               push1 
  056f:74 012c          lofss $069e // readNewspaper
  0572:72 00d9          lofsa $064e // Room75
  0575:4a 06             send 6 

  0577:33 04              jmp code_057d 

        code_0579
  0579:76               push0 
  057a:45 09 00         callb procedure_0009 0 // NotClose 


        code_057d
  057d:48                 ret 
    )

)

// 071e
(instance head of Prop
    (properties
        y $0
        x $0
        z $0
        heading $0
        yStep $2
        view $3d
        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 $3
        script $0
        cycler $0
        timer $0
    )
)

// 076c
(instance arms of Prop
    (properties
        y $0
        x $0
        z $0
        heading $0
        yStep $2
        view $3d
        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 $1
        script $0
        cycler $0
        timer $0
    )
)

// 07ba
(instance Window1 of RFeature
    (properties
        y $0
        x $0
        z $0
        heading $0
        nsTop $10
        nsLeft $61
        nsBottom $52
        nsRight $cf
    )
    (method (handleEvent) // method_057e
  057e:39 03            pushi 3 // $3 y
  0580:7c            pushSelf 
  0581:8f 01              lsp param1 
  0583:39 03            pushi 3 // $3 y
  0585:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  058b:31 0f              bnt code_059c 
  058d:39 4c            pushi 4c // $4c claimed
  058f:78               push1 
  0590:78               push1 
  0591:87 01              lap param1 
  0593:4a 06             send 6 

  0595:78               push1 
  0596:74 0575          lofss $0b0e // window
  0599:45 19 02         callb procedure_0019 2 // DoLook 


        code_059c
  059c:48                 ret 
    )

)

// 07e6
(instance Shaft of RFeature
    (properties
        y $0
        x $0
        z $0
        heading $0
        nsTop $34
        nsLeft $26
        nsBottom $71
        nsRight $42
    )
    (method (handleEvent) // method_059d
  059d:39 03            pushi 3 // $3 y
  059f:7c            pushSelf 
  05a0:8f 01              lsp param1 
  05a2:39 03            pushi 3 // $3 y
  05a4:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  05aa:31 0f              bnt code_05bb 
  05ac:39 4c            pushi 4c // $4c claimed
  05ae:78               push1 
  05af:78               push1 
  05b0:87 01              lap param1 
  05b2:4a 06             send 6 

  05b4:78               push1 
  05b5:74 052c          lofss $0ae4 // elevator
  05b8:45 19 02         callb procedure_0019 2 // DoLook 


        code_05bb
  05bb:48                 ret 
    )

)

// 0812
(instance Junk of RFeature
    (properties
        y $0
        x $0
        z $0
        heading $0
        nsTop $1e
        nsLeft $10a
        nsBottom $81
        nsRight $13f
    )
    (method (handleEvent) // method_05bc
  05bc:39 03            pushi 3 // $3 y
  05be:7c            pushSelf 
  05bf:8f 01              lsp param1 
  05c1:39 03            pushi 3 // $3 y
  05c3:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  05c9:2f 09               bt code_05d4 
  05cb:78               push1 
  05cc:74 005f          lofss $062e // look/dechet,chose,furniture
  05cf:43 25 02         callk Said 2 

  05d2:31 13              bnt code_05e7 

        code_05d4
  05d4:7a               push2 
  05d5:39 4b            pushi 4b // $4b said
  05d7:39 0f            pushi f // $f lsBottom
  05d9:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

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


        code_05e7
  05e7:48                 ret 
    )

)

// 083e
(instance gate of ElevGate
    (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
        chainID $0
        elevatorID $0
        downID $0
        upID $0
        msgID $0
        gateStMask $0
        gateX $11b
        gateY $7d
        elevX $128
        elevY $7d
        chainY $0
        upRoomNo $0
        downRoomNo $0
    )
)

// 08a6
(instance chain 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
    )
)

// 090a
(instance elevator of Act
    (properties
        y $fff6
        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
    )
)

// 096e
(instance down of View
    (properties
        y $0
        x $0
        z $0
        heading $0
        yStep $2
        view $0
        loop $0
        cel $0
        priority $0
        underBits $0
        signal $101
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
        lsTop $0
        lsLeft $0
        lsBottom $0
        lsRight $0
        brTop $0
        brLeft $0
        brBottom $0
        brRight $0
    )
)

// 09b4
(instance up of View
    (properties
        y $0
        x $0
        z $0
        heading $0
        yStep $2
        view $0
        loop $0
        cel $0
        priority $0
        underBits $0
        signal $101
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
        lsTop $0
        lsLeft $0
        lsBottom $0
        lsRight $0
        brTop $0
        brLeft $0
        brBottom $0
        brRight $0
    )
)



(procedure proc_001a
  001a:39 0a            pushi a // $a nsLeft
  001c:59 01            &rest 1 
  001e:39 43            pushi 43 // $43 at
  0020:39 0a            pushi a // $a nsLeft
  0022:39 7d            pushi 7d // $7d set
  0024:39 21            pushi 21 // $21 font
  0026:39 04            pushi 4 // $4 x
  0028:39 46            pushi 46 // $46 width
  002a:38 00fa          pushi fa // $fa restart
  002d:39 1e            pushi 1e // $1e mode
  002f:78               push1 
  0030:39 58            pushi 58 // $58 dispose
  0032:46 00ff 0000 14  calle ff procedure_0000 14 // Print 

  0038:48                 ret 
)

