(script 999)

(string
    string_06ec "Code"
    string_06f1 "Collect"
    string_06f9 "Event"
    string_06ff "EventHandler"
    string_070c "Obj"
    string_0710 "Script"
    string_0717 "Set"
    string_071b ""
)

(said
)

(local
)

// 051a
(class Obj of 
    (properties
    )
    (method (new) // method_00b9
  00b9:78               push1 
  00ba:7c            pushSelf 
  00bb:43 04 02         callk Clone 2 

  00be:48                 ret 
    )

    (method (init) // method_00bf
  00bf:48                 ret 
    )

    (method (doit) // method_00c0
  00c0:5c              selfID 
  00c1:48                 ret 
    )

    (method (dispose) // method_00c2
  00c2:78               push1 
  00c3:7c            pushSelf 
  00c4:43 05 02         callk DisposeClone 2 

  00c7:48                 ret 
    )

    (method (showStr) // method_00c8
  00c8:7a               push2 
  00c9:8f 01              lsp param1 
  00cb:67 06             pTos name 
  00cd:43 4b 04         callk StrCpy 4 

  00d0:48                 ret 
    )

    (method (showSelf) // method_00d1
  00d1:3e 00c8           link c8 // (var $c8)
  00d4:78               push1 
  00d5:39 59            pushi 59 // $59 showStr
  00d7:78               push1 
  00d8:5b 04 00           lea 4 0 
  00db:36                push 
  00dc:54 06             self 6 

  00de:36                push 
  00df:46 00ff 0000 02  calle ff procedure_0000 2 // Print 

  00e5:48                 ret 
    )

    (method (perform) // method_00e6
  00e6:39 3c            pushi 3c // $3c doit
  00e8:78               push1 
  00e9:7c            pushSelf 
  00ea:59 02            &rest 2 
  00ec:87 01              lap param1 
  00ee:4a 06             send 6 

  00f0:48                 ret 
    )

    (method (respondsTo) // method_00f1
  00f1:7a               push2 
  00f2:7c            pushSelf 
  00f3:8f 01              lsp param1 
  00f5:43 07 04         callk RespondsTo 4 

  00f8:48                 ret 
    )

    (method (isMemberOf) // method_00f9
  00f9:7a               push2 
  00fa:76               push0 
  00fb:87 01              lap param1 
  00fd:4a 04             send 4 

  00ff:36                push 
  0100:34 8000            ldi 8000 
  0103:12                 and 
  0104:31 16              bnt code_011c 
  0106:67 04             pTos -info- 
  0108:34 8000            ldi 8000 
  010b:12                 and 
  010c:18                 not 
  010d:31 0d              bnt code_011c 
  010f:67 00             pTos species 
  0111:76               push0 
  0112:76               push0 
  0113:87 01              lap param1 
  0115:4a 04             send 4 

  0117:1a                 eq? 
  0118:31 02              bnt code_011c 
  011a:35 01              ldi 1 

        code_011c
  011c:48                 ret 
    )

    (method (isKindOf) // method_011d
  011d:3f 01             link 1 // (var $1)
  011f:78               push1 
  0120:76               push0 
  0121:54 04             self 4 

  0123:a5 00              sat temp0 
  0125:67 00             pTos species 
  0127:76               push0 
  0128:76               push0 
  0129:87 01              lap param1 
  012b:4a 04             send 4 

  012d:1a                 eq? 
  012e:2f 13               bt code_0143 
  0130:78               push1 
  0131:8d 00              lst temp0 
  0133:43 06 02         callk IsObject 2 

  0136:31 0d              bnt code_0145 
  0138:39 5c            pushi 5c // $5c isKindOf
  013a:78               push1 
  013b:8f 01              lsp param1 
  013d:85 00              lat temp0 
  013f:4a 06             send 6 

  0141:31 02              bnt code_0145 

        code_0143
  0143:35 01              ldi 1 

        code_0145
  0145:48                 ret 
    )

    (method (yourself) // method_0146
  0146:5c              selfID 
  0147:48                 ret 
    )

)

