(script 414)

(string
    string_089c "Finger"
    string_08a3 "Glass"
    string_08a9 "Logo"
    string_08ae "identify"
    string_08b7 "myCopy"
)

(said
)

(local
    local0 = $0000
    local1 = $0000
    local2 = $0000
    local3 = $0000
    local4 = $0000
    local5 = $0000
    local6 = $0024
    local7 = $0028
    local8 = $0034
    local9 = $0000
    local10 = $003e
    local11 = $003b
    local12 = $0055
    local13 = $0000
    local14 = $0059
    local15 = $0025
    local16 = $006b
    local17 = $0000
    local18 = $0074
    local19 = $0036
    local20 = $0089
    local21 = $0000
    local22 = $0081
    local23 = $0041
    local24 = $00a1
    local25 = $0022
    local26 = $00a4
    local27 = $006b
    local28 = $00b6
    local29 = $0081
    local30 = $00a4
    local31 = $00cc
    local32 = $00b6
    local33 = $00db
    local34 = $00a4
    local35 = $012a
    local36 = $00b6
    local37 = $00fa
    local38 = $001f
    local39 = $012f
    local40 = $0035
    local41 = $00fa
    local42 = $003c
    local43 = $012f
    local44 = $0054
    local45 = $00fa
    local46 = $005a
    local47 = $012f
    local48 = $0076
    local49 = $00fa
    local50 = $007e
    local51 = $012f
    local52 = $009a
    local53 = $0000
    local54 = $0001
    local55 = $0005
    local56 = $0002
    local57 = $0003
    local58 = $0004
    local59 = $0007
    local60 = $0006
    local61 = $0008
    local62 = $000b
    local63 = $0009
    local64 = $000a
    local65 = $0003
    local66 = $0000
    local67 = $0007
    local68 = $0001
    local69 = $0006
    local70 = $0005
    local71 = $000b
    local72 = $0002
    local73 = $0004
    local74 = $0008
    local75 = $000a
    local76 = $0009
    local77 = $000a
    local78 = $0027
    local79 = $000a
    local80 = $0044
    local81 = $000a
    local82 = $005e
    local83 = $000a
    local84 = $0078
    local85 = $000a
    local86 = $008f
    local87 = $003e
    local88 = $00a8
    local89 = $009f
    local90 = $00a8
    local91 = $00ff
    local92 = $00a8
    local93 = $010a
    local94 = $0027
    local95 = $010a
    local96 = $0043
    local97 = $010a
    local98 = $0061
    local99 = $010a
    local100 = $0085
    local101 = $0000
    local102 = $0000
    local103 = $0000
    local104 = $0000
)

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

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

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

