(script 782)

(string
    string_0788 "Bird1"
    string_078e "Bird2"
    string_0794 "Laura"
    string_079a "Lillian"
    string_07a2 "Sign"
    string_07a7 "Thunder"
    string_07af "approach"
    string_07b8 "eHead"
    string_07be "lHead"
    string_07c4 "light1"
    string_07cb "light2"
    string_07d2 "openning"
    string_07db ""
)

(said
)

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

// 0482
(instance Laura 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
    )
)

// 04d0
(instance Lillian 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
    )
)

// 051e
(instance lHead 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
    )
)

// 056c
(instance eHead 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
    )
)

// 05ba
(instance light1 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
    )
)

// 0608
(instance light2 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
    )
)

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

// 0680
(instance public approach of Rm
    (properties
        script $0
        number $0
        timer $0
        keep $0
        initialized $0
        picture $1c
        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_008e
  008e:39 57            pushi 57 // $57 init
  0090:76               push0 
  0091:57 37 04         super Rm 4 

  0094:39 03            pushi 3 // $3 y
  0096:38 0087          pushi 87 // $87 clean
  0099:39 04            pushi 4 // $4 x
  009b:39 29            pushi 29 // $29 edit
  009d:45 15 06         callb procedure_0015 6 // LoadMany 

  00a0:7a               push2 
  00a1:38 0084          pushi 84 // $84 stop
  00a4:39 12            pushi 12 // $12 illegalBits
  00a6:43 00 04         callk Load 4 

  00a9:39 61            pushi 61 // $61 add
  00ab:39 03            pushi 3 // $3 y
  00ad:74 0656          lofss $0706 // Sign
  00b0:74 067d          lofss $0730 // Bird1
  00b3:74 06a4          lofss $075a // Bird2
  00b6:39 3c            pushi 3c // $3c doit
  00b8:76               push0 
  00b9:81 0a              lag gAddToPics 
  00bb:4a 0e             send e 

  00bd:39 2b            pushi 2b // $2b number
  00bf:78               push1 
  00c0:39 12            pushi 12 // $12 illegalBits
  00c2:39 06            pushi 6 // $6 loop
  00c4:78               push1 
  00c5:39 ff            pushi ff // $ff checkAni
  00c7:39 2a            pushi 2a // $2a play
  00c9:76               push0 
  00ca:72 058f          lofsa $065c // Thunder
  00cd:4a 10             send 10 

  00cf:39 05            pushi 5 // $5 view
  00d1:78               push1 
  00d2:38 0080          pushi 80 // $80 timeLeft
  00d5:39 06            pushi 6 // $6 loop
  00d7:78               push1 
  00d8:7a               push2 
  00d9:39 07            pushi 7 // $7 cel
  00db:78               push1 
  00dc:78               push1 
  00dd:38 00c5          pushi c5 // $c5 posn
  00e0:7a               push2 
  00e1:39 56            pushi 56 // $56 new
  00e3:39 2a            pushi 2a // $2a play
  00e5:39 57            pushi 57 // $57 init
  00e7:76               push0 
  00e8:72 04d5          lofsa $05c0 // light1
  00eb:4a 1e             send 1e 

  00ed:39 05            pushi 5 // $5 view
  00ef:78               push1 
  00f0:38 0080          pushi 80 // $80 timeLeft
  00f3:39 06            pushi 6 // $6 loop
  00f5:78               push1 
  00f6:39 03            pushi 3 // $3 y
  00f8:39 07            pushi 7 // $7 cel
  00fa:78               push1 
  00fb:78               push1 
  00fc:38 00c5          pushi c5 // $c5 posn
  00ff:7a               push2 
  0100:38 009d          pushi 9d // $9d cycleDir
  0103:39 33            pushi 33 // $33 b-di
  0105:39 57            pushi 57 // $57 init
  0107:76               push0 
  0108:72 0503          lofsa $060e // light2
  010b:4a 1e             send 1e 

  010d:39 05            pushi 5 // $5 view
  010f:78               push1 
  0110:38 0080          pushi 80 // $80 timeLeft
  0113:39 06            pushi 6 // $6 loop
  0115:78               push1 
  0116:39 04            pushi 4 // $4 x
  0118:39 07            pushi 7 // $7 cel
  011a:78               push1 
  011b:76               push0 
  011c:38 00c5          pushi c5 // $c5 posn
  011f:7a               push2 
  0120:38 0094          pushi 94 // $94 retreat
  0123:38 00bb          pushi bb // $bb targetY
  0126:39 57            pushi 57 // $57 init
  0128:76               push0 
  0129:72 035c          lofsa $0488 // Laura
  012c:4a 1e             send 1e 

  012e:39 05            pushi 5 // $5 view
  0130:78               push1 
  0131:38 0080          pushi 80 // $80 timeLeft
  0134:39 06            pushi 6 // $6 loop
  0136:78               push1 
  0137:39 04            pushi 4 // $4 x
  0139:39 07            pushi 7 // $7 cel
  013b:78               push1 
  013c:78               push1 
  013d:38 00c5          pushi c5 // $c5 posn
  0140:7a               push2 
  0141:38 00b4          pushi b4 // $b4 escaping
  0144:38 00bb          pushi bb // $bb targetY
  0147:39 57            pushi 57 // $57 init
  0149:76               push0 
  014a:72 0389          lofsa $04d6 // Lillian
  014d:4a 1e             send 1e 

  014f:39 05            pushi 5 // $5 view
  0151:78               push1 
  0152:38 0080          pushi 80 // $80 timeLeft
  0155:39 06            pushi 6 // $6 loop
  0157:78               push1 
  0158:39 05            pushi 5 // $5 view
  015a:39 07            pushi 7 // $7 cel
  015c:78               push1 
  015d:76               push0 
  015e:39 42            pushi 42 // $42 setPri
  0160:78               push1 
  0161:39 0f            pushi f // $f lsBottom
  0163:38 00c5          pushi c5 // $c5 posn
  0166:7a               push2 
  0167:38 00b3          pushi b3 // $b3 thisTurn
  016a:38 0093          pushi 93 // $93 advance
  016d:39 57            pushi 57 // $57 init
  016f:76               push0 
  0170:72 03b1          lofsa $0524 // lHead
  0173:4a 24             send 24 

  0175:39 05            pushi 5 // $5 view
  0177:78               push1 
  0178:38 0080          pushi 80 // $80 timeLeft
  017b:39 06            pushi 6 // $6 loop
  017d:78               push1 
  017e:39 06            pushi 6 // $6 loop
  0180:39 07            pushi 7 // $7 cel
  0182:78               push1 
  0183:76               push0 
  0184:39 42            pushi 42 // $42 setPri
  0186:78               push1 
  0187:39 0f            pushi f // $f lsBottom
  0189:38 00c5          pushi c5 // $c5 posn
  018c:7a               push2 
  018d:38 0094          pushi 94 // $94 retreat
  0190:38 0094          pushi 94 // $94 retreat
  0193:39 57            pushi 57 // $57 init
  0195:76               push0 
  0196:72 03d9          lofsa $0572 // eHead
  0199:4a 24             send 24 

  019b:39 7a            pushi 7a // $7a setScript
  019d:78               push1 
  019e:74 0531          lofss $06d2 // openning
  01a1:54 06             self 6 

  01a3:48                 ret 
    )

    (method (doit) // method_01a4
  01a4:39 3c            pushi 3c // $3c doit
  01a6:76               push0 
  01a7:57 37 04         super Rm 4 

  01aa:48                 ret 
    )

    (method (dispose) // method_01ab
  01ab:39 58            pushi 58 // $58 dispose
  01ad:76               push0 
  01ae:57 37 04         super Rm 4 

  01b1:48                 ret 
    )

    (method (handleEvent) // method_01b2
  01b2:39 4c            pushi 4c // $4c claimed
  01b4:76               push0 
  01b5:87 01              lap param1 
  01b7:4a 04             send 4 

  01b9:31 01              bnt code_01bc 
  01bb:48                 ret 

        code_01bc
  01bc:39 22            pushi 22 // $22 type
  01be:76               push0 
  01bf:87 01              lap param1 
  01c1:4a 04             send 4 

  01c3:36                push 
  01c4:3c                 dup 
  01c5:35 04              ldi 4 
  01c7:1a                 eq? 
  01c8:31 51              bnt code_021b 
  01ca:39 28            pushi 28 // $28 message
  01cc:76               push0 
  01cd:87 01              lap param1 
  01cf:4a 04             send 4 

  01d1:36                push 
  01d2:35 53              ldi 53 
  01d4:1a                 eq? 
  01d5:2f 0d               bt code_01e4 
  01d7:39 28            pushi 28 // $28 message
  01d9:76               push0 
  01da:87 01              lap param1 
  01dc:4a 04             send 4 

  01de:36                push 
  01df:35 73              ldi 73 
  01e1:1a                 eq? 
  01e2:31 15              bnt code_01f9 

        code_01e4
  01e4:39 4c            pushi 4c // $4c claimed
  01e6:78               push1 
  01e7:78               push1 
  01e8:87 01              lap param1 
  01ea:4a 06             send 6 

  01ec:38 00f8          pushi f8 // $f8 newRoom
  01ef:78               push1 
  01f0:38 030f          pushi 30f // $30f sel_783
  01f3:81 02              lag gCurRoom 
  01f5:4a 06             send 6 

  01f7:33 20              jmp code_0219 

        code_01f9
  01f9:39 28            pushi 28 // $28 message
  01fb:76               push0 
  01fc:87 01              lap param1 
  01fe:4a 04             send 4 

  0200:36                push 
  0201:35 0d              ldi d 
  0203:1a                 eq? 
  0204:2f 0d               bt code_0213 
  0206:39 28            pushi 28 // $28 message
  0208:76               push0 
  0209:87 01              lap param1 
  020b:4a 04             send 4 

  020d:36                push 
  020e:35 20              ldi 20 
  0210:1a                 eq? 
  0211:31 06              bnt code_0219 

        code_0213
  0213:78               push1 
  0214:39 32            pushi 32 // $32 b-i2
  0216:45 05 02         callb procedure_0005 2 // SetFlag 


        code_0219
  0219:33 0c              jmp code_0227 

        code_021b
  021b:3c                 dup 
  021c:35 01              ldi 1 
  021e:1a                 eq? 
  021f:31 06              bnt code_0227 
  0221:78               push1 
  0222:39 32            pushi 32 // $32 b-i2
  0224:45 05 02         callb procedure_0005 2 // SetFlag 


        code_0227
  0227:3a                toss 
  0228:78               push1 
  0229:39 32            pushi 32 // $32 b-i2
  022b:45 07 02         callb procedure_0007 2 // IsFlag 

  022e:31 12              bnt code_0242 
  0230:39 4c            pushi 4c // $4c claimed
  0232:78               push1 
  0233:78               push1 
  0234:87 01              lap param1 
  0236:4a 06             send 6 

  0238:38 00f8          pushi f8 // $f8 newRoom
  023b:78               push1 
  023c:39 2c            pushi 2c // $2c handle
  023e:81 02              lag gCurRoom 
  0240:4a 06             send 6 


        code_0242
  0242:48                 ret 
    )

)

