home *** CD-ROM | disk | FTP | other *** search
| Unknown | 1997-10-10 | 34.6 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was not able to be converted.
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 100%
| file
| data
| default
| |
| 100%
| xdgMime
| image/x-tga
| default
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 0e f4 20 3e 57 | 69 6d 70 4c 69 62 0d 00 |..... >W|impLib..|
|00000010| 14 17 f4 20 a9 20 4a 75 | 73 74 69 6e 20 46 6c 65 |... . Ju|stin Fle|
|00000020| 74 63 68 65 72 0d 00 1e | 22 f4 20 56 65 72 73 69 |tcher...|". Versi|
|00000030| 6f 6e 20 3a 20 31 2e 37 | 34 20 28 31 30 20 53 65 |on : 1.7|4 (10 Se|
|00000040| 70 20 31 39 39 37 29 0d | 00 28 1a f4 20 54 68 69 |p 1997).|.(.. Thi|
|00000050| 73 20 76 65 72 73 69 6f | 6e 20 66 6f 72 20 52 4f |s versio|n for RO|
|00000060| 33 0d 00 32 28 85 20 26 | 38 30 33 2c 22 44 6f 20 |3..2(. &|803,"Do |
|00000070| 6e 6f 74 20 72 75 6e 20 | 74 68 65 20 57 69 6d 70 |not run |the Wimp|
|00000080| 20 4c 69 62 72 61 72 79 | 22 0d 00 3c 05 3a 0d 00 | Library|"..<.:..|
|00000090| 46 37 f4 20 2a 2a 2a 2a | 2a 2a 2a 2a 20 4d 61 69 |F7. ****|**** Mai|
|000000a0| 6e 20 41 70 70 6c 69 63 | 61 74 69 6f 6e 20 50 72 |n Applic|ation Pr|
|000000b0| 6f 63 65 64 75 72 65 73 | 20 2a 2a 2a 2a 2a 2a 2a |ocedures| *******|
|000000c0| 2a 2a 2a 2a 2a 0d 00 50 | 05 3a 0d 00 5a 34 f4 20 |*****..P|.:..Z4. |
|000000d0| 50 52 4f 43 69 6e 69 74 | 6c 69 62 72 61 72 79 20 |PROCinit|library |
|000000e0| 3a 20 49 6e 69 74 69 61 | 6c 69 73 65 20 6c 69 62 |: Initia|lise lib|
|000000f0| 72 61 72 79 20 76 61 72 | 69 61 62 6c 65 73 0d 00 |rary var|iables..|
|00000100| 64 11 dd f2 69 6e 69 74 | 6c 69 62 72 61 72 79 0d |d...init|library.|
|00000110| 00 6e 1a de 20 6d 65 73 | 73 61 67 65 5f 62 75 66 |.n.. mes|sage_buf|
|00000120| 66 65 72 25 20 31 30 32 | 34 0d 00 78 38 72 6d 61 |fer% 102|4..x8rma|
|00000130| 66 6f 6e 74 61 72 65 61 | 3d 2d 32 3a 6d 73 67 62 |fontarea|=-2:msgb|
|00000140| 75 66 66 65 72 25 3d 2d | 31 3a 6d 73 67 62 75 66 |uffer%=-|1:msgbuf|
|00000150| 66 65 72 32 25 3d 2d 31 | 3a 66 74 62 6c 6b 3d 2d |fer2%=-1|:ftblk=-|
|00000160| 32 0d 00 82 05 e1 0d 00 | 8c 05 3a 0d 00 96 3d f4 |2.......|..:...=.|
|00000170| 20 50 52 4f 43 6e 6f 74 | 65 6d 65 73 73 61 67 65 | PROCnot|emessage|
|00000180| 20 3a 20 4d 61 72 6b 20 | 74 68 65 20 67 69 76 65 | : Mark |the give|
|00000190| 6e 20 6d 65 73 73 61 67 | 65 20 61 73 20 72 65 63 |n messag|e as rec|
|000001a0| 65 69 76 65 61 62 6c 65 | 0d 00 a0 3a dd f2 6e 6f |eiveable|...:..no|
|000001b0| 74 65 6d 65 73 73 61 67 | 65 28 6e 29 3a 6d 65 73 |temessag|e(n):mes|
|000001c0| 73 61 67 65 6c 69 73 74 | 25 21 6d 65 73 73 70 74 |sagelist|%!messpt|
|000001d0| 72 25 3d 6e 3a 6d 65 73 | 73 70 74 72 25 2b 3d 34 |r%=n:mes|sptr%+=4|
|000001e0| 3a e1 0d 00 aa 05 3a 0d | 00 b4 32 f4 20 46 4e 6c |:.....:.|..2. FNl|
|000001f0| 6f 61 64 74 65 6d 70 6c | 61 74 65 20 3a 20 6c 6f |oadtempl|ate : lo|
|00000200| 61 64 20 74 68 65 20 73 | 70 65 63 69 66 69 65 64 |ad the s|pecified|
|00000210| 20 74 65 6d 70 6c 61 74 | 65 0d 00 be 32 f4 20 73 | templat|e...2. s|
|00000220| 70 72 62 6c 6b 25 20 73 | 68 6f 75 6c 64 20 62 65 |prblk% s|hould be|
|00000230| 20 31 20 66 6f 72 20 74 | 68 65 20 73 74 61 6e 64 | 1 for t|he stand|
|00000240| 61 72 64 20 73 70 72 69 | 74 65 73 0d 00 c8 30 dd |ard spri|tes...0.|
|00000250| a4 6c 6f 61 64 74 65 6d | 70 6c 61 74 65 28 6e 24 |.loadtem|plate(n$|
|00000260| 2c 73 70 72 62 6c 6b 25 | 29 3a ea 20 74 73 69 7a |,sprblk%|):. tsiz|
|00000270| 65 25 2c 62 6c 6b 25 2c | 6f 6b 25 0d 00 d2 30 c8 |e%,blk%,|ok%...0.|
|00000280| 99 20 22 57 69 6d 70 5f | 4f 70 65 6e 54 65 6d 70 |. "Wimp_|OpenTemp|
|00000290| 6c 61 74 65 22 2c 2c 41 | 70 70 64 69 72 24 2b 22 |late",,A|ppdir$+"|
|000002a0| 2e 54 65 6d 70 6c 61 74 | 65 73 22 0d 00 dc 30 c8 |.Templat|es"...0.|
|000002b0| 99 20 22 57 69 6d 70 5f | 4c 6f 61 64 54 65 6d 70 |. "Wimp_|LoadTemp|
|000002c0| 6c 61 74 65 22 2c 2c 30 | 2c 2c 2c 2c 6e 24 2c 30 |late",,0|,,,,n$,0|
|000002d0| 20 b8 20 2c 2c 74 73 69 | 7a 65 25 0d 00 e6 11 de | . ,,tsi|ze%.....|
|000002e0| 20 62 6c 6b 25 20 74 73 | 69 7a 65 25 0d 00 f0 48 | blk% ts|ize%...H|
|000002f0| c8 99 20 22 57 69 6d 70 | 5f 4c 6f 61 64 54 65 6d |.. "Wimp|_LoadTem|
|00000300| 70 6c 61 74 65 22 2c 2c | 77 73 70 63 25 2c 62 6c |plate",,|wspc%,bl|
|00000310| 6b 25 2c 62 6c 6b 25 20 | 2b 20 74 73 69 7a 65 25 |k%,blk% |+ tsize%|
|00000320| 2c 2d 31 2c 6e 24 2c 30 | 20 b8 20 2c 2c 2c 2c 2c |,-1,n$,0| . ,,,,,|
|00000330| 2c 6f 6b 25 0d 00 fa 1b | c8 99 20 22 57 69 6d 70 |,ok%....|.. "Wimp|
|00000340| 5f 43 6c 6f 73 65 54 65 | 6d 70 6c 61 74 65 22 0d |_CloseTe|mplate".|
|00000350| 01 04 35 e7 20 6f 6b 25 | 3d 30 20 8c 85 20 26 38 |..5. ok%|=0 .. &8|
|00000360| 30 33 2c 20 22 54 65 6d | 70 6c 61 74 65 20 66 69 |03, "Tem|plate fi|
|00000370| 6c 65 20 22 2b 6e 24 2b | 22 20 6e 6f 74 20 66 6f |le "+n$+|" not fo|
|00000380| 75 6e 64 22 0d 01 0e 39 | 77 73 70 63 25 21 36 34 |und"...9|wspc%!64|
|00000390| 3d 73 70 72 62 6c 6b 25 | 3a c8 99 20 22 57 69 6d |=sprblk%|:.. "Wim|
|000003a0| 70 5f 43 72 65 61 74 65 | 57 69 6e 64 6f 77 22 2c |p_Create|Window",|
|000003b0| 2c 77 73 70 63 25 20 b8 | 20 62 6c 6b 25 0d 01 18 |,wspc% .| blk%...|
|000003c0| 09 3d 62 6c 6b 25 0d 01 | 22 05 3a 0d 01 2c 34 f4 |.=blk%..|".:..,4.|
|000003d0| 20 46 4e 6c 6f 61 64 73 | 70 72 69 74 65 73 20 3a | FNloads|prites :|
|000003e0| 20 4c 6f 61 64 20 73 70 | 72 69 74 65 20 66 69 6c | Load sp|rite fil|
|000003f0| 65 20 69 6e 74 6f 20 6e | 65 77 20 61 72 65 61 0d |e into n|ew area.|
|00000400| 01 36 2a dd a4 6c 6f 61 | 64 73 70 72 69 74 65 73 |.6*..loa|dsprites|
|00000410| 28 66 69 6c 65 24 29 3a | ea 20 6c 65 6e 25 2c 6f |(file$):|. len%,o|
|00000420| 25 2c 73 70 72 62 6c 6b | 25 0d 01 40 1a 6f 25 3d |%,sprblk|%..@.o%=|
|00000430| 8e 28 66 69 6c 65 24 29 | 3a e7 20 6f 25 3d 30 20 |.(file$)|:. o%=0 |
|00000440| 8c 3d 31 0d 01 4a 15 6c | 65 6e 25 3d a2 23 6f 25 |.=1..J.l|en%=.#o%|
|00000450| 2b 31 36 3a d9 23 6f 25 | 0d 01 54 2c de 20 73 70 |+16:.#o%|..T,. sp|
|00000460| 72 62 6c 6b 25 20 6c 65 | 6e 25 3a 21 73 70 72 62 |rblk% le|n%:!sprb|
|00000470| 6c 6b 25 3d 6c 65 6e 25 | 3a 73 70 72 62 6c 6b 25 |lk%=len%|:sprblk%|
|00000480| 21 38 3d 30 0d 01 5e 20 | c8 99 22 4f 53 5f 53 70 |!8=0..^ |.."OS_Sp|
|00000490| 72 69 74 65 4f 70 22 2c | 26 31 30 39 2c 73 70 72 |riteOp",|&109,spr|
|000004a0| 62 6c 6b 25 0d 01 68 26 | c8 99 22 4f 53 5f 53 70 |blk%..h&|.."OS_Sp|
|000004b0| 72 69 74 65 4f 70 22 2c | 26 31 30 41 2c 73 70 72 |riteOp",|&10A,spr|
|000004c0| 62 6c 6b 25 2c 66 69 6c | 65 24 0d 01 72 0c 3d 73 |blk%,fil|e$..r.=s|
|000004d0| 70 72 62 6c 6b 25 0d 01 | 7c 05 3a 0d 01 86 41 f4 |prblk%..||.:...A.|
|000004e0| 20 46 4e 47 65 74 45 6e | 76 20 3a 20 52 65 74 75 | FNGetEn|v : Retu|
|000004f0| 72 6e 20 74 68 65 20 65 | 6e 76 69 72 6f 6e 6d 65 |rn the e|nvironme|
|00000500| 6e 74 20 73 74 72 69 6e | 67 20 73 74 72 69 70 70 |nt strin|g stripp|
|00000510| 65 64 20 6f 66 20 6c 6f | 61 64 65 72 0d 01 90 18 |ed of lo|ader....|
|00000520| dd a4 47 65 74 45 6e 76 | 3a ea 20 63 6f 6d 24 2c |..GetEnv|:. com$,|
|00000530| 49 2c 70 24 0d 01 9a 19 | c8 99 20 22 4f 53 5f 47 |I,p$....|.. "OS_G|
|00000540| 65 74 45 6e 76 22 20 b8 | 20 63 6f 6d 24 0d 01 a4 |etEnv" .| com$...|
|00000550| 1c 70 24 3d 22 22 3a 49 | 3d a7 63 6f 6d 24 2c 22 |.p$="":I|=.com$,"|
|00000560| 20 2d 71 75 69 74 20 22 | 29 0d 01 ae 0b e7 20 49 | -quit "|)..... I|
|00000570| 3e 30 20 8c 0d 01 b8 28 | 20 70 24 3d c1 63 6f 6d |>0 ....(| p$=.com|
|00000580| 24 2c a7 63 6f 6d 24 2c | 22 20 22 2c 49 2b a9 22 |$,.com$,|" ",I+."|
|00000590| 20 2d 71 75 69 74 20 22 | 29 2b 31 29 0d 01 c2 1e | -quit "|)+1)....|
|000005a0| 20 c8 95 20 c0 70 24 2c | 31 29 3d 22 20 22 3a 70 | .. .p$,|1)=" ":p|
|000005b0| 24 3d c1 70 24 2c 32 29 | 3a ce 0d 01 cc 05 cd 0d |$=.p$,2)|:.......|
|000005c0| 01 d6 07 3d 70 24 0d 01 | e0 05 3a 0d 01 ea 40 f4 |...=p$..|..:...@.|
|000005d0| 20 46 4e 73 79 73 74 65 | 6d 76 61 72 20 3a 20 52 | FNsyste|mvar : R|
|000005e0| 65 74 75 72 6e 20 74 68 | 65 20 63 6f 6e 74 65 6e |eturn th|e conten|
|000005f0| 74 73 20 6f 66 20 61 6e | 79 20 73 74 72 69 6e 67 |ts of an|y string|
|00000600| 20 73 79 73 74 65 6d 20 | 76 61 72 0d 01 f4 1b dd | system |var.....|
|00000610| a4 73 79 73 74 65 6d 76 | 61 72 28 56 61 72 24 29 |.systemv|ar(Var$)|
|00000620| 3a ea 20 6c 65 6e 0d 01 | fe 3a c8 99 20 22 58 4f |:. len..|.:.. "XO|
|00000630| 53 5f 52 65 61 64 56 61 | 72 56 61 6c 22 2c 56 61 |S_ReadVa|rVal",Va|
|00000640| 72 24 2c 6d 65 73 73 61 | 67 65 5f 62 75 66 66 65 |r$,messa|ge_buffe|
|00000650| 72 25 2c 32 35 35 2c 30 | 2c 33 b8 2c 2c 6c 65 6e |r%,255,0|,3.,,len|
|00000660| 0d 02 08 1a 6d 65 73 73 | 61 67 65 5f 62 75 66 66 |....mess|age_buff|
|00000670| 65 72 25 3f 6c 65 6e 3d | 31 33 0d 02 12 15 3d 24 |er%?len=|13....=$|
|00000680| 6d 65 73 73 61 67 65 5f | 62 75 66 66 65 72 25 0d |message_|buffer%.|
|00000690| 02 1c 05 3a 0d 02 26 29 | f4 20 50 52 4f 43 65 65 |...:..&)|. PROCee|
|000006a0| 72 72 6f 72 20 3a 20 45 | 78 74 65 72 6e 61 6c 20 |rror : E|xternal |
|000006b0| 65 72 72 6f 72 20 72 6f | 75 74 69 6e 65 0d 02 30 |error ro|utine..0|
|000006c0| 3e f4 20 73 68 6f 75 6c | 64 20 62 65 20 63 61 6c |>. shoul|d be cal|
|000006d0| 6c 65 64 20 77 68 65 6e | 20 65 72 72 6f 72 73 20 |led when| errors |
|000006e0| 6f 63 63 75 72 20 64 75 | 72 69 6e 67 20 69 6e 69 |occur du|ring ini|
|000006f0| 74 69 61 6c 69 73 61 74 | 69 6f 6e 0d 02 3a 0c dd |tialisat|ion..:..|
|00000700| f2 65 65 72 72 6f 72 0d | 02 44 07 ea 20 85 0d 02 |.eerror.|.D.. ...|
|00000710| 4e 47 ee 20 85 20 ea 3a | f2 63 6c 6f 73 65 6d 65 |NG. . .:|.closeme|
|00000720| 73 73 61 67 65 73 3a ef | 34 3a 85 20 a2 20 30 2c |ssages:.|4:. . 0,|
|00000730| f6 24 2b 22 20 61 74 20 | 6c 69 6e 65 20 22 2b c3 |.$+" at |line "+.|
|00000740| 9e 2b 22 20 69 6e 20 65 | 72 72 6f 72 20 68 61 6e |.+" in e|rror han|
|00000750| 64 6c 65 72 22 0d 02 58 | 29 6d 65 73 73 24 3d 22 |dler"..X|)mess$="|
|00000760| 49 6e 74 65 72 6e 61 6c | 20 65 72 72 6f 72 20 3a |Internal| error :|
|00000770| 20 28 22 2b c3 9e 2b 22 | 29 20 22 2b f6 24 0d 02 | ("+..+"|) "+.$..|
|00000780| 62 38 ff 28 22 53 65 74 | 20 45 72 72 6f 72 24 20 |b8.("Set| Error$ |
|00000790| 22 2b 6d 65 73 73 24 29 | 3a ff 28 22 53 65 74 20 |"+mess$)|:.("Set |
|000007a0| 45 72 72 6f 72 24 54 61 | 73 6b 20 4e 6f 74 20 6b |Error$Ta|sk Not k|
|000007b0| 6e 6f 77 6e 22 29 0d 02 | 6c 4c 6d 65 73 73 61 67 |nown")..|lLmessag|
|000007c0| 65 5f 62 75 66 66 65 72 | 25 21 30 3d 9f 3a 24 28 |e_buffer|%!0=.:$(|
|000007d0| 6d 65 73 73 61 67 65 5f | 62 75 66 66 65 72 25 2b |message_|buffer%+|
|000007e0| 34 29 3d 6d 65 73 73 24 | 2b 22 20 77 68 69 6c 73 |4)=mess$|+" whils|
|000007f0| 74 20 69 6e 69 74 69 61 | 6c 69 73 69 6e 67 22 2b |t initia|lising"+|
|00000800| bd 30 0d 02 76 27 ee 20 | 85 20 ea 3a 41 70 70 6e |.0..v'. |. .:Appn|
|00000810| 61 6d 65 24 3d 22 75 6e | 69 6e 69 74 69 61 6c 69 |ame$="un|initiali|
|00000820| 73 65 64 20 74 61 73 6b | 22 0d 02 80 0f 61 24 3d |sed task|"....a$=|
|00000830| 41 70 70 6e 61 6d 65 24 | 0d 02 8a 47 ee 20 85 20 |Appname$|...G. . |
|00000840| ea 3a f2 63 6c 6f 73 65 | 6d 65 73 73 61 67 65 73 |.:.close|messages|
|00000850| 3a ef 34 3a 85 20 a2 20 | 30 2c f6 24 2b 22 20 61 |:.4:. . |0,.$+" a|
|00000860| 74 20 6c 69 6e 65 20 22 | 2b c3 9e 2b 22 20 69 6e |t line "|+..+" in|
|00000870| 20 65 72 72 6f 72 20 68 | 61 6e 64 6c 65 72 22 0d | error h|andler".|
|00000880| 02 94 34 c8 99 20 22 57 | 69 6d 70 5f 52 65 70 6f |..4.. "W|imp_Repo|
|00000890| 72 74 45 72 72 6f 72 22 | 2c 6d 65 73 73 61 67 65 |rtError"|,message|
|000008a0| 5f 62 75 66 66 65 72 25 | 2c 39 2c 41 70 70 6e 61 |_buffer%|,9,Appna|
|000008b0| 6d 65 24 0d 02 9e 05 e1 | 0d 02 a8 05 3a 0d 02 b2 |me$.....|....:...|
|000008c0| 3e f4 20 50 52 4f 43 65 | 72 72 6f 72 20 3a 20 43 |>. PROCe|rror : C|
|000008d0| 61 6c 6c 65 64 20 61 74 | 20 61 6e 79 20 42 41 53 |alled at| any BAS|
|000008e0| 49 43 20 65 72 72 6f 72 | 20 69 6e 73 69 64 65 20 |IC error| inside |
|000008f0| 74 68 65 20 64 65 73 6b | 74 6f 70 0d 02 bc 1b f4 |the desk|top.....|
|00000900| 20 45 52 52 4f 52 20 6e | 75 6d 62 65 72 73 20 26 | ERROR n|umbers &|
|00000910| 38 30 30 2b 20 3a 0d 02 | c6 0c f4 20 30 20 3d 20 |800+ :..|... 0 = |
|00000920| 4f 4b 0d 02 d0 10 f4 20 | 31 20 3d 20 43 61 6e 63 |OK..... |1 = Canc|
|00000930| 65 6c 0d 02 da 21 f4 20 | 32 20 3d 20 4f 4b 20 61 |el...!. |2 = OK a|
|00000940| 6e 64 20 43 61 6e 63 65 | 6c 20 28 74 6f 20 71 75 |nd Cance|l (to qu|
|00000950| 69 74 29 0d 02 e4 2e f4 | 20 53 68 69 66 74 2c 20 |it).....| Shift, |
|00000960| 43 74 72 6c 2c 20 51 20 | 61 6e 64 20 63 6c 69 63 |Ctrl, Q |and clic|
|00000970| 6b 20 74 6f 20 65 78 69 | 74 20 70 72 6f 67 72 61 |k to exi|t progra|
|00000980| 6d 0d 02 ee 22 dd f2 65 | 72 72 6f 72 3a ea 20 65 |m..."..e|rror:. e|
|00000990| 72 72 63 6f 64 65 2c 6d | 65 73 73 24 2c 72 65 70 |rrcode,m|ess$,rep|
|000009a0| 6c 79 25 0d 02 f8 07 ea | 20 85 0d 03 02 47 ee 20 |ly%.....| ....G. |
|000009b0| 85 20 ea 3a f2 63 6c 6f | 73 65 6d 65 73 73 61 67 |. .:.clo|semessag|
|000009c0| 65 73 3a ef 34 3a 85 20 | a2 20 30 2c f6 24 2b 22 |es:.4:. |. 0,.$+"|
|000009d0| 20 61 74 20 6c 69 6e 65 | 20 22 2b c3 9e 2b 22 20 | at line| "+..+" |
|000009e0| 69 6e 20 65 72 72 6f 72 | 20 68 61 6e 64 6c 65 72 |in error| handler|
|000009f0| 22 0d 03 0c 14 c8 99 20 | 22 4f 53 5f 42 79 74 65 |"...... |"OS_Byte|
|00000a00| 22 2c 31 32 34 0d 03 16 | 17 e7 20 9f 3e 26 37 46 |",124...|.. .>&7F|
|00000a10| 46 20 80 20 9f 3c 26 38 | 30 33 20 8c 0d 03 20 1c |F . .<&8|03 ... .|
|00000a20| 20 65 72 72 63 6f 64 65 | 3d 9f 2d 26 37 46 46 3a | errcode|=.-&7FF:|
|00000a30| 6d 65 73 73 24 3d f6 24 | 0d 03 2a 2c 20 e7 20 65 |mess$=.$|..*, . e|
|00000a40| 72 72 63 6f 64 65 3d 33 | 20 8c 6d 65 73 73 24 2b |rrcode=3| .mess$+|
|00000a50| 3d 22 20 28 43 61 6e 63 | 65 6c 20 74 6f 20 51 75 |=" (Canc|el to Qu|
|00000a60| 69 74 29 22 0d 03 34 2d | 20 72 65 70 6c 79 25 3d |it)"..4-| reply%=|
|00000a70| a4 65 72 72 6f 72 62 6f | 78 28 41 70 70 6e 61 6d |.errorbo|x(Appnam|
|00000a80| 65 24 2c 6d 65 73 73 24 | 2c 65 72 72 63 6f 64 65 |e$,mess$|,errcode|
|00000a90| 29 0d 03 3e 24 20 e7 20 | 72 65 70 6c 79 25 3d 32 |)..>$ . |reply%=2|
|00000aa0| 20 80 20 65 72 72 63 6f | 64 65 3d 33 20 8c 71 75 | . errco|de=3 .qu|
|00000ab0| 69 74 25 3d b9 0d 03 48 | 05 cc 0d 03 52 3c 20 6d |it%=...H|....R< m|
|00000ac0| 65 73 73 24 3d 22 49 6e | 74 65 72 6e 61 6c 20 65 |ess$="In|ternal e|
|00000ad0| 72 72 6f 72 20 3a 20 28 | 22 2b c3 9e 2b 22 29 20 |rror : (|"+..+") |
|00000ae0| 22 2b f6 24 2b 22 20 43 | 61 6e 63 65 6c 20 74 6f |"+.$+" C|ancel to|
|00000af0| 20 51 75 69 74 22 0d 03 | 5c 29 20 72 65 70 6c 79 | Quit"..|\) reply|
|00000b00| 25 3d a4 65 72 72 6f 72 | 62 6f 78 28 41 70 70 6e |%=.error|box(Appn|
|00000b10| 61 6d 65 24 2c 6d 65 73 | 73 24 2c 25 31 31 29 0d |ame$,mes|s$,%11).|
|00000b20| 03 66 12 20 e7 20 72 65 | 70 6c 79 25 3c 3e 31 20 |.f. . re|ply%<>1 |
|00000b30| 8c 0d 03 70 24 20 20 71 | 75 69 74 25 3d b9 3a ff |...p$ q|uit%=.:.|
|00000b40| 28 22 53 65 74 20 45 72 | 72 6f 72 24 20 22 2b 6d |("Set Er|ror$ "+m|
|00000b50| 65 73 73 24 29 0d 03 7a | 23 20 20 ff 28 22 53 65 |ess$)..z|# .("Se|
|00000b60| 74 20 45 72 72 6f 72 24 | 54 61 73 6b 20 22 2b 41 |t Error$|Task "+A|
|00000b70| 70 70 6e 61 6d 65 24 29 | 0d 03 84 06 20 cd 0d 03 |ppname$)|.... ...|
|00000b80| 8e 2b 20 e7 20 a6 28 2d | 31 29 20 80 20 a6 28 2d |.+ . .(-|1) . .(-|
|00000b90| 32 29 20 80 20 a6 28 2d | 31 37 29 20 8c ff 28 22 |2) . .(-|17) ..("|
|00000ba0| 53 70 6f 6f 6c 22 29 3a | e0 0d 03 98 05 cd 0d 03 |Spool"):|........|
|00000bb0| a2 05 e1 0d 03 ac 05 3a | 0d 03 b6 3b f4 20 46 4e |.......:|...;. FN|
|00000bc0| 65 72 72 6f 72 62 6f 78 | 20 3a 20 63 72 65 61 74 |errorbox| : creat|
|00000bd0| 65 20 61 6e 20 65 72 72 | 6f 72 20 62 6f 78 20 77 |e an err|or box w|
|00000be0| 69 74 68 20 75 70 20 74 | 6f 20 32 20 62 75 74 74 |ith up t|o 2 butt|
|00000bf0| 6f 6e 73 0d 03 c0 1d f4 | 20 42 69 74 20 56 61 6c |ons.....| Bit Val|
|00000c00| 75 65 20 45 66 66 65 63 | 74 20 69 66 20 73 65 74 |ue Effec|t if set|
|00000c10| 0d 03 ca 3f f4 20 20 30 | 20 20 20 20 31 20 20 20 |...?. 0| 1 |
|00000c20| 49 6e 63 6c 75 64 65 20 | 61 6e 20 4f 4b 20 6f 70 |Include |an OK op|
|00000c30| 74 69 6f 6e 20 20 20 20 | 7d 20 69 66 20 62 6f 74 |tion |} if bot|
|00000c40| 68 20 75 6e 73 65 74 20 | 74 68 65 6e 20 61 73 0d |h unset |then as.|
|00000c50| 03 d4 33 f4 20 20 31 20 | 20 20 20 32 20 20 20 49 |..3. 1 | 2 I|
|00000c60| 6e 63 6c 75 64 65 20 61 | 20 43 61 6e 63 65 6c 20 |nclude a| Cancel |
|00000c70| 6f 70 74 69 6f 6e 20 7d | 20 62 69 74 20 30 20 73 |option }| bit 0 s|
|00000c80| 65 74 0d 03 de 44 f4 20 | 20 32 20 20 20 20 34 20 |et...D. | 2 4 |
|00000c90| 20 20 52 65 76 65 72 73 | 65 64 20 62 75 74 74 6f | Revers|ed butto|
|00000ca0| 6e 73 2c 20 4f 4b 3d 57 | 68 69 74 65 2c 20 43 61 |ns, OK=W|hite, Ca|
|00000cb0| 6e 63 65 6c 3d 59 65 6c | 6c 6f 77 20 61 6e 64 20 |ncel=Yel|low and |
|00000cc0| 61 63 74 69 6f 6e 0d 03 | e8 11 f4 20 20 33 20 20 |action..|... 3 |
|00000cd0| 20 20 38 20 20 20 3f 0d | 03 f2 3a f4 20 20 34 20 | 8 ?.|..:. 4 |
|00000ce0| 20 20 20 31 36 20 20 54 | 69 74 6c 65 20 69 73 20 | 16 T|itle is |
|00000cf0| 6a 75 73 74 20 74 69 74 | 6c 65 20 28 6e 6f 74 20 |just tit|le (not |
|00000d00| 45 72 72 6f 72 20 66 72 | 6f 6d 20 74 69 74 6c 65 |Error fr|om title|
|00000d10| 29 0d 03 fc 25 f4 20 20 | 35 20 20 20 20 33 32 20 |)...%. |5 32 |
|00000d20| 20 44 61 6e 67 65 72 6f | 75 73 2c 20 64 6f 20 6e | Dangero|us, do n|
|00000d30| 6f 74 20 75 73 65 0d 04 | 06 1e f4 20 20 36 20 20 |ot use..|... 6 |
|00000d40| 20 20 36 34 20 20 4e 6f | 20 65 72 72 6f 72 20 62 | 64 No| error b|
|00000d50| 6f 78 20 3f 0d 04 10 1a | f4 20 20 37 20 20 20 31 |ox ?....|. 7 1|
|00000d60| 32 38 20 20 44 6f 6e 27 | 74 20 62 65 65 70 0d 04 |28 Don'|t beep..|
|00000d70| 1a 3f dd a4 65 72 72 6f | 72 62 6f 78 28 74 69 74 |.?..erro|rbox(tit|
|00000d80| 6c 65 24 2c 6d 65 73 73 | 61 67 65 24 2c 62 75 74 |le$,mess|age$,but|
|00000d90| 74 6f 6e 25 29 3a 74 69 | 74 6c 65 24 3d a4 6d 73 |ton%):ti|tle$=.ms|
|00000da0| 67 74 65 78 74 28 74 69 | 74 6c 65 24 29 0d 04 24 |gtext(ti|tle$)..$|
|00000db0| 1f 6d 65 73 73 61 67 65 | 24 3d a4 6d 73 67 74 65 |.message|$=.msgte|
|00000dc0| 78 74 28 6d 65 73 73 61 | 67 65 24 29 0d 04 2e 34 |xt(messa|ge$)...4|
|00000dd0| 24 28 6d 65 73 73 61 67 | 65 5f 62 75 66 66 65 72 |$(messag|e_buffer|
|00000de0| 25 2b 34 29 3d 6d 65 73 | 73 61 67 65 24 3a 21 6d |%+4)=mes|sage$:!m|
|00000df0| 65 73 73 61 67 65 5f 62 | 75 66 66 65 72 25 3d 30 |essage_b|uffer%=0|
|00000e00| 0d 04 38 42 c8 99 20 22 | 57 69 6d 70 5f 52 65 70 |..8B.. "|Wimp_Rep|
|00000e10| 6f 72 74 45 72 72 6f 72 | 22 2c 6d 65 73 73 61 67 |ortError|",messag|
|00000e20| 65 5f 62 75 66 66 65 72 | 25 2c 62 75 74 74 6f 6e |e_buffer|%,button|
|00000e30| 25 2c 74 69 74 6c 65 24 | 20 b8 20 2c 72 65 70 6c |%,title$| . ,repl|
|00000e40| 79 25 0d 04 42 0b 3d 72 | 65 70 6c 79 25 0d 04 4c |y%..B.=r|eply%..L|
|00000e50| 05 3a 0d 04 56 37 f4 20 | 50 52 4f 43 73 68 6f 77 |.:..V7. |PROCshow|
|00000e60| 66 72 65 65 20 3a 20 64 | 69 73 70 6c 61 79 20 69 |free : d|isplay i|
|00000e70| 6e 20 69 6e 66 6f 62 6f | 78 25 20 74 68 65 20 66 |n infobo|x% the f|
|00000e80| 72 65 65 20 73 70 61 63 | 65 0d 04 60 0e dd f2 73 |ree spac|e..`...s|
|00000e90| 68 6f 77 66 72 65 65 0d | 04 6a 07 ea 20 85 0d 04 |howfree.|.j.. ...|
|00000ea0| 74 40 ee 20 85 20 ea 3a | e7 20 9f 3d 26 38 30 33 |t@. . .:|. .=&803|
|00000eb0| 20 8c f2 73 65 74 69 63 | 6f 6e 74 65 78 74 28 69 | ..setic|ontext(i|
|00000ec0| 6e 66 6f 62 6f 78 25 2c | 34 2c 22 4f 6c 64 20 74 |nfobox%,|4,"Old t|
|00000ed0| 65 6d 70 6c 61 74 65 22 | 29 3a e1 20 8b e1 0d 04 |emplate"|):. ....|
|00000ee0| 7e 26 f2 73 65 74 69 63 | 6f 6e 74 65 78 74 28 69 |~&.setic|ontext(i|
|00000ef0| 6e 66 6f 62 6f 78 25 2c | 35 2c 22 50 72 6f 67 72 |nfobox%,|5,"Progr|
|00000f00| 61 6d 22 29 0d 04 88 42 | f2 73 65 74 69 63 6f 6e |am")...B|.seticon|
|00000f10| 74 65 78 74 28 69 6e 66 | 6f 62 6f 78 25 2c 31 2c |text(inf|obox%,1,|
|00000f20| c3 28 b8 50 2d 90 29 2b | 22 20 62 79 74 65 73 2c |.(.P-.)+|" bytes,|
|00000f30| 20 22 2b c3 28 28 b8 50 | 2d 90 29 81 26 34 30 30 | "+.((.P|-.).&400|
|00000f40| 29 2b 22 4b 22 29 0d 04 | 92 23 f2 73 65 74 69 63 |)+"K")..|.#.setic|
|00000f50| 6f 6e 74 65 78 74 28 69 | 6e 66 6f 62 6f 78 25 2c |ontext(i|nfobox%,|
|00000f60| 36 2c 22 56 61 72 73 22 | 29 0d 04 9c 40 f2 73 65 |6,"Vars"|)...@.se|
|00000f70| 74 69 63 6f 6e 74 65 78 | 74 28 69 6e 66 6f 62 6f |ticontex|t(infobo|
|00000f80| 78 25 2c 32 2c c3 28 e0 | 2d 92 29 2b 22 20 62 79 |x%,2,.(.|-.)+" by|
|00000f90| 74 65 73 2c 20 22 2b c3 | 28 28 e0 2d 92 29 81 26 |tes, "+.|((.-.).&|
|00000fa0| 34 30 30 29 2b 22 4b 22 | 29 0d 04 a6 23 f2 73 65 |400)+"K"|)...#.se|
|00000fb0| 74 69 63 6f 6e 74 65 78 | 74 28 69 6e 66 6f 62 6f |ticontex|t(infobo|
|00000fc0| 78 25 2c 37 2c 22 46 72 | 65 65 22 29 0d 04 b0 40 |x%,7,"Fr|ee")...@|
|00000fd0| f2 73 65 74 69 63 6f 6e | 74 65 78 74 28 69 6e 66 |.seticon|text(inf|
|00000fe0| 6f 62 6f 78 25 2c 33 2c | c3 28 93 2d e0 29 2b 22 |obox%,3,|.(.-.)+"|
|00000ff0| 20 62 79 74 65 73 2c 20 | 22 2b c3 28 28 93 2d e0 | bytes, |"+.((.-.|
|00001000| 29 81 26 34 30 30 29 2b | 22 4b 22 29 0d 04 ba 21 |).&400)+|"K")...!|
|00001010| f2 68 65 61 70 5f 66 72 | 65 65 28 68 65 61 70 73 |.heap_fr|ee(heaps|
|00001020| 69 7a 65 2c 68 65 61 70 | 66 72 65 65 29 0d 04 c4 |ize,heap|free)...|
|00001030| 23 f2 73 65 74 69 63 6f | 6e 74 65 78 74 28 69 6e |#.setico|ntext(in|
|00001040| 66 6f 62 6f 78 25 2c 38 | 2c 22 48 65 61 70 22 29 |fobox%,8|,"Heap")|
|00001050| 0d 04 ce 76 f2 73 65 74 | 69 63 6f 6e 74 65 78 74 |...v.set|icontext|
|00001060| 28 69 6e 66 6f 62 6f 78 | 25 2c 34 2c c3 28 68 65 |(infobox|%,4,.(he|
|00001070| 61 70 73 69 7a 65 2d 68 | 65 61 70 66 72 65 65 29 |apsize-h|eapfree)|
|00001080| 2b 22 20 62 79 74 65 73 | 2c 20 22 2b c3 28 28 68 |+" bytes|, "+.((h|
|00001090| 65 61 70 73 69 7a 65 2d | 68 65 61 70 66 72 65 65 |eapsize-|heapfree|
|000010a0| 29 81 26 34 30 30 29 2b | 22 4b 20 6f 66 20 22 2b |).&400)+|"K of "+|
|000010b0| c3 28 68 65 61 70 73 69 | 7a 65 20 81 26 34 30 30 |.(heapsi|ze .&400|
|000010c0| 29 2b 22 4b 22 29 0d 04 | d8 05 e1 0d 04 e2 05 3a |)+"K")..|.......:|
|000010d0| 0d 04 ec 37 f4 20 2a 2a | 2a 2a 2a 2a 2a 2a 20 4d |...7. **|****** M|
|000010e0| 65 6e 75 20 6d 61 6e 69 | 70 75 6c 61 74 69 6f 6e |enu mani|pulation|
|000010f0| 20 70 72 6f 63 65 64 75 | 72 65 73 20 2a 2a 2a 2a | procedu|res ****|
|00001100| 2a 2a 2a 2a 2a 2a 2a 0d | 04 f6 05 3a 0d 05 00 39 |*******.|...:...9|
|00001110| f4 20 46 4e 63 72 65 61 | 74 65 6d 65 6e 75 20 3a |. FNcrea|temenu :|
|00001120| 20 43 72 65 61 74 65 20 | 61 20 6d 65 6e 75 20 67 | Create |a menu g|
|00001130| 69 76 65 6e 20 61 20 63 | 6f 6e 74 72 6f 6c 20 73 |iven a c|ontrol s|
|00001140| 74 72 69 6e 67 0d 05 0a | 13 f4 20 4d 65 6e 75 20 |tring...|.. Menu |
|00001150| 46 6f 72 6d 61 74 20 3a | 0d 05 14 1a f4 20 54 69 |Format :|..... Ti|
|00001160| 74 6c 65 7c 49 74 65 6d | 7c 49 74 65 6d 7c 49 74 |tle|Item||Item|It|
|00001170| 65 6d 0d 05 1e 18 f4 20 | 49 74 65 6d 20 63 6f 6e |em..... |Item con|
|00001180| 73 69 73 74 73 20 6f 66 | 20 3a 0d 05 28 1a f4 20 |sists of| :..(.. |
|00001190| 45 6e 74 72 79 20 6f 72 | 20 45 6e 74 72 79 5d 46 |Entry or| Entry]F|
|000011a0| 6c 61 67 73 0d 05 32 2a | f4 20 46 6c 61 67 73 20 |lags..2*|. Flags |
|000011b0| 63 61 6e 20 62 65 20 3a | 20 28 73 65 70 61 72 61 |can be :| (separa|
|000011c0| 74 65 64 20 62 79 20 63 | 6f 6d 6d 61 73 29 0d 05 |ted by c|ommas)..|
|000011d0| 3c 13 f4 20 20 54 20 66 | 6f 72 20 74 69 63 6b 65 |<.. T f|or ticke|
|000011e0| 64 0d 05 46 1e f4 20 20 | 44 20 66 6f 72 20 64 6f |d..F.. |D for do|
|000011f0| 74 74 65 64 20 75 6e 64 | 65 72 6e 65 61 74 68 0d |tted und|erneath.|
|00001200| 05 50 15 f4 20 20 57 20 | 66 6f 72 20 77 72 69 74 |.P.. W |for writ|
|00001210| 61 62 6c 65 0d 05 5a 13 | f4 20 20 53 20 66 6f 72 |able..Z.|. S for|
|00001220| 20 73 68 61 64 65 64 0d | 05 64 2b f4 20 20 4b 20 | shaded.|.d+. K |
|00001230| 66 6f 72 20 6b 65 79 20 | 73 68 6f 72 74 63 75 74 |for key |shortcut|
|00001240| 20 28 5e 3d 63 74 72 6c | 2c 20 a4 3d 73 68 69 66 | (^=ctrl|, .=shif|
|00001250| 74 29 0d 05 6e 3c f4 20 | 20 3e 20 66 6f 6c 6c 6f |t)..n<. | > follo|
|00001260| 77 65 64 20 62 79 20 76 | 61 72 69 61 62 6c 65 20 |wed by v|ariable |
|00001270| 66 6f 72 20 73 75 62 2d | 6d 65 6e 75 20 28 49 74 |for sub-|menu (It|
|00001280| 65 6d 5d 3e 73 75 62 6d | 65 6e 75 25 7c 29 0d 05 |em]>subm|enu%|)..|
|00001290| 78 32 f4 20 20 7d 20 66 | 6f 6c 6c 6f 77 65 64 20 |x2. } f|ollowed |
|000012a0| 62 79 20 61 20 73 70 72 | 69 74 65 20 6e 61 6d 65 |by a spr|ite name|
|000012b0| 20 28 49 74 65 6d 5d 7d | 73 70 72 69 74 65 7c 29 | (Item]}|sprite|)|
|000012c0| 0d 05 82 43 f4 20 4e 42 | 3a 54 68 65 20 6c 61 73 |...C. NB|:The las|
|000012d0| 74 20 74 77 6f 20 66 6c | 61 67 73 20 63 61 6e 20 |t two fl|ags can |
|000012e0| 62 65 20 75 73 65 64 20 | 74 6f 67 65 74 68 65 72 |be used |together|
|000012f0| 20 69 66 20 63 6f 6d 6d | 61 20 73 65 70 65 72 61 | if comm|a sepera|
|00001300| 74 65 64 0d 05 8c 20 f4 | 20 20 20 20 65 67 2e 20 |ted... .| eg. |
|00001310| 49 6e 66 6f 5d 3e 69 6e | 66 6f 25 2c 7d 21 48 65 |Info]>in|fo%,}!He|
|00001320| 6c 70 7c 0d 05 96 41 f4 | 20 4e 42 3a 49 66 20 74 |lp|...A.| NB:If t|
|00001330| 68 65 20 73 70 72 69 74 | 65 6e 61 6d 65 20 73 74 |he sprit|ename st|
|00001340| 61 72 74 73 20 77 69 74 | 68 20 73 6d 20 74 68 65 |arts wit|h sm the|
|00001350| 6e 20 74 68 65 20 73 70 | 72 69 74 65 20 77 69 6c |n the sp|rite wil|
|00001360| 6c 20 62 65 0d 05 a0 3d | f4 20 20 20 20 64 69 73 |l be...=|. dis|
|00001370| 70 6c 61 79 65 64 20 75 | 73 69 6e 67 20 69 74 73 |played u|sing its|
|00001380| 20 73 6d 61 6c 6c 20 66 | 6f 72 6d 2c 20 6f 74 68 | small f|orm, oth|
|00001390| 65 72 77 69 73 65 20 69 | 74 20 77 69 6c 6c 20 62 |erwise i|t will b|
|000013a0| 65 0d 05 aa 1d f4 20 20 | 20 20 73 68 72 75 6e 6b |e..... | shrunk|
|000013b0| 20 74 6f 20 68 61 6c 66 | 20 73 69 7a 65 2e 0d 05 | to half| size...|
|000013c0| b4 14 dd a4 63 72 65 61 | 74 65 6d 65 6e 75 28 41 |....crea|temenu(A|
|000013d0| 24 29 0d 05 be 35 ea 20 | 70 6f 69 6e 74 65 72 2c |$)...5. |pointer,|
|000013e0| 70 32 2c 70 33 2c 6c 2c | 6c 6b 2c 4f 24 2c 43 24 |p2,p3,l,|lk,O$,C$|
|000013f0| 2c 6f 69 6e 64 25 2c 6f | 69 6e 64 6c 25 2c 6b 73 |,oind%,o|indl%,ks|
|00001400| 25 2c 6b 24 2c 53 24 0d | 05 c8 21 6f 69 6e 64 25 |%,k$,S$.|..!oind%|
|00001410| 3d 69 6e 64 25 3a 6f 69 | 6e 64 6c 25 3d 69 6e 64 |=ind%:oi|ndl%=ind|
|00001420| 6c 25 3a 6b 73 25 3d a3 | 0d 05 d2 1d 70 6f 69 6e |l%:ks%=.|....poin|
|00001430| 74 65 72 3d 6d 65 6e 75 | 25 3a 6c 3d 30 3a 41 24 |ter=menu|%:l=0:A$|
|00001440| 2b 3d 22 7c 22 0d 05 dc | 1b f2 6d 65 6e 75 70 75 |+="|"...|..menupu|
|00001450| 74 73 28 a4 6d 67 65 74 | 28 41 24 2c 43 24 29 29 |ts(.mget|(A$,C$))|
|00001460| 0d 05 e6 15 f2 6d 65 6e | 75 70 75 74 77 28 26 37 |.....men|uputw(&7|
|00001470| 30 32 30 37 29 0d 05 f0 | 1b 70 32 3d 6d 65 6e 75 |0207)...|.p2=menu|
|00001480| 25 3a f2 6d 65 6e 75 70 | 75 74 77 28 26 38 30 29 |%:.menup|utw(&80)|
|00001490| 0d 05 fa 12 f2 6d 65 6e | 75 70 75 74 77 28 26 32 |.....men|uputw(&2|
|000014a0| 43 29 0d 06 04 26 f2 6d | 65 6e 75 70 75 74 77 28 |C)...&.m|enuputw(|
|000014b0| 30 29 3a 6f 70 74 69 6f | 6e 73 25 3d 30 3a 53 24 |0):optio|ns%=0:S$|
|000014c0| 3d 41 24 3a 6c 6b 3d 30 | 0d 06 0e 05 f5 0d 06 18 |=A$:lk=0|........|
|000014d0| 15 20 e7 20 6b 73 25 3d | b9 20 8c 6b 73 25 3d b9 |. . ks%=|. .ks%=.|
|000014e0| 2a 32 0d 06 22 06 20 f5 | 0d 06 2c 29 20 20 4f 24 |*2..". .|..,) O$|
|000014f0| 3d a4 6d 67 65 74 28 41 | 24 2c 43 24 29 3a 6f 70 |=.mget(A|$,C$):op|
|00001500| 74 69 6f 6e 73 25 3d 6f | 70 74 69 6f 6e 73 25 2b |tions%=o|ptions%+|
|00001510| 31 0d 06 36 31 20 20 66 | 6c 61 67 73 3d a4 6d 64 |1..61 f|lags=.md|
|00001520| 65 63 6f 64 65 28 43 24 | 2c 70 33 2c 73 24 2c 6b |ecode(C$|,p3,s$,k|
|00001530| 24 29 2b 28 28 2d 28 41 | 24 3d 22 22 29 29 3c 3c |$)+((-(A|$=""))<<|
|00001540| 37 29 0d 06 40 1a 20 20 | e7 20 6b 73 25 3d b9 2a |7)..@. |. ks%=.*|
|00001550| 32 20 80 20 6b 24 3c 3e | 22 22 20 8c 0d 06 4a 25 |2 . k$<>|"" ...J%|
|00001560| 20 20 20 4f 24 2b 3d c4 | 6c 2b 6c 6b 2d 28 a9 28 | O$+=.|l+lk-(.(|
|00001570| 4f 24 29 2b a9 28 6b 24 | 29 29 2b 31 2c 22 20 22 |O$)+.(k$|))+1," "|
|00001580| 29 0d 06 54 24 20 20 20 | e7 20 c0 6b 24 2c 31 29 |)..T$ |. .k$,1)|
|00001590| 3d 22 a4 22 20 8c c1 6b | 24 2c 31 2c 31 29 3d bd |="." ..k|$,1,1)=.|
|000015a0| 28 31 33 39 29 0d 06 5e | 0d 20 20 20 4f 24 2b 3d |(139)..^|. O$+=|
|000015b0| 6b 24 0d 06 68 07 20 20 | cc 0d 06 72 2b 20 20 20 |k$..h. |...r+ |
|000015c0| e7 20 6b 24 3c 3e 22 22 | 20 8c 6b 73 25 3d b9 3a |. k$<>""| .ks%=.:|
|000015d0| e7 20 6c 6b 3c a9 28 6b | 24 29 20 8c 6c 6b 3d a9 |. lk<.(k|$) .lk=.|
|000015e0| 28 6b 24 29 0d 06 7c 07 | 20 20 cd 0d 06 86 3d 20 |(k$)..|.| ....= |
|000015f0| 20 66 6c 61 67 73 32 3d | 26 37 30 30 30 30 32 31 | flags2=|&7000021|
|00001600| 2b 28 28 2d 28 a9 28 4f | 24 29 3e 31 31 29 29 3c |+((-(.(O|$)>11))<|
|00001610| 3c 38 29 2b 28 31 3c 3c | 31 34 29 2a 28 66 6c 61 |<8)+(1<<|14)*(fla|
|00001620| 67 73 20 80 32 35 36 29 | 0d 06 90 2b 20 20 e7 20 |gs .256)|...+ . |
|00001630| 28 66 6c 61 67 73 20 80 | 20 34 29 3c 3e 30 20 8c |(flags .| 4)<>0 .|
|00001640| 66 6c 61 67 73 32 3d 66 | 6c 61 67 73 32 20 84 20 |flags2=f|lags2 . |
|00001650| 32 35 36 0d 06 9a 1c 20 | 20 f2 6d 65 6e 75 70 75 |256.... | .menupu|
|00001660| 74 77 28 66 6c 61 67 73 | 20 80 20 32 35 35 29 0d |tw(flags| . 255).|
|00001670| 06 a4 13 20 20 f2 6d 65 | 6e 75 70 75 74 77 28 70 |... .me|nuputw(p|
|00001680| 33 29 0d 06 ae 22 20 20 | e7 a9 28 4f 24 29 3e 6c |3)..." |..(O$)>l|
|00001690| 20 80 20 6b 73 25 3c 3e | b9 2a 32 20 8c 6c 3d a9 | . ks%<>|.*2 .l=.|
|000016a0| 28 4f 24 29 0d 06 b8 17 | 20 20 f2 6d 65 6e 75 70 |(O$)....| .menup|
|000016b0| 75 74 77 28 66 6c 61 67 | 73 32 29 0d 06 c2 24 20 |utw(flag|s2)...$ |
|000016c0| 20 f2 6d 65 6e 75 73 74 | 72 69 6e 67 28 4f 24 2c | .menust|ring(O$,|
|000016d0| 73 24 2c 28 66 6c 61 67 | 73 20 80 20 34 29 29 0d |s$,(flag|s . 4)).|
|000016e0| 06 cc 0b 20 fd 41 24 3d | 22 22 0d 06 d6 69 20 e7 |... .A$=|""...i .|
|000016f0| 20 6b 73 25 3d b9 2a 32 | 20 8c 6c 2b 3d 6c 6b 2b | ks%=.*2| .l+=lk+|
|00001700| 31 20 8b e7 6b 73 25 3d | b9 20 8c 69 6e 64 25 3d |1 ..ks%=|. .ind%=|
|00001710| 6f 69 6e 64 25 3a 69 6e | 64 6c 25 3d 6f 69 6e 64 |oind%:in|dl%=oind|
|00001720| 6c 25 3a 6d 65 6e 75 6c | 25 2b 3d 6d 65 6e 75 25 |l%:menul|%+=menu%|
|00001730| 2d 70 32 2d 31 32 3a 6d | 65 6e 75 25 3d 70 32 2b |-p2-12:m|enu%=p2+|
|00001740| 31 32 3a 6f 70 74 69 6f | 6e 73 25 3d 30 3a 41 24 |12:optio|ns%=0:A$|
|00001750| 3d 53 24 0d 06 e0 0c fd | 20 6b 73 25 3c 3e b9 0d |=S$.....| ks%<>..|
|00001760| 06 ea 0f 21 70 32 3d 6c | 2a 31 36 2b 31 36 0d 06 |...!p2=l|*16+16..|
|00001770| f4 0c 3d 70 6f 69 6e 74 | 65 72 0d 06 fe 37 dd f2 |..=point|er...7..|
|00001780| 6d 65 6e 75 73 74 72 69 | 6e 67 28 54 24 2c 73 24 |menustri|ng(T$,s$|
|00001790| 2c 66 6c 61 67 29 3a e7 | 20 c0 54 24 2c 31 29 3d |,flag):.| .T$,1)=|
|000017a0| 22 a4 22 20 8c 54 24 3d | a0 28 c1 54 24 2c 32 29 |"." .T$=|.(.T$,2)|
|000017b0| 29 0d 07 08 1f e7 a9 28 | 54 24 29 3c 31 32 20 80 |)......(|T$)<12 .|
|000017c0| 20 73 24 3d 22 22 20 80 | 20 66 6c 61 67 3d 30 8c | s$="" .| flag=0.|
|000017d0| 0d 07 12 12 20 f2 6d 65 | 6e 75 70 75 74 73 28 54 |.... .me|nuputs(T|
|000017e0| 24 29 0d 07 1c 05 cc 0d | 07 26 1d 20 f2 6d 65 6e |$)......|.&. .men|
|000017f0| 75 70 75 74 77 28 a4 69 | 6e 64 69 72 65 63 74 28 |uputw(.i|ndirect(|
|00001800| 54 24 29 29 0d 07 30 0f | 20 e7 20 73 24 3c 3e 22 |T$))..0.| . s$<>"|
|00001810| 22 20 8c 0d 07 3a 1e 20 | 20 6d 65 6e 75 25 21 2d |" ...:. | menu%!-|
|00001820| 38 3d 6d 65 6e 75 25 21 | 2d 38 20 84 20 26 38 30 |8=menu%!|-8 . &80|
|00001830| 33 0d 07 44 34 20 20 e7 | c0 a4 6c 6f 77 65 72 28 |3..D4 .|..lower(|
|00001840| 73 24 29 2c 32 29 3d 22 | 73 6d 22 20 8c 6d 65 6e |s$),2)="|sm" .men|
|00001850| 75 25 21 2d 38 3d 6d 65 | 6e 75 25 21 2d 38 20 82 |u%!-8=me|nu%!-8 .|
|00001860| 20 26 38 30 30 0d 07 4e | 22 20 20 f2 6d 65 6e 75 | &800..N|" .menu|
|00001870| 70 75 74 77 28 a4 69 6e | 64 69 72 65 63 74 28 22 |putw(.in|direct("|
|00001880| 53 22 2b 73 24 29 29 0d | 07 58 06 20 cc 0d 07 62 |S"+s$)).|.X. ...b|
|00001890| 13 20 20 f2 6d 65 6e 75 | 70 75 74 77 28 2d 31 29 |. .menu|putw(-1)|
|000018a0| 0d 07 6c 06 20 cd 0d 07 | 76 17 20 f2 6d 65 6e 75 |..l. ...|v. .menu|
|000018b0| 70 75 74 77 28 a9 28 54 | 24 29 2b 31 29 0d 07 80 |putw(.(T|$)+1)...|
|000018c0| 05 cd 0d 07 8a 05 e1 0d | 07 94 15 dd a4 6d 67 65 |........|.....mge|
|000018d0| 74 28 f8 20 41 24 2c f8 | 20 43 24 29 0d 07 9e 1b |t(. A$,.| C$)....|
|000018e0| ea 20 42 24 3a 42 24 3d | c0 41 24 2c a7 41 24 2c |. B$:B$=|.A$,.A$,|
|000018f0| 22 7c 22 29 2d 31 29 0d | 07 a8 27 41 24 3d c1 41 |"|")-1).|..'A$=.A|
|00001900| 24 2c a9 28 42 24 29 2b | 32 29 3a e7 a7 42 24 2c |$,.(B$)+|2):..B$,|
|00001910| 22 5d 22 29 3c 31 8c 42 | 24 2b 3d 22 5d 22 0d 07 |"]")<1.B|$+="]"..|
|00001920| b2 29 43 24 3d c1 42 24 | 2c a7 42 24 2c 22 5d 22 |.)C$=.B$|,.B$,"]"|
|00001930| 29 2b 31 29 3a 42 24 3d | c0 42 24 2c a7 42 24 2c |)+1):B$=|.B$,.B$,|
|00001940| 22 5d 22 29 2d 31 29 0d | 07 bc 11 3d a4 6d 73 67 |"]")-1).|...=.msg|
|00001950| 74 65 78 74 28 42 24 29 | 0d 07 c6 3a dd f2 6d 65 |text(B$)|...:..me|
|00001960| 6e 75 70 75 74 73 28 54 | 24 29 3a e7 a9 28 54 24 |nuputs(T|$):..(T$|
|00001970| 29 3e 31 31 20 8c 85 20 | 26 38 30 33 2c 22 4d 65 |)>11 .. |&803,"Me|
|00001980| 6e 75 20 65 6e 74 72 79 | 20 74 6f 6f 20 6c 6f 6e |nu entry| too lon|
|00001990| 67 22 0d 07 d0 22 24 6d | 65 6e 75 25 3d 54 24 3a |g"..."$m|enu%=T$:|
|000019a0| 6d 65 6e 75 25 2b 3d 31 | 32 3a 6d 65 6e 75 6c 25 |menu%+=1|2:menul%|
|000019b0| 2d 3d 31 32 0d 07 da 34 | e7 6d 65 6e 75 6c 25 3c |-=12...4|.menul%<|
|000019c0| 3d 34 20 8c 85 20 26 38 | 30 33 2c 22 4e 6f 74 20 |=4 .. &8|03,"Not |
|000019d0| 65 6e 6f 75 67 68 20 6d | 65 6d 6f 72 79 20 66 6f |enough m|emory fo|
|000019e0| 72 20 6d 65 6e 75 73 22 | 0d 07 e4 05 e1 0d 07 ee |r menus"|........|
|000019f0| 12 dd f2 6d 65 6e 75 70 | 75 74 77 28 57 25 29 0d |...menup|utw(W%).|
|00001a00| 07 f8 20 21 6d 65 6e 75 | 25 3d 57 25 3a 6d 65 6e |.. !menu|%=W%:men|
|00001a10| 75 25 2b 3d 34 3a 6d 65 | 6e 75 6c 25 2d 3d 34 0d |u%+=4:me|nul%-=4.|
|00001a20| 08 02 34 e7 6d 65 6e 75 | 6c 25 3c 3d 34 20 8c 85 |..4.menu|l%<=4 ..|
|00001a30| 20 26 38 30 33 2c 22 4e | 6f 74 20 65 6e 6f 75 67 | &803,"N|ot enoug|
|00001a40| 68 20 6d 65 6d 6f 72 79 | 20 66 6f 72 20 6d 65 6e |h memory| for men|
|00001a50| 75 73 22 0d 08 0c 05 e1 | 0d 08 16 1f dd a4 6d 64 |us".....|......md|
|00001a60| 65 63 6f 64 65 28 41 24 | 2c f8 20 70 2c f8 20 73 |ecode(A$|,. p,. s|
|00001a70| 24 2c f8 20 6b 24 29 0d | 08 20 28 ea 20 42 24 2c |$,. k$).|. (. B$,|
|00001a80| 43 24 2c 56 3a 70 3d 2d | 31 3a 73 24 3d 22 22 3a |C$,V:p=-|1:s$="":|
|00001a90| 6b 24 3d 22 22 3a 41 24 | 3d 41 24 2b 22 2c 22 0d |k$="":A$|=A$+",".|
|00001aa0| 08 2a 0d c8 95 20 41 24 | 3c 3e 22 22 0d 08 34 18 |.*... A$|<>""..4.|
|00001ab0| 20 42 24 3d c0 41 24 2c | 31 29 3a 41 24 3d c1 41 | B$=.A$,|1):A$=.A|
|00001ac0| 24 2c 32 29 0d 08 3e 0c | 20 c8 8e 20 42 24 20 ca |$,2)..>.| .. B$ .|
|00001ad0| 0d 08 48 13 20 20 c9 20 | 22 54 22 3a 56 3d 56 20 |..H. . |"T":V=V |
|00001ae0| 84 20 31 0d 08 52 13 20 | 20 c9 20 22 44 22 3a 56 |. 1..R. | . "D":V|
|00001af0| 3d 56 20 84 20 32 0d 08 | 5c 13 20 20 c9 20 22 57 |=V . 2..|\. . "W|
|00001b00| 22 3a 56 3d 56 20 84 20 | 34 0d 08 66 13 20 20 c9 |":V=V . |4..f. .|
|00001b10| 20 22 4d 22 3a 56 3d 56 | 20 84 20 38 0d 08 70 15 | "M":V=V| . 8..p.|
|00001b20| 20 20 c9 20 22 53 22 3a | 56 3d 56 20 84 20 32 35 | . "S":|V=V . 25|
|00001b30| 36 0d 08 7a 31 20 20 c9 | 20 22 4b 22 3a 6b 24 3d |6..z1 .| "K":k$=|
|00001b40| c0 41 24 2c a7 41 24 2c | 22 2c 22 29 2d 31 29 3a |.A$,.A$,|",")-1):|
|00001b50| 41 24 3d c1 41 24 2c a7 | 41 24 2c 22 2c 22 29 2b |A$=.A$,.|A$,",")+|
|00001b60| 31 29 0d 08 84 33 20 20 | c9 20 22 3e 22 3a 70 3d |1)...3 |. ">":p=|
|00001b70| a0 28 c0 41 24 2c a7 41 | 24 2c 22 2c 22 29 2d 31 |.(.A$,.A|$,",")-1|
|00001b80| 29 29 3a 41 24 3d c1 41 | 24 2c a7 41 24 2c 22 2c |)):A$=.A|$,.A$,",|
|00001b90| 22 29 2b 31 29 0d 08 8e | 35 20 20 c9 20 22 7d 22 |")+1)...|5 . "}"|
|00001ba0| 3a 73 24 3d c0 41 24 2c | a7 41 24 2c 22 2c 22 29 |:s$=.A$,|.A$,",")|
|00001bb0| 2d 31 29 2b 22 20 22 3a | 41 24 3d c1 41 24 2c a7 |-1)+" ":|A$=.A$,.|
|00001bc0| 41 24 2c 22 2c 22 29 2b | 31 29 0d 08 98 06 20 cb |A$,",")+|1).... .|
|00001bd0| 0d 08 a2 05 ce 0d 08 ac | 06 3d 56 0d 08 b6 05 3a |........|.=V....:|
|00001be0| 0d 08 c0 42 f4 20 46 4e | 69 6e 64 69 72 65 63 74 |...B. FN|indirect|
|00001bf0| 20 3a 20 50 6c 61 63 65 | 20 61 20 73 74 72 69 6e | : Place| a strin|
|00001c00| 67 20 69 6e 20 69 6e 64 | 69 72 65 63 74 69 6f 6e |g in ind|irection|
|00001c10| 20 62 75 66 66 65 72 20 | 28 72 65 74 2e 20 6c 6f | buffer |(ret. lo|
|00001c20| 63 29 0d 08 ca 1d dd a4 | 69 6e 64 69 72 65 63 74 |c)......|indirect|
|00001c30| 28 61 24 29 3a ea 20 69 | 3a 69 3d 69 6e 64 25 0d |(a$):. i|:i=ind%.|
|00001c40| 08 d4 3c e7 a9 28 61 24 | 29 3e 69 6e 64 6c 25 2d |..<..(a$|)>indl%-|
|00001c50| 31 20 8c 85 20 26 38 30 | 33 2c 22 4e 6f 74 20 65 |1 .. &80|3,"Not e|
|00001c60| 6e 6f 75 67 68 20 72 6f | 6f 6d 20 66 6f 72 20 69 |nough ro|om for i|
|00001c70| 6e 64 69 72 65 63 74 69 | 6f 6e 22 0d 08 de 29 24 |ndirecti|on"...)$|
|00001c80| 69 6e 64 25 3d 61 24 3a | 69 6e 64 25 2b 3d a9 28 |ind%=a$:|ind%+=.(|
|00001c90| 61 24 29 2b 31 3a 69 6e | 64 6c 25 2d 3d a9 28 61 |a$)+1:in|dl%-=.(a|
|00001ca0| 24 29 2b 31 0d 08 e8 06 | 3d 69 0d 08 f2 05 3a 0d |$)+1....|=i....:.|
|00001cb0| 08 fc 3c f4 20 50 52 4f | 43 69 62 6d 65 6e 75 20 |..<. PRO|Cibmenu |
|00001cc0| 20 20 20 20 20 20 3a 20 | 43 72 65 61 74 65 20 61 | : |Create a|
|00001cd0| 6e 20 69 63 6f 6e 62 61 | 72 20 6d 65 6e 75 20 66 |n iconba|r menu f|
|00001ce0| 72 6f 6d 20 69 62 6d 65 | 6e 75 25 0d 09 06 44 f4 |rom ibme|nu%...D.|
|00001cf0| 20 50 52 4f 43 6d 65 6e | 75 20 20 20 20 20 20 20 | PROCmen|u |
|00001d00| 20 20 3a 20 43 72 65 61 | 74 65 20 74 68 65 20 6d | : Crea|te the m|
|00001d10| 65 6e 75 20 61 74 20 63 | 6f 2d 6f 72 64 73 20 6f |enu at c|o-ords o|
|00001d20| 72 20 6d 6f 75 73 65 20 | 69 66 20 78 3d 2d 31 0d |r mouse |if x=-1.|
|00001d30| 09 10 34 f4 20 50 52 4f | 43 72 65 63 72 65 61 74 |..4. PRO|Crecreat|
|00001d40| 65 6d 65 6e 75 20 3a 20 | 52 65 63 72 65 61 74 65 |emenu : |Recreate|
|00001d50| 20 74 68 65 20 6d 65 6e | 75 20 6a 75 73 74 20 75 | the men|u just u|
|00001d60| 73 65 64 0d 09 1a 0c dd | f2 69 62 6d 65 6e 75 0d |sed.....|.ibmenu.|
|00001d70| 09 24 5b c8 99 20 22 57 | 69 6d 70 5f 47 65 74 50 |.$[.. "W|imp_GetP|
|00001d80| 6f 69 6e 74 65 72 49 6e | 66 6f 22 2c 2c 62 25 3a |ointerIn|fo",,b%:|
|00001d90| 63 75 72 6d 65 6e 75 25 | 3d 69 62 6d 65 6e 75 25 |curmenu%|=ibmenu%|
|00001da0| 3a 63 6d 65 6e 75 78 25 | 3d 62 25 21 30 2d 36 34 |:cmenux%|=b%!0-64|
|00001db0| 3a 63 6d 65 6e 75 79 25 | 3d 39 36 2b 26 32 43 2a |:cmenuy%|=96+&2C*|
|00001dc0| 69 62 6f 70 74 69 6f 6e | 73 25 0d 09 2e 3b c8 99 |iboption|s%...;..|
|00001dd0| 20 22 57 69 6d 70 5f 43 | 72 65 61 74 65 4d 65 6e | "Wimp_C|reateMen|
|00001de0| 75 22 2c 2c 69 62 6d 65 | 6e 75 25 2c 62 25 21 30 |u",,ibme|nu%,b%!0|
|00001df0| 2d 36 34 2c 39 36 2b 26 | 32 43 2a 69 62 6f 70 74 |-64,96+&|2C*ibopt|
|00001e00| 69 6f 6e 73 25 0d 09 38 | 05 e1 0d 09 42 15 dd f2 |ions%..8|....B...|
|00001e10| 6d 65 6e 75 28 6d 65 6e | 75 25 2c 78 2c 79 29 0d |menu(men|u%,x,y).|
|00001e20| 09 4c 36 e7 20 78 3d 2d | 31 20 8c c8 99 20 22 57 |.L6. x=-|1 ... "W|
|00001e30| 69 6d 70 5f 47 65 74 50 | 6f 69 6e 74 65 72 49 6e |imp_GetP|ointerIn|
|00001e40| 66 6f 22 2c 2c 62 25 3a | 78 3d 62 25 21 30 3a 79 |fo",,b%:|x=b%!0:y|
|00001e50| 3d 62 25 21 34 0d 09 56 | 2c 63 75 72 6d 65 6e 75 |=b%!4..V|,curmenu|
|00001e60| 25 3d 6d 65 6e 75 25 3a | 63 6d 65 6e 75 78 25 3d |%=menu%:|cmenux%=|
|00001e70| 78 2d 36 34 3a 63 6d 65 | 6e 75 79 25 3d 79 2b 32 |x-64:cme|nuy%=y+2|
|00001e80| 30 0d 09 60 29 c8 99 20 | 22 57 69 6d 70 5f 43 72 |0..`).. |"Wimp_Cr|
|00001e90| 65 61 74 65 4d 65 6e 75 | 22 2c 2c 6d 65 6e 75 25 |eateMenu|",,menu%|
|00001ea0| 2c 78 2d 36 34 2c 79 2b | 32 30 0d 09 6a 05 e1 0d |,x-64,y+|20..j...|
|00001eb0| 09 74 12 dd f2 72 65 63 | 72 65 61 74 65 6d 65 6e |.t...rec|reatemen|
|00001ec0| 75 0d 09 7e 32 c8 99 20 | 22 57 69 6d 70 5f 43 72 |u..~2.. |"Wimp_Cr|
|00001ed0| 65 61 74 65 4d 65 6e 75 | 22 2c 2c 63 75 72 6d 65 |eateMenu|",,curme|
|00001ee0| 6e 75 25 2c 63 6d 65 6e | 75 78 25 2c 63 6d 65 6e |nu%,cmen|ux%,cmen|
|00001ef0| 75 79 25 0d 09 88 05 e1 | 0d 09 92 05 3a 0d 09 9c |uy%.....|....:...|
|00001f00| 2f f4 20 50 52 4f 43 6d | 65 6e 75 75 6e 74 69 63 |/. PROCm|enuuntic|
|00001f10| 6b 3a 20 55 6e 74 69 63 | 6b 20 61 20 67 72 6f 75 |k: Untic|k a grou|
|00001f20| 70 20 6f 66 20 6f 70 74 | 69 6f 6e 73 0d 09 a6 30 |p of opt|ions...0|
|00001f30| f4 20 50 52 4f 43 6d 65 | 6e 75 74 69 63 6b 20 20 |. PROCme|nutick |
|00001f40| 3a 20 54 69 63 6b 2f 75 | 6e 74 69 63 6b 20 6f 70 |: Tick/u|ntick op|
|00001f50| 74 69 6f 6e 20 6f 6e 20 | 6d 65 6e 75 0d 09 b0 32 |tion on |menu...2|
|00001f60| f4 20 50 52 4f 43 6d 65 | 6e 75 73 68 61 64 65 20 |. PROCme|nushade |
|00001f70| 3a 20 53 68 61 64 65 2f | 75 6e 73 68 61 64 65 20 |: Shade/|unshade |
|00001f80| 6f 70 74 69 6f 6e 20 6f | 6e 20 6d 65 6e 75 0d 09 |option o|n menu..|
|00001f90| ba 38 f4 20 46 4e 6d 65 | 6e 75 74 69 63 6b 65 64 |.8. FNme|nuticked|
|00001fa0| 20 20 3a 20 52 65 74 75 | 72 6e 20 54 52 55 45 20 | : Retu|rn TRUE |
|00001fb0| 69 66 20 6d 65 6e 75 20 | 69 74 65 6d 20 69 73 20 |if menu |item is |
|00001fc0| 74 69 63 6b 65 64 0d 09 | c4 38 f4 20 46 4e 6d 65 |ticked..|.8. FNme|
|00001fd0| 6e 75 73 68 61 64 65 64 | 20 20 3a 20 52 65 74 75 |nushaded| : Retu|
|00001fe0| 72 6e 20 54 52 55 45 20 | 69 66 20 6d 65 6e 75 20 |rn TRUE |if menu |
|00001ff0| 69 74 65 6d 20 69 73 20 | 73 68 61 64 65 64 0d 09 |item is |shaded..|
|00002000| ce 19 f4 20 74 79 70 65 | 20 3d 20 30 20 66 6f 72 |... type| = 0 for|
|00002010| 20 75 6e 74 69 63 6b 0d | 09 d8 21 f4 20 74 79 70 | untick.|..!. typ|
|00002020| 65 20 3d 20 31 20 66 6f | 72 20 74 69 63 6b 20 28 |e = 1 fo|r tick (|
|00002030| 61 6c 73 6f 20 2d 31 29 | 0d 09 e2 19 f4 20 74 79 |also -1)|..... ty|
|00002040| 70 65 20 3d 20 32 20 66 | 6f 72 20 74 6f 67 67 6c |pe = 2 f|or toggl|
|00002050| 65 0d 09 ec 20 dd f2 6d | 65 6e 75 75 6e 74 69 63 |e... ..m|enuuntic|
|00002060| 6b 28 6d 65 6e 75 2c 73 | 74 61 72 74 2c 65 6e 64 |k(menu,s|tart,end|
|00002070| 29 0d 09 f6 15 6d 65 6e | 75 2b 3d 73 74 61 72 74 |)....men|u+=start|
|00002080| 2a 32 34 2b 32 38 0d 0a | 00 05 f5 0d 0a 0a 27 20 |*24+28..|......' |
|00002090| 21 6d 65 6e 75 3d 21 6d | 65 6e 75 20 80 20 2d 32 |!menu=!m|enu . -2|
|000020a0| 3a 73 74 61 72 74 2b 3d | 31 3a 6d 65 6e 75 2b 3d |:start+=|1:menu+=|
|000020b0| 32 34 0d 0a 14 34 fd 20 | 28 65 6e 64 3c 3e 2d 31 |24...4. |(end<>-1|
|000020c0| 20 80 20 73 74 61 72 74 | 3e 65 6e 64 29 20 84 20 | . start|>end) . |
|000020d0| 28 28 6d 65 6e 75 21 2d | 32 34 29 20 80 20 26 38 |((menu!-|24) . &8|
|000020e0| 30 29 3d 26 38 30 0d 0a | 1e 05 e1 0d 0a 28 35 dd |0)=&80..|.....(5.|
|000020f0| f2 6d 65 6e 75 74 69 63 | 6b 28 6d 65 6e 75 2c 6f |.menutic|k(menu,o|
|00002100| 70 74 69 6f 6e 2c 74 6f | 67 67 6c 65 29 3a 6d 65 |ption,to|ggle):me|
|00002110| 6e 75 2b 3d 6f 70 74 69 | 6f 6e 2a 32 34 2b 32 38 |nu+=opti|on*24+28|
|00002120| 0d 0a 32 0f c8 8e 20 74 | 6f 67 67 6c 65 20 ca 0d |..2... t|oggle ..|
|00002130| 0a 3c 19 20 c9 20 30 3a | 21 6d 65 6e 75 3d 21 6d |.<. . 0:|!menu=!m|
|00002140| 65 6e 75 20 80 20 2d 32 | 0d 0a 46 1b 20 c9 20 2d |enu . -2|..F. . -|
|00002150| 31 2c 31 3a 21 6d 65 6e | 75 3d 21 6d 65 6e 75 20 |1,1:!men|u=!menu |
|00002160| 84 20 31 0d 0a 50 18 20 | c9 20 32 3a 21 6d 65 6e |. 1..P. |. 2:!men|
|00002170| 75 3d 21 6d 65 6e 75 20 | 82 20 31 0d 0a 5a 05 cb |u=!menu |. 1..Z..|
|00002180| 0d 0a 64 05 e1 0d 0a 6e | 36 dd f2 6d 65 6e 75 73 |..d....n|6..menus|
|00002190| 68 61 64 65 28 6d 65 6e | 75 2c 6f 70 74 69 6f 6e |hade(men|u,option|
|000021a0| 2c 74 6f 67 67 6c 65 29 | 3a 6d 65 6e 75 2b 3d 6f |,toggle)|:menu+=o|
|000021b0| 70 74 69 6f 6e 2a 32 34 | 2b 33 36 0d 0a 78 0f c8 |ption*24|+36..x..|
|000021c0| 8e 20 74 6f 67 67 6c 65 | 20 ca 0d 0a 82 1f 20 c9 |. toggle| ..... .|
|000021d0| 20 30 3a 21 6d 65 6e 75 | 3d 21 6d 65 6e 75 20 80 | 0:!menu|=!menu .|
|000021e0| 20 ac 28 31 3c 3c 32 32 | 29 0d 0a 8c 21 20 c9 20 | .(1<<22|)...! . |
|000021f0| 2d 31 2c 31 3a 21 6d 65 | 6e 75 3d 21 6d 65 6e 75 |-1,1:!me|nu=!menu|
|00002200| 20 84 20 28 31 3c 3c 32 | 32 29 0d 0a 96 1e 20 c9 | . (1<<2|2).... .|
|00002210| 20 32 3a 21 6d 65 6e 75 | 3d 21 6d 65 6e 75 20 82 | 2:!menu|=!menu .|
|00002220| 20 28 31 3c 3c 32 32 29 | 0d 0a a0 05 cb 0d 0a aa | (1<<22)|........|
|00002230| 05 e1 0d 0a b4 1d dd a4 | 6d 65 6e 75 74 69 63 6b |........|menutick|
|00002240| 65 64 28 6d 65 6e 75 25 | 2c 69 74 65 6d 25 29 0d |ed(menu%|,item%).|
|00002250| 0a be 22 3d 28 28 6d 65 | 6e 75 25 21 28 32 38 2b |.."=((me|nu%!(28+|
|00002260| 32 34 2a 69 74 65 6d 25 | 29 29 20 80 20 31 29 3d |24*item%|)) . 1)=|
|00002270| 31 0d 0a c8 1d dd a4 6d | 65 6e 75 73 68 61 64 65 |1......m|enushade|
|00002280| 64 28 6d 65 6e 75 25 2c | 69 74 65 6d 25 29 0d 0a |d(menu%,|item%)..|
|00002290| d2 22 3d 28 28 6d 65 6e | 75 25 21 28 32 38 2b 32 |."=((men|u%!(28+2|
|000022a0| 34 2a 69 74 65 6d 25 29 | 29 20 80 20 34 29 3d 34 |4*item%)|) . 4)=4|
|000022b0| 0d 0a dc 05 3a 0d 0a e6 | 34 f4 20 50 52 4f 43 73 |....:...|4. PROCs|
|000022c0| 65 74 6d 65 6e 75 74 65 | 78 74 20 3a 20 53 65 74 |etmenute|xt : Set|
|000022d0| 20 74 68 65 20 74 65 78 | 74 20 66 6f 72 20 6d 65 | the tex|t for me|
|000022e0| 6e 75 20 6f 70 74 69 6f | 6e 0d 0a f0 35 f4 20 46 |nu optio|n...5. F|
|000022f0| 4e 67 65 74 6d 65 6e 75 | 74 65 78 74 20 20 20 3a |Ngetmenu|text :|
|00002300| 20 52 65 61 64 20 74 68 | 65 20 74 65 78 74 20 66 | Read th|e text f|
|00002310| 6f 72 20 6d 65 6e 75 20 | 6f 70 74 69 6f 6e 0d 0a |or menu |option..|
|00002320| fa 37 dd f2 73 65 74 6d | 65 6e 75 74 65 78 74 28 |.7..setm|enutext(|
|00002330| 6d 65 6e 75 2c 6f 70 74 | 69 6f 6e 2c 74 65 78 74 |menu,opt|ion,text|
|00002340| 24 29 3a 6d 65 6e 75 2b | 3d 6f 70 74 69 6f 6e 2a |$):menu+|=option*|
|00002350| 32 34 2b 33 36 0d 0b 04 | 37 e7 20 28 21 6d 65 6e |24+36...|7. (!men|
|00002360| 75 20 80 26 31 30 30 29 | 3e 30 20 8c 24 28 6d 65 |u .&100)|>0 .$(me|
|00002370| 6e 75 21 34 29 3d 74 65 | 78 74 24 20 8b 24 28 6d |nu!4)=te|xt$ .$(m|
|00002380| 65 6e 75 2b 34 29 3d 74 | 65 78 74 24 0d 0b 0e 05 |enu+4)=t|ext$....|
|00002390| e1 0d 0b 18 39 dd a4 67 | 65 74 6d 65 6e 75 74 65 |....9..g|etmenute|
|000023a0| 78 74 28 6d 65 6e 75 2c | 6f 70 74 69 6f 6e 29 3a |xt(menu,|option):|
|000023b0| 6d 65 6e 75 2b 3d 6f 70 | 74 69 6f 6e 2a 32 34 2b |menu+=op|tion*24+|
|000023c0| 33 36 3a ea 20 74 65 78 | 74 24 0d 0b 22 37 e7 20 |36:. tex|t$.."7. |
|000023d0| 28 21 6d 65 6e 75 20 80 | 26 31 30 30 29 3e 30 20 |(!menu .|&100)>0 |
|000023e0| 8c 74 65 78 74 24 3d 24 | 28 6d 65 6e 75 21 34 29 |.text$=$|(menu!4)|
|000023f0| 20 8b 74 65 78 74 24 3d | 24 28 6d 65 6e 75 2b 34 | .text$=|$(menu+4|
|00002400| 29 0d 0b 2c 0a 3d 74 65 | 78 74 24 0d 0b 36 05 3a |)..,.=te|xt$..6.:|
|00002410| 0d 0b 40 34 f4 20 46 4e | 64 65 63 6f 64 65 6d 65 |..@4. FN|decodeme|
|00002420| 6e 75 20 3a 20 52 65 74 | 75 72 6e 20 6d 65 6e 75 |nu : Ret|urn menu|
|00002430| 20 73 65 6c 65 63 74 69 | 6f 6e 20 61 73 20 73 74 | selecti|on as st|
|00002440| 72 69 6e 67 0d 0b 4a 2f | f4 20 61 6c 73 6f 20 72 |ring..J/|. also r|
|00002450| 65 74 75 72 6e 73 20 66 | 6f 72 20 66 6f 6e 74 20 |eturns f|or font |
|00002460| 69 66 20 6d 65 6e 75 20 | 69 73 20 66 6f 6e 74 6d |if menu |is fontm|
|00002470| 65 6e 75 0d 0b 54 37 dd | a4 64 65 63 6f 64 65 6d |enu..T7.|.decodem|
|00002480| 65 6e 75 28 6d 65 6e 75 | 25 29 3a ea 20 63 70 25 |enu(menu|%):. cp%|
|00002490| 2c 70 74 72 2c 62 24 2c | 63 24 3a 63 70 25 3d 6d |,ptr,b$,|c$:cp%=m|
|000024a0| 65 6e 75 25 3a 70 74 72 | 3d 30 0d 0b 5e 25 c8 95 |enu%:ptr|=0..^%..|
|000024b0| 20 28 62 25 21 70 74 72 | 3e 2d 31 20 80 20 63 70 | (b%!ptr|>-1 . cp|
|000024c0| 25 3c 3e 72 6d 61 66 6f | 6e 74 61 72 65 61 29 0d |%<>rmafo|ntarea).|
|000024d0| 0b 68 24 20 63 70 25 3d | 63 70 25 21 28 33 32 2b |.h$ cp%=|cp%!(32+|
|000024e0| 28 62 25 21 70 74 72 29 | 2a 32 34 29 3a 70 74 72 |(b%!ptr)|*24):ptr|
|000024f0| 2b 3d 34 0d 0b 72 05 ce | 0d 0b 7c 23 e7 20 63 70 |+=4..r..|..|#. cp|
|00002500| 25 3d 72 6d 61 66 6f 6e | 74 61 72 65 61 20 80 20 |%=rmafon|tarea . |
|00002510| 62 25 21 70 74 72 3c 3e | 30 20 8c 0d 0b 86 41 20 |b%!ptr<>|0 ....A |
|00002520| c8 99 20 22 46 6f 6e 74 | 5f 44 65 63 6f 64 65 4d |.. "Font|_DecodeM|
|00002530| 65 6e 75 22 2c 2c 72 6d | 61 66 6f 6e 74 61 72 65 |enu",,rm|afontare|
|00002540| 61 2c 62 25 2b 70 74 72 | 2c c4 32 35 35 2c bd 30 |a,b%+ptr|,.255,.0|
|00002550| 29 2c 32 35 35 20 b8 2c | 2c 2c 6d 24 0d 0b 90 05 |),255 .,|,,m$....|
|00002560| cc 0d 0b 9a 37 20 c8 99 | 20 22 57 69 6d 70 5f 44 |....7 ..| "Wimp_D|
|00002570| 65 63 6f 64 65 4d 65 6e | 75 22 2c 2c 6d 65 6e 75 |ecodeMen|u",,menu|
|00002580| 25 2c 62 25 2c c4 32 35 | 35 2c bd 30 29 2c 32 35 |%,b%,.25|5,.0),25|
|00002590| 35 20 b8 2c 2c 2c 6d 24 | 0d 0b a4 0a 20 62 24 3d |5 .,,,m$|.... b$=|
|000025a0| 22 22 0d 0b ae 06 20 f5 | 0d 0b b8 2c 20 20 63 24 |"".... .|..., c$|
|000025b0| 3d c0 6d 24 2c a7 6d 24 | 2b 22 2e 22 2c 22 2e 22 |=.m$,.m$|+".","."|
|000025c0| 29 2d 31 29 3a 6d 24 3d | c1 6d 24 2c a9 28 63 24 |)-1):m$=|.m$,.(c$|
|000025d0| 29 2b 32 29 0d 0b c2 1e | 20 20 63 24 3d c0 63 24 |)+2)....| c$=.c$|
|000025e0| 2c a7 63 24 2b 22 20 5e | 22 2c 22 20 5e 22 29 2d |,.c$+" ^|"," ^")-|
|000025f0| 31 29 0d 0b cc 26 20 20 | 63 24 3d c0 63 24 2c a7 |1)...& |c$=.c$,.|
|00002600| 63 24 2b 22 20 22 2b bd | 31 33 39 2c 22 20 22 2b |c$+" "+.|139," "+|
|00002610| bd 31 33 39 29 2d 31 29 | 0d 0b d6 11 20 20 c8 8e |.139)-1)|.... ..|
|00002620| 20 c2 63 24 2c 33 29 20 | ca 0d 0b e0 66 20 20 20 | .c$,3) |....f |
|00002630| c9 20 22 45 73 63 22 2c | 22 44 65 6c 22 2c 22 49 |. "Esc",|"Del","I|
|00002640| 6e 73 22 2c 22 45 6e 64 | 22 2c 22 48 6f 6d 22 2c |ns","End|","Hom",|
|00002650| 22 43 70 79 22 2c 22 46 | 31 30 22 2c 22 46 31 31 |"Cpy","F|10","F11|
|00002660| 22 2c 22 46 31 32 22 2c | 22 46 31 33 22 2c 22 50 |","F12",|"F13","P|
|00002670| 72 74 22 2c 22 54 61 62 | 22 2c 22 52 65 74 22 3a |rt","Tab|","Ret":|
|00002680| 63 24 3d c0 63 24 2c a9 | 28 63 24 29 2d 34 29 0d |c$=.c$,.|(c$)-4).|
|00002690| 0b ea 07 20 20 cb 0d 0b | f4 44 20 20 e7 20 c1 63 |... ...|.D . .c|
|000026a0| 24 2c a9 28 63 24 29 2d | 32 2c 32 29 3d 22 20 46 |$,.(c$)-|2,2)=" F|
|000026b0| 22 20 8c e7 c2 63 24 29 | 3d 22 30 22 20 84 20 bb |" ...c$)|="0" . .|
|000026c0| 28 c2 63 24 29 29 3c 3e | 30 20 8c 63 24 3d c0 63 |(.c$))<>|0 .c$=.c|
|000026d0| 24 2c a9 28 63 24 29 2d | 33 29 0d 0b fe 1b 20 20 |$,.(c$)-|3).... |
|000026e0| c8 95 20 c2 63 24 29 3d | 22 20 22 3a 63 24 3d c0 |.. .c$)=|" ":c$=.|
|000026f0| 63 24 29 3a ce 0d 0c 08 | 10 20 20 62 24 2b 3d 63 |c$):....|. b$+=c|
|00002700| 24 2b 22 2e 22 0d 0c 12 | 14 20 fd 6d 24 3d 22 22 |$+"."...|. .m$=""|
|00002710| 20 84 20 6d 24 3d 22 2e | 22 0d 0c 1c 17 20 e7 20 | . m$=".|".... . |
|00002720| 6d 24 3d 22 2e 22 20 8c | 62 24 2b 3d 22 2e 2e 22 |m$="." .|b$+=".."|
|00002730| 0d 0c 26 0c 20 6d 24 3d | c0 62 24 29 0d 0c 30 05 |..&. m$=|.b$)..0.|
|00002740| cd 0d 0c 3a 07 3d 6d 24 | 0d 0c 44 05 3a 0d 0c 4e |...:.=m$|..D.:..N|
|00002750| 3f f4 20 46 4e 67 65 74 | 66 6f 6e 74 6d 65 6e 75 |?. FNget|fontmenu|
|00002760| 20 20 20 20 20 20 20 3a | 20 52 65 74 75 72 6e 20 | :| Return |
|00002770| 6d 65 6d 6f 72 79 20 6c | 6f 63 61 74 69 6f 6e 20 |memory l|ocation |
|00002780| 6f 66 20 66 6f 6e 74 20 | 6d 65 6e 75 0d 0c 58 3b |of font |menu..X;|
|00002790| f4 20 50 52 4f 43 72 65 | 6c 65 61 73 65 66 6f 6e |. PROCre|leasefon|
|000027a0| 74 6d 65 6e 75 20 3a 20 | 52 65 6c 65 61 73 65 20 |tmenu : |Release |
|000027b0| 6d 65 6d 6f 72 79 20 75 | 73 65 64 20 62 79 20 66 |memory u|sed by f|
|000027c0| 6f 6e 74 6d 65 6e 75 0d | 0c 62 24 dd a4 67 65 74 |ontmenu.|.b$..get|
|000027d0| 66 6f 6e 74 6d 65 6e 75 | 28 66 6f 6e 74 24 29 3a |fontmenu|(font$):|
|000027e0| ea 20 73 70 61 63 65 2c | 69 6e 64 0d 0c 6c 15 c8 |. space,|ind..l..|
|000027f0| 99 20 22 48 6f 75 72 67 | 6c 61 73 73 5f 4f 6e 22 |. "Hourg|lass_On"|
|00002800| 0d 0c 76 34 c8 99 20 22 | 46 6f 6e 74 5f 4c 69 73 |..v4.. "|Font_Lis|
|00002810| 74 46 6f 6e 74 73 22 2c | 2c 2c 37 3c 3c 31 39 2c |tFonts",|,,7<<19,|
|00002820| 2c 2c 2c 31 20 b8 20 2c | 2c 2c 73 70 61 63 65 2c |,,,1 . ,|,,space,|
|00002830| 2c 69 6e 64 0d 0c 80 37 | f2 72 65 6c 65 61 73 65 |,ind...7|.release|
|00002840| 28 72 6d 61 66 6f 6e 74 | 61 72 65 61 29 3a 72 6d |(rmafont|area):rm|
|00002850| 61 66 6f 6e 74 61 72 65 | 61 3d a4 63 6c 61 69 6d |afontare|a=.claim|
|00002860| 28 73 70 61 63 65 2b 69 | 6e 64 29 0d 0c 8a 2b e7 |(space+i|nd)...+.|
|00002870| 20 72 6d 61 66 6f 6e 74 | 61 72 65 61 3c 30 20 8c | rmafont|area<0 .|
|00002880| c8 99 20 22 48 6f 75 72 | 67 6c 61 73 73 5f 4f 66 |.. "Hour|glass_Of|
|00002890| 66 22 3a 3d 2d 31 0d 0c | 94 28 e7 20 66 6f 6e 74 |f":=-1..|.(. font|
|000028a0| 24 3c 3e 22 22 20 80 20 | 66 6f 6e 74 24 3c 3e 22 |$<>"" . |font$<>"|
|000028b0| 53 79 73 74 65 6d 20 66 | 6f 6e 74 22 20 8c 0d 0c |System f|ont" ...|
|000028c0| 9e 4d 20 c8 99 20 22 46 | 6f 6e 74 5f 4c 69 73 74 |.M .. "F|ont_List|
|000028d0| 46 6f 6e 74 73 22 2c 2c | 72 6d 61 66 6f 6e 74 61 |Fonts",,|rmafonta|
|000028e0| 72 65 61 2c 37 3c 3c 31 | 39 2c 73 70 61 63 65 2c |rea,7<<1|9,space,|
|000028f0| 72 6d 61 66 6f 6e 74 61 | 72 65 61 2b 73 70 61 63 |rmafonta|rea+spac|
|00002900| 65 2c 69 6e 64 2c 66 6f | 6e 74 24 0d 0c a8 05 cc |e,ind,fo|nt$.....|
|00002910| 0d 0c b2 5e 20 c8 99 20 | 22 46 6f 6e 74 5f 4c 69 |...^ .. |"Font_Li|
|00002920| 73 74 46 6f 6e 74 73 22 | 2c 2c 72 6d 61 66 6f 6e |stFonts"|,,rmafon|
|00002930| 74 61 72 65 61 2c 37 3c | 3c 31 39 2c 73 70 61 63 |tarea,7<|<19,spac|
|00002940| 65 2c 72 6d 61 66 6f 6e | 74 61 72 65 61 2b 73 70 |e,rmafon|tarea+sp|
|00002950| 61 63 65 2c 69 6e 64 2c | 2d 28 66 6f 6e 74 24 3d |ace,ind,|-(font$=|
|00002960| 22 53 79 73 74 65 6d 20 | 66 6f 6e 74 22 29 0d 0c |"System |font")..|
|00002970| bc 05 cd 0d 0c c6 16 c8 | 99 20 22 48 6f 75 72 67 |........|. "Hourg|
|00002980| 6c 61 73 73 5f 4f 66 66 | 22 0d 0c d0 10 3d 72 6d |lass_Off|"....=rm|
|00002990| 61 66 6f 6e 74 61 72 65 | 61 0d 0c da 2d dd f2 72 |afontare|a...-..r|
|000029a0| 65 6c 65 61 73 65 66 6f | 6e 74 6d 65 6e 75 3a f2 |eleasefo|ntmenu:.|
|000029b0| 72 65 6c 65 61 73 65 28 | 72 6d 61 66 6f 6e 74 61 |release(|rmafonta|
|000029c0| 72 65 61 29 3a e1 0d 0c | e4 05 3a 0d 0c ee 30 f4 |rea):...|..:...0.|
|000029d0| 20 46 4e 63 72 65 61 74 | 65 66 74 6d 65 6e 75 20 | FNcreat|eftmenu |
|000029e0| 20 20 20 3a 20 43 72 65 | 61 74 65 20 61 20 66 69 | : Cre|ate a fi|
|000029f0| 6c 65 74 79 70 65 20 6d | 65 6e 75 0d 0c f8 37 f4 |letype m|enu...7.|
|00002a00| 20 50 52 4f 43 72 65 6c | 65 61 73 65 66 74 6d 65 | PROCrel|easeftme|
|00002a10| 6e 75 20 3a 20 52 65 6c | 65 61 73 65 20 73 70 61 |nu : Rel|ease spa|
|00002a20| 63 65 20 75 73 65 64 20 | 62 79 20 46 54 20 6d 65 |ce used |by FT me|
|00002a30| 6e 75 0d 0d 02 12 dd a4 | 63 72 65 61 74 65 66 74 |nu......|createft|
|00002a40| 6d 65 6e 75 0d 0d 0c 2d | ea 20 6c 65 6e 2c 6e 61 |menu...-|. len,na|
|00002a50| 6d 65 2c 74 79 70 65 2c | 66 6c 61 67 73 2c 6d 6c |me,type,|flags,ml|
|00002a60| 65 6e 2c 69 6c 65 6e 2c | 6e 24 2c 76 24 2c 6d 73 |en,ilen,|n$,v$,ms|
|00002a70| 74 0d 0d 16 51 c8 99 20 | 22 58 4f 53 5f 52 65 61 |t...Q.. |"XOS_Rea|
|00002a80| 64 56 61 72 56 61 6c 22 | 2c 22 46 69 6c 65 24 54 |dVarVal"|,"File$T|
|00002a90| 79 70 65 5f 2a 22 2c 6d | 65 73 73 61 67 65 5f 62 |ype_*",m|essage_b|
|00002aa0| 75 66 66 65 72 25 2c 32 | 35 36 20 b8 20 2c 2c 6c |uffer%,2|56 . ,,l|
|00002ab0| 65 6e 2c 6e 61 6d 65 2c | 74 79 70 65 3b 66 6c 61 |en,name,|type;fla|
|00002ac0| 67 73 0d 0d 20 15 6d 6c | 65 6e 3d 32 38 2b 32 34 |gs.. .ml|en=28+24|
|00002ad0| 3a 69 6c 65 6e 3d 39 0d | 0d 2a 14 c8 95 20 28 66 |:ilen=9.|.*... (f|
|00002ae0| 6c 61 67 73 20 80 31 29 | 3c 3e 31 0d 0d 34 0f 20 |lags .1)|<>1..4. |
|00002af0| e7 20 74 79 70 65 3d 30 | 20 8c 0d 0d 3e 24 20 20 |. type=0| ...>$ |
|00002b00| 6d 6c 65 6e 2b 3d 32 34 | 3a 6e 24 3d c2 a4 73 74 |mlen+=24|:n$=..st|
|00002b10| 72 69 6e 67 30 28 6e 61 | 6d 65 29 2c 33 29 0d 0d |ring0(na|me),3)..|
|00002b20| 48 2d 20 20 c8 99 20 22 | 58 57 69 6d 70 5f 53 70 |H- .. "|XWimp_Sp|
|00002b30| 72 69 74 65 4f 70 22 2c | 32 34 2c 2c 22 53 6d 61 |riteOp",|24,,"Sma|
|00002b40| 6c 6c 5f 22 2b 6e 24 20 | b8 3b 66 0d 0d 52 11 20 |ll_"+n$ |.;f..R. |
|00002b50| 20 e7 20 28 66 20 80 31 | 29 3d 31 8c 0d 0d 5c 2d | . (f .1|)=1...\-|
|00002b60| 20 20 20 c8 99 20 22 58 | 57 69 6d 70 5f 53 70 72 | .. "X|Wimp_Spr|
|00002b70| 69 74 65 4f 70 22 2c 32 | 34 2c 2c 22 46 69 6c 65 |iteOp",2|4,,"File|
|00002b80| 5f 22 2b 6e 24 20 b8 3b | 66 0d 0d 66 2c 20 20 20 |_"+n$ .;|f..f, |
|00002b90| e7 20 28 66 20 80 31 29 | 3d 30 8c 69 6c 65 6e 2b |. (f .1)|=0.ilen+|
|00002ba0| 3d 31 31 2b 6c 65 6e 20 | 8b 69 6c 65 6e 2b 3d 6c |=11+len |.ilen+=l|
|00002bb0| 65 6e 2b 31 31 0d 0d 70 | 07 20 20 cc 0d 0d 7a 13 |en+11..p|. ...z.|
|00002bc0| 20 20 20 69 6c 65 6e 2b | 3d 31 32 2b 6c 65 6e 0d | ilen+|=12+len.|
|00002bd0| 0d 84 07 20 20 cd 0d 0d | 8e 06 20 cd 0d 0d 98 57 |... ...|.. ....W|
|00002be0| 20 c8 99 20 22 58 4f 53 | 5f 52 65 61 64 56 61 72 | .. "XOS|_ReadVar|
|00002bf0| 56 61 6c 22 2c 22 46 69 | 6c 65 24 54 79 70 65 5f |Val","Fi|le$Type_|
|00002c00| 2a 22 2c 6d 65 73 73 61 | 67 65 5f 62 75 66 66 65 |*",messa|ge_buffe|
|00002c10| 72 25 2c 32 35 36 2c 6e | 61 6d 65 20 b8 20 2c 2c |r%,256,n|ame . ,,|
|00002c20| 6c 65 6e 2c 6e 61 6d 65 | 2c 74 79 70 65 3b 66 6c |len,name|,type;fl|
|00002c30| 61 67 73 0d 0d a2 05 ce | 0d 0d ac 1b 66 74 62 6c |ags.....|....ftbl|
|00002c40| 6b 3d a4 63 6c 61 69 6d | 28 6d 6c 65 6e 2b 69 6c |k=.claim|(mlen+il|
|00002c50| 65 6e 29 0d 0d b6 10 e7 | 20 66 74 62 6c 6b 3d 2d |en).....| ftblk=-|
|00002c60| 31 20 8c 0d 0d c0 1a 20 | 66 74 62 6c 6b 3d a4 63 |1 ..... |ftblk=.c|
|00002c70| 6c 61 69 6d 28 32 38 2b | 32 34 2b 39 29 0d 0d ca |laim(28+|24+9)...|
|00002c80| 28 20 24 66 74 62 6c 6b | 3d 22 46 69 6c 65 20 74 |( $ftblk|="File t|
|00002c90| 79 70 65 73 22 3a 66 74 | 62 6c 6b 21 31 32 3d 26 |ypes":ft|blk!12=&|
|00002ca0| 37 30 32 30 37 0d 0d d4 | 2b 20 66 74 62 6c 6b 21 |70207...|+ ftblk!|
|00002cb0| 31 36 3d 31 36 2a 31 32 | 3a 66 74 62 6c 6b 21 32 |16=16*12|:ftblk!2|
|00002cc0| 30 3d 26 32 38 3a 66 74 | 62 6c 6b 21 32 34 3d 30 |0=&28:ft|blk!24=0|
|00002cd0| 0d 0d de 2f 20 66 74 62 | 6c 6b 21 32 38 3d 26 38 |.../ ftb|lk!28=&8|
|00002ce0| 30 3a 66 74 62 6c 6b 21 | 33 32 3d 2d 31 3a 66 74 |0:ftblk!|32=-1:ft|
|00002cf0| 62 6c 6b 21 33 36 3d 26 | 37 30 30 30 31 32 31 0d |blk!36=&|7000121.|
|00002d00| 0d e8 2f 20 66 74 62 6c | 6b 21 34 30 3d 66 74 62 |../ ftbl|k!40=ftb|
|00002d10| 6c 6b 2b 32 38 2b 32 34 | 3a 66 74 62 6c 6b 21 34 |lk+28+24|:ftblk!4|
|00002d20| 34 3d 30 3a 66 74 62 6c | 6b 21 34 38 3d 39 0d 0d |4=0:ftbl|k!48=9..|
|00002d30| f2 16 20 24 28 66 74 62 | 6c 6b 2b 32 38 2b 32 34 |.. $(ftb|lk+28+24|
|00002d40| 29 3d 22 22 0d 0d fc 05 | cc 0d 0e 06 28 20 24 66 |)=""....|....( $f|
|00002d50| 74 62 6c 6b 3d 22 46 69 | 6c 65 20 74 79 70 65 73 |tblk="Fi|le types|
|00002d60| 22 3a 66 74 62 6c 6b 21 | 31 32 3d 26 37 30 32 30 |":ftblk!|12=&7020|
|00002d70| 37 0d 0e 10 2b 20 66 74 | 62 6c 6b 21 31 36 3d 31 |7...+ ft|blk!16=1|
|00002d80| 36 2a 31 32 3a 66 74 62 | 6c 6b 21 32 30 3d 26 32 |6*12:ftb|lk!20=&2|
|00002d90| 38 3a 66 74 62 6c 6b 21 | 32 34 3d 30 0d 0e 1a 2a |8:ftblk!|24=0...*|
|00002da0| 20 69 6c 65 6e 3d 6d 6c | 65 6e 2b 66 74 62 6c 6b | ilen=ml|en+ftblk|
|00002db0| 3a 6d 6c 65 6e 3d 69 6c | 65 6e 2d 32 34 3a 6d 73 |:mlen=il|en-24:ms|
|00002dc0| 74 3d 6d 6c 65 6e 0d 0e | 24 54 20 c8 99 20 22 58 |t=mlen..|$T .. "X|
|00002dd0| 4f 53 5f 52 65 61 64 56 | 61 72 56 61 6c 22 2c 22 |OS_ReadV|arVal","|
|00002de0| 46 69 6c 65 24 54 79 70 | 65 5f 2a 22 2c 6d 65 73 |File$Typ|e_*",mes|
|00002df0| 73 61 67 65 5f 62 75 66 | 66 65 72 25 2c 32 35 36 |sage_buf|fer%,256|
|00002e00| 2c 30 20 b8 20 2c 2c 6c | 65 6e 2c 6e 61 6d 65 2c |,0 . ,,l|en,name,|
|00002e10| 74 79 70 65 3b 66 6c 61 | 67 73 0d 0e 2e 15 20 c8 |type;fla|gs.... .|
|00002e20| 95 20 28 66 6c 61 67 73 | 20 80 31 29 3c 3e 31 0d |. (flags| .1)<>1.|
|00002e30| 0e 38 10 20 20 e7 20 74 | 79 70 65 3d 30 20 8c 0d |.8. . t|ype=0 ..|
|00002e40| 0e 42 4f 20 20 20 6d 65 | 73 73 61 67 65 5f 62 75 |.BO me|ssage_bu|
|00002e50| 66 66 65 72 25 21 6c 65 | 6e 3d 30 3a 6e 24 3d c2 |ffer%!le|n=0:n$=.|
|00002e60| a4 73 74 72 69 6e 67 30 | 28 6e 61 6d 65 29 2c 33 |.string0|(name),3|
|00002e70| 29 3a 76 24 3d a4 73 74 | 72 69 6e 67 30 28 6d 65 |):v$=.st|ring0(me|
|00002e80| 73 73 61 67 65 5f 62 75 | 66 66 65 72 25 29 0d 0e |ssage_bu|ffer%)..|
|00002e90| 4c 19 20 20 20 6d 6c 65 | 6e 21 30 3d 30 3a 6d 6c |L. mle|n!0=0:ml|
|00002ea0| 65 6e 21 34 3d 2d 31 0d | 0e 56 2e 20 20 20 c8 99 |en!4=-1.|.V. ..|
|00002eb0| 20 22 58 57 69 6d 70 5f | 53 70 72 69 74 65 4f 70 | "XWimp_|SpriteOp|
|00002ec0| 22 2c 32 34 2c 2c 22 53 | 6d 61 6c 6c 5f 22 2b 6e |",24,,"S|mall_"+n|
|00002ed0| 24 20 b8 3b 66 0d 0e 60 | 12 20 20 20 e7 20 28 66 |$ .;f..`|. . (f|
|00002ee0| 20 80 31 29 3d 31 8c 0d | 0e 6a 2e 20 20 20 20 c8 | .1)=1..|.j. .|
|00002ef0| 99 20 22 58 57 69 6d 70 | 5f 53 70 72 69 74 65 4f |. "XWimp|_SpriteO|
|00002f00| 70 22 2c 32 34 2c 2c 22 | 46 69 6c 65 5f 22 2b 6e |p",24,,"|File_"+n|
|00002f10| 24 20 b8 3b 66 0d 0e 74 | 2f 20 20 20 20 e7 20 28 |$ .;f..t|/ . (|
|00002f20| 66 20 80 31 29 3d 30 8c | 6e 24 3d 22 46 69 6c 65 |f .1)=0.|n$="File|
|00002f30| 5f 22 2b 6e 24 20 8b 6e | 24 3d 22 46 69 6c 65 5f |_"+n$ .n|$="File_|
|00002f40| 78 78 78 22 0d 0e 7e 17 | 20 20 20 20 6d 6c 65 6e |xxx"..~.| mlen|
|00002f50| 21 38 3d 26 37 30 30 30 | 39 33 33 0d 0e 88 08 20 |!8=&7000|933.... |
|00002f60| 20 20 cc 0d 0e 92 26 20 | 20 20 20 6e 24 3d 22 53 | ....& | n$="S|
|00002f70| 6d 61 6c 6c 5f 22 2b 6e | 24 3a 6d 6c 65 6e 21 38 |mall_"+n|$:mlen!8|
|00002f80| 3d 26 37 30 30 30 31 33 | 33 0d 0e 9c 08 20 20 20 |=&700013|3.... |
|00002f90| cd 0d 0e a6 2a 20 20 20 | 6d 6c 65 6e 21 31 32 3d |....* |mlen!12=|
|00002fa0| 69 6c 65 6e 3a 24 69 6c | 65 6e 3d 76 24 3a 69 6c |ilen:$il|en=v$:il|
|00002fb0| 65 6e 2b 3d a9 28 76 24 | 29 2b 31 0d 0e b0 2e 20 |en+=.(v$|)+1.... |
|00002fc0| 20 20 6d 6c 65 6e 21 31 | 36 3d 69 6c 65 6e 3a 24 | mlen!1|6=ilen:$|
|00002fd0| 69 6c 65 6e 3d 22 73 22 | 2b 6e 24 3a 69 6c 65 6e |ilen="s"|+n$:ilen|
|00002fe0| 2b 3d a9 28 6e 24 29 2b | 32 0d 0e ba 1f 20 20 20 |+=.(n$)+|2.... |
|00002ff0| 6d 6c 65 6e 21 32 30 3d | a9 28 76 24 29 2b 31 3a |mlen!20=|.(v$)+1:|
|00003000| 6d 6c 65 6e 2d 3d 32 34 | 0d 0e c4 07 20 20 cd 0d |mlen-=24|.... ..|
|00003010| 0e ce 58 20 20 c8 99 20 | 22 58 4f 53 5f 52 65 61 |..X .. |"XOS_Rea|
|00003020| 64 56 61 72 56 61 6c 22 | 2c 22 46 69 6c 65 24 54 |dVarVal"|,"File$T|
|00003030| 79 70 65 5f 2a 22 2c 6d | 65 73 73 61 67 65 5f 62 |ype_*",m|essage_b|
|00003040| 75 66 66 65 72 25 2c 32 | 35 36 2c 6e 61 6d 65 20 |uffer%,2|56,name |
|00003050| b8 20 2c 2c 6c 65 6e 2c | 6e 61 6d 65 2c 74 79 70 |. ,,len,|name,typ|
|00003060| 65 3b 66 6c 61 67 73 0d | 0e d8 06 20 ce 0d 0e e2 |e;flags.|... ....|
|00003070| 34 20 6d 6c 65 6e 21 30 | 3d 34 3a 6d 6c 65 6e 21 |4 mlen!0|=4:mlen!|
|00003080| 34 3d 2d 31 3a 6d 6c 65 | 6e 21 38 3d 26 37 30 30 |4=-1:mle|n!8=&700|
|00003090| 30 31 32 31 3a 6d 6c 65 | 6e 21 31 32 3d 69 6c 65 |0121:mle|n!12=ile|
|000030a0| 6e 0d 0e ec 3c 20 24 69 | 6c 65 6e 3d 22 22 3a 69 |n...< $i|len="":i|
|000030b0| 6c 65 6e 2b 3d 39 3a 6d | 6c 65 6e 21 31 36 3d 2d |len+=9:m|len!16=-|
|000030c0| 31 3a 6d 6c 65 6e 21 32 | 30 3d 39 3a 6d 6c 65 6e |1:mlen!2|0=9:mlen|
|000030d0| 2d 3d 32 34 3a 21 6d 73 | 74 3d 26 38 30 0d 0e f6 |-=24:!ms|t=&80...|
|000030e0| 05 cd 0d 0f 00 0a 3d 66 | 74 62 6c 6b 0d 0f 0a 25 |......=f|tblk...%|
|000030f0| dd f2 72 65 6c 65 61 73 | 65 66 74 6d 65 6e 75 3a |..releas|eftmenu:|
|00003100| f2 72 65 6c 65 61 73 65 | 28 66 74 62 6c 6b 29 3a |.release|(ftblk):|
|00003110| e1 0d 0f 14 05 3a 0d 0f | 1e 37 f4 20 2a 2a 2a 2a |.....:..|.7. ****|
|00003120| 2a 2a 2a 2a 20 57 69 6e | 64 6f 77 20 6d 61 6e 69 |**** Win|dow mani|
|00003130| 70 75 6c 61 74 69 6f 6e | 20 72 6f 75 74 69 6e 65 |pulation| routine|
|00003140| 73 20 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 0d 0f 28 |s ******|*****..(|
|00003150| 05 3a 0d 0f 32 28 f4 20 | 50 52 4f 43 63 6c 6f 73 |.:..2(. |PROCclos|
|00003160| 65 77 69 6e 20 20 20 20 | 20 20 3a 20 43 6c 6f 73 |ewin | : Clos|
|00003170| 65 20 61 20 77 69 6e 64 | 6f 77 0d 0f 3c 37 f4 20 |e a wind|ow..<7. |
|00003180| 50 52 4f 43 6f 70 65 6e | 77 69 6e 20 20 20 20 20 |PROCopen|win |
|00003190| 20 20 3a 20 4f 70 65 6e | 20 61 20 77 69 6e 64 6f | : Open| a windo|
|000031a0| 77 20 61 74 20 74 6f 70 | 20 6f 66 20 73 74 61 63 |w at top| of stac|
|000031b0| 6b 0d 0f 46 3e f4 20 50 | 52 4f 43 6f 70 65 6e 77 |k..F>. P|ROCopenw|
|000031c0| 69 6e 61 74 20 20 20 20 | 20 3a 20 4f 70 65 6e 20 |inat | : Open |
|000031d0| 61 20 77 69 6e 64 6f 77 | 20 61 74 20 74 6f 70 2d |a window| at top-|
|000031e0| 6c 65 66 74 20 63 6f 72 | 6e 65 72 20 78 2c 79 0d |left cor|ner x,y.|
|000031f0| 0f 50 39 f4 20 50 52 4f | 43 6f 70 65 6e 77 69 6e |.P9. PRO|Copenwin|
|00003200| 63 65 6e 74 72 65 20 3a | 20 4f 70 65 6e 20 77 69 |centre :| Open wi|
|00003210| 6e 64 6f 77 20 69 6e 20 | 63 65 6e 74 72 65 20 6f |ndow in |centre o|
|00003220| 66 20 73 63 72 65 65 6e | 0d 0f 5a 3c f4 20 50 52 |f screen|..Z<. PR|
|00003230| 4f 43 6f 70 65 6e 77 69 | 6e 74 6f 20 20 20 20 20 |OCopenwi|nto |
|00003240| 3a 20 4f 70 65 6e 20 77 | 69 6e 64 6f 77 20 61 74 |: Open w|indow at|
|00003250| 20 70 6f 73 69 74 69 6f | 6e 20 77 69 74 68 69 6e | positio|n within|
|00003260| 20 54 57 41 0d 0f 64 14 | dd f2 63 6c 6f 73 65 77 | TWA..d.|..closew|
|00003270| 69 6e 28 77 69 6e 25 29 | 0d 0f 6e 26 21 62 25 3d |in(win%)|..n&!b%=|
|00003280| 77 69 6e 25 3a c8 99 20 | 22 57 69 6d 70 5f 43 6c |win%:.. |"Wimp_Cl|
|00003290| 6f 73 65 57 69 6e 64 6f | 77 22 2c 2c 62 25 0d 0f |oseWindo|w",,b%..|
|000032a0| 78 05 e1 0d 0f 82 13 dd | f2 6f 70 65 6e 77 69 6e |x.......|.openwin|
|000032b0| 28 77 69 6e 25 29 0d 0f | 8c 29 21 62 25 3d 77 69 |(win%)..|.)!b%=wi|
|000032c0| 6e 25 3a c8 99 20 22 57 | 69 6d 70 5f 47 65 74 57 |n%:.. "W|imp_GetW|
|000032d0| 69 6e 64 6f 77 53 74 61 | 74 65 22 2c 2c 62 25 0d |indowSta|te",,b%.|
|000032e0| 0f 96 25 62 25 21 32 38 | 3d 2d 31 3a c8 99 20 22 |..%b%!28|=-1:.. "|
|000032f0| 57 69 6d 70 5f 4f 70 65 | 6e 57 69 6e 64 6f 77 22 |Wimp_Ope|nWindow"|
|00003300| 2c 2c 62 25 0d 0f a0 05 | e1 0d 0f aa 28 dd f2 6f |,,b%....|....(..o|
|00003310| 70 65 6e 77 69 6e 61 74 | 28 77 69 6e 25 2c 78 2c |penwinat|(win%,x,|
|00003320| 79 29 3a ea 20 77 69 64 | 74 68 2c 68 65 69 67 68 |y):. wid|th,heigh|
|00003330| 74 0d 0f b4 29 21 62 25 | 3d 77 69 6e 25 3a c8 99 |t...)!b%|=win%:..|
|00003340| 20 22 57 69 6d 70 5f 47 | 65 74 57 69 6e 64 6f 77 | "Wimp_G|etWindow|
|00003350| 53 74 61 74 65 22 2c 2c | 62 25 0d 0f be 26 77 69 |State",,|b%...&wi|
|00003360| 64 74 68 3d 62 25 21 34 | 2d 62 25 21 31 32 3a 68 |dth=b%!4|-b%!12:h|
|00003370| 65 69 67 68 74 3d 62 25 | 21 31 36 2d 62 25 21 38 |eight=b%|!16-b%!8|
|00003380| 0d 0f c8 2e 62 25 21 34 | 3d 78 3a 62 25 21 38 3d |....b%!4|=x:b%!8=|
|00003390| 79 2d 68 65 69 67 68 74 | 3a 62 25 21 31 32 3d 78 |y-height|:b%!12=x|
|000033a0| 2d 77 69 64 74 68 3a 62 | 25 21 31 36 3d 79 0d 0f |-width:b|%!16=y..|
|000033b0| d2 25 62 25 21 32 38 3d | 2d 31 3a c8 99 20 22 57 |.%b%!28=|-1:.. "W|
|000033c0| 69 6d 70 5f 4f 70 65 6e | 57 69 6e 64 6f 77 22 2c |imp_Open|Window",|
|000033d0| 2c 62 25 0d 0f dc 05 e1 | 0d 0f e6 36 dd f2 6f 70 |,b%.....|...6..op|
|000033e0| 65 6e 77 69 6e 63 65 6e | 74 72 65 28 77 69 6e 25 |enwincen|tre(win%|
|000033f0| 29 3a ea 20 77 69 64 74 | 68 2c 68 65 69 67 68 74 |):. widt|h,height|
|00003400| 2c 74 6f 70 2c 72 69 67 | 68 74 2c 78 2c 79 0d 0f |,top,rig|ht,x,y..|
|00003410| f0 2a 21 62 25 3d 34 3a | 62 25 21 34 3d 35 3a 62 |.*!b%=4:|b%!4=5:b|
|00003420| 25 21 38 3d 31 31 3a 62 | 25 21 31 32 3d 31 32 3a |%!8=11:b|%!12=12:|
|00003430| 62 25 21 31 36 3d 2d 31 | 0d 0f fa 25 c8 99 20 22 |b%!16=-1|...%.. "|
|00003440| 4f 53 5f 52 65 61 64 56 | 64 75 56 61 72 69 61 62 |OS_ReadV|duVariab|
|00003450| 6c 65 73 22 2c 62 25 2c | 62 25 2b 32 30 0d 10 04 |les",b%,|b%+20...|
|00003460| 2b 72 69 67 68 74 3d 62 | 25 21 32 38 2b 31 3c 3c |+right=b|%!28+1<<|
|00003470| 62 25 21 32 30 3a 74 6f | 70 3d 62 25 21 33 32 2b |b%!20:to|p=b%!32+|
|00003480| 31 3c 3c 62 25 21 32 34 | 0d 10 0e 29 21 62 25 3d |1<<b%!24|...)!b%=|
|00003490| 77 69 6e 25 3a c8 99 20 | 22 57 69 6d 70 5f 47 65 |win%:.. |"Wimp_Ge|
|000034a0| 74 57 69 6e 64 6f 77 53 | 74 61 74 65 22 2c 2c 62 |tWindowS|tate",,b|
|000034b0| 25 0d 10 18 26 77 69 64 | 74 68 3d 62 25 21 34 2d |%...&wid|th=b%!4-|
|000034c0| 62 25 21 31 32 3a 68 65 | 69 67 68 74 3d 62 25 21 |b%!12:he|ight=b%!|
|000034d0| 31 36 2d 62 25 21 38 0d | 10 22 33 78 3d 28 72 69 |16-b%!8.|."3x=(ri|
|000034e0| 67 68 74 2d 77 69 64 74 | 68 29 2f 32 2b 77 69 64 |ght-widt|h)/2+wid|
|000034f0| 74 68 3a 79 3d 28 74 6f | 70 2d 68 65 69 67 68 74 |th:y=(to|p-height|
|00003500| 29 2f 32 2b 68 65 69 67 | 68 74 0d 10 2c 2e 62 25 |)/2+heig|ht..,.b%|
|00003510| 21 34 3d 78 3a 62 25 21 | 38 3d 79 2d 68 65 69 67 |!4=x:b%!|8=y-heig|
|00003520| 68 74 3a 62 25 21 31 32 | 3d 78 2d 77 69 64 74 68 |ht:b%!12|=x-width|
|00003530| 3a 62 25 21 31 36 3d 79 | 0d 10 36 25 62 25 21 32 |:b%!16=y|..6%b%!2|
|00003540| 38 3d 2d 31 3a c8 99 20 | 22 57 69 6d 70 5f 4f 70 |8=-1:.. |"Wimp_Op|
|00003550| 65 6e 57 69 6e 64 6f 77 | 22 2c 2c 62 25 0d 10 40 |enWindow|",,b%..@|
|00003560| 05 e1 0d 10 4a 2f f4 20 | 6c 3d 6c 65 66 74 20 6f |....J/. |l=left o|
|00003570| 66 20 56 57 41 20 69 6e | 20 54 57 41 2c 20 74 3d |f VWA in| TWA, t=|
|00003580| 74 6f 70 20 6f 66 20 56 | 57 41 20 69 6e 20 54 57 |top of V|WA in TW|
|00003590| 41 0d 10 54 33 f4 20 72 | 3d 72 69 67 68 74 20 6f |A..T3. r|=right o|
|000035a0| 66 20 56 57 41 20 69 6e | 20 54 57 41 2c 20 62 3d |f VWA in| TWA, b=|
|000035b0| 62 6f 74 74 6f 6d 20 6f | 66 20 56 57 41 20 69 6e |bottom o|f VWA in|
|000035c0| 20 54 57 41 0d 10 5e 41 | f4 20 57 69 6e 64 6f 77 | TWA..^A|. Window|
|000035d0| 20 64 6f 65 73 20 6e 6f | 74 20 6d 6f 76 65 2c 20 | does no|t move, |
|000035e0| 62 75 74 20 69 74 73 20 | 73 69 7a 65 20 69 73 20 |but its |size is |
|000035f0| 61 6c 74 65 72 65 64 20 | 74 6f 20 64 69 66 66 65 |altered |to diffe|
|00003600| 72 65 6e 63 65 0d 10 68 | 3f f4 20 62 65 74 77 65 |rence..h|?. betwe|
|00003610| 65 6e 20 6c 26 77 20 61 | 6e 64 20 74 26 68 2e 20 |en l&w a|nd t&h. |
|00003620| 54 6f 70 20 6c 65 66 74 | 20 6f 66 20 56 57 41 20 |Top left| of VWA |
|00003630| 69 73 20 70 6f 73 69 74 | 69 6f 6e 65 64 20 74 6f |is posit|ioned to|
|00003640| 20 74 6c 2e 0d 10 72 3b | f4 20 49 66 20 72 62 20 | tl...r;|. If rb |
|00003650| 3d 20 2d 31 20 74 68 65 | 6e 20 6e 6f 20 61 63 74 |= -1 the|n no act|
|00003660| 75 61 6c 20 73 69 7a 65 | 20 63 68 61 6e 67 65 2c |ual size| change,|
|00003670| 20 6a 75 73 74 20 70 6f | 73 69 74 69 6f 6e 2e 0d | just po|sition..|
|00003680| 10 7c 1d dd f2 6f 70 65 | 6e 77 69 6e 74 6f 28 77 |.|...ope|nwinto(w|
|00003690| 69 6e 25 2c 6c 2c 74 2c | 72 2c 62 29 0d 10 86 29 |in%,l,t,|r,b)...)|
|000036a0| 21 62 25 3d 77 69 6e 25 | 3a c8 99 20 22 57 69 6d |!b%=win%|:.. "Wim|
|000036b0| 70 5f 47 65 74 57 69 6e | 64 6f 77 53 74 61 74 65 |p_GetWin|dowState|
|000036c0| 22 2c 2c 62 25 0d 10 90 | 13 e7 20 6c 3d 2d 31 20 |",,b%...|.. l=-1 |
|000036d0| 8c 6c 3d 62 25 21 32 30 | 0d 10 9a 13 e7 20 74 3d |.l=b%!20|..... t=|
|000036e0| 2d 31 20 8c 62 3d 62 25 | 21 32 34 0d 10 a4 18 e7 |-1 .b=b%|!24.....|
|000036f0| 20 72 3d 2d 31 20 8c 72 | 3d 62 25 21 31 32 2d 62 | r=-1 .r|=b%!12-b|
|00003700| 25 21 34 0d 10 ae 18 e7 | 20 62 3d 2d 31 20 8c 74 |%!4.....| b=-1 .t|
|00003710| 3d 62 25 21 38 2d 62 25 | 21 31 36 0d 10 b8 31 62 |=b%!8-b%|!16...1b|
|00003720| 25 21 31 32 3d 62 25 21 | 34 2b 72 2d 6c 3a 62 25 |%!12=b%!|4+r-l:b%|
|00003730| 21 38 3d 62 25 21 31 36 | 2b 62 2d 74 3a 62 25 21 |!8=b%!16|+b-t:b%!|
|00003740| 32 30 3d 6c 3a 62 25 21 | 32 34 3d 74 0d 10 c2 1b |20=l:b%!|24=t....|
|00003750| c8 99 22 57 69 6d 70 5f | 4f 70 65 6e 57 69 6e 64 |.."Wimp_|OpenWind|
|00003760| 6f 77 22 2c 2c 62 25 0d | 10 cc 05 e1 0d 10 d6 05 |ow",,b%.|........|
|00003770| 3a 0d 10 e0 3d f4 20 50 | 52 4f 43 72 65 73 69 7a |:...=. P|ROCresiz|
|00003780| 65 77 69 6e 74 6f 20 3a | 20 52 65 73 69 7a 65 73 |ewinto :| Resizes|
|00003790| 20 77 69 6e 64 6f 77 20 | 61 6e 64 20 72 65 2d 6f | window |and re-o|
|000037a0| 70 65 6e 73 20 69 66 20 | 6e 65 65 64 65 64 0d 10 |pens if |needed..|
|000037b0| ea 28 f4 20 57 69 6c 6c | 20 6b 65 65 70 20 74 6f |.(. Will| keep to|
|000037c0| 20 66 75 6c 6c 20 73 69 | 7a 65 20 69 66 20 70 6f | full si|ze if po|
|000037d0| 73 73 69 62 6c 65 0d 10 | f4 1f dd f2 72 65 73 69 |ssible..|....resi|
|000037e0| 7a 65 77 69 6e 74 6f 28 | 77 69 6e 25 2c 6c 2c 74 |zewinto(|win%,l,t|
|000037f0| 2c 72 2c 62 29 0d 10 fe | 11 ea 20 66 75 6c 6c 25 |,r,b)...|.. full%|
|00003800| 2c 6f 70 65 6e 25 0d 11 | 08 29 21 62 25 3d 77 69 |,open%..|.)!b%=wi|
|00003810| 6e 25 3a c8 99 20 22 57 | 69 6d 70 5f 47 65 74 57 |n%:.. "W|imp_GetW|
|00003820| 69 6e 64 6f 77 53 74 61 | 74 65 22 2c 2c 62 25 0d |indowSta|te",,b%.|
|00003830| 11 12 38 f4 20 49 66 20 | 66 75 6c 6c 20 73 69 7a |..8. If |full siz|
|00003840| 65 2c 20 6f 70 65 6e 20 | 66 75 6c 6c 20 73 69 7a |e, open |full siz|
|00003850| 65 2c 20 61 6e 64 20 69 | 66 20 6f 70 65 6e 2c 20 |e, and i|f open, |
|00003860| 72 65 2d 6f 70 65 6e 0d | 11 1c 31 6f 70 65 6e 25 |re-open.|..1open%|
|00003870| 3d 28 62 25 21 33 32 20 | 80 20 28 31 3c 3c 31 36 |=(b%!32 |. (1<<16|
|00003880| 29 29 3e 30 3a e7 20 ac | 20 6f 70 65 6e 25 20 8c |))>0:. .| open% .|
|00003890| 62 25 21 32 38 3d 2d 33 | 0d 11 26 39 c8 99 20 22 |b%!28=-3|..&9.. "|
|000038a0| 57 69 6d 70 5f 4f 70 65 | 6e 57 69 6e 64 6f 77 22 |Wimp_Ope|nWindow"|
|000038b0| 2c 2c 62 25 3a c8 99 20 | 22 57 69 6d 70 5f 47 65 |,,b%:.. |"Wimp_Ge|
|000038c0| 74 57 69 6e 64 6f 77 53 | 74 61 74 65 22 2c 2c 62 |tWindowS|tate",,b|
|000038d0| 25 0d 11 30 1d 66 75 6c | 6c 25 3d 28 62 25 21 33 |%..0.ful|l%=(b%!3|
|000038e0| 32 20 80 20 28 31 3c 3c | 31 38 29 29 3e 30 0d 11 |2 . (1<<|18))>0..|
|000038f0| 3a 23 62 25 21 36 38 3d | 6c 3a 62 25 21 37 32 3d |:#b%!68=|l:b%!72=|
|00003900| 62 3a 62 25 21 37 36 3d | 72 3a 62 25 21 38 30 3d |b:b%!76=|r:b%!80=|
|00003910| 74 0d 11 44 22 c8 99 20 | 22 57 69 6d 70 5f 53 65 |t..D".. |"Wimp_Se|
|00003920| 74 45 78 74 65 6e 74 22 | 2c 77 69 6e 25 2c 62 25 |tExtent"|,win%,b%|
|00003930| 2b 36 38 0d 11 4e 2a e7 | 20 66 75 6c 6c 25 20 8c |+68..N*.| full% .|
|00003940| 62 25 21 38 3d 62 25 21 | 31 36 2b 62 2d 74 3a 62 |b%!8=b%!|16+b-t:b|
|00003950| 25 21 31 32 3d 62 25 21 | 34 2b 72 2d 6c 0d 11 58 |%!12=b%!|4+r-l..X|
|00003960| 1c c8 99 20 22 57 69 6d | 70 5f 4f 70 65 6e 57 69 |... "Wim|p_OpenWi|
|00003970| 6e 64 6f 77 22 2c 2c 62 | 25 0d 11 62 4a e7 20 6f |ndow",,b|%..bJ. o|
|00003980| 70 65 6e 25 20 8c c8 99 | 20 22 57 69 6d 70 5f 46 |pen% ...| "Wimp_F|
|00003990| 6f 72 63 65 52 65 64 72 | 61 77 22 2c 77 69 6e 25 |orceRedr|aw",win%|
|000039a0| 2c 6c 2c 62 2c 72 2c 74 | 20 8b c8 99 20 22 57 69 |,l,b,r,t| ... "Wi|
|000039b0| 6d 70 5f 43 6c 6f 73 65 | 57 69 6e 64 6f 77 22 2c |mp_Close|Window",|
|000039c0| 2c 62 25 0d 11 6c 05 e1 | 0d 11 76 44 f4 66 75 6c |,b%..l..|..vD.ful|
|000039d0| 6c 25 3d 28 20 28 28 28 | 62 25 21 31 32 29 2d 28 |l%=( (((|b%!12)-(|
|000039e0| 62 25 21 34 29 29 3d 62 | 25 21 35 32 29 20 41 4e |b%!4))=b|%!52) AN|
|000039f0| 44 20 28 28 28 62 25 21 | 31 36 29 2d 28 62 25 21 |D (((b%!|16)-(b%!|
|00003a00| 38 29 29 3d 62 25 21 35 | 36 29 20 29 0d 11 80 05 |8))=b%!5|6) )....|
|00003a10| 3a 0d 11 8a 3f f4 20 50 | 52 4f 43 77 69 6e 73 65 |:...?. P|ROCwinse|
|00003a20| 74 65 78 74 65 6e 74 20 | 3a 20 53 65 74 20 74 68 |textent |: Set th|
|00003a30| 65 20 6d 61 78 69 6d 75 | 6d 20 65 78 74 65 6e 74 |e maximu|m extent|
|00003a40| 20 6f 66 20 77 69 6e 64 | 6f 77 20 28 54 57 41 29 | of wind|ow (TWA)|
|00003a50| 0d 11 94 20 dd f2 77 69 | 6e 73 65 74 65 78 74 65 |... ..wi|nsetexte|
|00003a60| 6e 74 28 77 69 6e 25 2c | 6c 2c 74 2c 72 2c 62 29 |nt(win%,|l,t,r,b)|
|00003a70| 0d 11 9e 2a 21 62 25 3d | 77 69 6e 25 3a c8 99 20 |...*!b%=|win%:.. |
|00003a80| 22 57 69 6d 70 5f 47 65 | 74 57 69 6e 64 6f 77 49 |"Wimp_Ge|tWindowI|
|00003a90| 6e 66 6f 22 2c 2c 62 25 | 2b 31 0d 11 a8 13 e7 20 |nfo",,b%|+1..... |
|00003aa0| 6c 3d 2d 31 20 8c 6c 3d | 62 25 21 34 34 0d 11 b2 |l=-1 .l=|b%!44...|
|00003ab0| 13 e7 20 62 3d 2d 31 20 | 8c 62 3d 62 25 21 34 38 |.. b=-1 |.b=b%!48|
|00003ac0| 0d 11 bc 13 e7 20 72 3d | 2d 31 20 8c 72 3d 62 25 |..... r=|-1 .r=b%|
|00003ad0| 21 35 32 0d 11 c6 13 e7 | 20 74 3d 2d 31 20 8c 74 |!52.....| t=-1 .t|
|00003ae0| 3d 62 25 21 35 36 0d 11 | d0 23 62 25 21 34 34 3d |=b%!56..|.#b%!44=|
|00003af0| 6c 3a 62 25 21 34 38 3d | 62 3a 62 25 21 35 32 3d |l:b%!48=|b:b%!52=|
|00003b00| 72 3a 62 25 21 35 36 3d | 74 0d 11 da 22 c8 99 22 |r:b%!56=|t...".."|
|00003b10| 58 57 69 6d 70 5f 53 65 | 74 45 78 74 65 6e 74 22 |XWimp_Se|tExtent"|
|00003b20| 2c 77 69 6e 25 2c 62 25 | 2b 34 34 0d 11 e4 05 e1 |,win%,b%|+44.....|
|00003b30| 0d 11 ee 05 3a 0d 11 f8 | 3f f4 20 50 52 4f 43 66 |....:...|?. PROCf|
|00003b40| 6f 72 63 65 72 65 64 72 | 61 77 20 3a 20 52 65 64 |orceredr|aw : Red|
|00003b50| 72 61 77 20 74 68 65 20 | 73 70 65 63 69 66 69 65 |raw the |specifie|
|00003b60| 64 20 70 61 72 74 20 6f | 66 20 74 68 65 20 77 69 |d part o|f the wi|
|00003b70| 6e 64 6f 77 0d 12 02 1f | dd f2 66 6f 72 63 65 72 |ndow....|..forcer|
|00003b80| 65 64 72 61 77 28 77 69 | 6e 25 2c 6c 2c 74 2c 72 |edraw(wi|n%,l,t,r|
|00003b90| 2c 62 29 0d 12 0c 26 c8 | 99 20 22 57 69 6d 70 5f |,b)...&.|. "Wimp_|
|00003ba0| 46 6f 72 63 65 52 65 64 | 72 61 77 22 2c 77 69 6e |ForceRed|raw",win|
|00003bb0| 25 2c 6c 2c 62 2c 72 2c | 74 0d 12 16 05 e1 0d 12 |%,l,b,r,|t.......|
|00003bc0| 20 05 3a 0d 12 2a 3d f4 | 20 50 52 4f 43 77 69 6e | .:..*=.| PROCwin|
|00003bd0| 64 6f 77 74 69 74 6c 65 | 20 3a 20 53 65 74 20 77 |dowtitle| : Set w|
|00003be0| 69 6e 64 6f 77 20 74 69 | 74 6c 65 20 28 6f 6e 6c |indow ti|tle (onl|
|00003bf0| 79 20 69 66 20 69 6e 64 | 69 72 65 63 74 65 64 29 |y if ind|irected)|
|00003c00| 0d 12 34 1f dd 20 f2 77 | 69 6e 64 6f 77 74 69 74 |..4.. .w|indowtit|
|00003c10| 6c 65 28 77 69 6e 25 2c | 74 69 74 6c 65 24 29 0d |le(win%,|title$).|
|00003c20| 12 3e 0d ea 20 6c 6f 63 | 25 2c 61 24 0d 12 48 2b |.>.. loc|%,a$..H+|
|00003c30| 62 25 21 30 3d 77 69 6e | 25 3a c8 99 20 22 57 69 |b%!0=win|%:.. "Wi|
|00003c40| 6d 70 5f 47 65 74 57 69 | 6e 64 6f 77 49 6e 66 6f |mp_GetWi|ndowInfo|
|00003c50| 22 2c 2c 62 25 2b 31 0d | 12 52 25 6c 6f 63 25 3d |",,b%+1.|.R%loc%=|
|00003c60| 21 28 62 25 2b 37 36 29 | 3a 61 24 3d a4 6d 73 67 |!(b%+76)|:a$=.msg|
|00003c70| 74 65 78 74 28 74 69 74 | 6c 65 24 29 0d 12 5c 1a |text(tit|le$)..\.|
|00003c80| e7 20 a4 73 74 72 69 6e | 67 30 28 6c 6f 63 25 29 |. .strin|g0(loc%)|
|00003c90| 3c 3e 61 24 20 8c 0d 12 | 66 3a 20 24 6c 6f 63 25 |<>a$ ...|f: $loc%|
|00003ca0| 3d 61 24 3a 62 25 21 33 | 32 3d 77 69 6e 25 3a c8 |=a$:b%!3|2=win%:.|
|00003cb0| 99 20 22 57 69 6d 70 5f | 47 65 74 57 69 6e 64 6f |. "Wimp_|GetWindo|
|00003cc0| 77 4f 75 74 6c 69 6e 65 | 22 2c 2c 62 25 2b 33 32 |wOutline|",,b%+32|
|00003cd0| 0d 12 70 35 20 c8 99 20 | 22 57 69 6d 70 5f 46 6f |..p5 .. |"Wimp_Fo|
|00003ce0| 72 63 65 52 65 64 72 61 | 77 22 2c 2d 31 2c 62 25 |rceRedra|w",-1,b%|
|00003cf0| 21 33 36 2c 62 25 21 31 | 36 2c 62 25 21 34 34 2c |!36,b%!1|6,b%!44,|
|00003d00| 62 25 21 34 38 0d 12 7a | 05 cd 0d 12 84 05 e1 0d |b%!48..z|........|
|00003d10| 12 8e 05 3a 0d 12 98 3e | f4 20 2a 2a 2a 2a 2a 2a |...:...>|. ******|
|00003d20| 2a 2a 2a 2a 2a 2a 20 4e | 65 73 74 65 64 20 57 69 |****** N|ested Wi|
|00003d30| 6e 64 6f 77 20 4d 61 6e | 61 67 65 72 20 73 70 65 |ndow Man|ager spe|
|00003d40| 63 69 66 69 63 20 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |cific **|********|
|00003d50| 2a 2a 0d 12 a2 37 f4 20 | 50 52 4f 43 65 6d 62 65 |**...7. |PROCembe|
|00003d60| 64 77 69 6e 20 20 20 20 | 20 3a 20 65 6d 62 65 64 |dwin | : embed|
|00003d70| 73 20 61 20 77 69 6e 64 | 6f 77 20 77 69 74 68 69 |s a wind|ow withi|
|00003d80| 6e 20 61 6e 6f 74 68 65 | 72 0d 12 ac 44 f4 20 50 |n anothe|r...D. P|
|00003d90| 52 4f 43 65 6d 62 65 64 | 77 69 6e 77 69 74 68 20 |ROCembed|winwith |
|00003da0| 3a 20 65 6d 62 65 64 73 | 20 61 20 77 69 6e 64 6f |: embeds| a windo|
|00003db0| 77 20 77 69 74 68 69 6e | 20 61 6e 6f 74 68 65 72 |w within| another|
|00003dc0| 20 77 69 74 68 20 77 69 | 6e 66 6c 67 73 0d 12 b6 | with wi|nflgs...|
|00003dd0| 36 f4 20 50 52 4f 43 75 | 6e 65 6d 62 65 64 77 69 |6. PROCu|nembedwi|
|00003de0| 6e 20 20 20 3a 20 75 6e | 65 6d 62 65 64 20 61 20 |n : un|embed a |
|00003df0| 77 69 6e 64 6f 77 20 66 | 72 6f 6d 20 61 6e 6f 74 |window f|rom anot|
|00003e00| 68 65 72 0d 12 c0 3d f4 | 20 46 4e 70 61 72 65 6e |her...=.| FNparen|
|00003e10| 74 77 69 6e 20 20 20 20 | 20 20 3a 20 52 65 74 75 |twin | : Retu|
|00003e20| 72 6e 73 20 74 68 65 20 | 70 61 72 65 6e 74 20 77 |rns the |parent w|
|00003e30| 69 6e 64 6f 77 20 6f 66 | 20 61 20 63 68 69 6c 64 |indow of| a child|
|00003e40| 0d 12 ca 25 dd f2 65 6d | 62 65 64 77 69 6e 28 70 |...%..em|bedwin(p|
|00003e50| 61 72 65 6e 74 25 2c 63 | 68 69 6c 64 25 2c 66 6c |arent%,c|hild%,fl|
|00003e60| 61 67 73 25 29 0d 12 d4 | 2b 21 62 25 3d 63 68 69 |ags%)...|+!b%=chi|
|00003e70| 6c 64 25 3a c8 99 20 22 | 57 69 6d 70 5f 47 65 74 |ld%:.. "|Wimp_Get|
|00003e80| 57 69 6e 64 6f 77 53 74 | 61 74 65 22 2c 2c 62 25 |WindowSt|ate",,b%|
|00003e90| 0d 12 de 3b c8 99 20 22 | 57 69 6d 70 5f 4f 70 65 |...;.. "|Wimp_Ope|
|00003ea0| 6e 57 69 6e 64 6f 77 22 | 2c 2c 62 25 2c 26 34 42 |nWindow"|,,b%,&4B|
|00003eb0| 35 33 34 31 35 34 2c 70 | 61 72 65 6e 74 25 2c 66 |534154,p|arent%,f|
|00003ec0| 6c 61 67 73 25 20 80 20 | ac 20 31 0d 12 e8 05 e1 |lags% . |. 1.....|
|00003ed0| 0d 12 f2 33 dd f2 65 6d | 62 65 64 77 69 6e 77 69 |...3..em|bedwinwi|
|00003ee0| 74 68 28 70 61 72 65 6e | 74 25 2c 63 68 69 6c 64 |th(paren|t%,child|
|00003ef0| 25 2c 66 6c 61 67 73 25 | 2c 77 69 6e 66 6c 61 67 |%,flags%|,winflag|
|00003f00| 73 25 29 0d 12 fc 3b 21 | 62 25 3d 63 68 69 6c 64 |s%)...;!|b%=child|
|00003f10| 25 3a c8 99 20 22 57 69 | 6d 70 5f 47 65 74 57 69 |%:.. "Wi|mp_GetWi|
|00003f20| 6e 64 6f 77 53 74 61 74 | 65 22 2c 2c 62 25 3a 62 |ndowStat|e",,b%:b|
|00003f30| 25 21 33 32 3d 77 69 6e | 66 6c 61 67 73 25 0d 13 |%!32=win|flags%..|
|00003f40| 06 39 c8 99 20 22 57 69 | 6d 70 5f 4f 70 65 6e 57 |.9.. "Wi|mp_OpenW|
|00003f50| 69 6e 64 6f 77 22 2c 2c | 62 25 2c 26 34 42 35 33 |indow",,|b%,&4B53|
|00003f60| 34 31 35 34 2c 70 61 72 | 65 6e 74 25 2c 66 6c 61 |4154,par|ent%,fla|
|00003f70| 67 73 25 20 84 20 31 0d | 13 10 05 e1 0d 13 1a 20 |gs% . 1.|....... |
|00003f80| dd f2 75 6e 65 6d 62 65 | 64 77 69 6e 28 70 61 72 |..unembe|dwin(par|
|00003f90| 65 6e 74 25 2c 63 68 69 | 6c 64 25 29 0d 13 24 2b |ent%,chi|ld%)..$+|
|00003fa0| 21 62 25 3d 63 68 69 6c | 64 25 3a c8 99 20 22 57 |!b%=chil|d%:.. "W|
|00003fb0| 69 6d 70 5f 47 65 74 57 | 69 6e 64 6f 77 53 74 61 |imp_GetW|indowSta|
|00003fc0| 74 65 22 2c 2c 62 25 0d | 13 2e 2f c8 99 20 22 57 |te",,b%.|../.. "W|
|00003fd0| 69 6d 70 5f 43 6c 6f 73 | 65 57 69 6e 64 6f 77 22 |imp_Clos|eWindow"|
|00003fe0| 2c 2c 62 25 2c 26 34 42 | 35 33 34 31 35 34 2c 70 |,,b%,&4B|534154,p|
|00003ff0| 61 72 65 6e 74 25 0d 13 | 38 05 e1 0d 13 42 17 dd |arent%..|8....B..|
|00004000| a4 70 61 72 65 6e 74 77 | 69 6e 28 63 68 69 6c 64 |.parentw|in(child|
|00004010| 25 29 0d 13 4c 0d ea 20 | 70 61 72 65 6e 74 25 0d |%)..L.. |parent%.|
|00004020| 13 56 42 21 62 25 3d 63 | 68 69 6c 64 25 3a c8 99 |.VB!b%=c|hild%:..|
|00004030| 20 22 57 69 6d 70 5f 47 | 65 74 57 69 6e 64 6f 77 | "Wimp_G|etWindow|
|00004040| 53 74 61 74 65 22 2c 2c | 62 25 2c 26 34 42 35 33 |State",,|b%,&4B53|
|00004050| 34 31 35 34 20 b8 20 2c | 2c 2c 70 61 72 65 6e 74 |4154 . ,|,,parent|
|00004060| 25 0d 13 60 0c 3d 70 61 | 72 65 6e 74 25 0d 13 6a |%..`.=pa|rent%..j|
|00004070| 05 3a 0d 13 74 37 f4 20 | 2a 2a 2a 2a 2a 2a 2a 2a |.:..t7. |********|
|00004080| 20 49 63 6f 6e 20 6d 61 | 6e 69 70 75 6c 61 74 69 | Icon ma|nipulati|
|00004090| 6f 6e 20 72 6f 75 74 69 | 6e 65 73 20 2a 2a 2a 2a |on routi|nes ****|
|000040a0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 0d 13 7e 05 3a 0d 13 |********|*..~.:..|
|000040b0| 88 37 f4 20 46 4e 63 72 | 65 61 74 65 69 63 6f 6e |.7. FNcr|eateicon|
|000040c0| 20 3a 20 43 72 65 61 74 | 65 20 61 6e 20 69 63 6f | : Creat|e an ico|
|000040d0| 6e 20 77 69 74 68 20 73 | 65 74 20 70 61 72 61 6d |n with s|et param|
|000040e0| 65 74 65 72 73 0d 13 92 | 3c f4 20 77 69 6e 64 6f |eters...|<. windo|
|000040f0| 77 2c 78 2c 79 2c 20 77 | 69 64 74 68 2c 20 68 65 |w,x,y, w|idth, he|
|00004100| 69 67 68 74 2c 20 74 69 | 74 6c 65 2c 20 76 61 6c |ight, ti|tle, val|
|00004110| 69 64 61 74 69 6f 6e 2c | 20 63 6f 6c 6f 75 72 73 |idation,| colours|
|00004120| 2c 0d 13 9c 1d f4 20 45 | 53 47 2c 20 62 75 74 74 |,..... E|SG, butt|
|00004130| 6f 6e 20 74 79 70 65 2c | 20 66 6c 61 67 73 0d 13 |on type,| flags..|
|00004140| a6 31 f4 20 63 6f 6c 20 | 63 6f 75 6c 64 20 62 65 |.1. col |could be|
|00004150| 20 66 6f 6e 74 20 68 61 | 6e 64 6c 65 20 69 66 20 | font ha|ndle if |
|00004160| 75 73 65 20 66 6f 6e 74 | 20 69 73 20 73 65 74 0d |use font| is set.|
|00004170| 13 b0 42 f4 20 6f 74 68 | 65 72 77 69 73 65 20 63 |..B. oth|erwise c|
|00004180| 6f 6c 20 69 73 20 26 42 | 46 20 28 42 3d 62 61 63 |ol is &B|F (B=bac|
|00004190| 6b 67 72 6f 75 6e 64 2c | 20 46 3d 66 6f 72 65 67 |kground,| F=foreg|
|000041a0| 72 6f 75 6e 64 29 20 28 | 75 73 75 2e 20 26 31 37 |round) (|usu. &17|
|000041b0| 29 0d 13 ba 39 f4 20 51 | 75 69 63 6b 20 66 6c 61 |)...9. Q|uick fla|
|000041c0| 67 73 20 3a 20 25 41 46 | 56 48 42 30 30 20 28 41 |gs : %AF|VHB00 (A|
|000041d0| 3d 46 6f 6e 74 2c 20 46 | 3d 46 69 6c 6c 65 64 2c |=Font, F|=Filled,|
|000041e0| 20 42 3d 42 6f 72 64 65 | 72 29 0d 13 c4 0d f4 20 | B=Borde|r)..... |
|000041f0| 46 6c 61 67 73 20 3a 0d | 13 ce 20 f4 20 30 20 3a |Flags :.|.. . 0 :|
|00004200| 20 54 65 78 74 20 20 20 | 20 20 20 20 20 20 20 20 | Text | |
|00004210| 38 20 3a 20 4e 2f 41 0d | 13 d8 2c f4 20 31 20 3a |8 : N/A.|..,. 1 :|
|00004220| 20 53 70 72 69 74 65 20 | 20 20 20 20 20 20 20 20 | Sprite | |
|00004230| 39 20 3a 20 52 69 67 68 | 74 20 4a 75 73 74 69 66 |9 : Righ|t Justif|
|00004240| 69 65 64 0d 13 e2 3b f4 | 20 32 20 3a 20 42 6f 72 |ied...;.| 2 : Bor|
|00004250| 64 65 72 65 64 20 20 20 | 20 20 20 31 30 20 3a 20 |dered | 10 : |
|00004260| 4d 75 6c 74 69 70 6c 65 | 20 73 65 6c 65 63 74 69 |Multiple| selecti|
|00004270| 6f 6e 20 77 69 74 68 20 | 61 64 6a 75 73 74 0d 13 |on with |adjust..|
|00004280| ec 29 f4 20 33 20 3a 20 | 48 20 43 65 6e 74 72 65 |.). 3 : |H Centre|
|00004290| 20 20 20 20 20 20 31 31 | 20 3a 20 53 6d 61 6c 6c | 11| : Small|
|000042a0| 20 73 70 72 69 74 65 0d | 13 f6 1e f4 20 34 20 3a | sprite.|.... 4 :|
|000042b0| 20 56 20 43 65 6e 74 72 | 65 20 20 20 20 20 20 32 | V Centr|e 2|
|000042c0| 30 20 3a 20 3f 0d 14 00 | 25 f4 20 35 20 3a 20 46 |0 : ?...|%. 5 : F|
|000042d0| 69 6c 6c 65 64 20 20 20 | 20 20 20 20 20 32 31 20 |illed | 21 |
|000042e0| 3a 20 49 6e 76 65 72 74 | 65 64 0d 14 0a 23 f4 20 |: Invert|ed...#. |
|000042f0| 36 20 3a 20 55 73 65 20 | 66 6f 6e 74 73 20 20 20 |6 : Use |fonts |
|00004300| 20 20 32 32 20 3a 20 53 | 68 61 64 65 64 0d 14 14 | 22 : S|haded...|
|00004310| 1e f4 20 37 20 3a 20 4e | 2f 41 20 20 20 20 20 20 |.. 7 : N|/A |
|00004320| 20 20 20 20 20 32 33 20 | 3a 20 3f 0d 14 1e 14 f4 | 23 |: ?.....|
|00004330| 20 42 75 74 74 6f 6e 20 | 74 79 70 65 73 20 3a 0d | Button |types :.|
|00004340| 14 28 17 f4 20 30 20 3a | 20 49 67 6e 6f 72 65 20 |.(.. 0 :| Ignore |
|00004350| 63 6c 69 63 6b 73 0d 14 | 32 1a f4 20 31 20 3a 20 |clicks..|2.. 1 : |
|00004360| 4e 6f 74 69 66 79 20 77 | 68 65 6e 20 6f 76 65 72 |Notify w|hen over|
|00004370| 0d 14 3c 20 f4 20 32 20 | 3a 20 43 6c 69 63 6b 73 |..< . 2 |: Clicks|
|00004380| 20 72 65 70 65 61 74 20 | 26 20 6e 6f 74 69 66 79 | repeat |& notify|
|00004390| 0d 14 46 22 f4 20 33 20 | 3a 20 43 6c 69 63 6b 73 |..F". 3 |: Clicks|
|000043a0| 20 64 65 62 6f 75 6e 63 | 65 20 26 20 6e 6f 74 69 | debounc|e & noti|
|000043b0| 66 79 0d 14 50 3f f4 20 | 34 20 3a 20 43 6c 69 63 |fy..P?. |4 : Clic|
|000043c0| 6b 20 73 65 6c 65 63 74 | 73 2c 20 72 65 6c 65 61 |k select|s, relea|
|000043d0| 73 65 20 6e 6f 74 69 66 | 69 65 73 2c 20 6f 72 20 |se notif|ies, or |
|000043e0| 64 65 73 65 6c 65 63 74 | 20 69 66 20 6d 6f 76 65 |deselect| if move|
|000043f0| 64 0d 14 5a 2a f4 20 35 | 20 3a 20 43 6c 69 63 6b |d..Z*. 5| : Click|
|00004400| 20 73 65 6c 65 63 74 73 | 2c 20 32 20 63 6c 69 63 | selects|, 2 clic|
|00004410| 6b 73 20 6e 6f 74 69 66 | 69 65 73 0d 14 64 1c f4 |ks notif|ies..d..|
|00004420| 20 36 20 3a 20 41 73 20 | 33 20 62 75 74 20 77 69 | 6 : As |3 but wi|
|00004430| 6c 6c 20 64 72 61 67 0d | 14 6e 1c f4 20 37 20 3a |ll drag.|.n.. 7 :|
|00004440| 20 41 73 20 34 20 62 75 | 74 20 77 69 6c 6c 20 64 | As 4 bu|t will d|
|00004450| 72 61 67 0d 14 78 1c f4 | 20 38 20 3a 20 41 73 20 |rag..x..| 8 : As |
|00004460| 35 20 62 75 74 20 77 69 | 6c 6c 20 64 72 61 67 0d |5 but wi|ll drag.|
|00004470| 14 82 13 f4 20 39 20 3a | 20 4d 65 6e 75 20 69 63 |.... 9 :| Menu ic|
|00004480| 6f 6e 0d 14 8c 30 f4 20 | 31 30 3a 20 43 6c 69 63 |on...0. |10: Clic|
|00004490| 6b 3d 62 75 74 2a 32 35 | 36 2c 64 72 61 67 3d 62 |k=but*25|6,drag=b|
|000044a0| 75 74 2a 31 36 2c 32 20 | 63 6c 69 63 6b 73 3d 62 |ut*16,2 |clicks=b|
|000044b0| 75 74 0d 14 96 33 f4 20 | 31 31 3a 20 52 61 64 69 |ut...3. |11: Radi|
|000044c0| 6f 20 28 56 61 6c 69 64 | 61 74 69 6f 6e 20 66 6f |o (Valid|ation fo|
|000044d0| 72 6d 61 74 20 3a 20 53 | 6f 70 74 6f 66 66 2c 6f |rmat : S|optoff,o|
|000044e0| 70 74 6f 6e 29 0d 14 a0 | 11 f4 20 31 32 2f 31 33 |pton)...|.. 12/13|
|000044f0| 20 3a 20 4e 2f 41 0d 14 | aa 27 f4 20 31 34 3a 20 | : N/A..|.'. 14: |
|00004500| 57 72 69 74 65 61 62 6c | 65 2f 43 6c 69 63 6b 61 |Writeabl|e/Clicka|
|00004510| 62 6c 65 2f 44 72 61 67 | 67 61 62 6c 65 0d 14 b4 |ble/Drag|gable...|
|00004520| 13 f4 20 31 35 3a 20 57 | 72 69 74 65 61 62 6c 65 |.. 15: W|riteable|
|00004530| 0d 14 be 3d dd a4 63 72 | 65 61 74 65 69 63 6f 6e |...=..cr|eateicon|
|00004540| 28 77 69 6e 2c 78 2c 79 | 2c 77 2c 68 2c 74 69 74 |(win,x,y|,w,h,tit|
|00004550| 6c 65 24 2c 76 61 6c 69 | 64 24 2c 63 6f 6c 2c 65 |le$,vali|d$,col,e|
|00004560| 73 67 2c 62 75 74 2c 66 | 6c 61 67 73 29 0d 14 c8 |sg,but,f|lags)...|
|00004570| 24 ea 20 68 61 6e 64 6c | 65 3a 74 69 74 6c 65 24 |$. handl|e:title$|
|00004580| 3d a4 6d 73 67 74 65 78 | 74 28 74 69 74 6c 65 24 |=.msgtex|t(title$|
|00004590| 29 0d 14 d2 2e 62 25 21 | 30 3d 77 69 6e 3a 62 25 |)....b%!|0=win:b%|
|000045a0| 21 34 3d 78 3a 62 25 21 | 38 3d 79 2d 68 3a 62 25 |!4=x:b%!|8=y-h:b%|
|000045b0| 21 31 32 3d 78 2b 77 3a | 62 25 21 31 36 3d 79 0d |!12=x+w:|b%!16=y.|
|000045c0| 14 dc 36 62 25 21 32 30 | 3d 28 66 6c 61 67 73 20 |..6b%!20|=(flags |
|000045d0| 80 20 28 25 31 31 31 30 | 30 31 31 31 31 31 31 31 |. (%1110|01111111|
|000045e0| 2b 28 31 35 3c 3c 32 30 | 29 29 29 2b 28 63 6f 6c |+(15<<20|)))+(col|
|000045f0| 3c 3c 32 34 29 0d 14 e6 | 1e 62 25 21 32 30 2b 3d |<<24)...|.b%!20+=|
|00004600| 28 65 73 67 3c 3c 31 36 | 29 2b 28 62 75 74 3c 3c |(esg<<16|)+(but<<|
|00004610| 31 32 29 0d 14 f0 2d e7 | 20 76 61 6c 69 64 24 3c |12)...-.| valid$<|
|00004620| 3e 22 22 20 84 20 a9 28 | 74 69 74 6c 65 24 29 3e |>"" . .(|title$)>|
|00004630| 31 31 20 84 20 74 69 74 | 6c 65 24 3d bd 30 20 8c |11 . tit|le$=.0 .|
|00004640| 0d 14 fa 12 20 e7 20 74 | 69 74 6c 65 24 3d bd 30 |.... . t|itle$=.0|
|00004650| 20 8c 0d 15 04 29 20 20 | 62 25 21 32 34 3d a4 69 | ....) |b%!24=.i|
|00004660| 6e 64 69 72 65 63 74 28 | c4 32 35 35 2c bd 30 29 |ndirect(|.255,.0)|
|00004670| 29 3a 62 25 21 33 32 3d | 32 35 36 0d 15 0e 06 20 |):b%!32=|256.... |
|00004680| cc 0d 15 18 2f 20 20 62 | 25 21 32 34 3d a4 69 6e |..../ b|%!24=.in|
|00004690| 64 69 72 65 63 74 28 74 | 69 74 6c 65 24 29 3a 62 |direct(t|itle$):b|
|000046a0| 25 21 33 32 3d a9 28 74 | 69 74 6c 65 24 29 2b 31 |%!32=.(t|itle$)+1|
|000046b0| 0d 15 22 06 20 cd 0d 15 | 2c 28 20 62 25 21 32 38 |..". ...|,( b%!28|
|000046c0| 3d a4 69 6e 64 69 72 65 | 63 74 28 76 61 6c 69 64 |=.indire|ct(valid|
|000046d0| 24 29 3a 62 25 21 32 30 | 2b 3d 31 3c 3c 38 0d 15 |$):b%!20|+=1<<8..|
|000046e0| 36 05 cc 0d 15 40 14 20 | 24 28 62 25 2b 32 34 29 |6....@. |$(b%+24)|
|000046f0| 3d 74 69 74 6c 65 24 0d | 15 4a 05 cd 0d 15 54 55 |=title$.|.J....TU|
|00004700| e7 20 28 28 62 25 21 32 | 30 29 20 80 20 26 31 30 |. ((b%!2|0) . &10|
|00004710| 33 29 3d 26 33 20 8c 85 | 20 26 38 30 33 2c 22 43 |3)=&3 ..| &803,"C|
|00004720| 61 6e 6e 6f 74 20 6d 61 | 6b 65 20 61 20 73 70 72 |annot ma|ke a spr|
|00004730| 69 74 65 2f 74 65 78 74 | 20 69 63 6f 6e 20 77 69 |ite/text| icon wi|
|00004740| 74 68 6f 75 74 20 76 61 | 6c 69 64 61 74 69 6f 6e |thout va|lidation|
|00004750| 22 0d 15 5e 1d e7 20 28 | 66 6c 61 67 73 20 80 20 |"..^.. (|flags . |
|00004760| 33 29 3d 30 20 8c 62 25 | 21 32 30 2b 3d 31 0d 15 |3)=0 .b%|!20+=1..|
|00004770| 68 2e e7 20 a4 6c 6f 77 | 65 72 28 c0 76 61 6c 69 |h.. .low|er(.vali|
|00004780| 64 24 2c 31 29 29 3d 22 | 73 22 20 8c 20 62 25 21 |d$,1))="|s" . b%!|
|00004790| 32 30 3d 62 25 21 32 30 | 20 84 20 32 0d 15 72 25 |20=b%!20| . 2..r%|
|000047a0| c8 99 20 22 57 69 6d 70 | 5f 43 72 65 61 74 65 49 |.. "Wimp|_CreateI|
|000047b0| 63 6f 6e 22 2c 2c 62 25 | 20 b8 20 68 61 6e 64 6c |con",,b%| . handl|
|000047c0| 65 0d 15 7c 0b 3d 68 61 | 6e 64 6c 65 0d 15 86 05 |e..|.=ha|ndle....|
|000047d0| 3a 0d 15 90 36 f4 20 50 | 52 4f 43 64 65 6c 65 74 |:...6. P|ROCdelet|
|000047e0| 65 69 63 6f 6e 20 3a 20 | 44 65 6c 65 74 65 20 74 |eicon : |Delete t|
|000047f0| 68 65 20 69 63 6f 6e 20 | 66 72 6f 6d 20 74 68 65 |he icon |from the|
|00004800| 20 77 69 6e 64 6f 77 0d | 15 9a 1a dd f2 64 65 6c | window.|.....del|
|00004810| 65 74 65 69 63 6f 6e 28 | 77 69 6e 2c 69 63 6f 6e |eteicon(|win,icon|
|00004820| 29 0d 15 a4 2e 21 62 25 | 3d 77 69 6e 3a 62 25 21 |)....!b%|=win:b%!|
|00004830| 34 3d 69 63 6f 6e 3a c8 | 99 20 22 57 69 6d 70 5f |4=icon:.|. "Wimp_|
|00004840| 44 65 6c 65 74 65 49 63 | 6f 6e 22 2c 2c 62 25 0d |DeleteIc|on",,b%.|
|00004850| 15 ae 05 e1 0d 15 b8 05 | 3a 0d 15 c2 3b f4 20 46 |........|:...;. F|
|00004860| 4e 43 72 65 61 74 65 49 | 63 6f 6e 42 61 72 49 63 |NCreateI|conBarIc|
|00004870| 6f 6e 20 3a 20 43 72 65 | 61 74 65 20 61 6e 20 69 |on : Cre|ate an i|
|00004880| 63 6f 6e 20 66 6f 72 20 | 74 68 65 20 69 63 6f 6e |con for |the icon|
|00004890| 20 62 61 72 0d 15 cc 23 | f4 20 49 63 6f 6e 2d 62 | bar...#|. Icon-b|
|000048a0| 61 72 20 70 6f 73 69 74 | 69 6f 6e 73 20 28 6c 6f |ar posit|ions (lo|
|000048b0| 77 20 62 79 74 65 29 0d | 15 d6 19 f4 20 31 20 3d |w byte).|.... 1 =|
|000048c0| 20 72 69 67 68 74 2c 20 | 32 20 3d 20 6c 65 66 74 | right, |2 = left|
|000048d0| 0d 15 e0 2b f4 20 33 20 | 3d 20 6c 65 66 74 20 72 |...+. 3 |= left r|
|000048e0| 65 6c 61 74 69 76 65 20 | 74 6f 20 28 68 69 67 68 |elative |to (high|
|000048f0| 20 62 79 74 65 29 20 69 | 63 6f 6e 0d 15 ea 2c f4 | byte) i|con...,.|
|00004900| 20 34 20 3d 20 72 69 67 | 68 74 20 72 65 6c 61 74 | 4 = rig|ht relat|
|00004910| 69 76 65 20 74 6f 20 28 | 68 69 67 68 20 62 79 74 |ive to (|high byt|
|00004920| 65 29 20 69 63 6f 6e 0d | 15 f4 38 f4 20 35 20 3d |e) icon.|..8. 5 =|
|00004930| 20 6c 65 66 74 2c 20 68 | 69 67 68 20 70 72 69 6f | left, h|igh prio|
|00004940| 72 69 74 79 20 28 68 69 | 67 68 20 62 79 74 65 3d |rity (hi|gh byte=|
|00004950| 70 72 69 6f 72 69 74 79 | 20 76 61 6c 75 65 29 0d |priority| value).|
|00004960| 15 fe 24 f4 20 36 20 3d | 20 6c 65 66 74 2c 20 6c |..$. 6 =| left, l|
|00004970| 6f 77 20 70 72 69 6f 72 | 69 74 79 20 28 64 69 74 |ow prior|ity (dit|
|00004980| 74 6f 29 0d 16 08 25 f4 | 20 37 20 3d 20 72 69 67 |to)...%.| 7 = rig|
|00004990| 68 74 2c 20 6c 6f 77 20 | 70 72 69 6f 72 69 74 79 |ht, low |priority|
|000049a0| 20 28 64 69 74 74 6f 29 | 0d 16 12 26 f4 20 38 20 | (ditto)|...&. 8 |
|000049b0| 3d 20 72 69 67 68 74 2c | 20 68 69 67 68 20 70 72 |= right,| high pr|
|000049c0| 69 6f 72 69 74 79 20 28 | 64 69 74 74 6f 29 0d 16 |iority (|ditto)..|
|000049d0| 1c 38 dd a4 43 72 65 61 | 74 65 49 63 6f 6e 42 61 |.8..Crea|teIconBa|
|000049e0| 72 49 63 6f 6e 28 53 70 | 72 24 2c 74 69 74 6c 65 |rIcon(Sp|r$,title|
|000049f0| 24 2c 70 6f 73 25 29 3a | ea 20 69 63 25 2c 77 25 |$,pos%):|. ic%,w%|
|00004a00| 2c 6d 25 2c 65 25 0d 16 | 26 31 74 69 74 6c 65 24 |,m%,e%..|&1title$|
|00004a10| 3d a4 6d 73 67 74 65 78 | 74 28 74 69 74 6c 65 24 |=.msgtex|t(title$|
|00004a20| 29 3a 62 25 21 30 3d 2d | 28 94 28 70 6f 73 25 29 |):b%!0=-|(.(pos%)|
|00004a30| 20 80 20 26 46 46 29 0d | 16 30 32 62 25 21 34 3d | . &FF).|.02b%!4=|
|00004a40| 30 3a 62 25 21 38 3d 2d | 31 36 3a 62 25 21 31 32 |0:b%!8=-|16:b%!12|
|00004a50| 3d 31 32 2b 31 36 2a a9 | 28 74 69 74 6c 65 24 29 |=12+16*.|(title$)|
|00004a60| 3a 62 25 21 31 36 3d 38 | 38 0d 16 3a 22 e7 62 25 |:b%!16=8|8..:".b%|
|00004a70| 21 31 32 3c 31 32 2b 31 | 36 2a 34 20 8c 20 62 25 |!12<12+1|6*4 . b%|
|00004a80| 21 31 32 3d 31 32 2b 31 | 36 2a 34 0d 16 44 12 e7 |!12=12+1|6*4..D..|
|00004a90| 20 74 69 74 6c 65 24 3c | 3e 22 22 20 8c 0d 16 4e | title$<|>"" ...N|
|00004aa0| 32 20 62 25 21 32 30 3d | 28 31 3c 3c 32 38 29 2b |2 b%!20=|(1<<28)+|
|00004ab0| 28 37 3c 3c 32 34 29 2b | 28 33 3c 3c 31 32 29 2b |(7<<24)+|(3<<12)+|
|00004ac0| 28 25 30 31 30 31 31 29 | 2b 28 31 3c 3c 38 29 0d |(%01011)|+(1<<8).|
|00004ad0| 16 58 1c 20 62 25 21 32 | 34 3d a4 69 6e 64 69 72 |.X. b%!2|4=.indir|
|00004ae0| 65 63 74 28 74 69 74 6c | 65 24 29 0d 16 62 1e 20 |ect(titl|e$)..b. |
|00004af0| 62 25 21 32 38 3d a4 69 | 6e 64 69 72 65 63 74 28 |b%!28=.i|ndirect(|
|00004b00| 22 53 22 2b 53 70 72 24 | 29 0d 16 6c 16 20 62 25 |"S"+Spr$|)..l. b%|
|00004b10| 21 33 32 3d a9 28 74 69 | 74 6c 65 24 29 2b 31 0d |!32=.(ti|tle$)+1.|
|00004b20| 16 76 05 cc 0d 16 80 2b | 20 62 25 21 32 30 3d 28 |.v.....+| b%!20=(|
|00004b30| 31 3c 3c 32 38 29 2b 28 | 37 3c 3c 32 34 29 2b 28 |1<<28)+(|7<<24)+(|
|00004b40| 33 3c 3c 31 32 29 2b 28 | 25 31 31 30 31 30 29 0d |3<<12)+(|%11010).|
|00004b50| 16 8a 12 20 24 28 62 25 | 2b 32 34 29 3d 53 70 72 |... $(b%|+24)=Spr|
|00004b60| 24 0d 16 94 05 cd 0d 16 | 9e 3c c8 99 20 22 57 69 |$.......|.<.. "Wi|
|00004b70| 6d 70 5f 53 70 72 69 74 | 65 4f 70 22 2c 26 31 32 |mp_Sprit|eOp",&12|
|00004b80| 38 2c 2c c0 53 70 72 24 | 2c a7 53 70 72 24 2b 22 |8,,.Spr$|,.Spr$+"|
|00004b90| 2c 22 2c 22 2c 22 29 29 | 20 b8 2c 2c 2c 77 25 2c |,",","))| .,,,w%,|
|00004ba0| 6d 25 0d 16 a8 37 c8 99 | 20 22 58 4f 53 5f 52 65 |m%...7..| "XOS_Re|
|00004bb0| 61 64 4d 6f 64 65 56 61 | 72 69 61 62 6c 65 22 2c |adModeVa|riable",|
|00004bc0| 6d 25 2c 34 20 b8 20 2c | 2c 65 25 3a 77 25 3d 28 |m%,4 . ,|,e%:w%=(|
|00004bd0| 77 25 2b 31 29 3c 3c 65 | 25 0d 16 b2 18 e7 20 77 |w%+1)<<e|%..... w|
|00004be0| 25 3e 62 25 21 31 32 20 | 8c 62 25 21 31 32 3d 77 |%>b%!12 |.b%!12=w|
|00004bf0| 25 0d 16 bc 54 e7 20 28 | 94 28 70 6f 73 25 29 80 |%...T. (|.(pos%).|
|00004c00| 26 46 46 29 3d 33 20 84 | 20 28 94 28 70 6f 73 25 |&FF)=3 .| (.(pos%|
|00004c10| 29 80 26 46 46 29 3d 34 | 20 8c 70 6f 73 25 3d 94 |).&FF)=4| .pos%=.|
|00004c20| 28 70 6f 73 25 29 3e 3e | 38 20 8b 70 6f 73 25 3d |(pos%)>>|8 .pos%=|
|00004c30| 28 94 28 70 6f 73 25 29 | 20 80 20 26 46 46 30 30 |(.(pos%)| . &FF00|
|00004c40| 29 3c 3c 31 36 0d 16 c6 | 26 c8 99 20 22 57 69 6d |)<<16...|&.. "Wim|
|00004c50| 70 5f 43 72 65 61 74 65 | 49 63 6f 6e 22 2c 70 6f |p_Create|Icon",po|
|00004c60| 73 25 2c 62 25 20 b8 20 | 69 63 25 0d 16 d0 08 3d |s%,b% . |ic%....=|
|00004c70| 69 63 25 0d 16 da 05 3a | 0d 16 e4 40 f4 20 46 4e |ic%....:|...@. FN|
|00004c80| 67 65 74 69 63 6f 6e 73 | 74 61 74 65 20 3a 20 52 |geticons|tate : R|
|00004c90| 65 74 75 72 6e 20 2d 31 | 20 69 66 20 69 63 6f 6e |eturn -1| if icon|
|00004ca0| 20 69 73 20 73 65 6c 65 | 63 74 65 64 2c 30 20 6f | is sele|cted,0 o|
|00004cb0| 74 68 65 72 77 69 73 65 | 0d 16 ee 1f dd 20 a4 67 |therwise|..... .g|
|00004cc0| 65 74 69 63 6f 6e 73 74 | 61 74 65 28 77 69 6e 25 |eticonst|ate(win%|
|00004cd0| 2c 69 63 6f 6e 25 29 0d | 16 f8 32 21 62 25 3d 77 |,icon%).|..2!b%=w|
|00004ce0| 69 6e 25 3a 62 25 21 34 | 3d 69 63 6f 6e 25 3a c8 |in%:b%!4|=icon%:.|
|00004cf0| 99 20 22 57 69 6d 70 5f | 47 65 74 49 63 6f 6e 53 |. "Wimp_|GetIconS|
|00004d00| 74 61 74 65 22 2c 2c 62 | 25 0d 17 02 16 3d 28 62 |tate",,b|%....=(b|
|00004d10| 25 21 32 34 3e 3e 32 31 | 20 80 20 31 29 3e 30 0d |%!24>>21| . 1)>0.|
|00004d20| 17 0c 05 3a 0d 17 16 33 | f4 20 50 52 4f 43 69 63 |...:...3|. PROCic|
|00004d30| 6f 6e 73 68 61 64 65 20 | 20 3a 20 75 6e 73 68 61 |onshade | : unsha|
|00004d40| 64 65 2f 73 68 61 64 65 | 2f 74 6f 67 67 6c 65 20 |de/shade|/toggle |
|00004d50| 61 6e 20 69 63 6f 6e 0d | 17 20 35 f4 20 50 52 4f |an icon.|. 5. PRO|
|00004d60| 43 69 63 6f 6e 73 74 61 | 74 65 20 20 3a 20 75 6e |Ciconsta|te : un|
|00004d70| 73 65 6c 65 63 74 2f 73 | 65 6c 65 63 74 2f 74 6f |select/s|elect/to|
|00004d80| 67 67 6c 65 20 61 6e 20 | 69 63 6f 6e 0d 17 2a 38 |ggle an |icon..*8|
|00004d90| f4 20 50 52 4f 43 73 65 | 74 69 63 6f 6e 62 69 74 |. PROCse|ticonbit|
|00004da0| 20 3a 20 73 65 74 2f 75 | 6e 73 65 74 2f 74 6f 67 | : set/u|nset/tog|
|00004db0| 67 6c 65 20 61 20 62 69 | 74 20 69 6e 20 61 6e 20 |gle a bi|t in an |
|00004dc0| 69 63 6f 6e 0d 17 34 21 | dd f2 69 63 6f 6e 73 68 |icon..4!|..iconsh|
|00004dd0| 61 64 65 28 77 69 6e 25 | 2c 69 63 6f 6e 25 2c 74 |ade(win%|,icon%,t|
|00004de0| 79 70 65 25 29 0d 17 3e | 24 f2 73 65 74 69 63 6f |ype%)..>|$.setico|
|00004df0| 6e 62 69 74 28 77 69 6e | 25 2c 69 63 6f 6e 25 2c |nbit(win|%,icon%,|
|00004e00| 32 32 2c 74 79 70 65 25 | 29 0d 17 48 05 e1 0d 17 |22,type%|)..H....|
|00004e10| 52 21 dd f2 69 63 6f 6e | 73 74 61 74 65 28 77 69 |R!..icon|state(wi|
|00004e20| 6e 25 2c 69 63 6f 6e 25 | 2c 74 79 70 65 25 29 0d |n%,icon%|,type%).|
|00004e30| 17 5c 24 f2 73 65 74 69 | 63 6f 6e 62 69 74 28 77 |.\$.seti|conbit(w|
|00004e40| 69 6e 25 2c 69 63 6f 6e | 25 2c 32 31 2c 74 79 70 |in%,icon|%,21,typ|
|00004e50| 65 25 29 0d 17 66 05 e1 | 0d 17 70 19 f4 20 74 79 |e%)..f..|..p.. ty|
|00004e60| 70 65 20 3d 20 30 20 66 | 6f 72 20 75 6e 74 69 63 |pe = 0 f|or untic|
|00004e70| 6b 0d 17 7a 21 f4 20 74 | 79 70 65 20 3d 20 31 20 |k..z!. t|ype = 1 |
|00004e80| 66 6f 72 20 74 69 63 6b | 20 28 61 6c 73 6f 20 2d |for tick| (also -|
|00004e90| 31 29 0d 17 84 19 f4 20 | 74 79 70 65 20 3d 20 32 |1)..... |type = 2|
|00004ea0| 20 66 6f 72 20 74 6f 67 | 67 6c 65 0d 17 8e 27 dd | for tog|gle...'.|
|00004eb0| f2 73 65 74 69 63 6f 6e | 62 69 74 28 77 69 6e 25 |.seticon|bit(win%|
|00004ec0| 2c 69 63 6f 6e 25 2c 62 | 69 74 25 2c 74 79 70 65 |,icon%,b|it%,type|
|00004ed0| 25 29 0d 17 98 0b ea 20 | 73 25 2c 74 25 0d 17 a2 |%)..... |s%,t%...|
|00004ee0| 0e c8 8e 20 74 79 70 65 | 25 20 ca 0d 17 ac 1e 20 |... type|% ..... |
|00004ef0| c9 20 30 3a 73 25 3d 30 | 3c 3c 62 69 74 25 3a 74 |. 0:s%=0|<<bit%:t|
|00004f00| 25 3d 31 3c 3c 62 69 74 | 25 0d 17 b6 21 20 c9 20 |%=1<<bit|%...! . |
|00004f10| 2d 31 2c 31 3a 73 25 3d | 31 3c 3c 62 69 74 25 3a |-1,1:s%=|1<<bit%:|
|00004f20| 74 25 3d 31 3c 3c 62 69 | 74 25 0d 17 c0 1e 20 c9 |t%=1<<bi|t%.... .|
|00004f30| 20 32 3a 73 25 3d 31 3c | 3c 62 69 74 25 3a 74 25 | 2:s%=1<|<bit%:t%|
|00004f40| 3d 30 3c 3c 62 69 74 25 | 0d 17 ca 05 cb 0d 17 d4 |=0<<bit%|........|
|00004f50| 29 62 25 21 30 3d 77 69 | 6e 25 3a 62 25 21 34 3d |)b%!0=wi|n%:b%!4=|
|00004f60| 69 63 6f 6e 25 3a 62 25 | 21 38 3d 73 25 3a 62 25 |icon%:b%|!8=s%:b%|
|00004f70| 21 31 32 3d 74 25 0d 17 | de 1e c8 99 20 22 57 69 |!12=t%..|.... "Wi|
|00004f80| 6d 70 5f 53 65 74 49 63 | 6f 6e 53 74 61 74 65 22 |mp_SetIc|onState"|
|00004f90| 2c 2c 62 25 0d 17 e8 05 | e1 0d 17 f2 05 3a 0d 17 |,,b%....|.....:..|
|00004fa0| fc 39 f4 20 50 52 4f 43 | 70 72 65 73 73 69 63 6f |.9. PROC|pressico|
|00004fb0| 6e 20 20 3a 20 4d 61 6b | 65 20 74 68 65 20 69 63 |n : Mak|e the ic|
|00004fc0| 6f 6e 20 70 72 65 73 73 | 65 64 20 61 6e 64 20 72 |on press|ed and r|
|00004fd0| 65 6c 65 61 73 65 64 0d | 18 06 33 f4 20 50 52 4f |eleased.|..3. PRO|
|00004fe0| 43 72 65 64 72 61 77 69 | 63 6f 6e 20 3a 20 46 6f |Credrawi|con : Fo|
|00004ff0| 72 63 65 20 74 68 65 20 | 72 65 64 72 61 77 20 6f |rce the |redraw o|
|00005000| 66 20 74 68 65 20 69 63 | 6f 6e 0d 18 10 1b dd f2 |f the ic|on......|
|00005010| 70 72 65 73 73 69 63 6f | 6e 28 77 69 6e 25 2c 69 |pressico|n(win%,i|
|00005020| 63 6f 6e 25 29 0d 18 1a | 25 ea 20 74 25 3a f2 73 |con%)...|%. t%:.s|
|00005030| 65 74 69 63 6f 6e 62 69 | 74 28 77 69 6e 25 2c 69 |eticonbi|t(win%,i|
|00005040| 63 6f 6e 25 2c 32 31 2c | 31 29 0d 18 24 30 74 25 |con%,21,|1)..$0t%|
|00005050| 3d 91 3a f5 3a fd 91 3e | 74 25 2b 31 35 3a f2 73 |=.:.:..>|t%+15:.s|
|00005060| 65 74 69 63 6f 6e 62 69 | 74 28 77 69 6e 25 2c 69 |eticonbi|t(win%,i|
|00005070| 63 6f 6e 25 2c 32 31 2c | 30 29 0d 18 2e 05 e1 0d |con%,21,|0)......|
|00005080| 18 38 1c dd f2 72 65 64 | 72 61 77 69 63 6f 6e 28 |.8...red|rawicon(|
|00005090| 77 69 6e 25 2c 69 63 6f | 6e 25 29 0d 18 42 40 77 |win%,ico|n%)..B@w|
|000050a0| 69 6e 25 2b 3d 77 69 6e | 25 3d 2d 31 3a 21 62 25 |in%+=win|%=-1:!b%|
|000050b0| 3d 77 69 6e 25 3a 62 25 | 21 34 3d 69 63 6f 6e 25 |=win%:b%|!4=icon%|
|000050c0| 3a c8 99 20 22 57 69 6d | 70 5f 47 65 74 49 63 6f |:.. "Wim|p_GetIco|
|000050d0| 6e 53 74 61 74 65 22 2c | 2c 62 25 0d 18 4c 35 c8 |nState",|,b%..L5.|
|000050e0| 99 20 22 57 69 6d 70 5f | 46 6f 72 63 65 52 65 64 |. "Wimp_|ForceRed|
|000050f0| 72 61 77 22 2c 77 69 6e | 25 2c 62 25 21 38 2c 62 |raw",win|%,b%!8,b|
|00005100| 25 21 31 32 2c 62 25 21 | 31 36 2c 62 25 21 32 30 |%!12,b%!|16,b%!20|
|00005110| 0d 18 56 05 e1 0d 18 60 | 05 3a 0d 18 6a 3c f4 20 |..V....`|.:..j<. |
|00005120| 46 4e 67 65 74 69 63 6f | 6e 74 65 78 74 20 20 20 |FNgetico|ntext |
|00005130| 3a 20 72 65 74 75 72 6e | 20 69 63 6f 6e 73 20 74 |: return| icons t|
|00005140| 65 78 74 20 73 74 72 69 | 6e 67 20 28 6f 72 20 73 |ext stri|ng (or s|
|00005150| 70 72 69 74 65 29 0d 18 | 74 39 f4 20 50 52 4f 43 |prite)..|t9. PROC|
|00005160| 73 65 74 69 63 6f 6e 74 | 65 78 74 20 3a 20 73 65 |seticont|ext : se|
|00005170| 74 20 69 63 6f 6e 73 20 | 74 65 78 74 20 73 74 72 |t icons |text str|
|00005180| 69 6e 67 20 28 6f 72 20 | 73 70 72 69 74 65 29 0d |ing (or |sprite).|
|00005190| 18 7e 1d dd a4 67 65 74 | 69 63 6f 6e 74 65 78 74 |.~...get|icontext|
|000051a0| 28 77 69 6e 25 2c 69 63 | 6f 6e 25 29 0d 18 88 33 |(win%,ic|on%)...3|
|000051b0| 62 25 21 30 3d 77 69 6e | 25 3a 62 25 21 34 3d 69 |b%!0=win|%:b%!4=i|
|000051c0| 63 6f 6e 25 3a c8 99 20 | 22 57 69 6d 70 5f 47 65 |con%:.. |"Wimp_Ge|
|000051d0| 74 49 63 6f 6e 53 74 61 | 74 65 22 2c 2c 62 25 0d |tIconSta|te",,b%.|
|000051e0| 18 92 2a e7 20 28 28 62 | 25 21 32 34 29 20 80 20 |..*. ((b|%!24) . |
|000051f0| 26 31 30 30 29 3d 30 20 | 8c 3d a4 73 74 72 69 6e |&100)=0 |.=.strin|
|00005200| 67 30 28 62 25 2b 32 38 | 29 0d 18 9c 14 3d a4 73 |g0(b%+28|)....=.s|
|00005210| 74 72 69 6e 67 30 28 62 | 25 21 32 38 29 0d 18 a6 |tring0(b|%!28)...|
|00005220| 28 dd f2 73 65 74 69 63 | 6f 6e 74 65 78 74 28 77 |(..setic|ontext(w|
|00005230| 69 6e 25 2c 69 63 6f 6e | 25 2c 74 65 78 74 24 29 |in%,icon|%,text$)|
|00005240| 3a ea 20 69 25 0d 18 b0 | 38 74 65 78 74 24 3d a4 |:. i%...|8text$=.|
|00005250| 6d 73 67 74 65 78 74 28 | 74 65 78 74 24 29 3a c8 |msgtext(|text$):.|
|00005260| 99 20 22 57 69 6d 70 5f | 47 65 74 43 61 72 65 74 |. "Wimp_|GetCaret|
|00005270| 50 6f 73 69 74 69 6f 6e | 22 2c 2c 62 25 0d 18 ba |Position|",,b%...|
|00005280| 20 69 25 3d 28 21 62 25 | 3d 77 69 6e 25 29 20 80 | i%=(!b%|=win%) .|
|00005290| 20 28 69 63 6f 6e 25 3d | 62 25 21 34 29 0d 18 c4 | (icon%=|b%!4)...|
|000052a0| 33 62 25 21 30 3d 77 69 | 6e 25 3a 62 25 21 34 3d |3b%!0=wi|n%:b%!4=|
|000052b0| 69 63 6f 6e 25 3a c8 99 | 20 22 57 69 6d 70 5f 47 |icon%:..| "Wimp_G|
|000052c0| 65 74 49 63 6f 6e 53 74 | 61 74 65 22 2c 2c 62 25 |etIconSt|ate",,b%|
|000052d0| 0d 18 ce 47 e7 20 28 28 | 62 25 21 32 34 29 20 80 |...G. ((|b%!24) .|
|000052e0| 20 26 31 30 30 29 3d 30 | 20 8c 20 85 20 26 38 30 | &100)=0| . . &80|
|000052f0| 33 2c 22 49 63 6f 6e 20 | 69 73 6e 27 74 20 69 6e |3,"Icon |isn't in|
|00005300| 64 69 72 65 63 74 65 64 | 20 28 23 22 2b c3 69 63 |directed| (#"+.ic|
|00005310| 6f 6e 25 2b 22 29 22 0d | 18 d8 1e e7 20 a4 73 74 |on%+")".|.... .st|
|00005320| 72 69 6e 67 30 28 62 25 | 21 32 38 29 3c 3e 74 65 |ring0(b%|!28)<>te|
|00005330| 78 74 24 20 8c 0d 18 e2 | 54 20 e7 20 a9 28 74 65 |xt$ ....|T . .(te|
|00005340| 78 74 24 29 3c 62 25 21 | 33 36 20 8c 24 28 62 25 |xt$)<b%!|36 .$(b%|
|00005350| 21 32 38 29 3d 74 65 78 | 74 24 20 8b 85 20 26 38 |!28)=tex|t$ .. &8|
|00005360| 30 33 2c 22 54 65 78 74 | 20 74 6f 6f 20 6c 6f 6e |03,"Text| too lon|
|00005370| 67 20 66 6f 72 20 69 63 | 6f 6e 20 28 23 22 2b c3 |g for ic|on (#"+.|
|00005380| 69 63 6f 6e 25 2b 22 29 | 22 0d 18 ec 42 20 21 62 |icon%+")|"...B !b|
|00005390| 25 3d 77 69 6e 25 3a 62 | 25 21 34 3d 69 63 6f 6e |%=win%:b|%!4=icon|
|000053a0| 25 3a 62 25 21 38 3d 30 | 3a 62 25 21 31 32 3d 30 |%:b%!8=0|:b%!12=0|
|000053b0| 3a c8 99 20 22 57 69 6d | 70 5f 53 65 74 49 63 6f |:.. "Wim|p_SetIco|
|000053c0| 6e 53 74 61 74 65 22 2c | 2c 62 25 0d 18 f6 52 20 |nState",|,b%...R |
|000053d0| e7 20 69 25 20 80 20 28 | 62 25 21 32 34 20 80 20 |. i% . (|b%!24 . |
|000053e0| 31 29 3d 31 20 8c c8 99 | 20 22 57 69 6d 70 5f 53 |1)=1 ...| "Wimp_S|
|000053f0| 65 74 43 61 72 65 74 50 | 6f 73 69 74 69 6f 6e 22 |etCaretP|osition"|
|00005400| 2c 77 69 6e 25 2c 69 63 | 6f 6e 25 2c 2d 31 2c 2d |,win%,ic|on%,-1,-|
|00005410| 31 2c 2d 31 2c a9 28 74 | 65 78 74 24 29 0d 19 00 |1,-1,.(t|ext$)...|
|00005420| 05 cd 0d 19 0a 05 e1 0d | 19 14 05 3a 0d 19 1e 37 |........|...:...7|
|00005430| f4 20 46 4e 67 65 74 69 | 63 6f 6e 76 61 6c 69 64 |. FNgeti|convalid|
|00005440| 20 20 20 3a 20 72 65 74 | 75 72 6e 20 69 63 6f 6e | : ret|urn icon|
|00005450| 73 20 76 61 6c 69 64 61 | 74 69 6f 6e 20 73 74 72 |s valida|tion str|
|00005460| 69 6e 67 0d 19 28 34 f4 | 20 50 52 4f 43 73 65 74 |ing..(4.| PROCset|
|00005470| 69 63 6f 6e 76 61 6c 69 | 64 20 3a 20 73 65 74 20 |iconvali|d : set |
|00005480| 69 63 6f 6e 73 20 76 61 | 6c 69 64 61 74 69 6f 6e |icons va|lidation|
|00005490| 20 73 74 72 69 6e 67 0d | 19 32 3d f4 20 52 65 6d | string.|.2=. Rem|
|000054a0| 65 6d 62 65 72 20 6e 6f | 74 20 74 6f 20 65 78 63 |ember no|t to exc|
|000054b0| 65 65 64 20 74 68 65 20 | 6f 72 69 67 69 6e 61 6c |eed the |original|
|000054c0| 20 76 61 6c 69 64 61 74 | 69 6f 6e 20 73 74 72 69 | validat|ion stri|
|000054d0| 6e 67 27 73 0d 19 3c 0d | f4 20 6c 65 6e 67 74 68 |ng's..<.|. length|
|000054e0| 2e 0d 19 46 1e dd a4 67 | 65 74 69 63 6f 6e 76 61 |...F...g|eticonva|
|000054f0| 6c 69 64 28 77 69 6e 25 | 2c 69 63 6f 6e 25 29 0d |lid(win%|,icon%).|
|00005500| 19 50 33 62 25 21 30 3d | 77 69 6e 25 3a 62 25 21 |.P3b%!0=|win%:b%!|
|00005510| 34 3d 69 63 6f 6e 25 3a | c8 99 20 22 57 69 6d 70 |4=icon%:|.. "Wimp|
|00005520| 5f 47 65 74 49 63 6f 6e | 53 74 61 74 65 22 2c 2c |_GetIcon|State",,|
|00005530| 62 25 0d 19 5a 45 e7 20 | 28 28 62 25 21 32 34 29 |b%..ZE. |((b%!24)|
|00005540| 20 80 20 26 31 30 30 29 | 3d 30 20 85 20 26 38 30 | . &100)|=0 . &80|
|00005550| 33 2c 22 49 63 6f 6e 20 | 69 73 6e 27 74 20 69 6e |3,"Icon |isn't in|
|00005560| 64 69 72 65 63 74 65 64 | 20 28 23 22 2b c3 69 63 |directed| (#"+.ic|
|00005570| 6f 6e 25 2b 22 29 22 0d | 19 64 14 3d a4 73 74 72 |on%+")".|.d.=.str|
|00005580| 69 6e 67 30 28 62 25 21 | 33 32 29 0d 19 6e 24 dd |ing0(b%!|32)..n$.|
|00005590| f2 73 65 74 69 63 6f 6e | 76 61 6c 69 64 28 77 69 |.seticon|valid(wi|
|000055a0| 6e 25 2c 69 63 6f 6e 25 | 2c 74 65 78 74 24 29 0d |n%,icon%|,text$).|
|000055b0| 19 78 33 62 25 21 30 3d | 77 69 6e 25 3a 62 25 21 |.x3b%!0=|win%:b%!|
|000055c0| 34 3d 69 63 6f 6e 25 3a | c8 99 20 22 57 69 6d 70 |4=icon%:|.. "Wimp|
|000055d0| 5f 47 65 74 49 63 6f 6e | 53 74 61 74 65 22 2c 2c |_GetIcon|State",,|
|000055e0| 62 25 0d 19 82 47 e7 20 | 28 28 62 25 21 32 34 29 |b%...G. |((b%!24)|
|000055f0| 20 80 20 26 31 30 30 29 | 3d 30 20 8c 20 85 20 26 | . &100)|=0 . . &|
|00005600| 38 30 33 2c 22 49 63 6f | 6e 20 69 73 6e 27 74 20 |803,"Ico|n isn't |
|00005610| 69 6e 64 69 72 65 63 74 | 65 64 20 28 23 22 2b c3 |indirect|ed (#"+.|
|00005620| 69 63 6f 6e 25 2b 22 29 | 22 0d 19 8c 2a 24 28 62 |icon%+")|"...*$(b|
|00005630| 25 21 33 32 29 3d 74 65 | 78 74 24 3a f2 72 65 64 |%!32)=te|xt$:.red|
|00005640| 72 61 77 69 63 6f 6e 28 | 77 69 6e 25 2c 69 63 6f |rawicon(|win%,ico|
|00005650| 6e 25 29 0d 19 96 05 e1 | 0d 19 a0 05 3a 0d 19 aa |n%).....|....:...|
|00005660| 25 f4 20 50 52 4f 43 64 | 72 61 67 69 63 6f 6e 20 |%. PROCd|ragicon |
|00005670| 3a 20 53 74 61 72 74 20 | 61 20 64 72 61 67 20 62 |: Start |a drag b|
|00005680| 6f 78 0d 19 b4 43 f4 20 | 62 6f 75 6e 64 25 20 73 |ox...C. |bound% s|
|00005690| 68 6f 75 6c 64 20 62 65 | 20 54 52 55 45 20 69 66 |hould be| TRUE if|
|000056a0| 20 79 6f 75 20 77 69 73 | 68 20 74 68 65 20 69 63 | you wis|h the ic|
|000056b0| 6f 6e 20 74 6f 20 73 74 | 61 79 20 77 69 74 68 69 |on to st|ay withi|
|000056c0| 6e 20 74 68 65 0d 19 be | 0c f4 20 77 69 6e 64 6f |n the...|.. windo|
|000056d0| 77 0d 19 c8 21 dd f2 64 | 72 61 67 69 63 6f 6e 28 |w...!..d|ragicon(|
|000056e0| 77 69 6e 25 2c 69 63 6f | 6e 25 2c 62 6f 75 6e 64 |win%,ico|n%,bound|
|000056f0| 25 29 0d 19 d2 29 21 62 | 25 3d 77 69 6e 25 3a c8 |%)...)!b|%=win%:.|
|00005700| 99 20 22 57 69 6d 70 5f | 47 65 74 57 69 6e 64 6f |. "Wimp_|GetWindo|
|00005710| 77 53 74 61 74 65 22 2c | 2c 62 25 0d 19 dc 17 73 |wState",|,b%....s|
|00005720| 78 25 3d 62 25 21 32 30 | 3a 73 79 25 3d 62 25 21 |x%=b%!20|:sy%=b%!|
|00005730| 32 34 0d 19 e6 39 78 30 | 25 3d 62 25 21 34 2d 73 |24...9x0|%=b%!4-s|
|00005740| 78 25 3a 79 30 25 3d 62 | 25 21 38 2d 73 79 25 3a |x%:y0%=b|%!8-sy%:|
|00005750| 78 31 25 3d 62 25 21 31 | 32 2d 73 78 25 3a 79 31 |x1%=b%!1|2-sx%:y1|
|00005760| 25 3d 62 25 21 31 36 2d | 73 79 25 0d 19 f0 32 21 |%=b%!16-|sy%...2!|
|00005770| 62 25 3d 77 69 6e 25 3a | 62 25 21 34 3d 69 63 6f |b%=win%:|b%!4=ico|
|00005780| 6e 25 3a c8 99 20 22 57 | 69 6d 70 5f 47 65 74 49 |n%:.. "W|imp_GetI|
|00005790| 63 6f 6e 53 74 61 74 65 | 22 2c 2c 62 25 0d 19 fa |conState|",,b%...|
|000057a0| 2e 62 25 21 38 2b 3d 78 | 30 25 3a 62 25 21 31 32 |.b%!8+=x|0%:b%!12|
|000057b0| 2b 3d 79 31 25 3a 62 25 | 21 31 36 2b 3d 78 30 25 |+=y1%:b%|!16+=x0%|
|000057c0| 3a 62 25 21 32 30 2b 3d | 79 31 25 0d 1a 04 10 e7 |:b%!20+=|y1%.....|
|000057d0| 20 62 6f 75 6e 64 25 3d | b9 20 8c 0d 1a 0e 3c 20 | bound%=|. ....< |
|000057e0| 62 25 21 32 34 3d 78 30 | 25 2b 73 78 25 3a 62 25 |b%!24=x0|%+sx%:b%|
|000057f0| 21 32 38 3d 79 30 25 2b | 73 79 25 3a 62 25 21 33 |!28=y0%+|sy%:b%!3|
|00005800| 32 3d 78 31 25 2b 73 78 | 25 3a 62 25 21 33 36 3d |2=x1%+sx|%:b%!36=|
|00005810| 79 31 25 2b 73 79 25 0d | 1a 18 05 cc 0d 1a 22 2f |y1%+sy%.|......"/|
|00005820| 20 62 25 21 34 30 3d 34 | 3a 62 25 21 34 34 3d 35 | b%!40=4|:b%!44=5|
|00005830| 3a 62 25 21 34 38 3d 31 | 31 3a 62 25 21 35 32 3d |:b%!48=1|1:b%!52=|
|00005840| 31 32 3a 62 25 21 35 36 | 3d 2d 31 0d 1a 2c 29 20 |12:b%!56|=-1..,) |
|00005850| c8 99 20 22 4f 53 5f 52 | 65 61 64 56 64 75 56 61 |.. "OS_R|eadVduVa|
|00005860| 72 69 61 62 6c 65 73 22 | 2c 62 25 2b 34 30 2c 62 |riables"|,b%+40,b|
|00005870| 25 2b 34 30 0d 1a 36 3e | 20 62 25 21 32 34 3d 30 |%+40..6>| b%!24=0|
|00005880| 3a 62 25 21 32 38 3d 30 | 3a 62 25 21 33 32 3d 62 |:b%!28=0|:b%!32=b|
|00005890| 25 21 34 38 2b 31 3c 3c | 62 25 21 34 30 3a 62 25 |%!48+1<<|b%!40:b%|
|000058a0| 21 33 36 3d 62 25 21 35 | 32 2b 31 3c 3c 62 25 21 |!36=b%!5|2+1<<b%!|
|000058b0| 34 34 0d 1a 40 05 cd 0d | 1a 4a 16 62 25 21 34 3d |44..@...|.J.b%!4=|
|000058c0| 35 3a f4 20 44 72 61 67 | 20 74 79 70 65 0d 1a 54 |5:. Drag| type..T|
|000058d0| 19 c8 99 20 22 57 69 6d | 70 5f 44 72 61 67 42 6f |... "Wim|p_DragBo|
|000058e0| 78 22 2c 2c 62 25 0d 1a | 5e 05 e1 0d 1a 68 05 3a |x",,b%..|^....h.:|
|000058f0| 0d 1a 72 39 f4 20 50 52 | 4f 43 64 72 61 67 73 61 |..r9. PR|OCdragsa|
|00005900| 76 65 20 3a 20 49 6e 69 | 74 69 61 74 65 20 61 20 |ve : Ini|tiate a |
|00005910| 73 61 76 65 20 61 66 74 | 65 72 20 44 72 61 67 44 |save aft|er DragD|
|00005920| 6f 6e 65 20 65 76 65 6e | 74 0d 1a 7c 26 dd f2 64 |one even|t..|&..d|
|00005930| 72 61 67 73 61 76 65 28 | 77 69 6e 25 2c 69 63 6f |ragsave(|win%,ico|
|00005940| 6e 25 2c 74 79 70 65 25 | 2c 73 69 7a 65 25 29 0d |n%,type%|,size%).|
|00005950| 1a 86 33 f2 67 65 74 70 | 74 72 70 6f 73 28 78 2c |..3.getp|trpos(x,|
|00005960| 79 2c 77 69 6e 2c 69 63 | 6f 6e 29 3a f4 20 47 65 |y,win,ic|on):. Ge|
|00005970| 74 20 64 72 61 67 20 74 | 6f 20 6c 6f 63 61 74 69 |t drag t|o locati|
|00005980| 6f 6e 0d 1a 90 2a 66 24 | 3d a4 6c 65 61 66 6e 61 |on...*f$|=.leafna|
|00005990| 6d 65 28 a4 67 65 74 69 | 63 6f 6e 74 65 78 74 28 |me(.geti|context(|
|000059a0| 77 69 6e 25 2c 69 63 6f | 6e 25 29 29 0d 1a 9a 17 |win%,ico|n%))....|
|000059b0| 21 62 25 3d 28 34 38 2b | a9 28 66 24 29 29 20 80 |!b%=(48+|.(f$)) .|
|000059c0| 20 ac 33 0d 1a a4 38 62 | 25 21 31 32 3d 30 3a 62 | .3...8b|%!12=0:b|
|000059d0| 25 21 31 36 3d 31 3a 62 | 25 21 32 30 3d 77 69 6e |%!16=1:b|%!20=win|
|000059e0| 3a 62 25 21 32 34 3d 69 | 63 6f 6e 3a 62 25 21 32 |:b%!24=i|con:b%!2|
|000059f0| 38 3d 78 3a 62 25 21 33 | 32 3d 79 0d 1a ae 27 62 |8=x:b%!3|2=y...'b|
|00005a00| 25 21 33 36 3d 73 69 7a | 65 25 3a 62 25 21 34 30 |%!36=siz|e%:b%!40|
|00005a10| 3d 74 79 70 65 25 3a 24 | 28 62 25 2b 34 34 29 3d |=type%:$|(b%+44)=|
|00005a20| 66 24 0d 1a b8 28 c8 99 | 20 22 57 69 6d 70 5f 53 |f$...(..| "Wimp_S|
|00005a30| 65 6e 64 4d 65 73 73 61 | 67 65 22 2c 31 38 2c 62 |endMessa|ge",18,b|
|00005a40| 25 2c 77 69 6e 2c 69 63 | 6f 6e 0d 1a c2 05 e1 0d |%,win,ic|on......|
|00005a50| 1a cc 05 3a 0d 1a d6 37 | f4 20 2a 2a 2a 2a 2a 2a |...:...7|. ******|
|00005a60| 2a 2a 20 21 48 65 6c 70 | 20 72 65 73 70 6f 6e 73 |** !Help| respons|
|00005a70| 69 76 65 20 72 6f 75 74 | 69 6e 65 73 20 2a 2a 2a |ive rout|ines ***|
|00005a80| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 0d 1a e0 05 3a |********|***....:|
|00005a90| 0d 1a ea 38 f4 20 50 52 | 4f 43 72 65 61 64 68 65 |...8. PR|OCreadhe|
|00005aa0| 6c 70 20 3a 20 72 65 61 | 64 20 68 65 6c 70 20 66 |lp : rea|d help f|
|00005ab0| 72 6f 6d 20 61 70 70 6c | 69 63 61 74 69 6f 6e 20 |rom appl|ication |
|00005ac0| 61 6e 64 20 73 65 6e 64 | 0d 1a f4 2d f4 20 50 52 |and send|...-. PR|
|00005ad0| 4f 43 73 65 6e 64 68 65 | 6c 70 20 3a 20 73 65 6e |OCsendhe|lp : sen|
|00005ae0| 64 20 68 65 6c 70 20 74 | 6f 20 61 70 70 6c 69 63 |d help t|o applic|
|00005af0| 61 74 69 6f 6e 0d 1a fe | 1f f4 20 5c 53 20 66 6f |ation...|.. \S fo|
|00005b00| 72 20 22 43 6c 69 63 6b | 20 53 45 4c 45 43 54 20 |r "Click| SELECT |
|00005b10| 74 6f 20 22 0d 1b 08 29 | f4 20 5c 52 20 66 6f 72 |to "...)|. \R for|
|00005b20| 20 22 4d 6f 76 65 20 74 | 68 65 20 70 6f 69 6e 74 | "Move t|he point|
|00005b30| 65 72 20 72 69 67 68 74 | 20 74 6f 20 22 0d 1b 12 |er right| to "...|
|00005b40| 1f f4 20 5c 41 20 66 6f | 72 20 22 43 6c 69 63 6b |.. \A fo|r "Click|
|00005b50| 20 41 44 4a 55 53 54 20 | 74 6f 20 22 0d 1b 1c 1b | ADJUST |to "....|
|00005b60| f4 20 5c 54 20 66 6f 72 | 20 22 54 68 69 73 20 69 |. \T for| "This i|
|00005b70| 73 20 74 68 65 20 22 0d | 1b 26 31 f4 20 5c 47 20 |s the ".|.&1. \G |
|00005b80| 66 6f 72 20 22 54 68 69 | 73 20 6f 70 74 69 6f 6e |for "Thi|s option|
|00005b90| 20 69 73 20 67 72 65 79 | 65 64 20 6f 75 74 20 62 | is grey|ed out b|
|00005ba0| 65 63 61 75 73 65 20 22 | 0d 1b 30 1e f4 20 5c 57 |ecause "|..0.. \W|
|00005bb0| 20 66 6f 72 20 22 54 68 | 69 73 20 77 69 6e 64 6f | for "Th|is windo|
|00005bc0| 77 20 69 73 20 22 0d 1b | 3a 1e f4 20 5c 44 20 66 |w is "..|:.. \D f|
|00005bd0| 6f 72 20 22 44 72 61 67 | 20 53 45 4c 45 43 54 20 |or "Drag| SELECT |
|00005be0| 74 6f 20 22 0d 1b 44 1e | f4 20 5c 64 20 66 6f 72 |to "..D.|. \d for|
|00005bf0| 20 22 44 72 61 67 20 41 | 44 4a 55 53 54 20 74 6f | "Drag A|DJUST to|
|00005c00| 20 22 0d 1b 4e 15 f4 20 | 5c 77 20 66 6f 72 20 22 | "..N.. |\w for "|
|00005c10| 77 69 6e 64 6f 77 22 0d | 1b 58 15 f4 20 5c 73 20 |window".|.X.. \s |
|00005c20| 66 6f 72 20 22 53 45 4c | 45 43 54 22 0d 1b 62 15 |for "SEL|ECT"..b.|
|00005c30| f4 20 5c 61 20 66 6f 72 | 20 22 41 44 4a 55 53 54 |. \a for| "ADJUST|
|00005c40| 22 0d 1b 6c 13 f4 20 7c | 4d 20 66 6f 72 20 72 65 |"..l.. ||M for re|
|00005c50| 74 75 72 6e 0d 1b 76 21 | f4 20 a4 53 74 72 69 6e |turn..v!|. .Strin|
|00005c60| 67 24 a4 20 74 6f 20 69 | 6e 63 6c 75 64 65 20 73 |g$. to i|nclude s|
|00005c70| 74 72 69 6e 67 0d 1b 80 | 29 f4 20 3e 20 70 72 65 |tring...|). > pre|
|00005c80| 66 69 78 20 74 6f 20 6c | 6f 6f 6b 20 75 70 20 69 |fix to l|ook up i|
|00005c90| 6e 20 6d 65 73 73 61 67 | 65 20 66 69 6c 65 0d 1b |n messag|e file..|
|00005ca0| 8a 3e f4 20 4d 65 6e 75 | 20 68 65 6c 70 20 69 63 |.>. Menu| help ic|
|00005cb0| 6f 6e 73 20 77 69 6c 6c | 20 62 65 20 73 65 61 72 |ons will| be sear|
|00005cc0| 63 68 65 64 20 61 73 20 | 48 4d 3c 6d 65 6e 75 73 |ched as |HM<menus|
|00005cd0| 74 72 69 6e 67 3e 2c 20 | 77 69 74 68 0d 1b 94 1e |tring>, |with....|
|00005ce0| f4 20 73 70 61 63 65 73 | 20 72 65 70 6c 61 63 65 |. spaces| replace|
|00005cf0| 64 20 77 69 74 68 20 5f | 27 73 0d 1b 9e 2f f4 20 |d with _|'s.../. |
|00005d00| 4e 42 20 69 66 20 6e 6f | 20 66 75 6c 6c 20 73 74 |NB if no| full st|
|00005d10| 6f 70 20 74 68 65 6e 20 | 6f 6e 65 20 77 69 6c 6c |op then |one will|
|00005d20| 20 62 65 20 61 64 64 65 | 64 0d 1b a8 17 f4 20 46 | be adde|d..... F|
|00005d30| 6f 72 6d 61 74 20 66 6f | 72 20 68 65 6c 70 20 3a |ormat fo|r help :|
|00005d40| 0d 1b b2 28 f4 20 20 7b | 20 77 69 6e 64 6f 77 2c |...(. {| window,|
|00005d50| 68 65 6c 70 20 6d 65 73 | 73 61 67 65 20 66 6f 72 |help mes|sage for|
|00005d60| 20 6e 6f 20 69 63 6f 6e | 0d 1b bc 2a f4 20 20 20 | no icon|...*. |
|00005d70| 20 7b 20 69 63 6f 6e 20 | 6e 75 6d 62 65 72 2c 20 | { icon |number, |
|00005d80| 6d 65 73 73 61 67 65 20 | 7d 20 72 65 70 65 61 74 |message |} repeat|
|00005d90| 65 64 0d 1b c6 11 f4 20 | 20 7d 20 72 65 70 65 61 |ed..... | } repea|
|00005da0| 74 65 64 0d 1b d0 2a f4 | 20 20 7b 20 2d 32 2c 20 |ted...*.| { -2, |
|00005db0| 7b 69 63 6f 6e 62 61 72 | 20 6d 65 73 73 61 67 65 |{iconbar| message|
|00005dc0| 7d 20 7d 20 62 79 20 63 | 68 6f 69 63 65 0d 1b da |} } by c|hoice...|
|00005dd0| 13 f4 20 20 2d 31 2c 2d | 31 20 74 6f 20 65 6e 64 |.. -1,-|1 to end|
|00005de0| 0d 1b e4 2f f4 20 4e 42 | 20 77 69 6e 64 6f 77 20 |.../. NB| window |
|00005df0| 73 75 62 6d 65 6e 75 73 | 20 6d 75 73 74 20 68 61 |submenus| must ha|
|00005e00| 76 65 20 68 65 6c 70 20 | 73 74 72 69 6e 67 73 0d |ve help |strings.|
|00005e10| 1b ee 1c f4 20 46 6f 72 | 6d 61 74 20 66 6f 72 20 |.... For|mat for |
|00005e20| 6d 65 6e 75 20 68 65 6c | 70 20 3a 0d 1b f8 3c f4 |menu hel|p :...<.|
|00005e30| 20 20 7b 20 6d 65 6e 75 | 2c 20 2d 31 2c 2d 31 2c | { menu|, -1,-1,|
|00005e40| 2d 31 20 6f 72 20 6d 65 | 6e 75 2c 20 2d 31 2c 30 |-1 or me|nu, -1,0|
|00005e50| 2c 68 65 6c 70 20 66 6f | 72 20 61 6c 6c 20 74 68 |,help fo|r all th|
|00005e60| 65 20 69 74 65 6d 73 0d | 1c 02 1e f4 20 20 20 20 |e items.|.... |
|00005e70| 7b 20 6f 70 74 31 2c 6f | 70 74 32 2c 6f 70 74 33 |{ opt1,o|pt2,opt3|
|00005e80| 2c 68 65 6c 70 0d 1c 0c | 27 f4 20 20 20 6f 72 20 |,help...|'. or |
|00005e90| 2d 31 2c 73 74 72 69 6e | 67 2c 2d 31 2c 68 65 6c |-1,strin|g,-1,hel|
|00005ea0| 70 20 7d 20 72 65 70 65 | 61 74 65 64 0d 1c 16 11 |p } repe|ated....|
|00005eb0| f4 20 20 7d 20 72 65 70 | 65 61 74 65 64 0d 1c 20 |. } rep|eated.. |
|00005ec0| 12 f4 20 20 2d 32 2c 2d | 32 2c 2d 32 2c 2d 32 0d |.. -2,-|2,-2,-2.|
|00005ed0| 1c 2a 1b dd f2 72 65 61 | 64 68 65 6c 70 28 77 69 |.*...rea|dhelp(wi|
|00005ee0| 6e 2c 69 63 6f 6e 2c 74 | 6f 29 0d 1c 34 38 ea 20 |n,icon,t|o)..48. |
|00005ef0| 6c 77 69 6e 2c 76 61 6c | 2c 68 65 6c 70 24 2c 66 |lwin,val|,help$,f|
|00005f00| 6f 75 6e 64 2c 61 24 2c | 6d 24 2c 6d 32 24 2c 6d |ound,a$,|m$,m2$,m|
|00005f10| 68 24 3a 66 6f 75 6e 64 | 3d a3 3a 6c 77 69 6e 3d |h$:found|=.:lwin=|
|00005f20| 2d 31 0d 1c 3e 05 f5 0d | 1c 48 10 20 f3 20 76 61 |-1..>...|.H. . va|
|00005f30| 6c 2c 68 65 6c 70 24 0d | 1c 52 1c 20 e7 20 76 61 |l,help$.|.R. . va|
|00005f40| 6c 3e 28 31 3c 3c 31 36 | 29 20 84 20 76 61 6c 3c |l>(1<<16|) . val<|
|00005f50| 30 20 8c 0d 1c 5c 12 20 | 20 e7 20 6c 77 69 6e 3d |0 ...\. | . lwin=|
|00005f60| 77 69 6e 20 8c 0d 1c 66 | 1f 20 20 20 76 61 6c 3d |win ...f|. val=|
|00005f70| 69 63 6f 6e 3a 68 65 6c | 70 24 3d 22 22 3a 6d 32 |icon:hel|p$="":m2|
|00005f80| 24 3d 6d 24 0d 1c 70 07 | 20 20 cc 0d 1c 7a 18 20 |$=m$..p.| ...z. |
|00005f90| 20 20 6c 77 69 6e 3d 76 | 61 6c 3a 6d 24 3d 68 65 | lwin=v|al:m$=he|
|00005fa0| 6c 70 24 0d 1c 84 07 20 | 20 cd 0d 1c 8e 06 20 cd |lp$.... | ..... .|
|00005fb0| 0d 1c 98 1c 20 e7 20 76 | 61 6c 3d 69 63 6f 6e 20 |.... . v|al=icon |
|00005fc0| 80 20 6c 77 69 6e 3d 77 | 69 6e 20 8c 0d 1c a2 1c |. lwin=w|in .....|
|00005fd0| 20 20 e7 20 69 63 6f 6e | 3d 2d 31 20 84 20 68 65 | . icon|=-1 . he|
|00005fe0| 6c 70 24 3d 22 22 20 8c | 0d 1c ac 26 20 20 20 f2 |lp$="" .|...& .|
|00005ff0| 73 65 6e 64 68 65 6c 70 | 28 a4 6d 73 67 74 65 78 |sendhelp|(.msgtex|
|00006000| 74 28 6d 24 29 2b 22 7c | 4d 22 2c 74 6f 29 0d 1c |t(m$)+"||M",to)..|
|00006010| b6 07 20 20 cc 0d 1c c0 | 39 20 20 20 6d 24 3d a4 |.. ....|9 m$=.|
|00006020| 6d 73 67 74 65 78 74 28 | 6d 24 29 3a e7 20 a7 6d |msgtext(|m$):. .m|
|00006030| 24 2c 22 7c 4d 22 29 3e | 30 20 8c 6d 24 3d c0 6d |$,"|M")>|0 .m$=.m|
|00006040| 24 2c a7 6d 24 2c 22 7c | 4d 22 29 2d 31 29 0d 1c |$,.m$,"||M")-1)..|
|00006050| ca 36 20 20 20 f2 73 65 | 6e 64 68 65 6c 70 28 a4 |.6 .se|ndhelp(.|
|00006060| 6d 73 67 74 65 78 74 28 | 6d 24 29 2b 22 7c 4d 22 |msgtext(|m$)+"|M"|
|00006070| 2b a4 6d 73 67 74 65 78 | 74 28 68 65 6c 70 24 29 |+.msgtex|t(help$)|
|00006080| 2c 74 6f 29 0d 1c d4 07 | 20 20 cd 0d 1c de 0d 20 |,to)....| ..... |
|00006090| 20 66 6f 75 6e 64 3d b9 | 0d 1c e8 06 20 cd 0d 1c | found=.|.... ...|
|000060a0| f2 1a fd 20 68 65 6c 70 | 24 3d 22 2d 31 22 20 84 |... help|$="-1" .|
|000060b0| 20 66 6f 75 6e 64 3d b9 | 0d 1c fc 0f e7 20 ac 20 | found=.|..... . |
|000060c0| 66 6f 75 6e 64 20 8c 0d | 1d 06 42 20 21 6d 65 73 |found ..|..B !mes|
|000060d0| 73 61 67 65 5f 62 75 66 | 66 65 72 25 3d 2d 31 3a |sage_buf|fer%=-1:|
|000060e0| 6d 65 73 73 61 67 65 5f | 62 75 66 66 65 72 25 21 |message_|buffer%!|
|000060f0| 34 3d 2d 31 3a 6d 65 73 | 73 61 67 65 5f 62 75 66 |4=-1:mes|sage_buf|
|00006100| 66 65 72 25 21 38 3d 2d | 31 0d 1d 10 36 20 c8 99 |fer%!8=-|1...6 ..|
|00006110| 20 22 57 69 6d 70 5f 47 | 65 74 4d 65 6e 75 53 74 | "Wimp_G|etMenuSt|
|00006120| 61 74 65 22 2c 31 2c 6d | 65 73 73 61 67 65 5f 62 |ate",1,m|essage_b|
|00006130| 75 66 66 65 72 25 2c 77 | 69 6e 2c 69 63 6f 6e 0d |uffer%,w|in,icon.|
|00006140| 1d 1a 1d 20 e7 20 21 6d | 65 73 73 61 67 65 5f 62 |... . !m|essage_b|
|00006150| 75 66 66 65 72 25 3c 3e | 2d 31 20 8c 0d 1d 24 40 |uffer%<>|-1 ...$@|
|00006160| 20 20 76 61 6c 3d 62 25 | 3a 62 25 3d 6d 65 73 73 | val=b%|:b%=mess|
|00006170| 61 67 65 5f 62 75 66 66 | 65 72 25 3a 6d 68 24 3d |age_buff|er%:mh$=|
|00006180| a4 64 65 63 6f 64 65 6d | 65 6e 75 28 63 75 72 6d |.decodem|enu(curm|
|00006190| 65 6e 75 25 29 3a 62 25 | 3d 76 61 6c 0d 1d 2e 30 |enu%):b%|=val...0|
|000061a0| 20 20 6d 24 3d 6d 68 24 | 3a c8 95 20 a7 6d 24 2c | m$=mh$|:.. .m$,|
|000061b0| 22 20 22 29 3e 30 3a c1 | 6d 24 2c a7 6d 24 2c 22 |" ")>0:.|m$,.m$,"|
|000061c0| 20 22 29 2c 31 29 3d 22 | 5f 22 3a ce 0d 1d 38 1e | "),1)="|_":...8.|
|000061d0| 20 20 68 65 6c 70 24 3d | a4 6d 73 67 74 6f 6b 65 | help$=|.msgtoke|
|000061e0| 6e 28 22 48 4d 22 2b 6d | 24 29 0d 1d 42 18 20 20 |n("HM"+m|$)..B. |
|000061f0| e7 20 68 65 6c 70 24 3c | 3e 22 48 4d 22 2b 6d 24 |. help$<|>"HM"+m$|
|00006200| 20 8c 0d 1d 4c 1a 20 20 | 20 f2 73 65 6e 64 68 65 | ...L. | .sendhe|
|00006210| 6c 70 28 68 65 6c 70 24 | 2c 74 6f 29 0d 1d 56 07 |lp(help$|,to)..V.|
|00006220| 20 20 cc 0d 1d 60 08 20 | 20 20 f5 0d 1d 6a 1c 20 | ...`. | ...j. |
|00006230| 20 20 20 f3 20 6d 24 2c | 76 61 6c 2c 68 65 6c 70 | . m$,|val,help|
|00006240| 24 2c 68 65 6c 70 24 0d | 1d 74 21 20 20 20 fd 20 |$,help$.|.t! . |
|00006250| a0 28 6d 24 29 3d 63 75 | 72 6d 65 6e 75 25 20 84 |.(m$)=cu|rmenu% .|
|00006260| 20 6d 24 3d 22 2d 32 22 | 0d 1d 7e 13 20 20 20 e7 | m$="-2"|..~. .|
|00006270| 20 6d 24 3c 3e 22 2d 32 | 22 20 8c 0d 1d 88 12 20 | m$<>"-2|" ..... |
|00006280| 20 20 20 e7 20 76 61 6c | 3e 2d 31 20 8c 0d 1d 92 | . val|>-1 ....|
|00006290| 24 20 20 20 20 20 f2 73 | 65 6e 64 68 65 6c 70 28 |$ .s|endhelp(|
|000062a0| 68 65 6c 70 24 2c 74 6f | 29 3a 66 6f 75 6e 64 3d |help$,to|):found=|
|000062b0| b9 0d 1d 9c 09 20 20 20 | 20 cc 0d 1d a6 0a 20 20 |..... | ..... |
|000062c0| 20 20 20 f5 0d 1d b0 1d | 20 20 20 20 20 20 f3 20 | .....| . |
|000062d0| 6c 77 69 6e 2c 6d 24 2c | 76 61 6c 2c 68 65 6c 70 |lwin,m$,|val,help|
|000062e0| 24 0d 1d ba 1f 20 20 20 | 20 20 20 e7 20 bb 28 6d |$.... | . .(m|
|000062f0| 24 29 3d 30 20 80 20 6d | 24 3c 3e 22 30 22 20 8c |$)=0 . m|$<>"0" .|
|00006300| 0d 1d c4 30 20 20 20 20 | 20 20 20 e7 20 6d 68 24 |...0 | . mh$|
|00006310| 3d 6d 24 20 8c f2 73 65 | 6e 64 68 65 6c 70 28 68 |=m$ ..se|ndhelp(h|
|00006320| 65 6c 70 24 2c 74 6f 29 | 3a 66 6f 75 6e 64 3d b9 |elp$,to)|:found=.|
|00006330| 0d 1d ce 0b 20 20 20 20 | 20 20 cc 0d 1d d8 57 20 |.... | ....W |
|00006340| 20 20 20 20 20 20 e7 20 | 6c 77 69 6e 3d 6d 65 73 | . |lwin=mes|
|00006350| 73 61 67 65 5f 62 75 66 | 66 65 72 25 21 30 20 80 |sage_buf|fer%!0 .|
|00006360| 20 bb 28 6d 24 29 3d 6d | 65 73 73 61 67 65 5f 62 | .(m$)=m|essage_b|
|00006370| 75 66 66 65 72 25 21 34 | 20 80 20 76 61 6c 3d 6d |uffer%!4| . val=m|
|00006380| 65 73 73 61 67 65 5f 62 | 75 66 66 65 72 25 21 38 |essage_b|uffer%!8|
|00006390| 20 8c 0d 1d e2 27 20 20 | 20 20 20 20 20 20 f2 73 | ....' | .s|
|000063a0| 65 6e 64 68 65 6c 70 28 | 68 65 6c 70 24 2c 74 6f |endhelp(|help$,to|
|000063b0| 29 3a 66 6f 75 6e 64 3d | b9 0d 1d ec 0c 20 20 20 |):found=|..... |
|000063c0| 20 20 20 20 cd 0d 1d f6 | 0b 20 20 20 20 20 20 cd | ....|. .|
|000063d0| 0d 1e 00 29 20 20 20 20 | 20 fd 66 6f 75 6e 64 3d |...) | .found=|
|000063e0| b9 20 84 20 6c 77 69 6e | 3d 2d 32 20 84 20 6c 77 |. . lwin|=-2 . lw|
|000063f0| 69 6e 20 3e 26 38 30 30 | 30 0d 1e 0a 09 20 20 20 |in >&800|0.... |
+--------+-------------------------+-------------------------+--------+--------+
Only 25.0 KB of data is shown above.