// 0748
(instance public myCopy of Rm
    (properties
        script $0
        number $0
        timer $0
        keep $0
        initialized $0
        picture $58
        style $8
        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_00a7
  00a7:39 57            pushi 57 // $57 init
  00a9:76               push0 
  00aa:57 37 04         super Rm 4 

  00ad:39 20            pushi 20 // $20 state
  00af:78               push1 
  00b0:76               push0 
  00b1:51 14            class TheMenuBar 
  00b3:4a 06             send 6 

  00b5:35 01              ldi 1 
  00b7:a3 66              sal local102 
  00b9:39 2b            pushi 2b // $2b number
  00bb:78               push1 
  00bc:39 34            pushi 34 // $34 b-xAxis
  00be:39 06            pushi 6 // $6 loop
  00c0:78               push1 
  00c1:39 ff            pushi ff // $ff checkAni
  00c3:39 2a            pushi 2a // $2a play
  00c5:76               push0 
  00c6:80 00b7            lag gConMusic 
  00c9:4a 10             send 10 

  00cb:7a               push2 
  00cc:76               push0 
  00cd:38 0258          pushi 258 // $258 sel_600
  00d0:43 40 04         callk Random 4 

  00d3:36                push 
  00d4:35 64              ldi 64 
  00d6:08                 div 
  00d7:a3 00              sal local0 
  00d9:7a               push2 
  00da:78               push1 
  00db:38 03e8          pushi 3e8 // $3e8 sel_1000
  00de:43 40 04         callk Random 4 

  00e1:36                push 
  00e2:34 00fa            ldi fa 
  00e5:08                 div 
  00e6:a3 01              sal local1 
  00e8:39 04            pushi 4 // $4 x
  00ea:78               push1 
  00eb:78               push1 
  00ec:38 0140          pushi 140 // $140 upRoomNo
  00ef:39 14            pushi 14 // $14 brLeft
  00f1:43 28 08         callk SetCursor 8 

  00f4:39 05            pushi 5 // $5 view
  00f6:78               push1 
  00f7:38 0229          pushi 229 // $229 sel_553
  00fa:39 06            pushi 6 // $6 loop
  00fc:78               push1 
  00fd:39 04            pushi 4 // $4 x
  00ff:39 07            pushi 7 // $7 cel
  0101:78               push1 
  0102:78               push1 
  0103:38 00c5          pushi c5 // $c5 posn
  0106:7a               push2 
  0107:38 00a1          pushi a1 // $a1 motionCue
  010a:39 78            pushi 78 // $78 changeState
  010c:39 57            pushi 57 // $57 init
  010e:76               push0 
  010f:38 00c6          pushi c6 // $c6 stopUpd
  0112:76               push0 
  0113:72 0538          lofsa $064e // Logo
  0116:4a 22             send 22 

  0118:39 05            pushi 5 // $5 view
  011a:78               push1 
  011b:38 0229          pushi 229 // $229 sel_553
  011e:39 06            pushi 6 // $6 loop
  0120:78               push1 
  0121:8b 01              lsl local1 
  0123:39 07            pushi 7 // $7 cel
  0125:78               push1 
  0126:8b 00              lsl local0 
  0128:38 00c5          pushi c5 // $c5 posn
  012b:7a               push2 
  012c:38 00a1          pushi a1 // $a1 motionCue
  012f:39 6e            pushi 6e // $6e indexOf
  0131:39 57            pushi 57 // $57 init
  0133:76               push0 
  0134:38 0089          pushi 89 // $89 hide
  0137:76               push0 
  0138:72 0561          lofsa $069c // Finger
  013b:4a 22             send 22 

  013d:39 05            pushi 5 // $5 view
  013f:78               push1 
  0140:38 0229          pushi 229 // $229 sel_553
  0143:38 00c8          pushi c8 // $c8 setLoop
  0146:78               push1 
  0147:39 05            pushi 5 // $5 view
  0149:38 00a2          pushi a2 // $a2 setCel
  014c:78               push1 
  014d:76               push0 
  014e:38 00dc          pushi dc // $dc setStep
  0151:7a               push2 
  0152:88 00df            lsg gDetailLevel 
  0155:3c                 dup 
  0156:35 01              ldi 1 
  0158:1a                 eq? 
  0159:31 04              bnt code_015f 
  015b:35 06              ldi 6 
  015d:33 02              jmp code_0161 

        code_015f
  015f:35 03              ldi 3 

        code_0161
  0161:3a                toss 
  0162:36                push 
  0163:39 03            pushi 3 // $3 y
  0165:38 00c5          pushi c5 // $c5 posn
  0168:7a               push2 
  0169:38 00a1          pushi a1 // $a1 motionCue
  016c:38 008c          pushi 8c // $8c track
  016f:39 57            pushi 57 // $57 init
  0171:76               push0 
  0172:72 0575          lofsa $06ea // Glass
  0175:4a 26             send 26 

  0177:39 7a            pushi 7a // $7a setScript
  0179:78               push1 
  017a:74 0621          lofss $079e // identify
  017d:54 06             self 6 

  017f:48                 ret 
    )

    (method (newRoom) // method_0180
  0180:38 0084          pushi 84 // $84 stop
  0183:76               push0 
  0184:80 00b7            lag gConMusic 
  0187:4a 04             send 4 

  0189:38 00f8          pushi f8 // $f8 newRoom
  018c:78               push1 
  018d:8f 01              lsp param1 
  018f:57 37 06         super Rm 6 

  0192:48                 ret 
    )

    (method (doit) // method_0193
  0193:39 3c            pushi 3c // $3c doit
  0195:76               push0 
  0196:57 37 04         super Rm 4 

  0199:48                 ret 
    )

    (method (dispose) // method_019a
  019a:39 58            pushi 58 // $58 dispose
  019c:76               push0 
  019d:57 37 04         super Rm 4 

  01a0:48                 ret 
    )

    (method (handleEvent) // method_01a1
  01a1:3f 01             link 1 // (var $1)
  01a3:83 68              lal local104 
  01a5:18                 not 
  01a6:30 0262            bnt code_040b 
  01a9:83 66              lal local102 
  01ab:30 008b            bnt code_0239 
  01ae:39 22            pushi 22 // $22 type
  01b0:76               push0 
  01b1:87 01              lap param1 
  01b3:4a 04             send 4 

  01b5:36                push 
  01b6:3c                 dup 
  01b7:35 04              ldi 4 
  01b9:1a                 eq? 
  01ba:31 73              bnt code_022f 
  01bc:39 28            pushi 28 // $28 message
  01be:76               push0 
  01bf:87 01              lap param1 
  01c1:4a 04             send 4 

  01c3:36                push 
  01c4:35 0d              ldi d 
  01c6:1a                 eq? 
  01c7:31 46              bnt code_020f 
  01c9:39 58            pushi 58 // $58 dispose
  01cb:76               push0 
  01cc:72 047f          lofsa $064e // Logo
  01cf:4a 04             send 4 

  01d1:38 00c5          pushi c5 // $c5 posn
  01d4:7a               push2 
  01d5:38 00a2          pushi a2 // $a2 setCel
  01d8:38 008c          pushi 8c // $8c track
  01db:38 00d3          pushi d3 // $d3 setMotion
  01de:78               push1 
  01df:76               push0 
  01e0:38 00c6          pushi c6 // $c6 stopUpd
  01e3:76               push0 
  01e4:72 0503          lofsa $06ea // Glass
  01e7:4a 12             send 12 

  01e9:38 00ca          pushi ca // $ca show
  01ec:76               push0 
  01ed:38 00c6          pushi c6 // $c6 stopUpd
  01f0:76               push0 
  01f1:72 04a8          lofsa $069c // Finger
  01f4:4a 08             send 8 

  01f6:39 20            pushi 20 // $20 state
  01f8:78               push1 
  01f9:39 04            pushi 4 // $4 x
  01fb:39 73            pushi 73 // $73 seconds
  01fd:78               push1 
  01fe:76               push0 
  01ff:39 72            pushi 72 // $72 cycles
  0201:78               push1 
  0202:76               push0 
  0203:72 0598          lofsa $079e // identify
  0206:4a 12             send 12 

  0208:39 79            pushi 79 // $79 cue
  020a:76               push0 
  020b:54 04             self 4 

  020d:33 20              jmp code_022f 

        code_020f
  020f:39 28            pushi 28 // $28 message
  0211:76               push0 
  0212:87 01              lap param1 
  0214:4a 04             send 4 

  0216:36                push 
  0217:34 3c00            ldi 3c00 
  021a:1a                 eq? 
  021b:31 12              bnt code_022f 
  021d:78               push1 
  021e:39 04            pushi 4 // $4 x
  0220:43 31 02         callk DoSound 2 

  0223:a5 00              sat temp0 
  0225:7a               push2 
  0226:39 04            pushi 4 // $4 x
  0228:85 00              lat temp0 
  022a:18                 not 
  022b:36                push 
  022c:43 31 04         callk DoSound 4 


        code_022f
  022f:3a                toss 
  0230:39 4c            pushi 4c // $4c claimed
  0232:78               push1 
  0233:78               push1 
  0234:87 01              lap param1 
  0236:4a 06             send 6 

  0238:48                 ret 

        code_0239
  0239:39 22            pushi 22 // $22 type
  023b:76               push0 
  023c:87 01              lap param1 
  023e:4a 04             send 4 

  0240:36                push 
  0241:3c                 dup 
  0242:34 0100            ldi 100 
  0245:1a                 eq? 
  0246:31 45              bnt code_028d 
  0248:35 01              ldi 1 
  024a:a3 68              sal local104 
  024c:35 01              ldi 1 
  024e:a3 66              sal local102 
  0250:7a               push2 
  0251:39 04            pushi 4 // $4 x
  0253:76               push0 
  0254:87 01              lap param1 
  0256:4a 04             send 4 

  0258:36                push 
  0259:39 03            pushi 3 // $3 y
  025b:76               push0 
  025c:87 01              lap param1 
  025e:4a 04             send 4 

  0260:36                push 
  0261:40 fdc1 04        call proc_0026 4 

  0265:a3 04              sal local4 
  0267:36                push 
  0268:8b 01              lsl local1 
  026a:35 06              ldi 6 
  026c:06                 mul 
  026d:36                push 
  026e:83 00              lal local0 
  0270:02                 add 
  0271:93 35             lali local53 
  0273:1a                 eq? 
  0274:31 07              bnt code_027d 
  0276:39 79            pushi 79 // $79 cue
  0278:76               push0 
  0279:54 04             self 4 

  027b:33 05              jmp code_0282 

        code_027d
  027d:39 79            pushi 79 // $79 cue
  027f:76               push0 
  0280:54 04             self 4 


        code_0282
  0282:39 4c            pushi 4c // $4c claimed
  0284:78               push1 
  0285:78               push1 
  0286:87 01              lap param1 
  0288:4a 06             send 6 

  028a:32 017d            jmp code_040a 

        code_028d
  028d:3c                 dup 
  028e:35 01              ldi 1 
  0290:1a                 eq? 
  0291:31 45              bnt code_02d8 
  0293:35 01              ldi 1 
  0295:a3 68              sal local104 
  0297:35 01              ldi 1 
  0299:a3 66              sal local102 
  029b:7a               push2 
  029c:39 04            pushi 4 // $4 x
  029e:76               push0 
  029f:87 01              lap param1 
  02a1:4a 04             send 4 

  02a3:36                push 
  02a4:39 03            pushi 3 // $3 y
  02a6:76               push0 
  02a7:87 01              lap param1 
  02a9:4a 04             send 4 

  02ab:36                push 
  02ac:40 fd76 04        call proc_0026 4 

  02b0:a3 04              sal local4 
  02b2:36                push 
  02b3:8b 01              lsl local1 
  02b5:35 06              ldi 6 
  02b7:06                 mul 
  02b8:36                push 
  02b9:83 00              lal local0 
  02bb:02                 add 
  02bc:93 35             lali local53 
  02be:1a                 eq? 
  02bf:31 07              bnt code_02c8 
  02c1:39 79            pushi 79 // $79 cue
  02c3:76               push0 
  02c4:54 04             self 4 

  02c6:33 05              jmp code_02cd 

        code_02c8
  02c8:39 79            pushi 79 // $79 cue
  02ca:76               push0 
  02cb:54 04             self 4 


        code_02cd
  02cd:39 4c            pushi 4c // $4c claimed
  02cf:78               push1 
  02d0:78               push1 
  02d1:87 01              lap param1 
  02d3:4a 06             send 6 

  02d5:32 0132            jmp code_040a 

        code_02d8
  02d8:3c                 dup 
  02d9:35 40              ldi 40 
  02db:1a                 eq? 
  02dc:30 00af            bnt code_038e 
  02df:39 28            pushi 28 // $28 message
  02e1:76               push0 
  02e2:87 01              lap param1 
  02e4:4a 04             send 4 

  02e6:36                push 
  02e7:3c                 dup 
  02e8:35 01              ldi 1 
  02ea:1a                 eq? 
  02eb:31 1f              bnt code_030c 
  02ed:8b 65              lsl local101 
  02ef:35 00              ldi 0 
  02f1:1c                 ne? 
  02f2:31 16              bnt code_030a 
  02f4:8b 65              lsl local101 
  02f6:35 08              ldi 8 
  02f8:1c                 ne? 
  02f9:31 0f              bnt code_030a 
  02fb:8b 65              lsl local101 
  02fd:35 07              ldi 7 
  02ff:1a                 eq? 
  0300:31 06              bnt code_0308 
  0302:35 0b              ldi b 
  0304:a3 65              sal local101 
  0306:33 02              jmp code_030a 

        code_0308
  0308:e3 65              -al local101 

        code_030a
  030a:33 72              jmp code_037e 

        code_030c
  030c:3c                 dup 
  030d:35 05              ldi 5 
  030f:1a                 eq? 
  0310:31 1f              bnt code_0331 
  0312:8b 65              lsl local101 
  0314:35 05              ldi 5 
  0316:22                 lt? 
  0317:2f 07               bt code_0320 
  0319:8b 65              lsl local101 
  031b:35 07              ldi 7 
  031d:1e                 gt? 
  031e:31 0f              bnt code_032f 

        code_0320
  0320:8b 65              lsl local101 
  0322:35 0b              ldi b 
  0324:1a                 eq? 
  0325:31 06              bnt code_032d 
  0327:35 07              ldi 7 
  0329:a3 65              sal local101 
  032b:33 02              jmp code_032f 

        code_032d
  032d:c3 65              +al local101 

        code_032f
  032f:33 4d              jmp code_037e 

        code_0331
  0331:3c                 dup 
  0332:35 03              ldi 3 
  0334:1a                 eq? 
  0335:31 28              bnt code_035f 
  0337:8b 65              lsl local101 
  0339:35 07              ldi 7 
  033b:22                 lt? 
  033c:31 1f              bnt code_035d 
  033e:8b 65              lsl local101 
  0340:35 04              ldi 4 
  0342:22                 lt? 
  0343:31 09              bnt code_034e 
  0345:8b 65              lsl local101 
  0347:35 08              ldi 8 
  0349:02                 add 
  034a:a3 65              sal local101 
  034c:33 0f              jmp code_035d 

        code_034e
  034e:8b 65              lsl local101 
  0350:35 04              ldi 4 
  0352:1e                 gt? 
  0353:31 04              bnt code_0359 
  0355:c3 65              +al local101 
  0357:33 04              jmp code_035d 

        code_0359
  0359:35 0b              ldi b 
  035b:a3 65              sal local101 

        code_035d
  035d:33 1f              jmp code_037e 

        code_035f
  035f:3c                 dup 
  0360:35 07              ldi 7 
  0362:1a                 eq? 
  0363:31 19              bnt code_037e 
  0365:8b 65              lsl local101 
  0367:35 05              ldi 5 
  0369:1e                 gt? 
  036a:31 12              bnt code_037e 
  036c:8b 65              lsl local101 
  036e:35 07              ldi 7 
  0370:1e                 gt? 
  0371:31 09              bnt code_037c 
  0373:8b 65              lsl local101 
  0375:35 08              ldi 8 
  0377:04                 sub 
  0378:a3 65              sal local101 
  037a:33 02              jmp code_037e 

        code_037c
  037c:e3 65              -al local101 

        code_037e
  037e:3a                toss 
  037f:76               push0 
  0380:40 fc88 00        call proc_000c 0 

  0384:39 4c            pushi 4c // $4c claimed
  0386:78               push1 
  0387:78               push1 
  0388:87 01              lap param1 
  038a:4a 06             send 6 

  038c:33 7c              jmp code_040a 

        code_038e
  038e:3c                 dup 
  038f:35 04              ldi 4 
  0391:1a                 eq? 
  0392:31 76              bnt code_040a 
  0394:39 28            pushi 28 // $28 message
  0396:76               push0 
  0397:87 01              lap param1 
  0399:4a 04             send 4 

  039b:36                push 
  039c:35 0d              ldi d 
  039e:1a                 eq? 
  039f:31 3c              bnt code_03dd 
  03a1:35 01              ldi 1 
  03a3:a3 66              sal local102 
  03a5:35 01              ldi 1 
  03a7:a3 68              sal local104 
  03a9:7a               push2 
  03aa:39 04            pushi 4 // $4 x
  03ac:76               push0 
  03ad:87 01              lap param1 
  03af:4a 04             send 4 

  03b1:36                push 
  03b2:39 03            pushi 3 // $3 y
  03b4:76               push0 
  03b5:87 01              lap param1 
  03b7:4a 04             send 4 

  03b9:36                push 
  03ba:40 fc68 04        call proc_0026 4 

  03be:a3 04              sal local4 
  03c0:36                push 
  03c1:8b 01              lsl local1 
  03c3:35 06              ldi 6 
  03c5:06                 mul 
  03c6:36                push 
  03c7:83 00              lal local0 
  03c9:02                 add 
  03ca:93 35             lali local53 
  03cc:1a                 eq? 
  03cd:31 07              bnt code_03d6 
  03cf:39 79            pushi 79 // $79 cue
  03d1:76               push0 
  03d2:54 04             self 4 

  03d4:33 05              jmp code_03db 

        code_03d6
  03d6:39 79            pushi 79 // $79 cue
  03d8:76               push0 
  03d9:54 04             self 4 


        code_03db
  03db:33 20              jmp code_03fd 

        code_03dd
  03dd:39 28            pushi 28 // $28 message
  03df:76               push0 
  03e0:87 01              lap param1 
  03e2:4a 04             send 4 

  03e4:36                push 
  03e5:34 3c00            ldi 3c00 
  03e8:1a                 eq? 
  03e9:31 12              bnt code_03fd 
  03eb:78               push1 
  03ec:39 04            pushi 4 // $4 x
  03ee:43 31 02         callk DoSound 2 

  03f1:a5 00              sat temp0 
  03f3:7a               push2 
  03f4:39 04            pushi 4 // $4 x
  03f6:85 00              lat temp0 
  03f8:18                 not 
  03f9:36                push 
  03fa:43 31 04         callk DoSound 4 


        code_03fd
  03fd:76               push0 
  03fe:40 fc0a 00        call proc_000c 0 

  0402:39 4c            pushi 4c // $4c claimed
  0404:78               push1 
  0405:78               push1 
  0406:87 01              lap param1 
  0408:4a 06             send 6 


        code_040a
  040a:3a                toss 

        code_040b
  040b:48                 ret 
    )

)

