(script 232)

(string
    string_0b7a "Ash"
    string_0b7e "Gloria"
    string_0b85 "Rudy"
    string_0b8a "Smoke"
    string_0b90 "argue"
    string_0b96 "gloria"
    string_0b9d "gloriaActions"
    string_0bab "grargue"
    string_0bb3 "rHead"
    string_0bb9 "rudy"
    string_0bbe "rudyActions"
)

(said
    said_089e /boa
    said_08a2 /cigarette
    said_08a6 ask[/actress]/rudolph<about
    said_08b4 ask[/rudolph]/actress<about
    said_08c2 get,fumee>
    said_08c9 ecouter/rudolph,actress
    said_08d2 look,bonjour/person,hommes
    said_08de look/actress[/!*]
    said_08e9 look/gens
    said_08ef look/rudolph
    said_08f5 look>
    said_08f9 bonjour/actress
    said_08ff bonjour/gens
    said_0905 bonjour/rudolph
)

(synonym
    rudolph | rudy = fellow | gars | gentleman | guy | homme | man | type
    actress | gloria = dame | femme | fille | girl | lady | maiden | woman
)

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

// 0912
(instance public grargue of Rgn
    (properties
        script $0
        number $0
        timer $0
        keep $0
        initialized $0
    )
    (method (init) // method_008e
  008e:39 57            pushi 57 // $57 init
  0090:76               push0 
  0091:57 36 04         super Rgn 4 

  0094:89 76              lsg gMustDos 
  0096:35 01              ldi 1 
  0098:12                 and 
  0099:18                 not 
  009a:31 30              bnt code_00cc 
  009c:39 03            pushi 3 // $3 y
  009e:38 0087          pushi 87 // $87 clean
  00a1:39 04            pushi 4 // $4 x
  00a3:39 29            pushi 29 // $29 edit
  00a5:45 15 06         callb procedure_0015 6 // LoadMany 

  00a8:7a               push2 
  00a9:38 0080          pushi 80 // $80 timeLeft
  00ac:38 0282          pushi 282 // $282 sel_642
  00af:43 00 04         callk Load 4 

  00b2:39 05            pushi 5 // $5 view
  00b4:38 0084          pushi 84 // $84 stop
  00b7:39 1d            pushi 1d // $1d back
  00b9:39 5e            pushi 5e // $5e respondsTo
  00bb:39 5f            pushi 5f // $5f yourself
  00bd:39 60            pushi 60 // $60 size
  00bf:45 15 0a         callb procedure_0015 a // LoadMany 

  00c2:7a               push2 
  00c3:38 0082          pushi 82 // $82 owner
  00c6:38 0196          pushi 196 // $196 sel_406
  00c9:43 00 04         callk Load 4 


        code_00cc
  00cc:39 04            pushi 4 // $4 x
  00ce:38 008f          pushi 8f // $8f moveTo
  00d1:38 00f3          pushi f3 // $f3 close
  00d4:38 00df          pushi df // $df vanishingX
  00d7:38 00de          pushi de // $de horizon
  00da:45 15 08         callb procedure_0015 8 // LoadMany 

  00dd:39 03            pushi 3 // $3 y
  00df:38 008e          pushi 8e // $8e move
  00e2:39 03            pushi 3 // $3 y
  00e4:39 09            pushi 9 // $9 nsTop
  00e6:45 15 06         callb procedure_0015 6 // LoadMany 

  00e9:34 0104            ldi 104 
  00ec:a0 00d0            sag global208 
  00ef:34 00df            ldi df 
  00f2:a0 017b            sag global379 
  00f5:34 00de            ldi de 
  00f8:a0 0181            sag global385 
  00fb:39 57            pushi 57 // $57 init
  00fd:76               push0 
  00fe:72 0937          lofsa $0a38 // Gloria
  0101:4a 04             send 4 

  0103:39 57            pushi 57 // $57 init
  0105:76               push0 
  0106:72 08dd          lofsa $09e6 // Rudy
  0109:4a 04             send 4 

  010b:39 42            pushi 42 // $42 setPri
  010d:78               push1 
  010e:39 09            pushi 9 // $9 nsTop
  0110:39 57            pushi 57 // $57 init
  0112:76               push0 
  0113:72 0a10          lofsa $0b26 // rHead
  0116:4a 0a             send a 

  0118:39 57            pushi 57 // $57 init
  011a:76               push0 
  011b:38 0089          pushi 89 // $89 hide
  011e:76               push0 
  011f:72 0968          lofsa $0a8a // Smoke
  0122:4a 08             send 8 

  0124:39 57            pushi 57 // $57 init
  0126:76               push0 
  0127:38 0089          pushi 89 // $89 hide
  012a:76               push0 
  012b:72 09aa          lofsa $0ad8 // Ash
  012e:4a 08             send 8 

  0130:89 0c              lsg gPrevRoomNum 
  0132:35 31              ldi 31 
  0134:1c                 ne? 
  0135:31 08              bnt code_013f 
  0137:39 7a            pushi 7a // $7a setScript
  0139:78               push1 
  013a:74 080d          lofss $094a // argue
  013d:54 06             self 6 


        code_013f
  013f:48                 ret 
    )

    (method (doit) // method_0140
  0140:39 3c            pushi 3c // $3c doit
  0142:76               push0 
  0143:57 36 04         super Rgn 4 

  0146:48                 ret 
    )

    (method (dispose) // method_0147
  0147:88 00ad            lsg gSpyFlags 
  014a:35 01              ldi 1 
  014c:12                 and 
  014d:18                 not 
  014e:31 0e              bnt code_015e 
  0150:88 0170            lsg gCycleTimers 
  0153:35 00              ldi 0 
  0155:1a                 eq? 
  0156:31 06              bnt code_015e 
  0158:34 0708            ldi 708 
  015b:a0 0170            sag gCycleTimers 

        code_015e
  015e:39 58            pushi 58 // $58 dispose
  0160:76               push0 
  0161:57 36 04         super Rgn 4 

  0164:48                 ret 
    )

    (method (handleEvent) // method_0165
  0165:39 6f            pushi 6f // $6f handleEvent
  0167:78               push1 
  0168:8f 01              lsp param1 
  016a:57 36 06         super Rgn 6 

  016d:39 4c            pushi 4c // $4c claimed
  016f:76               push0 
  0170:87 01              lap param1 
  0172:4a 04             send 4 

  0174:31 01              bnt code_0177 
  0176:48                 ret 

        code_0177
  0177:39 22            pushi 22 // $22 type
  0179:76               push0 
  017a:87 01              lap param1 
  017c:4a 04             send 4 

  017e:36                push 
  017f:34 0080            ldi 80 
  0182:1a                 eq? 
  0183:30 0080            bnt code_0206 
  0186:78               push1 
  0187:74 076b          lofss $08f5 // look>
  018a:43 25 02         callk Said 2 

  018d:31 2c              bnt code_01bb 
  018f:78               push1 
  0190:74 070f          lofss $08a2 // /cigarette
  0193:43 25 02         callk Said 2 

  0196:31 0d              bnt code_01a5 
  0198:7a               push2 
  0199:38 00e8          pushi e8 // $e8 mapKeyToDir
  019c:76               push0 
  019d:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  01a3:33 14              jmp code_01b9 

        code_01a5
  01a5:78               push1 
  01a6:74 06f5          lofss $089e // /boa
  01a9:43 25 02         callk Said 2 

  01ac:31 0b              bnt code_01b9 
  01ae:7a               push2 
  01af:38 00e8          pushi e8 // $e8 mapKeyToDir
  01b2:78               push1 
  01b3:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_01b9
  01b9:33 4b              jmp code_0206 

        code_01bb
  01bb:78               push1 
  01bc:74 070a          lofss $08c9 // ecouter/rudolph,actress
  01bf:43 25 02         callk Said 2 

  01c2:31 0d              bnt code_01d1 
  01c4:7a               push2 
  01c5:38 00e8          pushi e8 // $e8 mapKeyToDir
  01c8:7a               push2 
  01c9:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  01cf:33 35              jmp code_0206 

        code_01d1
  01d1:78               push1 
  01d2:74 06ed          lofss $08c2 // get,fumee>
  01d5:43 25 02         callk Said 2 

  01d8:31 2c              bnt code_0206 
  01da:78               push1 
  01db:74 06c4          lofss $08a2 // /cigarette
  01de:43 25 02         callk Said 2 

  01e1:31 0e              bnt code_01f1 
  01e3:7a               push2 
  01e4:38 00e8          pushi e8 // $e8 mapKeyToDir
  01e7:39 03            pushi 3 // $3 y
  01e9:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  01ef:33 15              jmp code_0206 

        code_01f1
  01f1:78               push1 
  01f2:74 06a9          lofss $089e // /boa
  01f5:43 25 02         callk Said 2 

  01f8:31 0c              bnt code_0206 
  01fa:7a               push2 
  01fb:38 00e8          pushi e8 // $e8 mapKeyToDir
  01fe:39 04            pushi 4 // $4 x
  0200:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0206
  0206:48                 ret 
    )

)

