home *** CD-ROM | disk | FTP | other *** search
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was processed as: ArcFS Archive
(archive/arcFS).
You can browse this item here: __manager
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 100%
| dexvert
| ArcFS Archive (archive/arcFS)
| magic
| Supported |
| 100%
| file
| RISC OS archive (ArcFS format)
| default
| |
| 99%
| file
| data
| default
| |
| 100%
| TrID
| Acorn ArcFS Archive
| default
| |
| 100%
| gt2
| Kopftext: 'Archive'
| default (weak)
| |
| 100%
| detectItEasy
| Archive: ArcFS
| default
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 41 72 63 68 69 76 65 00 | 20 01 00 00 80 01 00 00 |Archive.| .......|
|00000010| 28 00 00 00 64 00 00 00 | 00 00 00 00 00 00 00 00 |(...d...|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000050| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000060| 82 21 21 4d 61 6e 61 67 | 65 72 00 00 ff ff ff ff |.!!Manag|er......|
|00000070| 45 fd ff ff 9a 15 6f 9b | 30 00 00 00 ff ff ff ff |E.....o.|0.......|
|00000080| fc 00 00 80 82 21 42 6f | 6f 74 00 00 00 70 03 00 |.....!Bo|ot...p..|
|00000090| 79 00 00 00 42 eb ff ff | 31 62 79 c1 03 00 ce ef |y...B...|1by.....|
|000000a0| 79 00 00 00 24 00 00 00 | 82 21 52 75 6e 00 04 00 |y...$...|.!Run...|
|000000b0| 00 70 03 00 6a 00 00 00 | 42 eb ff ff 20 f1 c9 cd |.p..j...|B... ...|
|000000c0| 03 00 1d c1 6a 00 00 00 | c1 00 00 00 82 21 52 75 |....j...|.....!Ru|
|000000d0| 6e 49 6d 61 67 65 00 00 | 1c 84 00 00 42 fb ff ff |nImage..|....B...|
|000000e0| 98 bd 22 e0 03 00 f5 fc | 1c 84 00 00 4f 01 00 00 |..".....|....O...|
|000000f0| 82 21 53 70 72 69 74 65 | 73 00 03 00 fc 2d 00 00 |.!Sprite|s....-..|
|00000100| 42 f9 ff ff 1e 18 6b df | 03 00 6b 6a fc 2d 00 00 |B.....k.|..kj.-..|
|00000110| 8f 85 00 00 82 54 65 6d | 70 6c 61 74 65 00 03 00 |.....Tem|plate...|
|00000120| f1 2b 00 00 42 ec ff ff | 20 e1 21 e0 03 00 e7 fb |.+..B...| .!.....|
|00000130| f1 2b 00 00 af b3 00 00 | 00 00 00 00 c3 00 04 00 |.+......|........|
|00000140| 00 70 03 00 03 00 00 00 | ff ff ff ff 00 80 03 00 |.p......|........|
|00000150| 03 00 00 00 ff ff ff ff | 80 8e 03 00 00 00 00 00 |........|........|
|00000160| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000170| 00 00 00 00 00 00 00 00 | 00 00 00 00 d4 01 00 00 |........|........|
|00000180| 46 69 6c 65 44 61 74 61 | 82 21 42 6f 6f 74 00 00 |FileData|.!Boot..|
|00000190| 00 70 03 00 79 00 00 00 | 42 eb ff ff 31 62 79 c1 |.p..y...|B...1by.|
|000001a0| 03 00 ce ef 7c 20 42 6f | 6f 74 20 66 69 6c 65 20 |....| Bo|ot file |
|000001b0| 66 6f 72 20 21 21 4d 61 | 6e 61 67 65 72 2e 0a 7c |for !!Ma|nager..||
|000001c0| 0a 53 65 74 20 4d 61 6e | 61 67 65 72 24 44 69 72 |.Set Man|ager$Dir|
|000001d0| 20 3c 4f 62 65 79 24 44 | 69 72 3e 0a 7c 0a 49 63 | <Obey$D|ir>.|.Ic|
|000001e0| 6f 6e 53 70 72 69 74 65 | 73 20 3c 4d 61 6e 61 67 |onSprite|s <Manag|
|000001f0| 65 72 24 44 69 72 3e 2e | 21 53 70 72 69 74 65 73 |er$Dir>.|!Sprites|
|00000200| 0a 0a 53 65 74 20 46 69 | 6c 65 24 54 79 70 65 5f |..Set Fi|le$Type_|
|00000210| 30 42 32 20 53 6f 66 74 | 4c 69 73 74 0a 46 69 6c |0B2 Soft|List.Fil|
|00000220| 65 44 61 74 61 82 21 52 | 75 6e 00 04 00 00 70 03 |eData.!R|un....p.|
|00000230| 00 6a 00 00 00 42 eb ff | ff 20 f1 c9 cd 03 00 1d |.j...B..|. ......|
|00000240| c1 7c 21 52 75 6e 20 66 | 6f 72 20 21 21 4d 61 6e |.|!Run f|or !!Man|
|00000250| 61 67 65 72 2e 0a 7c 20 | 76 65 72 73 69 6f 6e 20 |ager..| |version |
|00000260| 30 2e 30 20 31 31 20 4f | 63 74 20 31 39 39 30 0a |0.0 11 O|ct 1990.|
|00000270| 7c 0a 57 69 6d 70 53 6c | 6f 74 20 2d 6d 69 6e 20 ||.WimpSl|ot -min |
|00000280| 36 34 30 6b 20 2d 6d 61 | 78 20 36 34 30 6b 0a 52 |640k -ma|x 640k.R|
|00000290| 75 6e 20 3c 4d 61 6e 61 | 67 65 72 24 44 69 72 3e |un <Mana|ger$Dir>|
|000002a0| 2e 21 52 75 6e 49 6d 61 | 67 65 0a 46 69 6c 65 44 |.!RunIma|ge.FileD|
|000002b0| 61 74 61 82 21 52 75 6e | 49 6d 61 67 65 00 00 1c |ata.!Run|Image...|
|000002c0| 84 00 00 42 fb ff ff 98 | bd 22 e0 03 00 f5 fc 0d |...B....|."......|
|000002d0| 00 0a 1d f4 20 3e 20 24 | 2e 21 21 4d 61 6e 61 67 |.... > $|.!!Manag|
|000002e0| 65 72 2e 21 52 75 6e 49 | 6d 61 67 65 0d 00 14 04 |er.!RunI|mage....|
|000002f0| 0d 00 1e 1d 65 6e 74 25 | 3d 30 3a 62 69 67 75 70 |....ent%|=0:bigup|
|00000300| 25 3d 30 3a 6d 61 78 25 | 3d 31 34 30 30 0d 00 28 |%=0:max%|=1400..(|
|00000310| 0b 6f 70 74 78 25 3d 39 | 0d 00 32 0f 73 73 25 3d |.optx%=9|..2.ss%=|
|00000320| 30 3a 70 6f 25 3d 31 0d | 00 3c 11 de 20 64 62 24 |0:po%=1.|.<.. db$|
|00000330| 28 6d 61 78 25 2c 31 29 | 0d 00 46 3c e3 4a 25 3d |(max%,1)|..F<.J%=|
|00000340| 30 20 b8 20 6d 61 78 25 | 3a 64 62 24 28 4a 25 2c |0 . max%|:db$(J%,|
|00000350| 30 29 3d c4 32 35 35 2c | 22 20 22 29 3a 64 62 24 |0)=.255,|" "):db$|
|00000360| 28 4a 25 2c 31 29 3d c4 | 31 33 34 2c 22 20 22 29 |(J%,1)=.|134," ")|
|00000370| 3a ed 4a 25 0d 00 50 15 | 63 75 72 72 65 6e 74 25 |:.J%..P.|current%|
|00000380| 3d 30 3a 6e 62 72 25 3d | 31 0d 00 5a 04 0d 00 64 |=0:nbr%=|1..Z...d|
|00000390| 0e de 20 6f 70 74 25 28 | 35 30 29 0d 00 6e 0e de |.. opt%(|50)..n..|
|000003a0| 20 6f 70 74 32 25 28 39 | 29 0d 00 78 37 6f 70 74 | opt2%(9|)..x7opt|
|000003b0| 25 28 31 29 3d 31 34 3a | 6f 70 74 25 28 32 29 3d |%(1)=14:|opt%(2)=|
|000003c0| 31 36 3a 6f 70 74 25 28 | 33 29 3d 30 3a 6f 70 74 |16:opt%(|3)=0:opt|
|000003d0| 25 28 34 29 3d 30 3a 6f | 70 74 25 28 35 29 3d 30 |%(4)=0:o|pt%(5)=0|
|000003e0| 0d 00 82 5f 6f 70 74 25 | 28 36 29 3d 31 30 3a 6f |..._opt%|(6)=10:o|
|000003f0| 70 74 25 28 37 29 3d 31 | 31 3a 6f 70 74 25 28 38 |pt%(7)=1|1:opt%(8|
|00000400| 29 3d 31 35 3a 6f 70 74 | 25 28 39 29 3d 32 31 3a |)=15:opt|%(9)=21:|
|00000410| 6f 70 74 25 28 31 30 29 | 3d 32 37 3a 6f 70 74 25 |opt%(10)|=27:opt%|
|00000420| 28 31 31 29 3d 33 34 3a | 6f 70 74 25 28 31 32 29 |(11)=34:|opt%(12)|
|00000430| 3d 34 30 3a 6f 70 74 25 | 28 31 33 29 3d 34 36 0d |=40:opt%|(13)=46.|
|00000440| 00 8c 67 6f 70 74 25 28 | 31 34 29 3d 30 3a 6f 70 |..gopt%(|14)=0:op|
|00000450| 74 25 28 31 35 29 3d 30 | 3a 6f 70 74 25 28 31 36 |t%(15)=0|:opt%(16|
|00000460| 29 3d 30 3a 6f 70 74 25 | 28 31 37 29 3d 30 3a 6f |)=0:opt%|(17)=0:o|
|00000470| 70 74 25 28 31 38 29 3d | 30 3a 6f 70 74 25 28 31 |pt%(18)=|0:opt%(1|
|00000480| 39 29 3d 30 3a 6f 70 74 | 25 28 32 30 29 3d 30 3a |9)=0:opt|%(20)=0:|
|00000490| 6f 70 74 25 28 32 31 29 | 3d 30 3a 6f 70 74 25 28 |opt%(21)|=0:opt%(|
|000004a0| 32 32 29 3d 35 30 0d 00 | 96 5b 6f 70 74 25 28 32 |22)=50..|.[opt%(2|
|000004b0| 33 29 3d 31 3a 6f 70 74 | 25 28 32 34 29 3d 31 3a |3)=1:opt|%(24)=1:|
|000004c0| 6f 70 74 25 28 32 35 29 | 3d 31 3a 6f 70 74 25 28 |opt%(25)|=1:opt%(|
|000004d0| 32 36 29 3d 31 3a 6f 70 | 74 25 28 32 37 29 3d 31 |26)=1:op|t%(27)=1|
|000004e0| 3a 6f 70 74 25 28 32 38 | 29 3d 31 3a 6f 70 74 25 |:opt%(28|)=1:opt%|
|000004f0| 28 32 39 29 3d 31 3a 6f | 70 74 25 28 33 30 29 3d |(29)=1:o|pt%(30)=|
|00000500| 31 0d 00 a0 0c 65 6e 74 | 65 72 25 3d a3 0d 00 aa |1....ent|er%=....|
|00000510| 0c 74 68 69 73 25 3d 2d | 31 0d 00 b4 41 64 72 61 |.this%=-|1...Adra|
|00000520| 67 6d 65 73 73 24 3d 22 | 54 6f 20 73 61 76 65 2c |gmess$="|To save,|
|00000530| 20 64 72 61 67 20 74 68 | 65 20 66 69 6c 65 20 69 | drag th|e file i|
|00000540| 63 6f 6e 20 74 6f 20 61 | 20 64 69 72 65 63 74 6f |con to a| directo|
|00000550| 72 79 20 76 69 65 77 65 | 72 22 0d 00 be 0f de 20 |ry viewe|r"..... |
|00000560| 66 69 6c 65 25 20 32 35 | 36 0d 00 c8 15 24 66 69 |file% 25|6....$fi|
|00000570| 6c 65 25 3d 22 20 20 20 | 20 20 20 20 20 22 0d 00 |le%=" | "..|
|00000580| d2 0f de 20 6f 75 74 76 | 25 20 32 35 36 0d 00 dc |... outv|% 256...|
|00000590| 0e de 20 69 6e 76 25 20 | 32 35 36 0d 00 e6 0e de |.. inv% |256.....|
|000005a0| 20 62 62 6c 25 20 33 32 | 30 0d 00 f0 1e de 20 74 | bbl% 32|0..... t|
|000005b0| 61 73 6b 69 64 25 34 3a | 24 74 61 73 6b 69 64 25 |askid%4:|$taskid%|
|000005c0| 3d 22 54 41 53 4b 22 0d | 00 fa 2f c8 99 20 22 57 |="TASK".|../.. "W|
|000005d0| 69 6d 70 5f 49 6e 69 74 | 69 61 6c 69 73 65 22 2c |imp_Init|ialise",|
|000005e0| 32 30 30 2c 21 74 61 73 | 6b 69 64 25 2c 22 4d 61 |200,!tas|kid%,"Ma|
|000005f0| 6e 61 67 65 72 22 0d 01 | 04 4b 60 77 62 63 6f 6c |nager"..|.K`wbcol|
|00000600| 3d 31 35 3a 60 74 62 63 | 6f 6c 3d 32 3a 60 73 63 |=15:`tbc|ol=2:`sc|
|00000610| 6f 3d 34 3a 60 6d 62 63 | 6f 6c 3d 32 3a 60 77 66 |o=4:`mbc|ol=2:`wf|
|00000620| 63 6f 6c 3d 37 3a 60 74 | 66 63 6f 6c 3d 37 3a 60 |col=7:`t|fcol=7:`|
|00000630| 73 63 69 3d 26 44 3a 60 | 74 62 63 6f 6c 32 3d 26 |sci=&D:`|tbcol2=&|
|00000640| 43 0d 01 0e 09 f2 76 61 | 72 73 0d 01 18 b7 de 20 |C.....va|rs..... |
|00000650| 71 25 20 26 31 30 30 30 | 2c 6f 6c 64 71 25 20 26 |q% &1000|,oldq% &|
|00000660| 31 30 30 30 2c 74 65 6d | 70 25 20 32 35 36 2a 34 |1000,tem|p% 256*4|
|00000670| 2c 74 65 6d 70 32 25 20 | 32 35 31 32 2c 74 65 6d |,temp2% |2512,tem|
|00000680| 70 33 25 20 35 31 32 2c | 74 65 6d 70 34 25 20 35 |p3% 512,|temp4% 5|
|00000690| 31 32 2c 74 65 6d 70 35 | 25 20 35 31 32 2c 74 65 |12,temp5|% 512,te|
|000006a0| 6d 70 36 25 20 32 35 31 | 32 2c 74 65 6d 70 37 25 |mp6% 251|2,temp7%|
|000006b0| 20 31 30 32 34 2c 74 65 | 6d 70 38 25 20 35 31 32 | 1024,te|mp8% 512|
|000006c0| 2c 74 65 6d 70 39 25 20 | 35 31 32 2c 74 65 6d 70 |,temp9% |512,temp|
|000006d0| 61 25 20 31 30 32 34 2c | 62 75 66 66 65 72 25 20 |a% 1024,|buffer% |
|000006e0| 26 32 30 30 2a 32 2c 65 | 6e 64 62 75 66 25 20 2d |&200*2,e|ndbuf% -|
|000006f0| 31 3a 63 75 72 62 75 66 | 25 3d 62 75 66 66 65 72 |1:curbuf|%=buffer|
|00000700| 25 0d 01 22 0e de 20 70 | 74 65 25 20 33 30 30 0d |%..".. p|te% 300.|
|00000710| 01 2c 04 0d 01 36 34 c8 | 99 20 22 57 69 6d 70 5f |.,...64.|. "Wimp_|
|00000720| 4f 70 65 6e 54 65 6d 70 | 6c 61 74 65 22 2c 2c 22 |OpenTemp|late",,"|
|00000730| 3c 4d 61 6e 61 67 65 72 | 24 44 69 72 3e 2e 54 65 |<Manager|$Dir>.Te|
|00000740| 6d 70 6c 61 74 65 22 0d | 01 40 35 ee 20 85 20 c8 |mplate".|.@5. . .|
|00000750| 99 20 22 57 69 6d 70 5f | 43 6c 6f 73 65 54 65 6d |. "Wimp_|CloseTem|
|00000760| 70 6c 61 74 65 22 3a f2 | 65 72 72 6f 72 64 69 73 |plate":.|errordis|
|00000770| 70 6c 61 79 28 9f 2c f6 | 24 2c 9e 29 0d 01 4a 3a |play(.,.|$,.)..J:|
|00000780| c8 99 20 22 57 69 6d 70 | 5f 4c 6f 61 64 54 65 6d |.. "Wimp|_LoadTem|
|00000790| 70 6c 61 74 65 22 2c 2c | 71 25 2c 74 65 6d 70 25 |plate",,|q%,temp%|
|000007a0| 2c 74 65 6d 70 25 2b 32 | 35 36 2c 2d 31 2c 22 49 |,temp%+2|56,-1,"I|
|000007b0| 6e 66 6f 22 2c 30 0d 01 | 54 26 c8 99 20 22 57 69 |nfo",0..|T&.. "Wi|
|000007c0| 6d 70 5f 43 72 65 61 74 | 65 57 69 6e 64 6f 77 22 |mp_Creat|eWindow"|
|000007d0| 2c 2c 71 25 20 b8 20 69 | 6e 66 6f 25 0d 01 5e 3c |,,q% . i|nfo%..^<|
|000007e0| c8 99 20 22 57 69 6d 70 | 5f 4c 6f 61 64 54 65 6d |.. "Wimp|_LoadTem|
|000007f0| 70 6c 61 74 65 22 2c 2c | 71 25 2c 74 65 6d 70 34 |plate",,|q%,temp4|
|00000800| 25 2c 74 65 6d 70 34 25 | 2b 35 31 32 2c 2d 31 2c |%,temp4%|+512,-1,|
|00000810| 22 42 61 73 73 22 2c 30 | 0d 01 68 26 c8 99 20 22 |"Bass",0|..h&.. "|
|00000820| 57 69 6d 70 5f 43 72 65 | 61 74 65 57 69 6e 64 6f |Wimp_Cre|ateWindo|
|00000830| 77 22 2c 2c 71 25 20 b8 | 20 62 61 73 73 25 0d 01 |w",,q% .| bass%..|
|00000840| 72 44 c8 99 20 22 57 69 | 6d 70 5f 4c 6f 61 64 54 |rD.. "Wi|mp_LoadT|
|00000850| 65 6d 70 6c 61 74 65 22 | 2c 2c 71 25 2c 74 65 6d |emplate"|,,q%,tem|
|00000860| 70 32 25 2c 74 65 6d 70 | 32 25 2b 32 35 31 32 2c |p2%,temp|2%+2512,|
|00000870| 2d 31 2c 22 53 6f 66 74 | 4d 61 6e 61 67 65 72 22 |-1,"Soft|Manager"|
|00000880| 2c 30 0d 01 7c 26 c8 99 | 20 22 57 69 6d 70 5f 43 |,0..|&..| "Wimp_C|
|00000890| 72 65 61 74 65 57 69 6e | 64 6f 77 22 2c 2c 71 25 |reateWin|dow",,q%|
|000008a0| 20 b8 20 73 6f 66 74 25 | 0d 01 86 3e c8 99 20 22 | . soft%|...>.. "|
|000008b0| 57 69 6d 70 5f 4c 6f 61 | 64 54 65 6d 70 6c 61 74 |Wimp_Loa|dTemplat|
|000008c0| 65 22 2c 2c 71 25 2c 74 | 65 6d 70 33 25 2c 74 65 |e",,q%,t|emp3%,te|
|000008d0| 6d 70 33 25 2b 35 31 32 | 2c 2d 31 2c 22 73 61 76 |mp3%+512|,-1,"sav|
|000008e0| 65 61 73 22 2c 30 0d 01 | 90 26 c8 99 20 22 57 69 |eas",0..|.&.. "Wi|
|000008f0| 6d 70 5f 43 72 65 61 74 | 65 57 69 6e 64 6f 77 22 |mp_Creat|eWindow"|
|00000900| 2c 2c 71 25 20 b8 20 73 | 61 76 65 25 0d 01 9a 3f |,,q% . s|ave%...?|
|00000910| c8 99 20 22 57 69 6d 70 | 5f 4c 6f 61 64 54 65 6d |.. "Wimp|_LoadTem|
|00000920| 70 6c 61 74 65 22 2c 2c | 71 25 2c 74 65 6d 70 35 |plate",,|q%,temp5|
|00000930| 25 2c 74 65 6d 70 35 25 | 2b 35 31 32 2c 2d 31 2c |%,temp5%|+512,-1,|
|00000940| 22 73 61 76 65 61 73 32 | 22 2c 30 0d 01 a4 27 c8 |"saveas2|",0...'.|
|00000950| 99 20 22 57 69 6d 70 5f | 43 72 65 61 74 65 57 69 |. "Wimp_|CreateWi|
|00000960| 6e 64 6f 77 22 2c 2c 71 | 25 20 b8 20 73 61 76 65 |ndow",,q|% . save|
|00000970| 32 25 0d 01 ae 3e c8 99 | 20 22 57 69 6d 70 5f 4c |2%...>..| "Wimp_L|
|00000980| 6f 61 64 54 65 6d 70 6c | 61 74 65 22 2c 2c 71 25 |oadTempl|ate",,q%|
|00000990| 2c 74 65 6d 70 36 25 2c | 74 65 6d 70 36 25 2b 32 |,temp6%,|temp6%+2|
|000009a0| 35 31 32 2c 2d 31 2c 22 | 70 61 72 61 6d 22 2c 30 |512,-1,"|param",0|
|000009b0| 0d 01 b8 27 c8 99 20 22 | 57 69 6d 70 5f 43 72 65 |...'.. "|Wimp_Cre|
|000009c0| 61 74 65 57 69 6e 64 6f | 77 22 2c 2c 71 25 20 b8 |ateWindo|w",,q% .|
|000009d0| 20 70 61 72 61 6d 25 0d | 01 c2 3f c8 99 20 22 57 | param%.|..?.. "W|
|000009e0| 69 6d 70 5f 4c 6f 61 64 | 54 65 6d 70 6c 61 74 65 |imp_Load|Template|
|000009f0| 22 2c 2c 71 25 2c 74 65 | 6d 70 37 25 2c 74 65 6d |",,q%,te|mp7%,tem|
|00000a00| 70 37 25 2b 31 30 32 34 | 2c 2d 31 2c 22 73 65 61 |p7%+1024|,-1,"sea|
|00000a10| 72 63 68 22 2c 30 0d 01 | cc 26 c8 99 20 22 57 69 |rch",0..|.&.. "Wi|
|00000a20| 6d 70 5f 43 72 65 61 74 | 65 57 69 6e 64 6f 77 22 |mp_Creat|eWindow"|
|00000a30| 2c 2c 71 25 20 b8 20 73 | 65 61 72 25 0d 01 d6 3c |,,q% . s|ear%...<|
|00000a40| c8 99 20 22 57 69 6d 70 | 5f 4c 6f 61 64 54 65 6d |.. "Wimp|_LoadTem|
|00000a50| 70 6c 61 74 65 22 2c 2c | 71 25 2c 74 65 6d 70 38 |plate",,|q%,temp8|
|00000a60| 25 2c 74 65 6d 70 38 25 | 2b 35 31 32 2c 2d 31 2c |%,temp8%|+512,-1,|
|00000a70| 22 68 65 6c 70 22 2c 30 | 0d 01 e0 26 c8 99 20 22 |"help",0|...&.. "|
|00000a80| 57 69 6d 70 5f 43 72 65 | 61 74 65 57 69 6e 64 6f |Wimp_Cre|ateWindo|
|00000a90| 77 22 2c 2c 71 25 20 b8 | 20 68 65 6c 70 25 0d 01 |w",,q% .| help%..|
|00000aa0| ea 3c c8 99 20 22 57 69 | 6d 70 5f 4c 6f 61 64 54 |.<.. "Wi|mp_LoadT|
|00000ab0| 65 6d 70 6c 61 74 65 22 | 2c 2c 71 25 2c 74 65 6d |emplate"|,,q%,tem|
|00000ac0| 70 39 25 2c 74 65 6d 70 | 39 25 2b 35 31 32 2c 2d |p9%,temp|9%+512,-|
|00000ad0| 31 2c 22 77 61 69 74 22 | 2c 30 0d 01 f4 26 c8 99 |1,"wait"|,0...&..|
|00000ae0| 20 22 57 69 6d 70 5f 43 | 72 65 61 74 65 57 69 6e | "Wimp_C|reateWin|
|00000af0| 64 6f 77 22 2c 2c 71 25 | 20 b8 20 77 61 69 74 25 |dow",,q%| . wait%|
|00000b00| 0d 01 fe 3f c8 99 20 22 | 57 69 6d 70 5f 4c 6f 61 |...?.. "|Wimp_Loa|
|00000b10| 64 54 65 6d 70 6c 61 74 | 65 22 2c 2c 71 25 2c 74 |dTemplat|e",,q%,t|
|00000b20| 65 6d 70 61 25 2c 74 65 | 6d 70 61 25 2b 31 30 32 |empa%,te|mpa%+102|
|00000b30| 34 2c 2d 31 2c 22 66 69 | 65 6c 64 73 22 2c 30 0d |4,-1,"fi|elds",0.|
|00000b40| 02 08 26 c8 99 20 22 57 | 69 6d 70 5f 43 72 65 61 |..&.. "W|imp_Crea|
|00000b50| 74 65 57 69 6e 64 6f 77 | 22 2c 2c 71 25 20 b8 20 |teWindow|",,q% . |
|00000b60| 66 69 65 6c 25 0d 02 12 | 1b c8 99 20 22 57 69 6d |fiel%...|... "Wim|
|00000b70| 70 5f 43 6c 6f 73 65 54 | 65 6d 70 6c 61 74 65 22 |p_CloseT|emplate"|
|00000b80| 0d 02 1c 17 ee 85 20 f2 | 65 72 72 6f 72 62 6f 78 |...... .|errorbox|
|00000b90| 3a e5 20 8d 74 5e 42 0d | 02 26 10 f2 67 65 74 6d |:. .t^B.|.&..getm|
|00000ba0| 6f 64 65 69 6e 66 6f 0d | 02 30 04 0d 02 3a 93 f2 |odeinfo.|.0...:..|
|00000bb0| 70 75 74 74 65 78 74 28 | 22 31 2e 30 30 20 28 30 |puttext(|"1.00 (0|
|00000bc0| 34 20 44 65 63 20 31 39 | 39 30 29 22 2c 69 6e 66 |4 Dec 19|90)",inf|
|00000bd0| 6f 25 2c 34 2c 71 25 29 | 3a f2 70 75 74 74 65 78 |o%,4,q%)|:.puttex|
|00000be0| 74 28 c3 28 6d 61 78 25 | 29 2c 73 6f 66 74 25 2c |t(.(max%|),soft%,|
|00000bf0| 35 33 2c 71 25 29 3a f2 | 70 75 74 74 65 78 74 28 |53,q%):.|puttext(|
|00000c00| c3 28 30 29 2c 73 6f 66 | 74 25 2c 35 31 2c 62 62 |.(0),sof|t%,51,bb|
|00000c10| 6c 25 29 3a f2 70 75 74 | 74 65 78 74 28 c3 28 63 |l%):.put|text(.(c|
|00000c20| 75 72 72 65 6e 74 25 29 | 2c 73 6f 66 74 25 2c 34 |urrent%)|,soft%,4|
|00000c30| 39 2c 62 62 6c 25 29 3a | f2 75 70 6f 66 66 0d 02 |9,bbl%):|.upoff..|
|00000c40| 44 04 0d 02 4e 30 53 25 | 3d 8e 22 3c 4d 61 6e 61 |D...N0S%|=."<Mana|
|00000c50| 67 65 72 24 44 69 72 3e | 2e 21 53 70 72 69 74 65 |ger$Dir>|.!Sprite|
|00000c60| 73 22 3a 54 25 3d a2 23 | 53 25 2b 31 36 3a d9 23 |s":T%=.#|S%+16:.#|
|00000c70| 53 25 0d 02 58 11 de 20 | 73 70 72 69 74 65 73 25 |S%..X.. |sprites%|
|00000c80| 20 54 25 0d 02 62 0b de | 20 61 25 20 36 34 0d 02 | T%..b..| a% 64..|
|00000c90| 6c 1d 21 73 70 72 69 74 | 65 73 25 3d 54 25 3a 73 |l.!sprit|es%=T%:s|
|00000ca0| 70 72 69 74 65 73 25 21 | 38 3d 31 0d 02 76 22 c8 |prites%!|8=1..v".|
|00000cb0| 99 20 22 4f 53 5f 53 70 | 72 69 74 65 4f 70 22 2c |. "OS_Sp|riteOp",|
|00000cc0| 26 31 30 39 2c 73 70 72 | 69 74 65 73 25 0d 02 80 |&109,spr|ites%...|
|00000cd0| 3b c8 99 20 22 4f 53 5f | 53 70 72 69 74 65 4f 70 |;.. "OS_|SpriteOp|
|00000ce0| 22 2c 26 31 30 41 2c 73 | 70 72 69 74 65 73 25 2c |",&10A,s|prites%,|
|00000cf0| 22 3c 4d 61 6e 61 67 65 | 72 24 44 69 72 3e 2e 21 |"<Manage|r$Dir>.!|
|00000d00| 53 70 72 69 74 65 73 22 | 0d 02 8a 1d 69 63 6d 61 |Sprites"|....icma|
|00000d10| 6e 61 67 65 25 3d a4 69 | 63 6f 6e 62 61 72 3a f2 |nage%=.i|conbar:.|
|00000d20| 63 6c 65 61 72 0d 02 94 | 05 20 0d 02 9e 3d c8 99 |clear...|. ...=..|
|00000d30| 20 44 72 61 67 2c 2c 2d | 31 3a f2 67 65 74 70 6f | Drag,,-|1:.getpo|
|00000d40| 69 6e 74 65 72 3a 78 6f | 25 3d 6d 6f 75 73 65 78 |inter:xo|%=mousex|
|00000d50| 25 3a 79 6f 25 3d 6d 6f | 75 73 65 79 25 3a 6f 70 |%:yo%=mo|usey%:op|
|00000d60| 65 6e 70 69 25 3d a3 0d | 02 a8 05 f5 0d 02 b2 1b |enpi%=..|........|
|00000d70| 20 20 c8 99 20 50 6f 6c | 6c 25 2c 31 2c 71 25 20 | .. Pol|l%,1,q% |
|00000d80| b8 20 41 25 2c 71 25 0d | 02 bc 0d 20 20 c8 8e 20 |. A%,q%.|... .. |
|00000d90| 41 25 20 ca 0d 02 c6 1e | 20 20 c9 20 31 20 3a f2 |A% .....| . 1 :.|
|00000da0| 72 65 64 72 61 77 5f 77 | 69 6e 64 6f 77 28 21 71 |redraw_w|indow(!q|
|00000db0| 25 29 0d 02 d0 44 20 20 | c9 20 32 20 3a f2 6f 70 |%)...D |. 2 :.op|
|00000dc0| 65 6e 5f 77 69 6e 64 6f | 77 28 21 71 25 2c 71 25 |en_windo|w(!q%,q%|
|00000dd0| 21 34 2c 71 25 21 38 2c | 71 25 21 31 32 2c 71 25 |!4,q%!8,|q%!12,q%|
|00000de0| 21 31 36 2c 71 25 21 32 | 30 2c 71 25 21 32 34 2c |!16,q%!2|0,q%!24,|
|00000df0| 71 25 21 32 38 29 0d 02 | da 1d 20 20 c9 20 33 20 |q%!28)..|.. . 3 |
|00000e00| 3a f2 63 6c 6f 73 65 61 | 77 69 6e 64 6f 77 28 21 |:.closea|window(!|
|00000e10| 71 25 29 0d 02 e4 37 20 | 20 c9 20 36 20 3a f2 63 |q%)...7 | . 6 :.c|
|00000e20| 68 65 63 6b 6d 6f 75 73 | 65 28 21 71 25 2c 71 25 |heckmous|e(!q%,q%|
|00000e30| 21 34 2c 71 25 21 38 2c | 71 25 21 31 32 2c 71 25 |!4,q%!8,|q%!12,q%|
|00000e40| 21 31 36 2c 71 25 21 32 | 30 29 0d 02 ee 41 20 20 |!16,q%!2|0)...A |
|00000e50| c9 20 37 20 3a 24 66 69 | 6c 65 25 3d a4 67 65 74 |. 7 :$fi|le%=.get|
|00000e60| 74 65 78 74 28 74 68 69 | 73 25 2c 31 2c 71 25 29 |text(thi|s%,1,q%)|
|00000e70| 2b bd 28 30 29 3a f2 73 | 65 6e 64 73 61 76 65 28 |+.(0):.s|endsave(|
|00000e80| 26 30 42 32 2c 66 69 6c | 65 25 29 0d 02 f8 1a 20 |&0B2,fil|e%).... |
|00000e90| 20 c9 20 39 20 3a f2 6d | 65 6e 75 73 65 6c 65 63 | . 9 :.m|enuselec|
|00000ea0| 74 28 71 25 29 0d 03 02 | 27 20 20 c9 20 38 20 3a |t(q%)...|' . 8 :|
|00000eb0| f2 65 6e 74 65 72 28 21 | 71 25 2c 71 25 21 34 2c |.enter(!|q%,q%!4,|
|00000ec0| 71 25 21 32 30 2c 71 25 | 21 32 34 29 0d 03 0c 82 |q%!20,q%|!24)....|
|00000ed0| 20 20 c9 20 31 32 3a e7 | 20 21 71 25 3d 73 6f 66 | . 12:.| !q%=sof|
|00000ee0| 74 25 20 80 20 28 71 25 | 21 34 3d 31 37 20 84 20 |t% . (q%|!4=17 . |
|00000ef0| 71 25 21 34 3d 35 20 84 | 20 71 25 21 34 3d 33 30 |q%!4=5 .| q%!4=30|
|00000f00| 20 84 20 71 25 21 34 3d | 37 20 84 20 71 25 21 34 | . q%!4=|7 . q%!4|
|00000f10| 3d 34 36 20 84 20 71 25 | 21 34 3d 32 33 20 84 20 |=46 . q%|!4=23 . |
|00000f20| 71 25 21 34 3d 32 35 20 | 84 20 71 25 21 34 3d 32 |q%!4=25 |. q%!4=2|
|00000f30| 38 20 84 20 71 25 21 34 | 3d 32 31 20 84 20 71 25 |8 . q%!4|=21 . q%|
|00000f40| 21 34 3d 33 31 29 20 8c | 20 f2 75 70 6f 6e 0d 03 |!4=31) .| .upon..|
|00000f50| 16 1a 20 20 c9 20 31 37 | 2c 31 38 3a f2 72 65 63 |.. . 17|,18:.rec|
|00000f60| 65 69 76 65 28 71 25 29 | 0d 03 20 07 20 20 cb 0d |eive(q%)|.. . ..|
|00000f70| 03 2a 07 fd 20 a3 0d 03 | 34 05 20 0d 03 3e 12 dd |.*.. ...|4. ..>..|
|00000f80| 20 f2 72 65 63 65 69 76 | 65 28 71 25 29 0d 03 48 | .receiv|e(q%)..H|
|00000f90| 26 e3 49 25 3d 30 20 b8 | 20 21 71 25 2d 31 20 88 |&.I%=0 .| !q%-1 .|
|00000fa0| 20 34 3a 6f 6c 64 71 25 | 21 49 25 3d 71 25 21 49 | 4:oldq%|!I%=q%!I|
|00000fb0| 25 3a ed 0d 03 52 0e c8 | 8e 20 71 25 21 31 36 20 |%:...R..|. q%!16 |
|00000fc0| ca 0d 03 5c 0f c9 20 30 | 3a f2 66 69 6e 69 73 68 |...\.. 0|:.finish|
|00000fd0| 0d 03 66 0f c9 20 32 3a | f2 73 61 76 65 69 74 0d |..f.. 2:|.saveit.|
|00000fe0| 03 70 23 c9 20 33 3a f2 | 6c 6f 61 64 69 74 32 28 |.p#. 3:.|loadit2(|
|00000ff0| a4 73 74 72 69 6e 67 28 | 71 25 2b 34 34 29 2c 71 |.string(|q%+44),q|
|00001000| 25 29 0d 03 7a 1f c9 20 | 35 3a f2 6c 6f 61 64 69 |%)..z.. |5:.loadi|
|00001010| 74 28 a4 73 74 72 69 6e | 67 28 71 25 2b 34 34 29 |t(.strin|g(q%+44)|
|00001020| 29 0d 03 84 05 cb 0d 03 | 8e 05 e1 0d 03 98 05 20 |).......|....... |
|00001030| 0d 03 a2 37 dd 20 f2 63 | 68 65 63 6b 6d 6f 75 73 |...7. .c|heckmous|
|00001040| 65 28 6d 6f 75 73 65 78 | 25 2c 6d 6f 75 73 65 79 |e(mousex|%,mousey|
|00001050| 25 2c 62 25 2c 68 61 6e | 64 6c 65 25 2c 69 63 6f |%,b%,han|dle%,ico|
|00001060| 6e 25 2c 6f 62 25 29 0d | 03 ac 2b e7 20 68 61 6e |n%,ob%).|..+. han|
|00001070| 64 6c 65 25 3c 3e 73 65 | 61 72 25 20 8c 20 f2 63 |dle%<>se|ar% . .c|
|00001080| 6c 6f 73 65 61 77 69 6e | 64 6f 77 28 73 65 61 72 |loseawin|dow(sear|
|00001090| 25 29 0d 03 b6 0c e7 28 | 62 25 80 32 29 8c 0d 03 |%).....(|b%.2)...|
|000010a0| c0 12 20 20 c8 8e 20 68 | 61 6e 64 6c 65 25 20 ca |.. .. h|andle% .|
|000010b0| 0d 03 ca 0a 20 20 c9 20 | 2d 32 0d 03 d4 4c 20 20 |.... . |-2...L |
|000010c0| 20 20 f2 64 6f 6d 65 6e | 75 28 31 30 31 2c 22 3e | .domen|u(101,">|
|000010d0| 49 6e 66 6f 2c 2d 3e 41 | 62 6f 75 74 20 42 41 53 |Info,->A|bout BAS|
|000010e0| 53 2c 2d 3e 53 61 76 65 | 20 46 69 6c 65 2c 51 75 |S,->Save| File,Qu|
|000010f0| 69 74 22 2c 22 53 6f 66 | 74 20 4d 61 6e 61 67 65 |it","Sof|t Manage|
|00001100| 72 20 22 2c 30 29 0d 03 | de 0d 20 20 c9 20 73 6f |r ",0)..|.. . so|
|00001110| 66 74 25 0d 03 e8 74 20 | 20 20 20 f2 64 6f 6d 65 |ft%...t | .dome|
|00001120| 6e 75 28 31 30 31 2c 22 | 62 79 20 6e 61 6d 65 2c |nu(101,"|by name,|
|00001130| 62 79 20 64 69 73 63 2c | 62 79 20 66 69 6c 65 6e |by disc,|by filen|
|00001140| 61 6d 65 2c 62 79 20 74 | 79 70 65 2c 62 79 20 66 |ame,by t|ype,by f|
|00001150| 69 6c 65 74 79 70 65 2c | 62 79 20 61 75 74 68 6f |iletype,|by autho|
|00001160| 72 73 2c 62 79 20 6c 65 | 6e 2c 62 79 20 64 61 74 |rs,by le|n,by dat|
|00001170| 65 2c 62 79 20 66 69 72 | 6d 22 2c 22 53 6f 72 74 |e,by fir|m","Sort|
|00001180| 69 6e 67 22 2c 31 29 0d | 03 f2 07 20 20 cb 0d 03 |ing",1).|... ...|
|00001190| fc 05 cd 0d 04 06 0c e7 | 28 62 25 80 34 29 8c 0d |........|(b%.4)..|
|000011a0| 04 10 20 20 20 e7 68 61 | 6e 64 6c 65 25 3e 2d 31 |.. .ha|ndle%>-1|
|000011b0| 8c f2 67 65 74 77 28 68 | 61 6e 64 6c 65 25 29 0d |..getw(h|andle%).|
|000011c0| 04 1a 12 20 20 c8 8e 20 | 68 61 6e 64 6c 65 25 20 |... .. |handle% |
|000011d0| ca 0d 04 24 3e 20 20 20 | 20 c9 20 2d 32 3a e7 6f |...$> | . -2:.o|
|000011e0| 70 65 6e 70 69 25 20 f2 | 66 72 6f 6e 74 28 73 6f |penpi% .|front(so|
|000011f0| 66 74 25 29 20 8b 20 f2 | 72 65 6f 70 65 6e 28 73 |ft%) . .|reopen(s|
|00001200| 6f 66 74 25 29 3a 6f 70 | 65 6e 70 69 25 3d b9 0d |oft%):op|enpi%=..|
|00001210| 04 2e 36 20 20 20 20 c9 | 20 73 61 76 65 25 3a e7 |..6 .| save%:.|
|00001220| 20 69 63 6f 6e 25 3d 30 | 20 8c 20 f2 73 61 76 65 | icon%=0| . .save|
|00001230| 20 8b 20 e7 20 69 63 6f | 6e 25 3d 32 20 8c 20 f2 | . . ico|n%=2 . .|
|00001240| 73 61 76 65 78 0d 04 38 | 39 20 20 20 20 c9 20 73 |savex..8|9 . s|
|00001250| 61 76 65 32 25 3a e7 20 | 69 63 6f 6e 25 3d 30 20 |ave2%:. |icon%=0 |
|00001260| 8c 20 f2 73 61 76 65 32 | 20 8b 20 e7 20 69 63 6f |. .save2| . . ico|
|00001270| 6e 25 3d 32 20 8c 20 f2 | 73 61 76 65 32 78 0d 04 |n%=2 . .|save2x..|
|00001280| 42 24 20 20 20 20 c9 20 | 73 6f 66 74 25 20 3a 20 |B$ . |soft% : |
|00001290| f2 6c 6f 6f 6b 62 75 74 | 74 6f 6e 28 69 63 6f 6e |.lookbut|ton(icon|
|000012a0| 25 29 0d 04 4c 26 20 20 | 20 20 c9 20 70 61 72 61 |%)..L& | . para|
|000012b0| 6d 25 20 3a 20 f2 6c 6f | 6f 6b 62 75 74 74 6f 6e |m% : .lo|okbutton|
|000012c0| 32 28 69 63 6f 6e 25 29 | 0d 04 56 25 20 20 20 20 |2(icon%)|..V% |
|000012d0| c9 20 73 65 61 72 25 20 | 3a 20 f2 6c 6f 6f 6b 62 |. sear% |: .lookb|
|000012e0| 75 74 74 6f 6e 33 28 69 | 63 6f 6e 25 29 0d 04 60 |utton3(i|con%)..`|
|000012f0| 25 20 20 20 20 c9 20 66 | 69 65 6c 25 20 3a 20 f2 |% . f|iel% : .|
|00001300| 6c 6f 6f 6b 62 75 74 74 | 6f 6e 34 28 69 63 6f 6e |lookbutt|on4(icon|
|00001310| 25 29 0d 04 6a 07 20 20 | cb 0d 04 74 05 cd 0d 04 |%)..j. |...t....|
|00001320| 7e 05 e1 0d 04 88 05 20 | 0d 04 92 54 dd 20 f2 63 |~...... |...T. .c|
|00001330| 6c 6f 73 65 61 77 69 6e | 64 6f 77 28 68 61 6e 64 |loseawin|dow(hand|
|00001340| 6c 65 25 29 3a f2 67 65 | 74 77 28 68 61 6e 64 6c |le%):.ge|tw(handl|
|00001350| 65 25 29 3a 78 6f 25 3d | 78 30 25 3a 79 6f 25 3d |e%):xo%=|x0%:yo%=|
|00001360| 79 30 25 3a f2 63 6c 6f | 73 65 5f 77 69 6e 64 6f |y0%:.clo|se_windo|
|00001370| 77 28 68 61 6e 64 6c 65 | 25 29 3a e1 0d 04 9c 05 |w(handle|%):.....|
|00001380| 20 0d 04 a6 0e dd 20 f2 | 66 69 6e 69 73 68 3a 0d | ..... .|finish:.|
|00001390| 04 b0 15 f2 69 73 5f 69 | 74 5f 73 61 76 65 64 28 |....is_i|t_saved(|
|000013a0| 6f 6b 25 29 0d 04 ba 0f | e7 20 6f 6b 25 3d 31 20 |ok%)....|. ok%=1 |
|000013b0| 8c 20 e1 0d 04 c4 19 c8 | 99 20 22 57 69 6d 70 5f |. ......|. "Wimp_|
|000013c0| 43 6c 6f 73 65 44 6f 77 | 6e 22 3a e1 0d 04 ce 05 |CloseDow|n":.....|
|000013d0| 20 0d 04 d8 2e dd 20 f2 | 64 6f 6d 65 6e 75 28 68 | ..... .|domenu(h|
|000013e0| 61 6e 64 6c 65 25 2c 6d | 65 6e 75 24 2c 6d 65 6e |andle%,m|enu$,men|
|000013f0| 75 74 69 74 6c 65 24 2c | 69 63 6f 6e 62 25 29 0d |utitle$,|iconb%).|
|00001400| 04 e2 ba 6d 65 6e 75 68 | 61 6e 64 6c 65 25 3d 68 |...menuh|andle%=h|
|00001410| 61 6e 64 6c 65 25 3a 6d | 65 6e 75 70 74 72 25 3d |andle%:m|enuptr%=|
|00001420| 62 75 66 66 65 72 25 3a | 69 25 3d 30 3a 6d 65 6e |buffer%:|i%=0:men|
|00001430| 75 70 74 72 25 21 32 30 | 3d 34 30 3a 24 6d 65 6e |uptr%!20|=40:$men|
|00001440| 75 70 74 72 25 3d 6d 65 | 6e 75 74 69 74 6c 65 24 |uptr%=me|nutitle$|
|00001450| 3a 6d 65 6e 75 70 74 72 | 25 3f 31 32 3d 37 3a 6d |:menuptr|%?12=7:m|
|00001460| 65 6e 75 70 74 72 25 3f | 31 33 3d 32 3a 6d 65 6e |enuptr%?|13=2:men|
|00001470| 75 70 74 72 25 3f 31 34 | 3d 37 3a 6d 65 6e 75 70 |uptr%?14|=7:menup|
|00001480| 74 72 25 3f 31 35 3d 30 | 3a 6d 65 6e 75 70 74 72 |tr%?15=0|:menuptr|
|00001490| 25 21 31 36 3d 31 39 36 | 2d 32 34 2b 33 32 3a 6d |%!16=196|-24+32:m|
|000014a0| 65 6e 75 70 74 72 25 21 | 32 34 3d 30 3a 6d 65 6e |enuptr%!|24=0:men|
|000014b0| 75 70 74 72 25 2b 3d 32 | 38 0d 04 ec 31 f5 20 69 |uptr%+=2|8...1. i|
|000014c0| 74 65 6d 24 3d a4 70 61 | 72 28 22 2c 22 29 3a f2 |tem$=.pa|r(","):.|
|000014d0| 6d 65 6e 75 69 74 65 6d | 28 69 74 65 6d 24 29 3a |menuitem|(item$):|
|000014e0| fd 20 69 74 65 6d 24 3d | 22 22 0d 04 f6 23 6d 65 |. item$=|""...#me|
|000014f0| 6e 75 70 74 72 25 21 2d | 32 34 3d 28 6d 65 6e 75 |nuptr%!-|24=(menu|
|00001500| 70 74 72 25 21 2d 32 34 | 29 84 26 38 30 0d 05 00 |ptr%!-24|).&80...|
|00001510| 5d e7 20 69 63 6f 6e 62 | 25 3d 30 20 8c 20 c8 99 |]. iconb|%=0 . ..|
|00001520| 20 43 72 4d 65 6e 75 2c | 2c 62 75 66 66 65 72 25 | CrMenu,|,buffer%|
|00001530| 2c 6d 6f 75 73 65 78 25 | 2d 36 34 2c 33 34 36 2d |,mousex%|-64,346-|
|00001540| 34 30 20 8b 20 c8 99 20 | 43 72 4d 65 6e 75 2c 2c |40 . .. |CrMenu,,|
|00001550| 62 75 66 66 65 72 25 2c | 6d 6f 75 73 65 78 25 2d |buffer%,|mousex%-|
|00001560| 36 34 2c 6d 6f 75 73 65 | 79 25 0d 05 0a 05 e1 0d |64,mouse|y%......|
|00001570| 05 14 05 20 0d 05 1e 16 | dd 20 f2 6d 65 6e 75 69 |... ....|. .menui|
|00001580| 74 65 6d 28 74 65 78 74 | 24 29 0d 05 28 10 e7 20 |tem(text|$)..(.. |
|00001590| 74 65 78 74 24 3d 22 22 | 20 e1 0d 05 32 0f 21 6d |text$=""| ...2.!m|
|000015a0| 65 6e 75 70 74 72 25 3d | 30 0d 05 3c 40 e7 20 c0 |enuptr%=|0..<@. .|
|000015b0| 74 65 78 74 24 2c 31 29 | 3d 22 2d 22 20 8c 20 21 |text$,1)|="-" . !|
|000015c0| 6d 65 6e 75 70 74 72 25 | 3d 28 21 6d 65 6e 75 70 |menuptr%|=(!menup|
|000015d0| 74 72 25 29 84 20 26 30 | 32 3a 74 65 78 74 24 3d |tr%). &0|2:text$=|
|000015e0| c1 74 65 78 74 24 2c 32 | 29 0d 05 46 40 e7 20 c0 |.text$,2|)..F@. .|
|000015f0| 74 65 78 74 24 2c 31 29 | 3d 22 5e 22 20 8c 20 21 |text$,1)|="^" . !|
|00001600| 6d 65 6e 75 70 74 72 25 | 3d 28 21 6d 65 6e 75 70 |menuptr%|=(!menup|
|00001610| 74 72 25 29 84 20 26 30 | 31 3a 74 65 78 74 24 3d |tr%). &0|1:text$=|
|00001620| c1 74 65 78 74 24 2c 32 | 29 0d 05 50 11 6d 65 6e |.text$,2|)..P.men|
|00001630| 75 70 74 72 25 21 34 3d | 2d 31 0d 05 5a 27 e7 20 |uptr%!4=|-1..Z'. |
|00001640| c0 74 65 78 74 24 2c 34 | 29 3d 22 3e 49 6e 66 22 |.text$,4|)=">Inf"|
|00001650| 20 6d 65 6e 75 70 74 72 | 25 21 34 3d 69 6e 66 6f | menuptr|%!4=info|
|00001660| 25 0d 05 64 27 e7 20 c0 | 74 65 78 74 24 2c 34 29 |%..d'. .|text$,4)|
|00001670| 3d 22 3e 41 62 6f 22 20 | 6d 65 6e 75 70 74 72 25 |=">Abo" |menuptr%|
|00001680| 21 34 3d 62 61 73 73 25 | 0d 05 6e 27 e7 20 c0 74 |!4=bass%|..n'. .t|
|00001690| 65 78 74 24 2c 34 29 3d | 22 3e 53 61 76 22 20 6d |ext$,4)=|">Sav" m|
|000016a0| 65 6e 75 70 74 72 25 21 | 34 3d 73 61 76 65 25 0d |enuptr%!|4=save%.|
|000016b0| 05 78 1a f4 20 6d 65 6e | 75 70 74 72 25 21 38 3d |.x.. men|uptr%!8=|
|000016c0| 26 41 37 30 30 30 30 32 | 31 0d 05 79 18 6d 65 6e |&A700002|1..y.men|
|000016d0| 75 70 74 72 25 21 38 3d | 26 30 37 30 30 30 30 32 |uptr%!8=|&0700002|
|000016e0| 31 0d 05 82 43 e7 20 c0 | 74 65 78 74 24 2c 31 29 |1...C. .|text$,1)|
|000016f0| 3d 22 3e 22 20 24 28 6d | 65 6e 75 70 74 72 25 2b |=">" $(m|enuptr%+|
|00001700| 31 32 29 3d c1 74 65 78 | 74 24 2c 32 29 20 8b 20 |12)=.tex|t$,2) . |
|00001710| 24 28 6d 65 6e 75 70 74 | 72 25 2b 31 32 29 3d 74 |$(menupt|r%+12)=t|
|00001720| 65 78 74 24 0d 05 8c 10 | 6d 65 6e 75 70 74 72 25 |ext$....|menuptr%|
|00001730| 2b 3d 32 34 0d 05 96 05 | e1 0d 05 a0 05 20 0d 05 |+=24....|..... ..|
|00001740| aa 10 dd 20 a4 70 61 72 | 28 73 65 70 24 29 0d 05 |... .par|(sep$)..|
|00001750| b4 25 69 31 25 3d 69 25 | 2b 31 3a 69 25 3d a7 6d |.%i1%=i%|+1:i%=.m|
|00001760| 65 6e 75 24 2b 73 65 70 | 24 2c 73 65 70 24 2c 69 |enu$+sep|$,sep$,i|
|00001770| 31 25 29 0d 05 be 17 3d | c1 6d 65 6e 75 24 2c 69 |1%)....=|.menu$,i|
|00001780| 31 25 2c 69 25 2d 69 31 | 25 29 0d 05 c8 05 20 0d |1%,i%-i1|%).... .|
|00001790| 05 d2 19 dd 20 f2 6d 65 | 6e 75 73 65 6c 65 63 74 |.... .me|nuselect|
|000017a0| 28 6d 65 6e 75 73 25 29 | 0d 05 dc 2d c8 99 20 44 |(menus%)|...-.. D|
|000017b0| 63 4d 65 6e 75 2c 2c 62 | 75 66 66 65 72 25 2c 6d |cMenu,,b|uffer%,m|
|000017c0| 65 6e 75 73 25 2c c4 32 | 30 30 2c 22 20 22 29 b8 |enus%,.2|00," ").|
|000017d0| 2c 2c 2c 61 24 0d 05 e6 | 0f e7 20 61 24 3d 22 22 |,,,a$...|.. a$=""|
|000017e0| 20 8c 20 e1 0d 05 f0 14 | c8 8e 20 6d 65 6e 75 68 | . .....|.. menuh|
|000017f0| 61 6e 64 6c 65 25 20 ca | 0d 05 fa 14 c9 20 31 30 |andle% .|..... 10|
|00001800| 31 3a f2 74 72 65 61 74 | 6d 65 6e 75 0d 06 04 05 |1:.treat|menu....|
|00001810| cb 0d 06 0e 05 e1 0d 06 | 18 05 20 0d 06 22 05 20 |........|.. ..". |
|00001820| 0d 06 2c 15 dd 20 f2 66 | 72 6f 6e 74 28 68 61 6e |..,.. .f|ront(han|
|00001830| 64 6c 65 25 29 0d 06 36 | 11 e7 68 61 6e 64 6c 65 |dle%)..6|..handle|
|00001840| 25 3d 2d 31 8c e1 0d 06 | 40 47 f2 67 65 74 77 28 |%=-1....|@G.getw(|
|00001850| 68 61 6e 64 6c 65 25 29 | 3a f2 6f 70 65 6e 5f 77 |handle%)|:.open_w|
|00001860| 69 6e 64 6f 77 28 68 61 | 6e 64 6c 65 25 2c 78 30 |indow(ha|ndle%,x0|
|00001870| 25 2c 79 30 25 2c 78 31 | 25 2c 79 31 25 2c 73 63 |%,y0%,x1|%,y1%,sc|
|00001880| 78 25 2c 73 63 79 25 2c | 2d 31 29 3a e1 0d 06 4a |x%,scy%,|-1):...J|
|00001890| 05 20 0d 06 54 96 dd 20 | f2 70 6f 70 75 70 28 68 |. ..T.. |.popup(h|
|000018a0| 61 6e 64 6c 65 25 29 3a | f2 67 65 74 77 28 68 61 |andle%):|.getw(ha|
|000018b0| 6e 64 6c 65 25 29 3a 78 | 6f 25 3d 6d 6f 75 73 65 |ndle%):x|o%=mouse|
|000018c0| 78 25 2d 28 78 30 25 2b | 78 31 25 29 2f 32 3a 79 |x%-(x0%+|x1%)/2:y|
|000018d0| 6f 25 3d 6d 6f 75 73 65 | 79 25 2d 28 79 31 25 2b |o%=mouse|y%-(y1%+|
|000018e0| 36 34 29 3a f2 6f 70 65 | 6e 5f 77 69 6e 64 6f 77 |64):.ope|n_window|
|000018f0| 28 68 61 6e 64 6c 65 25 | 2c 78 30 25 2b 78 6f 25 |(handle%|,x0%+xo%|
|00001900| 2c 79 30 25 2b 79 6f 25 | 2c 78 31 25 2b 78 6f 25 |,y0%+yo%|,x1%+xo%|
|00001910| 2c 79 31 25 2b 79 6f 25 | 2c 73 63 78 25 2c 73 63 |,y1%+yo%|,scx%,sc|
|00001920| 79 25 2c 2d 31 29 3a e1 | 0d 06 5e 05 20 0d 06 68 |y%,-1):.|..^. ..h|
|00001930| a2 dd 20 f2 72 65 6f 70 | 65 6e 28 68 61 6e 64 6c |.. .reop|en(handl|
|00001940| 65 25 29 3a 21 71 25 3d | 68 61 6e 64 6c 65 25 3a |e%):!q%=|handle%:|
|00001950| c8 99 20 22 57 69 6d 70 | 5f 47 65 74 57 69 6e 64 |.. "Wimp|_GetWind|
|00001960| 6f 77 49 6e 66 6f 22 2c | 2c 71 25 3a f2 6f 70 65 |owInfo",|,q%:.ope|
|00001970| 6e 5f 77 69 6e 64 6f 77 | 28 21 71 25 2c 71 25 21 |n_window|(!q%,q%!|
|00001980| 34 2c 71 25 21 38 2c 71 | 25 21 31 32 2c 71 25 21 |4,q%!8,q|%!12,q%!|
|00001990| 31 36 2c 71 25 21 32 30 | 2c 71 25 21 32 34 2c 71 |16,q%!20|,q%!24,q|
|000019a0| 25 21 32 38 29 3a 21 71 | 25 3d 68 61 6e 64 6c 65 |%!28):!q|%=handle|
|000019b0| 25 3a c8 99 20 22 57 69 | 6d 70 5f 47 65 74 57 69 |%:.. "Wi|mp_GetWi|
|000019c0| 6e 64 6f 77 49 6e 66 6f | 22 2c 2c 71 25 3a e1 0d |ndowInfo|",,q%:..|
|000019d0| 06 72 05 20 0d 06 7c 3e | dd 20 f2 6f 70 65 6e 5f |.r. ..|>|. .open_|
|000019e0| 77 69 6e 64 6f 77 28 68 | 61 6e 64 6c 65 25 2c 78 |window(h|andle%,x|
|000019f0| 30 25 2c 79 30 25 2c 78 | 31 25 2c 79 31 25 2c 73 |0%,y0%,x|1%,y1%,s|
|00001a00| 63 78 25 2c 73 63 79 25 | 2c 62 68 61 6e 64 6c 65 |cx%,scy%|,bhandle|
|00001a10| 25 29 0d 06 86 11 e7 68 | 61 6e 64 6c 65 25 3d 2d |%).....h|andle%=-|
|00001a20| 31 8c e1 0d 06 90 6a 71 | 25 21 30 3d 68 61 6e 64 |1.....jq|%!0=hand|
|00001a30| 6c 65 25 3a 71 25 21 32 | 38 3d 62 68 61 6e 64 6c |le%:q%!2|8=bhandl|
|00001a40| 65 25 3a 71 25 21 34 3d | 78 30 25 3a 71 25 21 38 |e%:q%!4=|x0%:q%!8|
|00001a50| 3d 79 30 25 3a 71 25 21 | 31 32 3d 78 31 25 3a 71 |=y0%:q%!|12=x1%:q|
|00001a60| 25 21 31 36 3d 79 31 25 | 3a 71 25 21 32 30 3d 73 |%!16=y1%|:q%!20=s|
|00001a70| 63 78 25 3a 71 25 21 32 | 34 3d 73 63 79 25 3a c8 |cx%:q%!2|4=scy%:.|
|00001a80| 99 20 4f 70 65 6e 57 2c | 2c 71 25 3a e1 0d 06 9a |. OpenW,|,q%:....|
|00001a90| 05 20 0d 06 a4 56 dd 20 | f2 67 65 74 77 28 68 61 |. ...V. |.getw(ha|
|00001aa0| 6e 64 6c 65 25 29 3a 21 | 71 25 3d 68 61 6e 64 6c |ndle%):!|q%=handl|
|00001ab0| 65 25 3a c8 99 20 47 65 | 74 57 2c 2c 71 25 3a f2 |e%:.. Ge|tW,,q%:.|
|00001ac0| 69 6e 66 6f 28 71 25 2b | 34 29 3a 62 68 61 6e 64 |info(q%+|4):bhand|
|00001ad0| 6c 65 25 3d 71 25 21 32 | 38 3a 66 6c 61 67 73 25 |le%=q%!2|8:flags%|
|00001ae0| 3d 71 25 21 33 32 3a e1 | 0d 06 ae 05 20 0d 06 b8 |=q%!32:.|.... ...|
|00001af0| 65 dd 20 f2 69 6e 66 6f | 28 71 25 29 3a 78 30 25 |e. .info|(q%):x0%|
|00001b00| 3d 21 71 25 3a 79 30 25 | 3d 71 25 21 34 3a 78 31 |=!q%:y0%|=q%!4:x1|
|00001b10| 25 3d 71 25 21 38 3a 79 | 31 25 3d 71 25 21 31 32 |%=q%!8:y|1%=q%!12|
|00001b20| 3a 73 63 78 25 3d 71 25 | 21 31 36 3a 73 63 79 25 |:scx%=q%|!16:scy%|
|00001b30| 3d 71 25 21 32 30 3a 62 | 78 25 3d 78 30 25 2d 73 |=q%!20:b|x%=x0%-s|
|00001b40| 63 78 25 3a 62 79 25 3d | 79 31 25 2d 73 63 79 25 |cx%:by%=|y1%-scy%|
|00001b50| 3a e1 0d 06 c2 05 20 0d | 06 cc 85 dd 20 f2 75 70 |:..... .|.... .up|
|00001b60| 64 61 74 65 28 68 61 6e | 64 6c 65 25 2c 75 78 30 |date(han|dle%,ux0|
|00001b70| 25 2c 75 79 30 25 2c 75 | 78 31 25 2c 75 79 31 25 |%,uy0%,u|x1%,uy1%|
|00001b80| 29 3a 21 71 25 3d 68 61 | 6e 64 6c 65 25 3a 71 25 |):!q%=ha|ndle%:q%|
|00001b90| 21 34 3d 75 78 30 25 3a | 71 25 21 38 3d 75 79 30 |!4=ux0%:|q%!8=uy0|
|00001ba0| 25 3a 71 25 21 31 32 3d | 75 78 31 25 3a 71 25 21 |%:q%!12=|ux1%:q%!|
|00001bb0| 31 36 3d 75 79 31 25 3a | c8 99 20 55 70 64 61 74 |16=uy1%:|.. Updat|
|00001bc0| 65 57 2c 2c 71 25 20 b8 | 20 6d 6f 72 65 25 3a f2 |eW,,q% .| more%:.|
|00001bd0| 69 6e 66 6f 28 71 25 2b | 34 29 3a e1 0d 06 d6 05 |info(q%+|4):.....|
|00001be0| 20 0d 06 e0 76 dd 20 f2 | 72 65 64 72 61 77 5f 77 | ...v. .|redraw_w|
|00001bf0| 69 6e 64 6f 77 28 68 61 | 6e 64 6c 65 25 29 3a 21 |indow(ha|ndle%):!|
|00001c00| 71 25 3d 68 61 6e 64 6c | 65 25 3a c8 99 20 52 65 |q%=handl|e%:.. Re|
|00001c10| 64 72 61 77 57 2c 2c 71 | 25 20 b8 20 6d 6f 72 65 |drawW,,q|% . more|
|00001c20| 25 3a 21 71 25 3d 68 61 | 6e 64 6c 65 25 3a c8 99 |%:!q%=ha|ndle%:..|
|00001c30| 20 22 57 69 6d 70 5f 47 | 65 74 57 69 6e 64 6f 77 | "Wimp_G|etWindow|
|00001c40| 49 6e 66 6f 22 2c 2c 71 | 25 3a f2 69 6e 66 6f 28 |Info",,q|%:.info(|
|00001c50| 71 25 2b 34 29 3a e1 0d | 06 ea 05 20 0d 06 f4 38 |q%+4):..|... ...8|
|00001c60| dd 20 f2 63 6c 6f 73 65 | 5f 77 69 6e 64 6f 77 28 |. .close|_window(|
|00001c70| 68 61 6e 64 6c 65 25 29 | 3a 21 71 25 3d 68 61 6e |handle%)|:!q%=han|
|00001c80| 64 6c 65 25 3a c8 99 20 | 43 6c 6f 73 65 57 2c 2c |dle%:.. |CloseW,,|
|00001c90| 71 25 3a e1 0d 06 fe 05 | 20 0d 07 08 e6 dd 20 f2 |q%:.....| ..... .|
|00001ca0| 76 61 72 73 3a 57 69 6d | 70 20 20 20 20 3d 20 28 |vars:Wim|p = (|
|00001cb0| 31 3c 3c 31 38 29 20 2b | 20 28 33 3c 3c 36 29 3a |1<<18) +| (3<<6):|
|00001cc0| 43 72 65 61 74 65 57 20 | 3d 20 57 69 6d 70 2b 31 |CreateW |= Wimp+1|
|00001cd0| 3a 4f 70 65 6e 57 20 3d | 20 57 69 6d 70 2b 35 3a |:OpenW =| Wimp+5:|
|00001ce0| 43 6c 6f 73 65 57 20 3d | 20 57 69 6d 70 2b 36 3a |CloseW =| Wimp+6:|
|00001cf0| 50 6f 6c 6c 25 20 3d 20 | 57 69 6d 70 2b 37 3a 52 |Poll% = |Wimp+7:R|
|00001d00| 65 64 72 61 77 57 20 3d | 20 57 69 6d 70 2b 38 3a |edrawW =| Wimp+8:|
|00001d10| 55 70 64 61 74 65 57 20 | 3d 20 57 69 6d 70 2b 39 |UpdateW |= Wimp+9|
|00001d20| 3a 47 65 74 52 25 20 3d | 20 57 69 6d 70 2b 31 30 |:GetR% =| Wimp+10|
|00001d30| 3a 47 65 74 57 20 3d 20 | 57 69 6d 70 2b 31 31 3a |:GetW = |Wimp+11:|
|00001d40| 47 65 74 50 20 3d 20 57 | 69 6d 70 2b 31 35 3a 44 |GetP = W|imp+15:D|
|00001d50| 72 61 67 20 3d 20 57 69 | 6d 70 2b 31 36 3a 43 72 |rag = Wi|mp+16:Cr|
|00001d60| 4d 65 6e 75 20 3d 20 57 | 69 6d 70 2b 32 30 3a 44 |Menu = W|imp+20:D|
|00001d70| 63 4d 65 6e 75 20 3d 20 | 57 69 6d 70 2b 32 31 0d |cMenu = |Wimp+21.|
|00001d80| 07 12 3a c8 99 20 22 4f | 53 5f 53 57 49 4e 75 6d |..:.. "O|S_SWINum|
|00001d90| 62 65 72 46 72 6f 6d 53 | 74 72 69 6e 67 22 2c 2c |berFromS|tring",,|
|00001da0| 22 57 69 6d 70 5f 53 65 | 74 43 6f 6c 6f 75 72 22 |"Wimp_Se|tColour"|
|00001db0| 20 b8 20 43 6f 6c 25 3a | e1 0d 07 1c 05 20 0d 07 | . Col%:|..... ..|
|00001dc0| 26 11 dd 20 f2 67 65 74 | 70 6f 69 6e 74 65 72 0d |&.. .get|pointer.|
|00001dd0| 07 30 0f c8 99 20 47 65 | 74 50 2c 2c 71 25 0d 07 |.0... Ge|tP,,q%..|
|00001de0| 3a 48 6d 6f 75 73 65 78 | 25 3d 21 71 25 3a 6d 6f |:Hmousex|%=!q%:mo|
|00001df0| 75 73 65 79 25 3d 71 25 | 21 34 3a 62 25 3d 71 25 |usey%=q%|!4:b%=q%|
|00001e00| 21 38 3a 68 61 6e 64 6c | 65 25 3d 71 25 21 31 32 |!8:handl|e%=q%!12|
|00001e10| 3a 69 63 6f 6e 25 3d 71 | 25 21 31 36 3a 6f 62 25 |:icon%=q|%!16:ob%|
|00001e20| 3d 71 25 21 32 30 0d 07 | 44 05 e1 0d 07 4e 05 20 |=q%!20..|D....N. |
|00001e30| 0d 07 58 0f dd 20 f2 65 | 72 72 6f 72 62 6f 78 0d |..X.. .e|rrorbox.|
|00001e40| 07 62 0f c8 99 20 44 72 | 61 67 2c 2c 2d 31 0d 07 |.b... Dr|ag,,-1..|
|00001e50| 6c 30 21 62 75 66 66 65 | 72 25 3d 9f 3a 24 28 62 |l0!buffe|r%=.:$(b|
|00001e60| 75 66 66 65 72 25 2b 34 | 29 3d f6 24 2b 22 20 61 |uffer%+4|)=.$+" a|
|00001e70| 74 20 6c 69 6e 65 20 22 | 2b c3 9e 2b bd 30 0d 07 |t line "|+..+.0..|
|00001e80| 76 32 c8 99 20 22 57 69 | 6d 70 5f 52 65 70 6f 72 |v2.. "Wi|mp_Repor|
|00001e90| 74 45 72 72 6f 72 22 2c | 62 75 66 66 65 72 25 2c |tError",|buffer%,|
|00001ea0| 31 2c 22 53 6f 66 74 20 | 4d 61 6e 61 67 65 72 22 |1,"Soft |Manager"|
|00001eb0| 0d 07 80 0d f2 66 69 6e | 69 73 68 3a e0 0d 07 8a |.....fin|ish:....|
|00001ec0| 05 e1 0d 07 94 04 0d 07 | 9e 79 dd f2 77 61 72 6e |........|.y..warn|
|00001ed0| 69 6e 67 28 78 24 29 3a | 21 62 75 66 66 65 72 25 |ing(x$):|!buffer%|
|00001ee0| 3d 30 3a 24 28 62 75 66 | 66 65 72 25 2b 34 29 3d |=0:$(buf|fer%+4)=|
|00001ef0| 78 24 3a c8 99 20 22 57 | 69 6d 70 5f 52 65 70 6f |x$:.. "W|imp_Repo|
|00001f00| 72 74 45 72 72 6f 72 22 | 2c 62 75 66 66 65 72 25 |rtError"|,buffer%|
|00001f10| 2c 31 37 2c 22 57 61 72 | 6e 69 6e 67 20 66 72 6f |,17,"War|ning fro|
|00001f20| 6d 20 74 68 65 20 27 53 | 6f 66 74 20 4d 61 6e 61 |m the 'S|oft Mana|
|00001f30| 67 65 72 27 20 70 72 6f | 67 72 61 6d 22 3a e1 0d |ger' pro|gram":..|
|00001f40| 07 a8 05 20 0d 07 b2 13 | dd 20 a4 74 65 6d 70 6c |... ....|. .templ|
|00001f50| 61 74 65 28 61 24 29 0d | 07 bc 08 ea 20 63 25 0d |ate(a$).|.... c%.|
|00001f60| 07 c6 47 c8 99 20 22 57 | 69 6d 70 5f 4c 6f 61 64 |..G.. "W|imp_Load|
|00001f70| 54 65 6d 70 6c 61 74 65 | 22 2c 2c 71 25 2c 63 75 |Template|",,q%,cu|
|00001f80| 72 62 75 66 25 2c 65 6e | 64 62 75 66 25 2c 30 2c |rbuf%,en|dbuf%,0,|
|00001f90| 61 24 2c 30 20 b8 20 2c | 2c 63 75 72 62 75 66 25 |a$,0 . ,|,curbuf%|
|00001fa0| 2c 2c 2c 2c 63 25 0d 07 | d0 2c e7 20 63 25 3d 30 |,,,,c%..|.,. c%=0|
|00001fb0| 20 85 20 31 2c 22 54 65 | 6d 70 6c 61 74 65 20 27 | . 1,"Te|mplate '|
|00001fc0| 22 2b 61 24 2b 22 27 20 | 6e 6f 74 20 66 6f 75 6e |"+a$+"' |not foun|
|00001fd0| 64 22 0d 07 da 23 c8 99 | 20 22 57 69 6d 70 5f 43 |d"...#..| "Wimp_C|
|00001fe0| 72 65 61 74 65 57 69 6e | 64 6f 77 22 2c 2c 71 25 |reateWin|dow",,q%|
|00001ff0| 20 b8 20 63 25 0d 07 e4 | 07 3d 63 25 0d 07 ee 05 | . c%...|.=c%....|
|00002000| 20 0d 07 f8 0e dd 20 a4 | 69 63 6f 6e 62 61 72 0d | ..... .|iconbar.|
|00002010| 08 02 09 ea 20 69 63 25 | 0d 08 0c 3f 71 25 21 30 |.... ic%|...?q%!0|
|00002020| 3d 2d 31 3a 71 25 21 34 | 3d 30 3a 71 25 21 38 3d |=-1:q%!4|=0:q%!8=|
|00002030| 2d 31 36 3a 71 25 21 31 | 32 3d 31 34 34 3a 71 25 |-16:q%!1|2=144:q%|
|00002040| 21 31 36 3d 31 30 30 3a | 71 25 21 32 30 3d 26 31 |!16=100:|q%!20=&1|
|00002050| 37 30 30 33 31 32 42 0d | 08 16 0e de 20 71 25 21 |700312B.|.... q%!|
|00002060| 32 34 20 31 35 0d 08 20 | 0e de 20 71 25 21 32 38 |24 15.. |.. q%!28|
|00002070| 20 31 35 0d 08 2a 58 24 | 28 71 25 21 32 34 29 3d | 15..*X$|(q%!24)=|
|00002080| 22 4d 61 6e 61 67 65 72 | 22 3a 24 28 71 25 21 32 |"Manager|":$(q%!2|
|00002090| 38 29 3d 22 53 21 21 4d | 61 6e 61 67 65 72 22 3a |8)="S!!M|anager":|
|000020a0| 71 25 21 33 32 3d 38 3a | c8 99 20 22 57 69 6d 70 |q%!32=8:|.. "Wimp|
|000020b0| 5f 43 72 65 61 74 65 49 | 63 6f 6e 22 2c 2c 71 25 |_CreateI|con",,q%|
|000020c0| 20 b8 20 69 63 25 3a 3d | 69 63 25 0d 08 34 04 0d | . ic%:=|ic%..4..|
|000020d0| 08 3e 4b dd 20 f2 63 6c | 65 61 72 3a 65 72 72 6f |.>K. .cl|ear:erro|
|000020e0| 72 66 6c 61 67 25 3d a3 | 3a 74 65 6d 70 72 65 67 |rflag%=.|:tempreg|
|000020f0| 3d 30 3a 65 6e 74 72 79 | 24 3d 22 30 22 3a 6f 70 |=0:entry|$="0":op|
|00002100| 65 72 61 74 6f 72 24 3d | 22 3d 22 3a 64 72 65 67 |erator$=|"=":dreg|
|00002110| 24 3d 65 6e 74 72 79 24 | 3a e1 0d 08 48 04 0d 08 |$=entry$|:...H...|
|00002120| 52 11 dd a4 73 74 72 69 | 6e 67 28 70 74 25 29 0d |R...stri|ng(pt%).|
|00002130| 08 5c 08 ea 20 53 24 0d | 08 66 24 c8 95 20 3f 70 |.\.. S$.|.f$.. ?p|
|00002140| 74 25 3a 53 24 2b 3d bd | 28 3f 70 74 25 29 3a 70 |t%:S$+=.|(?pt%):p|
|00002150| 74 25 2b 3d 31 3a ce 3a | 3d 53 24 0d 08 70 04 0d |t%+=1:.:|=S$..p..|
|00002160| 08 7a 0f dd f2 74 72 65 | 61 74 6d 65 6e 75 0d 08 |.z...tre|atmenu..|
|00002170| 84 0b c8 8e 20 61 24 20 | ca 0d 08 8e 14 c9 20 22 |.... a$ |...... "|
|00002180| 51 75 69 74 22 3a f2 66 | 69 6e 69 73 68 0d 08 98 |Quit":.f|inish...|
|00002190| 19 c9 20 22 62 79 20 6e | 61 6d 65 22 3a f2 73 6f |.. "by n|ame":.so|
|000021a0| 72 74 6e 61 6d 65 0d 08 | a2 19 c9 20 22 62 79 20 |rtname..|... "by |
|000021b0| 64 69 73 63 22 3a f2 73 | 6f 72 74 64 69 73 63 0d |disc":.s|ortdisc.|
|000021c0| 08 ac 1e c9 20 22 62 79 | 20 66 69 6c 65 6e 61 6d |.... "by| filenam|
|000021d0| 65 22 3a f2 73 6f 72 74 | 66 6e 61 6d 65 0d 08 b6 |e":.sort|fname...|
|000021e0| 19 c9 20 22 62 79 20 74 | 79 70 65 22 3a f2 73 6f |.. "by t|ype":.so|
|000021f0| 72 74 74 79 70 65 0d 08 | c0 1e c9 20 22 62 79 20 |rttype..|... "by |
|00002200| 66 69 6c 65 74 79 70 65 | 22 3a f2 73 6f 72 74 66 |filetype|":.sortf|
|00002210| 74 79 70 65 0d 08 ca 1c | c9 20 22 62 79 20 61 75 |type....|. "by au|
|00002220| 74 68 6f 72 73 22 3a f2 | 73 6f 72 74 61 75 74 68 |thors":.|sortauth|
|00002230| 0d 08 d4 17 c9 20 22 62 | 79 20 6c 65 6e 22 3a f2 |..... "b|y len":.|
|00002240| 73 6f 72 74 6c 65 6e 0d | 08 de 19 c9 20 22 62 79 |sortlen.|.... "by|
|00002250| 20 64 61 74 65 22 3a f2 | 73 6f 72 74 64 61 74 65 | date":.|sortdate|
|00002260| 0d 08 e8 19 c9 20 22 62 | 79 20 66 69 72 6d 22 3a |..... "b|y firm":|
|00002270| f2 73 6f 72 74 66 69 72 | 6d 0d 08 f2 05 cb 0d 08 |.sortfir|m.......|
|00002280| fc 05 e1 0d 09 06 04 0d | 09 10 28 dd f2 70 75 74 |........|..(..put|
|00002290| 74 65 78 74 28 6d 65 73 | 73 61 67 65 24 2c 68 61 |text(mes|sage$,ha|
|000022a0| 6e 64 6c 65 25 2c 69 63 | 6f 6e 25 2c 71 25 29 0d |ndle%,ic|on%,q%).|
|000022b0| 09 1a 1b 21 71 25 3d 68 | 61 6e 64 6c 65 25 3a 71 |...!q%=h|andle%:q|
|000022c0| 25 21 34 3d 69 63 6f 6e | 25 3a 0d 09 24 1d c8 99 |%!4=icon|%:..$...|
|000022d0| 22 57 69 6d 70 5f 47 65 | 74 49 63 6f 6e 53 74 61 |"Wimp_Ge|tIconSta|
|000022e0| 74 65 22 2c 2c 71 25 0d | 09 2e 15 24 28 71 25 21 |te",,q%.|...$(q%!|
|000022f0| 32 38 29 3d 6d 65 73 73 | 61 67 65 24 0d 09 38 37 |28)=mess|age$..87|
|00002300| c8 99 22 57 69 6d 70 5f | 46 6f 72 63 65 52 65 64 |.."Wimp_|ForceRed|
|00002310| 72 61 77 22 2c 68 61 6e | 64 6c 65 25 2c 71 25 21 |raw",han|dle%,q%!|
|00002320| 38 2c 71 25 21 31 32 2c | 71 25 21 31 36 2c 71 25 |8,q%!12,|q%!16,q%|
|00002330| 21 32 30 0d 09 42 05 e1 | 0d 09 4c 04 0d 09 56 04 |!20..B..|..L...V.|
|00002340| 0d 09 60 47 dd f2 73 61 | 76 65 3a 74 68 69 73 25 |..`G..sa|ve:this%|
|00002350| 3d 73 61 76 65 25 3a f2 | 67 65 74 70 6f 69 6e 74 |=save%:.|getpoint|
|00002360| 65 72 3a f2 64 72 61 67 | 69 63 6f 6e 28 6d 6f 75 |er:.drag|icon(mou|
|00002370| 73 65 78 25 2c 6d 6f 75 | 73 65 79 25 2c 73 61 76 |sex%,mou|sey%,sav|
|00002380| 65 25 2c 30 29 3a e1 0d | 09 6a 04 0d 09 74 31 dd |e%,0):..|.j...t1.|
|00002390| f2 73 61 76 65 78 3a 74 | 68 69 73 25 3d 73 61 76 |.savex:t|his%=sav|
|000023a0| 65 25 3a 41 24 3d a4 67 | 65 74 74 65 78 74 28 73 |e%:A$=.g|ettext(s|
|000023b0| 61 76 65 25 2c 31 2c 62 | 62 6c 25 29 0d 09 7e 98 |ave%,1,b|bl%)..~.|
|000023c0| e7 20 a7 41 24 2c 22 3a | 22 29 3d 30 20 8c 20 f2 |. .A$,":|")=0 . .|
|000023d0| 63 6c 6f 73 65 61 77 69 | 6e 64 6f 77 28 73 61 76 |closeawi|ndow(sav|
|000023e0| 65 25 29 3a 21 62 75 66 | 66 65 72 25 3d 30 3a 24 |e%):!buf|fer%=0:$|
|000023f0| 28 62 75 66 66 65 72 25 | 2b 34 29 3d 64 72 61 67 |(buffer%|+4)=drag|
|00002400| 6d 65 73 73 24 3a c8 99 | 20 22 57 69 6d 70 5f 52 |mess$:..| "Wimp_R|
|00002410| 65 70 6f 72 74 45 72 72 | 6f 72 22 2c 62 75 66 66 |eportErr|or",buff|
|00002420| 65 72 25 2c 31 37 2c 22 | 45 72 72 6f 72 20 66 72 |er%,17,"|Error fr|
|00002430| 6f 6d 20 74 68 65 20 27 | 53 6f 66 74 77 61 72 65 |om the '|Software|
|00002440| 20 4d 61 6e 61 67 65 72 | 27 20 70 72 6f 67 72 61 | Manager|' progra|
|00002450| 6d 22 3a e1 0d 09 88 13 | f2 53 41 56 45 73 6f 66 |m":.....|.SAVEsof|
|00002460| 74 28 41 24 29 3a e1 0d | 09 92 04 0d 09 9c 4a dd |t(A$):..|......J.|
|00002470| f2 73 61 76 65 32 3a 74 | 68 69 73 25 3d 73 61 76 |.save2:t|his%=sav|
|00002480| 65 32 25 3a f2 67 65 74 | 70 6f 69 6e 74 65 72 3a |e2%:.get|pointer:|
|00002490| f2 64 72 61 67 69 63 6f | 6e 28 6d 6f 75 73 65 78 |.dragico|n(mousex|
|000024a0| 25 2c 6d 6f 75 73 65 79 | 25 2c 73 61 76 65 32 25 |%,mousey|%,save2%|
|000024b0| 2c 30 29 3a e1 0d 09 a6 | 04 0d 09 b0 0c dd f2 73 |,0):....|.......s|
|000024c0| 61 76 65 32 78 0d 09 ba | 2b 74 68 69 73 25 3d 73 |ave2x...|+this%=s|
|000024d0| 61 76 65 32 25 3a 41 24 | 3d a4 67 65 74 74 65 78 |ave2%:A$|=.gettex|
|000024e0| 74 28 73 61 76 65 32 25 | 2c 31 2c 62 62 6c 25 29 |t(save2%|,1,bbl%)|
|000024f0| 0d 09 c4 83 e7 20 a7 41 | 24 2c 22 3a 22 29 3d 30 |..... .A|$,":")=0|
|00002500| 20 8c 20 21 62 75 66 66 | 65 72 25 3d 30 3a 24 28 | . !buff|er%=0:$(|
|00002510| 62 75 66 66 65 72 25 2b | 34 29 3d 64 72 61 67 6d |buffer%+|4)=dragm|
|00002520| 65 73 73 24 3a c8 99 20 | 22 57 69 6d 70 5f 52 65 |ess$:.. |"Wimp_Re|
|00002530| 70 6f 72 74 45 72 72 6f | 72 22 2c 62 75 66 66 65 |portErro|r",buffe|
|00002540| 72 25 2c 31 37 2c 22 45 | 72 72 6f 72 20 66 72 6f |r%,17,"E|rror fro|
|00002550| 6d 20 74 68 65 20 27 53 | 6f 66 74 77 61 72 65 20 |m the 'S|oftware |
|00002560| 4d 61 6e 61 67 65 72 27 | 20 70 72 6f 67 72 61 6d |Manager'| program|
|00002570| 22 3a e1 0d 09 ce 28 f2 | 53 41 56 45 70 72 6e 28 |":....(.|SAVEprn(|
|00002580| 41 24 29 3a f2 63 6c 6f | 73 65 61 77 69 6e 64 6f |A$):.clo|seawindo|
|00002590| 77 28 73 61 76 65 32 25 | 29 3a e1 0d 09 d8 04 0d |w(save2%|):......|
|000025a0| 09 e2 12 dd 20 f2 67 65 | 74 69 28 68 25 2c 69 25 |.... .ge|ti(h%,i%|
|000025b0| 29 0d 09 ec 73 21 71 25 | 3d 68 25 3a 71 25 21 34 |)...s!q%|=h%:q%!4|
|000025c0| 3d 69 25 3a c8 99 20 22 | 57 69 6d 70 5f 47 65 74 |=i%:.. "|Wimp_Get|
|000025d0| 49 63 6f 6e 53 74 61 74 | 65 22 2c 2c 71 25 3a 69 |IconStat|e",,q%:i|
|000025e0| 78 30 25 3d 71 25 21 38 | 3a 69 79 30 25 3d 71 25 |x0%=q%!8|:iy0%=q%|
|000025f0| 21 31 32 3a 69 78 31 25 | 3d 71 25 21 31 36 3a 69 |!12:ix1%|=q%!16:i|
|00002600| 79 31 25 3d 71 25 21 32 | 30 3a 69 66 6c 61 67 73 |y1%=q%!2|0:iflags|
|00002610| 25 3d 71 25 21 32 34 3a | 69 64 61 74 61 25 3d 71 |%=q%!24:|idata%=q|
|00002620| 25 2b 32 38 0d 09 f6 05 | e1 0d 0a 00 04 0d 0a 0a |%+28....|........|
|00002630| 2e dd 20 f2 64 72 61 67 | 69 63 6f 6e 28 6d 6f 75 |.. .drag|icon(mou|
|00002640| 73 65 78 25 2c 6d 6f 75 | 73 65 79 25 2c 68 61 6e |sex%,mou|sey%,han|
|00002650| 64 6c 65 25 2c 69 63 6f | 6e 25 29 0d 0a 14 25 64 |dle%,ico|n%)...%d|
|00002660| 72 61 67 74 79 70 65 25 | 3d 26 46 46 3a 64 72 61 |ragtype%|=&FF:dra|
|00002670| 67 68 61 6e 64 6c 65 25 | 3d 68 61 6e 64 6c 65 25 |ghandle%|=handle%|
|00002680| 0d 0a 1e 12 f2 67 65 74 | 77 28 68 61 6e 64 6c 65 |.....get|w(handle|
|00002690| 25 29 0d 0a 28 18 f2 67 | 65 74 69 28 68 61 6e 64 |%)..(..g|eti(hand|
|000026a0| 6c 65 25 2c 69 63 6f 6e | 25 29 0d 0a 32 16 21 71 |le%,icon|%)..2.!q|
|000026b0| 25 3d 68 61 6e 64 6c 65 | 25 3a 71 25 21 34 3d 35 |%=handle|%:q%!4=5|
|000026c0| 0d 0a 3c 3e 71 25 21 38 | 3d 62 78 25 2b 69 78 30 |..<>q%!8|=bx%+ix0|
|000026d0| 25 3a 71 25 21 31 32 3d | 62 79 25 2b 69 79 30 25 |%:q%!12=|by%+iy0%|
|000026e0| 3a 71 25 21 31 36 3d 62 | 78 25 2b 69 78 31 25 3a |:q%!16=b|x%+ix1%:|
|000026f0| 71 25 21 32 30 3d 62 79 | 25 2b 69 79 31 25 0d 0a |q%!20=by|%+iy1%..|
|00002700| 46 2a 71 25 21 32 34 3d | 71 25 21 38 2d 6d 6f 75 |F*q%!24=|q%!8-mou|
|00002710| 73 65 78 25 3a 71 25 21 | 32 38 3d 71 25 21 31 32 |sex%:q%!|28=q%!12|
|00002720| 2d 6d 6f 75 73 65 79 25 | 0d 0a 50 39 71 25 21 33 |-mousey%|..P9q%!3|
|00002730| 32 3d 73 63 72 78 31 25 | 2b 71 25 21 31 36 2d 6d |2=scrx1%|+q%!16-m|
|00002740| 6f 75 73 65 78 25 3a 71 | 25 21 33 36 3d 73 63 72 |ousex%:q|%!36=scr|
|00002750| 79 31 25 2b 71 25 21 32 | 30 2d 6d 6f 75 73 65 79 |y1%+q%!2|0-mousey|
|00002760| 25 0d 0a 5a 19 c8 99 20 | 22 57 69 6d 70 5f 44 72 |%..Z... |"Wimp_Dr|
|00002770| 61 67 42 6f 78 22 2c 2c | 71 25 0d 0a 64 05 e1 0d |agBox",,|q%..d...|
|00002780| 0a 6e 04 0d 0a 78 12 dd | 20 f2 67 65 74 6d 6f 64 |.n...x..| .getmod|
|00002790| 65 69 6e 66 6f 0d 0a 82 | 53 69 6e 76 25 21 30 20 |einfo...|Sinv%!0 |
|000027a0| 3d 20 34 3a 69 6e 76 25 | 21 34 20 3d 20 35 3a 69 |= 4:inv%|!4 = 5:i|
|000027b0| 6e 76 25 21 38 20 3d 20 | 36 3a 69 6e 76 25 21 31 |nv%!8 = |6:inv%!1|
|000027c0| 32 3d 20 37 3a 69 6e 76 | 25 21 31 36 3d 20 31 31 |2= 7:inv|%!16= 11|
|000027d0| 3a 69 6e 76 25 21 32 30 | 3d 20 31 32 3a 69 6e 76 |:inv%!20|= 12:inv|
|000027e0| 25 21 32 34 3d 20 2d 31 | 0d 0a 8c 27 c8 99 20 22 |%!24= -1|...'.. "|
|000027f0| 4f 53 5f 52 65 61 64 56 | 64 75 56 61 72 69 61 62 |OS_ReadV|duVariab|
|00002800| 6c 65 73 22 2c 69 6e 76 | 25 2c 6f 75 74 76 25 0d |les",inv|%,outv%.|
|00002810| 0a 96 7b 64 78 25 3d 31 | 3c 3c 28 6f 75 74 76 25 |..{dx%=1|<<(outv%|
|00002820| 21 30 29 3a 64 79 25 3d | 31 3c 3c 28 6f 75 74 76 |!0):dy%=|1<<(outv|
|00002830| 25 21 34 29 3a 6c 69 6e | 65 6c 65 6e 25 3d 6f 75 |%!4):lin|elen%=ou|
|00002840| 74 76 25 21 38 3a 73 63 | 72 65 65 6e 73 69 7a 65 |tv%!8:sc|reensize|
|00002850| 25 3d 6f 75 74 76 25 21 | 31 32 3a 73 63 72 78 31 |%=outv%!|12:scrx1|
|00002860| 25 3d 28 6f 75 74 76 25 | 21 31 36 2b 31 29 2a 64 |%=(outv%|!16+1)*d|
|00002870| 78 25 3a 73 63 72 79 31 | 25 3d 28 6f 75 74 76 25 |x%:scry1|%=(outv%|
|00002880| 21 32 30 2b 31 29 2a 64 | 79 25 0d 0a a0 05 e1 0d |!20+1)*d|y%......|
|00002890| 0a aa 04 0d 0a b4 18 dd | 20 f2 73 65 6e 64 73 61 |........| .sendsa|
|000028a0| 76 65 28 66 74 25 2c 66 | 6e 25 29 0d 0a be 0f ea |ve(ft%,f|n%).....|
|000028b0| 20 66 69 6c 65 6e 61 6d | 65 25 0d 0a c8 1c c8 99 | filenam|e%......|
|000028c0| 20 22 57 69 6d 70 5f 43 | 72 65 61 74 65 4d 65 6e | "Wimp_C|reateMen|
|000028d0| 75 22 2c 2c 2d 31 0d 0a | d2 32 f5 66 69 6c 65 6e |u",,-1..|.2.filen|
|000028e0| 61 6d 65 25 3d 66 6e 25 | 3a 66 6e 25 2b 3d a7 24 |ame%=fn%|:fn%+=.$|
|000028f0| 66 6e 25 2c 22 2e 22 29 | 3a fd 20 66 6e 25 3d 66 |fn%,".")|:. fn%=f|
|00002900| 69 6c 65 6e 61 6d 65 25 | 0d 0a dc 39 f2 67 65 74 |ilename%|...9.get|
|00002910| 70 6f 69 6e 74 65 72 20 | 3a 20 f4 20 73 65 74 73 |pointer |: . sets|
|00002920| 20 75 70 20 68 61 6e 64 | 6c 65 25 2c 69 63 6f 6e | up hand|le%,icon|
|00002930| 25 2c 6d 6f 75 73 65 78 | 25 2c 6d 6f 75 73 65 79 |%,mousex|%,mousey|
|00002940| 25 0d 0a e6 1b 21 71 25 | 3d 28 34 38 2b a9 24 66 |%....!q%|=(48+.$f|
|00002950| 69 6c 65 6e 61 6d 65 25 | 29 80 ac 33 0d 0a f0 49 |ilename%|)..3...I|
|00002960| 71 25 21 31 32 3d 30 3a | 71 25 21 31 36 3d 31 3a |q%!12=0:|q%!16=1:|
|00002970| 71 25 21 32 30 3d 68 61 | 6e 64 6c 65 25 3a 71 25 |q%!20=ha|ndle%:q%|
|00002980| 21 32 34 3d 69 63 6f 6e | 25 3a 71 25 21 32 38 3d |!24=icon|%:q%!28=|
|00002990| 6d 6f 75 73 65 78 25 3a | 71 25 21 33 32 3d 6d 6f |mousex%:|q%!32=mo|
|000029a0| 75 73 65 79 25 0d 0a fa | 28 71 25 21 33 36 3d 30 |usey%...|(q%!36=0|
|000029b0| 20 20 20 3a 20 f4 20 66 | 69 6c 65 20 73 69 7a 65 | : . f|ile size|
|000029c0| 20 28 69 6e 61 63 63 75 | 72 61 74 65 29 0d 0b 04 | (inaccu|rate)...|
|000029d0| 1b 71 25 21 34 30 3d 66 | 74 25 20 3a 20 f4 20 66 |.q%!40=f|t% : . f|
|000029e0| 69 6c 65 20 74 79 70 65 | 0d 0b 0e 48 f2 73 74 72 |ile type|...H.str|
|000029f0| 69 6e 67 30 28 71 25 2b | 34 34 2c 24 66 69 6c 65 |ing0(q%+|44,$file|
|00002a00| 6e 61 6d 65 25 29 3a c8 | 99 20 22 57 69 6d 70 5f |name%):.|. "Wimp_|
|00002a10| 53 65 6e 64 4d 65 73 73 | 61 67 65 22 2c 31 37 2c |SendMess|age",17,|
|00002a20| 71 25 2c 68 61 6e 64 6c | 65 25 2c 69 63 6f 6e 25 |q%,handl|e%,icon%|
|00002a30| 0d 0b 18 11 73 61 76 65 | 72 65 66 25 3d 71 25 21 |....save|ref%=q%!|
|00002a40| 38 0d 0b 22 05 e1 0d 0b | 2c 04 0d 0b 36 38 dd 20 |8.."....|,...68. |
|00002a50| a4 73 74 72 69 6e 67 30 | 28 61 25 29 20 ea 61 24 |.string0|(a%) .a$|
|00002a60| 3a 61 24 3d 22 22 3a c8 | 95 20 3f 61 25 3a 61 24 |:a$="":.|. ?a%:a$|
|00002a70| 2b 3d bd 3f 61 25 3a 61 | 25 2b 3d 31 3a ce 3a 3d |+=.?a%:a|%+=1:.:=|
|00002a80| 61 24 0d 0b 40 04 0d 0b | 4a 27 dd 20 f2 73 74 72 |a$..@...|J'. .str|
|00002a90| 69 6e 67 30 28 61 25 2c | 61 24 29 20 24 61 25 3d |ing0(a%,|a$) $a%=|
|00002aa0| 61 24 3a 61 25 3f a9 61 | 24 3d 30 3a e1 0d 0b 54 |a$:a%?.a|$=0:...T|
|00002ab0| 04 0d 0b 5e 5b dd a4 67 | 65 74 74 65 78 74 28 68 |...^[..g|ettext(h|
|00002ac0| 61 6e 64 6c 65 25 2c 69 | 63 6f 6e 25 2c 71 25 29 |andle%,i|con%,q%)|
|00002ad0| 3a 21 71 25 3d 68 61 6e | 64 6c 65 25 3a 71 25 21 |:!q%=han|dle%:q%!|
|00002ae0| 34 3d 69 63 6f 6e 25 3a | 3a c8 99 22 57 69 6d 70 |4=icon%:|:.."Wimp|
|00002af0| 5f 47 65 74 49 63 6f 6e | 53 74 61 74 65 22 2c 2c |_GetIcon|State",,|
|00002b00| 71 25 3a 3d 24 28 71 25 | 21 32 38 29 0d 0b 68 58 |q%:=$(q%|!28)..hX|
|00002b10| dd a4 67 65 74 6e 75 6d | 28 69 63 6f 6e 25 29 3a |..getnum|(icon%):|
|00002b20| 21 62 62 6c 25 3d 66 69 | 65 6c 25 3a 62 62 6c 25 |!bbl%=fi|el%:bbl%|
|00002b30| 21 34 3d 69 63 6f 6e 25 | 3a 3a c8 99 22 57 69 6d |!4=icon%|::.."Wim|
|00002b40| 70 5f 47 65 74 49 63 6f | 6e 53 74 61 74 65 22 2c |p_GetIco|nState",|
|00002b50| 2c 62 62 6c 25 3a 3d bb | 28 24 28 62 62 6c 25 21 |,bbl%:=.|($(bbl%!|
|00002b60| 32 38 29 29 0d 0b 72 04 | 0d 0b 7c 17 dd f2 6c 6f |28))..r.|..|...lo|
|00002b70| 6f 6b 62 75 74 74 6f 6e | 28 69 63 6f 6e 25 29 0d |okbutton|(icon%).|
|00002b80| 0b 86 46 e7 20 28 69 63 | 6f 6e 25 3e 3d 33 33 20 |..F. (ic|on%>=33 |
|00002b90| 80 20 69 63 6f 6e 25 3c | 3d 33 39 29 20 84 20 28 |. icon%<|=39) . (|
|00002ba0| 69 63 6f 6e 25 3e 3d 34 | 31 20 80 20 69 63 6f 6e |icon%>=4|1 . icon|
|00002bb0| 25 3c 3d 34 34 29 20 f2 | 6d 65 6e 75 28 69 63 6f |%<=44) .|menu(ico|
|00002bc0| 6e 25 29 3a e1 0d 0b 90 | 0e c8 8e 20 69 63 6f 6e |n%):....|... icon|
|00002bd0| 25 20 ca 0d 0b 9a 36 20 | 20 20 c9 20 38 2c 39 2c |% ....6 | . 8,9,|
|00002be0| 31 34 2c 31 32 2c 31 33 | 3a f2 63 68 61 6e 67 65 |14,12,13|:.change|
|00002bf0| 69 63 6f 6e 28 6f 70 74 | 25 28 31 29 2c 69 63 6f |icon(opt|%(1),ico|
|00002c00| 6e 25 29 3a f2 75 70 6f | 6e 0d 0b a4 2f 20 20 20 |n%):.upo|n.../ |
|00002c10| c9 20 31 35 2c 31 36 3a | f2 63 68 61 6e 67 65 69 |. 15,16:|.changei|
|00002c20| 63 6f 6e 28 6f 70 74 25 | 28 32 29 2c 69 63 6f 6e |con(opt%|(2),icon|
|00002c30| 25 29 3a f2 75 70 6f 6e | 0d 0b ae 28 20 20 20 c9 |%):.upon|...( .|
|00002c40| 20 31 31 3a f2 74 6f 67 | 67 6c 65 28 6f 70 74 25 | 11:.tog|gle(opt%|
|00002c50| 28 34 29 2c 69 63 6f 6e | 25 29 3a f2 75 70 6f 6e |(4),icon|%):.upon|
|00002c60| 0d 0b b8 28 20 20 20 c9 | 20 31 30 3a f2 74 6f 67 |...( .| 10:.tog|
|00002c70| 67 6c 65 28 6f 70 74 25 | 28 35 29 2c 69 63 6f 6e |gle(opt%|(5),icon|
|00002c80| 25 29 3a f2 75 70 6f 6e | 0d 0b c2 28 20 20 20 c9 |%):.upon|...( .|
|00002c90| 20 32 39 3a f2 74 6f 67 | 67 6c 65 28 6f 70 74 25 | 29:.tog|gle(opt%|
|00002ca0| 28 33 29 2c 69 63 6f 6e | 25 29 3a f2 75 70 6f 6e |(3),icon|%):.upon|
|00002cb0| 0d 0b cc 05 cb 0d 0b d6 | 05 e1 0d 0b e0 04 0d 0b |........|........|
|00002cc0| ea 18 dd f2 6c 6f 6f 6b | 62 75 74 74 6f 6e 32 28 |....look|button2(|
|00002cd0| 69 63 6f 6e 25 29 0d 0b | f4 0e c8 8e 20 69 63 6f |icon%)..|.... ico|
|00002ce0| 6e 25 20 ca 0d 0b fe 2d | 20 20 20 c9 20 31 37 2c |n% ....-| . 17,|
|00002cf0| 32 33 2c 31 30 3a f2 63 | 68 61 6e 67 65 69 63 6f |23,10:.c|hangeico|
|00002d00| 6e 32 28 6f 70 74 25 28 | 36 29 2c 69 63 6f 6e 25 |n2(opt%(|6),icon%|
|00002d10| 29 0d 0c 08 2d 20 20 20 | c9 20 34 32 2c 34 38 2c |)...- |. 42,48,|
|00002d20| 31 31 3a f2 63 68 61 6e | 67 65 69 63 6f 6e 32 28 |11:.chan|geicon2(|
|00002d30| 6f 70 74 25 28 37 29 2c | 69 63 6f 6e 25 29 0d 0c |opt%(7),|icon%)..|
|00002d40| 12 2d 20 20 20 c9 20 31 | 33 2c 31 34 2c 31 35 3a |.- . 1|3,14,15:|
|00002d50| f2 63 68 61 6e 67 65 69 | 63 6f 6e 32 28 6f 70 74 |.changei|con2(opt|
|00002d60| 25 28 38 29 2c 69 63 6f | 6e 25 29 0d 0c 1c 2d 20 |%(8),ico|n%)...- |
|00002d70| 20 20 c9 20 31 39 2c 32 | 30 2c 32 31 3a f2 63 68 | . 19,2|0,21:.ch|
|00002d80| 61 6e 67 65 69 63 6f 6e | 32 28 6f 70 74 25 28 39 |angeicon|2(opt%(9|
|00002d90| 29 2c 69 63 6f 6e 25 29 | 0d 0c 26 2e 20 20 20 c9 |),icon%)|..&. .|
|00002da0| 20 32 35 2c 32 36 2c 32 | 37 3a f2 63 68 61 6e 67 | 25,26,2|7:.chang|
|00002db0| 65 69 63 6f 6e 32 28 6f | 70 74 25 28 31 30 29 2c |eicon2(o|pt%(10),|
|00002dc0| 69 63 6f 6e 25 29 0d 0c | 30 2e 20 20 20 c9 20 33 |icon%)..|0. . 3|
|00002dd0| 32 2c 33 33 2c 33 34 3a | f2 63 68 61 6e 67 65 69 |2,33,34:|.changei|
|00002de0| 63 6f 6e 32 28 6f 70 74 | 25 28 31 31 29 2c 69 63 |con2(opt|%(11),ic|
|00002df0| 6f 6e 25 29 0d 0c 3a 2e | 20 20 20 c9 20 33 38 2c |on%)..:.| . 38,|
|00002e00| 33 39 2c 34 30 3a f2 63 | 68 61 6e 67 65 69 63 6f |39,40:.c|hangeico|
|00002e10| 6e 32 28 6f 70 74 25 28 | 31 32 29 2c 69 63 6f 6e |n2(opt%(|12),icon|
|00002e20| 25 29 0d 0c 44 2e 20 20 | 20 c9 20 34 34 2c 34 35 |%)..D. | . 44,45|
|00002e30| 2c 34 36 3a f2 63 68 61 | 6e 67 65 69 63 6f 6e 32 |,46:.cha|ngeicon2|
|00002e40| 28 6f 70 74 25 28 31 33 | 29 2c 69 63 6f 6e 25 29 |(opt%(13|),icon%)|
|00002e50| 0d 0c 4e 3a 20 20 20 c9 | 20 35 30 2c 35 31 2c 35 |..N: .| 50,51,5|
|00002e60| 32 2c 35 37 2c 35 33 2c | 35 34 2c 35 35 3a f2 63 |2,57,53,|54,55:.c|
|00002e70| 68 61 6e 67 65 69 63 6f | 6e 32 28 6f 70 74 25 28 |hangeico|n2(opt%(|
|00002e80| 32 32 29 2c 69 63 6f 6e | 25 29 0d 0c 58 24 20 20 |22),icon|%)..X$ |
|00002e90| 20 c9 20 32 39 3a f2 74 | 6f 67 67 6c 65 32 28 6f | . 29:.t|oggle2(o|
|00002ea0| 70 74 25 28 31 34 29 2c | 69 63 6f 6e 25 29 0d 0c |pt%(14),|icon%)..|
|00002eb0| 62 24 20 20 20 c9 20 35 | 36 3a f2 74 6f 67 67 6c |b$ . 5|6:.toggl|
|00002ec0| 65 32 28 6f 70 74 25 28 | 31 35 29 2c 69 63 6f 6e |e2(opt%(|15),icon|
|00002ed0| 25 29 0d 0c 6c 24 20 20 | 20 c9 20 31 36 3a f2 74 |%)..l$ | . 16:.t|
|00002ee0| 6f 67 67 6c 65 32 28 6f | 70 74 25 28 31 36 29 2c |oggle2(o|pt%(16),|
|00002ef0| 69 63 6f 6e 25 29 0d 0c | 76 24 20 20 20 c9 20 32 |icon%)..|v$ . 2|
|00002f00| 32 3a f2 74 6f 67 67 6c | 65 32 28 6f 70 74 25 28 |2:.toggl|e2(opt%(|
|00002f10| 31 37 29 2c 69 63 6f 6e | 25 29 0d 0c 80 24 20 20 |17),icon|%)...$ |
|00002f20| 20 c9 20 32 38 3a f2 74 | 6f 67 67 6c 65 32 28 6f | . 28:.t|oggle2(o|
|00002f30| 70 74 25 28 31 38 29 2c | 69 63 6f 6e 25 29 0d 0c |pt%(18),|icon%)..|
|00002f40| 8a 24 20 20 20 c9 20 33 | 35 3a f2 74 6f 67 67 6c |.$ . 3|5:.toggl|
|00002f50| 65 32 28 6f 70 74 25 28 | 31 39 29 2c 69 63 6f 6e |e2(opt%(|19),icon|
|00002f60| 25 29 0d 0c 94 24 20 20 | 20 c9 20 34 31 3a f2 74 |%)...$ | . 41:.t|
|00002f70| 6f 67 67 6c 65 32 28 6f | 70 74 25 28 32 30 29 2c |oggle2(o|pt%(20),|
|00002f80| 69 63 6f 6e 25 29 0d 0c | 9e 24 20 20 20 c9 20 34 |icon%)..|.$ . 4|
|00002f90| 37 3a f2 74 6f 67 67 6c | 65 32 28 6f 70 74 25 28 |7:.toggl|e2(opt%(|
|00002fa0| 32 31 29 2c 69 63 6f 6e | 25 29 0d 0c a8 24 20 20 |21),icon|%)...$ |
|00002fb0| 20 c9 20 33 30 3a f2 74 | 6f 67 67 6c 65 33 28 6f | . 30:.t|oggle3(o|
|00002fc0| 70 74 25 28 32 33 29 2c | 69 63 6f 6e 25 29 0d 0c |pt%(23),|icon%)..|
|00002fd0| b2 24 20 20 20 c9 20 33 | 36 3a f2 74 6f 67 67 6c |.$ . 3|6:.toggl|
|00002fe0| 65 33 28 6f 70 74 25 28 | 32 34 29 2c 69 63 6f 6e |e3(opt%(|24),icon|
|00002ff0| 25 29 0d 0c bc 24 20 20 | 20 c9 20 31 32 3a f2 74 |%)...$ | . 12:.t|
|00003000| 6f 67 67 6c 65 33 28 6f | 70 74 25 28 32 35 29 2c |oggle3(o|pt%(25),|
|00003010| 69 63 6f 6e 25 29 0d 0c | c6 24 20 20 20 c9 20 31 |icon%)..|.$ . 1|
|00003020| 38 3a f2 74 6f 67 67 6c | 65 33 28 6f 70 74 25 28 |8:.toggl|e3(opt%(|
|00003030| 32 36 29 2c 69 63 6f 6e | 25 29 0d 0c d0 24 20 20 |26),icon|%)...$ |
|00003040| 20 c9 20 32 34 3a f2 74 | 6f 67 67 6c 65 33 28 6f | . 24:.t|oggle3(o|
|00003050| 70 74 25 28 32 37 29 2c | 69 63 6f 6e 25 29 0d 0c |pt%(27),|icon%)..|
|00003060| da 24 20 20 20 c9 20 33 | 31 3a f2 74 6f 67 67 6c |.$ . 3|1:.toggl|
|00003070| 65 33 28 6f 70 74 25 28 | 32 38 29 2c 69 63 6f 6e |e3(opt%(|28),icon|
|00003080| 25 29 0d 0c e4 24 20 20 | 20 c9 20 33 37 3a f2 74 |%)...$ | . 37:.t|
|00003090| 6f 67 67 6c 65 33 28 6f | 70 74 25 28 32 39 29 2c |oggle3(o|pt%(29),|
|000030a0| 69 63 6f 6e 25 29 0d 0c | ee 24 20 20 20 c9 20 34 |icon%)..|.$ . 4|
|000030b0| 33 3a f2 74 6f 67 67 6c | 65 33 28 6f 70 74 25 28 |3:.toggl|e3(opt%(|
|000030c0| 33 30 29 2c 69 63 6f 6e | 25 29 0d 0c f8 05 cb 0d |30),icon|%)......|
|000030d0| 0d 02 05 e1 0d 0d 0c 04 | 0d 0d 16 18 dd f2 6c 6f |........|......lo|
|000030e0| 6f 6b 62 75 74 74 6f 6e | 33 28 69 63 6f 6e 25 29 |okbutton|3(icon%)|
|000030f0| 0d 0d 20 0e c8 8e 20 69 | 63 6f 6e 25 20 ca 0d 0d |.. ... i|con% ...|
|00003100| 2a 37 20 20 20 c9 20 39 | 2c 31 30 2c 31 31 2c 31 |*7 . 9|,10,11,1|
|00003110| 32 2c 31 34 2c 31 35 2c | 31 36 20 3a f2 63 68 61 |2,14,15,|16 :.cha|
|00003120| 6e 67 65 69 63 6f 6e 33 | 28 6f 70 74 78 25 2c 69 |ngeicon3|(optx%,i|
|00003130| 63 6f 6e 25 29 0d 0d 34 | 37 20 20 20 c9 20 34 20 |con%)..4|7 . 4 |
|00003140| 3a 73 73 25 3d 31 3a f2 | 73 65 61 72 63 68 28 a4 |:ss%=1:.|search(.|
|00003150| 67 65 74 74 65 78 74 28 | 73 65 61 72 25 2c 38 2c |gettext(|sear%,8,|
|00003160| 62 62 6c 25 29 2c 31 2c | 70 6f 25 29 0d 0d 3e 39 |bbl%),1,|po%)..>9|
|00003170| 20 20 20 c9 20 35 20 3a | 73 73 25 3d 2d 31 3a f2 | . 5 :|ss%=-1:.|
|00003180| 73 65 61 72 63 68 28 a4 | 67 65 74 74 65 78 74 28 |search(.|gettext(|
|00003190| 73 65 61 72 25 2c 38 2c | 62 62 6c 25 29 2c 2d 31 |sear%,8,|bbl%),-1|
|000031a0| 2c 70 6f 25 29 0d 0d 48 | 42 20 20 20 c9 20 37 20 |,po%)..H|B . 7 |
|000031b0| 3a 73 73 25 3d 2d 31 3a | 70 6f 25 3d 6e 62 72 25 |:ss%=-1:|po%=nbr%|
|000031c0| 3a f2 73 65 61 72 63 68 | 28 a4 67 65 74 74 65 78 |:.search|(.gettex|
|000031d0| 74 28 73 65 61 72 25 2c | 38 2c 62 62 6c 25 29 2c |t(sear%,|8,bbl%),|
|000031e0| 2d 31 2c 70 6f 25 29 0d | 0d 52 3d 20 20 20 c9 20 |-1,po%).|.R= . |
|000031f0| 36 20 3a 73 73 25 3d 31 | 3a 70 6f 25 3d 30 3a f2 |6 :ss%=1|:po%=0:.|
|00003200| 73 65 61 72 63 68 28 a4 | 67 65 74 74 65 78 74 28 |search(.|gettext(|
|00003210| 73 65 61 72 25 2c 38 2c | 62 62 6c 25 29 2c 31 2c |sear%,8,|bbl%),1,|
|00003220| 70 6f 25 29 0d 0d 5c 05 | cb 0d 0d 66 05 e1 0d 0d |po%)..\.|...f....|
|00003230| 70 04 0d 0d 7a 18 dd f2 | 6c 6f 6f 6b 62 75 74 74 |p...z...|lookbutt|
|00003240| 6f 6e 34 28 69 63 6f 6e | 25 29 0d 0d 84 0e c8 8e |on4(icon|%)......|
|00003250| 20 69 63 6f 6e 25 20 ca | 0d 0d 8e 24 20 20 20 c9 | icon% .|...$ .|
|00003260| 20 34 36 3a f2 74 6f 67 | 67 6c 65 34 28 6f 70 74 | 46:.tog|gle4(opt|
|00003270| 32 25 28 31 29 2c 69 63 | 6f 6e 25 29 0d 0d 98 24 |2%(1),ic|on%)...$|
|00003280| 20 20 20 c9 20 34 37 3a | f2 74 6f 67 67 6c 65 34 | . 47:|.toggle4|
|00003290| 28 6f 70 74 32 25 28 32 | 29 2c 69 63 6f 6e 25 29 |(opt2%(2|),icon%)|
|000032a0| 0d 0d a2 24 20 20 20 c9 | 20 34 38 3a f2 74 6f 67 |...$ .| 48:.tog|
|000032b0| 67 6c 65 34 28 6f 70 74 | 32 25 28 33 29 2c 69 63 |gle4(opt|2%(3),ic|
|000032c0| 6f 6e 25 29 0d 0d ac 24 | 20 20 20 c9 20 34 39 3a |on%)...$| . 49:|
|000032d0| f2 74 6f 67 67 6c 65 34 | 28 6f 70 74 32 25 28 34 |.toggle4|(opt2%(4|
|000032e0| 29 2c 69 63 6f 6e 25 29 | 0d 0d b6 24 20 20 20 c9 |),icon%)|...$ .|
|000032f0| 20 35 30 3a f2 74 6f 67 | 67 6c 65 34 28 6f 70 74 | 50:.tog|gle4(opt|
|00003300| 32 25 28 35 29 2c 69 63 | 6f 6e 25 29 0d 0d c0 24 |2%(5),ic|on%)...$|
|00003310| 20 20 20 c9 20 35 31 3a | f2 74 6f 67 67 6c 65 34 | . 51:|.toggle4|
|00003320| 28 6f 70 74 32 25 28 36 | 29 2c 69 63 6f 6e 25 29 |(opt2%(6|),icon%)|
|00003330| 0d 0d ca 24 20 20 20 c9 | 20 35 32 3a f2 74 6f 67 |...$ .| 52:.tog|
|00003340| 67 6c 65 34 28 6f 70 74 | 32 25 28 37 29 2c 69 63 |gle4(opt|2%(7),ic|
|00003350| 6f 6e 25 29 0d 0d d4 24 | 20 20 20 c9 20 35 33 3a |on%)...$| . 53:|
|00003360| f2 74 6f 67 67 6c 65 34 | 28 6f 70 74 32 25 28 38 |.toggle4|(opt2%(8|
|00003370| 29 2c 69 63 6f 6e 25 29 | 0d 0d de 24 20 20 20 c9 |),icon%)|...$ .|
|00003380| 20 35 34 3a f2 74 6f 67 | 67 6c 65 34 28 6f 70 74 | 54:.tog|gle4(opt|
|00003390| 32 25 28 39 29 2c 69 63 | 6f 6e 25 29 0d 0d e8 05 |2%(9),ic|on%)....|
|000033a0| cb 0d 0d f2 05 e1 0d 0d | fc 04 0d 0e 06 11 dd f2 |........|........|
|000033b0| 6d 65 6e 75 28 69 63 6f | 6e 25 29 0d 0e 10 0e c8 |menu(ico|n%).....|
|000033c0| 8e 20 69 63 6f 6e 25 20 | ca 0d 0e 1a 9a 20 20 20 |. icon% |..... |
|000033d0| c9 20 34 32 3a f2 67 65 | 74 77 28 70 61 72 61 6d |. 42:.ge|tw(param|
|000033e0| 25 29 3a f2 6f 70 65 6e | 5f 77 69 6e 64 6f 77 28 |%):.open|_window(|
|000033f0| 21 71 25 2c 71 25 21 34 | 2c 71 25 21 38 2c 71 25 |!q%,q%!4|,q%!8,q%|
|00003400| 21 31 32 2c 71 25 21 31 | 36 2c 71 25 21 32 30 2c |!12,q%!1|6,q%!20,|
|00003410| 71 25 21 32 34 2c 71 25 | 21 32 38 29 3a f2 67 65 |q%!24,q%|!28):.ge|
|00003420| 74 77 28 66 69 65 6c 25 | 29 3a f2 6f 70 65 6e 5f |tw(fiel%|):.open_|
|00003430| 77 69 6e 64 6f 77 28 21 | 71 25 2c 71 25 21 34 2c |window(!|q%,q%!4,|
|00003440| 71 25 21 38 2c 71 25 21 | 31 32 2c 71 25 21 31 36 |q%!8,q%!|12,q%!16|
|00003450| 2c 71 25 21 32 30 2c 71 | 25 21 32 34 2c 71 25 21 |,q%!20,q|%!24,q%!|
|00003460| 32 38 29 0d 0e 24 53 20 | 20 20 c9 20 34 33 3a f2 |28)..$S | . 43:.|
|00003470| 67 65 74 77 28 73 61 76 | 65 32 25 29 3a f2 6f 70 |getw(sav|e2%):.op|
|00003480| 65 6e 5f 77 69 6e 64 6f | 77 28 21 71 25 2c 71 25 |en_windo|w(!q%,q%|
|00003490| 21 34 2c 71 25 21 38 2c | 71 25 21 31 32 2c 71 25 |!4,q%!8,|q%!12,q%|
|000034a0| 21 31 36 2c 71 25 21 32 | 30 2c 71 25 21 32 34 2c |!16,q%!2|0,q%!24,|
|000034b0| 71 25 21 32 38 29 0d 0e | 2e 1d 20 20 20 c9 20 33 |q%!28)..|.. . 3|
|000034c0| 36 3a f2 63 6c 65 61 72 | 66 69 65 6c 64 3a f2 75 |6:.clear|field:.u|
|000034d0| 70 6f 6e 0d 0e 38 13 20 | 20 20 c9 20 33 37 3a f2 |pon..8. | . 37:.|
|000034e0| 64 65 6c 65 74 65 0d 0e | 42 13 20 20 20 c9 20 33 |delete..|B. . 3|
|000034f0| 39 3a f2 72 65 63 6f 72 | 64 0d 0e 4c 11 20 20 20 |9:.recor|d..L. |
|00003500| c9 20 33 34 3a f2 6e 65 | 78 74 0d 0e 56 15 20 20 |. 34:.ne|xt..V. |
|00003510| 20 c9 20 33 35 3a f2 70 | 72 65 76 69 6f 75 73 0d | . 35:.p|revious.|
|00003520| 0e 60 11 20 20 20 c9 20 | 33 38 3a f2 75 70 64 74 |.`. . |38:.updt|
|00003530| 0d 0e 6a 52 20 20 20 c9 | 20 33 33 3a f2 67 65 74 |..jR .| 33:.get|
|00003540| 77 28 73 65 61 72 25 29 | 3a f2 6f 70 65 6e 5f 77 |w(sear%)|:.open_w|
|00003550| 69 6e 64 6f 77 28 21 71 | 25 2c 71 25 21 34 2c 71 |indow(!q|%,q%!4,q|
|00003560| 25 21 38 2c 71 25 21 31 | 32 2c 71 25 21 31 36 2c |%!8,q%!1|2,q%!16,|
|00003570| 71 25 21 32 30 2c 71 25 | 21 32 34 2c 71 25 21 32 |q%!20,q%|!24,q%!2|
|00003580| 38 29 0d 0e 74 52 20 20 | 20 c9 20 34 34 3a f2 67 |8)..tR | . 44:.g|
|00003590| 65 74 77 28 68 65 6c 70 | 25 29 3a f2 6f 70 65 6e |etw(help|%):.open|
|000035a0| 5f 77 69 6e 64 6f 77 28 | 21 71 25 2c 71 25 21 34 |_window(|!q%,q%!4|
|000035b0| 2c 71 25 21 38 2c 71 25 | 21 31 32 2c 71 25 21 31 |,q%!8,q%|!12,q%!1|
|000035c0| 36 2c 71 25 21 32 30 2c | 71 25 21 32 34 2c 71 25 |6,q%!20,|q%!24,q%|
|000035d0| 21 32 38 29 0d 0e 7e 12 | 20 20 20 c9 20 34 31 3a |!28)..~.| . 41:|
|000035e0| f2 70 72 69 6e 74 0d 0e | 88 08 20 20 20 cb 0d 0e |.print..|.. ...|
|000035f0| 92 05 e1 0d 0e 9c 04 0d | 0e a6 10 dd f2 63 6c 65 |........|.....cle|
|00003600| 61 72 66 69 65 6c 64 0d | 0e b0 8c f2 70 75 74 74 |arfield.|....putt|
|00003610| 65 78 74 28 22 22 2c 73 | 6f 66 74 25 2c 31 37 2c |ext("",s|oft%,17,|
|00003620| 62 62 6c 25 29 3a f2 70 | 75 74 74 65 78 74 28 22 |bbl%):.p|uttext("|
|00003630| 78 2e 78 78 22 2c 73 6f | 66 74 25 2c 35 2c 62 62 |x.xx",so|ft%,5,bb|
|00003640| 6c 25 29 3a f2 70 75 74 | 74 65 78 74 28 22 22 2c |l%):.put|text("",|
|00003650| 73 6f 66 74 25 2c 33 30 | 2c 62 62 6c 25 29 3a f2 |soft%,30|,bbl%):.|
|00003660| 70 75 74 74 65 78 74 28 | 22 22 2c 73 6f 66 74 25 |puttext(|"",soft%|
|00003670| 2c 37 2c 62 62 6c 25 29 | 3a f2 70 75 74 74 65 78 |,7,bbl%)|:.puttex|
|00003680| 74 28 22 22 2c 73 6f 66 | 74 25 2c 34 36 2c 62 62 |t("",sof|t%,46,bb|
|00003690| 6c 25 29 0d 0e ba 8a f2 | 70 75 74 74 65 78 74 28 |l%).....|puttext(|
|000036a0| 22 22 2c 73 6f 66 74 25 | 2c 32 33 2c 62 62 6c 25 |"",soft%|,23,bbl%|
|000036b0| 29 3a f2 70 75 74 74 65 | 78 74 28 22 22 2c 73 6f |):.putte|xt("",so|
|000036c0| 66 74 25 2c 32 35 2c 62 | 62 6c 25 29 3a f2 70 75 |ft%,25,b|bl%):.pu|
|000036d0| 74 74 65 78 74 28 22 22 | 2c 73 6f 66 74 25 2c 32 |ttext(""|,soft%,2|
|000036e0| 38 2c 62 62 6c 25 29 3a | f2 70 75 74 74 65 78 74 |8,bbl%):|.puttext|
|000036f0| 28 22 22 2c 73 6f 66 74 | 25 2c 32 31 2c 62 62 6c |("",soft|%,21,bbl|
|00003700| 25 29 3a f2 70 75 74 74 | 65 78 74 28 22 22 2c 73 |%):.putt|ext("",s|
|00003710| 6f 66 74 25 2c 33 31 2c | 62 62 6c 25 29 0d 0e c4 |oft%,31,|bbl%)...|
|00003720| 91 f2 63 68 61 6e 67 65 | 69 63 6f 6e 28 6f 70 74 |..change|icon(opt|
|00003730| 25 28 31 29 2c 31 34 29 | 3a f2 63 68 61 6e 67 65 |%(1),14)|:.change|
|00003740| 69 63 6f 6e 28 6f 70 74 | 25 28 32 29 2c 31 36 29 |icon(opt|%(2),16)|
|00003750| 3a 6f 70 74 25 28 34 29 | 3d 30 3a 6f 70 74 25 28 |:opt%(4)|=0:opt%(|
|00003760| 35 29 3d 30 3a 6f 70 74 | 25 28 33 29 3d 30 3a f2 |5)=0:opt|%(3)=0:.|
|00003770| 75 6e 73 65 74 69 63 6f | 6e 28 73 6f 66 74 25 2c |unsetico|n(soft%,|
|00003780| 31 31 29 3a f2 75 6e 73 | 65 74 69 63 6f 6e 28 73 |11):.uns|eticon(s|
|00003790| 6f 66 74 25 2c 31 30 29 | 3a f2 75 6e 73 65 74 69 |oft%,10)|:.unseti|
|000037a0| 63 6f 6e 28 73 6f 66 74 | 25 2c 32 39 29 3a 0d 0e |con(soft|%,29):..|
|000037b0| ce 24 c8 99 20 22 57 69 | 6d 70 5f 53 65 74 43 61 |.$.. "Wi|mp_SetCa|
|000037c0| 72 65 74 50 6f 73 69 74 | 69 6f 6e 22 2c 2d 31 2c |retPosit|ion",-1,|
|000037d0| 2d 31 0d 0e d8 17 f4 20 | 50 52 4f 43 65 6e 74 65 |-1..... |PROCente|
|000037e0| 72 69 63 6f 6e 28 31 37 | 29 0d 0e e2 05 e1 0d 0e |ricon(17|).......|
|000037f0| ec 04 0d 0e f6 65 dd f2 | 73 65 74 69 63 6f 6e 28 |.....e..|seticon(|
|00003800| 68 25 2c 69 25 29 3a 62 | 62 6c 25 21 30 3d 68 25 |h%,i%):b|bl%!0=h%|
|00003810| 3a 62 62 6c 25 21 34 3d | 69 25 3a 62 62 6c 25 21 |:bbl%!4=|i%:bbl%!|
|00003820| 38 3d 26 32 30 30 30 30 | 30 3a 62 62 6c 25 21 31 |8=&20000|0:bbl%!1|
|00003830| 32 3d 26 32 30 30 30 30 | 30 3a c8 99 22 57 69 6d |2=&20000|0:.."Wim|
|00003840| 70 5f 53 65 74 49 63 6f | 6e 53 74 61 74 65 22 2c |p_SetIco|nState",|
|00003850| 2c 62 62 6c 25 3a e1 0d | 0f 00 04 0d 0f 0a 61 dd |,bbl%:..|......a.|
|00003860| f2 75 6e 73 65 74 69 63 | 6f 6e 28 68 25 2c 69 25 |.unsetic|on(h%,i%|
|00003870| 29 3a 62 62 6c 25 21 30 | 3d 68 25 3a 62 62 6c 25 |):bbl%!0|=h%:bbl%|
|00003880| 21 34 3d 69 25 3a 62 62 | 6c 25 21 38 3d 30 3a 62 |!4=i%:bb|l%!8=0:b|
|00003890| 62 6c 25 21 31 32 3d 26 | 32 30 30 30 30 30 3a c8 |bl%!12=&|200000:.|
|000038a0| 99 22 57 69 6d 70 5f 53 | 65 74 49 63 6f 6e 53 74 |."Wimp_S|etIconSt|
|000038b0| 61 74 65 22 2c 2c 62 62 | 6c 25 3a e1 0d 0f 14 04 |ate",,bb|l%:.....|
|000038c0| 0d 0f 1e 4f dd f2 63 68 | 61 6e 67 65 69 63 6f 6e |...O..ch|angeicon|
|000038d0| 28 f8 20 6f 6c 64 25 2c | 69 25 29 3a f2 75 6e 73 |(. old%,|i%):.uns|
|000038e0| 65 74 69 63 6f 6e 28 73 | 6f 66 74 25 2c 6f 6c 64 |eticon(s|oft%,old|
|000038f0| 25 29 3a f2 73 65 74 69 | 63 6f 6e 28 73 6f 66 74 |%):.seti|con(soft|
|00003900| 25 2c 69 25 29 3a 6f 6c | 64 25 3d 69 25 3a e1 0d |%,i%):ol|d%=i%:..|
|00003910| 0f 28 04 0d 0f 32 52 dd | f2 63 68 61 6e 67 65 69 |.(...2R.|.changei|
|00003920| 63 6f 6e 32 28 f8 20 6f | 6c 64 25 2c 69 25 29 3a |con2(. o|ld%,i%):|
|00003930| f2 75 6e 73 65 74 69 63 | 6f 6e 28 70 61 72 61 6d |.unsetic|on(param|
|00003940| 25 2c 6f 6c 64 25 29 3a | f2 73 65 74 69 63 6f 6e |%,old%):|.seticon|
|00003950| 28 70 61 72 61 6d 25 2c | 69 25 29 3a 6f 6c 64 25 |(param%,|i%):old%|
|00003960| 3d 69 25 3a e1 0d 0f 3c | 04 0d 0f 46 50 dd f2 63 |=i%:...<|...FP..c|
|00003970| 68 61 6e 67 65 69 63 6f | 6e 33 28 f8 20 6f 6c 64 |hangeico|n3(. old|
|00003980| 25 2c 69 25 29 3a f2 73 | 65 74 69 63 6f 6e 28 73 |%,i%):.s|eticon(s|
|00003990| 65 61 72 25 2c 6f 6c 64 | 25 29 3a f2 75 6e 73 65 |ear%,old|%):.unse|
|000039a0| 74 69 63 6f 6e 28 73 65 | 61 72 25 2c 69 25 29 3a |ticon(se|ar%,i%):|
|000039b0| 6f 6c 64 25 3d 69 25 3a | e1 0d 0f 50 04 0d 0f 5a |old%=i%:|...P...Z|
|000039c0| 16 dd f2 74 6f 67 67 6c | 65 28 f8 20 6f 70 25 2c |...toggl|e(. op%,|
|000039d0| 69 25 29 0d 0f 64 37 e7 | 20 6f 70 25 3d 30 20 8c |i%)..d7.| op%=0 .|
|000039e0| 20 f2 73 65 74 69 63 6f | 6e 28 73 6f 66 74 25 2c | .setico|n(soft%,|
|000039f0| 69 25 29 20 8b 20 f2 75 | 6e 73 65 74 69 63 6f 6e |i%) . .u|nseticon|
|00003a00| 28 73 6f 66 74 25 2c 69 | 25 29 0d 0f 6e 11 6f 70 |(soft%,i|%)..n.op|
|00003a10| 25 3d 6f 70 25 20 82 20 | 31 3a e1 0d 0f 78 04 0d |%=op% . |1:...x..|
|00003a20| 0f 82 17 dd f2 74 6f 67 | 67 6c 65 32 28 f8 20 6f |.....tog|gle2(. o|
|00003a30| 70 25 2c 69 25 29 0d 0f | 8c 39 e7 20 6f 70 25 3d |p%,i%)..|.9. op%=|
|00003a40| 30 20 8c 20 f2 73 65 74 | 69 63 6f 6e 28 70 61 72 |0 . .set|icon(par|
|00003a50| 61 6d 25 2c 69 25 29 20 | 8b 20 f2 75 6e 73 65 74 |am%,i%) |. .unset|
|00003a60| 69 63 6f 6e 28 70 61 72 | 61 6d 25 2c 69 25 29 0d |icon(par|am%,i%).|
|00003a70| 0f 96 11 6f 70 25 3d 6f | 70 25 20 82 20 31 3a e1 |...op%=o|p% . 1:.|
|00003a80| 0d 0f a0 04 0d 0f aa 17 | dd f2 74 6f 67 67 6c 65 |........|..toggle|
|00003a90| 33 28 f8 20 6f 70 25 2c | 69 25 29 0d 0f b4 39 e7 |3(. op%,|i%)...9.|
|00003aa0| 20 6f 70 25 3d 31 20 8c | 20 f2 73 65 74 69 63 6f | op%=1 .| .setico|
|00003ab0| 6e 28 70 61 72 61 6d 25 | 2c 69 25 29 20 8b 20 f2 |n(param%|,i%) . .|
|00003ac0| 75 6e 73 65 74 69 63 6f | 6e 28 70 61 72 61 6d 25 |unsetico|n(param%|
|00003ad0| 2c 69 25 29 0d 0f be 11 | 6f 70 25 3d 6f 70 25 20 |,i%)....|op%=op% |
|00003ae0| 82 20 31 3a e1 0d 0f c8 | 04 0d 0f d2 17 dd f2 74 |. 1:....|.......t|
|00003af0| 6f 67 67 6c 65 34 28 f8 | 20 6f 70 25 2c 69 25 29 |oggle4(.| op%,i%)|
|00003b00| 0d 0f dc 37 e7 20 6f 70 | 25 3d 30 20 8c 20 f2 73 |...7. op|%=0 . .s|
|00003b10| 65 74 69 63 6f 6e 28 66 | 69 65 6c 25 2c 69 25 29 |eticon(f|iel%,i%)|
|00003b20| 20 8b 20 f2 75 6e 73 65 | 74 69 63 6f 6e 28 66 69 | . .unse|ticon(fi|
|00003b30| 65 6c 25 2c 69 25 29 0d | 0f e6 11 6f 70 25 3d 6f |el%,i%).|...op%=o|
|00003b40| 70 25 20 82 20 31 3a e1 | 0d 0f f0 04 0d 0f fa 17 |p% . 1:.|........|
|00003b50| dd f2 74 6f 67 67 6c 65 | 78 28 f8 20 6f 70 25 2c |..toggle|x(. op%,|
|00003b60| 69 25 29 0d 10 04 37 e7 | 20 6f 70 25 3d 30 20 8c |i%)...7.| op%=0 .|
|00003b70| 20 f2 73 65 74 69 63 6f | 6e 28 73 65 61 72 25 2c | .setico|n(sear%,|
|00003b80| 69 25 29 20 8b 20 f2 75 | 6e 73 65 74 69 63 6f 6e |i%) . .u|nseticon|
|00003b90| 28 73 65 61 72 25 2c 69 | 25 29 0d 10 0e 11 6f 70 |(sear%,i|%)....op|
|00003ba0| 25 3d 6f 70 25 20 82 20 | 31 3a e1 0d 10 18 04 0d |%=op% . |1:......|
|00003bb0| 10 22 16 dd f2 74 6f 67 | 67 6c 65 32 61 28 6f 70 |."...tog|gle2a(op|
|00003bc0| 25 2c 69 25 29 0d 10 2c | 39 e7 20 6f 70 25 3d 31 |%,i%)..,|9. op%=1|
|00003bd0| 20 8c 20 f2 73 65 74 69 | 63 6f 6e 28 70 61 72 61 | . .seti|con(para|
|00003be0| 6d 25 2c 69 25 29 20 8b | 20 f2 75 6e 73 65 74 69 |m%,i%) .| .unseti|
|00003bf0| 63 6f 6e 28 70 61 72 61 | 6d 25 2c 69 25 29 0d 10 |con(para|m%,i%)..|
|00003c00| 36 05 e1 0d 10 40 04 0d | 10 4a 16 dd f2 74 6f 67 |6....@..|.J...tog|
|00003c10| 67 6c 65 33 61 28 6f 70 | 25 2c 69 25 29 0d 10 54 |gle3a(op|%,i%)..T|
|00003c20| 39 e7 20 6f 70 25 3d 30 | 20 8c 20 f2 73 65 74 69 |9. op%=0| . .seti|
|00003c30| 63 6f 6e 28 70 61 72 61 | 6d 25 2c 69 25 29 20 8b |con(para|m%,i%) .|
|00003c40| 20 f2 75 6e 73 65 74 69 | 63 6f 6e 28 70 61 72 61 | .unseti|con(para|
|00003c50| 6d 25 2c 69 25 29 0d 10 | 5e 05 e1 0d 10 68 04 0d |m%,i%)..|^....h..|
|00003c60| 10 72 1f dd f2 65 6e 74 | 65 72 28 77 25 2c 69 25 |.r...ent|er(w%,i%|
|00003c70| 2c 69 6e 64 65 78 25 2c | 63 68 61 72 25 29 0d 10 |,index%,|char%)..|
|00003c80| 7c 50 e7 20 77 25 3d 73 | 6f 66 74 25 20 80 20 69 ||P. w%=s|oft% . i|
|00003c90| 25 3d 34 39 20 8c 20 f2 | 63 6c 6f 73 65 61 77 69 |%=49 . .|closeawi|
|00003ca0| 6e 64 6f 77 28 73 65 61 | 72 25 29 3a f2 74 72 65 |ndow(sea|r%):.tre|
|00003cb0| 61 74 69 6e 70 75 74 32 | 28 69 6e 64 65 78 25 2c |atinput2|(index%,|
|00003cc0| 63 68 61 72 25 29 3a f2 | 75 70 6f 6e 3a e1 0d 10 |char%):.|upon:...|
|00003cd0| 86 4a e7 20 77 25 3d 73 | 6f 66 74 25 20 8c 20 f2 |.J. w%=s|oft% . .|
|00003ce0| 63 6c 6f 73 65 61 77 69 | 6e 64 6f 77 28 73 65 61 |closeawi|ndow(sea|
|00003cf0| 72 25 29 3a f2 74 72 65 | 61 74 69 6e 70 75 74 28 |r%):.tre|atinput(|
|00003d00| 69 25 2c 69 6e 64 65 78 | 25 2c 63 68 61 72 25 29 |i%,index|%,char%)|
|00003d10| 3a f2 75 70 6f 6e 3a e1 | 0d 10 90 30 e7 20 77 25 |:.upon:.|...0. w%|
|00003d20| 3d 66 69 65 6c 25 20 8c | 20 f2 74 72 65 61 74 69 |=fiel% .| .treati|
|00003d30| 6e 70 75 74 33 28 69 25 | 2c 69 6e 64 65 78 25 2c |nput3(i%|,index%,|
|00003d40| 63 68 61 72 25 29 3a e1 | 0d 10 9a 2f e7 20 77 25 |char%):.|.../. w%|
|00003d50| 3d 73 65 61 72 25 20 8c | 20 f2 69 73 69 74 72 65 |=sear% .| .isitre|
|00003d60| 74 75 72 6e 28 69 25 2c | 69 6e 64 65 78 25 2c 63 |turn(i%,|index%,c|
|00003d70| 68 61 72 25 29 3a e1 0d | 10 a4 05 e1 0d 10 ae 04 |har%):..|........|
|00003d80| 0d 10 b8 1f dd f2 74 72 | 65 61 74 69 6e 70 75 74 |......tr|eatinput|
|00003d90| 32 28 69 6e 64 65 78 25 | 2c 63 68 61 72 25 29 0d |2(index%|,char%).|
|00003da0| 10 c2 0e ea 20 63 75 25 | 2c 6f 75 74 25 0d 10 cc |.... cu%|,out%...|
|00003db0| 0a 6f 75 74 25 3d 30 0d | 10 d6 10 e7 20 63 68 61 |.out%=0.|.... cha|
|00003dc0| 72 25 3d 31 33 20 8c 0d | 10 e0 46 20 20 20 c8 99 |r%=13 ..|..F ..|
|00003dd0| 20 22 57 69 6d 70 5f 53 | 65 74 43 61 72 65 74 50 | "Wimp_S|etCaretP|
|00003de0| 6f 73 69 74 69 6f 6e 22 | 2c 2d 31 2c 2d 31 3a 63 |osition"|,-1,-1:c|
|00003df0| 75 25 3d bb 28 a4 67 65 | 74 74 65 78 74 28 73 6f |u%=.(.ge|ttext(so|
|00003e00| 66 74 25 2c 34 39 2c 62 | 62 6c 25 29 29 0d 10 ea |ft%,49,b|bl%))...|
|00003e10| 55 20 20 20 e7 20 63 75 | 25 3e 6e 62 72 25 20 84 |U . cu|%>nbr% .|
|00003e20| 20 63 75 25 3c 31 20 8c | 20 63 75 25 3d 63 75 72 | cu%<1 .| cu%=cur|
|00003e30| 72 65 6e 74 25 3a f2 70 | 75 74 74 65 78 74 28 c3 |rent%:.p|uttext(.|
|00003e40| 28 63 75 25 29 2c 73 6f | 66 74 25 2c 34 39 2c 62 |(cu%),so|ft%,49,b|
|00003e50| 62 6c 25 29 3a 6f 75 74 | 25 3d 31 3a e5 20 8d 64 |bl%):out|%=1:. .d|
|00003e60| 7e 50 0d 10 f4 54 20 20 | 20 f2 75 6e 73 74 6f 63 |~P...T | .unstoc|
|00003e70| 6b 28 63 75 25 29 3a 63 | 75 72 72 65 6e 74 25 3d |k(cu%):c|urrent%=|
|00003e80| 63 75 25 3a f2 70 75 74 | 74 65 78 74 28 c3 28 63 |cu%:.put|text(.(c|
|00003e90| 75 72 72 65 6e 74 25 29 | 2c 73 6f 66 74 25 2c 34 |urrent%)|,soft%,4|
|00003ea0| 39 2c 62 62 6c 25 29 3a | f2 65 6e 74 65 72 69 63 |9,bbl%):|.enteric|
|00003eb0| 6f 6e 28 31 37 29 0d 10 | fe 05 cd 0d 11 08 11 e7 |on(17)..|........|
|00003ec0| 20 6f 75 74 25 20 8c 20 | 8d 54 52 51 0d 11 12 05 | out% . |.TRQ....|
|00003ed0| e1 0d 11 1c 04 0d 11 26 | 21 dd f2 74 72 65 61 74 |.......&|!..treat|
|00003ee0| 69 6e 70 75 74 28 69 25 | 2c 69 6e 64 65 78 25 2c |input(i%|,index%,|
|00003ef0| 63 68 61 72 25 29 0d 11 | 30 1d e7 20 63 68 61 72 |char%)..|0.. char|
|00003f00| 25 3d 31 33 20 84 20 63 | 68 61 72 25 3d 26 31 38 |%=13 . c|har%=&18|
|00003f10| 45 20 8c 0d 11 3a 0b c8 | 8e 20 69 25 20 ca 0d 11 |E ...:..|. i% ...|
|00003f20| 44 19 20 20 20 c9 20 31 | 37 3a f2 65 6e 74 65 72 |D. . 1|7:.enter|
|00003f30| 69 63 6f 6e 28 35 29 0d | 11 4e 1a 20 20 20 c9 20 |icon(5).|.N. . |
|00003f40| 35 20 3a f2 65 6e 74 65 | 72 69 63 6f 6e 28 33 30 |5 :.ente|ricon(30|
|00003f50| 29 0d 11 58 19 20 20 20 | c9 20 33 30 3a f2 65 6e |)..X. |. 30:.en|
|00003f60| 74 65 72 69 63 6f 6e 28 | 37 29 0d 11 62 1a 20 20 |tericon(|7)..b. |
|00003f70| 20 c9 20 37 20 3a f2 65 | 6e 74 65 72 69 63 6f 6e | . 7 :.e|ntericon|
|00003f80| 28 34 36 29 0d 11 6c 1a | 20 20 20 c9 20 34 36 3a |(46)..l.| . 46:|
|00003f90| f2 65 6e 74 65 72 69 63 | 6f 6e 28 32 33 29 0d 11 |.enteric|on(23)..|
|00003fa0| 76 1a 20 20 20 c9 20 32 | 33 3a f2 65 6e 74 65 72 |v. . 2|3:.enter|
|00003fb0| 69 63 6f 6e 28 32 35 29 | 0d 11 80 1a 20 20 20 c9 |icon(25)|.... .|
|00003fc0| 20 32 35 3a f2 65 6e 74 | 65 72 69 63 6f 6e 28 32 | 25:.ent|ericon(2|
|00003fd0| 38 29 0d 11 8a 1a 20 20 | 20 c9 20 32 38 3a f2 65 |8).... | . 28:.e|
|00003fe0| 6e 74 65 72 69 63 6f 6e | 28 32 31 29 0d 11 94 1a |ntericon|(21)....|
|00003ff0| 20 20 20 c9 20 32 31 3a | f2 65 6e 74 65 72 69 63 | . 21:|.enteric|
|00004000| 6f 6e 28 33 31 29 0d 11 | 9e 1a 20 20 20 c9 20 33 |on(31)..|.. . 3|
|00004010| 31 3a f2 65 6e 74 65 72 | 69 63 6f 6e 28 31 37 29 |1:.enter|icon(17)|
|00004020| 0d 11 a8 05 cb 0d 11 b2 | 05 cd 0d 11 bc 12 e7 20 |........|....... |
|00004030| 63 68 61 72 25 3d 26 31 | 38 46 20 8c 0d 11 c6 0b |char%=&1|8F .....|
|00004040| c8 8e 20 69 25 20 ca 0d | 11 d0 1a 20 20 20 c9 20 |.. i% ..|... . |
|00004050| 31 37 3a f2 65 6e 74 65 | 72 69 63 6f 6e 28 33 31 |17:.ente|ricon(31|
|00004060| 29 0d 11 da 1a 20 20 20 | c9 20 35 20 3a f2 65 6e |).... |. 5 :.en|
|00004070| 74 65 72 69 63 6f 6e 28 | 31 37 29 0d 11 e4 19 20 |tericon(|17).... |
|00004080| 20 20 c9 20 33 30 3a f2 | 65 6e 74 65 72 69 63 6f | . 30:.|enterico|
|00004090| 6e 28 35 29 0d 11 ee 1a | 20 20 20 c9 20 37 20 3a |n(5)....| . 7 :|
|000040a0| f2 65 6e 74 65 72 69 63 | 6f 6e 28 33 30 29 0d 11 |.enteric|on(30)..|
|000040b0| f8 19 20 20 20 c9 20 34 | 36 3a f2 65 6e 74 65 72 |.. . 4|6:.enter|
|000040c0| 69 63 6f 6e 28 37 29 0d | 12 02 1a 20 20 20 c9 20 |icon(7).|... . |
|000040d0| 32 33 3a f2 65 6e 74 65 | 72 69 63 6f 6e 28 34 36 |23:.ente|ricon(46|
|000040e0| 29 0d 12 0c 1a 20 20 20 | c9 20 32 35 3a f2 65 6e |).... |. 25:.en|
|000040f0| 74 65 72 69 63 6f 6e 28 | 32 33 29 0d 12 16 1a 20 |tericon(|23).... |
|00004100| 20 20 c9 20 32 38 3a f2 | 65 6e 74 65 72 69 63 6f | . 28:.|enterico|
|00004110| 6e 28 32 35 29 0d 12 20 | 1a 20 20 20 c9 20 32 31 |n(25).. |. . 21|
|00004120| 3a f2 65 6e 74 65 72 69 | 63 6f 6e 28 32 38 29 0d |:.enteri|con(28).|
|00004130| 12 2a 1a 20 20 20 c9 20 | 33 31 3a f2 65 6e 74 65 |.*. . |31:.ente|
|00004140| 72 69 63 6f 6e 28 32 31 | 29 0d 12 34 05 cb 0d 12 |ricon(21|)..4....|
|00004150| 3e 05 cd 0d 12 48 05 e1 | 0d 12 52 04 0d 12 5c 22 |>....H..|..R...\"|
|00004160| dd f2 74 72 65 61 74 69 | 6e 70 75 74 33 28 69 25 |..treati|nput3(i%|
|00004170| 2c 69 6e 64 65 78 25 2c | 63 68 61 72 25 29 0d 12 |,index%,|char%)..|
|00004180| 66 0f e7 20 69 25 3d 35 | 35 20 8c 20 e1 0d 12 70 |f.. i%=5|5 . ...p|
|00004190| 1d e7 20 63 68 61 72 25 | 3d 31 33 20 84 20 63 68 |.. char%|=13 . ch|
|000041a0| 61 72 25 3d 26 31 38 45 | 20 8c 0d 12 7a 32 20 e7 |ar%=&18E| ...z2 .|
|000041b0| 20 69 25 3d 32 37 20 8c | 20 f2 65 6e 74 65 72 69 | i%=27 .| .enteri|
|000041c0| 63 6f 6e 32 28 31 30 29 | 20 8b 20 f2 65 6e 74 65 |con2(10)| . .ente|
|000041d0| 72 69 63 6f 6e 32 28 69 | 25 2b 31 29 0d 12 84 05 |ricon2(i|%+1)....|
|000041e0| cd 0d 12 8e 12 e7 20 63 | 68 61 72 25 3d 26 31 38 |...... c|har%=&18|
|000041f0| 46 20 8c 0d 12 98 32 20 | e7 20 69 25 3d 31 30 20 |F ....2 |. i%=10 |
|00004200| 8c 20 f2 65 6e 74 65 72 | 69 63 6f 6e 32 28 32 37 |. .enter|icon2(27|
|00004210| 29 20 8b 20 f2 65 6e 74 | 65 72 69 63 6f 6e 32 28 |) . .ent|ericon2(|
|00004220| 69 25 2d 31 29 0d 12 a2 | 05 cd 0d 12 ac 05 e1 0d |i%-1)...|........|
|00004230| 12 b6 04 0d 12 c0 04 0d | 12 ca 59 dd f2 65 6e 74 |........|..Y..ent|
|00004240| 65 72 69 63 6f 6e 28 69 | 25 29 3a c8 99 20 22 57 |ericon(i|%):.. "W|
|00004250| 69 6d 70 5f 53 65 74 43 | 61 72 65 74 50 6f 73 69 |imp_SetC|aretPosi|
|00004260| 74 69 6f 6e 22 2c 73 6f | 66 74 25 2c 69 25 2c 2c |tion",so|ft%,i%,,|
|00004270| 2c 2d 31 2c a9 28 a4 67 | 65 74 74 65 78 74 28 73 |,-1,.(.g|ettext(s|
|00004280| 6f 66 74 25 2c 69 25 2c | 62 62 6c 25 29 29 3a e1 |oft%,i%,|bbl%)):.|
|00004290| 0d 12 d4 04 0d 12 de 5a | dd f2 65 6e 74 65 72 69 |.......Z|..enteri|
|000042a0| 63 6f 6e 32 28 69 25 29 | 3a c8 99 20 22 57 69 6d |con2(i%)|:.. "Wim|
|000042b0| 70 5f 53 65 74 43 61 72 | 65 74 50 6f 73 69 74 69 |p_SetCar|etPositi|
|000042c0| 6f 6e 22 2c 66 69 65 6c | 25 2c 69 25 2c 2c 2c 2d |on",fiel|%,i%,,,-|
|000042d0| 31 2c a9 28 a4 67 65 74 | 74 65 78 74 28 66 69 65 |1,.(.get|text(fie|
|000042e0| 6c 25 2c 69 25 2c 62 62 | 6c 25 29 29 3a e1 0d 12 |l%,i%,bb|l%)):...|
|000042f0| e8 04 0d 12 f2 04 0d 12 | fc 0c dd f2 73 61 76 65 |........|....save|
|00004300| 69 74 0d 13 06 13 e7 20 | 74 68 69 73 25 3d 73 61 |it..... |this%=sa|
|00004310| 76 65 25 20 8c 0d 13 10 | 3a 20 20 20 41 24 3d 24 |ve% ....|: A$=$|
|00004320| 28 71 25 2b 34 34 29 3a | f2 53 41 56 45 73 6f 66 |(q%+44):|.SAVEsof|
|00004330| 74 28 41 24 29 3a f2 70 | 75 74 74 65 78 74 28 41 |t(A$):.p|uttext(A|
|00004340| 24 2c 73 61 76 65 25 2c | 31 2c 62 62 6c 25 29 0d |$,save%,|1,bbl%).|
|00004350| 13 1a 14 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |... | |
|00004360| 20 20 cc 0d 13 24 50 20 | 20 20 41 24 3d 24 28 71 | ...$P | A$=$(q|
|00004370| 25 2b 34 34 29 3a f2 53 | 41 56 45 70 72 6e 28 41 |%+44):.S|AVEprn(A|
|00004380| 24 29 3a f2 70 75 74 74 | 65 78 74 28 41 24 2c 73 |$):.putt|ext(A$,s|
|00004390| 61 76 65 32 25 2c 31 2c | 62 62 6c 25 29 3a f2 63 |ave2%,1,|bbl%):.c|
|000043a0| 6c 6f 73 65 61 77 69 6e | 64 6f 77 28 73 61 76 65 |loseawin|dow(save|
|000043b0| 32 25 29 0d 13 2e 05 cd | 0d 13 38 05 e1 0d 13 42 |2%).....|..8....B|
|000043c0| 04 0d 13 4c 21 dd f2 53 | 41 56 45 73 6f 66 74 28 |...L!..S|AVEsoft(|
|000043d0| 6e 61 6d 65 24 29 3a 24 | 62 62 6c 25 3d 6e 61 6d |name$):$|bbl%=nam|
|000043e0| 65 24 0d 13 56 09 ea 20 | 78 78 78 0d 13 60 1c c8 |e$..V.. |xxx..`..|
|000043f0| 99 20 22 4f 53 5f 46 69 | 6c 65 22 2c 35 2c 62 62 |. "OS_Fi|le",5,bb|
|00004400| 6c 25 20 b8 20 52 30 0d | 13 6a 0d e7 20 52 30 3c |l% . R0.|.j.. R0<|
|00004410| 3e 30 20 8c 0d 13 74 99 | 21 62 75 66 66 65 72 25 |>0 ...t.|!buffer%|
|00004420| 3d 30 3a 24 28 62 75 66 | 66 65 72 25 2b 34 29 3d |=0:$(buf|fer%+4)=|
|00004430| 22 54 68 69 73 20 66 69 | 6c 65 20 61 6c 72 65 61 |"This fi|le alrea|
|00004440| 64 79 20 65 78 69 73 74 | 73 20 20 20 4f 76 65 72 |dy exist|s Over|
|00004450| 77 72 69 74 65 20 3f 22 | 3a c8 99 20 22 57 69 6d |write ?"|:.. "Wim|
|00004460| 70 5f 52 65 70 6f 72 74 | 45 72 72 6f 72 22 2c 62 |p_Report|Error",b|
|00004470| 75 66 66 65 72 25 2c 31 | 39 2c 22 57 61 72 6e 69 |uffer%,1|9,"Warni|
|00004480| 6e 67 20 66 72 6f 6d 20 | 74 68 65 20 27 53 6f 66 |ng from |the 'Sof|
|00004490| 74 77 61 72 65 20 4d 61 | 6e 61 67 65 72 27 20 70 |tware Ma|nager' p|
|000044a0| 72 6f 67 72 61 6d 22 20 | b8 20 2c 52 31 0d 13 7e |rogram" |. ,R1..~|
|000044b0| 0f e7 20 52 31 3c 3e 31 | 20 8c 20 e1 0d 13 88 20 |.. R1<>1| . .... |
|000044c0| e7 20 52 31 3d 31 20 8c | 20 c8 99 20 22 4f 53 5f |. R1=1 .| .. "OS_|
|000044d0| 46 69 6c 65 22 2c 36 2c | 62 62 6c 25 0d 13 92 05 |File",6,|bbl%....|
|000044e0| cd 0d 13 9c 2f e7 20 6e | 62 72 25 3c 3d 31 20 8c |..../. n|br%<=1 .|
|000044f0| 20 f2 77 61 72 6e 69 6e | 67 28 22 4e 6f 74 68 69 | .warnin|g("Nothi|
|00004500| 6e 67 20 74 6f 20 73 61 | 76 65 20 21 22 29 3a e1 |ng to sa|ve !"):.|
|00004510| 0d 13 a6 10 78 78 78 3d | ae 28 6e 61 6d 65 24 29 |....xxx=|.(name$)|
|00004520| 0d 13 b0 12 e3 4a 25 3d | 31 20 b8 20 6e 62 72 25 |.....J%=|1 . nbr%|
|00004530| 2d 31 0d 13 ba 23 f1 23 | 78 78 78 2c 64 62 24 28 |-1...#.#|xxx,db$(|
|00004540| 4a 25 2c 30 29 2c c0 64 | 62 24 28 4a 25 2c 31 29 |J%,0),.d|b$(J%,1)|
|00004550| 2c 31 33 34 29 0d 13 c4 | 05 ed 0d 13 ce 0a 2a 43 |,134)...|......*C|
|00004560| 4c 4f 53 45 0d 13 d8 1c | c8 99 20 22 4f 53 5f 46 |LOSE....|.. "OS_F|
|00004570| 69 6c 65 22 2c 31 38 2c | 62 62 6c 25 2c 26 42 32 |ile",18,|bbl%,&B2|
|00004580| 0d 13 e2 1f 62 69 67 75 | 70 25 3d 30 3a f2 73 65 |....bigu|p%=0:.se|
|00004590| 74 69 63 6f 6e 28 73 6f | 66 74 25 2c 35 35 29 0d |ticon(so|ft%,55).|
|000045a0| 13 ec 05 e1 0d 13 f6 04 | 0d 14 00 20 dd f2 53 41 |........|... ..SA|
|000045b0| 56 45 70 72 6e 28 6e 61 | 6d 65 24 29 3a 24 62 62 |VEprn(na|me$):$bb|
|000045c0| 6c 25 3d 6e 61 6d 65 24 | 0d 14 0a 09 ea 20 78 78 |l%=name$|..... xx|
|000045d0| 78 0d 14 14 1c c8 99 20 | 22 4f 53 5f 46 69 6c 65 |x...... |"OS_File|
|000045e0| 22 2c 35 2c 62 62 6c 25 | 20 b8 20 52 30 0d 14 1e |",5,bbl%| . R0...|
|000045f0| 0d e7 20 52 30 3c 3e 30 | 20 8c 0d 14 28 99 21 62 |.. R0<>0| ...(.!b|
|00004600| 75 66 66 65 72 25 3d 30 | 3a 24 28 62 75 66 66 65 |uffer%=0|:$(buffe|
|00004610| 72 25 2b 34 29 3d 22 54 | 68 69 73 20 66 69 6c 65 |r%+4)="T|his file|
|00004620| 20 61 6c 72 65 61 64 79 | 20 65 78 69 73 74 73 20 | already| exists |
|00004630| 20 20 4f 76 65 72 77 72 | 69 74 65 20 3f 22 3a c8 | Overwr|ite ?":.|
|00004640| 99 20 22 57 69 6d 70 5f | 52 65 70 6f 72 74 45 72 |. "Wimp_|ReportEr|
|00004650| 72 6f 72 22 2c 62 75 66 | 66 65 72 25 2c 31 39 2c |ror",buf|fer%,19,|
|00004660| 22 57 61 72 6e 69 6e 67 | 20 66 72 6f 6d 20 74 68 |"Warning| from th|
|00004670| 65 20 27 53 6f 66 74 77 | 61 72 65 20 4d 61 6e 61 |e 'Softw|are Mana|
|00004680| 67 65 72 27 20 70 72 6f | 67 72 61 6d 22 20 b8 20 |ger' pro|gram" . |
|00004690| 2c 52 31 0d 14 32 0f e7 | 20 52 31 3c 3e 31 20 8c |,R1..2..| R1<>1 .|
|000046a0| 20 e1 0d 14 3c 20 e7 20 | 52 31 3d 31 20 8c 20 c8 | ...< . |R1=1 . .|
|000046b0| 99 20 22 4f 53 5f 46 69 | 6c 65 22 2c 36 2c 62 62 |. "OS_Fi|le",6,bb|
|000046c0| 6c 25 0d 14 46 05 cd 0d | 14 50 10 78 78 78 3d ae |l%..F...|.P.xxx=.|
|000046d0| 28 6e 61 6d 65 24 29 0d | 14 5a 0e e3 4a 25 3d 36 |(name$).|.Z..J%=6|
|000046e0| 20 b8 20 33 30 0d 14 64 | 15 f1 23 78 78 78 2c c3 | . 30..d|..#xxx,.|
|000046f0| 28 6f 70 74 25 28 4a 25 | 29 29 0d 14 6e 05 ed 0d |(opt%(J%|))..n...|
|00004700| 14 78 0f e3 4a 25 3d 31 | 30 20 b8 20 32 37 0d 14 |.x..J%=1|0 . 27..|
|00004710| 82 21 f1 23 78 78 78 2c | a4 67 65 74 74 65 78 74 |.!.#xxx,|.gettext|
|00004720| 28 66 69 65 6c 25 2c 4a | 25 2c 70 74 65 25 29 0d |(fiel%,J|%,pte%).|
|00004730| 14 8c 05 ed 0d 14 96 0d | e3 4a 25 3d 31 20 b8 20 |........|.J%=1 . |
|00004740| 39 0d 14 a0 16 f1 23 78 | 78 78 2c c3 28 6f 70 74 |9.....#x|xx,.(opt|
|00004750| 32 25 28 4a 25 29 29 0d | 14 aa 05 ed 0d 14 b4 21 |2%(J%)).|.......!|
|00004760| f1 23 78 78 78 2c a4 67 | 65 74 74 65 78 74 28 66 |.#xxx,.g|ettext(f|
|00004770| 69 65 6c 25 2c 35 35 2c | 70 74 65 25 29 0d 14 be |iel%,55,|pte%)...|
|00004780| 04 0d 14 c8 0a 2a 43 4c | 4f 53 45 0d 14 d2 1c c8 |.....*CL|OSE.....|
|00004790| 99 20 22 4f 53 5f 46 69 | 6c 65 22 2c 31 38 2c 62 |. "OS_Fi|le",18,b|
|000047a0| 62 6c 25 2c 26 42 33 0d | 14 dc 05 e1 0d 14 e6 04 |bl%,&B3.|........|
|000047b0| 0d 14 f0 0c dd f2 72 65 | 63 6f 72 64 0d 14 fa 8b |......re|cord....|
|000047c0| e7 20 6e 62 72 25 3d 6d | 61 78 25 20 8c 20 21 62 |. nbr%=m|ax% . !b|
|000047d0| 75 66 66 65 72 25 3d 30 | 3a 24 28 62 75 66 66 65 |uffer%=0|:$(buffe|
|000047e0| 72 25 2b 34 29 3d 22 54 | 6f 6f 20 6d 61 6e 79 20 |r%+4)="T|oo many |
|000047f0| 65 6e 74 72 69 65 73 22 | 3a c8 99 20 22 57 69 6d |entries"|:.. "Wim|
|00004800| 70 5f 52 65 70 6f 72 74 | 45 72 72 6f 72 22 2c 62 |p_Report|Error",b|
|00004810| 75 66 66 65 72 25 2c 31 | 37 2c 22 45 72 72 6f 72 |uffer%,1|7,"Error|
|00004820| 20 66 72 6f 6d 20 74 68 | 65 20 27 53 6f 66 74 77 | from th|e 'Softw|
|00004830| 61 72 65 20 4d 61 6e 61 | 67 65 72 27 20 70 72 6f |are Mana|ger' pro|
|00004840| 67 72 61 6d 22 3a e1 0d | 15 04 10 f2 73 74 6f 63 |gram":..|....stoc|
|00004850| 6b 28 6e 62 72 25 29 0d | 15 0e c7 e7 20 6e 62 72 |k(nbr%).|.... nbr|
|00004860| 25 3c 6d 61 78 25 20 8c | 20 6e 62 72 25 2b 3d 31 |%<max% .| nbr%+=1|
|00004870| 3a 63 75 72 72 65 6e 74 | 25 3d 6e 62 72 25 20 8b |:current|%=nbr% .|
|00004880| 20 21 62 75 66 66 65 72 | 25 3d 30 3a 24 28 62 75 | !buffer|%=0:$(bu|
|00004890| 66 66 65 72 25 2b 34 29 | 3d 22 54 6f 6f 20 6d 61 |ffer%+4)|="Too ma|
|000048a0| 6e 79 20 65 6e 74 72 69 | 65 73 22 3a c8 99 20 22 |ny entri|es":.. "|
|000048b0| 57 69 6d 70 5f 52 65 70 | 6f 72 74 45 72 72 6f 72 |Wimp_Rep|ortError|
|000048c0| 22 2c 62 75 66 66 65 72 | 25 2c 31 37 2c 22 45 72 |",buffer|%,17,"Er|
|000048d0| 72 6f 72 20 66 72 6f 6d | 20 74 68 65 20 27 53 6f |ror from| the 'So|
|000048e0| 66 74 77 61 72 65 20 4d | 61 6e 61 67 65 72 27 20 |ftware M|anager' |
|000048f0| 70 72 6f 67 72 61 6d 22 | 3a f2 75 6e 73 74 6f 63 |program"|:.unstoc|
|00004900| 6b 28 6e 62 72 25 29 3a | 63 75 72 72 65 6e 74 25 |k(nbr%):|current%|
|00004910| 3d 6e 62 72 25 3a f2 75 | 70 6f 66 66 3a e1 0d 15 |=nbr%:.u|poff:...|
|00004920| 18 5c f2 70 75 74 74 65 | 78 74 28 c3 28 6e 62 72 |.\.putte|xt(.(nbr|
|00004930| 25 29 2c 73 6f 66 74 25 | 2c 35 31 2c 62 62 6c 25 |%),soft%|,51,bbl%|
|00004940| 29 3a f2 70 75 74 74 65 | 78 74 28 c3 28 63 75 72 |):.putte|xt(.(cur|
|00004950| 72 65 6e 74 25 29 2c 73 | 6f 66 74 25 2c 34 39 2c |rent%),s|oft%,49,|
|00004960| 62 62 6c 25 29 3a f2 63 | 6c 65 61 72 66 69 65 6c |bbl%):.c|learfiel|
|00004970| 64 3a f2 75 70 6f 66 66 | 3a e1 0d 15 22 04 0d 15 |d:.upoff|:..."...|
|00004980| 2c 0a dd f2 75 70 64 74 | 0d 15 36 26 e7 20 63 75 |,...updt|..6&. cu|
|00004990| 72 72 65 6e 74 25 3d 6e | 62 72 25 20 8c 20 f2 72 |rrent%=n|br% . .r|
|000049a0| 65 63 6f 72 64 3a f2 75 | 70 6f 66 66 3a e1 0d 15 |ecord:.u|poff:...|
|000049b0| 40 8d e7 20 63 75 72 72 | 65 6e 74 25 3d 30 20 8c |@.. curr|ent%=0 .|
|000049c0| 20 21 62 75 66 66 65 72 | 25 3d 30 3a 24 28 62 75 | !buffer|%=0:$(bu|
|000049d0| 66 66 65 72 25 2b 34 29 | 3d 22 4e 6f 74 68 69 6e |ffer%+4)|="Nothin|
|000049e0| 67 20 74 6f 20 75 70 64 | 61 74 65 22 3a c8 99 20 |g to upd|ate":.. |
|000049f0| 22 57 69 6d 70 5f 52 65 | 70 6f 72 74 45 72 72 6f |"Wimp_Re|portErro|
|00004a00| 72 22 2c 62 75 66 66 65 | 72 25 2c 31 37 2c 22 45 |r",buffe|r%,17,"E|
|00004a10| 72 72 6f 72 20 66 72 6f | 6d 20 74 68 65 20 27 53 |rror fro|m the 'S|
|00004a20| 6f 66 74 77 61 72 65 20 | 4d 61 6e 61 67 65 72 27 |oftware |Manager'|
|00004a30| 20 70 72 6f 67 72 61 6d | 22 3a e1 0d 15 4a 14 f2 | program|":...J..|
|00004a40| 73 74 6f 63 6b 28 63 75 | 72 72 65 6e 74 25 29 0d |stock(cu|rrent%).|
|00004a50| 15 54 0a f2 75 70 6f 66 | 66 0d 15 5e 05 e1 0d 15 |.T..upof|f..^....|
|00004a60| 68 04 0d 15 72 13 dd a4 | 67 74 78 74 28 69 25 2c |h...r...|gtxt(i%,|
|00004a70| 6c 65 6e 25 29 0d 15 7c | 08 ea 20 78 24 0d 15 86 |len%)..||.. x$...|
|00004a80| 34 78 24 3d a4 67 65 74 | 74 65 78 74 28 73 6f 66 |4x$=.get|text(sof|
|00004a90| 74 25 2c 69 25 2c 62 62 | 6c 25 29 2b c4 6c 65 6e |t%,i%,bb|l%)+.len|
|00004aa0| 25 2c 22 20 22 29 3a 3d | c0 78 24 2c 6c 65 6e 25 |%," "):=|.x$,len%|
|00004ab0| 29 0d 15 90 04 0d 15 9a | 11 dd f2 70 74 78 74 28 |).......|...ptxt(|
|00004ac0| 69 25 2c 78 24 29 0d 15 | a4 0a ea 6a 25 2c 6b 25 |i%,x$)..|...j%,k%|
|00004ad0| 0d 15 ae 13 6a 25 3d a9 | 28 78 24 29 2b 31 3a 6b |....j%=.|(x$)+1:k|
|00004ae0| 25 3d 30 0d 15 b8 0b f5 | 3a 6a 25 2d 3d 31 0d 15 |%=0.....|:j%-=1..|
|00004af0| c2 1b e7 20 c1 78 24 2c | 6a 25 2c 31 29 3c 3e 22 |... .x$,|j%,1)<>"|
|00004b00| 20 22 20 8c 20 6b 25 3d | 31 0d 15 cc 11 fd 20 6a | " . k%=|1..... j|
|00004b10| 25 3d 31 20 84 20 6b 25 | 3d 31 0d 15 d6 18 e7 20 |%=1 . k%|=1..... |
|00004b20| 6a 25 3d 31 20 80 20 6b | 25 3d 30 20 8c 20 6a 25 |j%=1 . k|%=0 . j%|
|00004b30| 3d 30 0d 15 e0 27 f2 70 | 75 74 74 65 78 74 28 c1 |=0...'.p|uttext(.|
|00004b40| 78 24 2c 31 2c 6a 25 29 | 2c 73 6f 66 74 25 2c 69 |x$,1,j%)|,soft%,i|
|00004b50| 25 2c 62 62 6c 25 29 3a | e1 0d 15 ea 04 0d 15 f4 |%,bbl%):|........|
|00004b60| 04 0d 15 fe 0f dd f2 73 | 74 6f 63 6b 28 6e 25 29 |.......s|tock(n%)|
|00004b70| 0d 16 08 0e ea 20 61 24 | 2c 62 24 2c 63 24 0d 16 |..... a$|,b$,c$..|
|00004b80| 12 1d 61 24 3d c4 32 35 | 35 2c 22 20 22 29 3a 62 |..a$=.25|5," "):b|
|00004b90| 24 3d c4 31 33 34 2c 22 | 20 22 29 0d 16 1c 8e c1 |$=.134,"| ").....|
|00004ba0| 61 24 2c 31 2c 36 34 29 | 3d a4 67 74 78 74 28 31 |a$,1,64)|=.gtxt(1|
|00004bb0| 37 2c 36 34 29 3a c1 61 | 24 2c 36 35 2c 34 29 3d |7,64):.a|$,65,4)=|
|00004bc0| a4 67 74 78 74 28 35 2c | 34 29 3a c1 61 24 2c 36 |.gtxt(5,|4):.a$,6|
|00004bd0| 39 2c 31 30 29 3d a4 67 | 74 78 74 28 33 30 2c 31 |9,10)=.g|txt(30,1|
|00004be0| 30 29 3a c1 61 24 2c 37 | 39 2c 35 35 29 3d a4 67 |0):.a$,7|9,55)=.g|
|00004bf0| 74 78 74 28 37 2c 35 35 | 29 3a c1 61 24 2c 31 33 |txt(7,55|):.a$,13|
|00004c00| 34 2c 38 29 3d a4 67 74 | 78 74 28 34 36 2c 38 29 |4,8)=.gt|xt(46,8)|
|00004c10| 3a c1 61 24 2c 31 34 32 | 2c 36 34 29 3d a4 67 74 |:.a$,142|,64)=.gt|
|00004c20| 78 74 28 32 33 2c 36 34 | 29 0d 16 26 62 c1 61 24 |xt(23,64|)..&b.a$|
|00004c30| 2c 32 30 36 2c 38 29 3d | a4 67 74 78 74 28 32 35 |,206,8)=|.gtxt(25|
|00004c40| 2c 38 29 3a c1 61 24 2c | 32 31 34 2c 38 29 3d a4 |,8):.a$,|214,8)=.|
|00004c50| 67 74 78 74 28 32 38 2c | 38 29 3a c1 61 24 2c 32 |gtxt(28,|8):.a$,2|
|00004c60| 32 32 2c 33 32 29 3d a4 | 67 74 78 74 28 32 31 2c |22,32)=.|gtxt(21,|
|00004c70| 33 29 3a c1 62 24 2c 31 | 2c 31 32 38 29 3d a4 67 |3):.b$,1|,128)=.g|
|00004c80| 74 78 74 28 33 31 2c 31 | 32 37 29 0d 16 30 10 c8 |txt(31,1|27)..0..|
|00004c90| 8e 20 6f 70 74 25 28 31 | 29 20 ca 0d 16 3a 12 20 |. opt%(1|) ...:. |
|00004ca0| 20 20 c9 20 38 20 3a 63 | 24 3d 22 31 22 0d 16 44 | . 8 :c|$="1"..D|
|00004cb0| 12 20 20 20 c9 20 39 20 | 3a 63 24 3d 22 32 22 0d |. . 9 |:c$="2".|
|00004cc0| 16 4e 12 20 20 20 c9 20 | 31 34 3a 63 24 3d 22 33 |.N. . |14:c$="3|
|00004cd0| 22 0d 16 58 12 20 20 20 | c9 20 31 32 3a 63 24 3d |"..X. |. 12:c$=|
|00004ce0| 22 34 22 0d 16 62 12 20 | 20 20 c9 20 31 33 3a 63 |"4"..b. | . 13:c|
|00004cf0| 24 3d 22 35 22 0d 16 6c | 05 cb 0d 16 76 11 c1 62 |$="5"..l|....v..b|
|00004d00| 24 2c 31 32 39 2c 31 29 | 3d 63 24 0d 16 80 10 c8 |$,129,1)|=c$.....|
|00004d10| 8e 20 6f 70 74 25 28 32 | 29 20 ca 0d 16 8a 13 20 |. opt%(2|) ..... |
|00004d20| 20 20 c9 20 31 36 20 3a | 63 24 3d 22 31 22 0d 16 | . 16 :|c$="1"..|
|00004d30| 94 13 20 20 20 c9 20 31 | 35 20 3a 63 24 3d 22 32 |.. . 1|5 :c$="2|
|00004d40| 22 0d 16 9e 05 cb 0d 16 | a8 6d c1 62 24 2c 31 33 |".......|.m.b$,13|
|00004d50| 30 2c 31 29 3d 63 24 3a | c1 62 24 2c 31 33 31 2c |0,1)=c$:|.b$,131,|
|00004d60| 31 29 3d c3 28 6f 70 74 | 25 28 33 29 29 3a c1 62 |1)=.(opt|%(3)):.b|
|00004d70| 24 2c 31 33 32 2c 31 29 | 3d c3 28 6f 70 74 25 28 |$,132,1)|=.(opt%(|
|00004d80| 34 29 29 3a c1 62 24 2c | 31 33 33 2c 31 29 3d c3 |4)):.b$,|133,1)=.|
|00004d90| 28 6f 70 74 25 28 35 29 | 29 3a 64 62 24 28 6e 25 |(opt%(5)|):db$(n%|
|00004da0| 2c 30 29 3d 61 24 3a 64 | 62 24 28 6e 25 2c 31 29 |,0)=a$:d|b$(n%,1)|
|00004db0| 3d 62 24 0d 16 b2 05 e1 | 0d 16 bc 04 0d 16 c6 11 |=b$.....|........|
|00004dc0| dd f2 75 6e 73 74 6f 63 | 6b 28 6e 25 29 0d 16 d0 |..unstoc|k(n%)...|
|00004dd0| 0d ea 20 61 24 2c 62 24 | 2c 63 0d 16 da 1d 61 24 |.. a$,b$|,c....a$|
|00004de0| 3d 64 62 24 28 6e 25 2c | 30 29 3a 62 24 3d 64 62 |=db$(n%,|0):b$=db|
|00004df0| 24 28 6e 25 2c 31 29 0d | 16 e4 68 f2 70 74 78 74 |$(n%,1).|..h.ptxt|
|00004e00| 28 31 37 2c c1 61 24 2c | 31 2c 36 34 29 29 3a f2 |(17,.a$,|1,64)):.|
|00004e10| 70 74 78 74 28 35 2c c1 | 61 24 2c 36 35 2c 34 29 |ptxt(5,.|a$,65,4)|
|00004e20| 29 3a f2 70 74 78 74 28 | 33 30 2c c1 61 24 2c 36 |):.ptxt(|30,.a$,6|
|00004e30| 39 2c 31 30 29 29 3a f2 | 70 74 78 74 28 37 2c c1 |9,10)):.|ptxt(7,.|
|00004e40| 61 24 2c 37 39 2c 35 35 | 29 29 3a f2 70 74 78 74 |a$,79,55|)):.ptxt|
|00004e50| 28 34 36 2c c1 61 24 2c | 31 33 34 2c 38 29 29 0d |(46,.a$,|134,8)).|
|00004e60| 16 ee 6e f2 70 74 78 74 | 28 32 33 2c c1 61 24 2c |..n.ptxt|(23,.a$,|
|00004e70| 31 34 32 2c 36 34 29 29 | 3a f2 70 74 78 74 28 32 |142,64))|:.ptxt(2|
|00004e80| 35 2c c1 61 24 2c 32 30 | 36 2c 38 29 29 3a f2 70 |5,.a$,20|6,8)):.p|
|00004e90| 74 78 74 28 32 38 2c c1 | 61 24 2c 32 31 34 2c 38 |txt(28,.|a$,214,8|
|00004ea0| 29 29 3a f2 70 74 78 74 | 28 32 31 2c c1 61 24 2c |)):.ptxt|(21,.a$,|
|00004eb0| 32 32 32 2c 33 32 29 29 | 3a f2 70 74 78 74 28 33 |222,32))|:.ptxt(3|
|00004ec0| 31 2c c1 62 24 2c 31 2c | 31 32 38 29 29 0d 16 f8 |1,.b$,1,|128))...|
|00004ed0| 13 c8 8e 20 c1 62 24 2c | 31 32 39 2c 31 29 20 ca |... .b$,|129,1) .|
|00004ee0| 0d 17 02 10 20 20 20 c9 | 20 22 31 22 3a 63 3d 38 |.... .| "1":c=8|
|00004ef0| 0d 17 0c 10 20 20 20 c9 | 20 22 32 22 3a 63 3d 39 |.... .| "2":c=9|
|00004f00| 0d 17 16 11 20 20 20 c9 | 20 22 33 22 3a 63 3d 31 |.... .| "3":c=1|
|00004f10| 34 0d 17 20 11 20 20 20 | c9 20 22 34 22 3a 63 3d |4.. . |. "4":c=|
|00004f20| 31 32 0d 17 2a 11 20 20 | 20 c9 20 22 35 22 3a 63 |12..*. | . "5":c|
|00004f30| 3d 31 33 0d 17 34 0e 20 | 20 20 7f 20 3a 63 3d 31 |=13..4. | . :c=1|
|00004f40| 34 0d 17 3e 05 cb 0d 17 | 48 1a f2 63 68 61 6e 67 |4..>....|H..chang|
|00004f50| 65 69 63 6f 6e 28 6f 70 | 74 25 28 31 29 2c 63 29 |eicon(op|t%(1),c)|
|00004f60| 0d 17 52 13 c8 8e 20 c1 | 62 24 2c 31 33 30 2c 31 |..R... .|b$,130,1|
|00004f70| 29 20 ca 0d 17 5c 11 20 | 20 20 c9 20 22 31 22 3a |) ...\. | . "1":|
|00004f80| 63 3d 31 36 0d 17 66 11 | 20 20 20 c9 20 22 32 22 |c=16..f.| . "2"|
|00004f90| 3a 63 3d 31 35 0d 17 70 | 0e 20 20 20 7f 20 3a 63 |:c=15..p|. . :c|
|00004fa0| 3d 31 36 0d 17 7a 05 cb | 0d 17 84 1a f2 63 68 61 |=16..z..|.....cha|
|00004fb0| 6e 67 65 69 63 6f 6e 28 | 6f 70 74 25 28 32 29 2c |ngeicon(|opt%(2),|
|00004fc0| 63 29 0d 17 8e 04 0d 17 | 98 51 6f 70 74 25 28 33 |c)......|.Qopt%(3|
|00004fd0| 29 3d bb 28 c1 62 24 2c | 31 33 31 2c 31 29 29 3a |)=.(.b$,|131,1)):|
|00004fe0| e7 20 6f 70 74 25 28 33 | 29 3d 30 20 8c 20 f2 75 |. opt%(3|)=0 . .u|
|00004ff0| 6e 73 65 74 69 63 6f 6e | 28 73 6f 66 74 25 2c 32 |nseticon|(soft%,2|
|00005000| 39 29 20 8b 20 f2 73 65 | 74 69 63 6f 6e 28 73 6f |9) . .se|ticon(so|
|00005010| 66 74 25 2c 32 39 29 0d | 17 a2 51 6f 70 74 25 28 |ft%,29).|..Qopt%(|
|00005020| 34 29 3d bb 28 c1 62 24 | 2c 31 33 32 2c 31 29 29 |4)=.(.b$|,132,1))|
|00005030| 3a e7 20 6f 70 74 25 28 | 34 29 3d 30 20 8c 20 f2 |:. opt%(|4)=0 . .|
|00005040| 75 6e 73 65 74 69 63 6f | 6e 28 73 6f 66 74 25 2c |unsetico|n(soft%,|
|00005050| 31 31 29 20 8b 20 f2 73 | 65 74 69 63 6f 6e 28 73 |11) . .s|eticon(s|
|00005060| 6f 66 74 25 2c 31 31 29 | 0d 17 ac 51 6f 70 74 25 |oft%,11)|...Qopt%|
|00005070| 28 35 29 3d bb 28 c1 62 | 24 2c 31 33 33 2c 31 29 |(5)=.(.b|$,133,1)|
|00005080| 29 3a e7 20 6f 70 74 25 | 28 35 29 3d 30 20 8c 20 |):. opt%|(5)=0 . |
|00005090| f2 75 6e 73 65 74 69 63 | 6f 6e 28 73 6f 66 74 25 |.unsetic|on(soft%|
|000050a0| 2c 31 30 29 20 8b 20 f2 | 73 65 74 69 63 6f 6e 28 |,10) . .|seticon(|
|000050b0| 73 6f 66 74 25 2c 31 30 | 29 0d 17 b6 05 e1 0d 17 |soft%,10|).......|
|000050c0| c0 04 0d 17 ca 0a dd f2 | 6e 65 78 74 0d 17 d4 08 |........|next....|
|000050d0| ea 20 52 31 0d 17 de 12 | 52 31 3d 30 3a e7 20 75 |. R1....|R1=0:. u|
|000050e0| 70 25 3d 31 20 8c 0d 17 | e8 a6 21 62 75 66 66 65 |p%=1 ...|..!buffe|
|000050f0| 72 25 3d 30 3a 24 28 62 | 75 66 66 65 72 25 2b 34 |r%=0:$(b|uffer%+4|
|00005100| 29 3d 22 59 6f 75 20 68 | 61 76 65 20 75 70 64 61 |)="You h|ave upda|
|00005110| 74 65 64 20 74 68 69 73 | 20 72 65 63 6f 72 64 20 |ted this| record |
|00005120| 20 53 61 76 65 20 74 68 | 65 20 6e 65 77 20 72 65 | Save th|e new re|
|00005130| 63 6f 72 64 20 3f 22 3a | c8 99 20 22 57 69 6d 70 |cord ?":|.. "Wimp|
|00005140| 5f 52 65 70 6f 72 74 45 | 72 72 6f 72 22 2c 62 75 |_ReportE|rror",bu|
|00005150| 66 66 65 72 25 2c 31 39 | 2c 22 57 61 72 6e 69 6e |ffer%,19|,"Warnin|
|00005160| 67 20 66 72 6f 6d 20 74 | 68 65 20 27 53 6f 66 74 |g from t|he 'Soft|
|00005170| 77 61 72 65 20 4d 61 6e | 61 67 65 72 27 20 70 72 |ware Man|ager' pr|
|00005180| 6f 67 72 61 6d 22 20 b8 | 20 2c 52 31 0d 17 f2 12 |ogram" .| ,R1....|
|00005190| e7 20 52 31 3d 31 20 8c | 20 f2 75 70 64 74 0d 17 |. R1=1 .| .updt..|
|000051a0| fc 05 cd 0d 18 06 0a f2 | 75 70 6f 66 66 0d 18 1a |........|upoff...|
|000051b0| 39 e7 20 63 75 72 72 65 | 6e 74 25 3c 6e 62 72 25 |9. curre|nt%<nbr%|
|000051c0| 20 8c 20 63 75 72 72 65 | 6e 74 25 2b 3d 31 3a f2 | . curre|nt%+=1:.|
|000051d0| 75 6e 73 74 6f 63 6b 28 | 63 75 72 72 65 6e 74 25 |unstock(|current%|
|000051e0| 29 20 8b 20 ef 37 0d 18 | 24 27 f2 70 75 74 74 65 |) . .7..|$'.putte|
|000051f0| 78 74 28 c3 28 63 75 72 | 72 65 6e 74 25 29 2c 73 |xt(.(cur|rent%),s|
|00005200| 6f 66 74 25 2c 34 39 2c | 62 62 6c 25 29 0d 18 2e |oft%,49,|bbl%)...|
|00005210| 24 c8 99 20 22 57 69 6d | 70 5f 53 65 74 43 61 72 |$.. "Wim|p_SetCar|
|00005220| 65 74 50 6f 73 69 74 69 | 6f 6e 22 2c 2d 31 2c 2d |etPositi|on",-1,-|
|00005230| 31 0d 18 38 05 e1 0d 18 | 42 04 0d 18 4c 0e dd f2 |1..8....|B...L...|
|00005240| 70 72 65 76 69 6f 75 73 | 0d 18 56 08 ea 20 52 31 |previous|..V.. R1|
|00005250| 0d 18 60 12 52 31 3d 30 | 3a e7 20 75 70 25 3d 31 |..`.R1=0|:. up%=1|
|00005260| 20 8c 0d 18 6a a6 21 62 | 75 66 66 65 72 25 3d 30 | ...j.!b|uffer%=0|
|00005270| 3a 24 28 62 75 66 66 65 | 72 25 2b 34 29 3d 22 59 |:$(buffe|r%+4)="Y|
|00005280| 6f 75 20 68 61 76 65 20 | 75 70 64 61 74 65 64 20 |ou have |updated |
|00005290| 74 68 69 73 20 72 65 63 | 6f 72 64 20 20 53 61 76 |this rec|ord Sav|
|000052a0| 65 20 74 68 65 20 6e 65 | 77 20 72 65 63 6f 72 64 |e the ne|w record|
|000052b0| 20 3f 22 3a c8 99 20 22 | 57 69 6d 70 5f 52 65 70 | ?":.. "|Wimp_Rep|
|000052c0| 6f 72 74 45 72 72 6f 72 | 22 2c 62 75 66 66 65 72 |ortError|",buffer|
|000052d0| 25 2c 31 39 2c 22 57 61 | 72 6e 69 6e 67 20 66 72 |%,19,"Wa|rning fr|
|000052e0| 6f 6d 20 74 68 65 20 27 | 53 6f 66 74 77 61 72 65 |om the '|Software|
|000052f0| 20 4d 61 6e 61 67 65 72 | 27 20 70 72 6f 67 72 61 | Manager|' progra|
|00005300| 6d 22 20 b8 20 2c 52 31 | 0d 18 74 12 e7 20 52 31 |m" . ,R1|..t.. R1|
|00005310| 3d 31 20 8c 20 f2 75 70 | 64 74 0d 18 7e 05 cd 0d |=1 . .up|dt..~...|
|00005320| 18 88 0a f2 75 70 6f 66 | 66 0d 18 9c 36 e7 20 63 |....upof|f...6. c|
|00005330| 75 72 72 65 6e 74 25 3e | 31 20 8c 20 63 75 72 72 |urrent%>|1 . curr|
|00005340| 65 6e 74 25 2d 3d 31 3a | f2 75 6e 73 74 6f 63 6b |ent%-=1:|.unstock|
|00005350| 28 63 75 72 72 65 6e 74 | 25 29 20 8b 20 ef 37 0d |(current|%) . .7.|
|00005360| 18 a6 27 f2 70 75 74 74 | 65 78 74 28 c3 28 63 75 |..'.putt|ext(.(cu|
|00005370| 72 72 65 6e 74 25 29 2c | 73 6f 66 74 25 2c 34 39 |rrent%),|soft%,49|
|00005380| 2c 62 62 6c 25 29 0d 18 | b0 24 c8 99 20 22 57 69 |,bbl%)..|.$.. "Wi|
|00005390| 6d 70 5f 53 65 74 43 61 | 72 65 74 50 6f 73 69 74 |mp_SetCa|retPosit|
|000053a0| 69 6f 6e 22 2c 2d 31 2c | 2d 31 0d 18 ba 05 e1 0d |ion",-1,|-1......|
|000053b0| 18 c4 04 0d 18 ce 5a dd | f2 75 70 6f 6e 3a 75 70 |......Z.|.upon:up|
|000053c0| 25 3d 31 3a f2 75 6e 73 | 65 74 69 63 6f 6e 28 73 |%=1:.uns|eticon(s|
|000053d0| 6f 66 74 25 2c 35 34 29 | 3a f2 75 6e 73 65 74 69 |oft%,54)|:.unseti|
|000053e0| 63 6f 6e 28 73 6f 66 74 | 25 2c 35 35 29 3a f2 63 |con(soft|%,55):.c|
|000053f0| 6c 6f 73 65 61 77 69 6e | 64 6f 77 28 73 65 61 72 |loseawin|dow(sear|
|00005400| 25 29 3a 62 69 67 75 70 | 25 3d 31 3a e1 0d 18 d8 |%):bigup|%=1:....|
|00005410| 04 0d 18 e2 26 dd f2 75 | 70 6f 66 66 3a 75 70 25 |....&..u|poff:up%|
|00005420| 3d 30 3a f2 73 65 74 69 | 63 6f 6e 28 73 6f 66 74 |=0:.seti|con(soft|
|00005430| 25 2c 35 34 29 3a e1 0d | 18 ec 04 0d 18 f6 0c dd |%,54):..|........|
|00005440| f2 64 65 6c 65 74 65 0d | 19 00 4e e7 20 63 75 72 |.delete.|..N. cur|
|00005450| 72 65 6e 74 25 3e 3d 6e | 62 72 25 20 84 20 63 75 |rent%>=n|br% . cu|
|00005460| 72 72 65 6e 74 25 3c 31 | 20 8c 20 f2 77 61 72 6e |rrent%<1| . .warn|
|00005470| 69 6e 67 28 22 59 6f 75 | 20 63 61 6e 27 74 20 64 |ing("You| can't d|
|00005480| 65 6c 65 74 65 20 74 68 | 69 73 20 72 65 63 6f 72 |elete th|is recor|
|00005490| 64 22 29 3a e1 0d 19 0a | b3 f4 20 20 20 49 46 20 |d"):....|.. IF |
|000054a0| 63 75 72 72 65 6e 74 25 | 3d 6e 62 72 25 2d 31 20 |current%|=nbr%-1 |
|000054b0| 54 48 45 4e 20 50 52 4f | 43 63 6f 70 79 28 6e 62 |THEN PRO|Ccopy(nb|
|000054c0| 72 25 2c 63 75 72 72 65 | 6e 74 25 29 3a 6e 62 72 |r%,curre|nt%):nbr|
|000054d0| 25 2d 3d 31 3a 50 52 4f | 43 70 75 74 74 65 78 74 |%-=1:PRO|Cputtext|
|000054e0| 28 53 54 52 24 28 63 75 | 72 72 65 6e 74 25 29 2c |(STR$(cu|rrent%),|
|000054f0| 73 6f 66 74 25 2c 34 39 | 2c 62 62 6c 25 29 3a 50 |soft%,49|,bbl%):P|
|00005500| 52 4f 43 75 70 6f 66 66 | 3a 53 59 53 20 22 57 69 |ROCupoff|:SYS "Wi|
|00005510| 6d 70 5f 53 65 74 43 61 | 72 65 74 50 6f 73 69 74 |mp_SetCa|retPosit|
|00005520| 69 6f 6e 22 2c 2d 31 2c | 2d 31 3a 50 52 4f 43 75 |ion",-1,|-1:PROCu|
|00005530| 6e 73 74 6f 63 6b 28 63 | 75 72 72 65 6e 74 25 29 |nstock(c|urrent%)|
|00005540| 3a 45 4e 44 50 52 4f 43 | 0d 19 14 04 0d 19 1e 2a |:ENDPROC|.......*|
|00005550| e3 4a 25 3d 63 75 72 72 | 65 6e 74 25 20 b8 20 6e |.J%=curr|ent% . n|
|00005560| 62 72 25 2d 31 3a f2 63 | 6f 70 79 28 4a 25 2b 31 |br%-1:.c|opy(J%+1|
|00005570| 2c 4a 25 29 3a ed 0d 19 | 28 8a 6e 62 72 25 2d 3d |,J%):...|(.nbr%-=|
|00005580| 31 3a f2 70 75 74 74 65 | 78 74 28 c3 28 63 75 72 |1:.putte|xt(.(cur|
|00005590| 72 65 6e 74 25 29 2c 73 | 6f 66 74 25 2c 34 39 2c |rent%),s|oft%,49,|
|000055a0| 62 62 6c 25 29 3a f2 75 | 70 6f 66 66 3a c8 99 20 |bbl%):.u|poff:.. |
|000055b0| 22 57 69 6d 70 5f 53 65 | 74 43 61 72 65 74 50 6f |"Wimp_Se|tCaretPo|
|000055c0| 73 69 74 69 6f 6e 22 2c | 2d 31 2c 2d 31 3a f2 75 |sition",|-1,-1:.u|
|000055d0| 6e 73 74 6f 63 6b 28 63 | 75 72 72 65 6e 74 25 29 |nstock(c|urrent%)|
|000055e0| 3a f2 70 75 74 74 65 78 | 74 28 c3 28 6e 62 72 25 |:.puttex|t(.(nbr%|
|000055f0| 29 2c 73 6f 66 74 25 2c | 35 31 2c 62 62 6c 25 29 |),soft%,|51,bbl%)|
|00005600| 0d 19 32 05 e1 0d 19 3c | 04 0d 19 46 68 dd f2 63 |..2....<|...Fh..c|
|00005610| 6f 70 79 28 6f 72 69 67 | 69 6e 25 2c 64 65 73 74 |opy(orig|in%,dest|
|00005620| 69 6e 61 74 69 6f 6e 25 | 29 3a 64 62 24 28 64 65 |ination%|):db$(de|
|00005630| 73 74 69 6e 61 74 69 6f | 6e 25 2c 30 29 3d 64 62 |stinatio|n%,0)=db|
|00005640| 24 28 6f 72 69 67 69 6e | 25 2c 30 29 3a 64 62 24 |$(origin|%,0):db$|
|00005650| 28 64 65 73 74 69 6e 61 | 74 69 6f 6e 25 2c 31 29 |(destina|tion%,1)|
|00005660| 3d 64 62 24 28 6f 72 69 | 67 69 6e 25 2c 31 29 3a |=db$(ori|gin%,1):|
|00005670| e1 0d 19 50 04 0d 19 5a | 04 0d 19 64 11 dd f2 6c |...P...Z|...d...l|
|00005680| 6f 61 64 69 74 28 66 6e | 24 29 0d 19 6e 20 c8 99 |oadit(fn|$)..n ..|
|00005690| 22 4f 53 5f 46 69 6c 65 | 22 2c 35 2c 66 6e 24 20 |"OS_File|",5,fn$ |
|000056a0| b8 20 2c 2c 52 32 2c 2c | 52 34 0d 19 78 44 e7 20 |. ,,R2,,|R4..xD. |
|000056b0| b4 28 52 32 29 3d 2d 31 | 20 8c 20 52 32 3d 52 32 |.(R2)=-1| . R2=R2|
|000056c0| 20 80 20 26 30 30 30 46 | 46 46 30 30 3a 52 32 3d | . &000F|FF00:R2=|
|000056d0| 52 32 20 81 20 32 35 36 | 3a 74 79 70 65 25 3d 52 |R2 . 256|:type%=R|
|000056e0| 32 20 8b 20 74 79 70 65 | 25 3d 26 46 46 44 0d 19 |2 . type|%=&FFD..|
|000056f0| 82 63 e7 20 74 79 70 65 | 25 3d 26 42 32 20 8c 20 |.c. type|%=&B2 . |
|00005700| f2 4c 4f 41 44 73 6f 66 | 74 28 66 6e 24 29 3a 6f |.LOADsof|t(fn$):o|
|00005710| 6c 64 71 25 21 31 32 3d | 6f 6c 64 71 25 21 38 3a |ldq%!12=|oldq%!8:|
|00005720| 6f 6c 64 71 25 21 31 36 | 3d 34 3a c8 99 20 22 57 |oldq%!16|=4:.. "W|
|00005730| 69 6d 70 5f 53 65 6e 64 | 4d 65 73 73 61 67 65 22 |imp_Send|Message"|
|00005740| 2c 31 37 2c 6f 6c 64 71 | 25 2c 6f 6c 64 71 25 21 |,17,oldq|%,oldq%!|
|00005750| 34 0d 19 8c 62 e7 20 74 | 79 70 65 25 3d 26 42 33 |4...b. t|ype%=&B3|
|00005760| 20 8c 20 f2 4c 4f 41 44 | 70 72 6e 28 66 6e 24 29 | . .LOAD|prn(fn$)|
|00005770| 3a 6f 6c 64 71 25 21 31 | 32 3d 6f 6c 64 71 25 21 |:oldq%!1|2=oldq%!|
|00005780| 38 3a 6f 6c 64 71 25 21 | 31 36 3d 34 3a c8 99 20 |8:oldq%!|16=4:.. |
|00005790| 22 57 69 6d 70 5f 53 65 | 6e 64 4d 65 73 73 61 67 |"Wimp_Se|ndMessag|
|000057a0| 65 22 2c 31 37 2c 6f 6c | 64 71 25 2c 6f 6c 64 71 |e",17,ol|dq%,oldq|
|000057b0| 25 21 34 0d 19 96 05 e1 | 0d 19 a0 04 0d 19 aa 15 |%!4.....|........|
|000057c0| dd f2 6c 6f 61 64 69 74 | 32 28 66 6e 24 2c 71 25 |..loadit|2(fn$,q%|
|000057d0| 29 0d 19 b4 20 c8 99 22 | 4f 53 5f 46 69 6c 65 22 |)... .."|OS_File"|
|000057e0| 2c 35 2c 66 6e 24 20 b8 | 20 2c 2c 52 32 2c 2c 52 |,5,fn$ .| ,,R2,,R|
|000057f0| 34 0d 19 be 44 e7 20 b4 | 28 52 32 29 3d 2d 31 20 |4...D. .|(R2)=-1 |
|00005800| 8c 20 52 32 3d 52 32 20 | 80 20 26 30 30 30 46 46 |. R2=R2 |. &000FF|
|00005810| 46 30 30 3a 52 32 3d 52 | 32 20 81 20 32 35 36 3a |F00:R2=R|2 . 256:|
|00005820| 74 79 70 65 25 3d 52 32 | 20 8b 20 74 79 70 65 25 |type%=R2| . type%|
|00005830| 3d 26 46 46 44 0d 19 c8 | 31 f4 20 49 46 20 74 79 |=&FFD...|1. IF ty|
|00005840| 70 65 25 3d 26 42 32 20 | 54 48 45 4e 20 50 52 4f |pe%=&B2 |THEN PRO|
|00005850| 43 4c 4f 41 44 73 6f 66 | 74 28 66 6e 24 29 3a 45 |CLOADsof|t(fn$):E|
|00005860| 4e 44 50 52 4f 43 0d 19 | d2 30 f4 20 49 46 20 74 |NDPROC..|.0. IF t|
|00005870| 79 70 65 25 3d 26 42 33 | 20 54 48 45 4e 20 50 52 |ype%=&B3| THEN PR|
|00005880| 4f 43 4c 4f 41 44 70 72 | 6e 28 66 6e 24 29 3a 45 |OCLOADpr|n(fn$):E|
|00005890| 4e 44 50 52 4f 43 0d 19 | dc 1b f2 64 6f 63 75 6d |NDPROC..|...docum|
|000058a0| 28 66 6e 24 2c 71 25 21 | 34 30 2c 71 25 21 33 36 |(fn$,q%!|40,q%!36|
|000058b0| 29 0d 19 e6 05 e1 0d 19 | f0 04 0d 19 fa 15 dd f2 |).......|........|
|000058c0| 4c 4f 41 44 73 6f 66 74 | 28 6e 61 6d 65 24 29 0d |LOADsoft|(name$).|
|000058d0| 1a 04 09 ea 20 78 78 78 | 0d 1a 0e 15 f2 69 73 5f |.... xxx|.....is_|
|000058e0| 69 74 5f 73 61 76 65 64 | 28 6f 6b 25 29 0d 1a 18 |it_saved|(ok%)...|
|000058f0| 0f e7 20 6f 6b 25 3d 31 | 20 8c 20 e1 0d 1a 22 3c |.. ok%=1| . ..."<|
|00005900| e3 4a 25 3d 30 20 b8 20 | 6d 61 78 25 3a 64 62 24 |.J%=0 . |max%:db$|
|00005910| 28 4a 25 2c 30 29 3d c4 | 32 35 35 2c 22 20 22 29 |(J%,0)=.|255," ")|
|00005920| 3a 64 62 24 28 4a 25 2c | 31 29 3d c4 31 33 34 2c |:db$(J%,|1)=.134,|
|00005930| 22 20 22 29 3a ed 4a 25 | 0d 1a 2c 4e 78 78 78 3d |" "):.J%|..,Nxxx=|
|00005940| 8e 28 6e 61 6d 65 24 29 | 3a 6e 62 72 25 3d 30 3a |.(name$)|:nbr%=0:|
|00005950| f5 3a 6e 62 72 25 2b 3d | 31 3a e8 23 78 78 78 2c |.:nbr%+=|1:.#xxx,|
|00005960| 64 62 24 28 6e 62 72 25 | 2c 30 29 2c 64 62 24 28 |db$(nbr%|,0),db$(|
|00005970| 6e 62 72 25 2c 31 29 3a | fd 20 c5 23 78 78 78 3a |nbr%,1):|. .#xxx:|
|00005980| 2a 43 4c 4f 53 45 0d 1a | 36 90 6e 62 72 25 2b 3d |*CLOSE..|6.nbr%+=|
|00005990| 31 3a 63 75 72 72 65 6e | 74 25 3d 31 3a f2 75 6e |1:curren|t%=1:.un|
|000059a0| 73 74 6f 63 6b 28 63 75 | 72 72 65 6e 74 25 29 3a |stock(cu|rrent%):|
|000059b0| f2 70 75 74 74 65 78 74 | 28 c3 28 6e 62 72 25 29 |.puttext|(.(nbr%)|
|000059c0| 2c 73 6f 66 74 25 2c 35 | 31 2c 62 62 6c 25 29 3a |,soft%,5|1,bbl%):|
|000059d0| f2 70 75 74 74 65 78 74 | 28 c3 28 63 75 72 72 65 |.puttext|(.(curre|
|000059e0| 6e 74 25 29 2c 73 6f 66 | 74 25 2c 34 39 2c 62 62 |nt%),sof|t%,49,bb|
|000059f0| 6c 25 29 3a f2 75 70 6f | 66 66 3a 62 69 67 75 70 |l%):.upo|ff:bigup|
|00005a00| 25 3d 30 3a f2 73 65 74 | 69 63 6f 6e 28 73 6f 66 |%=0:.set|icon(sof|
|00005a10| 74 25 2c 35 35 29 0d 1a | 37 20 f2 70 75 74 74 65 |t%,55)..|7 .putte|
|00005a20| 78 74 28 6e 61 6d 65 24 | 2c 73 61 76 65 25 2c 31 |xt(name$|,save%,1|
|00005a30| 2c 70 74 65 25 29 0d 1a | 40 05 e1 0d 1a 4a 04 0d |,pte%)..|@....J..|
|00005a40| 1a 54 14 dd f2 4c 4f 41 | 44 70 72 6e 28 6e 61 6d |.T...LOA|Dprn(nam|
|00005a50| 65 24 29 0d 1a 5e 0c ea | 20 78 78 78 2c 74 25 0d |e$)..^..| xxx,t%.|
|00005a60| 1a 68 36 78 78 78 3d 8e | 28 6e 61 6d 65 24 29 3a |.h6xxx=.|(name$):|
|00005a70| e3 4a 25 3d 36 20 b8 20 | 33 30 3a e8 23 78 78 78 |.J%=6 . |30:.#xxx|
|00005a80| 2c 41 24 3a 6f 70 74 25 | 28 4a 25 29 3d bb 28 41 |,A$:opt%|(J%)=.(A|
|00005a90| 24 29 3a ed 3a 0d 1a 72 | 0f e3 4a 25 3d 31 30 20 |$):.:..r|..J%=10 |
|00005aa0| b8 20 32 37 0d 1a 7c 27 | e8 23 78 78 78 2c 41 24 |. 27..|'|.#xxx,A$|
|00005ab0| 3a f2 70 75 74 74 65 78 | 74 28 41 24 2c 66 69 65 |:.puttex|t(A$,fie|
|00005ac0| 6c 25 2c 4a 25 2c 70 74 | 65 25 29 0d 1a 86 05 ed |l%,J%,pt|e%).....|
|00005ad0| 0d 1a 90 0d e3 4a 25 3d | 31 20 b8 20 39 0d 1a 9a |.....J%=|1 . 9...|
|00005ae0| 1c e8 23 78 78 78 2c 41 | 24 3a 6f 70 74 32 25 28 |..#xxx,A|$:opt2%(|
|00005af0| 4a 25 29 3d bb 28 41 24 | 29 0d 1a a4 05 ed 0d 1a |J%)=.(A$|).......|
|00005b00| ae 27 e8 23 78 78 78 2c | 41 24 3a f2 70 75 74 74 |.'.#xxx,|A$:.putt|
|00005b10| 65 78 74 28 41 24 2c 66 | 69 65 6c 25 2c 35 35 2c |ext(A$,f|iel%,55,|
|00005b20| 70 74 65 25 29 0d 1a b8 | 0a 2a 43 4c 4f 53 45 0d |pte%)...|.*CLOSE.|
|00005b30| 1a b9 21 f2 70 75 74 74 | 65 78 74 28 6e 61 6d 65 |..!.putt|ext(name|
|00005b40| 24 2c 73 61 76 65 32 25 | 2c 31 2c 70 74 65 25 29 |$,save2%|,1,pte%)|
|00005b50| 0d 1a c2 0a f7 20 8d 64 | 56 5a 0d 1a cc 27 e3 74 |..... .d|VZ...'.t|
|00005b60| 25 3d 31 20 b8 20 33 31 | 3a f3 20 78 78 78 3a f2 |%=1 . 31|:. xxx:.|
|00005b70| 74 6f 67 67 6c 65 32 61 | 28 30 2c 78 78 78 29 3a |toggle2a|(0,xxx):|
|00005b80| ed 0d 1a d6 62 dc 20 31 | 37 2c 32 33 2c 31 30 2c |....b. 1|7,23,10,|
|00005b90| 34 32 2c 34 38 2c 31 31 | 2c 31 33 2c 31 34 2c 31 |42,48,11|,13,14,1|
|00005ba0| 35 2c 31 39 2c 32 30 2c | 32 31 2c 32 35 2c 32 36 |5,19,20,|21,25,26|
|00005bb0| 2c 32 37 2c 33 32 2c 33 | 33 2c 33 34 2c 33 38 2c |,27,32,3|3,34,38,|
|00005bc0| 33 39 2c 34 30 2c 34 34 | 2c 34 35 2c 34 36 2c 35 |39,40,44|,45,46,5|
|00005bd0| 30 2c 35 31 2c 35 32 2c | 35 37 2c 35 33 2c 35 34 |0,51,52,|57,53,54|
|00005be0| 2c 35 35 0d 1a e0 13 f2 | 74 6f 67 67 6c 65 32 61 |,55.....|toggle2a|
|00005bf0| 28 30 2c 31 37 29 0d 1a | ea 4b e3 4a 25 3d 31 20 |(0,17)..|.K.J%=1 |
|00005c00| b8 20 39 3a e7 20 6f 70 | 74 32 25 28 4a 25 29 20 |. 9:. op|t2%(J%) |
|00005c10| 8c 20 f2 73 65 74 69 63 | 6f 6e 28 66 69 65 6c 25 |. .setic|on(fiel%|
|00005c20| 2c 34 35 2b 4a 25 29 20 | 8b 20 f2 75 6e 73 65 74 |,45+J%) |. .unset|
|00005c30| 69 63 6f 6e 28 66 69 65 | 6c 25 2c 34 35 2b 4a 25 |icon(fie|l%,45+J%|
|00005c40| 29 0d 1a f4 07 ed 4a 25 | 0d 1a fe fb f2 63 68 61 |).....J%|.....cha|
|00005c50| 6e 67 65 69 63 6f 6e 32 | 28 6f 70 74 25 28 36 29 |ngeicon2|(opt%(6)|
|00005c60| 2c 6f 70 74 25 28 36 29 | 29 3a f2 63 68 61 6e 67 |,opt%(6)|):.chang|
|00005c70| 65 69 63 6f 6e 32 28 6f | 70 74 25 28 37 29 2c 6f |eicon2(o|pt%(7),o|
|00005c80| 70 74 25 28 37 29 29 3a | f2 63 68 61 6e 67 65 69 |pt%(7)):|.changei|
|00005c90| 63 6f 6e 32 28 6f 70 74 | 25 28 38 29 2c 6f 70 74 |con2(opt|%(8),opt|
|00005ca0| 25 28 38 29 29 3a f2 63 | 68 61 6e 67 65 69 63 6f |%(8)):.c|hangeico|
|00005cb0| 6e 32 28 6f 70 74 25 28 | 39 29 2c 6f 70 74 25 28 |n2(opt%(|9),opt%(|
|00005cc0| 39 29 29 3a f2 63 68 61 | 6e 67 65 69 63 6f 6e 32 |9)):.cha|ngeicon2|
|00005cd0| 28 6f 70 74 25 28 31 30 | 29 2c 6f 70 74 25 28 31 |(opt%(10|),opt%(1|
|00005ce0| 30 29 29 3a f2 63 68 61 | 6e 67 65 69 63 6f 6e 32 |0)):.cha|ngeicon2|
|00005cf0| 28 6f 70 74 25 28 31 31 | 29 2c 6f 70 74 25 28 31 |(opt%(11|),opt%(1|
|00005d00| 31 29 29 3a f2 63 68 61 | 6e 67 65 69 63 6f 6e 32 |1)):.cha|ngeicon2|
|00005d10| 28 6f 70 74 25 28 31 32 | 29 2c 6f 70 74 25 28 31 |(opt%(12|),opt%(1|
|00005d20| 32 29 29 3a f2 63 68 61 | 6e 67 65 69 63 6f 6e 32 |2)):.cha|ngeicon2|
|00005d30| 28 6f 70 74 25 28 31 33 | 29 2c 6f 70 74 25 28 31 |(opt%(13|),opt%(1|
|00005d40| 33 29 29 0d 1b 08 fb f2 | 63 68 61 6e 67 65 69 63 |3)).....|changeic|
|00005d50| 6f 6e 32 28 6f 70 74 25 | 28 32 32 29 2c 6f 70 74 |on2(opt%|(22),opt|
|00005d60| 25 28 32 32 29 29 3a f2 | 74 6f 67 67 6c 65 32 61 |%(22)):.|toggle2a|
|00005d70| 28 6f 70 74 25 28 31 34 | 29 20 2c 32 39 29 3a f2 |(opt%(14|) ,29):.|
|00005d80| 74 6f 67 67 6c 65 32 61 | 28 6f 70 74 25 28 31 35 |toggle2a|(opt%(15|
|00005d90| 29 20 2c 35 36 29 3a f2 | 74 6f 67 67 6c 65 32 61 |) ,56):.|toggle2a|
|00005da0| 28 6f 70 74 25 28 31 36 | 29 20 2c 31 36 29 3a f2 |(opt%(16|) ,16):.|
|00005db0| 74 6f 67 67 6c 65 32 61 | 28 6f 70 74 25 28 31 37 |toggle2a|(opt%(17|
|00005dc0| 29 20 2c 32 32 29 3a f2 | 74 6f 67 67 6c 65 32 61 |) ,22):.|toggle2a|
|00005dd0| 28 6f 70 74 25 28 31 38 | 29 20 2c 32 38 29 3a f2 |(opt%(18|) ,28):.|
|00005de0| 74 6f 67 67 6c 65 32 61 | 28 6f 70 74 25 28 31 39 |toggle2a|(opt%(19|
|00005df0| 29 20 2c 33 35 29 3a f2 | 74 6f 67 67 6c 65 32 61 |) ,35):.|toggle2a|
|00005e00| 28 6f 70 74 25 28 32 30 | 29 20 2c 34 31 29 3a f2 |(opt%(20|) ,41):.|
|00005e10| 74 6f 67 67 6c 65 32 61 | 28 6f 70 74 25 28 32 31 |toggle2a|(opt%(21|
|00005e20| 29 20 2c 34 37 29 3a f2 | 74 6f 67 67 6c 65 33 61 |) ,47):.|toggle3a|
|00005e30| 28 6f 70 74 25 28 32 33 | 29 20 2c 33 30 29 0d 1b |(opt%(23|) ,30)..|
|00005e40| 12 ab f2 74 6f 67 67 6c | 65 33 61 28 6f 70 74 25 |...toggl|e3a(opt%|
|00005e50| 28 32 34 29 20 2c 33 36 | 29 3a f2 74 6f 67 67 6c |(24) ,36|):.toggl|
|00005e60| 65 33 61 28 6f 70 74 25 | 28 32 35 29 20 2c 31 32 |e3a(opt%|(25) ,12|
|00005e70| 29 3a f2 74 6f 67 67 6c | 65 33 61 28 6f 70 74 25 |):.toggl|e3a(opt%|
|00005e80| 28 32 36 29 20 2c 31 38 | 29 3a f2 74 6f 67 67 6c |(26) ,18|):.toggl|
|00005e90| 65 33 61 28 6f 70 74 25 | 28 32 37 29 20 2c 32 34 |e3a(opt%|(27) ,24|
|00005ea0| 29 3a f2 74 6f 67 67 6c | 65 33 61 28 6f 70 74 25 |):.toggl|e3a(opt%|
|00005eb0| 28 32 38 29 20 2c 33 31 | 29 3a f2 74 6f 67 67 6c |(28) ,31|):.toggl|
|00005ec0| 65 33 61 28 6f 70 74 25 | 28 32 39 29 20 2c 33 37 |e3a(opt%|(29) ,37|
|00005ed0| 29 3a f2 74 6f 67 67 6c | 65 33 61 28 6f 70 74 25 |):.toggl|e3a(opt%|
|00005ee0| 28 33 30 29 20 2c 34 33 | 29 0d 1b 1c 05 e1 0d 1b |(30) ,43|).......|
|00005ef0| 26 04 0d 1b 30 0e dd f2 | 73 6f 72 74 64 69 73 63 |&...0...|sortdisc|
|00005f00| 0d 1b 3a 2c e7 20 6e 62 | 72 25 3c 32 20 8c 20 f2 |..:,. nb|r%<2 . .|
|00005f10| 77 61 72 6e 69 6e 67 28 | 22 4e 6f 74 68 69 6e 67 |warning(|"Nothing|
|00005f20| 20 74 6f 20 73 6f 72 74 | 22 29 3a e1 0d 1b 44 65 | to sort|"):...De|
|00005f30| f2 73 6f 72 74 69 6e 67 | 64 69 73 63 28 31 2c 6e |.sorting|disc(1,n|
|00005f40| 62 72 25 2d 31 29 3a 63 | 75 72 72 65 6e 74 25 3d |br%-1):c|urrent%=|
|00005f50| 31 3a f2 75 6e 73 74 6f | 63 6b 28 63 75 72 72 65 |1:.unsto|ck(curre|
|00005f60| 6e 74 25 29 3a f2 70 75 | 74 74 65 78 74 28 c3 28 |nt%):.pu|ttext(.(|
|00005f70| 63 75 72 72 65 6e 74 25 | 29 2c 73 6f 66 74 25 2c |current%|),soft%,|
|00005f80| 34 39 2c 62 62 6c 25 29 | 3a f2 75 70 6f 66 66 3a |49,bbl%)|:.upoff:|
|00005f90| e1 0d 1b 4e 0f dd f2 73 | 6f 72 74 66 6e 61 6d 65 |...N...s|ortfname|
|00005fa0| 0d 1b 58 2c e7 20 6e 62 | 72 25 3c 32 20 8c 20 f2 |..X,. nb|r%<2 . .|
|00005fb0| 77 61 72 6e 69 6e 67 28 | 22 4e 6f 74 68 69 6e 67 |warning(|"Nothing|
|00005fc0| 20 74 6f 20 73 6f 72 74 | 22 29 3a e1 0d 1b 62 66 | to sort|"):...bf|
|00005fd0| f2 73 6f 72 74 69 6e 67 | 66 6e 61 6d 65 28 31 2c |.sorting|fname(1,|
|00005fe0| 6e 62 72 25 2d 31 29 3a | 63 75 72 72 65 6e 74 25 |nbr%-1):|current%|
|00005ff0| 3d 31 3a f2 75 6e 73 74 | 6f 63 6b 28 63 75 72 72 |=1:.unst|ock(curr|
|00006000| 65 6e 74 25 29 3a f2 70 | 75 74 74 65 78 74 28 c3 |ent%):.p|uttext(.|
|00006010| 28 63 75 72 72 65 6e 74 | 25 29 2c 73 6f 66 74 25 |(current|%),soft%|
|00006020| 2c 34 39 2c 62 62 6c 25 | 29 3a f2 75 70 6f 66 66 |,49,bbl%|):.upoff|
|00006030| 3a e1 0d 1b 6c 0e dd f2 | 73 6f 72 74 74 79 70 65 |:...l...|sorttype|
|00006040| 0d 1b 76 2c e7 20 6e 62 | 72 25 3c 32 20 8c 20 f2 |..v,. nb|r%<2 . .|
|00006050| 77 61 72 6e 69 6e 67 28 | 22 4e 6f 74 68 69 6e 67 |warning(|"Nothing|
|00006060| 20 74 6f 20 73 6f 72 74 | 22 29 3a e1 0d 1b 80 65 | to sort|"):....e|
|00006070| f2 73 6f 72 74 69 6e 67 | 74 79 70 65 28 31 2c 6e |.sorting|type(1,n|
|00006080| 62 72 25 2d 31 29 3a 63 | 75 72 72 65 6e 74 25 3d |br%-1):c|urrent%=|
|00006090| 31 3a f2 75 6e 73 74 6f | 63 6b 28 63 75 72 72 65 |1:.unsto|ck(curre|
|000060a0| 6e 74 25 29 3a f2 70 75 | 74 74 65 78 74 28 c3 28 |nt%):.pu|ttext(.(|
|000060b0| 63 75 72 72 65 6e 74 25 | 29 2c 73 6f 66 74 25 2c |current%|),soft%,|
|000060c0| 34 39 2c 62 62 6c 25 29 | 3a f2 75 70 6f 66 66 3a |49,bbl%)|:.upoff:|
|000060d0| e1 0d 1b 8a 0f dd f2 73 | 6f 72 74 66 74 79 70 65 |.......s|ortftype|
|000060e0| 0d 1b 94 2c e7 20 6e 62 | 72 25 3c 32 20 8c 20 f2 |...,. nb|r%<2 . .|
|000060f0| 77 61 72 6e 69 6e 67 28 | 22 4e 6f 74 68 69 6e 67 |warning(|"Nothing|
|00006100| 20 74 6f 20 73 6f 72 74 | 22 29 3a e1 0d 1b 9e 66 | to sort|"):....f|
|00006110| f2 73 6f 72 74 69 6e 67 | 66 74 79 70 65 28 31 2c |.sorting|ftype(1,|
|00006120| 6e 62 72 25 2d 31 29 3a | 63 75 72 72 65 6e 74 25 |nbr%-1):|current%|
|00006130| 3d 31 3a f2 75 6e 73 74 | 6f 63 6b 28 63 75 72 72 |=1:.unst|ock(curr|
|00006140| 65 6e 74 25 29 3a f2 70 | 75 74 74 65 78 74 28 c3 |ent%):.p|uttext(.|
|00006150| 28 63 75 72 72 65 6e 74 | 25 29 2c 73 6f 66 74 25 |(current|%),soft%|
|00006160| 2c 34 39 2c 62 62 6c 25 | 29 3a f2 75 70 6f 66 66 |,49,bbl%|):.upoff|
|00006170| 3a e1 0d 1b a8 0e dd f2 | 73 6f 72 74 61 75 74 68 |:.......|sortauth|
|00006180| 0d 1b b2 2c e7 20 6e 62 | 72 25 3c 32 20 8c 20 f2 |...,. nb|r%<2 . .|
|00006190| 77 61 72 6e 69 6e 67 28 | 22 4e 6f 74 68 69 6e 67 |warning(|"Nothing|
|000061a0| 20 74 6f 20 73 6f 72 74 | 22 29 3a e1 0d 1b bc 65 | to sort|"):....e|
|000061b0| f2 73 6f 72 74 69 6e 67 | 61 75 74 68 28 31 2c 6e |.sorting|auth(1,n|
|000061c0| 62 72 25 2d 31 29 3a 63 | 75 72 72 65 6e 74 25 3d |br%-1):c|urrent%=|
|000061d0| 31 3a f2 75 6e 73 74 6f | 63 6b 28 63 75 72 72 65 |1:.unsto|ck(curre|
|000061e0| 6e 74 25 29 3a f2 70 75 | 74 74 65 78 74 28 c3 28 |nt%):.pu|ttext(.(|
|000061f0| 63 75 72 72 65 6e 74 25 | 29 2c 73 6f 66 74 25 2c |current%|),soft%,|
|00006200| 34 39 2c 62 62 6c 25 29 | 3a f2 75 70 6f 66 66 3a |49,bbl%)|:.upoff:|
|00006210| e1 0d 1b c6 0d dd f2 73 | 6f 72 74 6c 65 6e 0d 1b |.......s|ortlen..|
|00006220| d0 2c e7 20 6e 62 72 25 | 3c 32 20 8c 20 f2 77 61 |.,. nbr%|<2 . .wa|
|00006230| 72 6e 69 6e 67 28 22 4e | 6f 74 68 69 6e 67 20 74 |rning("N|othing t|
|00006240| 6f 20 73 6f 72 74 22 29 | 3a e1 0d 1b da 64 f2 73 |o sort")|:....d.s|
|00006250| 6f 72 74 69 6e 67 6c 65 | 6e 28 31 2c 6e 62 72 25 |ortingle|n(1,nbr%|
|00006260| 2d 31 29 3a 63 75 72 72 | 65 6e 74 25 3d 31 3a f2 |-1):curr|ent%=1:.|
|00006270| 75 6e 73 74 6f 63 6b 28 | 63 75 72 72 65 6e 74 25 |unstock(|current%|
|00006280| 29 3a f2 70 75 74 74 65 | 78 74 28 c3 28 63 75 72 |):.putte|xt(.(cur|
|00006290| 72 65 6e 74 25 29 2c 73 | 6f 66 74 25 2c 34 39 2c |rent%),s|oft%,49,|
|000062a0| 62 62 6c 25 29 3a f2 75 | 70 6f 66 66 3a e1 0d 1b |bbl%):.u|poff:...|
|000062b0| e4 0e dd f2 73 6f 72 74 | 64 61 74 65 0d 1b ee 2c |....sort|date...,|
|000062c0| e7 20 6e 62 72 25 3c 32 | 20 8c 20 f2 77 61 72 6e |. nbr%<2| . .warn|
|000062d0| 69 6e 67 28 22 4e 6f 74 | 68 69 6e 67 20 74 6f 20 |ing("Not|hing to |
|000062e0| 73 6f 72 74 22 29 3a e1 | 0d 1b f8 65 f2 73 6f 72 |sort"):.|...e.sor|
|000062f0| 74 69 6e 67 64 61 74 65 | 28 31 2c 6e 62 72 25 2d |tingdate|(1,nbr%-|
|00006300| 31 29 3a 63 75 72 72 65 | 6e 74 25 3d 31 3a f2 75 |1):curre|nt%=1:.u|
|00006310| 6e 73 74 6f 63 6b 28 63 | 75 72 72 65 6e 74 25 29 |nstock(c|urrent%)|
|00006320| 3a f2 70 75 74 74 65 78 | 74 28 c3 28 63 75 72 72 |:.puttex|t(.(curr|
|00006330| 65 6e 74 25 29 2c 73 6f | 66 74 25 2c 34 39 2c 62 |ent%),so|ft%,49,b|
|00006340| 62 6c 25 29 3a f2 75 70 | 6f 66 66 3a e1 0d 1c 02 |bl%):.up|off:....|
|00006350| 0e dd f2 73 6f 72 74 66 | 69 72 6d 0d 1c 0c 2c e7 |...sortf|irm...,.|
|00006360| 20 6e 62 72 25 3c 32 20 | 8c 20 f2 77 61 72 6e 69 | nbr%<2 |. .warni|
|00006370| 6e 67 28 22 4e 6f 74 68 | 69 6e 67 20 74 6f 20 73 |ng("Noth|ing to s|
|00006380| 6f 72 74 22 29 3a e1 0d | 1c 16 65 f2 73 6f 72 74 |ort"):..|..e.sort|
|00006390| 69 6e 67 66 69 72 6d 28 | 31 2c 6e 62 72 25 2d 31 |ingfirm(|1,nbr%-1|
|000063a0| 29 3a 63 75 72 72 65 6e | 74 25 3d 31 3a f2 75 6e |):curren|t%=1:.un|
|000063b0| 73 74 6f 63 6b 28 63 75 | 72 72 65 6e 74 25 29 3a |stock(cu|rrent%):|
|000063c0| f2 70 75 74 74 65 78 74 | 28 c3 28 63 75 72 72 65 |.puttext|(.(curre|
|000063d0| 6e 74 25 29 2c 73 6f 66 | 74 25 2c 34 39 2c 62 62 |nt%),sof|t%,49,bb|
|000063e0| 6c 25 29 3a f2 75 70 6f | 66 66 3a e1 0d 1c 20 0e |l%):.upo|ff:... .|
|000063f0| dd f2 73 6f 72 74 6e 61 | 6d 65 0d 1c 2a 2c e7 20 |..sortna|me..*,. |
+--------+-------------------------+-------------------------+--------+--------+
Only 25.0 KB of data is shown above.
