(script 58)

(string
    string_1b4c "Altar"
    string_1b52 "CloseBoard"
    string_1b5d "Creak"
    string_1b63 "Door"
    string_1b68 "GetBible"
    string_1b71 "Jeeves"
    string_1b78 "Organ"
    string_1b7e "PathIn"
    string_1b85 "PathOut"
    string_1b8d "Pew1"
    string_1b92 "Pew2"
    string_1b97 "PryBoard"
    string_1ba0 "Room58"
    string_1ba7 "StainedGlass"
    string_1bb4 "Window1"
    string_1bbc "Window2"
    string_1bc4 "board"
    string_1bca "flame1"
    string_1bd1 "flame2"
    string_1bd8 "flame3"
    string_1bdf "lamp"
    string_1be4 "lightCandles"
    string_1bf1 "myDoor"
    string_1bf8 "mySound"
    string_1c00 "pray"
    string_1c05 "statueLeft"
    string_1c10 "statueRight"
    string_1c1c "tryBoard"
    string_1c25 ""
)

(said
    said_1328 (break,lift,arracher)<actionner<cane
    said_1339 (break,lift,arracher)<actionner<barre
    said_134a (break,lift,arracher)<actionner<poker
    said_135b (break,lift,arracher)[<(open,haut)]//cane
    said_1374 (break,lift,arracher)[<(open,haut)]//barre
    said_138d (break,lift,arracher)[<(open,haut)]//poker
    said_13a6 //board>
    said_13ac /bible>
    said_13b1 /board>
    said_13b6 /ceiling
    said_13ba /cemetery
    said_13be /cross
    said_13c2 /eyehole
    said_13c6 /platform,dirt
    said_13cd /mur
    said_13d1 <bas
    said_13d5 <haut
    said_13d9 [<around,at][/room]
    said_13e7 break/fenetre
    said_13ed debarrasser,(attach[<(arriere,bas)])
    said_13ff get,open,bouger,attirer,break,lift,arracher
    said_1414 get,open,etudier,look
    said_1420 get/bougie
    said_1426 get/monument
    said_142c allumer/bougie
    said_1432 look
    said_1435 look/altar
    said_143b look/banc
    said_1441 look/bougie
    said_1447 look/door
    said_144d look/door<arriere
    said_1456 look/door<avant
    said_145f look/monument,alcove
    said_1468 look/fenetre
    said_146e look<(exterieur,through)/fenetre
    said_147c look<below/banc
    said_1485 look>
    said_1489 open,(look<dans)/altar
    said_1497 open//cane
    said_149e open//barre
    said_14a5 open//poker
    said_14ac open/fenetre
    said_14b2 open<actionner<barre
    said_14bb adorer[/altar]
    said_14c3 appuyer,clore
    said_14c9 asseoir[/bas,banc]
)

(synonym
    board | planche = floorboard
    bible = book | livre
    room = chapel | chapelle | church | eglise
)

(local
    local0 = $0000
    local1 = $0000
    local2 = $0000
    local3 = $0000
    local4 = $0075
    local5 = $0071
    local6 = $00e8
    local7 = $0073
    local8 = $00d8
    local9 = $005c
    local10 = $8000
    local11 = $00ee
    local12 = $0073
    local13 = $0075
    local14 = $0071
    local15 = $0073
    local16 = $005e
    local17 = $8000
    local18 = $0000
)

