(script 255)

(string
    string_1350 ""
    string_1351 "Controls"
    string_135a "DButton"
    string_1362 "DEdit"
    string_1368 "DIcon"
    string_136e "DSelector"
    string_1378 "DText"
    string_137e "Dialog"
    string_1385 "Item"
    string_138a "M"
    string_138c "MenuBar"
    string_1394 "PrintD"
    string_139b ""
)

(said
)

(local
    local0 = $0000
    local1 = $0000
    local2 = $0000
    local3 = $0000
    local4 = $0000
    local5 = $0000
    local6 = $0000
    local7 = $0000
    local8 = $0000
    local9 = $0000
    local10 = $0000
    local11 = $0000
    local12 = $0000
    local13 = $0000
    local14 = $0000
    local15 = $0000
    local16 = $0000
    local17 = $0000
    local18 = $0000
    local19 = $0000
    local20 = $0000
)

// 0ff8
(class MenuBar of Obj
    (properties
        state $0
    )
    (method (draw) // method_0556
  0556:35 01              ldi 1 
  0558:65 08             aTop state 
  055a:78               push1 
  055b:78               push1 
  055c:43 20 02         callk DrawMenuBar 2 

  055f:48                 ret 
    )

    (method (hide) // method_0560
  0560:78               push1 
  0561:76               push0 
  0562:43 20 02         callk DrawMenuBar 2 

  0565:48                 ret 
    )

    (method (add) // method_0566
  0566:76               push0 
  0567:59 01            &rest 1 
  0569:43 22 00         callk AddMenu 0 

  056c:48                 ret 
    )

    (method (handleEvent) // method_056d
  056d:63 08             pToa state 
  056f:31 0a              bnt code_057b 
  0571:78               push1 
  0572:8f 01              lsp param1 
  0574:59 02            &rest 2 
  0576:43 21 02         callk MenuSelect 2 

  0579:33 02              jmp code_057d 

        code_057b
  057b:35 00              ldi 0 

        code_057d
  057d:48                 ret 
    )

)

// 102c
(class Item of Obj
    (properties
        type $0
        state $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
        key $0
        said $0
        value $0
    )
    (method (enable) // method_057e
  057e:87 01              lap param1 
  0580:31 09              bnt code_058b 
  0582:67 0a             pTos state 
  0584:35 01              ldi 1 
  0586:14                  or 
  0587:65 0a             aTop state 
  0589:33 07              jmp code_0592 

        code_058b
  058b:67 0a             pTos state 
  058d:35 fe              ldi fe 
  058f:12                 and 
  0590:65 0a             aTop state 

        code_0592
  0592:48                 ret 
    )

    (method (select) // method_0593
  0593:87 01              lap param1 
  0595:31 09              bnt code_05a0 
  0597:67 0a             pTos state 
  0599:35 08              ldi 8 
  059b:14                  or 
  059c:65 0a             aTop state 
  059e:33 07              jmp code_05a7 

        code_05a0
  05a0:67 0a             pTos state 
  05a2:35 f7              ldi f7 
  05a4:12                 and 
  05a5:65 0a             aTop state 

        code_05a7
  05a7:39 53            pushi 53 // $53 draw
  05a9:76               push0 
  05aa:54 04             self 4 

  05ac:48                 ret 
    )

    (method (handleEvent) // method_05ad
  05ad:3f 03             link 3 // (var $3)
  05af:39 4c            pushi 4c // $4c claimed
  05b1:76               push0 
  05b2:87 01              lap param1 
  05b4:4a 04             send 4 

  05b6:31 03              bnt code_05bb 
  05b8:35 00              ldi 0 
  05ba:48                 ret 

        code_05bb
  05bb:35 00              ldi 0 
  05bd:a5 00              sat temp0 
  05bf:67 0a             pTos state 
  05c1:35 01              ldi 1 
  05c3:12                 and 
  05c4:31 4f              bnt code_0615 
  05c6:39 22            pushi 22 // $22 type
  05c8:76               push0 
  05c9:87 01              lap param1 
  05cb:4a 04             send 4 

  05cd:a5 01              sat temp1 
  05cf:36                push 
  05d0:34 0080            ldi 80 
  05d3:1a                 eq? 
  05d4:31 08              bnt code_05de 
  05d6:78               push1 
  05d7:67 16             pTos said 
  05d9:43 25 02         callk Said 2 

  05dc:2f 25               bt code_0603 

        code_05de
  05de:8d 01              lst temp1 
  05e0:35 04              ldi 4 
  05e2:1a                 eq? 
  05e3:31 0d              bnt code_05f2 
  05e5:39 28            pushi 28 // $28 message
  05e7:76               push0 
  05e8:87 01              lap param1 
  05ea:4a 04             send 4 

  05ec:36                push 
  05ed:63 14             pToa key 
  05ef:1a                 eq? 
  05f0:2f 11               bt code_0603 

        code_05f2
  05f2:8d 01              lst temp1 
  05f4:35 01              ldi 1 
  05f6:1a                 eq? 
  05f7:31 1c              bnt code_0615 
  05f9:38 0085          pushi 85 // $85 check
  05fc:78               push1 
  05fd:8f 01              lsp param1 
  05ff:54 06             self 6 

  0601:31 12              bnt code_0615 

        code_0603
  0603:39 4c            pushi 4c // $4c claimed
  0605:78               push1 
  0606:78               push1 
  0607:87 01              lap param1 
  0609:4a 06             send 6 

  060b:38 008c          pushi 8c // $8c track
  060e:78               push1 
  060f:8f 01              lsp param1 
  0611:54 06             self 6 

  0613:a5 00              sat temp0 

        code_0615
  0615:85 00              lat temp0 
  0617:48                 ret 
    )

    (method (check) // method_0618
  0618:39 04            pushi 4 // $4 x
  061a:76               push0 
  061b:87 01              lap param1 
  061d:4a 04             send 4 

  061f:36                push 
  0620:63 0e             pToa nsLeft 
  0622:20                 ge? 
  0623:31 29              bnt code_064e 
  0625:39 03            pushi 3 // $3 y
  0627:76               push0 
  0628:87 01              lap param1 
  062a:4a 04             send 4 

  062c:36                push 
  062d:63 0c             pToa nsTop 
  062f:20                 ge? 
  0630:31 1c              bnt code_064e 
  0632:39 04            pushi 4 // $4 x
  0634:76               push0 
  0635:87 01              lap param1 
  0637:4a 04             send 4 

  0639:36                push 
  063a:63 12             pToa nsRight 
  063c:22                 lt? 
  063d:31 0f              bnt code_064e 
  063f:39 03            pushi 3 // $3 y
  0641:76               push0 
  0642:87 01              lap param1 
  0644:4a 04             send 4 

  0646:36                push 
  0647:63 10             pToa nsBottom 
  0649:22                 lt? 
  064a:31 02              bnt code_064e 
  064c:35 01              ldi 1 

        code_064e
  064e:48                 ret 
    )

    (method (track) // method_064f
  064f:3f 02             link 2 // (var $2)
  0651:78               push1 
  0652:39 22            pushi 22 // $22 type
  0654:76               push0 
  0655:87 01              lap param1 
  0657:4a 04             send 4 

  0659:1a                 eq? 
  065a:31 54              bnt code_06b0 
  065c:35 00              ldi 0 
  065e:a5 01              sat temp1 

        code_0660
  0660:35 01              ldi 1 
  0662:31 3e              bnt code_06a2 
  0664:39 56            pushi 56 // $56 new
  0666:78               push1 
  0667:38 8000          pushi 8000 // $8000 sel_32768
  066a:51 06            class Event 
  066c:4a 06             send 6 

  066e:a7 01              sap param1 
  0670:78               push1 
  0671:8f 01              lsp param1 
  0673:43 1d 02         callk GlobalToLocal 2 

  0676:38 0085          pushi 85 // $85 check
  0679:78               push1 
  067a:8f 01              lsp param1 
  067c:54 06             self 6 

  067e:a5 00              sat temp0 
  0680:36                push 
  0681:85 01              lat temp1 
  0683:1c                 ne? 
  0684:31 09              bnt code_068f 
  0686:78               push1 
  0687:7c            pushSelf 
  0688:43 18 02         callk HiliteControl 2 

  068b:85 00              lat temp0 
  068d:a5 01              sat temp1 

        code_068f
  068f:39 58            pushi 58 // $58 dispose
  0691:76               push0 
  0692:87 01              lap param1 
  0694:4a 04             send 4 

  0696:76               push0 
  0697:40 f97b 00        call proc_0016 0 

  069b:18                 not 
  069c:31 02              bnt code_06a0 
  069e:33 02              jmp code_06a2 

        code_06a0
  06a0:33 be              jmp code_0660 

        code_06a2
  06a2:85 00              lat temp0 
  06a4:31 05              bnt code_06ab 
  06a6:78               push1 
  06a7:7c            pushSelf 
  06a8:43 18 02         callk HiliteControl 2 


        code_06ab
  06ab:85 00              lat temp0 
  06ad:48                 ret 
  06ae:33 02              jmp code_06b2 

        code_06b0
  06b0:5c              selfID 
  06b1:48                 ret 

        code_06b2
  06b2:48                 ret 
    )

    (method (isType) // method_06b3
  06b3:67 08             pTos type 
  06b5:87 01              lap param1 
  06b7:1a                 eq? 
  06b8:48                 ret 
    )

    (method (checkState) // method_06b9
  06b9:67 0a             pTos state 
  06bb:87 01              lap param1 
  06bd:12                 and 
  06be:48                 ret 
    )

    (method (doit) // method_06bf
  06bf:63 18             pToa value 
  06c1:48                 ret 
    )

    (method (setSize) // method_06c2
  06c2:48                 ret 
    )

    (method (move) // method_06c3
  06c3:67 12             pTos nsRight 
  06c5:87 01              lap param1 
  06c7:02                 add 
  06c8:65 12             aTop nsRight 
  06ca:67 0e             pTos nsLeft 
  06cc:87 01              lap param1 
  06ce:02                 add 
  06cf:65 0e             aTop nsLeft 
  06d1:67 0c             pTos nsTop 
  06d3:87 02              lap param2 
  06d5:02                 add 
  06d6:65 0c             aTop nsTop 
  06d8:67 10             pTos nsBottom 
  06da:87 02              lap param2 
  06dc:02                 add 
  06dd:65 10             aTop nsBottom 
  06df:48                 ret 
    )

    (method (moveTo) // method_06e0
  06e0:38 008e          pushi 8e // $8e move
  06e3:7a               push2 
  06e4:8f 01              lsp param1 
  06e6:63 0e             pToa nsLeft 
  06e8:04                 sub 
  06e9:36                push 
  06ea:8f 02              lsp param2 
  06ec:63 0c             pToa nsTop 
  06ee:04                 sub 
  06ef:36                push 
  06f0:54 08             self 8 

  06f2:48                 ret 
    )

    (method (draw) // method_06f3
  06f3:78               push1 
  06f4:7c            pushSelf 
  06f5:43 17 02         callk DrawControl 2 

  06f8:48                 ret 
    )

    (method (cycle) // method_06f9
  06f9:48                 ret 
    )

)

// 10a4
(class DText of Item
    (properties
        type $2
        state $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
        key $0
        said $0
        value $0
        text $0
        font $1
        mode $0
    )
    (method (new) // method_06fa
  06fa:3f 01             link 1 // (var $1)
  06fc:39 21            pushi 21 // $21 font
  06fe:78               push1 
  06ff:89 16              lsg gUserFont 
  0701:39 5f            pushi 5f // $5f yourself
  0703:76               push0 
  0704:39 56            pushi 56 // $56 new
  0706:76               push0 
  0707:57 0c 04         super Item 4 

  070a:4a 0a             send a 

  070c:48                 ret 
    )

    (method (setSize) // method_070d
  070d:3f 04             link 4 // (var $4)
  070f:39 04            pushi 4 // $4 x
  0711:5b 04 00           lea 4 0 
  0714:36                push 
  0715:67 1a             pTos text 
  0717:67 1c             pTos font 
  0719:87 00              lap paramTotal 
  071b:31 04              bnt code_0721 
  071d:87 01              lap param1 
  071f:33 02              jmp code_0723 

        code_0721
  0721:35 00              ldi 0 

        code_0723
  0723:36                push 
  0724:43 1a 08         callk TextSize 8 

  0727:67 0c             pTos nsTop 
  0729:85 02              lat temp2 
  072b:02                 add 
  072c:65 10             aTop nsBottom 
  072e:67 0e             pTos nsLeft 
  0730:85 03              lat temp3 
  0732:02                 add 
  0733:65 12             aTop nsRight 
  0735:48                 ret 
    )

)