// 0798
(instance identify 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_040c
  040c:3f 19             link 19 // (var $19)
  040e:87 01              lap param1 
  0410:65 0a             aTop state 
  0412:36                push 
  0413:3c                 dup 
  0414:35 00              ldi 0 
  0416:1a                 eq? 
  0417:31 2a              bnt code_0443 
  0419:39 0e            pushi e // $e lsLeft
  041b:38 019e          pushi 19e // $19e sel_414
  041e:78               push1 
  041f:39 64            pushi 64 // $64 allTrue
  0421:39 5a            pushi 5a // $5a showSelf
  0423:39 10            pushi 10 // $10 lsRight
  0425:39 6a            pushi 6a // $6a prev
  0427:38 0100          pushi 100 // $100 notify
  042a:39 66            pushi 66 // $66 isEmpty
  042c:39 0f            pushi f // $f lsBottom
  042e:39 67            pushi 67 // $67 first
  0430:39 ff            pushi ff // $ff checkAni
  0432:39 69            pushi 69 // $69 last
  0434:76               push0 
  0435:39 6b            pushi 6b // $6b addToFront
  0437:43 1b 1c         callk Display 1c 

  043a:a3 03              sal local3 
  043c:35 14              ldi 14 
  043e:65 10             aTop cycles 
  0440:32 01fd            jmp code_0640 

        code_0443
  0443:3c                 dup 
  0444:35 01              ldi 1 
  0446:1a                 eq? 
  0447:31 3a              bnt code_0483 
  0449:39 0f            pushi f // $f lsBottom
  044b:39 04            pushi 4 // $4 x
  044d:5b 04 00           lea 4 0 
  0450:36                push 
  0451:38 019e          pushi 19e // $19e sel_414
  0454:7a               push2 
  0455:89 1c              lsg gVersion 
  0457:43 4c 08         callk Format 8 

  045a:36                push 
  045b:39 65            pushi 65 // $65 contains
  045d:78               push1 
  045e:39 64            pushi 64 // $64 allTrue
  0460:39 23            pushi 23 // $23 window
  0462:38 009b          pushi 9b // $9b bottom
  0465:39 6a            pushi 6a // $6a prev
  0467:38 00fa          pushi fa // $fa restart
  046a:39 66            pushi 66 // $66 isEmpty
  046c:39 0f            pushi f // $f lsBottom
  046e:39 67            pushi 67 // $67 first
  0470:39 ff            pushi ff // $ff checkAni
  0472:39 69            pushi 69 // $69 last
  0474:76               push0 
  0475:39 6b            pushi 6b // $6b addToFront
  0477:43 1b 1e         callk Display 1e 

  047a:a3 02              sal local2 
  047c:35 04              ldi 4 
  047e:65 12             aTop seconds 
  0480:32 01bd            jmp code_0640 

        code_0483
  0483:3c                 dup 
  0484:35 02              ldi 2 
  0486:1a                 eq? 
  0487:31 22              bnt code_04ab 
  0489:80 00df            lag gDetailLevel 
  048c:31 16              bnt code_04a4 
  048e:38 00d3          pushi d3 // $d3 setMotion
  0491:39 04            pushi 4 // $4 x
  0493:51 1d            class MoveTo 
  0495:36                push 
  0496:38 00f0          pushi f0 // $f0 targetObj
  0499:38 008c          pushi 8c // $8c track
  049c:7c            pushSelf 
  049d:72 024a          lofsa $06ea // Glass
  04a0:4a 0c             send c 

  04a2:33 04              jmp code_04a8 

        code_04a4
  04a4:35 01              ldi 1 
  04a6:65 10             aTop cycles 

        code_04a8
  04a8:32 0195            jmp code_0640 

        code_04ab
  04ab:3c                 dup 
  04ac:35 03              ldi 3 
  04ae:1a                 eq? 
  04af:31 0f              bnt code_04c0 
  04b1:39 58            pushi 58 // $58 dispose
  04b3:76               push0 
  04b4:72 0197          lofsa $064e // Logo
  04b7:4a 04             send 4 

  04b9:35 01              ldi 1 
  04bb:65 10             aTop cycles 
  04bd:32 0180            jmp code_0640 

        code_04c0
  04c0:3c                 dup 
  04c1:35 04              ldi 4 
  04c3:1a                 eq? 
  04c4:31 2f              bnt code_04f5 
  04c6:38 00ca          pushi ca // $ca show
  04c9:76               push0 
  04ca:38 00c6          pushi c6 // $c6 stopUpd
  04cd:76               push0 
  04ce:72 01cb          lofsa $069c // Finger
  04d1:4a 08             send 8 

  04d3:80 00df            lag gDetailLevel 
  04d6:31 16              bnt code_04ee 
  04d8:38 00d3          pushi d3 // $d3 setMotion
  04db:39 04            pushi 4 // $4 x
  04dd:51 1d            class MoveTo 
  04df:36                push 
  04e0:38 00a3          pushi a3 // $a3 startUpd
  04e3:38 008c          pushi 8c // $8c track
  04e6:7c            pushSelf 
  04e7:72 0200          lofsa $06ea // Glass
  04ea:4a 0c             send c 

  04ec:33 04              jmp code_04f2 

        code_04ee
  04ee:35 01              ldi 1 
  04f0:65 10             aTop cycles 

        code_04f2
  04f2:32 014b            jmp code_0640 

        code_04f5
  04f5:3c                 dup 
  04f6:35 05              ldi 5 
  04f8:1a                 eq? 
  04f9:30 0106            bnt code_0602 
  04fc:39 04            pushi 4 // $4 x
  04fe:78               push1 
  04ff:78               push1 
  0500:39 0a            pushi a // $a nsLeft
  0502:39 27            pushi 27 // $27 who
  0504:43 28 08         callk SetCursor 8 

  0507:35 00              ldi 0 
  0509:a3 66              sal local102 
  050b:39 04            pushi 4 // $4 x
  050d:38 019e          pushi 19e // $19e sel_414
  0510:39 03            pushi 3 // $3 y
  0512:39 6c            pushi 6c // $6c addToEnd
  0514:8b 02              lsl local2 
  0516:43 1b 08         callk Display 8 

  0519:39 04            pushi 4 // $4 x
  051b:38 019e          pushi 19e // $19e sel_414
  051e:39 03            pushi 3 // $3 y
  0520:39 6c            pushi 6c // $6c addToEnd
  0522:8b 03              lsl local3 
  0524:43 1b 08         callk Display 8 

  0527:39 10            pushi 10 // $10 lsRight
  0529:38 019e          pushi 19e // $19e sel_414
  052c:39 04            pushi 4 // $4 x
  052e:39 64            pushi 64 // $64 allTrue
  0530:39 20            pushi 20 // $20 state
  0532:39 08            pushi 8 // $8 underBits
  0534:39 6a            pushi 6a // $6a prev
  0536:38 0100          pushi 100 // $100 notify
  0539:39 66            pushi 66 // $66 isEmpty
  053b:39 0f            pushi f // $f lsBottom
  053d:39 67            pushi 67 // $67 first
  053f:39 ff            pushi ff // $ff checkAni
  0541:39 69            pushi 69 // $69 last
  0543:39 04            pushi 4 // $4 x
  0545:39 65            pushi 65 // $65 contains
  0547:78               push1 
  0548:39 6b            pushi 6b // $6b addToFront
  054a:43 1b 20         callk Display 20 

  054d:39 0e            pushi e // $e lsLeft
  054f:38 019e          pushi 19e // $19e sel_414
  0552:39 05            pushi 5 // $5 view
  0554:39 64            pushi 64 // $64 allTrue
  0556:39 05            pushi 5 // $5 view
  0558:39 28            pushi 28 // $28 message
  055a:39 6a            pushi 6a // $6a prev
  055c:39 65            pushi 65 // $65 contains
  055e:39 66            pushi 66 // $66 isEmpty
  0560:39 0f            pushi f // $f lsBottom
  0562:39 67            pushi 67 // $67 first
  0564:39 ff            pushi ff // $ff checkAni
  0566:39 69            pushi 69 // $69 last
  0568:39 04            pushi 4 // $4 x
  056a:39 6b            pushi 6b // $6b addToFront
  056c:43 1b 1c         callk Display 1c 

  056f:39 0e            pushi e // $e lsLeft
  0571:38 019e          pushi 19e // $19e sel_414
  0574:39 06            pushi 6 // $6 loop
  0576:39 64            pushi 64 // $64 allTrue
  0578:39 28            pushi 28 // $28 message
  057a:38 00aa          pushi aa // $aa triedToMove
  057d:39 6a            pushi 6a // $6a prev
  057f:38 0140          pushi 140 // $140 upRoomNo
  0582:39 66            pushi 66 // $66 isEmpty
  0584:39 0f            pushi f // $f lsBottom
  0586:39 67            pushi 67 // $67 first
  0588:39 ff            pushi ff // $ff checkAni
  058a:39 69            pushi 69 // $69 last
  058c:39 04            pushi 4 // $4 x
  058e:39 6b            pushi 6b // $6b addToFront
  0590:43 1b 1c         callk Display 1c 

  0593:39 0e            pushi e // $e lsLeft
  0595:38 019e          pushi 19e // $19e sel_414
  0598:39 07            pushi 7 // $7 cel
  059a:39 64            pushi 64 // $64 allTrue
  059c:38 008c          pushi 8c // $8c track
  059f:38 00aa          pushi aa // $aa triedToMove
  05a2:39 6a            pushi 6a // $6a prev
  05a4:38 0140          pushi 140 // $140 upRoomNo
  05a7:39 66            pushi 66 // $66 isEmpty
  05a9:39 0f            pushi f // $f lsBottom
  05ab:39 67            pushi 67 // $67 first
  05ad:39 ff            pushi ff // $ff checkAni
  05af:39 69            pushi 69 // $69 last
  05b1:39 04            pushi 4 // $4 x
  05b3:39 6b            pushi 6b // $6b addToFront
  05b5:43 1b 1c         callk Display 1c 

  05b8:39 0e            pushi e // $e lsLeft
  05ba:38 019e          pushi 19e // $19e sel_414
  05bd:39 08            pushi 8 // $8 underBits
  05bf:39 64            pushi 64 // $64 allTrue
  05c1:38 00e6          pushi e6 // $e6 prompt
  05c4:38 00aa          pushi aa // $aa triedToMove
  05c7:39 6a            pushi 6a // $6a prev
  05c9:38 0140          pushi 140 // $140 upRoomNo
  05cc:39 66            pushi 66 // $66 isEmpty
  05ce:39 0f            pushi f // $f lsBottom
  05d0:39 67            pushi 67 // $67 first
  05d2:39 ff            pushi ff // $ff checkAni
  05d4:39 69            pushi 69 // $69 last
  05d6:39 04            pushi 4 // $4 x
  05d8:39 6b            pushi 6b // $6b addToFront
  05da:43 1b 1c         callk Display 1c 

  05dd:39 0e            pushi e // $e lsLeft
  05df:38 019e          pushi 19e // $19e sel_414
  05e2:39 09            pushi 9 // $9 nsTop
  05e4:39 64            pushi 64 // $64 allTrue
  05e6:38 00ff          pushi ff // $ff checkAni
  05e9:39 28            pushi 28 // $28 message
  05eb:39 6a            pushi 6a // $6a prev
  05ed:39 65            pushi 65 // $65 contains
  05ef:39 66            pushi 66 // $66 isEmpty
  05f1:39 0f            pushi f // $f lsBottom
  05f3:39 67            pushi 67 // $67 first
  05f5:39 ff            pushi ff // $ff checkAni
  05f7:39 69            pushi 69 // $69 last
  05f9:39 04            pushi 4 // $4 x
  05fb:39 6b            pushi 6b // $6b addToFront
  05fd:43 1b 1c         callk Display 1c 

  0600:33 3e              jmp code_0640 

        code_0602
  0602:3c                 dup 
  0603:35 06              ldi 6 
  0605:1a                 eq? 
  0606:31 38              bnt code_0640 
  0608:35 01              ldi 1 
  060a:a3 68              sal local104 
  060c:35 01              ldi 1 
  060e:a3 66              sal local102 
  0610:76               push0 
  0611:40 fa64 00        call proc_0079 0 

  0615:39 04            pushi 4 // $4 x
  0617:38 019e          pushi 19e // $19e sel_414
  061a:39 0a            pushi a // $a nsLeft
  061c:39 1e            pushi 1e // $1e mode
  061e:78               push1 
  061f:46 00ff 0000 08  calle ff procedure_0000 8 // Print 

  0625:39 04            pushi 4 // $4 x
  0627:38 03e5          pushi 3e5 // $3e5 sel_997
  062a:78               push1 
  062b:38 012c          pushi 12c // $12c surrogate
  062e:76               push0 
  062f:43 28 08         callk SetCursor 8 

  0632:39 7a            pushi 7a // $7a setScript
  0634:78               push1 
  0635:7a               push2 
  0636:38 0199          pushi 199 // $199 sel_409
  0639:76               push0 
  063a:43 02 04         callk ScriptID 4 

  063d:36                push 
  063e:54 06             self 6 


        code_0640
  0640:3a                toss 
  0641:48                 ret 
    )

)