// 06cc
(instance openning 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_0243
  0243:39 3c            pushi 3c // $3c doit
  0245:76               push0 
  0246:57 05 04         super Script 4 

  0249:38 0081          pushi 81 // $81 prevSignal
  024c:76               push0 
  024d:72 040c          lofsa $065c // Thunder
  0250:4a 04             send 4 

  0252:36                push 
  0253:35 32              ldi 32 
  0255:1a                 eq? 
  0256:31 07              bnt code_025f 
  0258:67 0a             pTos state 
  025a:35 00              ldi 0 
  025c:1a                 eq? 
  025d:2f 2c               bt code_028b 

        code_025f
  025f:38 0081          pushi 81 // $81 prevSignal
  0262:76               push0 
  0263:72 03f6          lofsa $065c // Thunder
  0266:4a 04             send 4 

  0268:36                push 
  0269:35 3c              ldi 3c 
  026b:1a                 eq? 
  026c:31 07              bnt code_0275 
  026e:67 0a             pTos state 
  0270:35 06              ldi 6 
  0272:1a                 eq? 
  0273:2f 16               bt code_028b 

        code_0275
  0275:38 0081          pushi 81 // $81 prevSignal
  0278:76               push0 
  0279:72 03e0          lofsa $065c // Thunder
  027c:4a 04             send 4 

  027e:36                push 
  027f:35 ff              ldi ff 
  0281:1a                 eq? 
  0282:31 15              bnt code_0299 
  0284:67 0a             pTos state 
  0286:35 0b              ldi b 
  0288:1a                 eq? 
  0289:31 0e              bnt code_0299 

        code_028b
  028b:38 0081          pushi 81 // $81 prevSignal
  028e:78               push1 
  028f:76               push0 
  0290:72 03c9          lofsa $065c // Thunder
  0293:4a 06             send 6 

  0295:35 01              ldi 1 
  0297:65 10             aTop cycles 

        code_0299
  0299:48                 ret 
    )

    (method (changeState) // method_029a
  029a:87 01              lap param1 
  029c:65 0a             aTop state 
  029e:36                push 
  029f:3c                 dup 
  02a0:35 00              ldi 0 
  02a2:1a                 eq? 
  02a3:31 07              bnt code_02ac 
  02a5:76               push0 
  02a6:45 03 00         callb procedure_0003 0 // HandsOff 

  02a9:32 01ce            jmp code_047a 

        code_02ac
  02ac:3c                 dup 
  02ad:35 01              ldi 1 
  02af:1a                 eq? 
  02b0:31 1d              bnt code_02cf 
  02b2:39 7e            pushi 7e // $7e setCycle
  02b4:78               push1 
  02b5:51 16            class Fwd 
  02b7:36                push 
  02b8:72 0305          lofsa $05c0 // light1
  02bb:4a 06             send 6 

  02bd:39 7e            pushi 7e // $7e setCycle
  02bf:78               push1 
  02c0:51 16            class Fwd 
  02c2:36                push 
  02c3:72 0348          lofsa $060e // light2
  02c6:4a 06             send 6 

  02c8:35 06              ldi 6 
  02ca:65 10             aTop cycles 
  02cc:32 01ab            jmp code_047a 

        code_02cf
  02cf:3c                 dup 
  02d0:35 02              ldi 2 
  02d2:1a                 eq? 
  02d3:31 1d              bnt code_02f2 
  02d5:39 7e            pushi 7e // $7e setCycle
  02d7:78               push1 
  02d8:51 1a            class End 
  02da:36                push 
  02db:72 02e2          lofsa $05c0 // light1
  02de:4a 06             send 6 

  02e0:39 7e            pushi 7e // $7e setCycle
  02e2:78               push1 
  02e3:51 1a            class End 
  02e5:36                push 
  02e6:72 0325          lofsa $060e // light2
  02e9:4a 06             send 6 

  02eb:35 02              ldi 2 
  02ed:65 12             aTop seconds 
  02ef:32 0188            jmp code_047a 

        code_02f2
  02f2:3c                 dup 
  02f3:35 03              ldi 3 
  02f5:1a                 eq? 
  02f6:31 29              bnt code_0321 
  02f8:35 0b              ldi b 
  02fa:a3 02              sal local2 
  02fc:35 0a              ldi a 
  02fe:a3 03              sal local3 
  0300:7a               push2 
  0301:38 030e          pushi 30e // $30e sel_782
  0304:76               push0 
  0305:40 fd25 04        call proc_002e 4 

  0309:35 0a              ldi a 
  030b:a3 02              sal local2 
  030d:35 0c              ldi c 
  030f:a3 03              sal local3 
  0311:7a               push2 
  0312:38 030e          pushi 30e // $30e sel_782
  0315:76               push0 
  0316:40 fcf2 04        call proc_000c 4 

  031a:35 06              ldi 6 
  031c:65 12             aTop seconds 
  031e:32 0159            jmp code_047a 

        code_0321
  0321:3c                 dup 
  0322:35 04              ldi 4 
  0324:1a                 eq? 
  0325:31 0f              bnt code_0336 
  0327:39 7e            pushi 7e // $7e setCycle
  0329:7a               push2 
  032a:51 1a            class End 
  032c:36                push 
  032d:7c            pushSelf 
  032e:72 01f3          lofsa $0524 // lHead
  0331:4a 08             send 8 

  0333:32 0144            jmp code_047a 

        code_0336
  0336:3c                 dup 
  0337:35 05              ldi 5 
  0339:1a                 eq? 
  033a:31 2a              bnt code_0366 
  033c:39 04            pushi 4 // $4 x
  033e:38 030e          pushi 30e // $30e sel_782
  0341:78               push1 
  0342:39 6c            pushi 6c // $6c addToEnd
  0344:8b 00              lsl local0 
  0346:43 1b 08         callk Display 8 

  0349:39 04            pushi 4 // $4 x
  034b:38 030e          pushi 30e // $30e sel_782
  034e:78               push1 
  034f:39 6c            pushi 6c // $6c addToEnd
  0351:8b 01              lsl local1 
  0353:43 1b 08         callk Display 8 

  0356:7a               push2 
  0357:38 030e          pushi 30e // $30e sel_782
  035a:7a               push2 
  035b:40 fd0f 04        call proc_006e 4 

  035f:35 04              ldi 4 
  0361:65 12             aTop seconds 
  0363:32 0114            jmp code_047a 

        code_0366
  0366:3c                 dup 
  0367:35 06              ldi 6 
  0369:1a                 eq? 
  036a:31 12              bnt code_037e 
  036c:76               push0 
  036d:45 0f 00         callb procedure_000f 0 // cls 

  0370:39 7e            pushi 7e // $7e setCycle
  0372:78               push1 
  0373:51 1b            class Beg 
  0375:36                push 
  0376:72 01ab          lofsa $0524 // lHead
  0379:4a 06             send 6 

  037b:32 00fc            jmp code_047a 

        code_037e
  037e:3c                 dup 
  037f:35 07              ldi 7 
  0381:1a                 eq? 
  0382:31 1d              bnt code_03a1 
  0384:39 7e            pushi 7e // $7e setCycle
  0386:78               push1 
  0387:51 16            class Fwd 
  0389:36                push 
  038a:72 0233          lofsa $05c0 // light1
  038d:4a 06             send 6 

  038f:39 7e            pushi 7e // $7e setCycle
  0391:78               push1 
  0392:51 16            class Fwd 
  0394:36                push 
  0395:72 0276          lofsa $060e // light2
  0398:4a 06             send 6 

  039a:35 06              ldi 6 
  039c:65 10             aTop cycles 
  039e:32 00d9            jmp code_047a 

        code_03a1
  03a1:3c                 dup 
  03a2:35 08              ldi 8 
  03a4:1a                 eq? 
  03a5:31 21              bnt code_03c8 
  03a7:76               push0 
  03a8:45 0f 00         callb procedure_000f 0 // cls 

  03ab:39 7e            pushi 7e // $7e setCycle
  03ad:78               push1 
  03ae:51 1a            class End 
  03b0:36                push 
  03b1:72 020c          lofsa $05c0 // light1
  03b4:4a 06             send 6 

  03b6:39 7e            pushi 7e // $7e setCycle
  03b8:78               push1 
  03b9:51 1a            class End 
  03bb:36                push 
  03bc:72 024f          lofsa $060e // light2
  03bf:4a 06             send 6 

  03c1:35 03              ldi 3 
  03c3:65 12             aTop seconds 
  03c5:32 00b2            jmp code_047a 

        code_03c8
  03c8:3c                 dup 
  03c9:35 09              ldi 9 
  03cb:1a                 eq? 
  03cc:31 1c              bnt code_03ea 
  03ce:39 7e            pushi 7e // $7e setCycle
  03d0:78               push1 
  03d1:51 1a            class End 
  03d3:36                push 
  03d4:72 019b          lofsa $0572 // eHead
  03d7:4a 06             send 6 

  03d9:7a               push2 
  03da:38 030e          pushi 30e // $30e sel_782
  03dd:39 03            pushi 3 // $3 y
  03df:40 fc6c 04        call proc_004f 4 

  03e3:35 05              ldi 5 
  03e5:65 12             aTop seconds 
  03e7:32 0090            jmp code_047a 

        code_03ea
  03ea:3c                 dup 
  03eb:35 0a              ldi a 
  03ed:1a                 eq? 
  03ee:31 1f              bnt code_040f 
  03f0:76               push0 
  03f1:45 0f 00         callb procedure_000f 0 // cls 

  03f4:39 7e            pushi 7e // $7e setCycle
  03f6:78               push1 
  03f7:51 1a            class End 
  03f9:36                push 
  03fa:72 0127          lofsa $0524 // lHead
  03fd:4a 06             send 6 

  03ff:7a               push2 
  0400:38 030e          pushi 30e // $30e sel_782
  0403:39 04            pushi 4 // $4 x
  0405:40 fc65 04        call proc_006e 4 

  0409:35 05              ldi 5 
  040b:65 12             aTop seconds 
  040d:33 6b              jmp code_047a 

        code_040f
  040f:3c                 dup 
  0410:35 0b              ldi b 
  0412:1a                 eq? 
  0413:31 26              bnt code_043b 
  0415:76               push0 
  0416:45 0f 00         callb procedure_000f 0 // cls 

  0419:39 7e            pushi 7e // $7e setCycle
  041b:78               push1 
  041c:51 1b            class Beg 
  041e:36                push 
  041f:72 0102          lofsa $0524 // lHead
  0422:4a 06             send 6 

  0424:39 7e            pushi 7e // $7e setCycle
  0426:78               push1 
  0427:51 1b            class Beg 
  0429:36                push 
  042a:72 0145          lofsa $0572 // eHead
  042d:4a 06             send 6 

  042f:38 0088          pushi 88 // $88 fade
  0432:78               push1 
  0433:7c            pushSelf 
  0434:72 0225          lofsa $065c // Thunder
  0437:4a 06             send 6 

  0439:33 3f              jmp code_047a 

        code_043b
  043b:3c                 dup 
  043c:35 0c              ldi c 
  043e:1a                 eq? 
  043f:31 39              bnt code_047a 
  0441:39 07            pushi 7 // $7 cel
  0443:76               push0 
  0444:72 00dd          lofsa $0524 // lHead
  0447:4a 04             send 4 

  0449:36                push 
  044a:35 00              ldi 0 
  044c:1a                 eq? 
  044d:31 23              bnt code_0472 
  044f:39 07            pushi 7 // $7 cel
  0451:76               push0 
  0452:72 011d          lofsa $0572 // eHead
  0455:4a 04             send 4 

  0457:36                push 
  0458:35 00              ldi 0 
  045a:1a                 eq? 
  045b:31 15              bnt code_0472 
  045d:39 7a            pushi 7a // $7a setScript
  045f:78               push1 
  0460:76               push0 
  0461:63 08             pToa client 
  0463:4a 06             send 6 

  0465:38 00f8          pushi f8 // $f8 newRoom
  0468:78               push1 
  0469:38 030f          pushi 30f // $30f sel_783
  046c:81 02              lag gCurRoom 
  046e:4a 06             send 6 

  0470:33 08              jmp code_047a 

        code_0472
  0472:35 0b              ldi b 
  0474:65 0a             aTop state 
  0476:35 01              ldi 1 
  0478:65 10             aTop cycles 

        code_047a
  047a:3a                toss 
  047b:48                 ret 
    )

)