// 14da
(instance public Room58 of Rm
    (properties
        script $0
        number $0
        timer $0
        keep $0
        initialized $0
        picture $3a
        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_001e
  001e:39 57            pushi 57 // $57 init
  0020:76               push0 
  0021:57 37 04         super Rm 4 

  0024:7a               push2 
  0025:38 0080          pushi 80 // $80 timeLeft
  0028:39 32            pushi 32 // $32 b-i2
  002a:43 00 04         callk Load 4 

  002d:39 03            pushi 3 // $3 y
  002f:38 0084          pushi 84 // $84 stop
  0032:39 2b            pushi 2b // $2b number
  0034:39 2c            pushi 2c // $2c handle
  0036:45 15 06         callb procedure_0015 6 // LoadMany 

  0039:39 61            pushi 61 // $61 add
  003b:7a               push2 
  003c:74 167b          lofss $16ba // statueRight
  003f:74 1642          lofss $1684 // statueLeft
  0042:39 62            pushi 62 // $62 eachElementDo
  0044:78               push1 
  0045:39 57            pushi 57 // $57 init
  0047:39 3c            pushi 3c // $3c doit
  0049:76               push0 
  004a:81 0a              lag gAddToPics 
  004c:4a 12             send 12 

  004e:39 06            pushi 6 // $6 loop
  0050:78               push1 
  0051:39 ff            pushi ff // $ff checkAni
  0053:39 3f            pushi 3f // $3f priority
  0055:78               push1 
  0056:39 ff            pushi ff // $ff checkAni
  0058:39 2a            pushi 2a // $2a play
  005a:76               push0 
  005b:72 18fc          lofsa $195a // Organ
  005e:4a 10             send 10 

  0060:38 010b          pushi 10b // $10b setFeatures
  0063:39 06            pushi 6 // $6 loop
  0065:74 1a6a          lofss $1ad2 // Pew1
  0068:74 1a93          lofss $1afe // Pew2
  006b:74 1a0c          lofss $1a7a // Window1
  006e:74 1a35          lofss $1aa6 // Window2
  0071:74 19da          lofss $1a4e // Altar
  0074:74 19ab          lofss $1a22 // StainedGlass
  0077:54 10             self 10 

  0079:81 79              lag gWilburCorpseRoomNum 
  007b:18                 not 
  007c:31 26              bnt code_00a4 
  007e:88 00a5            lsg gAct 
  0081:35 02              ldi 2 
  0083:20                 ge? 
  0084:31 1e              bnt code_00a4 
  0086:88 00a5            lsg gAct 
  0089:35 06              ldi 6 
  008b:1c                 ne? 
  008c:31 12              bnt code_00a0 
  008e:7a               push2 
  008f:78               push1 
  0090:7a               push2 
  0091:43 40 04         callk Random 4 

  0094:36                push 
  0095:35 01              ldi 1 
  0097:1a                 eq? 
  0098:31 06              bnt code_00a0 
  009a:35 3a              ldi 3a 
  009c:a1 79              sag gWilburCorpseRoomNum 
  009e:33 04              jmp code_00a4 

        code_00a0
  00a0:35 45              ldi 45 
  00a2:a1 79              sag gWilburCorpseRoomNum 

        code_00a4
  00a4:39 07            pushi 7 // $7 cel
  00a6:78               push1 
  00a7:80 0085            lag global133 
  00aa:31 0f              bnt code_00bb 
  00ac:78               push1 
  00ad:74 1692          lofss $1742 // Door
  00b0:43 0e 02         callk NumCels 2 

  00b3:36                push 
  00b4:35 01              ldi 1 
  00b6:04                 sub 
  00b7:31 02              bnt code_00bb 
  00b9:35 01              ldi 1 

        code_00bb
  00bb:36                push 
  00bc:38 00c9          pushi c9 // $c9 ignoreActors
  00bf:78               push1 
  00c0:78               push1 
  00c1:38 00c6          pushi c6 // $c6 stopUpd
  00c4:76               push0 
  00c5:39 57            pushi 57 // $57 init
  00c7:76               push0 
  00c8:72 1677          lofsa $1742 // Door
  00cb:4a 14             send 14 

  00cd:88 009b            lsg global155 
  00d0:35 0b              ldi b 
  00d2:1a                 eq? 
  00d3:2f 08               bt code_00dd 
  00d5:88 00a5            lsg gAct 
  00d8:35 02              ldi 2 
  00da:20                 ge? 
  00db:31 7c              bnt code_0159 

        code_00dd
  00dd:80 00df            lag gDetailLevel 
  00e0:31 3b              bnt code_011d 
  00e2:39 42            pushi 42 // $42 setPri
  00e4:78               push1 
  00e5:39 07            pushi 7 // $7 cel
  00e7:39 7e            pushi 7e // $7e setCycle
  00e9:78               push1 
  00ea:51 16            class Fwd 
  00ec:36                push 
  00ed:39 57            pushi 57 // $57 init
  00ef:76               push0 
  00f0:72 16ef          lofsa $17e2 // flame1
  00f3:4a 10             send 10 

  00f5:39 42            pushi 42 // $42 setPri
  00f7:78               push1 
  00f8:39 07            pushi 7 // $7 cel
  00fa:39 7e            pushi 7e // $7e setCycle
  00fc:78               push1 
  00fd:51 16            class Fwd 
  00ff:36                push 
  0100:39 57            pushi 57 // $57 init
  0102:76               push0 
  0103:72 172a          lofsa $1830 // flame2
  0106:4a 10             send 10 

  0108:39 42            pushi 42 // $42 setPri
  010a:78               push1 
  010b:39 07            pushi 7 // $7 cel
  010d:39 7e            pushi 7e // $7e setCycle
  010f:78               push1 
  0110:51 16            class Fwd 
  0112:36                push 
  0113:39 57            pushi 57 // $57 init
  0115:76               push0 
  0116:72 1765          lofsa $187e // flame3
  0119:4a 10             send 10 

  011b:33 33              jmp code_0150 

        code_011d
  011d:39 42            pushi 42 // $42 setPri
  011f:78               push1 
  0120:39 07            pushi 7 // $7 cel
  0122:39 57            pushi 57 // $57 init
  0124:76               push0 
  0125:38 00c6          pushi c6 // $c6 stopUpd
  0128:76               push0 
  0129:72 16b6          lofsa $17e2 // flame1
  012c:4a 0e             send e 

  012e:39 42            pushi 42 // $42 setPri
  0130:78               push1 
  0131:39 07            pushi 7 // $7 cel
  0133:39 57            pushi 57 // $57 init
  0135:76               push0 
  0136:38 00c6          pushi c6 // $c6 stopUpd
  0139:76               push0 
  013a:72 16f3          lofsa $1830 // flame2
  013d:4a 0e             send e 

  013f:39 42            pushi 42 // $42 setPri
  0141:78               push1 
  0142:39 07            pushi 7 // $7 cel
  0144:39 57            pushi 57 // $57 init
  0146:76               push0 
  0147:38 00c6          pushi c6 // $c6 stopUpd
  014a:76               push0 
  014b:72 1730          lofsa $187e // flame3
  014e:4a 0e             send e 


        code_0150
  0150:39 07            pushi 7 // $7 cel
  0152:78               push1 
  0153:76               push0 
  0154:72 1599          lofsa $16f0 // lamp
  0157:4a 06             send 6 


        code_0159
  0159:39 57            pushi 57 // $57 init
  015b:76               push0 
  015c:38 00c6          pushi c6 // $c6 stopUpd
  015f:76               push0 
  0160:72 158d          lofsa $16f0 // lamp
  0163:4a 08             send 8 

  0165:39 07            pushi 7 // $7 cel
  0167:78               push1 
  0168:88 0086            lsg global134 
  016b:35 02              ldi 2 
  016d:1a                 eq? 
  016e:31 11              bnt code_0181 
  0170:35 08              ldi 8 
  0172:a3 01              sal local1 
  0174:78               push1 
  0175:74 161c          lofss $1794 // board
  0178:43 0e 02         callk NumCels 2 

  017b:36                push 
  017c:35 01              ldi 1 
  017e:04                 sub 
  017f:33 04              jmp code_0185 

        code_0181
  0181:35 00              ldi 0 
  0183:a3 01              sal local1 

        code_0185
  0185:36                push 
  0186:39 42            pushi 42 // $42 setPri
  0188:78               push1 
  0189:88 0086            lsg global134 
  018c:35 02              ldi 2 
  018e:1a                 eq? 
  018f:31 04              bnt code_0195 
  0191:35 09              ldi 9 
  0193:33 02              jmp code_0197 

        code_0195
  0195:35 02              ldi 2 

        code_0197
  0197:36                push 
  0198:38 00c9          pushi c9 // $c9 ignoreActors
  019b:78               push1 
  019c:78               push1 
  019d:39 57            pushi 57 // $57 init
  019f:76               push0 
  01a0:72 15f1          lofsa $1794 // board
  01a3:4a 16             send 16 

  01a5:88 00a5            lsg gAct 
  01a8:3c                 dup 
  01a9:35 01              ldi 1 
  01ab:1a                 eq? 
  01ac:31 63              bnt code_0211 
  01ae:39 03            pushi 3 // $3 y
  01b0:38 0082          pushi 82 // $82 owner
  01b3:38 03d9          pushi 3d9 // $3d9 sel_985
  01b6:38 03d7          pushi 3d7 // $3d7 sel_983
  01b9:45 15 06         callb procedure_0015 6 // LoadMany 

  01bc:39 03            pushi 3 // $3 y
  01be:38 0080          pushi 80 // $80 timeLeft
  01c1:38 01b8          pushi 1b8 // $1b8 sel_440
  01c4:38 01b9          pushi 1b9 // $1b9 sel_441
  01c7:45 15 06         callb procedure_0015 6 // LoadMany 

  01ca:88 009b            lsg global155 
  01cd:35 0a              ldi a 
  01cf:1a                 eq? 
  01d0:2f 08               bt code_01da 
  01d2:88 009b            lsg global155 
  01d5:35 0b              ldi b 
  01d7:1a                 eq? 
  01d8:31 35              bnt code_020f 

        code_01da
  01da:39 05            pushi 5 // $5 view
  01dc:78               push1 
  01dd:38 01b9          pushi 1b9 // $1b9 sel_441
  01e0:39 12            pushi 12 // $12 illegalBits
  01e2:78               push1 
  01e3:76               push0 
  01e4:39 57            pushi 57 // $57 init
  01e6:76               push0 
  01e7:72 16e2          lofsa $18cc // Jeeves
  01ea:4a 10             send 10 

  01ec:76               push0 
  01ed:45 03 00         callb procedure_0003 0 // HandsOff 

  01f0:39 7a            pushi 7a // $7a setScript
  01f2:78               push1 
  01f3:74 133a          lofss $1530 // lightCandles
  01f6:72 16d3          lofsa $18cc // Jeeves
  01f9:4a 06             send 6 

  01fb:39 07            pushi 7 // $7 cel
  01fd:78               push1 
  01fe:78               push1 
  01ff:74 1540          lofss $1742 // Door
  0202:43 0e 02         callk NumCels 2 

  0205:36                push 
  0206:35 01              ldi 1 
  0208:04                 sub 
  0209:36                push 
  020a:72 1535          lofsa $1742 // Door
  020d:4a 06             send 6 


        code_020f
  020f:33 13              jmp code_0224 

        code_0211
  0211:3c                 dup 
  0212:35 06              ldi 6 
  0214:1a                 eq? 
  0215:31 0d              bnt code_0224 
  0217:35 45              ldi 45 
  0219:a1 79              sag gWilburCorpseRoomNum 
  021b:38 010a          pushi 10a // $10a setRegions
  021e:78               push1 
  021f:38 0117          pushi 117 // $117 maxCycles
  0222:54 06             self 6 


        code_0224
  0224:3a                toss 
  0225:89 79              lsg gWilburCorpseRoomNum 
  0227:35 3a              ldi 3a 
  0229:1a                 eq? 
  022a:31 20              bnt code_024c 
  022c:89 7b              lsg gCorpseFlags 
  022e:35 02              ldi 2 
  0230:12                 and 
  0231:18                 not 
  0232:31 18              bnt code_024c 
  0234:89 7b              lsg gCorpseFlags 
  0236:35 40              ldi 40 
  0238:12                 and 
  0239:18                 not 
  023a:31 10              bnt code_024c 
  023c:89 7b              lsg gCorpseFlags 
  023e:35 02              ldi 2 
  0240:14                  or 
  0241:a1 7b              sag gCorpseFlags 
  0243:38 010a          pushi 10a // $10a setRegions
  0246:78               push1 
  0247:38 0100          pushi 100 // $100 notify
  024a:54 06             self 6 


        code_024c
  024c:39 05            pushi 5 // $5 view
  024e:78               push1 
  024f:76               push0 
  0250:39 04            pushi 4 // $4 x
  0252:78               push1 
  0253:80 0085            lag global133 
  0256:31 04              bnt code_025c 
  0258:35 73              ldi 73 
  025a:33 03              jmp code_025f 

        code_025c
  025c:34 00e2            ldi e2 

        code_025f
  025f:36                push 
  0260:39 03            pushi 3 // $3 y
  0262:78               push1 
  0263:80 0085            lag global133 
  0266:31 04              bnt code_026c 
  0268:35 57              ldi 57 
  026a:33 03              jmp code_026f 

        code_026c
  026c:34 009a            ldi 9a 

        code_026f
  026f:36                push 
  0270:39 12            pushi 12 // $12 illegalBits
  0272:78               push1 
  0273:8b 01              lsl local1 
  0275:88 0085            lsg global133 
  0278:35 01              ldi 1 
  027a:10                 xor 
  027b:36                push 
  027c:35 04              ldi 4 
  027e:0e                 shl 
  027f:14                  or 
  0280:36                push 
  0281:34 8000            ldi 8000 
  0284:14                  or 
  0285:36                push 
  0286:39 57            pushi 57 // $57 init
  0288:76               push0 
  0289:81 00              lag gEgo 
  028b:4a 1c             send 1c 

  028d:80 0085            lag global133 
  0290:31 0c              bnt code_029e 
  0292:76               push0 
  0293:45 03 00         callb procedure_0003 0 // HandsOff 

  0296:39 7a            pushi 7a // $7a setScript
  0298:78               push1 
  0299:74 12c8          lofss $1564 // myDoor
  029c:54 06             self 6 


        code_029e
  029e:38 010b          pushi 10b // $10b setFeatures
  02a1:39 03            pushi 3 // $3 y
  02a3:74 1414          lofss $16ba // statueRight
  02a6:74 13db          lofss $1684 // statueLeft
  02a9:74 1444          lofss $16f0 // lamp
  02ac:54 0a             self a 

  02ae:48                 ret 
    )

    (method (doit) // method_02af
  02af:76               push0 
  02b0:45 14 00         callb procedure_0014 0 // IsFirstTimeInRoom 

  02b3:31 0a              bnt code_02bf 
  02b5:7a               push2 
  02b6:39 3a            pushi 3a // $3a heading
  02b8:76               push0 
  02b9:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_02bf
  02bf:38 00db          pushi db // $db onControl
  02c2:78               push1 
  02c3:78               push1 
  02c4:81 00              lag gEgo 
  02c6:4a 06             send 6 

  02c8:36                push 
  02c9:35 04              ldi 4 
  02cb:12                 and 
  02cc:31 1b              bnt code_02e9 
  02ce:83 03              lal local3 
  02d0:18                 not 
  02d1:31 16              bnt code_02e9 
  02d3:80 0085            lag global133 
  02d6:18                 not 
  02d7:31 10              bnt code_02e9 
  02d9:35 01              ldi 1 
  02db:a3 03              sal local3 
  02dd:76               push0 
  02de:45 03 00         callb procedure_0003 0 // HandsOff 

  02e1:39 7a            pushi 7a // $7a setScript
  02e3:78               push1 
  02e4:74 127d          lofss $1564 // myDoor
  02e7:54 06             self 6 


        code_02e9
  02e9:38 00db          pushi db // $db onControl
  02ec:78               push1 
  02ed:78               push1 
  02ee:81 00              lag gEgo 
  02f0:4a 06             send 6 

  02f2:36                push 
  02f3:35 08              ldi 8 
  02f5:12                 and 
  02f6:31 3d              bnt code_0335 
  02f8:88 0086            lsg global134 
  02fb:35 00              ldi 0 
  02fd:1a                 eq? 
  02fe:31 33              bnt code_0333 
  0300:83 00              lal local0 
  0302:18                 not 
  0303:31 2e              bnt code_0333 
  0305:63 08             pToa script 
  0307:18                 not 
  0308:31 29              bnt code_0333 
  030a:39 06            pushi 6 // $6 loop
  030c:78               push1 
  030d:78               push1 
  030e:39 2a            pushi 2a // $2a play
  0310:76               push0 
  0311:72 161c          lofsa $1930 // Creak
  0314:4a 0a             send a 

  0316:38 00d3          pushi d3 // $d3 setMotion
  0319:78               push1 
  031a:76               push0 
  031b:81 00              lag gEgo 
  031d:4a 06             send 6 

  031f:78               push1 
  0320:39 3c            pushi 3c // $3c doit
  0322:43 45 02         callk Wait 2 

  0325:35 01              ldi 1 
  0327:a3 00              sal local0 
  0329:7a               push2 
  032a:39 3a            pushi 3a // $3a heading
  032c:78               push1 
  032d:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0333
  0333:33 04              jmp code_0339 

        code_0335
  0335:35 00              ldi 0 
  0337:a3 00              sal local0 

        code_0339
  0339:38 00db          pushi db // $db onControl
  033c:78               push1 
  033d:78               push1 
  033e:81 00              lag gEgo 
  0340:4a 06             send 6 

  0342:36                push 
  0343:35 02              ldi 2 
  0345:12                 and 
  0346:31 0f              bnt code_0357 
  0348:35 00              ldi 0 
  034a:a0 0085            sag global133 
  034d:38 00f8          pushi f8 // $f8 newRoom
  0350:78               push1 
  0351:39 09            pushi 9 // $9 nsTop
  0353:81 02              lag gCurRoom 
  0355:4a 06             send 6 


        code_0357
  0357:39 05            pushi 5 // $5 view
  0359:76               push0 
  035a:81 00              lag gEgo 
  035c:4a 04             send 4 

  035e:36                push 
  035f:35 18              ldi 18 
  0361:1a                 eq? 
  0362:31 3a              bnt code_039e 
  0364:39 06            pushi 6 // $6 loop
  0366:76               push0 
  0367:81 00              lag gEgo 
  0369:4a 04             send 4 

  036b:36                push 
  036c:35 03              ldi 3 
  036e:1a                 eq? 
  036f:31 2d              bnt code_039e 
  0371:39 07            pushi 7 // $7 cel
  0373:76               push0 
  0374:81 00              lag gEgo 
  0376:4a 04             send 4 

  0378:36                push 
  0379:35 01              ldi 1 
  037b:1e                 gt? 
  037c:31 20              bnt code_039e 
  037e:39 07            pushi 7 // $7 cel
  0380:76               push0 
  0381:81 00              lag gEgo 
  0383:4a 04             send 4 

  0385:36                push 
  0386:35 04              ldi 4 
  0388:22                 lt? 
  0389:31 13              bnt code_039e 
  038b:39 07            pushi 7 // $7 cel
  038d:78               push1 
  038e:39 03            pushi 3 // $3 y
  0390:39 07            pushi 7 // $7 cel
  0392:76               push0 
  0393:81 00              lag gEgo 
  0395:4a 04             send 4 

  0397:04                 sub 
  0398:36                push 
  0399:72 13f8          lofsa $1794 // board
  039c:4a 06             send 6 


        code_039e
  039e:88 0172            lsg global370 
  03a1:34 02bc            ldi 2bc 
  03a4:1a                 eq? 
  03a5:31 24              bnt code_03cb 
  03a7:88 00a5            lsg gAct 
  03aa:35 01              ldi 1 
  03ac:1a                 eq? 
  03ad:31 1c              bnt code_03cb 
  03af:63 08             pToa script 
  03b1:31 08              bnt code_03bb 
  03b3:34 02c6            ldi 2c6 
  03b6:a0 0172            sag global370 
  03b9:33 10              jmp code_03cb 

        code_03bb
  03bb:35 01              ldi 1 
  03bd:a3 12              sal local18 
  03bf:76               push0 
  03c0:45 03 00         callb procedure_0003 0 // HandsOff 

  03c3:39 7a            pushi 7a // $7a setScript
  03c5:78               push1 
  03c6:74 1167          lofss $1530 // lightCandles
  03c9:54 06             self 6 


        code_03cb
  03cb:39 3c            pushi 3c // $3c doit
  03cd:76               push0 
  03ce:57 37 04         super Rm 4 

  03d1:48                 ret 
    )

    (method (dispose) // method_03d2
  03d2:78               push1 
  03d3:38 03d9          pushi 3d9 // $3d9 sel_985
  03d6:43 03 02         callk DisposeScript 2 

  03d9:78               push1 
  03da:38 03d7          pushi 3d7 // $3d7 sel_983
  03dd:43 03 02         callk DisposeScript 2 

  03e0:39 58            pushi 58 // $58 dispose
  03e2:76               push0 
  03e3:57 37 04         super Rm 4 

  03e6:48                 ret 
    )

    (method (newRoom) // method_03e7
  03e7:39 65            pushi 65 // $65 contains
  03e9:78               push1 
  03ea:74 14df          lofss $18cc // Jeeves
  03ed:81 05              lag gCast 
  03ef:4a 06             send 6 

  03f1:31 05              bnt code_03f8 
  03f3:35 0b              ldi b 
  03f5:a0 009b            sag global155 

        code_03f8
  03f8:38 00f8          pushi f8 // $f8 newRoom
  03fb:78               push1 
  03fc:8f 01              lsp param1 
  03fe:57 37 06         super Rm 6 

  0401:48                 ret 
    )

    (method (handleEvent) // method_0402
  0402:3f 07             link 7 // (var $7)
  0404:39 4c            pushi 4c // $4c claimed
  0406:76               push0 
  0407:87 01              lap param1 
  0409:4a 04             send 4 

  040b:31 01              bnt code_040e 
  040d:48                 ret 

        code_040e
  040e:38 00db          pushi db // $db onControl
  0411:78               push1 
  0412:76               push0 
  0413:81 00              lag gEgo 
  0415:4a 06             send 6 

  0417:36                push 
  0418:35 01              ldi 1 
  041a:12                 and 
  041b:2f 0f               bt code_042c 
  041d:38 00db          pushi db // $db onControl
  0420:78               push1 
  0421:76               push0 
  0422:81 00              lag gEgo 
  0424:4a 06             send 6 

  0426:36                push 
  0427:35 08              ldi 8 
  0429:12                 and 
  042a:31 06              bnt code_0432 

        code_042c
  042c:35 01              ldi 1 
  042e:a5 01              sat temp1 
  0430:33 04              jmp code_0436 

        code_0432
  0432:35 00              ldi 0 
  0434:a5 01              sat temp1 

        code_0436
  0436:39 22            pushi 22 // $22 type
  0438:76               push0 
  0439:87 01              lap param1 
  043b:4a 04             send 4 

  043d:36                push 
  043e:34 0080            ldi 80 
  0441:1a                 eq? 
  0442:30 02f4            bnt code_0739 
  0445:78               push1 
  0446:74 0f68          lofss $13b1 // /board>
  0449:43 25 02         callk Said 2 

  044c:2f 0a               bt code_0458 
  044e:78               push1 
  044f:74 0f54          lofss $13a6 // //board>
  0452:43 25 02         callk Said 2 

  0455:30 0183            bnt code_05db 

        code_0458
  0458:35 02              ldi 2 
  045a:a5 00              sat temp0 
  045c:80 00db            lag global219 
  045f:31 0f              bnt code_0470 
  0461:80 00e0            lag global224 
  0464:18                 not 
  0465:31 01              bnt code_0468 
  0467:48                 ret 

        code_0468
  0468:88 00ab            lsg global171 
  046b:35 07              ldi 7 
  046d:1c                 ne? 
  046e:a5 00              sat temp0 

        code_0470
  0470:78               push1 
  0471:74 0fbe          lofss $1432 // look
  0474:43 25 02         callk Said 2 

  0477:31 22              bnt code_049b 
  0479:88 0086            lsg global134 
  047c:35 02              ldi 2 
  047e:1a                 eq? 
  047f:31 0c              bnt code_048d 
  0481:7a               push2 
  0482:39 3a            pushi 3a // $3a heading
  0484:7a               push2 
  0485:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  048b:33 0b              jmp code_0498 

        code_048d
  048d:7a               push2 
  048e:39 3a            pushi 3a // $3a heading
  0490:39 03            pushi 3 // $3 y
  0492:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0498
  0498:32 013d            jmp code_05d8 

        code_049b
  049b:8d 00              lst temp0 
  049d:35 01              ldi 1 
  049f:1c                 ne? 
  04a0:31 64              bnt code_0506 
  04a2:78               push1 
  04a3:74 0ece          lofss $1374 // (break,lift,arracher)[<(open,haut)]//barre
  04a6:43 25 02         callk Said 2 

  04a9:2f 1b               bt code_04c6 
  04ab:78               push1 
  04ac:74 0e8a          lofss $1339 // (break,lift,arracher)<actionner<barre
  04af:43 25 02         callk Said 2 

  04b2:2f 12               bt code_04c6 
  04b4:78               push1 
  04b5:74 0ffa          lofss $14b2 // open<actionner<barre
  04b8:43 25 02         callk Said 2 

  04bb:2f 09               bt code_04c6 
  04bd:78               push1 
  04be:74 0fdd          lofss $149e // open//barre
  04c1:43 25 02         callk Said 2 

  04c4:31 40              bnt code_0506 

        code_04c6
  04c6:38 00ee          pushi ee // $ee has
  04c9:78               push1 
  04ca:39 07            pushi 7 // $7 cel
  04cc:81 00              lag gEgo 
  04ce:4a 06             send 6 

  04d0:31 29              bnt code_04fb 
  04d2:88 0086            lsg global134 
  04d5:35 02              ldi 2 
  04d7:1a                 eq? 
  04d8:31 06              bnt code_04e0 
  04da:76               push0 
  04db:45 10 00         callb procedure_0010 0 // AlreadyOpen 

  04de:33 19              jmp code_04f9 

        code_04e0
  04e0:85 01              lat temp1 
  04e2:31 0a              bnt code_04ee 
  04e4:39 7a            pushi 7a // $7a setScript
  04e6:78               push1 
  04e7:74 10aa          lofss $1594 // PryBoard
  04ea:54 06             self 6 

  04ec:33 0b              jmp code_04f9 

        code_04ee
  04ee:7a               push2 
  04ef:39 3a            pushi 3a // $3a heading
  04f1:39 04            pushi 4 // $4 x
  04f3:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_04f9
  04f9:33 08              jmp code_0503 

        code_04fb
  04fb:39 7a            pushi 7a // $7a setScript
  04fd:78               push1 
  04fe:74 1123          lofss $1624 // tryBoard
  0501:54 06             self 6 


        code_0503
  0503:32 00d2            jmp code_05d8 

        code_0506
  0506:8d 00              lst temp0 
  0508:35 02              ldi 2 
  050a:1a                 eq? 
  050b:31 33              bnt code_0540 
  050d:78               push1 
  050e:74 0eee          lofss $13ff // get,open,bouger,attirer,break,lift,arracher
  0511:43 25 02         callk Said 2 

  0514:31 2a              bnt code_0540 
  0516:88 0086            lsg global134 
  0519:35 00              ldi 0 
  051b:1a                 eq? 
  051c:31 1b              bnt code_0539 
  051e:85 01              lat temp1 
  0520:31 0a              bnt code_052c 
  0522:39 7a            pushi 7a // $7a setScript
  0524:78               push1 
  0525:74 10fc          lofss $1624 // tryBoard
  0528:54 06             self 6 

  052a:33 0b              jmp code_0537 

        code_052c
  052c:7a               push2 
  052d:39 3a            pushi 3a // $3a heading
  052f:39 04            pushi 4 // $4 x
  0531:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0537
  0537:33 04              jmp code_053d 

        code_0539
  0539:76               push0 
  053a:45 10 00         callb procedure_0010 0 // AlreadyOpen 


        code_053d
  053d:32 0098            jmp code_05d8 

        code_0540
  0540:78               push1 
  0541:74 0e49          lofss $138d // (break,lift,arracher)[<(open,haut)]//poker
  0544:43 25 02         callk Said 2 

  0547:2f 12               bt code_055b 
  0549:78               push1 
  054a:74 0dfd          lofss $134a // (break,lift,arracher)<actionner<poker
  054d:43 25 02         callk Said 2 

  0550:2f 09               bt code_055b 
  0552:78               push1 
  0553:74 0f4f          lofss $14a5 // open//poker
  0556:43 25 02         callk Said 2 

  0559:31 19              bnt code_0574 

        code_055b
  055b:38 00ee          pushi ee // $ee has
  055e:78               push1 
  055f:39 06            pushi 6 // $6 loop
  0561:81 00              lag gEgo 
  0563:4a 06             send 6 

  0565:31 0b              bnt code_0572 
  0567:7a               push2 
  0568:39 3a            pushi 3a // $3a heading
  056a:39 05            pushi 5 // $5 view
  056c:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0572
  0572:33 64              jmp code_05d8 

        code_0574
  0574:78               push1 
  0575:74 0de3          lofss $135b // (break,lift,arracher)[<(open,haut)]//cane
  0578:43 25 02         callk Said 2 

  057b:2f 12               bt code_058f 
  057d:78               push1 
  057e:74 0da7          lofss $1328 // (break,lift,arracher)<actionner<cane
  0581:43 25 02         callk Said 2 

  0584:2f 09               bt code_058f 
  0586:78               push1 
  0587:74 0f0d          lofss $1497 // open//cane
  058a:43 25 02         callk Said 2 

  058d:31 19              bnt code_05a8 

        code_058f
  058f:38 00ee          pushi ee // $ee has
  0592:78               push1 
  0593:39 15            pushi 15 // $15 brBottom
  0595:81 00              lag gEgo 
  0597:4a 06             send 6 

  0599:31 0b              bnt code_05a6 
  059b:7a               push2 
  059c:39 3a            pushi 3a // $3a heading
  059e:39 06            pushi 6 // $6 loop
  05a0:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_05a6
  05a6:33 30              jmp code_05d8 

        code_05a8
  05a8:78               push1 
  05a9:74 0f17          lofss $14c3 // appuyer,clore
  05ac:43 25 02         callk Said 2 

  05af:31 27              bnt code_05d8 
  05b1:88 0086            lsg global134 
  05b4:35 02              ldi 2 
  05b6:22                 lt? 
  05b7:31 06              bnt code_05bf 
  05b9:76               push0 
  05ba:45 11 00         callb procedure_0011 0 // AlreadyClosed 

  05bd:33 19              jmp code_05d8 

        code_05bf
  05bf:85 01              lat temp1 
  05c1:31 0a              bnt code_05cd 
  05c3:39 7a            pushi 7a // $7a setScript
  05c5:78               push1 
  05c6:74 102b          lofss $15f4 // CloseBoard
  05c9:54 06             self 6 

  05cb:33 0b              jmp code_05d8 

        code_05cd
  05cd:7a               push2 
  05ce:39 3a            pushi 3a // $3a heading
  05d0:39 04            pushi 4 // $4 x
  05d2:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_05d8
  05d8:32 015e            jmp code_0739 

        code_05db
  05db:78               push1 
  05dc:74 0dcd          lofss $13ac // /bible>
  05df:43 25 02         callk Said 2 

  05e2:31 56              bnt code_063a 
  05e4:88 0086            lsg global134 
  05e7:35 02              ldi 2 
  05e9:1c                 ne? 
  05ea:31 0e              bnt code_05fa 
  05ec:76               push0 
  05ed:45 12 00         callb procedure_0012 0 // NotHere 

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

  05f8:33 3d              jmp code_0637 

        code_05fa
  05fa:78               push1 
  05fb:74 0e16          lofss $1414 // get,open,etudier,look
  05fe:43 25 02         callk Said 2 

  0601:31 19              bnt code_061c 
  0603:83 02              lal local2 
  0605:18                 not 
  0606:31 12              bnt code_061a 
  0608:35 01              ldi 1 
  060a:a3 02              sal local2 
  060c:78               push1 
  060d:39 0e            pushi e // $e lsLeft
  060f:45 05 02         callb procedure_0005 2 // SetFlag 

  0612:39 7a            pushi 7a // $7a setScript
  0614:78               push1 
  0615:74 0fac          lofss $15c4 // GetBible
  0618:54 06             self 6 


        code_061a
  061a:33 1b              jmp code_0637 

        code_061c
  061c:78               push1 
  061d:74 0dcd          lofss $13ed // debarrasser,(attach[<(arriere,bas)])
  0620:43 25 02         callk Said 2 

  0623:31 12              bnt code_0637 
  0625:83 02              lal local2 
  0627:31 0a              bnt code_0633 
  0629:39 7a            pushi 7a // $7a setScript
  062b:78               push1 
  062c:74 0fc5          lofss $15f4 // CloseBoard
  062f:54 06             self 6 

  0631:33 04              jmp code_0637 

        code_0633
  0633:76               push0 
  0634:45 0d 00         callb procedure_000d 0 // DontHave 


        code_0637
  0637:32 00ff            jmp code_0739 

        code_063a
  063a:78               push1 
  063b:74 0e47          lofss $1485 // look>
  063e:43 25 02         callk Said 2 

  0641:30 00d3            bnt code_0717 
  0644:78               push1 
  0645:74 0d91          lofss $13d9 // [<around,at][/room]
  0648:43 25 02         callk Said 2 

  064b:31 0d              bnt code_065a 
  064d:7a               push2 
  064e:39 3a            pushi 3a // $3a heading
  0650:76               push0 
  0651:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0657:32 00bb            jmp code_0715 

        code_065a
  065a:78               push1 
  065b:74 0d60          lofss $13be // /cross
  065e:43 25 02         callk Said 2 

  0661:31 0e              bnt code_0671 
  0663:7a               push2 
  0664:39 3a            pushi 3a // $3a heading
  0666:39 07            pushi 7 // $7 cel
  0668:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  066e:32 00a4            jmp code_0715 

        code_0671
  0671:78               push1 
  0672:74 0d45          lofss $13ba // /cemetery
  0675:43 25 02         callk Said 2 

  0678:31 0e              bnt code_0688 
  067a:7a               push2 
  067b:39 3a            pushi 3a // $3a heading
  067d:39 08            pushi 8 // $8 underBits
  067f:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0685:32 008d            jmp code_0715 

        code_0688
  0688:78               push1 
  0689:74 0d2a          lofss $13b6 // /ceiling
  068c:43 25 02         callk Said 2 

  068f:2f 09               bt code_069a 
  0691:78               push1 
  0692:74 0d40          lofss $13d5 // <haut
  0695:43 25 02         callk Said 2 

  0698:31 0d              bnt code_06a7 

        code_069a
  069a:7a               push2 
  069b:39 3a            pushi 3a // $3a heading
  069d:39 09            pushi 9 // $9 nsTop
  069f:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  06a5:33 6e              jmp code_0715 

        code_06a7
  06a7:78               push1 
  06a8:74 0d22          lofss $13cd // /mur
  06ab:43 25 02         callk Said 2 

  06ae:31 0d              bnt code_06bd 
  06b0:7a               push2 
  06b1:39 3a            pushi 3a // $3a heading
  06b3:39 0a            pushi a // $a nsLeft
  06b5:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  06bb:33 58              jmp code_0715 

        code_06bd
  06bd:78               push1 
  06be:74 0d05          lofss $13c6 // /platform,dirt
  06c1:43 25 02         callk Said 2 

  06c4:2f 09               bt code_06cf 
  06c6:78               push1 
  06c7:74 0d07          lofss $13d1 // <bas
  06ca:43 25 02         callk Said 2 

  06cd:31 0d              bnt code_06dc 

        code_06cf
  06cf:7a               push2 
  06d0:39 3a            pushi 3a // $3a heading
  06d2:39 03            pushi 3 // $3 y
  06d4:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  06da:33 39              jmp code_0715 

        code_06dc
  06dc:78               push1 
  06dd:74 0ce2          lofss $13c2 // /eyehole
  06e0:43 25 02         callk Said 2 

  06e3:31 30              bnt code_0715 
  06e5:88 0086            lsg global134 
  06e8:35 02              ldi 2 
  06ea:1a                 eq? 
  06eb:31 24              bnt code_0711 
  06ed:38 00ae          pushi ae // $ae distanceTo
  06f0:78               push1 
  06f1:74 10a0          lofss $1794 // board
  06f4:81 00              lag gEgo 
  06f6:4a 06             send 6 

  06f8:36                push 
  06f9:35 28              ldi 28 
  06fb:22                 lt? 
  06fc:31 0d              bnt code_070b 
  06fe:7a               push2 
  06ff:39 3a            pushi 3a // $3a heading
  0701:39 0b            pushi b // $b nsBottom
  0703:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0709:33 04              jmp code_070f 

        code_070b
  070b:76               push0 
  070c:45 09 00         callb procedure_0009 0 // NotClose 


        code_070f
  070f:33 04              jmp code_0715 

        code_0711
  0711:76               push0 
  0712:45 12 00         callb procedure_0012 0 // NotHere 


        code_0715
  0715:33 22              jmp code_0739 

        code_0717
  0717:78               push1 
  0718:74 0da0          lofss $14bb // adorer[/altar]
  071b:43 25 02         callk Said 2 

  071e:31 19              bnt code_0739 
  0720:85 01              lat temp1 
  0722:31 0a              bnt code_072e 
  0724:39 7a            pushi 7a // $7a setScript
  0726:78               push1 
  0727:74 0f2a          lofss $1654 // pray
  072a:54 06             self 6 

  072c:33 0b              jmp code_0739 

        code_072e
  072e:7a               push2 
  072f:39 3a            pushi 3a // $3a heading
  0731:39 0c            pushi c // $c nsRight
  0733:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0739
  0739:48                 ret 
    )

)

