home *** CD-ROM | disk | FTP | other *** search
| Unknown | 1991-01-08 | 33.0 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was not able to be converted.
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 100%
| file
| data
| default
| |
| 100%
| xdgMime
| image/x-tga
| default
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 1d f4 20 3e 20 | 24 2e 21 21 4d 61 6e 61 |..... > |$.!!Mana|
|00000010| 67 65 72 2e 21 52 75 6e | 49 6d 61 67 65 0d 00 14 |ger.!Run|Image...|
|00000020| 04 0d 00 1e 1d 65 6e 74 | 25 3d 30 3a 62 69 67 75 |.....ent|%=0:bigu|
|00000030| 70 25 3d 30 3a 6d 61 78 | 25 3d 31 34 30 30 0d 00 |p%=0:max|%=1400..|
|00000040| 28 0b 6f 70 74 78 25 3d | 39 0d 00 32 0f 73 73 25 |(.optx%=|9..2.ss%|
|00000050| 3d 30 3a 70 6f 25 3d 31 | 0d 00 3c 11 de 20 64 62 |=0:po%=1|..<.. db|
|00000060| 24 28 6d 61 78 25 2c 31 | 29 0d 00 46 3c e3 4a 25 |$(max%,1|)..F<.J%|
|00000070| 3d 30 20 b8 20 6d 61 78 | 25 3a 64 62 24 28 4a 25 |=0 . max|%:db$(J%|
|00000080| 2c 30 29 3d c4 32 35 35 | 2c 22 20 22 29 3a 64 62 |,0)=.255|," "):db|
|00000090| 24 28 4a 25 2c 31 29 3d | c4 31 33 34 2c 22 20 22 |$(J%,1)=|.134," "|
|000000a0| 29 3a ed 4a 25 0d 00 50 | 15 63 75 72 72 65 6e 74 |):.J%..P|.current|
|000000b0| 25 3d 30 3a 6e 62 72 25 | 3d 31 0d 00 5a 04 0d 00 |%=0:nbr%|=1..Z...|
|000000c0| 64 0e de 20 6f 70 74 25 | 28 35 30 29 0d 00 6e 0e |d.. opt%|(50)..n.|
|000000d0| de 20 6f 70 74 32 25 28 | 39 29 0d 00 78 37 6f 70 |. opt2%(|9)..x7op|
|000000e0| 74 25 28 31 29 3d 31 34 | 3a 6f 70 74 25 28 32 29 |t%(1)=14|:opt%(2)|
|000000f0| 3d 31 36 3a 6f 70 74 25 | 28 33 29 3d 30 3a 6f 70 |=16:opt%|(3)=0:op|
|00000100| 74 25 28 34 29 3d 30 3a | 6f 70 74 25 28 35 29 3d |t%(4)=0:|opt%(5)=|
|00000110| 30 0d 00 82 5f 6f 70 74 | 25 28 36 29 3d 31 30 3a |0..._opt|%(6)=10:|
|00000120| 6f 70 74 25 28 37 29 3d | 31 31 3a 6f 70 74 25 28 |opt%(7)=|11:opt%(|
|00000130| 38 29 3d 31 35 3a 6f 70 | 74 25 28 39 29 3d 32 31 |8)=15:op|t%(9)=21|
|00000140| 3a 6f 70 74 25 28 31 30 | 29 3d 32 37 3a 6f 70 74 |:opt%(10|)=27:opt|
|00000150| 25 28 31 31 29 3d 33 34 | 3a 6f 70 74 25 28 31 32 |%(11)=34|:opt%(12|
|00000160| 29 3d 34 30 3a 6f 70 74 | 25 28 31 33 29 3d 34 36 |)=40:opt|%(13)=46|
|00000170| 0d 00 8c 67 6f 70 74 25 | 28 31 34 29 3d 30 3a 6f |...gopt%|(14)=0:o|
|00000180| 70 74 25 28 31 35 29 3d | 30 3a 6f 70 74 25 28 31 |pt%(15)=|0:opt%(1|
|00000190| 36 29 3d 30 3a 6f 70 74 | 25 28 31 37 29 3d 30 3a |6)=0:opt|%(17)=0:|
|000001a0| 6f 70 74 25 28 31 38 29 | 3d 30 3a 6f 70 74 25 28 |opt%(18)|=0:opt%(|
|000001b0| 31 39 29 3d 30 3a 6f 70 | 74 25 28 32 30 29 3d 30 |19)=0:op|t%(20)=0|
|000001c0| 3a 6f 70 74 25 28 32 31 | 29 3d 30 3a 6f 70 74 25 |:opt%(21|)=0:opt%|
|000001d0| 28 32 32 29 3d 35 30 0d | 00 96 5b 6f 70 74 25 28 |(22)=50.|..[opt%(|
|000001e0| 32 33 29 3d 31 3a 6f 70 | 74 25 28 32 34 29 3d 31 |23)=1:op|t%(24)=1|
|000001f0| 3a 6f 70 74 25 28 32 35 | 29 3d 31 3a 6f 70 74 25 |:opt%(25|)=1:opt%|
|00000200| 28 32 36 29 3d 31 3a 6f | 70 74 25 28 32 37 29 3d |(26)=1:o|pt%(27)=|
|00000210| 31 3a 6f 70 74 25 28 32 | 38 29 3d 31 3a 6f 70 74 |1:opt%(2|8)=1:opt|
|00000220| 25 28 32 39 29 3d 31 3a | 6f 70 74 25 28 33 30 29 |%(29)=1:|opt%(30)|
|00000230| 3d 31 0d 00 a0 0c 65 6e | 74 65 72 25 3d a3 0d 00 |=1....en|ter%=...|
|00000240| aa 0c 74 68 69 73 25 3d | 2d 31 0d 00 b4 41 64 72 |..this%=|-1...Adr|
|00000250| 61 67 6d 65 73 73 24 3d | 22 54 6f 20 73 61 76 65 |agmess$=|"To save|
|00000260| 2c 20 64 72 61 67 20 74 | 68 65 20 66 69 6c 65 20 |, drag t|he file |
|00000270| 69 63 6f 6e 20 74 6f 20 | 61 20 64 69 72 65 63 74 |icon to |a direct|
|00000280| 6f 72 79 20 76 69 65 77 | 65 72 22 0d 00 be 0f de |ory view|er".....|
|00000290| 20 66 69 6c 65 25 20 32 | 35 36 0d 00 c8 15 24 66 | file% 2|56....$f|
|000002a0| 69 6c 65 25 3d 22 20 20 | 20 20 20 20 20 20 22 0d |ile%=" | ".|
|000002b0| 00 d2 0f de 20 6f 75 74 | 76 25 20 32 35 36 0d 00 |.... out|v% 256..|
|000002c0| dc 0e de 20 69 6e 76 25 | 20 32 35 36 0d 00 e6 0e |... inv%| 256....|
|000002d0| de 20 62 62 6c 25 20 33 | 32 30 0d 00 f0 1e de 20 |. bbl% 3|20..... |
|000002e0| 74 61 73 6b 69 64 25 34 | 3a 24 74 61 73 6b 69 64 |taskid%4|:$taskid|
|000002f0| 25 3d 22 54 41 53 4b 22 | 0d 00 fa 2f c8 99 20 22 |%="TASK"|.../.. "|
|00000300| 57 69 6d 70 5f 49 6e 69 | 74 69 61 6c 69 73 65 22 |Wimp_Ini|tialise"|
|00000310| 2c 32 30 30 2c 21 74 61 | 73 6b 69 64 25 2c 22 4d |,200,!ta|skid%,"M|
|00000320| 61 6e 61 67 65 72 22 0d | 01 04 4b 60 77 62 63 6f |anager".|..K`wbco|
|00000330| 6c 3d 31 35 3a 60 74 62 | 63 6f 6c 3d 32 3a 60 73 |l=15:`tb|col=2:`s|
|00000340| 63 6f 3d 34 3a 60 6d 62 | 63 6f 6c 3d 32 3a 60 77 |co=4:`mb|col=2:`w|
|00000350| 66 63 6f 6c 3d 37 3a 60 | 74 66 63 6f 6c 3d 37 3a |fcol=7:`|tfcol=7:|
|00000360| 60 73 63 69 3d 26 44 3a | 60 74 62 63 6f 6c 32 3d |`sci=&D:|`tbcol2=|
|00000370| 26 43 0d 01 0e 09 f2 76 | 61 72 73 0d 01 18 b7 de |&C.....v|ars.....|
|00000380| 20 71 25 20 26 31 30 30 | 30 2c 6f 6c 64 71 25 20 | q% &100|0,oldq% |
|00000390| 26 31 30 30 30 2c 74 65 | 6d 70 25 20 32 35 36 2a |&1000,te|mp% 256*|
|000003a0| 34 2c 74 65 6d 70 32 25 | 20 32 35 31 32 2c 74 65 |4,temp2%| 2512,te|
|000003b0| 6d 70 33 25 20 35 31 32 | 2c 74 65 6d 70 34 25 20 |mp3% 512|,temp4% |
|000003c0| 35 31 32 2c 74 65 6d 70 | 35 25 20 35 31 32 2c 74 |512,temp|5% 512,t|
|000003d0| 65 6d 70 36 25 20 32 35 | 31 32 2c 74 65 6d 70 37 |emp6% 25|12,temp7|
|000003e0| 25 20 31 30 32 34 2c 74 | 65 6d 70 38 25 20 35 31 |% 1024,t|emp8% 51|
|000003f0| 32 2c 74 65 6d 70 39 25 | 20 35 31 32 2c 74 65 6d |2,temp9%| 512,tem|
|00000400| 70 61 25 20 31 30 32 34 | 2c 62 75 66 66 65 72 25 |pa% 1024|,buffer%|
|00000410| 20 26 32 30 30 2a 32 2c | 65 6e 64 62 75 66 25 20 | &200*2,|endbuf% |
|00000420| 2d 31 3a 63 75 72 62 75 | 66 25 3d 62 75 66 66 65 |-1:curbu|f%=buffe|
|00000430| 72 25 0d 01 22 0e de 20 | 70 74 65 25 20 33 30 30 |r%..".. |pte% 300|
|00000440| 0d 01 2c 04 0d 01 36 34 | c8 99 20 22 57 69 6d 70 |..,...64|.. "Wimp|
|00000450| 5f 4f 70 65 6e 54 65 6d | 70 6c 61 74 65 22 2c 2c |_OpenTem|plate",,|
|00000460| 22 3c 4d 61 6e 61 67 65 | 72 24 44 69 72 3e 2e 54 |"<Manage|r$Dir>.T|
|00000470| 65 6d 70 6c 61 74 65 22 | 0d 01 40 35 ee 20 85 20 |emplate"|..@5. . |
|00000480| c8 99 20 22 57 69 6d 70 | 5f 43 6c 6f 73 65 54 65 |.. "Wimp|_CloseTe|
|00000490| 6d 70 6c 61 74 65 22 3a | f2 65 72 72 6f 72 64 69 |mplate":|.errordi|
|000004a0| 73 70 6c 61 79 28 9f 2c | f6 24 2c 9e 29 0d 01 4a |splay(.,|.$,.)..J|
|000004b0| 3a c8 99 20 22 57 69 6d | 70 5f 4c 6f 61 64 54 65 |:.. "Wim|p_LoadTe|
|000004c0| 6d 70 6c 61 74 65 22 2c | 2c 71 25 2c 74 65 6d 70 |mplate",|,q%,temp|
|000004d0| 25 2c 74 65 6d 70 25 2b | 32 35 36 2c 2d 31 2c 22 |%,temp%+|256,-1,"|
|000004e0| 49 6e 66 6f 22 2c 30 0d | 01 54 26 c8 99 20 22 57 |Info",0.|.T&.. "W|
|000004f0| 69 6d 70 5f 43 72 65 61 | 74 65 57 69 6e 64 6f 77 |imp_Crea|teWindow|
|00000500| 22 2c 2c 71 25 20 b8 20 | 69 6e 66 6f 25 0d 01 5e |",,q% . |info%..^|
|00000510| 3c c8 99 20 22 57 69 6d | 70 5f 4c 6f 61 64 54 65 |<.. "Wim|p_LoadTe|
|00000520| 6d 70 6c 61 74 65 22 2c | 2c 71 25 2c 74 65 6d 70 |mplate",|,q%,temp|
|00000530| 34 25 2c 74 65 6d 70 34 | 25 2b 35 31 32 2c 2d 31 |4%,temp4|%+512,-1|
|00000540| 2c 22 42 61 73 73 22 2c | 30 0d 01 68 26 c8 99 20 |,"Bass",|0..h&.. |
|00000550| 22 57 69 6d 70 5f 43 72 | 65 61 74 65 57 69 6e 64 |"Wimp_Cr|eateWind|
|00000560| 6f 77 22 2c 2c 71 25 20 | b8 20 62 61 73 73 25 0d |ow",,q% |. bass%.|
|00000570| 01 72 44 c8 99 20 22 57 | 69 6d 70 5f 4c 6f 61 64 |.rD.. "W|imp_Load|
|00000580| 54 65 6d 70 6c 61 74 65 | 22 2c 2c 71 25 2c 74 65 |Template|",,q%,te|
|00000590| 6d 70 32 25 2c 74 65 6d | 70 32 25 2b 32 35 31 32 |mp2%,tem|p2%+2512|
|000005a0| 2c 2d 31 2c 22 53 6f 66 | 74 4d 61 6e 61 67 65 72 |,-1,"Sof|tManager|
|000005b0| 22 2c 30 0d 01 7c 26 c8 | 99 20 22 57 69 6d 70 5f |",0..|&.|. "Wimp_|
|000005c0| 43 72 65 61 74 65 57 69 | 6e 64 6f 77 22 2c 2c 71 |CreateWi|ndow",,q|
|000005d0| 25 20 b8 20 73 6f 66 74 | 25 0d 01 86 3e c8 99 20 |% . soft|%...>.. |
|000005e0| 22 57 69 6d 70 5f 4c 6f | 61 64 54 65 6d 70 6c 61 |"Wimp_Lo|adTempla|
|000005f0| 74 65 22 2c 2c 71 25 2c | 74 65 6d 70 33 25 2c 74 |te",,q%,|temp3%,t|
|00000600| 65 6d 70 33 25 2b 35 31 | 32 2c 2d 31 2c 22 73 61 |emp3%+51|2,-1,"sa|
|00000610| 76 65 61 73 22 2c 30 0d | 01 90 26 c8 99 20 22 57 |veas",0.|..&.. "W|
|00000620| 69 6d 70 5f 43 72 65 61 | 74 65 57 69 6e 64 6f 77 |imp_Crea|teWindow|
|00000630| 22 2c 2c 71 25 20 b8 20 | 73 61 76 65 25 0d 01 9a |",,q% . |save%...|
|00000640| 3f c8 99 20 22 57 69 6d | 70 5f 4c 6f 61 64 54 65 |?.. "Wim|p_LoadTe|
|00000650| 6d 70 6c 61 74 65 22 2c | 2c 71 25 2c 74 65 6d 70 |mplate",|,q%,temp|
|00000660| 35 25 2c 74 65 6d 70 35 | 25 2b 35 31 32 2c 2d 31 |5%,temp5|%+512,-1|
|00000670| 2c 22 73 61 76 65 61 73 | 32 22 2c 30 0d 01 a4 27 |,"saveas|2",0...'|
|00000680| c8 99 20 22 57 69 6d 70 | 5f 43 72 65 61 74 65 57 |.. "Wimp|_CreateW|
|00000690| 69 6e 64 6f 77 22 2c 2c | 71 25 20 b8 20 73 61 76 |indow",,|q% . sav|
|000006a0| 65 32 25 0d 01 ae 3e c8 | 99 20 22 57 69 6d 70 5f |e2%...>.|. "Wimp_|
|000006b0| 4c 6f 61 64 54 65 6d 70 | 6c 61 74 65 22 2c 2c 71 |LoadTemp|late",,q|
|000006c0| 25 2c 74 65 6d 70 36 25 | 2c 74 65 6d 70 36 25 2b |%,temp6%|,temp6%+|
|000006d0| 32 35 31 32 2c 2d 31 2c | 22 70 61 72 61 6d 22 2c |2512,-1,|"param",|
|000006e0| 30 0d 01 b8 27 c8 99 20 | 22 57 69 6d 70 5f 43 72 |0...'.. |"Wimp_Cr|
|000006f0| 65 61 74 65 57 69 6e 64 | 6f 77 22 2c 2c 71 25 20 |eateWind|ow",,q% |
|00000700| b8 20 70 61 72 61 6d 25 | 0d 01 c2 3f c8 99 20 22 |. param%|...?.. "|
|00000710| 57 69 6d 70 5f 4c 6f 61 | 64 54 65 6d 70 6c 61 74 |Wimp_Loa|dTemplat|
|00000720| 65 22 2c 2c 71 25 2c 74 | 65 6d 70 37 25 2c 74 65 |e",,q%,t|emp7%,te|
|00000730| 6d 70 37 25 2b 31 30 32 | 34 2c 2d 31 2c 22 73 65 |mp7%+102|4,-1,"se|
|00000740| 61 72 63 68 22 2c 30 0d | 01 cc 26 c8 99 20 22 57 |arch",0.|..&.. "W|
|00000750| 69 6d 70 5f 43 72 65 61 | 74 65 57 69 6e 64 6f 77 |imp_Crea|teWindow|
|00000760| 22 2c 2c 71 25 20 b8 20 | 73 65 61 72 25 0d 01 d6 |",,q% . |sear%...|
|00000770| 3c c8 99 20 22 57 69 6d | 70 5f 4c 6f 61 64 54 65 |<.. "Wim|p_LoadTe|
|00000780| 6d 70 6c 61 74 65 22 2c | 2c 71 25 2c 74 65 6d 70 |mplate",|,q%,temp|
|00000790| 38 25 2c 74 65 6d 70 38 | 25 2b 35 31 32 2c 2d 31 |8%,temp8|%+512,-1|
|000007a0| 2c 22 68 65 6c 70 22 2c | 30 0d 01 e0 26 c8 99 20 |,"help",|0...&.. |
|000007b0| 22 57 69 6d 70 5f 43 72 | 65 61 74 65 57 69 6e 64 |"Wimp_Cr|eateWind|
|000007c0| 6f 77 22 2c 2c 71 25 20 | b8 20 68 65 6c 70 25 0d |ow",,q% |. help%.|
|000007d0| 01 ea 3c c8 99 20 22 57 | 69 6d 70 5f 4c 6f 61 64 |..<.. "W|imp_Load|
|000007e0| 54 65 6d 70 6c 61 74 65 | 22 2c 2c 71 25 2c 74 65 |Template|",,q%,te|
|000007f0| 6d 70 39 25 2c 74 65 6d | 70 39 25 2b 35 31 32 2c |mp9%,tem|p9%+512,|
|00000800| 2d 31 2c 22 77 61 69 74 | 22 2c 30 0d 01 f4 26 c8 |-1,"wait|",0...&.|
|00000810| 99 20 22 57 69 6d 70 5f | 43 72 65 61 74 65 57 69 |. "Wimp_|CreateWi|
|00000820| 6e 64 6f 77 22 2c 2c 71 | 25 20 b8 20 77 61 69 74 |ndow",,q|% . wait|
|00000830| 25 0d 01 fe 3f c8 99 20 | 22 57 69 6d 70 5f 4c 6f |%...?.. |"Wimp_Lo|
|00000840| 61 64 54 65 6d 70 6c 61 | 74 65 22 2c 2c 71 25 2c |adTempla|te",,q%,|
|00000850| 74 65 6d 70 61 25 2c 74 | 65 6d 70 61 25 2b 31 30 |tempa%,t|empa%+10|
|00000860| 32 34 2c 2d 31 2c 22 66 | 69 65 6c 64 73 22 2c 30 |24,-1,"f|ields",0|
|00000870| 0d 02 08 26 c8 99 20 22 | 57 69 6d 70 5f 43 72 65 |...&.. "|Wimp_Cre|
|00000880| 61 74 65 57 69 6e 64 6f | 77 22 2c 2c 71 25 20 b8 |ateWindo|w",,q% .|
|00000890| 20 66 69 65 6c 25 0d 02 | 12 1b c8 99 20 22 57 69 | fiel%..|.... "Wi|
|000008a0| 6d 70 5f 43 6c 6f 73 65 | 54 65 6d 70 6c 61 74 65 |mp_Close|Template|
|000008b0| 22 0d 02 1c 17 ee 85 20 | f2 65 72 72 6f 72 62 6f |"...... |.errorbo|
|000008c0| 78 3a e5 20 8d 74 5e 42 | 0d 02 26 10 f2 67 65 74 |x:. .t^B|..&..get|
|000008d0| 6d 6f 64 65 69 6e 66 6f | 0d 02 30 04 0d 02 3a 93 |modeinfo|..0...:.|
|000008e0| f2 70 75 74 74 65 78 74 | 28 22 31 2e 30 30 20 28 |.puttext|("1.00 (|
|000008f0| 30 34 20 44 65 63 20 31 | 39 39 30 29 22 2c 69 6e |04 Dec 1|990)",in|
|00000900| 66 6f 25 2c 34 2c 71 25 | 29 3a f2 70 75 74 74 65 |fo%,4,q%|):.putte|
|00000910| 78 74 28 c3 28 6d 61 78 | 25 29 2c 73 6f 66 74 25 |xt(.(max|%),soft%|
|00000920| 2c 35 33 2c 71 25 29 3a | f2 70 75 74 74 65 78 74 |,53,q%):|.puttext|
|00000930| 28 c3 28 30 29 2c 73 6f | 66 74 25 2c 35 31 2c 62 |(.(0),so|ft%,51,b|
|00000940| 62 6c 25 29 3a f2 70 75 | 74 74 65 78 74 28 c3 28 |bl%):.pu|ttext(.(|
|00000950| 63 75 72 72 65 6e 74 25 | 29 2c 73 6f 66 74 25 2c |current%|),soft%,|
|00000960| 34 39 2c 62 62 6c 25 29 | 3a f2 75 70 6f 66 66 0d |49,bbl%)|:.upoff.|
|00000970| 02 44 04 0d 02 4e 30 53 | 25 3d 8e 22 3c 4d 61 6e |.D...N0S|%=."<Man|
|00000980| 61 67 65 72 24 44 69 72 | 3e 2e 21 53 70 72 69 74 |ager$Dir|>.!Sprit|
|00000990| 65 73 22 3a 54 25 3d a2 | 23 53 25 2b 31 36 3a d9 |es":T%=.|#S%+16:.|
|000009a0| 23 53 25 0d 02 58 11 de | 20 73 70 72 69 74 65 73 |#S%..X..| sprites|
|000009b0| 25 20 54 25 0d 02 62 0b | de 20 61 25 20 36 34 0d |% T%..b.|. a% 64.|
|000009c0| 02 6c 1d 21 73 70 72 69 | 74 65 73 25 3d 54 25 3a |.l.!spri|tes%=T%:|
|000009d0| 73 70 72 69 74 65 73 25 | 21 38 3d 31 0d 02 76 22 |sprites%|!8=1..v"|
|000009e0| c8 99 20 22 4f 53 5f 53 | 70 72 69 74 65 4f 70 22 |.. "OS_S|priteOp"|
|000009f0| 2c 26 31 30 39 2c 73 70 | 72 69 74 65 73 25 0d 02 |,&109,sp|rites%..|
|00000a00| 80 3b c8 99 20 22 4f 53 | 5f 53 70 72 69 74 65 4f |.;.. "OS|_SpriteO|
|00000a10| 70 22 2c 26 31 30 41 2c | 73 70 72 69 74 65 73 25 |p",&10A,|sprites%|
|00000a20| 2c 22 3c 4d 61 6e 61 67 | 65 72 24 44 69 72 3e 2e |,"<Manag|er$Dir>.|
|00000a30| 21 53 70 72 69 74 65 73 | 22 0d 02 8a 1d 69 63 6d |!Sprites|"....icm|
|00000a40| 61 6e 61 67 65 25 3d a4 | 69 63 6f 6e 62 61 72 3a |anage%=.|iconbar:|
|00000a50| f2 63 6c 65 61 72 0d 02 | 94 05 20 0d 02 9e 3d c8 |.clear..|.. ...=.|
|00000a60| 99 20 44 72 61 67 2c 2c | 2d 31 3a f2 67 65 74 70 |. Drag,,|-1:.getp|
|00000a70| 6f 69 6e 74 65 72 3a 78 | 6f 25 3d 6d 6f 75 73 65 |ointer:x|o%=mouse|
|00000a80| 78 25 3a 79 6f 25 3d 6d | 6f 75 73 65 79 25 3a 6f |x%:yo%=m|ousey%:o|
|00000a90| 70 65 6e 70 69 25 3d a3 | 0d 02 a8 05 f5 0d 02 b2 |penpi%=.|........|
|00000aa0| 1b 20 20 c8 99 20 50 6f | 6c 6c 25 2c 31 2c 71 25 |. .. Po|ll%,1,q%|
|00000ab0| 20 b8 20 41 25 2c 71 25 | 0d 02 bc 0d 20 20 c8 8e | . A%,q%|.... ..|
|00000ac0| 20 41 25 20 ca 0d 02 c6 | 1e 20 20 c9 20 31 20 3a | A% ....|. . 1 :|
|00000ad0| f2 72 65 64 72 61 77 5f | 77 69 6e 64 6f 77 28 21 |.redraw_|window(!|
|00000ae0| 71 25 29 0d 02 d0 44 20 | 20 c9 20 32 20 3a f2 6f |q%)...D | . 2 :.o|
|00000af0| 70 65 6e 5f 77 69 6e 64 | 6f 77 28 21 71 25 2c 71 |pen_wind|ow(!q%,q|
|00000b00| 25 21 34 2c 71 25 21 38 | 2c 71 25 21 31 32 2c 71 |%!4,q%!8|,q%!12,q|
|00000b10| 25 21 31 36 2c 71 25 21 | 32 30 2c 71 25 21 32 34 |%!16,q%!|20,q%!24|
|00000b20| 2c 71 25 21 32 38 29 0d | 02 da 1d 20 20 c9 20 33 |,q%!28).|... . 3|
|00000b30| 20 3a f2 63 6c 6f 73 65 | 61 77 69 6e 64 6f 77 28 | :.close|awindow(|
|00000b40| 21 71 25 29 0d 02 e4 37 | 20 20 c9 20 36 20 3a f2 |!q%)...7| . 6 :.|
|00000b50| 63 68 65 63 6b 6d 6f 75 | 73 65 28 21 71 25 2c 71 |checkmou|se(!q%,q|
|00000b60| 25 21 34 2c 71 25 21 38 | 2c 71 25 21 31 32 2c 71 |%!4,q%!8|,q%!12,q|
|00000b70| 25 21 31 36 2c 71 25 21 | 32 30 29 0d 02 ee 41 20 |%!16,q%!|20)...A |
|00000b80| 20 c9 20 37 20 3a 24 66 | 69 6c 65 25 3d a4 67 65 | . 7 :$f|ile%=.ge|
|00000b90| 74 74 65 78 74 28 74 68 | 69 73 25 2c 31 2c 71 25 |ttext(th|is%,1,q%|
|00000ba0| 29 2b bd 28 30 29 3a f2 | 73 65 6e 64 73 61 76 65 |)+.(0):.|sendsave|
|00000bb0| 28 26 30 42 32 2c 66 69 | 6c 65 25 29 0d 02 f8 1a |(&0B2,fi|le%)....|
|00000bc0| 20 20 c9 20 39 20 3a f2 | 6d 65 6e 75 73 65 6c 65 | . 9 :.|menusele|
|00000bd0| 63 74 28 71 25 29 0d 03 | 02 27 20 20 c9 20 38 20 |ct(q%)..|.' . 8 |
|00000be0| 3a f2 65 6e 74 65 72 28 | 21 71 25 2c 71 25 21 34 |:.enter(|!q%,q%!4|
|00000bf0| 2c 71 25 21 32 30 2c 71 | 25 21 32 34 29 0d 03 0c |,q%!20,q|%!24)...|
|00000c00| 82 20 20 c9 20 31 32 3a | e7 20 21 71 25 3d 73 6f |. . 12:|. !q%=so|
|00000c10| 66 74 25 20 80 20 28 71 | 25 21 34 3d 31 37 20 84 |ft% . (q|%!4=17 .|
|00000c20| 20 71 25 21 34 3d 35 20 | 84 20 71 25 21 34 3d 33 | q%!4=5 |. q%!4=3|
|00000c30| 30 20 84 20 71 25 21 34 | 3d 37 20 84 20 71 25 21 |0 . q%!4|=7 . q%!|
|00000c40| 34 3d 34 36 20 84 20 71 | 25 21 34 3d 32 33 20 84 |4=46 . q|%!4=23 .|
|00000c50| 20 71 25 21 34 3d 32 35 | 20 84 20 71 25 21 34 3d | q%!4=25| . q%!4=|
|00000c60| 32 38 20 84 20 71 25 21 | 34 3d 32 31 20 84 20 71 |28 . q%!|4=21 . q|
|00000c70| 25 21 34 3d 33 31 29 20 | 8c 20 f2 75 70 6f 6e 0d |%!4=31) |. .upon.|
|00000c80| 03 16 1a 20 20 c9 20 31 | 37 2c 31 38 3a f2 72 65 |... . 1|7,18:.re|
|00000c90| 63 65 69 76 65 28 71 25 | 29 0d 03 20 07 20 20 cb |ceive(q%|).. . .|
|00000ca0| 0d 03 2a 07 fd 20 a3 0d | 03 34 05 20 0d 03 3e 12 |..*.. ..|.4. ..>.|
|00000cb0| dd 20 f2 72 65 63 65 69 | 76 65 28 71 25 29 0d 03 |. .recei|ve(q%)..|
|00000cc0| 48 26 e3 49 25 3d 30 20 | b8 20 21 71 25 2d 31 20 |H&.I%=0 |. !q%-1 |
|00000cd0| 88 20 34 3a 6f 6c 64 71 | 25 21 49 25 3d 71 25 21 |. 4:oldq|%!I%=q%!|
|00000ce0| 49 25 3a ed 0d 03 52 0e | c8 8e 20 71 25 21 31 36 |I%:...R.|.. q%!16|
|00000cf0| 20 ca 0d 03 5c 0f c9 20 | 30 3a f2 66 69 6e 69 73 | ...\.. |0:.finis|
|00000d00| 68 0d 03 66 0f c9 20 32 | 3a f2 73 61 76 65 69 74 |h..f.. 2|:.saveit|
|00000d10| 0d 03 70 23 c9 20 33 3a | f2 6c 6f 61 64 69 74 32 |..p#. 3:|.loadit2|
|00000d20| 28 a4 73 74 72 69 6e 67 | 28 71 25 2b 34 34 29 2c |(.string|(q%+44),|
|00000d30| 71 25 29 0d 03 7a 1f c9 | 20 35 3a f2 6c 6f 61 64 |q%)..z..| 5:.load|
|00000d40| 69 74 28 a4 73 74 72 69 | 6e 67 28 71 25 2b 34 34 |it(.stri|ng(q%+44|
|00000d50| 29 29 0d 03 84 05 cb 0d | 03 8e 05 e1 0d 03 98 05 |))......|........|
|00000d60| 20 0d 03 a2 37 dd 20 f2 | 63 68 65 63 6b 6d 6f 75 | ...7. .|checkmou|
|00000d70| 73 65 28 6d 6f 75 73 65 | 78 25 2c 6d 6f 75 73 65 |se(mouse|x%,mouse|
|00000d80| 79 25 2c 62 25 2c 68 61 | 6e 64 6c 65 25 2c 69 63 |y%,b%,ha|ndle%,ic|
|00000d90| 6f 6e 25 2c 6f 62 25 29 | 0d 03 ac 2b e7 20 68 61 |on%,ob%)|...+. ha|
|00000da0| 6e 64 6c 65 25 3c 3e 73 | 65 61 72 25 20 8c 20 f2 |ndle%<>s|ear% . .|
|00000db0| 63 6c 6f 73 65 61 77 69 | 6e 64 6f 77 28 73 65 61 |closeawi|ndow(sea|
|00000dc0| 72 25 29 0d 03 b6 0c e7 | 28 62 25 80 32 29 8c 0d |r%).....|(b%.2)..|
|00000dd0| 03 c0 12 20 20 c8 8e 20 | 68 61 6e 64 6c 65 25 20 |... .. |handle% |
|00000de0| ca 0d 03 ca 0a 20 20 c9 | 20 2d 32 0d 03 d4 4c 20 |..... .| -2...L |
|00000df0| 20 20 20 f2 64 6f 6d 65 | 6e 75 28 31 30 31 2c 22 | .dome|nu(101,"|
|00000e00| 3e 49 6e 66 6f 2c 2d 3e | 41 62 6f 75 74 20 42 41 |>Info,->|About BA|
|00000e10| 53 53 2c 2d 3e 53 61 76 | 65 20 46 69 6c 65 2c 51 |SS,->Sav|e File,Q|
|00000e20| 75 69 74 22 2c 22 53 6f | 66 74 20 4d 61 6e 61 67 |uit","So|ft Manag|
|00000e30| 65 72 20 22 2c 30 29 0d | 03 de 0d 20 20 c9 20 73 |er ",0).|... . s|
|00000e40| 6f 66 74 25 0d 03 e8 74 | 20 20 20 20 f2 64 6f 6d |oft%...t| .dom|
|00000e50| 65 6e 75 28 31 30 31 2c | 22 62 79 20 6e 61 6d 65 |enu(101,|"by name|
|00000e60| 2c 62 79 20 64 69 73 63 | 2c 62 79 20 66 69 6c 65 |,by disc|,by file|
|00000e70| 6e 61 6d 65 2c 62 79 20 | 74 79 70 65 2c 62 79 20 |name,by |type,by |
|00000e80| 66 69 6c 65 74 79 70 65 | 2c 62 79 20 61 75 74 68 |filetype|,by auth|
|00000e90| 6f 72 73 2c 62 79 20 6c | 65 6e 2c 62 79 20 64 61 |ors,by l|en,by da|
|00000ea0| 74 65 2c 62 79 20 66 69 | 72 6d 22 2c 22 53 6f 72 |te,by fi|rm","Sor|
|00000eb0| 74 69 6e 67 22 2c 31 29 | 0d 03 f2 07 20 20 cb 0d |ting",1)|.... ..|
|00000ec0| 03 fc 05 cd 0d 04 06 0c | e7 28 62 25 80 34 29 8c |........|.(b%.4).|
|00000ed0| 0d 04 10 20 20 20 e7 68 | 61 6e 64 6c 65 25 3e 2d |... .h|andle%>-|
|00000ee0| 31 8c f2 67 65 74 77 28 | 68 61 6e 64 6c 65 25 29 |1..getw(|handle%)|
|00000ef0| 0d 04 1a 12 20 20 c8 8e | 20 68 61 6e 64 6c 65 25 |.... ..| handle%|
|00000f00| 20 ca 0d 04 24 3e 20 20 | 20 20 c9 20 2d 32 3a e7 | ...$> | . -2:.|
|00000f10| 6f 70 65 6e 70 69 25 20 | f2 66 72 6f 6e 74 28 73 |openpi% |.front(s|
|00000f20| 6f 66 74 25 29 20 8b 20 | f2 72 65 6f 70 65 6e 28 |oft%) . |.reopen(|
|00000f30| 73 6f 66 74 25 29 3a 6f | 70 65 6e 70 69 25 3d b9 |soft%):o|penpi%=.|
|00000f40| 0d 04 2e 36 20 20 20 20 | c9 20 73 61 76 65 25 3a |...6 |. save%:|
|00000f50| e7 20 69 63 6f 6e 25 3d | 30 20 8c 20 f2 73 61 76 |. icon%=|0 . .sav|
|00000f60| 65 20 8b 20 e7 20 69 63 | 6f 6e 25 3d 32 20 8c 20 |e . . ic|on%=2 . |
|00000f70| f2 73 61 76 65 78 0d 04 | 38 39 20 20 20 20 c9 20 |.savex..|89 . |
|00000f80| 73 61 76 65 32 25 3a e7 | 20 69 63 6f 6e 25 3d 30 |save2%:.| icon%=0|
|00000f90| 20 8c 20 f2 73 61 76 65 | 32 20 8b 20 e7 20 69 63 | . .save|2 . . ic|
|00000fa0| 6f 6e 25 3d 32 20 8c 20 | f2 73 61 76 65 32 78 0d |on%=2 . |.save2x.|
|00000fb0| 04 42 24 20 20 20 20 c9 | 20 73 6f 66 74 25 20 3a |.B$ .| soft% :|
|00000fc0| 20 f2 6c 6f 6f 6b 62 75 | 74 74 6f 6e 28 69 63 6f | .lookbu|tton(ico|
|00000fd0| 6e 25 29 0d 04 4c 26 20 | 20 20 20 c9 20 70 61 72 |n%)..L& | . par|
|00000fe0| 61 6d 25 20 3a 20 f2 6c | 6f 6f 6b 62 75 74 74 6f |am% : .l|ookbutto|
|00000ff0| 6e 32 28 69 63 6f 6e 25 | 29 0d 04 56 25 20 20 20 |n2(icon%|)..V% |
|00001000| 20 c9 20 73 65 61 72 25 | 20 3a 20 f2 6c 6f 6f 6b | . sear%| : .look|
|00001010| 62 75 74 74 6f 6e 33 28 | 69 63 6f 6e 25 29 0d 04 |button3(|icon%)..|
|00001020| 60 25 20 20 20 20 c9 20 | 66 69 65 6c 25 20 3a 20 |`% . |fiel% : |
|00001030| f2 6c 6f 6f 6b 62 75 74 | 74 6f 6e 34 28 69 63 6f |.lookbut|ton4(ico|
|00001040| 6e 25 29 0d 04 6a 07 20 | 20 cb 0d 04 74 05 cd 0d |n%)..j. | ...t...|
|00001050| 04 7e 05 e1 0d 04 88 05 | 20 0d 04 92 54 dd 20 f2 |.~......| ...T. .|
|00001060| 63 6c 6f 73 65 61 77 69 | 6e 64 6f 77 28 68 61 6e |closeawi|ndow(han|
|00001070| 64 6c 65 25 29 3a f2 67 | 65 74 77 28 68 61 6e 64 |dle%):.g|etw(hand|
|00001080| 6c 65 25 29 3a 78 6f 25 | 3d 78 30 25 3a 79 6f 25 |le%):xo%|=x0%:yo%|
|00001090| 3d 79 30 25 3a f2 63 6c | 6f 73 65 5f 77 69 6e 64 |=y0%:.cl|ose_wind|
|000010a0| 6f 77 28 68 61 6e 64 6c | 65 25 29 3a e1 0d 04 9c |ow(handl|e%):....|
|000010b0| 05 20 0d 04 a6 0e dd 20 | f2 66 69 6e 69 73 68 3a |. ..... |.finish:|
|000010c0| 0d 04 b0 15 f2 69 73 5f | 69 74 5f 73 61 76 65 64 |.....is_|it_saved|
|000010d0| 28 6f 6b 25 29 0d 04 ba | 0f e7 20 6f 6b 25 3d 31 |(ok%)...|.. ok%=1|
|000010e0| 20 8c 20 e1 0d 04 c4 19 | c8 99 20 22 57 69 6d 70 | . .....|.. "Wimp|
|000010f0| 5f 43 6c 6f 73 65 44 6f | 77 6e 22 3a e1 0d 04 ce |_CloseDo|wn":....|
|00001100| 05 20 0d 04 d8 2e dd 20 | f2 64 6f 6d 65 6e 75 28 |. ..... |.domenu(|
|00001110| 68 61 6e 64 6c 65 25 2c | 6d 65 6e 75 24 2c 6d 65 |handle%,|menu$,me|
|00001120| 6e 75 74 69 74 6c 65 24 | 2c 69 63 6f 6e 62 25 29 |nutitle$|,iconb%)|
|00001130| 0d 04 e2 ba 6d 65 6e 75 | 68 61 6e 64 6c 65 25 3d |....menu|handle%=|
|00001140| 68 61 6e 64 6c 65 25 3a | 6d 65 6e 75 70 74 72 25 |handle%:|menuptr%|
|00001150| 3d 62 75 66 66 65 72 25 | 3a 69 25 3d 30 3a 6d 65 |=buffer%|:i%=0:me|
|00001160| 6e 75 70 74 72 25 21 32 | 30 3d 34 30 3a 24 6d 65 |nuptr%!2|0=40:$me|
|00001170| 6e 75 70 74 72 25 3d 6d | 65 6e 75 74 69 74 6c 65 |nuptr%=m|enutitle|
|00001180| 24 3a 6d 65 6e 75 70 74 | 72 25 3f 31 32 3d 37 3a |$:menupt|r%?12=7:|
|00001190| 6d 65 6e 75 70 74 72 25 | 3f 31 33 3d 32 3a 6d 65 |menuptr%|?13=2:me|
|000011a0| 6e 75 70 74 72 25 3f 31 | 34 3d 37 3a 6d 65 6e 75 |nuptr%?1|4=7:menu|
|000011b0| 70 74 72 25 3f 31 35 3d | 30 3a 6d 65 6e 75 70 74 |ptr%?15=|0:menupt|
|000011c0| 72 25 21 31 36 3d 31 39 | 36 2d 32 34 2b 33 32 3a |r%!16=19|6-24+32:|
|000011d0| 6d 65 6e 75 70 74 72 25 | 21 32 34 3d 30 3a 6d 65 |menuptr%|!24=0:me|
|000011e0| 6e 75 70 74 72 25 2b 3d | 32 38 0d 04 ec 31 f5 20 |nuptr%+=|28...1. |
|000011f0| 69 74 65 6d 24 3d a4 70 | 61 72 28 22 2c 22 29 3a |item$=.p|ar(","):|
|00001200| f2 6d 65 6e 75 69 74 65 | 6d 28 69 74 65 6d 24 29 |.menuite|m(item$)|
|00001210| 3a fd 20 69 74 65 6d 24 | 3d 22 22 0d 04 f6 23 6d |:. item$|=""...#m|
|00001220| 65 6e 75 70 74 72 25 21 | 2d 32 34 3d 28 6d 65 6e |enuptr%!|-24=(men|
|00001230| 75 70 74 72 25 21 2d 32 | 34 29 84 26 38 30 0d 05 |uptr%!-2|4).&80..|
|00001240| 00 5d e7 20 69 63 6f 6e | 62 25 3d 30 20 8c 20 c8 |.]. icon|b%=0 . .|
|00001250| 99 20 43 72 4d 65 6e 75 | 2c 2c 62 75 66 66 65 72 |. CrMenu|,,buffer|
|00001260| 25 2c 6d 6f 75 73 65 78 | 25 2d 36 34 2c 33 34 36 |%,mousex|%-64,346|
|00001270| 2d 34 30 20 8b 20 c8 99 | 20 43 72 4d 65 6e 75 2c |-40 . ..| CrMenu,|
|00001280| 2c 62 75 66 66 65 72 25 | 2c 6d 6f 75 73 65 78 25 |,buffer%|,mousex%|
|00001290| 2d 36 34 2c 6d 6f 75 73 | 65 79 25 0d 05 0a 05 e1 |-64,mous|ey%.....|
|000012a0| 0d 05 14 05 20 0d 05 1e | 16 dd 20 f2 6d 65 6e 75 |.... ...|.. .menu|
|000012b0| 69 74 65 6d 28 74 65 78 | 74 24 29 0d 05 28 10 e7 |item(tex|t$)..(..|
|000012c0| 20 74 65 78 74 24 3d 22 | 22 20 e1 0d 05 32 0f 21 | text$="|" ...2.!|
|000012d0| 6d 65 6e 75 70 74 72 25 | 3d 30 0d 05 3c 40 e7 20 |menuptr%|=0..<@. |
|000012e0| c0 74 65 78 74 24 2c 31 | 29 3d 22 2d 22 20 8c 20 |.text$,1|)="-" . |
|000012f0| 21 6d 65 6e 75 70 74 72 | 25 3d 28 21 6d 65 6e 75 |!menuptr|%=(!menu|
|00001300| 70 74 72 25 29 84 20 26 | 30 32 3a 74 65 78 74 24 |ptr%). &|02:text$|
|00001310| 3d c1 74 65 78 74 24 2c | 32 29 0d 05 46 40 e7 20 |=.text$,|2)..F@. |
|00001320| c0 74 65 78 74 24 2c 31 | 29 3d 22 5e 22 20 8c 20 |.text$,1|)="^" . |
|00001330| 21 6d 65 6e 75 70 74 72 | 25 3d 28 21 6d 65 6e 75 |!menuptr|%=(!menu|
|00001340| 70 74 72 25 29 84 20 26 | 30 31 3a 74 65 78 74 24 |ptr%). &|01:text$|
|00001350| 3d c1 74 65 78 74 24 2c | 32 29 0d 05 50 11 6d 65 |=.text$,|2)..P.me|
|00001360| 6e 75 70 74 72 25 21 34 | 3d 2d 31 0d 05 5a 27 e7 |nuptr%!4|=-1..Z'.|
|00001370| 20 c0 74 65 78 74 24 2c | 34 29 3d 22 3e 49 6e 66 | .text$,|4)=">Inf|
|00001380| 22 20 6d 65 6e 75 70 74 | 72 25 21 34 3d 69 6e 66 |" menupt|r%!4=inf|
|00001390| 6f 25 0d 05 64 27 e7 20 | c0 74 65 78 74 24 2c 34 |o%..d'. |.text$,4|
|000013a0| 29 3d 22 3e 41 62 6f 22 | 20 6d 65 6e 75 70 74 72 |)=">Abo"| menuptr|
|000013b0| 25 21 34 3d 62 61 73 73 | 25 0d 05 6e 27 e7 20 c0 |%!4=bass|%..n'. .|
|000013c0| 74 65 78 74 24 2c 34 29 | 3d 22 3e 53 61 76 22 20 |text$,4)|=">Sav" |
|000013d0| 6d 65 6e 75 70 74 72 25 | 21 34 3d 73 61 76 65 25 |menuptr%|!4=save%|
|000013e0| 0d 05 78 1a f4 20 6d 65 | 6e 75 70 74 72 25 21 38 |..x.. me|nuptr%!8|
|000013f0| 3d 26 41 37 30 30 30 30 | 32 31 0d 05 79 18 6d 65 |=&A70000|21..y.me|
|00001400| 6e 75 70 74 72 25 21 38 | 3d 26 30 37 30 30 30 30 |nuptr%!8|=&070000|
|00001410| 32 31 0d 05 82 43 e7 20 | c0 74 65 78 74 24 2c 31 |21...C. |.text$,1|
|00001420| 29 3d 22 3e 22 20 24 28 | 6d 65 6e 75 70 74 72 25 |)=">" $(|menuptr%|
|00001430| 2b 31 32 29 3d c1 74 65 | 78 74 24 2c 32 29 20 8b |+12)=.te|xt$,2) .|
|00001440| 20 24 28 6d 65 6e 75 70 | 74 72 25 2b 31 32 29 3d | $(menup|tr%+12)=|
|00001450| 74 65 78 74 24 0d 05 8c | 10 6d 65 6e 75 70 74 72 |text$...|.menuptr|
|00001460| 25 2b 3d 32 34 0d 05 96 | 05 e1 0d 05 a0 05 20 0d |%+=24...|...... .|
|00001470| 05 aa 10 dd 20 a4 70 61 | 72 28 73 65 70 24 29 0d |.... .pa|r(sep$).|
|00001480| 05 b4 25 69 31 25 3d 69 | 25 2b 31 3a 69 25 3d a7 |..%i1%=i|%+1:i%=.|
|00001490| 6d 65 6e 75 24 2b 73 65 | 70 24 2c 73 65 70 24 2c |menu$+se|p$,sep$,|
|000014a0| 69 31 25 29 0d 05 be 17 | 3d c1 6d 65 6e 75 24 2c |i1%)....|=.menu$,|
|000014b0| 69 31 25 2c 69 25 2d 69 | 31 25 29 0d 05 c8 05 20 |i1%,i%-i|1%).... |
|000014c0| 0d 05 d2 19 dd 20 f2 6d | 65 6e 75 73 65 6c 65 63 |..... .m|enuselec|
|000014d0| 74 28 6d 65 6e 75 73 25 | 29 0d 05 dc 2d c8 99 20 |t(menus%|)...-.. |
|000014e0| 44 63 4d 65 6e 75 2c 2c | 62 75 66 66 65 72 25 2c |DcMenu,,|buffer%,|
|000014f0| 6d 65 6e 75 73 25 2c c4 | 32 30 30 2c 22 20 22 29 |menus%,.|200," ")|
|00001500| b8 2c 2c 2c 61 24 0d 05 | e6 0f e7 20 61 24 3d 22 |.,,,a$..|... a$="|
|00001510| 22 20 8c 20 e1 0d 05 f0 | 14 c8 8e 20 6d 65 6e 75 |" . ....|... menu|
|00001520| 68 61 6e 64 6c 65 25 20 | ca 0d 05 fa 14 c9 20 31 |handle% |...... 1|
|00001530| 30 31 3a f2 74 72 65 61 | 74 6d 65 6e 75 0d 06 04 |01:.trea|tmenu...|
|00001540| 05 cb 0d 06 0e 05 e1 0d | 06 18 05 20 0d 06 22 05 |........|... ..".|
|00001550| 20 0d 06 2c 15 dd 20 f2 | 66 72 6f 6e 74 28 68 61 | ..,.. .|front(ha|
|00001560| 6e 64 6c 65 25 29 0d 06 | 36 11 e7 68 61 6e 64 6c |ndle%)..|6..handl|
|00001570| 65 25 3d 2d 31 8c e1 0d | 06 40 47 f2 67 65 74 77 |e%=-1...|.@G.getw|
|00001580| 28 68 61 6e 64 6c 65 25 | 29 3a f2 6f 70 65 6e 5f |(handle%|):.open_|
|00001590| 77 69 6e 64 6f 77 28 68 | 61 6e 64 6c 65 25 2c 78 |window(h|andle%,x|
|000015a0| 30 25 2c 79 30 25 2c 78 | 31 25 2c 79 31 25 2c 73 |0%,y0%,x|1%,y1%,s|
|000015b0| 63 78 25 2c 73 63 79 25 | 2c 2d 31 29 3a e1 0d 06 |cx%,scy%|,-1):...|
|000015c0| 4a 05 20 0d 06 54 96 dd | 20 f2 70 6f 70 75 70 28 |J. ..T..| .popup(|
|000015d0| 68 61 6e 64 6c 65 25 29 | 3a f2 67 65 74 77 28 68 |handle%)|:.getw(h|
|000015e0| 61 6e 64 6c 65 25 29 3a | 78 6f 25 3d 6d 6f 75 73 |andle%):|xo%=mous|
|000015f0| 65 78 25 2d 28 78 30 25 | 2b 78 31 25 29 2f 32 3a |ex%-(x0%|+x1%)/2:|
|00001600| 79 6f 25 3d 6d 6f 75 73 | 65 79 25 2d 28 79 31 25 |yo%=mous|ey%-(y1%|
|00001610| 2b 36 34 29 3a f2 6f 70 | 65 6e 5f 77 69 6e 64 6f |+64):.op|en_windo|
|00001620| 77 28 68 61 6e 64 6c 65 | 25 2c 78 30 25 2b 78 6f |w(handle|%,x0%+xo|
|00001630| 25 2c 79 30 25 2b 79 6f | 25 2c 78 31 25 2b 78 6f |%,y0%+yo|%,x1%+xo|
|00001640| 25 2c 79 31 25 2b 79 6f | 25 2c 73 63 78 25 2c 73 |%,y1%+yo|%,scx%,s|
|00001650| 63 79 25 2c 2d 31 29 3a | e1 0d 06 5e 05 20 0d 06 |cy%,-1):|...^. ..|
|00001660| 68 a2 dd 20 f2 72 65 6f | 70 65 6e 28 68 61 6e 64 |h.. .reo|pen(hand|
|00001670| 6c 65 25 29 3a 21 71 25 | 3d 68 61 6e 64 6c 65 25 |le%):!q%|=handle%|
|00001680| 3a c8 99 20 22 57 69 6d | 70 5f 47 65 74 57 69 6e |:.. "Wim|p_GetWin|
|00001690| 64 6f 77 49 6e 66 6f 22 | 2c 2c 71 25 3a f2 6f 70 |dowInfo"|,,q%:.op|
|000016a0| 65 6e 5f 77 69 6e 64 6f | 77 28 21 71 25 2c 71 25 |en_windo|w(!q%,q%|
|000016b0| 21 34 2c 71 25 21 38 2c | 71 25 21 31 32 2c 71 25 |!4,q%!8,|q%!12,q%|
|000016c0| 21 31 36 2c 71 25 21 32 | 30 2c 71 25 21 32 34 2c |!16,q%!2|0,q%!24,|
|000016d0| 71 25 21 32 38 29 3a 21 | 71 25 3d 68 61 6e 64 6c |q%!28):!|q%=handl|
|000016e0| 65 25 3a c8 99 20 22 57 | 69 6d 70 5f 47 65 74 57 |e%:.. "W|imp_GetW|
|000016f0| 69 6e 64 6f 77 49 6e 66 | 6f 22 2c 2c 71 25 3a e1 |indowInf|o",,q%:.|
|00001700| 0d 06 72 05 20 0d 06 7c | 3e dd 20 f2 6f 70 65 6e |..r. ..||>. .open|
|00001710| 5f 77 69 6e 64 6f 77 28 | 68 61 6e 64 6c 65 25 2c |_window(|handle%,|
|00001720| 78 30 25 2c 79 30 25 2c | 78 31 25 2c 79 31 25 2c |x0%,y0%,|x1%,y1%,|
|00001730| 73 63 78 25 2c 73 63 79 | 25 2c 62 68 61 6e 64 6c |scx%,scy|%,bhandl|
|00001740| 65 25 29 0d 06 86 11 e7 | 68 61 6e 64 6c 65 25 3d |e%).....|handle%=|
|00001750| 2d 31 8c e1 0d 06 90 6a | 71 25 21 30 3d 68 61 6e |-1.....j|q%!0=han|
|00001760| 64 6c 65 25 3a 71 25 21 | 32 38 3d 62 68 61 6e 64 |dle%:q%!|28=bhand|
|00001770| 6c 65 25 3a 71 25 21 34 | 3d 78 30 25 3a 71 25 21 |le%:q%!4|=x0%:q%!|
|00001780| 38 3d 79 30 25 3a 71 25 | 21 31 32 3d 78 31 25 3a |8=y0%:q%|!12=x1%:|
|00001790| 71 25 21 31 36 3d 79 31 | 25 3a 71 25 21 32 30 3d |q%!16=y1|%:q%!20=|
|000017a0| 73 63 78 25 3a 71 25 21 | 32 34 3d 73 63 79 25 3a |scx%:q%!|24=scy%:|
|000017b0| c8 99 20 4f 70 65 6e 57 | 2c 2c 71 25 3a e1 0d 06 |.. OpenW|,,q%:...|
|000017c0| 9a 05 20 0d 06 a4 56 dd | 20 f2 67 65 74 77 28 68 |.. ...V.| .getw(h|
|000017d0| 61 6e 64 6c 65 25 29 3a | 21 71 25 3d 68 61 6e 64 |andle%):|!q%=hand|
|000017e0| 6c 65 25 3a c8 99 20 47 | 65 74 57 2c 2c 71 25 3a |le%:.. G|etW,,q%:|
|000017f0| f2 69 6e 66 6f 28 71 25 | 2b 34 29 3a 62 68 61 6e |.info(q%|+4):bhan|
|00001800| 64 6c 65 25 3d 71 25 21 | 32 38 3a 66 6c 61 67 73 |dle%=q%!|28:flags|
|00001810| 25 3d 71 25 21 33 32 3a | e1 0d 06 ae 05 20 0d 06 |%=q%!32:|..... ..|
|00001820| b8 65 dd 20 f2 69 6e 66 | 6f 28 71 25 29 3a 78 30 |.e. .inf|o(q%):x0|
|00001830| 25 3d 21 71 25 3a 79 30 | 25 3d 71 25 21 34 3a 78 |%=!q%:y0|%=q%!4:x|
|00001840| 31 25 3d 71 25 21 38 3a | 79 31 25 3d 71 25 21 31 |1%=q%!8:|y1%=q%!1|
|00001850| 32 3a 73 63 78 25 3d 71 | 25 21 31 36 3a 73 63 79 |2:scx%=q|%!16:scy|
|00001860| 25 3d 71 25 21 32 30 3a | 62 78 25 3d 78 30 25 2d |%=q%!20:|bx%=x0%-|
|00001870| 73 63 78 25 3a 62 79 25 | 3d 79 31 25 2d 73 63 79 |scx%:by%|=y1%-scy|
|00001880| 25 3a e1 0d 06 c2 05 20 | 0d 06 cc 85 dd 20 f2 75 |%:..... |..... .u|
|00001890| 70 64 61 74 65 28 68 61 | 6e 64 6c 65 25 2c 75 78 |pdate(ha|ndle%,ux|
|000018a0| 30 25 2c 75 79 30 25 2c | 75 78 31 25 2c 75 79 31 |0%,uy0%,|ux1%,uy1|
|000018b0| 25 29 3a 21 71 25 3d 68 | 61 6e 64 6c 65 25 3a 71 |%):!q%=h|andle%:q|
|000018c0| 25 21 34 3d 75 78 30 25 | 3a 71 25 21 38 3d 75 79 |%!4=ux0%|:q%!8=uy|
|000018d0| 30 25 3a 71 25 21 31 32 | 3d 75 78 31 25 3a 71 25 |0%:q%!12|=ux1%:q%|
|000018e0| 21 31 36 3d 75 79 31 25 | 3a c8 99 20 55 70 64 61 |!16=uy1%|:.. Upda|
|000018f0| 74 65 57 2c 2c 71 25 20 | b8 20 6d 6f 72 65 25 3a |teW,,q% |. more%:|
|00001900| f2 69 6e 66 6f 28 71 25 | 2b 34 29 3a e1 0d 06 d6 |.info(q%|+4):....|
|00001910| 05 20 0d 06 e0 76 dd 20 | f2 72 65 64 72 61 77 5f |. ...v. |.redraw_|
|00001920| 77 69 6e 64 6f 77 28 68 | 61 6e 64 6c 65 25 29 3a |window(h|andle%):|
|00001930| 21 71 25 3d 68 61 6e 64 | 6c 65 25 3a c8 99 20 52 |!q%=hand|le%:.. R|
|00001940| 65 64 72 61 77 57 2c 2c | 71 25 20 b8 20 6d 6f 72 |edrawW,,|q% . mor|
|00001950| 65 25 3a 21 71 25 3d 68 | 61 6e 64 6c 65 25 3a c8 |e%:!q%=h|andle%:.|
|00001960| 99 20 22 57 69 6d 70 5f | 47 65 74 57 69 6e 64 6f |. "Wimp_|GetWindo|
|00001970| 77 49 6e 66 6f 22 2c 2c | 71 25 3a f2 69 6e 66 6f |wInfo",,|q%:.info|
|00001980| 28 71 25 2b 34 29 3a e1 | 0d 06 ea 05 20 0d 06 f4 |(q%+4):.|.... ...|
|00001990| 38 dd 20 f2 63 6c 6f 73 | 65 5f 77 69 6e 64 6f 77 |8. .clos|e_window|
|000019a0| 28 68 61 6e 64 6c 65 25 | 29 3a 21 71 25 3d 68 61 |(handle%|):!q%=ha|
|000019b0| 6e 64 6c 65 25 3a c8 99 | 20 43 6c 6f 73 65 57 2c |ndle%:..| CloseW,|
|000019c0| 2c 71 25 3a e1 0d 06 fe | 05 20 0d 07 08 e6 dd 20 |,q%:....|. ..... |
|000019d0| f2 76 61 72 73 3a 57 69 | 6d 70 20 20 20 20 3d 20 |.vars:Wi|mp = |
|000019e0| 28 31 3c 3c 31 38 29 20 | 2b 20 28 33 3c 3c 36 29 |(1<<18) |+ (3<<6)|
|000019f0| 3a 43 72 65 61 74 65 57 | 20 3d 20 57 69 6d 70 2b |:CreateW| = Wimp+|
|00001a00| 31 3a 4f 70 65 6e 57 20 | 3d 20 57 69 6d 70 2b 35 |1:OpenW |= Wimp+5|
|00001a10| 3a 43 6c 6f 73 65 57 20 | 3d 20 57 69 6d 70 2b 36 |:CloseW |= Wimp+6|
|00001a20| 3a 50 6f 6c 6c 25 20 3d | 20 57 69 6d 70 2b 37 3a |:Poll% =| Wimp+7:|
|00001a30| 52 65 64 72 61 77 57 20 | 3d 20 57 69 6d 70 2b 38 |RedrawW |= Wimp+8|
|00001a40| 3a 55 70 64 61 74 65 57 | 20 3d 20 57 69 6d 70 2b |:UpdateW| = Wimp+|
|00001a50| 39 3a 47 65 74 52 25 20 | 3d 20 57 69 6d 70 2b 31 |9:GetR% |= Wimp+1|
|00001a60| 30 3a 47 65 74 57 20 3d | 20 57 69 6d 70 2b 31 31 |0:GetW =| Wimp+11|
|00001a70| 3a 47 65 74 50 20 3d 20 | 57 69 6d 70 2b 31 35 3a |:GetP = |Wimp+15:|
|00001a80| 44 72 61 67 20 3d 20 57 | 69 6d 70 2b 31 36 3a 43 |Drag = W|imp+16:C|
|00001a90| 72 4d 65 6e 75 20 3d 20 | 57 69 6d 70 2b 32 30 3a |rMenu = |Wimp+20:|
|00001aa0| 44 63 4d 65 6e 75 20 3d | 20 57 69 6d 70 2b 32 31 |DcMenu =| Wimp+21|
|00001ab0| 0d 07 12 3a c8 99 20 22 | 4f 53 5f 53 57 49 4e 75 |...:.. "|OS_SWINu|
|00001ac0| 6d 62 65 72 46 72 6f 6d | 53 74 72 69 6e 67 22 2c |mberFrom|String",|
|00001ad0| 2c 22 57 69 6d 70 5f 53 | 65 74 43 6f 6c 6f 75 72 |,"Wimp_S|etColour|
|00001ae0| 22 20 b8 20 43 6f 6c 25 | 3a e1 0d 07 1c 05 20 0d |" . Col%|:..... .|
|00001af0| 07 26 11 dd 20 f2 67 65 | 74 70 6f 69 6e 74 65 72 |.&.. .ge|tpointer|
|00001b00| 0d 07 30 0f c8 99 20 47 | 65 74 50 2c 2c 71 25 0d |..0... G|etP,,q%.|
|00001b10| 07 3a 48 6d 6f 75 73 65 | 78 25 3d 21 71 25 3a 6d |.:Hmouse|x%=!q%:m|
|00001b20| 6f 75 73 65 79 25 3d 71 | 25 21 34 3a 62 25 3d 71 |ousey%=q|%!4:b%=q|
|00001b30| 25 21 38 3a 68 61 6e 64 | 6c 65 25 3d 71 25 21 31 |%!8:hand|le%=q%!1|
|00001b40| 32 3a 69 63 6f 6e 25 3d | 71 25 21 31 36 3a 6f 62 |2:icon%=|q%!16:ob|
|00001b50| 25 3d 71 25 21 32 30 0d | 07 44 05 e1 0d 07 4e 05 |%=q%!20.|.D....N.|
|00001b60| 20 0d 07 58 0f dd 20 f2 | 65 72 72 6f 72 62 6f 78 | ..X.. .|errorbox|
|00001b70| 0d 07 62 0f c8 99 20 44 | 72 61 67 2c 2c 2d 31 0d |..b... D|rag,,-1.|
|00001b80| 07 6c 30 21 62 75 66 66 | 65 72 25 3d 9f 3a 24 28 |.l0!buff|er%=.:$(|
|00001b90| 62 75 66 66 65 72 25 2b | 34 29 3d f6 24 2b 22 20 |buffer%+|4)=.$+" |
|00001ba0| 61 74 20 6c 69 6e 65 20 | 22 2b c3 9e 2b bd 30 0d |at line |"+..+.0.|
|00001bb0| 07 76 32 c8 99 20 22 57 | 69 6d 70 5f 52 65 70 6f |.v2.. "W|imp_Repo|
|00001bc0| 72 74 45 72 72 6f 72 22 | 2c 62 75 66 66 65 72 25 |rtError"|,buffer%|
|00001bd0| 2c 31 2c 22 53 6f 66 74 | 20 4d 61 6e 61 67 65 72 |,1,"Soft| Manager|
|00001be0| 22 0d 07 80 0d f2 66 69 | 6e 69 73 68 3a e0 0d 07 |".....fi|nish:...|
|00001bf0| 8a 05 e1 0d 07 94 04 0d | 07 9e 79 dd f2 77 61 72 |........|..y..war|
|00001c00| 6e 69 6e 67 28 78 24 29 | 3a 21 62 75 66 66 65 72 |ning(x$)|:!buffer|
|00001c10| 25 3d 30 3a 24 28 62 75 | 66 66 65 72 25 2b 34 29 |%=0:$(bu|ffer%+4)|
|00001c20| 3d 78 24 3a c8 99 20 22 | 57 69 6d 70 5f 52 65 70 |=x$:.. "|Wimp_Rep|
|00001c30| 6f 72 74 45 72 72 6f 72 | 22 2c 62 75 66 66 65 72 |ortError|",buffer|
|00001c40| 25 2c 31 37 2c 22 57 61 | 72 6e 69 6e 67 20 66 72 |%,17,"Wa|rning fr|
|00001c50| 6f 6d 20 74 68 65 20 27 | 53 6f 66 74 20 4d 61 6e |om the '|Soft Man|
|00001c60| 61 67 65 72 27 20 70 72 | 6f 67 72 61 6d 22 3a e1 |ager' pr|ogram":.|
|00001c70| 0d 07 a8 05 20 0d 07 b2 | 13 dd 20 a4 74 65 6d 70 |.... ...|.. .temp|
|00001c80| 6c 61 74 65 28 61 24 29 | 0d 07 bc 08 ea 20 63 25 |late(a$)|..... c%|
|00001c90| 0d 07 c6 47 c8 99 20 22 | 57 69 6d 70 5f 4c 6f 61 |...G.. "|Wimp_Loa|
|00001ca0| 64 54 65 6d 70 6c 61 74 | 65 22 2c 2c 71 25 2c 63 |dTemplat|e",,q%,c|
|00001cb0| 75 72 62 75 66 25 2c 65 | 6e 64 62 75 66 25 2c 30 |urbuf%,e|ndbuf%,0|
|00001cc0| 2c 61 24 2c 30 20 b8 20 | 2c 2c 63 75 72 62 75 66 |,a$,0 . |,,curbuf|
|00001cd0| 25 2c 2c 2c 2c 63 25 0d | 07 d0 2c e7 20 63 25 3d |%,,,,c%.|..,. c%=|
|00001ce0| 30 20 85 20 31 2c 22 54 | 65 6d 70 6c 61 74 65 20 |0 . 1,"T|emplate |
|00001cf0| 27 22 2b 61 24 2b 22 27 | 20 6e 6f 74 20 66 6f 75 |'"+a$+"'| not fou|
|00001d00| 6e 64 22 0d 07 da 23 c8 | 99 20 22 57 69 6d 70 5f |nd"...#.|. "Wimp_|
|00001d10| 43 72 65 61 74 65 57 69 | 6e 64 6f 77 22 2c 2c 71 |CreateWi|ndow",,q|
|00001d20| 25 20 b8 20 63 25 0d 07 | e4 07 3d 63 25 0d 07 ee |% . c%..|..=c%...|
|00001d30| 05 20 0d 07 f8 0e dd 20 | a4 69 63 6f 6e 62 61 72 |. ..... |.iconbar|
|00001d40| 0d 08 02 09 ea 20 69 63 | 25 0d 08 0c 3f 71 25 21 |..... ic|%...?q%!|
|00001d50| 30 3d 2d 31 3a 71 25 21 | 34 3d 30 3a 71 25 21 38 |0=-1:q%!|4=0:q%!8|
|00001d60| 3d 2d 31 36 3a 71 25 21 | 31 32 3d 31 34 34 3a 71 |=-16:q%!|12=144:q|
|00001d70| 25 21 31 36 3d 31 30 30 | 3a 71 25 21 32 30 3d 26 |%!16=100|:q%!20=&|
|00001d80| 31 37 30 30 33 31 32 42 | 0d 08 16 0e de 20 71 25 |1700312B|..... q%|
|00001d90| 21 32 34 20 31 35 0d 08 | 20 0e de 20 71 25 21 32 |!24 15..| .. q%!2|
|00001da0| 38 20 31 35 0d 08 2a 58 | 24 28 71 25 21 32 34 29 |8 15..*X|$(q%!24)|
|00001db0| 3d 22 4d 61 6e 61 67 65 | 72 22 3a 24 28 71 25 21 |="Manage|r":$(q%!|
|00001dc0| 32 38 29 3d 22 53 21 21 | 4d 61 6e 61 67 65 72 22 |28)="S!!|Manager"|
|00001dd0| 3a 71 25 21 33 32 3d 38 | 3a c8 99 20 22 57 69 6d |:q%!32=8|:.. "Wim|
|00001de0| 70 5f 43 72 65 61 74 65 | 49 63 6f 6e 22 2c 2c 71 |p_Create|Icon",,q|
|00001df0| 25 20 b8 20 69 63 25 3a | 3d 69 63 25 0d 08 34 04 |% . ic%:|=ic%..4.|
|00001e00| 0d 08 3e 4b dd 20 f2 63 | 6c 65 61 72 3a 65 72 72 |..>K. .c|lear:err|
|00001e10| 6f 72 66 6c 61 67 25 3d | a3 3a 74 65 6d 70 72 65 |orflag%=|.:tempre|
|00001e20| 67 3d 30 3a 65 6e 74 72 | 79 24 3d 22 30 22 3a 6f |g=0:entr|y$="0":o|
|00001e30| 70 65 72 61 74 6f 72 24 | 3d 22 3d 22 3a 64 72 65 |perator$|="=":dre|
|00001e40| 67 24 3d 65 6e 74 72 79 | 24 3a e1 0d 08 48 04 0d |g$=entry|$:...H..|
|00001e50| 08 52 11 dd a4 73 74 72 | 69 6e 67 28 70 74 25 29 |.R...str|ing(pt%)|
|00001e60| 0d 08 5c 08 ea 20 53 24 | 0d 08 66 24 c8 95 20 3f |..\.. S$|..f$.. ?|
|00001e70| 70 74 25 3a 53 24 2b 3d | bd 28 3f 70 74 25 29 3a |pt%:S$+=|.(?pt%):|
|00001e80| 70 74 25 2b 3d 31 3a ce | 3a 3d 53 24 0d 08 70 04 |pt%+=1:.|:=S$..p.|
|00001e90| 0d 08 7a 0f dd f2 74 72 | 65 61 74 6d 65 6e 75 0d |..z...tr|eatmenu.|
|00001ea0| 08 84 0b c8 8e 20 61 24 | 20 ca 0d 08 8e 14 c9 20 |..... a$| ...... |
|00001eb0| 22 51 75 69 74 22 3a f2 | 66 69 6e 69 73 68 0d 08 |"Quit":.|finish..|
|00001ec0| 98 19 c9 20 22 62 79 20 | 6e 61 6d 65 22 3a f2 73 |... "by |name":.s|
|00001ed0| 6f 72 74 6e 61 6d 65 0d | 08 a2 19 c9 20 22 62 79 |ortname.|.... "by|
|00001ee0| 20 64 69 73 63 22 3a f2 | 73 6f 72 74 64 69 73 63 | disc":.|sortdisc|
|00001ef0| 0d 08 ac 1e c9 20 22 62 | 79 20 66 69 6c 65 6e 61 |..... "b|y filena|
|00001f00| 6d 65 22 3a f2 73 6f 72 | 74 66 6e 61 6d 65 0d 08 |me":.sor|tfname..|
|00001f10| b6 19 c9 20 22 62 79 20 | 74 79 70 65 22 3a f2 73 |... "by |type":.s|
|00001f20| 6f 72 74 74 79 70 65 0d | 08 c0 1e c9 20 22 62 79 |orttype.|.... "by|
|00001f30| 20 66 69 6c 65 74 79 70 | 65 22 3a f2 73 6f 72 74 | filetyp|e":.sort|
|00001f40| 66 74 79 70 65 0d 08 ca | 1c c9 20 22 62 79 20 61 |ftype...|.. "by a|
|00001f50| 75 74 68 6f 72 73 22 3a | f2 73 6f 72 74 61 75 74 |uthors":|.sortaut|
|00001f60| 68 0d 08 d4 17 c9 20 22 | 62 79 20 6c 65 6e 22 3a |h..... "|by len":|
|00001f70| f2 73 6f 72 74 6c 65 6e | 0d 08 de 19 c9 20 22 62 |.sortlen|..... "b|
|00001f80| 79 20 64 61 74 65 22 3a | f2 73 6f 72 74 64 61 74 |y date":|.sortdat|
|00001f90| 65 0d 08 e8 19 c9 20 22 | 62 79 20 66 69 72 6d 22 |e..... "|by firm"|
|00001fa0| 3a f2 73 6f 72 74 66 69 | 72 6d 0d 08 f2 05 cb 0d |:.sortfi|rm......|
|00001fb0| 08 fc 05 e1 0d 09 06 04 | 0d 09 10 28 dd f2 70 75 |........|...(..pu|
|00001fc0| 74 74 65 78 74 28 6d 65 | 73 73 61 67 65 24 2c 68 |ttext(me|ssage$,h|
|00001fd0| 61 6e 64 6c 65 25 2c 69 | 63 6f 6e 25 2c 71 25 29 |andle%,i|con%,q%)|
|00001fe0| 0d 09 1a 1b 21 71 25 3d | 68 61 6e 64 6c 65 25 3a |....!q%=|handle%:|
|00001ff0| 71 25 21 34 3d 69 63 6f | 6e 25 3a 0d 09 24 1d c8 |q%!4=ico|n%:..$..|
|00002000| 99 22 57 69 6d 70 5f 47 | 65 74 49 63 6f 6e 53 74 |."Wimp_G|etIconSt|
|00002010| 61 74 65 22 2c 2c 71 25 | 0d 09 2e 15 24 28 71 25 |ate",,q%|....$(q%|
|00002020| 21 32 38 29 3d 6d 65 73 | 73 61 67 65 24 0d 09 38 |!28)=mes|sage$..8|
|00002030| 37 c8 99 22 57 69 6d 70 | 5f 46 6f 72 63 65 52 65 |7.."Wimp|_ForceRe|
|00002040| 64 72 61 77 22 2c 68 61 | 6e 64 6c 65 25 2c 71 25 |draw",ha|ndle%,q%|
|00002050| 21 38 2c 71 25 21 31 32 | 2c 71 25 21 31 36 2c 71 |!8,q%!12|,q%!16,q|
|00002060| 25 21 32 30 0d 09 42 05 | e1 0d 09 4c 04 0d 09 56 |%!20..B.|...L...V|
|00002070| 04 0d 09 60 47 dd f2 73 | 61 76 65 3a 74 68 69 73 |...`G..s|ave:this|
|00002080| 25 3d 73 61 76 65 25 3a | f2 67 65 74 70 6f 69 6e |%=save%:|.getpoin|
|00002090| 74 65 72 3a f2 64 72 61 | 67 69 63 6f 6e 28 6d 6f |ter:.dra|gicon(mo|
|000020a0| 75 73 65 78 25 2c 6d 6f | 75 73 65 79 25 2c 73 61 |usex%,mo|usey%,sa|
|000020b0| 76 65 25 2c 30 29 3a e1 | 0d 09 6a 04 0d 09 74 31 |ve%,0):.|..j...t1|
|000020c0| dd f2 73 61 76 65 78 3a | 74 68 69 73 25 3d 73 61 |..savex:|this%=sa|
|000020d0| 76 65 25 3a 41 24 3d a4 | 67 65 74 74 65 78 74 28 |ve%:A$=.|gettext(|
|000020e0| 73 61 76 65 25 2c 31 2c | 62 62 6c 25 29 0d 09 7e |save%,1,|bbl%)..~|
|000020f0| 98 e7 20 a7 41 24 2c 22 | 3a 22 29 3d 30 20 8c 20 |.. .A$,"|:")=0 . |
|00002100| f2 63 6c 6f 73 65 61 77 | 69 6e 64 6f 77 28 73 61 |.closeaw|indow(sa|
|00002110| 76 65 25 29 3a 21 62 75 | 66 66 65 72 25 3d 30 3a |ve%):!bu|ffer%=0:|
|00002120| 24 28 62 75 66 66 65 72 | 25 2b 34 29 3d 64 72 61 |$(buffer|%+4)=dra|
|00002130| 67 6d 65 73 73 24 3a c8 | 99 20 22 57 69 6d 70 5f |gmess$:.|. "Wimp_|
|00002140| 52 65 70 6f 72 74 45 72 | 72 6f 72 22 2c 62 75 66 |ReportEr|ror",buf|
|00002150| 66 65 72 25 2c 31 37 2c | 22 45 72 72 6f 72 20 66 |fer%,17,|"Error f|
|00002160| 72 6f 6d 20 74 68 65 20 | 27 53 6f 66 74 77 61 72 |rom the |'Softwar|
|00002170| 65 20 4d 61 6e 61 67 65 | 72 27 20 70 72 6f 67 72 |e Manage|r' progr|
|00002180| 61 6d 22 3a e1 0d 09 88 | 13 f2 53 41 56 45 73 6f |am":....|..SAVEso|
|00002190| 66 74 28 41 24 29 3a e1 | 0d 09 92 04 0d 09 9c 4a |ft(A$):.|.......J|
|000021a0| dd f2 73 61 76 65 32 3a | 74 68 69 73 25 3d 73 61 |..save2:|this%=sa|
|000021b0| 76 65 32 25 3a f2 67 65 | 74 70 6f 69 6e 74 65 72 |ve2%:.ge|tpointer|
|000021c0| 3a f2 64 72 61 67 69 63 | 6f 6e 28 6d 6f 75 73 65 |:.dragic|on(mouse|
|000021d0| 78 25 2c 6d 6f 75 73 65 | 79 25 2c 73 61 76 65 32 |x%,mouse|y%,save2|
|000021e0| 25 2c 30 29 3a e1 0d 09 | a6 04 0d 09 b0 0c dd f2 |%,0):...|........|
|000021f0| 73 61 76 65 32 78 0d 09 | ba 2b 74 68 69 73 25 3d |save2x..|.+this%=|
|00002200| 73 61 76 65 32 25 3a 41 | 24 3d a4 67 65 74 74 65 |save2%:A|$=.gette|
|00002210| 78 74 28 73 61 76 65 32 | 25 2c 31 2c 62 62 6c 25 |xt(save2|%,1,bbl%|
|00002220| 29 0d 09 c4 83 e7 20 a7 | 41 24 2c 22 3a 22 29 3d |)..... .|A$,":")=|
|00002230| 30 20 8c 20 21 62 75 66 | 66 65 72 25 3d 30 3a 24 |0 . !buf|fer%=0:$|
|00002240| 28 62 75 66 66 65 72 25 | 2b 34 29 3d 64 72 61 67 |(buffer%|+4)=drag|
|00002250| 6d 65 73 73 24 3a c8 99 | 20 22 57 69 6d 70 5f 52 |mess$:..| "Wimp_R|
|00002260| 65 70 6f 72 74 45 72 72 | 6f 72 22 2c 62 75 66 66 |eportErr|or",buff|
|00002270| 65 72 25 2c 31 37 2c 22 | 45 72 72 6f 72 20 66 72 |er%,17,"|Error fr|
|00002280| 6f 6d 20 74 68 65 20 27 | 53 6f 66 74 77 61 72 65 |om the '|Software|
|00002290| 20 4d 61 6e 61 67 65 72 | 27 20 70 72 6f 67 72 61 | Manager|' progra|
|000022a0| 6d 22 3a e1 0d 09 ce 28 | f2 53 41 56 45 70 72 6e |m":....(|.SAVEprn|
|000022b0| 28 41 24 29 3a f2 63 6c | 6f 73 65 61 77 69 6e 64 |(A$):.cl|oseawind|
|000022c0| 6f 77 28 73 61 76 65 32 | 25 29 3a e1 0d 09 d8 04 |ow(save2|%):.....|
|000022d0| 0d 09 e2 12 dd 20 f2 67 | 65 74 69 28 68 25 2c 69 |..... .g|eti(h%,i|
|000022e0| 25 29 0d 09 ec 73 21 71 | 25 3d 68 25 3a 71 25 21 |%)...s!q|%=h%:q%!|
|000022f0| 34 3d 69 25 3a c8 99 20 | 22 57 69 6d 70 5f 47 65 |4=i%:.. |"Wimp_Ge|
|00002300| 74 49 63 6f 6e 53 74 61 | 74 65 22 2c 2c 71 25 3a |tIconSta|te",,q%:|
|00002310| 69 78 30 25 3d 71 25 21 | 38 3a 69 79 30 25 3d 71 |ix0%=q%!|8:iy0%=q|
|00002320| 25 21 31 32 3a 69 78 31 | 25 3d 71 25 21 31 36 3a |%!12:ix1|%=q%!16:|
|00002330| 69 79 31 25 3d 71 25 21 | 32 30 3a 69 66 6c 61 67 |iy1%=q%!|20:iflag|
|00002340| 73 25 3d 71 25 21 32 34 | 3a 69 64 61 74 61 25 3d |s%=q%!24|:idata%=|
|00002350| 71 25 2b 32 38 0d 09 f6 | 05 e1 0d 0a 00 04 0d 0a |q%+28...|........|
|00002360| 0a 2e dd 20 f2 64 72 61 | 67 69 63 6f 6e 28 6d 6f |... .dra|gicon(mo|
|00002370| 75 73 65 78 25 2c 6d 6f | 75 73 65 79 25 2c 68 61 |usex%,mo|usey%,ha|
|00002380| 6e 64 6c 65 25 2c 69 63 | 6f 6e 25 29 0d 0a 14 25 |ndle%,ic|on%)...%|
|00002390| 64 72 61 67 74 79 70 65 | 25 3d 26 46 46 3a 64 72 |dragtype|%=&FF:dr|
|000023a0| 61 67 68 61 6e 64 6c 65 | 25 3d 68 61 6e 64 6c 65 |aghandle|%=handle|
|000023b0| 25 0d 0a 1e 12 f2 67 65 | 74 77 28 68 61 6e 64 6c |%.....ge|tw(handl|
|000023c0| 65 25 29 0d 0a 28 18 f2 | 67 65 74 69 28 68 61 6e |e%)..(..|geti(han|
|000023d0| 64 6c 65 25 2c 69 63 6f | 6e 25 29 0d 0a 32 16 21 |dle%,ico|n%)..2.!|
|000023e0| 71 25 3d 68 61 6e 64 6c | 65 25 3a 71 25 21 34 3d |q%=handl|e%:q%!4=|
|000023f0| 35 0d 0a 3c 3e 71 25 21 | 38 3d 62 78 25 2b 69 78 |5..<>q%!|8=bx%+ix|
|00002400| 30 25 3a 71 25 21 31 32 | 3d 62 79 25 2b 69 79 30 |0%:q%!12|=by%+iy0|
|00002410| 25 3a 71 25 21 31 36 3d | 62 78 25 2b 69 78 31 25 |%:q%!16=|bx%+ix1%|
|00002420| 3a 71 25 21 32 30 3d 62 | 79 25 2b 69 79 31 25 0d |:q%!20=b|y%+iy1%.|
|00002430| 0a 46 2a 71 25 21 32 34 | 3d 71 25 21 38 2d 6d 6f |.F*q%!24|=q%!8-mo|
|00002440| 75 73 65 78 25 3a 71 25 | 21 32 38 3d 71 25 21 31 |usex%:q%|!28=q%!1|
|00002450| 32 2d 6d 6f 75 73 65 79 | 25 0d 0a 50 39 71 25 21 |2-mousey|%..P9q%!|
|00002460| 33 32 3d 73 63 72 78 31 | 25 2b 71 25 21 31 36 2d |32=scrx1|%+q%!16-|
|00002470| 6d 6f 75 73 65 78 25 3a | 71 25 21 33 36 3d 73 63 |mousex%:|q%!36=sc|
|00002480| 72 79 31 25 2b 71 25 21 | 32 30 2d 6d 6f 75 73 65 |ry1%+q%!|20-mouse|
|00002490| 79 25 0d 0a 5a 19 c8 99 | 20 22 57 69 6d 70 5f 44 |y%..Z...| "Wimp_D|
|000024a0| 72 61 67 42 6f 78 22 2c | 2c 71 25 0d 0a 64 05 e1 |ragBox",|,q%..d..|
|000024b0| 0d 0a 6e 04 0d 0a 78 12 | dd 20 f2 67 65 74 6d 6f |..n...x.|. .getmo|
|000024c0| 64 65 69 6e 66 6f 0d 0a | 82 53 69 6e 76 25 21 30 |deinfo..|.Sinv%!0|
|000024d0| 20 3d 20 34 3a 69 6e 76 | 25 21 34 20 3d 20 35 3a | = 4:inv|%!4 = 5:|
|000024e0| 69 6e 76 25 21 38 20 3d | 20 36 3a 69 6e 76 25 21 |inv%!8 =| 6:inv%!|
|000024f0| 31 32 3d 20 37 3a 69 6e | 76 25 21 31 36 3d 20 31 |12= 7:in|v%!16= 1|
|00002500| 31 3a 69 6e 76 25 21 32 | 30 3d 20 31 32 3a 69 6e |1:inv%!2|0= 12:in|
|00002510| 76 25 21 32 34 3d 20 2d | 31 0d 0a 8c 27 c8 99 20 |v%!24= -|1...'.. |
|00002520| 22 4f 53 5f 52 65 61 64 | 56 64 75 56 61 72 69 61 |"OS_Read|VduVaria|
|00002530| 62 6c 65 73 22 2c 69 6e | 76 25 2c 6f 75 74 76 25 |bles",in|v%,outv%|
|00002540| 0d 0a 96 7b 64 78 25 3d | 31 3c 3c 28 6f 75 74 76 |...{dx%=|1<<(outv|
|00002550| 25 21 30 29 3a 64 79 25 | 3d 31 3c 3c 28 6f 75 74 |%!0):dy%|=1<<(out|
|00002560| 76 25 21 34 29 3a 6c 69 | 6e 65 6c 65 6e 25 3d 6f |v%!4):li|nelen%=o|
|00002570| 75 74 76 25 21 38 3a 73 | 63 72 65 65 6e 73 69 7a |utv%!8:s|creensiz|
|00002580| 65 25 3d 6f 75 74 76 25 | 21 31 32 3a 73 63 72 78 |e%=outv%|!12:scrx|
|00002590| 31 25 3d 28 6f 75 74 76 | 25 21 31 36 2b 31 29 2a |1%=(outv|%!16+1)*|
|000025a0| 64 78 25 3a 73 63 72 79 | 31 25 3d 28 6f 75 74 76 |dx%:scry|1%=(outv|
|000025b0| 25 21 32 30 2b 31 29 2a | 64 79 25 0d 0a a0 05 e1 |%!20+1)*|dy%.....|
|000025c0| 0d 0a aa 04 0d 0a b4 18 | dd 20 f2 73 65 6e 64 73 |........|. .sends|
|000025d0| 61 76 65 28 66 74 25 2c | 66 6e 25 29 0d 0a be 0f |ave(ft%,|fn%)....|
|000025e0| ea 20 66 69 6c 65 6e 61 | 6d 65 25 0d 0a c8 1c c8 |. filena|me%.....|
|000025f0| 99 20 22 57 69 6d 70 5f | 43 72 65 61 74 65 4d 65 |. "Wimp_|CreateMe|
|00002600| 6e 75 22 2c 2c 2d 31 0d | 0a d2 32 f5 66 69 6c 65 |nu",,-1.|..2.file|
|00002610| 6e 61 6d 65 25 3d 66 6e | 25 3a 66 6e 25 2b 3d a7 |name%=fn|%:fn%+=.|
|00002620| 24 66 6e 25 2c 22 2e 22 | 29 3a fd 20 66 6e 25 3d |$fn%,"."|):. fn%=|
|00002630| 66 69 6c 65 6e 61 6d 65 | 25 0d 0a dc 39 f2 67 65 |filename|%...9.ge|
|00002640| 74 70 6f 69 6e 74 65 72 | 20 3a 20 f4 20 73 65 74 |tpointer| : . set|
|00002650| 73 20 75 70 20 68 61 6e | 64 6c 65 25 2c 69 63 6f |s up han|dle%,ico|
|00002660| 6e 25 2c 6d 6f 75 73 65 | 78 25 2c 6d 6f 75 73 65 |n%,mouse|x%,mouse|
|00002670| 79 25 0d 0a e6 1b 21 71 | 25 3d 28 34 38 2b a9 24 |y%....!q|%=(48+.$|
|00002680| 66 69 6c 65 6e 61 6d 65 | 25 29 80 ac 33 0d 0a f0 |filename|%)..3...|
|00002690| 49 71 25 21 31 32 3d 30 | 3a 71 25 21 31 36 3d 31 |Iq%!12=0|:q%!16=1|
|000026a0| 3a 71 25 21 32 30 3d 68 | 61 6e 64 6c 65 25 3a 71 |:q%!20=h|andle%:q|
|000026b0| 25 21 32 34 3d 69 63 6f | 6e 25 3a 71 25 21 32 38 |%!24=ico|n%:q%!28|
|000026c0| 3d 6d 6f 75 73 65 78 25 | 3a 71 25 21 33 32 3d 6d |=mousex%|:q%!32=m|
|000026d0| 6f 75 73 65 79 25 0d 0a | fa 28 71 25 21 33 36 3d |ousey%..|.(q%!36=|
|000026e0| 30 20 20 20 3a 20 f4 20 | 66 69 6c 65 20 73 69 7a |0 : . |file siz|
|000026f0| 65 20 28 69 6e 61 63 63 | 75 72 61 74 65 29 0d 0b |e (inacc|urate)..|
|00002700| 04 1b 71 25 21 34 30 3d | 66 74 25 20 3a 20 f4 20 |..q%!40=|ft% : . |
|00002710| 66 69 6c 65 20 74 79 70 | 65 0d 0b 0e 48 f2 73 74 |file typ|e...H.st|
|00002720| 72 69 6e 67 30 28 71 25 | 2b 34 34 2c 24 66 69 6c |ring0(q%|+44,$fil|
|00002730| 65 6e 61 6d 65 25 29 3a | c8 99 20 22 57 69 6d 70 |ename%):|.. "Wimp|
|00002740| 5f 53 65 6e 64 4d 65 73 | 73 61 67 65 22 2c 31 37 |_SendMes|sage",17|
|00002750| 2c 71 25 2c 68 61 6e 64 | 6c 65 25 2c 69 63 6f 6e |,q%,hand|le%,icon|
|00002760| 25 0d 0b 18 11 73 61 76 | 65 72 65 66 25 3d 71 25 |%....sav|eref%=q%|
|00002770| 21 38 0d 0b 22 05 e1 0d | 0b 2c 04 0d 0b 36 38 dd |!8.."...|.,...68.|
|00002780| 20 a4 73 74 72 69 6e 67 | 30 28 61 25 29 20 ea 61 | .string|0(a%) .a|
|00002790| 24 3a 61 24 3d 22 22 3a | c8 95 20 3f 61 25 3a 61 |$:a$="":|.. ?a%:a|
|000027a0| 24 2b 3d bd 3f 61 25 3a | 61 25 2b 3d 31 3a ce 3a |$+=.?a%:|a%+=1:.:|
|000027b0| 3d 61 24 0d 0b 40 04 0d | 0b 4a 27 dd 20 f2 73 74 |=a$..@..|.J'. .st|
|000027c0| 72 69 6e 67 30 28 61 25 | 2c 61 24 29 20 24 61 25 |ring0(a%|,a$) $a%|
|000027d0| 3d 61 24 3a 61 25 3f a9 | 61 24 3d 30 3a e1 0d 0b |=a$:a%?.|a$=0:...|
|000027e0| 54 04 0d 0b 5e 5b dd a4 | 67 65 74 74 65 78 74 28 |T...^[..|gettext(|
|000027f0| 68 61 6e 64 6c 65 25 2c | 69 63 6f 6e 25 2c 71 25 |handle%,|icon%,q%|
|00002800| 29 3a 21 71 25 3d 68 61 | 6e 64 6c 65 25 3a 71 25 |):!q%=ha|ndle%:q%|
|00002810| 21 34 3d 69 63 6f 6e 25 | 3a 3a c8 99 22 57 69 6d |!4=icon%|::.."Wim|
|00002820| 70 5f 47 65 74 49 63 6f | 6e 53 74 61 74 65 22 2c |p_GetIco|nState",|
|00002830| 2c 71 25 3a 3d 24 28 71 | 25 21 32 38 29 0d 0b 68 |,q%:=$(q|%!28)..h|
|00002840| 58 dd a4 67 65 74 6e 75 | 6d 28 69 63 6f 6e 25 29 |X..getnu|m(icon%)|
|00002850| 3a 21 62 62 6c 25 3d 66 | 69 65 6c 25 3a 62 62 6c |:!bbl%=f|iel%:bbl|
|00002860| 25 21 34 3d 69 63 6f 6e | 25 3a 3a c8 99 22 57 69 |%!4=icon|%::.."Wi|
|00002870| 6d 70 5f 47 65 74 49 63 | 6f 6e 53 74 61 74 65 22 |mp_GetIc|onState"|
|00002880| 2c 2c 62 62 6c 25 3a 3d | bb 28 24 28 62 62 6c 25 |,,bbl%:=|.($(bbl%|
|00002890| 21 32 38 29 29 0d 0b 72 | 04 0d 0b 7c 17 dd f2 6c |!28))..r|...|...l|
|000028a0| 6f 6f 6b 62 75 74 74 6f | 6e 28 69 63 6f 6e 25 29 |ookbutto|n(icon%)|
|000028b0| 0d 0b 86 46 e7 20 28 69 | 63 6f 6e 25 3e 3d 33 33 |...F. (i|con%>=33|
|000028c0| 20 80 20 69 63 6f 6e 25 | 3c 3d 33 39 29 20 84 20 | . icon%|<=39) . |
|000028d0| 28 69 63 6f 6e 25 3e 3d | 34 31 20 80 20 69 63 6f |(icon%>=|41 . ico|
|000028e0| 6e 25 3c 3d 34 34 29 20 | f2 6d 65 6e 75 28 69 63 |n%<=44) |.menu(ic|
|000028f0| 6f 6e 25 29 3a e1 0d 0b | 90 0e c8 8e 20 69 63 6f |on%):...|.... ico|
|00002900| 6e 25 20 ca 0d 0b 9a 36 | 20 20 20 c9 20 38 2c 39 |n% ....6| . 8,9|
|00002910| 2c 31 34 2c 31 32 2c 31 | 33 3a f2 63 68 61 6e 67 |,14,12,1|3:.chang|
|00002920| 65 69 63 6f 6e 28 6f 70 | 74 25 28 31 29 2c 69 63 |eicon(op|t%(1),ic|
|00002930| 6f 6e 25 29 3a f2 75 70 | 6f 6e 0d 0b a4 2f 20 20 |on%):.up|on.../ |
|00002940| 20 c9 20 31 35 2c 31 36 | 3a f2 63 68 61 6e 67 65 | . 15,16|:.change|
|00002950| 69 63 6f 6e 28 6f 70 74 | 25 28 32 29 2c 69 63 6f |icon(opt|%(2),ico|
|00002960| 6e 25 29 3a f2 75 70 6f | 6e 0d 0b ae 28 20 20 20 |n%):.upo|n...( |
|00002970| c9 20 31 31 3a f2 74 6f | 67 67 6c 65 28 6f 70 74 |. 11:.to|ggle(opt|
|00002980| 25 28 34 29 2c 69 63 6f | 6e 25 29 3a f2 75 70 6f |%(4),ico|n%):.upo|
|00002990| 6e 0d 0b b8 28 20 20 20 | c9 20 31 30 3a f2 74 6f |n...( |. 10:.to|
|000029a0| 67 67 6c 65 28 6f 70 74 | 25 28 35 29 2c 69 63 6f |ggle(opt|%(5),ico|
|000029b0| 6e 25 29 3a f2 75 70 6f | 6e 0d 0b c2 28 20 20 20 |n%):.upo|n...( |
|000029c0| c9 20 32 39 3a f2 74 6f | 67 67 6c 65 28 6f 70 74 |. 29:.to|ggle(opt|
|000029d0| 25 28 33 29 2c 69 63 6f | 6e 25 29 3a f2 75 70 6f |%(3),ico|n%):.upo|
|000029e0| 6e 0d 0b cc 05 cb 0d 0b | d6 05 e1 0d 0b e0 04 0d |n.......|........|
|000029f0| 0b ea 18 dd f2 6c 6f 6f | 6b 62 75 74 74 6f 6e 32 |.....loo|kbutton2|
|00002a00| 28 69 63 6f 6e 25 29 0d | 0b f4 0e c8 8e 20 69 63 |(icon%).|..... ic|
|00002a10| 6f 6e 25 20 ca 0d 0b fe | 2d 20 20 20 c9 20 31 37 |on% ....|- . 17|
|00002a20| 2c 32 33 2c 31 30 3a f2 | 63 68 61 6e 67 65 69 63 |,23,10:.|changeic|
|00002a30| 6f 6e 32 28 6f 70 74 25 | 28 36 29 2c 69 63 6f 6e |on2(opt%|(6),icon|
|00002a40| 25 29 0d 0c 08 2d 20 20 | 20 c9 20 34 32 2c 34 38 |%)...- | . 42,48|
|00002a50| 2c 31 31 3a f2 63 68 61 | 6e 67 65 69 63 6f 6e 32 |,11:.cha|ngeicon2|
|00002a60| 28 6f 70 74 25 28 37 29 | 2c 69 63 6f 6e 25 29 0d |(opt%(7)|,icon%).|
|00002a70| 0c 12 2d 20 20 20 c9 20 | 31 33 2c 31 34 2c 31 35 |..- . |13,14,15|
|00002a80| 3a f2 63 68 61 6e 67 65 | 69 63 6f 6e 32 28 6f 70 |:.change|icon2(op|
|00002a90| 74 25 28 38 29 2c 69 63 | 6f 6e 25 29 0d 0c 1c 2d |t%(8),ic|on%)...-|
|00002aa0| 20 20 20 c9 20 31 39 2c | 32 30 2c 32 31 3a f2 63 | . 19,|20,21:.c|
|00002ab0| 68 61 6e 67 65 69 63 6f | 6e 32 28 6f 70 74 25 28 |hangeico|n2(opt%(|
|00002ac0| 39 29 2c 69 63 6f 6e 25 | 29 0d 0c 26 2e 20 20 20 |9),icon%|)..&. |
|00002ad0| c9 20 32 35 2c 32 36 2c | 32 37 3a f2 63 68 61 6e |. 25,26,|27:.chan|
|00002ae0| 67 65 69 63 6f 6e 32 28 | 6f 70 74 25 28 31 30 29 |geicon2(|opt%(10)|
|00002af0| 2c 69 63 6f 6e 25 29 0d | 0c 30 2e 20 20 20 c9 20 |,icon%).|.0. . |
|00002b00| 33 32 2c 33 33 2c 33 34 | 3a f2 63 68 61 6e 67 65 |32,33,34|:.change|
|00002b10| 69 63 6f 6e 32 28 6f 70 | 74 25 28 31 31 29 2c 69 |icon2(op|t%(11),i|
|00002b20| 63 6f 6e 25 29 0d 0c 3a | 2e 20 20 20 c9 20 33 38 |con%)..:|. . 38|
|00002b30| 2c 33 39 2c 34 30 3a f2 | 63 68 61 6e 67 65 69 63 |,39,40:.|changeic|
|00002b40| 6f 6e 32 28 6f 70 74 25 | 28 31 32 29 2c 69 63 6f |on2(opt%|(12),ico|
|00002b50| 6e 25 29 0d 0c 44 2e 20 | 20 20 c9 20 34 34 2c 34 |n%)..D. | . 44,4|
|00002b60| 35 2c 34 36 3a f2 63 68 | 61 6e 67 65 69 63 6f 6e |5,46:.ch|angeicon|
|00002b70| 32 28 6f 70 74 25 28 31 | 33 29 2c 69 63 6f 6e 25 |2(opt%(1|3),icon%|
|00002b80| 29 0d 0c 4e 3a 20 20 20 | c9 20 35 30 2c 35 31 2c |)..N: |. 50,51,|
|00002b90| 35 32 2c 35 37 2c 35 33 | 2c 35 34 2c 35 35 3a f2 |52,57,53|,54,55:.|
|00002ba0| 63 68 61 6e 67 65 69 63 | 6f 6e 32 28 6f 70 74 25 |changeic|on2(opt%|
|00002bb0| 28 32 32 29 2c 69 63 6f | 6e 25 29 0d 0c 58 24 20 |(22),ico|n%)..X$ |
|00002bc0| 20 20 c9 20 32 39 3a f2 | 74 6f 67 67 6c 65 32 28 | . 29:.|toggle2(|
|00002bd0| 6f 70 74 25 28 31 34 29 | 2c 69 63 6f 6e 25 29 0d |opt%(14)|,icon%).|
|00002be0| 0c 62 24 20 20 20 c9 20 | 35 36 3a f2 74 6f 67 67 |.b$ . |56:.togg|
|00002bf0| 6c 65 32 28 6f 70 74 25 | 28 31 35 29 2c 69 63 6f |le2(opt%|(15),ico|
|00002c00| 6e 25 29 0d 0c 6c 24 20 | 20 20 c9 20 31 36 3a f2 |n%)..l$ | . 16:.|
|00002c10| 74 6f 67 67 6c 65 32 28 | 6f 70 74 25 28 31 36 29 |toggle2(|opt%(16)|
|00002c20| 2c 69 63 6f 6e 25 29 0d | 0c 76 24 20 20 20 c9 20 |,icon%).|.v$ . |
|00002c30| 32 32 3a f2 74 6f 67 67 | 6c 65 32 28 6f 70 74 25 |22:.togg|le2(opt%|
|00002c40| 28 31 37 29 2c 69 63 6f | 6e 25 29 0d 0c 80 24 20 |(17),ico|n%)...$ |
|00002c50| 20 20 c9 20 32 38 3a f2 | 74 6f 67 67 6c 65 32 28 | . 28:.|toggle2(|
|00002c60| 6f 70 74 25 28 31 38 29 | 2c 69 63 6f 6e 25 29 0d |opt%(18)|,icon%).|
|00002c70| 0c 8a 24 20 20 20 c9 20 | 33 35 3a f2 74 6f 67 67 |..$ . |35:.togg|
|00002c80| 6c 65 32 28 6f 70 74 25 | 28 31 39 29 2c 69 63 6f |le2(opt%|(19),ico|
|00002c90| 6e 25 29 0d 0c 94 24 20 | 20 20 c9 20 34 31 3a f2 |n%)...$ | . 41:.|
|00002ca0| 74 6f 67 67 6c 65 32 28 | 6f 70 74 25 28 32 30 29 |toggle2(|opt%(20)|
|00002cb0| 2c 69 63 6f 6e 25 29 0d | 0c 9e 24 20 20 20 c9 20 |,icon%).|..$ . |
|00002cc0| 34 37 3a f2 74 6f 67 67 | 6c 65 32 28 6f 70 74 25 |47:.togg|le2(opt%|
|00002cd0| 28 32 31 29 2c 69 63 6f | 6e 25 29 0d 0c a8 24 20 |(21),ico|n%)...$ |
|00002ce0| 20 20 c9 20 33 30 3a f2 | 74 6f 67 67 6c 65 33 28 | . 30:.|toggle3(|
|00002cf0| 6f 70 74 25 28 32 33 29 | 2c 69 63 6f 6e 25 29 0d |opt%(23)|,icon%).|
|00002d00| 0c b2 24 20 20 20 c9 20 | 33 36 3a f2 74 6f 67 67 |..$ . |36:.togg|
|00002d10| 6c 65 33 28 6f 70 74 25 | 28 32 34 29 2c 69 63 6f |le3(opt%|(24),ico|
|00002d20| 6e 25 29 0d 0c bc 24 20 | 20 20 c9 20 31 32 3a f2 |n%)...$ | . 12:.|
|00002d30| 74 6f 67 67 6c 65 33 28 | 6f 70 74 25 28 32 35 29 |toggle3(|opt%(25)|
|00002d40| 2c 69 63 6f 6e 25 29 0d | 0c c6 24 20 20 20 c9 20 |,icon%).|..$ . |
|00002d50| 31 38 3a f2 74 6f 67 67 | 6c 65 33 28 6f 70 74 25 |18:.togg|le3(opt%|
|00002d60| 28 32 36 29 2c 69 63 6f | 6e 25 29 0d 0c d0 24 20 |(26),ico|n%)...$ |
|00002d70| 20 20 c9 20 32 34 3a f2 | 74 6f 67 67 6c 65 33 28 | . 24:.|toggle3(|
|00002d80| 6f 70 74 25 28 32 37 29 | 2c 69 63 6f 6e 25 29 0d |opt%(27)|,icon%).|
|00002d90| 0c da 24 20 20 20 c9 20 | 33 31 3a f2 74 6f 67 67 |..$ . |31:.togg|
|00002da0| 6c 65 33 28 6f 70 74 25 | 28 32 38 29 2c 69 63 6f |le3(opt%|(28),ico|
|00002db0| 6e 25 29 0d 0c e4 24 20 | 20 20 c9 20 33 37 3a f2 |n%)...$ | . 37:.|
|00002dc0| 74 6f 67 67 6c 65 33 28 | 6f 70 74 25 28 32 39 29 |toggle3(|opt%(29)|
|00002dd0| 2c 69 63 6f 6e 25 29 0d | 0c ee 24 20 20 20 c9 20 |,icon%).|..$ . |
|00002de0| 34 33 3a f2 74 6f 67 67 | 6c 65 33 28 6f 70 74 25 |43:.togg|le3(opt%|
|00002df0| 28 33 30 29 2c 69 63 6f | 6e 25 29 0d 0c f8 05 cb |(30),ico|n%).....|
|00002e00| 0d 0d 02 05 e1 0d 0d 0c | 04 0d 0d 16 18 dd f2 6c |........|.......l|
|00002e10| 6f 6f 6b 62 75 74 74 6f | 6e 33 28 69 63 6f 6e 25 |ookbutto|n3(icon%|
|00002e20| 29 0d 0d 20 0e c8 8e 20 | 69 63 6f 6e 25 20 ca 0d |).. ... |icon% ..|
|00002e30| 0d 2a 37 20 20 20 c9 20 | 39 2c 31 30 2c 31 31 2c |.*7 . |9,10,11,|
|00002e40| 31 32 2c 31 34 2c 31 35 | 2c 31 36 20 3a f2 63 68 |12,14,15|,16 :.ch|
|00002e50| 61 6e 67 65 69 63 6f 6e | 33 28 6f 70 74 78 25 2c |angeicon|3(optx%,|
|00002e60| 69 63 6f 6e 25 29 0d 0d | 34 37 20 20 20 c9 20 34 |icon%)..|47 . 4|
|00002e70| 20 3a 73 73 25 3d 31 3a | f2 73 65 61 72 63 68 28 | :ss%=1:|.search(|
|00002e80| a4 67 65 74 74 65 78 74 | 28 73 65 61 72 25 2c 38 |.gettext|(sear%,8|
|00002e90| 2c 62 62 6c 25 29 2c 31 | 2c 70 6f 25 29 0d 0d 3e |,bbl%),1|,po%)..>|
|00002ea0| 39 20 20 20 c9 20 35 20 | 3a 73 73 25 3d 2d 31 3a |9 . 5 |:ss%=-1:|
|00002eb0| f2 73 65 61 72 63 68 28 | a4 67 65 74 74 65 78 74 |.search(|.gettext|
|00002ec0| 28 73 65 61 72 25 2c 38 | 2c 62 62 6c 25 29 2c 2d |(sear%,8|,bbl%),-|
|00002ed0| 31 2c 70 6f 25 29 0d 0d | 48 42 20 20 20 c9 20 37 |1,po%)..|HB . 7|
|00002ee0| 20 3a 73 73 25 3d 2d 31 | 3a 70 6f 25 3d 6e 62 72 | :ss%=-1|:po%=nbr|
|00002ef0| 25 3a f2 73 65 61 72 63 | 68 28 a4 67 65 74 74 65 |%:.searc|h(.gette|
|00002f00| 78 74 28 73 65 61 72 25 | 2c 38 2c 62 62 6c 25 29 |xt(sear%|,8,bbl%)|
|00002f10| 2c 2d 31 2c 70 6f 25 29 | 0d 0d 52 3d 20 20 20 c9 |,-1,po%)|..R= .|
|00002f20| 20 36 20 3a 73 73 25 3d | 31 3a 70 6f 25 3d 30 3a | 6 :ss%=|1:po%=0:|
|00002f30| f2 73 65 61 72 63 68 28 | a4 67 65 74 74 65 78 74 |.search(|.gettext|
|00002f40| 28 73 65 61 72 25 2c 38 | 2c 62 62 6c 25 29 2c 31 |(sear%,8|,bbl%),1|
|00002f50| 2c 70 6f 25 29 0d 0d 5c | 05 cb 0d 0d 66 05 e1 0d |,po%)..\|....f...|
|00002f60| 0d 70 04 0d 0d 7a 18 dd | f2 6c 6f 6f 6b 62 75 74 |.p...z..|.lookbut|
|00002f70| 74 6f 6e 34 28 69 63 6f | 6e 25 29 0d 0d 84 0e c8 |ton4(ico|n%).....|
|00002f80| 8e 20 69 63 6f 6e 25 20 | ca 0d 0d 8e 24 20 20 20 |. icon% |....$ |
|00002f90| c9 20 34 36 3a f2 74 6f | 67 67 6c 65 34 28 6f 70 |. 46:.to|ggle4(op|
|00002fa0| 74 32 25 28 31 29 2c 69 | 63 6f 6e 25 29 0d 0d 98 |t2%(1),i|con%)...|
|00002fb0| 24 20 20 20 c9 20 34 37 | 3a f2 74 6f 67 67 6c 65 |$ . 47|:.toggle|
|00002fc0| 34 28 6f 70 74 32 25 28 | 32 29 2c 69 63 6f 6e 25 |4(opt2%(|2),icon%|
|00002fd0| 29 0d 0d a2 24 20 20 20 | c9 20 34 38 3a f2 74 6f |)...$ |. 48:.to|
|00002fe0| 67 67 6c 65 34 28 6f 70 | 74 32 25 28 33 29 2c 69 |ggle4(op|t2%(3),i|
|00002ff0| 63 6f 6e 25 29 0d 0d ac | 24 20 20 20 c9 20 34 39 |con%)...|$ . 49|
|00003000| 3a f2 74 6f 67 67 6c 65 | 34 28 6f 70 74 32 25 28 |:.toggle|4(opt2%(|
|00003010| 34 29 2c 69 63 6f 6e 25 | 29 0d 0d b6 24 20 20 20 |4),icon%|)...$ |
|00003020| c9 20 35 30 3a f2 74 6f | 67 67 6c 65 34 28 6f 70 |. 50:.to|ggle4(op|
|00003030| 74 32 25 28 35 29 2c 69 | 63 6f 6e 25 29 0d 0d c0 |t2%(5),i|con%)...|
|00003040| 24 20 20 20 c9 20 35 31 | 3a f2 74 6f 67 67 6c 65 |$ . 51|:.toggle|
|00003050| 34 28 6f 70 74 32 25 28 | 36 29 2c 69 63 6f 6e 25 |4(opt2%(|6),icon%|
|00003060| 29 0d 0d ca 24 20 20 20 | c9 20 35 32 3a f2 74 6f |)...$ |. 52:.to|
|00003070| 67 67 6c 65 34 28 6f 70 | 74 32 25 28 37 29 2c 69 |ggle4(op|t2%(7),i|
|00003080| 63 6f 6e 25 29 0d 0d d4 | 24 20 20 20 c9 20 35 33 |con%)...|$ . 53|
|00003090| 3a f2 74 6f 67 67 6c 65 | 34 28 6f 70 74 32 25 28 |:.toggle|4(opt2%(|
|000030a0| 38 29 2c 69 63 6f 6e 25 | 29 0d 0d de 24 20 20 20 |8),icon%|)...$ |
|000030b0| c9 20 35 34 3a f2 74 6f | 67 67 6c 65 34 28 6f 70 |. 54:.to|ggle4(op|
|000030c0| 74 32 25 28 39 29 2c 69 | 63 6f 6e 25 29 0d 0d e8 |t2%(9),i|con%)...|
|000030d0| 05 cb 0d 0d f2 05 e1 0d | 0d fc 04 0d 0e 06 11 dd |........|........|
|000030e0| f2 6d 65 6e 75 28 69 63 | 6f 6e 25 29 0d 0e 10 0e |.menu(ic|on%)....|
|000030f0| c8 8e 20 69 63 6f 6e 25 | 20 ca 0d 0e 1a 9a 20 20 |.. icon%| ..... |
|00003100| 20 c9 20 34 32 3a f2 67 | 65 74 77 28 70 61 72 61 | . 42:.g|etw(para|
|00003110| 6d 25 29 3a f2 6f 70 65 | 6e 5f 77 69 6e 64 6f 77 |m%):.ope|n_window|
|00003120| 28 21 71 25 2c 71 25 21 | 34 2c 71 25 21 38 2c 71 |(!q%,q%!|4,q%!8,q|
|00003130| 25 21 31 32 2c 71 25 21 | 31 36 2c 71 25 21 32 30 |%!12,q%!|16,q%!20|
|00003140| 2c 71 25 21 32 34 2c 71 | 25 21 32 38 29 3a f2 67 |,q%!24,q|%!28):.g|
|00003150| 65 74 77 28 66 69 65 6c | 25 29 3a f2 6f 70 65 6e |etw(fiel|%):.open|
|00003160| 5f 77 69 6e 64 6f 77 28 | 21 71 25 2c 71 25 21 34 |_window(|!q%,q%!4|
|00003170| 2c 71 25 21 38 2c 71 25 | 21 31 32 2c 71 25 21 31 |,q%!8,q%|!12,q%!1|
|00003180| 36 2c 71 25 21 32 30 2c | 71 25 21 32 34 2c 71 25 |6,q%!20,|q%!24,q%|
|00003190| 21 32 38 29 0d 0e 24 53 | 20 20 20 c9 20 34 33 3a |!28)..$S| . 43:|
|000031a0| f2 67 65 74 77 28 73 61 | 76 65 32 25 29 3a f2 6f |.getw(sa|ve2%):.o|
|000031b0| 70 65 6e 5f 77 69 6e 64 | 6f 77 28 21 71 25 2c 71 |pen_wind|ow(!q%,q|
|000031c0| 25 21 34 2c 71 25 21 38 | 2c 71 25 21 31 32 2c 71 |%!4,q%!8|,q%!12,q|
|000031d0| 25 21 31 36 2c 71 25 21 | 32 30 2c 71 25 21 32 34 |%!16,q%!|20,q%!24|
|000031e0| 2c 71 25 21 32 38 29 0d | 0e 2e 1d 20 20 20 c9 20 |,q%!28).|... . |
|000031f0| 33 36 3a f2 63 6c 65 61 | 72 66 69 65 6c 64 3a f2 |36:.clea|rfield:.|
|00003200| 75 70 6f 6e 0d 0e 38 13 | 20 20 20 c9 20 33 37 3a |upon..8.| . 37:|
|00003210| f2 64 65 6c 65 74 65 0d | 0e 42 13 20 20 20 c9 20 |.delete.|.B. . |
|00003220| 33 39 3a f2 72 65 63 6f | 72 64 0d 0e 4c 11 20 20 |39:.reco|rd..L. |
|00003230| 20 c9 20 33 34 3a f2 6e | 65 78 74 0d 0e 56 15 20 | . 34:.n|ext..V. |
|00003240| 20 20 c9 20 33 35 3a f2 | 70 72 65 76 69 6f 75 73 | . 35:.|previous|
|00003250| 0d 0e 60 11 20 20 20 c9 | 20 33 38 3a f2 75 70 64 |..`. .| 38:.upd|
|00003260| 74 0d 0e 6a 52 20 20 20 | c9 20 33 33 3a f2 67 65 |t..jR |. 33:.ge|
|00003270| 74 77 28 73 65 61 72 25 | 29 3a f2 6f 70 65 6e 5f |tw(sear%|):.open_|
|00003280| 77 69 6e 64 6f 77 28 21 | 71 25 2c 71 25 21 34 2c |window(!|q%,q%!4,|
|00003290| 71 25 21 38 2c 71 25 21 | 31 32 2c 71 25 21 31 36 |q%!8,q%!|12,q%!16|
|000032a0| 2c 71 25 21 32 30 2c 71 | 25 21 32 34 2c 71 25 21 |,q%!20,q|%!24,q%!|
|000032b0| 32 38 29 0d 0e 74 52 20 | 20 20 c9 20 34 34 3a f2 |28)..tR | . 44:.|
|000032c0| 67 65 74 77 28 68 65 6c | 70 25 29 3a f2 6f 70 65 |getw(hel|p%):.ope|
|000032d0| 6e 5f 77 69 6e 64 6f 77 | 28 21 71 25 2c 71 25 21 |n_window|(!q%,q%!|
|000032e0| 34 2c 71 25 21 38 2c 71 | 25 21 31 32 2c 71 25 21 |4,q%!8,q|%!12,q%!|
|000032f0| 31 36 2c 71 25 21 32 30 | 2c 71 25 21 32 34 2c 71 |16,q%!20|,q%!24,q|
|00003300| 25 21 32 38 29 0d 0e 7e | 12 20 20 20 c9 20 34 31 |%!28)..~|. . 41|
|00003310| 3a f2 70 72 69 6e 74 0d | 0e 88 08 20 20 20 cb 0d |:.print.|... ..|
|00003320| 0e 92 05 e1 0d 0e 9c 04 | 0d 0e a6 10 dd f2 63 6c |........|......cl|
|00003330| 65 61 72 66 69 65 6c 64 | 0d 0e b0 8c f2 70 75 74 |earfield|.....put|
|00003340| 74 65 78 74 28 22 22 2c | 73 6f 66 74 25 2c 31 37 |text("",|soft%,17|
|00003350| 2c 62 62 6c 25 29 3a f2 | 70 75 74 74 65 78 74 28 |,bbl%):.|puttext(|
|00003360| 22 78 2e 78 78 22 2c 73 | 6f 66 74 25 2c 35 2c 62 |"x.xx",s|oft%,5,b|
|00003370| 62 6c 25 29 3a f2 70 75 | 74 74 65 78 74 28 22 22 |bl%):.pu|ttext(""|
|00003380| 2c 73 6f 66 74 25 2c 33 | 30 2c 62 62 6c 25 29 3a |,soft%,3|0,bbl%):|
|00003390| f2 70 75 74 74 65 78 74 | 28 22 22 2c 73 6f 66 74 |.puttext|("",soft|
|000033a0| 25 2c 37 2c 62 62 6c 25 | 29 3a f2 70 75 74 74 65 |%,7,bbl%|):.putte|
|000033b0| 78 74 28 22 22 2c 73 6f | 66 74 25 2c 34 36 2c 62 |xt("",so|ft%,46,b|
|000033c0| 62 6c 25 29 0d 0e ba 8a | f2 70 75 74 74 65 78 74 |bl%)....|.puttext|
|000033d0| 28 22 22 2c 73 6f 66 74 | 25 2c 32 33 2c 62 62 6c |("",soft|%,23,bbl|
|000033e0| 25 29 3a f2 70 75 74 74 | 65 78 74 28 22 22 2c 73 |%):.putt|ext("",s|
|000033f0| 6f 66 74 25 2c 32 35 2c | 62 62 6c 25 29 3a f2 70 |oft%,25,|bbl%):.p|
|00003400| 75 74 74 65 78 74 28 22 | 22 2c 73 6f 66 74 25 2c |uttext("|",soft%,|
|00003410| 32 38 2c 62 62 6c 25 29 | 3a f2 70 75 74 74 65 78 |28,bbl%)|:.puttex|
|00003420| 74 28 22 22 2c 73 6f 66 | 74 25 2c 32 31 2c 62 62 |t("",sof|t%,21,bb|
|00003430| 6c 25 29 3a f2 70 75 74 | 74 65 78 74 28 22 22 2c |l%):.put|text("",|
|00003440| 73 6f 66 74 25 2c 33 31 | 2c 62 62 6c 25 29 0d 0e |soft%,31|,bbl%)..|
|00003450| c4 91 f2 63 68 61 6e 67 | 65 69 63 6f 6e 28 6f 70 |...chang|eicon(op|
|00003460| 74 25 28 31 29 2c 31 34 | 29 3a f2 63 68 61 6e 67 |t%(1),14|):.chang|
|00003470| 65 69 63 6f 6e 28 6f 70 | 74 25 28 32 29 2c 31 36 |eicon(op|t%(2),16|
|00003480| 29 3a 6f 70 74 25 28 34 | 29 3d 30 3a 6f 70 74 25 |):opt%(4|)=0:opt%|
|00003490| 28 35 29 3d 30 3a 6f 70 | 74 25 28 33 29 3d 30 3a |(5)=0:op|t%(3)=0:|
|000034a0| f2 75 6e 73 65 74 69 63 | 6f 6e 28 73 6f 66 74 25 |.unsetic|on(soft%|
|000034b0| 2c 31 31 29 3a f2 75 6e | 73 65 74 69 63 6f 6e 28 |,11):.un|seticon(|
|000034c0| 73 6f 66 74 25 2c 31 30 | 29 3a f2 75 6e 73 65 74 |soft%,10|):.unset|
|000034d0| 69 63 6f 6e 28 73 6f 66 | 74 25 2c 32 39 29 3a 0d |icon(sof|t%,29):.|
|000034e0| 0e ce 24 c8 99 20 22 57 | 69 6d 70 5f 53 65 74 43 |..$.. "W|imp_SetC|
|000034f0| 61 72 65 74 50 6f 73 69 | 74 69 6f 6e 22 2c 2d 31 |aretPosi|tion",-1|
|00003500| 2c 2d 31 0d 0e d8 17 f4 | 20 50 52 4f 43 65 6e 74 |,-1.....| PROCent|
|00003510| 65 72 69 63 6f 6e 28 31 | 37 29 0d 0e e2 05 e1 0d |ericon(1|7)......|
|00003520| 0e ec 04 0d 0e f6 65 dd | f2 73 65 74 69 63 6f 6e |......e.|.seticon|
|00003530| 28 68 25 2c 69 25 29 3a | 62 62 6c 25 21 30 3d 68 |(h%,i%):|bbl%!0=h|
|00003540| 25 3a 62 62 6c 25 21 34 | 3d 69 25 3a 62 62 6c 25 |%:bbl%!4|=i%:bbl%|
|00003550| 21 38 3d 26 32 30 30 30 | 30 30 3a 62 62 6c 25 21 |!8=&2000|00:bbl%!|
|00003560| 31 32 3d 26 32 30 30 30 | 30 30 3a c8 99 22 57 69 |12=&2000|00:.."Wi|
|00003570| 6d 70 5f 53 65 74 49 63 | 6f 6e 53 74 61 74 65 22 |mp_SetIc|onState"|
|00003580| 2c 2c 62 62 6c 25 3a e1 | 0d 0f 00 04 0d 0f 0a 61 |,,bbl%:.|.......a|
|00003590| dd f2 75 6e 73 65 74 69 | 63 6f 6e 28 68 25 2c 69 |..unseti|con(h%,i|
|000035a0| 25 29 3a 62 62 6c 25 21 | 30 3d 68 25 3a 62 62 6c |%):bbl%!|0=h%:bbl|
|000035b0| 25 21 34 3d 69 25 3a 62 | 62 6c 25 21 38 3d 30 3a |%!4=i%:b|bl%!8=0:|
|000035c0| 62 62 6c 25 21 31 32 3d | 26 32 30 30 30 30 30 3a |bbl%!12=|&200000:|
|000035d0| c8 99 22 57 69 6d 70 5f | 53 65 74 49 63 6f 6e 53 |.."Wimp_|SetIconS|
|000035e0| 74 61 74 65 22 2c 2c 62 | 62 6c 25 3a e1 0d 0f 14 |tate",,b|bl%:....|
|000035f0| 04 0d 0f 1e 4f dd f2 63 | 68 61 6e 67 65 69 63 6f |....O..c|hangeico|
|00003600| 6e 28 f8 20 6f 6c 64 25 | 2c 69 25 29 3a f2 75 6e |n(. old%|,i%):.un|
|00003610| 73 65 74 69 63 6f 6e 28 | 73 6f 66 74 25 2c 6f 6c |seticon(|soft%,ol|
|00003620| 64 25 29 3a f2 73 65 74 | 69 63 6f 6e 28 73 6f 66 |d%):.set|icon(sof|
|00003630| 74 25 2c 69 25 29 3a 6f | 6c 64 25 3d 69 25 3a e1 |t%,i%):o|ld%=i%:.|
|00003640| 0d 0f 28 04 0d 0f 32 52 | dd f2 63 68 61 6e 67 65 |..(...2R|..change|
|00003650| 69 63 6f 6e 32 28 f8 20 | 6f 6c 64 25 2c 69 25 29 |icon2(. |old%,i%)|
|00003660| 3a f2 75 6e 73 65 74 69 | 63 6f 6e 28 70 61 72 61 |:.unseti|con(para|
|00003670| 6d 25 2c 6f 6c 64 25 29 | 3a f2 73 65 74 69 63 6f |m%,old%)|:.setico|
|00003680| 6e 28 70 61 72 61 6d 25 | 2c 69 25 29 3a 6f 6c 64 |n(param%|,i%):old|
|00003690| 25 3d 69 25 3a e1 0d 0f | 3c 04 0d 0f 46 50 dd f2 |%=i%:...|<...FP..|
|000036a0| 63 68 61 6e 67 65 69 63 | 6f 6e 33 28 f8 20 6f 6c |changeic|on3(. ol|
|000036b0| 64 25 2c 69 25 29 3a f2 | 73 65 74 69 63 6f 6e 28 |d%,i%):.|seticon(|
|000036c0| 73 65 61 72 25 2c 6f 6c | 64 25 29 3a f2 75 6e 73 |sear%,ol|d%):.uns|
|000036d0| 65 74 69 63 6f 6e 28 73 | 65 61 72 25 2c 69 25 29 |eticon(s|ear%,i%)|
|000036e0| 3a 6f 6c 64 25 3d 69 25 | 3a e1 0d 0f 50 04 0d 0f |:old%=i%|:...P...|
|000036f0| 5a 16 dd f2 74 6f 67 67 | 6c 65 28 f8 20 6f 70 25 |Z...togg|le(. op%|
|00003700| 2c 69 25 29 0d 0f 64 37 | e7 20 6f 70 25 3d 30 20 |,i%)..d7|. op%=0 |
|00003710| 8c 20 f2 73 65 74 69 63 | 6f 6e 28 73 6f 66 74 25 |. .setic|on(soft%|
|00003720| 2c 69 25 29 20 8b 20 f2 | 75 6e 73 65 74 69 63 6f |,i%) . .|unsetico|
|00003730| 6e 28 73 6f 66 74 25 2c | 69 25 29 0d 0f 6e 11 6f |n(soft%,|i%)..n.o|
|00003740| 70 25 3d 6f 70 25 20 82 | 20 31 3a e1 0d 0f 78 04 |p%=op% .| 1:...x.|
|00003750| 0d 0f 82 17 dd f2 74 6f | 67 67 6c 65 32 28 f8 20 |......to|ggle2(. |
|00003760| 6f 70 25 2c 69 25 29 0d | 0f 8c 39 e7 20 6f 70 25 |op%,i%).|..9. op%|
|00003770| 3d 30 20 8c 20 f2 73 65 | 74 69 63 6f 6e 28 70 61 |=0 . .se|ticon(pa|
|00003780| 72 61 6d 25 2c 69 25 29 | 20 8b 20 f2 75 6e 73 65 |ram%,i%)| . .unse|
|00003790| 74 69 63 6f 6e 28 70 61 | 72 61 6d 25 2c 69 25 29 |ticon(pa|ram%,i%)|
|000037a0| 0d 0f 96 11 6f 70 25 3d | 6f 70 25 20 82 20 31 3a |....op%=|op% . 1:|
|000037b0| e1 0d 0f a0 04 0d 0f aa | 17 dd f2 74 6f 67 67 6c |........|...toggl|
|000037c0| 65 33 28 f8 20 6f 70 25 | 2c 69 25 29 0d 0f b4 39 |e3(. op%|,i%)...9|
|000037d0| e7 20 6f 70 25 3d 31 20 | 8c 20 f2 73 65 74 69 63 |. op%=1 |. .setic|
|000037e0| 6f 6e 28 70 61 72 61 6d | 25 2c 69 25 29 20 8b 20 |on(param|%,i%) . |
|000037f0| f2 75 6e 73 65 74 69 63 | 6f 6e 28 70 61 72 61 6d |.unsetic|on(param|
|00003800| 25 2c 69 25 29 0d 0f be | 11 6f 70 25 3d 6f 70 25 |%,i%)...|.op%=op%|
|00003810| 20 82 20 31 3a e1 0d 0f | c8 04 0d 0f d2 17 dd f2 | . 1:...|........|
|00003820| 74 6f 67 67 6c 65 34 28 | f8 20 6f 70 25 2c 69 25 |toggle4(|. op%,i%|
|00003830| 29 0d 0f dc 37 e7 20 6f | 70 25 3d 30 20 8c 20 f2 |)...7. o|p%=0 . .|
|00003840| 73 65 74 69 63 6f 6e 28 | 66 69 65 6c 25 2c 69 25 |seticon(|fiel%,i%|
|00003850| 29 20 8b 20 f2 75 6e 73 | 65 74 69 63 6f 6e 28 66 |) . .uns|eticon(f|
|00003860| 69 65 6c 25 2c 69 25 29 | 0d 0f e6 11 6f 70 25 3d |iel%,i%)|....op%=|
|00003870| 6f 70 25 20 82 20 31 3a | e1 0d 0f f0 04 0d 0f fa |op% . 1:|........|
|00003880| 17 dd f2 74 6f 67 67 6c | 65 78 28 f8 20 6f 70 25 |...toggl|ex(. op%|
|00003890| 2c 69 25 29 0d 10 04 37 | e7 20 6f 70 25 3d 30 20 |,i%)...7|. op%=0 |
|000038a0| 8c 20 f2 73 65 74 69 63 | 6f 6e 28 73 65 61 72 25 |. .setic|on(sear%|
|000038b0| 2c 69 25 29 20 8b 20 f2 | 75 6e 73 65 74 69 63 6f |,i%) . .|unsetico|
|000038c0| 6e 28 73 65 61 72 25 2c | 69 25 29 0d 10 0e 11 6f |n(sear%,|i%)....o|
|000038d0| 70 25 3d 6f 70 25 20 82 | 20 31 3a e1 0d 10 18 04 |p%=op% .| 1:.....|
|000038e0| 0d 10 22 16 dd f2 74 6f | 67 67 6c 65 32 61 28 6f |.."...to|ggle2a(o|
|000038f0| 70 25 2c 69 25 29 0d 10 | 2c 39 e7 20 6f 70 25 3d |p%,i%)..|,9. op%=|
|00003900| 31 20 8c 20 f2 73 65 74 | 69 63 6f 6e 28 70 61 72 |1 . .set|icon(par|
|00003910| 61 6d 25 2c 69 25 29 20 | 8b 20 f2 75 6e 73 65 74 |am%,i%) |. .unset|
|00003920| 69 63 6f 6e 28 70 61 72 | 61 6d 25 2c 69 25 29 0d |icon(par|am%,i%).|
|00003930| 10 36 05 e1 0d 10 40 04 | 0d 10 4a 16 dd f2 74 6f |.6....@.|..J...to|
|00003940| 67 67 6c 65 33 61 28 6f | 70 25 2c 69 25 29 0d 10 |ggle3a(o|p%,i%)..|
|00003950| 54 39 e7 20 6f 70 25 3d | 30 20 8c 20 f2 73 65 74 |T9. op%=|0 . .set|
|00003960| 69 63 6f 6e 28 70 61 72 | 61 6d 25 2c 69 25 29 20 |icon(par|am%,i%) |
|00003970| 8b 20 f2 75 6e 73 65 74 | 69 63 6f 6e 28 70 61 72 |. .unset|icon(par|
|00003980| 61 6d 25 2c 69 25 29 0d | 10 5e 05 e1 0d 10 68 04 |am%,i%).|.^....h.|
|00003990| 0d 10 72 1f dd f2 65 6e | 74 65 72 28 77 25 2c 69 |..r...en|ter(w%,i|
|000039a0| 25 2c 69 6e 64 65 78 25 | 2c 63 68 61 72 25 29 0d |%,index%|,char%).|
|000039b0| 10 7c 50 e7 20 77 25 3d | 73 6f 66 74 25 20 80 20 |.|P. w%=|soft% . |
|000039c0| 69 25 3d 34 39 20 8c 20 | f2 63 6c 6f 73 65 61 77 |i%=49 . |.closeaw|
|000039d0| 69 6e 64 6f 77 28 73 65 | 61 72 25 29 3a f2 74 72 |indow(se|ar%):.tr|
|000039e0| 65 61 74 69 6e 70 75 74 | 32 28 69 6e 64 65 78 25 |eatinput|2(index%|
|000039f0| 2c 63 68 61 72 25 29 3a | f2 75 70 6f 6e 3a e1 0d |,char%):|.upon:..|
|00003a00| 10 86 4a e7 20 77 25 3d | 73 6f 66 74 25 20 8c 20 |..J. w%=|soft% . |
|00003a10| f2 63 6c 6f 73 65 61 77 | 69 6e 64 6f 77 28 73 65 |.closeaw|indow(se|
|00003a20| 61 72 25 29 3a f2 74 72 | 65 61 74 69 6e 70 75 74 |ar%):.tr|eatinput|
|00003a30| 28 69 25 2c 69 6e 64 65 | 78 25 2c 63 68 61 72 25 |(i%,inde|x%,char%|
|00003a40| 29 3a f2 75 70 6f 6e 3a | e1 0d 10 90 30 e7 20 77 |):.upon:|....0. w|
|00003a50| 25 3d 66 69 65 6c 25 20 | 8c 20 f2 74 72 65 61 74 |%=fiel% |. .treat|
|00003a60| 69 6e 70 75 74 33 28 69 | 25 2c 69 6e 64 65 78 25 |input3(i|%,index%|
|00003a70| 2c 63 68 61 72 25 29 3a | e1 0d 10 9a 2f e7 20 77 |,char%):|..../. w|
|00003a80| 25 3d 73 65 61 72 25 20 | 8c 20 f2 69 73 69 74 72 |%=sear% |. .isitr|
|00003a90| 65 74 75 72 6e 28 69 25 | 2c 69 6e 64 65 78 25 2c |eturn(i%|,index%,|
|00003aa0| 63 68 61 72 25 29 3a e1 | 0d 10 a4 05 e1 0d 10 ae |char%):.|........|
|00003ab0| 04 0d 10 b8 1f dd f2 74 | 72 65 61 74 69 6e 70 75 |.......t|reatinpu|
|00003ac0| 74 32 28 69 6e 64 65 78 | 25 2c 63 68 61 72 25 29 |t2(index|%,char%)|
|00003ad0| 0d 10 c2 0e ea 20 63 75 | 25 2c 6f 75 74 25 0d 10 |..... cu|%,out%..|
|00003ae0| cc 0a 6f 75 74 25 3d 30 | 0d 10 d6 10 e7 20 63 68 |..out%=0|..... ch|
|00003af0| 61 72 25 3d 31 33 20 8c | 0d 10 e0 46 20 20 20 c8 |ar%=13 .|...F .|
|00003b00| 99 20 22 57 69 6d 70 5f | 53 65 74 43 61 72 65 74 |. "Wimp_|SetCaret|
|00003b10| 50 6f 73 69 74 69 6f 6e | 22 2c 2d 31 2c 2d 31 3a |Position|",-1,-1:|
|00003b20| 63 75 25 3d bb 28 a4 67 | 65 74 74 65 78 74 28 73 |cu%=.(.g|ettext(s|
|00003b30| 6f 66 74 25 2c 34 39 2c | 62 62 6c 25 29 29 0d 10 |oft%,49,|bbl%))..|
|00003b40| ea 55 20 20 20 e7 20 63 | 75 25 3e 6e 62 72 25 20 |.U . c|u%>nbr% |
|00003b50| 84 20 63 75 25 3c 31 20 | 8c 20 63 75 25 3d 63 75 |. cu%<1 |. cu%=cu|
|00003b60| 72 72 65 6e 74 25 3a f2 | 70 75 74 74 65 78 74 28 |rrent%:.|puttext(|
|00003b70| c3 28 63 75 25 29 2c 73 | 6f 66 74 25 2c 34 39 2c |.(cu%),s|oft%,49,|
|00003b80| 62 62 6c 25 29 3a 6f 75 | 74 25 3d 31 3a e5 20 8d |bbl%):ou|t%=1:. .|
|00003b90| 64 7e 50 0d 10 f4 54 20 | 20 20 f2 75 6e 73 74 6f |d~P...T | .unsto|
|00003ba0| 63 6b 28 63 75 25 29 3a | 63 75 72 72 65 6e 74 25 |ck(cu%):|current%|
|00003bb0| 3d 63 75 25 3a f2 70 75 | 74 74 65 78 74 28 c3 28 |=cu%:.pu|ttext(.(|
|00003bc0| 63 75 72 72 65 6e 74 25 | 29 2c 73 6f 66 74 25 2c |current%|),soft%,|
|00003bd0| 34 39 2c 62 62 6c 25 29 | 3a f2 65 6e 74 65 72 69 |49,bbl%)|:.enteri|
|00003be0| 63 6f 6e 28 31 37 29 0d | 10 fe 05 cd 0d 11 08 11 |con(17).|........|
|00003bf0| e7 20 6f 75 74 25 20 8c | 20 8d 54 52 51 0d 11 12 |. out% .| .TRQ...|
|00003c00| 05 e1 0d 11 1c 04 0d 11 | 26 21 dd f2 74 72 65 61 |........|&!..trea|
|00003c10| 74 69 6e 70 75 74 28 69 | 25 2c 69 6e 64 65 78 25 |tinput(i|%,index%|
|00003c20| 2c 63 68 61 72 25 29 0d | 11 30 1d e7 20 63 68 61 |,char%).|.0.. cha|
|00003c30| 72 25 3d 31 33 20 84 20 | 63 68 61 72 25 3d 26 31 |r%=13 . |char%=&1|
|00003c40| 38 45 20 8c 0d 11 3a 0b | c8 8e 20 69 25 20 ca 0d |8E ...:.|.. i% ..|
|00003c50| 11 44 19 20 20 20 c9 20 | 31 37 3a f2 65 6e 74 65 |.D. . |17:.ente|
|00003c60| 72 69 63 6f 6e 28 35 29 | 0d 11 4e 1a 20 20 20 c9 |ricon(5)|..N. .|
|00003c70| 20 35 20 3a f2 65 6e 74 | 65 72 69 63 6f 6e 28 33 | 5 :.ent|ericon(3|
|00003c80| 30 29 0d 11 58 19 20 20 | 20 c9 20 33 30 3a f2 65 |0)..X. | . 30:.e|
|00003c90| 6e 74 65 72 69 63 6f 6e | 28 37 29 0d 11 62 1a 20 |ntericon|(7)..b. |
|00003ca0| 20 20 c9 20 37 20 3a f2 | 65 6e 74 65 72 69 63 6f | . 7 :.|enterico|
|00003cb0| 6e 28 34 36 29 0d 11 6c | 1a 20 20 20 c9 20 34 36 |n(46)..l|. . 46|
|00003cc0| 3a f2 65 6e 74 65 72 69 | 63 6f 6e 28 32 33 29 0d |:.enteri|con(23).|
|00003cd0| 11 76 1a 20 20 20 c9 20 | 32 33 3a f2 65 6e 74 65 |.v. . |23:.ente|
|00003ce0| 72 69 63 6f 6e 28 32 35 | 29 0d 11 80 1a 20 20 20 |ricon(25|).... |
|00003cf0| c9 20 32 35 3a f2 65 6e | 74 65 72 69 63 6f 6e 28 |. 25:.en|tericon(|
|00003d00| 32 38 29 0d 11 8a 1a 20 | 20 20 c9 20 32 38 3a f2 |28).... | . 28:.|
|00003d10| 65 6e 74 65 72 69 63 6f | 6e 28 32 31 29 0d 11 94 |enterico|n(21)...|
|00003d20| 1a 20 20 20 c9 20 32 31 | 3a f2 65 6e 74 65 72 69 |. . 21|:.enteri|
|00003d30| 63 6f 6e 28 33 31 29 0d | 11 9e 1a 20 20 20 c9 20 |con(31).|... . |
|00003d40| 33 31 3a f2 65 6e 74 65 | 72 69 63 6f 6e 28 31 37 |31:.ente|ricon(17|
|00003d50| 29 0d 11 a8 05 cb 0d 11 | b2 05 cd 0d 11 bc 12 e7 |).......|........|
|00003d60| 20 63 68 61 72 25 3d 26 | 31 38 46 20 8c 0d 11 c6 | char%=&|18F ....|
|00003d70| 0b c8 8e 20 69 25 20 ca | 0d 11 d0 1a 20 20 20 c9 |... i% .|.... .|
|00003d80| 20 31 37 3a f2 65 6e 74 | 65 72 69 63 6f 6e 28 33 | 17:.ent|ericon(3|
|00003d90| 31 29 0d 11 da 1a 20 20 | 20 c9 20 35 20 3a f2 65 |1).... | . 5 :.e|
|00003da0| 6e 74 65 72 69 63 6f 6e | 28 31 37 29 0d 11 e4 19 |ntericon|(17)....|
|00003db0| 20 20 20 c9 20 33 30 3a | f2 65 6e 74 65 72 69 63 | . 30:|.enteric|
|00003dc0| 6f 6e 28 35 29 0d 11 ee | 1a 20 20 20 c9 20 37 20 |on(5)...|. . 7 |
|00003dd0| 3a f2 65 6e 74 65 72 69 | 63 6f 6e 28 33 30 29 0d |:.enteri|con(30).|
|00003de0| 11 f8 19 20 20 20 c9 20 | 34 36 3a f2 65 6e 74 65 |... . |46:.ente|
|00003df0| 72 69 63 6f 6e 28 37 29 | 0d 12 02 1a 20 20 20 c9 |ricon(7)|.... .|
|00003e00| 20 32 33 3a f2 65 6e 74 | 65 72 69 63 6f 6e 28 34 | 23:.ent|ericon(4|
|00003e10| 36 29 0d 12 0c 1a 20 20 | 20 c9 20 32 35 3a f2 65 |6).... | . 25:.e|
|00003e20| 6e 74 65 72 69 63 6f 6e | 28 32 33 29 0d 12 16 1a |ntericon|(23)....|
|00003e30| 20 20 20 c9 20 32 38 3a | f2 65 6e 74 65 72 69 63 | . 28:|.enteric|
|00003e40| 6f 6e 28 32 35 29 0d 12 | 20 1a 20 20 20 c9 20 32 |on(25)..| . . 2|
|00003e50| 31 3a f2 65 6e 74 65 72 | 69 63 6f 6e 28 32 38 29 |1:.enter|icon(28)|
|00003e60| 0d 12 2a 1a 20 20 20 c9 | 20 33 31 3a f2 65 6e 74 |..*. .| 31:.ent|
|00003e70| 65 72 69 63 6f 6e 28 32 | 31 29 0d 12 34 05 cb 0d |ericon(2|1)..4...|
|00003e80| 12 3e 05 cd 0d 12 48 05 | e1 0d 12 52 04 0d 12 5c |.>....H.|...R...\|
|00003e90| 22 dd f2 74 72 65 61 74 | 69 6e 70 75 74 33 28 69 |"..treat|input3(i|
|00003ea0| 25 2c 69 6e 64 65 78 25 | 2c 63 68 61 72 25 29 0d |%,index%|,char%).|
|00003eb0| 12 66 0f e7 20 69 25 3d | 35 35 20 8c 20 e1 0d 12 |.f.. i%=|55 . ...|
|00003ec0| 70 1d e7 20 63 68 61 72 | 25 3d 31 33 20 84 20 63 |p.. char|%=13 . c|
|00003ed0| 68 61 72 25 3d 26 31 38 | 45 20 8c 0d 12 7a 32 20 |har%=&18|E ...z2 |
|00003ee0| e7 20 69 25 3d 32 37 20 | 8c 20 f2 65 6e 74 65 72 |. i%=27 |. .enter|
|00003ef0| 69 63 6f 6e 32 28 31 30 | 29 20 8b 20 f2 65 6e 74 |icon2(10|) . .ent|
|00003f00| 65 72 69 63 6f 6e 32 28 | 69 25 2b 31 29 0d 12 84 |ericon2(|i%+1)...|
|00003f10| 05 cd 0d 12 8e 12 e7 20 | 63 68 61 72 25 3d 26 31 |....... |char%=&1|
|00003f20| 38 46 20 8c 0d 12 98 32 | 20 e7 20 69 25 3d 31 30 |8F ....2| . i%=10|
|00003f30| 20 8c 20 f2 65 6e 74 65 | 72 69 63 6f 6e 32 28 32 | . .ente|ricon2(2|
|00003f40| 37 29 20 8b 20 f2 65 6e | 74 65 72 69 63 6f 6e 32 |7) . .en|tericon2|
|00003f50| 28 69 25 2d 31 29 0d 12 | a2 05 cd 0d 12 ac 05 e1 |(i%-1)..|........|
|00003f60| 0d 12 b6 04 0d 12 c0 04 | 0d 12 ca 59 dd f2 65 6e |........|...Y..en|
|00003f70| 74 65 72 69 63 6f 6e 28 | 69 25 29 3a c8 99 20 22 |tericon(|i%):.. "|
|00003f80| 57 69 6d 70 5f 53 65 74 | 43 61 72 65 74 50 6f 73 |Wimp_Set|CaretPos|
|00003f90| 69 74 69 6f 6e 22 2c 73 | 6f 66 74 25 2c 69 25 2c |ition",s|oft%,i%,|
|00003fa0| 2c 2c 2d 31 2c a9 28 a4 | 67 65 74 74 65 78 74 28 |,,-1,.(.|gettext(|
|00003fb0| 73 6f 66 74 25 2c 69 25 | 2c 62 62 6c 25 29 29 3a |soft%,i%|,bbl%)):|
|00003fc0| e1 0d 12 d4 04 0d 12 de | 5a dd f2 65 6e 74 65 72 |........|Z..enter|
|00003fd0| 69 63 6f 6e 32 28 69 25 | 29 3a c8 99 20 22 57 69 |icon2(i%|):.. "Wi|
|00003fe0| 6d 70 5f 53 65 74 43 61 | 72 65 74 50 6f 73 69 74 |mp_SetCa|retPosit|
|00003ff0| 69 6f 6e 22 2c 66 69 65 | 6c 25 2c 69 25 2c 2c 2c |ion",fie|l%,i%,,,|
|00004000| 2d 31 2c a9 28 a4 67 65 | 74 74 65 78 74 28 66 69 |-1,.(.ge|ttext(fi|
|00004010| 65 6c 25 2c 69 25 2c 62 | 62 6c 25 29 29 3a e1 0d |el%,i%,b|bl%)):..|
|00004020| 12 e8 04 0d 12 f2 04 0d | 12 fc 0c dd f2 73 61 76 |........|.....sav|
|00004030| 65 69 74 0d 13 06 13 e7 | 20 74 68 69 73 25 3d 73 |eit.....| this%=s|
|00004040| 61 76 65 25 20 8c 0d 13 | 10 3a 20 20 20 41 24 3d |ave% ...|.: A$=|
|00004050| 24 28 71 25 2b 34 34 29 | 3a f2 53 41 56 45 73 6f |$(q%+44)|:.SAVEso|
|00004060| 66 74 28 41 24 29 3a f2 | 70 75 74 74 65 78 74 28 |ft(A$):.|puttext(|
|00004070| 41 24 2c 73 61 76 65 25 | 2c 31 2c 62 62 6c 25 29 |A$,save%|,1,bbl%)|
|00004080| 0d 13 1a 14 20 20 20 20 | 20 20 20 20 20 20 20 20 |.... | |
|00004090| 20 20 20 cc 0d 13 24 50 | 20 20 20 41 24 3d 24 28 | ...$P| A$=$(|
|000040a0| 71 25 2b 34 34 29 3a f2 | 53 41 56 45 70 72 6e 28 |q%+44):.|SAVEprn(|
|000040b0| 41 24 29 3a f2 70 75 74 | 74 65 78 74 28 41 24 2c |A$):.put|text(A$,|
|000040c0| 73 61 76 65 32 25 2c 31 | 2c 62 62 6c 25 29 3a f2 |save2%,1|,bbl%):.|
|000040d0| 63 6c 6f 73 65 61 77 69 | 6e 64 6f 77 28 73 61 76 |closeawi|ndow(sav|
|000040e0| 65 32 25 29 0d 13 2e 05 | cd 0d 13 38 05 e1 0d 13 |e2%)....|...8....|
|000040f0| 42 04 0d 13 4c 21 dd f2 | 53 41 56 45 73 6f 66 74 |B...L!..|SAVEsoft|
|00004100| 28 6e 61 6d 65 24 29 3a | 24 62 62 6c 25 3d 6e 61 |(name$):|$bbl%=na|
|00004110| 6d 65 24 0d 13 56 09 ea | 20 78 78 78 0d 13 60 1c |me$..V..| xxx..`.|
|00004120| c8 99 20 22 4f 53 5f 46 | 69 6c 65 22 2c 35 2c 62 |.. "OS_F|ile",5,b|
|00004130| 62 6c 25 20 b8 20 52 30 | 0d 13 6a 0d e7 20 52 30 |bl% . R0|..j.. R0|
|00004140| 3c 3e 30 20 8c 0d 13 74 | 99 21 62 75 66 66 65 72 |<>0 ...t|.!buffer|
|00004150| 25 3d 30 3a 24 28 62 75 | 66 66 65 72 25 2b 34 29 |%=0:$(bu|ffer%+4)|
|00004160| 3d 22 54 68 69 73 20 66 | 69 6c 65 20 61 6c 72 65 |="This f|ile alre|
|00004170| 61 64 79 20 65 78 69 73 | 74 73 20 20 20 4f 76 65 |ady exis|ts Ove|
|00004180| 72 77 72 69 74 65 20 3f | 22 3a c8 99 20 22 57 69 |rwrite ?|":.. "Wi|
|00004190| 6d 70 5f 52 65 70 6f 72 | 74 45 72 72 6f 72 22 2c |mp_Repor|tError",|
|000041a0| 62 75 66 66 65 72 25 2c | 31 39 2c 22 57 61 72 6e |buffer%,|19,"Warn|
|000041b0| 69 6e 67 20 66 72 6f 6d | 20 74 68 65 20 27 53 6f |ing from| the 'So|
|000041c0| 66 74 77 61 72 65 20 4d | 61 6e 61 67 65 72 27 20 |ftware M|anager' |
|000041d0| 70 72 6f 67 72 61 6d 22 | 20 b8 20 2c 52 31 0d 13 |program"| . ,R1..|
|000041e0| 7e 0f e7 20 52 31 3c 3e | 31 20 8c 20 e1 0d 13 88 |~.. R1<>|1 . ....|
|000041f0| 20 e7 20 52 31 3d 31 20 | 8c 20 c8 99 20 22 4f 53 | . R1=1 |. .. "OS|
|00004200| 5f 46 69 6c 65 22 2c 36 | 2c 62 62 6c 25 0d 13 92 |_File",6|,bbl%...|
|00004210| 05 cd 0d 13 9c 2f e7 20 | 6e 62 72 25 3c 3d 31 20 |...../. |nbr%<=1 |
|00004220| 8c 20 f2 77 61 72 6e 69 | 6e 67 28 22 4e 6f 74 68 |. .warni|ng("Noth|
|00004230| 69 6e 67 20 74 6f 20 73 | 61 76 65 20 21 22 29 3a |ing to s|ave !"):|
|00004240| e1 0d 13 a6 10 78 78 78 | 3d ae 28 6e 61 6d 65 24 |.....xxx|=.(name$|
|00004250| 29 0d 13 b0 12 e3 4a 25 | 3d 31 20 b8 20 6e 62 72 |).....J%|=1 . nbr|
|00004260| 25 2d 31 0d 13 ba 23 f1 | 23 78 78 78 2c 64 62 24 |%-1...#.|#xxx,db$|
|00004270| 28 4a 25 2c 30 29 2c c0 | 64 62 24 28 4a 25 2c 31 |(J%,0),.|db$(J%,1|
|00004280| 29 2c 31 33 34 29 0d 13 | c4 05 ed 0d 13 ce 0a 2a |),134)..|.......*|
|00004290| 43 4c 4f 53 45 0d 13 d8 | 1c c8 99 20 22 4f 53 5f |CLOSE...|... "OS_|
|000042a0| 46 69 6c 65 22 2c 31 38 | 2c 62 62 6c 25 2c 26 42 |File",18|,bbl%,&B|
|000042b0| 32 0d 13 e2 1f 62 69 67 | 75 70 25 3d 30 3a f2 73 |2....big|up%=0:.s|
|000042c0| 65 74 69 63 6f 6e 28 73 | 6f 66 74 25 2c 35 35 29 |eticon(s|oft%,55)|
|000042d0| 0d 13 ec 05 e1 0d 13 f6 | 04 0d 14 00 20 dd f2 53 |........|.... ..S|
|000042e0| 41 56 45 70 72 6e 28 6e | 61 6d 65 24 29 3a 24 62 |AVEprn(n|ame$):$b|
|000042f0| 62 6c 25 3d 6e 61 6d 65 | 24 0d 14 0a 09 ea 20 78 |bl%=name|$..... x|
|00004300| 78 78 0d 14 14 1c c8 99 | 20 22 4f 53 5f 46 69 6c |xx......| "OS_Fil|
|00004310| 65 22 2c 35 2c 62 62 6c | 25 20 b8 20 52 30 0d 14 |e",5,bbl|% . R0..|
|00004320| 1e 0d e7 20 52 30 3c 3e | 30 20 8c 0d 14 28 99 21 |... R0<>|0 ...(.!|
|00004330| 62 75 66 66 65 72 25 3d | 30 3a 24 28 62 75 66 66 |buffer%=|0:$(buff|
|00004340| 65 72 25 2b 34 29 3d 22 | 54 68 69 73 20 66 69 6c |er%+4)="|This fil|
|00004350| 65 20 61 6c 72 65 61 64 | 79 20 65 78 69 73 74 73 |e alread|y exists|
|00004360| 20 20 20 4f 76 65 72 77 | 72 69 74 65 20 3f 22 3a | Overw|rite ?":|
|00004370| c8 99 20 22 57 69 6d 70 | 5f 52 65 70 6f 72 74 45 |.. "Wimp|_ReportE|
|00004380| 72 72 6f 72 22 2c 62 75 | 66 66 65 72 25 2c 31 39 |rror",bu|ffer%,19|
|00004390| 2c 22 57 61 72 6e 69 6e | 67 20 66 72 6f 6d 20 74 |,"Warnin|g from t|
|000043a0| 68 65 20 27 53 6f 66 74 | 77 61 72 65 20 4d 61 6e |he 'Soft|ware Man|
|000043b0| 61 67 65 72 27 20 70 72 | 6f 67 72 61 6d 22 20 b8 |ager' pr|ogram" .|
|000043c0| 20 2c 52 31 0d 14 32 0f | e7 20 52 31 3c 3e 31 20 | ,R1..2.|. R1<>1 |
|000043d0| 8c 20 e1 0d 14 3c 20 e7 | 20 52 31 3d 31 20 8c 20 |. ...< .| R1=1 . |
|000043e0| c8 99 20 22 4f 53 5f 46 | 69 6c 65 22 2c 36 2c 62 |.. "OS_F|ile",6,b|
|000043f0| 62 6c 25 0d 14 46 05 cd | 0d 14 50 10 78 78 78 3d |bl%..F..|..P.xxx=|
|00004400| ae 28 6e 61 6d 65 24 29 | 0d 14 5a 0e e3 4a 25 3d |.(name$)|..Z..J%=|
|00004410| 36 20 b8 20 33 30 0d 14 | 64 15 f1 23 78 78 78 2c |6 . 30..|d..#xxx,|
|00004420| c3 28 6f 70 74 25 28 4a | 25 29 29 0d 14 6e 05 ed |.(opt%(J|%))..n..|
|00004430| 0d 14 78 0f e3 4a 25 3d | 31 30 20 b8 20 32 37 0d |..x..J%=|10 . 27.|
|00004440| 14 82 21 f1 23 78 78 78 | 2c a4 67 65 74 74 65 78 |..!.#xxx|,.gettex|
|00004450| 74 28 66 69 65 6c 25 2c | 4a 25 2c 70 74 65 25 29 |t(fiel%,|J%,pte%)|
|00004460| 0d 14 8c 05 ed 0d 14 96 | 0d e3 4a 25 3d 31 20 b8 |........|..J%=1 .|
|00004470| 20 39 0d 14 a0 16 f1 23 | 78 78 78 2c c3 28 6f 70 | 9.....#|xxx,.(op|
|00004480| 74 32 25 28 4a 25 29 29 | 0d 14 aa 05 ed 0d 14 b4 |t2%(J%))|........|
|00004490| 21 f1 23 78 78 78 2c a4 | 67 65 74 74 65 78 74 28 |!.#xxx,.|gettext(|
|000044a0| 66 69 65 6c 25 2c 35 35 | 2c 70 74 65 25 29 0d 14 |fiel%,55|,pte%)..|
|000044b0| be 04 0d 14 c8 0a 2a 43 | 4c 4f 53 45 0d 14 d2 1c |......*C|LOSE....|
|000044c0| c8 99 20 22 4f 53 5f 46 | 69 6c 65 22 2c 31 38 2c |.. "OS_F|ile",18,|
|000044d0| 62 62 6c 25 2c 26 42 33 | 0d 14 dc 05 e1 0d 14 e6 |bbl%,&B3|........|
|000044e0| 04 0d 14 f0 0c dd f2 72 | 65 63 6f 72 64 0d 14 fa |.......r|ecord...|
|000044f0| 8b e7 20 6e 62 72 25 3d | 6d 61 78 25 20 8c 20 21 |.. nbr%=|max% . !|
|00004500| 62 75 66 66 65 72 25 3d | 30 3a 24 28 62 75 66 66 |buffer%=|0:$(buff|
|00004510| 65 72 25 2b 34 29 3d 22 | 54 6f 6f 20 6d 61 6e 79 |er%+4)="|Too many|
|00004520| 20 65 6e 74 72 69 65 73 | 22 3a c8 99 20 22 57 69 | entries|":.. "Wi|
|00004530| 6d 70 5f 52 65 70 6f 72 | 74 45 72 72 6f 72 22 2c |mp_Repor|tError",|
|00004540| 62 75 66 66 65 72 25 2c | 31 37 2c 22 45 72 72 6f |buffer%,|17,"Erro|
|00004550| 72 20 66 72 6f 6d 20 74 | 68 65 20 27 53 6f 66 74 |r from t|he 'Soft|
|00004560| 77 61 72 65 20 4d 61 6e | 61 67 65 72 27 20 70 72 |ware Man|ager' pr|
|00004570| 6f 67 72 61 6d 22 3a e1 | 0d 15 04 10 f2 73 74 6f |ogram":.|.....sto|
|00004580| 63 6b 28 6e 62 72 25 29 | 0d 15 0e c7 e7 20 6e 62 |ck(nbr%)|..... nb|
|00004590| 72 25 3c 6d 61 78 25 20 | 8c 20 6e 62 72 25 2b 3d |r%<max% |. nbr%+=|
|000045a0| 31 3a 63 75 72 72 65 6e | 74 25 3d 6e 62 72 25 20 |1:curren|t%=nbr% |
|000045b0| 8b 20 21 62 75 66 66 65 | 72 25 3d 30 3a 24 28 62 |. !buffe|r%=0:$(b|
|000045c0| 75 66 66 65 72 25 2b 34 | 29 3d 22 54 6f 6f 20 6d |uffer%+4|)="Too m|
|000045d0| 61 6e 79 20 65 6e 74 72 | 69 65 73 22 3a c8 99 20 |any entr|ies":.. |
|000045e0| 22 57 69 6d 70 5f 52 65 | 70 6f 72 74 45 72 72 6f |"Wimp_Re|portErro|
|000045f0| 72 22 2c 62 75 66 66 65 | 72 25 2c 31 37 2c 22 45 |r",buffe|r%,17,"E|
|00004600| 72 72 6f 72 20 66 72 6f | 6d 20 74 68 65 20 27 53 |rror fro|m the 'S|
|00004610| 6f 66 74 77 61 72 65 20 | 4d 61 6e 61 67 65 72 27 |oftware |Manager'|
|00004620| 20 70 72 6f 67 72 61 6d | 22 3a f2 75 6e 73 74 6f | program|":.unsto|
|00004630| 63 6b 28 6e 62 72 25 29 | 3a 63 75 72 72 65 6e 74 |ck(nbr%)|:current|
|00004640| 25 3d 6e 62 72 25 3a f2 | 75 70 6f 66 66 3a e1 0d |%=nbr%:.|upoff:..|
|00004650| 15 18 5c f2 70 75 74 74 | 65 78 74 28 c3 28 6e 62 |..\.putt|ext(.(nb|
|00004660| 72 25 29 2c 73 6f 66 74 | 25 2c 35 31 2c 62 62 6c |r%),soft|%,51,bbl|
|00004670| 25 29 3a f2 70 75 74 74 | 65 78 74 28 c3 28 63 75 |%):.putt|ext(.(cu|
|00004680| 72 72 65 6e 74 25 29 2c | 73 6f 66 74 25 2c 34 39 |rrent%),|soft%,49|
|00004690| 2c 62 62 6c 25 29 3a f2 | 63 6c 65 61 72 66 69 65 |,bbl%):.|clearfie|
|000046a0| 6c 64 3a f2 75 70 6f 66 | 66 3a e1 0d 15 22 04 0d |ld:.upof|f:..."..|
|000046b0| 15 2c 0a dd f2 75 70 64 | 74 0d 15 36 26 e7 20 63 |.,...upd|t..6&. c|
|000046c0| 75 72 72 65 6e 74 25 3d | 6e 62 72 25 20 8c 20 f2 |urrent%=|nbr% . .|
|000046d0| 72 65 63 6f 72 64 3a f2 | 75 70 6f 66 66 3a e1 0d |record:.|upoff:..|
|000046e0| 15 40 8d e7 20 63 75 72 | 72 65 6e 74 25 3d 30 20 |.@.. cur|rent%=0 |
|000046f0| 8c 20 21 62 75 66 66 65 | 72 25 3d 30 3a 24 28 62 |. !buffe|r%=0:$(b|
|00004700| 75 66 66 65 72 25 2b 34 | 29 3d 22 4e 6f 74 68 69 |uffer%+4|)="Nothi|
|00004710| 6e 67 20 74 6f 20 75 70 | 64 61 74 65 22 3a c8 99 |ng to up|date":..|
|00004720| 20 22 57 69 6d 70 5f 52 | 65 70 6f 72 74 45 72 72 | "Wimp_R|eportErr|
|00004730| 6f 72 22 2c 62 75 66 66 | 65 72 25 2c 31 37 2c 22 |or",buff|er%,17,"|
|00004740| 45 72 72 6f 72 20 66 72 | 6f 6d 20 74 68 65 20 27 |Error fr|om the '|
|00004750| 53 6f 66 74 77 61 72 65 | 20 4d 61 6e 61 67 65 72 |Software| Manager|
|00004760| 27 20 70 72 6f 67 72 61 | 6d 22 3a e1 0d 15 4a 14 |' progra|m":...J.|
|00004770| f2 73 74 6f 63 6b 28 63 | 75 72 72 65 6e 74 25 29 |.stock(c|urrent%)|
|00004780| 0d 15 54 0a f2 75 70 6f | 66 66 0d 15 5e 05 e1 0d |..T..upo|ff..^...|
|00004790| 15 68 04 0d 15 72 13 dd | a4 67 74 78 74 28 69 25 |.h...r..|.gtxt(i%|
|000047a0| 2c 6c 65 6e 25 29 0d 15 | 7c 08 ea 20 78 24 0d 15 |,len%)..||.. x$..|
|000047b0| 86 34 78 24 3d a4 67 65 | 74 74 65 78 74 28 73 6f |.4x$=.ge|ttext(so|
|000047c0| 66 74 25 2c 69 25 2c 62 | 62 6c 25 29 2b c4 6c 65 |ft%,i%,b|bl%)+.le|
|000047d0| 6e 25 2c 22 20 22 29 3a | 3d c0 78 24 2c 6c 65 6e |n%," "):|=.x$,len|
|000047e0| 25 29 0d 15 90 04 0d 15 | 9a 11 dd f2 70 74 78 74 |%)......|....ptxt|
|000047f0| 28 69 25 2c 78 24 29 0d | 15 a4 0a ea 6a 25 2c 6b |(i%,x$).|....j%,k|
|00004800| 25 0d 15 ae 13 6a 25 3d | a9 28 78 24 29 2b 31 3a |%....j%=|.(x$)+1:|
|00004810| 6b 25 3d 30 0d 15 b8 0b | f5 3a 6a 25 2d 3d 31 0d |k%=0....|.:j%-=1.|
|00004820| 15 c2 1b e7 20 c1 78 24 | 2c 6a 25 2c 31 29 3c 3e |.... .x$|,j%,1)<>|
|00004830| 22 20 22 20 8c 20 6b 25 | 3d 31 0d 15 cc 11 fd 20 |" " . k%|=1..... |
|00004840| 6a 25 3d 31 20 84 20 6b | 25 3d 31 0d 15 d6 18 e7 |j%=1 . k|%=1.....|
|00004850| 20 6a 25 3d 31 20 80 20 | 6b 25 3d 30 20 8c 20 6a | j%=1 . |k%=0 . j|
|00004860| 25 3d 30 0d 15 e0 27 f2 | 70 75 74 74 65 78 74 28 |%=0...'.|puttext(|
|00004870| c1 78 24 2c 31 2c 6a 25 | 29 2c 73 6f 66 74 25 2c |.x$,1,j%|),soft%,|
|00004880| 69 25 2c 62 62 6c 25 29 | 3a e1 0d 15 ea 04 0d 15 |i%,bbl%)|:.......|
|00004890| f4 04 0d 15 fe 0f dd f2 | 73 74 6f 63 6b 28 6e 25 |........|stock(n%|
|000048a0| 29 0d 16 08 0e ea 20 61 | 24 2c 62 24 2c 63 24 0d |)..... a|$,b$,c$.|
|000048b0| 16 12 1d 61 24 3d c4 32 | 35 35 2c 22 20 22 29 3a |...a$=.2|55," "):|
|000048c0| 62 24 3d c4 31 33 34 2c | 22 20 22 29 0d 16 1c 8e |b$=.134,|" ")....|
|000048d0| c1 61 24 2c 31 2c 36 34 | 29 3d a4 67 74 78 74 28 |.a$,1,64|)=.gtxt(|
|000048e0| 31 37 2c 36 34 29 3a c1 | 61 24 2c 36 35 2c 34 29 |17,64):.|a$,65,4)|
|000048f0| 3d a4 67 74 78 74 28 35 | 2c 34 29 3a c1 61 24 2c |=.gtxt(5|,4):.a$,|
|00004900| 36 39 2c 31 30 29 3d a4 | 67 74 78 74 28 33 30 2c |69,10)=.|gtxt(30,|
|00004910| 31 30 29 3a c1 61 24 2c | 37 39 2c 35 35 29 3d a4 |10):.a$,|79,55)=.|
|00004920| 67 74 78 74 28 37 2c 35 | 35 29 3a c1 61 24 2c 31 |gtxt(7,5|5):.a$,1|
|00004930| 33 34 2c 38 29 3d a4 67 | 74 78 74 28 34 36 2c 38 |34,8)=.g|txt(46,8|
|00004940| 29 3a c1 61 24 2c 31 34 | 32 2c 36 34 29 3d a4 67 |):.a$,14|2,64)=.g|
|00004950| 74 78 74 28 32 33 2c 36 | 34 29 0d 16 26 62 c1 61 |txt(23,6|4)..&b.a|
|00004960| 24 2c 32 30 36 2c 38 29 | 3d a4 67 74 78 74 28 32 |$,206,8)|=.gtxt(2|
|00004970| 35 2c 38 29 3a c1 61 24 | 2c 32 31 34 2c 38 29 3d |5,8):.a$|,214,8)=|
|00004980| a4 67 74 78 74 28 32 38 | 2c 38 29 3a c1 61 24 2c |.gtxt(28|,8):.a$,|
|00004990| 32 32 32 2c 33 32 29 3d | a4 67 74 78 74 28 32 31 |222,32)=|.gtxt(21|
|000049a0| 2c 33 29 3a c1 62 24 2c | 31 2c 31 32 38 29 3d a4 |,3):.b$,|1,128)=.|
|000049b0| 67 74 78 74 28 33 31 2c | 31 32 37 29 0d 16 30 10 |gtxt(31,|127)..0.|
|000049c0| c8 8e 20 6f 70 74 25 28 | 31 29 20 ca 0d 16 3a 12 |.. opt%(|1) ...:.|
|000049d0| 20 20 20 c9 20 38 20 3a | 63 24 3d 22 31 22 0d 16 | . 8 :|c$="1"..|
|000049e0| 44 12 20 20 20 c9 20 39 | 20 3a 63 24 3d 22 32 22 |D. . 9| :c$="2"|
|000049f0| 0d 16 4e 12 20 20 20 c9 | 20 31 34 3a 63 24 3d 22 |..N. .| 14:c$="|
|00004a00| 33 22 0d 16 58 12 20 20 | 20 c9 20 31 32 3a 63 24 |3"..X. | . 12:c$|
|00004a10| 3d 22 34 22 0d 16 62 12 | 20 20 20 c9 20 31 33 3a |="4"..b.| . 13:|
|00004a20| 63 24 3d 22 35 22 0d 16 | 6c 05 cb 0d 16 76 11 c1 |c$="5"..|l....v..|
|00004a30| 62 24 2c 31 32 39 2c 31 | 29 3d 63 24 0d 16 80 10 |b$,129,1|)=c$....|
|00004a40| c8 8e 20 6f 70 74 25 28 | 32 29 20 ca 0d 16 8a 13 |.. opt%(|2) .....|
|00004a50| 20 20 20 c9 20 31 36 20 | 3a 63 24 3d 22 31 22 0d | . 16 |:c$="1".|
|00004a60| 16 94 13 20 20 20 c9 20 | 31 35 20 3a 63 24 3d 22 |... . |15 :c$="|
|00004a70| 32 22 0d 16 9e 05 cb 0d | 16 a8 6d c1 62 24 2c 31 |2"......|..m.b$,1|
|00004a80| 33 30 2c 31 29 3d 63 24 | 3a c1 62 24 2c 31 33 31 |30,1)=c$|:.b$,131|
|00004a90| 2c 31 29 3d c3 28 6f 70 | 74 25 28 33 29 29 3a c1 |,1)=.(op|t%(3)):.|
|00004aa0| 62 24 2c 31 33 32 2c 31 | 29 3d c3 28 6f 70 74 25 |b$,132,1|)=.(opt%|
|00004ab0| 28 34 29 29 3a c1 62 24 | 2c 31 33 33 2c 31 29 3d |(4)):.b$|,133,1)=|
|00004ac0| c3 28 6f 70 74 25 28 35 | 29 29 3a 64 62 24 28 6e |.(opt%(5|)):db$(n|
|00004ad0| 25 2c 30 29 3d 61 24 3a | 64 62 24 28 6e 25 2c 31 |%,0)=a$:|db$(n%,1|
|00004ae0| 29 3d 62 24 0d 16 b2 05 | e1 0d 16 bc 04 0d 16 c6 |)=b$....|........|
|00004af0| 11 dd f2 75 6e 73 74 6f | 63 6b 28 6e 25 29 0d 16 |...unsto|ck(n%)..|
|00004b00| d0 0d ea 20 61 24 2c 62 | 24 2c 63 0d 16 da 1d 61 |... a$,b|$,c....a|
|00004b10| 24 3d 64 62 24 28 6e 25 | 2c 30 29 3a 62 24 3d 64 |$=db$(n%|,0):b$=d|
|00004b20| 62 24 28 6e 25 2c 31 29 | 0d 16 e4 68 f2 70 74 78 |b$(n%,1)|...h.ptx|
|00004b30| 74 28 31 37 2c c1 61 24 | 2c 31 2c 36 34 29 29 3a |t(17,.a$|,1,64)):|
|00004b40| f2 70 74 78 74 28 35 2c | c1 61 24 2c 36 35 2c 34 |.ptxt(5,|.a$,65,4|
|00004b50| 29 29 3a f2 70 74 78 74 | 28 33 30 2c c1 61 24 2c |)):.ptxt|(30,.a$,|
|00004b60| 36 39 2c 31 30 29 29 3a | f2 70 74 78 74 28 37 2c |69,10)):|.ptxt(7,|
|00004b70| c1 61 24 2c 37 39 2c 35 | 35 29 29 3a f2 70 74 78 |.a$,79,5|5)):.ptx|
|00004b80| 74 28 34 36 2c c1 61 24 | 2c 31 33 34 2c 38 29 29 |t(46,.a$|,134,8))|
|00004b90| 0d 16 ee 6e f2 70 74 78 | 74 28 32 33 2c c1 61 24 |...n.ptx|t(23,.a$|
|00004ba0| 2c 31 34 32 2c 36 34 29 | 29 3a f2 70 74 78 74 28 |,142,64)|):.ptxt(|
|00004bb0| 32 35 2c c1 61 24 2c 32 | 30 36 2c 38 29 29 3a f2 |25,.a$,2|06,8)):.|
|00004bc0| 70 74 78 74 28 32 38 2c | c1 61 24 2c 32 31 34 2c |ptxt(28,|.a$,214,|
|00004bd0| 38 29 29 3a f2 70 74 78 | 74 28 32 31 2c c1 61 24 |8)):.ptx|t(21,.a$|
|00004be0| 2c 32 32 32 2c 33 32 29 | 29 3a f2 70 74 78 74 28 |,222,32)|):.ptxt(|
|00004bf0| 33 31 2c c1 62 24 2c 31 | 2c 31 32 38 29 29 0d 16 |31,.b$,1|,128))..|
|00004c00| f8 13 c8 8e 20 c1 62 24 | 2c 31 32 39 2c 31 29 20 |.... .b$|,129,1) |
|00004c10| ca 0d 17 02 10 20 20 20 | c9 20 22 31 22 3a 63 3d |..... |. "1":c=|
|00004c20| 38 0d 17 0c 10 20 20 20 | c9 20 22 32 22 3a 63 3d |8.... |. "2":c=|
|00004c30| 39 0d 17 16 11 20 20 20 | c9 20 22 33 22 3a 63 3d |9.... |. "3":c=|
|00004c40| 31 34 0d 17 20 11 20 20 | 20 c9 20 22 34 22 3a 63 |14.. . | . "4":c|
|00004c50| 3d 31 32 0d 17 2a 11 20 | 20 20 c9 20 22 35 22 3a |=12..*. | . "5":|
|00004c60| 63 3d 31 33 0d 17 34 0e | 20 20 20 7f 20 3a 63 3d |c=13..4.| . :c=|
|00004c70| 31 34 0d 17 3e 05 cb 0d | 17 48 1a f2 63 68 61 6e |14..>...|.H..chan|
|00004c80| 67 65 69 63 6f 6e 28 6f | 70 74 25 28 31 29 2c 63 |geicon(o|pt%(1),c|
|00004c90| 29 0d 17 52 13 c8 8e 20 | c1 62 24 2c 31 33 30 2c |)..R... |.b$,130,|
|00004ca0| 31 29 20 ca 0d 17 5c 11 | 20 20 20 c9 20 22 31 22 |1) ...\.| . "1"|
|00004cb0| 3a 63 3d 31 36 0d 17 66 | 11 20 20 20 c9 20 22 32 |:c=16..f|. . "2|
|00004cc0| 22 3a 63 3d 31 35 0d 17 | 70 0e 20 20 20 7f 20 3a |":c=15..|p. . :|
|00004cd0| 63 3d 31 36 0d 17 7a 05 | cb 0d 17 84 1a f2 63 68 |c=16..z.|......ch|
|00004ce0| 61 6e 67 65 69 63 6f 6e | 28 6f 70 74 25 28 32 29 |angeicon|(opt%(2)|
|00004cf0| 2c 63 29 0d 17 8e 04 0d | 17 98 51 6f 70 74 25 28 |,c).....|..Qopt%(|
|00004d00| 33 29 3d bb 28 c1 62 24 | 2c 31 33 31 2c 31 29 29 |3)=.(.b$|,131,1))|
|00004d10| 3a e7 20 6f 70 74 25 28 | 33 29 3d 30 20 8c 20 f2 |:. opt%(|3)=0 . .|
|00004d20| 75 6e 73 65 74 69 63 6f | 6e 28 73 6f 66 74 25 2c |unsetico|n(soft%,|
|00004d30| 32 39 29 20 8b 20 f2 73 | 65 74 69 63 6f 6e 28 73 |29) . .s|eticon(s|
|00004d40| 6f 66 74 25 2c 32 39 29 | 0d 17 a2 51 6f 70 74 25 |oft%,29)|...Qopt%|
|00004d50| 28 34 29 3d bb 28 c1 62 | 24 2c 31 33 32 2c 31 29 |(4)=.(.b|$,132,1)|
|00004d60| 29 3a e7 20 6f 70 74 25 | 28 34 29 3d 30 20 8c 20 |):. opt%|(4)=0 . |
|00004d70| f2 75 6e 73 65 74 69 63 | 6f 6e 28 73 6f 66 74 25 |.unsetic|on(soft%|
|00004d80| 2c 31 31 29 20 8b 20 f2 | 73 65 74 69 63 6f 6e 28 |,11) . .|seticon(|
|00004d90| 73 6f 66 74 25 2c 31 31 | 29 0d 17 ac 51 6f 70 74 |soft%,11|)...Qopt|
|00004da0| 25 28 35 29 3d bb 28 c1 | 62 24 2c 31 33 33 2c 31 |%(5)=.(.|b$,133,1|
|00004db0| 29 29 3a e7 20 6f 70 74 | 25 28 35 29 3d 30 20 8c |)):. opt|%(5)=0 .|
|00004dc0| 20 f2 75 6e 73 65 74 69 | 63 6f 6e 28 73 6f 66 74 | .unseti|con(soft|
|00004dd0| 25 2c 31 30 29 20 8b 20 | f2 73 65 74 69 63 6f 6e |%,10) . |.seticon|
|00004de0| 28 73 6f 66 74 25 2c 31 | 30 29 0d 17 b6 05 e1 0d |(soft%,1|0)......|
|00004df0| 17 c0 04 0d 17 ca 0a dd | f2 6e 65 78 74 0d 17 d4 |........|.next...|
|00004e00| 08 ea 20 52 31 0d 17 de | 12 52 31 3d 30 3a e7 20 |.. R1...|.R1=0:. |
|00004e10| 75 70 25 3d 31 20 8c 0d | 17 e8 a6 21 62 75 66 66 |up%=1 ..|...!buff|
|00004e20| 65 72 25 3d 30 3a 24 28 | 62 75 66 66 65 72 25 2b |er%=0:$(|buffer%+|
|00004e30| 34 29 3d 22 59 6f 75 20 | 68 61 76 65 20 75 70 64 |4)="You |have upd|
|00004e40| 61 74 65 64 20 74 68 69 | 73 20 72 65 63 6f 72 64 |ated thi|s record|
|00004e50| 20 20 53 61 76 65 20 74 | 68 65 20 6e 65 77 20 72 | Save t|he new r|
|00004e60| 65 63 6f 72 64 20 3f 22 | 3a c8 99 20 22 57 69 6d |ecord ?"|:.. "Wim|
|00004e70| 70 5f 52 65 70 6f 72 74 | 45 72 72 6f 72 22 2c 62 |p_Report|Error",b|
|00004e80| 75 66 66 65 72 25 2c 31 | 39 2c 22 57 61 72 6e 69 |uffer%,1|9,"Warni|
|00004e90| 6e 67 20 66 72 6f 6d 20 | 74 68 65 20 27 53 6f 66 |ng from |the 'Sof|
|00004ea0| 74 77 61 72 65 20 4d 61 | 6e 61 67 65 72 27 20 70 |tware Ma|nager' p|
|00004eb0| 72 6f 67 72 61 6d 22 20 | b8 20 2c 52 31 0d 17 f2 |rogram" |. ,R1...|
|00004ec0| 12 e7 20 52 31 3d 31 20 | 8c 20 f2 75 70 64 74 0d |.. R1=1 |. .updt.|
|00004ed0| 17 fc 05 cd 0d 18 06 0a | f2 75 70 6f 66 66 0d 18 |........|.upoff..|
|00004ee0| 1a 39 e7 20 63 75 72 72 | 65 6e 74 25 3c 6e 62 72 |.9. curr|ent%<nbr|
|00004ef0| 25 20 8c 20 63 75 72 72 | 65 6e 74 25 2b 3d 31 3a |% . curr|ent%+=1:|
|00004f00| f2 75 6e 73 74 6f 63 6b | 28 63 75 72 72 65 6e 74 |.unstock|(current|
|00004f10| 25 29 20 8b 20 ef 37 0d | 18 24 27 f2 70 75 74 74 |%) . .7.|.$'.putt|
|00004f20| 65 78 74 28 c3 28 63 75 | 72 72 65 6e 74 25 29 2c |ext(.(cu|rrent%),|
|00004f30| 73 6f 66 74 25 2c 34 39 | 2c 62 62 6c 25 29 0d 18 |soft%,49|,bbl%)..|
|00004f40| 2e 24 c8 99 20 22 57 69 | 6d 70 5f 53 65 74 43 61 |.$.. "Wi|mp_SetCa|
|00004f50| 72 65 74 50 6f 73 69 74 | 69 6f 6e 22 2c 2d 31 2c |retPosit|ion",-1,|
|00004f60| 2d 31 0d 18 38 05 e1 0d | 18 42 04 0d 18 4c 0e dd |-1..8...|.B...L..|
|00004f70| f2 70 72 65 76 69 6f 75 | 73 0d 18 56 08 ea 20 52 |.previou|s..V.. R|
|00004f80| 31 0d 18 60 12 52 31 3d | 30 3a e7 20 75 70 25 3d |1..`.R1=|0:. up%=|
|00004f90| 31 20 8c 0d 18 6a a6 21 | 62 75 66 66 65 72 25 3d |1 ...j.!|buffer%=|
|00004fa0| 30 3a 24 28 62 75 66 66 | 65 72 25 2b 34 29 3d 22 |0:$(buff|er%+4)="|
|00004fb0| 59 6f 75 20 68 61 76 65 | 20 75 70 64 61 74 65 64 |You have| updated|
|00004fc0| 20 74 68 69 73 20 72 65 | 63 6f 72 64 20 20 53 61 | this re|cord Sa|
|00004fd0| 76 65 20 74 68 65 20 6e | 65 77 20 72 65 63 6f 72 |ve the n|ew recor|
|00004fe0| 64 20 3f 22 3a c8 99 20 | 22 57 69 6d 70 5f 52 65 |d ?":.. |"Wimp_Re|
|00004ff0| 70 6f 72 74 45 72 72 6f | 72 22 2c 62 75 66 66 65 |portErro|r",buffe|
|00005000| 72 25 2c 31 39 2c 22 57 | 61 72 6e 69 6e 67 20 66 |r%,19,"W|arning f|
|00005010| 72 6f 6d 20 74 68 65 20 | 27 53 6f 66 74 77 61 72 |rom the |'Softwar|
|00005020| 65 20 4d 61 6e 61 67 65 | 72 27 20 70 72 6f 67 72 |e Manage|r' progr|
|00005030| 61 6d 22 20 b8 20 2c 52 | 31 0d 18 74 12 e7 20 52 |am" . ,R|1..t.. R|
|00005040| 31 3d 31 20 8c 20 f2 75 | 70 64 74 0d 18 7e 05 cd |1=1 . .u|pdt..~..|
|00005050| 0d 18 88 0a f2 75 70 6f | 66 66 0d 18 9c 36 e7 20 |.....upo|ff...6. |
|00005060| 63 75 72 72 65 6e 74 25 | 3e 31 20 8c 20 63 75 72 |current%|>1 . cur|
|00005070| 72 65 6e 74 25 2d 3d 31 | 3a f2 75 6e 73 74 6f 63 |rent%-=1|:.unstoc|
|00005080| 6b 28 63 75 72 72 65 6e | 74 25 29 20 8b 20 ef 37 |k(curren|t%) . .7|
|00005090| 0d 18 a6 27 f2 70 75 74 | 74 65 78 74 28 c3 28 63 |...'.put|text(.(c|
|000050a0| 75 72 72 65 6e 74 25 29 | 2c 73 6f 66 74 25 2c 34 |urrent%)|,soft%,4|
|000050b0| 39 2c 62 62 6c 25 29 0d | 18 b0 24 c8 99 20 22 57 |9,bbl%).|..$.. "W|
|000050c0| 69 6d 70 5f 53 65 74 43 | 61 72 65 74 50 6f 73 69 |imp_SetC|aretPosi|
|000050d0| 74 69 6f 6e 22 2c 2d 31 | 2c 2d 31 0d 18 ba 05 e1 |tion",-1|,-1.....|
|000050e0| 0d 18 c4 04 0d 18 ce 5a | dd f2 75 70 6f 6e 3a 75 |.......Z|..upon:u|
|000050f0| 70 25 3d 31 3a f2 75 6e | 73 65 74 69 63 6f 6e 28 |p%=1:.un|seticon(|
|00005100| 73 6f 66 74 25 2c 35 34 | 29 3a f2 75 6e 73 65 74 |soft%,54|):.unset|
|00005110| 69 63 6f 6e 28 73 6f 66 | 74 25 2c 35 35 29 3a f2 |icon(sof|t%,55):.|
|00005120| 63 6c 6f 73 65 61 77 69 | 6e 64 6f 77 28 73 65 61 |closeawi|ndow(sea|
|00005130| 72 25 29 3a 62 69 67 75 | 70 25 3d 31 3a e1 0d 18 |r%):bigu|p%=1:...|
|00005140| d8 04 0d 18 e2 26 dd f2 | 75 70 6f 66 66 3a 75 70 |.....&..|upoff:up|
|00005150| 25 3d 30 3a f2 73 65 74 | 69 63 6f 6e 28 73 6f 66 |%=0:.set|icon(sof|
|00005160| 74 25 2c 35 34 29 3a e1 | 0d 18 ec 04 0d 18 f6 0c |t%,54):.|........|
|00005170| dd f2 64 65 6c 65 74 65 | 0d 19 00 4e e7 20 63 75 |..delete|...N. cu|
|00005180| 72 72 65 6e 74 25 3e 3d | 6e 62 72 25 20 84 20 63 |rrent%>=|nbr% . c|
|00005190| 75 72 72 65 6e 74 25 3c | 31 20 8c 20 f2 77 61 72 |urrent%<|1 . .war|
|000051a0| 6e 69 6e 67 28 22 59 6f | 75 20 63 61 6e 27 74 20 |ning("Yo|u can't |
|000051b0| 64 65 6c 65 74 65 20 74 | 68 69 73 20 72 65 63 6f |delete t|his reco|
|000051c0| 72 64 22 29 3a e1 0d 19 | 0a b3 f4 20 20 20 49 46 |rd"):...|... IF|
|000051d0| 20 63 75 72 72 65 6e 74 | 25 3d 6e 62 72 25 2d 31 | current|%=nbr%-1|
|000051e0| 20 54 48 45 4e 20 50 52 | 4f 43 63 6f 70 79 28 6e | THEN PR|OCcopy(n|
|000051f0| 62 72 25 2c 63 75 72 72 | 65 6e 74 25 29 3a 6e 62 |br%,curr|ent%):nb|
|00005200| 72 25 2d 3d 31 3a 50 52 | 4f 43 70 75 74 74 65 78 |r%-=1:PR|OCputtex|
|00005210| 74 28 53 54 52 24 28 63 | 75 72 72 65 6e 74 25 29 |t(STR$(c|urrent%)|
|00005220| 2c 73 6f 66 74 25 2c 34 | 39 2c 62 62 6c 25 29 3a |,soft%,4|9,bbl%):|
|00005230| 50 52 4f 43 75 70 6f 66 | 66 3a 53 59 53 20 22 57 |PROCupof|f:SYS "W|
|00005240| 69 6d 70 5f 53 65 74 43 | 61 72 65 74 50 6f 73 69 |imp_SetC|aretPosi|
|00005250| 74 69 6f 6e 22 2c 2d 31 | 2c 2d 31 3a 50 52 4f 43 |tion",-1|,-1:PROC|
|00005260| 75 6e 73 74 6f 63 6b 28 | 63 75 72 72 65 6e 74 25 |unstock(|current%|
|00005270| 29 3a 45 4e 44 50 52 4f | 43 0d 19 14 04 0d 19 1e |):ENDPRO|C.......|
|00005280| 2a e3 4a 25 3d 63 75 72 | 72 65 6e 74 25 20 b8 20 |*.J%=cur|rent% . |
|00005290| 6e 62 72 25 2d 31 3a f2 | 63 6f 70 79 28 4a 25 2b |nbr%-1:.|copy(J%+|
|000052a0| 31 2c 4a 25 29 3a ed 0d | 19 28 8a 6e 62 72 25 2d |1,J%):..|.(.nbr%-|
|000052b0| 3d 31 3a f2 70 75 74 74 | 65 78 74 28 c3 28 63 75 |=1:.putt|ext(.(cu|
|000052c0| 72 72 65 6e 74 25 29 2c | 73 6f 66 74 25 2c 34 39 |rrent%),|soft%,49|
|000052d0| 2c 62 62 6c 25 29 3a f2 | 75 70 6f 66 66 3a c8 99 |,bbl%):.|upoff:..|
|000052e0| 20 22 57 69 6d 70 5f 53 | 65 74 43 61 72 65 74 50 | "Wimp_S|etCaretP|
|000052f0| 6f 73 69 74 69 6f 6e 22 | 2c 2d 31 2c 2d 31 3a f2 |osition"|,-1,-1:.|
|00005300| 75 6e 73 74 6f 63 6b 28 | 63 75 72 72 65 6e 74 25 |unstock(|current%|
|00005310| 29 3a f2 70 75 74 74 65 | 78 74 28 c3 28 6e 62 72 |):.putte|xt(.(nbr|
|00005320| 25 29 2c 73 6f 66 74 25 | 2c 35 31 2c 62 62 6c 25 |%),soft%|,51,bbl%|
|00005330| 29 0d 19 32 05 e1 0d 19 | 3c 04 0d 19 46 68 dd f2 |)..2....|<...Fh..|
|00005340| 63 6f 70 79 28 6f 72 69 | 67 69 6e 25 2c 64 65 73 |copy(ori|gin%,des|
|00005350| 74 69 6e 61 74 69 6f 6e | 25 29 3a 64 62 24 28 64 |tination|%):db$(d|
|00005360| 65 73 74 69 6e 61 74 69 | 6f 6e 25 2c 30 29 3d 64 |estinati|on%,0)=d|
|00005370| 62 24 28 6f 72 69 67 69 | 6e 25 2c 30 29 3a 64 62 |b$(origi|n%,0):db|
|00005380| 24 28 64 65 73 74 69 6e | 61 74 69 6f 6e 25 2c 31 |$(destin|ation%,1|
|00005390| 29 3d 64 62 24 28 6f 72 | 69 67 69 6e 25 2c 31 29 |)=db$(or|igin%,1)|
|000053a0| 3a e1 0d 19 50 04 0d 19 | 5a 04 0d 19 64 11 dd f2 |:...P...|Z...d...|
|000053b0| 6c 6f 61 64 69 74 28 66 | 6e 24 29 0d 19 6e 20 c8 |loadit(f|n$)..n .|
|000053c0| 99 22 4f 53 5f 46 69 6c | 65 22 2c 35 2c 66 6e 24 |."OS_Fil|e",5,fn$|
|000053d0| 20 b8 20 2c 2c 52 32 2c | 2c 52 34 0d 19 78 44 e7 | . ,,R2,|,R4..xD.|
|000053e0| 20 b4 28 52 32 29 3d 2d | 31 20 8c 20 52 32 3d 52 | .(R2)=-|1 . R2=R|
|000053f0| 32 20 80 20 26 30 30 30 | 46 46 46 30 30 3a 52 32 |2 . &000|FFF00:R2|
|00005400| 3d 52 32 20 81 20 32 35 | 36 3a 74 79 70 65 25 3d |=R2 . 25|6:type%=|
|00005410| 52 32 20 8b 20 74 79 70 | 65 25 3d 26 46 46 44 0d |R2 . typ|e%=&FFD.|
|00005420| 19 82 63 e7 20 74 79 70 | 65 25 3d 26 42 32 20 8c |..c. typ|e%=&B2 .|
|00005430| 20 f2 4c 4f 41 44 73 6f | 66 74 28 66 6e 24 29 3a | .LOADso|ft(fn$):|
|00005440| 6f 6c 64 71 25 21 31 32 | 3d 6f 6c 64 71 25 21 38 |oldq%!12|=oldq%!8|
|00005450| 3a 6f 6c 64 71 25 21 31 | 36 3d 34 3a c8 99 20 22 |:oldq%!1|6=4:.. "|
|00005460| 57 69 6d 70 5f 53 65 6e | 64 4d 65 73 73 61 67 65 |Wimp_Sen|dMessage|
|00005470| 22 2c 31 37 2c 6f 6c 64 | 71 25 2c 6f 6c 64 71 25 |",17,old|q%,oldq%|
|00005480| 21 34 0d 19 8c 62 e7 20 | 74 79 70 65 25 3d 26 42 |!4...b. |type%=&B|
|00005490| 33 20 8c 20 f2 4c 4f 41 | 44 70 72 6e 28 66 6e 24 |3 . .LOA|Dprn(fn$|
|000054a0| 29 3a 6f 6c 64 71 25 21 | 31 32 3d 6f 6c 64 71 25 |):oldq%!|12=oldq%|
|000054b0| 21 38 3a 6f 6c 64 71 25 | 21 31 36 3d 34 3a c8 99 |!8:oldq%|!16=4:..|
|000054c0| 20 22 57 69 6d 70 5f 53 | 65 6e 64 4d 65 73 73 61 | "Wimp_S|endMessa|
|000054d0| 67 65 22 2c 31 37 2c 6f | 6c 64 71 25 2c 6f 6c 64 |ge",17,o|ldq%,old|
|000054e0| 71 25 21 34 0d 19 96 05 | e1 0d 19 a0 04 0d 19 aa |q%!4....|........|
|000054f0| 15 dd f2 6c 6f 61 64 69 | 74 32 28 66 6e 24 2c 71 |...loadi|t2(fn$,q|
|00005500| 25 29 0d 19 b4 20 c8 99 | 22 4f 53 5f 46 69 6c 65 |%)... ..|"OS_File|
|00005510| 22 2c 35 2c 66 6e 24 20 | b8 20 2c 2c 52 32 2c 2c |",5,fn$ |. ,,R2,,|
|00005520| 52 34 0d 19 be 44 e7 20 | b4 28 52 32 29 3d 2d 31 |R4...D. |.(R2)=-1|
|00005530| 20 8c 20 52 32 3d 52 32 | 20 80 20 26 30 30 30 46 | . R2=R2| . &000F|
|00005540| 46 46 30 30 3a 52 32 3d | 52 32 20 81 20 32 35 36 |FF00:R2=|R2 . 256|
|00005550| 3a 74 79 70 65 25 3d 52 | 32 20 8b 20 74 79 70 65 |:type%=R|2 . type|
|00005560| 25 3d 26 46 46 44 0d 19 | c8 31 f4 20 49 46 20 74 |%=&FFD..|.1. IF t|
|00005570| 79 70 65 25 3d 26 42 32 | 20 54 48 45 4e 20 50 52 |ype%=&B2| THEN PR|
|00005580| 4f 43 4c 4f 41 44 73 6f | 66 74 28 66 6e 24 29 3a |OCLOADso|ft(fn$):|
|00005590| 45 4e 44 50 52 4f 43 0d | 19 d2 30 f4 20 49 46 20 |ENDPROC.|..0. IF |
|000055a0| 74 79 70 65 25 3d 26 42 | 33 20 54 48 45 4e 20 50 |type%=&B|3 THEN P|
|000055b0| 52 4f 43 4c 4f 41 44 70 | 72 6e 28 66 6e 24 29 3a |ROCLOADp|rn(fn$):|
|000055c0| 45 4e 44 50 52 4f 43 0d | 19 dc 1b f2 64 6f 63 75 |ENDPROC.|....docu|
|000055d0| 6d 28 66 6e 24 2c 71 25 | 21 34 30 2c 71 25 21 33 |m(fn$,q%|!40,q%!3|
|000055e0| 36 29 0d 19 e6 05 e1 0d | 19 f0 04 0d 19 fa 15 dd |6)......|........|
|000055f0| f2 4c 4f 41 44 73 6f 66 | 74 28 6e 61 6d 65 24 29 |.LOADsof|t(name$)|
|00005600| 0d 1a 04 09 ea 20 78 78 | 78 0d 1a 0e 15 f2 69 73 |..... xx|x.....is|
|00005610| 5f 69 74 5f 73 61 76 65 | 64 28 6f 6b 25 29 0d 1a |_it_save|d(ok%)..|
|00005620| 18 0f e7 20 6f 6b 25 3d | 31 20 8c 20 e1 0d 1a 22 |... ok%=|1 . ..."|
|00005630| 3c e3 4a 25 3d 30 20 b8 | 20 6d 61 78 25 3a 64 62 |<.J%=0 .| max%:db|
|00005640| 24 28 4a 25 2c 30 29 3d | c4 32 35 35 2c 22 20 22 |$(J%,0)=|.255," "|
|00005650| 29 3a 64 62 24 28 4a 25 | 2c 31 29 3d c4 31 33 34 |):db$(J%|,1)=.134|
|00005660| 2c 22 20 22 29 3a ed 4a | 25 0d 1a 2c 4e 78 78 78 |," "):.J|%..,Nxxx|
|00005670| 3d 8e 28 6e 61 6d 65 24 | 29 3a 6e 62 72 25 3d 30 |=.(name$|):nbr%=0|
|00005680| 3a f5 3a 6e 62 72 25 2b | 3d 31 3a e8 23 78 78 78 |:.:nbr%+|=1:.#xxx|
|00005690| 2c 64 62 24 28 6e 62 72 | 25 2c 30 29 2c 64 62 24 |,db$(nbr|%,0),db$|
|000056a0| 28 6e 62 72 25 2c 31 29 | 3a fd 20 c5 23 78 78 78 |(nbr%,1)|:. .#xxx|
|000056b0| 3a 2a 43 4c 4f 53 45 0d | 1a 36 90 6e 62 72 25 2b |:*CLOSE.|.6.nbr%+|
|000056c0| 3d 31 3a 63 75 72 72 65 | 6e 74 25 3d 31 3a f2 75 |=1:curre|nt%=1:.u|
|000056d0| 6e 73 74 6f 63 6b 28 63 | 75 72 72 65 6e 74 25 29 |nstock(c|urrent%)|
|000056e0| 3a f2 70 75 74 74 65 78 | 74 28 c3 28 6e 62 72 25 |:.puttex|t(.(nbr%|
|000056f0| 29 2c 73 6f 66 74 25 2c | 35 31 2c 62 62 6c 25 29 |),soft%,|51,bbl%)|
|00005700| 3a f2 70 75 74 74 65 78 | 74 28 c3 28 63 75 72 72 |:.puttex|t(.(curr|
|00005710| 65 6e 74 25 29 2c 73 6f | 66 74 25 2c 34 39 2c 62 |ent%),so|ft%,49,b|
|00005720| 62 6c 25 29 3a f2 75 70 | 6f 66 66 3a 62 69 67 75 |bl%):.up|off:bigu|
|00005730| 70 25 3d 30 3a f2 73 65 | 74 69 63 6f 6e 28 73 6f |p%=0:.se|ticon(so|
|00005740| 66 74 25 2c 35 35 29 0d | 1a 37 20 f2 70 75 74 74 |ft%,55).|.7 .putt|
|00005750| 65 78 74 28 6e 61 6d 65 | 24 2c 73 61 76 65 25 2c |ext(name|$,save%,|
|00005760| 31 2c 70 74 65 25 29 0d | 1a 40 05 e1 0d 1a 4a 04 |1,pte%).|.@....J.|
|00005770| 0d 1a 54 14 dd f2 4c 4f | 41 44 70 72 6e 28 6e 61 |..T...LO|ADprn(na|
|00005780| 6d 65 24 29 0d 1a 5e 0c | ea 20 78 78 78 2c 74 25 |me$)..^.|. xxx,t%|
|00005790| 0d 1a 68 36 78 78 78 3d | 8e 28 6e 61 6d 65 24 29 |..h6xxx=|.(name$)|
|000057a0| 3a e3 4a 25 3d 36 20 b8 | 20 33 30 3a e8 23 78 78 |:.J%=6 .| 30:.#xx|
|000057b0| 78 2c 41 24 3a 6f 70 74 | 25 28 4a 25 29 3d bb 28 |x,A$:opt|%(J%)=.(|
|000057c0| 41 24 29 3a ed 3a 0d 1a | 72 0f e3 4a 25 3d 31 30 |A$):.:..|r..J%=10|
|000057d0| 20 b8 20 32 37 0d 1a 7c | 27 e8 23 78 78 78 2c 41 | . 27..||'.#xxx,A|
|000057e0| 24 3a f2 70 75 74 74 65 | 78 74 28 41 24 2c 66 69 |$:.putte|xt(A$,fi|
|000057f0| 65 6c 25 2c 4a 25 2c 70 | 74 65 25 29 0d 1a 86 05 |el%,J%,p|te%)....|
|00005800| ed 0d 1a 90 0d e3 4a 25 | 3d 31 20 b8 20 39 0d 1a |......J%|=1 . 9..|
|00005810| 9a 1c e8 23 78 78 78 2c | 41 24 3a 6f 70 74 32 25 |...#xxx,|A$:opt2%|
|00005820| 28 4a 25 29 3d bb 28 41 | 24 29 0d 1a a4 05 ed 0d |(J%)=.(A|$)......|
|00005830| 1a ae 27 e8 23 78 78 78 | 2c 41 24 3a f2 70 75 74 |..'.#xxx|,A$:.put|
|00005840| 74 65 78 74 28 41 24 2c | 66 69 65 6c 25 2c 35 35 |text(A$,|fiel%,55|
|00005850| 2c 70 74 65 25 29 0d 1a | b8 0a 2a 43 4c 4f 53 45 |,pte%)..|..*CLOSE|
|00005860| 0d 1a b9 21 f2 70 75 74 | 74 65 78 74 28 6e 61 6d |...!.put|text(nam|
|00005870| 65 24 2c 73 61 76 65 32 | 25 2c 31 2c 70 74 65 25 |e$,save2|%,1,pte%|
|00005880| 29 0d 1a c2 0a f7 20 8d | 64 56 5a 0d 1a cc 27 e3 |)..... .|dVZ...'.|
|00005890| 74 25 3d 31 20 b8 20 33 | 31 3a f3 20 78 78 78 3a |t%=1 . 3|1:. xxx:|
|000058a0| f2 74 6f 67 67 6c 65 32 | 61 28 30 2c 78 78 78 29 |.toggle2|a(0,xxx)|
|000058b0| 3a ed 0d 1a d6 62 dc 20 | 31 37 2c 32 33 2c 31 30 |:....b. |17,23,10|
|000058c0| 2c 34 32 2c 34 38 2c 31 | 31 2c 31 33 2c 31 34 2c |,42,48,1|1,13,14,|
|000058d0| 31 35 2c 31 39 2c 32 30 | 2c 32 31 2c 32 35 2c 32 |15,19,20|,21,25,2|
|000058e0| 36 2c 32 37 2c 33 32 2c | 33 33 2c 33 34 2c 33 38 |6,27,32,|33,34,38|
|000058f0| 2c 33 39 2c 34 30 2c 34 | 34 2c 34 35 2c 34 36 2c |,39,40,4|4,45,46,|
|00005900| 35 30 2c 35 31 2c 35 32 | 2c 35 37 2c 35 33 2c 35 |50,51,52|,57,53,5|
|00005910| 34 2c 35 35 0d 1a e0 13 | f2 74 6f 67 67 6c 65 32 |4,55....|.toggle2|
|00005920| 61 28 30 2c 31 37 29 0d | 1a ea 4b e3 4a 25 3d 31 |a(0,17).|..K.J%=1|
|00005930| 20 b8 20 39 3a e7 20 6f | 70 74 32 25 28 4a 25 29 | . 9:. o|pt2%(J%)|
|00005940| 20 8c 20 f2 73 65 74 69 | 63 6f 6e 28 66 69 65 6c | . .seti|con(fiel|
|00005950| 25 2c 34 35 2b 4a 25 29 | 20 8b 20 f2 75 6e 73 65 |%,45+J%)| . .unse|
|00005960| 74 69 63 6f 6e 28 66 69 | 65 6c 25 2c 34 35 2b 4a |ticon(fi|el%,45+J|
|00005970| 25 29 0d 1a f4 07 ed 4a | 25 0d 1a fe fb f2 63 68 |%).....J|%.....ch|
|00005980| 61 6e 67 65 69 63 6f 6e | 32 28 6f 70 74 25 28 36 |angeicon|2(opt%(6|
|00005990| 29 2c 6f 70 74 25 28 36 | 29 29 3a f2 63 68 61 6e |),opt%(6|)):.chan|
|000059a0| 67 65 69 63 6f 6e 32 28 | 6f 70 74 25 28 37 29 2c |geicon2(|opt%(7),|
|000059b0| 6f 70 74 25 28 37 29 29 | 3a f2 63 68 61 6e 67 65 |opt%(7))|:.change|
|000059c0| 69 63 6f 6e 32 28 6f 70 | 74 25 28 38 29 2c 6f 70 |icon2(op|t%(8),op|
|000059d0| 74 25 28 38 29 29 3a f2 | 63 68 61 6e 67 65 69 63 |t%(8)):.|changeic|
|000059e0| 6f 6e 32 28 6f 70 74 25 | 28 39 29 2c 6f 70 74 25 |on2(opt%|(9),opt%|
|000059f0| 28 39 29 29 3a f2 63 68 | 61 6e 67 65 69 63 6f 6e |(9)):.ch|angeicon|
|00005a00| 32 28 6f 70 74 25 28 31 | 30 29 2c 6f 70 74 25 28 |2(opt%(1|0),opt%(|
|00005a10| 31 30 29 29 3a f2 63 68 | 61 6e 67 65 69 63 6f 6e |10)):.ch|angeicon|
|00005a20| 32 28 6f 70 74 25 28 31 | 31 29 2c 6f 70 74 25 28 |2(opt%(1|1),opt%(|
|00005a30| 31 31 29 29 3a f2 63 68 | 61 6e 67 65 69 63 6f 6e |11)):.ch|angeicon|
|00005a40| 32 28 6f 70 74 25 28 31 | 32 29 2c 6f 70 74 25 28 |2(opt%(1|2),opt%(|
|00005a50| 31 32 29 29 3a f2 63 68 | 61 6e 67 65 69 63 6f 6e |12)):.ch|angeicon|
|00005a60| 32 28 6f 70 74 25 28 31 | 33 29 2c 6f 70 74 25 28 |2(opt%(1|3),opt%(|
|00005a70| 31 33 29 29 0d 1b 08 fb | f2 63 68 61 6e 67 65 69 |13))....|.changei|
|00005a80| 63 6f 6e 32 28 6f 70 74 | 25 28 32 32 29 2c 6f 70 |con2(opt|%(22),op|
|00005a90| 74 25 28 32 32 29 29 3a | f2 74 6f 67 67 6c 65 32 |t%(22)):|.toggle2|
|00005aa0| 61 28 6f 70 74 25 28 31 | 34 29 20 2c 32 39 29 3a |a(opt%(1|4) ,29):|
|00005ab0| f2 74 6f 67 67 6c 65 32 | 61 28 6f 70 74 25 28 31 |.toggle2|a(opt%(1|
|00005ac0| 35 29 20 2c 35 36 29 3a | f2 74 6f 67 67 6c 65 32 |5) ,56):|.toggle2|
|00005ad0| 61 28 6f 70 74 25 28 31 | 36 29 20 2c 31 36 29 3a |a(opt%(1|6) ,16):|
|00005ae0| f2 74 6f 67 67 6c 65 32 | 61 28 6f 70 74 25 28 31 |.toggle2|a(opt%(1|
|00005af0| 37 29 20 2c 32 32 29 3a | f2 74 6f 67 67 6c 65 32 |7) ,22):|.toggle2|
|00005b00| 61 28 6f 70 74 25 28 31 | 38 29 20 2c 32 38 29 3a |a(opt%(1|8) ,28):|
|00005b10| f2 74 6f 67 67 6c 65 32 | 61 28 6f 70 74 25 28 31 |.toggle2|a(opt%(1|
|00005b20| 39 29 20 2c 33 35 29 3a | f2 74 6f 67 67 6c 65 32 |9) ,35):|.toggle2|
|00005b30| 61 28 6f 70 74 25 28 32 | 30 29 20 2c 34 31 29 3a |a(opt%(2|0) ,41):|
|00005b40| f2 74 6f 67 67 6c 65 32 | 61 28 6f 70 74 25 28 32 |.toggle2|a(opt%(2|
|00005b50| 31 29 20 2c 34 37 29 3a | f2 74 6f 67 67 6c 65 33 |1) ,47):|.toggle3|
|00005b60| 61 28 6f 70 74 25 28 32 | 33 29 20 2c 33 30 29 0d |a(opt%(2|3) ,30).|
|00005b70| 1b 12 ab f2 74 6f 67 67 | 6c 65 33 61 28 6f 70 74 |....togg|le3a(opt|
|00005b80| 25 28 32 34 29 20 2c 33 | 36 29 3a f2 74 6f 67 67 |%(24) ,3|6):.togg|
|00005b90| 6c 65 33 61 28 6f 70 74 | 25 28 32 35 29 20 2c 31 |le3a(opt|%(25) ,1|
|00005ba0| 32 29 3a f2 74 6f 67 67 | 6c 65 33 61 28 6f 70 74 |2):.togg|le3a(opt|
|00005bb0| 25 28 32 36 29 20 2c 31 | 38 29 3a f2 74 6f 67 67 |%(26) ,1|8):.togg|
|00005bc0| 6c 65 33 61 28 6f 70 74 | 25 28 32 37 29 20 2c 32 |le3a(opt|%(27) ,2|
|00005bd0| 34 29 3a f2 74 6f 67 67 | 6c 65 33 61 28 6f 70 74 |4):.togg|le3a(opt|
|00005be0| 25 28 32 38 29 20 2c 33 | 31 29 3a f2 74 6f 67 67 |%(28) ,3|1):.togg|
|00005bf0| 6c 65 33 61 28 6f 70 74 | 25 28 32 39 29 20 2c 33 |le3a(opt|%(29) ,3|
|00005c00| 37 29 3a f2 74 6f 67 67 | 6c 65 33 61 28 6f 70 74 |7):.togg|le3a(opt|
|00005c10| 25 28 33 30 29 20 2c 34 | 33 29 0d 1b 1c 05 e1 0d |%(30) ,4|3)......|
|00005c20| 1b 26 04 0d 1b 30 0e dd | f2 73 6f 72 74 64 69 73 |.&...0..|.sortdis|
|00005c30| 63 0d 1b 3a 2c e7 20 6e | 62 72 25 3c 32 20 8c 20 |c..:,. n|br%<2 . |
|00005c40| f2 77 61 72 6e 69 6e 67 | 28 22 4e 6f 74 68 69 6e |.warning|("Nothin|
|00005c50| 67 20 74 6f 20 73 6f 72 | 74 22 29 3a e1 0d 1b 44 |g to sor|t"):...D|
|00005c60| 65 f2 73 6f 72 74 69 6e | 67 64 69 73 63 28 31 2c |e.sortin|gdisc(1,|
|00005c70| 6e 62 72 25 2d 31 29 3a | 63 75 72 72 65 6e 74 25 |nbr%-1):|current%|
|00005c80| 3d 31 3a f2 75 6e 73 74 | 6f 63 6b 28 63 75 72 72 |=1:.unst|ock(curr|
|00005c90| 65 6e 74 25 29 3a f2 70 | 75 74 74 65 78 74 28 c3 |ent%):.p|uttext(.|
|00005ca0| 28 63 75 72 72 65 6e 74 | 25 29 2c 73 6f 66 74 25 |(current|%),soft%|
|00005cb0| 2c 34 39 2c 62 62 6c 25 | 29 3a f2 75 70 6f 66 66 |,49,bbl%|):.upoff|
|00005cc0| 3a e1 0d 1b 4e 0f dd f2 | 73 6f 72 74 66 6e 61 6d |:...N...|sortfnam|
|00005cd0| 65 0d 1b 58 2c e7 20 6e | 62 72 25 3c 32 20 8c 20 |e..X,. n|br%<2 . |
|00005ce0| f2 77 61 72 6e 69 6e 67 | 28 22 4e 6f 74 68 69 6e |.warning|("Nothin|
|00005cf0| 67 20 74 6f 20 73 6f 72 | 74 22 29 3a e1 0d 1b 62 |g to sor|t"):...b|
|00005d00| 66 f2 73 6f 72 74 69 6e | 67 66 6e 61 6d 65 28 31 |f.sortin|gfname(1|
|00005d10| 2c 6e 62 72 25 2d 31 29 | 3a 63 75 72 72 65 6e 74 |,nbr%-1)|:current|
|00005d20| 25 3d 31 3a f2 75 6e 73 | 74 6f 63 6b 28 63 75 72 |%=1:.uns|tock(cur|
|00005d30| 72 65 6e 74 25 29 3a f2 | 70 75 74 74 65 78 74 28 |rent%):.|puttext(|
|00005d40| c3 28 63 75 72 72 65 6e | 74 25 29 2c 73 6f 66 74 |.(curren|t%),soft|
|00005d50| 25 2c 34 39 2c 62 62 6c | 25 29 3a f2 75 70 6f 66 |%,49,bbl|%):.upof|
|00005d60| 66 3a e1 0d 1b 6c 0e dd | f2 73 6f 72 74 74 79 70 |f:...l..|.sorttyp|
|00005d70| 65 0d 1b 76 2c e7 20 6e | 62 72 25 3c 32 20 8c 20 |e..v,. n|br%<2 . |
|00005d80| f2 77 61 72 6e 69 6e 67 | 28 22 4e 6f 74 68 69 6e |.warning|("Nothin|
|00005d90| 67 20 74 6f 20 73 6f 72 | 74 22 29 3a e1 0d 1b 80 |g to sor|t"):....|
|00005da0| 65 f2 73 6f 72 74 69 6e | 67 74 79 70 65 28 31 2c |e.sortin|gtype(1,|
|00005db0| 6e 62 72 25 2d 31 29 3a | 63 75 72 72 65 6e 74 25 |nbr%-1):|current%|
|00005dc0| 3d 31 3a f2 75 6e 73 74 | 6f 63 6b 28 63 75 72 72 |=1:.unst|ock(curr|
|00005dd0| 65 6e 74 25 29 3a f2 70 | 75 74 74 65 78 74 28 c3 |ent%):.p|uttext(.|
|00005de0| 28 63 75 72 72 65 6e 74 | 25 29 2c 73 6f 66 74 25 |(current|%),soft%|
|00005df0| 2c 34 39 2c 62 62 6c 25 | 29 3a f2 75 70 6f 66 66 |,49,bbl%|):.upoff|
|00005e00| 3a e1 0d 1b 8a 0f dd f2 | 73 6f 72 74 66 74 79 70 |:.......|sortftyp|
|00005e10| 65 0d 1b 94 2c e7 20 6e | 62 72 25 3c 32 20 8c 20 |e...,. n|br%<2 . |
|00005e20| f2 77 61 72 6e 69 6e 67 | 28 22 4e 6f 74 68 69 6e |.warning|("Nothin|
|00005e30| 67 20 74 6f 20 73 6f 72 | 74 22 29 3a e1 0d 1b 9e |g to sor|t"):....|
|00005e40| 66 f2 73 6f 72 74 69 6e | 67 66 74 79 70 65 28 31 |f.sortin|gftype(1|
|00005e50| 2c 6e 62 72 25 2d 31 29 | 3a 63 75 72 72 65 6e 74 |,nbr%-1)|:current|
|00005e60| 25 3d 31 3a f2 75 6e 73 | 74 6f 63 6b 28 63 75 72 |%=1:.uns|tock(cur|
|00005e70| 72 65 6e 74 25 29 3a f2 | 70 75 74 74 65 78 74 28 |rent%):.|puttext(|
|00005e80| c3 28 63 75 72 72 65 6e | 74 25 29 2c 73 6f 66 74 |.(curren|t%),soft|
|00005e90| 25 2c 34 39 2c 62 62 6c | 25 29 3a f2 75 70 6f 66 |%,49,bbl|%):.upof|
|00005ea0| 66 3a e1 0d 1b a8 0e dd | f2 73 6f 72 74 61 75 74 |f:......|.sortaut|
|00005eb0| 68 0d 1b b2 2c e7 20 6e | 62 72 25 3c 32 20 8c 20 |h...,. n|br%<2 . |
|00005ec0| f2 77 61 72 6e 69 6e 67 | 28 22 4e 6f 74 68 69 6e |.warning|("Nothin|
|00005ed0| 67 20 74 6f 20 73 6f 72 | 74 22 29 3a e1 0d 1b bc |g to sor|t"):....|
|00005ee0| 65 f2 73 6f 72 74 69 6e | 67 61 75 74 68 28 31 2c |e.sortin|gauth(1,|
|00005ef0| 6e 62 72 25 2d 31 29 3a | 63 75 72 72 65 6e 74 25 |nbr%-1):|current%|
|00005f00| 3d 31 3a f2 75 6e 73 74 | 6f 63 6b 28 63 75 72 72 |=1:.unst|ock(curr|
|00005f10| 65 6e 74 25 29 3a f2 70 | 75 74 74 65 78 74 28 c3 |ent%):.p|uttext(.|
|00005f20| 28 63 75 72 72 65 6e 74 | 25 29 2c 73 6f 66 74 25 |(current|%),soft%|
|00005f30| 2c 34 39 2c 62 62 6c 25 | 29 3a f2 75 70 6f 66 66 |,49,bbl%|):.upoff|
|00005f40| 3a e1 0d 1b c6 0d dd f2 | 73 6f 72 74 6c 65 6e 0d |:.......|sortlen.|
|00005f50| 1b d0 2c e7 20 6e 62 72 | 25 3c 32 20 8c 20 f2 77 |..,. nbr|%<2 . .w|
|00005f60| 61 72 6e 69 6e 67 28 22 | 4e 6f 74 68 69 6e 67 20 |arning("|Nothing |
|00005f70| 74 6f 20 73 6f 72 74 22 | 29 3a e1 0d 1b da 64 f2 |to sort"|):....d.|
|00005f80| 73 6f 72 74 69 6e 67 6c | 65 6e 28 31 2c 6e 62 72 |sortingl|en(1,nbr|
|00005f90| 25 2d 31 29 3a 63 75 72 | 72 65 6e 74 25 3d 31 3a |%-1):cur|rent%=1:|
|00005fa0| f2 75 6e 73 74 6f 63 6b | 28 63 75 72 72 65 6e 74 |.unstock|(current|
|00005fb0| 25 29 3a f2 70 75 74 74 | 65 78 74 28 c3 28 63 75 |%):.putt|ext(.(cu|
|00005fc0| 72 72 65 6e 74 25 29 2c | 73 6f 66 74 25 2c 34 39 |rrent%),|soft%,49|
|00005fd0| 2c 62 62 6c 25 29 3a f2 | 75 70 6f 66 66 3a e1 0d |,bbl%):.|upoff:..|
|00005fe0| 1b e4 0e dd f2 73 6f 72 | 74 64 61 74 65 0d 1b ee |.....sor|tdate...|
|00005ff0| 2c e7 20 6e 62 72 25 3c | 32 20 8c 20 f2 77 61 72 |,. nbr%<|2 . .war|
|00006000| 6e 69 6e 67 28 22 4e 6f | 74 68 69 6e 67 20 74 6f |ning("No|thing to|
|00006010| 20 73 6f 72 74 22 29 3a | e1 0d 1b f8 65 f2 73 6f | sort"):|....e.so|
|00006020| 72 74 69 6e 67 64 61 74 | 65 28 31 2c 6e 62 72 25 |rtingdat|e(1,nbr%|
|00006030| 2d 31 29 3a 63 75 72 72 | 65 6e 74 25 3d 31 3a f2 |-1):curr|ent%=1:.|
|00006040| 75 6e 73 74 6f 63 6b 28 | 63 75 72 72 65 6e 74 25 |unstock(|current%|
|00006050| 29 3a f2 70 75 74 74 65 | 78 74 28 c3 28 63 75 72 |):.putte|xt(.(cur|
|00006060| 72 65 6e 74 25 29 2c 73 | 6f 66 74 25 2c 34 39 2c |rent%),s|oft%,49,|
|00006070| 62 62 6c 25 29 3a f2 75 | 70 6f 66 66 3a e1 0d 1c |bbl%):.u|poff:...|
|00006080| 02 0e dd f2 73 6f 72 74 | 66 69 72 6d 0d 1c 0c 2c |....sort|firm...,|
|00006090| e7 20 6e 62 72 25 3c 32 | 20 8c 20 f2 77 61 72 6e |. nbr%<2| . .warn|
|000060a0| 69 6e 67 28 22 4e 6f 74 | 68 69 6e 67 20 74 6f 20 |ing("Not|hing to |
|000060b0| 73 6f 72 74 22 29 3a e1 | 0d 1c 16 65 f2 73 6f 72 |sort"):.|...e.sor|
|000060c0| 74 69 6e 67 66 69 72 6d | 28 31 2c 6e 62 72 25 2d |tingfirm|(1,nbr%-|
|000060d0| 31 29 3a 63 75 72 72 65 | 6e 74 25 3d 31 3a f2 75 |1):curre|nt%=1:.u|
|000060e0| 6e 73 74 6f 63 6b 28 63 | 75 72 72 65 6e 74 25 29 |nstock(c|urrent%)|
|000060f0| 3a f2 70 75 74 74 65 78 | 74 28 c3 28 63 75 72 72 |:.puttex|t(.(curr|
|00006100| 65 6e 74 25 29 2c 73 6f | 66 74 25 2c 34 39 2c 62 |ent%),so|ft%,49,b|
|00006110| 62 6c 25 29 3a f2 75 70 | 6f 66 66 3a e1 0d 1c 20 |bl%):.up|off:... |
|00006120| 0e dd f2 73 6f 72 74 6e | 61 6d 65 0d 1c 2a 2c e7 |...sortn|ame..*,.|
|00006130| 20 6e 62 72 25 3c 32 20 | 8c 20 f2 77 61 72 6e 69 | nbr%<2 |. .warni|
|00006140| 6e 67 28 22 4e 6f 74 68 | 69 6e 67 20 74 6f 20 73 |ng("Noth|ing to s|
|00006150| 6f 72 74 22 29 3a e1 0d | 1c 34 65 f2 73 6f 72 74 |ort"):..|.4e.sort|
|00006160| 69 6e 67 6e 61 6d 65 28 | 31 2c 6e 62 72 25 2d 31 |ingname(|1,nbr%-1|
|00006170| 29 3a 63 75 72 72 65 6e | 74 25 3d 31 3a f2 75 6e |):curren|t%=1:.un|
|00006180| 73 74 6f 63 6b 28 63 75 | 72 72 65 6e 74 25 29 3a |stock(cu|rrent%):|
|00006190| f2 70 75 74 74 65 78 74 | 28 c3 28 63 75 72 72 65 |.puttext|(.(curre|
|000061a0| 6e 74 25 29 2c 73 6f 66 | 74 25 2c 34 39 2c 62 62 |nt%),sof|t%,49,bb|
|000061b0| 6c 25 29 3a f2 75 70 6f | 66 66 3a e1 0d 1c 3e 04 |l%):.upo|ff:...>.|
|000061c0| 0d 1c 48 22 dd a4 6e 61 | 6d 65 28 78 78 25 29 3a |..H"..na|me(xx%):|
|000061d0| 3d c1 64 62 24 28 78 78 | 25 2c 30 29 2c 31 2c 36 |=.db$(xx|%,0),1,6|
|000061e0| 38 29 0d 1c 52 23 dd a4 | 64 69 73 63 28 78 78 25 |8)..R#..|disc(xx%|
|000061f0| 29 3a 3d c1 64 62 24 28 | 78 78 25 2c 30 29 2c 36 |):=.db$(|xx%,0),6|
|00006200| 39 2c 31 30 29 0d 1c 5c | 24 dd a4 66 6e 61 6d 65 |9,10)..\|$..fname|
|00006210| 28 78 78 25 29 3a 3d c1 | 64 62 24 28 78 78 25 2c |(xx%):=.|db$(xx%,|
|00006220| 30 29 2c 37 39 2c 35 35 | 29 0d 1c 66 24 dd a4 66 |0),79,55|)..f$..f|
|00006230| 74 79 70 65 28 78 78 25 | 29 3a 3d c1 64 62 24 28 |type(xx%|):=.db$(|
|00006240| 78 78 25 2c 30 29 2c 31 | 33 34 2c 38 29 0d 1c 70 |xx%,0),1|34,8)..p|
|00006250| 24 dd a4 61 75 74 68 28 | 78 78 25 29 3a 3d c1 64 |$..auth(|xx%):=.d|
|00006260| 62 24 28 78 78 25 2c 30 | 29 2c 31 34 32 2c 36 34 |b$(xx%,0|),142,64|
|00006270| 29 0d 1c 7a 25 dd a4 6c | 65 6e 28 78 78 25 29 3a |)..z%..l|en(xx%):|
|00006280| 3d bb 28 c1 64 62 24 28 | 78 78 25 2c 30 29 2c 32 |=.(.db$(|xx%,0),2|
|00006290| 30 36 2c 38 29 29 0d 1c | 84 04 0d 1c 8e 10 dd a4 |06,8))..|........|
|000062a0| 64 61 74 65 28 78 78 25 | 29 3a 0d 1c 98 08 ea 20 |date(xx%|):..... |
|000062b0| 78 24 0d 1c a2 0f 58 24 | 3d 22 20 20 20 20 20 20 |x$....X$|=" |
|000062c0| 22 0d 1c ac 1f c1 58 24 | 2c 31 2c 32 29 3d c1 64 |".....X$|,1,2)=.d|
|000062d0| 62 24 28 78 78 25 2c 30 | 29 2c 32 32 30 2c 32 29 |b$(xx%,0|),220,2)|
|000062e0| 0d 1c b6 1f c1 58 24 2c | 33 2c 32 29 3d c1 64 62 |.....X$,|3,2)=.db|
|000062f0| 24 28 78 78 25 2c 30 29 | 2c 32 31 37 2c 32 29 0d |$(xx%,0)|,217,2).|
|00006300| 1c c0 1f c1 58 24 2c 35 | 2c 32 29 3d c1 64 62 24 |....X$,5|,2)=.db$|
|00006310| 28 78 78 25 2c 30 29 2c | 32 31 34 2c 32 29 0d 1c |(xx%,0),|214,2)..|
|00006320| ca 0a 3d bb 28 58 24 29 | 0d 1c d4 04 0d 1c de 24 |..=.(X$)|.......$|
|00006330| dd a4 66 69 72 6d 28 78 | 78 25 29 3a 3d c1 64 62 |..firm(x|x%):=.db|
|00006340| 24 28 78 78 25 2c 30 29 | 2c 32 32 32 2c 33 32 29 |$(xx%,0)|,222,32)|
|00006350| 0d 1c e8 49 dd a4 74 79 | 70 65 28 78 78 25 29 3a |...I..ty|pe(xx%):|
|00006360| 3d c1 64 62 24 28 78 78 | 25 2c 31 29 2c 31 32 39 |=.db$(xx|%,1),129|
|00006370| 2c 31 29 2b c1 64 62 24 | 28 78 78 25 2c 31 29 2c |,1)+.db$|(xx%,1),|
|00006380| 31 33 32 2c 32 29 2b c1 | 64 62 24 28 78 78 25 2c |132,2)+.|db$(xx%,|
|00006390| 31 29 2c 31 33 30 2c 31 | 29 0d 1c f2 04 0d 1c fc |1),130,1|).......|
|000063a0| 1c dd f2 73 6f 72 74 69 | 6e 67 6e 61 6d 65 28 64 |...sorti|ngname(d|
|000063b0| 65 62 25 2c 66 69 6e 25 | 29 0d 1d 06 0e ea 20 69 |eb%,fin%|)..... i|
|000063c0| 25 2c 6a 25 2c 78 24 0d | 1d 10 a4 69 25 3d 64 65 |%,j%,x$.|...i%=de|
|000063d0| 62 25 3a 6a 25 3d 66 69 | 6e 25 3a 78 24 3d a4 6e |b%:j%=fi|n%:x$=.n|
|000063e0| 61 6d 65 28 28 64 65 62 | 25 2b 66 69 6e 25 29 20 |ame((deb|%+fin%) |
|000063f0| 81 20 32 29 3a f5 3a c8 | 95 20 a4 6e 61 6d 65 28 |. 2):.:.|. .name(|
+--------+-------------------------+-------------------------+--------+--------+
Only 25.0 KB of data is shown above.