// 0700
(instance Sign of PV
    (properties
        y $87
        x $91
        z $0
        heading $0
        view $80
        loop $1
        cel $1
        priority $c
        signal $0
    )
)

// 072a
(instance Bird1 of PV
    (properties
        y $67
        x $6f
        z $0
        heading $0
        view $80
        loop $1
        cel $0
        priority $c
        signal $0
    )
)

// 0754
(instance Bird2 of PV
    (properties
        y $67
        x $cf
        z $0
        heading $0
        view $80
        loop $1
        cel $0
        priority $c
        signal $0
    )
)



(procedure proc_000c
  000c:39 0c            pushi c // $c nsRight
  000e:59 01            &rest 1 
  0010:39 69            pushi 69 // $69 last
  0012:39 29            pushi 29 // $29 edit
  0014:39 65            pushi 65 // $65 contains
  0016:78               push1 
  0017:39 64            pushi 64 // $64 allTrue
  0019:8b 02              lsl local2 
  001b:8b 03              lsl local3 
  001d:39 6a            pushi 6a // $6a prev
  001f:38 012c          pushi 12c // $12c surrogate
  0022:39 66            pushi 66 // $66 isEmpty
  0024:39 0f            pushi f // $f lsBottom
  0026:39 6b            pushi 6b // $6b addToFront
  0028:43 1b 18         callk Display 18 

  002b:a3 00              sal local0 
  002d:48                 ret 
)