// 152a
(instance lightCandles 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_073a
  073a:38 00db          pushi db // $db onControl
  073d:78               push1 
  073e:76               push0 
  073f:72 118a          lofsa $18cc // Jeeves
  0742:4a 06             send 6 

  0744:36                push 
  0745:35 01              ldi 1 
  0747:12                 and 
  0748:2f 10               bt code_075a 
  074a:38 00db          pushi db // $db onControl
  074d:78               push1 
  074e:76               push0 
  074f:72 117a          lofsa $18cc // Jeeves
  0752:4a 06             send 6 

  0754:36                push 
  0755:35 40              ldi 40 
  0757:12                 and 
  0758:31 0c              bnt code_0766 

        code_075a
  075a:39 42            pushi 42 // $42 setPri
  075c:78               push1 
  075d:39 ff            pushi ff // $ff checkAni
  075f:72 116a          lofsa $18cc // Jeeves
  0762:4a 06             send 6 

  0764:33 09              jmp code_076f 

        code_0766
  0766:39 42            pushi 42 // $42 setPri
  0768:78               push1 
  0769:7a               push2 
  076a:72 115f          lofsa $18cc // Jeeves
  076d:4a 06             send 6 


        code_076f
  076f:39 3c            pushi 3c // $3c doit
  0771:76               push0 
  0772:57 05 04         super Script 4 

  0775:48                 ret 
    )

    (method (changeState) // method_0776
  0776:87 01              lap param1 
  0778:65 0a             aTop state 
  077a:36                push 
  077b:3c                 dup 
  077c:35 00              ldi 0 
  077e:1a                 eq? 
  077f:31 4a              bnt code_07cb 
  0781:88 0172            lsg global370 
  0784:34 02bb            ldi 2bb 
  0787:1a                 eq? 
  0788:83 12              lal local18 
  078a:31 38              bnt code_07c4 
  078c:38 00a3          pushi a3 // $a3 startUpd
  078f:76               push0 
  0790:38 00a4          pushi a4 // $a4 cycleSpeed
  0793:78               push1 
  0794:39 03            pushi 3 // $3 y
  0796:39 7e            pushi 7e // $7e setCycle
  0798:7a               push2 
  0799:51 1a            class End 
  079b:36                push 
  079c:7c            pushSelf 
  079d:72 0fa2          lofsa $1742 // Door
  07a0:4a 12             send 12 

  07a2:39 05            pushi 5 // $5 view
  07a4:78               push1 
  07a5:38 01b8          pushi 1b8 // $1b8 sel_440
  07a8:39 42            pushi 42 // $42 setPri
  07aa:78               push1 
  07ab:7a               push2 
  07ac:39 7e            pushi 7e // $7e setCycle
  07ae:78               push1 
  07af:51 17            class Walk 
  07b1:36                push 
  07b2:38 00c5          pushi c5 // $c5 posn
  07b5:7a               push2 
  07b6:39 73            pushi 73 // $73 seconds
  07b8:39 56            pushi 56 // $56 new
  07ba:39 57            pushi 57 // $57 init
  07bc:76               push0 
  07bd:72 110c          lofsa $18cc // Jeeves
  07c0:4a 1e             send 1e 

  07c2:33 04              jmp code_07c8 

        code_07c4
  07c4:35 01              ldi 1 
  07c6:65 10             aTop cycles 

        code_07c8
  07c8:32 01ee            jmp code_09b9 

        code_07cb
  07cb:3c                 dup 
  07cc:35 01              ldi 1 
  07ce:1a                 eq? 
  07cf:31 55              bnt code_0826 
  07d1:83 12              lal local18 
  07d3:31 46              bnt code_081b 
  07d5:39 42            pushi 42 // $42 setPri
  07d7:78               push1 
  07d8:39 ff            pushi ff // $ff checkAni
  07da:38 00d3          pushi d3 // $d3 setMotion
  07dd:7a               push2 
  07de:74 11cd          lofss $19ae // PathIn
  07e1:7c            pushSelf 
  07e2:38 00d4          pushi d4 // $d4 setAvoider
  07e5:78               push1 
  07e6:39 56            pushi 56 // $56 new
  07e8:76               push0 
  07e9:51 21            class Avoid 
  07eb:4a 04             send 4 

  07ed:36                push 
  07ee:72 10db          lofsa $18cc // Jeeves
  07f1:4a 14             send 14 

  07f3:38 00da          pushi da // $da inRect
  07f6:39 04            pushi 4 // $4 x
  07f8:38 00cb          pushi cb // $cb addToPic
  07fb:39 56            pushi 56 // $56 new
  07fd:38 0110          pushi 110 // $110 disable
  0800:39 75            pushi 75 // $75 register
  0802:81 00              lag gEgo 
  0804:4a 0c             send c 

  0806:31 11              bnt code_0819 
  0808:38 00d3          pushi d3 // $d3 setMotion
  080b:39 03            pushi 3 // $3 y
  080d:51 1d            class MoveTo 
  080f:36                push 
  0810:38 00f5          pushi f5 // $f5 saidMe
  0813:39 78            pushi 78 // $78 changeState
  0815:81 00              lag gEgo 
  0817:4a 0a             send a 


        code_0819
  0819:33 08              jmp code_0823 

        code_081b
  081b:76               push0 
  081c:45 03 00         callb procedure_0003 0 // HandsOff 

  081f:35 01              ldi 1 
  0821:65 10             aTop cycles 

        code_0823
  0823:32 0193            jmp code_09b9 

        code_0826
  0826:3c                 dup 
  0827:35 02              ldi 2 
  0829:1a                 eq? 
  082a:31 21              bnt code_084d 
  082c:39 05            pushi 5 // $5 view
  082e:78               push1 
  082f:38 01b9          pushi 1b9 // $1b9 sel_441
  0832:39 07            pushi 7 // $7 cel
  0834:78               push1 
  0835:76               push0 
  0836:39 12            pushi 12 // $12 illegalBits
  0838:78               push1 
  0839:76               push0 
  083a:39 7e            pushi 7e // $7e setCycle
  083c:39 04            pushi 4 // $4 x
  083e:51 19            class CT 
  0840:36                push 
  0841:39 03            pushi 3 // $3 y
  0843:78               push1 
  0844:7c            pushSelf 
  0845:72 1084          lofsa $18cc // Jeeves
  0848:4a 1e             send 1e 

  084a:32 016c            jmp code_09b9 

        code_084d
  084d:3c                 dup 
  084e:35 03              ldi 3 
  0850:1a                 eq? 
  0851:31 1a              bnt code_086d 
  0853:39 42            pushi 42 // $42 setPri
  0855:78               push1 
  0856:39 07            pushi 7 // $7 cel
  0858:39 7e            pushi 7e // $7e setCycle
  085a:78               push1 
  085b:51 16            class Fwd 
  085d:36                push 
  085e:39 57            pushi 57 // $57 init
  0860:76               push0 
  0861:72 0f7e          lofsa $17e2 // flame1
  0864:4a 10             send 10 

  0866:35 11              ldi 11 
  0868:65 10             aTop cycles 
  086a:32 014c            jmp code_09b9 

        code_086d
  086d:3c                 dup 
  086e:35 04              ldi 4 
  0870:1a                 eq? 
  0871:31 24              bnt code_0897 
  0873:39 07            pushi 7 // $7 cel
  0875:78               push1 
  0876:39 04            pushi 4 // $4 x
  0878:72 1051          lofsa $18cc // Jeeves
  087b:4a 06             send 6 

  087d:39 42            pushi 42 // $42 setPri
  087f:78               push1 
  0880:39 07            pushi 7 // $7 cel
  0882:39 7e            pushi 7e // $7e setCycle
  0884:78               push1 
  0885:51 16            class Fwd 
  0887:36                push 
  0888:39 57            pushi 57 // $57 init
  088a:76               push0 
  088b:72 0fa2          lofsa $1830 // flame2
  088e:4a 10             send 10 

  0890:35 11              ldi 11 
  0892:65 10             aTop cycles 
  0894:32 0122            jmp code_09b9 

        code_0897
  0897:3c                 dup 
  0898:35 05              ldi 5 
  089a:1a                 eq? 
  089b:31 31              bnt code_08ce 
  089d:39 07            pushi 7 // $7 cel
  089f:78               push1 
  08a0:39 05            pushi 5 // $5 view
  08a2:72 1027          lofsa $18cc // Jeeves
  08a5:4a 06             send 6 

  08a7:39 42            pushi 42 // $42 setPri
  08a9:78               push1 
  08aa:39 07            pushi 7 // $7 cel
  08ac:39 7e            pushi 7e // $7e setCycle
  08ae:78               push1 
  08af:51 16            class Fwd 
  08b1:36                push 
  08b2:39 57            pushi 57 // $57 init
  08b4:76               push0 
  08b5:72 0fc6          lofsa $187e // flame3
  08b8:4a 10             send 10 

  08ba:39 07            pushi 7 // $7 cel
  08bc:78               push1 
  08bd:76               push0 
  08be:38 00c7          pushi c7 // $c7 forceUpd
  08c1:76               push0 
  08c2:72 0e2b          lofsa $16f0 // lamp
  08c5:4a 0a             send a 

  08c7:35 07              ldi 7 
  08c9:65 10             aTop cycles 
  08cb:32 00eb            jmp code_09b9 

        code_08ce
  08ce:3c                 dup 
  08cf:35 06              ldi 6 
  08d1:1a                 eq? 
  08d2:31 0f              bnt code_08e3 
  08d4:39 7e            pushi 7e // $7e setCycle
  08d6:7a               push2 
  08d7:51 1a            class End 
  08d9:36                push 
  08da:7c            pushSelf 
  08db:72 0fee          lofsa $18cc // Jeeves
  08de:4a 08             send 8 

  08e0:32 00d6            jmp code_09b9 

        code_08e3
  08e3:3c                 dup 
  08e4:35 07              ldi 7 
  08e6:1a                 eq? 
  08e7:31 46              bnt code_092f 
  08e9:39 05            pushi 5 // $5 view
  08eb:78               push1 
  08ec:38 01b8          pushi 1b8 // $1b8 sel_440
  08ef:39 7e            pushi 7e // $7e setCycle
  08f1:78               push1 
  08f2:51 17            class Walk 
  08f4:36                push 
  08f5:39 12            pushi 12 // $12 illegalBits
  08f7:78               push1 
  08f8:38 8000          pushi 8000 // $8000 sel_32768
  08fb:38 00d3          pushi d3 // $d3 setMotion
  08fe:7a               push2 
  08ff:74 10e6          lofss $19e8 // PathOut
  0902:7c            pushSelf 
  0903:72 0fc6          lofsa $18cc // Jeeves
  0906:4a 1a             send 1a 

  0908:38 00da          pushi da // $da inRect
  090b:39 04            pushi 4 // $4 x
  090d:39 6a            pushi 6a // $6a prev
  090f:39 4d            pushi 4d // $4d value
  0911:38 0089          pushi 89 // $89 hide
  0914:39 71            pushi 71 // $71 timer
  0916:81 00              lag gEgo 
  0918:4a 0c             send c 

  091a:31 10              bnt code_092c 
  091c:38 00d3          pushi d3 // $d3 setMotion
  091f:39 03            pushi 3 // $3 y
  0921:51 1d            class MoveTo 
  0923:36                push 
  0924:39 75            pushi 75 // $75 register
  0926:39 78            pushi 78 // $78 changeState
  0928:81 00              lag gEgo 
  092a:4a 0a             send a 


        code_092c
  092c:32 008a            jmp code_09b9 

        code_092f
  092f:3c                 dup 
  0930:35 08              ldi 8 
  0932:1a                 eq? 
  0933:31 2c              bnt code_0961 
  0935:39 07            pushi 7 // $7 cel
  0937:76               push0 
  0938:72 0e07          lofsa $1742 // Door
  093b:4a 04             send 4 

  093d:36                push 
  093e:35 00              ldi 0 
  0940:1a                 eq? 
  0941:31 18              bnt code_095b 
  0943:38 00a3          pushi a3 // $a3 startUpd
  0946:76               push0 
  0947:38 00a4          pushi a4 // $a4 cycleSpeed
  094a:78               push1 
  094b:39 03            pushi 3 // $3 y
  094d:39 7e            pushi 7e // $7e setCycle
  094f:7a               push2 
  0950:51 1a            class End 
  0952:36                push 
  0953:7c            pushSelf 
  0954:72 0deb          lofsa $1742 // Door
  0957:4a 12             send 12 

  0959:33 04              jmp code_095f 

        code_095b
  095b:35 01              ldi 1 
  095d:65 10             aTop cycles 

        code_095f
  095f:33 58              jmp code_09b9 

        code_0961
  0961:3c                 dup 
  0962:35 09              ldi 9 
  0964:1a                 eq? 
  0965:31 14              bnt code_097b 
  0967:38 00d3          pushi d3 // $d3 setMotion
  096a:39 04            pushi 4 // $4 x
  096c:51 1d            class MoveTo 
  096e:36                push 
  096f:39 73            pushi 73 // $73 seconds
  0971:39 56            pushi 56 // $56 new
  0973:7c            pushSelf 
  0974:72 0f55          lofsa $18cc // Jeeves
  0977:4a 0c             send c 

  0979:33 3e              jmp code_09b9 

        code_097b
  097b:3c                 dup 
  097c:35 0a              ldi a 
  097e:1a                 eq? 
  097f:31 18              bnt code_0999 
  0981:38 00a3          pushi a3 // $a3 startUpd
  0984:76               push0 
  0985:38 00a4          pushi a4 // $a4 cycleSpeed
  0988:78               push1 
  0989:39 03            pushi 3 // $3 y
  098b:39 7e            pushi 7e // $7e setCycle
  098d:7a               push2 
  098e:51 1b            class Beg 
  0990:36                push 
  0991:7c            pushSelf 
  0992:72 0dad          lofsa $1742 // Door
  0995:4a 12             send 12 

  0997:33 20              jmp code_09b9 

        code_0999
  0999:3c                 dup 
  099a:35 0b              ldi b 
  099c:1a                 eq? 
  099d:31 1a              bnt code_09b9 
  099f:38 00c6          pushi c6 // $c6 stopUpd
  09a2:76               push0 
  09a3:72 0d9c          lofsa $1742 // Door
  09a6:4a 04             send 4 

  09a8:76               push0 
  09a9:45 04 00         callb procedure_0004 0 // HandsOn 

  09ac:35 0c              ldi c 
  09ae:a0 009b            sag global155 
  09b1:39 58            pushi 58 // $58 dispose
  09b3:76               push0 
  09b4:72 0f15          lofsa $18cc // Jeeves
  09b7:4a 04             send 4 


        code_09b9
  09b9:3a                toss 
  09ba:48                 ret 
    )

)