// 10fc
(class DIcon of Item
    (properties
        type $4
        state $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
        key $0
        said $0
        value $0
        view $0
        loop $0
        cel $0
    )
    (method (setSize) // method_0736
  0736:3f 04             link 4 // (var $4)
  0738:67 0e             pTos nsLeft 
  073a:39 03            pushi 3 // $3 y
  073c:67 1a             pTos view 
  073e:67 1c             pTos loop 
  0740:67 1e             pTos cel 
  0742:43 0f 06         callk CelWide 6 

  0745:02                 add 
  0746:65 12             aTop nsRight 
  0748:67 0c             pTos nsTop 
  074a:39 03            pushi 3 // $3 y
  074c:67 1a             pTos view 
  074e:67 1c             pTos loop 
  0750:67 1e             pTos cel 
  0752:43 10 06         callk CelHigh 6 

  0755:02                 add 
  0756:65 10             aTop nsBottom 
  0758:48                 ret 
    )

)

// 1150
(class DButton of Item
    (properties
        type $1
        state $3
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
        key $0
        said $0
        value $0
        text $0
        font $0
    )
    (method (setSize) // method_0759
  0759:3f 04             link 4 // (var $4)
  075b:39 03            pushi 3 // $3 y
  075d:5b 04 00           lea 4 0 
  0760:36                push 
  0761:67 1a             pTos text 
  0763:67 1c             pTos font 
  0765:43 1a 06         callk TextSize 6 

  0768:8d 02              lst temp2 
  076a:35 02              ldi 2 
  076c:02                 add 
  076d:a5 02              sat temp2 
  076f:8d 03              lst temp3 
  0771:35 02              ldi 2 
  0773:02                 add 
  0774:a5 03              sat temp3 
  0776:67 0c             pTos nsTop 
  0778:85 02              lat temp2 
  077a:02                 add 
  077b:65 10             aTop nsBottom 
  077d:8d 03              lst temp3 
  077f:35 0f              ldi f 
  0781:02                 add 
  0782:36                push 
  0783:35 10              ldi 10 
  0785:08                 div 
  0786:36                push 
  0787:35 10              ldi 10 
  0789:06                 mul 
  078a:a5 03              sat temp3 
  078c:8d 03              lst temp3 
  078e:63 0e             pToa nsLeft 
  0790:02                 add 
  0791:65 12             aTop nsRight 
  0793:48                 ret 
    )

)

// 11a0
(class DEdit of Item
    (properties
        type $3
        state $1
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
        key $0
        said $0
        value $0
        text $0
        font $0
        max $0
        cursor $0
    )
    (method (track) // method_0794
  0794:7a               push2 
  0795:7c            pushSelf 
  0796:8f 01              lsp param1 
  0798:43 19 04         callk EditControl 4 

  079b:35 00              ldi 0 
  079d:48                 ret 
    )

    (method (setSize) // method_079e
  079e:3f 04             link 4 // (var $4)
  07a0:39 03            pushi 3 // $3 y
  07a2:5b 04 00           lea 4 0 
  07a5:36                push 
  07a6:74 0be1          lofss $138a // M
  07a9:67 1c             pTos font 
  07ab:43 1a 06         callk TextSize 6 

  07ae:67 0c             pTos nsTop 
  07b0:85 02              lat temp2 
  07b2:02                 add 
  07b3:65 10             aTop nsBottom 
  07b5:67 0e             pTos nsLeft 
  07b7:8d 03              lst temp3 
  07b9:67 1e             pTos max 
  07bb:35 03              ldi 3 
  07bd:06                 mul 
  07be:06                 mul 
  07bf:36                push 
  07c0:35 04              ldi 4 
  07c2:08                 div 
  07c3:02                 add 
  07c4:65 12             aTop nsRight 
  07c6:78               push1 
  07c7:67 1a             pTos text 
  07c9:43 4a 02         callk StrLen 2 

  07cc:65 20             aTop cursor 
  07ce:48                 ret 
    )

)