// 0566
(class Code of Obj
    (properties
    )
    (method (doit) // method_0148
  0148:48                 ret 
    )

)

// 058a
(class Collect of Obj
    (properties
        elements $0
        size $0
    )
    (method (add) // method_0149
  0149:3f 03             link 3 // (var $3)
  014b:63 08             pToa elements 
  014d:18                 not 
  014e:31 06              bnt code_0156 
  0150:76               push0 
  0151:43 32 00         callk NewList 0 

  0154:65 08             aTop elements 

        code_0156
  0156:35 00              ldi 0 
  0158:a5 01              sat temp1 

        code_015a
  015a:8d 01              lst temp1 
  015c:87 00              lap paramTotal 
  015e:22                 lt? 
  015f:31 19              bnt code_017a 
  0161:7a               push2 
  0162:67 08             pTos elements 
  0164:7a               push2 
  0165:85 01              lat temp1 
  0167:9f 01             lspi param1 
  0169:85 01              lat temp1 
  016b:9f 01             lspi param1 
  016d:43 34 04         callk NewNode 4 

  0170:36                push 
  0171:43 3d 04         callk AddToEnd 4 

  0174:6b 0a            ipToa size 
  0176:c5 01              +at temp1 
  0178:33 e0              jmp code_015a 

        code_017a
  017a:5c              selfID 
  017b:48                 ret 
    )

    (method (delete) // method_017c
  017c:3f 01             link 1 // (var $1)
  017e:35 00              ldi 0 
  0180:a5 00              sat temp0 

        code_0182
  0182:8d 00              lst temp0 
  0184:87 00              lap paramTotal 
  0186:22                 lt? 
  0187:31 12              bnt code_019b 
  0189:7a               push2 
  018a:67 08             pTos elements 
  018c:85 00              lat temp0 
  018e:9f 01             lspi param1 
  0190:43 3f 04         callk DeleteKey 4 

  0193:31 02              bnt code_0197 
  0195:6d 0a            dpToa size 

        code_0197
  0197:c5 00              +at temp0 
  0199:33 e7              jmp code_0182 

        code_019b
  019b:5c              selfID 
  019c:48                 ret 
    )

    (method (dispose) // method_019d
  019d:63 08             pToa elements 
  019f:31 0d              bnt code_01ae 
  01a1:39 62            pushi 62 // $62 eachElementDo
  01a3:78               push1 
  01a4:39 58            pushi 58 // $58 dispose
  01a6:54 06             self 6 

  01a8:78               push1 
  01a9:67 08             pTos elements 
  01ab:43 33 02         callk DisposeList 2 


        code_01ae
  01ae:35 00              ldi 0 
  01b0:65 08             aTop elements 
  01b2:65 0a             aTop size 
  01b4:39 58            pushi 58 // $58 dispose
  01b6:76               push0 
  01b7:57 00 04         super Obj 4 

  01ba:48                 ret 
    )

    (method (first) // method_01bb
  01bb:78               push1 
  01bc:67 08             pTos elements 
  01be:43 35 02         callk FirstNode 2 

  01c1:48                 ret 
    )

    (method (next) // method_01c2
  01c2:78               push1 
  01c3:8f 01              lsp param1 
  01c5:43 38 02         callk NextNode 2 

  01c8:48                 ret 
    )

    (method (isEmpty) // method_01c9
  01c9:67 08             pTos elements 
  01cb:35 00              ldi 0 
  01cd:1a                 eq? 
  01ce:2f 08               bt code_01d8 
  01d0:78               push1 
  01d1:67 08             pTos elements 
  01d3:43 37 02         callk EmptyList 2 

  01d6:31 02              bnt code_01da 

        code_01d8
  01d8:35 01              ldi 1 

        code_01da
  01da:48                 ret 
    )

    (method (contains) // method_01db
  01db:7a               push2 
  01dc:67 08             pTos elements 
  01de:8f 01              lsp param1 
  01e0:43 3e 04         callk FindKey 4 

  01e3:48                 ret 
    )

    (method (eachElementDo) // method_01e4
  01e4:3f 03             link 3 // (var $3)
  01e6:78               push1 
  01e7:67 08             pTos elements 
  01e9:43 35 02         callk FirstNode 2 

  01ec:a5 00              sat temp0 

        code_01ee
  01ee:85 00              lat temp0 
  01f0:31 28              bnt code_021a 
  01f2:78               push1 
  01f3:8d 00              lst temp0 
  01f5:43 38 02         callk NextNode 2 

  01f8:a5 01              sat temp1 
  01fa:78               push1 
  01fb:78               push1 
  01fc:8d 00              lst temp0 
  01fe:43 3a 02         callk NodeValue 2 

  0201:a5 02              sat temp2 
  0203:36                push 
  0204:43 06 02         callk IsObject 2 

  0207:18                 not 
  0208:31 01              bnt code_020b 
  020a:48                 ret 

        code_020b
  020b:8f 01              lsp param1 
  020d:76               push0 
  020e:59 02            &rest 2 
  0210:85 02              lat temp2 
  0212:4a 04             send 4 

  0214:85 01              lat temp1 
  0216:a5 00              sat temp0 
  0218:33 d4              jmp code_01ee 

        code_021a
  021a:48                 ret 
    )

    (method (firstTrue) // method_021b
  021b:3f 03             link 3 // (var $3)
  021d:78               push1 
  021e:67 08             pTos elements 
  0220:43 35 02         callk FirstNode 2 

  0223:a5 00              sat temp0 

        code_0225
  0225:85 00              lat temp0 
  0227:31 24              bnt code_024d 
  0229:78               push1 
  022a:8d 00              lst temp0 
  022c:43 38 02         callk NextNode 2 

  022f:a5 01              sat temp1 
  0231:78               push1 
  0232:8d 00              lst temp0 
  0234:43 3a 02         callk NodeValue 2 

  0237:a5 02              sat temp2 
  0239:8f 01              lsp param1 
  023b:76               push0 
  023c:59 02            &rest 2 
  023e:85 02              lat temp2 
  0240:4a 04             send 4 

  0242:31 03              bnt code_0247 
  0244:85 02              lat temp2 
  0246:48                 ret 

        code_0247
  0247:85 01              lat temp1 
  0249:a5 00              sat temp0 
  024b:33 d8              jmp code_0225 

        code_024d
  024d:35 00              ldi 0 
  024f:48                 ret 
    )

    (method (allTrue) // method_0250
  0250:3f 03             link 3 // (var $3)
  0252:78               push1 
  0253:67 08             pTos elements 
  0255:43 35 02         callk FirstNode 2 

  0258:a5 00              sat temp0 

        code_025a
  025a:85 00              lat temp0 
  025c:31 25              bnt code_0283 
  025e:78               push1 
  025f:8d 00              lst temp0 
  0261:43 38 02         callk NextNode 2 

  0264:a5 01              sat temp1 
  0266:78               push1 
  0267:8d 00              lst temp0 
  0269:43 3a 02         callk NodeValue 2 

  026c:a5 02              sat temp2 
  026e:8f 01              lsp param1 
  0270:76               push0 
  0271:59 02            &rest 2 
  0273:85 02              lat temp2 
  0275:4a 04             send 4 

  0277:18                 not 
  0278:31 03              bnt code_027d 
  027a:35 00              ldi 0 
  027c:48                 ret 

        code_027d
  027d:85 01              lat temp1 
  027f:a5 00              sat temp0 
  0281:33 d7              jmp code_025a 

        code_0283
  0283:35 01              ldi 1 
  0285:48                 ret 
    )

    (method (release) // method_0286
  0286:3f 02             link 2 // (var $2)
  0288:78               push1 
  0289:67 08             pTos elements 
  028b:43 35 02         callk FirstNode 2 

  028e:a5 00              sat temp0 

        code_0290
  0290:85 00              lat temp0 
  0292:31 1a              bnt code_02ae 
  0294:78               push1 
  0295:8d 00              lst temp0 
  0297:43 38 02         callk NextNode 2 

  029a:a5 01              sat temp1 
  029c:39 54            pushi 54 // $54 delete
  029e:78               push1 
  029f:78               push1 
  02a0:8d 00              lst temp0 
  02a2:43 3a 02         callk NodeValue 2 

  02a5:36                push 
  02a6:54 06             self 6 

  02a8:85 01              lat temp1 
  02aa:a5 00              sat temp0 
  02ac:33 e2              jmp code_0290 

        code_02ae
  02ae:48                 ret 
    )

    (method (at) // method_02af
  02af:3f 01             link 1 // (var $1)
  02b1:78               push1 
  02b2:67 08             pTos elements 
  02b4:43 35 02         callk FirstNode 2 

  02b7:a5 00              sat temp0 

        code_02b9
  02b9:87 01              lap param1 
  02bb:31 10              bnt code_02cd 
  02bd:85 00              lat temp0 
  02bf:31 0c              bnt code_02cd 
  02c1:e7 01              -ap param1 
  02c3:78               push1 
  02c4:8d 00              lst temp0 
  02c6:43 38 02         callk NextNode 2 

  02c9:a5 00              sat temp0 
  02cb:33 ec              jmp code_02b9 

        code_02cd
  02cd:78               push1 
  02ce:8d 00              lst temp0 
  02d0:43 3a 02         callk NodeValue 2 

  02d3:48                 ret 
    )

    (method (last) // method_02d4
  02d4:78               push1 
  02d5:67 08             pTos elements 
  02d7:43 36 02         callk LastNode 2 

  02da:48                 ret 
    )

    (method (prev) // method_02db
  02db:78               push1 
  02dc:8f 01              lsp param1 
  02de:43 39 02         callk PrevNode 2 

  02e1:48                 ret 
    )

    (method (addToFront) // method_02e2
  02e2:3f 01             link 1 // (var $1)
  02e4:63 08             pToa elements 
  02e6:18                 not 
  02e7:31 06              bnt code_02ef 
  02e9:76               push0 
  02ea:43 32 00         callk NewList 0 

  02ed:65 08             aTop elements 

        code_02ef
  02ef:8f 00              lsp paramTotal 
  02f1:35 01              ldi 1 
  02f3:04                 sub 
  02f4:a5 00              sat temp0 

        code_02f6
  02f6:76               push0 
  02f7:85 00              lat temp0 
  02f9:24                 le? 
  02fa:31 19              bnt code_0315 
  02fc:7a               push2 
  02fd:67 08             pTos elements 
  02ff:7a               push2 
  0300:85 00              lat temp0 
  0302:9f 01             lspi param1 
  0304:85 00              lat temp0 
  0306:9f 01             lspi param1 
  0308:43 34 04         callk NewNode 4 

  030b:36                push 
  030c:43 3c 04         callk AddToFront 4 

  030f:6b 0a            ipToa size 
  0311:e5 00              -at temp0 
  0313:33 e1              jmp code_02f6 

        code_0315
  0315:5c              selfID 
  0316:48                 ret 
    )

    (method (addToEnd) // method_0317
  0317:3f 01             link 1 // (var $1)
  0319:63 08             pToa elements 
  031b:18                 not 
  031c:31 06              bnt code_0324 
  031e:76               push0 
  031f:43 32 00         callk NewList 0 

  0322:65 08             aTop elements 

        code_0324
  0324:35 00              ldi 0 
  0326:a5 00              sat temp0 

        code_0328
  0328:8d 00              lst temp0 
  032a:87 00              lap paramTotal 
  032c:22                 lt? 
  032d:31 19              bnt code_0348 
  032f:7a               push2 
  0330:67 08             pTos elements 
  0332:7a               push2 
  0333:85 00              lat temp0 
  0335:9f 01             lspi param1 
  0337:85 00              lat temp0 
  0339:9f 01             lspi param1 
  033b:43 34 04         callk NewNode 4 

  033e:36                push 
  033f:43 3d 04         callk AddToEnd 4 

  0342:6b 0a            ipToa size 
  0344:c5 00              +at temp0 
  0346:33 e0              jmp code_0328 

        code_0348
  0348:5c              selfID 
  0349:48                 ret 
    )

    (method (indexOf) // method_034a
  034a:3f 02             link 2 // (var $2)
  034c:35 00              ldi 0 
  034e:a5 00              sat temp0 
  0350:78               push1 
  0351:67 08             pTos elements 
  0353:43 35 02         callk FirstNode 2 

  0356:a5 01              sat temp1 

        code_0358
  0358:85 01              lat temp1 
  035a:31 1a              bnt code_0376 
  035c:8f 01              lsp param1 
  035e:78               push1 
  035f:8d 01              lst temp1 
  0361:43 3a 02         callk NodeValue 2 

  0364:1a                 eq? 
  0365:31 03              bnt code_036a 
  0367:85 00              lat temp0 
  0369:48                 ret 

        code_036a
  036a:c5 00              +at temp0 
  036c:78               push1 
  036d:8d 01              lst temp1 
  036f:43 38 02         callk NextNode 2 

  0372:a5 01              sat temp1 
  0374:33 e2              jmp code_0358 

        code_0376
  0376:35 ff              ldi ff 
  0378:48                 ret 
    )

)