// 155e
(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_09bb
  09bb:87 01              lap param1 
  09bd:65 0a             aTop state 
  09bf:36                push 
  09c0:3c                 dup 
  09c1:35 00              ldi 0 
  09c3:1a                 eq? 
  09c4:31 07              bnt code_09cd 
  09c6:35 02              ldi 2 
  09c8:65 10             aTop cycles 
  09ca:32 0128            jmp code_0af5 

        code_09cd
  09cd:3c                 dup 
  09ce:35 01              ldi 1 
  09d0:1a                 eq? 
  09d1:31 24              bnt code_09f7 
  09d3:80 0085            lag global133 
  09d6:31 0b              bnt code_09e3 
  09d8:35 04              ldi 4 
  09da:65 0a             aTop state 
  09dc:39 79            pushi 79 // $79 cue
  09de:76               push0 
  09df:54 04             self 4 

  09e1:33 11              jmp code_09f4 

        code_09e3
  09e3:38 00d3          pushi d3 // $d3 setMotion
  09e6:39 04            pushi 4 // $4 x
  09e8:51 1d            class MoveTo 
  09ea:36                push 
  09eb:39 73            pushi 73 // $73 seconds
  09ed:39 64            pushi 64 // $64 allTrue
  09ef:7c            pushSelf 
  09f0:81 00              lag gEgo 
  09f2:4a 0c             send c 


        code_09f4
  09f4:32 00fe            jmp code_0af5 

        code_09f7
  09f7:3c                 dup 
  09f8:35 02              ldi 2 
  09fa:1a                 eq? 
  09fb:31 3e              bnt code_0a3b 
  09fd:39 12            pushi 12 // $12 illegalBits
  09ff:78               push1 
  0a00:38 8000          pushi 8000 // $8000 sel_32768
  0a03:39 06            pushi 6 // $6 loop
  0a05:78               push1 
  0a06:39 03            pushi 3 // $3 y
  0a08:81 00              lag gEgo 
  0a0a:4a 0c             send c 

  0a0c:38 00a3          pushi a3 // $a3 startUpd
  0a0f:76               push0 
  0a10:38 00a4          pushi a4 // $a4 cycleSpeed
  0a13:78               push1 
  0a14:39 03            pushi 3 // $3 y
  0a16:39 7e            pushi 7e // $7e setCycle
  0a18:7a               push2 
  0a19:51 1a            class End 
  0a1b:36                push 
  0a1c:7c            pushSelf 
  0a1d:72 0d22          lofsa $1742 // Door
  0a20:4a 12             send 12 

  0a22:39 2b            pushi 2b // $2b number
  0a24:78               push1 
  0a25:39 2b            pushi 2b // $2b number
  0a27:39 3f            pushi 3f // $3f priority
  0a29:78               push1 
  0a2a:39 05            pushi 5 // $5 view
  0a2c:39 06            pushi 6 // $6 loop
  0a2e:78               push1 
  0a2f:78               push1 
  0a30:39 2a            pushi 2a // $2a play
  0a32:76               push0 
  0a33:72 0f4e          lofsa $1984 // mySound
  0a36:4a 16             send 16 

  0a38:32 00ba            jmp code_0af5 

        code_0a3b
  0a3b:3c                 dup 
  0a3c:35 03              ldi 3 
  0a3e:1a                 eq? 
  0a3f:31 14              bnt code_0a55 
  0a41:38 00d3          pushi d3 // $d3 setMotion
  0a44:39 04            pushi 4 // $4 x
  0a46:51 1d            class MoveTo 
  0a48:36                push 
  0a49:39 73            pushi 73 // $73 seconds
  0a4b:39 57            pushi 57 // $57 init
  0a4d:7c            pushSelf 
  0a4e:81 00              lag gEgo 
  0a50:4a 0c             send c 

  0a52:32 00a0            jmp code_0af5 

        code_0a55
  0a55:3c                 dup 
  0a56:35 04              ldi 4 
  0a58:1a                 eq? 
  0a59:31 1a              bnt code_0a75 
  0a5b:76               push0 
  0a5c:45 04 00         callb procedure_0004 0 // HandsOn 

  0a5f:35 01              ldi 1 
  0a61:a0 0085            sag global133 
  0a64:39 7a            pushi 7a // $7a setScript
  0a66:78               push1 
  0a67:76               push0 
  0a68:38 00f8          pushi f8 // $f8 newRoom
  0a6b:78               push1 
  0a6c:39 09            pushi 9 // $9 nsTop
  0a6e:81 02              lag gCurRoom 
  0a70:4a 0c             send c 

  0a72:32 0080            jmp code_0af5 

        code_0a75
  0a75:3c                 dup 
  0a76:35 05              ldi 5 
  0a78:1a                 eq? 
  0a79:31 13              bnt code_0a8e 
  0a7b:38 00d3          pushi d3 // $d3 setMotion
  0a7e:39 04            pushi 4 // $4 x
  0a80:51 1d            class MoveTo 
  0a82:36                push 
  0a83:39 73            pushi 73 // $73 seconds
  0a85:39 64            pushi 64 // $64 allTrue
  0a87:7c            pushSelf 
  0a88:81 00              lag gEgo 
  0a8a:4a 0c             send c 

  0a8c:33 67              jmp code_0af5 

        code_0a8e
  0a8e:3c                 dup 
  0a8f:35 06              ldi 6 
  0a91:1a                 eq? 
  0a92:31 36              bnt code_0aca 
  0a94:39 12            pushi 12 // $12 illegalBits
  0a96:78               push1 
  0a97:8b 01              lsl local1 
  0a99:34 8010            ldi 8010 
  0a9c:14                  or 
  0a9d:36                push 
  0a9e:81 00              lag gEgo 
  0aa0:4a 06             send 6 

  0aa2:38 00a3          pushi a3 // $a3 startUpd
  0aa5:76               push0 
  0aa6:39 7e            pushi 7e // $7e setCycle
  0aa8:7a               push2 
  0aa9:51 1b            class Beg 
  0aab:36                push 
  0aac:7c            pushSelf 
  0aad:72 0c92          lofsa $1742 // Door
  0ab0:4a 0c             send c 

  0ab2:39 2b            pushi 2b // $2b number
  0ab4:78               push1 
  0ab5:39 2c            pushi 2c // $2c handle
  0ab7:39 06            pushi 6 // $6 loop
  0ab9:78               push1 
  0aba:78               push1 
  0abb:39 3f            pushi 3f // $3f priority
  0abd:78               push1 
  0abe:39 05            pushi 5 // $5 view
  0ac0:39 2a            pushi 2a // $2a play
  0ac2:76               push0 
  0ac3:72 0ebe          lofsa $1984 // mySound
  0ac6:4a 16             send 16 

  0ac8:33 2b              jmp code_0af5 

        code_0aca
  0aca:3c                 dup 
  0acb:35 07              ldi 7 
  0acd:1a                 eq? 
  0ace:31 25              bnt code_0af5 
  0ad0:35 00              ldi 0 
  0ad2:a0 0085            sag global133 
  0ad5:39 76            pushi 76 // $76 script
  0ad7:76               push0 
  0ad8:72 0df1          lofsa $18cc // Jeeves
  0adb:4a 04             send 4 

  0add:18                 not 
  0ade:31 04              bnt code_0ae4 
  0ae0:76               push0 
  0ae1:45 04 00         callb procedure_0004 0 // HandsOn 


        code_0ae4
  0ae4:38 00c6          pushi c6 // $c6 stopUpd
  0ae7:76               push0 
  0ae8:72 0c57          lofsa $1742 // Door
  0aeb:4a 04             send 4 

  0aed:39 7a            pushi 7a // $7a setScript
  0aef:78               push1 
  0af0:76               push0 
  0af1:63 08             pToa client 
  0af3:4a 06             send 6 


        code_0af5
  0af5:3a                toss 
  0af6:48                 ret 
    )

)