// 11fc
(class DSelector of Item
    (properties
        type $6
        state $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
        key $0
        said $0
        value $0
        font $0
        x $14
        y $6
        text $0
        cursor $0
        lsTop $0
        mark $0
    )
    (method (indexOf) // method_07cf
  07cf:3f 02             link 2 // (var $2)
  07d1:63 20             pToa text 
  07d3:a5 00              sat temp0 
  07d5:35 00              ldi 0 
  07d7:a5 01              sat temp1 

        code_07d9
  07d9:8d 01              lst temp1 
  07db:34 012c            ldi 12c 
  07de:22                 lt? 
  07df:31 26              bnt code_0807 
  07e1:76               push0 
  07e2:78               push1 
  07e3:8d 00              lst temp0 
  07e5:43 4a 02         callk StrLen 2 

  07e8:1a                 eq? 
  07e9:31 03              bnt code_07ee 
  07eb:35 ff              ldi ff 
  07ed:48                 ret 

        code_07ee
  07ee:7a               push2 
  07ef:8f 01              lsp param1 
  07f1:8d 00              lst temp0 
  07f3:43 49 04         callk StrCmp 4 

  07f6:18                 not 
  07f7:31 03              bnt code_07fc 
  07f9:85 01              lat temp1 
  07fb:48                 ret 

        code_07fc
  07fc:8d 00              lst temp0 
  07fe:63 1c             pToa x 
  0800:02                 add 
  0801:a5 00              sat temp0 
  0803:c5 01              +at temp1 
  0805:33 d2              jmp code_07d9 

        code_0807
  0807:48                 ret 
    )

    (method (at) // method_0808
  0808:67 20             pTos text 
  080a:67 1c             pTos x 
  080c:87 01              lap param1 
  080e:06                 mul 
  080f:02                 add 
  0810:48                 ret 
    )

    (method (setSize) // method_0811
  0811:3f 04             link 4 // (var $4)
  0813:39 03            pushi 3 // $3 y
  0815:5b 04 00           lea 4 0 
  0818:36                push 
  0819:74 0b6e          lofss $138a // M
  081c:67 1a             pTos font 
  081e:43 1a 06         callk TextSize 6 

  0821:67 0c             pTos nsTop 
  0823:39 14            pushi 14 // $14 brLeft
  0825:8d 02              lst temp2 
  0827:63 1e             pToa y 
  0829:06                 mul 
  082a:02                 add 
  082b:02                 add 
  082c:65 10             aTop nsBottom 
  082e:67 0e             pTos nsLeft 
  0830:8d 03              lst temp3 
  0832:67 1c             pTos x 
  0834:35 03              ldi 3 
  0836:06                 mul 
  0837:06                 mul 
  0838:36                push 
  0839:35 04              ldi 4 
  083b:08                 div 
  083c:02                 add 
  083d:65 12             aTop nsRight 
  083f:63 20             pToa text 
  0841:65 22             aTop cursor 
  0843:65 24             aTop lsTop 
  0845:35 00              ldi 0 
  0847:65 26             aTop mark 
  0849:48                 ret 
    )

    (method (retreat) // method_084a
  084a:3f 01             link 1 // (var $1)
  084c:35 00              ldi 0 
  084e:a5 00              sat temp0 

        code_0850
  0850:87 01              lap param1 
  0852:31 29              bnt code_087d 
  0854:67 22             pTos cursor 
  0856:63 20             pToa text 
  0858:1c                 ne? 
  0859:31 1c              bnt code_0877 
  085b:35 01              ldi 1 
  085d:a5 00              sat temp0 
  085f:67 22             pTos cursor 
  0861:63 1c             pToa x 
  0863:04                 sub 
  0864:65 22             aTop cursor 
  0866:63 26             pToa mark 
  0868:31 04              bnt code_086e 
  086a:6d 26            dpToa mark 
  086c:33 07              jmp code_0875 

        code_086e
  086e:67 24             pTos lsTop 
  0870:63 1c             pToa x 
  0872:04                 sub 
  0873:65 24             aTop lsTop 

        code_0875
  0875:33 02              jmp code_0879 

        code_0877
  0877:33 04              jmp code_087d 

        code_0879
  0879:e7 01              -ap param1 
  087b:33 d3              jmp code_0850 

        code_087d
  087d:85 00              lat temp0 
  087f:31 05              bnt code_0886 
  0881:39 53            pushi 53 // $53 draw
  0883:76               push0 
  0884:54 04             self 4 


        code_0886
  0886:48                 ret 
    )

    (method (advance) // method_0887
  0887:3f 01             link 1 // (var $1)
  0889:35 00              ldi 0 
  088b:a5 00              sat temp0 

        code_088d
  088d:87 01              lap param1 
  088f:31 33              bnt code_08c4 
  0891:7a               push2 
  0892:67 22             pTos cursor 
  0894:67 1c             pTos x 
  0896:43 66 04         callk StrAt 4 

  0899:31 23              bnt code_08be 
  089b:35 01              ldi 1 
  089d:a5 00              sat temp0 
  089f:67 22             pTos cursor 
  08a1:63 1c             pToa x 
  08a3:02                 add 
  08a4:65 22             aTop cursor 
  08a6:67 26             pTos mark 
  08a8:35 01              ldi 1 
  08aa:02                 add 
  08ab:36                push 
  08ac:63 1e             pToa y 
  08ae:22                 lt? 
  08af:31 04              bnt code_08b5 
  08b1:6b 26            ipToa mark 
  08b3:33 07              jmp code_08bc 

        code_08b5
  08b5:67 24             pTos lsTop 
  08b7:63 1c             pToa x 
  08b9:02                 add 
  08ba:65 24             aTop lsTop 

        code_08bc
  08bc:33 02              jmp code_08c0 

        code_08be
  08be:33 04              jmp code_08c4 

        code_08c0
  08c0:e7 01              -ap param1 
  08c2:33 c9              jmp code_088d 

        code_08c4
  08c4:85 00              lat temp0 
  08c6:31 05              bnt code_08cd 
  08c8:39 53            pushi 53 // $53 draw
  08ca:76               push0 
  08cb:54 04             self 4 


        code_08cd
  08cd:48                 ret 
    )

    (method (handleEvent) // method_08ce
  08ce:3f 09             link 9 // (var $9)
  08d0:39 4c            pushi 4c // $4c claimed
  08d2:76               push0 
  08d3:87 01              lap param1 
  08d5:4a 04             send 4 

  08d7:31 03              bnt code_08dc 
  08d9:35 00              ldi 0 
  08db:48                 ret 

        code_08dc
  08dc:39 40            pushi 40 // $40 modifiers
  08de:39 22            pushi 22 // $22 type
  08e0:76               push0 
  08e1:87 01              lap param1 
  08e3:4a 04             send 4 

  08e5:1a                 eq? 
  08e6:31 3f              bnt code_0927 
  08e8:39 22            pushi 22 // $22 type
  08ea:78               push1 
  08eb:39 04            pushi 4 // $4 x
  08ed:87 01              lap param1 
  08ef:4a 06             send 6 

  08f1:39 28            pushi 28 // $28 message
  08f3:76               push0 
  08f4:87 01              lap param1 
  08f6:4a 04             send 4 

  08f8:36                push 
  08f9:3c                 dup 
  08fa:35 05              ldi 5 
  08fc:1a                 eq? 
  08fd:31 0c              bnt code_090b 
  08ff:39 28            pushi 28 // $28 message
  0901:78               push1 
  0902:38 5000          pushi 5000 // $5000 sel_20480
  0905:87 01              lap param1 
  0907:4a 06             send 6 

  0909:33 1b              jmp code_0926 

        code_090b
  090b:3c                 dup 
  090c:35 01              ldi 1 
  090e:1a                 eq? 
  090f:31 0c              bnt code_091d 
  0911:39 28            pushi 28 // $28 message
  0913:78               push1 
  0914:38 4800          pushi 4800 // $4800 sel_18432
  0917:87 01              lap param1 
  0919:4a 06             send 6 

  091b:33 09              jmp code_0926 

        code_091d
  091d:39 22            pushi 22 // $22 type
  091f:78               push1 
  0920:39 40            pushi 40 // $40 modifiers
  0922:87 01              lap param1 
  0924:4a 06             send 6 


        code_0926
  0926:3a                toss 

        code_0927
  0927:35 00              ldi 0 
  0929:a5 00              sat temp0 
  092b:39 22            pushi 22 // $22 type
  092d:76               push0 
  092e:87 01              lap param1 
  0930:4a 04             send 4 

  0932:36                push 
  0933:3c                 dup 
  0934:35 04              ldi 4 
  0936:1a                 eq? 
  0937:30 0088            bnt code_09c2 
  093a:39 4c            pushi 4c // $4c claimed
  093c:78               push1 
  093d:78               push1 
  093e:87 01              lap param1 
  0940:4a 06             send 6 

  0942:39 28            pushi 28 // $28 message
  0944:76               push0 
  0945:87 01              lap param1 
  0947:4a 04             send 4 

  0949:36                push 
  094a:3c                 dup 
  094b:34 4700            ldi 4700 
  094e:1a                 eq? 
  094f:31 0a              bnt code_095b 
  0951:38 0094          pushi 94 // $94 retreat
  0954:78               push1 
  0955:39 32            pushi 32 // $32 b-i2
  0957:54 06             self 6 

  0959:33 63              jmp code_09be 

        code_095b
  095b:3c                 dup 
  095c:34 4f00            ldi 4f00 
  095f:1a                 eq? 
  0960:31 0a              bnt code_096c 
  0962:38 0093          pushi 93 // $93 advance
  0965:78               push1 
  0966:39 32            pushi 32 // $32 b-i2
  0968:54 06             self 6 

  096a:33 52              jmp code_09be 

        code_096c
  096c:3c                 dup 
  096d:34 5100            ldi 5100 
  0970:1a                 eq? 
  0971:31 0e              bnt code_0981 
  0973:38 0093          pushi 93 // $93 advance
  0976:78               push1 
  0977:67 1e             pTos y 
  0979:35 01              ldi 1 
  097b:04                 sub 
  097c:36                push 
  097d:54 06             self 6 

  097f:33 3d              jmp code_09be 

        code_0981
  0981:3c                 dup 
  0982:34 4900            ldi 4900 
  0985:1a                 eq? 
  0986:31 0e              bnt code_0996 
  0988:38 0094          pushi 94 // $94 retreat
  098b:78               push1 
  098c:67 1e             pTos y 
  098e:35 01              ldi 1 
  0990:04                 sub 
  0991:36                push 
  0992:54 06             self 6 

  0994:33 28              jmp code_09be 

        code_0996
  0996:3c                 dup 
  0997:34 5000            ldi 5000 
  099a:1a                 eq? 
  099b:31 09              bnt code_09a6 
  099d:38 0093          pushi 93 // $93 advance
  09a0:78               push1 
  09a1:78               push1 
  09a2:54 06             self 6 

  09a4:33 18              jmp code_09be 

        code_09a6
  09a6:3c                 dup 
  09a7:34 4800            ldi 4800 
  09aa:1a                 eq? 
  09ab:31 09              bnt code_09b6 
  09ad:38 0094          pushi 94 // $94 retreat
  09b0:78               push1 
  09b1:78               push1 
  09b2:54 06             self 6 

  09b4:33 08              jmp code_09be 

        code_09b6
  09b6:39 4c            pushi 4c // $4c claimed
  09b8:78               push1 
  09b9:76               push0 
  09ba:87 01              lap param1 
  09bc:4a 06             send 6 


        code_09be
  09be:3a                toss 
  09bf:32 00ae            jmp code_0a70 

        code_09c2
  09c2:3c                 dup 
  09c3:35 01              ldi 1 
  09c5:1a                 eq? 
  09c6:30 00a7            bnt code_0a70 
  09c9:38 0085          pushi 85 // $85 check
  09cc:78               push1 
  09cd:8f 01              lsp param1 
  09cf:54 06             self 6 

  09d1:30 009c            bnt code_0a70 
  09d4:39 4c            pushi 4c // $4c claimed
  09d6:78               push1 
  09d7:78               push1 
  09d8:87 01              lap param1 
  09da:4a 06             send 6 

  09dc:39 03            pushi 3 // $3 y
  09de:76               push0 
  09df:87 01              lap param1 
  09e1:4a 04             send 4 

  09e3:36                push 
  09e4:67 0c             pTos nsTop 
  09e6:35 0a              ldi a 
  09e8:02                 add 
  09e9:22                 lt? 
  09ea:31 19              bnt code_0a05 

        code_09ec
  09ec:35 01              ldi 1 
  09ee:31 13              bnt code_0a03 
  09f0:38 0094          pushi 94 // $94 retreat
  09f3:78               push1 
  09f4:78               push1 
  09f5:54 06             self 6 

  09f7:76               push0 
  09f8:40 f61a 00        call proc_0016 0 

  09fc:18                 not 
  09fd:31 02              bnt code_0a01 
  09ff:33 02              jmp code_0a03 

        code_0a01
  0a01:33 e9              jmp code_09ec 

        code_0a03
  0a03:33 6b              jmp code_0a70 

        code_0a05
  0a05:39 03            pushi 3 // $3 y
  0a07:76               push0 
  0a08:87 01              lap param1 
  0a0a:4a 04             send 4 

  0a0c:36                push 
  0a0d:67 10             pTos nsBottom 
  0a0f:35 0a              ldi a 
  0a11:04                 sub 
  0a12:1e                 gt? 
  0a13:31 19              bnt code_0a2e 

        code_0a15
  0a15:35 01              ldi 1 
  0a17:31 13              bnt code_0a2c 
  0a19:38 0093          pushi 93 // $93 advance
  0a1c:78               push1 
  0a1d:78               push1 
  0a1e:54 06             self 6 

  0a20:76               push0 
  0a21:40 f5f1 00        call proc_0016 0 

  0a25:18                 not 
  0a26:31 02              bnt code_0a2a 
  0a28:33 02              jmp code_0a2c 

        code_0a2a
  0a2a:33 e9              jmp code_0a15 

        code_0a2c
  0a2c:33 42              jmp code_0a70 

        code_0a2e
  0a2e:39 03            pushi 3 // $3 y
  0a30:5b 04 05           lea 4 5 
  0a33:36                push 
  0a34:74 0953          lofss $138a // M
  0a37:67 1a             pTos font 
  0a39:43 1a 06         callk TextSize 6 

  0a3c:39 03            pushi 3 // $3 y
  0a3e:76               push0 
  0a3f:87 01              lap param1 
  0a41:4a 04             send 4 

  0a43:36                push 
  0a44:67 0c             pTos nsTop 
  0a46:35 0a              ldi a 
  0a48:02                 add 
  0a49:04                 sub 
  0a4a:36                push 
  0a4b:85 07              lat temp7 
  0a4d:08                 div 
  0a4e:a5 04              sat temp4 
  0a50:36                push 
  0a51:63 26             pToa mark 
  0a53:1e                 gt? 
  0a54:31 0e              bnt code_0a64 
  0a56:38 0093          pushi 93 // $93 advance
  0a59:78               push1 
  0a5a:8d 04              lst temp4 
  0a5c:63 26             pToa mark 
  0a5e:04                 sub 
  0a5f:36                push 
  0a60:54 06             self 6 

  0a62:33 0c              jmp code_0a70 

        code_0a64
  0a64:38 0094          pushi 94 // $94 retreat
  0a67:78               push1 
  0a68:67 26             pTos mark 
  0a6a:85 04              lat temp4 
  0a6c:04                 sub 
  0a6d:36                push 
  0a6e:54 06             self 6 


        code_0a70
  0a70:3a                toss 
  0a71:39 4c            pushi 4c // $4c claimed
  0a73:76               push0 
  0a74:87 01              lap param1 
  0a76:4a 04             send 4 

  0a78:31 0a              bnt code_0a84 
  0a7a:67 0a             pTos state 
  0a7c:35 02              ldi 2 
  0a7e:12                 and 
  0a7f:31 03              bnt code_0a84 
  0a81:5c              selfID 
  0a82:33 02              jmp code_0a86 

        code_0a84
  0a84:35 00              ldi 0 

        code_0a86
  0a86:48                 ret 
    )

)