// 0944
(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 (doit) // method_0207
  0207:39 3c            pushi 3c // $3c doit
  0209:76               push0 
  020a:57 05 04         super Script 4 

  020d:89 78              lsg global120 
  020f:35 03              ldi 3 
  0211:1a                 eq? 
  0212:31 11              bnt code_0225 
  0214:38 00e2          pushi e2 // $e2 canInput
  0217:78               push1 
  0218:76               push0 
  0219:51 2b            class User 
  021b:4a 06             send 6 

  021d:35 04              ldi 4 
  021f:a1 78              sag global120 
  0221:35 0c              ldi c 
  0223:65 10             aTop cycles 

        code_0225
  0225:48                 ret 
    )

    (method (changeState) // method_0226
  0226:87 01              lap param1 
  0228:65 0a             aTop state 
  022a:36                push 
  022b:3c                 dup 
  022c:35 00              ldi 0 
  022e:1a                 eq? 
  022f:31 41              bnt code_0272 
  0231:80 00d8            lag global216 
  0234:18                 not 
  0235:31 06              bnt code_023d 
  0237:35 ff              ldi ff 
  0239:65 0a             aTop state 
  023b:33 2e              jmp code_026b 

        code_023d
  023d:89 76              lsg gMustDos 
  023f:35 01              ldi 1 
  0241:12                 and 
  0242:18                 not 
  0243:31 1b              bnt code_0260 
  0245:89 76              lsg gMustDos 
  0247:35 01              ldi 1 
  0249:14                  or 
  024a:a1 76              sag gMustDos 
  024c:39 7a            pushi 7a // $7a setScript
  024e:78               push1 
  024f:7a               push2 
  0250:38 0196          pushi 196 // $196 sel_406
  0253:76               push0 
  0254:43 02 04         callk ScriptID 4 

  0257:36                push 
  0258:54 06             self 6 

  025a:35 ff              ldi ff 
  025c:65 0a             aTop state 
  025e:33 0b              jmp code_026b 

        code_0260
  0260:39 76            pushi 76 // $76 script
  0262:76               push0 
  0263:54 04             self 4 

  0265:31 04              bnt code_026b 
  0267:35 ff              ldi ff 
  0269:65 0a             aTop state 

        code_026b
  026b:35 01              ldi 1 
  026d:65 10             aTop cycles 
  026f:32 01c7            jmp code_0439 

        code_0272
  0272:3c                 dup 
  0273:35 01              ldi 1 
  0275:1a                 eq? 
  0276:30 00df            bnt code_0358 
  0279:38 00e2          pushi e2 // $e2 canInput
  027c:78               push1 
  027d:76               push0 
  027e:51 2b            class User 
  0280:4a 06             send 6 

  0282:88 00b3            lsg global179 
  0285:34 7fff            ldi 7fff 
  0288:12                 and 
  0289:a3 03              sal local3 
  028b:36                push 
  028c:80 00b3            lag global179 
  028f:1a                 eq? 
  0290:31 15              bnt code_02a7 
  0292:88 00b3            lsg global179 
  0295:35 06              ldi 6 
  0297:22                 lt? 
  0298:31 05              bnt code_029f 
  029a:c0 00b3            +ag global179 
  029d:33 06              jmp code_02a5 

        code_029f
  029f:34 8003            ldi 8003 
  02a2:a0 00b3            sag global179 

        code_02a5
  02a5:33 2b              jmp code_02d2 

        code_02a7
  02a7:8b 03              lsl local3 
  02a9:3c                 dup 
  02aa:35 03              ldi 3 
  02ac:1a                 eq? 
  02ad:31 08              bnt code_02b7 
  02af:34 8004            ldi 8004 
  02b2:a0 00b3            sag global179 
  02b5:33 1a              jmp code_02d1 

        code_02b7
  02b7:3c                 dup 
  02b8:35 04              ldi 4 
  02ba:1a                 eq? 
  02bb:31 08              bnt code_02c5 
  02bd:34 8006            ldi 8006 
  02c0:a0 00b3            sag global179 
  02c3:33 0c              jmp code_02d1 

        code_02c5
  02c5:3c                 dup 
  02c6:35 06              ldi 6 
  02c8:1a                 eq? 
  02c9:31 06              bnt code_02d1 
  02cb:34 8003            ldi 8003 
  02ce:a0 00b3            sag global179 

        code_02d1
  02d1:3a                toss 

        code_02d2
  02d2:8b 03              lsl local3 
  02d4:3c                 dup 
  02d5:35 00              ldi 0 
  02d7:1a                 eq? 
  02d8:31 0c              bnt code_02e6 
  02da:7a               push2 
  02db:38 00e8          pushi e8 // $e8 mapKeyToDir
  02de:39 05            pushi 5 // $5 view
  02e0:40 fd36 04        call proc_001a 4 

  02e4:33 6a              jmp code_0350 

        code_02e6
  02e6:3c                 dup 
  02e7:35 01              ldi 1 
  02e9:1a                 eq? 
  02ea:31 0c              bnt code_02f8 
  02ec:7a               push2 
  02ed:38 00e8          pushi e8 // $e8 mapKeyToDir
  02f0:39 06            pushi 6 // $6 loop
  02f2:40 fd24 04        call proc_001a 4 

  02f6:33 58              jmp code_0350 

        code_02f8
  02f8:3c                 dup 
  02f9:35 02              ldi 2 
  02fb:1a                 eq? 
  02fc:31 0c              bnt code_030a 
  02fe:7a               push2 
  02ff:38 00e8          pushi e8 // $e8 mapKeyToDir
  0302:39 07            pushi 7 // $7 cel
  0304:40 fd48 04        call proc_0050 4 

  0308:33 46              jmp code_0350 

        code_030a
  030a:3c                 dup 
  030b:35 03              ldi 3 
  030d:1a                 eq? 
  030e:31 0c              bnt code_031c 
  0310:7a               push2 
  0311:38 00e8          pushi e8 // $e8 mapKeyToDir
  0314:39 08            pushi 8 // $8 underBits
  0316:40 fd00 04        call proc_001a 4 

  031a:33 34              jmp code_0350 

        code_031c
  031c:3c                 dup 
  031d:35 04              ldi 4 
  031f:1a                 eq? 
  0320:31 0c              bnt code_032e 
  0322:7a               push2 
  0323:38 00e8          pushi e8 // $e8 mapKeyToDir
  0326:39 09            pushi 9 // $9 nsTop
  0328:40 fd24 04        call proc_0050 4 

  032c:33 22              jmp code_0350 

        code_032e
  032e:3c                 dup 
  032f:35 05              ldi 5 
  0331:1a                 eq? 
  0332:31 0c              bnt code_0340 
  0334:7a               push2 
  0335:38 00e8          pushi e8 // $e8 mapKeyToDir
  0338:39 0a            pushi a // $a nsLeft
  033a:40 fd12 04        call proc_0050 4 

  033e:33 10              jmp code_0350 

        code_0340
  0340:3c                 dup 
  0341:35 06              ldi 6 
  0343:1a                 eq? 
  0344:31 0a              bnt code_0350 
  0346:7a               push2 
  0347:38 00e8          pushi e8 // $e8 mapKeyToDir
  034a:39 0b            pushi b // $b nsBottom
  034c:40 fd00 04        call proc_0050 4 


        code_0350
  0350:3a                toss 
  0351:35 05              ldi 5 
  0353:65 12             aTop seconds 
  0355:32 00e1            jmp code_0439 

        code_0358
  0358:3c                 dup 
  0359:35 02              ldi 2 
  035b:1a                 eq? 
  035c:31 31              bnt code_038f 
  035e:76               push0 
  035f:45 0f 00         callb procedure_000f 0 // cls 

  0362:38 00a2          pushi a2 // $a2 setCel
  0365:78               push1 
  0366:76               push0 
  0367:72 06ce          lofsa $0a38 // Gloria
  036a:4a 06             send 6 

  036c:39 06            pushi 6 // $6 loop
  036e:78               push1 
  036f:39 04            pushi 4 // $4 x
  0371:38 00a2          pushi a2 // $a2 setCel
  0374:78               push1 
  0375:76               push0 
  0376:72 07ad          lofsa $0b26 // rHead
  0379:4a 0c             send c 

  037b:39 06            pushi 6 // $6 loop
  037d:78               push1 
  037e:76               push0 
  037f:39 7e            pushi 7e // $7e setCycle
  0381:78               push1 
  0382:76               push0 
  0383:72 0660          lofsa $09e6 // Rudy
  0386:4a 0c             send c 

  0388:35 01              ldi 1 
  038a:65 12             aTop seconds 
  038c:32 00aa            jmp code_0439 

        code_038f
  038f:3c                 dup 
  0390:35 03              ldi 3 
  0392:1a                 eq? 
  0393:31 4f              bnt code_03e4 
  0395:76               push0 
  0396:45 0f 00         callb procedure_000f 0 // cls 

  0399:8b 03              lsl local3 
  039b:3c                 dup 
  039c:35 00              ldi 0 
  039e:1a                 eq? 
  039f:31 10              bnt code_03b1 
  03a1:7a               push2 
  03a2:38 00e8          pushi e8 // $e8 mapKeyToDir
  03a5:39 0c            pushi c // $c nsRight
  03a7:40 fca5 04        call proc_0050 4 

  03ab:35 03              ldi 3 
  03ad:65 12             aTop seconds 
  03af:33 30              jmp code_03e1 

        code_03b1
  03b1:3c                 dup 
  03b2:35 05              ldi 5 
  03b4:1a                 eq? 
  03b5:31 10              bnt code_03c7 
  03b7:7a               push2 
  03b8:38 00e8          pushi e8 // $e8 mapKeyToDir
  03bb:39 0d            pushi d // $d lsTop
  03bd:40 fc8f 04        call proc_0050 4 

  03c1:35 03              ldi 3 
  03c3:65 12             aTop seconds 
  03c5:33 1a              jmp code_03e1 

        code_03c7
  03c7:3c                 dup 
  03c8:35 1a              ldi 1a 
  03ca:1a                 eq? 
  03cb:31 10              bnt code_03dd 
  03cd:7a               push2 
  03ce:38 00e8          pushi e8 // $e8 mapKeyToDir
  03d1:39 0e            pushi e // $e lsLeft
  03d3:40 fc79 04        call proc_0050 4 

  03d7:35 03              ldi 3 
  03d9:65 12             aTop seconds 
  03db:33 04              jmp code_03e1 

        code_03dd
  03dd:35 01              ldi 1 
  03df:65 10             aTop cycles 

        code_03e1
  03e1:3a                toss 
  03e2:33 55              jmp code_0439 

        code_03e4
  03e4:3c                 dup 
  03e5:35 04              ldi 4 
  03e7:1a                 eq? 
  03e8:31 33              bnt code_041d 
  03ea:38 00e2          pushi e2 // $e2 canInput
  03ed:78               push1 
  03ee:78               push1 
  03ef:51 2b            class User 
  03f1:4a 06             send 6 

  03f3:39 7e            pushi 7e // $7e setCycle
  03f5:78               push1 
  03f6:76               push0 
  03f7:72 05ec          lofsa $09e6 // Rudy
  03fa:4a 06             send 6 

  03fc:38 00a2          pushi a2 // $a2 setCel
  03ff:78               push1 
  0400:76               push0 
  0401:39 7a            pushi 7a // $7a setScript
  0403:78               push1 
  0404:74 05ab          lofss $09b2 // rudyActions
  0407:72 071c          lofsa $0b26 // rHead
  040a:4a 0c             send c 

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

  0410:39 7a            pushi 7a // $7a setScript
  0412:78               push1 
  0413:74 0568          lofss $097e // gloriaActions
  0416:72 061f          lofsa $0a38 // Gloria
  0419:4a 06             send 6 

  041b:33 1c              jmp code_0439 

        code_041d
  041d:3c                 dup 
  041e:35 05              ldi 5 
  0420:1a                 eq? 
  0421:31 16              bnt code_0439 
  0423:7a               push2 
  0424:38 00e8          pushi e8 // $e8 mapKeyToDir
  0427:39 0f            pushi f // $f lsBottom
  0429:40 fbed 04        call proc_001a 4 

  042d:35 01              ldi 1 
  042f:65 0a             aTop state 
  0431:35 1a              ldi 1a 
  0433:a3 03              sal local3 
  0435:35 05              ldi 5 
  0437:65 12             aTop seconds 

        code_0439
  0439:3a                toss 
  043a:48                 ret 
    )

)