// 158e
(instance PryBoard 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_0af7
  0af7:87 01              lap param1 
  0af9:65 0a             aTop state 
  0afb:36                push 
  0afc:3c                 dup 
  0afd:35 00              ldi 0 
  0aff:1a                 eq? 
  0b00:31 2f              bnt code_0b31 
  0b02:78               push1 
  0b03:78               push1 
  0b04:45 05 02         callb procedure_0005 2 // SetFlag 

  0b07:35 01              ldi 1 
  0b09:a0 0086            sag global134 
  0b0c:76               push0 
  0b0d:45 03 00         callb procedure_0003 0 // HandsOff 

  0b10:38 00d4          pushi d4 // $d4 setAvoider
  0b13:78               push1 
  0b14:39 56            pushi 56 // $56 new
  0b16:76               push0 
  0b17:51 21            class Avoid 
  0b19:4a 04             send 4 

  0b1b:36                push 
  0b1c:38 00d3          pushi d3 // $d3 setMotion
  0b1f:39 04            pushi 4 // $4 x
  0b21:51 1d            class MoveTo 
  0b23:36                push 
  0b24:39 65            pushi 65 // $65 contains
  0b26:38 0085          pushi 85 // $85 check
  0b29:7c            pushSelf 
  0b2a:81 00              lag gEgo 
  0b2c:4a 12             send 12 

  0b2e:32 0105            jmp code_0c36 

        code_0b31
  0b31:3c                 dup 
  0b32:35 01              ldi 1 
  0b34:1a                 eq? 
  0b35:31 20              bnt code_0b57 
  0b37:39 05            pushi 5 // $5 view
  0b39:78               push1 
  0b3a:39 32            pushi 32 // $32 b-i2
  0b3c:39 06            pushi 6 // $6 loop
  0b3e:78               push1 
  0b3f:76               push0 
  0b40:39 07            pushi 7 // $7 cel
  0b42:78               push1 
  0b43:76               push0 
  0b44:38 00a4          pushi a4 // $a4 cycleSpeed
  0b47:78               push1 
  0b48:78               push1 
  0b49:39 7e            pushi 7e // $7e setCycle
  0b4b:7a               push2 
  0b4c:51 1a            class End 
  0b4e:36                push 
  0b4f:7c            pushSelf 
  0b50:81 00              lag gEgo 
  0b52:4a 20             send 20 

  0b54:32 00df            jmp code_0c36 

        code_0b57
  0b57:3c                 dup 
  0b58:35 02              ldi 2 
  0b5a:1a                 eq? 
  0b5b:31 1f              bnt code_0b7c 
  0b5d:39 06            pushi 6 // $6 loop
  0b5f:78               push1 
  0b60:7a               push2 
  0b61:39 07            pushi 7 // $7 cel
  0b63:78               push1 
  0b64:76               push0 
  0b65:38 00c5          pushi c5 // $c5 posn
  0b68:7a               push2 
  0b69:39 62            pushi 62 // $62 eachElementDo
  0b6b:38 0085          pushi 85 // $85 check
  0b6e:39 7e            pushi 7e // $7e setCycle
  0b70:7a               push2 
  0b71:51 1a            class End 
  0b73:36                push 
  0b74:7c            pushSelf 
  0b75:81 00              lag gEgo 
  0b77:4a 1c             send 1c 

  0b79:32 00ba            jmp code_0c36 

        code_0b7c
  0b7c:3c                 dup 
  0b7d:35 03              ldi 3 
  0b7f:1a                 eq? 
  0b80:31 1a              bnt code_0b9c 
  0b82:39 06            pushi 6 // $6 loop
  0b84:78               push1 
  0b85:39 04            pushi 4 // $4 x
  0b87:39 07            pushi 7 // $7 cel
  0b89:78               push1 
  0b8a:76               push0 
  0b8b:39 7e            pushi 7e // $7e setCycle
  0b8d:78               push1 
  0b8e:51 16            class Fwd 
  0b90:36                push 
  0b91:81 00              lag gEgo 
  0b93:4a 12             send 12 

  0b95:35 08              ldi 8 
  0b97:65 10             aTop cycles 
  0b99:32 009a            jmp code_0c36 

        code_0b9c
  0b9c:3c                 dup 
  0b9d:35 04              ldi 4 
  0b9f:1a                 eq? 
  0ba0:31 18              bnt code_0bba 
  0ba2:39 42            pushi 42 // $42 setPri
  0ba4:78               push1 
  0ba5:39 09            pushi 9 // $9 nsTop
  0ba7:39 7e            pushi 7e // $7e setCycle
  0ba9:7a               push2 
  0baa:51 1a            class End 
  0bac:36                push 
  0bad:7c            pushSelf 
  0bae:72 0be3          lofsa $1794 // board
  0bb1:4a 0e             send e 

  0bb3:35 02              ldi 2 
  0bb5:a0 0086            sag global134 
  0bb8:33 7c              jmp code_0c36 

        code_0bba
  0bba:3c                 dup 
  0bbb:35 05              ldi 5 
  0bbd:1a                 eq? 
  0bbe:31 3c              bnt code_0bfc 
  0bc0:7a               push2 
  0bc1:39 3a            pushi 3a // $3a heading
  0bc3:7a               push2 
  0bc4:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0bca:39 06            pushi 6 // $6 loop
  0bcc:78               push1 
  0bcd:7a               push2 
  0bce:81 00              lag gEgo 
  0bd0:4a 06             send 6 

  0bd2:39 07            pushi 7 // $7 cel
  0bd4:78               push1 
  0bd5:78               push1 
  0bd6:89 00              lsg gEgo 
  0bd8:43 0e 02         callk NumCels 2 

  0bdb:36                push 
  0bdc:35 01              ldi 1 
  0bde:04                 sub 
  0bdf:36                push 
  0be0:39 12            pushi 12 // $12 illegalBits
  0be2:78               push1 
  0be3:39 12            pushi 12 // $12 illegalBits
  0be5:76               push0 
  0be6:81 00              lag gEgo 
  0be8:4a 04             send 4 

  0bea:36                push 
  0beb:35 08              ldi 8 
  0bed:14                  or 
  0bee:36                push 
  0bef:39 7e            pushi 7e // $7e setCycle
  0bf1:7a               push2 
  0bf2:51 1b            class Beg 
  0bf4:36                push 
  0bf5:7c            pushSelf 
  0bf6:81 00              lag gEgo 
  0bf8:4a 14             send 14 

  0bfa:33 3a              jmp code_0c36 

        code_0bfc
  0bfc:3c                 dup 
  0bfd:35 06              ldi 6 
  0bff:1a                 eq? 
  0c00:31 22              bnt code_0c24 
  0c02:39 05            pushi 5 // $5 view
  0c04:78               push1 
  0c05:76               push0 
  0c06:39 06            pushi 6 // $6 loop
  0c08:78               push1 
  0c09:78               push1 
  0c0a:38 00a4          pushi a4 // $a4 cycleSpeed
  0c0d:78               push1 
  0c0e:76               push0 
  0c0f:38 00d4          pushi d4 // $d4 setAvoider
  0c12:78               push1 
  0c13:76               push0 
  0c14:39 7e            pushi 7e // $7e setCycle
  0c16:78               push1 
  0c17:51 17            class Walk 
  0c19:36                push 
  0c1a:81 00              lag gEgo 
  0c1c:4a 1e             send 1e 

  0c1e:35 01              ldi 1 
  0c20:65 10             aTop cycles 
  0c22:33 12              jmp code_0c36 

        code_0c24
  0c24:3c                 dup 
  0c25:35 07              ldi 7 
  0c27:1a                 eq? 
  0c28:31 0c              bnt code_0c36 
  0c2a:76               push0 
  0c2b:45 04 00         callb procedure_0004 0 // HandsOn 

  0c2e:39 7a            pushi 7a // $7a setScript
  0c30:78               push1 
  0c31:76               push0 
  0c32:63 08             pToa client 
  0c34:4a 06             send 6 


        code_0c36
  0c36:3a                toss 
  0c37:48                 ret 
    )

)