// 1274
(class Dialog of Collect
    (properties
        elements $0
        size $0
        text $0
        window $0
        theItem $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
        time $0
        timer $0
        busy $0
    )
    (method (open) // method_0a87
  0a87:76               push0 
  0a88:43 0a 00         callk PicNotValid 0 

  0a8b:31 11              bnt code_0a9e 
  0a8d:81 05              lag gCast 
  0a8f:31 0d              bnt code_0a9e 
  0a91:7a               push2 
  0a92:39 1b            pushi 1b // $1b elements
  0a94:76               push0 
  0a95:81 05              lag gCast 
  0a97:4a 04             send 4 

  0a99:36                push 
  0a9a:76               push0 
  0a9b:43 0b 04         callk Animate 4 


        code_0a9e
  0a9e:39 56            pushi 56 // $56 new
  0aa0:76               push0 
  0aa1:63 0e             pToa window 
  0aa3:4a 04             send 4 

  0aa5:65 0e             aTop window 
  0aa7:38 0099          pushi 99 // $99 top
  0aaa:78               push1 
  0aab:67 12             pTos nsTop 
  0aad:38 009a          pushi 9a // $9a left
  0ab0:78               push1 
  0ab1:67 14             pTos nsLeft 
  0ab3:38 009b          pushi 9b // $9b bottom
  0ab6:78               push1 
  0ab7:67 16             pTos nsBottom 
  0ab9:38 009c          pushi 9c // $9c right
  0abc:78               push1 
  0abd:67 18             pTos nsRight 
  0abf:39 50            pushi 50 // $50 title
  0ac1:78               push1 
  0ac2:67 0c             pTos text 
  0ac4:39 22            pushi 22 // $22 type
  0ac6:78               push1 
  0ac7:8f 01              lsp param1 
  0ac9:39 3f            pushi 3f // $3f priority
  0acb:78               push1 
  0acc:8f 02              lsp param2 
  0ace:38 0097          pushi 97 // $97 open
  0ad1:76               push0 
  0ad2:63 0e             pToa window 
  0ad4:4a 2e             send 2e 

  0ad6:63 1a             pToa time 
  0ad8:31 0a              bnt code_0ae4 
  0ada:39 7f            pushi 7f // $7f setReal
  0adc:7a               push2 
  0add:7c            pushSelf 
  0ade:67 1a             pTos time 
  0ae0:63 1c             pToa timer 
  0ae2:4a 08             send 8 


        code_0ae4
  0ae4:39 53            pushi 53 // $53 draw
  0ae6:76               push0 
  0ae7:54 04             self 4 

  0ae9:48                 ret 
    )

    (method (draw) // method_0aea
  0aea:39 62            pushi 62 // $62 eachElementDo
  0aec:78               push1 
  0aed:39 53            pushi 53 // $53 draw
  0aef:54 06             self 6 

  0af1:48                 ret 
    )

    (method (doit) // method_0af2
  0af2:3f 05             link 5 // (var $5)
  0af4:35 00              ldi 0 
  0af6:a5 00              sat temp0 
  0af8:35 01              ldi 1 
  0afa:65 1e             aTop busy 
  0afc:39 62            pushi 62 // $62 eachElementDo
  0afe:78               push1 
  0aff:39 57            pushi 57 // $57 init
  0b01:54 06             self 6 

  0b03:63 10             pToa theItem 
  0b05:31 09              bnt code_0b10 
  0b07:38 008b          pushi 8b // $8b select
  0b0a:78               push1 
  0b0b:76               push0 
  0b0c:63 10             pToa theItem 
  0b0e:4a 06             send 6 


        code_0b10
  0b10:87 00              lap paramTotal 
  0b12:31 08              bnt code_0b1c 
  0b14:87 01              lap param1 
  0b16:31 04              bnt code_0b1c 
  0b18:87 01              lap param1 
  0b1a:33 09              jmp code_0b25 

        code_0b1c
  0b1c:39 63            pushi 63 // $63 firstTrue
  0b1e:7a               push2 
  0b1f:38 0092          pushi 92 // $92 checkState
  0b22:78               push1 
  0b23:54 08             self 8 


        code_0b25
  0b25:65 10             aTop theItem 
  0b27:63 10             pToa theItem 
  0b29:31 09              bnt code_0b34 
  0b2b:38 008b          pushi 8b // $8b select
  0b2e:78               push1 
  0b2f:78               push1 
  0b30:63 10             pToa theItem 
  0b32:4a 06             send 6 


        code_0b34
  0b34:63 10             pToa theItem 
  0b36:18                 not 
  0b37:31 0c              bnt code_0b45 
  0b39:35 3c              ldi 3c 
  0b3b:a5 03              sat temp3 
  0b3d:76               push0 
  0b3e:43 46 00         callk GetTime 0 

  0b41:a5 04              sat temp4 
  0b43:33 04              jmp code_0b49 

        code_0b45
  0b45:35 00              ldi 0 
  0b47:a5 03              sat temp3 

        code_0b49
  0b49:35 00              ldi 0 
  0b4b:a5 02              sat temp2 

        code_0b4d
  0b4d:85 02              lat temp2 
  0b4f:18                 not 
  0b50:31 7e              bnt code_0bd0 
  0b52:39 62            pushi 62 // $62 eachElementDo
  0b54:78               push1 
  0b55:38 0132          pushi 132 // $132 cycle
  0b58:54 06             self 6 

  0b5a:78               push1 
  0b5b:39 56            pushi 56 // $56 new
  0b5d:76               push0 
  0b5e:51 06            class Event 
  0b60:4a 04             send 4 

  0b62:a5 01              sat temp1 
  0b64:36                push 
  0b65:43 1d 02         callk GlobalToLocal 2 

  0b68:85 03              lat temp3 
  0b6a:31 28              bnt code_0b94 
  0b6c:e5 03              -at temp3 
  0b6e:39 22            pushi 22 // $22 type
  0b70:76               push0 
  0b71:85 01              lat temp1 
  0b73:4a 04             send 4 

  0b75:36                push 
  0b76:35 01              ldi 1 
  0b78:1a                 eq? 
  0b79:31 08              bnt code_0b83 
  0b7b:39 22            pushi 22 // $22 type
  0b7d:78               push1 
  0b7e:76               push0 
  0b7f:85 01              lat temp1 
  0b81:4a 06             send 6 


        code_0b83
  0b83:8d 04              lst temp4 
  0b85:76               push0 
  0b86:43 46 00         callk GetTime 0 

  0b89:1a                 eq? 
  0b8a:31 02              bnt code_0b8e 
  0b8c:33 f5              jmp code_0b83 

        code_0b8e
  0b8e:76               push0 
  0b8f:43 46 00         callk GetTime 0 

  0b92:a5 04              sat temp4 

        code_0b94
  0b94:39 6f            pushi 6f // $6f handleEvent
  0b96:78               push1 
  0b97:8d 01              lst temp1 
  0b99:54 06             self 6 

  0b9b:a5 02              sat temp2 
  0b9d:39 58            pushi 58 // $58 dispose
  0b9f:76               push0 
  0ba0:85 01              lat temp1 
  0ba2:4a 04             send 4 

  0ba4:63 1c             pToa timer 
  0ba6:31 07              bnt code_0baf 
  0ba8:39 3c            pushi 3c // $3c doit
  0baa:76               push0 
  0bab:63 1c             pToa timer 
  0bad:4a 04             send 4 


        code_0baf
  0baf:8d 02              lst temp2 
  0bb1:35 ff              ldi ff 
  0bb3:1a                 eq? 
  0bb4:2f 05               bt code_0bbb 
  0bb6:63 1e             pToa busy 
  0bb8:18                 not 
  0bb9:31 0d              bnt code_0bc8 

        code_0bbb
  0bbb:35 00              ldi 0 
  0bbd:a5 02              sat temp2 
  0bbf:7a               push2 
  0bc0:67 10             pTos theItem 
  0bc2:76               push0 
  0bc3:43 19 04         callk EditControl 4 

  0bc6:33 08              jmp code_0bd0 

        code_0bc8
  0bc8:78               push1 
  0bc9:78               push1 
  0bca:43 45 02         callk Wait 2 

  0bcd:32 ff7d            jmp code_0b4d 

        code_0bd0
  0bd0:35 00              ldi 0 
  0bd2:65 1e             aTop busy 
  0bd4:85 02              lat temp2 
  0bd6:48                 ret 
    )

    (method (cue) // method_0bd7
  0bd7:63 1e             pToa busy 
  0bd9:18                 not 
  0bda:31 07              bnt code_0be3 
  0bdc:39 58            pushi 58 // $58 dispose
  0bde:76               push0 
  0bdf:54 04             self 4 

  0be1:33 04              jmp code_0be7 

        code_0be3
  0be3:35 00              ldi 0 
  0be5:65 1e             aTop busy 

        code_0be7
  0be7:48                 ret 
    )

    (method (dispose) // method_0be8
  0be8:7c            pushSelf 
  0be9:81 19              lag gModelessDialog 
  0beb:1a                 eq? 
  0bec:31 0e              bnt code_0bfc 
  0bee:78               push1 
  0bef:8b 00              lsl local0 
  0bf1:43 15 02         callk SetPort 2 

  0bf4:35 00              ldi 0 
  0bf6:a1 19              sag gModelessDialog 
  0bf8:35 00              ldi 0 
  0bfa:a3 00              sal local0 

        code_0bfc
  0bfc:63 0e             pToa window 
  0bfe:31 07              bnt code_0c07 
  0c00:39 58            pushi 58 // $58 dispose
  0c02:76               push0 
  0c03:63 0e             pToa window 
  0c05:4a 04             send 4 


        code_0c07
  0c07:35 00              ldi 0 
  0c09:65 0e             aTop window 
  0c0b:63 1c             pToa timer 
  0c0d:31 0a              bnt code_0c19 
  0c0f:39 58            pushi 58 // $58 dispose
  0c11:76               push0 
  0c12:39 54            pushi 54 // $54 delete
  0c14:76               push0 
  0c15:63 1c             pToa timer 
  0c17:4a 08             send 8 


        code_0c19
  0c19:35 00              ldi 0 
  0c1b:65 10             aTop theItem 
  0c1d:39 58            pushi 58 // $58 dispose
  0c1f:76               push0 
  0c20:57 02 04         super Collect 4 

  0c23:48                 ret 
    )

    (method (advance) // method_0c24
  0c24:3f 02             link 2 // (var $2)
  0c26:63 10             pToa theItem 
  0c28:31 4b              bnt code_0c75 
  0c2a:38 008b          pushi 8b // $8b select
  0c2d:78               push1 
  0c2e:76               push0 
  0c2f:63 10             pToa theItem 
  0c31:4a 06             send 6 

  0c33:39 65            pushi 65 // $65 contains
  0c35:78               push1 
  0c36:67 10             pTos theItem 
  0c38:54 06             self 6 

  0c3a:a5 01              sat temp1 

        code_0c3c
  0c3c:35 01              ldi 1 
  0c3e:31 2c              bnt code_0c6c 
  0c40:39 44            pushi 44 // $44 next
  0c42:78               push1 
  0c43:8d 01              lst temp1 
  0c45:54 06             self 6 

  0c47:a5 01              sat temp1 
  0c49:18                 not 
  0c4a:31 07              bnt code_0c53 
  0c4c:39 67            pushi 67 // $67 first
  0c4e:76               push0 
  0c4f:54 04             self 4 

  0c51:a5 01              sat temp1 

        code_0c53
  0c53:78               push1 
  0c54:8d 01              lst temp1 
  0c56:43 3a 02         callk NodeValue 2 

  0c59:65 10             aTop theItem 
  0c5b:39 20            pushi 20 // $20 state
  0c5d:76               push0 
  0c5e:63 10             pToa theItem 
  0c60:4a 04             send 4 

  0c62:36                push 
  0c63:35 01              ldi 1 
  0c65:12                 and 
  0c66:31 02              bnt code_0c6a 
  0c68:33 02              jmp code_0c6c 

        code_0c6a
  0c6a:33 d0              jmp code_0c3c 

        code_0c6c
  0c6c:38 008b          pushi 8b // $8b select
  0c6f:78               push1 
  0c70:78               push1 
  0c71:63 10             pToa theItem 
  0c73:4a 06             send 6 


        code_0c75
  0c75:48                 ret 
    )

    (method (retreat) // method_0c76
  0c76:3f 02             link 2 // (var $2)
  0c78:63 10             pToa theItem 
  0c7a:31 4b              bnt code_0cc7 
  0c7c:38 008b          pushi 8b // $8b select
  0c7f:78               push1 
  0c80:76               push0 
  0c81:63 10             pToa theItem 
  0c83:4a 06             send 6 

  0c85:39 65            pushi 65 // $65 contains
  0c87:78               push1 
  0c88:67 10             pTos theItem 
  0c8a:54 06             self 6 

  0c8c:a5 01              sat temp1 

        code_0c8e
  0c8e:35 01              ldi 1 
  0c90:31 2c              bnt code_0cbe 
  0c92:39 6a            pushi 6a // $6a prev
  0c94:78               push1 
  0c95:8d 01              lst temp1 
  0c97:54 06             self 6 

  0c99:a5 01              sat temp1 
  0c9b:18                 not 
  0c9c:31 07              bnt code_0ca5 
  0c9e:39 69            pushi 69 // $69 last
  0ca0:76               push0 
  0ca1:54 04             self 4 

  0ca3:a5 01              sat temp1 

        code_0ca5
  0ca5:78               push1 
  0ca6:8d 01              lst temp1 
  0ca8:43 3a 02         callk NodeValue 2 

  0cab:65 10             aTop theItem 
  0cad:39 20            pushi 20 // $20 state
  0caf:76               push0 
  0cb0:63 10             pToa theItem 
  0cb2:4a 04             send 4 

  0cb4:36                push 
  0cb5:35 01              ldi 1 
  0cb7:12                 and 
  0cb8:31 02              bnt code_0cbc 
  0cba:33 02              jmp code_0cbe 

        code_0cbc
  0cbc:33 d0              jmp code_0c8e 

        code_0cbe
  0cbe:38 008b          pushi 8b // $8b select
  0cc1:78               push1 
  0cc2:78               push1 
  0cc3:63 10             pToa theItem 
  0cc5:4a 06             send 6 


        code_0cc7
  0cc7:48                 ret 
    )

    (method (handleEvent) // method_0cc8
  0cc8:3f 01             link 1 // (var $1)
  0cca:39 4c            pushi 4c // $4c claimed
  0ccc:76               push0 
  0ccd:87 01              lap param1 
  0ccf:4a 04             send 4 

  0cd1:2f 3d               bt code_0d10 
  0cd3:39 22            pushi 22 // $22 type
  0cd5:76               push0 
  0cd6:87 01              lap param1 
  0cd8:4a 04             send 4 

  0cda:36                push 
  0cdb:35 00              ldi 0 
  0cdd:1a                 eq? 
  0cde:2f 30               bt code_0d10 
  0ce0:78               push1 
  0ce1:39 22            pushi 22 // $22 type
  0ce3:76               push0 
  0ce4:87 01              lap param1 
  0ce6:4a 04             send 4 

  0ce8:1c                 ne? 
  0ce9:31 30              bnt code_0d1b 
  0ceb:39 04            pushi 4 // $4 x
  0ced:39 22            pushi 22 // $22 type
  0cef:76               push0 
  0cf0:87 01              lap param1 
  0cf2:4a 04             send 4 

  0cf4:1c                 ne? 
  0cf5:31 24              bnt code_0d1b 
  0cf7:39 40            pushi 40 // $40 modifiers
  0cf9:39 22            pushi 22 // $22 type
  0cfb:76               push0 
  0cfc:87 01              lap param1 
  0cfe:4a 04             send 4 

  0d00:1c                 ne? 
  0d01:31 18              bnt code_0d1b 
  0d03:38 0100          pushi 100 // $100 notify
  0d06:39 22            pushi 22 // $22 type
  0d08:76               push0 
  0d09:87 01              lap param1 
  0d0b:4a 04             send 4 

  0d0d:1c                 ne? 
  0d0e:31 0b              bnt code_0d1b 

        code_0d10
  0d10:7a               push2 
  0d11:67 10             pTos theItem 
  0d13:8f 01              lsp param1 
  0d15:43 19 04         callk EditControl 4 

  0d18:35 00              ldi 0 
  0d1a:48                 ret 

        code_0d1b
  0d1b:39 63            pushi 63 // $63 firstTrue
  0d1d:7a               push2 
  0d1e:39 6f            pushi 6f // $6f handleEvent
  0d20:8f 01              lsp param1 
  0d22:54 08             self 8 

  0d24:a5 00              sat temp0 
  0d26:31 39              bnt code_0d61 
  0d28:7a               push2 
  0d29:67 10             pTos theItem 
  0d2b:76               push0 
  0d2c:43 19 04         callk EditControl 4 

  0d2f:38 0092          pushi 92 // $92 checkState
  0d32:78               push1 
  0d33:7a               push2 
  0d34:85 00              lat temp0 
  0d36:4a 06             send 6 

  0d38:18                 not 
  0d39:31 23              bnt code_0d5e 
  0d3b:63 10             pToa theItem 
  0d3d:31 09              bnt code_0d48 
  0d3f:38 008b          pushi 8b // $8b select
  0d42:78               push1 
  0d43:76               push0 
  0d44:63 10             pToa theItem 
  0d46:4a 06             send 6 


        code_0d48
  0d48:38 008b          pushi 8b // $8b select
  0d4b:78               push1 
  0d4c:78               push1 
  0d4d:85 00              lat temp0 
  0d4f:65 10             aTop theItem 
  0d51:4a 06             send 6 

  0d53:39 3c            pushi 3c // $3c doit
  0d55:76               push0 
  0d56:85 00              lat temp0 
  0d58:4a 04             send 4 

  0d5a:35 00              ldi 0 
  0d5c:a5 00              sat temp0 

        code_0d5e
  0d5e:32 010a            jmp code_0e6b 

        code_0d61
  0d61:35 00              ldi 0 
  0d63:a5 00              sat temp0 
  0d65:39 22            pushi 22 // $22 type
  0d67:76               push0 
  0d68:87 01              lap param1 
  0d6a:4a 04             send 4 

  0d6c:36                push 
  0d6d:34 0100            ldi 100 
  0d70:1a                 eq? 
  0d71:2f 18               bt code_0d8b 
  0d73:39 04            pushi 4 // $4 x
  0d75:39 22            pushi 22 // $22 type
  0d77:76               push0 
  0d78:87 01              lap param1 
  0d7a:4a 04             send 4 

  0d7c:1a                 eq? 
  0d7d:31 31              bnt code_0db0 
  0d7f:39 0d            pushi d // $d lsTop
  0d81:39 28            pushi 28 // $28 message
  0d83:76               push0 
  0d84:87 01              lap param1 
  0d86:4a 04             send 4 

  0d88:1a                 eq? 
  0d89:31 25              bnt code_0db0 

        code_0d8b
  0d8b:63 10             pToa theItem 
  0d8d:31 21              bnt code_0db0 
  0d8f:38 0092          pushi 92 // $92 checkState
  0d92:78               push1 
  0d93:78               push1 
  0d94:63 10             pToa theItem 
  0d96:4a 06             send 6 

  0d98:31 16              bnt code_0db0 
  0d9a:63 10             pToa theItem 
  0d9c:a5 00              sat temp0 
  0d9e:7a               push2 
  0d9f:67 10             pTos theItem 
  0da1:76               push0 
  0da2:43 19 04         callk EditControl 4 

  0da5:39 4c            pushi 4c // $4c claimed
  0da7:78               push1 
  0da8:78               push1 
  0da9:87 01              lap param1 
  0dab:4a 06             send 6 

  0dad:32 00bb            jmp code_0e6b 

        code_0db0
  0db0:39 63            pushi 63 // $63 firstTrue
  0db2:7a               push2 
  0db3:38 0092          pushi 92 // $92 checkState
  0db6:78               push1 
  0db7:54 08             self 8 

  0db9:18                 not 
  0dba:31 30              bnt code_0dec 
  0dbc:39 04            pushi 4 // $4 x
  0dbe:39 22            pushi 22 // $22 type
  0dc0:76               push0 
  0dc1:87 01              lap param1 
  0dc3:4a 04             send 4 

  0dc5:1a                 eq? 
  0dc6:31 0c              bnt code_0dd4 
  0dc8:39 0d            pushi d // $d lsTop
  0dca:39 28            pushi 28 // $28 message
  0dcc:76               push0 
  0dcd:87 01              lap param1 
  0dcf:4a 04             send 4 

  0dd1:1a                 eq? 
  0dd2:2f 30               bt code_0e04 

        code_0dd4
  0dd4:78               push1 
  0dd5:39 22            pushi 22 // $22 type
  0dd7:76               push0 
  0dd8:87 01              lap param1 
  0dda:4a 04             send 4 

  0ddc:1a                 eq? 
  0ddd:2f 25               bt code_0e04 
  0ddf:38 0100          pushi 100 // $100 notify
  0de2:39 22            pushi 22 // $22 type
  0de4:76               push0 
  0de5:87 01              lap param1 
  0de7:4a 04             send 4 

  0de9:1a                 eq? 
  0dea:2f 18               bt code_0e04 

        code_0dec
  0dec:39 04            pushi 4 // $4 x
  0dee:39 22            pushi 22 // $22 type
  0df0:76               push0 
  0df1:87 01              lap param1 
  0df3:4a 04             send 4 

  0df5:1a                 eq? 
  0df6:31 1a              bnt code_0e12 
  0df8:39 1b            pushi 1b // $1b elements
  0dfa:39 28            pushi 28 // $28 message
  0dfc:76               push0 
  0dfd:87 01              lap param1 
  0dff:4a 04             send 4 

  0e01:1a                 eq? 
  0e02:31 0e              bnt code_0e12 

        code_0e04
  0e04:39 4c            pushi 4c // $4c claimed
  0e06:78               push1 
  0e07:78               push1 
  0e08:87 01              lap param1 
  0e0a:4a 06             send 6 

  0e0c:35 ff              ldi ff 
  0e0e:a5 00              sat temp0 
  0e10:33 59              jmp code_0e6b 

        code_0e12
  0e12:39 04            pushi 4 // $4 x
  0e14:39 22            pushi 22 // $22 type
  0e16:76               push0 
  0e17:87 01              lap param1 
  0e19:4a 04             send 4 

  0e1b:1a                 eq? 
  0e1c:31 1c              bnt code_0e3a 
  0e1e:39 09            pushi 9 // $9 nsTop
  0e20:39 28            pushi 28 // $28 message
  0e22:76               push0 
  0e23:87 01              lap param1 
  0e25:4a 04             send 4 

  0e27:1a                 eq? 
  0e28:31 10              bnt code_0e3a 
  0e2a:39 4c            pushi 4c // $4c claimed
  0e2c:78               push1 
  0e2d:78               push1 
  0e2e:87 01              lap param1 
  0e30:4a 06             send 6 

  0e32:38 0093          pushi 93 // $93 advance
  0e35:76               push0 
  0e36:54 04             self 4 

  0e38:33 31              jmp code_0e6b 

        code_0e3a
  0e3a:39 04            pushi 4 // $4 x
  0e3c:39 22            pushi 22 // $22 type
  0e3e:76               push0 
  0e3f:87 01              lap param1 
  0e41:4a 04             send 4 

  0e43:1a                 eq? 
  0e44:31 1d              bnt code_0e63 
  0e46:38 0f00          pushi f00 // $f00 sel_3840
  0e49:39 28            pushi 28 // $28 message
  0e4b:76               push0 
  0e4c:87 01              lap param1 
  0e4e:4a 04             send 4 

  0e50:1a                 eq? 
  0e51:31 10              bnt code_0e63 
  0e53:39 4c            pushi 4c // $4c claimed
  0e55:78               push1 
  0e56:78               push1 
  0e57:87 01              lap param1 
  0e59:4a 06             send 6 

  0e5b:38 0094          pushi 94 // $94 retreat
  0e5e:76               push0 
  0e5f:54 04             self 4 

  0e61:33 08              jmp code_0e6b 

        code_0e63
  0e63:7a               push2 
  0e64:67 10             pTos theItem 
  0e66:8f 01              lsp param1 
  0e68:43 19 04         callk EditControl 4 


        code_0e6b
  0e6b:85 00              lat temp0 
  0e6d:48                 ret 
    )

    (method (move) // method_0e6e
  0e6e:67 18             pTos nsRight 
  0e70:87 01              lap param1 
  0e72:02                 add 
  0e73:65 18             aTop nsRight 
  0e75:67 14             pTos nsLeft 
  0e77:87 01              lap param1 
  0e79:02                 add 
  0e7a:65 14             aTop nsLeft 
  0e7c:67 12             pTos nsTop 
  0e7e:87 02              lap param2 
  0e80:02                 add 
  0e81:65 12             aTop nsTop 
  0e83:67 16             pTos nsBottom 
  0e85:87 02              lap param2 
  0e87:02                 add 
  0e88:65 16             aTop nsBottom 
  0e8a:48                 ret 
    )

    (method (moveTo) // method_0e8b
  0e8b:38 008e          pushi 8e // $8e move
  0e8e:7a               push2 
  0e8f:8f 01              lsp param1 
  0e91:63 14             pToa nsLeft 
  0e93:04                 sub 
  0e94:36                push 
  0e95:8f 02              lsp param2 
  0e97:63 12             pToa nsTop 
  0e99:04                 sub 
  0e9a:36                push 
  0e9b:54 08             self 8 

  0e9d:48                 ret 
    )

    (method (center) // method_0e9e
  0e9e:38 008f          pushi 8f // $8f moveTo
  0ea1:7a               push2 
  0ea2:39 14            pushi 14 // $14 brLeft
  0ea4:76               push0 
  0ea5:63 0e             pToa window 
  0ea7:4a 04             send 4 

  0ea9:36                push 
  0eaa:39 16            pushi 16 // $16 brRight
  0eac:76               push0 
  0ead:63 0e             pToa window 
  0eaf:4a 04             send 4 

  0eb1:36                push 
  0eb2:39 14            pushi 14 // $14 brLeft
  0eb4:76               push0 
  0eb5:63 0e             pToa window 
  0eb7:4a 04             send 4 

  0eb9:04                 sub 
  0eba:36                push 
  0ebb:67 18             pTos nsRight 
  0ebd:63 14             pToa nsLeft 
  0ebf:04                 sub 
  0ec0:04                 sub 
  0ec1:36                push 
  0ec2:35 02              ldi 2 
  0ec4:08                 div 
  0ec5:02                 add 
  0ec6:36                push 
  0ec7:39 13            pushi 13 // $13 brTop
  0ec9:76               push0 
  0eca:63 0e             pToa window 
  0ecc:4a 04             send 4 

  0ece:36                push 
  0ecf:39 15            pushi 15 // $15 brBottom
  0ed1:76               push0 
  0ed2:63 0e             pToa window 
  0ed4:4a 04             send 4 

  0ed6:36                push 
  0ed7:39 13            pushi 13 // $13 brTop
  0ed9:76               push0 
  0eda:63 0e             pToa window 
  0edc:4a 04             send 4 

  0ede:04                 sub 
  0edf:36                push 
  0ee0:67 16             pTos nsBottom 
  0ee2:63 12             pToa nsTop 
  0ee4:04                 sub 
  0ee5:04                 sub 
  0ee6:36                push 
  0ee7:35 02              ldi 2 
  0ee9:08                 div 
  0eea:02                 add 
  0eeb:36                push 
  0eec:54 08             self 8 

  0eee:48                 ret 
    )

    (method (setSize) // method_0eef
  0eef:3f 06             link 6 // (var $6)
  0ef1:63 0c             pToa text 
  0ef3:31 20              bnt code_0f15 
  0ef5:39 04            pushi 4 // $4 x
  0ef7:5b 04 02           lea 4 2 
  0efa:36                push 
  0efb:67 0c             pTos text 
  0efd:76               push0 
  0efe:39 ff            pushi ff // $ff checkAni
  0f00:43 1a 08         callk TextSize 8 

  0f03:85 02              lat temp2 
  0f05:65 12             aTop nsTop 
  0f07:85 03              lat temp3 
  0f09:65 14             aTop nsLeft 
  0f0b:85 04              lat temp4 
  0f0d:65 16             aTop nsBottom 
  0f0f:85 05              lat temp5 
  0f11:65 18             aTop nsRight 
  0f13:33 0a              jmp code_0f1f 

        code_0f15
  0f15:35 00              ldi 0 
  0f17:65 12             aTop nsTop 
  0f19:65 14             aTop nsLeft 
  0f1b:65 16             aTop nsBottom 
  0f1d:65 18             aTop nsRight 

        code_0f1f
  0f1f:39 67            pushi 67 // $67 first
  0f21:76               push0 
  0f22:54 04             self 4 

  0f24:a5 00              sat temp0 

        code_0f26
  0f26:85 00              lat temp0 
  0f28:31 6b              bnt code_0f95 
  0f2a:78               push1 
  0f2b:8d 00              lst temp0 
  0f2d:43 3a 02         callk NodeValue 2 

  0f30:a5 01              sat temp1 
  0f32:39 0a            pushi a // $a nsLeft
  0f34:76               push0 
  0f35:85 01              lat temp1 
  0f37:4a 04             send 4 

  0f39:36                push 
  0f3a:63 14             pToa nsLeft 
  0f3c:22                 lt? 
  0f3d:31 09              bnt code_0f48 
  0f3f:39 0a            pushi a // $a nsLeft
  0f41:76               push0 
  0f42:85 01              lat temp1 
  0f44:4a 04             send 4 

  0f46:65 14             aTop nsLeft 

        code_0f48
  0f48:39 09            pushi 9 // $9 nsTop
  0f4a:76               push0 
  0f4b:85 01              lat temp1 
  0f4d:4a 04             send 4 

  0f4f:36                push 
  0f50:63 12             pToa nsTop 
  0f52:22                 lt? 
  0f53:31 09              bnt code_0f5e 
  0f55:39 09            pushi 9 // $9 nsTop
  0f57:76               push0 
  0f58:85 01              lat temp1 
  0f5a:4a 04             send 4 

  0f5c:65 12             aTop nsTop 

        code_0f5e
  0f5e:39 0c            pushi c // $c nsRight
  0f60:76               push0 
  0f61:85 01              lat temp1 
  0f63:4a 04             send 4 

  0f65:36                push 
  0f66:63 18             pToa nsRight 
  0f68:1e                 gt? 
  0f69:31 09              bnt code_0f74 
  0f6b:39 0c            pushi c // $c nsRight
  0f6d:76               push0 
  0f6e:85 01              lat temp1 
  0f70:4a 04             send 4 

  0f72:65 18             aTop nsRight 

        code_0f74
  0f74:39 0b            pushi b // $b nsBottom
  0f76:76               push0 
  0f77:85 01              lat temp1 
  0f79:4a 04             send 4 

  0f7b:36                push 
  0f7c:63 16             pToa nsBottom 
  0f7e:1e                 gt? 
  0f7f:31 09              bnt code_0f8a 
  0f81:39 0b            pushi b // $b nsBottom
  0f83:76               push0 
  0f84:85 01              lat temp1 
  0f86:4a 04             send 4 

  0f88:65 16             aTop nsBottom 

        code_0f8a
  0f8a:39 44            pushi 44 // $44 next
  0f8c:78               push1 
  0f8d:8d 00              lst temp0 
  0f8f:54 06             self 6 

  0f91:a5 00              sat temp0 
  0f93:33 91              jmp code_0f26 

        code_0f95
  0f95:67 18             pTos nsRight 
  0f97:35 04              ldi 4 
  0f99:02                 add 
  0f9a:65 18             aTop nsRight 
  0f9c:67 16             pTos nsBottom 
  0f9e:35 04              ldi 4 
  0fa0:02                 add 
  0fa1:65 16             aTop nsBottom 
  0fa3:38 008f          pushi 8f // $8f moveTo
  0fa6:7a               push2 
  0fa7:76               push0 
  0fa8:76               push0 
  0fa9:54 08             self 8 

  0fab:48                 ret 
    )

)

