home *** CD-ROM | disk | FTP | other *** search
| Unknown | 1996-10-17 | 33.2 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 36 | 35 20 28 31 37 20 4f 63 |on : 1.6|5 (17 Oc|
|00000040| 74 20 31 39 39 36 29 0d | 00 28 1a f4 20 54 68 69 |t 1996).|.(.. 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 2e 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 e1 0d 00 | aa 05 3a 0d 00 b4 32 f4 |r%=n:...|..:...2.|
|000001e0| 20 46 4e 6c 6f 61 64 74 | 65 6d 70 6c 61 74 65 20 | FNloadt|emplate |
|000001f0| 3a 20 6c 6f 61 64 20 74 | 68 65 20 73 70 65 63 69 |: load t|he speci|
|00000200| 66 69 65 64 20 74 65 6d | 70 6c 61 74 65 0d 00 be |fied tem|plate...|
|00000210| 32 f4 20 73 70 72 62 6c | 6b 25 20 73 68 6f 75 6c |2. sprbl|k% shoul|
|00000220| 64 20 62 65 20 31 20 66 | 6f 72 20 74 68 65 20 73 |d be 1 f|or the s|
|00000230| 74 61 6e 64 61 72 64 20 | 73 70 72 69 74 65 73 0d |tandard |sprites.|
|00000240| 00 c8 30 dd a4 6c 6f 61 | 64 74 65 6d 70 6c 61 74 |..0..loa|dtemplat|
|00000250| 65 28 6e 24 2c 73 70 72 | 62 6c 6b 25 29 3a ea 20 |e(n$,spr|blk%):. |
|00000260| 74 73 69 7a 65 25 2c 62 | 6c 6b 25 2c 6f 6b 25 0d |tsize%,b|lk%,ok%.|
|00000270| 00 d2 30 c8 99 20 22 57 | 69 6d 70 5f 4f 70 65 6e |..0.. "W|imp_Open|
|00000280| 54 65 6d 70 6c 61 74 65 | 22 2c 2c 41 70 70 64 69 |Template|",,Appdi|
|00000290| 72 24 2b 22 2e 54 65 6d | 70 6c 61 74 65 73 22 0d |r$+".Tem|plates".|
|000002a0| 00 dc 30 c8 99 20 22 57 | 69 6d 70 5f 4c 6f 61 64 |..0.. "W|imp_Load|
|000002b0| 54 65 6d 70 6c 61 74 65 | 22 2c 2c 30 2c 2c 2c 2c |Template|",,0,,,,|
|000002c0| 6e 24 2c 30 20 b8 20 2c | 2c 74 73 69 7a 65 25 0d |n$,0 . ,|,tsize%.|
|000002d0| 00 e6 11 de 20 62 6c 6b | 25 20 74 73 69 7a 65 25 |.... blk|% tsize%|
|000002e0| 0d 00 f0 48 c8 99 20 22 | 57 69 6d 70 5f 4c 6f 61 |...H.. "|Wimp_Loa|
|000002f0| 64 54 65 6d 70 6c 61 74 | 65 22 2c 2c 77 73 70 63 |dTemplat|e",,wspc|
|00000300| 25 2c 62 6c 6b 25 2c 62 | 6c 6b 25 20 2b 20 74 73 |%,blk%,b|lk% + ts|
|00000310| 69 7a 65 25 2c 2d 31 2c | 6e 24 2c 30 20 b8 20 2c |ize%,-1,|n$,0 . ,|
|00000320| 2c 2c 2c 2c 2c 6f 6b 25 | 0d 00 fa 1b c8 99 20 22 |,,,,,ok%|...... "|
|00000330| 57 69 6d 70 5f 43 6c 6f | 73 65 54 65 6d 70 6c 61 |Wimp_Clo|seTempla|
|00000340| 74 65 22 0d 01 04 35 e7 | 20 6f 6b 25 3d 30 20 8c |te"...5.| ok%=0 .|
|00000350| 85 20 26 38 30 33 2c 20 | 22 54 65 6d 70 6c 61 74 |. &803, |"Templat|
|00000360| 65 20 66 69 6c 65 20 22 | 2b 6e 24 2b 22 20 6e 6f |e file "|+n$+" no|
|00000370| 74 20 66 6f 75 6e 64 22 | 0d 01 0e 39 77 73 70 63 |t found"|...9wspc|
|00000380| 25 21 36 34 3d 73 70 72 | 62 6c 6b 25 3a c8 99 20 |%!64=spr|blk%:.. |
|00000390| 22 57 69 6d 70 5f 43 72 | 65 61 74 65 57 69 6e 64 |"Wimp_Cr|eateWind|
|000003a0| 6f 77 22 2c 2c 77 73 70 | 63 25 20 b8 20 62 6c 6b |ow",,wsp|c% . blk|
|000003b0| 25 0d 01 18 09 3d 62 6c | 6b 25 0d 01 22 05 3a 0d |%....=bl|k%..".:.|
|000003c0| 01 2c 34 f4 20 46 4e 6c | 6f 61 64 73 70 72 69 74 |.,4. FNl|oadsprit|
|000003d0| 65 73 20 3a 20 4c 6f 61 | 64 20 73 70 72 69 74 65 |es : Loa|d sprite|
|000003e0| 20 66 69 6c 65 20 69 6e | 74 6f 20 6e 65 77 20 61 | file in|to new a|
|000003f0| 72 65 61 0d 01 36 2a dd | a4 6c 6f 61 64 73 70 72 |rea..6*.|.loadspr|
|00000400| 69 74 65 73 28 66 69 6c | 65 24 29 3a ea 20 6c 65 |ites(fil|e$):. le|
|00000410| 6e 25 2c 6f 25 2c 73 70 | 72 62 6c 6b 25 0d 01 40 |n%,o%,sp|rblk%..@|
|00000420| 1a 6f 25 3d 8e 28 66 69 | 6c 65 24 29 3a e7 20 6f |.o%=.(fi|le$):. o|
|00000430| 25 3d 30 20 8c 3d 31 0d | 01 4a 15 6c 65 6e 25 3d |%=0 .=1.|.J.len%=|
|00000440| a2 23 6f 25 2b 31 36 3a | d9 23 6f 25 0d 01 54 2c |.#o%+16:|.#o%..T,|
|00000450| de 20 73 70 72 62 6c 6b | 25 20 6c 65 6e 25 3a 21 |. sprblk|% len%:!|
|00000460| 73 70 72 62 6c 6b 25 3d | 6c 65 6e 25 3a 73 70 72 |sprblk%=|len%:spr|
|00000470| 62 6c 6b 25 21 38 3d 30 | 0d 01 5e 20 c8 99 22 4f |blk%!8=0|..^ .."O|
|00000480| 53 5f 53 70 72 69 74 65 | 4f 70 22 2c 26 31 30 39 |S_Sprite|Op",&109|
|00000490| 2c 73 70 72 62 6c 6b 25 | 0d 01 68 26 c8 99 22 4f |,sprblk%|..h&.."O|
|000004a0| 53 5f 53 70 72 69 74 65 | 4f 70 22 2c 26 31 30 41 |S_Sprite|Op",&10A|
|000004b0| 2c 73 70 72 62 6c 6b 25 | 2c 66 69 6c 65 24 0d 01 |,sprblk%|,file$..|
|000004c0| 72 0c 3d 73 70 72 62 6c | 6b 25 0d 01 7c 05 3a 0d |r.=sprbl|k%..|.:.|
|000004d0| 01 86 41 f4 20 46 4e 47 | 65 74 45 6e 76 20 3a 20 |..A. FNG|etEnv : |
|000004e0| 52 65 74 75 72 6e 20 74 | 68 65 20 65 6e 76 69 72 |Return t|he envir|
|000004f0| 6f 6e 6d 65 6e 74 20 73 | 74 72 69 6e 67 20 73 74 |onment s|tring st|
|00000500| 72 69 70 70 65 64 20 6f | 66 20 6c 6f 61 64 65 72 |ripped o|f loader|
|00000510| 0d 01 90 18 dd a4 47 65 | 74 45 6e 76 3a ea 20 63 |......Ge|tEnv:. c|
|00000520| 6f 6d 24 2c 49 2c 70 24 | 0d 01 9a 19 c8 99 20 22 |om$,I,p$|...... "|
|00000530| 4f 53 5f 47 65 74 45 6e | 76 22 20 b8 20 63 6f 6d |OS_GetEn|v" . com|
|00000540| 24 0d 01 a4 1c 70 24 3d | 22 22 3a 49 3d a7 63 6f |$....p$=|"":I=.co|
|00000550| 6d 24 2c 22 20 2d 71 75 | 69 74 20 22 29 0d 01 ae |m$," -qu|it ")...|
|00000560| 0b e7 20 49 3e 30 20 8c | 0d 01 b8 28 20 70 24 3d |.. I>0 .|...( p$=|
|00000570| c1 63 6f 6d 24 2c a7 63 | 6f 6d 24 2c 22 20 22 2c |.com$,.c|om$," ",|
|00000580| 49 2b a9 22 20 2d 71 75 | 69 74 20 22 29 2b 31 29 |I+." -qu|it ")+1)|
|00000590| 0d 01 c2 1e 20 c8 95 20 | c0 70 24 2c 31 29 3d 22 |.... .. |.p$,1)="|
|000005a0| 20 22 3a 70 24 3d c1 70 | 24 2c 32 29 3a ce 0d 01 | ":p$=.p|$,2):...|
|000005b0| cc 05 cd 0d 01 d6 07 3d | 70 24 0d 01 e0 05 3a 0d |.......=|p$....:.|
|000005c0| 01 ea 40 f4 20 46 4e 73 | 79 73 74 65 6d 76 61 72 |..@. FNs|ystemvar|
|000005d0| 20 3a 20 52 65 74 75 72 | 6e 20 74 68 65 20 63 6f | : Retur|n the co|
|000005e0| 6e 74 65 6e 74 73 20 6f | 66 20 61 6e 79 20 73 74 |ntents o|f any st|
|000005f0| 72 69 6e 67 20 73 79 73 | 74 65 6d 20 76 61 72 0d |ring sys|tem var.|
|00000600| 01 f4 1b dd a4 73 79 73 | 74 65 6d 76 61 72 28 56 |.....sys|temvar(V|
|00000610| 61 72 24 29 3a ea 20 6c | 65 6e 0d 01 fe 3a c8 99 |ar$):. l|en...:..|
|00000620| 20 22 58 4f 53 5f 52 65 | 61 64 56 61 72 56 61 6c | "XOS_Re|adVarVal|
|00000630| 22 2c 56 61 72 24 2c 6d | 65 73 73 61 67 65 5f 62 |",Var$,m|essage_b|
|00000640| 75 66 66 65 72 25 2c 32 | 35 35 2c 30 2c 33 b8 2c |uffer%,2|55,0,3.,|
|00000650| 2c 6c 65 6e 0d 02 08 1a | 6d 65 73 73 61 67 65 5f |,len....|message_|
|00000660| 62 75 66 66 65 72 25 3f | 6c 65 6e 3d 31 33 0d 02 |buffer%?|len=13..|
|00000670| 12 15 3d 24 6d 65 73 73 | 61 67 65 5f 62 75 66 66 |..=$mess|age_buff|
|00000680| 65 72 25 0d 02 1c 05 3a | 0d 02 26 29 f4 20 50 52 |er%....:|..&). PR|
|00000690| 4f 43 65 65 72 72 6f 72 | 20 3a 20 45 78 74 65 72 |OCeerror| : Exter|
|000006a0| 6e 61 6c 20 65 72 72 6f | 72 20 72 6f 75 74 69 6e |nal erro|r routin|
|000006b0| 65 0d 02 30 3e f4 20 73 | 68 6f 75 6c 64 20 62 65 |e..0>. s|hould be|
|000006c0| 20 63 61 6c 6c 65 64 20 | 77 68 65 6e 20 65 72 72 | called |when err|
|000006d0| 6f 72 73 20 6f 63 63 75 | 72 20 64 75 72 69 6e 67 |ors occu|r during|
|000006e0| 20 69 6e 69 74 69 61 6c | 69 73 61 74 69 6f 6e 0d | initial|isation.|
|000006f0| 02 3a 0c dd f2 65 65 72 | 72 6f 72 0d 02 44 07 ea |.:...eer|ror..D..|
|00000700| 20 85 0d 02 4e 47 ee 20 | 85 20 ea 3a f2 63 6c 6f | ...NG. |. .:.clo|
|00000710| 73 65 6d 65 73 73 61 67 | 65 73 3a ef 34 3a 85 20 |semessag|es:.4:. |
|00000720| a2 20 30 2c f6 24 2b 22 | 20 61 74 20 6c 69 6e 65 |. 0,.$+"| at line|
|00000730| 20 22 2b c3 9e 2b 22 20 | 69 6e 20 65 72 72 6f 72 | "+..+" |in error|
|00000740| 20 68 61 6e 64 6c 65 72 | 22 0d 02 58 29 6d 65 73 | handler|"..X)mes|
|00000750| 73 24 3d 22 49 6e 74 65 | 72 6e 61 6c 20 65 72 72 |s$="Inte|rnal err|
|00000760| 6f 72 20 3a 20 28 22 2b | c3 9e 2b 22 29 20 22 2b |or : ("+|..+") "+|
|00000770| f6 24 0d 02 62 38 ff 28 | 22 53 65 74 20 45 72 72 |.$..b8.(|"Set Err|
|00000780| 6f 72 24 20 22 2b 6d 65 | 73 73 24 29 3a ff 28 22 |or$ "+me|ss$):.("|
|00000790| 53 65 74 20 45 72 72 6f | 72 24 54 61 73 6b 20 4e |Set Erro|r$Task N|
|000007a0| 6f 74 20 6b 6e 6f 77 6e | 22 29 0d 02 6c 4c 6d 65 |ot known|")..lLme|
|000007b0| 73 73 61 67 65 5f 62 75 | 66 66 65 72 25 21 30 3d |ssage_bu|ffer%!0=|
|000007c0| 9f 3a 24 28 6d 65 73 73 | 61 67 65 5f 62 75 66 66 |.:$(mess|age_buff|
|000007d0| 65 72 25 2b 34 29 3d 6d | 65 73 73 24 2b 22 20 77 |er%+4)=m|ess$+" w|
|000007e0| 68 69 6c 73 74 20 69 6e | 69 74 69 61 6c 69 73 69 |hilst in|itialisi|
|000007f0| 6e 67 22 2b bd 30 0d 02 | a8 40 c8 99 20 22 57 69 |ng"+.0..|.@.. "Wi|
|00000800| 6d 70 5f 52 65 70 6f 72 | 74 45 72 72 6f 72 22 2c |mp_Repor|tError",|
|00000810| 6d 65 73 73 61 67 65 5f | 62 75 66 66 65 72 25 2c |message_|buffer%,|
|00000820| 39 2c 22 75 6e 69 6e 69 | 74 69 61 6c 69 73 65 64 |9,"unini|tialised|
|00000830| 20 74 61 73 6b 22 0d 02 | b2 05 e1 0d 02 bc 05 3a | task"..|.......:|
|00000840| 0d 02 c6 3e f4 20 50 52 | 4f 43 65 72 72 6f 72 20 |...>. PR|OCerror |
|00000850| 3a 20 43 61 6c 6c 65 64 | 20 61 74 20 61 6e 79 20 |: Called| at any |
|00000860| 42 41 53 49 43 20 65 72 | 72 6f 72 20 69 6e 73 69 |BASIC er|ror insi|
|00000870| 64 65 20 74 68 65 20 64 | 65 73 6b 74 6f 70 0d 02 |de the d|esktop..|
|00000880| d0 1b f4 20 45 52 52 4f | 52 20 6e 75 6d 62 65 72 |... ERRO|R number|
|00000890| 73 20 26 38 30 30 2b 20 | 3a 0d 02 da 0c f4 20 30 |s &800+ |:..... 0|
|000008a0| 20 3d 20 4f 4b 0d 02 e4 | 10 f4 20 31 20 3d 20 43 | = OK...|.. 1 = C|
|000008b0| 61 6e 63 65 6c 0d 02 ee | 21 f4 20 32 20 3d 20 4f |ancel...|!. 2 = O|
|000008c0| 4b 20 61 6e 64 20 43 61 | 6e 63 65 6c 20 28 74 6f |K and Ca|ncel (to|
|000008d0| 20 71 75 69 74 29 0d 02 | f8 2e f4 20 53 68 69 66 | quit)..|... Shif|
|000008e0| 74 2c 20 43 74 72 6c 2c | 20 51 20 61 6e 64 20 63 |t, Ctrl,| Q and c|
|000008f0| 6c 69 63 6b 20 74 6f 20 | 65 78 69 74 20 70 72 6f |lick to |exit pro|
|00000900| 67 72 61 6d 0d 03 02 22 | dd f2 65 72 72 6f 72 3a |gram..."|..error:|
|00000910| ea 20 65 72 72 63 6f 64 | 65 2c 6d 65 73 73 24 2c |. errcod|e,mess$,|
|00000920| 72 65 70 6c 79 25 0d 03 | 0c 07 ea 20 85 0d 03 16 |reply%..|... ....|
|00000930| 47 ee 20 85 20 ea 3a f2 | 63 6c 6f 73 65 6d 65 73 |G. . .:.|closemes|
|00000940| 73 61 67 65 73 3a ef 34 | 3a 85 20 a2 20 30 2c f6 |sages:.4|:. . 0,.|
|00000950| 24 2b 22 20 61 74 20 6c | 69 6e 65 20 22 2b c3 9e |$+" at l|ine "+..|
|00000960| 2b 22 20 69 6e 20 65 72 | 72 6f 72 20 68 61 6e 64 |+" in er|ror hand|
|00000970| 6c 65 72 22 0d 03 20 14 | c8 99 20 22 4f 53 5f 42 |ler".. .|.. "OS_B|
|00000980| 79 74 65 22 2c 31 32 34 | 0d 03 2a 17 e7 20 9f 3e |yte",124|..*.. .>|
|00000990| 26 37 46 46 20 80 20 9f | 3c 26 38 30 33 20 8c 0d |&7FF . .|<&803 ..|
|000009a0| 03 34 1c 20 65 72 72 63 | 6f 64 65 3d 9f 2d 26 37 |.4. errc|ode=.-&7|
|000009b0| 46 46 3a 6d 65 73 73 24 | 3d f6 24 0d 03 3e 2c 20 |FF:mess$|=.$..>, |
|000009c0| e7 20 65 72 72 63 6f 64 | 65 3d 33 20 8c 6d 65 73 |. errcod|e=3 .mes|
|000009d0| 73 24 2b 3d 22 20 28 43 | 61 6e 63 65 6c 20 74 6f |s$+=" (C|ancel to|
|000009e0| 20 51 75 69 74 29 22 0d | 03 48 2d 20 72 65 70 6c | Quit)".|.H- repl|
|000009f0| 79 25 3d a4 65 72 72 6f | 72 62 6f 78 28 41 70 70 |y%=.erro|rbox(App|
|00000a00| 6e 61 6d 65 24 2c 6d 65 | 73 73 24 2c 65 72 72 63 |name$,me|ss$,errc|
|00000a10| 6f 64 65 29 0d 03 52 24 | 20 e7 20 72 65 70 6c 79 |ode)..R$| . reply|
|00000a20| 25 3d 32 20 80 20 65 72 | 72 63 6f 64 65 3d 33 20 |%=2 . er|rcode=3 |
|00000a30| 8c 71 75 69 74 25 3d b9 | 0d 03 5c 05 cc 0d 03 66 |.quit%=.|..\....f|
|00000a40| 3c 20 6d 65 73 73 24 3d | 22 49 6e 74 65 72 6e 61 |< mess$=|"Interna|
|00000a50| 6c 20 65 72 72 6f 72 20 | 3a 20 28 22 2b c3 9e 2b |l error |: ("+..+|
|00000a60| 22 29 20 22 2b f6 24 2b | 22 20 43 61 6e 63 65 6c |") "+.$+|" Cancel|
|00000a70| 20 74 6f 20 51 75 69 74 | 22 0d 03 70 29 20 72 65 | to Quit|"..p) re|
|00000a80| 70 6c 79 25 3d a4 65 72 | 72 6f 72 62 6f 78 28 41 |ply%=.er|rorbox(A|
|00000a90| 70 70 6e 61 6d 65 24 2c | 6d 65 73 73 24 2c 25 31 |ppname$,|mess$,%1|
|00000aa0| 31 29 0d 03 7a 12 20 e7 | 20 72 65 70 6c 79 25 3c |1)..z. .| reply%<|
|00000ab0| 3e 31 20 8c 0d 03 84 24 | 20 20 71 75 69 74 25 3d |>1 ....$| quit%=|
|00000ac0| b9 3a ff 28 22 53 65 74 | 20 45 72 72 6f 72 24 20 |.:.("Set| Error$ |
|00000ad0| 22 2b 6d 65 73 73 24 29 | 0d 03 8e 23 20 20 ff 28 |"+mess$)|...# .(|
|00000ae0| 22 53 65 74 20 45 72 72 | 6f 72 24 54 61 73 6b 20 |"Set Err|or$Task |
|00000af0| 22 2b 41 70 70 6e 61 6d | 65 24 29 0d 03 98 06 20 |"+Appnam|e$).... |
|00000b00| cd 0d 03 a2 2b 20 e7 20 | a6 28 2d 31 29 20 80 20 |....+ . |.(-1) . |
|00000b10| a6 28 2d 32 29 20 80 20 | a6 28 2d 31 37 29 20 8c |.(-2) . |.(-17) .|
|00000b20| ff 28 22 53 70 6f 6f 6c | 22 29 3a e0 0d 03 ac 05 |.("Spool|"):.....|
|00000b30| cd 0d 03 b6 05 e1 0d 03 | c0 05 3a 0d 03 ca 3b f4 |........|..:...;.|
|00000b40| 20 46 4e 65 72 72 6f 72 | 62 6f 78 20 3a 20 63 72 | FNerror|box : cr|
|00000b50| 65 61 74 65 20 61 6e 20 | 65 72 72 6f 72 20 62 6f |eate an |error bo|
|00000b60| 78 20 77 69 74 68 20 75 | 70 20 74 6f 20 32 20 62 |x with u|p to 2 b|
|00000b70| 75 74 74 6f 6e 73 0d 03 | d4 1d f4 20 42 69 74 20 |uttons..|... Bit |
|00000b80| 56 61 6c 75 65 20 45 66 | 66 65 63 74 20 69 66 20 |Value Ef|fect if |
|00000b90| 73 65 74 0d 03 de 3f f4 | 20 20 30 20 20 20 20 31 |set...?.| 0 1|
|00000ba0| 20 20 20 49 6e 63 6c 75 | 64 65 20 61 6e 20 4f 4b | Inclu|de an OK|
|00000bb0| 20 6f 70 74 69 6f 6e 20 | 20 20 20 7d 20 69 66 20 | option | } if |
|00000bc0| 62 6f 74 68 20 75 6e 73 | 65 74 20 74 68 65 6e 20 |both uns|et then |
|00000bd0| 61 73 0d 03 e8 33 f4 20 | 20 31 20 20 20 20 32 20 |as...3. | 1 2 |
|00000be0| 20 20 49 6e 63 6c 75 64 | 65 20 61 20 43 61 6e 63 | Includ|e a Canc|
|00000bf0| 65 6c 20 6f 70 74 69 6f | 6e 20 7d 20 62 69 74 20 |el optio|n } bit |
|00000c00| 30 20 73 65 74 0d 03 f2 | 44 f4 20 20 32 20 20 20 |0 set...|D. 2 |
|00000c10| 20 34 20 20 20 52 65 76 | 65 72 73 65 64 20 62 75 | 4 Rev|ersed bu|
|00000c20| 74 74 6f 6e 73 2c 20 4f | 4b 3d 57 68 69 74 65 2c |ttons, O|K=White,|
|00000c30| 20 43 61 6e 63 65 6c 3d | 59 65 6c 6c 6f 77 20 61 | Cancel=|Yellow a|
|00000c40| 6e 64 20 61 63 74 69 6f | 6e 0d 03 fc 11 f4 20 20 |nd actio|n..... |
|00000c50| 33 20 20 20 20 38 20 20 | 20 3f 0d 04 06 3a f4 20 |3 8 | ?...:. |
|00000c60| 20 34 20 20 20 20 31 36 | 20 20 54 69 74 6c 65 20 | 4 16| Title |
|00000c70| 69 73 20 6a 75 73 74 20 | 74 69 74 6c 65 20 28 6e |is just |title (n|
|00000c80| 6f 74 20 45 72 72 6f 72 | 20 66 72 6f 6d 20 74 69 |ot Error| from ti|
|00000c90| 74 6c 65 29 0d 04 10 25 | f4 20 20 35 20 20 20 20 |tle)...%|. 5 |
|00000ca0| 33 32 20 20 44 61 6e 67 | 65 72 6f 75 73 2c 20 64 |32 Dang|erous, d|
|00000cb0| 6f 20 6e 6f 74 20 75 73 | 65 0d 04 1a 1e f4 20 20 |o not us|e..... |
|00000cc0| 36 20 20 20 20 36 34 20 | 20 4e 6f 20 65 72 72 6f |6 64 | No erro|
|00000cd0| 72 20 62 6f 78 20 3f 0d | 04 24 1a f4 20 20 37 20 |r box ?.|.$.. 7 |
|00000ce0| 20 20 31 32 38 20 20 44 | 6f 6e 27 74 20 62 65 65 | 128 D|on't bee|
|00000cf0| 70 0d 04 2e 3f dd a4 65 | 72 72 6f 72 62 6f 78 28 |p...?..e|rrorbox(|
|00000d00| 74 69 74 6c 65 24 2c 6d | 65 73 73 61 67 65 24 2c |title$,m|essage$,|
|00000d10| 62 75 74 74 6f 6e 25 29 | 3a 74 69 74 6c 65 24 3d |button%)|:title$=|
|00000d20| a4 6d 73 67 74 65 78 74 | 28 74 69 74 6c 65 24 29 |.msgtext|(title$)|
|00000d30| 0d 04 38 1f 6d 65 73 73 | 61 67 65 24 3d a4 6d 73 |..8.mess|age$=.ms|
|00000d40| 67 74 65 78 74 28 6d 65 | 73 73 61 67 65 24 29 0d |gtext(me|ssage$).|
|00000d50| 04 42 34 24 28 6d 65 73 | 73 61 67 65 5f 62 75 66 |.B4$(mes|sage_buf|
|00000d60| 66 65 72 25 2b 34 29 3d | 6d 65 73 73 61 67 65 24 |fer%+4)=|message$|
|00000d70| 3a 21 6d 65 73 73 61 67 | 65 5f 62 75 66 66 65 72 |:!messag|e_buffer|
|00000d80| 25 3d 30 0d 04 4c 42 c8 | 99 20 22 57 69 6d 70 5f |%=0..LB.|. "Wimp_|
|00000d90| 52 65 70 6f 72 74 45 72 | 72 6f 72 22 2c 6d 65 73 |ReportEr|ror",mes|
|00000da0| 73 61 67 65 5f 62 75 66 | 66 65 72 25 2c 62 75 74 |sage_buf|fer%,but|
|00000db0| 74 6f 6e 25 2c 74 69 74 | 6c 65 24 20 b8 20 2c 72 |ton%,tit|le$ . ,r|
|00000dc0| 65 70 6c 79 25 0d 04 56 | 0b 3d 72 65 70 6c 79 25 |eply%..V|.=reply%|
|00000dd0| 0d 04 60 05 3a 0d 04 6a | 37 f4 20 50 52 4f 43 73 |..`.:..j|7. PROCs|
|00000de0| 68 6f 77 66 72 65 65 20 | 3a 20 64 69 73 70 6c 61 |howfree |: displa|
|00000df0| 79 20 69 6e 20 69 6e 66 | 6f 62 6f 78 25 20 74 68 |y in inf|obox% th|
|00000e00| 65 20 66 72 65 65 20 73 | 70 61 63 65 0d 04 74 0e |e free s|pace..t.|
|00000e10| dd f2 73 68 6f 77 66 72 | 65 65 0d 04 7e 07 ea 20 |..showfr|ee..~.. |
|00000e20| 85 0d 04 88 40 ee 20 85 | 20 ea 3a e7 20 9f 3d 26 |....@. .| .:. .=&|
|00000e30| 38 30 33 20 8c f2 73 65 | 74 69 63 6f 6e 74 65 78 |803 ..se|ticontex|
|00000e40| 74 28 69 6e 66 6f 62 6f | 78 25 2c 34 2c 22 4f 6c |t(infobo|x%,4,"Ol|
|00000e50| 64 20 74 65 6d 70 6c 61 | 74 65 22 29 3a e1 20 8b |d templa|te"):. .|
|00000e60| e1 0d 04 92 26 f2 73 65 | 74 69 63 6f 6e 74 65 78 |....&.se|ticontex|
|00000e70| 74 28 69 6e 66 6f 62 6f | 78 25 2c 35 2c 22 50 72 |t(infobo|x%,5,"Pr|
|00000e80| 6f 67 72 61 6d 22 29 0d | 04 9c 42 f2 73 65 74 69 |ogram").|..B.seti|
|00000e90| 63 6f 6e 74 65 78 74 28 | 69 6e 66 6f 62 6f 78 25 |context(|infobox%|
|00000ea0| 2c 31 2c c3 28 b8 50 2d | 90 29 2b 22 20 62 79 74 |,1,.(.P-|.)+" byt|
|00000eb0| 65 73 2c 20 22 2b c3 28 | 28 b8 50 2d 90 29 81 26 |es, "+.(|(.P-.).&|
|00000ec0| 34 30 30 29 2b 22 4b 22 | 29 0d 04 a6 23 f2 73 65 |400)+"K"|)...#.se|
|00000ed0| 74 69 63 6f 6e 74 65 78 | 74 28 69 6e 66 6f 62 6f |ticontex|t(infobo|
|00000ee0| 78 25 2c 36 2c 22 56 61 | 72 73 22 29 0d 04 b0 40 |x%,6,"Va|rs")...@|
|00000ef0| f2 73 65 74 69 63 6f 6e | 74 65 78 74 28 69 6e 66 |.seticon|text(inf|
|00000f00| 6f 62 6f 78 25 2c 32 2c | c3 28 e0 2d 92 29 2b 22 |obox%,2,|.(.-.)+"|
|00000f10| 20 62 79 74 65 73 2c 20 | 22 2b c3 28 28 e0 2d 92 | bytes, |"+.((.-.|
|00000f20| 29 81 26 34 30 30 29 2b | 22 4b 22 29 0d 04 ba 23 |).&400)+|"K")...#|
|00000f30| f2 73 65 74 69 63 6f 6e | 74 65 78 74 28 69 6e 66 |.seticon|text(inf|
|00000f40| 6f 62 6f 78 25 2c 37 2c | 22 46 72 65 65 22 29 0d |obox%,7,|"Free").|
|00000f50| 04 c4 40 f2 73 65 74 69 | 63 6f 6e 74 65 78 74 28 |..@.seti|context(|
|00000f60| 69 6e 66 6f 62 6f 78 25 | 2c 33 2c c3 28 93 2d e0 |infobox%|,3,.(.-.|
|00000f70| 29 2b 22 20 62 79 74 65 | 73 2c 20 22 2b c3 28 28 |)+" byte|s, "+.((|
|00000f80| 93 2d e0 29 81 26 34 30 | 30 29 2b 22 4b 22 29 0d |.-.).&40|0)+"K").|
|00000f90| 04 ce 21 f2 68 65 61 70 | 5f 66 72 65 65 28 68 65 |..!.heap|_free(he|
|00000fa0| 61 70 73 69 7a 65 2c 68 | 65 61 70 66 72 65 65 29 |apsize,h|eapfree)|
|00000fb0| 0d 04 d8 23 f2 73 65 74 | 69 63 6f 6e 74 65 78 74 |...#.set|icontext|
|00000fc0| 28 69 6e 66 6f 62 6f 78 | 25 2c 38 2c 22 48 65 61 |(infobox|%,8,"Hea|
|00000fd0| 70 22 29 0d 04 e2 76 f2 | 73 65 74 69 63 6f 6e 74 |p")...v.|seticont|
|00000fe0| 65 78 74 28 69 6e 66 6f | 62 6f 78 25 2c 34 2c c3 |ext(info|box%,4,.|
|00000ff0| 28 68 65 61 70 73 69 7a | 65 2d 68 65 61 70 66 72 |(heapsiz|e-heapfr|
|00001000| 65 65 29 2b 22 20 62 79 | 74 65 73 2c 20 22 2b c3 |ee)+" by|tes, "+.|
|00001010| 28 28 68 65 61 70 73 69 | 7a 65 2d 68 65 61 70 66 |((heapsi|ze-heapf|
|00001020| 72 65 65 29 81 26 34 30 | 30 29 2b 22 4b 20 6f 66 |ree).&40|0)+"K of|
|00001030| 20 22 2b c3 28 68 65 61 | 70 73 69 7a 65 20 81 26 | "+.(hea|psize .&|
|00001040| 34 30 30 29 2b 22 4b 22 | 29 0d 04 ec 05 e1 0d 04 |400)+"K"|).......|
|00001050| f6 05 3a 0d 05 00 37 f4 | 20 2a 2a 2a 2a 2a 2a 2a |..:...7.| *******|
|00001060| 2a 20 4d 65 6e 75 20 6d | 61 6e 69 70 75 6c 61 74 |* Menu m|anipulat|
|00001070| 69 6f 6e 20 70 72 6f 63 | 65 64 75 72 65 73 20 2a |ion proc|edures *|
|00001080| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 0d 05 0a 05 3a 0d |********|**....:.|
|00001090| 05 14 39 f4 20 46 4e 63 | 72 65 61 74 65 6d 65 6e |..9. FNc|reatemen|
|000010a0| 75 20 3a 20 43 72 65 61 | 74 65 20 61 20 6d 65 6e |u : Crea|te a men|
|000010b0| 75 20 67 69 76 65 6e 20 | 61 20 63 6f 6e 74 72 6f |u given |a contro|
|000010c0| 6c 20 73 74 72 69 6e 67 | 0d 05 1e 13 f4 20 4d 65 |l string|..... Me|
|000010d0| 6e 75 20 46 6f 72 6d 61 | 74 20 3a 0d 05 28 1a f4 |nu Forma|t :..(..|
|000010e0| 20 54 69 74 6c 65 7c 49 | 74 65 6d 7c 49 74 65 6d | Title|I|tem|Item|
|000010f0| 7c 49 74 65 6d 0d 05 32 | 18 f4 20 49 74 65 6d 20 ||Item..2|.. Item |
|00001100| 63 6f 6e 73 69 73 74 73 | 20 6f 66 20 3a 0d 05 3c |consists| of :..<|
|00001110| 1a f4 20 45 6e 74 72 79 | 20 6f 72 20 45 6e 74 72 |.. Entry| or Entr|
|00001120| 79 5d 46 6c 61 67 73 0d | 05 46 2a f4 20 46 6c 61 |y]Flags.|.F*. Fla|
|00001130| 67 73 20 63 61 6e 20 62 | 65 20 3a 20 28 73 65 70 |gs can b|e : (sep|
|00001140| 61 72 61 74 65 64 20 62 | 79 20 63 6f 6d 6d 61 73 |arated b|y commas|
|00001150| 29 0d 05 50 13 f4 20 20 | 54 20 66 6f 72 20 74 69 |)..P.. |T for ti|
|00001160| 63 6b 65 64 0d 05 5a 1e | f4 20 20 44 20 66 6f 72 |cked..Z.|. D for|
|00001170| 20 64 6f 74 74 65 64 20 | 75 6e 64 65 72 6e 65 61 | dotted |undernea|
|00001180| 74 68 0d 05 64 15 f4 20 | 20 57 20 66 6f 72 20 77 |th..d.. | W for w|
|00001190| 72 69 74 61 62 6c 65 0d | 05 6e 13 f4 20 20 53 20 |ritable.|.n.. S |
|000011a0| 66 6f 72 20 73 68 61 64 | 65 64 0d 05 78 2b f4 20 |for shad|ed..x+. |
|000011b0| 20 4b 20 66 6f 72 20 6b | 65 79 20 73 68 6f 72 74 | K for k|ey short|
|000011c0| 63 75 74 20 28 5e 3d 63 | 74 72 6c 2c 20 a4 3d 73 |cut (^=c|trl, .=s|
|000011d0| 68 69 66 74 29 0d 05 82 | 3c f4 20 20 3e 20 66 6f |hift)...|<. > fo|
|000011e0| 6c 6c 6f 77 65 64 20 62 | 79 20 76 61 72 69 61 62 |llowed b|y variab|
|000011f0| 6c 65 20 66 6f 72 20 73 | 75 62 2d 6d 65 6e 75 20 |le for s|ub-menu |
|00001200| 28 49 74 65 6d 5d 3e 73 | 75 62 6d 65 6e 75 25 7c |(Item]>s|ubmenu%||
|00001210| 29 0d 05 8c 32 f4 20 20 | 7d 20 66 6f 6c 6c 6f 77 |)...2. |} follow|
|00001220| 65 64 20 62 79 20 61 20 | 73 70 72 69 74 65 20 6e |ed by a |sprite n|
|00001230| 61 6d 65 20 28 49 74 65 | 6d 5d 7d 73 70 72 69 74 |ame (Ite|m]}sprit|
|00001240| 65 7c 29 0d 05 96 43 f4 | 20 4e 42 3a 54 68 65 20 |e|)...C.| NB:The |
|00001250| 6c 61 73 74 20 74 77 6f | 20 66 6c 61 67 73 20 63 |last two| flags c|
|00001260| 61 6e 20 62 65 20 75 73 | 65 64 20 74 6f 67 65 74 |an be us|ed toget|
|00001270| 68 65 72 20 69 66 20 63 | 6f 6d 6d 61 20 73 65 70 |her if c|omma sep|
|00001280| 65 72 61 74 65 64 0d 05 | a0 20 f4 20 20 20 20 65 |erated..|. . e|
|00001290| 67 2e 20 49 6e 66 6f 5d | 3e 69 6e 66 6f 25 2c 7d |g. Info]|>info%,}|
|000012a0| 21 48 65 6c 70 7c 0d 05 | aa 41 f4 20 4e 42 3a 49 |!Help|..|.A. NB:I|
|000012b0| 66 20 74 68 65 20 73 70 | 72 69 74 65 6e 61 6d 65 |f the sp|ritename|
|000012c0| 20 73 74 61 72 74 73 20 | 77 69 74 68 20 73 6d 20 | starts |with sm |
|000012d0| 74 68 65 6e 20 74 68 65 | 20 73 70 72 69 74 65 20 |then the| sprite |
|000012e0| 77 69 6c 6c 20 62 65 0d | 05 b4 3d f4 20 20 20 20 |will be.|..=. |
|000012f0| 64 69 73 70 6c 61 79 65 | 64 20 75 73 69 6e 67 20 |displaye|d using |
|00001300| 69 74 73 20 73 6d 61 6c | 6c 20 66 6f 72 6d 2c 20 |its smal|l form, |
|00001310| 6f 74 68 65 72 77 69 73 | 65 20 69 74 20 77 69 6c |otherwis|e it wil|
|00001320| 6c 20 62 65 0d 05 be 1d | f4 20 20 20 20 73 68 72 |l be....|. shr|
|00001330| 75 6e 6b 20 74 6f 20 68 | 61 6c 66 20 73 69 7a 65 |unk to h|alf size|
|00001340| 2e 0d 05 c8 14 dd a4 63 | 72 65 61 74 65 6d 65 6e |.......c|reatemen|
|00001350| 75 28 41 24 29 0d 05 d2 | 35 ea 20 70 6f 69 6e 74 |u(A$)...|5. point|
|00001360| 65 72 2c 70 32 2c 70 33 | 2c 6c 2c 6c 6b 2c 4f 24 |er,p2,p3|,l,lk,O$|
|00001370| 2c 43 24 2c 6f 69 6e 64 | 25 2c 6f 69 6e 64 6c 25 |,C$,oind|%,oindl%|
|00001380| 2c 6b 73 25 2c 6b 24 2c | 53 24 0d 05 dc 21 6f 69 |,ks%,k$,|S$...!oi|
|00001390| 6e 64 25 3d 69 6e 64 25 | 3a 6f 69 6e 64 6c 25 3d |nd%=ind%|:oindl%=|
|000013a0| 69 6e 64 6c 25 3a 6b 73 | 25 3d a3 0d 05 e6 1d 70 |indl%:ks|%=.....p|
|000013b0| 6f 69 6e 74 65 72 3d 6d | 65 6e 75 25 3a 6c 3d 30 |ointer=m|enu%:l=0|
|000013c0| 3a 41 24 2b 3d 22 7c 22 | 0d 05 f0 1b f2 6d 65 6e |:A$+="|"|.....men|
|000013d0| 75 70 75 74 73 28 a4 6d | 67 65 74 28 41 24 2c 43 |uputs(.m|get(A$,C|
|000013e0| 24 29 29 0d 05 fa 15 f2 | 6d 65 6e 75 70 75 74 77 |$)).....|menuputw|
|000013f0| 28 26 37 30 32 30 37 29 | 0d 06 04 1b 70 32 3d 6d |(&70207)|....p2=m|
|00001400| 65 6e 75 25 3a f2 6d 65 | 6e 75 70 75 74 77 28 26 |enu%:.me|nuputw(&|
|00001410| 38 30 29 0d 06 0e 12 f2 | 6d 65 6e 75 70 75 74 77 |80).....|menuputw|
|00001420| 28 26 32 43 29 0d 06 18 | 26 f2 6d 65 6e 75 70 75 |(&2C)...|&.menupu|
|00001430| 74 77 28 30 29 3a 6f 70 | 74 69 6f 6e 73 25 3d 30 |tw(0):op|tions%=0|
|00001440| 3a 53 24 3d 41 24 3a 6c | 6b 3d 30 0d 06 22 05 f5 |:S$=A$:l|k=0.."..|
|00001450| 0d 06 2c 15 20 e7 20 6b | 73 25 3d b9 20 8c 6b 73 |..,. . k|s%=. .ks|
|00001460| 25 3d b9 2a 32 0d 06 36 | 06 20 f5 0d 06 40 29 20 |%=.*2..6|. ...@) |
|00001470| 20 4f 24 3d a4 6d 67 65 | 74 28 41 24 2c 43 24 29 | O$=.mge|t(A$,C$)|
|00001480| 3a 6f 70 74 69 6f 6e 73 | 25 3d 6f 70 74 69 6f 6e |:options|%=option|
|00001490| 73 25 2b 31 0d 06 4a 31 | 20 20 66 6c 61 67 73 3d |s%+1..J1| flags=|
|000014a0| a4 6d 64 65 63 6f 64 65 | 28 43 24 2c 70 33 2c 73 |.mdecode|(C$,p3,s|
|000014b0| 24 2c 6b 24 29 2b 28 28 | 2d 28 41 24 3d 22 22 29 |$,k$)+((|-(A$="")|
|000014c0| 29 3c 3c 37 29 0d 06 54 | 1a 20 20 e7 20 6b 73 25 |)<<7)..T|. . ks%|
|000014d0| 3d b9 2a 32 20 80 20 6b | 24 3c 3e 22 22 20 8c 0d |=.*2 . k|$<>"" ..|
|000014e0| 06 5e 25 20 20 20 4f 24 | 2b 3d c4 6c 2b 6c 6b 2d |.^% O$|+=.l+lk-|
|000014f0| 28 a9 28 4f 24 29 2b a9 | 28 6b 24 29 29 2b 31 2c |(.(O$)+.|(k$))+1,|
|00001500| 22 20 22 29 0d 06 68 24 | 20 20 20 e7 20 c0 6b 24 |" ")..h$| . .k$|
|00001510| 2c 31 29 3d 22 a4 22 20 | 8c c1 6b 24 2c 31 2c 31 |,1)="." |..k$,1,1|
|00001520| 29 3d bd 28 31 33 39 29 | 0d 06 72 0d 20 20 20 4f |)=.(139)|..r. O|
|00001530| 24 2b 3d 6b 24 0d 06 7c | 07 20 20 cc 0d 06 86 2b |$+=k$..||. ....+|
|00001540| 20 20 20 e7 20 6b 24 3c | 3e 22 22 20 8c 6b 73 25 | . k$<|>"" .ks%|
|00001550| 3d b9 3a e7 20 6c 6b 3c | a9 28 6b 24 29 20 8c 6c |=.:. lk<|.(k$) .l|
|00001560| 6b 3d a9 28 6b 24 29 0d | 06 90 07 20 20 cd 0d 06 |k=.(k$).|... ...|
|00001570| 9a 3d 20 20 66 6c 61 67 | 73 32 3d 26 37 30 30 30 |.= flag|s2=&7000|
|00001580| 30 32 31 2b 28 28 2d 28 | a9 28 4f 24 29 3e 31 31 |021+((-(|.(O$)>11|
|00001590| 29 29 3c 3c 38 29 2b 28 | 31 3c 3c 31 34 29 2a 28 |))<<8)+(|1<<14)*(|
|000015a0| 66 6c 61 67 73 20 80 32 | 35 36 29 0d 06 a4 2b 20 |flags .2|56)...+ |
|000015b0| 20 e7 20 28 66 6c 61 67 | 73 20 80 20 34 29 3c 3e | . (flag|s . 4)<>|
|000015c0| 30 20 8c 66 6c 61 67 73 | 32 3d 66 6c 61 67 73 32 |0 .flags|2=flags2|
|000015d0| 20 84 20 32 35 36 0d 06 | ae 1c 20 20 f2 6d 65 6e | . 256..|.. .men|
|000015e0| 75 70 75 74 77 28 66 6c | 61 67 73 20 80 20 32 35 |uputw(fl|ags . 25|
|000015f0| 35 29 0d 06 b8 13 20 20 | f2 6d 65 6e 75 70 75 74 |5).... |.menuput|
|00001600| 77 28 70 33 29 0d 06 c2 | 22 20 20 e7 a9 28 4f 24 |w(p3)...|" ..(O$|
|00001610| 29 3e 6c 20 80 20 6b 73 | 25 3c 3e b9 2a 32 20 8c |)>l . ks|%<>.*2 .|
|00001620| 6c 3d a9 28 4f 24 29 0d | 06 cc 17 20 20 f2 6d 65 |l=.(O$).|... .me|
|00001630| 6e 75 70 75 74 77 28 66 | 6c 61 67 73 32 29 0d 06 |nuputw(f|lags2)..|
|00001640| d6 24 20 20 f2 6d 65 6e | 75 73 74 72 69 6e 67 28 |.$ .men|ustring(|
|00001650| 4f 24 2c 73 24 2c 28 66 | 6c 61 67 73 20 80 20 34 |O$,s$,(f|lags . 4|
|00001660| 29 29 0d 06 e0 0b 20 fd | 41 24 3d 22 22 0d 06 ea |)).... .|A$=""...|
|00001670| 69 20 e7 20 6b 73 25 3d | b9 2a 32 20 8c 6c 2b 3d |i . ks%=|.*2 .l+=|
|00001680| 6c 6b 2b 31 20 8b e7 6b | 73 25 3d b9 20 8c 69 6e |lk+1 ..k|s%=. .in|
|00001690| 64 25 3d 6f 69 6e 64 25 | 3a 69 6e 64 6c 25 3d 6f |d%=oind%|:indl%=o|
|000016a0| 69 6e 64 6c 25 3a 6d 65 | 6e 75 6c 25 2b 3d 6d 65 |indl%:me|nul%+=me|
|000016b0| 6e 75 25 2d 70 32 2d 31 | 32 3a 6d 65 6e 75 25 3d |nu%-p2-1|2:menu%=|
|000016c0| 70 32 2b 31 32 3a 6f 70 | 74 69 6f 6e 73 25 3d 30 |p2+12:op|tions%=0|
|000016d0| 3a 41 24 3d 53 24 0d 06 | f4 0c fd 20 6b 73 25 3c |:A$=S$..|... ks%<|
|000016e0| 3e b9 0d 06 fe 0f 21 70 | 32 3d 6c 2a 31 36 2b 31 |>.....!p|2=l*16+1|
|000016f0| 36 0d 07 08 0c 3d 70 6f | 69 6e 74 65 72 0d 07 12 |6....=po|inter...|
|00001700| 37 dd f2 6d 65 6e 75 73 | 74 72 69 6e 67 28 54 24 |7..menus|tring(T$|
|00001710| 2c 73 24 2c 66 6c 61 67 | 29 3a e7 20 c0 54 24 2c |,s$,flag|):. .T$,|
|00001720| 31 29 3d 22 a4 22 20 8c | 54 24 3d a0 28 c1 54 24 |1)="." .|T$=.(.T$|
|00001730| 2c 32 29 29 0d 07 1c 1f | e7 a9 28 54 24 29 3c 31 |,2))....|..(T$)<1|
|00001740| 32 20 80 20 73 24 3d 22 | 22 20 80 20 66 6c 61 67 |2 . s$="|" . flag|
|00001750| 3d 30 8c 0d 07 26 12 20 | f2 6d 65 6e 75 70 75 74 |=0...&. |.menuput|
|00001760| 73 28 54 24 29 0d 07 30 | 05 cc 0d 07 3a 1d 20 f2 |s(T$)..0|....:. .|
|00001770| 6d 65 6e 75 70 75 74 77 | 28 a4 69 6e 64 69 72 65 |menuputw|(.indire|
|00001780| 63 74 28 54 24 29 29 0d | 07 44 0f 20 e7 20 73 24 |ct(T$)).|.D. . s$|
|00001790| 3c 3e 22 22 20 8c 0d 07 | 4e 1e 20 20 6d 65 6e 75 |<>"" ...|N. menu|
|000017a0| 25 21 2d 38 3d 6d 65 6e | 75 25 21 2d 38 20 84 20 |%!-8=men|u%!-8 . |
|000017b0| 26 38 30 33 0d 07 58 34 | 20 20 e7 c0 a4 6c 6f 77 |&803..X4| ...low|
|000017c0| 65 72 28 73 24 29 2c 32 | 29 3d 22 73 6d 22 20 8c |er(s$),2|)="sm" .|
|000017d0| 6d 65 6e 75 25 21 2d 38 | 3d 6d 65 6e 75 25 21 2d |menu%!-8|=menu%!-|
|000017e0| 38 20 82 20 26 38 30 30 | 0d 07 62 22 20 20 f2 6d |8 . &800|..b" .m|
|000017f0| 65 6e 75 70 75 74 77 28 | a4 69 6e 64 69 72 65 63 |enuputw(|.indirec|
|00001800| 74 28 22 53 22 2b 73 24 | 29 29 0d 07 6c 06 20 cc |t("S"+s$|))..l. .|
|00001810| 0d 07 76 13 20 20 f2 6d | 65 6e 75 70 75 74 77 28 |..v. .m|enuputw(|
|00001820| 2d 31 29 0d 07 80 06 20 | cd 0d 07 8a 15 20 f2 6d |-1).... |..... .m|
|00001830| 65 6e 75 70 75 74 77 28 | a9 28 54 24 29 29 0d 07 |enuputw(|.(T$))..|
|00001840| 94 05 cd 0d 07 9e 05 e1 | 0d 07 a8 15 dd a4 6d 67 |........|......mg|
|00001850| 65 74 28 f8 20 41 24 2c | f8 20 43 24 29 0d 07 b2 |et(. A$,|. C$)...|
|00001860| 1b ea 20 42 24 3a 42 24 | 3d c0 41 24 2c a7 41 24 |.. B$:B$|=.A$,.A$|
|00001870| 2c 22 7c 22 29 2d 31 29 | 0d 07 bc 27 41 24 3d c1 |,"|")-1)|...'A$=.|
|00001880| 41 24 2c a9 28 42 24 29 | 2b 32 29 3a e7 a7 42 24 |A$,.(B$)|+2):..B$|
|00001890| 2c 22 5d 22 29 3c 31 8c | 42 24 2b 3d 22 5d 22 0d |,"]")<1.|B$+="]".|
|000018a0| 07 c6 29 43 24 3d c1 42 | 24 2c a7 42 24 2c 22 5d |..)C$=.B|$,.B$,"]|
|000018b0| 22 29 2b 31 29 3a 42 24 | 3d c0 42 24 2c a7 42 24 |")+1):B$|=.B$,.B$|
|000018c0| 2c 22 5d 22 29 2d 31 29 | 0d 07 d0 11 3d a4 6d 73 |,"]")-1)|....=.ms|
|000018d0| 67 74 65 78 74 28 42 24 | 29 0d 07 da 3a dd f2 6d |gtext(B$|)...:..m|
|000018e0| 65 6e 75 70 75 74 73 28 | 54 24 29 3a e7 a9 28 54 |enuputs(|T$):..(T|
|000018f0| 24 29 3e 31 31 20 8c 85 | 20 26 38 30 33 2c 22 4d |$)>11 ..| &803,"M|
|00001900| 65 6e 75 20 65 6e 74 72 | 79 20 74 6f 6f 20 6c 6f |enu entr|y too lo|
|00001910| 6e 67 22 0d 07 e4 22 24 | 6d 65 6e 75 25 3d 54 24 |ng"..."$|menu%=T$|
|00001920| 3a 6d 65 6e 75 25 2b 3d | 31 32 3a 6d 65 6e 75 6c |:menu%+=|12:menul|
|00001930| 25 2d 3d 31 32 0d 07 ee | 34 e7 6d 65 6e 75 6c 25 |%-=12...|4.menul%|
|00001940| 3c 3d 34 20 8c 85 20 26 | 38 30 33 2c 22 4e 6f 74 |<=4 .. &|803,"Not|
|00001950| 20 65 6e 6f 75 67 68 20 | 6d 65 6d 6f 72 79 20 66 | enough |memory f|
|00001960| 6f 72 20 6d 65 6e 75 73 | 22 0d 07 f8 05 e1 0d 08 |or menus|".......|
|00001970| 02 12 dd f2 6d 65 6e 75 | 70 75 74 77 28 57 25 29 |....menu|putw(W%)|
|00001980| 0d 08 0c 20 21 6d 65 6e | 75 25 3d 57 25 3a 6d 65 |... !men|u%=W%:me|
|00001990| 6e 75 25 2b 3d 34 3a 6d | 65 6e 75 6c 25 2d 3d 34 |nu%+=4:m|enul%-=4|
|000019a0| 0d 08 16 34 e7 6d 65 6e | 75 6c 25 3c 3d 34 20 8c |...4.men|ul%<=4 .|
|000019b0| 85 20 26 38 30 33 2c 22 | 4e 6f 74 20 65 6e 6f 75 |. &803,"|Not enou|
|000019c0| 67 68 20 6d 65 6d 6f 72 | 79 20 66 6f 72 20 6d 65 |gh memor|y for me|
|000019d0| 6e 75 73 22 0d 08 20 05 | e1 0d 08 2a 1f dd a4 6d |nus".. .|...*...m|
|000019e0| 64 65 63 6f 64 65 28 41 | 24 2c f8 20 70 2c f8 20 |decode(A|$,. p,. |
|000019f0| 73 24 2c f8 20 6b 24 29 | 0d 08 34 28 ea 20 42 24 |s$,. k$)|..4(. B$|
|00001a00| 2c 43 24 2c 56 3a 70 3d | 2d 31 3a 73 24 3d 22 22 |,C$,V:p=|-1:s$=""|
|00001a10| 3a 6b 24 3d 22 22 3a 41 | 24 3d 41 24 2b 22 2c 22 |:k$="":A|$=A$+","|
|00001a20| 0d 08 3e 0d c8 95 20 41 | 24 3c 3e 22 22 0d 08 48 |..>... A|$<>""..H|
|00001a30| 18 20 42 24 3d c0 41 24 | 2c 31 29 3a 41 24 3d c1 |. B$=.A$|,1):A$=.|
|00001a40| 41 24 2c 32 29 0d 08 52 | 0c 20 c8 8e 20 42 24 20 |A$,2)..R|. .. B$ |
|00001a50| ca 0d 08 5c 13 20 20 c9 | 20 22 54 22 3a 56 3d 56 |...\. .| "T":V=V|
|00001a60| 20 84 20 31 0d 08 66 13 | 20 20 c9 20 22 44 22 3a | . 1..f.| . "D":|
|00001a70| 56 3d 56 20 84 20 32 0d | 08 70 13 20 20 c9 20 22 |V=V . 2.|.p. . "|
|00001a80| 57 22 3a 56 3d 56 20 84 | 20 34 0d 08 7a 13 20 20 |W":V=V .| 4..z. |
|00001a90| c9 20 22 4d 22 3a 56 3d | 56 20 84 20 38 0d 08 84 |. "M":V=|V . 8...|
|00001aa0| 15 20 20 c9 20 22 53 22 | 3a 56 3d 56 20 84 20 32 |. . "S"|:V=V . 2|
|00001ab0| 35 36 0d 08 8e 31 20 20 | c9 20 22 4b 22 3a 6b 24 |56...1 |. "K":k$|
|00001ac0| 3d c0 41 24 2c a7 41 24 | 2c 22 2c 22 29 2d 31 29 |=.A$,.A$|,",")-1)|
|00001ad0| 3a 41 24 3d c1 41 24 2c | a7 41 24 2c 22 2c 22 29 |:A$=.A$,|.A$,",")|
|00001ae0| 2b 31 29 0d 08 98 33 20 | 20 c9 20 22 3e 22 3a 70 |+1)...3 | . ">":p|
|00001af0| 3d a0 28 c0 41 24 2c a7 | 41 24 2c 22 2c 22 29 2d |=.(.A$,.|A$,",")-|
|00001b00| 31 29 29 3a 41 24 3d c1 | 41 24 2c a7 41 24 2c 22 |1)):A$=.|A$,.A$,"|
|00001b10| 2c 22 29 2b 31 29 0d 08 | a2 35 20 20 c9 20 22 7d |,")+1)..|.5 . "}|
|00001b20| 22 3a 73 24 3d c0 41 24 | 2c a7 41 24 2c 22 2c 22 |":s$=.A$|,.A$,","|
|00001b30| 29 2d 31 29 2b 22 20 22 | 3a 41 24 3d c1 41 24 2c |)-1)+" "|:A$=.A$,|
|00001b40| a7 41 24 2c 22 2c 22 29 | 2b 31 29 0d 08 ac 06 20 |.A$,",")|+1).... |
|00001b50| cb 0d 08 b6 05 ce 0d 08 | c0 06 3d 56 0d 08 ca 05 |........|..=V....|
|00001b60| 3a 0d 08 d4 42 f4 20 46 | 4e 69 6e 64 69 72 65 63 |:...B. F|Nindirec|
|00001b70| 74 20 3a 20 50 6c 61 63 | 65 20 61 20 73 74 72 69 |t : Plac|e a stri|
|00001b80| 6e 67 20 69 6e 20 69 6e | 64 69 72 65 63 74 69 6f |ng in in|directio|
|00001b90| 6e 20 62 75 66 66 65 72 | 20 28 72 65 74 2e 20 6c |n buffer| (ret. l|
|00001ba0| 6f 63 29 0d 08 de 1d dd | a4 69 6e 64 69 72 65 63 |oc).....|.indirec|
|00001bb0| 74 28 61 24 29 3a ea 20 | 69 3a 69 3d 69 6e 64 25 |t(a$):. |i:i=ind%|
|00001bc0| 0d 08 e8 3c e7 a9 28 61 | 24 29 3e 69 6e 64 6c 25 |...<..(a|$)>indl%|
|00001bd0| 2d 31 20 8c 85 20 26 38 | 30 33 2c 22 4e 6f 74 20 |-1 .. &8|03,"Not |
|00001be0| 65 6e 6f 75 67 68 20 72 | 6f 6f 6d 20 66 6f 72 20 |enough r|oom for |
|00001bf0| 69 6e 64 69 72 65 63 74 | 69 6f 6e 22 0d 08 f2 29 |indirect|ion"...)|
|00001c00| 24 69 6e 64 25 3d 61 24 | 3a 69 6e 64 25 2b 3d a9 |$ind%=a$|:ind%+=.|
|00001c10| 28 61 24 29 2b 31 3a 69 | 6e 64 6c 25 2d 3d a9 28 |(a$)+1:i|ndl%-=.(|
|00001c20| 61 24 29 2b 31 0d 08 fc | 06 3d 69 0d 09 06 05 3a |a$)+1...|.=i....:|
|00001c30| 0d 09 10 36 f4 20 50 52 | 4f 43 69 62 6d 65 6e 75 |...6. PR|OCibmenu|
|00001c40| 20 3a 20 43 72 65 61 74 | 65 20 61 6e 20 69 63 6f | : Creat|e an ico|
|00001c50| 6e 62 61 72 20 6d 65 6e | 75 20 66 72 6f 6d 20 69 |nbar men|u from i|
|00001c60| 62 6d 65 6e 75 25 0d 09 | 1a 44 f4 20 50 52 4f 43 |bmenu%..|.D. PROC|
|00001c70| 6d 65 6e 75 20 20 20 20 | 20 20 20 20 20 3a 20 43 |menu | : C|
|00001c80| 72 65 61 74 65 20 74 68 | 65 20 6d 65 6e 75 20 61 |reate th|e menu a|
|00001c90| 74 20 63 6f 2d 6f 72 64 | 73 20 6f 72 20 6d 6f 75 |t co-ord|s or mou|
|00001ca0| 73 65 20 69 66 20 78 3d | 2d 31 0d 09 24 34 f4 20 |se if x=|-1..$4. |
|00001cb0| 50 52 4f 43 72 65 63 72 | 65 61 74 65 6d 65 6e 75 |PROCrecr|eatemenu|
|00001cc0| 20 3a 20 52 65 63 72 65 | 61 74 65 20 74 68 65 20 | : Recre|ate the |
|00001cd0| 6d 65 6e 75 20 6a 75 73 | 74 20 75 73 65 64 0d 09 |menu jus|t used..|
|00001ce0| 2e 0c dd f2 69 62 6d 65 | 6e 75 0d 09 38 5b c8 99 |....ibme|nu..8[..|
|00001cf0| 20 22 57 69 6d 70 5f 47 | 65 74 50 6f 69 6e 74 65 | "Wimp_G|etPointe|
|00001d00| 72 49 6e 66 6f 22 2c 2c | 62 25 3a 63 75 72 6d 65 |rInfo",,|b%:curme|
|00001d10| 6e 75 25 3d 69 62 6d 65 | 6e 75 25 3a 63 6d 65 6e |nu%=ibme|nu%:cmen|
|00001d20| 75 78 25 3d 62 25 21 30 | 2d 36 34 3a 63 6d 65 6e |ux%=b%!0|-64:cmen|
|00001d30| 75 79 25 3d 39 36 2b 26 | 32 43 2a 69 62 6f 70 74 |uy%=96+&|2C*ibopt|
|00001d40| 69 6f 6e 73 25 0d 09 42 | 3b c8 99 20 22 57 69 6d |ions%..B|;.. "Wim|
|00001d50| 70 5f 43 72 65 61 74 65 | 4d 65 6e 75 22 2c 2c 69 |p_Create|Menu",,i|
|00001d60| 62 6d 65 6e 75 25 2c 62 | 25 21 30 2d 36 34 2c 39 |bmenu%,b|%!0-64,9|
|00001d70| 36 2b 26 32 43 2a 69 62 | 6f 70 74 69 6f 6e 73 25 |6+&2C*ib|options%|
|00001d80| 0d 09 4c 05 e1 0d 09 56 | 15 dd f2 6d 65 6e 75 28 |..L....V|...menu(|
|00001d90| 6d 65 6e 75 25 2c 78 2c | 79 29 0d 09 60 0c e7 20 |menu%,x,|y)..`.. |
|00001da0| 78 3d 2d 31 20 8c 0d 09 | 6a 2f 20 c8 99 20 22 57 |x=-1 ...|j/ .. "W|
|00001db0| 69 6d 70 5f 47 65 74 50 | 6f 69 6e 74 65 72 49 6e |imp_GetP|ointerIn|
|00001dc0| 66 6f 22 2c 2c 62 25 3a | 78 3d 62 25 21 30 3a 79 |fo",,b%:|x=b%!0:y|
|00001dd0| 3d 62 25 21 34 0d 09 74 | 05 cd 0d 09 7e 2c 63 75 |=b%!4..t|....~,cu|
|00001de0| 72 6d 65 6e 75 25 3d 6d | 65 6e 75 25 3a 63 6d 65 |rmenu%=m|enu%:cme|
|00001df0| 6e 75 78 25 3d 78 2d 36 | 34 3a 63 6d 65 6e 75 79 |nux%=x-6|4:cmenuy|
|00001e00| 25 3d 79 2b 32 30 0d 09 | 88 29 c8 99 20 22 57 69 |%=y+20..|.).. "Wi|
|00001e10| 6d 70 5f 43 72 65 61 74 | 65 4d 65 6e 75 22 2c 2c |mp_Creat|eMenu",,|
|00001e20| 6d 65 6e 75 25 2c 78 2d | 36 34 2c 79 2b 32 30 0d |menu%,x-|64,y+20.|
|00001e30| 09 92 05 e1 0d 09 9c 12 | dd f2 72 65 63 72 65 61 |........|..recrea|
|00001e40| 74 65 6d 65 6e 75 0d 09 | a6 32 c8 99 20 22 57 69 |temenu..|.2.. "Wi|
|00001e50| 6d 70 5f 43 72 65 61 74 | 65 4d 65 6e 75 22 2c 2c |mp_Creat|eMenu",,|
|00001e60| 63 75 72 6d 65 6e 75 25 | 2c 63 6d 65 6e 75 78 25 |curmenu%|,cmenux%|
|00001e70| 2c 63 6d 65 6e 75 79 25 | 0d 09 b0 05 e1 0d 09 ba |,cmenuy%|........|
|00001e80| 05 3a 0d 09 c4 2f f4 20 | 50 52 4f 43 6d 65 6e 75 |.:.../. |PROCmenu|
|00001e90| 75 6e 74 69 63 6b 3a 20 | 55 6e 74 69 63 6b 20 61 |untick: |Untick a|
|00001ea0| 20 67 72 6f 75 70 20 6f | 66 20 6f 70 74 69 6f 6e | group o|f option|
|00001eb0| 73 0d 09 ce 30 f4 20 50 | 52 4f 43 6d 65 6e 75 74 |s...0. P|ROCmenut|
|00001ec0| 69 63 6b 20 20 3a 20 54 | 69 63 6b 2f 75 6e 74 69 |ick : T|ick/unti|
|00001ed0| 63 6b 20 6f 70 74 69 6f | 6e 20 6f 6e 20 6d 65 6e |ck optio|n on men|
|00001ee0| 75 0d 09 d8 32 f4 20 50 | 52 4f 43 6d 65 6e 75 73 |u...2. P|ROCmenus|
|00001ef0| 68 61 64 65 20 3a 20 53 | 68 61 64 65 2f 75 6e 73 |hade : S|hade/uns|
|00001f00| 68 61 64 65 20 6f 70 74 | 69 6f 6e 20 6f 6e 20 6d |hade opt|ion on m|
|00001f10| 65 6e 75 0d 09 e2 38 f4 | 20 46 4e 6d 65 6e 75 74 |enu...8.| FNmenut|
|00001f20| 69 63 6b 65 64 20 20 3a | 20 52 65 74 75 72 6e 20 |icked :| Return |
|00001f30| 54 52 55 45 20 69 66 20 | 6d 65 6e 75 20 69 74 65 |TRUE if |menu ite|
|00001f40| 6d 20 69 73 20 74 69 63 | 6b 65 64 0d 09 ec 38 f4 |m is tic|ked...8.|
|00001f50| 20 46 4e 6d 65 6e 75 73 | 68 61 64 65 64 20 20 3a | FNmenus|haded :|
|00001f60| 20 52 65 74 75 72 6e 20 | 54 52 55 45 20 69 66 20 | Return |TRUE if |
|00001f70| 6d 65 6e 75 20 69 74 65 | 6d 20 69 73 20 73 68 61 |menu ite|m is sha|
|00001f80| 64 65 64 0d 09 f6 19 f4 | 20 74 79 70 65 20 3d 20 |ded.....| type = |
|00001f90| 30 20 66 6f 72 20 75 6e | 74 69 63 6b 0d 0a 00 21 |0 for un|tick...!|
|00001fa0| f4 20 74 79 70 65 20 3d | 20 31 20 66 6f 72 20 74 |. type =| 1 for t|
|00001fb0| 69 63 6b 20 28 61 6c 73 | 6f 20 2d 31 29 0d 0a 0a |ick (als|o -1)...|
|00001fc0| 19 f4 20 74 79 70 65 20 | 3d 20 32 20 66 6f 72 20 |.. type |= 2 for |
|00001fd0| 74 6f 67 67 6c 65 0d 0a | 14 20 dd f2 6d 65 6e 75 |toggle..|. ..menu|
|00001fe0| 75 6e 74 69 63 6b 28 6d | 65 6e 75 2c 73 74 61 72 |untick(m|enu,star|
|00001ff0| 74 2c 65 6e 64 29 0d 0a | 1e 15 6d 65 6e 75 2b 3d |t,end)..|..menu+=|
|00002000| 73 74 61 72 74 2a 32 34 | 2b 32 38 0d 0a 28 05 f5 |start*24|+28..(..|
|00002010| 0d 0a 32 27 20 21 6d 65 | 6e 75 3d 21 6d 65 6e 75 |..2' !me|nu=!menu|
|00002020| 20 80 20 2d 32 3a 73 74 | 61 72 74 2b 3d 31 3a 6d | . -2:st|art+=1:m|
|00002030| 65 6e 75 2b 3d 32 34 0d | 0a 3c 34 fd 20 28 65 6e |enu+=24.|.<4. (en|
|00002040| 64 3c 3e 2d 31 20 80 20 | 73 74 61 72 74 3e 65 6e |d<>-1 . |start>en|
|00002050| 64 29 20 84 20 28 28 6d | 65 6e 75 21 2d 32 34 29 |d) . ((m|enu!-24)|
|00002060| 20 80 20 26 38 30 29 3d | 26 38 30 0d 0a 46 05 e1 | . &80)=|&80..F..|
|00002070| 0d 0a 50 35 dd f2 6d 65 | 6e 75 74 69 63 6b 28 6d |..P5..me|nutick(m|
|00002080| 65 6e 75 2c 6f 70 74 69 | 6f 6e 2c 74 6f 67 67 6c |enu,opti|on,toggl|
|00002090| 65 29 3a 6d 65 6e 75 2b | 3d 6f 70 74 69 6f 6e 2a |e):menu+|=option*|
|000020a0| 32 34 2b 32 38 0d 0a 5a | 0f c8 8e 20 74 6f 67 67 |24+28..Z|... togg|
|000020b0| 6c 65 20 ca 0d 0a 64 19 | 20 c9 20 30 3a 21 6d 65 |le ...d.| . 0:!me|
|000020c0| 6e 75 3d 21 6d 65 6e 75 | 20 80 20 2d 32 0d 0a 6e |nu=!menu| . -2..n|
|000020d0| 1b 20 c9 20 2d 31 2c 31 | 3a 21 6d 65 6e 75 3d 21 |. . -1,1|:!menu=!|
|000020e0| 6d 65 6e 75 20 84 20 31 | 0d 0a 78 18 20 c9 20 32 |menu . 1|..x. . 2|
|000020f0| 3a 21 6d 65 6e 75 3d 21 | 6d 65 6e 75 20 82 20 31 |:!menu=!|menu . 1|
|00002100| 0d 0a 82 05 cb 0d 0a 8c | 05 e1 0d 0a 96 36 dd f2 |........|.....6..|
|00002110| 6d 65 6e 75 73 68 61 64 | 65 28 6d 65 6e 75 2c 6f |menushad|e(menu,o|
|00002120| 70 74 69 6f 6e 2c 74 6f | 67 67 6c 65 29 3a 6d 65 |ption,to|ggle):me|
|00002130| 6e 75 2b 3d 6f 70 74 69 | 6f 6e 2a 32 34 2b 33 36 |nu+=opti|on*24+36|
|00002140| 0d 0a a0 0f c8 8e 20 74 | 6f 67 67 6c 65 20 ca 0d |...... t|oggle ..|
|00002150| 0a aa 1f 20 c9 20 30 3a | 21 6d 65 6e 75 3d 21 6d |... . 0:|!menu=!m|
|00002160| 65 6e 75 20 80 20 ac 28 | 31 3c 3c 32 32 29 0d 0a |enu . .(|1<<22)..|
|00002170| b4 21 20 c9 20 2d 31 2c | 31 3a 21 6d 65 6e 75 3d |.! . -1,|1:!menu=|
|00002180| 21 6d 65 6e 75 20 84 20 | 28 31 3c 3c 32 32 29 0d |!menu . |(1<<22).|
|00002190| 0a be 1e 20 c9 20 32 3a | 21 6d 65 6e 75 3d 21 6d |... . 2:|!menu=!m|
|000021a0| 65 6e 75 20 82 20 28 31 | 3c 3c 32 32 29 0d 0a c8 |enu . (1|<<22)...|
|000021b0| 05 cb 0d 0a d2 05 e1 0d | 0a dc 1d dd a4 6d 65 6e |........|.....men|
|000021c0| 75 74 69 63 6b 65 64 28 | 6d 65 6e 75 25 2c 69 74 |uticked(|menu%,it|
|000021d0| 65 6d 25 29 0d 0a e6 22 | 3d 28 28 6d 65 6e 75 25 |em%)..."|=((menu%|
|000021e0| 21 28 32 38 2b 32 34 2a | 69 74 65 6d 25 29 29 20 |!(28+24*|item%)) |
|000021f0| 80 20 31 29 3d 31 0d 0a | f0 1d dd a4 6d 65 6e 75 |. 1)=1..|....menu|
|00002200| 73 68 61 64 65 64 28 6d | 65 6e 75 25 2c 69 74 65 |shaded(m|enu%,ite|
|00002210| 6d 25 29 0d 0a fa 22 3d | 28 28 6d 65 6e 75 25 21 |m%)..."=|((menu%!|
|00002220| 28 32 38 2b 32 34 2a 69 | 74 65 6d 25 29 29 20 80 |(28+24*i|tem%)) .|
|00002230| 20 34 29 3d 34 0d 0b 04 | 05 3a 0d 0b 0e 34 f4 20 | 4)=4...|.:...4. |
|00002240| 50 52 4f 43 73 65 74 6d | 65 6e 75 74 65 78 74 20 |PROCsetm|enutext |
|00002250| 3a 20 53 65 74 20 74 68 | 65 20 74 65 78 74 20 66 |: Set th|e text f|
|00002260| 6f 72 20 6d 65 6e 75 20 | 6f 70 74 69 6f 6e 0d 0b |or menu |option..|
|00002270| 18 35 f4 20 46 4e 67 65 | 74 6d 65 6e 75 74 65 78 |.5. FNge|tmenutex|
|00002280| 74 20 20 20 3a 20 52 65 | 61 64 20 74 68 65 20 74 |t : Re|ad the t|
|00002290| 65 78 74 20 66 6f 72 20 | 6d 65 6e 75 20 6f 70 74 |ext for |menu opt|
|000022a0| 69 6f 6e 0d 0b 22 37 dd | f2 73 65 74 6d 65 6e 75 |ion.."7.|.setmenu|
|000022b0| 74 65 78 74 28 6d 65 6e | 75 2c 6f 70 74 69 6f 6e |text(men|u,option|
|000022c0| 2c 74 65 78 74 24 29 3a | 6d 65 6e 75 2b 3d 6f 70 |,text$):|menu+=op|
|000022d0| 74 69 6f 6e 2a 32 34 2b | 33 36 0d 0b 2c 37 e7 20 |tion*24+|36..,7. |
|000022e0| 28 21 6d 65 6e 75 20 80 | 26 31 30 30 29 3e 30 20 |(!menu .|&100)>0 |
|000022f0| 8c 24 28 6d 65 6e 75 21 | 34 29 3d 74 65 78 74 24 |.$(menu!|4)=text$|
|00002300| 20 8b 24 28 6d 65 6e 75 | 2b 34 29 3d 74 65 78 74 | .$(menu|+4)=text|
|00002310| 24 0d 0b 36 05 e1 0d 0b | 40 39 dd a4 67 65 74 6d |$..6....|@9..getm|
|00002320| 65 6e 75 74 65 78 74 28 | 6d 65 6e 75 2c 6f 70 74 |enutext(|menu,opt|
|00002330| 69 6f 6e 29 3a 6d 65 6e | 75 2b 3d 6f 70 74 69 6f |ion):men|u+=optio|
|00002340| 6e 2a 32 34 2b 33 36 3a | ea 20 74 65 78 74 24 0d |n*24+36:|. text$.|
|00002350| 0b 4a 37 e7 20 28 21 6d | 65 6e 75 20 80 26 31 30 |.J7. (!m|enu .&10|
|00002360| 30 29 3e 30 20 8c 74 65 | 78 74 24 3d 24 28 6d 65 |0)>0 .te|xt$=$(me|
|00002370| 6e 75 21 34 29 20 8b 74 | 65 78 74 24 3d 24 28 6d |nu!4) .t|ext$=$(m|
|00002380| 65 6e 75 2b 34 29 0d 0b | 54 0a 3d 74 65 78 74 24 |enu+4)..|T.=text$|
|00002390| 0d 0b 5e 05 3a 0d 0b 68 | 34 f4 20 46 4e 64 65 63 |..^.:..h|4. FNdec|
|000023a0| 6f 64 65 6d 65 6e 75 20 | 3a 20 52 65 74 75 72 6e |odemenu |: Return|
|000023b0| 20 6d 65 6e 75 20 73 65 | 6c 65 63 74 69 6f 6e 20 | menu se|lection |
|000023c0| 61 73 20 73 74 72 69 6e | 67 0d 0b 72 2f f4 20 61 |as strin|g..r/. a|
|000023d0| 6c 73 6f 20 72 65 74 75 | 72 6e 73 20 66 6f 72 20 |lso retu|rns for |
|000023e0| 66 6f 6e 74 20 69 66 20 | 6d 65 6e 75 20 69 73 20 |font if |menu is |
|000023f0| 66 6f 6e 74 6d 65 6e 75 | 0d 0b 7c 37 dd a4 64 65 |fontmenu|..|7..de|
|00002400| 63 6f 64 65 6d 65 6e 75 | 28 6d 65 6e 75 25 29 3a |codemenu|(menu%):|
|00002410| ea 20 63 70 25 2c 70 74 | 72 2c 62 24 2c 63 24 3a |. cp%,pt|r,b$,c$:|
|00002420| 63 70 25 3d 6d 65 6e 75 | 25 3a 70 74 72 3d 30 0d |cp%=menu|%:ptr=0.|
|00002430| 0b 86 25 c8 95 20 28 62 | 25 21 70 74 72 3e 2d 31 |..%.. (b|%!ptr>-1|
|00002440| 20 80 20 63 70 25 3c 3e | 72 6d 61 66 6f 6e 74 61 | . cp%<>|rmafonta|
|00002450| 72 65 61 29 0d 0b 90 24 | 20 63 70 25 3d 63 70 25 |rea)...$| cp%=cp%|
|00002460| 21 28 33 32 2b 28 62 25 | 21 70 74 72 29 2a 32 34 |!(32+(b%|!ptr)*24|
|00002470| 29 3a 70 74 72 2b 3d 34 | 0d 0b 9a 05 ce 0d 0b a4 |):ptr+=4|........|
|00002480| 23 e7 20 63 70 25 3d 72 | 6d 61 66 6f 6e 74 61 72 |#. cp%=r|mafontar|
|00002490| 65 61 20 80 20 62 25 21 | 70 74 72 3c 3e 30 20 8c |ea . b%!|ptr<>0 .|
|000024a0| 0d 0b ae 41 20 c8 99 20 | 22 46 6f 6e 74 5f 44 65 |...A .. |"Font_De|
|000024b0| 63 6f 64 65 4d 65 6e 75 | 22 2c 2c 72 6d 61 66 6f |codeMenu|",,rmafo|
|000024c0| 6e 74 61 72 65 61 2c 62 | 25 2b 70 74 72 2c c4 32 |ntarea,b|%+ptr,.2|
|000024d0| 35 35 2c bd 30 29 2c 32 | 35 35 20 b8 2c 2c 2c 6d |55,.0),2|55 .,,,m|
|000024e0| 24 0d 0b b8 05 cc 0d 0b | c2 37 20 c8 99 20 22 57 |$.......|.7 .. "W|
|000024f0| 69 6d 70 5f 44 65 63 6f | 64 65 4d 65 6e 75 22 2c |imp_Deco|deMenu",|
|00002500| 2c 6d 65 6e 75 25 2c 62 | 25 2c c4 32 35 35 2c bd |,menu%,b|%,.255,.|
|00002510| 30 29 2c 32 35 35 20 b8 | 2c 2c 2c 6d 24 0d 0b cc |0),255 .|,,,m$...|
|00002520| 0a 20 62 24 3d 22 22 0d | 0b d6 06 20 f5 0d 0b e0 |. b$="".|... ....|
|00002530| 2c 20 20 63 24 3d c0 6d | 24 2c a7 6d 24 2b 22 2e |, c$=.m|$,.m$+".|
|00002540| 22 2c 22 2e 22 29 2d 31 | 29 3a 6d 24 3d c1 6d 24 |",".")-1|):m$=.m$|
|00002550| 2c a9 28 63 24 29 2b 32 | 29 0d 0b ea 1e 20 20 63 |,.(c$)+2|).... c|
|00002560| 24 3d c0 63 24 2c a7 63 | 24 2b 22 20 5e 22 2c 22 |$=.c$,.c|$+" ^","|
|00002570| 20 5e 22 29 2d 31 29 0d | 0b f4 26 20 20 63 24 3d | ^")-1).|..& c$=|
|00002580| c0 63 24 2c a7 63 24 2b | 22 20 22 2b bd 31 33 39 |.c$,.c$+|" "+.139|
|00002590| 2c 22 20 22 2b bd 31 33 | 39 29 2d 31 29 0d 0b fe |," "+.13|9)-1)...|
|000025a0| 11 20 20 c8 8e 20 c2 63 | 24 2c 33 29 20 ca 0d 0c |. .. .c|$,3) ...|
|000025b0| 08 60 20 20 20 c9 20 22 | 45 73 63 22 2c 22 44 65 |.` . "|Esc","De|
|000025c0| 6c 22 2c 22 49 6e 73 22 | 2c 22 45 6e 64 22 2c 22 |l","Ins"|,"End","|
|000025d0| 48 6f 6d 22 2c 22 43 70 | 79 22 2c 22 46 31 30 22 |Hom","Cp|y","F10"|
|000025e0| 2c 22 46 31 32 22 2c 22 | 46 31 33 22 2c 22 50 72 |,"F12","|F13","Pr|
|000025f0| 74 22 2c 22 54 61 62 22 | 2c 22 52 65 74 22 3a 63 |t","Tab"|,"Ret":c|
|00002600| 24 3d c0 63 24 2c a9 28 | 63 24 29 2d 34 29 0d 0c |$=.c$,.(|c$)-4)..|
|00002610| 12 07 20 20 cb 0d 0c 1c | 44 20 20 e7 20 c1 63 24 |.. ....|D . .c$|
|00002620| 2c a9 28 63 24 29 2d 32 | 2c 32 29 3d 22 20 46 22 |,.(c$)-2|,2)=" F"|
|00002630| 20 8c e7 c2 63 24 29 3d | 22 30 22 20 84 20 bb 28 | ...c$)=|"0" . .(|
|00002640| c2 63 24 29 29 3c 3e 30 | 20 8c 63 24 3d c0 63 24 |.c$))<>0| .c$=.c$|
|00002650| 2c a9 28 63 24 29 2d 33 | 29 0d 0c 26 1b 20 20 c8 |,.(c$)-3|)..&. .|
|00002660| 95 20 c2 63 24 29 3d 22 | 20 22 3a 63 24 3d c0 63 |. .c$)="| ":c$=.c|
|00002670| 24 29 3a ce 0d 0c 30 10 | 20 20 62 24 2b 3d 63 24 |$):...0.| b$+=c$|
|00002680| 2b 22 2e 22 0d 0c 3a 14 | 20 fd 6d 24 3d 22 22 20 |+"."..:.| .m$="" |
|00002690| 84 20 6d 24 3d 22 2e 22 | 0d 0c 44 17 20 e7 20 6d |. m$="."|..D. . m|
|000026a0| 24 3d 22 2e 22 20 8c 62 | 24 2b 3d 22 2e 2e 22 0d |$="." .b|$+="..".|
|000026b0| 0c 4e 0c 20 6d 24 3d c0 | 62 24 29 0d 0c 58 05 cd |.N. m$=.|b$)..X..|
|000026c0| 0d 0c 62 07 3d 6d 24 0d | 0c 6c 05 3a 0d 0c 76 3f |..b.=m$.|.l.:..v?|
|000026d0| f4 20 46 4e 67 65 74 66 | 6f 6e 74 6d 65 6e 75 20 |. FNgetf|ontmenu |
|000026e0| 20 20 20 20 20 20 3a 20 | 52 65 74 75 72 6e 20 6d | : |Return m|
|000026f0| 65 6d 6f 72 79 20 6c 6f | 63 61 74 69 6f 6e 20 6f |emory lo|cation o|
|00002700| 66 20 66 6f 6e 74 20 6d | 65 6e 75 0d 0c 80 3b f4 |f font m|enu...;.|
|00002710| 20 50 52 4f 43 72 65 6c | 65 61 73 65 66 6f 6e 74 | PROCrel|easefont|
|00002720| 6d 65 6e 75 20 3a 20 52 | 65 6c 65 61 73 65 20 6d |menu : R|elease m|
|00002730| 65 6d 6f 72 79 20 75 73 | 65 64 20 62 79 20 66 6f |emory us|ed by fo|
|00002740| 6e 74 6d 65 6e 75 0d 0c | 8a 24 dd a4 67 65 74 66 |ntmenu..|.$..getf|
|00002750| 6f 6e 74 6d 65 6e 75 28 | 66 6f 6e 74 24 29 3a ea |ontmenu(|font$):.|
|00002760| 20 73 70 61 63 65 2c 69 | 6e 64 0d 0c 94 15 c8 99 | space,i|nd......|
|00002770| 20 22 48 6f 75 72 67 6c | 61 73 73 5f 4f 6e 22 0d | "Hourgl|ass_On".|
|00002780| 0c 9e 34 c8 99 20 22 46 | 6f 6e 74 5f 4c 69 73 74 |..4.. "F|ont_List|
|00002790| 46 6f 6e 74 73 22 2c 2c | 2c 37 3c 3c 31 39 2c 2c |Fonts",,|,7<<19,,|
|000027a0| 2c 2c 31 20 b8 20 2c 2c | 2c 73 70 61 63 65 2c 2c |,,1 . ,,|,space,,|
|000027b0| 69 6e 64 0d 0c a8 37 f2 | 72 65 6c 65 61 73 65 28 |ind...7.|release(|
|000027c0| 72 6d 61 66 6f 6e 74 61 | 72 65 61 29 3a 72 6d 61 |rmafonta|rea):rma|
|000027d0| 66 6f 6e 74 61 72 65 61 | 3d a4 63 6c 61 69 6d 28 |fontarea|=.claim(|
|000027e0| 73 70 61 63 65 2b 69 6e | 64 29 0d 0c b2 2b e7 20 |space+in|d)...+. |
|000027f0| 72 6d 61 66 6f 6e 74 61 | 72 65 61 3c 30 20 8c c8 |rmafonta|rea<0 ..|
|00002800| 99 20 22 48 6f 75 72 67 | 6c 61 73 73 5f 4f 66 66 |. "Hourg|lass_Off|
|00002810| 22 3a 3d 2d 31 0d 0c bc | 28 e7 20 66 6f 6e 74 24 |":=-1...|(. font$|
|00002820| 3c 3e 22 22 20 80 20 66 | 6f 6e 74 24 3c 3e 22 53 |<>"" . f|ont$<>"S|
|00002830| 79 73 74 65 6d 20 66 6f | 6e 74 22 20 8c 0d 0c c6 |ystem fo|nt" ....|
|00002840| 4d 20 c8 99 20 22 46 6f | 6e 74 5f 4c 69 73 74 46 |M .. "Fo|nt_ListF|
|00002850| 6f 6e 74 73 22 2c 2c 72 | 6d 61 66 6f 6e 74 61 72 |onts",,r|mafontar|
|00002860| 65 61 2c 37 3c 3c 31 39 | 2c 73 70 61 63 65 2c 72 |ea,7<<19|,space,r|
|00002870| 6d 61 66 6f 6e 74 61 72 | 65 61 2b 73 70 61 63 65 |mafontar|ea+space|
|00002880| 2c 69 6e 64 2c 66 6f 6e | 74 24 0d 0c d0 05 cc 0d |,ind,fon|t$......|
|00002890| 0c da 5e 20 c8 99 20 22 | 46 6f 6e 74 5f 4c 69 73 |..^ .. "|Font_Lis|
|000028a0| 74 46 6f 6e 74 73 22 2c | 2c 72 6d 61 66 6f 6e 74 |tFonts",|,rmafont|
|000028b0| 61 72 65 61 2c 37 3c 3c | 31 39 2c 73 70 61 63 65 |area,7<<|19,space|
|000028c0| 2c 72 6d 61 66 6f 6e 74 | 61 72 65 61 2b 73 70 61 |,rmafont|area+spa|
|000028d0| 63 65 2c 69 6e 64 2c 2d | 28 66 6f 6e 74 24 3d 22 |ce,ind,-|(font$="|
|000028e0| 53 79 73 74 65 6d 20 66 | 6f 6e 74 22 29 0d 0c e4 |System f|ont")...|
|000028f0| 05 cd 0d 0c ee 16 c8 99 | 20 22 48 6f 75 72 67 6c |........| "Hourgl|
|00002900| 61 73 73 5f 4f 66 66 22 | 0d 0c f8 10 3d 72 6d 61 |ass_Off"|....=rma|
|00002910| 66 6f 6e 74 61 72 65 61 | 0d 0d 02 2d dd f2 72 65 |fontarea|...-..re|
|00002920| 6c 65 61 73 65 66 6f 6e | 74 6d 65 6e 75 3a f2 72 |leasefon|tmenu:.r|
|00002930| 65 6c 65 61 73 65 28 72 | 6d 61 66 6f 6e 74 61 72 |elease(r|mafontar|
|00002940| 65 61 29 3a e1 0d 0d 0c | 05 3a 0d 0d 16 30 f4 20 |ea):....|.:...0. |
|00002950| 46 4e 63 72 65 61 74 65 | 66 74 6d 65 6e 75 20 20 |FNcreate|ftmenu |
|00002960| 20 20 3a 20 43 72 65 61 | 74 65 20 61 20 66 69 6c | : Crea|te a fil|
|00002970| 65 74 79 70 65 20 6d 65 | 6e 75 0d 0d 20 37 f4 20 |etype me|nu.. 7. |
|00002980| 50 52 4f 43 72 65 6c 65 | 61 73 65 66 74 6d 65 6e |PROCrele|aseftmen|
|00002990| 75 20 3a 20 52 65 6c 65 | 61 73 65 20 73 70 61 63 |u : Rele|ase spac|
|000029a0| 65 20 75 73 65 64 20 62 | 79 20 46 54 20 6d 65 6e |e used b|y FT men|
|000029b0| 75 0d 0d 2a 12 dd a4 63 | 72 65 61 74 65 66 74 6d |u..*...c|reateftm|
|000029c0| 65 6e 75 0d 0d 34 2d ea | 20 6c 65 6e 2c 6e 61 6d |enu..4-.| len,nam|
|000029d0| 65 2c 74 79 70 65 2c 66 | 6c 61 67 73 2c 6d 6c 65 |e,type,f|lags,mle|
|000029e0| 6e 2c 69 6c 65 6e 2c 6e | 24 2c 76 24 2c 6d 73 74 |n,ilen,n|$,v$,mst|
|000029f0| 0d 0d 3e 51 c8 99 20 22 | 58 4f 53 5f 52 65 61 64 |..>Q.. "|XOS_Read|
|00002a00| 56 61 72 56 61 6c 22 2c | 22 46 69 6c 65 24 54 79 |VarVal",|"File$Ty|
|00002a10| 70 65 5f 2a 22 2c 6d 65 | 73 73 61 67 65 5f 62 75 |pe_*",me|ssage_bu|
|00002a20| 66 66 65 72 25 2c 32 35 | 36 20 b8 20 2c 2c 6c 65 |ffer%,25|6 . ,,le|
|00002a30| 6e 2c 6e 61 6d 65 2c 74 | 79 70 65 3b 66 6c 61 67 |n,name,t|ype;flag|
|00002a40| 73 0d 0d 48 15 6d 6c 65 | 6e 3d 32 38 2b 32 34 3a |s..H.mle|n=28+24:|
|00002a50| 69 6c 65 6e 3d 39 0d 0d | 52 14 c8 95 20 28 66 6c |ilen=9..|R... (fl|
|00002a60| 61 67 73 20 80 31 29 3c | 3e 31 0d 0d 5c 0f 20 e7 |ags .1)<|>1..\. .|
|00002a70| 20 74 79 70 65 3d 30 20 | 8c 0d 0d 66 24 20 20 6d | type=0 |...f$ m|
|00002a80| 6c 65 6e 2b 3d 32 34 3a | 6e 24 3d c2 a4 73 74 72 |len+=24:|n$=..str|
|00002a90| 69 6e 67 30 28 6e 61 6d | 65 29 2c 33 29 0d 0d 70 |ing0(nam|e),3)..p|
|00002aa0| 2d 20 20 c8 99 20 22 58 | 57 69 6d 70 5f 53 70 72 |- .. "X|Wimp_Spr|
|00002ab0| 69 74 65 4f 70 22 2c 32 | 34 2c 2c 22 53 6d 61 6c |iteOp",2|4,,"Smal|
|00002ac0| 6c 5f 22 2b 6e 24 20 b8 | 3b 66 0d 0d 7a 11 20 20 |l_"+n$ .|;f..z. |
|00002ad0| e7 20 28 66 20 80 31 29 | 3d 31 8c 0d 0d 84 2d 20 |. (f .1)|=1....- |
|00002ae0| 20 20 c8 99 20 22 58 57 | 69 6d 70 5f 53 70 72 69 | .. "XW|imp_Spri|
|00002af0| 74 65 4f 70 22 2c 32 34 | 2c 2c 22 46 69 6c 65 5f |teOp",24|,,"File_|
|00002b00| 22 2b 6e 24 20 b8 3b 66 | 0d 0d 8e 2c 20 20 20 e7 |"+n$ .;f|..., .|
|00002b10| 20 28 66 20 80 31 29 3d | 30 8c 69 6c 65 6e 2b 3d | (f .1)=|0.ilen+=|
|00002b20| 31 31 2b 6c 65 6e 20 8b | 69 6c 65 6e 2b 3d 6c 65 |11+len .|ilen+=le|
|00002b30| 6e 2b 31 31 0d 0d 98 07 | 20 20 cc 0d 0d a2 13 20 |n+11....| ..... |
|00002b40| 20 20 69 6c 65 6e 2b 3d | 31 32 2b 6c 65 6e 0d 0d | ilen+=|12+len..|
|00002b50| ac 07 20 20 cd 0d 0d b6 | 06 20 cd 0d 0d c0 57 20 |.. ....|. ....W |
|00002b60| c8 99 20 22 58 4f 53 5f | 52 65 61 64 56 61 72 56 |.. "XOS_|ReadVarV|
|00002b70| 61 6c 22 2c 22 46 69 6c | 65 24 54 79 70 65 5f 2a |al","Fil|e$Type_*|
|00002b80| 22 2c 6d 65 73 73 61 67 | 65 5f 62 75 66 66 65 72 |",messag|e_buffer|
|00002b90| 25 2c 32 35 36 2c 6e 61 | 6d 65 20 b8 20 2c 2c 6c |%,256,na|me . ,,l|
|00002ba0| 65 6e 2c 6e 61 6d 65 2c | 74 79 70 65 3b 66 6c 61 |en,name,|type;fla|
|00002bb0| 67 73 0d 0d ca 05 ce 0d | 0d d4 1b 66 74 62 6c 6b |gs......|...ftblk|
|00002bc0| 3d a4 63 6c 61 69 6d 28 | 6d 6c 65 6e 2b 69 6c 65 |=.claim(|mlen+ile|
|00002bd0| 6e 29 0d 0d de 10 e7 20 | 66 74 62 6c 6b 3d 2d 31 |n)..... |ftblk=-1|
|00002be0| 20 8c 0d 0d e8 1a 20 66 | 74 62 6c 6b 3d a4 63 6c | ..... f|tblk=.cl|
|00002bf0| 61 69 6d 28 32 38 2b 32 | 34 2b 39 29 0d 0d f2 28 |aim(28+2|4+9)...(|
|00002c00| 20 24 66 74 62 6c 6b 3d | 22 46 69 6c 65 20 74 79 | $ftblk=|"File ty|
|00002c10| 70 65 73 22 3a 66 74 62 | 6c 6b 21 31 32 3d 26 37 |pes":ftb|lk!12=&7|
|00002c20| 30 32 30 37 0d 0d fc 2b | 20 66 74 62 6c 6b 21 31 |0207...+| ftblk!1|
|00002c30| 36 3d 31 36 2a 31 32 3a | 66 74 62 6c 6b 21 32 30 |6=16*12:|ftblk!20|
|00002c40| 3d 26 32 38 3a 66 74 62 | 6c 6b 21 32 34 3d 30 0d |=&28:ftb|lk!24=0.|
|00002c50| 0e 06 2f 20 66 74 62 6c | 6b 21 32 38 3d 26 38 30 |../ ftbl|k!28=&80|
|00002c60| 3a 66 74 62 6c 6b 21 33 | 32 3d 2d 31 3a 66 74 62 |:ftblk!3|2=-1:ftb|
|00002c70| 6c 6b 21 33 36 3d 26 37 | 30 30 30 31 32 31 0d 0e |lk!36=&7|000121..|
|00002c80| 10 2f 20 66 74 62 6c 6b | 21 34 30 3d 66 74 62 6c |./ ftblk|!40=ftbl|
|00002c90| 6b 2b 32 38 2b 32 34 3a | 66 74 62 6c 6b 21 34 34 |k+28+24:|ftblk!44|
|00002ca0| 3d 30 3a 66 74 62 6c 6b | 21 34 38 3d 39 0d 0e 1a |=0:ftblk|!48=9...|
|00002cb0| 16 20 24 28 66 74 62 6c | 6b 2b 32 38 2b 32 34 29 |. $(ftbl|k+28+24)|
|00002cc0| 3d 22 22 0d 0e 24 05 cc | 0d 0e 2e 28 20 24 66 74 |=""..$..|...( $ft|
|00002cd0| 62 6c 6b 3d 22 46 69 6c | 65 20 74 79 70 65 73 22 |blk="Fil|e types"|
|00002ce0| 3a 66 74 62 6c 6b 21 31 | 32 3d 26 37 30 32 30 37 |:ftblk!1|2=&70207|
|00002cf0| 0d 0e 38 2b 20 66 74 62 | 6c 6b 21 31 36 3d 31 36 |..8+ ftb|lk!16=16|
|00002d00| 2a 31 32 3a 66 74 62 6c | 6b 21 32 30 3d 26 32 38 |*12:ftbl|k!20=&28|
|00002d10| 3a 66 74 62 6c 6b 21 32 | 34 3d 30 0d 0e 42 2a 20 |:ftblk!2|4=0..B* |
|00002d20| 69 6c 65 6e 3d 6d 6c 65 | 6e 2b 66 74 62 6c 6b 3a |ilen=mle|n+ftblk:|
|00002d30| 6d 6c 65 6e 3d 69 6c 65 | 6e 2d 32 34 3a 6d 73 74 |mlen=ile|n-24:mst|
|00002d40| 3d 6d 6c 65 6e 0d 0e 4c | 54 20 c8 99 20 22 58 4f |=mlen..L|T .. "XO|
|00002d50| 53 5f 52 65 61 64 56 61 | 72 56 61 6c 22 2c 22 46 |S_ReadVa|rVal","F|
|00002d60| 69 6c 65 24 54 79 70 65 | 5f 2a 22 2c 6d 65 73 73 |ile$Type|_*",mess|
|00002d70| 61 67 65 5f 62 75 66 66 | 65 72 25 2c 32 35 36 2c |age_buff|er%,256,|
|00002d80| 30 20 b8 20 2c 2c 6c 65 | 6e 2c 6e 61 6d 65 2c 74 |0 . ,,le|n,name,t|
|00002d90| 79 70 65 3b 66 6c 61 67 | 73 0d 0e 56 15 20 c8 95 |ype;flag|s..V. ..|
|00002da0| 20 28 66 6c 61 67 73 20 | 80 31 29 3c 3e 31 0d 0e | (flags |.1)<>1..|
|00002db0| 60 10 20 20 e7 20 74 79 | 70 65 3d 30 20 8c 0d 0e |`. . ty|pe=0 ...|
|00002dc0| 6a 4f 20 20 20 6d 65 73 | 73 61 67 65 5f 62 75 66 |jO mes|sage_buf|
|00002dd0| 66 65 72 25 21 6c 65 6e | 3d 30 3a 6e 24 3d c2 a4 |fer%!len|=0:n$=..|
|00002de0| 73 74 72 69 6e 67 30 28 | 6e 61 6d 65 29 2c 33 29 |string0(|name),3)|
|00002df0| 3a 76 24 3d a4 73 74 72 | 69 6e 67 30 28 6d 65 73 |:v$=.str|ing0(mes|
|00002e00| 73 61 67 65 5f 62 75 66 | 66 65 72 25 29 0d 0e 74 |sage_buf|fer%)..t|
|00002e10| 19 20 20 20 6d 6c 65 6e | 21 30 3d 30 3a 6d 6c 65 |. mlen|!0=0:mle|
|00002e20| 6e 21 34 3d 2d 31 0d 0e | 7e 2e 20 20 20 c8 99 20 |n!4=-1..|~. .. |
|00002e30| 22 58 57 69 6d 70 5f 53 | 70 72 69 74 65 4f 70 22 |"XWimp_S|priteOp"|
|00002e40| 2c 32 34 2c 2c 22 53 6d | 61 6c 6c 5f 22 2b 6e 24 |,24,,"Sm|all_"+n$|
|00002e50| 20 b8 3b 66 0d 0e 88 12 | 20 20 20 e7 20 28 66 20 | .;f....| . (f |
|00002e60| 80 31 29 3d 31 8c 0d 0e | 92 2e 20 20 20 20 c8 99 |.1)=1...|.. ..|
|00002e70| 20 22 58 57 69 6d 70 5f | 53 70 72 69 74 65 4f 70 | "XWimp_|SpriteOp|
|00002e80| 22 2c 32 34 2c 2c 22 46 | 69 6c 65 5f 22 2b 6e 24 |",24,,"F|ile_"+n$|
|00002e90| 20 b8 3b 66 0d 0e 9c 2f | 20 20 20 20 e7 20 28 66 | .;f.../| . (f|
|00002ea0| 20 80 31 29 3d 30 8c 6e | 24 3d 22 46 69 6c 65 5f | .1)=0.n|$="File_|
|00002eb0| 22 2b 6e 24 20 8b 6e 24 | 3d 22 46 69 6c 65 5f 78 |"+n$ .n$|="File_x|
|00002ec0| 78 78 22 0d 0e a6 17 20 | 20 20 20 6d 6c 65 6e 21 |xx".... | mlen!|
|00002ed0| 38 3d 26 37 30 30 30 39 | 33 33 0d 0e b0 08 20 20 |8=&70009|33.... |
|00002ee0| 20 cc 0d 0e ba 26 20 20 | 20 20 6e 24 3d 22 53 6d | ....& | n$="Sm|
|00002ef0| 61 6c 6c 5f 22 2b 6e 24 | 3a 6d 6c 65 6e 21 38 3d |all_"+n$|:mlen!8=|
|00002f00| 26 37 30 30 30 31 33 33 | 0d 0e c4 08 20 20 20 cd |&7000133|.... .|
|00002f10| 0d 0e ce 2a 20 20 20 6d | 6c 65 6e 21 31 32 3d 69 |...* m|len!12=i|
|00002f20| 6c 65 6e 3a 24 69 6c 65 | 6e 3d 76 24 3a 69 6c 65 |len:$ile|n=v$:ile|
|00002f30| 6e 2b 3d a9 28 76 24 29 | 2b 31 0d 0e d8 2e 20 20 |n+=.(v$)|+1.... |
|00002f40| 20 6d 6c 65 6e 21 31 36 | 3d 69 6c 65 6e 3a 24 69 | mlen!16|=ilen:$i|
|00002f50| 6c 65 6e 3d 22 73 22 2b | 6e 24 3a 69 6c 65 6e 2b |len="s"+|n$:ilen+|
|00002f60| 3d a9 28 6e 24 29 2b 32 | 0d 0e e2 1f 20 20 20 6d |=.(n$)+2|.... m|
|00002f70| 6c 65 6e 21 32 30 3d a9 | 28 76 24 29 2b 31 3a 6d |len!20=.|(v$)+1:m|
|00002f80| 6c 65 6e 2d 3d 32 34 0d | 0e ec 07 20 20 cd 0d 0e |len-=24.|... ...|
|00002f90| f6 58 20 20 c8 99 20 22 | 58 4f 53 5f 52 65 61 64 |.X .. "|XOS_Read|
|00002fa0| 56 61 72 56 61 6c 22 2c | 22 46 69 6c 65 24 54 79 |VarVal",|"File$Ty|
|00002fb0| 70 65 5f 2a 22 2c 6d 65 | 73 73 61 67 65 5f 62 75 |pe_*",me|ssage_bu|
|00002fc0| 66 66 65 72 25 2c 32 35 | 36 2c 6e 61 6d 65 20 b8 |ffer%,25|6,name .|
|00002fd0| 20 2c 2c 6c 65 6e 2c 6e | 61 6d 65 2c 74 79 70 65 | ,,len,n|ame,type|
|00002fe0| 3b 66 6c 61 67 73 0d 0f | 00 06 20 ce 0d 0f 0a 34 |;flags..|.. ....4|
|00002ff0| 20 6d 6c 65 6e 21 30 3d | 34 3a 6d 6c 65 6e 21 34 | mlen!0=|4:mlen!4|
|00003000| 3d 2d 31 3a 6d 6c 65 6e | 21 38 3d 26 37 30 30 30 |=-1:mlen|!8=&7000|
|00003010| 31 32 31 3a 6d 6c 65 6e | 21 31 32 3d 69 6c 65 6e |121:mlen|!12=ilen|
|00003020| 0d 0f 14 3c 20 24 69 6c | 65 6e 3d 22 22 3a 69 6c |...< $il|en="":il|
|00003030| 65 6e 2b 3d 39 3a 6d 6c | 65 6e 21 31 36 3d 2d 31 |en+=9:ml|en!16=-1|
|00003040| 3a 6d 6c 65 6e 21 32 30 | 3d 39 3a 6d 6c 65 6e 2d |:mlen!20|=9:mlen-|
|00003050| 3d 32 34 3a 21 6d 73 74 | 3d 26 38 30 0d 0f 1e 05 |=24:!mst|=&80....|
|00003060| cd 0d 0f 28 0a 3d 66 74 | 62 6c 6b 0d 0f 32 25 dd |...(.=ft|blk..2%.|
|00003070| f2 72 65 6c 65 61 73 65 | 66 74 6d 65 6e 75 3a f2 |.release|ftmenu:.|
|00003080| 72 65 6c 65 61 73 65 28 | 66 74 62 6c 6b 29 3a e1 |release(|ftblk):.|
|00003090| 0d 0f 3c 05 3a 0d 0f 46 | 37 f4 20 2a 2a 2a 2a 2a |..<.:..F|7. *****|
|000030a0| 2a 2a 2a 20 57 69 6e 64 | 6f 77 20 6d 61 6e 69 70 |*** Wind|ow manip|
|000030b0| 75 6c 61 74 69 6f 6e 20 | 72 6f 75 74 69 6e 65 73 |ulation |routines|
|000030c0| 20 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 0d 0f 50 05 | *******|****..P.|
|000030d0| 3a 0d 0f 5a 28 f4 20 50 | 52 4f 43 63 6c 6f 73 65 |:..Z(. P|ROCclose|
|000030e0| 77 69 6e 20 20 20 20 20 | 20 3a 20 43 6c 6f 73 65 |win | : Close|
|000030f0| 20 61 20 77 69 6e 64 6f | 77 0d 0f 64 37 f4 20 50 | a windo|w..d7. P|
|00003100| 52 4f 43 6f 70 65 6e 77 | 69 6e 20 20 20 20 20 20 |ROCopenw|in |
|00003110| 20 3a 20 4f 70 65 6e 20 | 61 20 77 69 6e 64 6f 77 | : Open |a window|
|00003120| 20 61 74 20 74 6f 70 20 | 6f 66 20 73 74 61 63 6b | at top |of stack|
|00003130| 0d 0f 6e 3e f4 20 50 52 | 4f 43 6f 70 65 6e 77 69 |..n>. PR|OCopenwi|
|00003140| 6e 61 74 20 20 20 20 20 | 3a 20 4f 70 65 6e 20 61 |nat |: Open a|
|00003150| 20 77 69 6e 64 6f 77 20 | 61 74 20 74 6f 70 2d 6c | window |at top-l|
|00003160| 65 66 74 20 63 6f 72 6e | 65 72 20 78 2c 79 0d 0f |eft corn|er x,y..|
|00003170| 78 39 f4 20 50 52 4f 43 | 6f 70 65 6e 77 69 6e 63 |x9. PROC|openwinc|
|00003180| 65 6e 74 72 65 20 3a 20 | 4f 70 65 6e 20 77 69 6e |entre : |Open win|
|00003190| 64 6f 77 20 69 6e 20 63 | 65 6e 74 72 65 20 6f 66 |dow in c|entre of|
|000031a0| 20 73 63 72 65 65 6e 0d | 0f 82 3c f4 20 50 52 4f | screen.|..<. PRO|
|000031b0| 43 6f 70 65 6e 77 69 6e | 74 6f 20 20 20 20 20 3a |Copenwin|to :|
|000031c0| 20 4f 70 65 6e 20 77 69 | 6e 64 6f 77 20 61 74 20 | Open wi|ndow at |
|000031d0| 70 6f 73 69 74 69 6f 6e | 20 77 69 74 68 69 6e 20 |position| within |
|000031e0| 54 57 41 0d 0f 8c 14 dd | f2 63 6c 6f 73 65 77 69 |TWA.....|.closewi|
|000031f0| 6e 28 77 69 6e 25 29 0d | 0f 96 26 21 62 25 3d 77 |n(win%).|..&!b%=w|
|00003200| 69 6e 25 3a c8 99 20 22 | 57 69 6d 70 5f 43 6c 6f |in%:.. "|Wimp_Clo|
|00003210| 73 65 57 69 6e 64 6f 77 | 22 2c 2c 62 25 0d 0f a0 |seWindow|",,b%...|
|00003220| 05 e1 0d 0f aa 13 dd f2 | 6f 70 65 6e 77 69 6e 28 |........|openwin(|
|00003230| 77 69 6e 25 29 0d 0f b4 | 29 21 62 25 3d 77 69 6e |win%)...|)!b%=win|
|00003240| 25 3a c8 99 20 22 57 69 | 6d 70 5f 47 65 74 57 69 |%:.. "Wi|mp_GetWi|
|00003250| 6e 64 6f 77 53 74 61 74 | 65 22 2c 2c 62 25 0d 0f |ndowStat|e",,b%..|
|00003260| be 25 62 25 21 32 38 3d | 2d 31 3a c8 99 20 22 57 |.%b%!28=|-1:.. "W|
|00003270| 69 6d 70 5f 4f 70 65 6e | 57 69 6e 64 6f 77 22 2c |imp_Open|Window",|
|00003280| 2c 62 25 0d 0f c8 05 e1 | 0d 0f d2 28 dd f2 6f 70 |,b%.....|...(..op|
|00003290| 65 6e 77 69 6e 61 74 28 | 77 69 6e 25 2c 78 2c 79 |enwinat(|win%,x,y|
|000032a0| 29 3a ea 20 77 69 64 74 | 68 2c 68 65 69 67 68 74 |):. widt|h,height|
|000032b0| 0d 0f dc 29 21 62 25 3d | 77 69 6e 25 3a c8 99 20 |...)!b%=|win%:.. |
|000032c0| 22 57 69 6d 70 5f 47 65 | 74 57 69 6e 64 6f 77 53 |"Wimp_Ge|tWindowS|
|000032d0| 74 61 74 65 22 2c 2c 62 | 25 0d 0f e6 26 77 69 64 |tate",,b|%...&wid|
|000032e0| 74 68 3d 62 25 21 34 2d | 62 25 21 31 32 3a 68 65 |th=b%!4-|b%!12:he|
|000032f0| 69 67 68 74 3d 62 25 21 | 31 36 2d 62 25 21 38 0d |ight=b%!|16-b%!8.|
|00003300| 0f f0 2e 62 25 21 34 3d | 78 3a 62 25 21 38 3d 79 |...b%!4=|x:b%!8=y|
|00003310| 2d 68 65 69 67 68 74 3a | 62 25 21 31 32 3d 78 2d |-height:|b%!12=x-|
|00003320| 77 69 64 74 68 3a 62 25 | 21 31 36 3d 79 0d 0f fa |width:b%|!16=y...|
|00003330| 25 62 25 21 32 38 3d 2d | 31 3a c8 99 20 22 57 69 |%b%!28=-|1:.. "Wi|
|00003340| 6d 70 5f 4f 70 65 6e 57 | 69 6e 64 6f 77 22 2c 2c |mp_OpenW|indow",,|
|00003350| 62 25 0d 10 04 05 e1 0d | 10 0e 32 dd f2 6f 70 65 |b%......|..2..ope|
|00003360| 6e 77 69 6e 63 65 6e 74 | 72 65 28 77 69 6e 25 29 |nwincent|re(win%)|
|00003370| 3a ea 20 77 69 64 74 68 | 2c 68 65 69 67 68 74 2c |:. width|,height,|
|00003380| 74 6f 70 2c 72 69 67 68 | 74 0d 10 18 2a 21 62 25 |top,righ|t...*!b%|
|00003390| 3d 34 3a 62 25 21 34 3d | 35 3a 62 25 21 38 3d 31 |=4:b%!4=|5:b%!8=1|
|000033a0| 31 3a 62 25 21 31 32 3d | 31 32 3a 62 25 21 31 36 |1:b%!12=|12:b%!16|
|000033b0| 3d 2d 31 0d 10 22 25 c8 | 99 20 22 4f 53 5f 52 65 |=-1.."%.|. "OS_Re|
|000033c0| 61 64 56 64 75 56 61 72 | 69 61 62 6c 65 73 22 2c |adVduVar|iables",|
|000033d0| 62 25 2c 62 25 2b 32 30 | 0d 10 2c 2b 72 69 67 68 |b%,b%+20|..,+righ|
|000033e0| 74 3d 62 25 21 32 38 2b | 31 3c 3c 62 25 21 32 30 |t=b%!28+|1<<b%!20|
|000033f0| 3a 74 6f 70 3d 62 25 21 | 33 32 2b 31 3c 3c 62 25 |:top=b%!|32+1<<b%|
|00003400| 21 32 34 0d 10 36 29 21 | 62 25 3d 77 69 6e 25 3a |!24..6)!|b%=win%:|
|00003410| c8 99 20 22 57 69 6d 70 | 5f 47 65 74 57 69 6e 64 |.. "Wimp|_GetWind|
|00003420| 6f 77 53 74 61 74 65 22 | 2c 2c 62 25 0d 10 40 26 |owState"|,,b%..@&|
|00003430| 77 69 64 74 68 3d 62 25 | 21 34 2d 62 25 21 31 32 |width=b%|!4-b%!12|
|00003440| 3a 68 65 69 67 68 74 3d | 62 25 21 31 36 2d 62 25 |:height=|b%!16-b%|
|00003450| 21 38 0d 10 4a 33 78 3d | 28 72 69 67 68 74 2d 77 |!8..J3x=|(right-w|
|00003460| 69 64 74 68 29 2f 32 2b | 77 69 64 74 68 3a 79 3d |idth)/2+|width:y=|
|00003470| 28 74 6f 70 2d 68 65 69 | 67 68 74 29 2f 32 2b 68 |(top-hei|ght)/2+h|
|00003480| 65 69 67 68 74 0d 10 54 | 2e 62 25 21 34 3d 78 3a |eight..T|.b%!4=x:|
|00003490| 62 25 21 38 3d 79 2d 68 | 65 69 67 68 74 3a 62 25 |b%!8=y-h|eight:b%|
|000034a0| 21 31 32 3d 78 2d 77 69 | 64 74 68 3a 62 25 21 31 |!12=x-wi|dth:b%!1|
|000034b0| 36 3d 79 0d 10 5e 25 62 | 25 21 32 38 3d 2d 31 3a |6=y..^%b|%!28=-1:|
|000034c0| c8 99 20 22 57 69 6d 70 | 5f 4f 70 65 6e 57 69 6e |.. "Wimp|_OpenWin|
|000034d0| 64 6f 77 22 2c 2c 62 25 | 0d 10 68 05 e1 0d 10 72 |dow",,b%|..h....r|
|000034e0| 2f f4 20 6c 3d 6c 65 66 | 74 20 6f 66 20 56 57 41 |/. l=lef|t of VWA|
|000034f0| 20 69 6e 20 54 57 41 2c | 20 74 3d 74 6f 70 20 6f | in TWA,| t=top o|
|00003500| 66 20 56 57 41 20 69 6e | 20 54 57 41 0d 10 7c 33 |f VWA in| TWA..|3|
|00003510| f4 20 72 3d 72 69 67 68 | 74 20 6f 66 20 56 57 41 |. r=righ|t of VWA|
|00003520| 20 69 6e 20 54 57 41 2c | 20 62 3d 62 6f 74 74 6f | in TWA,| b=botto|
|00003530| 6d 20 6f 66 20 56 57 41 | 20 69 6e 20 54 57 41 0d |m of VWA| in TWA.|
|00003540| 10 86 41 f4 20 57 69 6e | 64 6f 77 20 64 6f 65 73 |..A. Win|dow does|
|00003550| 20 6e 6f 74 20 6d 6f 76 | 65 2c 20 62 75 74 20 69 | not mov|e, but i|
|00003560| 74 73 20 73 69 7a 65 20 | 69 73 20 61 6c 74 65 72 |ts size |is alter|
|00003570| 65 64 20 74 6f 20 64 69 | 66 66 65 72 65 6e 63 65 |ed to di|fference|
|00003580| 0d 10 90 3f f4 20 62 65 | 74 77 65 65 6e 20 6c 26 |...?. be|tween l&|
|00003590| 77 20 61 6e 64 20 74 26 | 68 2e 20 54 6f 70 20 6c |w and t&|h. Top l|
|000035a0| 65 66 74 20 6f 66 20 56 | 57 41 20 69 73 20 70 6f |eft of V|WA is po|
|000035b0| 73 69 74 69 6f 6e 65 64 | 20 74 6f 20 74 6c 2e 0d |sitioned| to tl..|
|000035c0| 10 9a 3b f4 20 49 66 20 | 72 62 20 3d 20 2d 31 20 |..;. If |rb = -1 |
|000035d0| 74 68 65 6e 20 6e 6f 20 | 61 63 74 75 61 6c 20 73 |then no |actual s|
|000035e0| 69 7a 65 20 63 68 61 6e | 67 65 2c 20 6a 75 73 74 |ize chan|ge, just|
|000035f0| 20 70 6f 73 69 74 69 6f | 6e 2e 0d 10 a4 1d dd f2 | positio|n.......|
|00003600| 6f 70 65 6e 77 69 6e 74 | 6f 28 77 69 6e 25 2c 6c |openwint|o(win%,l|
|00003610| 2c 74 2c 72 2c 62 29 0d | 10 ae 29 21 62 25 3d 77 |,t,r,b).|..)!b%=w|
|00003620| 69 6e 25 3a c8 99 20 22 | 57 69 6d 70 5f 47 65 74 |in%:.. "|Wimp_Get|
|00003630| 57 69 6e 64 6f 77 53 74 | 61 74 65 22 2c 2c 62 25 |WindowSt|ate",,b%|
|00003640| 0d 10 b8 13 e7 20 6c 3d | 2d 31 20 8c 6c 3d 62 25 |..... l=|-1 .l=b%|
|00003650| 21 32 30 0d 10 c2 13 e7 | 20 74 3d 2d 31 20 8c 62 |!20.....| t=-1 .b|
|00003660| 3d 62 25 21 32 34 0d 10 | cc 18 e7 20 72 3d 2d 31 |=b%!24..|... r=-1|
|00003670| 20 8c 72 3d 62 25 21 31 | 32 2d 62 25 21 34 0d 10 | .r=b%!1|2-b%!4..|
|00003680| d6 18 e7 20 62 3d 2d 31 | 20 8c 74 3d 62 25 21 38 |... b=-1| .t=b%!8|
|00003690| 2d 62 25 21 31 36 0d 10 | e0 31 62 25 21 31 32 3d |-b%!16..|.1b%!12=|
|000036a0| 62 25 21 34 2b 72 2d 6c | 3a 62 25 21 38 3d 62 25 |b%!4+r-l|:b%!8=b%|
|000036b0| 21 31 36 2b 62 2d 74 3a | 62 25 21 32 30 3d 6c 3a |!16+b-t:|b%!20=l:|
|000036c0| 62 25 21 32 34 3d 74 0d | 10 ea 1b c8 99 22 57 69 |b%!24=t.|....."Wi|
|000036d0| 6d 70 5f 4f 70 65 6e 57 | 69 6e 64 6f 77 22 2c 2c |mp_OpenW|indow",,|
|000036e0| 62 25 0d 10 f4 05 e1 0d | 10 fe 05 3a 0d 11 08 3d |b%......|...:...=|
|000036f0| f4 20 50 52 4f 43 72 65 | 73 69 7a 65 77 69 6e 74 |. PROCre|sizewint|
|00003700| 6f 20 3a 20 52 65 73 69 | 7a 65 73 20 77 69 6e 64 |o : Resi|zes wind|
|00003710| 6f 77 20 61 6e 64 20 72 | 65 2d 6f 70 65 6e 73 20 |ow and r|e-opens |
|00003720| 69 66 20 6e 65 65 64 65 | 64 0d 11 12 28 f4 20 57 |if neede|d...(. W|
|00003730| 69 6c 6c 20 6b 65 65 70 | 20 74 6f 20 66 75 6c 6c |ill keep| to full|
|00003740| 20 73 69 7a 65 20 69 66 | 20 70 6f 73 73 69 62 6c | size if| possibl|
|00003750| 65 0d 11 1c 1f dd f2 72 | 65 73 69 7a 65 77 69 6e |e......r|esizewin|
|00003760| 74 6f 28 77 69 6e 25 2c | 6c 2c 74 2c 72 2c 62 29 |to(win%,|l,t,r,b)|
|00003770| 0d 11 26 11 ea 20 66 75 | 6c 6c 25 2c 6f 70 65 6e |..&.. fu|ll%,open|
|00003780| 25 0d 11 30 29 21 62 25 | 3d 77 69 6e 25 3a c8 99 |%..0)!b%|=win%:..|
|00003790| 20 22 57 69 6d 70 5f 47 | 65 74 57 69 6e 64 6f 77 | "Wimp_G|etWindow|
|000037a0| 53 74 61 74 65 22 2c 2c | 62 25 0d 11 3a 38 f4 20 |State",,|b%..:8. |
|000037b0| 49 66 20 66 75 6c 6c 20 | 73 69 7a 65 2c 20 6f 70 |If full |size, op|
|000037c0| 65 6e 20 66 75 6c 6c 20 | 73 69 7a 65 2c 20 61 6e |en full |size, an|
|000037d0| 64 20 69 66 20 6f 70 65 | 6e 2c 20 72 65 2d 6f 70 |d if ope|n, re-op|
|000037e0| 65 6e 0d 11 44 1d 6f 70 | 65 6e 25 3d 28 62 25 21 |en..D.op|en%=(b%!|
|000037f0| 33 32 20 80 20 28 31 3c | 3c 31 36 29 29 3e 30 0d |32 . (1<|<16))>0.|
|00003800| 11 4e 39 c8 99 20 22 57 | 69 6d 70 5f 4f 70 65 6e |.N9.. "W|imp_Open|
|00003810| 57 69 6e 64 6f 77 22 2c | 2c 62 25 3a c8 99 20 22 |Window",|,b%:.. "|
|00003820| 57 69 6d 70 5f 47 65 74 | 57 69 6e 64 6f 77 53 74 |Wimp_Get|WindowSt|
|00003830| 61 74 65 22 2c 2c 62 25 | 0d 11 58 1d 66 75 6c 6c |ate",,b%|..X.full|
|00003840| 25 3d 28 62 25 21 33 32 | 20 80 20 28 31 3c 3c 31 |%=(b%!32| . (1<<1|
|00003850| 38 29 29 3e 30 0d 11 62 | 23 62 25 21 36 38 3d 6c |8))>0..b|#b%!68=l|
|00003860| 3a 62 25 21 37 32 3d 62 | 3a 62 25 21 37 36 3d 72 |:b%!72=b|:b%!76=r|
|00003870| 3a 62 25 21 38 30 3d 74 | 0d 11 6c 22 c8 99 20 22 |:b%!80=t|..l".. "|
|00003880| 57 69 6d 70 5f 53 65 74 | 45 78 74 65 6e 74 22 2c |Wimp_Set|Extent",|
|00003890| 77 69 6e 25 2c 62 25 2b | 36 38 0d 11 76 2a e7 20 |win%,b%+|68..v*. |
|000038a0| 66 75 6c 6c 25 20 8c 62 | 25 21 38 3d 62 25 21 31 |full% .b|%!8=b%!1|
|000038b0| 36 2b 62 2d 74 3a 62 25 | 21 31 32 3d 62 25 21 34 |6+b-t:b%|!12=b%!4|
|000038c0| 2b 72 2d 6c 0d 11 80 1c | c8 99 20 22 57 69 6d 70 |+r-l....|.. "Wimp|
|000038d0| 5f 4f 70 65 6e 57 69 6e | 64 6f 77 22 2c 2c 62 25 |_OpenWin|dow",,b%|
|000038e0| 0d 11 8a 4a e7 20 6f 70 | 65 6e 25 20 8c c8 99 20 |...J. op|en% ... |
|000038f0| 22 57 69 6d 70 5f 46 6f | 72 63 65 52 65 64 72 61 |"Wimp_Fo|rceRedra|
|00003900| 77 22 2c 77 69 6e 25 2c | 6c 2c 62 2c 72 2c 74 20 |w",win%,|l,b,r,t |
|00003910| 8b c8 99 20 22 57 69 6d | 70 5f 43 6c 6f 73 65 57 |... "Wim|p_CloseW|
|00003920| 69 6e 64 6f 77 22 2c 2c | 62 25 0d 11 94 05 e1 0d |indow",,|b%......|
|00003930| 11 9e 05 3a 0d 11 a8 3f | f4 20 50 52 4f 43 77 69 |...:...?|. PROCwi|
|00003940| 6e 73 65 74 65 78 74 65 | 6e 74 20 3a 20 53 65 74 |nsetexte|nt : Set|
|00003950| 20 74 68 65 20 6d 61 78 | 69 6d 75 6d 20 65 78 74 | the max|imum ext|
|00003960| 65 6e 74 20 6f 66 20 77 | 69 6e 64 6f 77 20 28 54 |ent of w|indow (T|
|00003970| 57 41 29 0d 11 b2 20 dd | f2 77 69 6e 73 65 74 65 |WA)... .|.winsete|
|00003980| 78 74 65 6e 74 28 77 69 | 6e 25 2c 6c 2c 74 2c 72 |xtent(wi|n%,l,t,r|
|00003990| 2c 62 29 0d 11 bc 2a 21 | 62 25 3d 77 69 6e 25 3a |,b)...*!|b%=win%:|
|000039a0| c8 99 20 22 57 69 6d 70 | 5f 47 65 74 57 69 6e 64 |.. "Wimp|_GetWind|
|000039b0| 6f 77 49 6e 66 6f 22 2c | 2c 62 25 2b 31 0d 11 c6 |owInfo",|,b%+1...|
|000039c0| 13 e7 20 6c 3d 2d 31 20 | 8c 6c 3d 62 25 21 34 34 |.. l=-1 |.l=b%!44|
|000039d0| 0d 11 d0 13 e7 20 62 3d | 2d 31 20 8c 62 3d 62 25 |..... b=|-1 .b=b%|
|000039e0| 21 34 38 0d 11 da 13 e7 | 20 72 3d 2d 31 20 8c 72 |!48.....| r=-1 .r|
|000039f0| 3d 62 25 21 35 32 0d 11 | e4 13 e7 20 74 3d 2d 31 |=b%!52..|... t=-1|
|00003a00| 20 8c 74 3d 62 25 21 35 | 36 0d 11 ee 23 62 25 21 | .t=b%!5|6...#b%!|
|00003a10| 34 34 3d 6c 3a 62 25 21 | 34 38 3d 62 3a 62 25 21 |44=l:b%!|48=b:b%!|
|00003a20| 35 32 3d 72 3a 62 25 21 | 35 36 3d 74 0d 11 f8 22 |52=r:b%!|56=t..."|
|00003a30| c8 99 22 58 57 69 6d 70 | 5f 53 65 74 45 78 74 65 |.."XWimp|_SetExte|
|00003a40| 6e 74 22 2c 77 69 6e 25 | 2c 62 25 2b 34 34 0d 12 |nt",win%|,b%+44..|
|00003a50| 02 05 e1 0d 12 0c 05 3a | 0d 12 16 3f f4 20 50 52 |.......:|...?. PR|
|00003a60| 4f 43 66 6f 72 63 65 72 | 65 64 72 61 77 20 3a 20 |OCforcer|edraw : |
|00003a70| 52 65 64 72 61 77 20 74 | 68 65 20 73 70 65 63 69 |Redraw t|he speci|
|00003a80| 66 69 65 64 20 70 61 72 | 74 20 6f 66 20 74 68 65 |fied par|t of the|
|00003a90| 20 77 69 6e 64 6f 77 0d | 12 20 1f dd f2 66 6f 72 | window.|. ...for|
|00003aa0| 63 65 72 65 64 72 61 77 | 28 77 69 6e 25 2c 6c 2c |ceredraw|(win%,l,|
|00003ab0| 74 2c 72 2c 62 29 0d 12 | 2a 26 c8 99 20 22 57 69 |t,r,b)..|*&.. "Wi|
|00003ac0| 6d 70 5f 46 6f 72 63 65 | 52 65 64 72 61 77 22 2c |mp_Force|Redraw",|
|00003ad0| 77 69 6e 25 2c 6c 2c 62 | 2c 72 2c 74 0d 12 34 05 |win%,l,b|,r,t..4.|
|00003ae0| e1 0d 12 3e 05 3a 0d 12 | 48 3d f4 20 50 52 4f 43 |...>.:..|H=. PROC|
|00003af0| 77 69 6e 64 6f 77 74 69 | 74 6c 65 20 3a 20 53 65 |windowti|tle : Se|
|00003b00| 74 20 77 69 6e 64 6f 77 | 20 74 69 74 6c 65 20 28 |t window| title (|
|00003b10| 6f 6e 6c 79 20 69 66 20 | 69 6e 64 69 72 65 63 74 |only if |indirect|
|00003b20| 65 64 29 0d 12 52 1f dd | 20 f2 77 69 6e 64 6f 77 |ed)..R..| .window|
|00003b30| 74 69 74 6c 65 28 77 69 | 6e 25 2c 74 69 74 6c 65 |title(wi|n%,title|
|00003b40| 24 29 0d 12 5c 0d ea 20 | 6c 6f 63 25 2c 61 24 0d |$)..\.. |loc%,a$.|
|00003b50| 12 66 2b 62 25 21 30 3d | 77 69 6e 25 3a c8 99 20 |.f+b%!0=|win%:.. |
|00003b60| 22 57 69 6d 70 5f 47 65 | 74 57 69 6e 64 6f 77 49 |"Wimp_Ge|tWindowI|
|00003b70| 6e 66 6f 22 2c 2c 62 25 | 2b 31 0d 12 70 25 6c 6f |nfo",,b%|+1..p%lo|
|00003b80| 63 25 3d 21 28 62 25 2b | 37 36 29 3a 61 24 3d a4 |c%=!(b%+|76):a$=.|
|00003b90| 6d 73 67 74 65 78 74 28 | 74 69 74 6c 65 24 29 0d |msgtext(|title$).|
|00003ba0| 12 7a 1a e7 20 a4 73 74 | 72 69 6e 67 30 28 6c 6f |.z.. .st|ring0(lo|
|00003bb0| 63 25 29 3c 3e 61 24 20 | 8c 0d 12 84 3a 20 24 6c |c%)<>a$ |....: $l|
|00003bc0| 6f 63 25 3d 61 24 3a 62 | 25 21 33 32 3d 77 69 6e |oc%=a$:b|%!32=win|
|00003bd0| 25 3a c8 99 20 22 57 69 | 6d 70 5f 47 65 74 57 69 |%:.. "Wi|mp_GetWi|
|00003be0| 6e 64 6f 77 4f 75 74 6c | 69 6e 65 22 2c 2c 62 25 |ndowOutl|ine",,b%|
|00003bf0| 2b 33 32 0d 12 8e 35 20 | c8 99 20 22 57 69 6d 70 |+32...5 |.. "Wimp|
|00003c00| 5f 46 6f 72 63 65 52 65 | 64 72 61 77 22 2c 2d 31 |_ForceRe|draw",-1|
|00003c10| 2c 62 25 21 33 36 2c 62 | 25 21 31 36 2c 62 25 21 |,b%!36,b|%!16,b%!|
|00003c20| 34 34 2c 62 25 21 34 38 | 0d 12 98 05 cd 0d 12 a2 |44,b%!48|........|
|00003c30| 05 e1 0d 12 ac 05 3a 0d | 12 b6 37 f4 20 2a 2a 2a |......:.|..7. ***|
|00003c40| 2a 2a 2a 2a 2a 20 49 63 | 6f 6e 20 6d 61 6e 69 70 |***** Ic|on manip|
|00003c50| 75 6c 61 74 69 6f 6e 20 | 72 6f 75 74 69 6e 65 73 |ulation |routines|
|00003c60| 20 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 0d 12 | *******|******..|
|00003c70| c0 05 3a 0d 12 ca 37 f4 | 20 46 4e 63 72 65 61 74 |..:...7.| FNcreat|
|00003c80| 65 69 63 6f 6e 20 3a 20 | 43 72 65 61 74 65 20 61 |eicon : |Create a|
|00003c90| 6e 20 69 63 6f 6e 20 77 | 69 74 68 20 73 65 74 20 |n icon w|ith set |
|00003ca0| 70 61 72 61 6d 65 74 65 | 72 73 0d 12 d4 3c f4 20 |paramete|rs...<. |
|00003cb0| 77 69 6e 64 6f 77 2c 78 | 2c 79 2c 20 77 69 64 74 |window,x|,y, widt|
|00003cc0| 68 2c 20 68 65 69 67 68 | 74 2c 20 74 69 74 6c 65 |h, heigh|t, title|
|00003cd0| 2c 20 76 61 6c 69 64 61 | 74 69 6f 6e 2c 20 63 6f |, valida|tion, co|
|00003ce0| 6c 6f 75 72 73 2c 0d 12 | de 1d f4 20 45 53 47 2c |lours,..|... ESG,|
|00003cf0| 20 62 75 74 74 6f 6e 20 | 74 79 70 65 2c 20 66 6c | button |type, fl|
|00003d00| 61 67 73 0d 12 e8 31 f4 | 20 63 6f 6c 20 63 6f 75 |ags...1.| col cou|
|00003d10| 6c 64 20 62 65 20 66 6f | 6e 74 20 68 61 6e 64 6c |ld be fo|nt handl|
|00003d20| 65 20 69 66 20 75 73 65 | 20 66 6f 6e 74 20 69 73 |e if use| font is|
|00003d30| 20 73 65 74 0d 12 f2 42 | f4 20 6f 74 68 65 72 77 | set...B|. otherw|
|00003d40| 69 73 65 20 63 6f 6c 20 | 69 73 20 26 42 46 20 28 |ise col |is &BF (|
|00003d50| 42 3d 62 61 63 6b 67 72 | 6f 75 6e 64 2c 20 46 3d |B=backgr|ound, F=|
|00003d60| 66 6f 72 65 67 72 6f 75 | 6e 64 29 20 28 75 73 75 |foregrou|nd) (usu|
|00003d70| 2e 20 26 31 37 29 0d 12 | fc 39 f4 20 51 75 69 63 |. &17)..|.9. Quic|
|00003d80| 6b 20 66 6c 61 67 73 20 | 3a 20 25 41 46 56 48 42 |k flags |: %AFVHB|
|00003d90| 30 30 20 28 41 3d 46 6f | 6e 74 2c 20 46 3d 46 69 |00 (A=Fo|nt, F=Fi|
|00003da0| 6c 6c 65 64 2c 20 42 3d | 42 6f 72 64 65 72 29 0d |lled, B=|Border).|
|00003db0| 13 06 0d f4 20 46 6c 61 | 67 73 20 3a 0d 13 10 20 |.... Fla|gs :... |
|00003dc0| f4 20 30 20 3a 20 54 65 | 78 74 20 20 20 20 20 20 |. 0 : Te|xt |
|00003dd0| 20 20 20 20 20 38 20 3a | 20 4e 2f 41 0d 13 1a 2c | 8 :| N/A...,|
|00003de0| f4 20 31 20 3a 20 53 70 | 72 69 74 65 20 20 20 20 |. 1 : Sp|rite |
|00003df0| 20 20 20 20 20 39 20 3a | 20 52 69 67 68 74 20 4a | 9 :| Right J|
|00003e00| 75 73 74 69 66 69 65 64 | 0d 13 24 3b f4 20 32 20 |ustified|..$;. 2 |
|00003e10| 3a 20 42 6f 72 64 65 72 | 65 64 20 20 20 20 20 20 |: Border|ed |
|00003e20| 31 30 20 3a 20 4d 75 6c | 74 69 70 6c 65 20 73 65 |10 : Mul|tiple se|
|00003e30| 6c 65 63 74 69 6f 6e 20 | 77 69 74 68 20 61 64 6a |lection |with adj|
|00003e40| 75 73 74 0d 13 2e 29 f4 | 20 33 20 3a 20 48 20 43 |ust...).| 3 : H C|
|00003e50| 65 6e 74 72 65 20 20 20 | 20 20 20 31 31 20 3a 20 |entre | 11 : |
|00003e60| 53 6d 61 6c 6c 20 73 70 | 72 69 74 65 0d 13 38 1e |Small sp|rite..8.|
|00003e70| f4 20 34 20 3a 20 56 20 | 43 65 6e 74 72 65 20 20 |. 4 : V |Centre |
|00003e80| 20 20 20 20 32 30 20 3a | 20 3f 0d 13 42 25 f4 20 | 20 :| ?..B%. |
|00003e90| 35 20 3a 20 46 69 6c 6c | 65 64 20 20 20 20 20 20 |5 : Fill|ed |
|00003ea0| 20 20 32 31 20 3a 20 49 | 6e 76 65 72 74 65 64 0d | 21 : I|nverted.|
|00003eb0| 13 4c 23 f4 20 36 20 3a | 20 55 73 65 20 66 6f 6e |.L#. 6 :| Use fon|
|00003ec0| 74 73 20 20 20 20 20 32 | 32 20 3a 20 53 68 61 64 |ts 2|2 : Shad|
|00003ed0| 65 64 0d 13 56 1e f4 20 | 37 20 3a 20 4e 2f 41 20 |ed..V.. |7 : N/A |
|00003ee0| 20 20 20 20 20 20 20 20 | 20 20 32 33 20 3a 20 3f | | 23 : ?|
|00003ef0| 0d 13 60 14 f4 20 42 75 | 74 74 6f 6e 20 74 79 70 |..`.. Bu|tton typ|
|00003f00| 65 73 20 3a 0d 13 6a 17 | f4 20 30 20 3a 20 49 67 |es :..j.|. 0 : Ig|
|00003f10| 6e 6f 72 65 20 63 6c 69 | 63 6b 73 0d 13 74 1a f4 |nore cli|cks..t..|
|00003f20| 20 31 20 3a 20 4e 6f 74 | 69 66 79 20 77 68 65 6e | 1 : Not|ify when|
|00003f30| 20 6f 76 65 72 0d 13 7e | 20 f4 20 32 20 3a 20 43 | over..~| . 2 : C|
|00003f40| 6c 69 63 6b 73 20 72 65 | 70 65 61 74 20 26 20 6e |licks re|peat & n|
|00003f50| 6f 74 69 66 79 0d 13 88 | 22 f4 20 33 20 3a 20 43 |otify...|". 3 : C|
|00003f60| 6c 69 63 6b 73 20 64 65 | 62 6f 75 6e 63 65 20 26 |licks de|bounce &|
|00003f70| 20 6e 6f 74 69 66 79 0d | 13 92 3f f4 20 34 20 3a | notify.|..?. 4 :|
|00003f80| 20 43 6c 69 63 6b 20 73 | 65 6c 65 63 74 73 2c 20 | Click s|elects, |
|00003f90| 72 65 6c 65 61 73 65 20 | 6e 6f 74 69 66 69 65 73 |release |notifies|
|00003fa0| 2c 20 6f 72 20 64 65 73 | 65 6c 65 63 74 20 69 66 |, or des|elect if|
|00003fb0| 20 6d 6f 76 65 64 0d 13 | 9c 2a f4 20 35 20 3a 20 | moved..|.*. 5 : |
|00003fc0| 43 6c 69 63 6b 20 73 65 | 6c 65 63 74 73 2c 20 32 |Click se|lects, 2|
|00003fd0| 20 63 6c 69 63 6b 73 20 | 6e 6f 74 69 66 69 65 73 | clicks |notifies|
|00003fe0| 0d 13 a6 1c f4 20 36 20 | 3a 20 41 73 20 33 20 62 |..... 6 |: As 3 b|
|00003ff0| 75 74 20 77 69 6c 6c 20 | 64 72 61 67 0d 13 b0 1c |ut will |drag....|
|00004000| f4 20 37 20 3a 20 41 73 | 20 34 20 62 75 74 20 77 |. 7 : As| 4 but w|
|00004010| 69 6c 6c 20 64 72 61 67 | 0d 13 ba 1c f4 20 38 20 |ill drag|..... 8 |
|00004020| 3a 20 41 73 20 35 20 62 | 75 74 20 77 69 6c 6c 20 |: As 5 b|ut will |
|00004030| 64 72 61 67 0d 13 c4 13 | f4 20 39 20 3a 20 4d 65 |drag....|. 9 : Me|
|00004040| 6e 75 20 69 63 6f 6e 0d | 13 ce 30 f4 20 31 30 3a |nu icon.|..0. 10:|
|00004050| 20 43 6c 69 63 6b 3d 62 | 75 74 2a 32 35 36 2c 64 | Click=b|ut*256,d|
|00004060| 72 61 67 3d 62 75 74 2a | 31 36 2c 32 20 63 6c 69 |rag=but*|16,2 cli|
|00004070| 63 6b 73 3d 62 75 74 0d | 13 d8 33 f4 20 31 31 3a |cks=but.|..3. 11:|
|00004080| 20 52 61 64 69 6f 20 28 | 56 61 6c 69 64 61 74 69 | Radio (|Validati|
|00004090| 6f 6e 20 66 6f 72 6d 61 | 74 20 3a 20 53 6f 70 74 |on forma|t : Sopt|
|000040a0| 6f 66 66 2c 6f 70 74 6f | 6e 29 0d 13 e2 11 f4 20 |off,opto|n)..... |
|000040b0| 31 32 2f 31 33 20 3a 20 | 4e 2f 41 0d 13 ec 27 f4 |12/13 : |N/A...'.|
|000040c0| 20 31 34 3a 20 57 72 69 | 74 65 61 62 6c 65 2f 43 | 14: Wri|teable/C|
|000040d0| 6c 69 63 6b 61 62 6c 65 | 2f 44 72 61 67 67 61 62 |lickable|/Draggab|
|000040e0| 6c 65 0d 13 f6 13 f4 20 | 31 35 3a 20 57 72 69 74 |le..... |15: Writ|
|000040f0| 65 61 62 6c 65 0d 14 00 | 3d dd a4 63 72 65 61 74 |eable...|=..creat|
|00004100| 65 69 63 6f 6e 28 77 69 | 6e 2c 78 2c 79 2c 77 2c |eicon(wi|n,x,y,w,|
|00004110| 68 2c 74 69 74 6c 65 24 | 2c 76 61 6c 69 64 24 2c |h,title$|,valid$,|
|00004120| 63 6f 6c 2c 65 73 67 2c | 62 75 74 2c 66 6c 61 67 |col,esg,|but,flag|
|00004130| 73 29 0d 14 0a 24 ea 20 | 68 61 6e 64 6c 65 3a 74 |s)...$. |handle:t|
|00004140| 69 74 6c 65 24 3d a4 6d | 73 67 74 65 78 74 28 74 |itle$=.m|sgtext(t|
|00004150| 69 74 6c 65 24 29 0d 14 | 14 2e 62 25 21 30 3d 77 |itle$)..|..b%!0=w|
|00004160| 69 6e 3a 62 25 21 34 3d | 78 3a 62 25 21 38 3d 79 |in:b%!4=|x:b%!8=y|
|00004170| 2d 68 3a 62 25 21 31 32 | 3d 78 2b 77 3a 62 25 21 |-h:b%!12|=x+w:b%!|
|00004180| 31 36 3d 79 0d 14 1e 36 | 62 25 21 32 30 3d 28 66 |16=y...6|b%!20=(f|
|00004190| 6c 61 67 73 20 80 20 28 | 25 31 31 31 30 30 31 31 |lags . (|%1110011|
|000041a0| 31 31 31 31 31 2b 28 31 | 35 3c 3c 32 30 29 29 29 |11111+(1|5<<20)))|
|000041b0| 2b 28 63 6f 6c 3c 3c 32 | 34 29 0d 14 28 1e 62 25 |+(col<<2|4)..(.b%|
|000041c0| 21 32 30 2b 3d 28 65 73 | 67 3c 3c 31 36 29 2b 28 |!20+=(es|g<<16)+(|
|000041d0| 62 75 74 3c 3c 31 32 29 | 0d 14 32 2d e7 20 76 61 |but<<12)|..2-. va|
|000041e0| 6c 69 64 24 3c 3e 22 22 | 20 84 20 a9 28 74 69 74 |lid$<>""| . .(tit|
|000041f0| 6c 65 24 29 3e 31 31 20 | 84 20 74 69 74 6c 65 24 |le$)>11 |. title$|
|00004200| 3d bd 30 20 8c 0d 14 3c | 12 20 e7 20 74 69 74 6c |=.0 ...<|. . titl|
|00004210| 65 24 3d bd 30 20 8c 0d | 14 46 29 20 20 62 25 21 |e$=.0 ..|.F) b%!|
|00004220| 32 34 3d a4 69 6e 64 69 | 72 65 63 74 28 c4 32 35 |24=.indi|rect(.25|
|00004230| 35 2c bd 30 29 29 3a 62 | 25 21 33 32 3d 32 35 36 |5,.0)):b|%!32=256|
|00004240| 0d 14 50 06 20 cc 0d 14 | 5a 2f 20 20 62 25 21 32 |..P. ...|Z/ b%!2|
|00004250| 34 3d a4 69 6e 64 69 72 | 65 63 74 28 74 69 74 6c |4=.indir|ect(titl|
|00004260| 65 24 29 3a 62 25 21 33 | 32 3d a9 28 74 69 74 6c |e$):b%!3|2=.(titl|
|00004270| 65 24 29 2b 31 0d 14 64 | 06 20 cd 0d 14 6e 28 20 |e$)+1..d|. ...n( |
|00004280| 62 25 21 32 38 3d a4 69 | 6e 64 69 72 65 63 74 28 |b%!28=.i|ndirect(|
|00004290| 76 61 6c 69 64 24 29 3a | 62 25 21 32 30 2b 3d 31 |valid$):|b%!20+=1|
|000042a0| 3c 3c 38 0d 14 78 05 cc | 0d 14 82 14 20 24 28 62 |<<8..x..|.... $(b|
|000042b0| 25 2b 32 34 29 3d 74 69 | 74 6c 65 24 0d 14 8c 05 |%+24)=ti|tle$....|
|000042c0| cd 0d 14 96 55 e7 20 28 | 28 62 25 21 32 30 29 20 |....U. (|(b%!20) |
|000042d0| 80 20 26 31 30 33 29 3d | 26 33 20 8c 85 20 26 38 |. &103)=|&3 .. &8|
|000042e0| 30 33 2c 22 43 61 6e 6e | 6f 74 20 6d 61 6b 65 20 |03,"Cann|ot make |
|000042f0| 61 20 73 70 72 69 74 65 | 2f 74 65 78 74 20 69 63 |a sprite|/text ic|
|00004300| 6f 6e 20 77 69 74 68 6f | 75 74 20 76 61 6c 69 64 |on witho|ut valid|
|00004310| 61 74 69 6f 6e 22 0d 14 | a0 1d e7 20 28 66 6c 61 |ation"..|... (fla|
|00004320| 67 73 20 80 20 33 29 3d | 30 20 8c 62 25 21 32 30 |gs . 3)=|0 .b%!20|
|00004330| 2b 3d 31 0d 14 aa 2e e7 | 20 a4 6c 6f 77 65 72 28 |+=1.....| .lower(|
|00004340| c0 76 61 6c 69 64 24 2c | 31 29 29 3d 22 73 22 20 |.valid$,|1))="s" |
|00004350| 8c 20 62 25 21 32 30 3d | 62 25 21 32 30 20 84 20 |. b%!20=|b%!20 . |
|00004360| 32 0d 14 b4 25 c8 99 20 | 22 57 69 6d 70 5f 43 72 |2...%.. |"Wimp_Cr|
|00004370| 65 61 74 65 49 63 6f 6e | 22 2c 2c 62 25 20 b8 20 |eateIcon|",,b% . |
|00004380| 68 61 6e 64 6c 65 0d 14 | be 0b 3d 68 61 6e 64 6c |handle..|..=handl|
|00004390| 65 0d 14 c8 05 3a 0d 14 | d2 36 f4 20 50 52 4f 43 |e....:..|.6. PROC|
|000043a0| 64 65 6c 65 74 65 69 63 | 6f 6e 20 3a 20 44 65 6c |deleteic|on : Del|
|000043b0| 65 74 65 20 74 68 65 20 | 69 63 6f 6e 20 66 72 6f |ete the |icon fro|
|000043c0| 6d 20 74 68 65 20 77 69 | 6e 64 6f 77 0d 14 dc 1a |m the wi|ndow....|
|000043d0| dd f2 64 65 6c 65 74 65 | 69 63 6f 6e 28 77 69 6e |..delete|icon(win|
|000043e0| 2c 69 63 6f 6e 29 0d 14 | e6 2e 21 62 25 3d 77 69 |,icon)..|..!b%=wi|
|000043f0| 6e 3a 62 25 21 34 3d 69 | 63 6f 6e 3a c8 99 20 22 |n:b%!4=i|con:.. "|
|00004400| 57 69 6d 70 5f 44 65 6c | 65 74 65 49 63 6f 6e 22 |Wimp_Del|eteIcon"|
|00004410| 2c 2c 62 25 0d 14 f0 05 | e1 0d 14 fa 05 3a 0d 15 |,,b%....|.....:..|
|00004420| 04 3b f4 20 46 4e 43 72 | 65 61 74 65 49 63 6f 6e |.;. FNCr|eateIcon|
|00004430| 42 61 72 49 63 6f 6e 20 | 3a 20 43 72 65 61 74 65 |BarIcon |: Create|
|00004440| 20 61 6e 20 69 63 6f 6e | 20 66 6f 72 20 74 68 65 | an icon| for the|
|00004450| 20 69 63 6f 6e 20 62 61 | 72 0d 15 0e 23 f4 20 49 | icon ba|r...#. I|
|00004460| 63 6f 6e 2d 62 61 72 20 | 70 6f 73 69 74 69 6f 6e |con-bar |position|
|00004470| 73 20 28 6c 6f 77 20 62 | 79 74 65 29 0d 15 18 19 |s (low b|yte)....|
|00004480| f4 20 31 20 3d 20 72 69 | 67 68 74 2c 20 32 20 3d |. 1 = ri|ght, 2 =|
|00004490| 20 6c 65 66 74 0d 15 22 | 2b f4 20 33 20 3d 20 6c | left.."|+. 3 = l|
|000044a0| 65 66 74 20 72 65 6c 61 | 74 69 76 65 20 74 6f 20 |eft rela|tive to |
|000044b0| 28 68 69 67 68 20 62 79 | 74 65 29 20 69 63 6f 6e |(high by|te) icon|
|000044c0| 0d 15 2c 2c f4 20 34 20 | 3d 20 72 69 67 68 74 20 |..,,. 4 |= right |
|000044d0| 72 65 6c 61 74 69 76 65 | 20 74 6f 20 28 68 69 67 |relative| to (hig|
|000044e0| 68 20 62 79 74 65 29 20 | 69 63 6f 6e 0d 15 36 38 |h byte) |icon..68|
|000044f0| f4 20 35 20 3d 20 6c 65 | 66 74 2c 20 68 69 67 68 |. 5 = le|ft, high|
|00004500| 20 70 72 69 6f 72 69 74 | 79 20 28 68 69 67 68 20 | priorit|y (high |
|00004510| 62 79 74 65 3d 70 72 69 | 6f 72 69 74 79 20 76 61 |byte=pri|ority va|
|00004520| 6c 75 65 29 0d 15 40 24 | f4 20 36 20 3d 20 6c 65 |lue)..@$|. 6 = le|
|00004530| 66 74 2c 20 6c 6f 77 20 | 70 72 69 6f 72 69 74 79 |ft, low |priority|
|00004540| 20 28 64 69 74 74 6f 29 | 0d 15 41 25 f4 20 37 20 | (ditto)|..A%. 7 |
|00004550| 3d 20 72 69 67 68 74 2c | 20 6c 6f 77 20 70 72 69 |= right,| low pri|
|00004560| 6f 72 69 74 79 20 28 64 | 69 74 74 6f 29 0d 15 4a |ority (d|itto)..J|
|00004570| 26 f4 20 38 20 3d 20 72 | 69 67 68 74 2c 20 68 69 |&. 8 = r|ight, hi|
|00004580| 67 68 20 70 72 69 6f 72 | 69 74 79 20 28 64 69 74 |gh prior|ity (dit|
|00004590| 74 6f 29 0d 15 54 36 dd | a4 43 72 65 61 74 65 49 |to)..T6.|.CreateI|
|000045a0| 63 6f 6e 42 61 72 49 63 | 6f 6e 28 53 70 72 24 2c |conBarIc|on(Spr$,|
|000045b0| 74 69 74 6c 65 24 2c 70 | 6f 73 69 74 69 6f 6e 29 |title$,p|osition)|
|000045c0| 3a ea 20 68 61 6e 64 6c | 65 0d 15 5e 35 74 69 74 |:. handl|e..^5tit|
|000045d0| 6c 65 24 3d a4 6d 73 67 | 74 65 78 74 28 74 69 74 |le$=.msg|text(tit|
|000045e0| 6c 65 24 29 3a 62 25 21 | 30 3d 2d 28 94 28 70 6f |le$):b%!|0=-(.(po|
|000045f0| 73 69 74 69 6f 6e 29 20 | 80 20 26 46 46 29 0d 15 |sition) |. &FF)..|
|00004600| 68 32 62 25 21 34 3d 30 | 3a 62 25 21 38 3d 2d 31 |h2b%!4=0|:b%!8=-1|
|00004610| 36 3a 62 25 21 31 32 3d | 31 32 2b 31 36 2a a9 28 |6:b%!12=|12+16*.(|
|00004620| 74 69 74 6c 65 24 29 3a | 62 25 21 31 36 3d 38 38 |title$):|b%!16=88|
|00004630| 0d 15 72 22 e7 62 25 21 | 31 32 3c 31 32 2b 31 36 |..r".b%!|12<12+16|
|00004640| 2a 34 20 8c 20 62 25 21 | 31 32 3d 31 32 2b 31 36 |*4 . b%!|12=12+16|
|00004650| 2a 34 0d 15 7c 12 e7 20 | 74 69 74 6c 65 24 3c 3e |*4..|.. |title$<>|
|00004660| 22 22 20 8c 0d 15 86 32 | 20 62 25 21 32 30 3d 28 |"" ....2| b%!20=(|
|00004670| 31 3c 3c 32 38 29 2b 28 | 37 3c 3c 32 34 29 2b 28 |1<<28)+(|7<<24)+(|
|00004680| 33 3c 3c 31 32 29 2b 28 | 25 30 31 30 31 31 29 2b |3<<12)+(|%01011)+|
|00004690| 28 31 3c 3c 38 29 0d 15 | 90 1c 20 62 25 21 32 34 |(1<<8)..|.. b%!24|
|000046a0| 3d a4 69 6e 64 69 72 65 | 63 74 28 74 69 74 6c 65 |=.indire|ct(title|
|000046b0| 24 29 0d 15 9a 1e 20 62 | 25 21 32 38 3d a4 69 6e |$).... b|%!28=.in|
|000046c0| 64 69 72 65 63 74 28 22 | 53 22 2b 53 70 72 24 29 |direct("|S"+Spr$)|
|000046d0| 0d 15 a4 16 20 62 25 21 | 33 32 3d a9 28 74 69 74 |.... b%!|32=.(tit|
|000046e0| 6c 65 24 29 2b 31 0d 15 | ae 05 cc 0d 15 b8 2b 20 |le$)+1..|......+ |
|000046f0| 62 25 21 32 30 3d 28 31 | 3c 3c 32 38 29 2b 28 37 |b%!20=(1|<<28)+(7|
|00004700| 3c 3c 32 34 29 2b 28 33 | 3c 3c 31 32 29 2b 28 25 |<<24)+(3|<<12)+(%|
|00004710| 31 31 30 31 30 29 0d 15 | c2 12 20 24 28 62 25 2b |11010)..|.. $(b%+|
|00004720| 32 34 29 3d 53 70 72 24 | 0d 15 cc 05 cd 0d 15 cd |24)=Spr$|........|
|00004730| 6c e7 20 28 94 28 70 6f | 73 69 74 69 6f 6e 29 80 |l. (.(po|sition).|
|00004740| 26 46 46 29 3d 33 20 84 | 20 28 94 28 70 6f 73 69 |&FF)=3 .| (.(posi|
|00004750| 74 69 6f 6e 29 80 26 46 | 46 29 3d 34 20 8c 70 6f |tion).&F|F)=4 .po|
|00004760| 73 69 74 69 6f 6e 3d 94 | 28 70 6f 73 69 74 69 6f |sition=.|(positio|
|00004770| 6e 29 3e 3e 38 20 8b 70 | 6f 73 69 74 69 6f 6e 3d |n)>>8 .p|osition=|
|00004780| 28 94 28 70 6f 73 69 74 | 69 6f 6e 29 20 80 20 26 |(.(posit|ion) . &|
|00004790| 46 46 30 30 29 3c 3c 31 | 36 0d 15 d6 2d c8 99 20 |FF00)<<1|6...-.. |
|000047a0| 22 57 69 6d 70 5f 43 72 | 65 61 74 65 49 63 6f 6e |"Wimp_Cr|eateIcon|
|000047b0| 22 2c 70 6f 73 69 74 69 | 6f 6e 2c 62 25 20 b8 20 |",positi|on,b% . |
|000047c0| 68 61 6e 64 6c 65 0d 15 | e0 0b 3d 68 61 6e 64 6c |handle..|..=handl|
|000047d0| 65 0d 15 ea 05 3a 0d 15 | f4 40 f4 20 46 4e 67 65 |e....:..|.@. FNge|
|000047e0| 74 69 63 6f 6e 73 74 61 | 74 65 20 3a 20 52 65 74 |ticonsta|te : Ret|
|000047f0| 75 72 6e 20 2d 31 20 69 | 66 20 69 63 6f 6e 20 69 |urn -1 i|f icon i|
|00004800| 73 20 73 65 6c 65 63 74 | 65 64 2c 30 20 6f 74 68 |s select|ed,0 oth|
|00004810| 65 72 77 69 73 65 0d 15 | fe 1f dd 20 a4 67 65 74 |erwise..|... .get|
|00004820| 69 63 6f 6e 73 74 61 74 | 65 28 77 69 6e 25 2c 69 |iconstat|e(win%,i|
|00004830| 63 6f 6e 25 29 0d 16 08 | 32 21 62 25 3d 77 69 6e |con%)...|2!b%=win|
|00004840| 25 3a 62 25 21 34 3d 69 | 63 6f 6e 25 3a c8 99 20 |%:b%!4=i|con%:.. |
|00004850| 22 57 69 6d 70 5f 47 65 | 74 49 63 6f 6e 53 74 61 |"Wimp_Ge|tIconSta|
|00004860| 74 65 22 2c 2c 62 25 0d | 16 12 16 3d 28 62 25 21 |te",,b%.|...=(b%!|
|00004870| 32 34 3e 3e 32 31 20 80 | 20 31 29 3e 30 0d 16 1c |24>>21 .| 1)>0...|
|00004880| 05 3a 0d 16 26 33 f4 20 | 50 52 4f 43 69 63 6f 6e |.:..&3. |PROCicon|
|00004890| 73 68 61 64 65 20 20 3a | 20 75 6e 73 68 61 64 65 |shade :| unshade|
|000048a0| 2f 73 68 61 64 65 2f 74 | 6f 67 67 6c 65 20 61 6e |/shade/t|oggle an|
|000048b0| 20 69 63 6f 6e 0d 16 30 | 35 f4 20 50 52 4f 43 69 | icon..0|5. PROCi|
|000048c0| 63 6f 6e 73 74 61 74 65 | 20 20 3a 20 75 6e 73 65 |constate| : unse|
|000048d0| 6c 65 63 74 2f 73 65 6c | 65 63 74 2f 74 6f 67 67 |lect/sel|ect/togg|
|000048e0| 6c 65 20 61 6e 20 69 63 | 6f 6e 0d 16 3a 38 f4 20 |le an ic|on..:8. |
|000048f0| 50 52 4f 43 73 65 74 69 | 63 6f 6e 62 69 74 20 3a |PROCseti|conbit :|
|00004900| 20 73 65 74 2f 75 6e 73 | 65 74 2f 74 6f 67 67 6c | set/uns|et/toggl|
|00004910| 65 20 61 20 62 69 74 20 | 69 6e 20 61 6e 20 69 63 |e a bit |in an ic|
|00004920| 6f 6e 0d 16 44 21 dd f2 | 69 63 6f 6e 73 68 61 64 |on..D!..|iconshad|
|00004930| 65 28 77 69 6e 25 2c 69 | 63 6f 6e 25 2c 74 79 70 |e(win%,i|con%,typ|
|00004940| 65 25 29 0d 16 4e 24 f2 | 73 65 74 69 63 6f 6e 62 |e%)..N$.|seticonb|
|00004950| 69 74 28 77 69 6e 25 2c | 69 63 6f 6e 25 2c 32 32 |it(win%,|icon%,22|
|00004960| 2c 74 79 70 65 25 29 0d | 16 58 05 e1 0d 16 62 21 |,type%).|.X....b!|
|00004970| dd f2 69 63 6f 6e 73 74 | 61 74 65 28 77 69 6e 25 |..iconst|ate(win%|
|00004980| 2c 69 63 6f 6e 25 2c 74 | 79 70 65 25 29 0d 16 6c |,icon%,t|ype%)..l|
|00004990| 24 f2 73 65 74 69 63 6f | 6e 62 69 74 28 77 69 6e |$.setico|nbit(win|
|000049a0| 25 2c 69 63 6f 6e 25 2c | 32 31 2c 74 79 70 65 25 |%,icon%,|21,type%|
|000049b0| 29 0d 16 76 05 e1 0d 16 | 80 19 f4 20 74 79 70 65 |)..v....|... type|
|000049c0| 20 3d 20 30 20 66 6f 72 | 20 75 6e 74 69 63 6b 0d | = 0 for| untick.|
|000049d0| 16 8a 21 f4 20 74 79 70 | 65 20 3d 20 31 20 66 6f |..!. typ|e = 1 fo|
|000049e0| 72 20 74 69 63 6b 20 28 | 61 6c 73 6f 20 2d 31 29 |r tick (|also -1)|
|000049f0| 0d 16 94 19 f4 20 74 79 | 70 65 20 3d 20 32 20 66 |..... ty|pe = 2 f|
|00004a00| 6f 72 20 74 6f 67 67 6c | 65 0d 16 9e 27 dd f2 73 |or toggl|e...'..s|
|00004a10| 65 74 69 63 6f 6e 62 69 | 74 28 77 69 6e 25 2c 69 |eticonbi|t(win%,i|
|00004a20| 63 6f 6e 25 2c 62 69 74 | 25 2c 74 79 70 65 25 29 |con%,bit|%,type%)|
|00004a30| 0d 16 a8 0b ea 20 73 25 | 2c 74 25 0d 16 b2 0e c8 |..... s%|,t%.....|
|00004a40| 8e 20 74 79 70 65 25 20 | ca 0d 16 bc 1e 20 c9 20 |. type% |..... . |
|00004a50| 30 3a 73 25 3d 30 3c 3c | 62 69 74 25 3a 74 25 3d |0:s%=0<<|bit%:t%=|
|00004a60| 31 3c 3c 62 69 74 25 0d | 16 c6 21 20 c9 20 2d 31 |1<<bit%.|..! . -1|
|00004a70| 2c 31 3a 73 25 3d 31 3c | 3c 62 69 74 25 3a 74 25 |,1:s%=1<|<bit%:t%|
|00004a80| 3d 31 3c 3c 62 69 74 25 | 0d 16 d0 1e 20 c9 20 32 |=1<<bit%|.... . 2|
|00004a90| 3a 73 25 3d 31 3c 3c 62 | 69 74 25 3a 74 25 3d 30 |:s%=1<<b|it%:t%=0|
|00004aa0| 3c 3c 62 69 74 25 0d 16 | da 05 cb 0d 16 e4 29 62 |<<bit%..|......)b|
|00004ab0| 25 21 30 3d 77 69 6e 25 | 3a 62 25 21 34 3d 69 63 |%!0=win%|:b%!4=ic|
|00004ac0| 6f 6e 25 3a 62 25 21 38 | 3d 73 25 3a 62 25 21 31 |on%:b%!8|=s%:b%!1|
|00004ad0| 32 3d 74 25 0d 16 ee 1e | c8 99 20 22 57 69 6d 70 |2=t%....|.. "Wimp|
|00004ae0| 5f 53 65 74 49 63 6f 6e | 53 74 61 74 65 22 2c 2c |_SetIcon|State",,|
|00004af0| 62 25 0d 16 f8 05 e1 0d | 17 02 05 3a 0d 17 0c 39 |b%......|...:...9|
|00004b00| f4 20 50 52 4f 43 70 72 | 65 73 73 69 63 6f 6e 20 |. PROCpr|essicon |
|00004b10| 20 3a 20 4d 61 6b 65 20 | 74 68 65 20 69 63 6f 6e | : Make |the icon|
|00004b20| 20 70 72 65 73 73 65 64 | 20 61 6e 64 20 72 65 6c | pressed| and rel|
|00004b30| 65 61 73 65 64 0d 17 16 | 33 f4 20 50 52 4f 43 72 |eased...|3. PROCr|
|00004b40| 65 64 72 61 77 69 63 6f | 6e 20 3a 20 46 6f 72 63 |edrawico|n : Forc|
|00004b50| 65 20 74 68 65 20 72 65 | 64 72 61 77 20 6f 66 20 |e the re|draw of |
|00004b60| 74 68 65 20 69 63 6f 6e | 0d 17 20 1b dd f2 70 72 |the icon|.. ...pr|
|00004b70| 65 73 73 69 63 6f 6e 28 | 77 69 6e 25 2c 69 63 6f |essicon(|win%,ico|
|00004b80| 6e 25 29 0d 17 2a 25 ea | 20 74 25 3a f2 73 65 74 |n%)..*%.| t%:.set|
|00004b90| 69 63 6f 6e 62 69 74 28 | 77 69 6e 25 2c 69 63 6f |iconbit(|win%,ico|
|00004ba0| 6e 25 2c 32 31 2c 31 29 | 0d 17 34 30 74 25 3d 91 |n%,21,1)|..40t%=.|
|00004bb0| 3a f5 3a fd 91 3e 74 25 | 2b 31 35 3a f2 73 65 74 |:.:..>t%|+15:.set|
|00004bc0| 69 63 6f 6e 62 69 74 28 | 77 69 6e 25 2c 69 63 6f |iconbit(|win%,ico|
|00004bd0| 6e 25 2c 32 31 2c 30 29 | 0d 17 3e 05 e1 0d 17 48 |n%,21,0)|..>....H|
|00004be0| 1c dd f2 72 65 64 72 61 | 77 69 63 6f 6e 28 77 69 |...redra|wicon(wi|
|00004bf0| 6e 25 2c 69 63 6f 6e 25 | 29 0d 17 52 40 77 69 6e |n%,icon%|)..R@win|
|00004c00| 25 2b 3d 77 69 6e 25 3d | 2d 31 3a 21 62 25 3d 77 |%+=win%=|-1:!b%=w|
|00004c10| 69 6e 25 3a 62 25 21 34 | 3d 69 63 6f 6e 25 3a c8 |in%:b%!4|=icon%:.|
|00004c20| 99 20 22 57 69 6d 70 5f | 47 65 74 49 63 6f 6e 53 |. "Wimp_|GetIconS|
|00004c30| 74 61 74 65 22 2c 2c 62 | 25 0d 17 5c 35 c8 99 20 |tate",,b|%..\5.. |
|00004c40| 22 57 69 6d 70 5f 46 6f | 72 63 65 52 65 64 72 61 |"Wimp_Fo|rceRedra|
|00004c50| 77 22 2c 77 69 6e 25 2c | 62 25 21 38 2c 62 25 21 |w",win%,|b%!8,b%!|
|00004c60| 31 32 2c 62 25 21 31 36 | 2c 62 25 21 32 30 0d 17 |12,b%!16|,b%!20..|
|00004c70| 66 05 e1 0d 17 70 05 3a | 0d 17 7a 3c f4 20 46 4e |f....p.:|..z<. FN|
|00004c80| 67 65 74 69 63 6f 6e 74 | 65 78 74 20 20 20 3a 20 |geticont|ext : |
|00004c90| 72 65 74 75 72 6e 20 69 | 63 6f 6e 73 20 74 65 78 |return i|cons tex|
|00004ca0| 74 20 73 74 72 69 6e 67 | 20 28 6f 72 20 73 70 72 |t string| (or spr|
|00004cb0| 69 74 65 29 0d 17 84 39 | f4 20 50 52 4f 43 73 65 |ite)...9|. PROCse|
|00004cc0| 74 69 63 6f 6e 74 65 78 | 74 20 3a 20 73 65 74 20 |ticontex|t : set |
|00004cd0| 69 63 6f 6e 73 20 74 65 | 78 74 20 73 74 72 69 6e |icons te|xt strin|
|00004ce0| 67 20 28 6f 72 20 73 70 | 72 69 74 65 29 0d 17 8e |g (or sp|rite)...|
|00004cf0| 1d dd a4 67 65 74 69 63 | 6f 6e 74 65 78 74 28 77 |...getic|ontext(w|
|00004d00| 69 6e 25 2c 69 63 6f 6e | 25 29 0d 17 98 33 62 25 |in%,icon|%)...3b%|
|00004d10| 21 30 3d 77 69 6e 25 3a | 62 25 21 34 3d 69 63 6f |!0=win%:|b%!4=ico|
|00004d20| 6e 25 3a c8 99 20 22 57 | 69 6d 70 5f 47 65 74 49 |n%:.. "W|imp_GetI|
|00004d30| 63 6f 6e 53 74 61 74 65 | 22 2c 2c 62 25 0d 17 a2 |conState|",,b%...|
|00004d40| 2a e7 20 28 28 62 25 21 | 32 34 29 20 80 20 26 31 |*. ((b%!|24) . &1|
|00004d50| 30 30 29 3d 30 20 8c 3d | a4 73 74 72 69 6e 67 30 |00)=0 .=|.string0|
|00004d60| 28 62 25 2b 32 38 29 0d | 17 ac 14 3d a4 73 74 72 |(b%+28).|...=.str|
|00004d70| 69 6e 67 30 28 62 25 21 | 32 38 29 0d 17 b6 39 dd |ing0(b%!|28)...9.|
|00004d80| f2 73 65 74 69 63 6f 6e | 74 65 78 74 28 77 69 6e |.seticon|text(win|
|00004d90| 25 2c 69 63 6f 6e 25 2c | 74 65 78 74 24 29 3a 74 |%,icon%,|text$):t|
|00004da0| 65 78 74 24 3d a4 6d 73 | 67 74 65 78 74 28 74 65 |ext$=.ms|gtext(te|
|00004db0| 78 74 24 29 0d 17 c0 33 | 62 25 21 30 3d 77 69 6e |xt$)...3|b%!0=win|
|00004dc0| 25 3a 62 25 21 34 3d 69 | 63 6f 6e 25 3a c8 99 20 |%:b%!4=i|con%:.. |
|00004dd0| 22 57 69 6d 70 5f 47 65 | 74 49 63 6f 6e 53 74 61 |"Wimp_Ge|tIconSta|
|00004de0| 74 65 22 2c 2c 62 25 0d | 17 ca 47 e7 20 28 28 62 |te",,b%.|..G. ((b|
|00004df0| 25 21 32 34 29 20 80 20 | 26 31 30 30 29 3d 30 20 |%!24) . |&100)=0 |
|00004e00| 8c 20 85 20 26 38 30 33 | 2c 22 49 63 6f 6e 20 69 |. . &803|,"Icon i|
|00004e10| 73 6e 27 74 20 69 6e 64 | 69 72 65 63 74 65 64 20 |sn't ind|irected |
|00004e20| 28 23 22 2b c3 69 63 6f | 6e 25 2b 22 29 22 0d 17 |(#"+.ico|n%+")"..|
|00004e30| d4 1e e7 20 a4 73 74 72 | 69 6e 67 30 28 62 25 21 |... .str|ing0(b%!|
|00004e40| 32 38 29 3c 3e 74 65 78 | 74 24 20 8c 0d 17 de 54 |28)<>tex|t$ ....T|
|00004e50| 20 e7 20 a9 28 74 65 78 | 74 24 29 3c 62 25 21 33 | . .(tex|t$)<b%!3|
|00004e60| 36 20 8c 24 28 62 25 21 | 32 38 29 3d 74 65 78 74 |6 .$(b%!|28)=text|
|00004e70| 24 20 8b 85 20 26 38 30 | 33 2c 22 54 65 78 74 20 |$ .. &80|3,"Text |
|00004e80| 74 6f 6f 20 6c 6f 6e 67 | 20 66 6f 72 20 69 63 6f |too long| for ico|
|00004e90| 6e 20 28 23 22 2b c3 69 | 63 6f 6e 25 2b 22 29 22 |n (#"+.i|con%+")"|
|00004ea0| 0d 17 e8 42 20 21 62 25 | 3d 77 69 6e 25 3a 62 25 |...B !b%|=win%:b%|
|00004eb0| 21 34 3d 69 63 6f 6e 25 | 3a 62 25 21 38 3d 30 3a |!4=icon%|:b%!8=0:|
|00004ec0| 62 25 21 31 32 3d 30 3a | c8 99 20 22 57 69 6d 70 |b%!12=0:|.. "Wimp|
|00004ed0| 5f 53 65 74 49 63 6f 6e | 53 74 61 74 65 22 2c 2c |_SetIcon|State",,|
|00004ee0| 62 25 0d 17 f2 05 cd 0d | 17 fc 05 e1 0d 18 06 05 |b%......|........|
|00004ef0| 3a 0d 18 10 37 f4 20 46 | 4e 67 65 74 69 63 6f 6e |:...7. F|Ngeticon|
|00004f00| 76 61 6c 69 64 20 20 20 | 3a 20 72 65 74 75 72 6e |valid |: return|
|00004f10| 20 69 63 6f 6e 73 20 76 | 61 6c 69 64 61 74 69 6f | icons v|alidatio|
|00004f20| 6e 20 73 74 72 69 6e 67 | 0d 18 1a 34 f4 20 50 52 |n string|...4. PR|
|00004f30| 4f 43 73 65 74 69 63 6f | 6e 76 61 6c 69 64 20 3a |OCsetico|nvalid :|
|00004f40| 20 73 65 74 20 69 63 6f | 6e 73 20 76 61 6c 69 64 | set ico|ns valid|
|00004f50| 61 74 69 6f 6e 20 73 74 | 72 69 6e 67 0d 18 24 3d |ation st|ring..$=|
|00004f60| f4 20 52 65 6d 65 6d 62 | 65 72 20 6e 6f 74 20 74 |. Rememb|er not t|
|00004f70| 6f 20 65 78 63 65 65 64 | 20 74 68 65 20 6f 72 69 |o exceed| the ori|
|00004f80| 67 69 6e 61 6c 20 76 61 | 6c 69 64 61 74 69 6f 6e |ginal va|lidation|
|00004f90| 20 73 74 72 69 6e 67 27 | 73 0d 18 2e 0d f4 20 6c | string'|s..... l|
|00004fa0| 65 6e 67 74 68 2e 0d 18 | 38 1e dd a4 67 65 74 69 |ength...|8...geti|
|00004fb0| 63 6f 6e 76 61 6c 69 64 | 28 77 69 6e 25 2c 69 63 |convalid|(win%,ic|
|00004fc0| 6f 6e 25 29 0d 18 42 33 | 62 25 21 30 3d 77 69 6e |on%)..B3|b%!0=win|
|00004fd0| 25 3a 62 25 21 34 3d 69 | 63 6f 6e 25 3a c8 99 20 |%:b%!4=i|con%:.. |
|00004fe0| 22 57 69 6d 70 5f 47 65 | 74 49 63 6f 6e 53 74 61 |"Wimp_Ge|tIconSta|
|00004ff0| 74 65 22 2c 2c 62 25 0d | 18 4c 45 e7 20 28 28 62 |te",,b%.|.LE. ((b|
|00005000| 25 21 32 34 29 20 80 20 | 26 31 30 30 29 3d 30 20 |%!24) . |&100)=0 |
|00005010| 85 20 26 38 30 33 2c 22 | 49 63 6f 6e 20 69 73 6e |. &803,"|Icon isn|
|00005020| 27 74 20 69 6e 64 69 72 | 65 63 74 65 64 20 28 23 |'t indir|ected (#|
|00005030| 22 2b c3 69 63 6f 6e 25 | 2b 22 29 22 0d 18 56 14 |"+.icon%|+")"..V.|
|00005040| 3d a4 73 74 72 69 6e 67 | 30 28 62 25 21 33 32 29 |=.string|0(b%!32)|
|00005050| 0d 18 60 24 dd f2 73 65 | 74 69 63 6f 6e 76 61 6c |..`$..se|ticonval|
|00005060| 69 64 28 77 69 6e 25 2c | 69 63 6f 6e 25 2c 74 65 |id(win%,|icon%,te|
|00005070| 78 74 24 29 0d 18 6a 33 | 62 25 21 30 3d 77 69 6e |xt$)..j3|b%!0=win|
|00005080| 25 3a 62 25 21 34 3d 69 | 63 6f 6e 25 3a c8 99 20 |%:b%!4=i|con%:.. |
|00005090| 22 57 69 6d 70 5f 47 65 | 74 49 63 6f 6e 53 74 61 |"Wimp_Ge|tIconSta|
|000050a0| 74 65 22 2c 2c 62 25 0d | 18 74 47 e7 20 28 28 62 |te",,b%.|.tG. ((b|
|000050b0| 25 21 32 34 29 20 80 20 | 26 31 30 30 29 3d 30 20 |%!24) . |&100)=0 |
|000050c0| 8c 20 85 20 26 38 30 33 | 2c 22 49 63 6f 6e 20 69 |. . &803|,"Icon i|
|000050d0| 73 6e 27 74 20 69 6e 64 | 69 72 65 63 74 65 64 20 |sn't ind|irected |
|000050e0| 28 23 22 2b c3 69 63 6f | 6e 25 2b 22 29 22 0d 18 |(#"+.ico|n%+")"..|
|000050f0| 7e 2a 24 28 62 25 21 33 | 32 29 3d 74 65 78 74 24 |~*$(b%!3|2)=text$|
|00005100| 3a f2 72 65 64 72 61 77 | 69 63 6f 6e 28 77 69 6e |:.redraw|icon(win|
|00005110| 25 2c 69 63 6f 6e 25 29 | 0d 18 88 05 e1 0d 18 92 |%,icon%)|........|
|00005120| 05 3a 0d 18 9c 25 f4 20 | 50 52 4f 43 64 72 61 67 |.:...%. |PROCdrag|
|00005130| 69 63 6f 6e 20 3a 20 53 | 74 61 72 74 20 61 20 64 |icon : S|tart a d|
|00005140| 72 61 67 20 62 6f 78 0d | 18 a6 43 f4 20 62 6f 75 |rag box.|..C. bou|
|00005150| 6e 64 25 20 73 68 6f 75 | 6c 64 20 62 65 20 54 52 |nd% shou|ld be TR|
|00005160| 55 45 20 69 66 20 79 6f | 75 20 77 69 73 68 20 74 |UE if yo|u wish t|
|00005170| 68 65 20 69 63 6f 6e 20 | 74 6f 20 73 74 61 79 20 |he icon |to stay |
|00005180| 77 69 74 68 69 6e 20 74 | 68 65 0d 18 b0 0c f4 20 |within t|he..... |
|00005190| 77 69 6e 64 6f 77 0d 18 | ba 21 dd f2 64 72 61 67 |window..|.!..drag|
|000051a0| 69 63 6f 6e 28 77 69 6e | 25 2c 69 63 6f 6e 25 2c |icon(win|%,icon%,|
|000051b0| 62 6f 75 6e 64 25 29 0d | 18 c4 29 21 62 25 3d 77 |bound%).|..)!b%=w|
|000051c0| 69 6e 25 3a c8 99 20 22 | 57 69 6d 70 5f 47 65 74 |in%:.. "|Wimp_Get|
|000051d0| 57 69 6e 64 6f 77 53 74 | 61 74 65 22 2c 2c 62 25 |WindowSt|ate",,b%|
|000051e0| 0d 18 ce 17 73 78 25 3d | 62 25 21 32 30 3a 73 79 |....sx%=|b%!20:sy|
|000051f0| 25 3d 62 25 21 32 34 0d | 18 d8 39 78 30 25 3d 62 |%=b%!24.|..9x0%=b|
|00005200| 25 21 34 2d 73 78 25 3a | 79 30 25 3d 62 25 21 38 |%!4-sx%:|y0%=b%!8|
|00005210| 2d 73 79 25 3a 78 31 25 | 3d 62 25 21 31 32 2d 73 |-sy%:x1%|=b%!12-s|
|00005220| 78 25 3a 79 31 25 3d 62 | 25 21 31 36 2d 73 79 25 |x%:y1%=b|%!16-sy%|
|00005230| 0d 18 e2 32 21 62 25 3d | 77 69 6e 25 3a 62 25 21 |...2!b%=|win%:b%!|
|00005240| 34 3d 69 63 6f 6e 25 3a | c8 99 20 22 57 69 6d 70 |4=icon%:|.. "Wimp|
|00005250| 5f 47 65 74 49 63 6f 6e | 53 74 61 74 65 22 2c 2c |_GetIcon|State",,|
|00005260| 62 25 0d 18 ec 2e 62 25 | 21 38 2b 3d 78 30 25 3a |b%....b%|!8+=x0%:|
|00005270| 62 25 21 31 32 2b 3d 79 | 31 25 3a 62 25 21 31 36 |b%!12+=y|1%:b%!16|
|00005280| 2b 3d 78 30 25 3a 62 25 | 21 32 30 2b 3d 79 31 25 |+=x0%:b%|!20+=y1%|
|00005290| 0d 18 f6 10 e7 20 62 6f | 75 6e 64 25 3d b9 20 8c |..... bo|und%=. .|
|000052a0| 0d 19 00 3c 20 62 25 21 | 32 34 3d 78 30 25 2b 73 |...< b%!|24=x0%+s|
|000052b0| 78 25 3a 62 25 21 32 38 | 3d 79 30 25 2b 73 79 25 |x%:b%!28|=y0%+sy%|
|000052c0| 3a 62 25 21 33 32 3d 78 | 31 25 2b 73 78 25 3a 62 |:b%!32=x|1%+sx%:b|
|000052d0| 25 21 33 36 3d 79 31 25 | 2b 73 79 25 0d 19 0a 05 |%!36=y1%|+sy%....|
|000052e0| cc 0d 19 14 2f 20 62 25 | 21 34 30 3d 34 3a 62 25 |..../ b%|!40=4:b%|
|000052f0| 21 34 34 3d 35 3a 62 25 | 21 34 38 3d 31 31 3a 62 |!44=5:b%|!48=11:b|
|00005300| 25 21 35 32 3d 31 32 3a | 62 25 21 35 36 3d 2d 31 |%!52=12:|b%!56=-1|
|00005310| 0d 19 1e 29 20 c8 99 20 | 22 4f 53 5f 52 65 61 64 |...) .. |"OS_Read|
|00005320| 56 64 75 56 61 72 69 61 | 62 6c 65 73 22 2c 62 25 |VduVaria|bles",b%|
|00005330| 2b 34 30 2c 62 25 2b 34 | 30 0d 19 28 3e 20 62 25 |+40,b%+4|0..(> b%|
|00005340| 21 32 34 3d 30 3a 62 25 | 21 32 38 3d 30 3a 62 25 |!24=0:b%|!28=0:b%|
|00005350| 21 33 32 3d 62 25 21 34 | 38 2b 31 3c 3c 62 25 21 |!32=b%!4|8+1<<b%!|
|00005360| 34 30 3a 62 25 21 33 36 | 3d 62 25 21 35 32 2b 31 |40:b%!36|=b%!52+1|
|00005370| 3c 3c 62 25 21 34 34 0d | 19 32 05 cd 0d 19 3c 16 |<<b%!44.|.2....<.|
|00005380| 62 25 21 34 3d 35 3a f4 | 20 44 72 61 67 20 74 79 |b%!4=5:.| Drag ty|
|00005390| 70 65 0d 19 46 19 c8 99 | 20 22 57 69 6d 70 5f 44 |pe..F...| "Wimp_D|
|000053a0| 72 61 67 42 6f 78 22 2c | 2c 62 25 0d 19 50 05 e1 |ragBox",|,b%..P..|
|000053b0| 0d 19 5a 05 3a 0d 19 64 | 39 f4 20 50 52 4f 43 64 |..Z.:..d|9. PROCd|
|000053c0| 72 61 67 73 61 76 65 20 | 3a 20 49 6e 69 74 69 61 |ragsave |: Initia|
|000053d0| 74 65 20 61 20 73 61 76 | 65 20 61 66 74 65 72 20 |te a sav|e after |
|000053e0| 44 72 61 67 44 6f 6e 65 | 20 65 76 65 6e 74 0d 19 |DragDone| event..|
|000053f0| 6e 26 dd f2 64 72 61 67 | 73 61 76 65 28 77 69 6e |n&..drag|save(win|
|00005400| 25 2c 69 63 6f 6e 25 2c | 74 79 70 65 25 2c 73 69 |%,icon%,|type%,si|
|00005410| 7a 65 25 29 0d 19 78 33 | f2 67 65 74 70 74 72 70 |ze%)..x3|.getptrp|
|00005420| 6f 73 28 78 2c 79 2c 77 | 69 6e 2c 69 63 6f 6e 29 |os(x,y,w|in,icon)|
|00005430| 3a f4 20 47 65 74 20 64 | 72 61 67 20 74 6f 20 6c |:. Get d|rag to l|
|00005440| 6f 63 61 74 69 6f 6e 0d | 19 82 2a 66 24 3d a4 6c |ocation.|..*f$=.l|
|00005450| 65 61 66 6e 61 6d 65 28 | a4 67 65 74 69 63 6f 6e |eafname(|.geticon|
|00005460| 74 65 78 74 28 77 69 6e | 25 2c 69 63 6f 6e 25 29 |text(win|%,icon%)|
|00005470| 29 0d 19 8c 17 21 62 25 | 3d 28 34 38 2b a9 28 66 |)....!b%|=(48+.(f|
|00005480| 24 29 29 20 80 20 ac 33 | 0d 19 96 38 62 25 21 31 |$)) . .3|...8b%!1|
|00005490| 32 3d 30 3a 62 25 21 31 | 36 3d 31 3a 62 25 21 32 |2=0:b%!1|6=1:b%!2|
|000054a0| 30 3d 77 69 6e 3a 62 25 | 21 32 34 3d 69 63 6f 6e |0=win:b%|!24=icon|
|000054b0| 3a 62 25 21 32 38 3d 78 | 3a 62 25 21 33 32 3d 79 |:b%!28=x|:b%!32=y|
|000054c0| 0d 19 a0 27 62 25 21 33 | 36 3d 73 69 7a 65 25 3a |...'b%!3|6=size%:|
|000054d0| 62 25 21 34 30 3d 74 79 | 70 65 25 3a 24 28 62 25 |b%!40=ty|pe%:$(b%|
|000054e0| 2b 34 34 29 3d 66 24 0d | 19 aa 28 c8 99 20 22 57 |+44)=f$.|..(.. "W|
|000054f0| 69 6d 70 5f 53 65 6e 64 | 4d 65 73 73 61 67 65 22 |imp_Send|Message"|
|00005500| 2c 31 38 2c 62 25 2c 77 | 69 6e 2c 69 63 6f 6e 0d |,18,b%,w|in,icon.|
|00005510| 19 b4 05 e1 0d 19 be 05 | 3a 0d 19 c8 37 f4 20 2a |........|:...7. *|
|00005520| 2a 2a 2a 2a 2a 2a 2a 20 | 21 48 65 6c 70 20 72 65 |******* |!Help re|
|00005530| 73 70 6f 6e 73 69 76 65 | 20 72 6f 75 74 69 6e 65 |sponsive| routine|
|00005540| 73 20 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |s ******|********|
|00005550| 0d 19 d2 05 3a 0d 19 dc | 38 f4 20 50 52 4f 43 72 |....:...|8. PROCr|
|00005560| 65 61 64 68 65 6c 70 20 | 3a 20 72 65 61 64 20 68 |eadhelp |: read h|
|00005570| 65 6c 70 20 66 72 6f 6d | 20 61 70 70 6c 69 63 61 |elp from| applica|
|00005580| 74 69 6f 6e 20 61 6e 64 | 20 73 65 6e 64 0d 19 e6 |tion and| send...|
|00005590| 2d f4 20 50 52 4f 43 73 | 65 6e 64 68 65 6c 70 20 |-. PROCs|endhelp |
|000055a0| 3a 20 73 65 6e 64 20 68 | 65 6c 70 20 74 6f 20 61 |: send h|elp to a|
|000055b0| 70 70 6c 69 63 61 74 69 | 6f 6e 0d 19 f0 1f f4 20 |pplicati|on..... |
|000055c0| 5c 53 20 66 6f 72 20 22 | 43 6c 69 63 6b 20 53 45 |\S for "|Click SE|
|000055d0| 4c 45 43 54 20 74 6f 20 | 22 0d 19 fa 29 f4 20 5c |LECT to |"...). \|
|000055e0| 52 20 66 6f 72 20 22 4d | 6f 76 65 20 74 68 65 20 |R for "M|ove the |
|000055f0| 70 6f 69 6e 74 65 72 20 | 72 69 67 68 74 20 74 6f |pointer |right to|
|00005600| 20 22 0d 1a 04 1f f4 20 | 5c 41 20 66 6f 72 20 22 | "..... |\A for "|
|00005610| 43 6c 69 63 6b 20 41 44 | 4a 55 53 54 20 74 6f 20 |Click AD|JUST to |
|00005620| 22 0d 1a 0e 1b f4 20 5c | 54 20 66 6f 72 20 22 54 |"..... \|T for "T|
|00005630| 68 69 73 20 69 73 20 74 | 68 65 20 22 0d 1a 18 31 |his is t|he "...1|
|00005640| f4 20 5c 47 20 66 6f 72 | 20 22 54 68 69 73 20 6f |. \G for| "This o|
|00005650| 70 74 69 6f 6e 20 69 73 | 20 67 72 65 79 65 64 20 |ption is| greyed |
|00005660| 6f 75 74 20 62 65 63 61 | 75 73 65 20 22 0d 1a 22 |out beca|use ".."|
|00005670| 1e f4 20 5c 57 20 66 6f | 72 20 22 54 68 69 73 20 |.. \W fo|r "This |
|00005680| 77 69 6e 64 6f 77 20 69 | 73 20 22 0d 1a 2c 1e f4 |window i|s "..,..|
|00005690| 20 5c 44 20 66 6f 72 20 | 22 44 72 61 67 20 53 45 | \D for |"Drag SE|
|000056a0| 4c 45 43 54 20 74 6f 20 | 22 0d 1a 36 1e f4 20 5c |LECT to |"..6.. \|
|000056b0| 64 20 66 6f 72 20 22 44 | 72 61 67 20 41 44 4a 55 |d for "D|rag ADJU|
|000056c0| 53 54 20 74 6f 20 22 0d | 1a 40 15 f4 20 5c 77 20 |ST to ".|.@.. \w |
|000056d0| 66 6f 72 20 22 77 69 6e | 64 6f 77 22 0d 1a 4a 15 |for "win|dow"..J.|
|000056e0| f4 20 5c 73 20 66 6f 72 | 20 22 53 45 4c 45 43 54 |. \s for| "SELECT|
|000056f0| 22 0d 1a 54 15 f4 20 5c | 61 20 66 6f 72 20 22 41 |"..T.. \|a for "A|
|00005700| 44 4a 55 53 54 22 0d 1a | 5e 13 f4 20 7c 4d 20 66 |DJUST"..|^.. |M f|
|00005710| 6f 72 20 72 65 74 75 72 | 6e 0d 1a 68 21 f4 20 a4 |or retur|n..h!. .|
|00005720| 53 74 72 69 6e 67 24 a4 | 20 74 6f 20 69 6e 63 6c |String$.| to incl|
|00005730| 75 64 65 20 73 74 72 69 | 6e 67 0d 1a 72 29 f4 20 |ude stri|ng..r). |
|00005740| 3e 20 70 72 65 66 69 78 | 20 74 6f 20 6c 6f 6f 6b |> prefix| to look|
|00005750| 20 75 70 20 69 6e 20 6d | 65 73 73 61 67 65 20 66 | up in m|essage f|
|00005760| 69 6c 65 0d 1a 7c 3e f4 | 20 4d 65 6e 75 20 68 65 |ile..|>.| Menu he|
|00005770| 6c 70 20 69 63 6f 6e 73 | 20 77 69 6c 6c 20 62 65 |lp icons| will be|
|00005780| 20 73 65 61 72 63 68 65 | 64 20 61 73 20 48 4d 3c | searche|d as HM<|
|00005790| 6d 65 6e 75 73 74 72 69 | 6e 67 3e 2c 20 77 69 74 |menustri|ng>, wit|
|000057a0| 68 0d 1a 86 1e f4 20 73 | 70 61 63 65 73 20 72 65 |h..... s|paces re|
|000057b0| 70 6c 61 63 65 64 20 77 | 69 74 68 20 5f 27 73 0d |placed w|ith _'s.|
|000057c0| 1a 90 2f f4 20 4e 42 20 | 69 66 20 6e 6f 20 66 75 |../. NB |if no fu|
|000057d0| 6c 6c 20 73 74 6f 70 20 | 74 68 65 6e 20 6f 6e 65 |ll stop |then one|
|000057e0| 20 77 69 6c 6c 20 62 65 | 20 61 64 64 65 64 0d 1a | will be| added..|
|000057f0| 9a 17 f4 20 46 6f 72 6d | 61 74 20 66 6f 72 20 68 |... Form|at for h|
|00005800| 65 6c 70 20 3a 0d 1a a4 | 28 f4 20 20 7b 20 77 69 |elp :...|(. { wi|
|00005810| 6e 64 6f 77 2c 68 65 6c | 70 20 6d 65 73 73 61 67 |ndow,hel|p messag|
|00005820| 65 20 66 6f 72 20 6e 6f | 20 69 63 6f 6e 0d 1a ae |e for no| icon...|
|00005830| 2a f4 20 20 20 20 7b 20 | 69 63 6f 6e 20 6e 75 6d |*. { |icon num|
|00005840| 62 65 72 2c 20 6d 65 73 | 73 61 67 65 20 7d 20 72 |ber, mes|sage } r|
|00005850| 65 70 65 61 74 65 64 0d | 1a b8 11 f4 20 20 7d 20 |epeated.|.... } |
|00005860| 72 65 70 65 61 74 65 64 | 0d 1a c2 2a f4 20 20 7b |repeated|...*. {|
|00005870| 20 2d 32 2c 20 7b 69 63 | 6f 6e 62 61 72 20 6d 65 | -2, {ic|onbar me|
|00005880| 73 73 61 67 65 7d 20 7d | 20 62 79 20 63 68 6f 69 |ssage} }| by choi|
|00005890| 63 65 0d 1a cc 13 f4 20 | 20 2d 31 2c 2d 31 20 74 |ce..... | -1,-1 t|
|000058a0| 6f 20 65 6e 64 0d 1a d6 | 2f f4 20 4e 42 20 77 69 |o end...|/. NB wi|
|000058b0| 6e 64 6f 77 20 73 75 62 | 6d 65 6e 75 73 20 6d 75 |ndow sub|menus mu|
|000058c0| 73 74 20 68 61 76 65 20 | 68 65 6c 70 20 73 74 72 |st have |help str|
|000058d0| 69 6e 67 73 0d 1a e0 1c | f4 20 46 6f 72 6d 61 74 |ings....|. Format|
|000058e0| 20 66 6f 72 20 6d 65 6e | 75 20 68 65 6c 70 20 3a | for men|u help :|
|000058f0| 0d 1a ea 3c f4 20 20 7b | 20 6d 65 6e 75 2c 20 2d |...<. {| menu, -|
|00005900| 31 2c 2d 31 2c 2d 31 20 | 6f 72 20 6d 65 6e 75 2c |1,-1,-1 |or menu,|
|00005910| 20 2d 31 2c 30 2c 68 65 | 6c 70 20 66 6f 72 20 61 | -1,0,he|lp for a|
|00005920| 6c 6c 20 74 68 65 20 69 | 74 65 6d 73 0d 1a f4 1e |ll the i|tems....|
|00005930| f4 20 20 20 20 7b 20 6f | 70 74 31 2c 6f 70 74 32 |. { o|pt1,opt2|
|00005940| 2c 6f 70 74 33 2c 68 65 | 6c 70 0d 1a fe 27 f4 20 |,opt3,he|lp...'. |
|00005950| 20 20 6f 72 20 2d 31 2c | 73 74 72 69 6e 67 2c 2d | or -1,|string,-|
|00005960| 31 2c 68 65 6c 70 20 7d | 20 72 65 70 65 61 74 65 |1,help }| repeate|
|00005970| 64 0d 1b 08 11 f4 20 20 | 7d 20 72 65 70 65 61 74 |d..... |} repeat|
|00005980| 65 64 0d 1b 12 12 f4 20 | 20 2d 32 2c 2d 32 2c 2d |ed..... | -2,-2,-|
|00005990| 32 2c 2d 32 0d 1b 1c 1b | dd f2 72 65 61 64 68 65 |2,-2....|..readhe|
|000059a0| 6c 70 28 77 69 6e 2c 69 | 63 6f 6e 2c 74 6f 29 0d |lp(win,i|con,to).|
|000059b0| 1b 26 38 ea 20 6c 77 69 | 6e 2c 76 61 6c 2c 68 65 |.&8. lwi|n,val,he|
|000059c0| 6c 70 24 2c 66 6f 75 6e | 64 2c 61 24 2c 6d 24 2c |lp$,foun|d,a$,m$,|
|000059d0| 6d 32 24 2c 6d 68 24 3a | 66 6f 75 6e 64 3d a3 3a |m2$,mh$:|found=.:|
|000059e0| 6c 77 69 6e 3d 2d 31 0d | 1b 30 05 f5 0d 1b 3a 10 |lwin=-1.|.0....:.|
|000059f0| 20 f3 20 76 61 6c 2c 68 | 65 6c 70 24 0d 1b 44 1c | . val,h|elp$..D.|
|00005a00| 20 e7 20 76 61 6c 3e 28 | 31 3c 3c 31 36 29 20 84 | . val>(|1<<16) .|
|00005a10| 20 76 61 6c 3c 30 20 8c | 0d 1b 4e 12 20 20 e7 20 | val<0 .|..N. . |
|00005a20| 6c 77 69 6e 3d 77 69 6e | 20 8c 0d 1b 58 1f 20 20 |lwin=win| ...X. |
|00005a30| 20 76 61 6c 3d 69 63 6f | 6e 3a 68 65 6c 70 24 3d | val=ico|n:help$=|
|00005a40| 22 22 3a 6d 32 24 3d 6d | 24 0d 1b 62 07 20 20 cc |"":m2$=m|$..b. .|
|00005a50| 0d 1b 6c 18 20 20 20 6c | 77 69 6e 3d 76 61 6c 3a |..l. l|win=val:|
|00005a60| 6d 24 3d 68 65 6c 70 24 | 0d 1b 76 07 20 20 cd 0d |m$=help$|..v. ..|
|00005a70| 1b 80 06 20 cd 0d 1b 8a | 1c 20 e7 20 76 61 6c 3d |... ....|. . val=|
|00005a80| 69 63 6f 6e 20 80 20 6c | 77 69 6e 3d 77 69 6e 20 |icon . l|win=win |
|00005a90| 8c 0d 1b 94 1c 20 20 e7 | 20 69 63 6f 6e 3d 2d 31 |..... .| icon=-1|
|00005aa0| 20 84 20 68 65 6c 70 24 | 3d 22 22 20 8c 0d 1b 9e | . help$|="" ....|
|00005ab0| 26 20 20 20 f2 73 65 6e | 64 68 65 6c 70 28 a4 6d |& .sen|dhelp(.m|
|00005ac0| 73 67 74 65 78 74 28 6d | 24 29 2b 22 7c 4d 22 2c |sgtext(m|$)+"|M",|
|00005ad0| 74 6f 29 0d 1b a8 07 20 | 20 cc 0d 1b b2 39 20 20 |to).... | ....9 |
|00005ae0| 20 6d 24 3d a4 6d 73 67 | 74 65 78 74 28 6d 24 29 | m$=.msg|text(m$)|
|00005af0| 3a e7 20 a7 6d 24 2c 22 | 7c 4d 22 29 3e 30 20 8c |:. .m$,"||M")>0 .|
|00005b00| 6d 24 3d c0 6d 24 2c a7 | 6d 24 2c 22 7c 4d 22 29 |m$=.m$,.|m$,"|M")|
|00005b10| 2d 31 29 0d 1b bc 36 20 | 20 20 f2 73 65 6e 64 68 |-1)...6 | .sendh|
|00005b20| 65 6c 70 28 a4 6d 73 67 | 74 65 78 74 28 6d 24 29 |elp(.msg|text(m$)|
|00005b30| 2b 22 7c 4d 22 2b a4 6d | 73 67 74 65 78 74 28 68 |+"|M"+.m|sgtext(h|
|00005b40| 65 6c 70 24 29 2c 74 6f | 29 0d 1b c6 07 20 20 cd |elp$),to|).... .|
|00005b50| 0d 1b d0 0d 20 20 66 6f | 75 6e 64 3d b9 0d 1b da |.... fo|und=....|
|00005b60| 06 20 cd 0d 1b e4 1a fd | 20 68 65 6c 70 24 3d 22 |. ......| help$="|
|00005b70| 2d 31 22 20 84 20 66 6f | 75 6e 64 3d b9 0d 1b ee |-1" . fo|und=....|
|00005b80| 0f e7 20 ac 20 66 6f 75 | 6e 64 20 8c 0d 1b f8 42 |.. . fou|nd ....B|
|00005b90| 20 21 6d 65 73 73 61 67 | 65 5f 62 75 66 66 65 72 | !messag|e_buffer|
|00005ba0| 25 3d 2d 31 3a 6d 65 73 | 73 61 67 65 5f 62 75 66 |%=-1:mes|sage_buf|
|00005bb0| 66 65 72 25 21 34 3d 2d | 31 3a 6d 65 73 73 61 67 |fer%!4=-|1:messag|
|00005bc0| 65 5f 62 75 66 66 65 72 | 25 21 38 3d 2d 31 0d 1c |e_buffer|%!8=-1..|
|00005bd0| 02 36 20 c8 99 20 22 57 | 69 6d 70 5f 47 65 74 4d |.6 .. "W|imp_GetM|
|00005be0| 65 6e 75 53 74 61 74 65 | 22 2c 31 2c 6d 65 73 73 |enuState|",1,mess|
|00005bf0| 61 67 65 5f 62 75 66 66 | 65 72 25 2c 77 69 6e 2c |age_buff|er%,win,|
|00005c00| 69 63 6f 6e 0d 1c 0c 1d | 20 e7 20 21 6d 65 73 73 |icon....| . !mess|
|00005c10| 61 67 65 5f 62 75 66 66 | 65 72 25 3c 3e 2d 31 20 |age_buff|er%<>-1 |
|00005c20| 8c 0d 1c 16 40 20 20 76 | 61 6c 3d 62 25 3a 62 25 |....@ v|al=b%:b%|
|00005c30| 3d 6d 65 73 73 61 67 65 | 5f 62 75 66 66 65 72 25 |=message|_buffer%|
|00005c40| 3a 6d 68 24 3d a4 64 65 | 63 6f 64 65 6d 65 6e 75 |:mh$=.de|codemenu|
|00005c50| 28 63 75 72 6d 65 6e 75 | 25 29 3a 62 25 3d 76 61 |(curmenu|%):b%=va|
|00005c60| 6c 0d 1c 20 30 20 20 6d | 24 3d 6d 68 24 3a c8 95 |l.. 0 m|$=mh$:..|
|00005c70| 20 a7 6d 24 2c 22 20 22 | 29 3e 30 3a c1 6d 24 2c | .m$," "|)>0:.m$,|
|00005c80| a7 6d 24 2c 22 20 22 29 | 2c 31 29 3d 22 5f 22 3a |.m$," ")|,1)="_":|
|00005c90| ce 0d 1c 2a 1e 20 20 68 | 65 6c 70 24 3d a4 6d 73 |...*. h|elp$=.ms|
|00005ca0| 67 74 6f 6b 65 6e 28 22 | 48 4d 22 2b 6d 24 29 0d |gtoken("|HM"+m$).|
|00005cb0| 1c 34 18 20 20 e7 20 68 | 65 6c 70 24 3c 3e 22 48 |.4. . h|elp$<>"H|
|00005cc0| 4d 22 2b 6d 24 20 8c 0d | 1c 3e 1a 20 20 20 f2 73 |M"+m$ ..|.>. .s|
|00005cd0| 65 6e 64 68 65 6c 70 28 | 68 65 6c 70 24 2c 74 6f |endhelp(|help$,to|
|00005ce0| 29 0d 1c 48 07 20 20 cc | 0d 1c 52 08 20 20 20 f5 |)..H. .|..R. .|
|00005cf0| 0d 1c 5c 1c 20 20 20 20 | f3 20 6d 24 2c 76 61 6c |..\. |. m$,val|
|00005d00| 2c 68 65 6c 70 24 2c 68 | 65 6c 70 24 0d 1c 66 21 |,help$,h|elp$..f!|
|00005d10| 20 20 20 fd 20 a0 28 6d | 24 29 3d 63 75 72 6d 65 | . .(m|$)=curme|
|00005d20| 6e 75 25 20 84 20 6d 24 | 3d 22 2d 32 22 0d 1c 70 |nu% . m$|="-2"..p|
|00005d30| 13 20 20 20 e7 20 6d 24 | 3c 3e 22 2d 32 22 20 8c |. . m$|<>"-2" .|
|00005d40| 0d 1c 7a 12 20 20 20 20 | e7 20 76 61 6c 3e 2d 31 |..z. |. val>-1|
|00005d50| 20 8c 0d 1c 84 24 20 20 | 20 20 20 f2 73 65 6e 64 | ....$ | .send|
|00005d60| 68 65 6c 70 28 68 65 6c | 70 24 2c 74 6f 29 3a 66 |help(hel|p$,to):f|
|00005d70| 6f 75 6e 64 3d b9 0d 1c | 8e 09 20 20 20 20 cc 0d |ound=...|.. ..|
|00005d80| 1c 98 0a 20 20 20 20 20 | f5 0d 1c a2 1d 20 20 20 |... |..... |
|00005d90| 20 20 20 f3 20 6c 77 69 | 6e 2c 6d 24 2c 76 61 6c | . lwi|n,m$,val|
|00005da0| 2c 68 65 6c 70 24 0d 1c | ac 1f 20 20 20 20 20 20 |,help$..|.. |
|00005db0| e7 20 bb 28 6d 24 29 3d | 30 20 80 20 6d 24 3c 3e |. .(m$)=|0 . m$<>|
|00005dc0| 22 30 22 20 8c 0d 1c b6 | 30 20 20 20 20 20 20 20 |"0" ....|0 |
|00005dd0| e7 20 6d 68 24 3d 6d 24 | 20 8c f2 73 65 6e 64 68 |. mh$=m$| ..sendh|
|00005de0| 65 6c 70 28 68 65 6c 70 | 24 2c 74 6f 29 3a 66 6f |elp(help|$,to):fo|
|00005df0| 75 6e 64 3d b9 0d 1c c0 | 0b 20 20 20 20 20 20 cc |und=....|. .|
|00005e00| 0d 1c ca 57 20 20 20 20 | 20 20 20 e7 20 6c 77 69 |...W | . lwi|
|00005e10| 6e 3d 6d 65 73 73 61 67 | 65 5f 62 75 66 66 65 72 |n=messag|e_buffer|
|00005e20| 25 21 30 20 80 20 bb 28 | 6d 24 29 3d 6d 65 73 73 |%!0 . .(|m$)=mess|
|00005e30| 61 67 65 5f 62 75 66 66 | 65 72 25 21 34 20 80 20 |age_buff|er%!4 . |
|00005e40| 76 61 6c 3d 6d 65 73 73 | 61 67 65 5f 62 75 66 66 |val=mess|age_buff|
|00005e50| 65 72 25 21 38 20 8c 0d | 1c d4 27 20 20 20 20 20 |er%!8 ..|..' |
|00005e60| 20 20 20 f2 73 65 6e 64 | 68 65 6c 70 28 68 65 6c | .send|help(hel|
|00005e70| 70 24 2c 74 6f 29 3a 66 | 6f 75 6e 64 3d b9 0d 1c |p$,to):f|ound=...|
|00005e80| de 0c 20 20 20 20 20 20 | 20 cd 0d 1c e8 0b 20 20 |.. | ..... |
|00005e90| 20 20 20 20 cd 0d 1c f2 | 29 20 20 20 20 20 fd 66 | ....|) .f|
|00005ea0| 6f 75 6e 64 3d b9 20 84 | 20 6c 77 69 6e 3d 2d 32 |ound=. .| lwin=-2|
|00005eb0| 20 84 20 6c 77 69 6e 20 | 3e 26 38 30 30 30 0d 1c | . lwin |>&8000..|
|00005ec0| fc 09 20 20 20 20 cd 0d | 1d 06 08 20 20 20 cd 0d |.. ..|... ..|
|00005ed0| 1d 10 07 20 20 cd 0d 1d | 1a 06 20 cd 0d 1d 24 05 |... ...|.. ...$.|
|00005ee0| cd 0d 1d 2e 05 e1 0d 1d | 38 2e dd f2 73 65 6e 64 |........|8...send|
|00005ef0| 68 65 6c 70 28 68 65 6c | 70 24 2c 74 6f 29 3a 68 |help(hel|p$,to):h|
|00005f00| 65 6c 70 24 3d a4 6d 73 | 67 74 65 78 74 28 68 65 |elp$=.ms|gtext(he|
|00005f10| 6c 70 24 29 0d 1d 42 22 | e7 20 c2 68 65 6c 70 24 |lp$)..B"|. .help$|
|00005f20| 2c 32 29 3c 3e 22 7c 4d | 22 20 8c 68 65 6c 70 24 |,2)<>"|M|" .help$|
|00005f30| 2b 3d 22 7c 4d 22 0d 1d | 4c 0b ea 20 62 24 2c 63 |+="|M"..|L.. b$,c|
|00005f40| 24 0d 1d 56 1b 68 65 6c | 70 24 3d a4 73 75 62 73 |$..V.hel|p$=.subs|
|00005f50| 74 76 61 72 73 28 68 65 | 6c 70 24 29 0d 1d 60 15 |tvars(he|lp$)..`.|
|00005f60| c8 95 20 a7 68 65 6c 70 | 24 2c 22 7c 4d 22 29 3e |.. .help|$,"|M")>|
|00005f70| 30 0d 1d 6a 34 20 62 24 | 3d c0 68 65 6c 70 24 2c |0..j4 b$|=.help$,|
|00005f80| a7 68 65 6c 70 24 2c 22 | 7c 4d 22 29 2d 31 29 3a |.help$,"||M")-1):|
|00005f90| 68 65 6c 70 24 3d c1 68 | 65 6c 70 24 2c a9 28 62 |help$=.h|elp$,.(b|
|00005fa0| 24 29 2b 33 29 0d 1d 74 | 20 20 e7 20 a7 22 21 2e |$)+3)..t| . ."!.|
|00005fb0| 3f 22 2c c2 62 24 2c 31 | 29 29 3d 30 20 8c 62 24 |?",.b$,1|))=0 .b$|
|00005fc0| 2b 3d 22 2e 22 0d 1d 7e | 10 20 63 24 2b 3d 62 24 |+="."..~|. c$+=b$|
|00005fd0| 2b 22 7c 4d 22 0d 1d 88 | 05 ce 0d 1d 92 30 62 25 |+"|M"...|.....0b%|
|00005fe0| 21 31 32 3d 62 25 21 38 | 3a 62 25 21 34 3d 74 6f |!12=b%!8|:b%!4=to|
|00005ff0| 3a 62 25 21 31 36 3d 26 | 35 30 33 3a 24 28 62 25 |:b%!16=&|503:$(b%|
|00006000| 2b 32 30 29 3d 63 24 2b | bd 30 0d 1d 9c 1a 62 25 |+20)=c$+|.0....b%|
|00006010| 21 30 3d 32 30 2b 28 a9 | 28 63 24 29 2b 34 29 20 |!0=20+(.|(c$)+4) |
|00006020| 80 20 2d 34 0d 1d a6 24 | c8 99 20 22 57 69 6d 70 |. -4...$|.. "Wimp|
|00006030| 5f 53 65 6e 64 4d 65 73 | 73 61 67 65 22 2c 31 37 |_SendMes|sage",17|
|00006040| 2c 62 25 2c 62 25 21 34 | 0d 1d b0 05 e1 0d 1d ba |,b%,b%!4|........|
|00006050| 05 3a 0d 1d c4 37 f4 20 | 2a 2a 2a 2a 2a 2a 2a 2a |.:...7. |********|
|00006060| 20 4d 65 73 73 61 67 65 | 54 72 61 6e 73 20 69 6e | Message|Trans in|
|00006070| 74 65 72 66 61 63 65 20 | 72 6f 75 74 69 6e 65 73 |terface |routines|
|00006080| 20 2a 2a 2a 2a 2a 2a 2a | 2a 0d 1d ce 05 3a 0d 1d | *******|*....:..|
|00006090| d8 3c f4 20 50 52 4f 43 | 6f 70 65 6e 6d 65 73 73 |.<. PROC|openmess|
|000060a0| 61 67 65 73 20 20 3a 20 | 6f 70 65 6e 20 61 20 4d |ages : |open a M|
|000060b0| 65 73 73 61 67 65 54 72 | 61 6e 73 20 66 69 6c 65 |essageTr|ans file|
|000060c0| 20 66 6f 72 20 69 6e 70 | 75 74 0d 1d e2 33 f4 20 | for inp|ut...3. |
|000060d0| 50 52 4f 43 63 6c 6f 73 | 65 6d 65 73 73 61 67 65 |PROCclos|emessage|
|000060e0| 73 20 3a 20 63 6c 6f 73 | 65 20 61 20 4d 65 73 73 |s : clos|e a Mess|
|000060f0| 61 67 65 54 72 61 6e 73 | 20 66 69 6c 65 0d 1d ec |ageTrans| file...|
|00006100| 18 dd f2 6f 70 65 6e 6d | 65 73 73 61 67 65 73 3a |...openm|essages:|
|00006110| ea 20 66 2c 6c 0d 1d f6 | 38 e7 20 6d 73 67 62 75 |. f,l...|8. msgbu|
|00006120| 66 66 65 72 25 3c 3e 2d | 31 20 8c 85 20 26 38 30 |ffer%<>-|1 .. &80|
|00006130| 33 2c 22 4d 65 73 73 61 | 67 65 20 66 69 6c 65 20 |3,"Messa|ge file |
|00006140| 61 6c 72 65 61 64 79 20 | 6f 70 65 6e 22 0d 1e 00 |already |open"...|
|00006150| 3a c8 99 20 22 4d 65 73 | 73 61 67 65 54 72 61 6e |:.. "Mes|sageTran|
|00006160| 73 5f 46 69 6c 65 49 6e | 66 6f 22 2c 2c 41 70 70 |s_FileIn|fo",,App|
|00006170| 64 69 72 24 2b 22 2e 4d | 65 73 73 61 67 65 73 22 |dir$+".M|essages"|
|00006180| 20 b8 20 66 2c 2c 6c 0d | 1e 0a 34 e7 20 28 66 20 | . f,,l.|..4. (f |
|00006190| 80 31 29 3d 31 20 8c 6d | 73 67 62 75 66 66 65 72 |.1)=1 .m|sgbuffer|
|000061a0| 32 25 3d 30 20 8b 6d 73 | 67 62 75 66 66 65 72 32 |2%=0 .ms|gbuffer2|
|000061b0| 25 3d a4 63 6c 61 69 6d | 28 6c 29 0d 1e 14 48 e7 |%=.claim|(l)...H.|
|000061c0| 20 6d 73 67 62 75 66 66 | 65 72 32 25 3d 2d 31 20 | msgbuff|er2%=-1 |
|000061d0| 8c 85 20 26 38 30 33 2c | 22 4e 6f 20 72 6f 6f 6d |.. &803,|"No room|
|000061e0| 20 66 6f 72 20 73 65 63 | 6f 6e 64 61 72 79 20 4d | for sec|ondary M|
|000061f0| 65 73 73 61 67 65 54 72 | 61 6e 73 20 62 75 66 66 |essageTr|ans buff|
|00006200| 65 72 22 0d 1e 1e 71 6d | 73 67 62 75 66 66 65 72 |er"...qm|sgbuffer|
|00006210| 25 3d a4 63 6c 61 69 6d | 28 31 36 29 3a e7 20 6d |%=.claim|(16):. m|
|00006220| 73 67 62 75 66 66 65 72 | 25 3d 2d 31 20 8c f2 72 |sgbuffer|%=-1 ..r|
|00006230| 65 6c 65 61 73 65 28 6d | 73 67 62 75 66 66 65 72 |elease(m|sgbuffer|
|00006240| 32 25 29 3a 85 20 26 38 | 30 33 2c 22 4e 6f 20 72 |2%):. &8|03,"No r|
|00006250| 6f 6f 6d 20 66 6f 72 20 | 70 72 69 6d 61 72 79 20 |oom for |primary |
|00006260| 4d 65 73 73 61 67 65 54 | 72 61 6e 73 20 62 75 66 |MessageT|rans buf|
|00006270| 66 65 72 22 0d 1e 28 49 | c8 99 20 22 4d 65 73 73 |fer"..(I|.. "Mess|
|00006280| 61 67 65 54 72 61 6e 73 | 5f 4f 70 65 6e 46 69 6c |ageTrans|_OpenFil|
|00006290| 65 22 2c 6d 73 67 62 75 | 66 66 65 72 25 2c 41 70 |e",msgbu|ffer%,Ap|
|000062a0| 70 64 69 72 24 2b 22 2e | 4d 65 73 73 61 67 65 73 |pdir$+".|Messages|
|000062b0| 22 2c 6d 73 67 62 75 66 | 66 65 72 32 25 0d 1e 32 |",msgbuf|fer2%..2|
|000062c0| 05 e1 0d 1e 3c 13 dd f2 | 63 6c 6f 73 65 6d 65 73 |....<...|closemes|
|000062d0| 73 61 67 65 73 0d 1e 46 | 07 ea 20 85 0d 1e 50 1e |sages..F|.. ...P.|
|000062e0| ee 20 85 20 ea 3a ef 34 | 3a f6 3a f1 22 20 61 74 |. . .:.4|:.:." at|
|000062f0| 20 22 3b 9e 3a 47 3d a5 | 3a e1 0d 1e 5a 15 e7 20 | ";.:G=.|:...Z.. |
|00006300| 6d 73 67 62 75 66 66 65 | 72 25 3e 2d 31 20 8c 0d |msgbuffe|r%>-1 ..|
|00006310| 1e 64 2c 20 c8 99 20 22 | 58 4d 65 73 73 61 67 65 |.d, .. "|XMessage|
|00006320| 54 72 61 6e 73 5f 43 6c | 6f 73 65 46 69 6c 65 22 |Trans_Cl|oseFile"|
|00006330| 2c 6d 73 67 62 75 66 66 | 65 72 25 0d 1e 6e 2f 20 |,msgbuff|er%..n/ |
|00006340| f2 72 65 6c 65 61 73 65 | 28 6d 73 67 62 75 66 66 |.release|(msgbuff|
|00006350| 65 72 25 29 3a f2 72 65 | 6c 65 61 73 65 28 6d 73 |er%):.re|lease(ms|
|00006360| 67 62 75 66 66 65 72 32 | 25 29 0d 1e 78 05 cd 0d |gbuffer2|%)..x...|
|00006370| 1e 82 05 e1 0d 1e 8c 05 | 3a 0d 1e 96 39 f4 20 46 |........|:...9. F|
|00006380| 4e 6d 73 67 74 6f 6b 65 | 6e 20 20 20 20 20 20 20 |Nmsgtoke|n |
|00006390| 20 3a 20 74 72 61 6e 73 | 6c 61 74 65 20 61 20 74 | : trans|late a t|
|000063a0| 6f 6b 65 6e 20 69 6e 74 | 6f 20 61 20 73 74 72 69 |oken int|o a stri|
|000063b0| 6e 67 0d 1e a0 42 f4 20 | 46 4e 6d 73 67 74 65 78 |ng...B. |FNmsgtex|
|000063c0| 74 20 20 20 20 20 20 20 | 20 20 3a 20 74 72 61 6e |t | : tran|
|000063d0| 73 6c 61 74 65 20 74 65 | 78 74 20 74 6f 20 61 20 |slate te|xt to a |
|000063e0| 74 6f 6b 65 6e 20 69 66 | 20 70 72 65 66 69 78 20 |token if| prefix |
|000063f0| 69 73 20 3e 0d 1e aa 2a | dd a4 6d 73 67 74 6f 6b |is >...*|..msgtok|
+--------+-------------------------+-------------------------+--------+--------+
Only 25.0 KB of data is shown above.