// 0978
(instance gloriaActions 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_043b
  043b:39 3c            pushi 3c // $3c doit
  043d:76               push0 
  043e:57 05 04         super Script 4 

  0441:89 78              lsg global120 
  0443:35 04              ldi 4 
  0445:22                 lt? 
  0446:31 1a              bnt code_0462 
  0448:89 78              lsg global120 
  044a:35 00              ldi 0 
  044c:1e                 gt? 
  044d:31 13              bnt code_0462 
  044f:39 76            pushi 76 // $76 script
  0451:76               push0 
  0452:63 08             pToa client 
  0454:4a 04             send 4 

  0456:31 0a              bnt code_0462 
  0458:c1 78              +ag global120 
  045a:39 7a            pushi 7a // $7a setScript
  045c:78               push1 
  045d:76               push0 
  045e:63 08             pToa client 
  0460:4a 06             send 6 


        code_0462
  0462:48                 ret 
    )

    (method (changeState) // method_0463
  0463:87 01              lap param1 
  0465:65 0a             aTop state 
  0467:36                push 
  0468:3c                 dup 
  0469:35 00              ldi 0 
  046b:1a                 eq? 
  046c:31 0d              bnt code_047b 
  046e:7a               push2 
  046f:39 03            pushi 3 // $3 y
  0471:39 06            pushi 6 // $6 loop
  0473:43 40 04         callk Random 4 

  0476:65 12             aTop seconds 
  0478:32 0115            jmp code_0590 

        code_047b
  047b:3c                 dup 
  047c:35 01              ldi 1 
  047e:1a                 eq? 
  047f:31 1f              bnt code_04a0 
  0481:39 07            pushi 7 // $7 cel
  0483:78               push1 
  0484:76               push0 
  0485:39 06            pushi 6 // $6 loop
  0487:78               push1 
  0488:76               push0 
  0489:38 00a4          pushi a4 // $a4 cycleSpeed
  048c:78               push1 
  048d:76               push0 
  048e:39 7e            pushi 7e // $7e setCycle
  0490:78               push1 
  0491:51 1a            class End 
  0493:36                push 
  0494:72 05a1          lofsa $0a38 // Gloria
  0497:4a 18             send 18 

  0499:35 03              ldi 3 
  049b:65 12             aTop seconds 
  049d:32 00f0            jmp code_0590 

        code_04a0
  04a0:3c                 dup 
  04a1:35 02              ldi 2 
  04a3:1a                 eq? 
  04a4:31 25              bnt code_04cb 
  04a6:39 07            pushi 7 // $7 cel
  04a8:78               push1 
  04a9:78               push1 
  04aa:74 058b          lofss $0a38 // Gloria
  04ad:43 0e 02         callk NumCels 2 

  04b0:36                push 
  04b1:35 01              ldi 1 
  04b3:04                 sub 
  04b4:36                push 
  04b5:39 06            pushi 6 // $6 loop
  04b7:78               push1 
  04b8:76               push0 
  04b9:39 7e            pushi 7e // $7e setCycle
  04bb:78               push1 
  04bc:51 1b            class Beg 
  04be:36                push 
  04bf:72 0576          lofsa $0a38 // Gloria
  04c2:4a 12             send 12 

  04c4:35 02              ldi 2 
  04c6:65 12             aTop seconds 
  04c8:32 00c5            jmp code_0590 

        code_04cb
  04cb:3c                 dup 
  04cc:35 03              ldi 3 
  04ce:1a                 eq? 
  04cf:31 24              bnt code_04f5 
  04d1:38 00ca          pushi ca // $ca show
  04d4:76               push0 
  04d5:39 42            pushi 42 // $42 setPri
  04d7:78               push1 
  04d8:78               push1 
  04d9:39 03            pushi 3 // $3 y
  04db:76               push0 
  04dc:72 0559          lofsa $0a38 // Gloria
  04df:4a 04             send 4 

  04e1:36                push 
  04e2:43 65 02         callk CoordPri 2 

  04e5:36                push 
  04e6:39 7e            pushi 7e // $7e setCycle
  04e8:7a               push2 
  04e9:51 1a            class End 
  04eb:36                push 
  04ec:7c            pushSelf 
  04ed:72 059a          lofsa $0a8a // Smoke
  04f0:4a 12             send 12 

  04f2:32 009b            jmp code_0590 

        code_04f5
  04f5:3c                 dup 
  04f6:35 04              ldi 4 
  04f8:1a                 eq? 
  04f9:31 18              bnt code_0513 
  04fb:39 07            pushi 7 // $7 cel
  04fd:78               push1 
  04fe:76               push0 
  04ff:38 0089          pushi 89 // $89 hide
  0502:76               push0 
  0503:72 0584          lofsa $0a8a // Smoke
  0506:4a 0a             send a 

  0508:7a               push2 
  0509:7a               push2 
  050a:39 05            pushi 5 // $5 view
  050c:43 40 04         callk Random 4 

  050f:65 12             aTop seconds 
  0511:33 7d              jmp code_0590 

        code_0513
  0513:3c                 dup 
  0514:35 05              ldi 5 
  0516:1a                 eq? 
  0517:31 17              bnt code_0530 
  0519:39 07            pushi 7 // $7 cel
  051b:78               push1 
  051c:76               push0 
  051d:39 06            pushi 6 // $6 loop
  051f:78               push1 
  0520:39 04            pushi 4 // $4 x
  0522:39 7e            pushi 7e // $7e setCycle
  0524:7a               push2 
  0525:51 1a            class End 
  0527:36                push 
  0528:7c            pushSelf 
  0529:72 050c          lofsa $0a38 // Gloria
  052c:4a 14             send 14 

  052e:33 60              jmp code_0590 

        code_0530
  0530:3c                 dup 
  0531:35 06              ldi 6 
  0533:1a                 eq? 
  0534:31 32              bnt code_0568 
  0536:39 07            pushi 7 // $7 cel
  0538:78               push1 
  0539:76               push0 
  053a:39 06            pushi 6 // $6 loop
  053c:78               push1 
  053d:39 05            pushi 5 // $5 view
  053f:38 00a4          pushi a4 // $a4 cycleSpeed
  0542:78               push1 
  0543:78               push1 
  0544:39 7e            pushi 7e // $7e setCycle
  0546:78               push1 
  0547:51 16            class Fwd 
  0549:36                push 
  054a:72 04eb          lofsa $0a38 // Gloria
  054d:4a 18             send 18 

  054f:39 07            pushi 7 // $7 cel
  0551:78               push1 
  0552:76               push0 
  0553:38 00ca          pushi ca // $ca show
  0556:76               push0 
  0557:39 7e            pushi 7e // $7e setCycle
  0559:78               push1 
  055a:51 1a            class End 
  055c:36                push 
  055d:72 0578          lofsa $0ad8 // Ash
  0560:4a 10             send 10 

  0562:35 05              ldi 5 
  0564:65 10             aTop cycles 
  0566:33 28              jmp code_0590 

        code_0568
  0568:3c                 dup 
  0569:35 07              ldi 7 
  056b:1a                 eq? 
  056c:31 22              bnt code_0590 
  056e:38 0089          pushi 89 // $89 hide
  0571:76               push0 
  0572:72 0563          lofsa $0ad8 // Ash
  0575:4a 04             send 4 

  0577:39 07            pushi 7 // $7 cel
  0579:78               push1 
  057a:7a               push2 
  057b:39 06            pushi 6 // $6 loop
  057d:78               push1 
  057e:39 04            pushi 4 // $4 x
  0580:39 7e            pushi 7e // $7e setCycle
  0582:7a               push2 
  0583:51 1b            class Beg 
  0585:36                push 
  0586:7c            pushSelf 
  0587:72 04ae          lofsa $0a38 // Gloria
  058a:4a 14             send 14 

  058c:35 ff              ldi ff 
  058e:65 0a             aTop state 

        code_0590
  0590:3a                toss 
  0591:48                 ret 
    )

)