// 12f4
(class Controls of Collect
    (properties
        elements $0
        size $0
    )
    (method (draw) // method_0fac
  0fac:39 62            pushi 62 // $62 eachElementDo
  0fae:78               push1 
  0faf:38 008d          pushi 8d // $8d setSize
  0fb2:54 06             self 6 

  0fb4:39 62            pushi 62 // $62 eachElementDo
  0fb6:78               push1 
  0fb7:39 53            pushi 53 // $53 draw
  0fb9:54 06             self 6 

  0fbb:48                 ret 
    )

    (method (handleEvent) // method_0fbc
  0fbc:3f 01             link 1 // (var $1)
  0fbe:39 4c            pushi 4c // $4c claimed
  0fc0:76               push0 
  0fc1:87 01              lap param1 
  0fc3:4a 04             send 4 

  0fc5:31 03              bnt code_0fca 
  0fc7:35 00              ldi 0 
  0fc9:48                 ret 

        code_0fca
  0fca:39 63            pushi 63 // $63 firstTrue
  0fcc:7a               push2 
  0fcd:39 6f            pushi 6f // $6f handleEvent
  0fcf:8f 01              lsp param1 
  0fd1:54 08             self 8 

  0fd3:a5 00              sat temp0 
  0fd5:31 17              bnt code_0fee 
  0fd7:38 0092          pushi 92 // $92 checkState
  0fda:78               push1 
  0fdb:7a               push2 
  0fdc:85 00              lat temp0 
  0fde:4a 06             send 6 

  0fe0:18                 not 
  0fe1:31 0b              bnt code_0fee 
  0fe3:39 3c            pushi 3c // $3c doit
  0fe5:76               push0 
  0fe6:85 00              lat temp0 
  0fe8:4a 04             send 4 

  0fea:35 00              ldi 0 
  0fec:a5 00              sat temp0 

        code_0fee
  0fee:85 00              lat temp0 
  0ff0:48                 ret 
  0ff1:00                bnot 
    )

)