// 05f6
(class Set of Collect
    (properties
        elements $0
        size $0
    )
    (method (add) // method_0379
  0379:3f 03             link 3 // (var $3)
  037b:63 08             pToa elements 
  037d:18                 not 
  037e:31 06              bnt code_0386 
  0380:76               push0 
  0381:43 32 00         callk NewList 0 

  0384:65 08             aTop elements 

        code_0386
  0386:35 00              ldi 0 
  0388:a5 01              sat temp1 

        code_038a
  038a:8d 01              lst temp1 
  038c:87 00              lap paramTotal 
  038e:22                 lt? 
  038f:31 25              bnt code_03b6 
  0391:85 01              lat temp1 
  0393:97 01             lapi param1 
  0395:a5 02              sat temp2 
  0397:39 65            pushi 65 // $65 contains
  0399:78               push1 
  039a:8d 02              lst temp2 
  039c:54 06             self 6 

  039e:18                 not 
  039f:31 11              bnt code_03b2 
  03a1:7a               push2 
  03a2:67 08             pTos elements 
  03a4:7a               push2 
  03a5:8d 02              lst temp2 
  03a7:8d 02              lst temp2 
  03a9:43 34 04         callk NewNode 4 

  03ac:36                push 
  03ad:43 3d 04         callk AddToEnd 4 

  03b0:6b 0a            ipToa size 

        code_03b2
  03b2:c5 01              +at temp1 
  03b4:33 d4              jmp code_038a 

        code_03b6
  03b6:48                 ret 
    )

)