// 09ac
(instance rudyActions 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_0592
  0592:39 3c            pushi 3c // $3c doit
  0594:76               push0 
  0595:57 05 04         super Script 4 

  0598:89 78              lsg global120 
  059a:35 04              ldi 4 
  059c:22                 lt? 
  059d:31 1a              bnt code_05b9 
  059f:89 78              lsg global120 
  05a1:35 00              ldi 0 
  05a3:1e                 gt? 
  05a4:31 13              bnt code_05b9 
  05a6:39 76            pushi 76 // $76 script
  05a8:76               push0 
  05a9:63 08             pToa client 
  05ab:4a 04             send 4 

  05ad:31 0a              bnt code_05b9 
  05af:c1 78              +ag global120 
  05b1:39 7a            pushi 7a // $7a setScript
  05b3:78               push1 
  05b4:76               push0 
  05b5:63 08             pToa client 
  05b7:4a 06             send 6 


        code_05b9
  05b9:48                 ret 
    )

    (method (changeState) // method_05ba
  05ba:87 01              lap param1 
  05bc:65 0a             aTop state 
  05be:36                push 
  05bf:3c                 dup 
  05c0:35 00              ldi 0 
  05c2:1a                 eq? 
  05c3:31 0d              bnt code_05d2 
  05c5:7a               push2 
  05c6:39 03            pushi 3 // $3 y
  05c8:39 06            pushi 6 // $6 loop
  05ca:43 40 04         callk Random 4 

  05cd:65 12             aTop seconds 
  05cf:32 00c1            jmp code_0693 

        code_05d2
  05d2:3c                 dup 
  05d3:35 01              ldi 1 
  05d5:1a                 eq? 
  05d6:31 24              bnt code_05fc 
  05d8:38 00a2          pushi a2 // $a2 setCel
  05db:78               push1 
  05dc:39 ff            pushi ff // $ff checkAni
  05de:39 06            pushi 6 // $6 loop
  05e0:78               push1 
  05e1:39 05            pushi 5 // $5 view
  05e3:39 7e            pushi 7e // $7e setCycle
  05e5:7a               push2 
  05e6:51 1a            class End 
  05e8:36                push 
  05e9:7c            pushSelf 
  05ea:72 0539          lofsa $0b26 // rHead
  05ed:4a 14             send 14 

  05ef:7a               push2 
  05f0:39 03            pushi 3 // $3 y
  05f2:39 05            pushi 5 // $5 view
  05f4:43 40 04         callk Random 4 

  05f7:65 12             aTop seconds 
  05f9:32 0097            jmp code_0693 

        code_05fc
  05fc:3c                 dup 
  05fd:35 02              ldi 2 
  05ff:1a                 eq? 
  0600:31 1f              bnt code_0621 
  0602:39 07            pushi 7 // $7 cel
  0604:78               push1 
  0605:76               push0 
  0606:39 06            pushi 6 // $6 loop
  0608:78               push1 
  0609:7a               push2 
  060a:39 7e            pushi 7e // $7e setCycle
  060c:78               push1 
  060d:51 1a            class End 
  060f:36                push 
  0610:72 03d3          lofsa $09e6 // Rudy
  0613:4a 12             send 12 

  0615:7a               push2 
  0616:39 03            pushi 3 // $3 y
  0618:39 05            pushi 5 // $5 view
  061a:43 40 04         callk Random 4 

  061d:65 12             aTop seconds 
  061f:33 72              jmp code_0693 

        code_0621
  0621:3c                 dup 
  0622:35 03              ldi 3 
  0624:1a                 eq? 
  0625:31 17              bnt code_063e 
  0627:39 7e            pushi 7e // $7e setCycle
  0629:78               push1 
  062a:51 1b            class Beg 
  062c:36                push 
  062d:72 04f6          lofsa $0b26 // rHead
  0630:4a 06             send 6 

  0632:7a               push2 
  0633:39 03            pushi 3 // $3 y
  0635:39 05            pushi 5 // $5 view
  0637:43 40 04         callk Random 4 

  063a:65 12             aTop seconds 
  063c:33 55              jmp code_0693 

        code_063e
  063e:3c                 dup 
  063f:35 04              ldi 4 
  0641:1a                 eq? 
  0642:31 1c              bnt code_0660 
  0644:39 06            pushi 6 // $6 loop
  0646:78               push1 
  0647:39 03            pushi 3 // $3 y
  0649:39 7e            pushi 7e // $7e setCycle
  064b:78               push1 
  064c:51 1a            class End 
  064e:36                push 
  064f:72 0394          lofsa $09e6 // Rudy
  0652:4a 0c             send c 

  0654:7a               push2 
  0655:39 03            pushi 3 // $3 y
  0657:39 05            pushi 5 // $5 view
  0659:43 40 04         callk Random 4 

  065c:65 12             aTop seconds 
  065e:33 33              jmp code_0693 

        code_0660
  0660:3c                 dup 
  0661:35 05              ldi 5 
  0663:1a                 eq? 
  0664:31 17              bnt code_067d 
  0666:39 7e            pushi 7e // $7e setCycle
  0668:78               push1 
  0669:51 1a            class End 
  066b:36                push 
  066c:72 04b7          lofsa $0b26 // rHead
  066f:4a 06             send 6 

  0671:7a               push2 
  0672:39 05            pushi 5 // $5 view
  0674:39 08            pushi 8 // $8 underBits
  0676:43 40 04         callk Random 4 

  0679:65 12             aTop seconds 
  067b:33 16              jmp code_0693 

        code_067d
  067d:3c                 dup 
  067e:35 06              ldi 6 
  0680:1a                 eq? 
  0681:31 10              bnt code_0693 
  0683:39 7e            pushi 7e // $7e setCycle
  0685:7a               push2 
  0686:51 1b            class Beg 
  0688:36                push 
  0689:7c            pushSelf 
  068a:72 0499          lofsa $0b26 // rHead
  068d:4a 08             send 8 

  068f:35 04              ldi 4 
  0691:65 0a             aTop state 

        code_0693
  0693:3a                toss 
  0694:48                 ret 
    )

)