// EXPORTED procedure #0 (Print)
(procedure proc_00d8
  00d8:3e 03fd           link 3fd // (var $3fd)
  00db:35 ff              ldi ff 
  00dd:a5 07              sat temp7 
  00df:a5 06              sat temp6 
  00e1:35 00              ldi 0 
  00e3:a5 13              sat temp19 
  00e5:a5 03              sat temp3 
  00e7:a5 02              sat temp2 
  00e9:a5 12              sat temp18 
  00eb:a5 08              sat temp8 
  00ed:a5 09              sat temp9 
  00ef:39 23            pushi 23 // $23 window
  00f1:78               push1 
  00f2:89 3b              lsg gMyWindow 
  00f4:39 17            pushi 17 // $17 name
  00f6:78               push1 
  00f7:74 129a          lofss $1394 // PrintD
  00fa:39 56            pushi 56 // $56 new
  00fc:76               push0 
  00fd:51 12            class Dialog 
  00ff:4a 04             send 4 

  0101:a5 00              sat temp0 
  0103:4a 0c             send c 

  0105:39 56            pushi 56 // $56 new
  0107:76               push0 
  0108:51 0d            class DText 
  010a:4a 04             send 4 

  010c:a5 01              sat temp1 
  010e:8f 01              lsp param1 
  0110:34 03e8            ldi 3e8 
  0113:2a                ult? 
  0114:31 13              bnt code_0129 
  0116:39 03            pushi 3 // $3 y
  0118:8f 01              lsp param1 
  011a:8f 02              lsp param2 
  011c:5b 04 15           lea 4 15 
  011f:36                push 
  0120:43 4d 06         callk GetFarText 6 

  0123:35 02              ldi 2 
  0125:a5 05              sat temp5 
  0127:33 1c              jmp code_0145 

        code_0129
  0129:87 01              lap param1 
  012b:31 10              bnt code_013d 
  012d:7a               push2 
  012e:5b 04 15           lea 4 15 
  0131:36                push 
  0132:8f 01              lsp param1 
  0134:43 4b 04         callk StrCpy 4 

  0137:35 01              ldi 1 
  0139:a5 05              sat temp5 
  013b:33 08              jmp code_0145 

        code_013d
  013d:35 00              ldi 0 
  013f:a5 15              sat temp21 
  0141:35 00              ldi 0 
  0143:a5 05              sat temp5 

        code_0145
  0145:39 1a            pushi 1a // $1a text
  0147:78               push1 
  0148:5b 04 15           lea 4 15 
  014b:36                push 
  014c:38 008f          pushi 8f // $8f moveTo
  014f:7a               push2 
  0150:39 04            pushi 4 // $4 x
  0152:39 04            pushi 4 // $4 x
  0154:39 21            pushi 21 // $21 font
  0156:78               push1 
  0157:89 16              lsg gUserFont 
  0159:38 008d          pushi 8d // $8d setSize
  015c:76               push0 
  015d:85 01              lat temp1 
  015f:4a 18             send 18 

  0161:39 61            pushi 61 // $61 add
  0163:78               push1 
  0164:8d 01              lst temp1 
  0166:85 00              lat temp0 
  0168:4a 06             send 6 

  016a:85 05              lat temp5 
  016c:a5 05              sat temp5 

        code_016e
  016e:8d 05              lst temp5 
  0170:87 00              lap paramTotal 
  0172:22                 lt? 
  0173:30 01ab            bnt code_0321 
  0176:85 05              lat temp5 
  0178:9f 01             lspi param1 
  017a:3c                 dup 
  017b:35 1e              ldi 1e 
  017d:1a                 eq? 
  017e:31 10              bnt code_0190 
  0180:c5 05              +at temp5 
  0182:39 1e            pushi 1e // $1e mode
  0184:78               push1 
  0185:85 05              lat temp5 
  0187:9f 01             lspi param1 
  0189:85 01              lat temp1 
  018b:4a 06             send 6 

  018d:32 018b            jmp code_031b 

        code_0190
  0190:3c                 dup 
  0191:35 21              ldi 21 
  0193:1a                 eq? 
  0194:31 16              bnt code_01ac 
  0196:c5 05              +at temp5 
  0198:39 21            pushi 21 // $21 font
  019a:78               push1 
  019b:85 05              lat temp5 
  019d:9f 01             lspi param1 
  019f:38 008d          pushi 8d // $8d setSize
  01a2:78               push1 
  01a3:8d 08              lst temp8 
  01a5:85 01              lat temp1 
  01a7:4a 0c             send c 

  01a9:32 016f            jmp code_031b 

        code_01ac
  01ac:3c                 dup 
  01ad:35 46              ldi 46 
  01af:1a                 eq? 
  01b0:31 13              bnt code_01c5 
  01b2:c5 05              +at temp5 
  01b4:97 01             lapi param1 
  01b6:a5 08              sat temp8 
  01b8:38 008d          pushi 8d // $8d setSize
  01bb:78               push1 
  01bc:8d 08              lst temp8 
  01be:85 01              lat temp1 
  01c0:4a 06             send 6 

  01c2:32 0156            jmp code_031b 

        code_01c5
  01c5:3c                 dup 
  01c6:35 19              ldi 19 
  01c8:1a                 eq? 
  01c9:31 10              bnt code_01db 
  01cb:c5 05              +at temp5 
  01cd:39 19            pushi 19 // $19 time
  01cf:78               push1 
  01d0:85 05              lat temp5 
  01d2:9f 01             lspi param1 
  01d4:85 00              lat temp0 
  01d6:4a 06             send 6 

  01d8:32 0140            jmp code_031b 

        code_01db
  01db:3c                 dup 
  01dc:35 50              ldi 50 
  01de:1a                 eq? 
  01df:31 10              bnt code_01f1 
  01e1:c5 05              +at temp5 
  01e3:39 1a            pushi 1a // $1a text
  01e5:78               push1 
  01e6:85 05              lat temp5 
  01e8:9f 01             lspi param1 
  01ea:85 00              lat temp0 
  01ec:4a 06             send 6 

  01ee:32 012a            jmp code_031b 

        code_01f1
  01f1:3c                 dup 
  01f2:35 43              ldi 43 
  01f4:1a                 eq? 
  01f5:31 0f              bnt code_0206 
  01f7:c5 05              +at temp5 
  01f9:97 01             lapi param1 
  01fb:a5 06              sat temp6 
  01fd:c5 05              +at temp5 
  01ff:97 01             lapi param1 
  0201:a5 07              sat temp7 
  0203:32 0115            jmp code_031b 

        code_0206
  0206:3c                 dup 
  0207:35 53              ldi 53 
  0209:1a                 eq? 
  020a:31 10              bnt code_021c 
  020c:7a               push2 
  020d:39 1b            pushi 1b // $1b elements
  020f:76               push0 
  0210:81 05              lag gCast 
  0212:4a 04             send 4 

  0214:36                push 
  0215:76               push0 
  0216:43 0b 04         callk Animate 4 

  0219:32 00ff            jmp code_031b 

        code_021c
  021c:3c                 dup 
  021d:35 29              ldi 29 
  021f:1a                 eq? 
  0220:31 28              bnt code_024a 
  0222:c5 05              +at temp5 
  0224:39 1a            pushi 1a // $1a text
  0226:78               push1 
  0227:85 05              lat temp5 
  0229:9f 01             lspi param1 
  022b:39 56            pushi 56 // $56 new
  022d:76               push0 
  022e:51 10            class DEdit 
  0230:4a 04             send 4 

  0232:a5 03              sat temp3 
  0234:4a 06             send 6 

  0236:c5 05              +at temp5 
  0238:39 25            pushi 25 // $25 max
  023a:78               push1 
  023b:85 05              lat temp5 
  023d:9f 01             lspi param1 
  023f:38 008d          pushi 8d // $8d setSize
  0242:76               push0 
  0243:85 03              lat temp3 
  0245:4a 0a             send a 

  0247:32 00d1            jmp code_031b 

        code_024a
  024a:3c                 dup 
  024b:35 51              ldi 51 
  024d:1a                 eq? 
  024e:31 37              bnt code_0287 
  0250:39 1a            pushi 1a // $1a text
  0252:78               push1 
  0253:c5 05              +at temp5 
  0255:9f 01             lspi param1 
  0257:39 4d            pushi 4d // $4d value
  0259:78               push1 
  025a:c5 05              +at temp5 
  025c:9f 01             lspi param1 
  025e:38 008d          pushi 8d // $8d setSize
  0261:76               push0 
  0262:39 56            pushi 56 // $56 new
  0264:76               push0 
  0265:51 0f            class DButton 
  0267:4a 04             send 4 

  0269:36                push 
  026a:85 13              lat temp19 
  026c:b5 0c             sati temp12 
  026e:4a 10             send 10 

  0270:8d 12              lst temp18 
  0272:39 0c            pushi c // $c nsRight
  0274:76               push0 
  0275:85 13              lat temp19 
  0277:95 0c             lati temp12 
  0279:4a 04             send 4 

  027b:36                push 
  027c:35 04              ldi 4 
  027e:02                 add 
  027f:02                 add 
  0280:a5 12              sat temp18 
  0282:c5 13              +at temp19 
  0284:32 0094            jmp code_031b 

        code_0287
  0287:3c                 dup 
  0288:35 52              ldi 52 
  028a:1a                 eq? 
  028b:31 64              bnt code_02f1 
  028d:78               push1 
  028e:8d 05              lst temp5 
  0290:35 01              ldi 1 
  0292:02                 add 
  0293:9f 01             lspi param1 
  0295:43 06 02         callk IsObject 2 

  0298:31 1f              bnt code_02b9 
  029a:39 56            pushi 56 // $56 new
  029c:76               push0 
  029d:8d 05              lst temp5 
  029f:35 01              ldi 1 
  02a1:02                 add 
  02a2:97 01             lapi param1 
  02a4:4a 04             send 4 

  02a6:a5 02              sat temp2 
  02a8:38 008d          pushi 8d // $8d setSize
  02ab:76               push0 
  02ac:85 02              lat temp2 
  02ae:4a 04             send 4 

  02b0:8d 05              lst temp5 
  02b2:35 01              ldi 1 
  02b4:02                 add 
  02b5:a5 05              sat temp5 
  02b7:33 36              jmp code_02ef 

        code_02b9
  02b9:39 56            pushi 56 // $56 new
  02bb:76               push0 
  02bc:51 0e            class DIcon 
  02be:4a 04             send 4 

  02c0:a5 02              sat temp2 
  02c2:39 05            pushi 5 // $5 view
  02c4:78               push1 
  02c5:8d 05              lst temp5 
  02c7:35 01              ldi 1 
  02c9:02                 add 
  02ca:9f 01             lspi param1 
  02cc:39 06            pushi 6 // $6 loop
  02ce:78               push1 
  02cf:8d 05              lst temp5 
  02d1:35 02              ldi 2 
  02d3:02                 add 
  02d4:9f 01             lspi param1 
  02d6:39 07            pushi 7 // $7 cel
  02d8:78               push1 
  02d9:8d 05              lst temp5 
  02db:35 03              ldi 3 
  02dd:02                 add 
  02de:9f 01             lspi param1 
  02e0:38 008d          pushi 8d // $8d setSize
  02e3:76               push0 
  02e4:85 02              lat temp2 
  02e6:4a 16             send 16 

  02e8:8d 05              lst temp5 
  02ea:35 03              ldi 3 
  02ec:02                 add 
  02ed:a5 05              sat temp5 

        code_02ef
  02ef:33 2a              jmp code_031b 

        code_02f1
  02f1:3c                 dup 
  02f2:35 58              ldi 58 
  02f4:1a                 eq? 
  02f5:31 11              bnt code_0308 
  02f7:81 19              lag gModelessDialog 
  02f9:31 07              bnt code_0302 
  02fb:39 58            pushi 58 // $58 dispose
  02fd:76               push0 
  02fe:81 19              lag gModelessDialog 
  0300:4a 04             send 4 


        code_0302
  0302:85 00              lat temp0 
  0304:a5 09              sat temp9 
  0306:33 13              jmp code_031b 

        code_0308
  0308:3c                 dup 
  0309:35 23              ldi 23 
  030b:1a                 eq? 
  030c:31 0d              bnt code_031b 
  030e:c5 05              +at temp5 
  0310:39 23            pushi 23 // $23 window
  0312:78               push1 
  0313:85 05              lat temp5 
  0315:9f 01             lspi param1 
  0317:85 00              lat temp0 
  0319:4a 06             send 6 


        code_031b
  031b:3a                toss 
  031c:c5 05              +at temp5 
  031e:32 fe4d            jmp code_016e 

        code_0321
  0321:85 02              lat temp2 
  0323:31 2b              bnt code_0350 
  0325:38 008f          pushi 8f // $8f moveTo
  0328:7a               push2 
  0329:39 04            pushi 4 // $4 x
  032b:39 04            pushi 4 // $4 x
  032d:85 02              lat temp2 
  032f:4a 08             send 8 

  0331:38 008f          pushi 8f // $8f moveTo
  0334:7a               push2 
  0335:39 04            pushi 4 // $4 x
  0337:39 0b            pushi b // $b nsBottom
  0339:76               push0 
  033a:85 02              lat temp2 
  033c:4a 04             send 4 

  033e:36                push 
  033f:35 01              ldi 1 
  0341:02                 add 
  0342:36                push 
  0343:85 01              lat temp1 
  0345:4a 08             send 8 

  0347:39 61            pushi 61 // $61 add
  0349:78               push1 
  034a:8d 02              lst temp2 
  034c:85 00              lat temp0 
  034e:4a 06             send 6 


        code_0350
  0350:38 008d          pushi 8d // $8d setSize
  0353:76               push0 
  0354:85 00              lat temp0 
  0356:4a 04             send 4 

  0358:85 03              lat temp3 
  035a:31 28              bnt code_0384 
  035c:38 008f          pushi 8f // $8f moveTo
  035f:7a               push2 
  0360:39 0a            pushi a // $a nsLeft
  0362:76               push0 
  0363:85 01              lat temp1 
  0365:4a 04             send 4 

  0367:36                push 
  0368:39 04            pushi 4 // $4 x
  036a:39 0b            pushi b // $b nsBottom
  036c:76               push0 
  036d:85 01              lat temp1 
  036f:4a 04             send 4 

  0371:02                 add 
  0372:36                push 
  0373:85 03              lat temp3 
  0375:4a 08             send 8 

  0377:39 61            pushi 61 // $61 add
  0379:78               push1 
  037a:8d 03              lst temp3 
  037c:38 008d          pushi 8d // $8d setSize
  037f:76               push0 
  0380:85 00              lat temp0 
  0382:4a 0a             send a 


        code_0384
  0384:8d 12              lst temp18 
  0386:39 0c            pushi c // $c nsRight
  0388:76               push0 
  0389:85 00              lat temp0 
  038b:4a 04             send 4 

  038d:1e                 gt? 
  038e:31 04              bnt code_0394 
  0390:35 04              ldi 4 
  0392:33 0b              jmp code_039f 

        code_0394
  0394:39 0c            pushi c // $c nsRight
  0396:76               push0 
  0397:85 00              lat temp0 
  0399:4a 04             send 4 

  039b:36                push 
  039c:85 12              lat temp18 
  039e:04                 sub 

        code_039f
  039f:a5 14              sat temp20 
  03a1:35 00              ldi 0 
  03a3:a5 05              sat temp5 

        code_03a5
  03a5:8d 05              lst temp5 
  03a7:85 13              lat temp19 
  03a9:22                 lt? 
  03aa:31 31              bnt code_03dd 
  03ac:38 008f          pushi 8f // $8f moveTo
  03af:7a               push2 
  03b0:8d 14              lst temp20 
  03b2:39 0b            pushi b // $b nsBottom
  03b4:76               push0 
  03b5:85 00              lat temp0 
  03b7:4a 04             send 4 

  03b9:36                push 
  03ba:85 05              lat temp5 
  03bc:95 0c             lati temp12 
  03be:4a 08             send 8 

  03c0:39 61            pushi 61 // $61 add
  03c2:78               push1 
  03c3:85 05              lat temp5 
  03c5:9d 0c             lsti temp12 
  03c7:85 00              lat temp0 
  03c9:4a 06             send 6 

  03cb:39 04            pushi 4 // $4 x
  03cd:39 0c            pushi c // $c nsRight
  03cf:76               push0 
  03d0:85 05              lat temp5 
  03d2:95 0c             lati temp12 
  03d4:4a 04             send 4 

  03d6:02                 add 
  03d7:a5 14              sat temp20 
  03d9:c5 05              +at temp5 
  03db:33 c8              jmp code_03a5 

        code_03dd
  03dd:38 008d          pushi 8d // $8d setSize
  03e0:76               push0 
  03e1:38 0098          pushi 98 // $98 center
  03e4:76               push0 
  03e5:85 00              lat temp0 
  03e7:4a 08             send 8 

  03e9:85 02              lat temp2 
  03eb:31 31              bnt code_041e 
  03ed:38 008f          pushi 8f // $8f moveTo
  03f0:7a               push2 
  03f1:39 0c            pushi c // $c nsRight
  03f3:76               push0 
  03f4:85 00              lat temp0 
  03f6:4a 04             send 4 

  03f8:36                push 
  03f9:39 0a            pushi a // $a nsLeft
  03fb:76               push0 
  03fc:85 00              lat temp0 
  03fe:4a 04             send 4 

  0400:04                 sub 
  0401:36                push 
  0402:39 0c            pushi c // $c nsRight
  0404:76               push0 
  0405:85 02              lat temp2 
  0407:4a 04             send 4 

  0409:36                push 
  040a:39 0a            pushi a // $a nsLeft
  040c:76               push0 
  040d:85 02              lat temp2 
  040f:4a 04             send 4 

  0411:04                 sub 
  0412:04                 sub 
  0413:36                push 
  0414:35 02              ldi 2 
  0416:08                 div 
  0417:36                push 
  0418:39 04            pushi 4 // $4 x
  041a:85 02              lat temp2 
  041c:4a 08             send 8 


        code_041e
  041e:38 008f          pushi 8f // $8f moveTo
  0421:7a               push2 
  0422:39 ff            pushi ff // $ff checkAni
  0424:85 06              lat temp6 
  0426:1a                 eq? 
  0427:31 09              bnt code_0432 
  0429:39 0a            pushi a // $a nsLeft
  042b:76               push0 
  042c:85 00              lat temp0 
  042e:4a 04             send 4 

  0430:33 02              jmp code_0434 

        code_0432
  0432:85 06              lat temp6 

        code_0434
  0434:36                push 
  0435:39 ff            pushi ff // $ff checkAni
  0437:85 07              lat temp7 
  0439:1a                 eq? 
  043a:31 04              bnt code_0440 
  043c:35 0a              ldi a 
  043e:33 02              jmp code_0442 

        code_0440
  0440:85 07              lat temp7 

        code_0442
  0442:36                push 
  0443:85 00              lat temp0 
  0445:4a 08             send 8 

  0447:76               push0 
  0448:43 14 00         callk GetPort 0 

  044b:a5 0b              sat temp11 
  044d:38 0097          pushi 97 // $97 open
  0450:7a               push2 
  0451:39 1a            pushi 1a // $1a text
  0453:76               push0 
  0454:85 00              lat temp0 
  0456:4a 04             send 4 

  0458:31 04              bnt code_045e 
  045a:35 04              ldi 4 
  045c:33 02              jmp code_0460 

        code_045e
  045e:35 00              ldi 0 

        code_0460
  0460:36                push 
  0461:85 09              lat temp9 
  0463:31 04              bnt code_0469 
  0465:35 0f              ldi f 
  0467:33 02              jmp code_046b 

        code_0469
  0469:35 ff              ldi ff 

        code_046b
  046b:36                push 
  046c:85 00              lat temp0 
  046e:4a 08             send 8 

  0470:85 09              lat temp9 
  0472:31 11              bnt code_0485 
  0474:76               push0 
  0475:43 14 00         callk GetPort 0 

  0478:a3 00              sal local0 
  047a:78               push1 
  047b:8d 0b              lst temp11 
  047d:43 15 02         callk SetPort 2 

  0480:85 09              lat temp9 
  0482:a1 19              sag gModelessDialog 
  0484:48                 ret 

        code_0485
  0485:39 63            pushi 63 // $63 firstTrue
  0487:7a               push2 
  0488:38 0092          pushi 92 // $92 checkState
  048b:78               push1 
  048c:85 00              lat temp0 
  048e:4a 08             send 8 

  0490:a5 0a              sat temp10 
  0492:31 21              bnt code_04b5 
  0494:39 63            pushi 63 // $63 firstTrue
  0496:7a               push2 
  0497:38 0092          pushi 92 // $92 checkState
  049a:7a               push2 
  049b:85 00              lat temp0 
  049d:4a 08             send 8 

  049f:18                 not 
  04a0:31 13              bnt code_04b5 
  04a2:39 20            pushi 20 // $20 state
  04a4:78               push1 
  04a5:39 20            pushi 20 // $20 state
  04a7:76               push0 
  04a8:85 0a              lat temp10 
  04aa:4a 04             send 4 

  04ac:36                push 
  04ad:35 02              ldi 2 
  04af:14                  or 
  04b0:36                push 
  04b1:85 0a              lat temp10 
  04b3:4a 06             send 6 


        code_04b5
  04b5:39 3c            pushi 3c // $3c doit
  04b7:78               push1 
  04b8:8d 0a              lst temp10 
  04ba:85 00              lat temp0 
  04bc:4a 06             send 6 

  04be:a5 04              sat temp4 
  04c0:36                push 
  04c1:35 ff              ldi ff 
  04c3:1a                 eq? 
  04c4:31 04              bnt code_04ca 
  04c6:35 00              ldi 0 
  04c8:a5 04              sat temp4 

        code_04ca
  04ca:35 00              ldi 0 
  04cc:a5 05              sat temp5 

        code_04ce
  04ce:8d 05              lst temp5 
  04d0:85 13              lat temp19 
  04d2:22                 lt? 
  04d3:31 18              bnt code_04ed 
  04d5:8d 04              lst temp4 
  04d7:85 05              lat temp5 
  04d9:95 0c             lati temp12 
  04db:1a                 eq? 
  04dc:31 0b              bnt code_04e9 
  04de:39 4d            pushi 4d // $4d value
  04e0:76               push0 
  04e1:85 04              lat temp4 
  04e3:4a 04             send 4 

  04e5:a5 04              sat temp4 
  04e7:33 04              jmp code_04ed 

        code_04e9
  04e9:c5 05              +at temp5 
  04eb:33 e1              jmp code_04ce 

        code_04ed
  04ed:38 0095          pushi 95 // $95 theItem
  04f0:76               push0 
  04f1:85 00              lat temp0 
  04f3:4a 04             send 4 

  04f5:18                 not 
  04f6:31 04              bnt code_04fc 
  04f8:35 01              ldi 1 
  04fa:a5 04              sat temp4 

        code_04fc
  04fc:39 58            pushi 58 // $58 dispose
  04fe:76               push0 
  04ff:85 00              lat temp0 
  0501:4a 04             send 4 

  0503:85 04              lat temp4 
  0505:48                 ret 
)