// 15be
(instance GetBible 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_0c38
  0c38:87 01              lap param1 
  0c3a:65 0a             aTop state 
  0c3c:36                push 
  0c3d:3c                 dup 
  0c3e:35 00              ldi 0 
  0c40:1a                 eq? 
  0c41:31 25              bnt code_0c68 
  0c43:76               push0 
  0c44:45 03 00         callb procedure_0003 0 // HandsOff 

  0c47:38 00d4          pushi d4 // $d4 setAvoider
  0c4a:78               push1 
  0c4b:39 56            pushi 56 // $56 new
  0c4d:76               push0 
  0c4e:51 21            class Avoid 
  0c50:4a 04             send 4 

  0c52:36                push 
  0c53:38 00d3          pushi d3 // $d3 setMotion
  0c56:39 04            pushi 4 // $4 x
  0c58:51 1d            class MoveTo 
  0c5a:36                push 
  0c5b:39 54            pushi 54 // $54 delete
  0c5d:38 008a          pushi 8a // $8a enable
  0c60:7c            pushSelf 
  0c61:81 00              lag gEgo 
  0c63:4a 12             send 12 

  0c65:32 0126            jmp code_0d8e 

        code_0c68
  0c68:3c                 dup 
  0c69:35 01              ldi 1 
  0c6b:1a                 eq? 
  0c6c:31 1b              bnt code_0c89 
  0c6e:39 05            pushi 5 // $5 view
  0c70:78               push1 
  0c71:39 11            pushi 11 // $11 signal
  0c73:39 07            pushi 7 // $7 cel
  0c75:78               push1 
  0c76:76               push0 
  0c77:39 06            pushi 6 // $6 loop
  0c79:78               push1 
  0c7a:78               push1 
  0c7b:39 7e            pushi 7e // $7e setCycle
  0c7d:7a               push2 
  0c7e:51 1a            class End 
  0c80:36                push 
  0c81:7c            pushSelf 
  0c82:81 00              lag gEgo 
  0c84:4a 1a             send 1a 

  0c86:32 0105            jmp code_0d8e 

        code_0c89
  0c89:3c                 dup 
  0c8a:35 02              ldi 2 
  0c8c:1a                 eq? 
  0c8d:31 2e              bnt code_0cbd 
  0c8f:39 05            pushi 5 // $5 view
  0c91:78               push1 
  0c92:39 18            pushi 18 // $18 key
  0c94:39 07            pushi 7 // $7 cel
  0c96:78               push1 
  0c97:76               push0 
  0c98:39 06            pushi 6 // $6 loop
  0c9a:78               push1 
  0c9b:76               push0 
  0c9c:38 00c5          pushi c5 // $c5 posn
  0c9f:7a               push2 
  0ca0:39 53            pushi 53 // $53 draw
  0ca2:38 008a          pushi 8a // $8a enable
  0ca5:38 00d4          pushi d4 // $d4 setAvoider
  0ca8:78               push1 
  0ca9:76               push0 
  0caa:38 00a4          pushi a4 // $a4 cycleSpeed
  0cad:78               push1 
  0cae:7a               push2 
  0caf:39 7e            pushi 7e // $7e setCycle
  0cb1:7a               push2 
  0cb2:51 1a            class End 
  0cb4:36                push 
  0cb5:7c            pushSelf 
  0cb6:81 00              lag gEgo 
  0cb8:4a 2e             send 2e 

  0cba:32 00d1            jmp code_0d8e 

        code_0cbd
  0cbd:3c                 dup 
  0cbe:35 03              ldi 3 
  0cc0:1a                 eq? 
  0cc1:31 1b              bnt code_0cde 
  0cc3:39 07            pushi 7 // $7 cel
  0cc5:78               push1 
  0cc6:76               push0 
  0cc7:39 06            pushi 6 // $6 loop
  0cc9:78               push1 
  0cca:78               push1 
  0ccb:38 00a4          pushi a4 // $a4 cycleSpeed
  0cce:78               push1 
  0ccf:7a               push2 
  0cd0:39 7e            pushi 7e // $7e setCycle
  0cd2:7a               push2 
  0cd3:51 1a            class End 
  0cd5:36                push 
  0cd6:7c            pushSelf 
  0cd7:81 00              lag gEgo 
  0cd9:4a 1a             send 1a 

  0cdb:32 00b0            jmp code_0d8e 

        code_0cde
  0cde:3c                 dup 
  0cdf:35 04              ldi 4 
  0ce1:1a                 eq? 
  0ce2:31 38              bnt code_0d1c 
  0ce4:7a               push2 
  0ce5:39 3a            pushi 3a // $3a heading
  0ce7:39 0d            pushi d // $d lsTop
  0ce9:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0cef:39 06            pushi 6 // $6 loop
  0cf1:39 3a            pushi 3a // $3a heading
  0cf3:39 0e            pushi e // $e lsLeft
  0cf5:39 21            pushi 21 // $21 font
  0cf7:39 04            pushi 4 // $4 x
  0cf9:39 46            pushi 46 // $46 width
  0cfb:38 010e          pushi 10e // $10e overlay
  0cfe:46 00ff 0000 0c  calle ff procedure_0000 c // Print 

  0d04:39 07            pushi 7 // $7 cel
  0d06:78               push1 
  0d07:76               push0 
  0d08:39 06            pushi 6 // $6 loop
  0d0a:78               push1 
  0d0b:7a               push2 
  0d0c:39 7e            pushi 7e // $7e setCycle
  0d0e:78               push1 
  0d0f:51 16            class Fwd 
  0d11:36                push 
  0d12:81 00              lag gEgo 
  0d14:4a 12             send 12 

  0d16:35 1e              ldi 1e 
  0d18:65 10             aTop cycles 
  0d1a:33 72              jmp code_0d8e 

        code_0d1c
  0d1c:3c                 dup 
  0d1d:35 05              ldi 5 
  0d1f:1a                 eq? 
  0d20:31 50              bnt code_0d72 
  0d22:39 06            pushi 6 // $6 loop
  0d24:78               push1 
  0d25:76               push0 
  0d26:39 7e            pushi 7e // $7e setCycle
  0d28:78               push1 
  0d29:76               push0 
  0d2a:81 00              lag gEgo 
  0d2c:4a 0c             send c 

  0d2e:39 07            pushi 7 // $7 cel
  0d30:78               push1 
  0d31:78               push1 
  0d32:89 00              lsg gEgo 
  0d34:43 0e 02         callk NumCels 2 

  0d37:36                push 
  0d38:35 01              ldi 1 
  0d3a:04                 sub 
  0d3b:36                push 
  0d3c:81 00              lag gEgo 
  0d3e:4a 06             send 6 

  0d40:7a               push2 
  0d41:39 3a            pushi 3a // $3a heading
  0d43:39 0f            pushi f // $f lsBottom
  0d45:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0d4b:39 04            pushi 4 // $4 x
  0d4d:39 3a            pushi 3a // $3a heading
  0d4f:39 10            pushi 10 // $10 lsRight
  0d51:39 21            pushi 21 // $21 font
  0d53:39 04            pushi 4 // $4 x
  0d55:46 00ff 0000 08  calle ff procedure_0000 8 // Print 

  0d5b:38 00e2          pushi e2 // $e2 canInput
  0d5e:78               push1 
  0d5f:78               push1 
  0d60:51 2b            class User 
  0d62:4a 06             send 6 

  0d64:39 7a            pushi 7a // $7a setScript
  0d66:78               push1 
  0d67:74 088a          lofss $15f4 // CloseBoard
  0d6a:54 06             self 6 

  0d6c:35 01              ldi 1 
  0d6e:65 10             aTop cycles 
  0d70:33 1c              jmp code_0d8e 

        code_0d72
  0d72:3c                 dup 
  0d73:35 06              ldi 6 
  0d75:1a                 eq? 
  0d76:31 16              bnt code_0d8e 
  0d78:63 18             pToa script 
  0d7a:31 0a              bnt code_0d86 
  0d7c:35 05              ldi 5 
  0d7e:65 0a             aTop state 
  0d80:35 01              ldi 1 
  0d82:65 10             aTop cycles 
  0d84:33 08              jmp code_0d8e 

        code_0d86
  0d86:39 7a            pushi 7a // $7a setScript
  0d88:78               push1 
  0d89:76               push0 
  0d8a:63 08             pToa client 
  0d8c:4a 06             send 6 


        code_0d8e
  0d8e:3a                toss 
  0d8f:48                 ret 
    )

)

// 15ee
(instance CloseBoard 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_0d90
  0d90:87 01              lap param1 
  0d92:65 0a             aTop state 
  0d94:36                push 
  0d95:3c                 dup 
  0d96:35 00              ldi 0 
  0d98:1a                 eq? 
  0d99:31 51              bnt code_0dec 
  0d9b:76               push0 
  0d9c:45 03 00         callb procedure_0003 0 // HandsOff 

  0d9f:83 02              lal local2 
  0da1:18                 not 
  0da2:31 20              bnt code_0dc4 
  0da4:38 00d4          pushi d4 // $d4 setAvoider
  0da7:78               push1 
  0da8:39 56            pushi 56 // $56 new
  0daa:76               push0 
  0dab:51 21            class Avoid 
  0dad:4a 04             send 4 

  0daf:36                push 
  0db0:38 00d3          pushi d3 // $d3 setMotion
  0db3:39 04            pushi 4 // $4 x
  0db5:51 1d            class MoveTo 
  0db7:36                push 
  0db8:39 54            pushi 54 // $54 delete
  0dba:38 008a          pushi 8a // $8a enable
  0dbd:7c            pushSelf 
  0dbe:81 00              lag gEgo 
  0dc0:4a 12             send 12 

  0dc2:33 25              jmp code_0de9 

        code_0dc4
  0dc4:39 06            pushi 6 // $6 loop
  0dc6:78               push1 
  0dc7:76               push0 
  0dc8:81 00              lag gEgo 
  0dca:4a 06             send 6 

  0dcc:39 07            pushi 7 // $7 cel
  0dce:78               push1 
  0dcf:78               push1 
  0dd0:89 00              lsg gEgo 
  0dd2:43 0e 02         callk NumCels 2 

  0dd5:36                push 
  0dd6:35 01              ldi 1 
  0dd8:04                 sub 
  0dd9:36                push 
  0dda:39 7e            pushi 7e // $7e setCycle
  0ddc:7a               push2 
  0ddd:51 1b            class Beg 
  0ddf:36                push 
  0de0:7c            pushSelf 
  0de1:81 00              lag gEgo 
  0de3:4a 0e             send e 

  0de5:35 01              ldi 1 
  0de7:65 0a             aTop state 

        code_0de9
  0de9:32 00da            jmp code_0ec6 

        code_0dec
  0dec:3c                 dup 
  0ded:35 01              ldi 1 
  0def:1a                 eq? 
  0df0:31 1b              bnt code_0e0d 
  0df2:39 05            pushi 5 // $5 view
  0df4:78               push1 
  0df5:39 11            pushi 11 // $11 signal
  0df7:39 07            pushi 7 // $7 cel
  0df9:78               push1 
  0dfa:76               push0 
  0dfb:39 06            pushi 6 // $6 loop
  0dfd:78               push1 
  0dfe:78               push1 
  0dff:39 7e            pushi 7e // $7e setCycle
  0e01:7a               push2 
  0e02:51 1a            class End 
  0e04:36                push 
  0e05:7c            pushSelf 
  0e06:81 00              lag gEgo 
  0e08:4a 1a             send 1a 

  0e0a:32 00b9            jmp code_0ec6 

        code_0e0d
  0e0d:3c                 dup 
  0e0e:35 02              ldi 2 
  0e10:1a                 eq? 
  0e11:31 2a              bnt code_0e3d 
  0e13:39 05            pushi 5 // $5 view
  0e15:78               push1 
  0e16:39 18            pushi 18 // $18 key
  0e18:39 07            pushi 7 // $7 cel
  0e1a:78               push1 
  0e1b:76               push0 
  0e1c:39 06            pushi 6 // $6 loop
  0e1e:78               push1 
  0e1f:39 03            pushi 3 // $3 y
  0e21:38 00c5          pushi c5 // $c5 posn
  0e24:7a               push2 
  0e25:39 53            pushi 53 // $53 draw
  0e27:38 008a          pushi 8a // $8a enable
  0e2a:38 00a4          pushi a4 // $a4 cycleSpeed
  0e2d:78               push1 
  0e2e:7a               push2 
  0e2f:39 7e            pushi 7e // $7e setCycle
  0e31:7a               push2 
  0e32:51 1a            class End 
  0e34:36                push 
  0e35:7c            pushSelf 
  0e36:81 00              lag gEgo 
  0e38:4a 28             send 28 

  0e3a:32 0089            jmp code_0ec6 

        code_0e3d
  0e3d:3c                 dup 
  0e3e:35 03              ldi 3 
  0e40:1a                 eq? 
  0e41:31 4e              bnt code_0e91 
  0e43:39 07            pushi 7 // $7 cel
  0e45:76               push0 
  0e46:72 094b          lofsa $1794 // board
  0e49:4a 04             send 4 

  0e4b:36                push 
  0e4c:35 00              ldi 0 
  0e4e:1c                 ne? 
  0e4f:31 06              bnt code_0e57 
  0e51:35 02              ldi 2 
  0e53:65 0a             aTop state 
  0e55:33 34              jmp code_0e8b 

        code_0e57
  0e57:39 05            pushi 5 // $5 view
  0e59:78               push1 
  0e5a:76               push0 
  0e5b:39 06            pushi 6 // $6 loop
  0e5d:78               push1 
  0e5e:78               push1 
  0e5f:39 12            pushi 12 // $12 illegalBits
  0e61:78               push1 
  0e62:39 12            pushi 12 // $12 illegalBits
  0e64:76               push0 
  0e65:81 00              lag gEgo 
  0e67:4a 04             send 4 

  0e69:36                push 
  0e6a:35 f7              ldi f7 
  0e6c:12                 and 
  0e6d:36                push 
  0e6e:38 00d4          pushi d4 // $d4 setAvoider
  0e71:78               push1 
  0e72:76               push0 
  0e73:38 00a4          pushi a4 // $a4 cycleSpeed
  0e76:78               push1 
  0e77:76               push0 
  0e78:39 7e            pushi 7e // $7e setCycle
  0e7a:78               push1 
  0e7b:51 17            class Walk 
  0e7d:36                push 
  0e7e:81 00              lag gEgo 
  0e80:4a 24             send 24 

  0e82:39 42            pushi 42 // $42 setPri
  0e84:78               push1 
  0e85:7a               push2 
  0e86:72 090b          lofsa $1794 // board
  0e89:4a 06             send 6 


        code_0e8b
  0e8b:35 01              ldi 1 
  0e8d:65 10             aTop cycles 
  0e8f:33 35              jmp code_0ec6 

        code_0e91
  0e91:3c                 dup 
  0e92:35 04              ldi 4 
  0e94:1a                 eq? 
  0e95:31 2f              bnt code_0ec6 
  0e97:83 02              lal local2 
  0e99:31 0d              bnt code_0ea8 
  0e9b:7a               push2 
  0e9c:39 3a            pushi 3a // $3a heading
  0e9e:39 11            pushi 11 // $11 signal
  0ea0:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0ea6:33 0b              jmp code_0eb3 

        code_0ea8
  0ea8:7a               push2 
  0ea9:39 3a            pushi 3a // $3a heading
  0eab:39 12            pushi 12 // $12 illegalBits
  0ead:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0eb3
  0eb3:76               push0 
  0eb4:45 04 00         callb procedure_0004 0 // HandsOn 

  0eb7:35 00              ldi 0 
  0eb9:a3 02              sal local2 
  0ebb:a0 0086            sag global134 
  0ebe:39 7a            pushi 7a // $7a setScript
  0ec0:78               push1 
  0ec1:76               push0 
  0ec2:63 08             pToa client 
  0ec4:4a 06             send 6 


        code_0ec6
  0ec6:3a                toss 
  0ec7:48                 ret 
    )

)