// 09e0
(instance Rudy of Prop
    (properties
        y $87
        x $b2
        z $0
        heading $0
        yStep $2
        view $17e
        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 $2
        script $0
        cycler $0
        timer $0
    )
    (method (handleEvent) // method_0695
  0695:35 09              ldi 9 
  0697:a0 00d5            sag global213 
  069a:38 00ae          pushi ae // $ae distanceTo
  069d:78               push1 
  069e:74 0345          lofss $09e6 // Rudy
  06a1:81 00              lag gEgo 
  06a3:4a 06             send 6 

  06a5:36                push 
  06a6:38 00ae          pushi ae // $ae distanceTo
  06a9:78               push1 
  06aa:74 038b          lofss $0a38 // Gloria
  06ad:81 00              lag gEgo 
  06af:4a 06             send 6 

  06b1:22                 lt? 
  06b2:31 08              bnt code_06bc 
  06b4:34 0100            ldi 100 
  06b7:a0 00d6            sag global214 
  06ba:33 05              jmp code_06c1 

        code_06bc
  06bc:35 04              ldi 4 
  06be:a0 00d6            sag global214 

        code_06c1
  06c1:78               push1 
  06c2:74 0240          lofss $0905 // bonjour/rudolph
  06c5:43 25 02         callk Said 2 

  06c8:31 3a              bnt code_0704 
  06ca:8b 01              lsl local1 
  06cc:3c                 dup 
  06cd:35 00              ldi 0 
  06cf:1a                 eq? 
  06d0:31 0d              bnt code_06df 
  06d2:39 03            pushi 3 // $3 y
  06d4:78               push1 
  06d5:38 00e8          pushi e8 // $e8 mapKeyToDir
  06d8:39 10            pushi 10 // $10 lsRight
  06da:45 01 06         callb procedure_0001 6 // Say 

  06dd:33 1f              jmp code_06fe 

        code_06df
  06df:3c                 dup 
  06e0:35 01              ldi 1 
  06e2:1a                 eq? 
  06e3:31 0d              bnt code_06f2 
  06e5:39 03            pushi 3 // $3 y
  06e7:78               push1 
  06e8:38 00e8          pushi e8 // $e8 mapKeyToDir
  06eb:39 11            pushi 11 // $11 signal
  06ed:45 01 06         callb procedure_0001 6 // Say 

  06f0:33 0c              jmp code_06fe 

        code_06f2
  06f2:7a               push2 
  06f3:38 00e8          pushi e8 // $e8 mapKeyToDir
  06f6:39 12            pushi 12 // $12 illegalBits
  06f8:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_06fe
  06fe:3a                toss 
  06ff:c3 01              +al local1 
  0701:32 0083            jmp code_0787 

        code_0704
  0704:78               push1 
  0705:74 01ac          lofss $08b4 // ask[/rudolph]/actress<about
  0708:43 25 02         callk Said 2 

  070b:31 1b              bnt code_0728 
  070d:35 01              ldi 1 
  070f:a0 00d4            sag global212 
  0712:87 01              lap param1 
  0714:a0 00d1            sag global209 
  0717:39 03            pushi 3 // $3 y
  0719:39 0d            pushi d // $d lsTop
  071b:38 00e8          pushi e8 // $e8 mapKeyToDir
  071e:39 13            pushi 13 // $13 brTop
  0720:46 00f3 0001 06  calle f3 procedure_0001 6 // proc243_1 

  0726:33 5f              jmp code_0787 

        code_0728
  0728:88 00cf            lsg global207 
  072b:34 0100            ldi 100 
  072e:12                 and 
  072f:18                 not 
  0730:31 20              bnt code_0752 
  0732:39 03            pushi 3 // $3 y
  0734:7c            pushSelf 
  0735:8f 01              lsp param1 
  0737:39 03            pushi 3 // $3 y
  0739:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  073f:31 11              bnt code_0752 
  0741:39 4c            pushi 4c // $4c claimed
  0743:78               push1 
  0744:78               push1 
  0745:87 01              lap param1 
  0747:4a 06             send 6 

  0749:78               push1 
  074a:74 046c          lofss $0bb9 // rudy
  074d:45 19 02         callb procedure_0019 2 // DoLook 

  0750:33 35              jmp code_0787 

        code_0752
  0752:88 00cf            lsg global207 
  0755:34 0100            ldi 100 
  0758:12                 and 
  0759:31 2c              bnt code_0787 
  075b:39 03            pushi 3 // $3 y
  075d:7c            pushSelf 
  075e:8f 01              lsp param1 
  0760:39 03            pushi 3 // $3 y
  0762:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  0768:2f 09               bt code_0773 
  076a:78               push1 
  076b:74 0181          lofss $08ef // look/rudolph
  076e:43 25 02         callk Said 2 

  0771:31 14              bnt code_0787 

        code_0773
  0773:39 4c            pushi 4c // $4c claimed
  0775:78               push1 
  0776:78               push1 
  0777:87 01              lap param1 
  0779:4a 06             send 6 

  077b:7a               push2 
  077c:38 00e8          pushi e8 // $e8 mapKeyToDir
  077f:39 14            pushi 14 // $14 brLeft
  0781:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0787
  0787:48                 ret 
    )

)

