(script 270)

(string
    string_0d94 "Colonel"
    string_0d9c "Glow"
    string_0da1 "LHead"
    string_0da7 "Lillian"
    string_0daf "argue"
    string_0db5 "cololill"
    string_0dbe "colonel"
    string_0dc6 "colonelActions"
    string_0dd5 "headActions"
    string_0de1 "lillActions"
    string_0ded "lillian"
    string_0df5 "smoke1"
    string_0dfc "smoke2"
    string_0e03 ""
)

(said
    said_0a54 get/butt
    said_0a5a deliver/*
    said_0a60 ecouter/fifi,colonel
    said_0a69 look,bonjour/person
    said_0a72 look/butt
    said_0a78 look/colonel,person
    said_0a81 look/lil
    said_0a87 look/gens
    said_0a8d hold/*]
    said_0a94 bonjour,ask,raconter
    said_0a9d bonjour/colonel,person
    said_0aa6 bonjour/lil
    said_0aac bonjour/gens
)

(synonym
    colonel | henri = fellow | gars | gentleman | guy | homme | man | type
    lil | lill | lillian | lilly = dame | femme | fille | girl | lady | maiden | woman
)

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

// 0ab8
(instance public cololill of Rgn
    (properties
        script $0
        number $0
        timer $0
        keep $0
        initialized $0
    )
    (method (init) // method_008a
  008a:39 57            pushi 57 // $57 init
  008c:76               push0 
  008d:57 36 04         super Rgn 4 

  0090:7a               push2 
  0091:38 0087          pushi 87 // $87 clean
  0094:39 04            pushi 4 // $4 x
  0096:43 00 04         callk Load 4 

  0099:7a               push2 
  009a:38 0080          pushi 80 // $80 timeLeft
  009d:38 038d          pushi 38d // $38d sel_909
  00a0:43 00 04         callk Load 4 

  00a3:39 03            pushi 3 // $3 y
  00a5:38 008f          pushi 8f // $8f moveTo
  00a8:38 00f3          pushi f3 // $f3 close
  00ab:38 012a          pushi 12a // $12a inset
  00ae:45 15 06         callb procedure_0015 6 // LoadMany 

  00b1:34 0200            ldi 200 
  00b4:a0 00d0            sag global208 
  00b7:34 012a            ldi 12a 
  00ba:a0 0182            sag global386 
  00bd:88 0171            lsg global369 
  00c0:35 00              ldi 0 
  00c2:1a                 eq? 
  00c3:31 06              bnt code_00cb 
  00c5:34 0708            ldi 708 
  00c8:a0 0171            sag global369 

        code_00cb
  00cb:39 57            pushi 57 // $57 init
  00cd:76               push0 
  00ce:38 00c6          pushi c6 // $c6 stopUpd
  00d1:76               push0 
  00d2:72 0adb          lofsa $0bb0 // Colonel
  00d5:4a 08             send 8 

  00d7:39 05            pushi 5 // $5 view
  00d9:78               push1 
  00da:38 0130          pushi 130 // $130 loopIndex
  00dd:39 06            pushi 6 // $6 loop
  00df:78               push1 
  00e0:7a               push2 
  00e1:39 07            pushi 7 // $7 cel
  00e3:78               push1 
  00e4:76               push0 
  00e5:39 04            pushi 4 // $4 x
  00e7:78               push1 
  00e8:38 00b6          pushi b6 // $b6 escapeTurn
  00eb:39 03            pushi 3 // $3 y
  00ed:78               push1 
  00ee:39 61            pushi 61 // $61 add
  00f0:39 55            pushi 55 // $55 z
  00f2:78               push1 
  00f3:39 1e            pushi 1e // $1e mode
  00f5:39 57            pushi 57 // $57 init
  00f7:76               push0 
  00f8:38 0089          pushi 89 // $89 hide
  00fb:76               push0 
  00fc:72 0b03          lofsa $0c02 // smoke1
  00ff:4a 2c             send 2c 

  0101:39 05            pushi 5 // $5 view
  0103:78               push1 
  0104:38 0130          pushi 130 // $130 loopIndex
  0107:39 06            pushi 6 // $6 loop
  0109:78               push1 
  010a:39 03            pushi 3 // $3 y
  010c:39 07            pushi 7 // $7 cel
  010e:78               push1 
  010f:76               push0 
  0110:38 00c5          pushi c5 // $c5 posn
  0113:7a               push2 
  0114:39 04            pushi 4 // $4 x
  0116:76               push0 
  0117:72 0a96          lofsa $0bb0 // Colonel
  011a:4a 04             send 4 

  011c:36                push 
  011d:35 0b              ldi b 
  011f:02                 add 
  0120:36                push 
  0121:39 03            pushi 3 // $3 y
  0123:76               push0 
  0124:72 0a89          lofsa $0bb0 // Colonel
  0127:4a 04             send 4 

  0129:36                push 
  012a:35 18              ldi 18 
  012c:04                 sub 
  012d:36                push 
  012e:39 42            pushi 42 // $42 setPri
  0130:78               push1 
  0131:78               push1 
  0132:39 03            pushi 3 // $3 y
  0134:76               push0 
  0135:72 0a78          lofsa $0bb0 // Colonel
  0138:4a 04             send 4 

  013a:36                push 
  013b:43 65 02         callk CoordPri 2 

  013e:36                push 
  013f:39 57            pushi 57 // $57 init
  0141:76               push0 
  0142:38 0089          pushi 89 // $89 hide
  0145:76               push0 
  0146:72 0b07          lofsa $0c50 // smoke2
  0149:4a 28             send 28 

  014b:38 00c5          pushi c5 // $c5 posn
  014e:7a               push2 
  014f:39 04            pushi 4 // $4 x
  0151:76               push0 
  0152:72 0a5b          lofsa $0bb0 // Colonel
  0155:4a 04             send 4 

  0157:36                push 
  0158:35 0a              ldi a 
  015a:02                 add 
  015b:36                push 
  015c:39 03            pushi 3 // $3 y
  015e:76               push0 
  015f:72 0a4e          lofsa $0bb0 // Colonel
  0162:4a 04             send 4 

  0164:36                push 
  0165:39 55            pushi 55 // $55 z
  0167:78               push1 
  0168:39 1d            pushi 1d // $1d back
  016a:39 57            pushi 57 // $57 init
  016c:76               push0 
  016d:38 0089          pushi 89 // $89 hide
  0170:76               push0 
  0171:72 0bca          lofsa $0d3e // Glow
  0174:4a 16             send 16 

  0176:88 0171            lsg global369 
  0179:35 01              ldi 1 
  017b:1a                 eq? 
  017c:31 1a              bnt code_0198 
  017e:89 76              lsg gMustDos 
  0180:35 02              ldi 2 
  0182:12                 and 
  0183:31 13              bnt code_0198 
  0185:34 0200            ldi 200 
  0188:a0 00c3            sag global195 
  018b:39 7a            pushi 7a // $7a setScript
  018d:78               push1 
  018e:74 098f          lofss $0b20 // colonelActions
  0191:72 0a1c          lofsa $0bb0 // Colonel
  0194:4a 06             send 6 

  0196:33 5f              jmp code_01f7 

        code_0198
  0198:7a               push2 
  0199:38 0087          pushi 87 // $87 clean
  019c:39 29            pushi 29 // $29 edit
  019e:43 00 04         callk Load 4 

  01a1:39 03            pushi 3 // $3 y
  01a3:38 0080          pushi 80 // $80 timeLeft
  01a6:38 0282          pushi 282 // $282 sel_642
  01a9:38 0389          pushi 389 // $389 sel_905
  01ac:43 00 06         callk Load 6 

  01af:39 05            pushi 5 // $5 view
  01b1:38 0084          pushi 84 // $84 stop
  01b4:39 1d            pushi 1d // $1d back
  01b6:39 5e            pushi 5e // $5e respondsTo
  01b8:39 5f            pushi 5f // $5f yourself
  01ba:39 60            pushi 60 // $60 size
  01bc:45 15 0a         callb procedure_0015 a // LoadMany 

  01bf:39 03            pushi 3 // $3 y
  01c1:38 008f          pushi 8f // $8f moveTo
  01c4:38 0196          pushi 196 // $196 sel_406
  01c7:38 0174          pushi 174 // $174 sel_372
  01ca:45 15 06         callb procedure_0015 6 // LoadMany 

  01cd:34 0220            ldi 220 
  01d0:a0 00d0            sag global208 
  01d3:34 0174            ldi 174 
  01d6:a0 017e            sag global382 
  01d9:39 57            pushi 57 // $57 init
  01db:76               push0 
  01dc:72 0b11          lofsa $0cf0 // LHead
  01df:4a 04             send 4 

  01e1:39 57            pushi 57 // $57 init
  01e3:76               push0 
  01e4:72 0ab7          lofsa $0c9e // Lillian
  01e7:4a 04             send 4 

  01e9:78               push1 
  01ea:39 26            pushi 26 // $26 mark
  01ec:45 05 02         callb procedure_0005 2 // SetFlag 

  01ef:39 7a            pushi 7a // $7a setScript
  01f1:78               push1 
  01f2:74 08fb          lofss $0af0 // argue
  01f5:54 06             self 6 


        code_01f7
  01f7:48                 ret 
    )

    (method (doit) // method_01f8
  01f8:39 3c            pushi 3c // $3c doit
  01fa:76               push0 
  01fb:57 36 04         super Rgn 4 

  01fe:48                 ret 
    )

    (method (dispose) // method_01ff
  01ff:39 58            pushi 58 // $58 dispose
  0201:76               push0 
  0202:57 36 04         super Rgn 4 

  0205:48                 ret 
    )

    (method (handleEvent) // method_0206
  0206:39 6f            pushi 6f // $6f handleEvent
  0208:78               push1 
  0209:8f 01              lsp param1 
  020b:57 36 06         super Rgn 6 

  020e:39 4c            pushi 4c // $4c claimed
  0210:76               push0 
  0211:87 01              lap param1 
  0213:4a 04             send 4 

  0215:31 01              bnt code_0218 
  0217:48                 ret 

        code_0218
  0218:39 22            pushi 22 // $22 type
  021a:76               push0 
  021b:87 01              lap param1 
  021d:4a 04             send 4 

  021f:36                push 
  0220:34 0080            ldi 80 
  0223:1a                 eq? 
  0224:30 00ad            bnt code_02d4 
  0227:78               push1 
  0228:74 0835          lofss $0a60 // ecouter/fifi,colonel
  022b:43 25 02         callk Said 2 

  022e:31 26              bnt code_0256 
  0230:39 65            pushi 65 // $65 contains
  0232:78               push1 
  0233:74 0a68          lofss $0c9e // Lillian
  0236:81 05              lag gCast 
  0238:4a 06             send 6 

  023a:31 0d              bnt code_0249 
  023c:7a               push2 
  023d:38 010e          pushi 10e // $10e overlay
  0240:76               push0 
  0241:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0247:33 0b              jmp code_0254 

        code_0249
  0249:7a               push2 
  024a:38 010e          pushi 10e // $10e overlay
  024d:78               push1 
  024e:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0254
  0254:33 7e              jmp code_02d4 

        code_0256
  0256:39 65            pushi 65 // $65 contains
  0258:78               push1 
  0259:74 0a42          lofss $0c9e // Lillian
  025c:81 05              lag gCast 
  025e:4a 06             send 6 

  0260:31 02              bnt code_0264 
  0262:33 70              jmp code_02d4 

        code_0264
  0264:78               push1 
  0265:74 082c          lofss $0a94 // bonjour,ask,raconter
  0268:43 25 02         callk Said 2 

  026b:31 25              bnt code_0292 
  026d:83 04              lal local4 
  026f:31 0d              bnt code_027e 
  0271:7a               push2 
  0272:38 010e          pushi 10e // $10e overlay
  0275:7a               push2 
  0276:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  027c:33 12              jmp code_0290 

        code_027e
  027e:35 0a              ldi a 
  0280:a0 00d5            sag global213 
  0283:39 03            pushi 3 // $3 y
  0285:78               push1 
  0286:38 010e          pushi 10e // $10e overlay
  0289:39 03            pushi 3 // $3 y
  028b:45 01 06         callb procedure_0001 6 // Say 

  028e:c3 04              +al local4 

        code_0290
  0290:33 42              jmp code_02d4 

        code_0292
  0292:78               push1 
  0293:74 07c4          lofss $0a5a // deliver/*
  0296:43 25 02         callk Said 2 

  0299:31 19              bnt code_02b4 
  029b:80 00e0            lag global224 
  029e:31 0e              bnt code_02ae 
  02a0:7a               push2 
  02a1:38 010e          pushi 10e // $10e overlay
  02a4:39 04            pushi 4 // $4 x
  02a6:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  02ac:33 04              jmp code_02b2 

        code_02ae
  02ae:76               push0 
  02af:45 0d 00         callb procedure_000d 0 // DontHave 


        code_02b2
  02b2:33 20              jmp code_02d4 

        code_02b4
  02b4:78               push1 
  02b5:74 07d5          lofss $0a8d // hold/*]
  02b8:43 25 02         callk Said 2 

  02bb:31 17              bnt code_02d4 
  02bd:80 00e0            lag global224 
  02c0:31 0e              bnt code_02d0 
  02c2:7a               push2 
  02c3:38 010e          pushi 10e // $10e overlay
  02c6:39 05            pushi 5 // $5 view
  02c8:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  02ce:33 04              jmp code_02d4 

        code_02d0
  02d0:76               push0 
  02d1:45 0d 00         callb procedure_000d 0 // DontHave 


        code_02d4
  02d4:48                 ret 
    )

)

// 0aea
(instance argue 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_02d5
  02d5:87 01              lap param1 
  02d7:65 0a             aTop state 
  02d9:36                push 
  02da:3c                 dup 
  02db:35 00              ldi 0 
  02dd:1a                 eq? 
  02de:31 41              bnt code_0321 
  02e0:80 00d8            lag global216 
  02e3:18                 not 
  02e4:31 06              bnt code_02ec 
  02e6:35 ff              ldi ff 
  02e8:65 0a             aTop state 
  02ea:33 2e              jmp code_031a 

        code_02ec
  02ec:89 76              lsg gMustDos 
  02ee:35 02              ldi 2 
  02f0:12                 and 
  02f1:18                 not 
  02f2:31 1b              bnt code_030f 
  02f4:89 76              lsg gMustDos 
  02f6:35 02              ldi 2 
  02f8:14                  or 
  02f9:a1 76              sag gMustDos 
  02fb:39 7a            pushi 7a // $7a setScript
  02fd:78               push1 
  02fe:7a               push2 
  02ff:38 0196          pushi 196 // $196 sel_406
  0302:76               push0 
  0303:43 02 04         callk ScriptID 4 

  0306:36                push 
  0307:54 06             self 6 

  0309:35 ff              ldi ff 
  030b:65 0a             aTop state 
  030d:33 0b              jmp code_031a 

        code_030f
  030f:39 76            pushi 76 // $76 script
  0311:76               push0 
  0312:54 04             self 4 

  0314:31 04              bnt code_031a 
  0316:35 ff              ldi ff 
  0318:65 0a             aTop state 

        code_031a
  031a:35 01              ldi 1 
  031c:65 10             aTop cycles 
  031e:32 023e            jmp code_055f 

        code_0321
  0321:3c                 dup 
  0322:35 01              ldi 1 
  0324:1a                 eq? 
  0325:30 0154            bnt code_047c 
  0328:38 00e2          pushi e2 // $e2 canInput
  032b:78               push1 
  032c:76               push0 
  032d:51 2b            class User 
  032f:4a 06             send 6 

  0331:88 00b3            lsg global179 
  0334:34 7fff            ldi 7fff 
  0337:12                 and 
  0338:a3 05              sal local5 
  033a:36                push 
  033b:80 00b3            lag global179 
  033e:1a                 eq? 
  033f:31 15              bnt code_0356 
  0341:88 00b3            lsg global179 
  0344:35 0a              ldi a 
  0346:22                 lt? 
  0347:31 05              bnt code_034e 
  0349:c0 00b3            +ag global179 
  034c:33 06              jmp code_0354 

        code_034e
  034e:34 8001            ldi 8001 
  0351:a0 00b3            sag global179 

        code_0354
  0354:33 55              jmp code_03ab 

        code_0356
  0356:8b 05              lsl local5 
  0358:3c                 dup 
  0359:35 01              ldi 1 
  035b:1a                 eq? 
  035c:31 08              bnt code_0366 
  035e:34 8002            ldi 8002 
  0361:a0 00b3            sag global179 
  0364:33 44              jmp code_03aa 

        code_0366
  0366:3c                 dup 
  0367:35 02              ldi 2 
  0369:1a                 eq? 
  036a:31 08              bnt code_0374 
  036c:34 8005            ldi 8005 
  036f:a0 00b3            sag global179 
  0372:33 36              jmp code_03aa 

        code_0374
  0374:3c                 dup 
  0375:35 05              ldi 5 
  0377:1a                 eq? 
  0378:31 08              bnt code_0382 
  037a:34 8006            ldi 8006 
  037d:a0 00b3            sag global179 
  0380:33 28              jmp code_03aa 

        code_0382
  0382:3c                 dup 
  0383:35 06              ldi 6 
  0385:1a                 eq? 
  0386:31 08              bnt code_0390 
  0388:34 8008            ldi 8008 
  038b:a0 00b3            sag global179 
  038e:33 1a              jmp code_03aa 

        code_0390
  0390:3c                 dup 
  0391:35 08              ldi 8 
  0393:1a                 eq? 
  0394:31 08              bnt code_039e 
  0396:34 8010            ldi 8010 
  0399:a0 00b3            sag global179 
  039c:33 0c              jmp code_03aa 

        code_039e
  039e:3c                 dup 
  039f:35 0a              ldi a 
  03a1:1a                 eq? 
  03a2:31 06              bnt code_03aa 
  03a4:34 8001            ldi 8001 
  03a7:a0 00b3            sag global179 

        code_03aa
  03aa:3a                toss 

        code_03ab
  03ab:8b 05              lsl local5 
  03ad:3c                 dup 
  03ae:35 00              ldi 0 
  03b0:1a                 eq? 
  03b1:31 0d              bnt code_03c0 
  03b3:7a               push2 
  03b4:38 010e          pushi 10e // $10e overlay
  03b7:39 06            pushi 6 // $6 loop
  03b9:40 fc8d 04        call proc_004a 4 

  03bd:32 00b4            jmp code_0474 

        code_03c0
  03c0:3c                 dup 
  03c1:35 01              ldi 1 
  03c3:1a                 eq? 
  03c4:31 0d              bnt code_03d3 
  03c6:7a               push2 
  03c7:38 010e          pushi 10e // $10e overlay
  03ca:39 07            pushi 7 // $7 cel
  03cc:40 fc7a 04        call proc_004a 4 

  03d0:32 00a1            jmp code_0474 

        code_03d3
  03d3:3c                 dup 
  03d4:35 02              ldi 2 
  03d6:1a                 eq? 
  03d7:31 0d              bnt code_03e6 
  03d9:7a               push2 
  03da:38 010e          pushi 10e // $10e overlay
  03dd:39 08            pushi 8 // $8 underBits
  03df:40 fc37 04        call proc_001a 4 

  03e3:32 008e            jmp code_0474 

        code_03e6
  03e6:3c                 dup 
  03e7:35 03              ldi 3 
  03e9:1a                 eq? 
  03ea:31 0c              bnt code_03f8 
  03ec:7a               push2 
  03ed:38 010e          pushi 10e // $10e overlay
  03f0:39 09            pushi 9 // $9 nsTop
  03f2:40 fc24 04        call proc_001a 4 

  03f6:33 7c              jmp code_0474 

        code_03f8
  03f8:3c                 dup 
  03f9:35 04              ldi 4 
  03fb:1a                 eq? 
  03fc:31 0c              bnt code_040a 
  03fe:7a               push2 
  03ff:38 010e          pushi 10e // $10e overlay
  0402:39 0a            pushi a // $a nsLeft
  0404:40 fc42 04        call proc_004a 4 

  0408:33 6a              jmp code_0474 

        code_040a
  040a:3c                 dup 
  040b:35 05              ldi 5 
  040d:1a                 eq? 
  040e:31 0c              bnt code_041c 
  0410:7a               push2 
  0411:38 010e          pushi 10e // $10e overlay
  0414:39 0b            pushi b // $b nsBottom
  0416:40 fc00 04        call proc_001a 4 

  041a:33 58              jmp code_0474 

        code_041c
  041c:3c                 dup 
  041d:35 06              ldi 6 
  041f:1a                 eq? 
  0420:31 0c              bnt code_042e 
  0422:7a               push2 
  0423:38 010e          pushi 10e // $10e overlay
  0426:39 0c            pushi c // $c nsRight
  0428:40 fc1e 04        call proc_004a 4 

  042c:33 46              jmp code_0474 

        code_042e
  042e:3c                 dup 
  042f:35 07              ldi 7 
  0431:1a                 eq? 
  0432:31 0c              bnt code_0440 
  0434:7a               push2 
  0435:38 010e          pushi 10e // $10e overlay
  0438:39 0d            pushi d // $d lsTop
  043a:40 fbdc 04        call proc_001a 4 

  043e:33 34              jmp code_0474 

        code_0440
  0440:3c                 dup 
  0441:35 08              ldi 8 
  0443:1a                 eq? 
  0444:31 0c              bnt code_0452 
  0446:7a               push2 
  0447:38 010e          pushi 10e // $10e overlay
  044a:39 0e            pushi e // $e lsLeft
  044c:40 fbca 04        call proc_001a 4 

  0450:33 22              jmp code_0474 

        code_0452
  0452:3c                 dup 
  0453:35 09              ldi 9 
  0455:1a                 eq? 
  0456:31 0c              bnt code_0464 
  0458:7a               push2 
  0459:38 010e          pushi 10e // $10e overlay
  045c:39 0f            pushi f // $f lsBottom
  045e:40 fbe8 04        call proc_004a 4 

  0462:33 10              jmp code_0474 

        code_0464
  0464:3c                 dup 
  0465:35 0a              ldi a 
  0467:1a                 eq? 
  0468:31 0a              bnt code_0474 
  046a:7a               push2 
  046b:38 010e          pushi 10e // $10e overlay
  046e:39 10            pushi 10 // $10 lsRight
  0470:40 fbd6 04        call proc_004a 4 


        code_0474
  0474:3a                toss 
  0475:35 05              ldi 5 
  0477:65 12             aTop seconds 
  0479:32 00e3            jmp code_055f 

        code_047c
  047c:3c                 dup 
  047d:35 02              ldi 2 
  047f:1a                 eq? 
  0480:30 0098            bnt code_051b 
  0483:39 7e            pushi 7e // $7e setCycle
  0485:78               push1 
  0486:76               push0 
  0487:72 0866          lofsa $0cf0 // LHead
  048a:4a 06             send 6 

  048c:76               push0 
  048d:45 0f 00         callb procedure_000f 0 // cls 

  0490:39 7e            pushi 7e // $7e setCycle
  0492:78               push1 
  0493:76               push0 
  0494:72 0807          lofsa $0c9e // Lillian
  0497:4a 06             send 6 

  0499:39 7e            pushi 7e // $7e setCycle
  049b:78               push1 
  049c:76               push0 
  049d:72 0710          lofsa $0bb0 // Colonel
  04a0:4a 06             send 6 

  04a2:35 03              ldi 3 
  04a4:65 12             aTop seconds 
  04a6:8b 05              lsl local5 
  04a8:3c                 dup 
  04a9:35 00              ldi 0 
  04ab:1a                 eq? 
  04ac:31 0c              bnt code_04ba 
  04ae:7a               push2 
  04af:38 010e          pushi 10e // $10e overlay
  04b2:39 11            pushi 11 // $11 signal
  04b4:40 fb92 04        call proc_004a 4 

  04b8:33 5e              jmp code_0518 

        code_04ba
  04ba:3c                 dup 
  04bb:35 05              ldi 5 
  04bd:1a                 eq? 
  04be:31 0c              bnt code_04cc 
  04c0:7a               push2 
  04c1:38 010e          pushi 10e // $10e overlay
  04c4:39 12            pushi 12 // $12 illegalBits
  04c6:40 fb50 04        call proc_001a 4 

  04ca:33 4c              jmp code_0518 

        code_04cc
  04cc:3c                 dup 
  04cd:35 06              ldi 6 
  04cf:1a                 eq? 
  04d0:31 0c              bnt code_04de 
  04d2:7a               push2 
  04d3:38 010e          pushi 10e // $10e overlay
  04d6:39 13            pushi 13 // $13 brTop
  04d8:40 fb3e 04        call proc_001a 4 

  04dc:33 3a              jmp code_0518 

        code_04de
  04de:3c                 dup 
  04df:35 08              ldi 8 
  04e1:1a                 eq? 
  04e2:31 0c              bnt code_04f0 
  04e4:7a               push2 
  04e5:38 010e          pushi 10e // $10e overlay
  04e8:39 14            pushi 14 // $14 brLeft
  04ea:40 fb5c 04        call proc_004a 4 

  04ee:33 28              jmp code_0518 

        code_04f0
  04f0:3c                 dup 
  04f1:35 09              ldi 9 
  04f3:1a                 eq? 
  04f4:31 0c              bnt code_0502 
  04f6:7a               push2 
  04f7:38 010e          pushi 10e // $10e overlay
  04fa:39 15            pushi 15 // $15 brBottom
  04fc:40 fb1a 04        call proc_001a 4 

  0500:33 16              jmp code_0518 

        code_0502
  0502:3c                 dup 
  0503:35 0a              ldi a 
  0505:1a                 eq? 
  0506:31 0c              bnt code_0514 
  0508:7a               push2 
  0509:38 010e          pushi 10e // $10e overlay
  050c:39 16            pushi 16 // $16 brRight
  050e:40 fb08 04        call proc_001a 4 

  0512:33 04              jmp code_0518 

        code_0514
  0514:35 01              ldi 1 
  0516:65 12             aTop seconds 

        code_0518
  0518:3a                toss 
  0519:33 44              jmp code_055f 

        code_051b
  051b:3c                 dup 
  051c:35 03              ldi 3 
  051e:1a                 eq? 
  051f:31 3e              bnt code_055f 
  0521:76               push0 
  0522:45 0f 00         callb procedure_000f 0 // cls 

  0525:39 7e            pushi 7e // $7e setCycle
  0527:78               push1 
  0528:76               push0 
  0529:39 7a            pushi 7a // $7a setScript
  052b:78               push1 
  052c:74 0651          lofss $0b80 // headActions
  052f:72 07be          lofsa $0cf0 // LHead
  0532:4a 0c             send c 

  0534:39 7e            pushi 7e // $7e setCycle
  0536:78               push1 
  0537:76               push0 
  0538:39 7a            pushi 7a // $7a setScript
  053a:78               push1 
  053b:74 0612          lofss $0b50 // lillActions
  053e:72 075d          lofsa $0c9e // Lillian
  0541:4a 0c             send c 

  0543:39 7a            pushi 7a // $7a setScript
  0545:78               push1 
  0546:74 05d7          lofss $0b20 // colonelActions
  0549:72 0664          lofsa $0bb0 // Colonel
  054c:4a 06             send 6 

  054e:38 00e2          pushi e2 // $e2 canInput
  0551:78               push1 
  0552:78               push1 
  0553:51 2b            class User 
  0555:4a 06             send 6 

  0557:39 7a            pushi 7a // $7a setScript
  0559:78               push1 
  055a:76               push0 
  055b:63 08             pToa client 
  055d:4a 06             send 6 


        code_055f
  055f:3a                toss 
  0560:48                 ret 
    )

)

// 0b1a
(instance colonelActions 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_0561
  0561:87 01              lap param1 
  0563:65 0a             aTop state 
  0565:36                push 
  0566:3c                 dup 
  0567:35 00              ldi 0 
  0569:1a                 eq? 
  056a:31 2f              bnt code_059b 
  056c:39 07            pushi 7 // $7 cel
  056e:78               push1 
  056f:76               push0 
  0570:38 0089          pushi 89 // $89 hide
  0573:76               push0 
  0574:72 06d9          lofsa $0c50 // smoke2
  0577:4a 0a             send a 

  0579:39 05            pushi 5 // $5 view
  057b:78               push1 
  057c:38 0130          pushi 130 // $130 loopIndex
  057f:39 06            pushi 6 // $6 loop
  0581:78               push1 
  0582:76               push0 
  0583:38 00a4          pushi a4 // $a4 cycleSpeed
  0586:78               push1 
  0587:78               push1 
  0588:39 07            pushi 7 // $7 cel
  058a:78               push1 
  058b:76               push0 
  058c:39 7e            pushi 7e // $7e setCycle
  058e:7a               push2 
  058f:51 1a            class End 
  0591:36                push 
  0592:7c            pushSelf 
  0593:72 061a          lofsa $0bb0 // Colonel
  0596:4a 20             send 20 

  0598:32 00b5            jmp code_0650 

        code_059b
  059b:3c                 dup 
  059c:35 01              ldi 1 
  059e:1a                 eq? 
  059f:31 1e              bnt code_05bf 
  05a1:38 00ca          pushi ca // $ca show
  05a4:76               push0 
  05a5:39 06            pushi 6 // $6 loop
  05a7:78               push1 
  05a8:78               push1 
  05a9:39 07            pushi 7 // $7 cel
  05ab:78               push1 
  05ac:76               push0 
  05ad:39 7e            pushi 7e // $7e setCycle
  05af:78               push1 
  05b0:51 16            class Fwd 
  05b2:36                push 
  05b3:72 0788          lofsa $0d3e // Glow
  05b6:4a 16             send 16 

  05b8:35 12              ldi 12 
  05ba:65 10             aTop cycles 
  05bc:32 0091            jmp code_0650 

        code_05bf
  05bf:3c                 dup 
  05c0:35 02              ldi 2 
  05c2:1a                 eq? 
  05c3:31 2a              bnt code_05ef 
  05c5:38 0089          pushi 89 // $89 hide
  05c8:76               push0 
  05c9:72 0772          lofsa $0d3e // Glow
  05cc:4a 04             send 4 

  05ce:39 06            pushi 6 // $6 loop
  05d0:78               push1 
  05d1:76               push0 
  05d2:39 07            pushi 7 // $7 cel
  05d4:78               push1 
  05d5:78               push1 
  05d6:74 05d7          lofss $0bb0 // Colonel
  05d9:43 0e 02         callk NumCels 2 

  05dc:36                push 
  05dd:35 01              ldi 1 
  05df:04                 sub 
  05e0:36                push 
  05e1:39 7e            pushi 7e // $7e setCycle
  05e3:7a               push2 
  05e4:51 1b            class Beg 
  05e6:36                push 
  05e7:7c            pushSelf 
  05e8:72 05c5          lofsa $0bb0 // Colonel
  05eb:4a 14             send 14 

  05ed:33 61              jmp code_0650 

        code_05ef
  05ef:3c                 dup 
  05f0:35 03              ldi 3 
  05f2:1a                 eq? 
  05f3:31 21              bnt code_0616 
  05f5:39 7e            pushi 7e // $7e setCycle
  05f7:78               push1 
  05f8:51 16            class Fwd 
  05fa:36                push 
  05fb:38 00ca          pushi ca // $ca show
  05fe:76               push0 
  05ff:72 064e          lofsa $0c50 // smoke2
  0602:4a 0a             send a 

  0604:38 00ca          pushi ca // $ca show
  0607:76               push0 
  0608:39 7e            pushi 7e // $7e setCycle
  060a:7a               push2 
  060b:51 1a            class End 
  060d:36                push 
  060e:7c            pushSelf 
  060f:72 05f0          lofsa $0c02 // smoke1
  0612:4a 0c             send c 

  0614:33 3a              jmp code_0650 

        code_0616
  0616:3c                 dup 
  0617:35 04              ldi 4 
  0619:1a                 eq? 
  061a:31 13              bnt code_062f 
  061c:39 07            pushi 7 // $7 cel
  061e:78               push1 
  061f:76               push0 
  0620:38 0089          pushi 89 // $89 hide
  0623:76               push0 
  0624:72 05db          lofsa $0c02 // smoke1
  0627:4a 0a             send a 

  0629:35 01              ldi 1 
  062b:65 10             aTop cycles 
  062d:33 21              jmp code_0650 

        code_062f
  062f:3c                 dup 
  0630:35 05              ldi 5 
  0632:1a                 eq? 
  0633:31 1b              bnt code_0650 
  0635:7a               push2 
  0636:78               push1 
  0637:39 64            pushi 64 // $64 allTrue
  0639:43 40 04         callk Random 4 

  063c:36                push 
  063d:35 1e              ldi 1e 
  063f:22                 lt? 
  0640:31 06              bnt code_0648 
  0642:35 ff              ldi ff 
  0644:65 0a             aTop state 
  0646:33 04              jmp code_064c 

        code_0648
  0648:35 04              ldi 4 
  064a:65 0a             aTop state 

        code_064c
  064c:35 05              ldi 5 
  064e:65 12             aTop seconds 

        code_0650
  0650:3a                toss 
  0651:48                 ret 
    )

)

// 0b4a
(instance lillActions 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_0652
  0652:87 01              lap param1 
  0654:65 0a             aTop state 
  0656:36                push 
  0657:3c                 dup 
  0658:35 00              ldi 0 
  065a:1a                 eq? 
  065b:31 2c              bnt code_0689 
  065d:39 07            pushi 7 // $7 cel
  065f:76               push0 
  0660:72 063b          lofsa $0c9e // Lillian
  0663:4a 04             send 4 

  0665:36                push 
  0666:35 00              ldi 0 
  0668:1c                 ne? 
  0669:31 17              bnt code_0682 
  066b:39 06            pushi 6 // $6 loop
  066d:78               push1 
  066e:76               push0 
  066f:39 07            pushi 7 // $7 cel
  0671:78               push1 
  0672:39 03            pushi 3 // $3 y
  0674:39 7e            pushi 7e // $7e setCycle
  0676:7a               push2 
  0677:51 1b            class Beg 
  0679:36                push 
  067a:7c            pushSelf 
  067b:72 0620          lofsa $0c9e // Lillian
  067e:4a 14             send 14 

  0680:33 04              jmp code_0686 

        code_0682
  0682:35 01              ldi 1 
  0684:65 10             aTop cycles 

        code_0686
  0686:32 00c7            jmp code_0750 

        code_0689
  0689:3c                 dup 
  068a:35 01              ldi 1 
  068c:1a                 eq? 
  068d:31 1a              bnt code_06a9 
  068f:39 06            pushi 6 // $6 loop
  0691:78               push1 
  0692:76               push0 
  0693:39 07            pushi 7 // $7 cel
  0695:78               push1 
  0696:76               push0 
  0697:72 0604          lofsa $0c9e // Lillian
  069a:4a 0c             send c 

  069c:7a               push2 
  069d:39 06            pushi 6 // $6 loop
  069f:39 0f            pushi f // $f lsBottom
  06a1:43 40 04         callk Random 4 

  06a4:65 12             aTop seconds 
  06a6:32 00a7            jmp code_0750 

        code_06a9
  06a9:3c                 dup 
  06aa:35 02              ldi 2 
  06ac:1a                 eq? 
  06ad:31 20              bnt code_06cf 
  06af:39 06            pushi 6 // $6 loop
  06b1:78               push1 
  06b2:7a               push2 
  06b3:39 07            pushi 7 // $7 cel
  06b5:78               push1 
  06b6:76               push0 
  06b7:39 7e            pushi 7e // $7e setCycle
  06b9:78               push1 
  06ba:51 1a            class End 
  06bc:36                push 
  06bd:72 05de          lofsa $0c9e // Lillian
  06c0:4a 12             send 12 

  06c2:7a               push2 
  06c3:39 06            pushi 6 // $6 loop
  06c5:39 0f            pushi f // $f lsBottom
  06c7:43 40 04         callk Random 4 

  06ca:65 12             aTop seconds 
  06cc:32 0081            jmp code_0750 

        code_06cf
  06cf:3c                 dup 
  06d0:35 03              ldi 3 
  06d2:1a                 eq? 
  06d3:31 3d              bnt code_0712 
  06d5:39 06            pushi 6 // $6 loop
  06d7:76               push0 
  06d8:72 0615          lofsa $0cf0 // LHead
  06db:4a 04             send 4 

  06dd:36                push 
  06de:35 05              ldi 5 
  06e0:1a                 eq? 
  06e1:31 25              bnt code_0708 
  06e3:39 07            pushi 7 // $7 cel
  06e5:76               push0 
  06e6:72 0607          lofsa $0cf0 // LHead
  06e9:4a 04             send 4 

  06eb:36                push 
  06ec:35 02              ldi 2 
  06ee:1a                 eq? 
  06ef:31 17              bnt code_0708 
  06f1:39 06            pushi 6 // $6 loop
  06f3:78               push1 
  06f4:39 03            pushi 3 // $3 y
  06f6:39 07            pushi 7 // $7 cel
  06f8:78               push1 
  06f9:76               push0 
  06fa:39 7e            pushi 7e // $7e setCycle
  06fc:7a               push2 
  06fd:51 1a            class End 
  06ff:36                push 
  0700:7c            pushSelf 
  0701:72 059a          lofsa $0c9e // Lillian
  0704:4a 14             send 14 

  0706:33 08              jmp code_0710 

        code_0708
  0708:35 00              ldi 0 
  070a:65 0a             aTop state 
  070c:35 01              ldi 1 
  070e:65 10             aTop cycles 

        code_0710
  0710:33 3e              jmp code_0750 

        code_0712
  0712:3c                 dup 
  0713:35 04              ldi 4 
  0715:1a                 eq? 
  0716:31 1a              bnt code_0732 
  0718:39 06            pushi 6 // $6 loop
  071a:78               push1 
  071b:39 04            pushi 4 // $4 x
  071d:39 07            pushi 7 // $7 cel
  071f:78               push1 
  0720:76               push0 
  0721:39 7e            pushi 7e // $7e setCycle
  0723:78               push1 
  0724:51 16            class Fwd 
  0726:36                push 
  0727:72 0574          lofsa $0c9e // Lillian
  072a:4a 12             send 12 

  072c:35 03              ldi 3 
  072e:65 12             aTop seconds 
  0730:33 1e              jmp code_0750 

        code_0732
  0732:3c                 dup 
  0733:35 05              ldi 5 
  0735:1a                 eq? 
  0736:31 18              bnt code_0750 
  0738:39 06            pushi 6 // $6 loop
  073a:78               push1 
  073b:7a               push2 
  073c:39 07            pushi 7 // $7 cel
  073e:78               push1 
  073f:7a               push2 
  0740:39 7e            pushi 7e // $7e setCycle
  0742:7a               push2 
  0743:51 1b            class Beg 
  0745:36                push 
  0746:7c            pushSelf 
  0747:72 0554          lofsa $0c9e // Lillian
  074a:4a 14             send 14 

  074c:35 00              ldi 0 
  074e:65 0a             aTop state 

        code_0750
  0750:3a                toss 
  0751:48                 ret 
    )

)

// 0b7a
(instance headActions 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_0752
  0752:87 01              lap param1 
  0754:65 0a             aTop state 
  0756:36                push 
  0757:3c                 dup 
  0758:35 00              ldi 0 
  075a:1a                 eq? 
  075b:31 0d              bnt code_076a 
  075d:7a               push2 
  075e:39 0c            pushi c // $c nsRight
  0760:39 12            pushi 12 // $12 illegalBits
  0762:43 40 04         callk Random 4 

  0765:65 12             aTop seconds 
  0767:32 0087            jmp code_07f1 

        code_076a
  076a:3c                 dup 
  076b:35 01              ldi 1 
  076d:1a                 eq? 
  076e:31 20              bnt code_0790 
  0770:39 06            pushi 6 // $6 loop
  0772:78               push1 
  0773:39 05            pushi 5 // $5 view
  0775:39 07            pushi 7 // $7 cel
  0777:78               push1 
  0778:76               push0 
  0779:39 7e            pushi 7e // $7e setCycle
  077b:78               push1 
  077c:51 1a            class End 
  077e:36                push 
  077f:72 056e          lofsa $0cf0 // LHead
  0782:4a 12             send 12 

  0784:7a               push2 
  0785:39 0c            pushi c // $c nsRight
  0787:39 12            pushi 12 // $12 illegalBits
  0789:43 40 04         callk Random 4 

  078c:65 12             aTop seconds 
  078e:33 61              jmp code_07f1 

        code_0790
  0790:3c                 dup 
  0791:35 02              ldi 2 
  0793:1a                 eq? 
  0794:31 17              bnt code_07ad 
  0796:39 7e            pushi 7e // $7e setCycle
  0798:78               push1 
  0799:51 1b            class Beg 
  079b:36                push 
  079c:72 0551          lofsa $0cf0 // LHead
  079f:4a 06             send 6 

  07a1:7a               push2 
  07a2:39 0c            pushi c // $c nsRight
  07a4:39 12            pushi 12 // $12 illegalBits
  07a6:43 40 04         callk Random 4 

  07a9:65 12             aTop seconds 
  07ab:33 44              jmp code_07f1 

        code_07ad
  07ad:3c                 dup 
  07ae:35 03              ldi 3 
  07b0:1a                 eq? 
  07b1:31 1f              bnt code_07d2 
  07b3:39 06            pushi 6 // $6 loop
  07b5:78               push1 
  07b6:39 06            pushi 6 // $6 loop
  07b8:39 07            pushi 7 // $7 cel
  07ba:78               push1 
  07bb:76               push0 
  07bc:39 7e            pushi 7e // $7e setCycle
  07be:78               push1 
  07bf:51 1a            class End 
  07c1:36                push 
  07c2:72 052b          lofsa $0cf0 // LHead
  07c5:4a 12             send 12 

  07c7:7a               push2 
  07c8:7a               push2 
  07c9:39 08            pushi 8 // $8 underBits
  07cb:43 40 04         callk Random 4 

  07ce:65 12             aTop seconds 
  07d0:33 1f              jmp code_07f1 

        code_07d2
  07d2:3c                 dup 
  07d3:35 04              ldi 4 
  07d5:1a                 eq? 
  07d6:31 19              bnt code_07f1 
  07d8:39 7e            pushi 7e // $7e setCycle
  07da:78               push1 
  07db:51 1b            class Beg 
  07dd:36                push 
  07de:72 050f          lofsa $0cf0 // LHead
  07e1:4a 06             send 6 

  07e3:7a               push2 
  07e4:39 0c            pushi c // $c nsRight
  07e6:39 12            pushi 12 // $12 illegalBits
  07e8:43 40 04         callk Random 4 

  07eb:65 12             aTop seconds 
  07ed:35 00              ldi 0 
  07ef:65 0a             aTop state 

        code_07f1
  07f1:3a                toss 
  07f2:48                 ret 
    )

)

// 0baa
(instance Colonel of Prop
    (properties
        y $61
        x $b0
        z $0
        heading $0
        yStep $2
        view $138
        loop $0
        cel $0
        priority $0
        underBits $0
        signal $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
        lsTop $0
        lsLeft $0
        lsBottom $0
        lsRight $0
        brTop $0
        brLeft $0
        brBottom $0
        brRight $0
        cycleSpeed $0
        script $0
        cycler $0
        timer $0
    )
    (method (handleEvent) // method_07f3
  07f3:38 00ae          pushi ae // $ae distanceTo
  07f6:78               push1 
  07f7:74 03b6          lofss $0bb0 // Colonel
  07fa:81 00              lag gEgo 
  07fc:4a 06             send 6 

  07fe:36                push 
  07ff:38 00ae          pushi ae // $ae distanceTo
  0802:78               push1 
  0803:74 0498          lofss $0c9e // Lillian
  0806:81 00              lag gEgo 
  0808:4a 06             send 6 

  080a:22                 lt? 
  080b:31 08              bnt code_0815 
  080d:34 0200            ldi 200 
  0810:a0 00d6            sag global214 
  0813:33 05              jmp code_081a 

        code_0815
  0815:35 20              ldi 20 
  0817:a0 00d6            sag global214 

        code_081a
  081a:39 65            pushi 65 // $65 contains
  081c:78               push1 
  081d:74 047e          lofss $0c9e // Lillian
  0820:81 05              lag gCast 
  0822:4a 06             send 6 

  0824:31 43              bnt code_0869 
  0826:78               push1 
  0827:74 025d          lofss $0a87 // look/gens
  082a:43 25 02         callk Said 2 

  082d:31 0e              bnt code_083d 
  082f:7a               push2 
  0830:38 010e          pushi 10e // $10e overlay
  0833:39 17            pushi 17 // $17 name
  0835:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  083b:33 2c              jmp code_0869 

        code_083d
  083d:78               push1 
  083e:74 0228          lofss $0a69 // look,bonjour/person
  0841:43 25 02         callk Said 2 

  0844:31 0e              bnt code_0854 
  0846:7a               push2 
  0847:38 010e          pushi 10e // $10e overlay
  084a:39 18            pushi 18 // $18 key
  084c:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0852:33 15              jmp code_0869 

        code_0854
  0854:78               push1 
  0855:74 0254          lofss $0aac // bonjour/gens
  0858:43 25 02         callk Said 2 

  085b:31 0c              bnt code_0869 
  085d:7a               push2 
  085e:38 010e          pushi 10e // $10e overlay
  0861:39 19            pushi 19 // $19 time
  0863:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0869
  0869:78               push1 
  086a:74 0230          lofss $0a9d // bonjour/colonel,person
  086d:43 25 02         callk Said 2 

  0870:31 7b              bnt code_08ed 
  0872:39 65            pushi 65 // $65 contains
  0874:78               push1 
  0875:74 0426          lofss $0c9e // Lillian
  0878:81 05              lag gCast 
  087a:4a 06             send 6 

  087c:31 64              bnt code_08e2 
  087e:35 0a              ldi a 
  0880:a0 00d5            sag global213 
  0883:8b 01              lsl local1 
  0885:3c                 dup 
  0886:35 00              ldi 0 
  0888:1a                 eq? 
  0889:31 0d              bnt code_0898 
  088b:39 03            pushi 3 // $3 y
  088d:78               push1 
  088e:38 010e          pushi 10e // $10e overlay
  0891:39 1a            pushi 1a // $1a text
  0893:45 01 06         callb procedure_0001 6 // Say 

  0896:33 45              jmp code_08dd 

        code_0898
  0898:3c                 dup 
  0899:35 01              ldi 1 
  089b:1a                 eq? 
  089c:31 0d              bnt code_08ab 
  089e:39 03            pushi 3 // $3 y
  08a0:78               push1 
  08a1:38 010e          pushi 10e // $10e overlay
  08a4:39 1b            pushi 1b // $1b elements
  08a6:45 01 06         callb procedure_0001 6 // Say 

  08a9:33 32              jmp code_08dd 

        code_08ab
  08ab:3c                 dup 
  08ac:35 02              ldi 2 
  08ae:1a                 eq? 
  08af:31 0d              bnt code_08be 
  08b1:39 03            pushi 3 // $3 y
  08b3:78               push1 
  08b4:38 010e          pushi 10e // $10e overlay
  08b7:39 1c            pushi 1c // $1c color
  08b9:45 01 06         callb procedure_0001 6 // Say 

  08bc:33 1f              jmp code_08dd 

        code_08be
  08be:3c                 dup 
  08bf:35 03              ldi 3 
  08c1:1a                 eq? 
  08c2:31 0d              bnt code_08d1 
  08c4:39 03            pushi 3 // $3 y
  08c6:78               push1 
  08c7:38 010e          pushi 10e // $10e overlay
  08ca:39 1d            pushi 1d // $1d back
  08cc:45 01 06         callb procedure_0001 6 // Say 

  08cf:33 0c              jmp code_08dd 

        code_08d1
  08d1:7a               push2 
  08d2:38 010e          pushi 10e // $10e overlay
  08d5:39 1e            pushi 1e // $1e mode
  08d7:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_08dd
  08dd:3a                toss 
  08de:c3 01              +al local1 
  08e0:33 08              jmp code_08ea 

        code_08e2
  08e2:39 4c            pushi 4c // $4c claimed
  08e4:78               push1 
  08e5:76               push0 
  08e6:87 01              lap param1 
  08e8:4a 06             send 6 


        code_08ea
  08ea:32 0096            jmp code_0983 

        code_08ed
  08ed:78               push1 
  08ee:74 0181          lofss $0a72 // look/butt
  08f1:43 25 02         callk Said 2 

  08f4:31 14              bnt code_090a 
  08f6:78               push1 
  08f7:39 0d            pushi d // $d lsTop
  08f9:45 05 02         callb procedure_0005 2 // SetFlag 

  08fc:7a               push2 
  08fd:38 010e          pushi 10e // $10e overlay
  0900:39 1f            pushi 1f // $1f style
  0902:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0908:33 79              jmp code_0983 

        code_090a
  090a:78               push1 
  090b:74 0146          lofss $0a54 // get/butt
  090e:43 25 02         callk Said 2 

  0911:31 0e              bnt code_0921 
  0913:7a               push2 
  0914:38 010e          pushi 10e // $10e overlay
  0917:39 20            pushi 20 // $20 state
  0919:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  091f:33 62              jmp code_0983 

        code_0921
  0921:39 03            pushi 3 // $3 y
  0923:7c            pushSelf 
  0924:8f 01              lsp param1 
  0926:39 03            pushi 3 // $3 y
  0928:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  092e:2f 09               bt code_0939 
  0930:78               push1 
  0931:74 0144          lofss $0a78 // look/colonel,person
  0934:43 25 02         callk Said 2 

  0937:31 4a              bnt code_0983 

        code_0939
  0939:88 00cf            lsg global207 
  093c:34 0200            ldi 200 
  093f:12                 and 
  0940:31 28              bnt code_096a 
  0942:39 65            pushi 65 // $65 contains
  0944:78               push1 
  0945:74 0356          lofss $0c9e // Lillian
  0948:81 05              lag gCast 
  094a:4a 06             send 6 

  094c:31 0e              bnt code_095c 
  094e:7a               push2 
  094f:38 010e          pushi 10e // $10e overlay
  0952:39 17            pushi 17 // $17 name
  0954:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  095a:33 0c              jmp code_0968 

        code_095c
  095c:7a               push2 
  095d:38 010e          pushi 10e // $10e overlay
  0960:39 21            pushi 21 // $21 font
  0962:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0968
  0968:33 11              jmp code_097b 

        code_096a
  096a:88 00cf            lsg global207 
  096d:34 0200            ldi 200 
  0970:14                  or 
  0971:a0 00cf            sag global207 
  0974:78               push1 
  0975:74 0446          lofss $0dbe // colonel
  0978:45 19 02         callb procedure_0019 2 // DoLook 


        code_097b
  097b:39 4c            pushi 4c // $4c claimed
  097d:78               push1 
  097e:78               push1 
  097f:87 01              lap param1 
  0981:4a 06             send 6 


        code_0983
  0983:48                 ret 
    )

)

// 0bfc
(instance smoke1 of Prop
    (properties
        y $0
        x $0
        z $0
        heading $0
        yStep $2
        view $130
        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
    )
)

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

// 0c98
(instance Lillian of Prop
    (properties
        y $5e
        x $dd
        z $0
        heading $0
        yStep $2
        view $1f6
        loop $0
        cel $0
        priority $0
        underBits $0
        signal $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
        lsTop $0
        lsLeft $0
        lsBottom $0
        lsRight $0
        brTop $0
        brLeft $0
        brBottom $0
        brRight $0
        cycleSpeed $0
        script $0
        cycler $0
        timer $0
    )
    (method (handleEvent) // method_0984
  0984:39 03            pushi 3 // $3 y
  0986:7c            pushSelf 
  0987:8f 01              lsp param1 
  0989:39 03            pushi 3 // $3 y
  098b:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  0991:31 1b              bnt code_09ae 
  0993:88 00cf            lsg global207 
  0996:35 20              ldi 20 
  0998:12                 and 
  0999:18                 not 
  099a:31 12              bnt code_09ae 
  099c:39 4c            pushi 4c // $4c claimed
  099e:78               push1 
  099f:78               push1 
  09a0:87 01              lap param1 
  09a2:4a 06             send 6 

  09a4:78               push1 
  09a5:74 0445          lofss $0ded // lillian
  09a8:45 19 02         callb procedure_0019 2 // DoLook 

  09ab:32 00a0            jmp code_0a4e 

        code_09ae
  09ae:88 00cf            lsg global207 
  09b1:35 20              ldi 20 
  09b3:12                 and 
  09b4:31 2e              bnt code_09e4 
  09b6:39 03            pushi 3 // $3 y
  09b8:7c            pushSelf 
  09b9:8f 01              lsp param1 
  09bb:39 03            pushi 3 // $3 y
  09bd:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  09c3:2f 09               bt code_09ce 
  09c5:78               push1 
  09c6:74 00b8          lofss $0a81 // look/lil
  09c9:43 25 02         callk Said 2 

  09cc:31 16              bnt code_09e4 

        code_09ce
  09ce:39 4c            pushi 4c // $4c claimed
  09d0:78               push1 
  09d1:78               push1 
  09d2:87 01              lap param1 
  09d4:4a 06             send 6 

  09d6:7a               push2 
  09d7:38 010e          pushi 10e // $10e overlay
  09da:39 17            pushi 17 // $17 name
  09dc:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  09e2:33 6a              jmp code_0a4e 

        code_09e4
  09e4:78               push1 
  09e5:74 00be          lofss $0aa6 // bonjour/lil
  09e8:43 25 02         callk Said 2 

  09eb:31 61              bnt code_0a4e 
  09ed:35 06              ldi 6 
  09ef:a0 00d5            sag global213 
  09f2:8b 02              lsl local2 
  09f4:3c                 dup 
  09f5:35 00              ldi 0 
  09f7:1a                 eq? 
  09f8:31 0d              bnt code_0a07 
  09fa:39 03            pushi 3 // $3 y
  09fc:78               push1 
  09fd:38 010e          pushi 10e // $10e overlay
  0a00:39 22            pushi 22 // $22 type
  0a02:45 01 06         callb procedure_0001 6 // Say 

  0a05:33 44              jmp code_0a4b 

        code_0a07
  0a07:3c                 dup 
  0a08:35 01              ldi 1 
  0a0a:1a                 eq? 
  0a0b:31 0d              bnt code_0a1a 
  0a0d:39 03            pushi 3 // $3 y
  0a0f:78               push1 
  0a10:38 010e          pushi 10e // $10e overlay
  0a13:39 23            pushi 23 // $23 window
  0a15:45 01 06         callb procedure_0001 6 // Say 

  0a18:33 31              jmp code_0a4b 

        code_0a1a
  0a1a:3c                 dup 
  0a1b:35 02              ldi 2 
  0a1d:1a                 eq? 
  0a1e:31 0d              bnt code_0a2d 
  0a20:39 03            pushi 3 // $3 y
  0a22:78               push1 
  0a23:38 010e          pushi 10e // $10e overlay
  0a26:39 24            pushi 24 // $24 cursor
  0a28:45 01 06         callb procedure_0001 6 // Say 

  0a2b:33 1e              jmp code_0a4b 

        code_0a2d
  0a2d:3c                 dup 
  0a2e:35 03              ldi 3 
  0a30:1a                 eq? 
  0a31:31 0d              bnt code_0a40 
  0a33:39 03            pushi 3 // $3 y
  0a35:78               push1 
  0a36:38 010e          pushi 10e // $10e overlay
  0a39:39 25            pushi 25 // $25 max
  0a3b:45 01 06         callb procedure_0001 6 // Say 

  0a3e:33 0b              jmp code_0a4b 

        code_0a40
  0a40:39 03            pushi 3 // $3 y
  0a42:78               push1 
  0a43:38 010e          pushi 10e // $10e overlay
  0a46:39 26            pushi 26 // $26 mark
  0a48:45 01 06         callb procedure_0001 6 // Say 


        code_0a4b
  0a4b:3a                toss 
  0a4c:c3 02              +al local2 

        code_0a4e
  0a4e:48                 ret 
  0a4f:00                bnot 
    )

)

// 0cea
(instance LHead of Prop
    (properties
        y $5e
        x $dd
        z $27
        heading $0
        yStep $2
        view $1f6
        loop $7
        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
    )
)

// 0d38
(instance Glow of Prop
    (properties
        y $0
        x $0
        z $0
        heading $0
        yStep $2
        view $130
        loop $1
        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
    )
)



(procedure proc_001a
  001a:38 00a4          pushi a4 // $a4 cycleSpeed
  001d:78               push1 
  001e:78               push1 
  001f:39 7e            pushi 7e // $7e setCycle
  0021:78               push1 
  0022:51 16            class Fwd 
  0024:36                push 
  0025:72 0b88          lofsa $0bb0 // Colonel
  0028:4a 0c             send c 

  002a:39 0b            pushi b // $b nsBottom
  002c:59 01            &rest 1 
  002e:39 43            pushi 43 // $43 at
  0030:39 0f            pushi f // $f lsBottom
  0032:39 0a            pushi a // $a nsLeft
  0034:39 21            pushi 21 // $21 font
  0036:39 04            pushi 4 // $4 x
  0038:39 46            pushi 46 // $46 width
  003a:39 7d            pushi 7d // $7d set
  003c:39 1e            pushi 1e // $1e mode
  003e:78               push1 
  003f:39 53            pushi 53 // $53 draw
  0041:39 58            pushi 58 // $58 dispose
  0043:46 00ff 0000 16  calle ff procedure_0000 16 // Print 

  0049:48                 ret 
)

(procedure proc_004a
  004a:39 06            pushi 6 // $6 loop
  004c:78               push1 
  004d:78               push1 
  004e:39 7e            pushi 7e // $7e setCycle
  0050:78               push1 
  0051:51 16            class Fwd 
  0053:36                push 
  0054:72 0c47          lofsa $0c9e // Lillian
  0057:4a 0c             send c 

  0059:39 06            pushi 6 // $6 loop
  005b:78               push1 
  005c:39 07            pushi 7 // $7 cel
  005e:39 7e            pushi 7e // $7e setCycle
  0060:78               push1 
  0061:51 16            class Fwd 
  0063:36                push 
  0064:72 0c89          lofsa $0cf0 // LHead
  0067:4a 0c             send c 

  0069:39 0b            pushi b // $b nsBottom
  006b:59 01            &rest 1 
  006d:39 43            pushi 43 // $43 at
  006f:38 008c          pushi 8c // $8c track
  0072:39 0a            pushi a // $a nsLeft
  0074:39 21            pushi 21 // $21 font
  0076:39 04            pushi 4 // $4 x
  0078:39 46            pushi 46 // $46 width
  007a:39 7d            pushi 7d // $7d set
  007c:39 1e            pushi 1e // $1e mode
  007e:78               push1 
  007f:39 53            pushi 53 // $53 draw
  0081:39 58            pushi 58 // $58 dispose
  0083:46 00ff 0000 16  calle ff procedure_0000 16 // Print 

  0089:48                 ret 
)