// 0622
(class EventHandler of Set
    (properties
        elements $0
        size $0
    )
    (method (handleEvent) // method_03b7
  03b7:3f 03             link 3 // (var $3)
  03b9:78               push1 
  03ba:67 08             pTos elements 
  03bc:43 35 02         callk FirstNode 2 

  03bf:a5 00              sat temp0 

        code_03c1
  03c1:85 00              lat temp0 
  03c3:31 33              bnt code_03f8 
  03c5:39 4c            pushi 4c // $4c claimed
  03c7:76               push0 
  03c8:87 01              lap param1 
  03ca:4a 04             send 4 

  03cc:18                 not 
  03cd:31 29              bnt code_03f8 
  03cf:78               push1 
  03d0:8d 00              lst temp0 
  03d2:43 38 02         callk NextNode 2 

  03d5:a5 01              sat temp1 
  03d7:78               push1 
  03d8:78               push1 
  03d9:8d 00              lst temp0 
  03db:43 3a 02         callk NodeValue 2 

  03de:a5 02              sat temp2 
  03e0:36                push 
  03e1:43 06 02         callk IsObject 2 

  03e4:18                 not 
  03e5:31 02              bnt code_03e9 
  03e7:33 0f              jmp code_03f8 

        code_03e9
  03e9:39 6f            pushi 6f // $6f handleEvent
  03eb:78               push1 
  03ec:8f 01              lsp param1 
  03ee:85 02              lat temp2 
  03f0:4a 06             send 6 

  03f2:85 01              lat temp1 
  03f4:a5 00              sat temp0 
  03f6:33 c9              jmp code_03c1 

        code_03f8
  03f8:39 4c            pushi 4c // $4c claimed
  03fa:76               push0 
  03fb:87 01              lap param1 
  03fd:4a 04             send 4 

  03ff:48                 ret 
    )

)