// EXPORTED procedure #1 (ShowView)
(procedure proc_00c6
  00c6:39 05            pushi 5 // $5 view
  00c8:8f 01              lsp param1 
  00ca:39 52            pushi 52 // $52 icon
  00cc:8f 02              lsp param2 
  00ce:8f 03              lsp param3 
  00d0:8f 04              lsp param4 
  00d2:59 05            &rest 5 
  00d4:41 01 0a          call proc_00d8 a 

  00d7:48                 ret 
)

// EXPORTED procedure #2 (GetInput)
(procedure proc_009f
  009f:3f 03             link 3 // (var $3)
  00a1:39 04            pushi 4 // $4 x
  00a3:8f 00              lsp paramTotal 
  00a5:35 03              ldi 3 
  00a7:20                 ge? 
  00a8:31 04              bnt code_00ae 
  00aa:87 03              lap param3 
  00ac:33 03              jmp code_00b1 

        code_00ae
  00ae:72 129f          lofsa $1350 // 

        code_00b1
  00b1:36                push 
  00b2:39 29            pushi 29 // $29 edit
  00b4:8f 01              lsp param1 
  00b6:8f 02              lsp param2 
  00b8:59 04            &rest 4 
  00ba:41 1b 08          call proc_00d8 8 

  00bd:31 06              bnt code_00c5 
  00bf:78               push1 
  00c0:8f 01              lsp param1 
  00c2:43 4a 02         callk StrLen 2 


        code_00c5
  00c5:48                 ret 
)