// 0a32
(instance Gloria of Prop
    (properties
        y $89
        x $87
        z $0
        heading $0
        yStep $2
        view $16a
        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_0788
  0788:35 03              ldi 3 
  078a:a0 00d5            sag global213 
  078d:78               push1 
  078e:74 0168          lofss $08f9 // bonjour/actress
  0791:43 25 02         callk Said 2 

  0794:31 3a              bnt code_07d0 
  0796:8b 00              lsl local0 
  0798:3c                 dup 
  0799:35 00              ldi 0 
  079b:1a                 eq? 
  079c:31 0d              bnt code_07ab 
  079e:39 03            pushi 3 // $3 y
  07a0:78               push1 
  07a1:38 00e8          pushi e8 // $e8 mapKeyToDir
  07a4:39 15            pushi 15 // $15 brBottom
  07a6:45 01 06         callb procedure_0001 6 // Say 

  07a9:33 1f              jmp code_07ca 

        code_07ab
  07ab:3c                 dup 
  07ac:35 01              ldi 1 
  07ae:1a                 eq? 
  07af:31 0d              bnt code_07be 
  07b1:39 03            pushi 3 // $3 y
  07b3:78               push1 
  07b4:38 00e8          pushi e8 // $e8 mapKeyToDir
  07b7:39 16            pushi 16 // $16 brRight
  07b9:45 01 06         callb procedure_0001 6 // Say 

  07bc:33 0c              jmp code_07ca 

        code_07be
  07be:7a               push2 
  07bf:38 00e8          pushi e8 // $e8 mapKeyToDir
  07c2:39 17            pushi 17 // $17 name
  07c4:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_07ca
  07ca:3a                toss 
  07cb:c3 00              +al local0 
  07cd:32 00c8            jmp code_0898 

        code_07d0
  07d0:78               push1 
  07d1:74 00d2          lofss $08a6 // ask[/actress]/rudolph<about
  07d4:43 25 02         callk Said 2 

  07d7:31 1c              bnt code_07f5 
  07d9:35 01              ldi 1 
  07db:a0 00d4            sag global212 
  07de:87 01              lap param1 
  07e0:a0 00d1            sag global209 
  07e3:39 03            pushi 3 // $3 y
  07e5:39 15            pushi 15 // $15 brBottom
  07e7:38 00e8          pushi e8 // $e8 mapKeyToDir
  07ea:39 18            pushi 18 // $18 key
  07ec:46 00f3 0001 06  calle f3 procedure_0001 6 // proc243_1 

  07f2:32 00a3            jmp code_0898 

        code_07f5
  07f5:78               push1 
  07f6:74 00f0          lofss $08e9 // look/gens
  07f9:43 25 02         callk Said 2 

  07fc:31 0f              bnt code_080d 
  07fe:7a               push2 
  07ff:38 00e8          pushi e8 // $e8 mapKeyToDir
  0802:39 14            pushi 14 // $14 brLeft
  0804:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  080a:32 008b            jmp code_0898 

        code_080d
  080d:78               push1 
  080e:74 00c1          lofss $08d2 // look,bonjour/person,hommes
  0811:43 25 02         callk Said 2 

  0814:31 0e              bnt code_0824 
  0816:7a               push2 
  0817:38 00e8          pushi e8 // $e8 mapKeyToDir
  081a:39 19            pushi 19 // $19 time
  081c:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0822:33 74              jmp code_0898 

        code_0824
  0824:78               push1 
  0825:74 00d7          lofss $08ff // bonjour/gens
  0828:43 25 02         callk Said 2 

  082b:31 0e              bnt code_083b 
  082d:7a               push2 
  082e:38 00e8          pushi e8 // $e8 mapKeyToDir
  0831:39 1a            pushi 1a // $1a text
  0833:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0839:33 5d              jmp code_0898 

        code_083b
  083b:88 00cf            lsg global207 
  083e:35 04              ldi 4 
  0840:12                 and 
  0841:18                 not 
  0842:31 20              bnt code_0864 
  0844:39 03            pushi 3 // $3 y
  0846:7c            pushSelf 
  0847:8f 01              lsp param1 
  0849:39 03            pushi 3 // $3 y
  084b:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  0851:31 11              bnt code_0864 
  0853:39 4c            pushi 4c // $4c claimed
  0855:78               push1 
  0856:78               push1 
  0857:87 01              lap param1 
  0859:4a 06             send 6 

  085b:78               push1 
  085c:74 0337          lofss $0b96 // gloria
  085f:45 19 02         callb procedure_0019 2 // DoLook 

  0862:33 34              jmp code_0898 

        code_0864
  0864:88 00cf            lsg global207 
  0867:35 04              ldi 4 
  0869:12                 and 
  086a:31 2c              bnt code_0898 
  086c:39 03            pushi 3 // $3 y
  086e:7c            pushSelf 
  086f:8f 01              lsp param1 
  0871:39 03            pushi 3 // $3 y
  0873:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  0879:2f 09               bt code_0884 
  087b:78               push1 
  087c:74 005f          lofss $08de // look/actress[/!*]
  087f:43 25 02         callk Said 2 

  0882:31 14              bnt code_0898 

        code_0884
  0884:39 4c            pushi 4c // $4c claimed
  0886:78               push1 
  0887:78               push1 
  0888:87 01              lap param1 
  088a:4a 06             send 6 

  088c:7a               push2 
  088d:38 00e8          pushi e8 // $e8 mapKeyToDir
  0890:39 14            pushi 14 // $14 brLeft
  0892:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0898
  0898:48                 ret 
  0899:00                bnot 
    )

)