(procedure proc_002e
  002e:39 0c            pushi c // $c nsRight
  0030:59 01            &rest 1 
  0032:39 69            pushi 69 // $69 last
  0034:39 29            pushi 29 // $29 edit
  0036:39 65            pushi 65 // $65 contains
  0038:78               push1 
  0039:39 64            pushi 64 // $64 allTrue
  003b:8b 02              lsl local2 
  003d:8b 03              lsl local3 
  003f:39 6a            pushi 6a // $6a prev
  0041:38 012c          pushi 12c // $12c surrogate
  0044:39 66            pushi 66 // $66 isEmpty
  0046:76               push0 
  0047:39 6b            pushi 6b // $6b addToFront
  0049:43 1b 18         callk Display 18 

  004c:a3 01              sal local1 
  004e:48                 ret 
)

(procedure proc_004f
  004f:39 0a            pushi a // $a nsLeft
  0051:59 01            &rest 1 
  0053:39 43            pushi 43 // $43 at
  0055:39 0a            pushi a // $a nsLeft
  0057:39 5e            pushi 5e // $5e respondsTo
  0059:39 21            pushi 21 // $21 font
  005b:39 04            pushi 4 // $4 x
  005d:39 46            pushi 46 // $46 width
  005f:38 0091          pushi 91 // $91 isType
  0062:39 1e            pushi 1e // $1e mode
  0064:76               push0 
  0065:39 58            pushi 58 // $58 dispose
  0067:46 00ff 0000 14  calle ff procedure_0000 14 // Print 

  006d:48                 ret 
)

(procedure proc_006e
  006e:39 0a            pushi a // $a nsLeft
  0070:59 01            &rest 1 
  0072:39 43            pushi 43 // $43 at
  0074:38 00a0          pushi a0 // $a0 cycleDone
  0077:39 5e            pushi 5e // $5e respondsTo
  0079:39 21            pushi 21 // $21 font
  007b:39 04            pushi 4 // $4 x
  007d:39 46            pushi 46 // $46 width
  007f:38 008e          pushi 8e // $8e move
  0082:39 1e            pushi 1e // $1e mode
  0084:76               push0 
  0085:39 58            pushi 58 // $58 dispose
  0087:46 00ff 0000 14  calle ff procedure_0000 14 // Print 

  008d:48                 ret 
)