(procedure proc_000c
  000c:39 04            pushi 4 // $4 x
  000e:78               push1 
  000f:78               push1 
  0010:8b 65              lsl local101 
  0012:35 02              ldi 2 
  0014:06                 mul 
  0015:9b 4d             lsli local77 
  0017:8b 65              lsl local101 
  0019:35 02              ldi 2 
  001b:06                 mul 
  001c:36                push 
  001d:35 01              ldi 1 
  001f:02                 add 
  0020:9b 4d             lsli local77 
  0022:43 28 08         callk SetCursor 8 

  0025:48                 ret 
)

(procedure proc_0026
  0026:3f 01             link 1 // (var $1)
  0028:35 00              ldi 0 
  002a:a5 00              sat temp0 

        code_002c
  002c:8d 00              lst temp0 
  002e:35 0c              ldi c 
  0030:22                 lt? 
  0031:31 43              bnt code_0076 
  0033:8f 01              lsp param1 
  0035:8d 00              lst temp0 
  0037:35 04              ldi 4 
  0039:06                 mul 
  003a:93 05             lali local5 
  003c:1e                 gt? 
  003d:31 33              bnt code_0072 
  003f:8f 02              lsp param2 
  0041:8d 00              lst temp0 
  0043:35 04              ldi 4 
  0045:06                 mul 
  0046:36                push 
  0047:35 01              ldi 1 
  0049:02                 add 
  004a:93 05             lali local5 
  004c:1e                 gt? 
  004d:31 23              bnt code_0072 
  004f:8f 01              lsp param1 
  0051:8d 00              lst temp0 
  0053:35 04              ldi 4 
  0055:06                 mul 
  0056:36                push 
  0057:35 02              ldi 2 
  0059:02                 add 
  005a:93 05             lali local5 
  005c:22                 lt? 
  005d:31 13              bnt code_0072 
  005f:8f 02              lsp param2 
  0061:8d 00              lst temp0 
  0063:35 04              ldi 4 
  0065:06                 mul 
  0066:36                push 
  0067:35 03              ldi 3 
  0069:02                 add 
  006a:93 05             lali local5 
  006c:22                 lt? 
  006d:31 03              bnt code_0072 
  006f:85 00              lat temp0 
  0071:48                 ret 

        code_0072
  0072:c5 00              +at temp0 
  0074:33 b6              jmp code_002c 

        code_0076
  0076:35 0d              ldi d 
  0078:48                 ret 
)

(procedure proc_0079
  0079:39 62            pushi 62 // $62 eachElementDo
  007b:78               push1 
  007c:38 0089          pushi 89 // $89 hide
  007f:81 05              lag gCast 
  0081:4a 06             send 6 

  0083:39 04            pushi 4 // $4 x
  0085:39 58            pushi 58 // $58 dispose
  0087:39 04            pushi 4 // $4 x
  0089:78               push1 
  008a:78               push1 
  008b:43 08 08         callk DrawPic 8 

  008e:48                 ret 
  008f:76               push0 
  0090:41 e6 00          call proc_0079 0 

  0093:39 04            pushi 4 // $4 x
  0095:38 019e          pushi 19e // $19e sel_414
  0098:76               push0 
  0099:39 1e            pushi 1e // $1e mode
  009b:78               push1 
  009c:46 00ff 0000 08  calle ff procedure_0000 8 // Print 

  00a2:35 01              ldi 1 
  00a4:a1 04              sag gQuit 
  00a6:48                 ret 
)

