home *** CD-ROM | disk | FTP | other *** search
| Unknown | 1995-03-04 | 22.9 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 0f f4 20 3e 57 | 69 6d 70 4c 69 62 32 0d |..... >W|impLib2.|
|00000010| 00 1e 30 f4 20 53 70 65 | 63 69 61 6c 20 61 6c 74 |..0. Spe|cial alt|
|00000020| 65 72 61 74 69 6f 6e 73 | 20 74 6f 20 72 75 6e 20 |erations| to run |
|00000030| 6f 6e 20 52 4f 32 20 6d | 61 63 68 69 6e 65 73 0d |on RO2 m|achines.|
|00000040| 00 1f 12 f4 20 56 65 72 | 73 69 6f 6e 20 31 2e 32 |.... Ver|sion 1.2|
|00000050| 30 0d 00 28 05 3a 0d 00 | 32 34 f4 20 50 52 4f 43 |0..(.:..|24. PROC|
|00000060| 69 6e 69 74 6c 69 62 72 | 61 72 79 20 3a 20 49 6e |initlibr|ary : In|
|00000070| 69 74 69 61 6c 69 73 65 | 20 6c 69 62 72 61 72 79 |itialise| library|
|00000080| 20 76 61 72 69 61 62 6c | 65 73 0d 00 3c 11 dd f2 | variabl|es..<...|
|00000090| 69 6e 69 74 6c 69 62 72 | 61 72 79 0d 00 46 1a de |initlibr|ary..F..|
|000000a0| 20 6d 65 73 73 61 67 65 | 5f 62 75 66 66 65 72 25 | message|_buffer%|
|000000b0| 20 31 30 32 34 0d 00 50 | 38 72 6d 61 66 6f 6e 74 | 1024..P|8rmafont|
|000000c0| 61 72 65 61 3d 2d 32 3a | 6d 73 67 62 75 66 66 65 |area=-2:|msgbuffe|
|000000d0| 72 25 3d 2d 31 3a 6d 73 | 67 62 75 66 66 65 72 32 |r%=-1:ms|gbuffer2|
|000000e0| 25 3d 2d 31 3a 66 74 62 | 6c 6b 3d 2d 32 0d 00 5a |%=-1:ftb|lk=-2..Z|
|000000f0| 05 e1 0d 00 64 05 3a 0d | 00 6e 3d f4 20 50 52 4f |....d.:.|.n=. PRO|
|00000100| 43 6e 6f 74 65 6d 65 73 | 73 61 67 65 20 3a 20 4d |Cnotemes|sage : M|
|00000110| 61 72 6b 20 74 68 65 20 | 67 69 76 65 6e 20 6d 65 |ark the |given me|
|00000120| 73 73 61 67 65 20 61 73 | 20 72 65 63 65 69 76 65 |ssage as| receive|
|00000130| 61 62 6c 65 0d 00 78 2e | dd f2 6e 6f 74 65 6d 65 |able..x.|..noteme|
|00000140| 73 73 61 67 65 28 6e 29 | 3a 6d 65 73 73 61 67 65 |ssage(n)|:message|
|00000150| 6c 69 73 74 25 21 6d 65 | 73 73 70 74 72 25 3d 6e |list%!me|ssptr%=n|
|00000160| 3a e1 0d 00 82 05 3a 0d | 00 8c 2b f4 20 50 52 4f |:.....:.|..+. PRO|
|00000170| 43 65 72 72 6f 72 20 3a | 20 43 61 6c 6c 65 64 20 |Cerror :| Called |
|00000180| 61 74 20 61 6e 79 20 62 | 61 73 69 63 20 65 72 72 |at any b|asic err|
|00000190| 6f 72 0d 00 96 1b f4 20 | 45 52 52 4f 52 20 6e 75 |or..... |ERROR nu|
|000001a0| 6d 62 65 72 73 20 26 38 | 30 30 2b 20 3a 0d 00 a0 |mbers &8|00+ :...|
|000001b0| 0c f4 20 30 20 3d 20 4f | 4b 0d 00 aa 10 f4 20 31 |.. 0 = O|K..... 1|
|000001c0| 20 3d 20 43 61 6e 63 65 | 6c 0d 00 b4 21 f4 20 32 | = Cance|l...!. 2|
|000001d0| 20 3d 20 4f 4b 20 61 6e | 64 20 43 61 6e 63 65 6c | = OK an|d Cancel|
|000001e0| 20 28 74 6f 20 71 75 69 | 74 29 0d 00 be 0b dd f2 | (to qui|t)......|
|000001f0| 65 72 72 6f 72 0d 00 c8 | 17 e7 20 9f 3e 26 37 46 |error...|.. .>&7F|
|00000200| 46 20 80 20 9f 3c 26 38 | 30 33 20 8c 0d 00 d2 1c |F . .<&8|03 .....|
|00000210| 20 65 72 72 63 6f 64 65 | 3d 9f 2d 26 37 46 46 3a | errcode|=.-&7FF:|
|00000220| 6d 65 73 73 24 3d f6 24 | 0d 00 dc 2c 20 e7 20 65 |mess$=.$|..., . e|
|00000230| 72 72 63 6f 64 65 3d 33 | 20 8c 6d 65 73 73 24 2b |rrcode=3| .mess$+|
|00000240| 3d 22 20 28 43 61 6e 63 | 65 6c 20 74 6f 20 51 75 |=" (Canc|el to Qu|
|00000250| 69 74 29 22 0d 00 e6 2d | 20 72 65 70 6c 79 25 3d |it)"...-| reply%=|
|00000260| a4 65 72 72 6f 72 62 6f | 78 28 41 70 70 6e 61 6d |.errorbo|x(Appnam|
|00000270| 65 24 2c 6d 65 73 73 24 | 2c 65 72 72 63 6f 64 65 |e$,mess$|,errcode|
|00000280| 29 0d 00 f0 24 20 e7 20 | 72 65 70 6c 79 25 3d 32 |)...$ . |reply%=2|
|00000290| 20 80 20 65 72 72 63 6f | 64 65 3d 33 20 8c 71 75 | . errco|de=3 .qu|
|000002a0| 69 74 25 3d b9 0d 00 fa | 05 cc 0d 01 04 55 20 72 |it%=....|.....U r|
|000002b0| 65 70 6c 79 25 3d a4 65 | 72 72 6f 72 62 6f 78 28 |eply%=.e|rrorbox(|
|000002c0| 41 70 70 6e 61 6d 65 24 | 2c 22 49 6e 74 65 72 6e |Appname$|,"Intern|
|000002d0| 61 6c 20 65 72 72 6f 72 | 20 3a 20 28 22 2b c3 9e |al error| : ("+..|
|000002e0| 2b 22 29 20 22 2b f6 24 | 2b 22 20 43 61 6e 63 65 |+") "+.$|+" Cance|
|000002f0| 6c 20 74 6f 20 51 75 69 | 74 22 2c 25 31 31 29 0d |l to Qui|t",%11).|
|00000300| 01 0e 19 20 e7 20 72 65 | 70 6c 79 25 3c 3e 31 20 |... . re|ply%<>1 |
|00000310| 8c 71 75 69 74 25 3d b9 | 0d 01 18 36 20 e7 20 a6 |.quit%=.|...6 . .|
|00000320| 28 2d 31 29 20 80 20 a6 | 28 2d 32 29 20 80 20 a6 |(-1) . .|(-2) . .|
|00000330| 28 2d 31 37 29 20 8c ff | 28 22 53 70 6f 6f 6c 22 |(-17) ..|("Spool"|
|00000340| 29 3a c8 99 20 22 4f 53 | 5f 45 78 69 74 22 0d 01 |):.. "OS|_Exit"..|
|00000350| 22 05 cd 0d 01 2c 05 e1 | 0d 01 36 05 3a 0d 01 40 |"....,..|..6.:..@|
|00000360| 36 f4 20 50 52 4f 43 69 | 62 6d 65 6e 75 20 3a 20 |6. PROCi|bmenu : |
|00000370| 43 72 65 61 74 65 20 61 | 6e 20 69 63 6f 6e 62 61 |Create a|n iconba|
|00000380| 72 20 6d 65 6e 75 20 66 | 72 6f 6d 20 69 62 6d 65 |r menu f|rom ibme|
|00000390| 6e 75 25 0d 01 4a 0c dd | f2 69 62 6d 65 6e 75 0d |nu%..J..|.ibmenu.|
|000003a0| 01 54 5b c8 99 20 22 57 | 69 6d 70 5f 47 65 74 50 |.T[.. "W|imp_GetP|
|000003b0| 6f 69 6e 74 65 72 49 6e | 66 6f 22 2c 2c 62 25 3a |ointerIn|fo",,b%:|
|000003c0| 63 75 72 6d 65 6e 75 25 | 3d 69 62 6d 65 6e 75 25 |curmenu%|=ibmenu%|
|000003d0| 3a 63 6d 65 6e 75 78 25 | 3d 62 25 21 30 2d 36 34 |:cmenux%|=b%!0-64|
|000003e0| 3a 63 6d 65 6e 75 79 25 | 3d 39 36 2b 26 32 38 2a |:cmenuy%|=96+&28*|
|000003f0| 69 62 6f 70 74 69 6f 6e | 73 25 0d 01 5e 3b c8 99 |iboption|s%..^;..|
|00000400| 20 22 57 69 6d 70 5f 43 | 72 65 61 74 65 4d 65 6e | "Wimp_C|reateMen|
|00000410| 75 22 2c 2c 69 62 6d 65 | 6e 75 25 2c 62 25 21 30 |u",,ibme|nu%,b%!0|
|00000420| 2d 36 34 2c 39 36 2b 26 | 32 38 2a 69 62 6f 70 74 |-64,96+&|28*ibopt|
|00000430| 69 6f 6e 73 25 0d 01 68 | 05 e1 0d 01 72 04 0d 01 |ions%..h|....r...|
|00000440| 7c 3c f4 20 50 52 4f 43 | 6d 65 6e 75 20 3a 20 43 ||<. PROC|menu : C|
|00000450| 72 65 61 74 65 20 74 68 | 65 20 6d 65 6e 75 20 61 |reate th|e menu a|
|00000460| 74 20 63 6f 2d 6f 72 64 | 73 20 6f 72 20 6d 6f 75 |t co-ord|s or mou|
|00000470| 73 65 20 69 66 20 78 3d | 2d 31 0d 01 86 15 dd f2 |se if x=|-1......|
|00000480| 6d 65 6e 75 28 6d 65 6e | 75 25 2c 78 2c 79 29 0d |menu(men|u%,x,y).|
|00000490| 01 90 0c e7 20 78 3d 2d | 31 20 8c 0d 01 9a 2f 20 |.... x=-|1 ..../ |
|000004a0| c8 99 20 22 57 69 6d 70 | 5f 47 65 74 50 6f 69 6e |.. "Wimp|_GetPoin|
|000004b0| 74 65 72 49 6e 66 6f 22 | 2c 2c 62 25 3a 78 3d 62 |terInfo"|,,b%:x=b|
|000004c0| 25 21 30 3a 79 3d 62 25 | 21 34 0d 01 a4 05 cd 0d |%!0:y=b%|!4......|
|000004d0| 01 ae 2c 63 75 72 6d 65 | 6e 75 25 3d 6d 65 6e 75 |..,curme|nu%=menu|
|000004e0| 25 3a 63 6d 65 6e 75 78 | 25 3d 78 2d 36 34 3a 63 |%:cmenux|%=x-64:c|
|000004f0| 6d 65 6e 75 79 25 3d 79 | 2b 32 30 0d 01 b8 29 c8 |menuy%=y|+20...).|
|00000500| 99 20 22 57 69 6d 70 5f | 43 72 65 61 74 65 4d 65 |. "Wimp_|CreateMe|
|00000510| 6e 75 22 2c 2c 6d 65 6e | 75 25 2c 78 2d 36 34 2c |nu",,men|u%,x-64,|
|00000520| 79 2b 32 30 0d 01 c2 05 | e1 0d 01 cc 12 dd f2 72 |y+20....|.......r|
|00000530| 65 63 72 65 61 74 65 6d | 65 6e 75 0d 01 d6 32 c8 |ecreatem|enu...2.|
|00000540| 99 20 22 57 69 6d 70 5f | 43 72 65 61 74 65 4d 65 |. "Wimp_|CreateMe|
|00000550| 6e 75 22 2c 2c 63 75 72 | 6d 65 6e 75 25 2c 63 6d |nu",,cur|menu%,cm|
|00000560| 65 6e 75 78 25 2c 63 6d | 65 6e 75 79 25 0d 01 e0 |enux%,cm|enuy%...|
|00000570| 05 e1 0d 01 ea 05 3a 0d | 01 f4 30 f4 20 50 52 4f |......:.|..0. PRO|
|00000580| 43 6d 65 6e 75 74 69 63 | 6b 20 20 3a 20 54 69 63 |Cmenutic|k : Tic|
|00000590| 6b 2f 75 6e 74 69 63 6b | 20 6f 70 74 69 6f 6e 20 |k/untick| option |
|000005a0| 6f 6e 20 6d 65 6e 75 0d | 01 fe 32 f4 20 50 52 4f |on menu.|..2. PRO|
|000005b0| 43 6d 65 6e 75 73 68 61 | 64 65 20 3a 20 53 68 61 |Cmenusha|de : Sha|
|000005c0| 64 65 2f 75 6e 73 68 61 | 64 65 20 6f 70 74 69 6f |de/unsha|de optio|
|000005d0| 6e 20 6f 6e 20 6d 65 6e | 75 0d 02 08 29 f4 20 54 |n on men|u...). T|
|000005e0| 6f 67 67 6c 65 20 3d 20 | 30 20 75 6e 74 69 63 6b |oggle = |0 untick|
|000005f0| 2c 20 31 20 74 69 63 6b | 2c 20 32 20 74 6f 67 67 |, 1 tick|, 2 togg|
|00000600| 6c 65 0d 02 12 35 dd f2 | 6d 65 6e 75 74 69 63 6b |le...5..|menutick|
|00000610| 28 6d 65 6e 75 2c 6f 70 | 74 69 6f 6e 2c 74 6f 67 |(menu,op|tion,tog|
|00000620| 67 6c 65 29 3a 6d 65 6e | 75 2b 3d 6f 70 74 69 6f |gle):men|u+=optio|
|00000630| 6e 2a 32 34 2b 32 38 0d | 02 1c 0f c8 8e 20 74 6f |n*24+28.|..... to|
|00000640| 67 67 6c 65 20 ca 0d 02 | 26 19 20 c9 20 30 3a 21 |ggle ...|&. . 0:!|
|00000650| 6d 65 6e 75 3d 21 6d 65 | 6e 75 20 80 20 2d 32 0d |menu=!me|nu . -2.|
|00000660| 02 30 18 20 c9 20 31 3a | 21 6d 65 6e 75 3d 21 6d |.0. . 1:|!menu=!m|
|00000670| 65 6e 75 20 84 20 31 0d | 02 3a 18 20 c9 20 32 3a |enu . 1.|.:. . 2:|
|00000680| 21 6d 65 6e 75 3d 21 6d | 65 6e 75 20 82 20 31 0d |!menu=!m|enu . 1.|
|00000690| 02 44 05 cb 0d 02 4e 05 | e1 0d 02 58 36 dd f2 6d |.D....N.|...X6..m|
|000006a0| 65 6e 75 73 68 61 64 65 | 28 6d 65 6e 75 2c 6f 70 |enushade|(menu,op|
|000006b0| 74 69 6f 6e 2c 74 6f 67 | 67 6c 65 29 3a 6d 65 6e |tion,tog|gle):men|
|000006c0| 75 2b 3d 6f 70 74 69 6f | 6e 2a 32 34 2b 33 36 0d |u+=optio|n*24+36.|
|000006d0| 02 62 0f c8 8e 20 74 6f | 67 67 6c 65 20 ca 0d 02 |.b... to|ggle ...|
|000006e0| 6c 1f 20 c9 20 30 3a 21 | 6d 65 6e 75 3d 21 6d 65 |l. . 0:!|menu=!me|
|000006f0| 6e 75 20 80 20 ac 28 31 | 3c 3c 32 32 29 0d 02 76 |nu . .(1|<<22)..v|
|00000700| 1e 20 c9 20 31 3a 21 6d | 65 6e 75 3d 21 6d 65 6e |. . 1:!m|enu=!men|
|00000710| 75 20 84 20 28 31 3c 3c | 32 32 29 0d 02 80 1e 20 |u . (1<<|22).... |
|00000720| c9 20 32 3a 21 6d 65 6e | 75 3d 21 6d 65 6e 75 20 |. 2:!men|u=!menu |
|00000730| 82 20 28 31 3c 3c 32 32 | 29 0d 02 8a 05 cb 0d 02 |. (1<<22|).......|
|00000740| 94 05 e1 0d 02 9e 37 dd | f2 73 65 74 6d 65 6e 75 |......7.|.setmenu|
|00000750| 74 65 78 74 28 6d 65 6e | 75 2c 6f 70 74 69 6f 6e |text(men|u,option|
|00000760| 2c 74 65 78 74 24 29 3a | 6d 65 6e 75 2b 3d 6f 70 |,text$):|menu+=op|
|00000770| 74 69 6f 6e 2a 32 34 2b | 33 36 0d 02 a8 37 e7 20 |tion*24+|36...7. |
|00000780| 28 21 6d 65 6e 75 20 80 | 26 31 30 30 29 3e 30 20 |(!menu .|&100)>0 |
|00000790| 8c 24 28 6d 65 6e 75 21 | 34 29 3d 74 65 78 74 24 |.$(menu!|4)=text$|
|000007a0| 20 8b 24 28 6d 65 6e 75 | 2b 34 29 3d 74 65 78 74 | .$(menu|+4)=text|
|000007b0| 24 0d 02 b2 05 e1 0d 02 | bc 39 dd a4 67 65 74 6d |$.......|.9..getm|
|000007c0| 65 6e 75 74 65 78 74 28 | 6d 65 6e 75 2c 6f 70 74 |enutext(|menu,opt|
|000007d0| 69 6f 6e 29 3a 6d 65 6e | 75 2b 3d 6f 70 74 69 6f |ion):men|u+=optio|
|000007e0| 6e 2a 32 34 2b 33 36 3a | ea 20 74 65 78 74 24 0d |n*24+36:|. text$.|
|000007f0| 02 c6 37 e7 20 28 21 6d | 65 6e 75 20 80 26 31 30 |..7. (!m|enu .&10|
|00000800| 30 29 3e 30 20 8c 74 65 | 78 74 24 3d 24 28 6d 65 |0)>0 .te|xt$=$(me|
|00000810| 6e 75 21 34 29 20 8b 74 | 65 78 74 24 3d 24 28 6d |nu!4) .t|ext$=$(m|
|00000820| 65 6e 75 2b 34 29 0d 02 | d0 0a 3d 74 65 78 74 24 |enu+4)..|..=text$|
|00000830| 0d 02 da 05 3a 0d 02 e4 | 24 f4 20 50 52 4f 43 63 |....:...|$. PROCc|
|00000840| 6c 6f 73 65 77 69 6e 20 | 20 3a 20 43 6c 6f 73 65 |losewin | : Close|
|00000850| 20 61 20 77 69 6e 64 6f | 77 0d 02 ee 23 f4 20 50 | a windo|w...#. P|
|00000860| 52 4f 43 6f 70 65 6e 77 | 69 6e 20 20 20 3a 20 4f |ROCopenw|in : O|
|00000870| 70 65 6e 20 61 20 77 69 | 6e 64 6f 77 0d 02 f8 3a |pen a wi|ndow...:|
|00000880| f4 20 50 52 4f 43 6f 70 | 65 6e 77 69 6e 61 74 20 |. PROCop|enwinat |
|00000890| 3a 20 4f 70 65 6e 20 61 | 20 77 69 6e 64 6f 77 20 |: Open a| window |
|000008a0| 61 74 20 74 6f 70 2d 6c | 65 66 74 20 63 6f 72 6e |at top-l|eft corn|
|000008b0| 65 72 20 78 2c 79 0d 03 | 02 14 dd f2 63 6c 6f 73 |er x,y..|....clos|
|000008c0| 65 77 69 6e 28 77 69 6e | 25 29 0d 03 0c 26 21 62 |ewin(win|%)...&!b|
|000008d0| 25 3d 77 69 6e 25 3a c8 | 99 20 22 57 69 6d 70 5f |%=win%:.|. "Wimp_|
|000008e0| 43 6c 6f 73 65 57 69 6e | 64 6f 77 22 2c 2c 62 25 |CloseWin|dow",,b%|
|000008f0| 0d 03 16 05 e1 0d 03 20 | 13 dd f2 6f 70 65 6e 77 |....... |...openw|
|00000900| 69 6e 28 77 69 6e 25 29 | 0d 03 2a 29 21 62 25 3d |in(win%)|..*)!b%=|
|00000910| 77 69 6e 25 3a c8 99 20 | 22 57 69 6d 70 5f 47 65 |win%:.. |"Wimp_Ge|
|00000920| 74 57 69 6e 64 6f 77 53 | 74 61 74 65 22 2c 2c 62 |tWindowS|tate",,b|
|00000930| 25 0d 03 34 25 62 25 21 | 32 38 3d 2d 31 3a c8 99 |%..4%b%!|28=-1:..|
|00000940| 20 22 57 69 6d 70 5f 4f | 70 65 6e 57 69 6e 64 6f | "Wimp_O|penWindo|
|00000950| 77 22 2c 2c 62 25 0d 03 | 3e 05 e1 0d 03 48 28 dd |w",,b%..|>....H(.|
|00000960| f2 6f 70 65 6e 77 69 6e | 61 74 28 77 69 6e 25 2c |.openwin|at(win%,|
|00000970| 78 2c 79 29 3a ea 20 77 | 69 64 74 68 2c 68 65 69 |x,y):. w|idth,hei|
|00000980| 67 68 74 0d 03 52 29 21 | 62 25 3d 77 69 6e 25 3a |ght..R)!|b%=win%:|
|00000990| c8 99 20 22 57 69 6d 70 | 5f 47 65 74 57 69 6e 64 |.. "Wimp|_GetWind|
|000009a0| 6f 77 53 74 61 74 65 22 | 2c 2c 62 25 0d 03 5c 26 |owState"|,,b%..\&|
|000009b0| 77 69 64 74 68 3d 62 25 | 21 34 2d 62 25 21 31 32 |width=b%|!4-b%!12|
|000009c0| 3a 68 65 69 67 68 74 3d | 62 25 21 31 36 2d 62 25 |:height=|b%!16-b%|
|000009d0| 21 38 0d 03 66 2e 62 25 | 21 34 3d 78 3a 62 25 21 |!8..f.b%|!4=x:b%!|
|000009e0| 38 3d 79 2d 68 65 69 67 | 68 74 3a 62 25 21 31 32 |8=y-heig|ht:b%!12|
|000009f0| 3d 78 2d 77 69 64 74 68 | 3a 62 25 21 31 36 3d 79 |=x-width|:b%!16=y|
|00000a00| 0d 03 70 25 62 25 21 32 | 38 3d 2d 31 3a c8 99 20 |..p%b%!2|8=-1:.. |
|00000a10| 22 57 69 6d 70 5f 4f 70 | 65 6e 57 69 6e 64 6f 77 |"Wimp_Op|enWindow|
|00000a20| 22 2c 2c 62 25 0d 03 7a | 05 e1 0d 03 84 32 dd f2 |",,b%..z|.....2..|
|00000a30| 6f 70 65 6e 77 69 6e 63 | 65 6e 74 72 65 28 77 69 |openwinc|entre(wi|
|00000a40| 6e 25 29 3a ea 20 77 69 | 64 74 68 2c 68 65 69 67 |n%):. wi|dth,heig|
|00000a50| 68 74 2c 74 6f 70 2c 72 | 69 67 68 74 0d 03 8e 2a |ht,top,r|ight...*|
|00000a60| 21 62 25 3d 34 3a 62 25 | 21 34 3d 35 3a 62 25 21 |!b%=4:b%|!4=5:b%!|
|00000a70| 38 3d 31 31 3a 62 25 21 | 31 32 3d 31 32 3a 62 25 |8=11:b%!|12=12:b%|
|00000a80| 21 31 36 3d 2d 31 0d 03 | 98 25 c8 99 20 22 4f 53 |!16=-1..|.%.. "OS|
|00000a90| 5f 52 65 61 64 56 64 75 | 56 61 72 69 61 62 6c 65 |_ReadVdu|Variable|
|00000aa0| 73 22 2c 62 25 2c 62 25 | 2b 32 30 0d 03 a2 2b 72 |s",b%,b%|+20...+r|
|00000ab0| 69 67 68 74 3d 62 25 21 | 32 38 2b 31 3c 3c 62 25 |ight=b%!|28+1<<b%|
|00000ac0| 21 32 30 3a 74 6f 70 3d | 62 25 21 33 32 2b 31 3c |!20:top=|b%!32+1<|
|00000ad0| 3c 62 25 21 32 34 0d 03 | ac 29 21 62 25 3d 77 69 |<b%!24..|.)!b%=wi|
|00000ae0| 6e 25 3a c8 99 20 22 57 | 69 6d 70 5f 47 65 74 57 |n%:.. "W|imp_GetW|
|00000af0| 69 6e 64 6f 77 53 74 61 | 74 65 22 2c 2c 62 25 0d |indowSta|te",,b%.|
|00000b00| 03 b6 26 77 69 64 74 68 | 3d 62 25 21 34 2d 62 25 |..&width|=b%!4-b%|
|00000b10| 21 31 32 3a 68 65 69 67 | 68 74 3d 62 25 21 31 36 |!12:heig|ht=b%!16|
|00000b20| 2d 62 25 21 38 0d 03 c0 | 33 78 3d 28 72 69 67 68 |-b%!8...|3x=(righ|
|00000b30| 74 2d 77 69 64 74 68 29 | 2f 32 2b 77 69 64 74 68 |t-width)|/2+width|
|00000b40| 3a 79 3d 28 74 6f 70 2d | 68 65 69 67 68 74 29 2f |:y=(top-|height)/|
|00000b50| 32 2b 68 65 69 67 68 74 | 0d 03 ca 2e 62 25 21 34 |2+height|....b%!4|
|00000b60| 3d 78 3a 62 25 21 38 3d | 79 2d 68 65 69 67 68 74 |=x:b%!8=|y-height|
|00000b70| 3a 62 25 21 31 32 3d 78 | 2d 77 69 64 74 68 3a 62 |:b%!12=x|-width:b|
|00000b80| 25 21 31 36 3d 79 0d 03 | d4 25 62 25 21 32 38 3d |%!16=y..|.%b%!28=|
|00000b90| 2d 31 3a c8 99 20 22 57 | 69 6d 70 5f 4f 70 65 6e |-1:.. "W|imp_Open|
|00000ba0| 57 69 6e 64 6f 77 22 2c | 2c 62 25 0d 03 de 05 e1 |Window",|,b%.....|
|00000bb0| 0d 03 e8 1f dd f2 66 6f | 72 63 65 72 65 64 72 61 |......fo|rceredra|
|00000bc0| 77 28 77 69 6e 25 2c 6c | 2c 74 2c 72 2c 62 29 0d |w(win%,l|,t,r,b).|
|00000bd0| 03 f2 26 c8 99 20 22 57 | 69 6d 70 5f 46 6f 72 63 |..&.. "W|imp_Forc|
|00000be0| 65 52 65 64 72 61 77 22 | 2c 77 69 6e 25 2c 6c 2c |eRedraw"|,win%,l,|
|00000bf0| 62 2c 72 2c 74 0d 03 fc | 05 e1 0d 04 06 05 3a 0d |b,r,t...|......:.|
|00000c00| 04 10 3f f4 20 50 52 4f | 43 77 69 6e 73 65 74 65 |..?. PRO|Cwinsete|
|00000c10| 78 74 65 6e 74 20 3a 20 | 53 65 74 20 74 68 65 20 |xtent : |Set the |
|00000c20| 6d 61 78 69 6d 75 6d 20 | 65 78 74 65 6e 74 20 6f |maximum |extent o|
|00000c30| 66 20 77 69 6e 64 6f 77 | 20 28 54 57 41 29 0d 04 |f window| (TWA)..|
|00000c40| 1a 3b f4 20 50 52 4f 43 | 6f 70 65 6e 77 69 6e 74 |.;. PROC|openwint|
|00000c50| 6f 20 20 20 20 3a 20 4f | 70 65 6e 20 77 69 6e 64 |o : O|pen wind|
|00000c60| 6f 77 20 61 74 20 70 6f | 73 69 74 69 6f 6e 20 77 |ow at po|sition w|
|00000c70| 69 74 68 69 6e 20 54 57 | 41 0d 04 24 20 dd f2 77 |ithin TW|A..$ ..w|
|00000c80| 69 6e 73 65 74 65 78 74 | 65 6e 74 28 77 69 6e 25 |insetext|ent(win%|
|00000c90| 2c 6c 2c 74 2c 72 2c 62 | 29 0d 04 2e 2a 21 62 25 |,l,t,r,b|)...*!b%|
|00000ca0| 3d 77 69 6e 25 3a c8 99 | 20 22 57 69 6d 70 5f 47 |=win%:..| "Wimp_G|
|00000cb0| 65 74 57 69 6e 64 6f 77 | 49 6e 66 6f 22 2c 2c 62 |etWindow|Info",,b|
|00000cc0| 25 2b 31 0d 04 38 13 e7 | 20 6c 3d 2d 31 20 8c 6c |%+1..8..| l=-1 .l|
|00000cd0| 3d 62 25 21 34 34 0d 04 | 42 13 e7 20 62 3d 2d 31 |=b%!44..|B.. b=-1|
|00000ce0| 20 8c 62 3d 62 25 21 34 | 38 0d 04 4c 13 e7 20 72 | .b=b%!4|8..L.. r|
|00000cf0| 3d 2d 31 20 8c 72 3d 62 | 25 21 35 32 0d 04 56 13 |=-1 .r=b|%!52..V.|
|00000d00| e7 20 74 3d 2d 31 20 8c | 74 3d 62 25 21 35 36 0d |. t=-1 .|t=b%!56.|
|00000d10| 04 60 23 62 25 21 34 34 | 3d 6c 3a 62 25 21 34 38 |.`#b%!44|=l:b%!48|
|00000d20| 3d 62 3a 62 25 21 35 32 | 3d 72 3a 62 25 21 35 36 |=b:b%!52|=r:b%!56|
|00000d30| 3d 74 0d 04 6a 21 c8 99 | 22 57 69 6d 70 5f 53 65 |=t..j!..|"Wimp_Se|
|00000d40| 74 45 78 74 65 6e 74 22 | 2c 77 69 6e 25 2c 62 25 |tExtent"|,win%,b%|
|00000d50| 2b 34 34 0d 04 74 05 e1 | 0d 04 7e 2f f4 20 6c 3d |+44..t..|..~/. l=|
|00000d60| 6c 65 66 74 20 6f 66 20 | 56 57 41 20 69 6e 20 54 |left of |VWA in T|
|00000d70| 57 41 2c 20 74 3d 74 6f | 70 20 6f 66 20 56 57 41 |WA, t=to|p of VWA|
|00000d80| 20 69 6e 20 54 57 41 0d | 04 88 33 f4 20 72 3d 72 | in TWA.|..3. r=r|
|00000d90| 69 67 68 74 20 6f 66 20 | 56 57 41 20 69 6e 20 54 |ight of |VWA in T|
|00000da0| 57 41 2c 20 62 3d 62 6f | 74 74 6f 6d 20 6f 66 20 |WA, b=bo|ttom of |
|00000db0| 56 57 41 20 69 6e 20 54 | 57 41 0d 04 92 41 f4 20 |VWA in T|WA...A. |
|00000dc0| 57 69 6e 64 6f 77 20 64 | 6f 65 73 20 6e 6f 74 20 |Window d|oes not |
|00000dd0| 6d 6f 76 65 2c 20 62 75 | 74 20 69 74 73 20 73 69 |move, bu|t its si|
|00000de0| 7a 65 20 69 73 20 61 6c | 74 65 72 65 64 20 74 6f |ze is al|tered to|
|00000df0| 20 64 69 66 66 65 72 65 | 6e 63 65 0d 04 9c 3f f4 | differe|nce...?.|
|00000e00| 20 62 65 74 77 65 65 6e | 20 6c 26 77 20 61 6e 64 | between| l&w and|
|00000e10| 20 74 26 68 2e 20 54 6f | 70 20 6c 65 66 74 20 6f | t&h. To|p left o|
|00000e20| 66 20 56 57 41 20 69 73 | 20 70 6f 73 69 74 69 6f |f VWA is| positio|
|00000e30| 6e 65 64 20 74 6f 20 74 | 6c 2e 0d 04 a6 3b f4 20 |ned to t|l....;. |
|00000e40| 49 66 20 72 62 20 3d 20 | 2d 31 20 74 68 65 6e 20 |If rb = |-1 then |
|00000e50| 6e 6f 20 61 63 74 75 61 | 6c 20 73 69 7a 65 20 63 |no actua|l size c|
|00000e60| 68 61 6e 67 65 2c 20 6a | 75 73 74 20 70 6f 73 69 |hange, j|ust posi|
|00000e70| 74 69 6f 6e 2e 0d 04 b0 | 1d dd f2 6f 70 65 6e 77 |tion....|...openw|
|00000e80| 69 6e 74 6f 28 77 69 6e | 25 2c 6c 2c 74 2c 72 2c |into(win|%,l,t,r,|
|00000e90| 62 29 0d 04 ba 28 21 62 | 25 3d 77 69 6e 25 3a c8 |b)...(!b|%=win%:.|
|00000ea0| 99 20 22 57 69 6d 70 5f | 47 65 74 57 69 6e 64 6f |. "Wimp_|GetWindo|
|00000eb0| 77 49 6e 66 6f 22 2c 2c | 62 25 0d 04 c4 13 e7 20 |wInfo",,|b%..... |
|00000ec0| 6c 3d 2d 31 20 8c 6c 3d | 62 25 21 32 30 0d 04 ce |l=-1 .l=|b%!20...|
|00000ed0| 13 e7 20 74 3d 2d 31 20 | 8c 62 3d 62 25 21 32 34 |.. t=-1 |.b=b%!24|
|00000ee0| 0d 04 d8 18 e7 20 72 3d | 2d 31 20 8c 72 3d 62 25 |..... r=|-1 .r=b%|
|00000ef0| 21 31 32 2d 62 25 21 34 | 0d 04 e2 18 e7 20 62 3d |!12-b%!4|..... b=|
|00000f00| 2d 31 20 8c 74 3d 62 25 | 21 38 2d 62 25 21 31 36 |-1 .t=b%|!8-b%!16|
|00000f10| 0d 04 ec 31 62 25 21 31 | 32 3d 62 25 21 34 2b 72 |...1b%!1|2=b%!4+r|
|00000f20| 2d 6c 3a 62 25 21 38 3d | 62 25 21 31 36 2b 62 2d |-l:b%!8=|b%!16+b-|
|00000f30| 74 3a 62 25 21 32 30 3d | 6c 3a 62 25 21 32 34 3d |t:b%!20=|l:b%!24=|
|00000f40| 74 0d 04 f6 1b c8 99 22 | 57 69 6d 70 5f 4f 70 65 |t......"|Wimp_Ope|
|00000f50| 6e 57 69 6e 64 6f 77 22 | 2c 2c 62 25 0d 05 00 05 |nWindow"|,,b%....|
|00000f60| e1 0d 05 0a 05 3a 0d 05 | 14 27 f4 20 46 4e 64 65 |.....:..|.'. FNde|
|00000f70| 63 6f 64 65 6d 65 6e 75 | 20 3a 20 52 65 74 75 72 |codemenu| : Retur|
|00000f80| 6e 20 6d 65 6e 75 20 73 | 74 72 69 6e 67 0d 05 1e |n menu s|tring...|
|00000f90| 31 dd a4 64 65 63 6f 64 | 65 6d 65 6e 75 28 6d 65 |1..decod|emenu(me|
|00000fa0| 6e 75 25 29 3a ea 20 63 | 70 25 2c 70 74 72 3a 63 |nu%):. c|p%,ptr:c|
|00000fb0| 70 25 3d 6d 65 6e 75 25 | 3a 70 74 72 3d 30 0d 05 |p%=menu%|:ptr=0..|
|00000fc0| 28 25 c8 95 20 28 62 25 | 21 70 74 72 3e 2d 31 20 |(%.. (b%|!ptr>-1 |
|00000fd0| 80 20 63 70 25 3c 3e 72 | 6d 61 66 6f 6e 74 61 72 |. cp%<>r|mafontar|
|00000fe0| 65 61 29 0d 05 32 24 20 | 63 70 25 3d 63 70 25 3f |ea)..2$ |cp%=cp%?|
|00000ff0| 28 32 38 2b 28 62 25 21 | 70 74 72 29 2a 32 34 29 |(28+(b%!|ptr)*24)|
|00001000| 3a 70 74 72 2b 3d 34 0d | 05 3c 05 ce 0d 05 46 17 |:ptr+=4.|.<....F.|
|00001010| e7 20 63 70 25 3d 72 6d | 61 66 6f 6e 74 61 72 65 |. cp%=rm|afontare|
|00001020| 61 20 8c 0d 05 50 41 20 | c8 99 20 22 46 6f 6e 74 |a ...PA |.. "Font|
|00001030| 5f 44 65 63 6f 64 65 4d | 65 6e 75 22 2c 2c 72 6d |_DecodeM|enu",,rm|
|00001040| 61 66 6f 6e 74 61 72 65 | 61 2c 62 25 2b 70 74 72 |afontare|a,b%+ptr|
|00001050| 2c c4 32 35 35 2c bd 30 | 29 2c 32 35 35 20 b8 2c |,.255,.0|),255 .,|
|00001060| 2c 2c 6d 24 0d 05 5a 05 | cc 0d 05 64 37 20 c8 99 |,,m$..Z.|...d7 ..|
|00001070| 20 22 57 69 6d 70 5f 44 | 65 63 6f 64 65 4d 65 6e | "Wimp_D|ecodeMen|
|00001080| 75 22 2c 2c 6d 65 6e 75 | 25 2c 62 25 2c c4 32 35 |u",,menu|%,b%,.25|
|00001090| 35 2c bd 30 29 2c 32 35 | 35 20 b8 2c 2c 2c 6d 24 |5,.0),25|5 .,,,m$|
|000010a0| 0d 05 6e 05 cd 0d 05 78 | 07 3d 6d 24 0d 05 82 36 |..n....x|.=m$...6|
|000010b0| c8 99 20 22 57 69 6d 70 | 5f 44 65 63 6f 64 65 4d |.. "Wimp|_DecodeM|
|000010c0| 65 6e 75 22 2c 2c 6d 65 | 6e 75 25 2c 62 25 2c c4 |enu",,me|nu%,b%,.|
|000010d0| 32 35 35 2c bd 30 29 2c | 32 35 35 20 b8 2c 2c 2c |255,.0),|255 .,,,|
|000010e0| 6d 24 0d 05 8c 07 3d 6d | 24 0d 05 96 05 3a 0d 05 |m$....=m|$....:..|
|000010f0| a0 3f f4 20 46 4e 67 65 | 74 66 6f 6e 74 6d 65 6e |.?. FNge|tfontmen|
|00001100| 75 20 20 20 20 20 20 20 | 3a 20 52 65 74 75 72 6e |u |: Return|
|00001110| 20 6d 65 6d 6f 72 79 20 | 6c 6f 63 61 74 69 6f 6e | memory |location|
|00001120| 20 6f 66 20 66 6f 6e 74 | 20 6d 65 6e 75 0d 05 aa | of font| menu...|
|00001130| 3b f4 20 50 52 4f 43 72 | 65 6c 65 61 73 65 66 6f |;. PROCr|eleasefo|
|00001140| 6e 74 6d 65 6e 75 20 3a | 20 52 65 6c 65 61 73 65 |ntmenu :| Release|
|00001150| 20 6d 65 6d 6f 72 79 20 | 75 73 65 64 20 62 79 20 | memory |used by |
|00001160| 66 6f 6e 74 6d 65 6e 75 | 0d 05 b4 1d dd a4 67 65 |fontmenu|......ge|
|00001170| 74 66 6f 6e 74 6d 65 6e | 75 3a ea 20 73 70 61 63 |tfontmen|u:. spac|
|00001180| 65 2c 69 6e 64 0d 05 be | 15 c8 99 20 22 48 6f 75 |e,ind...|... "Hou|
|00001190| 72 67 6c 61 73 73 5f 4f | 6e 22 0d 05 c8 34 c8 99 |rglass_O|n"...4..|
|000011a0| 20 22 46 6f 6e 74 5f 4c | 69 73 74 46 6f 6e 74 73 | "Font_L|istFonts|
|000011b0| 22 2c 2c 2c 37 3c 3c 31 | 39 2c 2c 2c 2c 31 20 b8 |",,,7<<1|9,,,,1 .|
|000011c0| 20 2c 2c 2c 73 70 61 63 | 65 2c 2c 69 6e 64 0d 05 | ,,,spac|e,,ind..|
|000011d0| d2 21 72 6d 61 66 6f 6e | 74 61 72 65 61 3d a4 63 |.!rmafon|tarea=.c|
|000011e0| 6c 61 69 6d 28 73 70 61 | 63 65 2b 69 6e 64 29 0d |laim(spa|ce+ind).|
|000011f0| 05 dc 2b e7 20 72 6d 61 | 66 6f 6e 74 61 72 65 61 |..+. rma|fontarea|
|00001200| 3c 30 20 8c c8 99 20 22 | 48 6f 75 72 67 6c 61 73 |<0 ... "|Hourglas|
|00001210| 73 5f 4f 66 66 22 3a 3d | 2d 31 0d 05 e6 48 c8 99 |s_Off":=|-1...H..|
|00001220| 20 22 46 6f 6e 74 5f 4c | 69 73 74 46 6f 6e 74 73 | "Font_L|istFonts|
|00001230| 22 2c 2c 72 6d 61 66 6f | 6e 74 61 72 65 61 2c 37 |",,rmafo|ntarea,7|
|00001240| 3c 3c 31 39 2c 73 70 61 | 63 65 2c 72 6d 61 66 6f |<<19,spa|ce,rmafo|
|00001250| 6e 74 61 72 65 61 2b 73 | 70 61 63 65 2c 69 6e 64 |ntarea+s|pace,ind|
|00001260| 2c 31 0d 05 f0 16 c8 99 | 20 22 48 6f 75 72 67 6c |,1......| "Hourgl|
|00001270| 61 73 73 5f 4f 66 66 22 | 0d 05 fa 10 3d 72 6d 61 |ass_Off"|....=rma|
|00001280| 66 6f 6e 74 61 72 65 61 | 0d 06 04 2d dd f2 72 65 |fontarea|...-..re|
|00001290| 6c 65 61 73 65 66 6f 6e | 74 6d 65 6e 75 3a f2 72 |leasefon|tmenu:.r|
|000012a0| 65 6c 65 61 73 65 28 72 | 6d 61 66 6f 6e 74 61 72 |elease(r|mafontar|
|000012b0| 65 61 29 3a e1 0d 06 0e | 05 3a 0d 06 18 26 f4 20 |ea):....|.:...&. |
|000012c0| 50 52 4f 43 74 69 63 6b | 6d 65 6e 75 20 20 3a 20 |PROCtick|menu : |
|000012d0| 54 69 63 6b 20 61 20 6d | 65 6e 75 20 69 74 65 6d |Tick a m|enu item|
|000012e0| 0d 06 22 27 f4 20 50 52 | 4f 43 73 68 61 64 65 6d |.."'. PR|OCshadem|
|000012f0| 65 6e 75 20 3a 20 53 68 | 61 64 65 20 61 20 6d 65 |enu : Sh|ade a me|
|00001300| 6e 75 20 69 74 65 6d 0d | 06 2c 38 f4 20 46 4e 6d |nu item.|.,8. FNm|
|00001310| 65 6e 75 74 69 63 6b 65 | 64 20 20 3a 20 52 65 74 |enuticke|d : Ret|
|00001320| 75 72 6e 20 54 52 55 45 | 20 69 66 20 6d 65 6e 75 |urn TRUE| if menu|
|00001330| 20 69 74 65 6d 20 69 73 | 20 74 69 63 6b 65 64 0d | item is| ticked.|
|00001340| 06 36 38 f4 20 46 4e 6d | 65 6e 75 73 68 61 64 65 |.68. FNm|enushade|
|00001350| 64 20 20 3a 20 52 65 74 | 75 72 6e 20 54 52 55 45 |d : Ret|urn TRUE|
|00001360| 20 69 66 20 6d 65 6e 75 | 20 69 74 65 6d 20 69 73 | if menu| item is|
|00001370| 20 73 68 61 64 65 64 0d | 06 40 19 f4 20 74 79 70 | shaded.|.@.. typ|
|00001380| 65 20 3d 20 30 20 66 6f | 72 20 75 6e 74 69 63 6b |e = 0 fo|r untick|
|00001390| 0d 06 4a 17 f4 20 74 79 | 70 65 20 3d 20 31 20 66 |..J.. ty|pe = 1 f|
|000013a0| 6f 72 20 74 69 63 6b 0d | 06 54 19 f4 20 74 79 70 |or tick.|.T.. typ|
|000013b0| 65 20 3d 20 32 20 66 6f | 72 20 74 6f 67 67 6c 65 |e = 2 fo|r toggle|
|000013c0| 0d 06 5e 21 dd f2 74 69 | 63 6b 6d 65 6e 75 28 6d |..^!..ti|ckmenu(m|
|000013d0| 65 6e 75 25 2c 69 74 65 | 6d 25 2c 74 79 70 65 25 |enu%,ite|m%,type%|
|000013e0| 29 0d 06 68 16 6d 65 6e | 75 25 2b 3d 32 38 2b 32 |)..h.men|u%+=28+2|
|000013f0| 34 2a 69 74 65 6d 25 0d | 06 72 0e c8 8e 20 74 79 |4*item%.|.r... ty|
|00001400| 70 65 25 20 ca 0d 06 7c | 1b 20 c9 20 30 3a 21 6d |pe% ...||. . 0:!m|
|00001410| 65 6e 75 25 3d 21 6d 65 | 6e 75 25 20 80 20 2d 32 |enu%=!me|nu% . -2|
|00001420| 0d 06 86 1a 20 c9 20 31 | 3a 21 6d 65 6e 75 25 3d |.... . 1|:!menu%=|
|00001430| 21 6d 65 6e 75 25 20 84 | 20 31 0d 06 90 1a 20 c9 |!menu% .| 1.... .|
|00001440| 20 32 3a 21 6d 65 6e 75 | 25 3d 21 6d 65 6e 75 25 | 2:!menu|%=!menu%|
|00001450| 20 82 20 31 0d 06 9a 05 | cb 0d 06 a4 05 e1 0d 06 | . 1....|........|
|00001460| ae 22 dd f2 73 68 61 64 | 65 6d 65 6e 75 28 6d 65 |."..shad|emenu(me|
|00001470| 6e 75 25 2c 69 74 65 6d | 25 2c 74 79 70 65 25 29 |nu%,item|%,type%)|
|00001480| 0d 06 b8 16 6d 65 6e 75 | 25 2b 3d 32 38 2b 32 34 |....menu|%+=28+24|
|00001490| 2a 69 74 65 6d 25 0d 06 | c2 0e c8 8e 20 74 79 70 |*item%..|.... typ|
|000014a0| 65 25 20 ca 0d 06 cc 1b | 20 c9 20 30 3a 21 6d 65 |e% .....| . 0:!me|
|000014b0| 6e 75 25 3d 21 6d 65 6e | 75 25 20 80 20 2d 35 0d |nu%=!men|u% . -5.|
|000014c0| 06 d6 1a 20 c9 20 31 3a | 21 6d 65 6e 75 25 3d 21 |... . 1:|!menu%=!|
|000014d0| 6d 65 6e 75 25 20 84 20 | 34 0d 06 e0 1a 20 c9 20 |menu% . |4.... . |
|000014e0| 32 3a 21 6d 65 6e 75 25 | 3d 21 6d 65 6e 75 25 20 |2:!menu%|=!menu% |
|000014f0| 82 20 34 0d 06 ea 05 cb | 0d 06 f4 05 e1 0d 06 fe |. 4.....|........|
|00001500| 1d dd a4 6d 65 6e 75 74 | 69 63 6b 65 64 28 6d 65 |...menut|icked(me|
|00001510| 6e 75 25 2c 69 74 65 6d | 25 29 0d 07 08 22 3d 28 |nu%,item|%)..."=(|
|00001520| 28 6d 65 6e 75 25 21 28 | 32 38 2b 32 34 2a 69 74 |(menu%!(|28+24*it|
|00001530| 65 6d 25 29 29 20 80 20 | 31 29 3d 31 0d 07 12 1d |em%)) . |1)=1....|
|00001540| dd a4 6d 65 6e 75 73 68 | 61 64 65 64 28 6d 65 6e |..menush|aded(men|
|00001550| 75 25 2c 69 74 65 6d 25 | 29 0d 07 1c 22 3d 28 28 |u%,item%|)..."=((|
|00001560| 6d 65 6e 75 25 21 28 32 | 38 2b 32 34 2a 69 74 65 |menu%!(2|8+24*ite|
|00001570| 6d 25 29 29 20 80 20 34 | 29 3d 34 0d 07 26 05 3a |m%)) . 4|)=4..&.:|
|00001580| 0d 07 30 37 f4 20 46 4e | 63 72 65 61 74 65 69 63 |..07. FN|createic|
|00001590| 6f 6e 20 3a 20 43 72 65 | 61 74 65 20 61 6e 20 69 |on : Cre|ate an i|
|000015a0| 63 6f 6e 20 77 69 74 68 | 20 73 65 74 20 70 61 72 |con with| set par|
|000015b0| 61 6d 65 74 65 72 73 0d | 07 3a 3c f4 20 77 69 6e |ameters.|.:<. win|
|000015c0| 64 6f 77 2c 78 2c 79 2c | 20 77 69 64 74 68 2c 20 |dow,x,y,| width, |
|000015d0| 68 65 69 67 68 74 2c 20 | 74 69 74 6c 65 2c 20 76 |height, |title, v|
|000015e0| 61 6c 69 64 61 74 69 6f | 6e 2c 20 63 6f 6c 6f 75 |alidatio|n, colou|
|000015f0| 72 73 2c 0d 07 44 1d f4 | 20 45 53 47 2c 20 62 75 |rs,..D..| ESG, bu|
|00001600| 74 74 6f 6e 20 74 79 70 | 65 2c 20 66 6c 61 67 73 |tton typ|e, flags|
|00001610| 0d 07 4e 31 f4 20 63 6f | 6c 20 63 6f 75 6c 64 20 |..N1. co|l could |
|00001620| 62 65 20 66 6f 6e 74 20 | 68 61 6e 64 6c 65 20 69 |be font |handle i|
|00001630| 66 20 75 73 65 20 66 6f | 6e 74 20 69 73 20 73 65 |f use fo|nt is se|
|00001640| 74 0d 07 58 37 f4 20 6f | 74 68 65 72 77 69 73 65 |t..X7. o|therwise|
|00001650| 20 63 6f 6c 20 69 73 20 | 26 42 46 20 28 42 3d 62 | col is |&BF (B=b|
|00001660| 61 63 6b 67 72 6f 75 6e | 64 2c 20 46 3d 66 6f 72 |ackgroun|d, F=for|
|00001670| 65 67 72 6f 75 6e 64 29 | 0d 07 62 39 f4 20 51 75 |eground)|..b9. Qu|
|00001680| 69 63 6b 20 66 6c 61 67 | 73 20 3a 20 25 41 46 56 |ick flag|s : %AFV|
|00001690| 48 42 30 30 20 28 41 3d | 46 6f 6e 74 2c 20 46 3d |HB00 (A=|Font, F=|
|000016a0| 46 69 6c 6c 65 64 2c 20 | 42 3d 42 6f 72 64 65 72 |Filled, |B=Border|
|000016b0| 29 0d 07 6c 0d f4 20 46 | 6c 61 67 73 20 3a 0d 07 |)..l.. F|lags :..|
|000016c0| 76 20 f4 20 30 20 3a 20 | 54 65 78 74 20 20 20 20 |v . 0 : |Text |
|000016d0| 20 20 20 20 20 20 20 38 | 20 3a 20 4e 2f 41 0d 07 | 8| : N/A..|
|000016e0| 80 2c f4 20 31 20 3a 20 | 53 70 72 69 74 65 20 20 |.,. 1 : |Sprite |
|000016f0| 20 20 20 20 20 20 20 39 | 20 3a 20 52 69 67 68 74 | 9| : Right|
|00001700| 20 4a 75 73 74 69 66 69 | 65 64 0d 07 8a 3b f4 20 | Justifi|ed...;. |
|00001710| 32 20 3a 20 42 6f 72 64 | 65 72 65 64 20 20 20 20 |2 : Bord|ered |
|00001720| 20 20 31 30 20 3a 20 4d | 75 6c 74 69 70 6c 65 20 | 10 : M|ultiple |
|00001730| 73 65 6c 65 63 74 69 6f | 6e 20 77 69 74 68 20 61 |selectio|n with a|
|00001740| 64 6a 75 73 74 0d 07 94 | 29 f4 20 33 20 3a 20 48 |djust...|). 3 : H|
|00001750| 20 43 65 6e 74 72 65 20 | 20 20 20 20 20 31 31 20 | Centre | 11 |
|00001760| 3a 20 53 6d 61 6c 6c 20 | 73 70 72 69 74 65 0d 07 |: Small |sprite..|
|00001770| 9e 1e f4 20 34 20 3a 20 | 56 20 43 65 6e 74 72 65 |... 4 : |V Centre|
|00001780| 20 20 20 20 20 20 32 30 | 20 3a 20 3f 0d 07 a8 25 | 20| : ?...%|
|00001790| f4 20 35 20 3a 20 46 69 | 6c 6c 65 64 20 20 20 20 |. 5 : Fi|lled |
|000017a0| 20 20 20 20 32 31 20 3a | 20 49 6e 76 65 72 74 65 | 21 :| Inverte|
|000017b0| 64 0d 07 b2 23 f4 20 36 | 20 3a 20 55 73 65 20 66 |d...#. 6| : Use f|
|000017c0| 6f 6e 74 73 20 20 20 20 | 20 32 32 20 3a 20 53 68 |onts | 22 : Sh|
|000017d0| 61 64 65 64 0d 07 bc 1e | f4 20 37 20 3a 20 4e 2f |aded....|. 7 : N/|
|000017e0| 41 20 20 20 20 20 20 20 | 20 20 20 20 32 33 20 3a |A | 23 :|
|000017f0| 20 3f 0d 07 c6 14 f4 20 | 42 75 74 74 6f 6e 20 74 | ?..... |Button t|
|00001800| 79 70 65 73 20 3a 0d 07 | d0 17 f4 20 30 20 3a 20 |ypes :..|... 0 : |
|00001810| 49 67 6e 6f 72 65 20 63 | 6c 69 63 6b 73 0d 07 da |Ignore c|licks...|
|00001820| 1a f4 20 31 20 3a 20 4e | 6f 74 69 66 79 20 77 68 |.. 1 : N|otify wh|
|00001830| 65 6e 20 6f 76 65 72 0d | 07 e4 20 f4 20 32 20 3a |en over.|.. . 2 :|
|00001840| 20 43 6c 69 63 6b 73 20 | 72 65 70 65 61 74 20 26 | Clicks |repeat &|
|00001850| 20 6e 6f 74 69 66 79 0d | 07 ee 22 f4 20 33 20 3a | notify.|..". 3 :|
|00001860| 20 43 6c 69 63 6b 73 20 | 64 65 62 6f 75 6e 63 65 | Clicks |debounce|
|00001870| 20 26 20 6e 6f 74 69 66 | 79 0d 07 f8 3f f4 20 34 | & notif|y...?. 4|
|00001880| 20 3a 20 43 6c 69 63 6b | 20 73 65 6c 65 63 74 73 | : Click| selects|
|00001890| 2c 20 72 65 6c 65 61 73 | 65 20 6e 6f 74 69 66 69 |, releas|e notifi|
|000018a0| 65 73 2c 20 6f 72 20 64 | 65 73 65 6c 65 63 74 20 |es, or d|eselect |
|000018b0| 69 66 20 6d 6f 76 65 64 | 0d 08 02 2a f4 20 35 20 |if moved|...*. 5 |
|000018c0| 3a 20 43 6c 69 63 6b 20 | 73 65 6c 65 63 74 73 2c |: Click |selects,|
|000018d0| 20 32 20 63 6c 69 63 6b | 73 20 6e 6f 74 69 66 69 | 2 click|s notifi|
|000018e0| 65 73 0d 08 0c 1c f4 20 | 36 20 3a 20 41 73 20 33 |es..... |6 : As 3|
|000018f0| 20 62 75 74 20 77 69 6c | 6c 20 64 72 61 67 0d 08 | but wil|l drag..|
|00001900| 16 1c f4 20 37 20 3a 20 | 41 73 20 34 20 62 75 74 |... 7 : |As 4 but|
|00001910| 20 77 69 6c 6c 20 64 72 | 61 67 0d 08 20 1c f4 20 | will dr|ag.. .. |
|00001920| 38 20 3a 20 41 73 20 35 | 20 62 75 74 20 77 69 6c |8 : As 5| but wil|
|00001930| 6c 20 64 72 61 67 0d 08 | 2a 13 f4 20 39 20 3a 20 |l drag..|*.. 9 : |
|00001940| 4d 65 6e 75 20 69 63 6f | 6e 0d 08 34 30 f4 20 31 |Menu ico|n..40. 1|
|00001950| 30 3a 20 43 6c 69 63 6b | 3d 62 75 74 2a 32 35 36 |0: Click|=but*256|
|00001960| 2c 64 72 61 67 3d 62 75 | 74 2a 31 36 2c 32 20 63 |,drag=bu|t*16,2 c|
|00001970| 6c 69 63 6b 73 3d 62 75 | 74 0d 08 3e 33 f4 20 31 |licks=bu|t..>3. 1|
|00001980| 31 3a 20 52 61 64 69 6f | 20 28 56 61 6c 69 64 61 |1: Radio| (Valida|
|00001990| 74 69 6f 6e 20 66 6f 72 | 6d 61 74 20 3a 20 53 6f |tion for|mat : So|
|000019a0| 70 74 6f 66 66 2c 6f 70 | 74 6f 6e 29 0d 08 48 11 |ptoff,op|ton)..H.|
|000019b0| f4 20 31 32 2f 31 33 20 | 3a 20 4e 2f 41 0d 08 52 |. 12/13 |: N/A..R|
|000019c0| 27 f4 20 31 34 3a 20 57 | 72 69 74 65 61 62 6c 65 |'. 14: W|riteable|
|000019d0| 2f 43 6c 69 63 6b 61 62 | 6c 65 2f 44 72 61 67 67 |/Clickab|le/Dragg|
|000019e0| 61 62 6c 65 0d 08 5c 13 | f4 20 31 35 3a 20 57 72 |able..\.|. 15: Wr|
|000019f0| 69 74 65 61 62 6c 65 0d | 08 66 3d dd a4 63 72 65 |iteable.|.f=..cre|
|00001a00| 61 74 65 69 63 6f 6e 28 | 77 69 6e 2c 78 2c 79 2c |ateicon(|win,x,y,|
|00001a10| 77 2c 68 2c 74 69 74 6c | 65 24 2c 76 61 6c 69 64 |w,h,titl|e$,valid|
|00001a20| 24 2c 63 6f 6c 2c 65 73 | 67 2c 62 75 74 2c 66 6c |$,col,es|g,but,fl|
|00001a30| 61 67 73 29 0d 08 70 0c | ea 20 68 61 6e 64 6c 65 |ags)..p.|. handle|
|00001a40| 0d 08 7a 2e 62 25 21 30 | 3d 77 69 6e 3a 62 25 21 |..z.b%!0|=win:b%!|
|00001a50| 34 3d 78 3a 62 25 21 38 | 3d 79 2d 68 3a 62 25 21 |4=x:b%!8|=y-h:b%!|
|00001a60| 31 32 3d 78 2b 77 3a 62 | 25 21 31 36 3d 79 0d 08 |12=x+w:b|%!16=y..|
|00001a70| 84 36 62 25 21 32 30 3d | 28 66 6c 61 67 73 20 80 |.6b%!20=|(flags .|
|00001a80| 20 28 25 31 31 31 30 30 | 31 31 31 31 31 31 31 2b | (%11100|1111111+|
|00001a90| 28 31 35 3c 3c 32 30 29 | 29 29 2b 28 63 6f 6c 3c |(15<<20)|))+(col<|
|00001aa0| 3c 32 34 29 0d 08 8e 1e | 62 25 21 32 30 2b 3d 28 |<24)....|b%!20+=(|
|00001ab0| 65 73 67 3c 3c 31 36 29 | 2b 28 62 75 74 3c 3c 31 |esg<<16)|+(but<<1|
|00001ac0| 32 29 0d 08 98 21 e7 20 | 76 61 6c 69 64 24 3c 3e |2)...!. |valid$<>|
|00001ad0| 22 22 20 84 20 a9 28 74 | 69 74 6c 65 24 29 3e 31 |"" . .(t|itle$)>1|
|00001ae0| 31 20 8c 0d 08 a2 1c 20 | 62 25 21 32 34 3d a4 69 |1 ..... |b%!24=.i|
|00001af0| 6e 64 69 72 65 63 74 28 | 74 69 74 6c 65 24 29 0d |ndirect(|title$).|
|00001b00| 08 ac 1c 20 62 25 21 32 | 38 3d a4 69 6e 64 69 72 |... b%!2|8=.indir|
|00001b10| 65 63 74 28 76 61 6c 69 | 64 24 29 0d 08 b6 20 20 |ect(vali|d$)... |
|00001b20| 62 25 21 33 32 3d a9 28 | 74 69 74 6c 65 24 29 3a |b%!32=.(|title$):|
|00001b30| 62 25 21 32 30 2b 3d 31 | 3c 3c 38 0d 08 c0 05 cc |b%!20+=1|<<8.....|
|00001b40| 0d 08 ca 14 20 24 28 62 | 25 2b 32 34 29 3d 74 69 |.... $(b|%+24)=ti|
|00001b50| 74 6c 65 24 0d 08 d4 05 | cd 0d 08 de 55 e7 20 28 |tle$....|....U. (|
|00001b60| 28 62 25 21 32 30 29 20 | 80 20 26 31 30 33 29 3d |(b%!20) |. &103)=|
|00001b70| 26 33 20 8c 85 20 26 38 | 30 33 2c 22 43 61 6e 6e |&3 .. &8|03,"Cann|
|00001b80| 6f 74 20 6d 61 6b 65 20 | 61 20 73 70 72 69 74 65 |ot make |a sprite|
|00001b90| 2f 74 65 78 74 20 69 63 | 6f 6e 20 77 69 74 68 6f |/text ic|on witho|
|00001ba0| 75 74 20 76 61 6c 69 64 | 61 74 69 6f 6e 22 0d 08 |ut valid|ation"..|
|00001bb0| e8 1d e7 20 28 66 6c 61 | 67 73 20 80 20 33 29 3d |... (fla|gs . 3)=|
|00001bc0| 30 20 8c 62 25 21 32 30 | 2b 3d 31 0d 08 f2 2e e7 |0 .b%!20|+=1.....|
|00001bd0| 20 a4 6c 6f 77 65 72 28 | c0 76 61 6c 69 64 24 2c | .lower(|.valid$,|
|00001be0| 31 29 29 3d 22 73 22 20 | 8c 20 62 25 21 32 30 3d |1))="s" |. b%!20=|
|00001bf0| 62 25 21 32 30 20 84 20 | 32 0d 08 fc 25 c8 99 20 |b%!20 . |2...%.. |
|00001c00| 22 57 69 6d 70 5f 43 72 | 65 61 74 65 49 63 6f 6e |"Wimp_Cr|eateIcon|
|00001c10| 22 2c 2c 62 25 20 b8 20 | 68 61 6e 64 6c 65 0d 09 |",,b% . |handle..|
|00001c20| 06 0b 3d 68 61 6e 64 6c | 65 0d 09 10 05 3a 0d 09 |..=handl|e....:..|
|00001c30| 1a 1a dd f2 64 65 6c 65 | 74 65 69 63 6f 6e 28 77 |....dele|teicon(w|
|00001c40| 69 6e 2c 69 63 6f 6e 29 | 0d 09 24 2e 21 62 25 3d |in,icon)|..$.!b%=|
|00001c50| 77 69 6e 3a 62 25 21 34 | 3d 69 63 6f 6e 3a c8 99 |win:b%!4|=icon:..|
|00001c60| 20 22 57 69 6d 70 5f 44 | 65 6c 65 74 65 49 63 6f | "Wimp_D|eleteIco|
|00001c70| 6e 22 2c 2c 62 25 0d 09 | 2e 05 e1 0d 09 38 05 3a |n",,b%..|.....8.:|
|00001c80| 0d 09 42 3b f4 20 46 4e | 43 72 65 61 74 65 49 63 |..B;. FN|CreateIc|
|00001c90| 6f 6e 42 61 72 49 63 6f | 6e 20 3a 20 43 72 65 61 |onBarIco|n : Crea|
|00001ca0| 74 65 20 61 6e 20 69 63 | 6f 6e 20 66 6f 72 20 74 |te an ic|on for t|
|00001cb0| 68 65 20 69 63 6f 6e 20 | 62 61 72 0d 09 4c 18 f4 |he icon |bar..L..|
|00001cc0| 20 49 63 6f 6e 2d 62 61 | 72 20 70 6f 73 69 74 69 | Icon-ba|r positi|
|00001cd0| 6f 6e 73 0d 09 56 19 f4 | 20 31 20 3d 20 72 69 67 |ons..V..| 1 = rig|
|00001ce0| 68 74 2c 20 32 20 3d 20 | 6c 65 66 74 0d 09 60 29 |ht, 2 = |left..`)|
|00001cf0| f4 20 33 20 3d 20 62 65 | 74 77 65 65 6e 20 74 61 |. 3 = be|tween ta|
|00001d00| 73 6b 6d 61 6e 61 67 65 | 72 20 61 6e 64 20 70 61 |skmanage|r and pa|
|00001d10| 6c 65 74 74 65 0d 09 6a | 30 f4 20 34 20 3d 20 62 |lette..j|0. 4 = b|
|00001d20| 65 74 77 65 65 6e 20 74 | 61 73 6b 6d 61 6e 61 67 |etween t|askmanag|
|00001d30| 65 72 20 61 6e 64 20 65 | 64 67 65 20 6f 66 20 73 |er and e|dge of s|
|00001d40| 63 72 65 65 6e 0d 09 74 | 28 f4 20 35 20 3d 20 6c |creen..t|(. 5 = l|
|00001d50| 65 66 74 20 62 65 74 77 | 65 65 6e 20 74 79 70 65 |eft betw|een type|
|00001d60| 20 32 20 61 6e 64 20 66 | 69 6c 65 72 73 0d 09 7e | 2 and f|ilers..~|
|00001d70| 1c f4 20 36 20 3d 20 61 | 73 20 32 20 3f 2c 20 37 |.. 6 = a|s 2 ?, 7|
|00001d80| 20 3d 20 61 73 20 31 20 | 3f 0d 09 88 24 f4 20 38 | = as 1 |?...$. 8|
|00001d90| 20 3d 20 62 65 74 77 65 | 65 6e 20 70 61 6c 65 74 | = betwe|en palet|
|00001da0| 74 65 20 61 6e 64 20 74 | 79 70 65 20 31 0d 09 92 |te and t|ype 1...|
|00001db0| 36 dd a4 43 72 65 61 74 | 65 49 63 6f 6e 42 61 72 |6..Creat|eIconBar|
|00001dc0| 49 63 6f 6e 28 53 70 72 | 24 2c 54 69 74 6c 65 24 |Icon(Spr|$,Title$|
|00001dd0| 2c 70 6f 73 69 74 69 6f | 6e 29 3a ea 20 68 61 6e |,positio|n):. han|
|00001de0| 64 6c 65 0d 09 9c 12 62 | 25 21 30 3d 2d 70 6f 73 |dle....b|%!0=-pos|
|00001df0| 69 74 69 6f 6e 0d 09 a6 | 32 62 25 21 34 3d 30 3a |ition...|2b%!4=0:|
|00001e00| 62 25 21 38 3d 2d 31 36 | 3a 62 25 21 31 32 3d 31 |b%!8=-16|:b%!12=1|
|00001e10| 32 2b 31 36 2a a9 28 54 | 69 74 6c 65 24 29 3a 62 |2+16*.(T|itle$):b|
|00001e20| 25 21 31 36 3d 38 38 0d | 09 b0 22 e7 62 25 21 31 |%!16=88.|..".b%!1|
|00001e30| 32 3c 31 32 2b 31 36 2a | 34 20 8c 20 62 25 21 31 |2<12+16*|4 . b%!1|
|00001e40| 32 3d 31 32 2b 31 36 2a | 34 0d 09 ba 12 e7 20 54 |2=12+16*|4..... T|
|00001e50| 69 74 6c 65 24 3c 3e 22 | 22 20 8c 0d 09 c4 31 20 |itle$<>"|" ....1 |
|00001e60| 62 25 21 32 30 3d 28 31 | 3c 3c 32 38 29 2b 28 37 |b%!20=(1|<<28)+(7|
|00001e70| 3c 3c 32 34 29 2b 28 33 | 3c 3c 31 32 29 2b 28 25 |<<24)+(3|<<12)+(%|
|00001e80| 31 30 31 31 29 2b 28 31 | 3c 3c 38 29 0d 09 ce 1c |1011)+(1|<<8)....|
|00001e90| 20 62 25 21 32 34 3d a4 | 69 6e 64 69 72 65 63 74 | b%!24=.|indirect|
|00001ea0| 28 54 69 74 6c 65 24 29 | 0d 09 d8 1e 20 62 25 21 |(Title$)|.... b%!|
|00001eb0| 32 38 3d a4 69 6e 64 69 | 72 65 63 74 28 22 53 22 |28=.indi|rect("S"|
|00001ec0| 2b 53 70 72 24 29 0d 09 | e2 14 20 62 25 21 33 32 |+Spr$)..|.. b%!32|
|00001ed0| 3d a9 28 54 69 74 6c 65 | 24 29 0d 09 ec 05 cc 0d |=.(Title|$)......|
|00001ee0| 09 f6 2b 20 62 25 21 32 | 30 3d 28 31 3c 3c 32 38 |..+ b%!2|0=(1<<28|
|00001ef0| 29 2b 28 37 3c 3c 32 34 | 29 2b 28 33 3c 3c 31 32 |)+(7<<24|)+(3<<12|
|00001f00| 29 2b 28 25 31 31 30 31 | 30 29 0d 0a 00 12 20 24 |)+(%1101|0).... $|
|00001f10| 28 62 25 2b 32 34 29 3d | 53 70 72 24 0d 0a 0a 05 |(b%+24)=|Spr$....|
|00001f20| cd 0d 0a 14 25 c8 99 20 | 22 57 69 6d 70 5f 43 72 |....%.. |"Wimp_Cr|
|00001f30| 65 61 74 65 49 63 6f 6e | 22 2c 2c 62 25 20 b8 20 |eateIcon|",,b% . |
|00001f40| 68 61 6e 64 6c 65 0d 0a | 1e 0b 3d 68 61 6e 64 6c |handle..|..=handl|
|00001f50| 65 0d 0a 28 05 3a 0d 0a | 32 38 f4 20 50 52 4f 43 |e..(.:..|28. PROC|
|00001f60| 72 65 61 64 68 65 6c 70 | 20 3a 20 72 65 61 64 20 |readhelp| : read |
|00001f70| 68 65 6c 70 20 66 72 6f | 6d 20 61 70 70 6c 69 63 |help fro|m applic|
|00001f80| 61 74 69 6f 6e 20 61 6e | 64 20 73 65 6e 64 0d 0a |ation an|d send..|
|00001f90| 3c 2d f4 20 50 52 4f 43 | 73 65 6e 64 68 65 6c 70 |<-. PROC|sendhelp|
|00001fa0| 20 3a 20 73 65 6e 64 20 | 68 65 6c 70 20 74 6f 20 | : send |help to |
|00001fb0| 61 70 70 6c 69 63 61 74 | 69 6f 6e 0d 0a 46 25 f4 |applicat|ion..F%.|
|00001fc0| 20 55 73 65 20 3a 20 5c | 53 20 66 6f 72 20 22 43 | Use : \|S for "C|
|00001fd0| 6c 69 63 6b 20 53 45 4c | 45 43 54 20 74 6f 20 22 |lick SEL|ECT to "|
|00001fe0| 0d 0a 50 2f f4 20 20 20 | 20 20 20 20 5c 52 20 66 |..P/. | \R f|
|00001ff0| 6f 72 20 22 4d 6f 76 65 | 20 74 68 65 20 70 6f 69 |or "Move| the poi|
|00002000| 6e 74 65 72 20 72 69 67 | 68 74 20 74 6f 20 22 0d |nter rig|ht to ".|
|00002010| 0a 5a 25 f4 20 20 20 20 | 20 20 20 5c 41 20 66 6f |.Z%. | \A fo|
|00002020| 72 20 22 43 6c 69 63 6b | 20 41 44 4a 55 53 54 20 |r "Click| ADJUST |
|00002030| 74 6f 20 22 0d 0a 64 21 | f4 20 20 20 20 20 20 20 |to "..d!|. |
|00002040| 5c 54 20 66 6f 72 20 22 | 54 68 69 73 20 69 73 20 |\T for "|This is |
|00002050| 74 68 65 20 22 0d 0a 6e | 37 f4 20 20 20 20 20 20 |the "..n|7. |
|00002060| 20 5c 47 20 66 6f 72 20 | 22 54 68 69 73 20 6f 70 | \G for |"This op|
|00002070| 74 69 6f 6e 20 69 73 20 | 67 72 65 79 65 64 20 6f |tion is |greyed o|
|00002080| 75 74 20 62 65 63 61 75 | 73 65 20 22 0d 0a 78 24 |ut becau|se "..x$|
|00002090| f4 20 20 20 20 20 20 20 | 5c 57 20 66 6f 72 20 22 |. |\W for "|
|000020a0| 54 68 69 73 20 77 69 6e | 64 6f 77 20 69 73 20 22 |This win|dow is "|
|000020b0| 0d 0a 82 24 f4 20 20 20 | 20 20 20 20 5c 44 20 66 |...$. | \D f|
|000020c0| 6f 72 20 22 44 72 61 67 | 20 53 45 4c 45 43 54 20 |or "Drag| SELECT |
|000020d0| 74 6f 20 22 0d 0a 8c 24 | f4 20 20 20 20 20 20 20 |to "...$|. |
|000020e0| 5c 64 20 66 6f 72 20 22 | 44 72 61 67 20 41 44 4a |\d for "|Drag ADJ|
|000020f0| 55 53 54 20 74 6f 20 22 | 0d 0a 96 1b f4 20 20 20 |UST to "|..... |
|00002100| 20 20 20 20 5c 77 20 66 | 6f 72 20 22 77 69 6e 64 | \w f|or "wind|
|00002110| 6f 77 22 0d 0a a0 1b f4 | 20 20 20 20 20 20 20 5c |ow".....| \|
|00002120| 73 20 66 6f 72 20 22 53 | 45 4c 45 43 54 22 0d 0a |s for "S|ELECT"..|
|00002130| aa 1b f4 20 20 20 20 20 | 20 20 5c 61 20 66 6f 72 |... | \a for|
|00002140| 20 22 41 44 4a 55 53 54 | 22 0d 0a b4 19 f4 20 20 | "ADJUST|"..... |
|00002150| 20 20 20 20 20 7c 4d 20 | 66 6f 72 20 72 65 74 75 | |M |for retu|
|00002160| 72 6e 0d 0a be 27 f4 20 | 20 20 20 20 20 20 a4 53 |rn...'. | .S|
|00002170| 74 72 69 6e 67 24 a4 20 | 74 6f 20 69 6e 63 6c 75 |tring$. |to inclu|
|00002180| 64 65 20 73 74 72 69 6e | 67 0d 0a c8 2f f4 20 4e |de strin|g.../. N|
|00002190| 42 20 69 66 20 6e 6f 20 | 66 75 6c 6c 20 73 74 6f |B if no |full sto|
|000021a0| 70 20 74 68 65 6e 20 6f | 6e 65 20 77 69 6c 6c 20 |p then o|ne will |
|000021b0| 62 65 20 61 64 64 65 64 | 0d 0a d2 17 f4 20 46 6f |be added|..... Fo|
|000021c0| 72 6d 61 74 20 66 6f 72 | 20 68 65 6c 70 20 3a 0d |rmat for| help :.|
|000021d0| 0a dc 28 f4 20 20 7b 20 | 77 69 6e 64 6f 77 2c 68 |..(. { |window,h|
|000021e0| 65 6c 70 20 6d 65 73 73 | 61 67 65 20 66 6f 72 20 |elp mess|age for |
|000021f0| 6e 6f 20 69 63 6f 6e 0d | 0a e6 2a f4 20 20 20 20 |no icon.|..*. |
|00002200| 7b 20 69 63 6f 6e 20 6e | 75 6d 62 65 72 2c 20 6d |{ icon n|umber, m|
|00002210| 65 73 73 61 67 65 20 7d | 20 72 65 70 65 61 74 65 |essage }| repeate|
|00002220| 64 0d 0a f0 11 f4 20 20 | 7d 20 72 65 70 65 61 74 |d..... |} repeat|
|00002230| 65 64 0d 0a fa 13 f4 20 | 20 2d 31 2c 2d 31 20 74 |ed..... | -1,-1 t|
|00002240| 6f 20 65 6e 64 0d 0b 04 | 2f f4 20 4e 42 20 77 69 |o end...|/. NB wi|
|00002250| 6e 64 6f 77 20 73 75 62 | 6d 65 6e 75 73 20 6d 75 |ndow sub|menus mu|
|00002260| 73 74 20 68 61 76 65 20 | 68 65 6c 70 20 73 74 72 |st have |help str|
|00002270| 69 6e 67 73 0d 0b 0e 1c | f4 20 46 6f 72 6d 61 74 |ings....|. Format|
|00002280| 20 66 6f 72 20 6d 65 6e | 75 20 68 65 6c 70 20 3a | for men|u help :|
|00002290| 0d 0b 18 17 f4 20 20 7b | 20 6d 65 6e 75 2c 20 2d |..... {| menu, -|
|000022a0| 31 2c 2d 31 2c 2d 31 0d | 0b 22 1e f4 20 20 20 20 |1,-1,-1.|.".. |
|000022b0| 7b 20 6f 70 74 31 2c 6f | 70 74 32 2c 6f 70 74 33 |{ opt1,o|pt2,opt3|
|000022c0| 2c 68 65 6c 70 0d 0b 2c | 27 f4 20 20 20 6f 72 20 |,help..,|'. or |
|000022d0| 2d 31 2c 73 74 72 69 6e | 67 2c 2d 31 2c 68 65 6c |-1,strin|g,-1,hel|
|000022e0| 70 20 7d 20 72 65 70 65 | 61 74 65 64 0d 0b 36 11 |p } repe|ated..6.|
|000022f0| f4 20 20 7d 20 72 65 70 | 65 61 74 65 64 0d 0b 40 |. } rep|eated..@|
|00002300| 12 f4 20 20 2d 32 2c 2d | 32 2c 2d 32 2c 2d 32 0d |.. -2,-|2,-2,-2.|
|00002310| 0b 4a 3c dd f2 72 65 61 | 64 68 65 6c 70 28 77 69 |.J<..rea|dhelp(wi|
|00002320| 6e 2c 69 63 6f 6e 2c 74 | 6f 29 3a ea 20 6c 77 69 |n,icon,t|o):. lwi|
|00002330| 6e 2c 76 61 6c 2c 68 65 | 6c 70 24 2c 66 6f 75 6e |n,val,he|lp$,foun|
|00002340| 64 2c 61 24 2c 6d 24 2c | 6d 32 24 0d 0b 54 13 66 |d,a$,m$,|m2$..T.f|
|00002350| 6f 75 6e 64 3d a3 3a 6c | 77 69 6e 3d 2d 31 0d 0b |ound=.:l|win=-1..|
|00002360| 5e 05 f5 0d 0b 68 10 20 | f3 20 76 61 6c 2c 68 65 |^....h. |. val,he|
|00002370| 6c 70 24 0d 0b 72 1c 20 | e7 20 76 61 6c 3e 28 31 |lp$..r. |. val>(1|
|00002380| 3c 3c 31 36 29 20 84 20 | 76 61 6c 3c 30 20 8c 0d |<<16) . |val<0 ..|
|00002390| 0b 7c 12 20 20 e7 20 6c | 77 69 6e 3d 77 69 6e 20 |.|. . l|win=win |
|000023a0| 8c 0d 0b 86 1f 20 20 20 | 76 61 6c 3d 69 63 6f 6e |..... |val=icon|
|000023b0| 3a 68 65 6c 70 24 3d 22 | 22 3a 6d 32 24 3d 6d 24 |:help$="|":m2$=m$|
|000023c0| 0d 0b 90 07 20 20 cc 0d | 0b 9a 18 20 20 20 6c 77 |.... ..|... lw|
|000023d0| 69 6e 3d 76 61 6c 3a 6d | 24 3d 68 65 6c 70 24 0d |in=val:m|$=help$.|
|000023e0| 0b a4 07 20 20 cd 0d 0b | ae 06 20 cd 0d 0b b8 1c |... ...|.. .....|
|000023f0| 20 e7 20 76 61 6c 3d 69 | 63 6f 6e 20 80 20 6c 77 | . val=i|con . lw|
|00002400| 69 6e 3d 77 69 6e 20 8c | 0d 0b c2 1c 20 20 e7 20 |in=win .|.... . |
|00002410| 69 63 6f 6e 3d 2d 31 20 | 84 20 68 65 6c 70 24 3d |icon=-1 |. help$=|
|00002420| 22 22 20 8c 0d 0b cc 26 | 20 20 20 f2 73 65 6e 64 |"" ....&| .send|
|00002430| 68 65 6c 70 28 a4 6d 73 | 67 74 65 78 74 28 6d 24 |help(.ms|gtext(m$|
|00002440| 29 2b 22 7c 4d 22 2c 74 | 6f 29 0d 0b d6 07 20 20 |)+"|M",t|o).... |
|00002450| cc 0d 0b e0 39 20 20 20 | 6d 24 3d a4 6d 73 67 74 |....9 |m$=.msgt|
|00002460| 65 78 74 28 6d 24 29 3a | e7 20 a7 6d 24 2c 22 7c |ext(m$):|. .m$,"||
|00002470| 4d 22 29 3e 30 20 8c 6d | 24 3d c0 6d 24 2c a7 6d |M")>0 .m|$=.m$,.m|
|00002480| 24 2c 22 7c 4d 22 29 2d | 31 29 0d 0b ea 36 20 20 |$,"|M")-|1)...6 |
|00002490| 20 f2 73 65 6e 64 68 65 | 6c 70 28 a4 6d 73 67 74 | .sendhe|lp(.msgt|
|000024a0| 65 78 74 28 6d 24 29 2b | 22 7c 4d 22 2b a4 6d 73 |ext(m$)+|"|M"+.ms|
|000024b0| 67 74 65 78 74 28 68 65 | 6c 70 24 29 2c 74 6f 29 |gtext(he|lp$),to)|
|000024c0| 0d 0b f4 07 20 20 cd 0d | 0b fe 0d 20 20 66 6f 75 |.... ..|... fou|
|000024d0| 6e 64 3d b9 0d 0c 08 06 | 20 cd 0d 0c 12 1a fd 20 |nd=.....| ...... |
|000024e0| 68 65 6c 70 24 3d 22 2d | 31 22 20 84 20 66 6f 75 |help$="-|1" . fou|
|000024f0| 6e 64 3d b9 0d 0c 1c 0f | e7 20 ac 20 66 6f 75 6e |nd=.....|. . foun|
|00002500| 64 20 8c 0d 0c 26 42 20 | 21 6d 65 73 73 61 67 65 |d ...&B |!message|
|00002510| 5f 62 75 66 66 65 72 25 | 3d 2d 31 3a 6d 65 73 73 |_buffer%|=-1:mess|
|00002520| 61 67 65 5f 62 75 66 66 | 65 72 25 21 34 3d 2d 31 |age_buff|er%!4=-1|
|00002530| 3a 6d 65 73 73 61 67 65 | 5f 62 75 66 66 65 72 25 |:message|_buffer%|
|00002540| 21 38 3d 2d 31 0d 0c 30 | 36 20 c8 99 20 22 57 69 |!8=-1..0|6 .. "Wi|
|00002550| 6d 70 5f 47 65 74 4d 65 | 6e 75 53 74 61 74 65 22 |mp_GetMe|nuState"|
|00002560| 2c 31 2c 6d 65 73 73 61 | 67 65 5f 62 75 66 66 65 |,1,messa|ge_buffe|
|00002570| 72 25 2c 77 69 6e 2c 69 | 63 6f 6e 0d 0c 3a 1d 20 |r%,win,i|con..:. |
|00002580| e7 20 21 6d 65 73 73 61 | 67 65 5f 62 75 66 66 65 |. !messa|ge_buffe|
|00002590| 72 25 3c 3e 2d 31 20 8c | 0d 0c 44 45 20 20 c8 99 |r%<>-1 .|..DE ..|
|000025a0| 20 22 57 69 6d 70 5f 44 | 65 63 6f 64 65 4d 65 6e | "Wimp_D|ecodeMen|
|000025b0| 75 22 2c 2c 63 75 72 6d | 65 6e 75 25 2c 6d 65 73 |u",,curm|enu%,mes|
|000025c0| 73 61 67 65 5f 62 75 66 | 66 65 72 25 2c c4 32 35 |sage_buf|fer%,.25|
|000025d0| 35 2c 22 20 22 29 20 b8 | 2c 2c 2c 61 24 0d 0c 4e |5," ") .|,,,a$..N|
|000025e0| 07 20 20 f5 0d 0c 58 1d | 20 20 20 f3 20 6d 24 2c |. ...X.| . m$,|
|000025f0| 68 65 6c 70 24 2c 68 65 | 6c 70 24 2c 68 65 6c 70 |help$,he|lp$,help|
|00002600| 24 0d 0c 62 20 20 20 fd | 20 a0 28 6d 24 29 3d 63 |$..b .| .(m$)=c|
|00002610| 75 72 6d 65 6e 75 25 20 | 84 20 6d 24 3d 22 2d 32 |urmenu% |. m$="-2|
|00002620| 22 0d 0c 6c 12 20 20 e7 | 20 6d 24 3c 3e 22 2d 32 |"..l. .| m$<>"-2|
|00002630| 22 20 8c 0d 0c 76 08 20 | 20 20 f5 0d 0c 80 1b 20 |" ...v. | ..... |
|00002640| 20 20 20 f3 20 6c 77 69 | 6e 2c 6d 24 2c 76 61 6c | . lwi|n,m$,val|
|00002650| 2c 68 65 6c 70 24 0d 0c | 8a 1d 20 20 20 20 e7 20 |,help$..|.. . |
|00002660| bb 28 6d 24 29 3d 30 20 | 80 20 6d 24 3c 3e 22 30 |.(m$)=0 |. m$<>"0|
|00002670| 22 20 8c 0d 0c 94 2d 20 | 20 20 20 20 e7 20 61 24 |" ....- | . a$|
|00002680| 3d 6d 24 20 8c f2 73 65 | 6e 64 68 65 6c 70 28 68 |=m$ ..se|ndhelp(h|
|00002690| 65 6c 70 24 2c 74 6f 29 | 3a 66 6f 75 6e 64 3d b9 |elp$,to)|:found=.|
|000026a0| 0d 0c 9e 09 20 20 20 20 | cc 0d 0c a8 55 20 20 20 |.... |....U |
|000026b0| 20 20 e7 20 6c 77 69 6e | 3d 6d 65 73 73 61 67 65 | . lwin|=message|
|000026c0| 5f 62 75 66 66 65 72 25 | 21 30 20 80 20 bb 28 6d |_buffer%|!0 . .(m|
|000026d0| 24 29 3d 6d 65 73 73 61 | 67 65 5f 62 75 66 66 65 |$)=messa|ge_buffe|
|000026e0| 72 25 21 34 20 80 20 76 | 61 6c 3d 6d 65 73 73 61 |r%!4 . v|al=messa|
|000026f0| 67 65 5f 62 75 66 66 65 | 72 25 21 38 20 8c 0d 0c |ge_buffe|r%!8 ...|
|00002700| b2 25 20 20 20 20 20 20 | f2 73 65 6e 64 68 65 6c |.% |.sendhel|
|00002710| 70 28 68 65 6c 70 24 2c | 74 6f 29 3a 66 6f 75 6e |p(help$,|to):foun|
|00002720| 64 3d b9 0d 0c bc 0a 20 | 20 20 20 20 cd 0d 0c c6 |d=..... | ....|
|00002730| 09 20 20 20 20 cd 0d 0c | d0 27 20 20 20 fd 66 6f |. ...|.' .fo|
|00002740| 75 6e 64 3d b9 20 84 20 | 6c 77 69 6e 3d 2d 32 20 |und=. . |lwin=-2 |
|00002750| 84 20 6c 77 69 6e 20 3e | 26 38 30 30 30 0d 0c da |. lwin >|&8000...|
|00002760| 07 20 20 cd 0d 0c e4 06 | 20 cd 0d 0c ee 05 cd 0d |. .....| .......|
|00002770| 0c f8 05 e1 0d 0d 02 2e | dd f2 73 65 6e 64 68 65 |........|..sendhe|
|00002780| 6c 70 28 68 65 6c 70 24 | 2c 74 6f 29 3a 68 65 6c |lp(help$|,to):hel|
|00002790| 70 24 3d a4 6d 73 67 74 | 65 78 74 28 68 65 6c 70 |p$=.msgt|ext(help|
|000027a0| 24 29 0d 0d 0c 22 e7 20 | c2 68 65 6c 70 24 2c 32 |$)...". |.help$,2|
|000027b0| 29 3c 3e 22 7c 4d 22 20 | 8c 68 65 6c 70 24 2b 3d |)<>"|M" |.help$+=|
|000027c0| 22 7c 4d 22 0d 0d 16 0b | ea 20 62 24 2c 63 24 0d |"|M"....|. b$,c$.|
|000027d0| 0d 20 14 c8 95 20 a7 68 | 65 6c 70 24 2c 22 a4 22 |. ... .h|elp$,"."|
|000027e0| 29 3e 30 0d 0d 2a 30 20 | 62 24 3d c1 68 65 6c 70 |)>0..*0 |b$=.help|
|000027f0| 24 2c a7 68 65 6c 70 24 | 2c 22 a4 22 29 2b 31 29 |$,.help$|,".")+1)|
|00002800| 3a 62 24 3d c0 62 24 2c | a7 62 24 2c 22 a4 22 29 |:b$=.b$,|.b$,".")|
|00002810| 2d 31 29 0d 0d 34 42 20 | 68 65 6c 70 24 3d c0 68 |-1)..4B |help$=.h|
|00002820| 65 6c 70 24 2c a7 68 65 | 6c 70 24 2c 22 a4 22 29 |elp$,.he|lp$,".")|
|00002830| 2d 31 29 2b a0 28 62 24 | 29 2b c1 68 65 6c 70 24 |-1)+.(b$|)+.help$|
|00002840| 2c a7 68 65 6c 70 24 2c | 22 a4 22 29 2b a9 28 62 |,.help$,|".")+.(b|
|00002850| 24 29 2b 32 29 0d 0d 3e | 05 ce 0d 0d 48 15 c8 95 |$)+2)..>|....H...|
|00002860| 20 a7 68 65 6c 70 24 2c | 22 7c 4d 22 29 3e 30 0d | .help$,|"|M")>0.|
|00002870| 0d 52 34 20 62 24 3d c0 | 68 65 6c 70 24 2c a7 68 |.R4 b$=.|help$,.h|
|00002880| 65 6c 70 24 2c 22 7c 4d | 22 29 2d 31 29 3a 68 65 |elp$,"|M|")-1):he|
|00002890| 6c 70 24 3d c1 68 65 6c | 70 24 2c a9 28 62 24 29 |lp$=.hel|p$,.(b$)|
|000028a0| 2b 33 29 0d 0d 5c 20 20 | e7 20 a7 22 21 2e 3f 22 |+3)..\ |. ."!.?"|
|000028b0| 2c c2 62 24 2c 31 29 29 | 3d 30 20 8c 62 24 2b 3d |,.b$,1))|=0 .b$+=|
|000028c0| 22 2e 22 0d 0d 66 10 20 | 63 24 2b 3d 62 24 2b 22 |"."..f. |c$+=b$+"|
|000028d0| 7c 4d 22 0d 0d 70 05 ce | 0d 0d 7a 30 62 25 21 31 ||M"..p..|..z0b%!1|
|000028e0| 32 3d 62 25 21 38 3a 62 | 25 21 34 3d 74 6f 3a 62 |2=b%!8:b|%!4=to:b|
|000028f0| 25 21 31 36 3d 26 35 30 | 33 3a 24 28 62 25 2b 32 |%!16=&50|3:$(b%+2|
|00002900| 30 29 3d 63 24 2b bd 30 | 0d 0d 84 1a 62 25 21 30 |0)=c$+.0|....b%!0|
|00002910| 3d 32 30 2b 28 a9 28 63 | 24 29 2b 34 29 20 80 20 |=20+(.(c|$)+4) . |
|00002920| 2d 34 0d 0d 8e 24 c8 99 | 20 22 57 69 6d 70 5f 53 |-4...$..| "Wimp_S|
|00002930| 65 6e 64 4d 65 73 73 61 | 67 65 22 2c 31 37 2c 62 |endMessa|ge",17,b|
|00002940| 25 2c 62 25 21 34 0d 0d | 98 05 e1 0d 0d a2 05 3a |%,b%!4..|.......:|
|00002950| 0d 0d ac 42 f4 20 46 4e | 69 6e 64 69 72 65 63 74 |...B. FN|indirect|
|00002960| 20 3a 20 50 6c 61 63 65 | 20 61 20 73 74 72 69 6e | : Place| a strin|
|00002970| 67 20 69 6e 20 69 6e 64 | 69 72 65 63 74 69 6f 6e |g in ind|irection|
|00002980| 20 62 75 66 66 65 72 20 | 28 72 65 74 2e 20 6c 6f | buffer |(ret. lo|
|00002990| 63 29 0d 0d b6 1d dd a4 | 69 6e 64 69 72 65 63 74 |c)......|indirect|
|000029a0| 28 61 24 29 3a ea 20 69 | 3a 69 3d 69 6e 64 25 0d |(a$):. i|:i=ind%.|
|000029b0| 0d c0 3c e7 a9 28 61 24 | 29 3e 69 6e 64 6c 25 2d |..<..(a$|)>indl%-|
|000029c0| 31 20 8c 85 20 26 38 30 | 33 2c 22 4e 6f 74 20 65 |1 .. &80|3,"Not e|
|000029d0| 6e 6f 75 67 68 20 72 6f | 6f 6d 20 66 6f 72 20 69 |nough ro|om for i|
|000029e0| 6e 64 69 72 65 63 74 69 | 6f 6e 22 0d 0d ca 38 e7 |ndirecti|on"...8.|
|000029f0| 20 61 24 3c 3e 22 22 20 | 8c 24 69 6e 64 25 3d 61 | a$<>"" |.$ind%=a|
|00002a00| 24 3a 69 6e 64 25 2b 3d | a9 28 61 24 29 2b 31 3a |$:ind%+=|.(a$)+1:|
|00002a10| 69 6e 64 6c 25 2d 3d a9 | 28 61 24 29 2b 31 20 8b |indl%-=.|(a$)+1 .|
|00002a20| 69 3d 30 0d 0d d4 06 3d | 69 0d 0d de 05 3a 0d 0d |i=0....=|i....:..|
|00002a30| e8 0d dd f2 69 6e 69 74 | 72 6f 32 0d 0d f2 10 62 |....init|ro2....b|
|00002a40| 6c 6b 6c 65 6e 25 3d 38 | 30 39 36 0d 0d fc 12 de |lklen%=8|096.....|
|00002a50| 20 62 6c 6b 25 20 62 6c | 6b 6c 65 6e 25 0d 0e 06 | blk% bl|klen%...|
|00002a60| 05 e1 0d 0e 10 32 f4 20 | 46 4e 6c 6f 61 64 74 65 |.....2. |FNloadte|
|00002a70| 6d 70 6c 61 74 65 20 3a | 20 6c 6f 61 64 20 74 68 |mplate :| load th|
|00002a80| 65 20 73 70 65 63 69 66 | 69 65 64 20 74 65 6d 70 |e specif|ied temp|
|00002a90| 6c 61 74 65 0d 0e 1a 32 | f4 20 73 70 72 62 6c 6b |late...2|. sprblk|
|00002aa0| 25 20 73 68 6f 75 6c 64 | 20 62 65 20 31 20 66 6f |% should| be 1 fo|
|00002ab0| 72 20 74 68 65 20 73 74 | 61 6e 64 61 72 64 20 73 |r the st|andard s|
|00002ac0| 70 72 69 74 65 73 0d 0e | 24 2b dd a4 6c 6f 61 64 |prites..|$+..load|
|00002ad0| 74 65 6d 70 6c 61 74 65 | 28 6e 24 2c 73 70 72 62 |template|(n$,sprb|
|00002ae0| 6c 6b 25 29 3a ea 20 74 | 73 69 7a 65 25 2c 6f 6b |lk%):. t|size%,ok|
|00002af0| 25 0d 0e 2e 30 c8 99 20 | 22 57 69 6d 70 5f 4f 70 |%...0.. |"Wimp_Op|
|00002b00| 65 6e 54 65 6d 70 6c 61 | 74 65 22 2c 2c 41 70 70 |enTempla|te",,App|
|00002b10| 64 69 72 24 2b 22 2e 54 | 65 6d 70 6c 61 74 65 73 |dir$+".T|emplates|
|00002b20| 22 0d 0e 38 4c c8 99 20 | 22 57 69 6d 70 5f 4c 6f |"..8L.. |"Wimp_Lo|
|00002b30| 61 64 54 65 6d 70 6c 61 | 74 65 22 2c 2c 77 73 70 |adTempla|te",,wsp|
|00002b40| 63 25 2c 62 6c 6b 25 2c | 62 6c 6b 25 2b 62 6c 6b |c%,blk%,|blk%+blk|
|00002b50| 6c 65 6e 25 2c 2d 31 2c | 6e 24 2c 30 20 b8 2c 2c |len%,-1,|n$,0 .,,|
|00002b60| 74 73 69 7a 65 25 2c 2c | 2c 2c 6f 6b 25 0d 0e 42 |tsize%,,|,,ok%..B|
|00002b70| 1b c8 99 20 22 57 69 6d | 70 5f 43 6c 6f 73 65 54 |... "Wim|p_CloseT|
|00002b80| 65 6d 70 6c 61 74 65 22 | 0d 0e 4c 26 62 6c 6b 6c |emplate"|..L&blkl|
|00002b90| 65 6e 25 2d 3d 28 74 73 | 69 7a 65 25 2d 62 6c 6b |en%-=(ts|ize%-blk|
|00002ba0| 25 29 3a 62 6c 6b 25 3d | 74 73 69 7a 65 25 0d 0e |%):blk%=|tsize%..|
|00002bb0| 56 2b e7 20 62 6c 6b 25 | 3e 26 31 30 30 30 30 30 |V+. blk%|>&100000|
|00002bc0| 20 8c 85 20 26 38 30 33 | 2c 22 4d 61 73 73 69 76 | .. &803|,"Massiv|
|00002bd0| 65 20 65 72 72 6f 72 21 | 22 0d 0e 60 35 e7 20 6f |e error!|"..`5. o|
|00002be0| 6b 25 3d 30 20 8c 85 20 | 26 38 30 33 2c 20 22 54 |k%=0 .. |&803, "T|
|00002bf0| 65 6d 70 6c 61 74 65 20 | 66 69 6c 65 20 22 2b 6e |emplate |file "+n|
|00002c00| 24 2b 22 20 6e 6f 74 20 | 66 6f 75 6e 64 22 0d 0e |$+" not |found"..|
|00002c10| 6a 38 77 73 70 63 25 21 | 36 34 3d 73 70 72 62 6c |j8wspc%!|64=sprbl|
|00002c20| 6b 25 3a c8 99 20 22 57 | 69 6d 70 5f 43 72 65 61 |k%:.. "W|imp_Crea|
|00002c30| 74 65 57 69 6e 64 6f 77 | 22 2c 2c 77 73 70 63 25 |teWindow|",,wspc%|
|00002c40| 20 b8 20 6f 6b 25 0d 0e | 74 08 3d 6f 6b 25 0d 0e | . ok%..|t.=ok%..|
|00002c50| 7e 05 3a 0d 0e 88 36 f4 | 20 46 4e 6c 6f 61 64 73 |~.:...6.| FNloads|
|00002c60| 70 72 69 74 65 73 20 3a | 20 4c 6f 61 64 20 73 70 |prites :| Load sp|
|00002c70| 72 69 74 65 20 66 69 6c | 65 20 69 6e 74 6f 20 67 |rite fil|e into g|
|00002c80| 69 76 65 6e 20 61 72 65 | 61 0d 0e 92 22 dd a4 6c |iven are|a..."..l|
|00002c90| 6f 61 64 73 70 72 69 74 | 65 73 28 66 69 6c 65 24 |oadsprit|es(file$|
|00002ca0| 29 3a ea 20 6c 65 6e 25 | 2c 4f 25 0d 0e 9c 1a 4f |):. len%|,O%....O|
|00002cb0| 25 3d 8e 28 66 69 6c 65 | 24 29 3a e7 20 4f 25 3d |%=.(file|$):. O%=|
|00002cc0| 30 20 8c 3d 31 0d 0e a6 | 15 6c 65 6e 25 3d a2 23 |0 .=1...|.len%=.#|
|00002cd0| 4f 25 2b 31 36 3a d9 23 | 4f 25 0d 0e b0 2c de 20 |O%+16:.#|O%...,. |
|00002ce0| 73 70 72 62 6c 6b 25 20 | 6c 65 6e 25 3a 21 73 70 |sprblk% |len%:!sp|
|00002cf0| 72 62 6c 6b 25 3d 6c 65 | 6e 25 3a 73 70 72 62 6c |rblk%=le|n%:sprbl|
|00002d00| 6b 25 21 38 3d 30 0d 0e | ba 20 c8 99 22 4f 53 5f |k%!8=0..|. .."OS_|
|00002d10| 53 70 72 69 74 65 4f 70 | 22 2c 26 31 30 39 2c 73 |SpriteOp|",&109,s|
|00002d20| 70 72 62 6c 6b 25 0d 0e | c4 26 c8 99 22 4f 53 5f |prblk%..|.&.."OS_|
|00002d30| 53 70 72 69 74 65 4f 70 | 22 2c 26 31 30 41 2c 73 |SpriteOp|",&10A,s|
|00002d40| 70 72 62 6c 6b 25 2c 66 | 69 6c 65 24 0d 0e ce 0c |prblk%,f|ile$....|
|00002d50| 3d 73 70 72 62 6c 6b 25 | 0d 0e d8 05 3a 0d 0e e2 |=sprblk%|....:...|
|00002d60| 3c f4 20 50 52 4f 43 6f | 70 65 6e 6d 65 73 73 61 |<. PROCo|penmessa|
|00002d70| 67 65 73 20 20 3a 20 6f | 70 65 6e 20 61 20 4d 65 |ges : o|pen a Me|
|00002d80| 73 73 61 67 65 54 72 61 | 6e 73 20 66 69 6c 65 20 |ssageTra|ns file |
|00002d90| 66 6f 72 20 69 6e 70 75 | 74 0d 0e ec 39 f4 20 46 |for inpu|t...9. F|
|00002da0| 4e 6d 73 67 74 6f 6b 65 | 6e 20 20 20 20 20 20 20 |Nmsgtoke|n |
|00002db0| 20 3a 20 74 72 61 6e 73 | 6c 61 74 65 20 61 20 74 | : trans|late a t|
|00002dc0| 6f 6b 65 6e 20 69 6e 74 | 6f 20 61 20 73 74 72 69 |oken int|o a stri|
|00002dd0| 6e 67 0d 0e f6 33 f4 20 | 50 52 4f 43 63 6c 6f 73 |ng...3. |PROCclos|
|00002de0| 65 6d 65 73 73 61 67 65 | 73 20 3a 20 63 6c 6f 73 |emessage|s : clos|
|00002df0| 65 20 61 20 4d 65 73 73 | 61 67 65 54 72 61 6e 73 |e a Mess|ageTrans|
|00002e00| 20 66 69 6c 65 0d 0f 00 | 18 dd f2 6f 70 65 6e 6d | file...|...openm|
|00002e10| 65 73 73 61 67 65 73 3a | ea 20 66 2c 6c 0d 0f 0a |essages:|. f,l...|
|00002e20| 38 e7 20 6d 73 67 62 75 | 66 66 65 72 25 3c 3e 2d |8. msgbu|ffer%<>-|
|00002e30| 31 20 8c 85 20 26 38 30 | 30 2c 22 4d 65 73 73 61 |1 .. &80|0,"Messa|
|00002e40| 67 65 20 66 69 6c 65 20 | 61 6c 72 65 61 64 79 20 |ge file |already |
|00002e50| 6f 70 65 6e 22 0d 0f 14 | 3a c8 99 20 22 4d 65 73 |open"...|:.. "Mes|
|00002e60| 73 61 67 65 54 72 61 6e | 73 5f 46 69 6c 65 49 6e |sageTran|s_FileIn|
|00002e70| 66 6f 22 2c 2c 41 70 70 | 64 69 72 24 2b 22 2e 4d |fo",,App|dir$+".M|
|00002e80| 65 73 73 61 67 65 73 22 | 20 b8 20 66 2c 2c 6c 0d |essages"| . f,,l.|
|00002e90| 0f 1e 34 e7 20 28 66 20 | 80 31 29 3d 31 20 8c 6d |..4. (f |.1)=1 .m|
|00002ea0| 73 67 62 75 66 66 65 72 | 32 25 3d 30 20 8b 6d 73 |sgbuffer|2%=0 .ms|
|00002eb0| 67 62 75 66 66 65 72 32 | 25 3d a4 63 6c 61 69 6d |gbuffer2|%=.claim|
|00002ec0| 28 6c 29 0d 0f 28 48 e7 | 20 6d 73 67 62 75 66 66 |(l)..(H.| msgbuff|
|00002ed0| 65 72 32 25 3d 2d 31 20 | 8c 85 20 26 38 30 32 2c |er2%=-1 |.. &802,|
|00002ee0| 22 4e 6f 20 72 6f 6f 6d | 20 66 6f 72 20 73 65 63 |"No room| for sec|
|00002ef0| 6f 6e 64 61 72 79 20 4d | 65 73 73 61 67 65 54 72 |ondary M|essageTr|
|00002f00| 61 6e 73 20 62 75 66 66 | 65 72 22 0d 0f 32 71 6d |ans buff|er"..2qm|
|00002f10| 73 67 62 75 66 66 65 72 | 25 3d a4 63 6c 61 69 6d |sgbuffer|%=.claim|
|00002f20| 28 31 36 29 3a e7 20 6d | 73 67 62 75 66 66 65 72 |(16):. m|sgbuffer|
|00002f30| 25 3d 2d 31 20 8c f2 72 | 65 6c 65 61 73 65 28 6d |%=-1 ..r|elease(m|
|00002f40| 73 67 62 75 66 66 65 72 | 32 25 29 3a 85 20 26 38 |sgbuffer|2%):. &8|
|00002f50| 30 32 2c 22 4e 6f 20 72 | 6f 6f 6d 20 66 6f 72 20 |02,"No r|oom for |
|00002f60| 70 72 69 6d 61 72 79 20 | 4d 65 73 73 61 67 65 54 |primary |MessageT|
|00002f70| 72 61 6e 73 20 62 75 66 | 66 65 72 22 0d 0f 3c 49 |rans buf|fer"..<I|
|00002f80| c8 99 20 22 4d 65 73 73 | 61 67 65 54 72 61 6e 73 |.. "Mess|ageTrans|
|00002f90| 5f 4f 70 65 6e 46 69 6c | 65 22 2c 6d 73 67 62 75 |_OpenFil|e",msgbu|
|00002fa0| 66 66 65 72 25 2c 41 70 | 70 64 69 72 24 2b 22 2e |ffer%,Ap|pdir$+".|
|00002fb0| 4d 65 73 73 61 67 65 73 | 22 2c 6d 73 67 62 75 66 |Messages|",msgbuf|
|00002fc0| 66 65 72 32 25 0d 0f 46 | 05 e1 0d 0f 50 13 dd f2 |fer2%..F|....P...|
|00002fd0| 63 6c 6f 73 65 6d 65 73 | 73 61 67 65 73 0d 0f 5a |closemes|sages..Z|
|00002fe0| 2a c8 99 20 22 4d 65 73 | 73 61 67 65 54 72 61 6e |*.. "Mes|sageTran|
|00002ff0| 73 5f 43 6c 6f 73 65 46 | 69 6c 65 22 2c 6d 73 67 |s_CloseF|ile",msg|
|00003000| 62 75 66 66 65 72 25 0d | 0f 64 2e f2 72 65 6c 65 |buffer%.|.d..rele|
|00003010| 61 73 65 28 6d 73 67 62 | 75 66 66 65 72 25 29 3a |ase(msgb|uffer%):|
|00003020| f2 72 65 6c 65 61 73 65 | 28 6d 73 67 62 75 66 66 |.release|(msgbuff|
|00003030| 65 72 32 25 29 0d 0f 6e | 05 e1 0d 0f 78 05 3a 0d |er2%)..n|....x.:.|
|00003040| 0f 82 11 dd a4 6d 73 67 | 74 65 78 74 28 61 24 29 |.....msg|text(a$)|
|00003050| 0d 0f 8c 26 e7 20 c0 61 | 24 2c 31 29 3d 22 3e 22 |...&. .a|$,1)=">"|
|00003060| 20 8c 61 24 3d a4 6d 73 | 67 74 6f 6b 65 6e 28 c1 | .a$=.ms|gtoken(.|
|00003070| 61 24 2c 32 29 29 0d 0f | 96 07 3d 61 24 0d 0f a0 |a$,2))..|..=a$...|
|00003080| 2a dd a4 6d 73 67 74 6f | 6b 65 6e 28 74 24 29 3a |*..msgto|ken(t$):|
|00003090| ea 20 73 31 24 2c 73 32 | 24 2c 73 33 24 2c 61 24 |. s1$,s2|$,s3$,a$|
|000030a0| 2c 6c 65 6e 25 2c 66 0d | 0f aa 2a e7 20 6d 73 67 |,len%,f.|..*. msg|
|000030b0| 62 75 66 66 65 72 25 3d | 2d 31 20 8c 3d 74 24 20 |buffer%=|-1 .=t$ |
|000030c0| 8b 74 24 2b 3d 22 3a 3a | 3a 3a 22 3a 61 24 3d 74 |.t$+="::|::":a$=t|
|000030d0| 24 0d 0f b4 29 61 24 3d | c1 61 24 2c a7 61 24 2c |$...)a$=|.a$,.a$,|
|000030e0| 22 3a 22 29 2b 31 29 3a | 74 24 3d c0 74 24 2c a7 |":")+1):|t$=.t$,.|
|000030f0| 74 24 2c 22 3a 22 29 2d | 31 29 0d 0f be 28 73 31 |t$,":")-|1)...(s1|
|00003100| 24 3d c0 61 24 2c a7 61 | 24 2c 22 3a 22 29 2d 31 |$=.a$,.a|$,":")-1|
|00003110| 29 3a 61 24 3d c1 61 24 | 2c a9 28 73 31 24 29 2b |):a$=.a$|,.(s1$)+|
|00003120| 32 29 0d 0f c8 28 73 32 | 24 3d c0 61 24 2c a7 61 |2)...(s2|$=.a$,.a|
|00003130| 24 2c 22 3a 22 29 2d 31 | 29 3a 61 24 3d c1 61 24 |$,":")-1|):a$=.a$|
|00003140| 2c a9 28 73 32 24 29 2b | 32 29 0d 0f d2 28 73 33 |,.(s2$)+|2)...(s3|
|00003150| 24 3d c0 61 24 2c a7 61 | 24 2c 22 3a 22 29 2d 31 |$=.a$,.a|$,":")-1|
|00003160| 29 3a 61 24 3d c1 61 24 | 2c a9 28 73 33 24 29 2b |):a$=.a$|,.(s3$)+|
|00003170| 32 29 0d 0f dc 57 c8 99 | 20 22 58 4d 65 73 73 61 |2)...W..| "XMessa|
|00003180| 67 65 54 72 61 6e 73 5f | 4c 6f 6f 6b 75 70 22 2c |geTrans_|Lookup",|
|00003190| 6d 73 67 62 75 66 66 65 | 72 25 2c 74 24 2c 6d 65 |msgbuffe|r%,t$,me|
|000031a0| 73 73 61 67 65 5f 62 75 | 66 66 65 72 25 2c 32 35 |ssage_bu|ffer%,25|
|000031b0| 36 2c 73 31 24 2c 73 32 | 24 2c 73 33 24 20 b8 20 |6,s1$,s2|$,s3$ . |
|000031c0| 2c 2c 2c 6c 65 6e 25 3b | 66 0d 0f e6 2c e7 20 28 |,,,len%;|f...,. (|
|000031d0| 66 20 80 31 29 3d 31 20 | 8c 3d 74 24 20 8b 6d 65 |f .1)=1 |.=t$ .me|
|000031e0| 73 73 61 67 65 5f 62 75 | 66 66 65 72 25 3f 6c 65 |ssage_bu|ffer%?le|
|000031f0| 6e 25 3d 31 33 0d 0f f0 | 15 3d 24 6d 65 73 73 61 |n%=13...|.=$messa|
|00003200| 67 65 5f 62 75 66 66 65 | 72 25 0d 0f fa 05 3a 0d |ge_buffe|r%....:.|
|00003210| 10 04 30 f4 20 46 4e 63 | 72 65 61 74 65 66 74 6d |..0. FNc|reateftm|
|00003220| 65 6e 75 20 20 20 20 3a | 20 43 72 65 61 74 65 20 |enu :| Create |
|00003230| 61 20 66 69 6c 65 74 79 | 70 65 20 6d 65 6e 75 0d |a filety|pe menu.|
|00003240| 10 0e 37 f4 20 50 52 4f | 43 72 65 6c 65 61 73 65 |..7. PRO|Crelease|
|00003250| 66 74 6d 65 6e 75 20 3a | 20 52 65 6c 65 61 73 65 |ftmenu :| Release|
|00003260| 20 73 70 61 63 65 20 75 | 73 65 64 20 62 79 20 46 | space u|sed by F|
|00003270| 54 20 6d 65 6e 75 0d 10 | 18 12 dd a4 63 72 65 61 |T menu..|....crea|
|00003280| 74 65 66 74 6d 65 6e 75 | 0d 10 22 2d ea 20 6c 65 |teftmenu|.."-. le|
|00003290| 6e 2c 6e 61 6d 65 2c 74 | 79 70 65 2c 66 6c 61 67 |n,name,t|ype,flag|
|000032a0| 73 2c 6d 6c 65 6e 2c 69 | 6c 65 6e 2c 6e 24 2c 76 |s,mlen,i|len,n$,v|
|000032b0| 24 2c 6d 73 74 0d 10 2c | 47 c8 99 20 26 32 30 30 |$,mst..,|G.. &200|
|000032c0| 32 33 2c 22 46 69 6c 65 | 24 54 79 70 65 5f 2a 22 |23,"File|$Type_*"|
|000032d0| 2c 6d 65 73 73 61 67 65 | 5f 62 75 66 66 65 72 25 |,message|_buffer%|
|000032e0| 2c 32 35 36 20 b8 20 2c | 2c 6c 65 6e 2c 6e 61 6d |,256 . ,|,len,nam|
|000032f0| 65 2c 74 79 70 65 3b 66 | 6c 61 67 73 0d 10 36 15 |e,type;f|lags..6.|
|00003300| 6d 6c 65 6e 3d 32 38 2b | 32 34 3a 69 6c 65 6e 3d |mlen=28+|24:ilen=|
|00003310| 39 0d 10 40 14 c8 95 20 | 28 66 6c 61 67 73 20 80 |9..@... |(flags .|
|00003320| 31 29 3c 3e 31 0d 10 4a | 0f 20 e7 20 74 79 70 65 |1)<>1..J|. . type|
|00003330| 3d 30 20 8c 0d 10 54 24 | 20 20 6d 6c 65 6e 2b 3d |=0 ...T$| mlen+=|
|00003340| 32 34 3a 6e 24 3d c2 a4 | 73 74 72 69 6e 67 30 28 |24:n$=..|string0(|
|00003350| 6e 61 6d 65 29 2c 33 29 | 0d 10 5e 2d 20 20 c8 99 |name),3)|..^- ..|
|00003360| 20 22 58 57 69 6d 70 5f | 53 70 72 69 74 65 4f 70 | "XWimp_|SpriteOp|
|00003370| 22 2c 32 34 2c 2c 22 53 | 6d 61 6c 6c 5f 22 2b 6e |",24,,"S|mall_"+n|
|00003380| 24 20 b8 3b 66 0d 10 68 | 11 20 20 e7 20 28 66 20 |$ .;f..h|. . (f |
|00003390| 80 31 29 3d 31 8c 0d 10 | 72 2d 20 20 20 c8 99 20 |.1)=1...|r- .. |
|000033a0| 22 58 57 69 6d 70 5f 53 | 70 72 69 74 65 4f 70 22 |"XWimp_S|priteOp"|
|000033b0| 2c 32 34 2c 2c 22 46 69 | 6c 65 5f 22 2b 6e 24 20 |,24,,"Fi|le_"+n$ |
|000033c0| b8 3b 66 0d 10 7c 2c 20 | 20 20 e7 20 28 66 20 80 |.;f..|, | . (f .|
|000033d0| 31 29 3d 30 8c 69 6c 65 | 6e 2b 3d 31 31 2b 6c 65 |1)=0.ile|n+=11+le|
|000033e0| 6e 20 8b 69 6c 65 6e 2b | 3d 6c 65 6e 2b 31 31 0d |n .ilen+|=len+11.|
|000033f0| 10 86 07 20 20 cc 0d 10 | 90 13 20 20 20 69 6c 65 |... ...|.. ile|
|00003400| 6e 2b 3d 31 32 2b 6c 65 | 6e 0d 10 9a 07 20 20 cd |n+=12+le|n.... .|
|00003410| 0d 10 a4 06 20 cd 0d 10 | ae 4d 20 c8 99 20 26 32 |.... ...|.M .. &2|
|00003420| 30 30 32 33 2c 22 46 69 | 6c 65 24 54 79 70 65 5f |0023,"Fi|le$Type_|
|00003430| 2a 22 2c 6d 65 73 73 61 | 67 65 5f 62 75 66 66 65 |*",messa|ge_buffe|
|00003440| 72 25 2c 32 35 36 2c 6e | 61 6d 65 20 b8 20 2c 2c |r%,256,n|ame . ,,|
|00003450| 6c 65 6e 2c 6e 61 6d 65 | 2c 74 79 70 65 3b 66 6c |len,name|,type;fl|
|00003460| 61 67 73 0d 10 b8 05 ce | 0d 10 c2 1b 66 74 62 6c |ags.....|....ftbl|
|00003470| 6b 3d a4 63 6c 61 69 6d | 28 6d 6c 65 6e 2b 69 6c |k=.claim|(mlen+il|
|00003480| 65 6e 29 0d 10 cc 10 e7 | 20 66 74 62 6c 6b 3d 2d |en).....| ftblk=-|
|00003490| 31 20 8c 0d 10 d6 1a 20 | 66 74 62 6c 6b 3d a4 63 |1 ..... |ftblk=.c|
|000034a0| 6c 61 69 6d 28 32 38 2b | 32 34 2b 39 29 0d 10 e0 |laim(28+|24+9)...|
|000034b0| 28 20 24 66 74 62 6c 6b | 3d 22 46 69 6c 65 20 74 |( $ftblk|="File t|
|000034c0| 79 70 65 73 22 3a 66 74 | 62 6c 6b 21 31 32 3d 26 |ypes":ft|blk!12=&|
|000034d0| 37 30 32 30 37 0d 10 ea | 2b 20 66 74 62 6c 6b 21 |70207...|+ ftblk!|
|000034e0| 31 36 3d 31 36 2a 31 32 | 3a 66 74 62 6c 6b 21 32 |16=16*12|:ftblk!2|
|000034f0| 30 3d 26 32 38 3a 66 74 | 62 6c 6b 21 32 34 3d 30 |0=&28:ft|blk!24=0|
|00003500| 0d 10 f4 2f 20 66 74 62 | 6c 6b 21 32 38 3d 26 38 |.../ ftb|lk!28=&8|
|00003510| 30 3a 66 74 62 6c 6b 21 | 33 32 3d 2d 31 3a 66 74 |0:ftblk!|32=-1:ft|
|00003520| 62 6c 6b 21 33 36 3d 26 | 37 30 30 30 31 32 31 0d |blk!36=&|7000121.|
|00003530| 10 fe 2f 20 66 74 62 6c | 6b 21 34 30 3d 66 74 62 |../ ftbl|k!40=ftb|
|00003540| 6c 6b 2b 32 38 2b 32 34 | 3a 66 74 62 6c 6b 21 34 |lk+28+24|:ftblk!4|
|00003550| 34 3d 30 3a 66 74 62 6c | 6b 21 34 38 3d 39 0d 11 |4=0:ftbl|k!48=9..|
|00003560| 08 16 20 24 28 66 74 62 | 6c 6b 2b 32 38 2b 32 34 |.. $(ftb|lk+28+24|
|00003570| 29 3d 22 22 0d 11 12 05 | cc 0d 11 1c 28 20 24 66 |)=""....|....( $f|
|00003580| 74 62 6c 6b 3d 22 46 69 | 6c 65 20 74 79 70 65 73 |tblk="Fi|le types|
|00003590| 22 3a 66 74 62 6c 6b 21 | 31 32 3d 26 37 30 32 30 |":ftblk!|12=&7020|
|000035a0| 37 0d 11 26 2b 20 66 74 | 62 6c 6b 21 31 36 3d 31 |7..&+ ft|blk!16=1|
|000035b0| 36 2a 31 32 3a 66 74 62 | 6c 6b 21 32 30 3d 26 32 |6*12:ftb|lk!20=&2|
|000035c0| 38 3a 66 74 62 6c 6b 21 | 32 34 3d 30 0d 11 30 2a |8:ftblk!|24=0..0*|
|000035d0| 20 69 6c 65 6e 3d 6d 6c | 65 6e 2b 66 74 62 6c 6b | ilen=ml|en+ftblk|
|000035e0| 3a 6d 6c 65 6e 3d 69 6c | 65 6e 2d 32 34 3a 6d 73 |:mlen=il|en-24:ms|
|000035f0| 74 3d 6d 6c 65 6e 0d 11 | 3a 4a 20 c8 99 20 26 32 |t=mlen..|:J .. &2|
|00003600| 30 30 32 33 2c 22 46 69 | 6c 65 24 54 79 70 65 5f |0023,"Fi|le$Type_|
|00003610| 2a 22 2c 6d 65 73 73 61 | 67 65 5f 62 75 66 66 65 |*",messa|ge_buffe|
|00003620| 72 25 2c 32 35 36 2c 30 | 20 b8 20 2c 2c 6c 65 6e |r%,256,0| . ,,len|
|00003630| 2c 6e 61 6d 65 2c 74 79 | 70 65 3b 66 6c 61 67 73 |,name,ty|pe;flags|
|00003640| 0d 11 44 15 20 c8 95 20 | 28 66 6c 61 67 73 20 80 |..D. .. |(flags .|
|00003650| 31 29 3c 3e 31 0d 11 4e | 10 20 20 e7 20 74 79 70 |1)<>1..N|. . typ|
|00003660| 65 3d 30 20 8c 0d 11 58 | 4f 20 20 20 6d 65 73 73 |e=0 ...X|O mess|
|00003670| 61 67 65 5f 62 75 66 66 | 65 72 25 21 6c 65 6e 3d |age_buff|er%!len=|
|00003680| 30 3a 6e 24 3d c2 a4 73 | 74 72 69 6e 67 30 28 6e |0:n$=..s|tring0(n|
|00003690| 61 6d 65 29 2c 33 29 3a | 76 24 3d a4 73 74 72 69 |ame),3):|v$=.stri|
|000036a0| 6e 67 30 28 6d 65 73 73 | 61 67 65 5f 62 75 66 66 |ng0(mess|age_buff|
|000036b0| 65 72 25 29 0d 11 62 19 | 20 20 20 6d 6c 65 6e 21 |er%)..b.| mlen!|
|000036c0| 30 3d 30 3a 6d 6c 65 6e | 21 34 3d 2d 31 0d 11 6c |0=0:mlen|!4=-1..l|
|000036d0| 2e 20 20 20 c8 99 20 22 | 58 57 69 6d 70 5f 53 70 |. .. "|XWimp_Sp|
|000036e0| 72 69 74 65 4f 70 22 2c | 32 34 2c 2c 22 53 6d 61 |riteOp",|24,,"Sma|
|000036f0| 6c 6c 5f 22 2b 6e 24 20 | b8 3b 66 0d 11 76 12 20 |ll_"+n$ |.;f..v. |
|00003700| 20 20 e7 20 28 66 20 80 | 31 29 3d 31 8c 0d 11 80 | . (f .|1)=1....|
|00003710| 2e 20 20 20 20 c8 99 20 | 22 58 57 69 6d 70 5f 53 |. .. |"XWimp_S|
|00003720| 70 72 69 74 65 4f 70 22 | 2c 32 34 2c 2c 22 46 69 |priteOp"|,24,,"Fi|
|00003730| 6c 65 5f 22 2b 6e 24 20 | b8 3b 66 0d 11 8a 2f 20 |le_"+n$ |.;f.../ |
|00003740| 20 20 20 e7 20 28 66 20 | 80 31 29 3d 30 8c 6e 24 | . (f |.1)=0.n$|
|00003750| 3d 22 46 69 6c 65 5f 22 | 2b 6e 24 20 8b 6e 24 3d |="File_"|+n$ .n$=|
|00003760| 22 46 69 6c 65 5f 78 78 | 78 22 0d 11 94 17 20 20 |"File_xx|x".... |
|00003770| 20 20 6d 6c 65 6e 21 38 | 3d 26 37 30 30 30 39 33 | mlen!8|=&700093|
|00003780| 33 0d 11 9e 08 20 20 20 | cc 0d 11 a8 26 20 20 20 |3.... |....& |
|00003790| 20 6e 24 3d 22 53 6d 61 | 6c 6c 5f 22 2b 6e 24 3a | n$="Sma|ll_"+n$:|
|000037a0| 6d 6c 65 6e 21 38 3d 26 | 37 30 30 30 31 33 33 0d |mlen!8=&|7000133.|
|000037b0| 11 b2 08 20 20 20 cd 0d | 11 bc 2a 20 20 20 6d 6c |... ..|..* ml|
|000037c0| 65 6e 21 31 32 3d 69 6c | 65 6e 3a 24 69 6c 65 6e |en!12=il|en:$ilen|
|000037d0| 3d 76 24 3a 69 6c 65 6e | 2b 3d a9 28 76 24 29 2b |=v$:ilen|+=.(v$)+|
|000037e0| 31 0d 11 c6 2e 20 20 20 | 6d 6c 65 6e 21 31 36 3d |1.... |mlen!16=|
|000037f0| 69 6c 65 6e 3a 24 69 6c | 65 6e 3d 22 73 22 2b 6e |ilen:$il|en="s"+n|
|00003800| 24 3a 69 6c 65 6e 2b 3d | a9 28 6e 24 29 2b 32 0d |$:ilen+=|.(n$)+2.|
|00003810| 11 d0 1f 20 20 20 6d 6c | 65 6e 21 32 30 3d a9 28 |... ml|en!20=.(|
|00003820| 76 24 29 2b 31 3a 6d 6c | 65 6e 2d 3d 32 34 0d 11 |v$)+1:ml|en-=24..|
|00003830| da 07 20 20 cd 0d 11 e4 | 4e 20 20 c8 99 20 26 32 |.. ....|N .. &2|
|00003840| 30 30 32 33 2c 22 46 69 | 6c 65 24 54 79 70 65 5f |0023,"Fi|le$Type_|
|00003850| 2a 22 2c 6d 65 73 73 61 | 67 65 5f 62 75 66 66 65 |*",messa|ge_buffe|
|00003860| 72 25 2c 32 35 36 2c 6e | 61 6d 65 20 b8 20 2c 2c |r%,256,n|ame . ,,|
|00003870| 6c 65 6e 2c 6e 61 6d 65 | 2c 74 79 70 65 3b 66 6c |len,name|,type;fl|
|00003880| 61 67 73 0d 11 ee 06 20 | ce 0d 11 f8 34 20 6d 6c |ags.... |....4 ml|
|00003890| 65 6e 21 30 3d 34 3a 6d | 6c 65 6e 21 34 3d 2d 31 |en!0=4:m|len!4=-1|
|000038a0| 3a 6d 6c 65 6e 21 38 3d | 26 37 30 30 30 31 32 31 |:mlen!8=|&7000121|
|000038b0| 3a 6d 6c 65 6e 21 31 32 | 3d 69 6c 65 6e 0d 12 02 |:mlen!12|=ilen...|
|000038c0| 3c 20 24 69 6c 65 6e 3d | 22 22 3a 69 6c 65 6e 2b |< $ilen=|"":ilen+|
|000038d0| 3d 39 3a 6d 6c 65 6e 21 | 31 36 3d 2d 31 3a 6d 6c |=9:mlen!|16=-1:ml|
|000038e0| 65 6e 21 32 30 3d 39 3a | 6d 6c 65 6e 2d 3d 32 34 |en!20=9:|mlen-=24|
|000038f0| 3a 21 6d 73 74 3d 26 38 | 30 0d 12 0c 05 cd 0d 12 |:!mst=&8|0.......|
|00003900| 16 0a 3d 66 74 62 6c 6b | 0d 12 20 25 dd f2 72 65 |..=ftblk|.. %..re|
|00003910| 6c 65 61 73 65 66 74 6d | 65 6e 75 3a f2 72 65 6c |leaseftm|enu:.rel|
|00003920| 65 61 73 65 28 66 74 62 | 6c 6b 29 3a e1 0d 12 2a |ease(ftb|lk):...*|
|00003930| 05 3a 0d 12 34 39 f4 20 | 46 4e 63 72 65 61 74 65 |.:..49. |FNcreate|
|00003940| 6d 65 6e 75 20 3a 20 43 | 72 65 61 74 65 20 61 20 |menu : C|reate a |
|00003950| 6d 65 6e 75 20 67 69 76 | 65 6e 20 61 20 63 6f 6e |menu giv|en a con|
|00003960| 74 72 6f 6c 20 73 74 72 | 69 6e 67 0d 12 3e 13 f4 |trol str|ing..>..|
|00003970| 20 4d 65 6e 75 20 46 6f | 72 6d 61 74 20 3a 0d 12 | Menu Fo|rmat :..|
|00003980| 48 1a f4 20 54 69 74 6c | 65 7c 49 74 65 6d 7c 49 |H.. Titl|e|Item|I|
|00003990| 74 65 6d 7c 49 74 65 6d | 0d 12 52 18 f4 20 49 74 |tem|Item|..R.. It|
|000039a0| 65 6d 20 63 6f 6e 73 69 | 73 74 73 20 6f 66 20 3a |em consi|sts of :|
|000039b0| 0d 12 5c 1a f4 20 45 6e | 74 72 79 20 6f 72 20 45 |..\.. En|try or E|
|000039c0| 6e 74 72 79 5d 46 6c 61 | 67 73 0d 12 66 2a f4 20 |ntry]Fla|gs..f*. |
|000039d0| 46 6c 61 67 73 20 63 61 | 6e 20 62 65 20 3a 20 28 |Flags ca|n be : (|
|000039e0| 73 65 70 61 72 61 74 65 | 64 20 62 79 20 63 6f 6d |separate|d by com|
|000039f0| 6d 61 73 29 0d 12 70 13 | f4 20 20 54 20 66 6f 72 |mas)..p.|. T for|
|00003a00| 20 74 69 63 6b 65 64 0d | 12 7a 1e f4 20 20 44 20 | ticked.|.z.. D |
|00003a10| 66 6f 72 20 64 6f 74 74 | 65 64 20 75 6e 64 65 72 |for dott|ed under|
|00003a20| 6e 65 61 74 68 0d 12 84 | 15 f4 20 20 57 20 66 6f |neath...|.. W fo|
|00003a30| 72 20 77 72 69 74 61 62 | 6c 65 0d 12 8e 13 f4 20 |r writab|le..... |
|00003a40| 20 53 20 66 6f 72 20 73 | 68 61 64 65 64 0d 12 98 | S for s|haded...|
|00003a50| 3c f4 20 20 3e 20 66 6f | 6c 6c 6f 77 65 64 20 62 |<. > fo|llowed b|
|00003a60| 79 20 76 61 72 69 61 62 | 6c 65 20 66 6f 72 20 73 |y variab|le for s|
|00003a70| 75 62 2d 6d 65 6e 75 20 | 28 49 74 65 6d 5d 3e 73 |ub-menu |(Item]>s|
|00003a80| 75 62 6d 65 6e 75 25 7c | 29 0d 12 a2 32 f4 20 20 |ubmenu%||)...2. |
|00003a90| 7d 20 66 6f 6c 6c 6f 77 | 65 64 20 62 79 20 61 20 |} follow|ed by a |
|00003aa0| 73 70 72 69 74 65 20 6e | 61 6d 65 20 28 49 74 65 |sprite n|ame (Ite|
|00003ab0| 6d 5d 7d 73 70 72 69 74 | 65 7c 29 0d 12 ac 43 f4 |m]}sprit|e|)...C.|
|00003ac0| 20 4e 42 3a 54 68 65 20 | 6c 61 73 74 20 74 77 6f | NB:The |last two|
|00003ad0| 20 66 6c 61 67 73 20 63 | 61 6e 20 62 65 20 75 73 | flags c|an be us|
|00003ae0| 65 64 20 74 6f 67 65 74 | 68 65 72 20 69 66 20 63 |ed toget|her if c|
|00003af0| 6f 6d 6d 61 20 73 65 70 | 65 72 61 74 65 64 0d 12 |omma sep|erated..|
|00003b00| b6 20 f4 20 20 20 20 65 | 67 2e 20 49 6e 66 6f 5d |. . e|g. Info]|
|00003b10| 3e 69 6e 66 6f 25 2c 7d | 21 48 65 6c 70 7c 0d 12 |>info%,}|!Help|..|
|00003b20| c0 41 f4 20 4e 42 3a 49 | 66 20 74 68 65 20 73 70 |.A. NB:I|f the sp|
|00003b30| 72 69 74 65 6e 61 6d 65 | 20 73 74 61 72 74 73 20 |ritename| starts |
|00003b40| 77 69 74 68 20 73 6d 20 | 74 68 65 6e 20 74 68 65 |with sm |then the|
|00003b50| 20 73 70 72 69 74 65 20 | 77 69 6c 6c 20 62 65 0d | sprite |will be.|
|00003b60| 12 ca 3d f4 20 20 20 20 | 64 69 73 70 6c 61 79 65 |..=. |displaye|
|00003b70| 64 20 75 73 69 6e 67 20 | 69 74 73 20 73 6d 61 6c |d using |its smal|
|00003b80| 6c 20 66 6f 72 6d 2c 20 | 6f 74 68 65 72 77 69 73 |l form, |otherwis|
|00003b90| 65 20 69 74 20 77 69 6c | 6c 20 62 65 0d 12 d4 1d |e it wil|l be....|
|00003ba0| f4 20 20 20 20 73 68 72 | 75 6e 6b 20 74 6f 20 68 |. shr|unk to h|
|00003bb0| 61 6c 66 20 73 69 7a 65 | 2e 0d 12 de 14 dd a4 63 |alf size|.......c|
|00003bc0| 72 65 61 74 65 6d 65 6e | 75 28 41 24 29 0d 12 e8 |reatemen|u(A$)...|
|00003bd0| 38 ea 20 70 6f 69 6e 74 | 65 72 2c 70 32 2c 70 33 |8. point|er,p2,p3|
|00003be0| 2c 6c 2c 6d 66 2c 4f 24 | 2c 43 24 3a 70 6f 69 6e |,l,mf,O$|,C$:poin|
|00003bf0| 74 65 72 3d 6d 65 6e 75 | 25 3a 6c 3d 30 3a 41 24 |ter=menu|%:l=0:A$|
|00003c00| 2b 3d 22 7c 22 0d 12 f2 | 1b f2 6d 65 6e 75 70 75 |+="|"...|..menupu|
|00003c10| 74 73 28 a4 6d 67 65 74 | 28 41 24 2c 43 24 29 29 |ts(.mget|(A$,C$))|
|00003c20| 0d 12 fc 15 f2 6d 65 6e | 75 70 75 74 77 28 26 37 |.....men|uputw(&7|
|00003c30| 30 32 30 37 29 0d 13 06 | 1b 70 32 3d 6d 65 6e 75 |0207)...|.p2=menu|
|00003c40| 25 3a f2 6d 65 6e 75 70 | 75 74 77 28 26 38 30 29 |%:.menup|utw(&80)|
|00003c50| 0d 13 10 12 f2 6d 65 6e | 75 70 75 74 77 28 26 32 |.....men|uputw(&2|
|00003c60| 38 29 0d 13 1a 1b f2 6d | 65 6e 75 70 75 74 77 28 |8).....m|enuputw(|
|00003c70| 30 29 3a 6f 70 74 69 6f | 6e 73 25 3d 30 0d 13 24 |0):optio|ns%=0..$|
|00003c80| 05 f5 0d 13 2e 28 20 4f | 24 3d a4 6d 67 65 74 28 |.....( O|$=.mget(|
|00003c90| 41 24 2c 43 24 29 3a 6f | 70 74 69 6f 6e 73 25 3d |A$,C$):o|ptions%=|
|00003ca0| 6f 70 74 69 6f 6e 73 25 | 2b 31 0d 13 38 2d 20 66 |options%|+1..8- f|
|00003cb0| 6c 61 67 73 3d a4 6d 64 | 65 63 6f 64 65 28 43 24 |lags=.md|ecode(C$|
|00003cc0| 2c 70 33 2c 73 24 29 2b | 28 28 2d 28 41 24 3d 22 |,p3,s$)+|((-(A$="|
|00003cd0| 22 29 29 3c 3c 37 29 0d | 13 42 3c 20 66 6c 61 67 |"))<<7).|.B< flag|
|00003ce0| 73 32 3d 26 37 30 30 30 | 30 32 31 2b 28 28 2d 28 |s2=&7000|021+((-(|
|00003cf0| a9 28 4f 24 29 3e 31 31 | 29 29 3c 3c 38 29 2b 28 |.(O$)>11|))<<8)+(|
|00003d00| 31 3c 3c 31 34 29 2a 28 | 66 6c 61 67 73 20 80 32 |1<<14)*(|flags .2|
|00003d10| 35 36 29 0d 13 4c 2a 20 | e7 20 28 66 6c 61 67 73 |56)..L* |. (flags|
|00003d20| 20 80 20 34 29 3c 3e 30 | 20 8c 66 6c 61 67 73 32 | . 4)<>0| .flags2|
|00003d30| 3d 66 6c 61 67 73 32 20 | 84 20 32 35 36 0d 13 56 |=flags2 |. 256..V|
|00003d40| 1b 20 f2 6d 65 6e 75 70 | 75 74 77 28 66 6c 61 67 |. .menup|utw(flag|
|00003d50| 73 20 80 20 32 35 35 29 | 0d 13 60 12 20 f2 6d 65 |s . 255)|..`. .me|
|00003d60| 6e 75 70 75 74 77 28 70 | 33 29 0d 13 6a 16 20 e7 |nuputw(p|3)..j. .|
|00003d70| a9 28 4f 24 29 3e 6c 20 | 8c 6c 3d a9 28 4f 24 29 |.(O$)>l |.l=.(O$)|
|00003d80| 0d 13 74 16 20 f2 6d 65 | 6e 75 70 75 74 77 28 66 |..t. .me|nuputw(f|
|00003d90| 6c 61 67 73 32 29 0d 13 | 7e 23 20 f2 6d 65 6e 75 |lags2)..|~# .menu|
|00003da0| 73 74 72 69 6e 67 28 4f | 24 2c 73 24 2c 28 66 6c |string(O|$,s$,(fl|
|00003db0| 61 67 73 20 80 20 34 29 | 29 0d 13 88 0a fd 41 24 |ags . 4)|).....A$|
|00003dc0| 3d 22 22 0d 13 92 0f 21 | 70 32 3d 6c 2a 31 36 2b |=""....!|p2=l*16+|
|00003dd0| 31 36 0d 13 9c 0c 3d 70 | 6f 69 6e 74 65 72 0d 13 |16....=p|ointer..|
|00003de0| a6 1c dd f2 6d 65 6e 75 | 73 74 72 69 6e 67 28 54 |....menu|string(T|
|00003df0| 24 2c 73 24 2c 66 6c 61 | 67 29 0d 13 b0 1f e7 a9 |$,s$,fla|g)......|
|00003e00| 28 54 24 29 3c 31 32 20 | 80 20 73 24 3d 22 22 20 |(T$)<12 |. s$="" |
|00003e10| 80 20 66 6c 61 67 3d 30 | 8c 0d 13 ba 12 20 f2 6d |. flag=0|..... .m|
|00003e20| 65 6e 75 70 75 74 73 28 | 54 24 29 0d 13 c4 05 cc |enuputs(|T$).....|
|00003e30| 0d 13 ce 1d 20 f2 6d 65 | 6e 75 70 75 74 77 28 a4 |.... .me|nuputw(.|
|00003e40| 69 6e 64 69 72 65 63 74 | 28 54 24 29 29 0d 13 d8 |indirect|(T$))...|
|00003e50| 0f 20 e7 20 73 24 3c 3e | 22 22 20 8c 0d 13 e2 1e |. . s$<>|"" .....|
|00003e60| 20 20 6d 65 6e 75 25 21 | 2d 38 3d 6d 65 6e 75 25 | menu%!|-8=menu%|
|00003e70| 21 2d 38 20 84 20 26 38 | 30 33 0d 13 ec 34 20 20 |!-8 . &8|03...4 |
|00003e80| e7 c0 a4 6c 6f 77 65 72 | 28 73 24 29 2c 32 29 3d |...lower|(s$),2)=|
|00003e90| 22 73 6d 22 20 8c 6d 65 | 6e 75 25 21 2d 38 3d 6d |"sm" .me|nu%!-8=m|
|00003ea0| 65 6e 75 25 21 2d 38 20 | 82 20 26 38 30 30 0d 13 |enu%!-8 |. &800..|
|00003eb0| f6 22 20 20 f2 6d 65 6e | 75 70 75 74 77 28 a4 69 |." .men|uputw(.i|
|00003ec0| 6e 64 69 72 65 63 74 28 | 22 53 22 2b 73 24 29 29 |ndirect(|"S"+s$))|
|00003ed0| 0d 14 00 06 20 cc 0d 14 | 0a 13 20 20 f2 6d 65 6e |.... ...|.. .men|
|00003ee0| 75 70 75 74 77 28 2d 31 | 29 0d 14 14 06 20 cd 0d |uputw(-1|).... ..|
|00003ef0| 14 1e 15 20 f2 6d 65 6e | 75 70 75 74 77 28 a9 28 |... .men|uputw(.(|
|00003f00| 54 24 29 29 0d 14 28 05 | cd 0d 14 32 05 e1 0d 14 |T$))..(.|...2....|
|00003f10| 3c 15 dd a4 6d 67 65 74 | 28 f8 20 41 24 2c f8 20 |<...mget|(. A$,. |
|00003f20| 43 24 29 0d 14 46 1b ea | 20 42 24 3a 42 24 3d c0 |C$)..F..| B$:B$=.|
|00003f30| 41 24 2c a7 41 24 2c 22 | 7c 22 29 2d 31 29 0d 14 |A$,.A$,"||")-1)..|
|00003f40| 50 27 41 24 3d c1 41 24 | 2c a9 28 42 24 29 2b 32 |P'A$=.A$|,.(B$)+2|
|00003f50| 29 3a e7 a7 42 24 2c 22 | 5d 22 29 3c 31 8c 42 24 |):..B$,"|]")<1.B$|
|00003f60| 2b 3d 22 5d 22 0d 14 5a | 29 43 24 3d c1 42 24 2c |+="]"..Z|)C$=.B$,|
|00003f70| a7 42 24 2c 22 5d 22 29 | 2b 31 29 3a 42 24 3d c0 |.B$,"]")|+1):B$=.|
|00003f80| 42 24 2c a7 42 24 2c 22 | 5d 22 29 2d 31 29 0d 14 |B$,.B$,"|]")-1)..|
|00003f90| 64 07 3d 42 24 0d 14 6e | 3a dd f2 6d 65 6e 75 70 |d.=B$..n|:..menup|
|00003fa0| 75 74 73 28 54 24 29 3a | e7 a9 28 54 24 29 3e 31 |uts(T$):|..(T$)>1|
|00003fb0| 31 20 8c 85 20 26 38 30 | 33 2c 22 4d 65 6e 75 20 |1 .. &80|3,"Menu |
|00003fc0| 65 6e 74 72 79 20 74 6f | 6f 20 6c 6f 6e 67 22 0d |entry to|o long".|
|00003fd0| 14 78 22 24 6d 65 6e 75 | 25 3d 54 24 3a 6d 65 6e |.x"$menu|%=T$:men|
|00003fe0| 75 25 2b 3d 31 32 3a 6d | 65 6e 75 6c 25 2d 3d 31 |u%+=12:m|enul%-=1|
|00003ff0| 32 0d 14 82 34 e7 6d 65 | 6e 75 6c 25 3c 3d 34 20 |2...4.me|nul%<=4 |
|00004000| 8c 85 20 26 38 30 33 2c | 22 4e 6f 74 20 65 6e 6f |.. &803,|"Not eno|
|00004010| 75 67 68 20 6d 65 6d 6f | 72 79 20 66 6f 72 20 6d |ugh memo|ry for m|
|00004020| 65 6e 75 73 22 0d 14 8c | 05 e1 0d 14 96 12 dd f2 |enus"...|........|
|00004030| 6d 65 6e 75 70 75 74 77 | 28 57 25 29 0d 14 a0 20 |menuputw|(W%)... |
|00004040| 21 6d 65 6e 75 25 3d 57 | 25 3a 6d 65 6e 75 25 2b |!menu%=W|%:menu%+|
|00004050| 3d 34 3a 6d 65 6e 75 6c | 25 2d 3d 34 0d 14 aa 34 |=4:menul|%-=4...4|
|00004060| e7 6d 65 6e 75 6c 25 3c | 3d 34 20 8c 85 20 26 38 |.menul%<|=4 .. &8|
|00004070| 30 33 2c 22 4e 6f 74 20 | 65 6e 6f 75 67 68 20 6d |03,"Not |enough m|
|00004080| 65 6d 6f 72 79 20 66 6f | 72 20 6d 65 6e 75 73 22 |emory fo|r menus"|
|00004090| 0d 14 b4 05 e1 0d 14 be | 1a dd a4 6d 64 65 63 6f |........|...mdeco|
|000040a0| 64 65 28 41 24 2c f8 20 | 70 2c f8 20 73 24 29 0d |de(A$,. |p,. s$).|
|000040b0| 14 c8 22 ea 20 42 24 2c | 43 24 2c 56 3a 70 3d 2d |..". B$,|C$,V:p=-|
|000040c0| 31 3a 73 24 3d 22 22 3a | 41 24 3d 41 24 2b 22 2c |1:s$="":|A$=A$+",|
|000040d0| 22 0d 14 d2 0d c8 95 20 | 41 24 3c 3e 22 22 0d 14 |"...... |A$<>""..|
|000040e0| dc 18 20 42 24 3d c0 41 | 24 2c 31 29 3a 41 24 3d |.. B$=.A|$,1):A$=|
|000040f0| c1 41 24 2c 32 29 0d 14 | e6 14 20 e7 42 24 3d 22 |.A$,2)..|.. .B$="|
|00004100| 54 22 8c 56 3d 56 20 84 | 20 31 0d 14 f0 14 20 e7 |T".V=V .| 1.... .|
|00004110| 42 24 3d 22 44 22 8c 56 | 3d 56 20 84 20 32 0d 14 |B$="D".V|=V . 2..|
|00004120| fa 14 20 e7 42 24 3d 22 | 57 22 8c 56 3d 56 20 84 |.. .B$="|W".V=V .|
|00004130| 20 34 0d 15 04 16 20 e7 | 42 24 3d 22 53 22 8c 56 | 4.... .|B$="S".V|
|00004140| 3d 56 20 84 20 32 35 36 | 0d 15 0e 0d 20 e7 42 24 |=V . 256|.... .B$|
|00004150| 3d 22 3e 22 8c 0d 15 18 | 2d 20 20 70 3d a0 28 c0 |=">"....|- p=.(.|
|00004160| 41 24 2c a7 41 24 2c 22 | 2c 22 29 2d 31 29 29 3a |A$,.A$,"|,")-1)):|
|00004170| 41 24 3d c1 41 24 2c a7 | 41 24 2c 22 2c 22 29 2b |A$=.A$,.|A$,",")+|
|00004180| 31 29 0d 15 22 06 20 cd | 0d 15 2c 0d 20 e7 42 24 |1)..". .|..,. .B$|
|00004190| 3d 22 7d 22 8c 0d 15 36 | 2f 20 20 73 24 3d c0 41 |="}"...6|/ s$=.A|
|000041a0| 24 2c a7 41 24 2c 22 2c | 22 29 2d 31 29 2b 22 20 |$,.A$,",|")-1)+" |
|000041b0| 22 3a 41 24 3d c1 41 24 | 2c a7 41 24 2c 22 2c 22 |":A$=.A$|,.A$,","|
|000041c0| 29 2b 31 29 0d 15 40 06 | 20 cd 0d 15 4a 05 ce 0d |)+1)..@.| ...J...|
|000041d0| 15 54 06 3d 56 0d 15 5e | 05 3a 0d 15 68 40 f4 20 |.T.=V..^|.:..h@. |
|000041e0| 46 4e 73 79 73 74 65 6d | 76 61 72 20 3a 20 52 65 |FNsystem|var : Re|
|000041f0| 74 75 72 6e 20 74 68 65 | 20 63 6f 6e 74 65 6e 74 |turn the| content|
|00004200| 73 20 6f 66 20 61 6e 79 | 20 73 74 72 69 6e 67 20 |s of any| string |
|00004210| 73 79 73 74 65 6d 20 76 | 61 72 0d 15 72 1c dd a4 |system v|ar..r...|
|00004220| 73 79 73 74 65 6d 76 61 | 72 28 56 61 72 24 29 3a |systemva|r(Var$):|
|00004230| ea 20 61 64 64 72 0d 15 | 7c 3a c8 99 20 22 58 4f |. addr..||:.. "XO|
|00004240| 53 5f 52 65 61 64 56 61 | 72 56 61 6c 22 2c 56 61 |S_ReadVa|rVal",Va|
|00004250| 72 24 2c 6d 65 73 73 61 | 67 65 5f 62 75 66 66 65 |r$,messa|ge_buffe|
|00004260| 72 25 2c 32 35 35 2c 30 | 2c 33 b8 2c 2c 6c 65 6e |r%,255,0|,3.,,len|
|00004270| 0d 15 86 1a 6d 65 73 73 | 61 67 65 5f 62 75 66 66 |....mess|age_buff|
|00004280| 65 72 25 3f 6c 65 6e 3d | 31 33 0d 15 90 15 3d 24 |er%?len=|13....=$|
|00004290| 6d 65 73 73 61 67 65 5f | 62 75 66 66 65 72 25 0d |message_|buffer%.|
|000042a0| 15 9a 05 3a 0d 15 a4 38 | f4 20 46 4e 73 74 72 69 |...:...8|. FNstri|
|000042b0| 6e 67 30 20 3a 20 52 65 | 74 75 72 6e 20 30 2d 74 |ng0 : Re|turn 0-t|
|000042c0| 65 72 6d 69 6e 61 74 65 | 64 20 73 74 72 69 6e 67 |erminate|d string|
|000042d0| 20 61 74 20 6c 6f 63 61 | 74 69 6f 6e 0d 15 ae 10 | at loca|tion....|
|000042e0| dd a4 73 74 72 69 6e 67 | 30 28 61 29 0d 15 b8 08 |..string|0(a)....|
|000042f0| ea 20 41 24 0d 15 c2 1c | f5 3a 41 24 3d 41 24 2b |. A$....|.:A$=A$+|
|00004300| bd 3f 61 3a 61 3d 61 2b | 31 3a fd 3f 61 3c 33 32 |.?a:a=a+|1:.?a<32|
|00004310| 0d 15 cc 07 3d 41 24 0d | 15 d6 05 3a 0d 15 e0 3f |....=A$.|...:...?|
|00004320| f4 20 46 4e 67 65 74 69 | 63 6f 6e 73 74 61 74 65 |. FNgeti|constate|
|00004330| 20 3a 20 52 65 74 75 72 | 6e 20 31 20 69 66 20 69 | : Retur|n 1 if i|
|00004340| 63 6f 6e 20 69 73 20 73 | 65 6c 65 63 74 65 64 2c |con is s|elected,|
|00004350| 30 20 6f 74 68 65 72 77 | 69 73 65 0d 15 ea 1f dd |0 otherw|ise.....|
|00004360| 20 a4 67 65 74 69 63 6f | 6e 73 74 61 74 65 28 77 | .getico|nstate(w|
|00004370| 69 6e 25 2c 69 63 6f 6e | 25 29 0d 15 f4 32 21 62 |in%,icon|%)...2!b|
|00004380| 25 3d 77 69 6e 25 3a 62 | 25 21 34 3d 69 63 6f 6e |%=win%:b|%!4=icon|
|00004390| 25 3a c8 99 20 22 57 69 | 6d 70 5f 47 65 74 49 63 |%:.. "Wi|mp_GetIc|
|000043a0| 6f 6e 53 74 61 74 65 22 | 2c 2c 62 25 0d 15 fe 16 |onState"|,,b%....|
|000043b0| 3d 28 62 25 21 32 34 3e | 3e 32 31 20 80 20 31 29 |=(b%!24>|>21 . 1)|
|000043c0| 3e 30 0d 16 08 05 3a 0d | 16 12 32 f4 20 50 52 4f |>0....:.|..2. PRO|
|000043d0| 43 69 63 6f 6e 73 68 61 | 64 65 20 3a 20 73 68 61 |Ciconsha|de : sha|
|000043e0| 64 65 2f 75 6e 73 68 61 | 64 65 2f 74 6f 67 67 6c |de/unsha|de/toggl|
|000043f0| 65 20 61 6e 20 69 63 6f | 6e 0d 16 1c 34 f4 20 50 |e an ico|n...4. P|
|00004400| 52 4f 43 69 63 6f 6e 73 | 74 61 74 65 20 3a 20 73 |ROCicons|tate : s|
|00004410| 65 6c 65 63 74 2f 75 6e | 73 65 6c 65 63 74 2f 74 |elect/un|select/t|
|00004420| 6f 67 67 6c 65 20 61 6e | 20 69 63 6f 6e 0d 16 26 |oggle an| icon..&|
|00004430| 21 dd f2 69 63 6f 6e 73 | 68 61 64 65 28 77 69 6e |!..icons|hade(win|
|00004440| 25 2c 69 63 6f 6e 25 2c | 74 79 70 65 25 29 0d 16 |%,icon%,|type%)..|
|00004450| 30 24 f2 73 65 74 69 63 | 6f 6e 62 69 74 28 77 69 |0$.setic|onbit(wi|
|00004460| 6e 25 2c 69 63 6f 6e 25 | 2c 32 32 2c 74 79 70 65 |n%,icon%|,22,type|
|00004470| 25 29 0d 16 3a 05 e1 0d | 16 44 21 dd f2 69 63 6f |%)..:...|.D!..ico|
|00004480| 6e 73 74 61 74 65 28 77 | 69 6e 25 2c 69 63 6f 6e |nstate(w|in%,icon|
|00004490| 25 2c 74 79 70 65 25 29 | 0d 16 4e 24 f2 73 65 74 |%,type%)|..N$.set|
|000044a0| 69 63 6f 6e 62 69 74 28 | 77 69 6e 25 2c 69 63 6f |iconbit(|win%,ico|
|000044b0| 6e 25 2c 32 31 2c 74 79 | 70 65 25 29 0d 16 58 05 |n%,21,ty|pe%)..X.|
|000044c0| e1 0d 16 62 27 dd f2 73 | 65 74 69 63 6f 6e 62 69 |...b'..s|eticonbi|
|000044d0| 74 28 77 69 6e 25 2c 69 | 63 6f 6e 25 2c 62 69 74 |t(win%,i|con%,bit|
|000044e0| 25 2c 74 79 70 65 25 29 | 0d 16 6c 0b ea 20 73 25 |%,type%)|..l.. s%|
|000044f0| 2c 74 25 0d 16 76 0e c8 | 8e 20 74 79 70 65 25 20 |,t%..v..|. type% |
|00004500| ca 0d 16 80 1e 20 c9 20 | 30 3a 73 25 3d 30 3c 3c |..... . |0:s%=0<<|
|00004510| 62 69 74 25 3a 74 25 3d | 31 3c 3c 62 69 74 25 0d |bit%:t%=|1<<bit%.|
|00004520| 16 8a 1e 20 c9 20 31 3a | 73 25 3d 31 3c 3c 62 69 |... . 1:|s%=1<<bi|
|00004530| 74 25 3a 74 25 3d 31 3c | 3c 62 69 74 25 0d 16 94 |t%:t%=1<|<bit%...|
|00004540| 1e 20 c9 20 32 3a 73 25 | 3d 31 3c 3c 62 69 74 25 |. . 2:s%|=1<<bit%|
|00004550| 3a 74 25 3d 30 3c 3c 62 | 69 74 25 0d 16 9e 05 cb |:t%=0<<b|it%.....|
|00004560| 0d 16 a8 29 62 25 21 30 | 3d 77 69 6e 25 3a 62 25 |...)b%!0|=win%:b%|
|00004570| 21 34 3d 69 63 6f 6e 25 | 3a 62 25 21 38 3d 73 25 |!4=icon%|:b%!8=s%|
|00004580| 3a 62 25 21 31 32 3d 74 | 25 0d 16 b2 1e c8 99 20 |:b%!12=t|%...... |
|00004590| 22 57 69 6d 70 5f 53 65 | 74 49 63 6f 6e 53 74 61 |"Wimp_Se|tIconSta|
|000045a0| 74 65 22 2c 2c 62 25 0d | 16 bc 05 e1 0d 16 c6 38 |te",,b%.|.......8|
|000045b0| dd f2 72 65 64 72 61 77 | 69 63 6f 6e 28 77 69 6e |..redraw|icon(win|
|000045c0| 25 2c 69 63 6f 6e 25 29 | 3a f2 73 65 74 69 63 6f |%,icon%)|:.setico|
|000045d0| 6e 62 69 74 28 77 69 6e | 25 2c 69 63 6f 6e 25 2c |nbit(win|%,icon%,|
|000045e0| 30 2c 33 29 0d 16 d0 05 | e1 0d 16 da 05 3a 0d 16 |0,3)....|.....:..|
|000045f0| e4 3c f4 20 46 4e 67 65 | 74 69 63 6f 6e 74 65 78 |.<. FNge|ticontex|
|00004600| 74 20 20 20 3a 20 72 65 | 74 75 72 6e 20 69 63 6f |t : re|turn ico|
|00004610| 6e 73 20 74 65 78 74 20 | 73 74 72 69 6e 67 20 28 |ns text |string (|
|00004620| 6f 72 20 73 70 72 69 74 | 65 29 0d 16 ee 39 f4 20 |or sprit|e)...9. |
|00004630| 50 52 4f 43 73 65 74 69 | 63 6f 6e 74 65 78 74 20 |PROCseti|context |
|00004640| 3a 20 73 65 74 20 69 63 | 6f 6e 73 20 74 65 78 74 |: set ic|ons text|
|00004650| 20 73 74 72 69 6e 67 20 | 28 6f 72 20 73 70 72 69 | string |(or spri|
|00004660| 74 65 29 0d 16 f8 1d dd | a4 67 65 74 69 63 6f 6e |te).....|.geticon|
|00004670| 74 65 78 74 28 77 69 6e | 25 2c 69 63 6f 6e 25 29 |text(win|%,icon%)|
|00004680| 0d 17 02 33 62 25 21 30 | 3d 77 69 6e 25 3a 62 25 |...3b%!0|=win%:b%|
|00004690| 21 34 3d 69 63 6f 6e 25 | 3a c8 99 20 22 57 69 6d |!4=icon%|:.. "Wim|
|000046a0| 70 5f 47 65 74 49 63 6f | 6e 53 74 61 74 65 22 2c |p_GetIco|nState",|
|000046b0| 2c 62 25 0d 17 0c 2a e7 | 20 28 28 62 25 21 32 34 |,b%...*.| ((b%!24|
|000046c0| 29 20 80 20 26 31 30 30 | 29 3d 30 20 8c 3d a4 73 |) . &100|)=0 .=.s|
|000046d0| 74 72 69 6e 67 30 28 62 | 25 2b 32 38 29 0d 17 16 |tring0(b|%+28)...|
|000046e0| 14 3d a4 73 74 72 69 6e | 67 30 28 62 25 21 32 38 |.=.strin|g0(b%!28|
|000046f0| 29 0d 17 20 23 dd f2 73 | 65 74 69 63 6f 6e 74 65 |).. #..s|eticonte|
|00004700| 78 74 28 77 69 6e 25 2c | 69 63 6f 6e 25 2c 74 65 |xt(win%,|icon%,te|
|00004710| 78 74 24 29 0d 17 2a 33 | 62 25 21 30 3d 77 69 6e |xt$)..*3|b%!0=win|
|00004720| 25 3a 62 25 21 34 3d 69 | 63 6f 6e 25 3a c8 99 20 |%:b%!4=i|con%:.. |
|00004730| 22 57 69 6d 70 5f 47 65 | 74 49 63 6f 6e 53 74 61 |"Wimp_Ge|tIconSta|
|00004740| 74 65 22 2c 2c 62 25 0d | 17 34 55 e7 20 28 28 62 |te",,b%.|.4U. ((b|
|00004750| 25 21 32 34 29 20 80 20 | 26 31 30 30 29 3d 30 20 |%!24) . |&100)=0 |
|00004760| 80 20 a9 28 74 65 78 74 | 24 29 3e 31 31 20 8c 20 |. .(text|$)>11 . |
|00004770| 85 20 26 38 30 33 2c 22 | 49 63 6f 6e 20 69 73 6e |. &803,"|Icon isn|
|00004780| 27 74 20 69 6e 64 69 72 | 65 63 74 65 64 20 28 23 |'t indir|ected (#|
|00004790| 22 2b c3 69 63 6f 6e 25 | 2b 22 29 22 0d 17 3e 1a |"+.icon%|+")"..>.|
|000047a0| e7 20 28 28 62 25 21 32 | 34 29 20 80 20 26 31 30 |. ((b%!2|4) . &10|
|000047b0| 30 29 3e 30 20 8c 0d 17 | 48 13 20 24 28 62 25 21 |0)>0 ...|H. $(b%!|
|000047c0| 32 38 29 3d 74 65 78 74 | 24 0d 17 52 05 cc 0d 17 |28)=text|$..R....|
|000047d0| 5c 54 20 e7 20 a9 28 74 | 65 78 74 24 29 3c 62 25 |\T . .(t|ext$)<b%|
|000047e0| 21 33 32 20 8c 24 28 62 | 25 2b 32 38 29 3d 74 65 |!32 .$(b|%+28)=te|
|000047f0| 78 74 24 20 8b 85 20 26 | 38 30 33 2c 22 54 65 78 |xt$ .. &|803,"Tex|
|00004800| 74 20 74 6f 6f 20 6c 6f | 6e 67 20 66 6f 72 20 69 |t too lo|ng for i|
|00004810| 63 6f 6e 20 28 23 22 2b | c3 69 63 6f 6e 25 2b 22 |con (#"+|.icon%+"|
|00004820| 29 22 0d 17 66 05 cd 0d | 17 70 27 62 25 21 30 3d |)"..f...|.p'b%!0=|
|00004830| 77 69 6e 25 3a 62 25 21 | 34 3d 69 63 6f 6e 25 3a |win%:b%!|4=icon%:|
|00004840| 62 25 21 38 3d 30 3a 62 | 25 21 31 32 3d 30 0d 17 |b%!8=0:b|%!12=0..|
|00004850| 7a 1e c8 99 20 22 57 69 | 6d 70 5f 53 65 74 49 63 |z... "Wi|mp_SetIc|
|00004860| 6f 6e 53 74 61 74 65 22 | 2c 2c 62 25 0d 17 84 05 |onState"|,,b%....|
|00004870| e1 0d 17 8e 05 3a 0d 17 | 98 37 f4 20 46 4e 67 65 |.....:..|.7. FNge|
|00004880| 74 69 63 6f 6e 76 61 6c | 69 64 20 20 20 3a 20 72 |ticonval|id : r|
|00004890| 65 74 75 72 6e 20 69 63 | 6f 6e 73 20 76 61 6c 69 |eturn ic|ons vali|
|000048a0| 64 61 74 69 6f 6e 20 73 | 74 72 69 6e 67 0d 17 a2 |dation s|tring...|
|000048b0| 34 f4 20 50 52 4f 43 73 | 65 74 69 63 6f 6e 76 61 |4. PROCs|eticonva|
|000048c0| 6c 69 64 20 3a 20 73 65 | 74 20 69 63 6f 6e 73 20 |lid : se|t icons |
|000048d0| 76 61 6c 69 64 61 74 69 | 6f 6e 20 73 74 72 69 6e |validati|on strin|
|000048e0| 67 0d 17 ac 3d f4 20 52 | 65 6d 65 6d 62 65 72 20 |g...=. R|emember |
|000048f0| 6e 6f 74 20 74 6f 20 65 | 78 63 65 65 64 20 74 68 |not to e|xceed th|
|00004900| 65 20 6f 72 69 67 69 6e | 61 6c 20 76 61 6c 69 64 |e origin|al valid|
|00004910| 61 74 69 6f 6e 20 73 74 | 72 69 6e 67 27 73 0d 17 |ation st|ring's..|
|00004920| b6 0d f4 20 6c 65 6e 67 | 74 68 2e 0d 17 c0 1e dd |... leng|th......|
|00004930| a4 67 65 74 69 63 6f 6e | 76 61 6c 69 64 28 77 69 |.geticon|valid(wi|
|00004940| 6e 25 2c 69 63 6f 6e 25 | 29 0d 17 ca 33 62 25 21 |n%,icon%|)...3b%!|
|00004950| 30 3d 77 69 6e 25 3a 62 | 25 21 34 3d 69 63 6f 6e |0=win%:b|%!4=icon|
|00004960| 25 3a c8 99 20 22 57 69 | 6d 70 5f 47 65 74 49 63 |%:.. "Wi|mp_GetIc|
|00004970| 6f 6e 53 74 61 74 65 22 | 2c 2c 62 25 0d 17 d4 45 |onState"|,,b%...E|
|00004980| e7 20 28 28 62 25 21 32 | 34 29 20 80 20 26 31 30 |. ((b%!2|4) . &10|
|00004990| 30 29 3d 30 20 85 20 26 | 38 30 33 2c 22 49 63 6f |0)=0 . &|803,"Ico|
|000049a0| 6e 20 69 73 6e 27 74 20 | 69 6e 64 69 72 65 63 74 |n isn't |indirect|
|000049b0| 65 64 20 28 23 22 2b c3 | 69 63 6f 6e 25 2b 22 29 |ed (#"+.|icon%+")|
|000049c0| 22 0d 17 de 14 3d a4 73 | 74 72 69 6e 67 30 28 62 |"....=.s|tring0(b|
|000049d0| 25 21 33 32 29 0d 17 e8 | 24 dd f2 73 65 74 69 63 |%!32)...|$..setic|
|000049e0| 6f 6e 76 61 6c 69 64 28 | 77 69 6e 25 2c 69 63 6f |onvalid(|win%,ico|
|000049f0| 6e 25 2c 74 65 78 74 24 | 29 0d 17 f2 33 62 25 21 |n%,text$|)...3b%!|
|00004a00| 30 3d 77 69 6e 25 3a 62 | 25 21 34 3d 69 63 6f 6e |0=win%:b|%!4=icon|
|00004a10| 25 3a c8 99 20 22 57 69 | 6d 70 5f 47 65 74 49 63 |%:.. "Wi|mp_GetIc|
|00004a20| 6f 6e 53 74 61 74 65 22 | 2c 2c 62 25 0d 17 fc 47 |onState"|,,b%...G|
|00004a30| e7 20 28 28 62 25 21 32 | 34 29 20 80 20 26 31 30 |. ((b%!2|4) . &10|
|00004a40| 30 29 3d 30 20 8c 20 85 | 20 26 38 30 33 2c 22 49 |0)=0 . .| &803,"I|
|00004a50| 63 6f 6e 20 69 73 6e 27 | 74 20 69 6e 64 69 72 65 |con isn'|t indire|
|00004a60| 63 74 65 64 20 28 23 22 | 2b c3 69 63 6f 6e 25 2b |cted (#"|+.icon%+|
|00004a70| 22 29 22 0d 18 06 12 24 | 28 62 25 21 33 32 29 3d |")"....$|(b%!32)=|
|00004a80| 74 65 78 74 24 0d 18 10 | 27 62 25 21 30 3d 77 69 |text$...|'b%!0=wi|
|00004a90| 6e 25 3a 62 25 21 34 3d | 69 63 6f 6e 25 3a 62 25 |n%:b%!4=|icon%:b%|
|00004aa0| 21 38 3d 30 3a 62 25 21 | 31 32 3d 30 0d 18 1a 1e |!8=0:b%!|12=0....|
|00004ab0| c8 99 20 22 57 69 6d 70 | 5f 53 65 74 49 63 6f 6e |.. "Wimp|_SetIcon|
|00004ac0| 53 74 61 74 65 22 2c 2c | 62 25 0d 18 24 05 e1 0d |State",,|b%..$...|
|00004ad0| 18 2e 05 3a 0d 18 38 31 | f4 20 46 4e 6c 6f 77 65 |...:..81|. FNlowe|
|00004ae0| 72 20 3a 20 52 65 74 75 | 72 6e 20 67 69 76 65 6e |r : Retu|rn given|
|00004af0| 20 73 74 72 69 6e 67 20 | 69 6e 20 6c 6f 77 65 72 | string |in lower|
|00004b00| 20 63 61 73 65 0d 18 42 | 31 f4 20 46 4e 75 70 70 | case..B|1. FNupp|
|00004b10| 65 72 20 3a 20 52 65 74 | 75 72 6e 20 67 69 76 65 |er : Ret|urn give|
|00004b20| 6e 20 73 74 72 69 6e 67 | 20 69 6e 20 75 70 70 65 |n string| in uppe|
|00004b30| 72 20 63 61 73 65 0d 18 | 4c 19 dd a4 6c 6f 77 65 |r case..|L...lowe|
|00004b40| 72 28 61 24 29 3a ea 20 | 63 24 2c 62 24 2c 49 0d |r(a$):. |c$,b$,I.|
|00004b50| 18 56 0e e3 49 3d 31 b8 | a9 28 61 24 29 0d 18 60 |.V..I=1.|.(a$)..`|
|00004b60| 0f 63 24 3d c1 61 24 2c | 49 2c 31 29 0d 18 6a 24 |.c$=.a$,|I,1)..j$|
|00004b70| e7 20 63 24 3e 3d 22 41 | 22 80 63 24 3c 3d 22 5a |. c$>="A|".c$<="Z|
|00004b80| 22 8c 63 24 3d bd 28 97 | 28 63 24 29 2b 33 32 29 |".c$=.(.|(c$)+32)|
|00004b90| 0d 18 74 10 62 24 2b 3d | 63 24 3a ed 3a 3d 62 24 |..t.b$+=|c$:.:=b$|
|00004ba0| 0d 18 7e 19 dd a4 75 70 | 70 65 72 28 61 24 29 3a |..~...up|per(a$):|
|00004bb0| ea 20 63 24 2c 62 24 2c | 49 0d 18 88 0e e3 49 3d |. c$,b$,|I.....I=|
|00004bc0| 31 b8 a9 28 61 24 29 0d | 18 92 0f 63 24 3d c1 61 |1..(a$).|...c$=.a|
|00004bd0| 24 2c 49 2c 31 29 0d 18 | 9c 24 e7 20 63 24 3e 3d |$,I,1)..|.$. c$>=|
|00004be0| 22 61 22 80 63 24 3c 3d | 22 7a 22 8c 63 24 3d bd |"a".c$<=|"z".c$=.|
|00004bf0| 28 97 28 63 24 29 2d 33 | 32 29 0d 18 a6 10 62 24 |(.(c$)-3|2)....b$|
|00004c00| 2b 3d 63 24 3a ed 3a 3d | 62 24 0d 18 b0 1c dd a4 |+=c$:.:=|b$......|
|00004c10| 74 69 64 79 28 61 24 29 | 3a ea 20 63 61 70 2c 62 |tidy(a$)|:. cap,b|
|00004c20| 24 2c 49 2c 63 24 0d 18 | ba 09 63 61 70 3d b9 0d |$,I,c$..|..cap=..|
|00004c30| 18 c4 0e e3 49 3d 31 b8 | a9 28 61 24 29 0d 18 ce |....I=1.|.(a$)...|
|00004c40| 32 20 62 24 3d c1 61 24 | 2c 49 2c 31 29 3a e7 20 |2 b$=.a$|,I,1):. |
|00004c50| 62 24 3e 3d 22 61 22 80 | 62 24 3c 3d 22 7a 22 20 |b$>="a".|b$<="z" |
|00004c60| 8c 62 24 3d bd 28 97 28 | 62 24 29 2d 33 32 29 0d |.b$=.(.(|b$)-32).|
|00004c70| 18 d8 17 20 e7 20 62 24 | 3c 22 41 22 20 84 62 24 |... . b$|<"A" .b$|
|00004c80| 3e 22 5a 22 20 8c 0d 18 | e2 0b 20 20 63 61 70 3d |>"Z" ...|.. cap=|
|00004c90| b9 0d 18 ec 06 20 cc 0d | 18 f6 24 20 20 e7 20 63 |..... ..|..$ . c|
|00004ca0| 61 70 3d a3 20 8c 62 24 | 3d bd 28 97 28 62 24 29 |ap=. .b$|=.(.(b$)|
|00004cb0| 2b 33 32 29 20 8b 63 61 | 70 3d a3 0d 19 00 0d 20 |+32) .ca|p=..... |
|00004cc0| cd 3a 63 24 2b 3d 62 24 | 0d 19 0a 09 ed 3a 3d 63 |.:c$+=b$|.....:=c|
|00004cd0| 24 0d 19 14 15 dd a4 73 | 74 72 69 70 73 70 61 63 |$......s|tripspac|
|00004ce0| 65 73 28 66 24 29 0d 19 | 1e 1d c8 95 20 c2 66 24 |es(f$)..|.... .f$|
|00004cf0| 2c 31 29 3d 22 20 22 20 | 84 20 c2 66 24 2c 31 29 |,1)=" " |. .f$,1)|
|00004d00| 3d bd 39 0d 19 28 0c 20 | 66 24 3d c0 66 24 29 0d |=.9..(. |f$=.f$).|
|00004d10| 19 32 05 ce 0d 19 3c 1d | c8 95 20 c0 66 24 2c 31 |.2....<.|.. .f$,1|
|00004d20| 29 3d 22 20 22 20 84 20 | c0 66 24 2c 31 29 3d bd |)=" " . |.f$,1)=.|
|00004d30| 39 0d 19 46 0e 20 66 24 | 3d c1 66 24 2c 32 29 0d |9..F. f$|=.f$,2).|
|00004d40| 19 50 05 ce 0d 19 5a 07 | 3d 66 24 0d 19 64 05 3a |.P....Z.|=f$..d.:|
|00004d50| 0d 19 6e 41 f4 20 46 4e | 47 65 74 45 6e 76 20 3a |..nA. FN|GetEnv :|
|00004d60| 20 52 65 74 75 72 6e 20 | 74 68 65 20 65 6e 76 69 | Return |the envi|
|00004d70| 72 6f 6e 6d 65 6e 74 20 | 73 74 72 69 6e 67 20 73 |ronment |string s|
|00004d80| 74 72 69 70 70 65 64 20 | 6f 66 20 6c 6f 61 64 65 |tripped |of loade|
|00004d90| 72 0d 19 78 19 dd 20 a4 | 47 65 74 45 6e 76 3a ea |r..x.. .|GetEnv:.|
|00004da0| 20 63 6f 6d 24 2c 49 2c | 70 24 0d 19 82 19 c8 99 | com$,I,|p$......|
|00004db0| 20 22 4f 53 5f 47 65 74 | 45 6e 76 22 20 b8 20 63 | "OS_Get|Env" . c|
|00004dc0| 6f 6d 24 0d 19 8c 1c 70 | 24 3d 22 22 3a 49 3d a7 |om$....p|$="":I=.|
|00004dd0| 63 6f 6d 24 2c 22 20 2d | 71 75 69 74 20 22 29 0d |com$," -|quit ").|
|00004de0| 19 96 0b e7 20 49 3e 30 | 20 8c 0d 19 a0 28 20 70 |.... I>0| ....( p|
|00004df0| 24 3d c1 63 6f 6d 24 2c | a7 63 6f 6d 24 2c 22 20 |$=.com$,|.com$," |
|00004e00| 22 2c 49 2b a9 22 20 2d | 71 75 69 74 20 22 29 2b |",I+." -|quit ")+|
|00004e10| 31 29 0d 19 aa 1e 20 c8 | 95 20 c0 70 24 2c 31 29 |1).... .|. .p$,1)|
|00004e20| 3d 22 20 22 3a 70 24 3d | c1 70 24 2c 32 29 3a ce |=" ":p$=|.p$,2):.|
|00004e30| 0d 19 b4 05 cd 0d 19 be | 07 3d 70 24 0d 19 c8 05 |........|.=p$....|
|00004e40| 3a 0d 19 d2 31 f4 20 46 | 4e 66 69 6c 65 74 79 70 |:...1. F|Nfiletyp|
|00004e50| 65 20 3a 20 52 65 74 75 | 72 6e 20 74 68 65 20 66 |e : Retu|rn the f|
|00004e60| 69 6c 65 20 74 79 70 65 | 20 6f 66 20 61 20 66 69 |ile type| of a fi|
|00004e70| 6c 65 0d 19 dc 1e dd 20 | a4 66 69 6c 65 74 79 70 |le..... |.filetyp|
|00004e80| 65 28 66 24 29 3a ea 20 | 66 25 2c 74 79 70 65 25 |e(f$):. |f%,type%|
|00004e90| 0d 19 e6 22 c8 99 20 22 | 4f 53 5f 46 69 6c 65 22 |...".. "|OS_File"|
|00004ea0| 2c 31 37 2c 66 24 20 b8 | 20 74 79 70 65 25 2c 2c |,17,f$ .| type%,,|
|00004eb0| 66 25 0d 19 f0 0e c8 8e | 20 74 79 70 65 25 20 ca |f%......| type% .|
|00004ec0| 0d 19 fa 11 20 c9 20 30 | 3a 74 79 70 65 25 3d 2d |.... . 0|:type%=-|
|00004ed0| 32 0d 1a 04 38 20 c9 20 | 31 3a e7 20 28 66 25 3e |2...8 . |1:. (f%>|
|00004ee0| 3e 3e 32 30 29 3d 26 46 | 46 46 20 8c 74 79 70 65 |>>20)=&F|FF .type|
|00004ef0| 25 3d 28 66 25 3e 3e 3e | 38 29 80 26 46 46 46 20 |%=(f%>>>|8).&FFF |
|00004f00| 8b 74 79 70 65 25 3d 2d | 31 0d 1a 0e 11 20 c9 20 |.type%=-|1.... . |
|00004f10| 32 3a 74 79 70 65 25 3d | 2d 33 0d 1a 18 05 cb 0d |2:type%=|-3......|
|00004f20| 1a 22 0a 3d 74 79 70 65 | 25 0d 1a 2c 32 f4 20 2d |.".=type|%..,2. -|
|00004f30| 33 20 3d 20 64 69 72 65 | 63 74 6f 72 79 2c 20 2d |3 = dire|ctory, -|
|00004f40| 32 20 3d 20 6e 6f 74 20 | 66 6f 75 6e 64 2c 20 2d |2 = not |found, -|
|00004f50| 31 20 3d 20 75 6e 74 79 | 70 65 64 0d 1a 36 05 3a |1 = unty|ped..6.:|
|00004f60| 0d 1a 40 30 f4 20 46 4e | 66 69 6c 65 6c 65 6e 67 |..@0. FN|fileleng|
|00004f70| 74 68 20 3a 20 52 65 74 | 75 72 6e 20 74 68 65 20 |th : Ret|urn the |
|00004f80| 6c 65 6e 67 74 68 20 6f | 66 20 61 20 66 69 6c 65 |length o|f a file|
|00004f90| 0d 1a 4a 1f dd 20 a4 66 | 69 6c 65 6c 65 6e 67 74 |..J.. .f|ilelengt|
|00004fa0| 68 28 66 24 29 3a ea 20 | 6c 65 6e 25 2c 65 78 0d |h(f$):. |len%,ex.|
|00004fb0| 1a 54 31 c8 99 20 22 4f | 53 5f 46 69 6c 65 22 2c |.T1.. "O|S_File",|
|00004fc0| 35 2c 66 24 20 b8 20 65 | 78 2c 2c 2c 2c 6c 65 6e |5,f$ . e|x,,,,len|
|00004fd0| 25 3a e7 20 65 78 3d 30 | 8c 6c 65 6e 25 3d 2d 31 |%:. ex=0|.len%=-1|
|00004fe0| 0d 1a 5e 09 3d 6c 65 6e | 25 0d 1a 68 05 3a 0d 1a |..^.=len|%..h.:..|
|00004ff0| 72 3b f4 20 46 4e 65 72 | 72 6f 72 62 6f 78 20 3a |r;. FNer|rorbox :|
|00005000| 20 63 72 65 61 74 65 20 | 61 6e 20 65 72 72 6f 72 | create |an error|
|00005010| 20 62 6f 78 20 77 69 74 | 68 20 75 70 20 74 6f 20 | box wit|h up to |
|00005020| 32 20 62 75 74 74 6f 6e | 73 0d 1a 7c 1d f4 20 42 |2 button|s..|.. B|
|00005030| 69 74 20 56 61 6c 75 65 | 20 45 66 66 65 63 74 20 |it Value| Effect |
|00005040| 69 66 20 73 65 74 0d 1a | 86 3f f4 20 20 30 20 20 |if set..|.?. 0 |
|00005050| 20 20 31 20 20 20 49 6e | 63 6c 75 64 65 20 61 6e | 1 In|clude an|
|00005060| 20 4f 4b 20 6f 70 74 69 | 6f 6e 20 20 20 20 7d 20 | OK opti|on } |
|00005070| 69 66 20 62 6f 74 68 20 | 75 6e 73 65 74 20 74 68 |if both |unset th|
|00005080| 65 6e 20 61 73 0d 1a 90 | 33 f4 20 20 31 20 20 20 |en as...|3. 1 |
|00005090| 20 32 20 20 20 49 6e 63 | 6c 75 64 65 20 61 20 43 | 2 Inc|lude a C|
|000050a0| 61 6e 63 65 6c 20 6f 70 | 74 69 6f 6e 20 7d 20 62 |ancel op|tion } b|
|000050b0| 69 74 20 30 20 73 65 74 | 0d 1a 9a 39 f4 20 20 32 |it 0 set|...9. 2|
|000050c0| 20 20 20 20 34 20 20 20 | 52 65 76 65 72 73 65 64 | 4 |Reversed|
|000050d0| 20 62 75 74 74 6f 6e 73 | 2c 20 4f 4b 3d 57 68 69 | buttons|, OK=Whi|
|000050e0| 74 65 2c 20 43 61 6e 63 | 65 6c 3d 59 65 6c 6c 6f |te, Canc|el=Yello|
|000050f0| 77 0d 1a a4 11 f4 20 20 | 33 20 20 20 20 38 20 20 |w..... |3 8 |
|00005100| 20 3f 0d 1a ae 3a f4 20 | 20 34 20 20 20 20 31 36 | ?...:. | 4 16|
|00005110| 20 20 54 69 74 6c 65 20 | 69 73 20 6a 75 73 74 20 | Title |is just |
|00005120| 74 69 74 6c 65 20 28 6e | 6f 74 20 45 72 72 6f 72 |title (n|ot Error|
|00005130| 20 66 72 6f 6d 20 74 69 | 74 6c 65 29 0d 1a b8 11 | from ti|tle)....|
|00005140| f4 20 20 35 20 20 20 20 | 33 32 20 20 3f 0d 1a c2 |. 5 |32 ?...|
|00005150| 11 f4 20 20 36 20 20 20 | 20 36 34 20 20 3f 0d 1a |.. 6 | 64 ?..|
|00005160| cc 1a f4 20 20 37 20 20 | 20 31 32 38 20 20 44 6f |... 7 | 128 Do|
|00005170| 6e 27 74 20 62 65 65 70 | 0d 1a d6 40 dd 20 a4 65 |n't beep|...@. .e|
|00005180| 72 72 6f 72 62 6f 78 28 | 74 69 74 6c 65 24 2c 6d |rrorbox(|title$,m|
|00005190| 65 73 73 61 67 65 24 2c | 62 75 74 74 6f 6e 25 29 |essage$,|button%)|
|000051a0| 3a 74 69 74 6c 65 24 3d | a4 6d 73 67 74 65 78 74 |:title$=|.msgtext|
|000051b0| 28 74 69 74 6c 65 24 29 | 0d 1a e0 1f 6d 65 73 73 |(title$)|....mess|
|000051c0| 61 67 65 24 3d a4 6d 73 | 67 74 65 78 74 28 6d 65 |age$=.ms|gtext(me|
|000051d0| 73 73 61 67 65 24 29 0d | 1a ea 34 24 28 6d 65 73 |ssage$).|..4$(mes|
|000051e0| 73 61 67 65 5f 62 75 66 | 66 65 72 25 2b 34 29 3d |sage_buf|fer%+4)=|
|000051f0| 6d 65 73 73 61 67 65 24 | 3a 21 6d 65 73 73 61 67 |message$|:!messag|
|00005200| 65 5f 62 75 66 66 65 72 | 25 3d 30 0d 1a f4 42 c8 |e_buffer|%=0...B.|
|00005210| 99 20 22 57 69 6d 70 5f | 52 65 70 6f 72 74 45 72 |. "Wimp_|ReportEr|
|00005220| 72 6f 72 22 2c 6d 65 73 | 73 61 67 65 5f 62 75 66 |ror",mes|sage_buf|
|00005230| 66 65 72 25 2c 62 75 74 | 74 6f 6e 25 2c 74 69 74 |fer%,but|ton%,tit|
|00005240| 6c 65 24 20 b8 20 2c 72 | 65 70 6c 79 25 0d 1a fe |le$ . ,r|eply%...|
|00005250| 0b 3d 72 65 70 6c 79 25 | 0d 1b 08 05 3a 0d 1b 12 |.=reply%|....:...|
|00005260| 26 f4 20 46 4e 63 6c 61 | 69 6d 20 20 20 3a 20 43 |&. FNcla|im : C|
|00005270| 6c 61 69 6d 20 61 6e 20 | 61 72 65 61 20 6f 66 20 |laim an |area of |
|00005280| 52 4d 41 0d 1b 1c 2f f4 | 20 46 4e 72 65 6c 65 61 |RMA.../.| FNrelea|
|00005290| 73 65 20 3a 20 52 65 6c | 65 61 73 65 20 61 20 63 |se : Rel|ease a c|
|000052a0| 6c 61 69 6d 65 64 20 61 | 72 65 61 20 6f 66 20 52 |laimed a|rea of R|
|000052b0| 4d 41 0d 1b 26 1c dd a4 | 63 6c 61 69 6d 28 6c 65 |MA..&...|claim(le|
|000052c0| 6e 67 74 68 25 29 3a ea | 20 66 6c 61 67 73 0d 1b |ngth%):.| flags..|
|000052d0| 30 2f c8 99 20 22 58 4f | 53 5f 4d 6f 64 75 6c 65 |0/.. "XO|S_Module|
|000052e0| 22 2c 36 2c 2c 2c 6c 65 | 6e 67 74 68 25 20 b8 20 |",6,,,le|ngth% . |
|000052f0| 2c 2c 61 72 65 61 25 3b | 66 6c 61 67 73 0d 1b 3a |,,area%;|flags..:|
|00005300| 1c e7 20 28 66 6c 61 67 | 73 20 80 31 29 3e 30 20 |.. (flag|s .1)>0 |
|00005310| 8c 61 72 65 61 25 3d 2d | 31 0d 1b 44 0a 3d 61 72 |.area%=-|1..D.=ar|
|00005320| 65 61 25 0d 1b 4e 14 dd | f2 72 65 6c 65 61 73 65 |ea%..N..|.release|
|00005330| 28 61 72 65 61 25 29 0d | 1b 58 26 e7 20 61 72 65 |(area%).|.X&. are|
|00005340| 61 25 3e 30 20 8c c8 99 | 20 22 4f 53 5f 4d 6f 64 |a%>0 ...| "OS_Mod|
|00005350| 75 6c 65 22 2c 37 2c 2c | 61 72 65 61 25 0d 1b 62 |ule",7,,|area%..b|
|00005360| 05 e1 0d 1b 6c 05 3a 0d | 1b 76 28 f4 20 50 52 4f |....l.:.|.v(. PRO|
|00005370| 43 77 69 6e 64 6f 77 74 | 69 74 6c 65 20 3a 20 53 |Cwindowt|itle : S|
|00005380| 65 74 20 77 69 6e 64 6f | 77 20 74 69 74 6c 65 0d |et windo|w title.|
|00005390| 1b 80 1f dd 20 f2 77 69 | 6e 64 6f 77 74 69 74 6c |.... .wi|ndowtitl|
|000053a0| 65 28 77 69 6e 25 2c 74 | 69 74 6c 65 24 29 0d 1b |e(win%,t|itle$)..|
|000053b0| 8a 2b 62 25 21 30 20 3d | 20 77 69 6e 25 3a c8 99 |.+b%!0 =| win%:..|
|000053c0| 20 22 57 69 6d 70 5f 47 | 65 74 57 69 6e 64 6f 77 | "Wimp_G|etWindow|
|000053d0| 49 6e 66 6f 22 2c 2c 62 | 25 0d 1b 94 22 6c 6f 63 |Info",,b|%..."loc|
|000053e0| 25 20 3d 20 21 28 62 25 | 2b 37 36 29 3a 24 6c 6f |% = !(b%|+76):$lo|
|000053f0| 63 25 20 3d 20 74 69 74 | 6c 65 24 0d 1b 9e 05 e1 |c% = tit|le$.....|
|00005400| 0d 1b a8 05 3a 0d 1b b2 | 33 f4 20 46 4e 74 61 73 |....:...|3. FNtas|
|00005410| 6b 6e 61 6d 65 20 20 20 | 20 20 20 20 20 3a 20 72 |kname | : r|
|00005420| 65 74 75 72 6e 20 61 20 | 67 69 76 65 6e 20 74 61 |eturn a |given ta|
|00005430| 73 6b 73 20 6e 61 6d 65 | 0d 1b bc 3c f4 20 46 4e |sks name|...<. FN|
|00005440| 77 69 6e 64 6f 77 74 61 | 73 6b 20 20 20 20 20 20 |windowta|sk |
|00005450| 3a 20 72 65 74 75 72 6e | 20 74 61 73 6b 20 68 61 |: return| task ha|
|00005460| 6e 64 6c 65 20 77 68 6f | 20 6f 77 6e 73 20 77 69 |ndle who| owns wi|
|00005470| 6e 64 6f 77 0d 1b c6 37 | f4 20 46 4e 72 65 61 64 |ndow...7|. FNread|
|00005480| 74 61 73 6b 73 74 72 69 | 6e 67 20 20 3a 20 72 65 |taskstri|ng : re|
|00005490| 61 64 20 61 20 73 74 72 | 69 6e 67 20 66 72 6f 6d |ad a str|ing from|
|000054a0| 20 67 69 76 65 6e 20 74 | 61 73 6b 0d 1b d0 36 f4 | given t|ask...6.|
|000054b0| 20 50 52 4f 43 72 65 61 | 64 61 74 61 73 6b 61 72 | PROCrea|dataskar|
|000054c0| 65 61 20 3a 20 72 65 61 | 64 20 61 20 62 6c 6f 63 |ea : rea|d a bloc|
|000054d0| 6b 20 66 72 6f 6d 20 67 | 69 76 65 6e 20 74 61 73 |k from g|iven tas|
|000054e0| 6b 0d 1b da 30 dd a4 74 | 61 73 6b 6e 61 6d 65 28 |k...0..t|askname(|
|000054f0| 74 61 73 6b 25 29 3a ea | 20 6e 61 6d 65 24 3a e7 |task%):.| name$:.|
|00005500| 20 74 61 73 6b 25 3c 31 | 20 8c 3d 22 4e 6f 6e 65 | task%<1| .="None|
|00005510| 22 0d 1b e4 35 c8 99 20 | 22 54 61 73 6b 4d 61 6e |"...5.. |"TaskMan|
|00005520| 61 67 65 72 5f 54 61 73 | 6b 4e 61 6d 65 46 72 6f |ager_Tas|kNameFro|
|00005530| 6d 48 61 6e 64 6c 65 22 | 2c 74 61 73 6b 25 20 b8 |mHandle"|,task% .|
|00005540| 20 6e 61 6d 65 24 0d 1b | ee 0a 3d 6e 61 6d 65 24 | name$..|..=name$|
|00005550| 0d 1b f8 1e dd a4 77 69 | 6e 64 6f 77 74 61 73 6b |......wi|ndowtask|
|00005560| 28 77 69 6e 25 29 3a ea | 20 74 61 73 6b 25 0d 1c |(win%):.| task%..|
|00005570| 02 31 c8 99 20 22 57 69 | 6d 70 5f 53 65 6e 64 4d |.1.. "Wi|mp_SendM|
|00005580| 65 73 73 61 67 65 22 2c | 31 39 2c 62 25 2c 77 69 |essage",|19,b%,wi|
|00005590| 6e 25 2c 2d 31 20 b8 20 | 2c 2c 74 61 73 6b 25 0d |n%,-1 . |,,task%.|
|000055a0| 1c 0c 0a 3d 74 61 73 6b | 25 0d 1c 16 25 dd a4 72 |...=task|%...%..r|
|000055b0| 65 61 64 74 61 73 6b 73 | 74 72 69 6e 67 28 74 61 |eadtasks|tring(ta|
|000055c0| 73 6b 25 2c 6c 6f 63 25 | 29 3a ea 20 70 24 0d 1c |sk%,loc%|):. p$..|
|000055d0| 20 33 c8 99 22 57 69 6d | 70 5f 54 72 61 6e 73 66 | 3.."Wim|p_Transf|
|000055e0| 65 72 42 6c 6f 63 6b 22 | 2c 74 61 73 6b 25 2c 6c |erBlock"|,task%,l|
|000055f0| 6f 63 25 2c 68 61 6e 64 | 6c 65 2c 62 25 2c 32 35 |oc%,hand|le,b%,25|
|00005600| 36 0d 1c 2a 11 3d a4 73 | 74 72 69 6e 67 30 28 62 |6..*.=.s|tring0(b|
|00005610| 25 29 0d 1c 34 27 dd f2 | 72 65 61 64 74 61 73 6b |%)..4'..|readtask|
|00005620| 61 72 65 61 28 74 61 73 | 6b 25 2c 6c 6f 63 25 2c |area(tas|k%,loc%,|
|00005630| 74 6f 25 2c 6c 65 6e 25 | 29 0d 1c 3e 35 c8 99 22 |to%,len%|)..>5.."|
|00005640| 57 69 6d 70 5f 54 72 61 | 6e 73 66 65 72 42 6c 6f |Wimp_Tra|nsferBlo|
|00005650| 63 6b 22 2c 74 61 73 6b | 25 2c 6c 6f 63 25 2c 68 |ck",task|%,loc%,h|
|00005660| 61 6e 64 6c 65 2c 74 6f | 25 2c 6c 65 6e 25 0d 1c |andle,to|%,len%..|
|00005670| 48 05 e1 0d 1c 52 05 3a | 0d 1c 5c 3f f4 20 46 4e |H....R.:|..\?. FN|
|00005680| 62 61 63 6b 6f 66 77 69 | 6e 73 74 61 63 6b 20 3a |backofwi|nstack :|
|00005690| 20 72 65 74 75 72 6e 20 | 77 69 6e 20 68 61 6e 64 | return |win hand|
|000056a0| 6c 65 20 6f 66 20 62 61 | 63 6b 20 6f 66 20 77 69 |le of ba|ck of wi|
|000056b0| 6e 20 73 74 61 63 6b 0d | 1c 66 3e f4 20 46 4e 77 |n stack.|.f>. FNw|
|000056c0| 69 6e 73 74 61 63 6b 6e | 65 78 74 20 20 20 3a 20 |instackn|ext : |
|000056d0| 72 65 74 75 72 6e 20 77 | 69 6e 20 68 61 6e 64 6c |return w|in handl|
|000056e0| 65 20 6f 66 20 6e 65 78 | 74 20 77 69 6e 20 66 6f |e of nex|t win fo|
|000056f0| 72 77 61 72 64 0d 1c 70 | 18 dd a4 62 61 63 6b 6f |rward..p|...backo|
|00005700| 66 77 69 6e 73 74 61 63 | 6b 3a ea 20 49 0d 1c 7a |fwinstac|k:. I..z|
|00005710| 2c 21 62 25 3d 69 6e 66 | 6f 62 6f 78 25 3a c8 99 |,!b%=inf|obox%:..|
|00005720| 22 57 69 6d 70 5f 47 65 | 74 57 69 6e 64 6f 77 53 |"Wimp_Ge|tWindowS|
|00005730| 74 61 74 65 22 2c 2c 62 | 25 0d 1c 84 0d e3 49 3d |tate",,b|%.....I=|
|00005740| 34 b8 31 36 88 34 0d 1c | 8e 15 20 62 25 21 49 3d |4.16.4..|.. b%!I=|
|00005750| 28 62 25 21 49 29 2d 34 | 30 39 36 0d 1c 98 06 ed |(b%!I)-4|096.....|
|00005760| 49 0d 1c a2 24 62 25 21 | 32 38 3d 2d 32 3a c8 99 |I...$b%!|28=-2:..|
|00005770| 22 57 69 6d 70 5f 4f 70 | 65 6e 57 69 6e 64 6f 77 |"Wimp_Op|enWindow|
|00005780| 22 2c 2c 62 25 0d 1c ac | 29 c8 99 22 57 69 6d 70 |",,b%...|).."Wimp|
|00005790| 5f 47 65 74 57 69 6e 64 | 6f 77 53 74 61 74 65 22 |_GetWind|owState"|
|000057a0| 2c 2c 62 25 3a 7a 63 25 | 3d 62 25 21 32 38 0d 1c |,,b%:zc%|=b%!28..|
|000057b0| b6 1c c8 99 22 57 69 6d | 70 5f 43 6c 6f 73 65 57 |...."Wim|p_CloseW|
|000057c0| 69 6e 64 6f 77 22 2c 2c | 62 25 0d 1c c0 08 3d 7a |indow",,|b%....=z|
|000057d0| 63 25 0d 1c ca 44 dd a4 | 77 69 6e 73 74 61 63 6b |c%...D..|winstack|
|000057e0| 6e 65 78 74 28 77 69 6e | 25 29 3a 21 62 25 3d 77 |next(win|%):!b%=w|
|000057f0| 69 6e 25 3a c8 99 22 57 | 69 6d 70 5f 47 65 74 57 |in%:.."W|imp_GetW|
|00005800| 69 6e 64 6f 77 53 74 61 | 74 65 22 2c 2c 62 25 3a |indowSta|te",,b%:|
|00005810| 3d 62 25 21 32 38 0d 1c | d4 05 3a 0d 1c de 18 dd |=b%!28..|..:.....|
|00005820| 20 a4 6c 65 61 66 6e 61 | 6d 65 28 66 24 29 3a ea | .leafna|me(f$):.|
|00005830| 20 72 24 0d 1c e8 11 c8 | 8e 20 a7 66 24 2c 22 2e | r$.....|. .f$,".|
|00005840| 22 29 20 ca 0d 1c f2 12 | 20 c9 20 30 20 20 20 20 |") .....| . 0 |
|00005850| 3a 72 24 3d 66 24 0d 1c | fc 29 20 7f 20 3a 72 24 |:r$=f$..|.) . :r$|
|00005860| 3d a4 6c 65 61 66 6e 61 | 6d 65 28 c2 66 24 2c a9 |=.leafna|me(.f$,.|
|00005870| 28 66 24 29 2d a7 66 24 | 2c 22 2e 22 29 29 29 0d |(f$)-.f$|,"."))).|
|00005880| 1d 06 05 cb 0d 1d 10 07 | 3d 72 24 0d 1d 1a 13 dd |........|=r$.....|
|00005890| 20 a4 70 61 74 68 6e 61 | 6d 65 28 66 24 29 0d 1d | .pathna|me(f$)..|
|000058a0| 24 22 3d c0 66 24 2c a9 | 28 66 24 29 2d a9 28 a4 |$"=.f$,.|(f$)-.(.|
|000058b0| 6c 65 61 66 6e 61 6d 65 | 28 66 24 29 29 2d 31 29 |leafname|(f$))-1)|
|000058c0| 0d 1d 2e 05 3a 0d 1d 38 | 1b dd f2 73 65 74 63 61 |....:..8|...setca|
|000058d0| 72 65 74 65 6e 64 28 77 | 69 6e 2c 69 63 6f 6e 29 |retend(w|in,icon)|
|000058e0| 0d 1d 42 34 f2 73 65 74 | 63 61 72 65 74 70 6f 73 |..B4.set|caretpos|
|000058f0| 28 77 69 6e 2c 69 63 6f | 6e 2c a9 28 a4 67 65 74 |(win,ico|n,.(.get|
|00005900| 69 63 6f 6e 74 65 78 74 | 28 77 69 6e 2c 69 63 6f |icontext|(win,ico|
|00005910| 6e 29 29 29 0d 1d 4c 05 | e1 0d 1d 56 21 dd f2 73 |n)))..L.|...V!..s|
|00005920| 65 74 63 61 72 65 74 70 | 6f 73 28 77 69 6e 2c 69 |etcaretp|os(win,i|
|00005930| 63 6f 6e 2c 63 68 61 72 | 73 29 0d 1d 60 34 c8 99 |con,char|s)..`4..|
|00005940| 20 22 57 69 6d 70 5f 53 | 65 74 43 61 72 65 74 50 | "Wimp_S|etCaretP|
|00005950| 6f 73 69 74 69 6f 6e 22 | 2c 77 69 6e 2c 69 63 6f |osition"|,win,ico|
|00005960| 6e 2c 30 2c 30 2c 2d 31 | 2c 63 68 61 72 73 0d 1d |n,0,0,-1|,chars..|
|00005970| 6a 05 e1 0d 1d 74 27 dd | f2 67 65 74 63 61 72 65 |j....t'.|.getcare|
|00005980| 74 70 6f 73 28 f8 20 77 | 69 6e 2c f8 20 69 63 6f |tpos(. w|in,. ico|
|00005990| 6e 2c f8 20 63 68 61 72 | 73 29 0d 1d 7e 34 c8 99 |n,. char|s)..~4..|
|000059a0| 20 22 57 69 6d 70 5f 47 | 65 74 43 61 72 65 74 50 | "Wimp_G|etCaretP|
|000059b0| 6f 73 69 74 69 6f 6e 22 | 2c 2c 62 25 3a 77 69 6e |osition"|,,b%:win|
|000059c0| 3d 21 62 25 3a 69 63 6f | 6e 3d 62 25 21 34 0d 1d |=!b%:ico|n=b%!4..|
|000059d0| 88 05 e1 0d 1d 92 25 dd | f2 67 65 74 70 74 72 70 |......%.|.getptrp|
|000059e0| 6f 73 28 f8 20 78 2c f8 | 20 79 2c f8 20 77 69 6e |os(. x,.| y,. win|
|000059f0| 2c f8 20 69 63 6f 6e 29 | 0d 1d 9c 43 c8 99 20 22 |,. icon)|...C.. "|
|00005a00| 57 69 6d 70 5f 47 65 74 | 50 6f 69 6e 74 65 72 49 |Wimp_Get|PointerI|
|00005a10| 6e 66 6f 22 2c 2c 62 25 | 3a 78 3d 62 25 21 30 3a |nfo",,b%|:x=b%!0:|
|00005a20| 79 3d 62 25 21 34 3a 77 | 69 6e 3d 62 25 21 31 32 |y=b%!4:w|in=b%!12|
|00005a30| 3a 69 63 6f 6e 3d 62 25 | 21 31 36 0d 1d a6 05 e1 |:icon=b%|!16.....|
|00005a40| 0d 1d b0 05 3a 0d 1d ba | 37 f4 20 46 4e 72 65 61 |....:...|7. FNrea|
|00005a50| 64 63 6d 6f 73 20 20 20 | 20 3a 20 52 65 61 64 20 |dcmos | : Read |
|00005a60| 61 20 62 79 74 65 20 6f | 66 20 63 6f 6e 66 69 67 |a byte o|f config|
|00005a70| 75 72 61 74 69 6f 6e 20 | 69 6e 66 6f 0d 1d c4 38 |uration |info...8|
|00005a80| f4 20 50 52 4f 43 77 72 | 69 74 65 63 6d 6f 73 20 |. PROCwr|itecmos |
|00005a90| 3a 20 57 72 69 74 65 20 | 61 20 62 79 74 65 20 6f |: Write |a byte o|
|00005aa0| 66 20 63 6f 6e 66 69 67 | 75 72 61 74 69 6f 6e 20 |f config|uration |
|00005ab0| 69 6e 66 6f 0d 1d ce 14 | dd a4 72 65 61 64 63 6d |info....|..readcm|
|00005ac0| 6f 73 28 62 79 74 65 29 | 0d 1d d8 23 c8 99 20 22 |os(byte)|...#.. "|
|00005ad0| 4f 53 5f 42 79 74 65 22 | 2c 31 36 31 2c 62 79 74 |OS_Byte"|,161,byt|
|00005ae0| 65 20 b8 20 2c 2c 76 61 | 6c 75 65 0d 1d e2 0a 3d |e . ,,va|lue....=|
|00005af0| 76 61 6c 75 65 0d 1d ec | 1b dd f2 77 72 69 74 65 |value...|...write|
|00005b00| 63 6d 6f 73 28 62 79 74 | 65 2c 76 61 6c 75 65 29 |cmos(byt|e,value)|
|00005b10| 0d 1d f6 1f c8 99 20 22 | 4f 53 5f 42 79 74 65 22 |...... "|OS_Byte"|
|00005b20| 2c 31 36 32 2c 62 79 74 | 65 2c 76 61 6c 75 65 0d |,162,byt|e,value.|
|00005b30| 1e 00 05 e1 0d 1e 0a 05 | 3a 0d 1e 14 19 dd a4 73 |........|:......s|
|00005b40| 77 69 6e 75 6d 62 65 72 | 28 73 77 69 24 29 3a ea |winumber|(swi$):.|
|00005b50| 20 6e 0d 1e 1e 30 c8 99 | 20 22 58 4f 53 5f 53 57 | n...0..| "XOS_SW|
|00005b60| 49 4e 75 6d 62 65 72 46 | 72 6f 6d 53 74 72 69 6e |INumberF|romStrin|
|00005b70| 67 22 2c 2c 73 77 69 24 | 20 b8 20 6e 3b 66 6c 61 |g",,swi$| . n;fla|
|00005b80| 67 73 0d 1e 28 18 e7 20 | 28 66 6c 61 67 73 20 80 |gs..(.. |(flags .|
|00005b90| 31 29 3e 30 20 8c 6e 3d | 2d 31 0d 1e 32 06 3d 6e |1)>0 .n=|-1..2.=n|
|00005ba0| 0d 1e 3c 04 0d ff | |..<... | |
+--------+-------------------------+-------------------------+--------+--------+