// 064e
(class Script of Obj
    (properties
        client $0
        state $ffff
        start $0
        timer $0
        cycles $0
        seconds $0
        lastSeconds $0
        register $0
        script $0
        caller $0
    )
    (method (doit) // method_0400
  0400:3f 01             link 1 // (var $1)
  0402:63 18             pToa script 
  0404:31 07              bnt code_040d 
  0406:39 3c            pushi 3c // $3c doit
  0408:76               push0 
  0409:63 18             pToa script 
  040b:4a 04             send 4 


        code_040d
  040d:63 10             pToa cycles 
  040f:31 0c              bnt code_041d 
  0411:6d 10            dpToa cycles 
  0413:18                 not 
  0414:31 05              bnt code_041b 
  0416:39 79            pushi 79 // $79 cue
  0418:76               push0 
  0419:54 04             self 4 


        code_041b
  041b:33 20              jmp code_043d 

        code_041d
  041d:63 12             pToa seconds 
  041f:31 1c              bnt code_043d 
  0421:78               push1 
  0422:78               push1 
  0423:43 46 02         callk GetTime 2 

  0426:a5 00              sat temp0 
  0428:67 14             pTos lastSeconds 
  042a:85 00              lat temp0 
  042c:1c                 ne? 
  042d:31 0e              bnt code_043d 
  042f:85 00              lat temp0 
  0431:65 14             aTop lastSeconds 
  0433:6d 12            dpToa seconds 
  0435:18                 not 
  0436:31 05              bnt code_043d 
  0438:39 79            pushi 79 // $79 cue
  043a:76               push0 
  043b:54 04             self 4 


        code_043d
  043d:48                 ret 
    )

    (method (init) // method_043e
  043e:8f 00              lsp paramTotal 
  0440:35 01              ldi 1 
  0442:20                 ge? 
  0443:31 1a              bnt code_045f 
  0445:87 01              lap param1 
  0447:65 08             aTop client 
  0449:8f 00              lsp paramTotal 
  044b:35 02              ldi 2 
  044d:20                 ge? 
  044e:31 0f              bnt code_045f 
  0450:87 02              lap param2 
  0452:65 1a             aTop caller 
  0454:8f 00              lsp paramTotal 
  0456:35 03              ldi 3 
  0458:20                 ge? 
  0459:31 04              bnt code_045f 
  045b:87 03              lap param3 
  045d:65 16             aTop register 

        code_045f
  045f:39 78            pushi 78 // $78 changeState
  0461:78               push1 
  0462:67 0c             pTos start 
  0464:54 06             self 6 

  0466:48                 ret 
    )

    (method (dispose) // method_0467
  0467:78               push1 
  0468:67 18             pTos script 
  046a:43 06 02         callk IsObject 2 

  046d:31 07              bnt code_0476 
  046f:39 58            pushi 58 // $58 dispose
  0471:76               push0 
  0472:63 18             pToa script 
  0474:4a 04             send 4 


        code_0476
  0476:78               push1 
  0477:67 0e             pTos timer 
  0479:43 06 02         callk IsObject 2 

  047c:31 07              bnt code_0485 
  047e:39 58            pushi 58 // $58 dispose
  0480:76               push0 
  0481:63 0e             pToa timer 
  0483:4a 04             send 4 


        code_0485
  0485:78               push1 
  0486:67 08             pTos client 
  0488:43 06 02         callk IsObject 2 

  048b:31 08              bnt code_0495 
  048d:39 76            pushi 76 // $76 script
  048f:78               push1 
  0490:76               push0 
  0491:63 08             pToa client 
  0493:4a 06             send 6 


        code_0495
  0495:78               push1 
  0496:67 1a             pTos caller 
  0498:43 06 02         callk IsObject 2 

  049b:31 09              bnt code_04a6 
  049d:39 79            pushi 79 // $79 cue
  049f:78               push1 
  04a0:67 16             pTos register 
  04a2:63 1a             pToa caller 
  04a4:4a 06             send 6 


        code_04a6
  04a6:39 58            pushi 58 // $58 dispose
  04a8:76               push0 
  04a9:57 00 04         super Obj 4 

  04ac:48                 ret 
    )

    (method (changeState) // method_04ad
  04ad:87 01              lap param1 
  04af:65 0a             aTop state 
  04b1:48                 ret 
    )

    (method (cue) // method_04b2
  04b2:39 78            pushi 78 // $78 changeState
  04b4:78               push1 
  04b5:67 0a             pTos state 
  04b7:35 01              ldi 1 
  04b9:02                 add 
  04ba:36                push 
  04bb:59 01            &rest 1 
  04bd:54 06             self 6 

  04bf:48                 ret 
    )

    (method (setScript) // method_04c0
  04c0:78               push1 
  04c1:67 18             pTos script 
  04c3:43 06 02         callk IsObject 2 

  04c6:31 07              bnt code_04cf 
  04c8:39 58            pushi 58 // $58 dispose
  04ca:76               push0 
  04cb:63 18             pToa script 
  04cd:4a 04             send 4 


        code_04cf
  04cf:87 01              lap param1 
  04d1:65 18             aTop script 
  04d3:31 0a              bnt code_04df 
  04d5:39 57            pushi 57 // $57 init
  04d7:78               push1 
  04d8:7c            pushSelf 
  04d9:59 02            &rest 2 
  04db:63 18             pToa script 
  04dd:4a 06             send 6 


        code_04df
  04df:48                 ret 
    )

    (method (handleEvent) // method_04e0
  04e0:63 18             pToa script 
  04e2:31 09              bnt code_04ed 
  04e4:39 6f            pushi 6f // $6f handleEvent
  04e6:78               push1 
  04e7:8f 01              lsp param1 
  04e9:63 18             pToa script 
  04eb:4a 06             send 6 


        code_04ed
  04ed:39 4c            pushi 4c // $4c claimed
  04ef:76               push0 
  04f0:87 01              lap param1 
  04f2:4a 04             send 4 

  04f4:48                 ret 
    )

)