// 0a84
(instance Smoke of Prop
    (properties
        y $89
        x $8b
        z $2b
        heading $0
        yStep $2
        view $16a
        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 $1
        script $0
        cycler $0
        timer $0
    )
)

// 0ad2
(instance Ash of Prop
    (properties
        y $89
        x $8f
        z $0
        heading $0
        yStep $2
        view $16a
        loop $6
        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
    )
)

// 0b20
(instance rHead of Prop
    (properties
        y $87
        x $b2
        z $2a
        heading $0
        yStep $2
        view $17e
        loop $4
        cel $0
        priority $0
        underBits $0
        signal $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
        lsTop $0
        lsLeft $0
        lsBottom $0
        lsRight $0
        brTop $0
        brLeft $0
        brBottom $0
        brRight $0
        cycleSpeed $1
        script $0
        cycler $0
        timer $0
    )
)



(procedure proc_001a
  001a:38 00a2          pushi a2 // $a2 setCel
  001d:78               push1 
  001e:39 ff            pushi ff // $ff checkAni
  0020:39 06            pushi 6 // $6 loop
  0022:78               push1 
  0023:78               push1 
  0024:39 7e            pushi 7e // $7e setCycle
  0026:78               push1 
  0027:51 16            class Fwd 
  0029:36                push 
  002a:72 0a0b          lofsa $0a38 // Gloria
  002d:4a 12             send 12 

  002f:39 0b            pushi b // $b nsBottom
  0031:59 01            &rest 1 
  0033:39 43            pushi 43 // $43 at
  0035:39 28            pushi 28 // $28 message
  0037:38 008c          pushi 8c // $8c track
  003a:39 21            pushi 21 // $21 font
  003c:39 04            pushi 4 // $4 x
  003e:39 46            pushi 46 // $46 width
  0040:39 7d            pushi 7d // $7d set
  0042:39 1e            pushi 1e // $1e mode
  0044:78               push1 
  0045:39 53            pushi 53 // $53 draw
  0047:39 58            pushi 58 // $58 dispose
  0049:46 00ff 0000 16  calle ff procedure_0000 16 // Print 

  004f:48                 ret 
)