// EXPORTED procedure #3 (GetNumber)
(procedure proc_0506
  0506:3f 28             link 28 // (var $28)
  0508:35 00              ldi 0 
  050a:a5 00              sat temp0 
  050c:8f 00              lsp paramTotal 
  050e:35 01              ldi 1 
  0510:1e                 gt? 
  0511:31 0f              bnt code_0522 
  0513:39 04            pushi 4 // $4 x
  0515:5b 04 00           lea 4 0 
  0518:36                push 
  0519:38 00ff          pushi ff // $ff checkAni
  051c:76               push0 
  051d:8f 02              lsp param2 
  051f:43 4c 08         callk Format 8 


        code_0522
  0522:39 03            pushi 3 // $3 y
  0524:5b 04 00           lea 4 0 
  0527:36                push 
  0528:39 05            pushi 5 // $5 view
  052a:8f 01              lsp param1 
  052c:40 fb6f 06        call proc_009f 6 

  0530:31 0a              bnt code_053c 
  0532:78               push1 
  0533:5b 04 00           lea 4 0 
  0536:36                push 
  0537:43 4e 02         callk ReadNumber 2 

  053a:33 02              jmp code_053e 

        code_053c
  053c:35 ff              ldi ff 

        code_053e
  053e:48                 ret 
)

// EXPORTED procedure #4 (Printf)
(procedure proc_053f
  053f:3e 01f4           link 1f4 // (var $1f4)
  0542:78               push1 
  0543:5b 04 00           lea 4 0 
  0546:36                push 
  0547:59 01            &rest 1 
  0549:43 4c 02         callk Format 2 

  054c:78               push1 
  054d:5b 04 00           lea 4 0 
  0550:36                push 
  0551:40 fb83 02        call proc_00d8 2 

  0555:48                 ret 
)

// EXPORTED procedure #5 (MousedOn)
(procedure proc_0038
  0038:39 22            pushi 22 // $22 type
  003a:76               push0 
  003b:87 02              lap param2 
  003d:4a 04             send 4 

  003f:36                push 
  0040:35 01              ldi 1 
  0042:1c                 ne? 
  0043:31 04              bnt code_0049 
  0045:35 00              ldi 0 
  0047:33 55              jmp code_009e 

        code_0049
  0049:8f 00              lsp paramTotal 
  004b:35 03              ldi 3 
  004d:20                 ge? 
  004e:31 19              bnt code_0069 
  0050:87 03              lap param3 
  0052:31 15              bnt code_0069 
  0054:39 40            pushi 40 // $40 modifiers
  0056:76               push0 
  0057:87 02              lap param2 
  0059:4a 04             send 4 

  005b:36                push 
  005c:87 03              lap param3 
  005e:12                 and 
  005f:36                push 
  0060:35 00              ldi 0 
  0062:1a                 eq? 
  0063:31 04              bnt code_0069 
  0065:35 00              ldi 0 
  0067:33 35              jmp code_009e 

        code_0069
  0069:39 5e            pushi 5e // $5e respondsTo
  006b:78               push1 
  006c:39 0a            pushi a // $a nsLeft
  006e:87 01              lap param1 
  0070:4a 06             send 6 

  0072:31 2a              bnt code_009e 
  0074:39 05            pushi 5 // $5 view
  0076:39 0a            pushi a // $a nsLeft
  0078:76               push0 
  0079:87 01              lap param1 
  007b:4a 04             send 4 

  007d:36                push 
  007e:39 09            pushi 9 // $9 nsTop
  0080:76               push0 
  0081:87 01              lap param1 
  0083:4a 04             send 4 

  0085:36                push 
  0086:39 0c            pushi c // $c nsRight
  0088:76               push0 
  0089:87 01              lap param1 
  008b:4a 04             send 4 

  008d:36                push 
  008e:39 0b            pushi b // $b nsBottom
  0090:76               push0 
  0091:87 01              lap param1 
  0093:4a 04             send 4 

  0095:36                push 
  0096:8f 02              lsp param2 
  0098:46 03e7 0004 0a  calle 3e7 procedure_0004 a // InRect 


        code_009e
  009e:48                 ret 
)


(procedure proc_0016
  0016:3f 02             link 2 // (var $2)
  0018:39 56            pushi 56 // $56 new
  001a:76               push0 
  001b:51 06            class Event 
  001d:4a 04             send 4 

  001f:a5 00              sat temp0 
  0021:39 22            pushi 22 // $22 type
  0023:76               push0 
  0024:85 00              lat temp0 
  0026:4a 04             send 4 

  0028:36                push 
  0029:35 02              ldi 2 
  002b:1c                 ne? 
  002c:a5 01              sat temp1 
  002e:39 58            pushi 58 // $58 dispose
  0030:76               push0 
  0031:85 00              lat temp0 
  0033:4a 04             send 4 

  0035:85 01              lat temp1 
  0037:48                 ret 
)