// 06b2
(class Event of Obj
    (properties
        type $0
        message $0
        modifiers $0
        y $0
        x $0
        claimed $0
    )
    (method (new) // method_04f5
  04f5:3f 01             link 1 // (var $1)
  04f7:39 56            pushi 56 // $56 new
  04f9:76               push0 
  04fa:57 00 04         super Obj 4 

  04fd:a5 00              sat temp0 
  04ff:7a               push2 
  0500:87 00              lap paramTotal 
  0502:31 04              bnt code_0508 
  0504:87 01              lap param1 
  0506:33 03              jmp code_050b 

        code_0508
  0508:34 7fff            ldi 7fff 

        code_050b
  050b:36                push 
  050c:8d 00              lst temp0 
  050e:43 1c 04         callk GetEvent 4 

  0511:85 00              lat temp0 
  0513:48                 ret 
    )

)


// EXPORTED procedure #0 (sign)
(procedure proc_0014
  0014:8f 01              lsp param1 
  0016:35 00              ldi 0 
  0018:22                 lt? 
  0019:31 04              bnt code_001f 
  001b:35 ff              ldi ff 
  001d:33 05              jmp code_0024 

        code_001f
  001f:8f 01              lsp param1 
  0021:35 00              ldi 0 
  0023:1e                 gt? 

        code_0024
  0024:48                 ret 
)