// 161e
(instance tryBoard 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_0ec8
  0ec8:87 01              lap param1 
  0eca:65 0a             aTop state 
  0ecc:36                push 
  0ecd:3c                 dup 
  0ece:35 00              ldi 0 
  0ed0:1a                 eq? 
  0ed1:31 25              bnt code_0ef8 
  0ed3:76               push0 
  0ed4:45 03 00         callb procedure_0003 0 // HandsOff 

  0ed7:38 00d4          pushi d4 // $d4 setAvoider
  0eda:78               push1 
  0edb:39 56            pushi 56 // $56 new
  0edd:76               push0 
  0ede:51 21            class Avoid 
  0ee0:4a 04             send 4 

  0ee2:36                push 
  0ee3:38 00d3          pushi d3 // $d3 setMotion
  0ee6:39 04            pushi 4 // $4 x
  0ee8:51 1d            class MoveTo 
  0eea:36                push 
  0eeb:39 54            pushi 54 // $54 delete
  0eed:38 008a          pushi 8a // $8a enable
  0ef0:7c            pushSelf 
  0ef1:81 00              lag gEgo 
  0ef3:4a 12             send 12 

  0ef5:32 00ee            jmp code_0fe6 

        code_0ef8
  0ef8:3c                 dup 
  0ef9:35 01              ldi 1 
  0efb:1a                 eq? 
  0efc:31 1b              bnt code_0f19 
  0efe:39 05            pushi 5 // $5 view
  0f00:78               push1 
  0f01:39 11            pushi 11 // $11 signal
  0f03:39 07            pushi 7 // $7 cel
  0f05:78               push1 
  0f06:76               push0 
  0f07:39 06            pushi 6 // $6 loop
  0f09:78               push1 
  0f0a:78               push1 
  0f0b:39 7e            pushi 7e // $7e setCycle
  0f0d:7a               push2 
  0f0e:51 1a            class End 
  0f10:36                push 
  0f11:7c            pushSelf 
  0f12:81 00              lag gEgo 
  0f14:4a 1a             send 1a 

  0f16:32 00cd            jmp code_0fe6 

        code_0f19
  0f19:3c                 dup 
  0f1a:35 02              ldi 2 
  0f1c:1a                 eq? 
  0f1d:31 32              bnt code_0f51 
  0f1f:39 05            pushi 5 // $5 view
  0f21:78               push1 
  0f22:39 18            pushi 18 // $18 key
  0f24:39 07            pushi 7 // $7 cel
  0f26:78               push1 
  0f27:76               push0 
  0f28:39 06            pushi 6 // $6 loop
  0f2a:78               push1 
  0f2b:76               push0 
  0f2c:38 00c5          pushi c5 // $c5 posn
  0f2f:7a               push2 
  0f30:39 53            pushi 53 // $53 draw
  0f32:38 008a          pushi 8a // $8a enable
  0f35:38 00d4          pushi d4 // $d4 setAvoider
  0f38:78               push1 
  0f39:76               push0 
  0f3a:38 00a4          pushi a4 // $a4 cycleSpeed
  0f3d:78               push1 
  0f3e:7a               push2 
  0f3f:39 7e            pushi 7e // $7e setCycle
  0f41:39 04            pushi 4 // $4 x
  0f43:51 19            class CT 
  0f45:36                push 
  0f46:39 03            pushi 3 // $3 y
  0f48:78               push1 
  0f49:7c            pushSelf 
  0f4a:81 00              lag gEgo 
  0f4c:4a 32             send 32 

  0f4e:32 0095            jmp code_0fe6 

        code_0f51
  0f51:3c                 dup 
  0f52:35 03              ldi 3 
  0f54:1a                 eq? 
  0f55:31 29              bnt code_0f80 
  0f57:39 03            pushi 3 // $3 y
  0f59:39 3a            pushi 3a // $3a heading
  0f5b:39 13            pushi 13 // $13 brTop
  0f5d:39 58            pushi 58 // $58 dispose
  0f5f:46 00ff 0000 06  calle ff procedure_0000 6 // Print 

  0f65:39 06            pushi 6 // $6 loop
  0f67:78               push1 
  0f68:39 04            pushi 4 // $4 x
  0f6a:38 00a4          pushi a4 // $a4 cycleSpeed
  0f6d:78               push1 
  0f6e:39 04            pushi 4 // $4 x
  0f70:39 7e            pushi 7e // $7e setCycle
  0f72:78               push1 
  0f73:51 16            class Fwd 
  0f75:36                push 
  0f76:81 00              lag gEgo 
  0f78:4a 12             send 12 

  0f7a:35 15              ldi 15 
  0f7c:65 10             aTop cycles 
  0f7e:33 66              jmp code_0fe6 

        code_0f80
  0f80:3c                 dup 
  0f81:35 04              ldi 4 
  0f83:1a                 eq? 
  0f84:31 0d              bnt code_0f93 
  0f86:39 7e            pushi 7e // $7e setCycle
  0f88:7a               push2 
  0f89:51 1b            class Beg 
  0f8b:36                push 
  0f8c:7c            pushSelf 
  0f8d:81 00              lag gEgo 
  0f8f:4a 08             send 8 

  0f91:33 53              jmp code_0fe6 

        code_0f93
  0f93:3c                 dup 
  0f94:35 05              ldi 5 
  0f96:1a                 eq? 
  0f97:31 24              bnt code_0fbd 
  0f99:76               push0 
  0f9a:45 0f 00         callb procedure_000f 0 // cls 

  0f9d:39 05            pushi 5 // $5 view
  0f9f:78               push1 
  0fa0:39 11            pushi 11 // $11 signal
  0fa2:39 07            pushi 7 // $7 cel
  0fa4:78               push1 
  0fa5:39 03            pushi 3 // $3 y
  0fa7:39 06            pushi 6 // $6 loop
  0fa9:78               push1 
  0faa:78               push1 
  0fab:38 00a4          pushi a4 // $a4 cycleSpeed
  0fae:78               push1 
  0faf:7a               push2 
  0fb0:39 7e            pushi 7e // $7e setCycle
  0fb2:7a               push2 
  0fb3:51 1b            class Beg 
  0fb5:36                push 
  0fb6:7c            pushSelf 
  0fb7:81 00              lag gEgo 
  0fb9:4a 20             send 20 

  0fbb:33 29              jmp code_0fe6 

        code_0fbd
  0fbd:3c                 dup 
  0fbe:35 06              ldi 6 
  0fc0:1a                 eq? 
  0fc1:31 23              bnt code_0fe6 
  0fc3:39 05            pushi 5 // $5 view
  0fc5:78               push1 
  0fc6:76               push0 
  0fc7:39 06            pushi 6 // $6 loop
  0fc9:78               push1 
  0fca:78               push1 
  0fcb:38 00a4          pushi a4 // $a4 cycleSpeed
  0fce:78               push1 
  0fcf:76               push0 
  0fd0:39 7e            pushi 7e // $7e setCycle
  0fd2:78               push1 
  0fd3:51 17            class Walk 
  0fd5:36                push 
  0fd6:81 00              lag gEgo 
  0fd8:4a 18             send 18 

  0fda:76               push0 
  0fdb:45 04 00         callb procedure_0004 0 // HandsOn 

  0fde:39 7a            pushi 7a // $7a setScript
  0fe0:78               push1 
  0fe1:76               push0 
  0fe2:63 08             pToa client 
  0fe4:4a 06             send 6 


        code_0fe6
  0fe6:3a                toss 
  0fe7:48                 ret 
    )

)

// 164e
(instance pray 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_0fe8
  0fe8:87 01              lap param1 
  0fea:65 0a             aTop state 
  0fec:36                push 
  0fed:3c                 dup 
  0fee:35 00              ldi 0 
  0ff0:1a                 eq? 
  0ff1:31 24              bnt code_1017 
  0ff3:76               push0 
  0ff4:45 03 00         callb procedure_0003 0 // HandsOff 

  0ff7:38 00d4          pushi d4 // $d4 setAvoider
  0ffa:78               push1 
  0ffb:39 56            pushi 56 // $56 new
  0ffd:76               push0 
  0ffe:51 21            class Avoid 
  1000:4a 04             send 4 

  1002:36                push 
  1003:38 00d3          pushi d3 // $d3 setMotion
  1006:39 04            pushi 4 // $4 x
  1008:51 1d            class MoveTo 
  100a:36                push 
  100b:39 68            pushi 68 // $68 release
  100d:38 0080          pushi 80 // $80 timeLeft
  1010:7c            pushSelf 
  1011:81 00              lag gEgo 
  1013:4a 12             send 12 

  1015:33 7a              jmp code_1091 

        code_1017
  1017:3c                 dup 
  1018:35 01              ldi 1 
  101a:1a                 eq? 
  101b:31 2d              bnt code_104a 
  101d:39 05            pushi 5 // $5 view
  101f:78               push1 
  1020:39 3b            pushi 3b // $3b mover
  1022:39 07            pushi 7 // $7 cel
  1024:78               push1 
  1025:76               push0 
  1026:39 06            pushi 6 // $6 loop
  1028:78               push1 
  1029:76               push0 
  102a:38 00c5          pushi c5 // $c5 posn
  102d:7a               push2 
  102e:39 67            pushi 67 // $67 first
  1030:38 0080          pushi 80 // $80 timeLeft
  1033:38 00d4          pushi d4 // $d4 setAvoider
  1036:78               push1 
  1037:76               push0 
  1038:38 00a4          pushi a4 // $a4 cycleSpeed
  103b:78               push1 
  103c:7a               push2 
  103d:39 7e            pushi 7e // $7e setCycle
  103f:7a               push2 
  1040:51 1a            class End 
  1042:36                push 
  1043:7c            pushSelf 
  1044:81 00              lag gEgo 
  1046:4a 2e             send 2e 

  1048:33 47              jmp code_1091 

        code_104a
  104a:3c                 dup 
  104b:35 02              ldi 2 
  104d:1a                 eq? 
  104e:31 18              bnt code_1068 
  1050:7a               push2 
  1051:39 3a            pushi 3a // $3a heading
  1053:39 14            pushi 14 // $14 brLeft
  1055:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  105b:39 7e            pushi 7e // $7e setCycle
  105d:7a               push2 
  105e:51 1b            class Beg 
  1060:36                push 
  1061:7c            pushSelf 
  1062:81 00              lag gEgo 
  1064:4a 08             send 8 

  1066:33 29              jmp code_1091 

        code_1068
  1068:3c                 dup 
  1069:35 03              ldi 3 
  106b:1a                 eq? 
  106c:31 23              bnt code_1091 
  106e:39 05            pushi 5 // $5 view
  1070:78               push1 
  1071:76               push0 
  1072:39 06            pushi 6 // $6 loop
  1074:78               push1 
  1075:78               push1 
  1076:38 00a4          pushi a4 // $a4 cycleSpeed
  1079:78               push1 
  107a:76               push0 
  107b:39 7e            pushi 7e // $7e setCycle
  107d:78               push1 
  107e:51 17            class Walk 
  1080:36                push 
  1081:81 00              lag gEgo 
  1083:4a 18             send 18 

  1085:76               push0 
  1086:45 04 00         callb procedure_0004 0 // HandsOn 

  1089:39 7a            pushi 7a // $7a setScript
  108b:78               push1 
  108c:76               push0 
  108d:63 08             pToa client 
  108f:4a 06             send 6 


        code_1091
  1091:3a                toss 
  1092:48                 ret 
    )

)

// 167e
(instance statueLeft of RPicView
    (properties
        y $30
        x $93
        z $0
        heading $0
        view $9e
        loop $3
        cel $0
        priority $1
        signal $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
    )
    (method (handleEvent) // method_1093
  1093:78               push1 
  1094:74 038f          lofss $1426 // get/monument
  1097:43 25 02         callk Said 2 

  109a:31 0d              bnt code_10a9 
  109c:7a               push2 
  109d:39 3a            pushi 3a // $3a heading
  109f:39 15            pushi 15 // $15 brBottom
  10a1:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  10a7:33 2b              jmp code_10d4 

        code_10a9
  10a9:39 03            pushi 3 // $3 y
  10ab:7c            pushSelf 
  10ac:8f 01              lsp param1 
  10ae:39 03            pushi 3 // $3 y
  10b0:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  10b6:2f 09               bt code_10c1 
  10b8:78               push1 
  10b9:74 03a3          lofss $145f // look/monument,alcove
  10bc:43 25 02         callk Said 2 

  10bf:31 13              bnt code_10d4 

        code_10c1
  10c1:39 4c            pushi 4c // $4c claimed
  10c3:78               push1 
  10c4:78               push1 
  10c5:87 01              lap param1 
  10c7:4a 06             send 6 

  10c9:7a               push2 
  10ca:39 3a            pushi 3a // $3a heading
  10cc:39 16            pushi 16 // $16 brRight
  10ce:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_10d4
  10d4:48                 ret 
    )

)

// 16b4
(instance statueRight of RPicView
    (properties
        y $38
        x $101
        z $0
        heading $0
        view $9e
        loop $3
        cel $1
        priority $1
        signal $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
    )
    (method (handleEvent) // method_10d5
  10d5:39 03            pushi 3 // $3 y
  10d7:7c            pushSelf 
  10d8:8f 01              lsp param1 
  10da:39 03            pushi 3 // $3 y
  10dc:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  10e2:31 13              bnt code_10f7 
  10e4:39 4c            pushi 4c // $4c claimed
  10e6:78               push1 
  10e7:78               push1 
  10e8:87 01              lap param1 
  10ea:4a 06             send 6 

  10ec:7a               push2 
  10ed:39 3a            pushi 3a // $3a heading
  10ef:39 16            pushi 16 // $16 brRight
  10f1:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_10f7
  10f7:48                 ret 
    )

)

