(script 243)

(string
    string_09a8 "atsgl"
)

(said
    said_05e8 /*<actress>
    said_05f0 /*<attorney>
    said_05f8 /*<butler>
    said_0600 /*<c>
    said_0608 /*<celie>
    said_0610 /*<colonel>
    said_0618 /*<ethel>
    said_0620 /*<fifi>
    said_0628 /*<gertie>
    said_0630 /*<lil>
    said_0638 /*<rudolph>
    said_0640 /*>
    said_0645 //*>
    said_064b //acres>
    said_0651 //actress>
    said_0657 //attorney>
    said_065d //bag>
    said_0663 //beauregard>
    said_0669 //bible>
    said_066f //blaze>
    said_0675 //bone>
    said_067b //butler>
    said_0681 //butt>
    said_0687 //c>
    said_068d //cane>
    said_0693 //celie>
    said_0699 //colonel>
    said_069f //control>
    said_06a5 //crouton,frances,francois,claudette,s,claude,william>
    said_06bd //bourse>
    said_06c3 //agenda>
    said_06c9 //ethel>
    said_06cf //fifi>
    said_06d5 //gertie>
    said_06db //esprit>
    said_06e1 //handkerchief>
    said_06e7 //lil>
    said_06ed //magic>
    said_06f3 //collier>
    said_06f9 //parrot>
    said_06ff //rudolph>
    said_0705 //sarah,(crouton<sarah)>
    said_0713 //valve,fontainier>
    said_071c /acres>
    said_0721 /actress>
    said_0726 /attorney>
    said_072b /bag>
    said_0730 /beauregard>
    said_0735 /bible>
    said_073a /blaze>
    said_073f /bone>
    said_0744 /butler>
    said_0749 /butt>
    said_074e /c>
    said_0753 /cane>
    said_0758 /celie>
    said_075d /colonel>
    said_0762 /control>
    said_0767 /crouton,frances,francois,claudette,s,claude,william>
    said_077e /bourse>
    said_0783 /agenda>
    said_0788 /ethel>
    said_078d /fifi>
    said_0792 /gertie>
    said_0797 /esprit>
    said_079c /handkerchief>
    said_07a1 /lil>
    said_07a6 /magic>
    said_07ab /collier>
    said_07b0 /parrot>
    said_07b5 /rudolph>
    said_07ba /sarah,(crouton<sarah)>
    said_07c7 /valve,fontainier>
    said_07cf ask//*<about>
    said_07da embrace>
    said_07de draguer>
    said_07e2 get>
    said_07e6 deliver>
    said_07ea abattre>
    said_07ee embrasser>
    said_07f2 look>
    said_07f6 hold>
    said_07fa raconter//*<about>
)

(synonym
    acres | cour | domaine | estate | grounds | island | plantation | terrain | yard = mansion | residence
    acres | cour | domaine | estate | grounds | island | plantation | terrain | yard = cabin | cottage | demeure | dwelling | home | house | logement | maison | manoir | manor | manor-house | shack
)

(local
    local0 = $00f3
    local1 = $0000
    local2 = $00f3
    local3 = $0001
    local4 = $00f3
    local5 = $0002
    local6 = $00f3
    local7 = $0003
    local8 = $00f3
    local9 = $0004
    local10 = $00f3
    local11 = $0005
    local12 = $00f3
    local13 = $0006
    local14 = $00f3
    local15 = $0007
    local16 = $00f3
    local17 = $0008
    local18 = $00f3
    local19 = $0009
    local20 = $00f3
    local21 = $000a
    local22 = $00f3
    local23 = $000b
    local24 = $00f3
    local25 = $000c
    local26 = $00f3
    local27 = $000d
    local28 = $00f3
    local29 = $000e
    local30 = $00f3
    local31 = $000f
    local32 = $00f3
    local33 = $0010
    local34 = $00f3
    local35 = $0011
    local36 = $00f3
    local37 = $0012
    local38 = $00f3
    local39 = $0013
    local40 = $00f3
    local41 = $0014
    local42 = $07cf
    local43 = $07fa
    local44 = $07f6
    local45 = $07e6
    local46 = $07f2
    local47 = $07e2
    local48 = $07ea
    local49 = $07ee
    local50 = $07da
    local51 = $07de
    local52 = $0758
    local53 = $0726
    local54 = $075d
    local55 = $0788
    local56 = $078d
    local57 = $0792
    local58 = $0721
    local59 = $0744
    local60 = $07a1
    local61 = $07b5
    local62 = $074e
    local63 = $0730
    local64 = $073a
    local65 = $072b
    local66 = $0735
    local67 = $073f
    local68 = $0753
    local69 = $0749
    local70 = $0783
    local71 = $07c7
    local72 = $07ab
    local73 = $07a6
    local74 = $077e
    local75 = $0762
    local76 = $07b0
    local77 = $079c
    local78 = $07ba
    local79 = $0797
    local80 = $071c
    local81 = $0767
    local82 = $0608
    local83 = $05f0
    local84 = $0610
    local85 = $0618
    local86 = $0620
    local87 = $0628
    local88 = $05e8
    local89 = $05f8
    local90 = $0630
    local91 = $0638
    local92 = $0600
    local93 = $0693
    local94 = $0657
    local95 = $0699
    local96 = $06c9
    local97 = $06cf
    local98 = $06d5
    local99 = $0651
    local100 = $067b
    local101 = $06e7
    local102 = $06ff
    local103 = $0687
    local104 = $0663
    local105 = $066f
    local106 = $065d
    local107 = $0669
    local108 = $0675
    local109 = $068d
    local110 = $0681
    local111 = $06c3
    local112 = $0713
    local113 = $06f3
    local114 = $06ed
    local115 = $06bd
    local116 = $069f
    local117 = $06f9
    local118 = $06e1
    local119 = $0705
    local120 = $06db
    local121 = $064b
    local122 = $06a5
    local123 = $0001
    local124 = $0002
    local125 = $0003
    local126 = $0004
    local127 = $0005
    local128 = $0006
    local129 = $0007
    local130 = $0008
    local131 = $0009
    local132 = $000a
    local133 = $0002
    local134 = $0040
    local135 = $0200
    local136 = $0008
    local137 = $0010
    local138 = $0001
    local139 = $0004
    local140 = $0400
    local141 = $0020
    local142 = $0100
    local143 = $0080
    local144 = $2040
    local145 = $2080
    local146 = $2008
    local147 = $2800
    local148 = $2200
    local149 = $2004
    local150 = $2400
    local151 = $2020
    local152 = $2010
    local153 = $3000
    local154 = $4000
    local155 = $4001
    local156 = $2002
    local157 = $4004
    local158 = $4008
    local159 = $4010
    local160 = $4020
    local161 = $4040
    local162 = $4080
    local163 = $0001
    local164 = $0002
    local165 = $0003
    local166 = $0004
    local167 = $0005
    local168 = $0006
    local169 = $0007
    local170 = $0008
    local171 = $0009
    local172 = $000a
    local173 = $000b
    local174 = $0000
    local175 = $0000
    local176 = $0000
    local177 = $0000
    local178 = $0000
)

// 080c
(instance public atsgl of Script
    (properties
        client $0
        state $ffff
        start $0
        timer $0
        cycles $0
        seconds $0
        lastSeconds $0
        register $0
        script $0
        caller $0
    )
    (method (handleEvent) // method_0211
  0211:3f 04             link 4 // (var $4)
  0213:39 4c            pushi 4c // $4c claimed
  0215:76               push0 
  0216:87 01              lap param1 
  0218:4a 04             send 4 

  021a:31 03              bnt code_021f 
  021c:32 03ae            jmp code_05cd 

        code_021f
  021f:39 22            pushi 22 // $22 type
  0221:76               push0 
  0222:87 01              lap param1 
  0224:4a 04             send 4 

  0226:36                push 
  0227:34 0080            ldi 80 
  022a:1a                 eq? 
  022b:30 039f            bnt code_05cd 
  022e:35 00              ldi 0 
  0230:a0 00d4            sag global212 
  0233:a0 00d3            sag global211 
  0236:a0 00d2            sag global210 
  0239:87 01              lap param1 
  023b:a0 00d1            sag global209 
  023e:35 00              ldi 0 
  0240:a2 00ae            sal local174 

        code_0243
  0243:8a 00ae            lsl local174 
  0246:35 0a              ldi a 
  0248:22                 lt? 
  0249:31 43              bnt code_028e 
  024b:78               push1 
  024c:82 00ae            lal local174 
  024f:9b 2a             lsli local42 
  0251:43 25 02         callk Said 2 

  0254:31 33              bnt code_0289 
  0256:82 00ae            lal local174 
  0259:93 7b             lali local123 
  025b:a0 00d4            sag global212 
  025e:78               push1 
  025f:88 00d4            lsg global212 
  0262:3c                 dup 
  0263:35 01              ldi 1 
  0265:1a                 eq? 
  0266:31 04              bnt code_026c 
  0268:35 29              ldi 29 
  026a:33 16              jmp code_0282 

        code_026c
  026c:3c                 dup 
  026d:35 02              ldi 2 
  026f:1a                 eq? 
  0270:31 04              bnt code_0276 
  0272:35 2a              ldi 2a 
  0274:33 0c              jmp code_0282 

        code_0276
  0276:3c                 dup 
  0277:35 03              ldi 3 
  0279:1a                 eq? 
  027a:31 04              bnt code_0280 
  027c:35 2b              ldi 2b 
  027e:33 02              jmp code_0282 

        code_0280
  0280:35 2c              ldi 2c 

        code_0282
  0282:3a                toss 
  0283:36                push 
  0284:45 05 02         callb procedure_0005 2 // SetFlag 

  0287:33 05              jmp code_028e 

        code_0289
  0289:c2 00ae            +al local174 
  028c:33 b5              jmp code_0243 

        code_028e
  028e:88 00d4            lsg global212 
  0291:35 00              ldi 0 
  0293:1a                 eq? 
  0294:31 08              bnt code_029e 
  0296:76               push0 
  0297:40 fe73 00        call proc_010e 0 

  029b:48                 ret 
  029c:33 21              jmp code_02bf 

        code_029e
  029e:88 00d4            lsg global212 
  02a1:35 03              ldi 3 
  02a3:22                 lt? 
  02a4:31 07              bnt code_02ad 
  02a6:35 0b              ldi b 
  02a8:a2 00b0            sal local176 
  02ab:33 12              jmp code_02bf 

        code_02ad
  02ad:35 1e              ldi 1e 
  02af:a2 00b0            sal local176 
  02b2:88 00d4            lsg global212 
  02b5:35 05              ldi 5 
  02b7:22                 lt? 
  02b8:31 05              bnt code_02bf 
  02ba:35 01              ldi 1 
  02bc:a2 00b1            sal local177 

        code_02bf
  02bf:78               push1 
  02c0:74 037d          lofss $0640 // /*>
  02c3:43 25 02         callk Said 2 

  02c6:31 58              bnt code_0320 
  02c8:35 00              ldi 0 
  02ca:a2 00ae            sal local174 

        code_02cd
  02cd:8a 00ae            lsl local174 
  02d0:82 00b0            lal local176 
  02d3:22                 lt? 
  02d4:31 1b              bnt code_02f1 
  02d6:78               push1 
  02d7:82 00ae            lal local174 
  02da:9b 34             lsli local52 
  02dc:43 25 02         callk Said 2 

  02df:31 0b              bnt code_02ec 
  02e1:82 00ae            lal local174 
  02e4:92 0085           lali local133 
  02e7:a0 00d2            sag global210 
  02ea:33 05              jmp code_02f1 

        code_02ec
  02ec:c2 00ae            +al local174 
  02ef:33 dc              jmp code_02cd 

        code_02f1
  02f1:88 00d4            lsg global212 
  02f4:35 03              ldi 3 
  02f6:22                 lt? 
  02f7:31 15              bnt code_030e 
  02f9:80 00d2            lag global210 
  02fc:18                 not 
  02fd:2f 09               bt code_0308 
  02ff:88 00d2            lsg global210 
  0302:34 0800            ldi 800 
  0305:1e                 gt? 
  0306:31 06              bnt code_030e 

        code_0308
  0308:76               push0 
  0309:40 fe01 00        call proc_010e 0 

  030d:48                 ret 

        code_030e
  030e:82 00b1            lal local177 
  0311:31 0b              bnt code_031e 
  0313:80 00d2            lag global210 
  0316:18                 not 
  0317:31 05              bnt code_031e 
  0319:35 fe              ldi fe 
  031b:a0 00d2            sag global210 

        code_031e
  031e:33 1e              jmp code_033e 

        code_0320
  0320:88 00d4            lsg global212 
  0323:35 03              ldi 3 
  0325:22                 lt? 
  0326:2f 08               bt code_0330 
  0328:88 00d4            lsg global212 
  032b:35 0a              ldi a 
  032d:1a                 eq? 
  032e:31 08              bnt code_0338 

        code_0330
  0330:34 0800            ldi 800 
  0333:a0 00d2            sag global210 
  0336:33 06              jmp code_033e 

        code_0338
  0338:76               push0 
  0339:40 fdd1 00        call proc_010e 0 

  033d:48                 ret 

        code_033e
  033e:78               push1 
  033f:74 0303          lofss $0645 // //*>
  0342:43 25 02         callk Said 2 

  0345:30 00b4            bnt code_03fc 
  0348:35 00              ldi 0 
  034a:a5 02              sat temp2 
  034c:a5 00              sat temp0 
  034e:35 00              ldi 0 
  0350:a2 00ae            sal local174 

        code_0353
  0353:8a 00ae            lsl local174 
  0356:35 1e              ldi 1e 
  0358:22                 lt? 
  0359:31 3c              bnt code_0397 
  035b:78               push1 
  035c:82 00ae            lal local174 
  035f:9b 5d             lsli local93 
  0361:43 25 02         callk Said 2 

  0364:31 2c              bnt code_0392 
  0366:82 00ae            lal local174 
  0369:92 0085           lali local133 
  036c:a5 01              sat temp1 
  036e:88 00d3            lsg global211 
  0371:85 01              lat temp1 
  0373:14                  or 
  0374:a0 00d3            sag global211 
  0377:c5 02              +at temp2 
  0379:8d 01              lst temp1 
  037b:34 4010            ldi 4010 
  037e:1a                 eq? 
  037f:31 02              bnt code_0383 
  0381:33 14              jmp code_0397 

        code_0383
  0383:8d 01              lst temp1 
  0385:34 0800            ldi 800 
  0388:22                 lt? 
  0389:31 07              bnt code_0392 
  038b:8d 00              lst temp0 
  038d:85 01              lat temp1 
  038f:14                  or 
  0390:a5 00              sat temp0 

        code_0392
  0392:c2 00ae            +al local174 
  0395:33 bc              jmp code_0353 

        code_0397
  0397:88 00d4            lsg global212 
  039a:35 0a              ldi a 
  039c:1a                 eq? 
  039d:31 12              bnt code_03b1 
  039f:80 00d3            lag global211 
  03a2:31 0d              bnt code_03b1 
  03a4:80 00d3            lag global211 
  03a7:a0 00d2            sag global210 
  03aa:35 00              ldi 0 
  03ac:a0 00d3            sag global211 
  03af:33 4b              jmp code_03fc 

        code_03b1
  03b1:88 00d4            lsg global212 
  03b4:35 03              ldi 3 
  03b6:22                 lt? 
  03b7:31 43              bnt code_03fc 
  03b9:8d 00              lst temp0 
  03bb:80 00d0            lag global208 
  03be:12                 and 
  03bf:31 3b              bnt code_03fc 
  03c1:88 00d2            lsg global210 
  03c4:85 00              lat temp0 
  03c6:1a                 eq? 
  03c7:2f 17               bt code_03e0 
  03c9:8d 00              lst temp0 
  03cb:80 00d0            lag global208 
  03ce:1a                 eq? 
  03cf:2f 0f               bt code_03e0 
  03d1:88 00d2            lsg global210 
  03d4:34 0800            ldi 800 
  03d7:20                 ge? 
  03d8:31 22              bnt code_03fc 
  03da:80 00d6            lag global214 
  03dd:18                 not 
  03de:31 1c              bnt code_03fc 

        code_03e0
  03e0:8d 00              lst temp0 
  03e2:80 00d0            lag global208 
  03e5:12                 and 
  03e6:a2 00af            sal local175 
  03e9:35 03              ldi 3 
  03eb:a2 00b2            sal local178 
  03ee:78               push1 
  03ef:88 00d4            lsg global212 
  03f2:40 fd89 02        call proc_017f 2 

  03f6:76               push0 
  03f7:40 fd13 00        call proc_010e 0 

  03fb:48                 ret 

        code_03fc
  03fc:88 00d4            lsg global212 
  03ff:35 03              ldi 3 
  0401:22                 lt? 
  0402:31 37              bnt code_043b 
  0404:8d 02              lst temp2 
  0406:35 01              ldi 1 
  0408:1e                 gt? 
  0409:31 30              bnt code_043b 
  040b:88 00d3            lsg global211 
  040e:34 0800            ldi 800 
  0411:1e                 gt? 
  0412:31 27              bnt code_043b 
  0414:88 00d2            lsg global210 
  0417:34 0800            ldi 800 
  041a:22                 lt? 
  041b:31 08              bnt code_0425 
  041d:80 00d2            lag global210 
  0420:a2 00af            sal local175 
  0423:33 05              jmp code_042a 

        code_0425
  0425:35 00              ldi 0 
  0427:a2 00af            sal local175 

        code_042a
  042a:35 00              ldi 0 
  042c:a2 00b2            sal local178 
  042f:78               push1 
  0430:78               push1 
  0431:40 fd4a 02        call proc_017f 2 

  0435:76               push0 
  0436:40 fcd4 00        call proc_010e 0 

  043a:48                 ret 

        code_043b
  043b:82 00b1            lal local177 
  043e:31 5a              bnt code_049a 
  0440:80 00d2            lag global210 
  0443:31 55              bnt code_049a 
  0445:80 00d3            lag global211 
  0448:18                 not 
  0449:31 4f              bnt code_049a 
  044b:88 00d2            lsg global210 
  044e:34 7fff            ldi 7fff 
  0451:12                 and 
  0452:36                push 
  0453:34 0800            ldi 800 
  0456:1e                 gt? 
  0457:31 41              bnt code_049a 
  0459:80 00d2            lag global210 
  045c:a0 00d3            sag global211 
  045f:35 00              ldi 0 
  0461:a0 00d2            sag global210 
  0464:35 00              ldi 0 
  0466:a2 00ae            sal local174 

        code_0469
  0469:8a 00ae            lsl local174 
  046c:35 0b              ldi b 
  046e:22                 lt? 
  046f:31 1d              bnt code_048e 
  0471:78               push1 
  0472:82 00ae            lal local174 
  0475:9b 52             lsli local82 
  0477:43 25 02         callk Said 2 

  047a:31 0d              bnt code_0489 
  047c:88 00d2            lsg global210 
  047f:82 00ae            lal local174 
  0482:92 0085           lali local133 
  0485:14                  or 
  0486:a0 00d2            sag global210 

        code_0489
  0489:c2 00ae            +al local174 
  048c:33 db              jmp code_0469 

        code_048e
  048e:80 00d2            lag global210 
  0491:18                 not 
  0492:31 06              bnt code_049a 
  0494:34 0800            ldi 800 
  0497:a0 00d2            sag global210 

        code_049a
  049a:82 00b1            lal local177 
  049d:31 54              bnt code_04f3 
  049f:80 00e0            lag global224 
  04a2:31 4a              bnt code_04ee 
  04a4:80 00d3            lag global211 
  04a7:18                 not 
  04a8:31 1b              bnt code_04c5 
  04aa:88 00d2            lsg global210 
  04ad:34 7fff            ldi 7fff 
  04b0:12                 and 
  04b1:36                push 
  04b2:34 0800            ldi 800 
  04b5:1e                 gt? 
  04b6:31 06              bnt code_04be 
  04b8:34 0800            ldi 800 
  04bb:a0 00d2            sag global210 

        code_04be
  04be:35 fe              ldi fe 
  04c0:a0 00d3            sag global211 
  04c3:33 27              jmp code_04ec 

        code_04c5
  04c5:88 00d3            lsg global211 
  04c8:80 00d0            lag global208 
  04cb:12                 and 
  04cc:31 1e              bnt code_04ec 
  04ce:88 00d2            lsg global210 
  04d1:34 7fff            ldi 7fff 
  04d4:12                 and 
  04d5:36                push 
  04d6:34 0800            ldi 800 
  04d9:1e                 gt? 
  04da:31 10              bnt code_04ec 
  04dc:80 00d2            lag global210 
  04df:a5 00              sat temp0 
  04e1:80 00d3            lag global211 
  04e4:a0 00d2            sag global210 
  04e7:85 00              lat temp0 
  04e9:a0 00d3            sag global211 

        code_04ec
  04ec:33 05              jmp code_04f3 

        code_04ee
  04ee:35 00              ldi 0 
  04f0:a0 00d4            sag global212 

        code_04f3
  04f3:88 00d2            lsg global210 
  04f6:34 7fff            ldi 7fff 
  04f9:12                 and 
  04fa:36                push 
  04fb:34 0800            ldi 800 
  04fe:22                 lt? 
  04ff:31 40              bnt code_0541 
  0501:80 00d2            lag global210 
  0504:a5 03              sat temp3 
  0506:31 39              bnt code_0541 

        code_0508
  0508:35 01              ldi 1 
  050a:31 12              bnt code_051e 
  050c:8d 03              lst temp3 
  050e:35 01              ldi 1 
  0510:12                 and 
  0511:31 02              bnt code_0515 
  0513:33 09              jmp code_051e 

        code_0515
  0515:8d 03              lst temp3 
  0517:35 01              ldi 1 
  0519:0c                 shr 
  051a:a5 03              sat temp3 
  051c:33 ea              jmp code_0508 

        code_051e
  051e:8d 03              lst temp3 
  0520:35 01              ldi 1 
  0522:0c                 shr 
  0523:a5 03              sat temp3 
  0525:31 1a              bnt code_0541 
  0527:7a               push2 
  0528:38 00f3          pushi f3 // $f3 close
  052b:39 15            pushi 15 // $15 brBottom
  052d:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0533:39 4c            pushi 4c // $4c claimed
  0535:78               push1 
  0536:78               push1 
  0537:87 01              lap param1 
  0539:4a 06             send 6 

  053b:76               push0 
  053c:40 fbce 00        call proc_010e 0 

  0540:48                 ret 

        code_0541
  0541:80 00d4            lag global212 
  0544:30 0086            bnt code_05cd 
  0547:88 00d3            lsg global211 
  054a:80 00d2            lag global210 
  054d:1c                 ne? 
  054e:31 7d              bnt code_05cd 
  0550:88 00d4            lsg global212 
  0553:35 05              ldi 5 
  0555:1a                 eq? 
  0556:31 06              bnt code_055e 
  0558:80 00d2            lag global210 
  055b:a0 00d3            sag global211 

        code_055e
  055e:35 00              ldi 0 
  0560:a2 00af            sal local175 
  0563:88 00d2            lsg global210 
  0566:34 0800            ldi 800 
  0569:1a                 eq? 
  056a:31 3d              bnt code_05a9 
  056c:88 00d0            lsg global208 
  056f:80 00d3            lag global211 
  0572:12                 and 
  0573:31 1d              bnt code_0592 
  0575:88 00d3            lsg global211 
  0578:34 7fff            ldi 7fff 
  057b:12                 and 
  057c:36                push 
  057d:34 0800            ldi 800 
  0580:22                 lt? 
  0581:31 0f              bnt code_0592 
  0583:88 00d0            lsg global208 
  0586:80 00d3            lag global211 
  0589:10                 xor 
  058a:a0 00d2            sag global210 
  058d:a2 00af            sal local175 
  0590:33 15              jmp code_05a7 

        code_0592
  0592:80 00d6            lag global214 
  0595:18                 not 
  0596:31 06              bnt code_059e 
  0598:80 00d0            lag global208 
  059b:a0 00d6            sag global214 

        code_059e
  059e:80 00d6            lag global214 
  05a1:a0 00d2            sag global210 
  05a4:a2 00af            sal local175 

        code_05a7
  05a7:33 18              jmp code_05c1 

        code_05a9
  05a9:88 00d0            lsg global208 
  05ac:80 00d2            lag global210 
  05af:12                 and 
  05b0:a2 00af            sal local175 
  05b3:88 00d4            lsg global212 
  05b6:35 04              ldi 4 
  05b8:1e                 gt? 
  05b9:31 06              bnt code_05c1 
  05bb:82 00af            lal local175 
  05be:a0 00d3            sag global211 

        code_05c1
  05c1:82 00af            lal local175 
  05c4:31 07              bnt code_05cd 
  05c6:78               push1 
  05c7:8f 01              lsp param1 
  05c9:40 fb5b 02        call proc_0128 2 


        code_05cd
  05cd:39 7a            pushi 7a // $7a setScript
  05cf:78               push1 
  05d0:76               push0 
  05d1:63 08             pToa client 
  05d3:4a 06             send 6 

  05d5:48                 ret 
    )

    (method (dispose) // method_05d6
  05d6:39 58            pushi 58 // $58 dispose
  05d8:76               push0 
  05d9:57 05 04         super Script 4 

  05dc:78               push1 
  05dd:38 00f3          pushi f3 // $f3 close
  05e0:43 03 02         callk DisposeScript 2 

  05e3:48                 ret 
    )

)


// EXPORTED procedure #1 (proc243_1)
(procedure proc_001c
  001c:3f 02             link 2 // (var $2)
  001e:88 00d4            lsg global212 
  0021:35 05              ldi 5 
  0023:1a                 eq? 
  0024:a5 01              sat temp1 
  0026:31 35              bnt code_005d 
  0028:88 00d2            lsg global210 
  002b:34 7fff            ldi 7fff 
  002e:12                 and 
  002f:36                push 
  0030:34 0800            ldi 800 
  0033:22                 lt? 
  0034:31 24              bnt code_005a 
  0036:88 00cf            lsg global207 
  0039:80 00d2            lag global210 
  003c:12                 and 
  003d:18                 not 
  003e:31 1a              bnt code_005a 
  0040:39 4c            pushi 4c // $4c claimed
  0042:78               push1 
  0043:78               push1 
  0044:80 00d1            lag global209 
  0047:4a 06             send 6 

  0049:88 00cf            lsg global207 
  004c:80 00d2            lag global210 
  004f:14                  or 
  0050:a0 00cf            sag global207 
  0053:78               push1 
  0054:76               push0 
  0055:59 02            &rest 2 
  0057:45 01 02         callb procedure_0001 2 // Say 


        code_005a
  005a:32 0099            jmp code_00f6 

        code_005d
  005d:88 00d5            lsg global213 
  0060:35 01              ldi 1 
  0062:04                 sub 
  0063:36                push 
  0064:35 07              ldi 7 
  0066:06                 mul 
  0067:a2 00ae            sal local174 
  006a:36                push 
  006b:8f 01              lsp param1 
  006d:35 10              ldi 10 
  006f:08                 div 
  0070:02                 add 
  0071:a2 00ae            sal local174 
  0074:78               push1 
  0075:8f 01              lsp param1 
  0077:35 10              ldi 10 
  0079:0a                 mod 
  007a:0e                 shl 
  007b:a5 00              sat temp0 
  007d:39 4c            pushi 4c // $4c claimed
  007f:78               push1 
  0080:78               push1 
  0081:80 00d1            lag global209 
  0084:4a 06             send 6 

  0086:82 00ae            lal local174 
  0089:98 00e1           lsgi global225 
  008c:85 00              lat temp0 
  008e:12                 and 
  008f:a5 01              sat temp1 
  0091:31 4c              bnt code_00df 
  0093:88 00d3            lsg global211 
  0096:34 4080            ldi 4080 
  0099:1c                 ne? 
  009a:31 43              bnt code_00df 
  009c:88 00d4            lsg global212 
  009f:35 01              ldi 1 
  00a1:04                 sub 
  00a2:36                push 
  00a3:35 02              ldi 2 
  00a5:06                 mul 
  00a6:a2 00b2            sal local178 
  00a9:88 00d5            lsg global213 
  00ac:3c                 dup 
  00ad:35 02              ldi 2 
  00af:1a                 eq? 
  00b0:31 0b              bnt code_00bd 
  00b2:8a 00b2            lsl local178 
  00b5:35 08              ldi 8 
  00b7:02                 add 
  00b8:a2 00b2            sal local178 
  00bb:33 0f              jmp code_00cc 

        code_00bd
  00bd:3c                 dup 
  00be:35 05              ldi 5 
  00c0:1a                 eq? 
  00c1:31 09              bnt code_00cc 
  00c3:8a 00b2            lsl local178 
  00c6:35 10              ldi 10 
  00c8:02                 add 
  00c9:a2 00b2            sal local178 

        code_00cc
  00cc:3a                toss 
  00cd:39 03            pushi 3 // $3 y
  00cf:78               push1 
  00d0:82 00b2            lal local178 
  00d3:9b 12             lsli local18 
  00d5:c2 00b2            +al local178 
  00d8:9b 12             lsli local18 
  00da:45 01 06         callb procedure_0001 6 // Say 

  00dd:33 17              jmp code_00f6 

        code_00df
  00df:82 00ae            lal local174 
  00e2:98 00e1           lsgi global225 
  00e5:85 00              lat temp0 
  00e7:14                  or 
  00e8:36                push 
  00e9:82 00ae            lal local174 
  00ec:b0 00e1           sagi global225 
  00ef:78               push1 
  00f0:78               push1 
  00f1:59 02            &rest 2 
  00f3:45 01 02         callb procedure_0001 2 // Say 


        code_00f6
  00f6:39 2d            pushi 2d // $2d client
  00f8:76               push0 
  00f9:72 0716          lofsa $0812 // atsgl
  00fc:4a 04             send 4 

  00fe:31 05              bnt code_0105 
  0100:85 01              lat temp1 
  0102:48                 ret 
  0103:33 08              jmp code_010d 

        code_0105
  0105:39 58            pushi 58 // $58 dispose
  0107:76               push0 
  0108:72 0707          lofsa $0812 // atsgl
  010b:4a 04             send 4 


        code_010d
  010d:48                 ret 
)


(procedure proc_010e
  010e:35 00              ldi 0 
  0110:a0 00d3            sag global211 
  0113:a0 00d2            sag global210 
  0116:a0 00d4            sag global212 
  0119:39 7a            pushi 7a // $7a setScript
  011b:78               push1 
  011c:76               push0 
  011d:39 2d            pushi 2d // $2d client
  011f:76               push0 
  0120:72 06ef          lofsa $0812 // atsgl
  0123:4a 04             send 4 

  0125:4a 06             send 6 

  0127:48                 ret 
)

(procedure proc_0128
  0128:3f 02             link 2 // (var $2)
  012a:35 00              ldi 0 
  012c:a5 00              sat temp0 

        code_012e
  012e:82 00af            lal local175 
  0131:31 4b              bnt code_017e 
  0133:8a 00af            lsl local175 
  0136:35 01              ldi 1 
  0138:12                 and 
  0139:31 36              bnt code_0171 
  013b:85 00              lat temp0 
  013d:90 0179           lagi global377 
  0140:a5 01              sat temp1 
  0142:31 2d              bnt code_0171 
  0144:85 00              lat temp0 
  0146:92 00a3           lali local163 
  0149:a0 00d5            sag global213 
  014c:80 00d3            lag global211 
  014f:31 1e              bnt code_016f 
  0151:39 7a            pushi 7a // $7a setScript
  0153:78               push1 
  0154:78               push1 
  0155:8d 01              lst temp1 
  0157:43 02 02         callk ScriptID 2 

  015a:36                push 
  015b:72 06b4          lofsa $0812 // atsgl
  015e:4a 06             send 6 

  0160:39 6f            pushi 6f // $6f handleEvent
  0162:78               push1 
  0163:8f 01              lsp param1 
  0165:39 76            pushi 76 // $76 script
  0167:76               push0 
  0168:72 06a7          lofsa $0812 // atsgl
  016b:4a 04             send 4 

  016d:4a 06             send 6 


        code_016f
  016f:33 0d              jmp code_017e 

        code_0171
  0171:8a 00af            lsl local175 
  0174:35 01              ldi 1 
  0176:0c                 shr 
  0177:a2 00af            sal local175 
  017a:c5 00              +at temp0 
  017c:33 b0              jmp code_012e 

        code_017e
  017e:48                 ret 
)

(procedure proc_017f
  017f:3f 01             link 1 // (var $1)
  0181:39 4c            pushi 4c // $4c claimed
  0183:78               push1 
  0184:78               push1 
  0185:80 00d1            lag global209 
  0188:4a 06             send 6 

  018a:82 00af            lal local175 
  018d:18                 not 
  018e:31 0f              bnt code_019f 
  0190:80 00d6            lag global214 
  0193:a2 00af            sal local175 
  0196:18                 not 
  0197:31 06              bnt code_019f 
  0199:80 00d0            lag global208 
  019c:a2 00af            sal local175 

        code_019f
  019f:35 00              ldi 0 
  01a1:a0 00d3            sag global211 
  01a4:76               push0 
  01a5:40 ff7f 00        call proc_0128 0 

  01a9:8a 00b2            lsl local178 
  01ac:88 00d5            lsg global213 
  01af:3c                 dup 
  01b0:35 02              ldi 2 
  01b2:1a                 eq? 
  01b3:31 04              bnt code_01b9 
  01b5:35 02              ldi 2 
  01b7:33 0c              jmp code_01c5 

        code_01b9
  01b9:3c                 dup 
  01ba:35 05              ldi 5 
  01bc:1a                 eq? 
  01bd:31 04              bnt code_01c3 
  01bf:35 04              ldi 4 
  01c1:33 02              jmp code_01c5 

        code_01c3
  01c3:35 00              ldi 0 

        code_01c5
  01c5:3a                toss 
  01c6:02                 add 
  01c7:a5 00              sat temp0 
  01c9:82 00b2            lal local178 
  01cc:31 0f              bnt code_01dd 
  01ce:8d 00              lst temp0 
  01d0:8f 01              lsp param1 
  01d2:35 01              ldi 1 
  01d4:04                 sub 
  01d5:02                 add 
  01d6:36                push 
  01d7:35 02              ldi 2 
  01d9:06                 mul 
  01da:a2 00b2            sal local178 

        code_01dd
  01dd:8f 01              lsp param1 
  01df:35 01              ldi 1 
  01e1:1a                 eq? 
  01e2:31 1c              bnt code_0200 
  01e4:8a 00b2            lsl local178 
  01e7:35 05              ldi 5 
  01e9:1e                 gt? 
  01ea:31 14              bnt code_0200 
  01ec:39 03            pushi 3 // $3 y
  01ee:39 6f            pushi 6f // $6f handleEvent
  01f0:82 00b2            lal local178 
  01f3:9b 00             lsli local0 
  01f5:c2 00b2            +al local178 
  01f8:9b 00             lsli local0 
  01fa:40 fe1e 06        call proc_001c 6 

  01fe:33 10              jmp code_0210 

        code_0200
  0200:39 03            pushi 3 // $3 y
  0202:78               push1 
  0203:82 00b2            lal local178 
  0206:9b 00             lsli local0 
  0208:c2 00b2            +al local178 
  020b:9b 00             lsli local0 
  020d:45 01 06         callb procedure_0001 6 // Say 


        code_0210
  0210:48                 ret 
)