// EXPORTED procedure #1 (umod)
(procedure proc_0025
  0025:8f 01              lsp param1 
  0027:8f 02              lsp param2 
  0029:8f 01              lsp param1 
  002b:87 02              lap param2 
  002d:08                 div 
  002e:06                 mul 
  002f:04                 sub 
  0030:a7 01              sap param1 
  0032:36                push 
  0033:35 00              ldi 0 
  0035:22                 lt? 
  0036:31 07              bnt code_003f 
  0038:8f 01              lsp param1 
  003a:87 02              lap param2 
  003c:02                 add 
  003d:a7 01              sap param1 

        code_003f
  003f:87 01              lap param1 
  0041:48                 ret 
)

// EXPORTED procedure #2 (Min)
(procedure proc_0042
  0042:3f 01             link 1 // (var $1)
  0044:8f 00              lsp paramTotal 
  0046:35 01              ldi 1 
  0048:1a                 eq? 
  0049:2f 0d               bt code_0058 
  004b:8f 01              lsp param1 
  004d:76               push0 
  004e:59 02            &rest 2 
  0050:41 ef 00          call proc_0042 0 

  0053:a5 00              sat temp0 
  0055:22                 lt? 
  0056:31 04              bnt code_005c 

        code_0058
  0058:87 01              lap param1 
  005a:33 02              jmp code_005e 

        code_005c
  005c:85 00              lat temp0 

        code_005e
  005e:48                 ret 
)