// 16ea
(instance lamp of Prop
    (properties
        y $34
        x $cb
        z $0
        heading $0
        yStep $2
        view $9e
        loop $1
        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_10f8
  10f8:78               push1 
  10f9:74 0324          lofss $1420 // get/bougie
  10fc:43 25 02         callk Said 2 

  10ff:31 0d              bnt code_110e 
  1101:7a               push2 
  1102:39 3a            pushi 3a // $3a heading
  1104:39 17            pushi 17 // $17 name
  1106:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  110c:33 41              jmp code_114f 

        code_110e
  110e:78               push1 
  110f:74 031a          lofss $142c // allumer/bougie
  1112:43 25 02         callk Said 2 

  1115:31 0d              bnt code_1124 
  1117:7a               push2 
  1118:39 3a            pushi 3a // $3a heading
  111a:39 18            pushi 18 // $18 key
  111c:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  1122:33 2b              jmp code_114f 

        code_1124
  1124:39 03            pushi 3 // $3 y
  1126:7c            pushSelf 
  1127:8f 01              lsp param1 
  1129:39 03            pushi 3 // $3 y
  112b:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  1131:2f 09               bt code_113c 
  1133:78               push1 
  1134:74 030a          lofss $1441 // look/bougie
  1137:43 25 02         callk Said 2 

  113a:31 13              bnt code_114f 

        code_113c
  113c:39 4c            pushi 4c // $4c claimed
  113e:78               push1 
  113f:78               push1 
  1140:87 01              lap param1 
  1142:4a 06             send 6 

  1144:7a               push2 
  1145:39 3a            pushi 3a // $3a heading
  1147:39 19            pushi 19 // $19 time
  1149:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_114f
  114f:48                 ret 
    )

)

// 173c
(instance Door of Prop
    (properties
        y $52
        x $83
        z $0
        heading $0
        yStep $2
        view $9e
        loop $0
        cel $0
        priority $4
        underBits $0
        signal $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
        lsTop $0
        lsLeft $0
        lsBottom $0
        lsRight $0
        brTop $0
        brLeft $0
        brBottom $0
        brRight $0
        cycleSpeed $0
        script $0
        cycler $0
        timer $0
    )
    (method (handleEvent) // method_1150
  1150:39 03            pushi 3 // $3 y
  1152:7c            pushSelf 
  1153:8f 01              lsp param1 
  1155:39 03            pushi 3 // $3 y
  1157:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  115d:2f 09               bt code_1168 
  115f:78               push1 
  1160:74 02ea          lofss $144d // look/door<arriere
  1163:43 25 02         callk Said 2 

  1166:31 15              bnt code_117d 

        code_1168
  1168:39 4c            pushi 4c // $4c claimed
  116a:78               push1 
  116b:78               push1 
  116c:87 01              lap param1 
  116e:4a 06             send 6 

  1170:7a               push2 
  1171:39 3a            pushi 3a // $3a heading
  1173:39 1a            pushi 1a // $1a text
  1175:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  117b:33 2a              jmp code_11a7 

        code_117d
  117d:78               push1 
  117e:74 02d5          lofss $1456 // look/door<avant
  1181:43 25 02         callk Said 2 

  1184:31 0d              bnt code_1193 
  1186:7a               push2 
  1187:39 3a            pushi 3a // $3a heading
  1189:39 1b            pushi 1b // $1b elements
  118b:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  1191:33 14              jmp code_11a7 

        code_1193
  1193:78               push1 
  1194:74 02b0          lofss $1447 // look/door
  1197:43 25 02         callk Said 2 

  119a:31 0b              bnt code_11a7 
  119c:7a               push2 
  119d:39 3a            pushi 3a // $3a heading
  119f:39 1c            pushi 1c // $1c color
  11a1:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_11a7
  11a7:48                 ret 
    )

)

// 178e
(instance board of Prop
    (properties
        y $87
        x $35
        z $0
        heading $0
        yStep $2
        view $9e
        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
    )
)

// 17dc
(instance flame1 of Prop
    (properties
        y $23
        x $c7
        z $0
        heading $0
        yStep $2
        view $9e
        loop $2
        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
    )
)

// 182a
(instance flame2 of Prop
    (properties
        y $22
        x $cc
        z $0
        heading $0
        yStep $2
        view $9e
        loop $2
        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
    )
)

// 1878
(instance flame3 of Prop
    (properties
        y $24
        x $d1
        z $0
        heading $0
        yStep $2
        view $9e
        loop $2
        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
    )
)

// 18c6
(instance Jeeves of Act
    (properties
        y $5c
        x $d8
        z $0
        heading $0
        yStep $2
        view $1b9
        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
    )
)

// 192a
(instance Creak of Sound
    (properties
        state $0
        number $32
        priority $0
        loop $1
        handle $0
        signal $0
        prevSignal $0
        client $0
        owner $0
    )
)

// 1954
(instance Organ of Sound
    (properties
        state $0
        number $3f
        priority $0
        loop $1
        handle $0
        signal $0
        prevSignal $0
        client $0
        owner $0
    )
)

// 197e
(instance mySound of Sound
    (properties
        state $0
        number $2b
        priority $0
        loop $1
        handle $0
        signal $0
        prevSignal $0
        client $0
        owner $0
    )
)

// 19a8
(instance PathIn of Path
    (properties
        client $0
        caller $0
        x $0
        y $0
        dx $0
        dy $0
        b-moveCnt $0
        b-i1 $0
        b-i2 $0
        b-di $0
        b-xAxis $0
        b-incr $0
        completed $0
        intermediate $0
        value $0
    )
    (method (at) // method_11a8
  11a8:87 01              lap param1 
  11aa:93 04             lali local4 
  11ac:48                 ret 
    )

)

// 19e2
(instance PathOut of Path
    (properties
        client $0
        caller $0
        x $0
        y $0
        dx $0
        dy $0
        b-moveCnt $0
        b-i1 $0
        b-i2 $0
        b-di $0
        b-xAxis $0
        b-incr $0
        completed $0
        intermediate $0
        value $0
    )
    (method (at) // method_11ad
  11ad:87 01              lap param1 
  11af:93 0b             lali local11 
  11b1:48                 ret 
    )

)

// 1a1c
(instance StainedGlass of RFeature
    (properties
        y $0
        x $0
        z $0
        heading $0
        nsTop $27
        nsLeft $30
        nsBottom $4c
        nsRight $59
    )
    (method (handleEvent) // method_11b2
  11b2:39 03            pushi 3 // $3 y
  11b4:7c            pushSelf 
  11b5:8f 01              lsp param1 
  11b7:39 03            pushi 3 // $3 y
  11b9:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  11bf:2f 09               bt code_11ca 
  11c1:78               push1 
  11c2:74 02a3          lofss $1468 // look/fenetre
  11c5:43 25 02         callk Said 2 

  11c8:31 13              bnt code_11dd 

        code_11ca
  11ca:39 4c            pushi 4c // $4c claimed
  11cc:78               push1 
  11cd:78               push1 
  11ce:87 01              lap param1 
  11d0:4a 06             send 6 

  11d2:7a               push2 
  11d3:39 3a            pushi 3a // $3a heading
  11d5:39 1d            pushi 1d // $1d back
  11d7:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_11dd
  11dd:48                 ret 
    )

)

// 1a48
(instance Altar of RFeature
    (properties
        y $0
        x $0
        z $0
        heading $0
        nsTop $5e
        nsLeft $41
        nsBottom $7c
        nsRight $5a
    )
    (method (handleEvent) // method_11de
  11de:78               push1 
  11df:74 02a7          lofss $1489 // open,(look<dans)/altar
  11e2:43 25 02         callk Said 2 

  11e5:31 0d              bnt code_11f4 
  11e7:7a               push2 
  11e8:39 3a            pushi 3a // $3a heading
  11ea:39 1e            pushi 1e // $1e mode
  11ec:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  11f2:33 2b              jmp code_121f 

        code_11f4
  11f4:39 03            pushi 3 // $3 y
  11f6:7c            pushSelf 
  11f7:8f 01              lsp param1 
  11f9:39 03            pushi 3 // $3 y
  11fb:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  1201:2f 09               bt code_120c 
  1203:78               push1 
  1204:74 022e          lofss $1435 // look/altar
  1207:43 25 02         callk Said 2 

  120a:31 13              bnt code_121f 

        code_120c
  120c:39 4c            pushi 4c // $4c claimed
  120e:78               push1 
  120f:78               push1 
  1210:87 01              lap param1 
  1212:4a 06             send 6 

  1214:7a               push2 
  1215:39 3a            pushi 3a // $3a heading
  1217:39 1f            pushi 1f // $1f style
  1219:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_121f
  121f:48                 ret 
    )

)

// 1a74
(instance Window1 of RFeature
    (properties
        y $0
        x $0
        z $0
        heading $0
        nsTop $15
        nsLeft $a1
        nsBottom $40
        nsRight $bd
    )
    (method (handleEvent) // method_1220
  1220:78               push1 
  1221:74 01c3          lofss $13e7 // break/fenetre
  1224:43 25 02         callk Said 2 

  1227:31 0d              bnt code_1236 
  1229:7a               push2 
  122a:39 3a            pushi 3a // $3a heading
  122c:39 20            pushi 20 // $20 state
  122e:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  1234:33 4e              jmp code_1284 

        code_1236
  1236:78               push1 
  1237:74 0272          lofss $14ac // open/fenetre
  123a:43 25 02         callk Said 2 

  123d:31 0d              bnt code_124c 
  123f:7a               push2 
  1240:39 3a            pushi 3a // $3a heading
  1242:39 21            pushi 21 // $21 font
  1244:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  124a:33 38              jmp code_1284 

        code_124c
  124c:78               push1 
  124d:74 021e          lofss $146e // look<(exterieur,through)/fenetre
  1250:43 25 02         callk Said 2 

  1253:31 0d              bnt code_1262 
  1255:7a               push2 
  1256:39 3a            pushi 3a // $3a heading
  1258:39 22            pushi 22 // $22 type
  125a:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  1260:33 22              jmp code_1284 

        code_1262
  1262:39 03            pushi 3 // $3 y
  1264:7c            pushSelf 
  1265:8f 01              lsp param1 
  1267:39 03            pushi 3 // $3 y
  1269:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  126f:31 13              bnt code_1284 
  1271:39 4c            pushi 4c // $4c claimed
  1273:78               push1 
  1274:78               push1 
  1275:87 01              lap param1 
  1277:4a 06             send 6 

  1279:7a               push2 
  127a:39 3a            pushi 3a // $3a heading
  127c:39 23            pushi 23 // $23 window
  127e:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_1284
  1284:48                 ret 
    )

)

// 1aa0
(instance Window2 of RFeature
    (properties
        y $0
        x $0
        z $0
        heading $0
        nsTop $18
        nsLeft $db
        nsBottom $41
        nsRight $f5
    )
    (method (handleEvent) // method_1285
  1285:39 03            pushi 3 // $3 y
  1287:7c            pushSelf 
  1288:8f 01              lsp param1 
  128a:39 03            pushi 3 // $3 y
  128c:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  1292:31 13              bnt code_12a7 
  1294:39 4c            pushi 4c // $4c claimed
  1296:78               push1 
  1297:78               push1 
  1298:87 01              lap param1 
  129a:4a 06             send 6 

  129c:7a               push2 
  129d:39 3a            pushi 3a // $3a heading
  129f:39 23            pushi 23 // $23 window
  12a1:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_12a7
  12a7:48                 ret 
    )

)

// 1acc
(instance Pew1 of RFeature
    (properties
        y $0
        x $0
        z $0
        heading $0
        nsTop $4e
        nsLeft $8a
        nsBottom $6c
        nsRight $d6
    )
    (method (handleEvent) // method_12a8
  12a8:78               push1 
  12a9:74 021d          lofss $14c9 // asseoir[/bas,banc]
  12ac:43 25 02         callk Said 2 

  12af:31 0d              bnt code_12be 
  12b1:7a               push2 
  12b2:39 3a            pushi 3a // $3a heading
  12b4:39 24            pushi 24 // $24 cursor
  12b6:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  12bc:33 41              jmp code_12ff 

        code_12be
  12be:78               push1 
  12bf:74 01ba          lofss $147c // look<below/banc
  12c2:43 25 02         callk Said 2 

  12c5:31 0d              bnt code_12d4 
  12c7:7a               push2 
  12c8:39 3a            pushi 3a // $3a heading
  12ca:39 25            pushi 25 // $25 max
  12cc:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  12d2:33 2b              jmp code_12ff 

        code_12d4
  12d4:39 03            pushi 3 // $3 y
  12d6:7c            pushSelf 
  12d7:8f 01              lsp param1 
  12d9:39 03            pushi 3 // $3 y
  12db:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  12e1:2f 09               bt code_12ec 
  12e3:78               push1 
  12e4:74 0154          lofss $143b // look/banc
  12e7:43 25 02         callk Said 2 

  12ea:31 13              bnt code_12ff 

        code_12ec
  12ec:39 4c            pushi 4c // $4c claimed
  12ee:78               push1 
  12ef:78               push1 
  12f0:87 01              lap param1 
  12f2:4a 06             send 6 

  12f4:7a               push2 
  12f5:39 3a            pushi 3a // $3a heading
  12f7:39 26            pushi 26 // $26 mark
  12f9:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_12ff
  12ff:48                 ret 
    )

)

// 1af8
(instance Pew2 of RFeature
    (properties
        y $0
        x $0
        z $0
        heading $0
        nsTop $7c
        nsLeft $73
        nsBottom $ae
        nsRight $d6
    )
    (method (handleEvent) // method_1300
  1300:39 03            pushi 3 // $3 y
  1302:7c            pushSelf 
  1303:8f 01              lsp param1 
  1305:39 03            pushi 3 // $3 y
  1307:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  130d:31 13              bnt code_1322 
  130f:39 4c            pushi 4c // $4c claimed
  1311:78               push1 
  1312:78               push1 
  1313:87 01              lap param1 
  1315:4a 06             send 6 

  1317:7a               push2 
  1318:39 3a            pushi 3a // $3a heading
  131a:39 26            pushi 26 // $26 mark
  131c:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_1322
  1322:48                 ret 
  1323:00                bnot 
    )

)