(procedure proc_0050
  0050:38 00a2          pushi a2 // $a2 setCel
  0053:78               push1 
  0054:39 ff            pushi ff // $ff checkAni
  0056:39 7e            pushi 7e // $7e setCycle
  0058:78               push1 
  0059:51 16            class Fwd 
  005b:36                push 
  005c:72 0ac7          lofsa $0b26 // rHead
  005f:4a 0c             send c 

  0061:39 7e            pushi 7e // $7e setCycle
  0063:78               push1 
  0064:51 16            class Fwd 
  0066:36                push 
  0067:72 097c          lofsa $09e6 // Rudy
  006a:4a 06             send 6 

  006c:39 0b            pushi b // $b nsBottom
  006e:59 01            &rest 1 
  0070:39 43            pushi 43 // $43 at
  0072:38 00ab          pushi ab // $ab setTarget
  0075:38 008c          pushi 8c // $8c track
  0078:39 21            pushi 21 // $21 font
  007a:39 04            pushi 4 // $4 x
  007c:39 46            pushi 46 // $46 width
  007e:39 7d            pushi 7d // $7d set
  0080:39 1e            pushi 1e // $1e mode
  0082:78               push1 
  0083:39 53            pushi 53 // $53 draw
  0085:39 58            pushi 58 // $58 dispose
  0087:46 00ff 0000 16  calle ff procedure_0000 16 // Print 

  008d:48                 ret 
)