// EXPORTED procedure #3 (Max)
(procedure proc_005f
  005f:3f 01             link 1 // (var $1)
  0061:8f 00              lsp paramTotal 
  0063:35 01              ldi 1 
  0065:1a                 eq? 
  0066:2f 0d               bt code_0075 
  0068:8f 01              lsp param1 
  006a:76               push0 
  006b:59 02            &rest 2 
  006d:41 ef 00          call proc_005f 0 

  0070:a5 00              sat temp0 
  0072:1e                 gt? 
  0073:31 04              bnt code_0079 

        code_0075
  0075:87 01              lap param1 
  0077:33 02              jmp code_007b 

        code_0079
  0079:85 00              lat temp0 

        code_007b
  007b:48                 ret 
)

// EXPORTED procedure #4 (InRect)
(procedure proc_007c
  007c:8f 01              lsp param1 
  007e:8f 00              lsp paramTotal 
  0080:35 06              ldi 6 
  0082:22                 lt? 
  0083:31 09              bnt code_008e 
  0085:39 04            pushi 4 // $4 x
  0087:76               push0 
  0088:87 05              lap param5 
  008a:4a 04             send 4 

  008c:33 02              jmp code_0090 

        code_008e
  008e:87 05              lap param5 

        code_0090
  0090:24                 le? 
  0091:31 04              bnt code_0097 
  0093:60               pprev 
  0094:87 03              lap param3 
  0096:24                 le? 

        code_0097
  0097:31 1f              bnt code_00b8 
  0099:8f 02              lsp param2 
  009b:8f 00              lsp paramTotal 
  009d:35 06              ldi 6 
  009f:22                 lt? 
  00a0:31 09              bnt code_00ab 
  00a2:39 03            pushi 3 // $3 y
  00a4:76               push0 
  00a5:87 05              lap param5 
  00a7:4a 04             send 4 

  00a9:33 02              jmp code_00ad 

        code_00ab
  00ab:87 06              lap param6 

        code_00ad
  00ad:24                 le? 
  00ae:31 04              bnt code_00b4 
  00b0:60               pprev 
  00b1:87 04              lap param4 
  00b3:24                 le? 

        code_00b4
  00b4:31 02              bnt code_00b8 
  00b6:35 01              ldi 1 

        code_00b8
  00b8:48                 ret 
)


