/ The Datafile PD-CD 4 / DATAFILE_PDCD4.iso / utilities / utilsf / jfshared / !JFShared / BasicLib / WimpLib

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 0e f4 20 3e 57 | 69 6d 70 4c 69 62 0d 00 |..... >W|impLib..|
|00000010| 14 25 f4 20 a9 20 4a 75 | 73 74 69 6e 20 46 6c 65 |.%. . Ju|stin Fle|
|00000020| 74 63 68 65 72 20 28 30 | 31 20 41 75 67 20 31 39 |tcher (0|1 Aug 19|
|00000030| 39 34 29 0d 00 1e 14 f4 | 20 56 65 72 73 69 6f 6e |94).....| Version|
|00000040| 20 3a 20 31 2e 34 30 0d | 00 28 1a f4 20 54 68 69 | : 1.40.|.(.. Thi|
|00000050| 73 20 76 65 72 73 69 6f | 6e 20 66 6f 72 20 52 4f |s versio|n for RO|
|00000060| 33 0d 00 32 25 85 20 31 | 2c 22 44 6f 20 6e 6f 74 |3..2%. 1|,"Do not|
|00000070| 20 72 75 6e 20 74 68 65 | 20 57 69 6d 70 20 4c 69 | run the| Wimp Li|
|00000080| 62 72 61 72 79 22 0d 00 | 3c 05 3a 0d 00 46 34 f4 |brary"..|<.:..F4.|
|00000090| 20 50 52 4f 43 69 6e 69 | 74 6c 69 62 72 61 72 79 | PROCini|tlibrary|
|000000a0| 20 3a 20 49 6e 69 74 69 | 61 6c 69 73 65 20 6c 69 | : Initi|alise li|
|000000b0| 62 72 61 72 79 20 76 61 | 72 69 61 62 6c 65 73 0d |brary va|riables.|
|000000c0| 00 50 11 dd f2 69 6e 69 | 74 6c 69 62 72 61 72 79 |.P...ini|tlibrary|
|000000d0| 0d 00 5a 1a de 20 6d 65 | 73 73 61 67 65 5f 62 75 |..Z.. me|ssage_bu|
|000000e0| 66 66 65 72 25 20 31 30 | 32 34 0d 00 64 38 72 6d |ffer% 10|24..d8rm|
|000000f0| 61 66 6f 6e 74 61 72 65 | 61 3d 2d 32 3a 6d 73 67 |afontare|a=-2:msg|
|00000100| 62 75 66 66 65 72 25 3d | 2d 31 3a 6d 73 67 62 75 |buffer%=|-1:msgbu|
|00000110| 66 66 65 72 32 25 3d 2d | 31 3a 66 74 62 6c 6b 3d |ffer2%=-|1:ftblk=|
|00000120| 2d 32 0d 00 6e 05 e1 0d | 00 78 05 3a 0d 00 82 3d |-2..n...|.x.:...=|
|00000130| f4 20 50 52 4f 43 6e 6f | 74 65 6d 65 73 73 61 67 |. PROCno|temessag|
|00000140| 65 20 3a 20 4d 61 72 6b | 20 74 68 65 20 67 69 76 |e : Mark| the giv|
|00000150| 65 6e 20 6d 65 73 73 61 | 67 65 20 61 73 20 72 65 |en messa|ge as re|
|00000160| 63 65 69 76 65 61 62 6c | 65 0d 00 8c 2e dd f2 6e |ceiveabl|e......n|
|00000170| 6f 74 65 6d 65 73 73 61 | 67 65 28 6e 29 3a 6d 65 |otemessa|ge(n):me|
|00000180| 73 73 61 67 65 6c 69 73 | 74 25 21 6d 65 73 73 70 |ssagelis|t%!messp|
|00000190| 74 72 25 3d 6e 3a e1 0d | 00 96 05 3a 0d 00 a0 2b |tr%=n:..|...:...+|
|000001a0| f4 20 50 52 4f 43 65 72 | 72 6f 72 20 3a 20 43 61 |. PROCer|ror : Ca|
|000001b0| 6c 6c 65 64 20 61 74 20 | 61 6e 79 20 62 61 73 69 |lled at |any basi|
|000001c0| 63 20 65 72 72 6f 72 0d | 00 aa 1b f4 20 45 52 52 |c error.|.... ERR|
|000001d0| 4f 52 20 6e 75 6d 62 65 | 72 73 20 26 38 30 30 2b |OR numbe|rs &800+|
|000001e0| 20 3a 0d 00 b4 0c f4 20 | 30 20 3d 20 4f 4b 0d 00 | :..... |0 = OK..|
|000001f0| be 10 f4 20 31 20 3d 20 | 43 61 6e 63 65 6c 0d 00 |... 1 = |Cancel..|
|00000200| c8 21 f4 20 32 20 3d 20 | 4f 4b 20 61 6e 64 20 43 |.!. 2 = |OK and C|
|00000210| 61 6e 63 65 6c 20 28 74 | 6f 20 71 75 69 74 29 0d |ancel (t|o quit).|
|00000220| 00 d2 0b dd f2 65 72 72 | 6f 72 0d 00 dc 07 ea 20 |.....err|or..... |
|00000230| 85 0d 00 e6 47 ee 20 85 | 20 ea 3a f2 63 6c 6f 73 |....G. .| .:.clos|
|00000240| 65 6d 65 73 73 61 67 65 | 73 3a ef 34 3a 85 20 a2 |emessage|s:.4:. .|
|00000250| 20 30 2c f6 24 2b 22 20 | 61 74 20 6c 69 6e 65 20 | 0,.$+" |at line |
|00000260| 22 2b c3 9e 2b 22 20 69 | 6e 20 65 72 72 6f 72 20 |"+..+" i|n error |
|00000270| 68 61 6e 64 6c 65 72 22 | 0d 00 f0 17 e7 20 9f 3e |handler"|..... .>|
|00000280| 26 37 46 46 20 80 20 9f | 3c 26 38 30 33 20 8c 0d |&7FF . .|<&803 ..|
|00000290| 00 fa 1c 20 65 72 72 63 | 6f 64 65 3d 9f 2d 26 37 |... errc|ode=.-&7|
|000002a0| 46 46 3a 6d 65 73 73 24 | 3d f6 24 0d 01 04 2c 20 |FF:mess$|=.$..., |
|000002b0| e7 20 65 72 72 63 6f 64 | 65 3d 33 20 8c 6d 65 73 |. errcod|e=3 .mes|
|000002c0| 73 24 2b 3d 22 20 28 43 | 61 6e 63 65 6c 20 74 6f |s$+=" (C|ancel to|
|000002d0| 20 51 75 69 74 29 22 0d | 01 0e 2d 20 72 65 70 6c | Quit)".|..- repl|
|000002e0| 79 25 3d a4 65 72 72 6f | 72 62 6f 78 28 41 70 70 |y%=.erro|rbox(App|
|000002f0| 6e 61 6d 65 24 2c 6d 65 | 73 73 24 2c 65 72 72 63 |name$,me|ss$,errc|
|00000300| 6f 64 65 29 0d 01 18 24 | 20 e7 20 72 65 70 6c 79 |ode)...$| . reply|
|00000310| 25 3d 32 20 80 20 65 72 | 72 63 6f 64 65 3d 33 20 |%=2 . er|rcode=3 |
|00000320| 8c 71 75 69 74 25 3d b9 | 0d 01 22 05 cc 0d 01 2c |.quit%=.|.."....,|
|00000330| 55 20 72 65 70 6c 79 25 | 3d a4 65 72 72 6f 72 62 |U reply%|=.errorb|
|00000340| 6f 78 28 41 70 70 6e 61 | 6d 65 24 2c 22 49 6e 74 |ox(Appna|me$,"Int|
|00000350| 65 72 6e 61 6c 20 65 72 | 72 6f 72 20 3a 20 28 22 |ernal er|ror : ("|
|00000360| 2b c3 9e 2b 22 29 20 22 | 2b f6 24 2b 22 20 43 61 |+..+") "|+.$+" Ca|
|00000370| 6e 63 65 6c 20 74 6f 20 | 51 75 69 74 22 2c 25 31 |ncel to |Quit",%1|
|00000380| 31 29 0d 01 36 19 20 e7 | 20 72 65 70 6c 79 25 3c |1)..6. .| reply%<|
|00000390| 3e 31 20 8c 71 75 69 74 | 25 3d b9 0d 01 40 36 20 |>1 .quit|%=...@6 |
|000003a0| e7 20 a6 28 2d 31 29 20 | 80 20 a6 28 2d 32 29 20 |. .(-1) |. .(-2) |
|000003b0| 80 20 a6 28 2d 31 37 29 | 20 8c ff 28 22 53 70 6f |. .(-17)| ..("Spo|
|000003c0| 6f 6c 22 29 3a c8 99 20 | 22 4f 53 5f 45 78 69 74 |ol"):.. |"OS_Exit|
|000003d0| 22 0d 01 4a 05 cd 0d 01 | 54 05 e1 0d 01 5e 05 3a |"..J....|T....^.:|
|000003e0| 0d 01 68 36 f4 20 50 52 | 4f 43 69 62 6d 65 6e 75 |..h6. PR|OCibmenu|
|000003f0| 20 3a 20 43 72 65 61 74 | 65 20 61 6e 20 69 63 6f | : Creat|e an ico|
|00000400| 6e 62 61 72 20 6d 65 6e | 75 20 66 72 6f 6d 20 69 |nbar men|u from i|
|00000410| 62 6d 65 6e 75 25 0d 01 | 72 0c dd f2 69 62 6d 65 |bmenu%..|r...ibme|
|00000420| 6e 75 0d 01 7c 5b c8 99 | 20 22 57 69 6d 70 5f 47 |nu..|[..| "Wimp_G|
|00000430| 65 74 50 6f 69 6e 74 65 | 72 49 6e 66 6f 22 2c 2c |etPointe|rInfo",,|
|00000440| 62 25 3a 63 75 72 6d 65 | 6e 75 25 3d 69 62 6d 65 |b%:curme|nu%=ibme|
|00000450| 6e 75 25 3a 63 6d 65 6e | 75 78 25 3d 62 25 21 30 |nu%:cmen|ux%=b%!0|
|00000460| 2d 36 34 3a 63 6d 65 6e | 75 79 25 3d 39 36 2b 26 |-64:cmen|uy%=96+&|
|00000470| 32 38 2a 69 62 6f 70 74 | 69 6f 6e 73 25 0d 01 86 |28*ibopt|ions%...|
|00000480| 3b c8 99 20 22 57 69 6d | 70 5f 43 72 65 61 74 65 |;.. "Wim|p_Create|
|00000490| 4d 65 6e 75 22 2c 2c 69 | 62 6d 65 6e 75 25 2c 62 |Menu",,i|bmenu%,b|
|000004a0| 25 21 30 2d 36 34 2c 39 | 36 2b 26 32 38 2a 69 62 |%!0-64,9|6+&28*ib|
|000004b0| 6f 70 74 69 6f 6e 73 25 | 0d 01 90 05 e1 0d 01 9a |options%|........|
|000004c0| 04 0d 01 a4 3c f4 20 50 | 52 4f 43 6d 65 6e 75 20 |....<. P|ROCmenu |
|000004d0| 3a 20 43 72 65 61 74 65 | 20 74 68 65 20 6d 65 6e |: Create| the men|
|000004e0| 75 20 61 74 20 63 6f 2d | 6f 72 64 73 20 6f 72 20 |u at co-|ords or |
|000004f0| 6d 6f 75 73 65 20 69 66 | 20 78 3d 2d 31 0d 01 ae |mouse if| x=-1...|
|00000500| 15 dd f2 6d 65 6e 75 28 | 6d 65 6e 75 25 2c 78 2c |...menu(|menu%,x,|
|00000510| 79 29 0d 01 b8 0c e7 20 | 78 3d 2d 31 20 8c 0d 01 |y)..... |x=-1 ...|
|00000520| c2 2f 20 c8 99 20 22 57 | 69 6d 70 5f 47 65 74 50 |./ .. "W|imp_GetP|
|00000530| 6f 69 6e 74 65 72 49 6e | 66 6f 22 2c 2c 62 25 3a |ointerIn|fo",,b%:|
|00000540| 78 3d 62 25 21 30 3a 79 | 3d 62 25 21 34 0d 01 cc |x=b%!0:y|=b%!4...|
|00000550| 05 cd 0d 01 d6 2c 63 75 | 72 6d 65 6e 75 25 3d 6d |.....,cu|rmenu%=m|
|00000560| 65 6e 75 25 3a 63 6d 65 | 6e 75 78 25 3d 78 2d 36 |enu%:cme|nux%=x-6|
|00000570| 34 3a 63 6d 65 6e 75 79 | 25 3d 79 2b 32 30 0d 01 |4:cmenuy|%=y+20..|
|00000580| e0 29 c8 99 20 22 57 69 | 6d 70 5f 43 72 65 61 74 |.).. "Wi|mp_Creat|
|00000590| 65 4d 65 6e 75 22 2c 2c | 6d 65 6e 75 25 2c 78 2d |eMenu",,|menu%,x-|
|000005a0| 36 34 2c 79 2b 32 30 0d | 01 ea 05 e1 0d 01 f4 12 |64,y+20.|........|
|000005b0| dd f2 72 65 63 72 65 61 | 74 65 6d 65 6e 75 0d 01 |..recrea|temenu..|
|000005c0| fe 32 c8 99 20 22 57 69 | 6d 70 5f 43 72 65 61 74 |.2.. "Wi|mp_Creat|
|000005d0| 65 4d 65 6e 75 22 2c 2c | 63 75 72 6d 65 6e 75 25 |eMenu",,|curmenu%|
|000005e0| 2c 63 6d 65 6e 75 78 25 | 2c 63 6d 65 6e 75 79 25 |,cmenux%|,cmenuy%|
|000005f0| 0d 02 08 05 e1 0d 02 12 | 05 3a 0d 02 1c 28 f4 20 |........|.:...(. |
|00000600| 50 52 4f 43 63 6c 6f 73 | 65 77 69 6e 20 20 20 20 |PROCclos|ewin    |
|00000610| 20 20 3a 20 43 6c 6f 73 | 65 20 61 20 77 69 6e 64 |  : Clos|e a wind|
|00000620| 6f 77 0d 02 26 27 f4 20 | 50 52 4f 43 6f 70 65 6e |ow..&'. |PROCopen|
|00000630| 77 69 6e 20 20 20 20 20 | 20 20 3a 20 4f 70 65 6e |win     |  : Open|
|00000640| 20 61 20 77 69 6e 64 6f | 77 0d 02 30 3e f4 20 50 | a windo|w..0>. P|
|00000650| 52 4f 43 6f 70 65 6e 77 | 69 6e 61 74 20 20 20 20 |ROCopenw|inat    |
|00000660| 20 3a 20 4f 70 65 6e 20 | 61 20 77 69 6e 64 6f 77 | : Open |a window|
|00000670| 20 61 74 20 74 6f 70 2d | 6c 65 66 74 20 63 6f 72 | at top-|left cor|
|00000680| 6e 65 72 20 78 2c 79 0d | 02 3a 39 f4 20 50 52 4f |ner x,y.|.:9. PRO|
|00000690| 43 6f 70 65 6e 77 69 6e | 63 65 6e 74 72 65 20 3a |Copenwin|centre :|
|000006a0| 20 4f 70 65 6e 20 77 69 | 6e 64 6f 77 20 69 6e 20 | Open wi|ndow in |
|000006b0| 63 65 6e 74 72 65 20 6f | 66 20 73 63 72 65 65 6e |centre o|f screen|
|000006c0| 0d 02 44 14 dd f2 63 6c | 6f 73 65 77 69 6e 28 77 |..D...cl|osewin(w|
|000006d0| 69 6e 25 29 0d 02 4e 26 | 21 62 25 3d 77 69 6e 25 |in%)..N&|!b%=win%|
|000006e0| 3a c8 99 20 22 57 69 6d | 70 5f 43 6c 6f 73 65 57 |:.. "Wim|p_CloseW|
|000006f0| 69 6e 64 6f 77 22 2c 2c | 62 25 0d 02 58 05 e1 0d |indow",,|b%..X...|
|00000700| 02 62 13 dd f2 6f 70 65 | 6e 77 69 6e 28 77 69 6e |.b...ope|nwin(win|
|00000710| 25 29 0d 02 6c 29 21 62 | 25 3d 77 69 6e 25 3a c8 |%)..l)!b|%=win%:.|
|00000720| 99 20 22 57 69 6d 70 5f | 47 65 74 57 69 6e 64 6f |. "Wimp_|GetWindo|
|00000730| 77 53 74 61 74 65 22 2c | 2c 62 25 0d 02 76 25 62 |wState",|,b%..v%b|
|00000740| 25 21 32 38 3d 2d 31 3a | c8 99 20 22 57 69 6d 70 |%!28=-1:|.. "Wimp|
|00000750| 5f 4f 70 65 6e 57 69 6e | 64 6f 77 22 2c 2c 62 25 |_OpenWin|dow",,b%|
|00000760| 0d 02 80 05 e1 0d 02 8a | 28 dd f2 6f 70 65 6e 77 |........|(..openw|
|00000770| 69 6e 61 74 28 77 69 6e | 25 2c 78 2c 79 29 3a ea |inat(win|%,x,y):.|
|00000780| 20 77 69 64 74 68 2c 68 | 65 69 67 68 74 0d 02 94 | width,h|eight...|
|00000790| 29 21 62 25 3d 77 69 6e | 25 3a c8 99 20 22 57 69 |)!b%=win|%:.. "Wi|
|000007a0| 6d 70 5f 47 65 74 57 69 | 6e 64 6f 77 53 74 61 74 |mp_GetWi|ndowStat|
|000007b0| 65 22 2c 2c 62 25 0d 02 | 9e 26 77 69 64 74 68 3d |e",,b%..|.&width=|
|000007c0| 62 25 21 34 2d 62 25 21 | 31 32 3a 68 65 69 67 68 |b%!4-b%!|12:heigh|
|000007d0| 74 3d 62 25 21 31 36 2d | 62 25 21 38 0d 02 a8 2e |t=b%!16-|b%!8....|
|000007e0| 62 25 21 34 3d 78 3a 62 | 25 21 38 3d 79 2d 68 65 |b%!4=x:b|%!8=y-he|
|000007f0| 69 67 68 74 3a 62 25 21 | 31 32 3d 78 2d 77 69 64 |ight:b%!|12=x-wid|
|00000800| 74 68 3a 62 25 21 31 36 | 3d 79 0d 02 b2 25 62 25 |th:b%!16|=y...%b%|
|00000810| 21 32 38 3d 2d 31 3a c8 | 99 20 22 57 69 6d 70 5f |!28=-1:.|. "Wimp_|
|00000820| 4f 70 65 6e 57 69 6e 64 | 6f 77 22 2c 2c 62 25 0d |OpenWind|ow",,b%.|
|00000830| 02 bc 05 e1 0d 02 c6 32 | dd f2 6f 70 65 6e 77 69 |.......2|..openwi|
|00000840| 6e 63 65 6e 74 72 65 28 | 77 69 6e 25 29 3a ea 20 |ncentre(|win%):. |
|00000850| 77 69 64 74 68 2c 68 65 | 69 67 68 74 2c 74 6f 70 |width,he|ight,top|
|00000860| 2c 72 69 67 68 74 0d 02 | d0 2a 21 62 25 3d 34 3a |,right..|.*!b%=4:|
|00000870| 62 25 21 34 3d 35 3a 62 | 25 21 38 3d 31 31 3a 62 |b%!4=5:b|%!8=11:b|
|00000880| 25 21 31 32 3d 31 32 3a | 62 25 21 31 36 3d 2d 31 |%!12=12:|b%!16=-1|
|00000890| 0d 02 da 25 c8 99 20 22 | 4f 53 5f 52 65 61 64 56 |...%.. "|OS_ReadV|
|000008a0| 64 75 56 61 72 69 61 62 | 6c 65 73 22 2c 62 25 2c |duVariab|les",b%,|
|000008b0| 62 25 2b 32 30 0d 02 e4 | 2b 72 69 67 68 74 3d 62 |b%+20...|+right=b|
|000008c0| 25 21 32 38 2b 31 3c 3c | 62 25 21 32 30 3a 74 6f |%!28+1<<|b%!20:to|
|000008d0| 70 3d 62 25 21 33 32 2b | 31 3c 3c 62 25 21 32 34 |p=b%!32+|1<<b%!24|
|000008e0| 0d 02 ee 29 21 62 25 3d | 77 69 6e 25 3a c8 99 20 |...)!b%=|win%:.. |
|000008f0| 22 57 69 6d 70 5f 47 65 | 74 57 69 6e 64 6f 77 53 |"Wimp_Ge|tWindowS|
|00000900| 74 61 74 65 22 2c 2c 62 | 25 0d 02 f8 26 77 69 64 |tate",,b|%...&wid|
|00000910| 74 68 3d 62 25 21 34 2d | 62 25 21 31 32 3a 68 65 |th=b%!4-|b%!12:he|
|00000920| 69 67 68 74 3d 62 25 21 | 31 36 2d 62 25 21 38 0d |ight=b%!|16-b%!8.|
|00000930| 03 02 33 78 3d 28 72 69 | 67 68 74 2d 77 69 64 74 |..3x=(ri|ght-widt|
|00000940| 68 29 2f 32 2b 77 69 64 | 74 68 3a 79 3d 28 74 6f |h)/2+wid|th:y=(to|
|00000950| 70 2d 68 65 69 67 68 74 | 29 2f 32 2b 68 65 69 67 |p-height|)/2+heig|
|00000960| 68 74 0d 03 0c 2e 62 25 | 21 34 3d 78 3a 62 25 21 |ht....b%|!4=x:b%!|
|00000970| 38 3d 79 2d 68 65 69 67 | 68 74 3a 62 25 21 31 32 |8=y-heig|ht:b%!12|
|00000980| 3d 78 2d 77 69 64 74 68 | 3a 62 25 21 31 36 3d 79 |=x-width|:b%!16=y|
|00000990| 0d 03 16 25 62 25 21 32 | 38 3d 2d 31 3a c8 99 20 |...%b%!2|8=-1:.. |
|000009a0| 22 57 69 6d 70 5f 4f 70 | 65 6e 57 69 6e 64 6f 77 |"Wimp_Op|enWindow|
|000009b0| 22 2c 2c 62 25 0d 03 20 | 05 e1 0d 03 2a 1f dd f2 |",,b%.. |....*...|
|000009c0| 66 6f 72 63 65 72 65 64 | 72 61 77 28 77 69 6e 25 |forcered|raw(win%|
|000009d0| 2c 6c 2c 74 2c 72 2c 62 | 29 0d 03 34 26 c8 99 20 |,l,t,r,b|)..4&.. |
|000009e0| 22 57 69 6d 70 5f 46 6f | 72 63 65 52 65 64 72 61 |"Wimp_Fo|rceRedra|
|000009f0| 77 22 2c 77 69 6e 25 2c | 6c 2c 62 2c 72 2c 74 0d |w",win%,|l,b,r,t.|
|00000a00| 03 3e 05 e1 0d 03 48 05 | 3a 0d 03 52 3f f4 20 50 |.>....H.|:..R?. P|
|00000a10| 52 4f 43 77 69 6e 73 65 | 74 65 78 74 65 6e 74 20 |ROCwinse|textent |
|00000a20| 3a 20 53 65 74 20 74 68 | 65 20 6d 61 78 69 6d 75 |: Set th|e maximu|
|00000a30| 6d 20 65 78 74 65 6e 74 | 20 6f 66 20 77 69 6e 64 |m extent| of wind|
|00000a40| 6f 77 20 28 54 57 41 29 | 0d 03 5c 3b f4 20 50 52 |ow (TWA)|..\;. PR|
|00000a50| 4f 43 6f 70 65 6e 77 69 | 6e 74 6f 20 20 20 20 3a |OCopenwi|nto    :|
|00000a60| 20 4f 70 65 6e 20 77 69 | 6e 64 6f 77 20 61 74 20 | Open wi|ndow at |
|00000a70| 70 6f 73 69 74 69 6f 6e | 20 77 69 74 68 69 6e 20 |position| within |
|00000a80| 54 57 41 0d 03 66 20 dd | f2 77 69 6e 73 65 74 65 |TWA..f .|.winsete|
|00000a90| 78 74 65 6e 74 28 77 69 | 6e 25 2c 6c 2c 74 2c 72 |xtent(wi|n%,l,t,r|
|00000aa0| 2c 62 29 0d 03 70 2a 21 | 62 25 3d 77 69 6e 25 3a |,b)..p*!|b%=win%:|
|00000ab0| c8 99 20 22 57 69 6d 70 | 5f 47 65 74 57 69 6e 64 |.. "Wimp|_GetWind|
|00000ac0| 6f 77 49 6e 66 6f 22 2c | 2c 62 25 2b 31 0d 03 7a |owInfo",|,b%+1..z|
|00000ad0| 13 e7 20 6c 3d 2d 31 20 | 8c 6c 3d 62 25 21 34 34 |.. l=-1 |.l=b%!44|
|00000ae0| 0d 03 84 13 e7 20 62 3d | 2d 31 20 8c 62 3d 62 25 |..... b=|-1 .b=b%|
|00000af0| 21 34 38 0d 03 8e 13 e7 | 20 72 3d 2d 31 20 8c 72 |!48.....| r=-1 .r|
|00000b00| 3d 62 25 21 35 32 0d 03 | 98 13 e7 20 74 3d 2d 31 |=b%!52..|... t=-1|
|00000b10| 20 8c 74 3d 62 25 21 35 | 36 0d 03 a2 23 62 25 21 | .t=b%!5|6...#b%!|
|00000b20| 34 34 3d 6c 3a 62 25 21 | 34 38 3d 62 3a 62 25 21 |44=l:b%!|48=b:b%!|
|00000b30| 35 32 3d 72 3a 62 25 21 | 35 36 3d 74 0d 03 ac 22 |52=r:b%!|56=t..."|
|00000b40| c8 99 22 58 57 69 6d 70 | 5f 53 65 74 45 78 74 65 |.."XWimp|_SetExte|
|00000b50| 6e 74 22 2c 77 69 6e 25 | 2c 62 25 2b 34 34 0d 03 |nt",win%|,b%+44..|
|00000b60| b6 05 e1 0d 03 c0 2f f4 | 20 6c 3d 6c 65 66 74 20 |....../.| l=left |
|00000b70| 6f 66 20 56 57 41 20 69 | 6e 20 54 57 41 2c 20 74 |of VWA i|n TWA, t|
|00000b80| 3d 74 6f 70 20 6f 66 20 | 56 57 41 20 69 6e 20 54 |=top of |VWA in T|
|00000b90| 57 41 0d 03 ca 33 f4 20 | 72 3d 72 69 67 68 74 20 |WA...3. |r=right |
|00000ba0| 6f 66 20 56 57 41 20 69 | 6e 20 54 57 41 2c 20 62 |of VWA i|n TWA, b|
|00000bb0| 3d 62 6f 74 74 6f 6d 20 | 6f 66 20 56 57 41 20 69 |=bottom |of VWA i|
|00000bc0| 6e 20 54 57 41 0d 03 d4 | 41 f4 20 57 69 6e 64 6f |n TWA...|A. Windo|
|00000bd0| 77 20 64 6f 65 73 20 6e | 6f 74 20 6d 6f 76 65 2c |w does n|ot move,|
|00000be0| 20 62 75 74 20 69 74 73 | 20 73 69 7a 65 20 69 73 | but its| size is|
|00000bf0| 20 61 6c 74 65 72 65 64 | 20 74 6f 20 64 69 66 66 | altered| to diff|
|00000c00| 65 72 65 6e 63 65 0d 03 | de 3f f4 20 62 65 74 77 |erence..|.?. betw|
|00000c10| 65 65 6e 20 6c 26 77 20 | 61 6e 64 20 74 26 68 2e |een l&w |and t&h.|
|00000c20| 20 54 6f 70 20 6c 65 66 | 74 20 6f 66 20 56 57 41 | Top lef|t of VWA|
|00000c30| 20 69 73 20 70 6f 73 69 | 74 69 6f 6e 65 64 20 74 | is posi|tioned t|
|00000c40| 6f 20 74 6c 2e 0d 03 e8 | 3b f4 20 49 66 20 72 62 |o tl....|;. If rb|
|00000c50| 20 3d 20 2d 31 20 74 68 | 65 6e 20 6e 6f 20 61 63 | = -1 th|en no ac|
|00000c60| 74 75 61 6c 20 73 69 7a | 65 20 63 68 61 6e 67 65 |tual siz|e change|
|00000c70| 2c 20 6a 75 73 74 20 70 | 6f 73 69 74 69 6f 6e 2e |, just p|osition.|
|00000c80| 0d 03 f2 1d dd f2 6f 70 | 65 6e 77 69 6e 74 6f 28 |......op|enwinto(|
|00000c90| 77 69 6e 25 2c 6c 2c 74 | 2c 72 2c 62 29 0d 03 fc |win%,l,t|,r,b)...|
|00000ca0| 2a 21 62 25 3d 77 69 6e | 25 3a c8 99 20 22 57 69 |*!b%=win|%:.. "Wi|
|00000cb0| 6d 70 5f 47 65 74 57 69 | 6e 64 6f 77 49 6e 66 6f |mp_GetWi|ndowInfo|
|00000cc0| 22 2c 2c 62 25 2b 31 0d | 04 06 13 e7 20 6c 3d 2d |",,b%+1.|.... l=-|
|00000cd0| 31 20 8c 6c 3d 62 25 21 | 32 30 0d 04 10 13 e7 20 |1 .l=b%!|20..... |
|00000ce0| 74 3d 2d 31 20 8c 62 3d | 62 25 21 32 34 0d 04 1a |t=-1 .b=|b%!24...|
|00000cf0| 18 e7 20 72 3d 2d 31 20 | 8c 72 3d 62 25 21 31 32 |.. r=-1 |.r=b%!12|
|00000d00| 2d 62 25 21 34 0d 04 24 | 18 e7 20 62 3d 2d 31 20 |-b%!4..$|.. b=-1 |
|00000d10| 8c 74 3d 62 25 21 38 2d | 62 25 21 31 36 0d 04 2e |.t=b%!8-|b%!16...|
|00000d20| 31 62 25 21 31 32 3d 62 | 25 21 34 2b 72 2d 6c 3a |1b%!12=b|%!4+r-l:|
|00000d30| 62 25 21 38 3d 62 25 21 | 31 36 2b 62 2d 74 3a 62 |b%!8=b%!|16+b-t:b|
|00000d40| 25 21 32 30 3d 6c 3a 62 | 25 21 32 34 3d 74 0d 04 |%!20=l:b|%!24=t..|
|00000d50| 38 1b c8 99 22 57 69 6d | 70 5f 4f 70 65 6e 57 69 |8..."Wim|p_OpenWi|
|00000d60| 6e 64 6f 77 22 2c 2c 62 | 25 0d 04 42 05 e1 0d 04 |ndow",,b|%..B....|
|00000d70| 4c 05 3a 0d 04 56 27 f4 | 20 46 4e 64 65 63 6f 64 |L.:..V'.| FNdecod|
|00000d80| 65 6d 65 6e 75 20 3a 20 | 52 65 74 75 72 6e 20 6d |emenu : |Return m|
|00000d90| 65 6e 75 20 73 74 72 69 | 6e 67 0d 04 60 31 dd a4 |enu stri|ng..`1..|
|00000da0| 64 65 63 6f 64 65 6d 65 | 6e 75 28 6d 65 6e 75 25 |decodeme|nu(menu%|
|00000db0| 29 3a ea 20 63 70 25 2c | 70 74 72 3a 63 70 25 3d |):. cp%,|ptr:cp%=|
|00000dc0| 6d 65 6e 75 25 3a 70 74 | 72 3d 30 0d 04 6a 25 c8 |menu%:pt|r=0..j%.|
|00000dd0| 95 20 28 62 25 21 70 74 | 72 3e 2d 31 20 80 20 63 |. (b%!pt|r>-1 . c|
|00000de0| 70 25 3c 3e 72 6d 61 66 | 6f 6e 74 61 72 65 61 29 |p%<>rmaf|ontarea)|
|00000df0| 0d 04 74 24 20 63 70 25 | 3d 63 70 25 21 28 33 32 |..t$ cp%|=cp%!(32|
|00000e00| 2b 28 62 25 21 70 74 72 | 29 2a 32 34 29 3a 70 74 |+(b%!ptr|)*24):pt|
|00000e10| 72 2b 3d 34 0d 04 7e 05 | ce 0d 04 88 17 e7 20 63 |r+=4..~.|...... c|
|00000e20| 70 25 3d 72 6d 61 66 6f | 6e 74 61 72 65 61 20 8c |p%=rmafo|ntarea .|
|00000e30| 0d 04 92 41 20 c8 99 20 | 22 46 6f 6e 74 5f 44 65 |...A .. |"Font_De|
|00000e40| 63 6f 64 65 4d 65 6e 75 | 22 2c 2c 72 6d 61 66 6f |codeMenu|",,rmafo|
|00000e50| 6e 74 61 72 65 61 2c 62 | 25 2b 70 74 72 2c c4 32 |ntarea,b|%+ptr,.2|
|00000e60| 35 35 2c bd 30 29 2c 32 | 35 35 20 b8 2c 2c 2c 6d |55,.0),2|55 .,,,m|
|00000e70| 24 0d 04 9c 05 cc 0d 04 | a6 37 20 c8 99 20 22 57 |$.......|.7 .. "W|
|00000e80| 69 6d 70 5f 44 65 63 6f | 64 65 4d 65 6e 75 22 2c |imp_Deco|deMenu",|
|00000e90| 2c 6d 65 6e 75 25 2c 62 | 25 2c c4 32 35 35 2c bd |,menu%,b|%,.255,.|
|00000ea0| 30 29 2c 32 35 35 20 b8 | 2c 2c 2c 6d 24 0d 04 b0 |0),255 .|,,,m$...|
|00000eb0| 05 cd 0d 04 ba 07 3d 6d | 24 0d 04 c4 36 c8 99 20 |......=m|$...6.. |
|00000ec0| 22 57 69 6d 70 5f 44 65 | 63 6f 64 65 4d 65 6e 75 |"Wimp_De|codeMenu|
|00000ed0| 22 2c 2c 6d 65 6e 75 25 | 2c 62 25 2c c4 32 35 35 |",,menu%|,b%,.255|
|00000ee0| 2c bd 30 29 2c 32 35 35 | 20 b8 2c 2c 2c 6d 24 0d |,.0),255| .,,,m$.|
|00000ef0| 04 ce 07 3d 6d 24 0d 04 | d8 05 3a 0d 04 e2 3f f4 |...=m$..|..:...?.|
|00000f00| 20 46 4e 67 65 74 66 6f | 6e 74 6d 65 6e 75 20 20 | FNgetfo|ntmenu  |
|00000f10| 20 20 20 20 20 3a 20 52 | 65 74 75 72 6e 20 6d 65 |     : R|eturn me|
|00000f20| 6d 6f 72 79 20 6c 6f 63 | 61 74 69 6f 6e 20 6f 66 |mory loc|ation of|
|00000f30| 20 66 6f 6e 74 20 6d 65 | 6e 75 0d 04 ec 3b f4 20 | font me|nu...;. |
|00000f40| 50 52 4f 43 72 65 6c 65 | 61 73 65 66 6f 6e 74 6d |PROCrele|asefontm|
|00000f50| 65 6e 75 20 3a 20 52 65 | 6c 65 61 73 65 20 6d 65 |enu : Re|lease me|
|00000f60| 6d 6f 72 79 20 75 73 65 | 64 20 62 79 20 66 6f 6e |mory use|d by fon|
|00000f70| 74 6d 65 6e 75 0d 04 f6 | 24 dd a4 67 65 74 66 6f |tmenu...|$..getfo|
|00000f80| 6e 74 6d 65 6e 75 28 66 | 6f 6e 74 24 29 3a ea 20 |ntmenu(f|ont$):. |
|00000f90| 73 70 61 63 65 2c 69 6e | 64 0d 05 00 15 c8 99 20 |space,in|d...... |
|00000fa0| 22 48 6f 75 72 67 6c 61 | 73 73 5f 4f 6e 22 0d 05 |"Hourgla|ss_On"..|
|00000fb0| 0a 34 c8 99 20 22 46 6f | 6e 74 5f 4c 69 73 74 46 |.4.. "Fo|nt_ListF|
|00000fc0| 6f 6e 74 73 22 2c 2c 2c | 37 3c 3c 31 39 2c 2c 2c |onts",,,|7<<19,,,|
|00000fd0| 2c 31 20 b8 20 2c 2c 2c | 73 70 61 63 65 2c 2c 69 |,1 . ,,,|space,,i|
|00000fe0| 6e 64 0d 05 14 37 f2 72 | 65 6c 65 61 73 65 28 72 |nd...7.r|elease(r|
|00000ff0| 6d 61 66 6f 6e 74 61 72 | 65 61 29 3a 72 6d 61 66 |mafontar|ea):rmaf|
|00001000| 6f 6e 74 61 72 65 61 3d | a4 63 6c 61 69 6d 28 73 |ontarea=|.claim(s|
|00001010| 70 61 63 65 2b 69 6e 64 | 29 0d 05 1e 2b e7 20 72 |pace+ind|)...+. r|
|00001020| 6d 61 66 6f 6e 74 61 72 | 65 61 3c 30 20 8c c8 99 |mafontar|ea<0 ...|
|00001030| 20 22 48 6f 75 72 67 6c | 61 73 73 5f 4f 66 66 22 | "Hourgl|ass_Off"|
|00001040| 3a 3d 2d 31 0d 05 28 11 | e7 20 66 6f 6e 74 24 3c |:=-1..(.|. font$<|
|00001050| 3e 22 22 20 8c 0d 05 32 | 4d 20 c8 99 20 22 46 6f |>"" ...2|M .. "Fo|
|00001060| 6e 74 5f 4c 69 73 74 46 | 6f 6e 74 73 22 2c 2c 72 |nt_ListF|onts",,r|
|00001070| 6d 61 66 6f 6e 74 61 72 | 65 61 2c 37 3c 3c 31 39 |mafontar|ea,7<<19|
|00001080| 2c 73 70 61 63 65 2c 72 | 6d 61 66 6f 6e 74 61 72 |,space,r|mafontar|
|00001090| 65 61 2b 73 70 61 63 65 | 2c 69 6e 64 2c 66 6f 6e |ea+space|,ind,fon|
|000010a0| 74 24 0d 05 3c 05 cc 0d | 05 46 49 20 c8 99 20 22 |t$..<...|.FI .. "|
|000010b0| 46 6f 6e 74 5f 4c 69 73 | 74 46 6f 6e 74 73 22 2c |Font_Lis|tFonts",|
|000010c0| 2c 72 6d 61 66 6f 6e 74 | 61 72 65 61 2c 37 3c 3c |,rmafont|area,7<<|
|000010d0| 31 39 2c 73 70 61 63 65 | 2c 72 6d 61 66 6f 6e 74 |19,space|,rmafont|
|000010e0| 61 72 65 61 2b 73 70 61 | 63 65 2c 69 6e 64 2c 31 |area+spa|ce,ind,1|
|000010f0| 0d 05 50 05 cd 0d 05 5a | 16 c8 99 20 22 48 6f 75 |..P....Z|... "Hou|
|00001100| 72 67 6c 61 73 73 5f 4f | 66 66 22 0d 05 64 10 3d |rglass_O|ff"..d.=|
|00001110| 72 6d 61 66 6f 6e 74 61 | 72 65 61 0d 05 6e 2d dd |rmafonta|rea..n-.|
|00001120| f2 72 65 6c 65 61 73 65 | 66 6f 6e 74 6d 65 6e 75 |.release|fontmenu|
|00001130| 3a f2 72 65 6c 65 61 73 | 65 28 72 6d 61 66 6f 6e |:.releas|e(rmafon|
|00001140| 74 61 72 65 61 29 3a e1 | 0d 05 78 05 3a 0d 05 79 |tarea):.|..x.:..y|
|00001150| 2f f4 20 50 52 4f 43 6d | 65 6e 75 75 6e 74 69 63 |/. PROCm|enuuntic|
|00001160| 6b 3a 20 55 6e 74 69 63 | 6b 20 61 20 67 72 6f 75 |k: Untic|k a grou|
|00001170| 70 20 6f 66 20 6f 70 74 | 69 6f 6e 73 0d 05 82 30 |p of opt|ions...0|
|00001180| f4 20 50 52 4f 43 6d 65 | 6e 75 74 69 63 6b 20 20 |. PROCme|nutick  |
|00001190| 3a 20 54 69 63 6b 2f 75 | 6e 74 69 63 6b 20 6f 70 |: Tick/u|ntick op|
|000011a0| 74 69 6f 6e 20 6f 6e 20 | 6d 65 6e 75 0d 05 8c 32 |tion on |menu...2|
|000011b0| f4 20 50 52 4f 43 6d 65 | 6e 75 73 68 61 64 65 20 |. PROCme|nushade |
|000011c0| 3a 20 53 68 61 64 65 2f | 75 6e 73 68 61 64 65 20 |: Shade/|unshade |
|000011d0| 6f 70 74 69 6f 6e 20 6f | 6e 20 6d 65 6e 75 0d 05 |option o|n menu..|
|000011e0| 96 38 f4 20 46 4e 6d 65 | 6e 75 74 69 63 6b 65 64 |.8. FNme|nuticked|
|000011f0| 20 20 3a 20 52 65 74 75 | 72 6e 20 54 52 55 45 20 |  : Retu|rn TRUE |
|00001200| 69 66 20 6d 65 6e 75 20 | 69 74 65 6d 20 69 73 20 |if menu |item is |
|00001210| 74 69 63 6b 65 64 0d 05 | a0 38 f4 20 46 4e 6d 65 |ticked..|.8. FNme|
|00001220| 6e 75 73 68 61 64 65 64 | 20 20 3a 20 52 65 74 75 |nushaded|  : Retu|
|00001230| 72 6e 20 54 52 55 45 20 | 69 66 20 6d 65 6e 75 20 |rn TRUE |if menu |
|00001240| 69 74 65 6d 20 69 73 20 | 73 68 61 64 65 64 0d 05 |item is |shaded..|
|00001250| aa 19 f4 20 74 79 70 65 | 20 3d 20 30 20 66 6f 72 |... type| = 0 for|
|00001260| 20 75 6e 74 69 63 6b 0d | 05 b4 17 f4 20 74 79 70 | untick.|.... typ|
|00001270| 65 20 3d 20 31 20 66 6f | 72 20 74 69 63 6b 0d 05 |e = 1 fo|r tick..|
|00001280| be 19 f4 20 74 79 70 65 | 20 3d 20 32 20 66 6f 72 |... type| = 2 for|
|00001290| 20 74 6f 67 67 6c 65 0d | 05 bf 24 dd f2 6d 65 6e | toggle.|..$..men|
|000012a0| 75 75 6e 74 69 63 6b 28 | 6d 65 6e 75 2c 73 74 61 |uuntick(|menu,sta|
|000012b0| 72 74 2c 65 6e 64 29 3a | ea 20 49 0d 05 c0 13 e3 |rt,end):|. I.....|
|000012c0| 20 49 3d 73 74 61 72 74 | 20 b8 20 65 6e 64 0d 05 | I=start| . end..|
|000012d0| c1 18 20 f2 6d 65 6e 75 | 74 69 63 6b 28 6d 65 6e |.. .menu|tick(men|
|000012e0| 75 2c 49 2c 30 29 0d 05 | c2 05 ed 0d 05 c3 05 e1 |u,I,0)..|........|
|000012f0| 0d 05 c4 05 3a 0d 05 c8 | 35 dd f2 6d 65 6e 75 74 |....:...|5..menut|
|00001300| 69 63 6b 28 6d 65 6e 75 | 2c 6f 70 74 69 6f 6e 2c |ick(menu|,option,|
|00001310| 74 6f 67 67 6c 65 29 3a | 6d 65 6e 75 2b 3d 6f 70 |toggle):|menu+=op|
|00001320| 74 69 6f 6e 2a 32 34 2b | 32 38 0d 05 d2 0f c8 8e |tion*24+|28......|
|00001330| 20 74 6f 67 67 6c 65 20 | ca 0d 05 dc 19 20 c9 20 | toggle |..... . |
|00001340| 30 3a 21 6d 65 6e 75 3d | 21 6d 65 6e 75 20 80 20 |0:!menu=|!menu . |
|00001350| 2d 32 0d 05 e6 18 20 c9 | 20 31 3a 21 6d 65 6e 75 |-2.... .| 1:!menu|
|00001360| 3d 21 6d 65 6e 75 20 84 | 20 31 0d 05 f0 18 20 c9 |=!menu .| 1.... .|
|00001370| 20 32 3a 21 6d 65 6e 75 | 3d 21 6d 65 6e 75 20 82 | 2:!menu|=!menu .|
|00001380| 20 31 0d 05 fa 05 cb 0d | 06 04 05 e1 0d 06 0e 36 | 1......|.......6|
|00001390| dd f2 6d 65 6e 75 73 68 | 61 64 65 28 6d 65 6e 75 |..menush|ade(menu|
|000013a0| 2c 6f 70 74 69 6f 6e 2c | 74 6f 67 67 6c 65 29 3a |,option,|toggle):|
|000013b0| 6d 65 6e 75 2b 3d 6f 70 | 74 69 6f 6e 2a 32 34 2b |menu+=op|tion*24+|
|000013c0| 33 36 0d 06 18 0f c8 8e | 20 74 6f 67 67 6c 65 20 |36......| toggle |
|000013d0| ca 0d 06 22 1f 20 c9 20 | 30 3a 21 6d 65 6e 75 3d |...". . |0:!menu=|
|000013e0| 21 6d 65 6e 75 20 80 20 | ac 28 31 3c 3c 32 32 29 |!menu . |.(1<<22)|
|000013f0| 0d 06 2c 1e 20 c9 20 31 | 3a 21 6d 65 6e 75 3d 21 |..,. . 1|:!menu=!|
|00001400| 6d 65 6e 75 20 84 20 28 | 31 3c 3c 32 32 29 0d 06 |menu . (|1<<22)..|
|00001410| 36 1e 20 c9 20 32 3a 21 | 6d 65 6e 75 3d 21 6d 65 |6. . 2:!|menu=!me|
|00001420| 6e 75 20 82 20 28 31 3c | 3c 32 32 29 0d 06 40 05 |nu . (1<|<22)..@.|
|00001430| cb 0d 06 4a 05 e1 0d 06 | 54 1d dd a4 6d 65 6e 75 |...J....|T...menu|
|00001440| 74 69 63 6b 65 64 28 6d | 65 6e 75 25 2c 69 74 65 |ticked(m|enu%,ite|
|00001450| 6d 25 29 0d 06 5e 22 3d | 28 28 6d 65 6e 75 25 21 |m%)..^"=|((menu%!|
|00001460| 28 32 38 2b 32 34 2a 69 | 74 65 6d 25 29 29 20 80 |(28+24*i|tem%)) .|
|00001470| 20 31 29 3d 31 0d 06 68 | 1d dd a4 6d 65 6e 75 73 | 1)=1..h|...menus|
|00001480| 68 61 64 65 64 28 6d 65 | 6e 75 25 2c 69 74 65 6d |haded(me|nu%,item|
|00001490| 25 29 0d 06 72 22 3d 28 | 28 6d 65 6e 75 25 21 28 |%)..r"=(|(menu%!(|
|000014a0| 32 38 2b 32 34 2a 69 74 | 65 6d 25 29 29 20 80 20 |28+24*it|em%)) . |
|000014b0| 34 29 3d 34 0d 06 7c 05 | 3a 0d 06 86 37 dd f2 73 |4)=4..|.|:...7..s|
|000014c0| 65 74 6d 65 6e 75 74 65 | 78 74 28 6d 65 6e 75 2c |etmenute|xt(menu,|
|000014d0| 6f 70 74 69 6f 6e 2c 74 | 65 78 74 24 29 3a 6d 65 |option,t|ext$):me|
|000014e0| 6e 75 2b 3d 6f 70 74 69 | 6f 6e 2a 32 34 2b 33 36 |nu+=opti|on*24+36|
|000014f0| 0d 06 90 37 e7 20 28 21 | 6d 65 6e 75 20 80 26 31 |...7. (!|menu .&1|
|00001500| 30 30 29 3e 30 20 8c 24 | 28 6d 65 6e 75 21 34 29 |00)>0 .$|(menu!4)|
|00001510| 3d 74 65 78 74 24 20 8b | 24 28 6d 65 6e 75 2b 34 |=text$ .|$(menu+4|
|00001520| 29 3d 74 65 78 74 24 0d | 06 9a 05 e1 0d 06 a4 39 |)=text$.|.......9|
|00001530| dd a4 67 65 74 6d 65 6e | 75 74 65 78 74 28 6d 65 |..getmen|utext(me|
|00001540| 6e 75 2c 6f 70 74 69 6f | 6e 29 3a 6d 65 6e 75 2b |nu,optio|n):menu+|
|00001550| 3d 6f 70 74 69 6f 6e 2a | 32 34 2b 33 36 3a ea 20 |=option*|24+36:. |
|00001560| 74 65 78 74 24 0d 06 ae | 37 e7 20 28 21 6d 65 6e |text$...|7. (!men|
|00001570| 75 20 80 26 31 30 30 29 | 3e 30 20 8c 74 65 78 74 |u .&100)|>0 .text|
|00001580| 24 3d 24 28 6d 65 6e 75 | 21 34 29 20 8b 74 65 78 |$=$(menu|!4) .tex|
|00001590| 74 24 3d 24 28 6d 65 6e | 75 2b 34 29 0d 06 b8 0a |t$=$(men|u+4)....|
|000015a0| 3d 74 65 78 74 24 0d 06 | c2 05 3a 0d 06 cc 37 f4 |=text$..|..:...7.|
|000015b0| 20 46 4e 63 72 65 61 74 | 65 69 63 6f 6e 20 3a 20 | FNcreat|eicon : |
|000015c0| 43 72 65 61 74 65 20 61 | 6e 20 69 63 6f 6e 20 77 |Create a|n icon w|
|000015d0| 69 74 68 20 73 65 74 20 | 70 61 72 61 6d 65 74 65 |ith set |paramete|
|000015e0| 72 73 0d 06 d6 3c f4 20 | 77 69 6e 64 6f 77 2c 78 |rs...<. |window,x|
|000015f0| 2c 79 2c 20 77 69 64 74 | 68 2c 20 68 65 69 67 68 |,y, widt|h, heigh|
|00001600| 74 2c 20 74 69 74 6c 65 | 2c 20 76 61 6c 69 64 61 |t, title|, valida|
|00001610| 74 69 6f 6e 2c 20 63 6f | 6c 6f 75 72 73 2c 0d 06 |tion, co|lours,..|
|00001620| e0 1d f4 20 45 53 47 2c | 20 62 75 74 74 6f 6e 20 |... ESG,| button |
|00001630| 74 79 70 65 2c 20 66 6c | 61 67 73 0d 06 ea 31 f4 |type, fl|ags...1.|
|00001640| 20 63 6f 6c 20 63 6f 75 | 6c 64 20 62 65 20 66 6f | col cou|ld be fo|
|00001650| 6e 74 20 68 61 6e 64 6c | 65 20 69 66 20 75 73 65 |nt handl|e if use|
|00001660| 20 66 6f 6e 74 20 69 73 | 20 73 65 74 0d 06 f4 42 | font is| set...B|
|00001670| f4 20 6f 74 68 65 72 77 | 69 73 65 20 63 6f 6c 20 |. otherw|ise col |
|00001680| 69 73 20 26 42 46 20 28 | 42 3d 62 61 63 6b 67 72 |is &BF (|B=backgr|
|00001690| 6f 75 6e 64 2c 20 46 3d | 66 6f 72 65 67 72 6f 75 |ound, F=|foregrou|
|000016a0| 6e 64 29 20 28 75 73 75 | 2e 20 26 31 37 29 0d 06 |nd) (usu|. &17)..|
|000016b0| fe 39 f4 20 51 75 69 63 | 6b 20 66 6c 61 67 73 20 |.9. Quic|k flags |
|000016c0| 3a 20 25 41 46 56 48 42 | 30 30 20 28 41 3d 46 6f |: %AFVHB|00 (A=Fo|
|000016d0| 6e 74 2c 20 46 3d 46 69 | 6c 6c 65 64 2c 20 42 3d |nt, F=Fi|lled, B=|
|000016e0| 42 6f 72 64 65 72 29 0d | 07 08 0d f4 20 46 6c 61 |Border).|.... Fla|
|000016f0| 67 73 20 3a 0d 07 12 20 | f4 20 30 20 3a 20 54 65 |gs :... |. 0 : Te|
|00001700| 78 74 20 20 20 20 20 20 | 20 20 20 20 20 38 20 3a |xt      |     8 :|
|00001710| 20 4e 2f 41 0d 07 1c 2c | f4 20 31 20 3a 20 53 70 | N/A...,|. 1 : Sp|
|00001720| 72 69 74 65 20 20 20 20 | 20 20 20 20 20 39 20 3a |rite    |     9 :|
|00001730| 20 52 69 67 68 74 20 4a | 75 73 74 69 66 69 65 64 | Right J|ustified|
|00001740| 0d 07 26 3b f4 20 32 20 | 3a 20 42 6f 72 64 65 72 |..&;. 2 |: Border|
|00001750| 65 64 20 20 20 20 20 20 | 31 30 20 3a 20 4d 75 6c |ed      |10 : Mul|
|00001760| 74 69 70 6c 65 20 73 65 | 6c 65 63 74 69 6f 6e 20 |tiple se|lection |
|00001770| 77 69 74 68 20 61 64 6a | 75 73 74 0d 07 30 29 f4 |with adj|ust..0).|
|00001780| 20 33 20 3a 20 48 20 43 | 65 6e 74 72 65 20 20 20 | 3 : H C|entre   |
|00001790| 20 20 20 31 31 20 3a 20 | 53 6d 61 6c 6c 20 73 70 |   11 : |Small sp|
|000017a0| 72 69 74 65 0d 07 3a 1e | f4 20 34 20 3a 20 56 20 |rite..:.|. 4 : V |
|000017b0| 43 65 6e 74 72 65 20 20 | 20 20 20 20 32 30 20 3a |Centre  |    20 :|
|000017c0| 20 3f 0d 07 44 25 f4 20 | 35 20 3a 20 46 69 6c 6c | ?..D%. |5 : Fill|
|000017d0| 65 64 20 20 20 20 20 20 | 20 20 32 31 20 3a 20 49 |ed      |  21 : I|
|000017e0| 6e 76 65 72 74 65 64 0d | 07 4e 23 f4 20 36 20 3a |nverted.|.N#. 6 :|
|000017f0| 20 55 73 65 20 66 6f 6e | 74 73 20 20 20 20 20 32 | Use fon|ts     2|
|00001800| 32 20 3a 20 53 68 61 64 | 65 64 0d 07 58 1e f4 20 |2 : Shad|ed..X.. |
|00001810| 37 20 3a 20 4e 2f 41 20 | 20 20 20 20 20 20 20 20 |7 : N/A |        |
|00001820| 20 20 32 33 20 3a 20 3f | 0d 07 62 14 f4 20 42 75 |  23 : ?|..b.. Bu|
|00001830| 74 74 6f 6e 20 74 79 70 | 65 73 20 3a 0d 07 6c 17 |tton typ|es :..l.|
|00001840| f4 20 30 20 3a 20 49 67 | 6e 6f 72 65 20 63 6c 69 |. 0 : Ig|nore cli|
|00001850| 63 6b 73 0d 07 76 1a f4 | 20 31 20 3a 20 4e 6f 74 |cks..v..| 1 : Not|
|00001860| 69 66 79 20 77 68 65 6e | 20 6f 76 65 72 0d 07 80 |ify when| over...|
|00001870| 20 f4 20 32 20 3a 20 43 | 6c 69 63 6b 73 20 72 65 | . 2 : C|licks re|
|00001880| 70 65 61 74 20 26 20 6e | 6f 74 69 66 79 0d 07 8a |peat & n|otify...|
|00001890| 22 f4 20 33 20 3a 20 43 | 6c 69 63 6b 73 20 64 65 |". 3 : C|licks de|
|000018a0| 62 6f 75 6e 63 65 20 26 | 20 6e 6f 74 69 66 79 0d |bounce &| notify.|
|000018b0| 07 94 3f f4 20 34 20 3a | 20 43 6c 69 63 6b 20 73 |..?. 4 :| Click s|
|000018c0| 65 6c 65 63 74 73 2c 20 | 72 65 6c 65 61 73 65 20 |elects, |release |
|000018d0| 6e 6f 74 69 66 69 65 73 | 2c 20 6f 72 20 64 65 73 |notifies|, or des|
|000018e0| 65 6c 65 63 74 20 69 66 | 20 6d 6f 76 65 64 0d 07 |elect if| moved..|
|000018f0| 9e 2a f4 20 35 20 3a 20 | 43 6c 69 63 6b 20 73 65 |.*. 5 : |Click se|
|00001900| 6c 65 63 74 73 2c 20 32 | 20 63 6c 69 63 6b 73 20 |lects, 2| clicks |
|00001910| 6e 6f 74 69 66 69 65 73 | 0d 07 a8 1c f4 20 36 20 |notifies|..... 6 |
|00001920| 3a 20 41 73 20 33 20 62 | 75 74 20 77 69 6c 6c 20 |: As 3 b|ut will |
|00001930| 64 72 61 67 0d 07 b2 1c | f4 20 37 20 3a 20 41 73 |drag....|. 7 : As|
|00001940| 20 34 20 62 75 74 20 77 | 69 6c 6c 20 64 72 61 67 | 4 but w|ill drag|
|00001950| 0d 07 bc 1c f4 20 38 20 | 3a 20 41 73 20 35 20 62 |..... 8 |: As 5 b|
|00001960| 75 74 20 77 69 6c 6c 20 | 64 72 61 67 0d 07 c6 13 |ut will |drag....|
|00001970| f4 20 39 20 3a 20 4d 65 | 6e 75 20 69 63 6f 6e 0d |. 9 : Me|nu icon.|
|00001980| 07 d0 30 f4 20 31 30 3a | 20 43 6c 69 63 6b 3d 62 |..0. 10:| Click=b|
|00001990| 75 74 2a 32 35 36 2c 64 | 72 61 67 3d 62 75 74 2a |ut*256,d|rag=but*|
|000019a0| 31 36 2c 32 20 63 6c 69 | 63 6b 73 3d 62 75 74 0d |16,2 cli|cks=but.|
|000019b0| 07 da 33 f4 20 31 31 3a | 20 52 61 64 69 6f 20 28 |..3. 11:| Radio (|
|000019c0| 56 61 6c 69 64 61 74 69 | 6f 6e 20 66 6f 72 6d 61 |Validati|on forma|
|000019d0| 74 20 3a 20 53 6f 70 74 | 6f 66 66 2c 6f 70 74 6f |t : Sopt|off,opto|
|000019e0| 6e 29 0d 07 e4 11 f4 20 | 31 32 2f 31 33 20 3a 20 |n)..... |12/13 : |
|000019f0| 4e 2f 41 0d 07 ee 27 f4 | 20 31 34 3a 20 57 72 69 |N/A...'.| 14: Wri|
|00001a00| 74 65 61 62 6c 65 2f 43 | 6c 69 63 6b 61 62 6c 65 |teable/C|lickable|
|00001a10| 2f 44 72 61 67 67 61 62 | 6c 65 0d 07 f8 13 f4 20 |/Draggab|le..... |
|00001a20| 31 35 3a 20 57 72 69 74 | 65 61 62 6c 65 0d 08 02 |15: Writ|eable...|
|00001a30| 3d dd a4 63 72 65 61 74 | 65 69 63 6f 6e 28 77 69 |=..creat|eicon(wi|
|00001a40| 6e 2c 78 2c 79 2c 77 2c | 68 2c 74 69 74 6c 65 24 |n,x,y,w,|h,title$|
|00001a50| 2c 76 61 6c 69 64 24 2c | 63 6f 6c 2c 65 73 67 2c |,valid$,|col,esg,|
|00001a60| 62 75 74 2c 66 6c 61 67 | 73 29 0d 08 0c 0c ea 20 |but,flag|s)..... |
|00001a70| 68 61 6e 64 6c 65 0d 08 | 16 2e 62 25 21 30 3d 77 |handle..|..b%!0=w|
|00001a80| 69 6e 3a 62 25 21 34 3d | 78 3a 62 25 21 38 3d 79 |in:b%!4=|x:b%!8=y|
|00001a90| 2d 68 3a 62 25 21 31 32 | 3d 78 2b 77 3a 62 25 21 |-h:b%!12|=x+w:b%!|
|00001aa0| 31 36 3d 79 0d 08 20 36 | 62 25 21 32 30 3d 28 66 |16=y.. 6|b%!20=(f|
|00001ab0| 6c 61 67 73 20 80 20 28 | 25 31 31 31 30 30 31 31 |lags . (|%1110011|
|00001ac0| 31 31 31 31 31 2b 28 31 | 35 3c 3c 32 30 29 29 29 |11111+(1|5<<20)))|
|00001ad0| 2b 28 63 6f 6c 3c 3c 32 | 34 29 0d 08 2a 1e 62 25 |+(col<<2|4)..*.b%|
|00001ae0| 21 32 30 2b 3d 28 65 73 | 67 3c 3c 31 36 29 2b 28 |!20+=(es|g<<16)+(|
|00001af0| 62 75 74 3c 3c 31 32 29 | 0d 08 34 21 e7 20 76 61 |but<<12)|..4!. va|
|00001b00| 6c 69 64 24 3c 3e 22 22 | 20 84 20 a9 28 74 69 74 |lid$<>""| . .(tit|
|00001b10| 6c 65 24 29 3e 31 31 20 | 8c 0d 08 3e 1c 20 62 25 |le$)>11 |...>. b%|
|00001b20| 21 32 34 3d a4 69 6e 64 | 69 72 65 63 74 28 74 69 |!24=.ind|irect(ti|
|00001b30| 74 6c 65 24 29 0d 08 48 | 1c 20 62 25 21 32 38 3d |tle$)..H|. b%!28=|
|00001b40| a4 69 6e 64 69 72 65 63 | 74 28 76 61 6c 69 64 24 |.indirec|t(valid$|
|00001b50| 29 0d 08 52 22 20 62 25 | 21 33 32 3d a9 28 74 69 |)..R" b%|!32=.(ti|
|00001b60| 74 6c 65 24 29 2b 31 3a | 62 25 21 32 30 2b 3d 31 |tle$)+1:|b%!20+=1|
|00001b70| 3c 3c 38 0d 08 5c 05 cc | 0d 08 66 14 20 24 28 62 |<<8..\..|..f. $(b|
|00001b80| 25 2b 32 34 29 3d 74 69 | 74 6c 65 24 0d 08 70 05 |%+24)=ti|tle$..p.|
|00001b90| cd 0d 08 7a 55 e7 20 28 | 28 62 25 21 32 30 29 20 |...zU. (|(b%!20) |
|00001ba0| 80 20 26 31 30 33 29 3d | 26 33 20 8c 85 20 26 38 |. &103)=|&3 .. &8|
|00001bb0| 30 33 2c 22 43 61 6e 6e | 6f 74 20 6d 61 6b 65 20 |03,"Cann|ot make |
|00001bc0| 61 20 73 70 72 69 74 65 | 2f 74 65 78 74 20 69 63 |a sprite|/text ic|
|00001bd0| 6f 6e 20 77 69 74 68 6f | 75 74 20 76 61 6c 69 64 |on witho|ut valid|
|00001be0| 61 74 69 6f 6e 22 0d 08 | 84 1d e7 20 28 66 6c 61 |ation"..|... (fla|
|00001bf0| 67 73 20 80 20 33 29 3d | 30 20 8c 62 25 21 32 30 |gs . 3)=|0 .b%!20|
|00001c00| 2b 3d 31 0d 08 8e 2e e7 | 20 a4 6c 6f 77 65 72 28 |+=1.....| .lower(|
|00001c10| c0 76 61 6c 69 64 24 2c | 31 29 29 3d 22 73 22 20 |.valid$,|1))="s" |
|00001c20| 8c 20 62 25 21 32 30 3d | 62 25 21 32 30 20 84 20 |. b%!20=|b%!20 . |
|00001c30| 32 0d 08 98 25 c8 99 20 | 22 57 69 6d 70 5f 43 72 |2...%.. |"Wimp_Cr|
|00001c40| 65 61 74 65 49 63 6f 6e | 22 2c 2c 62 25 20 b8 20 |eateIcon|",,b% . |
|00001c50| 68 61 6e 64 6c 65 0d 08 | a2 0b 3d 68 61 6e 64 6c |handle..|..=handl|
|00001c60| 65 0d 08 ac 05 3a 0d 08 | b6 1a dd f2 64 65 6c 65 |e....:..|....dele|
|00001c70| 74 65 69 63 6f 6e 28 77 | 69 6e 2c 69 63 6f 6e 29 |teicon(w|in,icon)|
|00001c80| 0d 08 c0 2e 21 62 25 3d | 77 69 6e 3a 62 25 21 34 |....!b%=|win:b%!4|
|00001c90| 3d 69 63 6f 6e 3a c8 99 | 20 22 57 69 6d 70 5f 44 |=icon:..| "Wimp_D|
|00001ca0| 65 6c 65 74 65 49 63 6f | 6e 22 2c 2c 62 25 0d 08 |eleteIco|n",,b%..|
|00001cb0| ca 05 e1 0d 08 d4 05 3a | 0d 08 de 3b f4 20 46 4e |.......:|...;. FN|
|00001cc0| 43 72 65 61 74 65 49 63 | 6f 6e 42 61 72 49 63 6f |CreateIc|onBarIco|
|00001cd0| 6e 20 3a 20 43 72 65 61 | 74 65 20 61 6e 20 69 63 |n : Crea|te an ic|
|00001ce0| 6f 6e 20 66 6f 72 20 74 | 68 65 20 69 63 6f 6e 20 |on for t|he icon |
|00001cf0| 62 61 72 0d 08 e8 18 f4 | 20 49 63 6f 6e 2d 62 61 |bar.....| Icon-ba|
|00001d00| 72 20 70 6f 73 69 74 69 | 6f 6e 73 0d 08 f2 19 f4 |r positi|ons.....|
|00001d10| 20 31 20 3d 20 72 69 67 | 68 74 2c 20 32 20 3d 20 | 1 = rig|ht, 2 = |
|00001d20| 6c 65 66 74 0d 08 fc 29 | f4 20 33 20 3d 20 62 65 |left...)|. 3 = be|
|00001d30| 74 77 65 65 6e 20 74 61 | 73 6b 6d 61 6e 61 67 65 |tween ta|skmanage|
|00001d40| 72 20 61 6e 64 20 70 61 | 6c 65 74 74 65 0d 09 06 |r and pa|lette...|
|00001d50| 30 f4 20 34 20 3d 20 62 | 65 74 77 65 65 6e 20 74 |0. 4 = b|etween t|
|00001d60| 61 73 6b 6d 61 6e 61 67 | 65 72 20 61 6e 64 20 65 |askmanag|er and e|
|00001d70| 64 67 65 20 6f 66 20 73 | 63 72 65 65 6e 0d 09 10 |dge of s|creen...|
|00001d80| 28 f4 20 35 20 3d 20 6c | 65 66 74 20 62 65 74 77 |(. 5 = l|eft betw|
|00001d90| 65 65 6e 20 74 79 70 65 | 20 32 20 61 6e 64 20 66 |een type| 2 and f|
|00001da0| 69 6c 65 72 73 0d 09 1a | 1c f4 20 36 20 3d 20 61 |ilers...|.. 6 = a|
|00001db0| 73 20 32 20 3f 2c 20 37 | 20 3d 20 61 73 20 31 20 |s 2 ?, 7| = as 1 |
|00001dc0| 3f 0d 09 24 24 f4 20 38 | 20 3d 20 62 65 74 77 65 |?..$$. 8| = betwe|
|00001dd0| 65 6e 20 70 61 6c 65 74 | 74 65 20 61 6e 64 20 74 |en palet|te and t|
|00001de0| 79 70 65 20 31 0d 09 2e | 36 dd a4 43 72 65 61 74 |ype 1...|6..Creat|
|00001df0| 65 49 63 6f 6e 42 61 72 | 49 63 6f 6e 28 53 70 72 |eIconBar|Icon(Spr|
|00001e00| 24 2c 54 69 74 6c 65 24 | 2c 70 6f 73 69 74 69 6f |$,Title$|,positio|
|00001e10| 6e 29 3a ea 20 68 61 6e | 64 6c 65 0d 09 38 12 62 |n):. han|dle..8.b|
|00001e20| 25 21 30 3d 2d 70 6f 73 | 69 74 69 6f 6e 0d 09 42 |%!0=-pos|ition..B|
|00001e30| 32 62 25 21 34 3d 30 3a | 62 25 21 38 3d 2d 31 36 |2b%!4=0:|b%!8=-16|
|00001e40| 3a 62 25 21 31 32 3d 31 | 32 2b 31 36 2a a9 28 54 |:b%!12=1|2+16*.(T|
|00001e50| 69 74 6c 65 24 29 3a 62 | 25 21 31 36 3d 38 38 0d |itle$):b|%!16=88.|
|00001e60| 09 4c 22 e7 62 25 21 31 | 32 3c 31 32 2b 31 36 2a |.L".b%!1|2<12+16*|
|00001e70| 34 20 8c 20 62 25 21 31 | 32 3d 31 32 2b 31 36 2a |4 . b%!1|2=12+16*|
|00001e80| 34 0d 09 56 12 e7 20 54 | 69 74 6c 65 24 3c 3e 22 |4..V.. T|itle$<>"|
|00001e90| 22 20 8c 0d 09 60 31 20 | 62 25 21 32 30 3d 28 31 |" ...`1 |b%!20=(1|
|00001ea0| 3c 3c 32 38 29 2b 28 37 | 3c 3c 32 34 29 2b 28 33 |<<28)+(7|<<24)+(3|
|00001eb0| 3c 3c 31 32 29 2b 28 25 | 31 30 31 31 29 2b 28 31 |<<12)+(%|1011)+(1|
|00001ec0| 3c 3c 38 29 0d 09 6a 1c | 20 62 25 21 32 34 3d a4 |<<8)..j.| b%!24=.|
|00001ed0| 69 6e 64 69 72 65 63 74 | 28 54 69 74 6c 65 24 29 |indirect|(Title$)|
|00001ee0| 0d 09 74 1e 20 62 25 21 | 32 38 3d a4 69 6e 64 69 |..t. b%!|28=.indi|
|00001ef0| 72 65 63 74 28 22 53 22 | 2b 53 70 72 24 29 0d 09 |rect("S"|+Spr$)..|
|00001f00| 7e 14 20 62 25 21 33 32 | 3d a9 28 54 69 74 6c 65 |~. b%!32|=.(Title|
|00001f10| 24 29 0d 09 88 05 cc 0d | 09 92 2b 20 62 25 21 32 |$)......|..+ b%!2|
|00001f20| 30 3d 28 31 3c 3c 32 38 | 29 2b 28 37 3c 3c 32 34 |0=(1<<28|)+(7<<24|
|00001f30| 29 2b 28 33 3c 3c 31 32 | 29 2b 28 25 31 31 30 31 |)+(3<<12|)+(%1101|
|00001f40| 30 29 0d 09 9c 12 20 24 | 28 62 25 2b 32 34 29 3d |0).... $|(b%+24)=|
|00001f50| 53 70 72 24 0d 09 a6 05 | cd 0d 09 b0 25 c8 99 20 |Spr$....|....%.. |
|00001f60| 22 57 69 6d 70 5f 43 72 | 65 61 74 65 49 63 6f 6e |"Wimp_Cr|eateIcon|
|00001f70| 22 2c 2c 62 25 20 b8 20 | 68 61 6e 64 6c 65 0d 09 |",,b% . |handle..|
|00001f80| ba 0b 3d 68 61 6e 64 6c | 65 0d 09 c4 05 3a 0d 09 |..=handl|e....:..|
|00001f90| ce 38 f4 20 50 52 4f 43 | 72 65 61 64 68 65 6c 70 |.8. PROC|readhelp|
|00001fa0| 20 3a 20 72 65 61 64 20 | 68 65 6c 70 20 66 72 6f | : read |help fro|
|00001fb0| 6d 20 61 70 70 6c 69 63 | 61 74 69 6f 6e 20 61 6e |m applic|ation an|
|00001fc0| 64 20 73 65 6e 64 0d 09 | d8 2d f4 20 50 52 4f 43 |d send..|.-. PROC|
|00001fd0| 73 65 6e 64 68 65 6c 70 | 20 3a 20 73 65 6e 64 20 |sendhelp| : send |
|00001fe0| 68 65 6c 70 20 74 6f 20 | 61 70 70 6c 69 63 61 74 |help to |applicat|
|00001ff0| 69 6f 6e 0d 09 e2 25 f4 | 20 55 73 65 20 3a 20 5c |ion...%.| Use : \|
|00002000| 53 20 66 6f 72 20 22 43 | 6c 69 63 6b 20 53 45 4c |S for "C|lick SEL|
|00002010| 45 43 54 20 74 6f 20 22 | 0d 09 ec 2f f4 20 20 20 |ECT to "|.../.   |
|00002020| 20 20 20 20 5c 52 20 66 | 6f 72 20 22 4d 6f 76 65 |    \R f|or "Move|
|00002030| 20 74 68 65 20 70 6f 69 | 6e 74 65 72 20 72 69 67 | the poi|nter rig|
|00002040| 68 74 20 74 6f 20 22 0d | 09 f6 25 f4 20 20 20 20 |ht to ".|..%.    |
|00002050| 20 20 20 5c 41 20 66 6f | 72 20 22 43 6c 69 63 6b |   \A fo|r "Click|
|00002060| 20 41 44 4a 55 53 54 20 | 74 6f 20 22 0d 0a 00 21 | ADJUST |to "...!|
|00002070| f4 20 20 20 20 20 20 20 | 5c 54 20 66 6f 72 20 22 |.       |\T for "|
|00002080| 54 68 69 73 20 69 73 20 | 74 68 65 20 22 0d 0a 0a |This is |the "...|
|00002090| 37 f4 20 20 20 20 20 20 | 20 5c 47 20 66 6f 72 20 |7.      | \G for |
|000020a0| 22 54 68 69 73 20 6f 70 | 74 69 6f 6e 20 69 73 20 |"This op|tion is |
|000020b0| 67 72 65 79 65 64 20 6f | 75 74 20 62 65 63 61 75 |greyed o|ut becau|
|000020c0| 73 65 20 22 0d 0a 14 24 | f4 20 20 20 20 20 20 20 |se "...$|.       |
|000020d0| 5c 57 20 66 6f 72 20 22 | 54 68 69 73 20 77 69 6e |\W for "|This win|
|000020e0| 64 6f 77 20 69 73 20 22 | 0d 0a 1e 24 f4 20 20 20 |dow is "|...$.   |
|000020f0| 20 20 20 20 5c 44 20 66 | 6f 72 20 22 44 72 61 67 |    \D f|or "Drag|
|00002100| 20 53 45 4c 45 43 54 20 | 74 6f 20 22 0d 0a 28 24 | SELECT |to "..($|
|00002110| f4 20 20 20 20 20 20 20 | 5c 64 20 66 6f 72 20 22 |.       |\d for "|
|00002120| 44 72 61 67 20 41 44 4a | 55 53 54 20 74 6f 20 22 |Drag ADJ|UST to "|
|00002130| 0d 0a 32 1b f4 20 20 20 | 20 20 20 20 5c 77 20 66 |..2..   |    \w f|
|00002140| 6f 72 20 22 77 69 6e 64 | 6f 77 22 0d 0a 3c 1b f4 |or "wind|ow"..<..|
|00002150| 20 20 20 20 20 20 20 5c | 73 20 66 6f 72 20 22 53 |       \|s for "S|
|00002160| 45 4c 45 43 54 22 0d 0a | 46 1b f4 20 20 20 20 20 |ELECT"..|F..     |
|00002170| 20 20 5c 61 20 66 6f 72 | 20 22 41 44 4a 55 53 54 |  \a for| "ADJUST|
|00002180| 22 0d 0a 50 19 f4 20 20 | 20 20 20 20 20 7c 4d 20 |"..P..  |     |M |
|00002190| 66 6f 72 20 72 65 74 75 | 72 6e 0d 0a 5a 27 f4 20 |for retu|rn..Z'. |
|000021a0| 20 20 20 20 20 20 a4 53 | 74 72 69 6e 67 24 a4 20 |      .S|tring$. |
|000021b0| 74 6f 20 69 6e 63 6c 75 | 64 65 20 73 74 72 69 6e |to inclu|de strin|
|000021c0| 67 0d 0a 64 2f f4 20 4e | 42 20 69 66 20 6e 6f 20 |g..d/. N|B if no |
|000021d0| 66 75 6c 6c 20 73 74 6f | 70 20 74 68 65 6e 20 6f |full sto|p then o|
|000021e0| 6e 65 20 77 69 6c 6c 20 | 62 65 20 61 64 64 65 64 |ne will |be added|
|000021f0| 0d 0a 6e 17 f4 20 46 6f | 72 6d 61 74 20 66 6f 72 |..n.. Fo|rmat for|
|00002200| 20 68 65 6c 70 20 3a 0d | 0a 78 28 f4 20 20 7b 20 | help :.|.x(.  { |
|00002210| 77 69 6e 64 6f 77 2c 68 | 65 6c 70 20 6d 65 73 73 |window,h|elp mess|
|00002220| 61 67 65 20 66 6f 72 20 | 6e 6f 20 69 63 6f 6e 0d |age for |no icon.|
|00002230| 0a 82 2a f4 20 20 20 20 | 7b 20 69 63 6f 6e 20 6e |..*.    |{ icon n|
|00002240| 75 6d 62 65 72 2c 20 6d | 65 73 73 61 67 65 20 7d |umber, m|essage }|
|00002250| 20 72 65 70 65 61 74 65 | 64 0d 0a 8c 11 f4 20 20 | repeate|d.....  |
|00002260| 7d 20 72 65 70 65 61 74 | 65 64 0d 0a 96 13 f4 20 |} repeat|ed..... |
|00002270| 20 2d 31 2c 2d 31 20 74 | 6f 20 65 6e 64 0d 0a a0 | -1,-1 t|o end...|
|00002280| 2f f4 20 4e 42 20 77 69 | 6e 64 6f 77 20 73 75 62 |/. NB wi|ndow sub|
|00002290| 6d 65 6e 75 73 20 6d 75 | 73 74 20 68 61 76 65 20 |menus mu|st have |
|000022a0| 68 65 6c 70 20 73 74 72 | 69 6e 67 73 0d 0a aa 1c |help str|ings....|
|000022b0| f4 20 46 6f 72 6d 61 74 | 20 66 6f 72 20 6d 65 6e |. Format| for men|
|000022c0| 75 20 68 65 6c 70 20 3a | 0d 0a b4 17 f4 20 20 7b |u help :|.....  {|
|000022d0| 20 6d 65 6e 75 2c 20 2d | 31 2c 2d 31 2c 2d 31 0d | menu, -|1,-1,-1.|
|000022e0| 0a be 1e f4 20 20 20 20 | 7b 20 6f 70 74 31 2c 6f |....    |{ opt1,o|
|000022f0| 70 74 32 2c 6f 70 74 33 | 2c 68 65 6c 70 0d 0a c8 |pt2,opt3|,help...|
|00002300| 27 f4 20 20 20 6f 72 20 | 2d 31 2c 73 74 72 69 6e |'.   or |-1,strin|
|00002310| 67 2c 2d 31 2c 68 65 6c | 70 20 7d 20 72 65 70 65 |g,-1,hel|p } repe|
|00002320| 61 74 65 64 0d 0a d2 11 | f4 20 20 7d 20 72 65 70 |ated....|.  } rep|
|00002330| 65 61 74 65 64 0d 0a dc | 12 f4 20 20 2d 32 2c 2d |eated...|..  -2,-|
|00002340| 32 2c 2d 32 2c 2d 32 0d | 0a e6 3c dd f2 72 65 61 |2,-2,-2.|..<..rea|
|00002350| 64 68 65 6c 70 28 77 69 | 6e 2c 69 63 6f 6e 2c 74 |dhelp(wi|n,icon,t|
|00002360| 6f 29 3a ea 20 6c 77 69 | 6e 2c 76 61 6c 2c 68 65 |o):. lwi|n,val,he|
|00002370| 6c 70 24 2c 66 6f 75 6e | 64 2c 61 24 2c 6d 24 2c |lp$,foun|d,a$,m$,|
|00002380| 6d 32 24 0d 0a f0 13 66 | 6f 75 6e 64 3d a3 3a 6c |m2$....f|ound=.:l|
|00002390| 77 69 6e 3d 2d 31 0d 0a | fa 05 f5 0d 0b 04 10 20 |win=-1..|....... |
|000023a0| f3 20 76 61 6c 2c 68 65 | 6c 70 24 0d 0b 0e 1c 20 |. val,he|lp$.... |
|000023b0| e7 20 76 61 6c 3e 28 31 | 3c 3c 31 36 29 20 84 20 |. val>(1|<<16) . |
|000023c0| 76 61 6c 3c 30 20 8c 0d | 0b 18 12 20 20 e7 20 6c |val<0 ..|...  . l|
|000023d0| 77 69 6e 3d 77 69 6e 20 | 8c 0d 0b 22 1f 20 20 20 |win=win |...".   |
|000023e0| 76 61 6c 3d 69 63 6f 6e | 3a 68 65 6c 70 24 3d 22 |val=icon|:help$="|
|000023f0| 22 3a 6d 32 24 3d 6d 24 | 0d 0b 2c 07 20 20 cc 0d |":m2$=m$|..,.  ..|
|00002400| 0b 36 18 20 20 20 6c 77 | 69 6e 3d 76 61 6c 3a 6d |.6.   lw|in=val:m|
|00002410| 24 3d 68 65 6c 70 24 0d | 0b 40 07 20 20 cd 0d 0b |$=help$.|.@.  ...|
|00002420| 4a 06 20 cd 0d 0b 54 1c | 20 e7 20 76 61 6c 3d 69 |J. ...T.| . val=i|
|00002430| 63 6f 6e 20 80 20 6c 77 | 69 6e 3d 77 69 6e 20 8c |con . lw|in=win .|
|00002440| 0d 0b 5e 1c 20 20 e7 20 | 69 63 6f 6e 3d 2d 31 20 |..^.  . |icon=-1 |
|00002450| 84 20 68 65 6c 70 24 3d | 22 22 20 8c 0d 0b 68 26 |. help$=|"" ...h&|
|00002460| 20 20 20 f2 73 65 6e 64 | 68 65 6c 70 28 a4 6d 73 |   .send|help(.ms|
|00002470| 67 74 65 78 74 28 6d 24 | 29 2b 22 7c 4d 22 2c 74 |gtext(m$|)+"|M",t|
|00002480| 6f 29 0d 0b 72 07 20 20 | cc 0d 0b 7c 39 20 20 20 |o)..r.  |...|9   |
|00002490| 6d 24 3d a4 6d 73 67 74 | 65 78 74 28 6d 24 29 3a |m$=.msgt|ext(m$):|
|000024a0| e7 20 a7 6d 24 2c 22 7c | 4d 22 29 3e 30 20 8c 6d |. .m$,"||M")>0 .m|
|000024b0| 24 3d c0 6d 24 2c a7 6d | 24 2c 22 7c 4d 22 29 2d |$=.m$,.m|$,"|M")-|
|000024c0| 31 29 0d 0b 86 36 20 20 | 20 f2 73 65 6e 64 68 65 |1)...6  | .sendhe|
|000024d0| 6c 70 28 a4 6d 73 67 74 | 65 78 74 28 6d 24 29 2b |lp(.msgt|ext(m$)+|
|000024e0| 22 7c 4d 22 2b a4 6d 73 | 67 74 65 78 74 28 68 65 |"|M"+.ms|gtext(he|
|000024f0| 6c 70 24 29 2c 74 6f 29 | 0d 0b 90 07 20 20 cd 0d |lp$),to)|....  ..|
|00002500| 0b 9a 0d 20 20 66 6f 75 | 6e 64 3d b9 0d 0b a4 06 |...  fou|nd=.....|
|00002510| 20 cd 0d 0b ae 1a fd 20 | 68 65 6c 70 24 3d 22 2d | ...... |help$="-|
|00002520| 31 22 20 84 20 66 6f 75 | 6e 64 3d b9 0d 0b b8 0f |1" . fou|nd=.....|
|00002530| e7 20 ac 20 66 6f 75 6e | 64 20 8c 0d 0b c2 42 20 |. . foun|d ....B |
|00002540| 21 6d 65 73 73 61 67 65 | 5f 62 75 66 66 65 72 25 |!message|_buffer%|
|00002550| 3d 2d 31 3a 6d 65 73 73 | 61 67 65 5f 62 75 66 66 |=-1:mess|age_buff|
|00002560| 65 72 25 21 34 3d 2d 31 | 3a 6d 65 73 73 61 67 65 |er%!4=-1|:message|
|00002570| 5f 62 75 66 66 65 72 25 | 21 38 3d 2d 31 0d 0b cc |_buffer%|!8=-1...|
|00002580| 36 20 c8 99 20 22 57 69 | 6d 70 5f 47 65 74 4d 65 |6 .. "Wi|mp_GetMe|
|00002590| 6e 75 53 74 61 74 65 22 | 2c 31 2c 6d 65 73 73 61 |nuState"|,1,messa|
|000025a0| 67 65 5f 62 75 66 66 65 | 72 25 2c 77 69 6e 2c 69 |ge_buffe|r%,win,i|
|000025b0| 63 6f 6e 0d 0b d6 1d 20 | e7 20 21 6d 65 73 73 61 |con.... |. !messa|
|000025c0| 67 65 5f 62 75 66 66 65 | 72 25 3c 3e 2d 31 20 8c |ge_buffe|r%<>-1 .|
|000025d0| 0d 0b e0 45 20 20 c8 99 | 20 22 57 69 6d 70 5f 44 |...E  ..| "Wimp_D|
|000025e0| 65 63 6f 64 65 4d 65 6e | 75 22 2c 2c 63 75 72 6d |ecodeMen|u",,curm|
|000025f0| 65 6e 75 25 2c 6d 65 73 | 73 61 67 65 5f 62 75 66 |enu%,mes|sage_buf|
|00002600| 66 65 72 25 2c c4 32 35 | 35 2c 22 20 22 29 20 b8 |fer%,.25|5," ") .|
|00002610| 2c 2c 2c 61 24 0d 0b e1 | 2f 20 20 6d 24 3d 61 24 |,,,a$...|/  m$=a$|
|00002620| 3a c8 95 20 a7 6d 24 2c | 22 20 22 29 3e 30 3a c1 |:.. .m$,|" ")>0:.|
|00002630| 6d 24 2c a7 6d 24 2c 22 | 20 22 29 2c 31 29 3d 22 |m$,.m$,"| "),1)="|
|00002640| 5f 22 3a ce 0d 0b ea 1e | 20 20 68 65 6c 70 24 3d |_":.....|  help$=|
|00002650| a4 6d 73 67 74 6f 6b 65 | 6e 28 22 48 4d 22 2b 6d |.msgtoke|n("HM"+m|
|00002660| 24 29 0d 0b f4 18 20 20 | e7 20 68 65 6c 70 24 3c |$)....  |. help$<|
|00002670| 3e 22 48 4d 22 2b 6d 24 | 20 8c 0d 0b fe 1a 20 20 |>"HM"+m$| .....  |
|00002680| 20 f2 73 65 6e 64 68 65 | 6c 70 28 68 65 6c 70 24 | .sendhe|lp(help$|
|00002690| 2c 74 6f 29 0d 0c 12 07 | 20 20 cc 0d 0c 1c 08 20 |,to)....|  ..... |
|000026a0| 20 20 f5 0d 0c 26 1e 20 | 20 20 20 f3 20 6d 24 2c |  ...&. |   . m$,|
|000026b0| 68 65 6c 70 24 2c 68 65 | 6c 70 24 2c 68 65 6c 70 |help$,he|lp$,help|
|000026c0| 24 0d 0c 30 21 20 20 20 | fd 20 a0 28 6d 24 29 3d |$..0!   |. .(m$)=|
|000026d0| 63 75 72 6d 65 6e 75 25 | 20 84 20 6d 24 3d 22 2d |curmenu%| . m$="-|
|000026e0| 32 22 0d 0c 3a 13 20 20 | 20 e7 20 6d 24 3c 3e 22 |2"..:.  | . m$<>"|
|000026f0| 2d 32 22 20 8c 0d 0c 44 | 09 20 20 20 20 f5 0d 0c |-2" ...D|.    ...|
|00002700| 4e 1c 20 20 20 20 20 f3 | 20 6c 77 69 6e 2c 6d 24 |N.     .| lwin,m$|
|00002710| 2c 76 61 6c 2c 68 65 6c | 70 24 0d 0c 58 1e 20 20 |,val,hel|p$..X.  |
|00002720| 20 20 20 e7 20 bb 28 6d | 24 29 3d 30 20 80 20 6d |   . .(m|$)=0 . m|
|00002730| 24 3c 3e 22 30 22 20 8c | 0d 0c 62 2e 20 20 20 20 |$<>"0" .|..b.    |
|00002740| 20 20 e7 20 61 24 3d 6d | 24 20 8c f2 73 65 6e 64 |  . a$=m|$ ..send|
|00002750| 68 65 6c 70 28 68 65 6c | 70 24 2c 74 6f 29 3a 66 |help(hel|p$,to):f|
|00002760| 6f 75 6e 64 3d b9 0d 0c | 6c 0a 20 20 20 20 20 cc |ound=...|l.     .|
|00002770| 0d 0c 76 56 20 20 20 20 | 20 20 e7 20 6c 77 69 6e |..vV    |  . lwin|
|00002780| 3d 6d 65 73 73 61 67 65 | 5f 62 75 66 66 65 72 25 |=message|_buffer%|
|00002790| 21 30 20 80 20 bb 28 6d | 24 29 3d 6d 65 73 73 61 |!0 . .(m|$)=messa|
|000027a0| 67 65 5f 62 75 66 66 65 | 72 25 21 34 20 80 20 76 |ge_buffe|r%!4 . v|
|000027b0| 61 6c 3d 6d 65 73 73 61 | 67 65 5f 62 75 66 66 65 |al=messa|ge_buffe|
|000027c0| 72 25 21 38 20 8c 0d 0c | 80 26 20 20 20 20 20 20 |r%!8 ...|.&      |
|000027d0| 20 f2 73 65 6e 64 68 65 | 6c 70 28 68 65 6c 70 24 | .sendhe|lp(help$|
|000027e0| 2c 74 6f 29 3a 66 6f 75 | 6e 64 3d b9 0d 0c 8a 0b |,to):fou|nd=.....|
|000027f0| 20 20 20 20 20 20 cd 0d | 0c 94 0a 20 20 20 20 20 |      ..|...     |
|00002800| cd 0d 0c 9e 28 20 20 20 | 20 fd 66 6f 75 6e 64 3d |....(   | .found=|
|00002810| b9 20 84 20 6c 77 69 6e | 3d 2d 32 20 84 20 6c 77 |. . lwin|=-2 . lw|
|00002820| 69 6e 20 3e 26 38 30 30 | 30 0d 0c 9f 08 20 20 20 |in >&800|0....   |
|00002830| cd 0d 0c a8 07 20 20 cd | 0d 0c b2 06 20 cd 0d 0c |.....  .|.... ...|
|00002840| bc 05 cd 0d 0c c6 05 e1 | 0d 0c d0 2e dd f2 73 65 |........|......se|
|00002850| 6e 64 68 65 6c 70 28 68 | 65 6c 70 24 2c 74 6f 29 |ndhelp(h|elp$,to)|
|00002860| 3a 68 65 6c 70 24 3d a4 | 6d 73 67 74 65 78 74 28 |:help$=.|msgtext(|
|00002870| 68 65 6c 70 24 29 0d 0c | da 22 e7 20 c2 68 65 6c |help$)..|.". .hel|
|00002880| 70 24 2c 32 29 3c 3e 22 | 7c 4d 22 20 8c 68 65 6c |p$,2)<>"||M" .hel|
|00002890| 70 24 2b 3d 22 7c 4d 22 | 0d 0c e4 0b ea 20 62 24 |p$+="|M"|..... b$|
|000028a0| 2c 63 24 0d 0c ee 14 c8 | 95 20 a7 68 65 6c 70 24 |,c$.....|. .help$|
|000028b0| 2c 22 a4 22 29 3e 30 0d | 0c f8 30 20 62 24 3d c1 |,".")>0.|..0 b$=.|
|000028c0| 68 65 6c 70 24 2c a7 68 | 65 6c 70 24 2c 22 a4 22 |help$,.h|elp$,"."|
|000028d0| 29 2b 31 29 3a 62 24 3d | c0 62 24 2c a7 62 24 2c |)+1):b$=|.b$,.b$,|
|000028e0| 22 a4 22 29 2d 31 29 0d | 0d 02 42 20 68 65 6c 70 |".")-1).|..B help|
|000028f0| 24 3d c0 68 65 6c 70 24 | 2c a7 68 65 6c 70 24 2c |$=.help$|,.help$,|
|00002900| 22 a4 22 29 2d 31 29 2b | a0 28 62 24 29 2b c1 68 |".")-1)+|.(b$)+.h|
|00002910| 65 6c 70 24 2c a7 68 65 | 6c 70 24 2c 22 a4 22 29 |elp$,.he|lp$,".")|
|00002920| 2b a9 28 62 24 29 2b 32 | 29 0d 0d 0c 05 ce 0d 0d |+.(b$)+2|).......|
|00002930| 16 15 c8 95 20 a7 68 65 | 6c 70 24 2c 22 7c 4d 22 |.... .he|lp$,"|M"|
|00002940| 29 3e 30 0d 0d 20 34 20 | 62 24 3d c0 68 65 6c 70 |)>0.. 4 |b$=.help|
|00002950| 24 2c a7 68 65 6c 70 24 | 2c 22 7c 4d 22 29 2d 31 |$,.help$|,"|M")-1|
|00002960| 29 3a 68 65 6c 70 24 3d | c1 68 65 6c 70 24 2c a9 |):help$=|.help$,.|
|00002970| 28 62 24 29 2b 33 29 0d | 0d 2a 20 20 e7 20 a7 22 |(b$)+3).|.*  . ."|
|00002980| 21 2e 3f 22 2c c2 62 24 | 2c 31 29 29 3d 30 20 8c |!.?",.b$|,1))=0 .|
|00002990| 62 24 2b 3d 22 2e 22 0d | 0d 34 10 20 63 24 2b 3d |b$+=".".|.4. c$+=|
|000029a0| 62 24 2b 22 7c 4d 22 0d | 0d 3e 05 ce 0d 0d 48 30 |b$+"|M".|.>....H0|
|000029b0| 62 25 21 31 32 3d 62 25 | 21 38 3a 62 25 21 34 3d |b%!12=b%|!8:b%!4=|
|000029c0| 74 6f 3a 62 25 21 31 36 | 3d 26 35 30 33 3a 24 28 |to:b%!16|=&503:$(|
|000029d0| 62 25 2b 32 30 29 3d 63 | 24 2b bd 30 0d 0d 52 1a |b%+20)=c|$+.0..R.|
|000029e0| 62 25 21 30 3d 32 30 2b | 28 a9 28 63 24 29 2b 34 |b%!0=20+|(.(c$)+4|
|000029f0| 29 20 80 20 2d 34 0d 0d | 5c 24 c8 99 20 22 57 69 |) . -4..|\$.. "Wi|
|00002a00| 6d 70 5f 53 65 6e 64 4d | 65 73 73 61 67 65 22 2c |mp_SendM|essage",|
|00002a10| 31 37 2c 62 25 2c 62 25 | 21 34 0d 0d 66 05 e1 0d |17,b%,b%|!4..f...|
|00002a20| 0d 70 05 3a 0d 0d 7a 42 | f4 20 46 4e 69 6e 64 69 |.p.:..zB|. FNindi|
|00002a30| 72 65 63 74 20 3a 20 50 | 6c 61 63 65 20 61 20 73 |rect : P|lace a s|
|00002a40| 74 72 69 6e 67 20 69 6e | 20 69 6e 64 69 72 65 63 |tring in| indirec|
|00002a50| 74 69 6f 6e 20 62 75 66 | 66 65 72 20 28 72 65 74 |tion buf|fer (ret|
|00002a60| 2e 20 6c 6f 63 29 0d 0d | 84 1d dd a4 69 6e 64 69 |. loc)..|....indi|
|00002a70| 72 65 63 74 28 61 24 29 | 3a ea 20 69 3a 69 3d 69 |rect(a$)|:. i:i=i|
|00002a80| 6e 64 25 0d 0d 8e 3c e7 | a9 28 61 24 29 3e 69 6e |nd%...<.|.(a$)>in|
|00002a90| 64 6c 25 2d 31 20 8c 85 | 20 26 38 30 33 2c 22 4e |dl%-1 ..| &803,"N|
|00002aa0| 6f 74 20 65 6e 6f 75 67 | 68 20 72 6f 6f 6d 20 66 |ot enoug|h room f|
|00002ab0| 6f 72 20 69 6e 64 69 72 | 65 63 74 69 6f 6e 22 0d |or indir|ection".|
|00002ac0| 0d 98 29 24 69 6e 64 25 | 3d 61 24 3a 69 6e 64 25 |..)$ind%|=a$:ind%|
|00002ad0| 2b 3d a9 28 61 24 29 2b | 31 3a 69 6e 64 6c 25 2d |+=.(a$)+|1:indl%-|
|00002ae0| 3d a9 28 61 24 29 2b 31 | 0d 0d a2 06 3d 69 0d 0d |=.(a$)+1|....=i..|
|00002af0| ac 05 3a 0d 0d b6 32 f4 | 20 46 4e 6c 6f 61 64 74 |..:...2.| FNloadt|
|00002b00| 65 6d 70 6c 61 74 65 20 | 3a 20 6c 6f 61 64 20 74 |emplate |: load t|
|00002b10| 68 65 20 73 70 65 63 69 | 66 69 65 64 20 74 65 6d |he speci|fied tem|
|00002b20| 70 6c 61 74 65 0d 0d c0 | 32 f4 20 73 70 72 62 6c |plate...|2. sprbl|
|00002b30| 6b 25 20 73 68 6f 75 6c | 64 20 62 65 20 31 20 66 |k% shoul|d be 1 f|
|00002b40| 6f 72 20 74 68 65 20 73 | 74 61 6e 64 61 72 64 20 |or the s|tandard |
|00002b50| 73 70 72 69 74 65 73 0d | 0d ca 30 dd a4 6c 6f 61 |sprites.|..0..loa|
|00002b60| 64 74 65 6d 70 6c 61 74 | 65 28 6e 24 2c 73 70 72 |dtemplat|e(n$,spr|
|00002b70| 62 6c 6b 25 29 3a ea 20 | 74 73 69 7a 65 25 2c 62 |blk%):. |tsize%,b|
|00002b80| 6c 6b 25 2c 6f 6b 25 0d | 0d d4 30 c8 99 20 22 57 |lk%,ok%.|..0.. "W|
|00002b90| 69 6d 70 5f 4f 70 65 6e | 54 65 6d 70 6c 61 74 65 |imp_Open|Template|
|00002ba0| 22 2c 2c 41 70 70 64 69 | 72 24 2b 22 2e 54 65 6d |",,Appdi|r$+".Tem|
|00002bb0| 70 6c 61 74 65 73 22 0d | 0d de 30 c8 99 20 22 57 |plates".|..0.. "W|
|00002bc0| 69 6d 70 5f 4c 6f 61 64 | 54 65 6d 70 6c 61 74 65 |imp_Load|Template|
|00002bd0| 22 2c 2c 30 2c 2c 2c 2c | 6e 24 2c 30 20 b8 20 2c |",,0,,,,|n$,0 . ,|
|00002be0| 2c 74 73 69 7a 65 25 0d | 0d e8 11 de 20 62 6c 6b |,tsize%.|.... blk|
|00002bf0| 25 20 74 73 69 7a 65 25 | 0d 0d f2 48 c8 99 20 22 |% tsize%|...H.. "|
|00002c00| 57 69 6d 70 5f 4c 6f 61 | 64 54 65 6d 70 6c 61 74 |Wimp_Loa|dTemplat|
|00002c10| 65 22 2c 2c 77 73 70 63 | 25 2c 62 6c 6b 25 2c 62 |e",,wspc|%,blk%,b|
|00002c20| 6c 6b 25 20 2b 20 74 73 | 69 7a 65 25 2c 2d 31 2c |lk% + ts|ize%,-1,|
|00002c30| 6e 24 2c 30 20 b8 20 2c | 2c 2c 2c 2c 2c 6f 6b 25 |n$,0 . ,|,,,,,ok%|
|00002c40| 0d 0d fc 1b c8 99 20 22 | 57 69 6d 70 5f 43 6c 6f |...... "|Wimp_Clo|
|00002c50| 73 65 54 65 6d 70 6c 61 | 74 65 22 0d 0e 06 35 e7 |seTempla|te"...5.|
|00002c60| 20 6f 6b 25 3d 30 20 8c | 85 20 26 38 30 33 2c 20 | ok%=0 .|. &803, |
|00002c70| 22 54 65 6d 70 6c 61 74 | 65 20 66 69 6c 65 20 22 |"Templat|e file "|
|00002c80| 2b 6e 24 2b 22 20 6e 6f | 74 20 66 6f 75 6e 64 22 |+n$+" no|t found"|
|00002c90| 0d 0e 10 39 77 73 70 63 | 25 21 36 34 3d 73 70 72 |...9wspc|%!64=spr|
|00002ca0| 62 6c 6b 25 3a c8 99 20 | 22 57 69 6d 70 5f 43 72 |blk%:.. |"Wimp_Cr|
|00002cb0| 65 61 74 65 57 69 6e 64 | 6f 77 22 2c 2c 77 73 70 |eateWind|ow",,wsp|
|00002cc0| 63 25 20 b8 20 62 6c 6b | 25 0d 0e 1a 09 3d 62 6c |c% . blk|%....=bl|
|00002cd0| 6b 25 0d 0e 24 05 3a 0d | 0e 2e 36 f4 20 46 4e 6c |k%..$.:.|..6. FNl|
|00002ce0| 6f 61 64 73 70 72 69 74 | 65 73 20 3a 20 4c 6f 61 |oadsprit|es : Loa|
|00002cf0| 64 20 73 70 72 69 74 65 | 20 66 69 6c 65 20 69 6e |d sprite| file in|
|00002d00| 74 6f 20 67 69 76 65 6e | 20 61 72 65 61 0d 0e 38 |to given| area..8|
|00002d10| 22 dd a4 6c 6f 61 64 73 | 70 72 69 74 65 73 28 66 |"..loads|prites(f|
|00002d20| 69 6c 65 24 29 3a ea 20 | 6c 65 6e 25 2c 4f 25 0d |ile$):. |len%,O%.|
|00002d30| 0e 42 1a 4f 25 3d 8e 28 | 66 69 6c 65 24 29 3a e7 |.B.O%=.(|file$):.|
|00002d40| 20 4f 25 3d 30 20 8c 3d | 31 0d 0e 4c 15 6c 65 6e | O%=0 .=|1..L.len|
|00002d50| 25 3d a2 23 4f 25 2b 31 | 36 3a d9 23 4f 25 0d 0e |%=.#O%+1|6:.#O%..|
|00002d60| 56 2c de 20 73 70 72 62 | 6c 6b 25 20 6c 65 6e 25 |V,. sprb|lk% len%|
|00002d70| 3a 21 73 70 72 62 6c 6b | 25 3d 6c 65 6e 25 3a 73 |:!sprblk|%=len%:s|
|00002d80| 70 72 62 6c 6b 25 21 38 | 3d 30 0d 0e 60 20 c8 99 |prblk%!8|=0..` ..|
|00002d90| 22 4f 53 5f 53 70 72 69 | 74 65 4f 70 22 2c 26 31 |"OS_Spri|teOp",&1|
|00002da0| 30 39 2c 73 70 72 62 6c | 6b 25 0d 0e 6a 26 c8 99 |09,sprbl|k%..j&..|
|00002db0| 22 4f 53 5f 53 70 72 69 | 74 65 4f 70 22 2c 26 31 |"OS_Spri|teOp",&1|
|00002dc0| 30 41 2c 73 70 72 62 6c | 6b 25 2c 66 69 6c 65 24 |0A,sprbl|k%,file$|
|00002dd0| 0d 0e 74 0c 3d 73 70 72 | 62 6c 6b 25 0d 0e 7e 05 |..t.=spr|blk%..~.|
|00002de0| 3a 0d 0e 88 3c f4 20 50 | 52 4f 43 6f 70 65 6e 6d |:...<. P|ROCopenm|
|00002df0| 65 73 73 61 67 65 73 20 | 20 3a 20 6f 70 65 6e 20 |essages | : open |
|00002e00| 61 20 4d 65 73 73 61 67 | 65 54 72 61 6e 73 20 66 |a Messag|eTrans f|
|00002e10| 69 6c 65 20 66 6f 72 20 | 69 6e 70 75 74 0d 0e 92 |ile for |input...|
|00002e20| 39 f4 20 46 4e 6d 73 67 | 74 6f 6b 65 6e 20 20 20 |9. FNmsg|token   |
|00002e30| 20 20 20 20 20 3a 20 74 | 72 61 6e 73 6c 61 74 65 |     : t|ranslate|
|00002e40| 20 61 20 74 6f 6b 65 6e | 20 69 6e 74 6f 20 61 20 | a token| into a |
|00002e50| 73 74 72 69 6e 67 0d 0e | 9c 33 f4 20 50 52 4f 43 |string..|.3. PROC|
|00002e60| 63 6c 6f 73 65 6d 65 73 | 73 61 67 65 73 20 3a 20 |closemes|sages : |
|00002e70| 63 6c 6f 73 65 20 61 20 | 4d 65 73 73 61 67 65 54 |close a |MessageT|
|00002e80| 72 61 6e 73 20 66 69 6c | 65 0d 0e a6 18 dd f2 6f |rans fil|e......o|
|00002e90| 70 65 6e 6d 65 73 73 61 | 67 65 73 3a ea 20 66 2c |penmessa|ges:. f,|
|00002ea0| 6c 0d 0e b0 38 e7 20 6d | 73 67 62 75 66 66 65 72 |l...8. m|sgbuffer|
|00002eb0| 25 3c 3e 2d 31 20 8c 85 | 20 26 38 30 30 2c 22 4d |%<>-1 ..| &800,"M|
|00002ec0| 65 73 73 61 67 65 20 66 | 69 6c 65 20 61 6c 72 65 |essage f|ile alre|
|00002ed0| 61 64 79 20 6f 70 65 6e | 22 0d 0e ba 3a c8 99 20 |ady open|"...:.. |
|00002ee0| 22 4d 65 73 73 61 67 65 | 54 72 61 6e 73 5f 46 69 |"Message|Trans_Fi|
|00002ef0| 6c 65 49 6e 66 6f 22 2c | 2c 41 70 70 64 69 72 24 |leInfo",|,Appdir$|
|00002f00| 2b 22 2e 4d 65 73 73 61 | 67 65 73 22 20 b8 20 66 |+".Messa|ges" . f|
|00002f10| 2c 2c 6c 0d 0e c4 34 e7 | 20 28 66 20 80 31 29 3d |,,l...4.| (f .1)=|
|00002f20| 31 20 8c 6d 73 67 62 75 | 66 66 65 72 32 25 3d 30 |1 .msgbu|ffer2%=0|
|00002f30| 20 8b 6d 73 67 62 75 66 | 66 65 72 32 25 3d a4 63 | .msgbuf|fer2%=.c|
|00002f40| 6c 61 69 6d 28 6c 29 0d | 0e ce 48 e7 20 6d 73 67 |laim(l).|..H. msg|
|00002f50| 62 75 66 66 65 72 32 25 | 3d 2d 31 20 8c 85 20 26 |buffer2%|=-1 .. &|
|00002f60| 38 30 32 2c 22 4e 6f 20 | 72 6f 6f 6d 20 66 6f 72 |802,"No |room for|
|00002f70| 20 73 65 63 6f 6e 64 61 | 72 79 20 4d 65 73 73 61 | seconda|ry Messa|
|00002f80| 67 65 54 72 61 6e 73 20 | 62 75 66 66 65 72 22 0d |geTrans |buffer".|
|00002f90| 0e d8 71 6d 73 67 62 75 | 66 66 65 72 25 3d a4 63 |..qmsgbu|ffer%=.c|
|00002fa0| 6c 61 69 6d 28 31 36 29 | 3a e7 20 6d 73 67 62 75 |laim(16)|:. msgbu|
|00002fb0| 66 66 65 72 25 3d 2d 31 | 20 8c f2 72 65 6c 65 61 |ffer%=-1| ..relea|
|00002fc0| 73 65 28 6d 73 67 62 75 | 66 66 65 72 32 25 29 3a |se(msgbu|ffer2%):|
|00002fd0| 85 20 26 38 30 32 2c 22 | 4e 6f 20 72 6f 6f 6d 20 |. &802,"|No room |
|00002fe0| 66 6f 72 20 70 72 69 6d | 61 72 79 20 4d 65 73 73 |for prim|ary Mess|
|00002ff0| 61 67 65 54 72 61 6e 73 | 20 62 75 66 66 65 72 22 |ageTrans| buffer"|
|00003000| 0d 0e e2 49 c8 99 20 22 | 4d 65 73 73 61 67 65 54 |...I.. "|MessageT|
|00003010| 72 61 6e 73 5f 4f 70 65 | 6e 46 69 6c 65 22 2c 6d |rans_Ope|nFile",m|
|00003020| 73 67 62 75 66 66 65 72 | 25 2c 41 70 70 64 69 72 |sgbuffer|%,Appdir|
|00003030| 24 2b 22 2e 4d 65 73 73 | 61 67 65 73 22 2c 6d 73 |$+".Mess|ages",ms|
|00003040| 67 62 75 66 66 65 72 32 | 25 0d 0e ec 05 e1 0d 0e |gbuffer2|%.......|
|00003050| f6 13 dd f2 63 6c 6f 73 | 65 6d 65 73 73 61 67 65 |....clos|emessage|
|00003060| 73 0d 0f 00 07 ea 20 85 | 0d 0f 0a 1e ee 20 85 20 |s..... .|..... . |
|00003070| ea 3a ef 34 3a f6 3a f1 | 22 20 61 74 20 22 3b 9e |.:.4:.:.|" at ";.|
|00003080| 3a 47 3d a5 3a e1 0d 0f | 14 15 e7 20 6d 73 67 62 |:G=.:...|... msgb|
|00003090| 75 66 66 65 72 25 3e 2d | 31 20 8c 0d 0f 1e 2c 20 |uffer%>-|1 ...., |
|000030a0| c8 99 20 22 58 4d 65 73 | 73 61 67 65 54 72 61 6e |.. "XMes|sageTran|
|000030b0| 73 5f 43 6c 6f 73 65 46 | 69 6c 65 22 2c 6d 73 67 |s_CloseF|ile",msg|
|000030c0| 62 75 66 66 65 72 25 0d | 0f 28 2f 20 f2 72 65 6c |buffer%.|.(/ .rel|
|000030d0| 65 61 73 65 28 6d 73 67 | 62 75 66 66 65 72 25 29 |ease(msg|buffer%)|
|000030e0| 3a f2 72 65 6c 65 61 73 | 65 28 6d 73 67 62 75 66 |:.releas|e(msgbuf|
|000030f0| 66 65 72 32 25 29 0d 0f | 32 05 cd 0d 0f 3c 05 e1 |fer2%)..|2....<..|
|00003100| 0d 0f 46 05 3a 0d 0f 50 | 11 dd a4 6d 73 67 74 65 |..F.:..P|...msgte|
|00003110| 78 74 28 61 24 29 0d 0f | 5a 26 e7 20 c0 61 24 2c |xt(a$)..|Z&. .a$,|
|00003120| 31 29 3d 22 3e 22 20 8c | 61 24 3d a4 6d 73 67 74 |1)=">" .|a$=.msgt|
|00003130| 6f 6b 65 6e 28 c1 61 24 | 2c 32 29 29 0d 0f 64 07 |oken(.a$|,2))..d.|
|00003140| 3d 61 24 0d 0f 6e 2a dd | a4 6d 73 67 74 6f 6b 65 |=a$..n*.|.msgtoke|
|00003150| 6e 28 74 24 29 3a ea 20 | 73 31 24 2c 73 32 24 2c |n(t$):. |s1$,s2$,|
|00003160| 73 33 24 2c 61 24 2c 6c | 65 6e 25 2c 66 0d 0f 78 |s3$,a$,l|en%,f..x|
|00003170| 2a e7 20 6d 73 67 62 75 | 66 66 65 72 25 3d 2d 31 |*. msgbu|ffer%=-1|
|00003180| 20 8c 3d 74 24 20 8b 74 | 24 2b 3d 22 3a 3a 3a 3a | .=t$ .t|$+="::::|
|00003190| 22 3a 61 24 3d 74 24 0d | 0f 82 29 61 24 3d c1 61 |":a$=t$.|..)a$=.a|
|000031a0| 24 2c a7 61 24 2c 22 3a | 22 29 2b 31 29 3a 74 24 |$,.a$,":|")+1):t$|
|000031b0| 3d c0 74 24 2c a7 74 24 | 2c 22 3a 22 29 2d 31 29 |=.t$,.t$|,":")-1)|
|000031c0| 0d 0f 8c 28 73 31 24 3d | c0 61 24 2c a7 61 24 2c |...(s1$=|.a$,.a$,|
|000031d0| 22 3a 22 29 2d 31 29 3a | 61 24 3d c1 61 24 2c a9 |":")-1):|a$=.a$,.|
|000031e0| 28 73 31 24 29 2b 32 29 | 0d 0f 96 28 73 32 24 3d |(s1$)+2)|...(s2$=|
|000031f0| c0 61 24 2c a7 61 24 2c | 22 3a 22 29 2d 31 29 3a |.a$,.a$,|":")-1):|
|00003200| 61 24 3d c1 61 24 2c a9 | 28 73 32 24 29 2b 32 29 |a$=.a$,.|(s2$)+2)|
|00003210| 0d 0f a0 28 73 33 24 3d | c0 61 24 2c a7 61 24 2c |...(s3$=|.a$,.a$,|
|00003220| 22 3a 22 29 2d 31 29 3a | 61 24 3d c1 61 24 2c a9 |":")-1):|a$=.a$,.|
|00003230| 28 73 33 24 29 2b 32 29 | 0d 0f aa 57 c8 99 20 22 |(s3$)+2)|...W.. "|
|00003240| 58 4d 65 73 73 61 67 65 | 54 72 61 6e 73 5f 4c 6f |XMessage|Trans_Lo|
|00003250| 6f 6b 75 70 22 2c 6d 73 | 67 62 75 66 66 65 72 25 |okup",ms|gbuffer%|
|00003260| 2c 74 24 2c 6d 65 73 73 | 61 67 65 5f 62 75 66 66 |,t$,mess|age_buff|
|00003270| 65 72 25 2c 32 35 36 2c | 73 31 24 2c 73 32 24 2c |er%,256,|s1$,s2$,|
|00003280| 73 33 24 20 b8 20 2c 2c | 2c 6c 65 6e 25 3b 66 0d |s3$ . ,,|,len%;f.|
|00003290| 0f b4 2c e7 20 28 66 20 | 80 31 29 3d 31 20 8c 3d |..,. (f |.1)=1 .=|
|000032a0| 74 24 20 8b 6d 65 73 73 | 61 67 65 5f 62 75 66 66 |t$ .mess|age_buff|
|000032b0| 65 72 25 3f 6c 65 6e 25 | 3d 31 33 0d 0f be 15 3d |er%?len%|=13....=|
|000032c0| 24 6d 65 73 73 61 67 65 | 5f 62 75 66 66 65 72 25 |$message|_buffer%|
|000032d0| 0d 0f c8 05 3a 0d 0f d2 | 30 f4 20 46 4e 63 72 65 |....:...|0. FNcre|
|000032e0| 61 74 65 66 74 6d 65 6e | 75 20 20 20 20 3a 20 43 |ateftmen|u    : C|
|000032f0| 72 65 61 74 65 20 61 20 | 66 69 6c 65 74 79 70 65 |reate a |filetype|
|00003300| 20 6d 65 6e 75 0d 0f dc | 37 f4 20 50 52 4f 43 72 | menu...|7. PROCr|
|00003310| 65 6c 65 61 73 65 66 74 | 6d 65 6e 75 20 3a 20 52 |eleaseft|menu : R|
|00003320| 65 6c 65 61 73 65 20 73 | 70 61 63 65 20 75 73 65 |elease s|pace use|
|00003330| 64 20 62 79 20 46 54 20 | 6d 65 6e 75 0d 0f e6 12 |d by FT |menu....|
|00003340| dd a4 63 72 65 61 74 65 | 66 74 6d 65 6e 75 0d 0f |..create|ftmenu..|
|00003350| f0 2d ea 20 6c 65 6e 2c | 6e 61 6d 65 2c 74 79 70 |.-. len,|name,typ|
|00003360| 65 2c 66 6c 61 67 73 2c | 6d 6c 65 6e 2c 69 6c 65 |e,flags,|mlen,ile|
|00003370| 6e 2c 6e 24 2c 76 24 2c | 6d 73 74 0d 0f fa 51 c8 |n,n$,v$,|mst...Q.|
|00003380| 99 20 22 58 4f 53 5f 52 | 65 61 64 56 61 72 56 61 |. "XOS_R|eadVarVa|
|00003390| 6c 22 2c 22 46 69 6c 65 | 24 54 79 70 65 5f 2a 22 |l","File|$Type_*"|
|000033a0| 2c 6d 65 73 73 61 67 65 | 5f 62 75 66 66 65 72 25 |,message|_buffer%|
|000033b0| 2c 32 35 36 20 b8 20 2c | 2c 6c 65 6e 2c 6e 61 6d |,256 . ,|,len,nam|
|000033c0| 65 2c 74 79 70 65 3b 66 | 6c 61 67 73 0d 10 04 15 |e,type;f|lags....|
|000033d0| 6d 6c 65 6e 3d 32 38 2b | 32 34 3a 69 6c 65 6e 3d |mlen=28+|24:ilen=|
|000033e0| 39 0d 10 0e 14 c8 95 20 | 28 66 6c 61 67 73 20 80 |9...... |(flags .|
|000033f0| 31 29 3c 3e 31 0d 10 18 | 0f 20 e7 20 74 79 70 65 |1)<>1...|. . type|
|00003400| 3d 30 20 8c 0d 10 22 24 | 20 20 6d 6c 65 6e 2b 3d |=0 ..."$|  mlen+=|
|00003410| 32 34 3a 6e 24 3d c2 a4 | 73 74 72 69 6e 67 30 28 |24:n$=..|string0(|
|00003420| 6e 61 6d 65 29 2c 33 29 | 0d 10 2c 2d 20 20 c8 99 |name),3)|..,-  ..|
|00003430| 20 22 58 57 69 6d 70 5f | 53 70 72 69 74 65 4f 70 | "XWimp_|SpriteOp|
|00003440| 22 2c 32 34 2c 2c 22 53 | 6d 61 6c 6c 5f 22 2b 6e |",24,,"S|mall_"+n|
|00003450| 24 20 b8 3b 66 0d 10 36 | 11 20 20 e7 20 28 66 20 |$ .;f..6|.  . (f |
|00003460| 80 31 29 3d 31 8c 0d 10 | 40 2d 20 20 20 c8 99 20 |.1)=1...|@-   .. |
|00003470| 22 58 57 69 6d 70 5f 53 | 70 72 69 74 65 4f 70 22 |"XWimp_S|priteOp"|
|00003480| 2c 32 34 2c 2c 22 46 69 | 6c 65 5f 22 2b 6e 24 20 |,24,,"Fi|le_"+n$ |
|00003490| b8 3b 66 0d 10 4a 2c 20 | 20 20 e7 20 28 66 20 80 |.;f..J, |  . (f .|
|000034a0| 31 29 3d 30 8c 69 6c 65 | 6e 2b 3d 31 31 2b 6c 65 |1)=0.ile|n+=11+le|
|000034b0| 6e 20 8b 69 6c 65 6e 2b | 3d 6c 65 6e 2b 31 31 0d |n .ilen+|=len+11.|
|000034c0| 10 54 07 20 20 cc 0d 10 | 5e 13 20 20 20 69 6c 65 |.T.  ...|^.   ile|
|000034d0| 6e 2b 3d 31 32 2b 6c 65 | 6e 0d 10 68 07 20 20 cd |n+=12+le|n..h.  .|
|000034e0| 0d 10 72 06 20 cd 0d 10 | 7c 57 20 c8 99 20 22 58 |..r. ...||W .. "X|
|000034f0| 4f 53 5f 52 65 61 64 56 | 61 72 56 61 6c 22 2c 22 |OS_ReadV|arVal","|
|00003500| 46 69 6c 65 24 54 79 70 | 65 5f 2a 22 2c 6d 65 73 |File$Typ|e_*",mes|
|00003510| 73 61 67 65 5f 62 75 66 | 66 65 72 25 2c 32 35 36 |sage_buf|fer%,256|
|00003520| 2c 6e 61 6d 65 20 b8 20 | 2c 2c 6c 65 6e 2c 6e 61 |,name . |,,len,na|
|00003530| 6d 65 2c 74 79 70 65 3b | 66 6c 61 67 73 0d 10 86 |me,type;|flags...|
|00003540| 05 ce 0d 10 90 1b 66 74 | 62 6c 6b 3d a4 63 6c 61 |......ft|blk=.cla|
|00003550| 69 6d 28 6d 6c 65 6e 2b | 69 6c 65 6e 29 0d 10 9a |im(mlen+|ilen)...|
|00003560| 10 e7 20 66 74 62 6c 6b | 3d 2d 31 20 8c 0d 10 a4 |.. ftblk|=-1 ....|
|00003570| 1a 20 66 74 62 6c 6b 3d | a4 63 6c 61 69 6d 28 32 |. ftblk=|.claim(2|
|00003580| 38 2b 32 34 2b 39 29 0d | 10 ae 28 20 24 66 74 62 |8+24+9).|..( $ftb|
|00003590| 6c 6b 3d 22 46 69 6c 65 | 20 74 79 70 65 73 22 3a |lk="File| types":|
|000035a0| 66 74 62 6c 6b 21 31 32 | 3d 26 37 30 32 30 37 0d |ftblk!12|=&70207.|
|000035b0| 10 b8 2b 20 66 74 62 6c | 6b 21 31 36 3d 31 36 2a |..+ ftbl|k!16=16*|
|000035c0| 31 32 3a 66 74 62 6c 6b | 21 32 30 3d 26 32 38 3a |12:ftblk|!20=&28:|
|000035d0| 66 74 62 6c 6b 21 32 34 | 3d 30 0d 10 c2 2f 20 66 |ftblk!24|=0.../ f|
|000035e0| 74 62 6c 6b 21 32 38 3d | 26 38 30 3a 66 74 62 6c |tblk!28=|&80:ftbl|
|000035f0| 6b 21 33 32 3d 2d 31 3a | 66 74 62 6c 6b 21 33 36 |k!32=-1:|ftblk!36|
|00003600| 3d 26 37 30 30 30 31 32 | 31 0d 10 cc 2f 20 66 74 |=&700012|1.../ ft|
|00003610| 62 6c 6b 21 34 30 3d 66 | 74 62 6c 6b 2b 32 38 2b |blk!40=f|tblk+28+|
|00003620| 32 34 3a 66 74 62 6c 6b | 21 34 34 3d 30 3a 66 74 |24:ftblk|!44=0:ft|
|00003630| 62 6c 6b 21 34 38 3d 39 | 0d 10 d6 16 20 24 28 66 |blk!48=9|.... $(f|
|00003640| 74 62 6c 6b 2b 32 38 2b | 32 34 29 3d 22 22 0d 10 |tblk+28+|24)=""..|
|00003650| e0 05 cc 0d 10 ea 28 20 | 24 66 74 62 6c 6b 3d 22 |......( |$ftblk="|
|00003660| 46 69 6c 65 20 74 79 70 | 65 73 22 3a 66 74 62 6c |File typ|es":ftbl|
|00003670| 6b 21 31 32 3d 26 37 30 | 32 30 37 0d 10 f4 2b 20 |k!12=&70|207...+ |
|00003680| 66 74 62 6c 6b 21 31 36 | 3d 31 36 2a 31 32 3a 66 |ftblk!16|=16*12:f|
|00003690| 74 62 6c 6b 21 32 30 3d | 26 32 38 3a 66 74 62 6c |tblk!20=|&28:ftbl|
|000036a0| 6b 21 32 34 3d 30 0d 10 | fe 2a 20 69 6c 65 6e 3d |k!24=0..|.* ilen=|
|000036b0| 6d 6c 65 6e 2b 66 74 62 | 6c 6b 3a 6d 6c 65 6e 3d |mlen+ftb|lk:mlen=|
|000036c0| 69 6c 65 6e 2d 32 34 3a | 6d 73 74 3d 6d 6c 65 6e |ilen-24:|mst=mlen|
|000036d0| 0d 11 08 54 20 c8 99 20 | 22 58 4f 53 5f 52 65 61 |...T .. |"XOS_Rea|
|000036e0| 64 56 61 72 56 61 6c 22 | 2c 22 46 69 6c 65 24 54 |dVarVal"|,"File$T|
|000036f0| 79 70 65 5f 2a 22 2c 6d | 65 73 73 61 67 65 5f 62 |ype_*",m|essage_b|
|00003700| 75 66 66 65 72 25 2c 32 | 35 36 2c 30 20 b8 20 2c |uffer%,2|56,0 . ,|
|00003710| 2c 6c 65 6e 2c 6e 61 6d | 65 2c 74 79 70 65 3b 66 |,len,nam|e,type;f|
|00003720| 6c 61 67 73 0d 11 12 15 | 20 c8 95 20 28 66 6c 61 |lags....| .. (fla|
|00003730| 67 73 20 80 31 29 3c 3e | 31 0d 11 1c 10 20 20 e7 |gs .1)<>|1....  .|
|00003740| 20 74 79 70 65 3d 30 20 | 8c 0d 11 26 4f 20 20 20 | type=0 |...&O   |
|00003750| 6d 65 73 73 61 67 65 5f | 62 75 66 66 65 72 25 21 |message_|buffer%!|
|00003760| 6c 65 6e 3d 30 3a 6e 24 | 3d c2 a4 73 74 72 69 6e |len=0:n$|=..strin|
|00003770| 67 30 28 6e 61 6d 65 29 | 2c 33 29 3a 76 24 3d a4 |g0(name)|,3):v$=.|
|00003780| 73 74 72 69 6e 67 30 28 | 6d 65 73 73 61 67 65 5f |string0(|message_|
|00003790| 62 75 66 66 65 72 25 29 | 0d 11 30 19 20 20 20 6d |buffer%)|..0.   m|
|000037a0| 6c 65 6e 21 30 3d 30 3a | 6d 6c 65 6e 21 34 3d 2d |len!0=0:|mlen!4=-|
|000037b0| 31 0d 11 3a 2e 20 20 20 | c8 99 20 22 58 57 69 6d |1..:.   |.. "XWim|
|000037c0| 70 5f 53 70 72 69 74 65 | 4f 70 22 2c 32 34 2c 2c |p_Sprite|Op",24,,|
|000037d0| 22 53 6d 61 6c 6c 5f 22 | 2b 6e 24 20 b8 3b 66 0d |"Small_"|+n$ .;f.|
|000037e0| 11 44 12 20 20 20 e7 20 | 28 66 20 80 31 29 3d 31 |.D.   . |(f .1)=1|
|000037f0| 8c 0d 11 4e 2e 20 20 20 | 20 c8 99 20 22 58 57 69 |...N.   | .. "XWi|
|00003800| 6d 70 5f 53 70 72 69 74 | 65 4f 70 22 2c 32 34 2c |mp_Sprit|eOp",24,|
|00003810| 2c 22 46 69 6c 65 5f 22 | 2b 6e 24 20 b8 3b 66 0d |,"File_"|+n$ .;f.|
|00003820| 11 58 2f 20 20 20 20 e7 | 20 28 66 20 80 31 29 3d |.X/    .| (f .1)=|
|00003830| 30 8c 6e 24 3d 22 46 69 | 6c 65 5f 22 2b 6e 24 20 |0.n$="Fi|le_"+n$ |
|00003840| 8b 6e 24 3d 22 46 69 6c | 65 5f 78 78 78 22 0d 11 |.n$="Fil|e_xxx"..|
|00003850| 62 17 20 20 20 20 6d 6c | 65 6e 21 38 3d 26 37 30 |b.    ml|en!8=&70|
|00003860| 30 30 39 33 33 0d 11 6c | 08 20 20 20 cc 0d 11 76 |00933..l|.   ...v|
|00003870| 26 20 20 20 20 6e 24 3d | 22 53 6d 61 6c 6c 5f 22 |&    n$=|"Small_"|
|00003880| 2b 6e 24 3a 6d 6c 65 6e | 21 38 3d 26 37 30 30 30 |+n$:mlen|!8=&7000|
|00003890| 31 33 33 0d 11 80 08 20 | 20 20 cd 0d 11 8a 2a 20 |133.... |  ....* |
|000038a0| 20 20 6d 6c 65 6e 21 31 | 32 3d 69 6c 65 6e 3a 24 |  mlen!1|2=ilen:$|
|000038b0| 69 6c 65 6e 3d 76 24 3a | 69 6c 65 6e 2b 3d a9 28 |ilen=v$:|ilen+=.(|
|000038c0| 76 24 29 2b 31 0d 11 94 | 2e 20 20 20 6d 6c 65 6e |v$)+1...|.   mlen|
|000038d0| 21 31 36 3d 69 6c 65 6e | 3a 24 69 6c 65 6e 3d 22 |!16=ilen|:$ilen="|
|000038e0| 73 22 2b 6e 24 3a 69 6c | 65 6e 2b 3d a9 28 6e 24 |s"+n$:il|en+=.(n$|
|000038f0| 29 2b 32 0d 11 9e 1f 20 | 20 20 6d 6c 65 6e 21 32 |)+2.... |  mlen!2|
|00003900| 30 3d a9 28 76 24 29 2b | 31 3a 6d 6c 65 6e 2d 3d |0=.(v$)+|1:mlen-=|
|00003910| 32 34 0d 11 a8 07 20 20 | cd 0d 11 b2 58 20 20 c8 |24....  |....X  .|
|00003920| 99 20 22 58 4f 53 5f 52 | 65 61 64 56 61 72 56 61 |. "XOS_R|eadVarVa|
|00003930| 6c 22 2c 22 46 69 6c 65 | 24 54 79 70 65 5f 2a 22 |l","File|$Type_*"|
|00003940| 2c 6d 65 73 73 61 67 65 | 5f 62 75 66 66 65 72 25 |,message|_buffer%|
|00003950| 2c 32 35 36 2c 6e 61 6d | 65 20 b8 20 2c 2c 6c 65 |,256,nam|e . ,,le|
|00003960| 6e 2c 6e 61 6d 65 2c 74 | 79 70 65 3b 66 6c 61 67 |n,name,t|ype;flag|
|00003970| 73 0d 11 bc 06 20 ce 0d | 11 c6 34 20 6d 6c 65 6e |s.... ..|..4 mlen|
|00003980| 21 30 3d 34 3a 6d 6c 65 | 6e 21 34 3d 2d 31 3a 6d |!0=4:mle|n!4=-1:m|
|00003990| 6c 65 6e 21 38 3d 26 37 | 30 30 30 31 32 31 3a 6d |len!8=&7|000121:m|
|000039a0| 6c 65 6e 21 31 32 3d 69 | 6c 65 6e 0d 11 d0 3c 20 |len!12=i|len...< |
|000039b0| 24 69 6c 65 6e 3d 22 22 | 3a 69 6c 65 6e 2b 3d 39 |$ilen=""|:ilen+=9|
|000039c0| 3a 6d 6c 65 6e 21 31 36 | 3d 2d 31 3a 6d 6c 65 6e |:mlen!16|=-1:mlen|
|000039d0| 21 32 30 3d 39 3a 6d 6c | 65 6e 2d 3d 32 34 3a 21 |!20=9:ml|en-=24:!|
|000039e0| 6d 73 74 3d 26 38 30 0d | 11 da 05 cd 0d 11 e4 0a |mst=&80.|........|
|000039f0| 3d 66 74 62 6c 6b 0d 11 | ee 25 dd f2 72 65 6c 65 |=ftblk..|.%..rele|
|00003a00| 61 73 65 66 74 6d 65 6e | 75 3a f2 72 65 6c 65 61 |aseftmen|u:.relea|
|00003a10| 73 65 28 66 74 62 6c 6b | 29 3a e1 0d 11 f8 05 3a |se(ftblk|):.....:|
|00003a20| 0d 12 02 39 f4 20 46 4e | 63 72 65 61 74 65 6d 65 |...9. FN|createme|
|00003a30| 6e 75 20 3a 20 43 72 65 | 61 74 65 20 61 20 6d 65 |nu : Cre|ate a me|
|00003a40| 6e 75 20 67 69 76 65 6e | 20 61 20 63 6f 6e 74 72 |nu given| a contr|
|00003a50| 6f 6c 20 73 74 72 69 6e | 67 0d 12 0c 13 f4 20 4d |ol strin|g..... M|
|00003a60| 65 6e 75 20 46 6f 72 6d | 61 74 20 3a 0d 12 16 1a |enu Form|at :....|
|00003a70| f4 20 54 69 74 6c 65 7c | 49 74 65 6d 7c 49 74 65 |. Title||Item|Ite|
|00003a80| 6d 7c 49 74 65 6d 0d 12 | 20 18 f4 20 49 74 65 6d |m|Item..| .. Item|
|00003a90| 20 63 6f 6e 73 69 73 74 | 73 20 6f 66 20 3a 0d 12 | consist|s of :..|
|00003aa0| 2a 1a f4 20 45 6e 74 72 | 79 20 6f 72 20 45 6e 74 |*.. Entr|y or Ent|
|00003ab0| 72 79 5d 46 6c 61 67 73 | 0d 12 34 2a f4 20 46 6c |ry]Flags|..4*. Fl|
|00003ac0| 61 67 73 20 63 61 6e 20 | 62 65 20 3a 20 28 73 65 |ags can |be : (se|
|00003ad0| 70 61 72 61 74 65 64 20 | 62 79 20 63 6f 6d 6d 61 |parated |by comma|
|00003ae0| 73 29 0d 12 3e 13 f4 20 | 20 54 20 66 6f 72 20 74 |s)..>.. | T for t|
|00003af0| 69 63 6b 65 64 0d 12 48 | 1e f4 20 20 44 20 66 6f |icked..H|..  D fo|
|00003b00| 72 20 64 6f 74 74 65 64 | 20 75 6e 64 65 72 6e 65 |r dotted| underne|
|00003b10| 61 74 68 0d 12 52 15 f4 | 20 20 57 20 66 6f 72 20 |ath..R..|  W for |
|00003b20| 77 72 69 74 61 62 6c 65 | 0d 12 5c 13 f4 20 20 53 |writable|..\..  S|
|00003b30| 20 66 6f 72 20 73 68 61 | 64 65 64 0d 12 66 3c f4 | for sha|ded..f<.|
|00003b40| 20 20 3e 20 66 6f 6c 6c | 6f 77 65 64 20 62 79 20 |  > foll|owed by |
|00003b50| 76 61 72 69 61 62 6c 65 | 20 66 6f 72 20 73 75 62 |variable| for sub|
|00003b60| 2d 6d 65 6e 75 20 28 49 | 74 65 6d 5d 3e 73 75 62 |-menu (I|tem]>sub|
|00003b70| 6d 65 6e 75 25 7c 29 0d | 12 70 32 f4 20 20 7d 20 |menu%|).|.p2.  } |
|00003b80| 66 6f 6c 6c 6f 77 65 64 | 20 62 79 20 61 20 73 70 |followed| by a sp|
|00003b90| 72 69 74 65 20 6e 61 6d | 65 20 28 49 74 65 6d 5d |rite nam|e (Item]|
|00003ba0| 7d 73 70 72 69 74 65 7c | 29 0d 12 7a 43 f4 20 4e |}sprite||)..zC. N|
|00003bb0| 42 3a 54 68 65 20 6c 61 | 73 74 20 74 77 6f 20 66 |B:The la|st two f|
|00003bc0| 6c 61 67 73 20 63 61 6e | 20 62 65 20 75 73 65 64 |lags can| be used|
|00003bd0| 20 74 6f 67 65 74 68 65 | 72 20 69 66 20 63 6f 6d | togethe|r if com|
|00003be0| 6d 61 20 73 65 70 65 72 | 61 74 65 64 0d 12 84 20 |ma seper|ated... |
|00003bf0| f4 20 20 20 20 65 67 2e | 20 49 6e 66 6f 5d 3e 69 |.    eg.| Info]>i|
|00003c00| 6e 66 6f 25 2c 7d 21 48 | 65 6c 70 7c 0d 12 8e 41 |nfo%,}!H|elp|...A|
|00003c10| f4 20 4e 42 3a 49 66 20 | 74 68 65 20 73 70 72 69 |. NB:If |the spri|
|00003c20| 74 65 6e 61 6d 65 20 73 | 74 61 72 74 73 20 77 69 |tename s|tarts wi|
|00003c30| 74 68 20 73 6d 20 74 68 | 65 6e 20 74 68 65 20 73 |th sm th|en the s|
|00003c40| 70 72 69 74 65 20 77 69 | 6c 6c 20 62 65 0d 12 98 |prite wi|ll be...|
|00003c50| 3d f4 20 20 20 20 64 69 | 73 70 6c 61 79 65 64 20 |=.    di|splayed |
|00003c60| 75 73 69 6e 67 20 69 74 | 73 20 73 6d 61 6c 6c 20 |using it|s small |
|00003c70| 66 6f 72 6d 2c 20 6f 74 | 68 65 72 77 69 73 65 20 |form, ot|herwise |
|00003c80| 69 74 20 77 69 6c 6c 20 | 62 65 0d 12 a2 1d f4 20 |it will |be..... |
|00003c90| 20 20 20 73 68 72 75 6e | 6b 20 74 6f 20 68 61 6c |   shrun|k to hal|
|00003ca0| 66 20 73 69 7a 65 2e 0d | 12 ac 14 dd a4 63 72 65 |f size..|.....cre|
|00003cb0| 61 74 65 6d 65 6e 75 28 | 41 24 29 0d 12 b6 38 ea |atemenu(|A$)...8.|
|00003cc0| 20 70 6f 69 6e 74 65 72 | 2c 70 32 2c 70 33 2c 6c | pointer|,p2,p3,l|
|00003cd0| 2c 6d 66 2c 4f 24 2c 43 | 24 3a 70 6f 69 6e 74 65 |,mf,O$,C|$:pointe|
|00003ce0| 72 3d 6d 65 6e 75 25 3a | 6c 3d 30 3a 41 24 2b 3d |r=menu%:|l=0:A$+=|
|00003cf0| 22 7c 22 0d 12 c0 1b f2 | 6d 65 6e 75 70 75 74 73 |"|".....|menuputs|
|00003d00| 28 a4 6d 67 65 74 28 41 | 24 2c 43 24 29 29 0d 12 |(.mget(A|$,C$))..|
|00003d10| ca 15 f2 6d 65 6e 75 70 | 75 74 77 28 26 37 30 32 |...menup|utw(&702|
|00003d20| 30 37 29 0d 12 d4 1b 70 | 32 3d 6d 65 6e 75 25 3a |07)....p|2=menu%:|
|00003d30| f2 6d 65 6e 75 70 75 74 | 77 28 26 38 30 29 0d 12 |.menuput|w(&80)..|
|00003d40| de 12 f2 6d 65 6e 75 70 | 75 74 77 28 26 32 38 29 |...menup|utw(&28)|
|00003d50| 0d 12 e8 1b f2 6d 65 6e | 75 70 75 74 77 28 30 29 |.....men|uputw(0)|
|00003d60| 3a 6f 70 74 69 6f 6e 73 | 25 3d 30 0d 12 f2 05 f5 |:options|%=0.....|
|00003d70| 0d 12 fc 28 20 4f 24 3d | a4 6d 67 65 74 28 41 24 |...( O$=|.mget(A$|
|00003d80| 2c 43 24 29 3a 6f 70 74 | 69 6f 6e 73 25 3d 6f 70 |,C$):opt|ions%=op|
|00003d90| 74 69 6f 6e 73 25 2b 31 | 0d 13 06 2d 20 66 6c 61 |tions%+1|...- fla|
|00003da0| 67 73 3d a4 6d 64 65 63 | 6f 64 65 28 43 24 2c 70 |gs=.mdec|ode(C$,p|
|00003db0| 33 2c 73 24 29 2b 28 28 | 2d 28 41 24 3d 22 22 29 |3,s$)+((|-(A$="")|
|00003dc0| 29 3c 3c 37 29 0d 13 10 | 3c 20 66 6c 61 67 73 32 |)<<7)...|< flags2|
|00003dd0| 3d 26 37 30 30 30 30 32 | 31 2b 28 28 2d 28 a9 28 |=&700002|1+((-(.(|
|00003de0| 4f 24 29 3e 31 31 29 29 | 3c 3c 38 29 2b 28 31 3c |O$)>11))|<<8)+(1<|
|00003df0| 3c 31 34 29 2a 28 66 6c | 61 67 73 20 80 32 35 36 |<14)*(fl|ags .256|
|00003e00| 29 0d 13 1a 2a 20 e7 20 | 28 66 6c 61 67 73 20 80 |)...* . |(flags .|
|00003e10| 20 34 29 3c 3e 30 20 8c | 66 6c 61 67 73 32 3d 66 | 4)<>0 .|flags2=f|
|00003e20| 6c 61 67 73 32 20 84 20 | 32 35 36 0d 13 24 1b 20 |lags2 . |256..$. |
|00003e30| f2 6d 65 6e 75 70 75 74 | 77 28 66 6c 61 67 73 20 |.menuput|w(flags |
|00003e40| 80 20 32 35 35 29 0d 13 | 2e 12 20 f2 6d 65 6e 75 |. 255)..|.. .menu|
|00003e50| 70 75 74 77 28 70 33 29 | 0d 13 38 16 20 e7 a9 28 |putw(p3)|..8. ..(|
|00003e60| 4f 24 29 3e 6c 20 8c 6c | 3d a9 28 4f 24 29 0d 13 |O$)>l .l|=.(O$)..|
|00003e70| 42 16 20 f2 6d 65 6e 75 | 70 75 74 77 28 66 6c 61 |B. .menu|putw(fla|
|00003e80| 67 73 32 29 0d 13 4c 23 | 20 f2 6d 65 6e 75 73 74 |gs2)..L#| .menust|
|00003e90| 72 69 6e 67 28 4f 24 2c | 73 24 2c 28 66 6c 61 67 |ring(O$,|s$,(flag|
|00003ea0| 73 20 80 20 34 29 29 0d | 13 56 0a fd 41 24 3d 22 |s . 4)).|.V..A$="|
|00003eb0| 22 0d 13 60 0f 21 70 32 | 3d 6c 2a 31 36 2b 31 36 |"..`.!p2|=l*16+16|
|00003ec0| 0d 13 6a 0c 3d 70 6f 69 | 6e 74 65 72 0d 13 74 1c |..j.=poi|nter..t.|
|00003ed0| dd f2 6d 65 6e 75 73 74 | 72 69 6e 67 28 54 24 2c |..menust|ring(T$,|
|00003ee0| 73 24 2c 66 6c 61 67 29 | 0d 13 7e 1f e7 a9 28 54 |s$,flag)|..~...(T|
|00003ef0| 24 29 3c 31 32 20 80 20 | 73 24 3d 22 22 20 80 20 |$)<12 . |s$="" . |
|00003f00| 66 6c 61 67 3d 30 8c 0d | 13 88 12 20 f2 6d 65 6e |flag=0..|... .men|
|00003f10| 75 70 75 74 73 28 54 24 | 29 0d 13 92 05 cc 0d 13 |uputs(T$|).......|
|00003f20| 9c 1d 20 f2 6d 65 6e 75 | 70 75 74 77 28 a4 69 6e |.. .menu|putw(.in|
|00003f30| 64 69 72 65 63 74 28 54 | 24 29 29 0d 13 a6 0f 20 |direct(T|$)).... |
|00003f40| e7 20 73 24 3c 3e 22 22 | 20 8c 0d 13 b0 1e 20 20 |. s$<>""| .....  |
|00003f50| 6d 65 6e 75 25 21 2d 38 | 3d 6d 65 6e 75 25 21 2d |menu%!-8|=menu%!-|
|00003f60| 38 20 84 20 26 38 30 33 | 0d 13 ba 34 20 20 e7 c0 |8 . &803|...4  ..|
|00003f70| a4 6c 6f 77 65 72 28 73 | 24 29 2c 32 29 3d 22 73 |.lower(s|$),2)="s|
|00003f80| 6d 22 20 8c 6d 65 6e 75 | 25 21 2d 38 3d 6d 65 6e |m" .menu|%!-8=men|
|00003f90| 75 25 21 2d 38 20 82 20 | 26 38 30 30 0d 13 c4 22 |u%!-8 . |&800..."|
|00003fa0| 20 20 f2 6d 65 6e 75 70 | 75 74 77 28 a4 69 6e 64 |  .menup|utw(.ind|
|00003fb0| 69 72 65 63 74 28 22 53 | 22 2b 73 24 29 29 0d 13 |irect("S|"+s$))..|
|00003fc0| ce 06 20 cc 0d 13 d8 13 | 20 20 f2 6d 65 6e 75 70 |.. .....|  .menup|
|00003fd0| 75 74 77 28 2d 31 29 0d | 13 e2 06 20 cd 0d 13 ec |utw(-1).|... ....|
|00003fe0| 15 20 f2 6d 65 6e 75 70 | 75 74 77 28 a9 28 54 24 |. .menup|utw(.(T$|
|00003ff0| 29 29 0d 13 f6 05 cd 0d | 14 00 05 e1 0d 14 0a 15 |))......|........|
|00004000| dd a4 6d 67 65 74 28 f8 | 20 41 24 2c f8 20 43 24 |..mget(.| A$,. C$|
|00004010| 29 0d 14 14 1b ea 20 42 | 24 3a 42 24 3d c0 41 24 |)..... B|$:B$=.A$|
|00004020| 2c a7 41 24 2c 22 7c 22 | 29 2d 31 29 0d 14 1e 27 |,.A$,"|"|)-1)...'|
|00004030| 41 24 3d c1 41 24 2c a9 | 28 42 24 29 2b 32 29 3a |A$=.A$,.|(B$)+2):|
|00004040| e7 a7 42 24 2c 22 5d 22 | 29 3c 31 8c 42 24 2b 3d |..B$,"]"|)<1.B$+=|
|00004050| 22 5d 22 0d 14 28 29 43 | 24 3d c1 42 24 2c a7 42 |"]"..()C|$=.B$,.B|
|00004060| 24 2c 22 5d 22 29 2b 31 | 29 3a 42 24 3d c0 42 24 |$,"]")+1|):B$=.B$|
|00004070| 2c a7 42 24 2c 22 5d 22 | 29 2d 31 29 0d 14 32 07 |,.B$,"]"|)-1)..2.|
|00004080| 3d 42 24 0d 14 3c 3a dd | f2 6d 65 6e 75 70 75 74 |=B$..<:.|.menuput|
|00004090| 73 28 54 24 29 3a e7 a9 | 28 54 24 29 3e 31 31 20 |s(T$):..|(T$)>11 |
|000040a0| 8c 85 20 26 38 30 33 2c | 22 4d 65 6e 75 20 65 6e |.. &803,|"Menu en|
|000040b0| 74 72 79 20 74 6f 6f 20 | 6c 6f 6e 67 22 0d 14 46 |try too |long"..F|
|000040c0| 22 24 6d 65 6e 75 25 3d | 54 24 3a 6d 65 6e 75 25 |"$menu%=|T$:menu%|
|000040d0| 2b 3d 31 32 3a 6d 65 6e | 75 6c 25 2d 3d 31 32 0d |+=12:men|ul%-=12.|
|000040e0| 14 50 34 e7 6d 65 6e 75 | 6c 25 3c 3d 34 20 8c 85 |.P4.menu|l%<=4 ..|
|000040f0| 20 26 38 30 33 2c 22 4e | 6f 74 20 65 6e 6f 75 67 | &803,"N|ot enoug|
|00004100| 68 20 6d 65 6d 6f 72 79 | 20 66 6f 72 20 6d 65 6e |h memory| for men|
|00004110| 75 73 22 0d 14 5a 05 e1 | 0d 14 64 12 dd f2 6d 65 |us"..Z..|..d...me|
|00004120| 6e 75 70 75 74 77 28 57 | 25 29 0d 14 6e 20 21 6d |nuputw(W|%)..n !m|
|00004130| 65 6e 75 25 3d 57 25 3a | 6d 65 6e 75 25 2b 3d 34 |enu%=W%:|menu%+=4|
|00004140| 3a 6d 65 6e 75 6c 25 2d | 3d 34 0d 14 78 34 e7 6d |:menul%-|=4..x4.m|
|00004150| 65 6e 75 6c 25 3c 3d 34 | 20 8c 85 20 26 38 30 33 |enul%<=4| .. &803|
|00004160| 2c 22 4e 6f 74 20 65 6e | 6f 75 67 68 20 6d 65 6d |,"Not en|ough mem|
|00004170| 6f 72 79 20 66 6f 72 20 | 6d 65 6e 75 73 22 0d 14 |ory for |menus"..|
|00004180| 82 05 e1 0d 14 8c 1a dd | a4 6d 64 65 63 6f 64 65 |........|.mdecode|
|00004190| 28 41 24 2c f8 20 70 2c | f8 20 73 24 29 0d 14 96 |(A$,. p,|. s$)...|
|000041a0| 22 ea 20 42 24 2c 43 24 | 2c 56 3a 70 3d 2d 31 3a |". B$,C$|,V:p=-1:|
|000041b0| 73 24 3d 22 22 3a 41 24 | 3d 41 24 2b 22 2c 22 0d |s$="":A$|=A$+",".|
|000041c0| 14 a0 0d c8 95 20 41 24 | 3c 3e 22 22 0d 14 aa 18 |..... A$|<>""....|
|000041d0| 20 42 24 3d c0 41 24 2c | 31 29 3a 41 24 3d c1 41 | B$=.A$,|1):A$=.A|
|000041e0| 24 2c 32 29 0d 14 b4 14 | 20 e7 42 24 3d 22 54 22 |$,2)....| .B$="T"|
|000041f0| 8c 56 3d 56 20 84 20 31 | 0d 14 be 14 20 e7 42 24 |.V=V . 1|.... .B$|
|00004200| 3d 22 44 22 8c 56 3d 56 | 20 84 20 32 0d 14 c8 14 |="D".V=V| . 2....|
|00004210| 20 e7 42 24 3d 22 57 22 | 8c 56 3d 56 20 84 20 34 | .B$="W"|.V=V . 4|
|00004220| 0d 14 d2 16 20 e7 42 24 | 3d 22 53 22 8c 56 3d 56 |.... .B$|="S".V=V|
|00004230| 20 84 20 32 35 36 0d 14 | dc 0d 20 e7 42 24 3d 22 | . 256..|.. .B$="|
|00004240| 3e 22 8c 0d 14 e6 2d 20 | 20 70 3d a0 28 c0 41 24 |>"....- | p=.(.A$|
|00004250| 2c a7 41 24 2c 22 2c 22 | 29 2d 31 29 29 3a 41 24 |,.A$,","|)-1)):A$|
|00004260| 3d c1 41 24 2c a7 41 24 | 2c 22 2c 22 29 2b 31 29 |=.A$,.A$|,",")+1)|
|00004270| 0d 14 f0 06 20 cd 0d 14 | fa 0d 20 e7 42 24 3d 22 |.... ...|.. .B$="|
|00004280| 7d 22 8c 0d 15 04 2f 20 | 20 73 24 3d c0 41 24 2c |}"..../ | s$=.A$,|
|00004290| a7 41 24 2c 22 2c 22 29 | 2d 31 29 2b 22 20 22 3a |.A$,",")|-1)+" ":|
|000042a0| 41 24 3d c1 41 24 2c a7 | 41 24 2c 22 2c 22 29 2b |A$=.A$,.|A$,",")+|
|000042b0| 31 29 0d 15 0e 06 20 cd | 0d 15 18 05 ce 0d 15 22 |1).... .|......."|
|000042c0| 06 3d 56 0d 15 2c 05 3a | 0d 15 36 40 f4 20 46 4e |.=V..,.:|..6@. FN|
|000042d0| 73 79 73 74 65 6d 76 61 | 72 20 3a 20 52 65 74 75 |systemva|r : Retu|
|000042e0| 72 6e 20 74 68 65 20 63 | 6f 6e 74 65 6e 74 73 20 |rn the c|ontents |
|000042f0| 6f 66 20 61 6e 79 20 73 | 74 72 69 6e 67 20 73 79 |of any s|tring sy|
|00004300| 73 74 65 6d 20 76 61 72 | 0d 15 40 15 dd a4 73 79 |stem var|..@...sy|
|00004310| 73 74 65 6d 76 61 72 28 | 56 61 72 24 29 0d 15 4a |stemvar(|Var$)..J|
|00004320| 3a c8 99 20 22 58 4f 53 | 5f 52 65 61 64 56 61 72 |:.. "XOS|_ReadVar|
|00004330| 56 61 6c 22 2c 56 61 72 | 24 2c 6d 65 73 73 61 67 |Val",Var|$,messag|
|00004340| 65 5f 62 75 66 66 65 72 | 25 2c 32 35 35 2c 30 2c |e_buffer|%,255,0,|
|00004350| 33 b8 2c 2c 6c 65 6e 0d | 15 54 1a 6d 65 73 73 61 |3.,,len.|.T.messa|
|00004360| 67 65 5f 62 75 66 66 65 | 72 25 3f 6c 65 6e 3d 31 |ge_buffe|r%?len=1|
|00004370| 33 0d 15 5e 15 3d 24 6d | 65 73 73 61 67 65 5f 62 |3..^.=$m|essage_b|
|00004380| 75 66 66 65 72 25 0d 15 | 68 05 3a 0d 15 72 38 f4 |uffer%..|h.:..r8.|
|00004390| 20 46 4e 73 74 72 69 6e | 67 30 20 3a 20 52 65 74 | FNstrin|g0 : Ret|
|000043a0| 75 72 6e 20 30 2d 74 65 | 72 6d 69 6e 61 74 65 64 |urn 0-te|rminated|
|000043b0| 20 73 74 72 69 6e 67 20 | 61 74 20 6c 6f 63 61 74 | string |at locat|
|000043c0| 69 6f 6e 0d 15 7c 10 dd | a4 73 74 72 69 6e 67 30 |ion..|..|.string0|
|000043d0| 28 61 29 0d 15 86 08 ea | 20 61 24 0d 15 90 1d c8 |(a).....| a$.....|
|000043e0| 95 3f 61 3e 33 31 3a 61 | 24 3d 61 24 2b bd 3f 61 |.?a>31:a|$=a$+.?a|
|000043f0| 3a 61 3d 61 2b 31 3a ce | 0d 15 9a 07 3d 61 24 0d |:a=a+1:.|....=a$.|
|00004400| 15 a4 05 3a 0d 15 ae 40 | f4 20 46 4e 67 65 74 69 |...:...@|. FNgeti|
|00004410| 63 6f 6e 73 74 61 74 65 | 20 3a 20 52 65 74 75 72 |constate| : Retur|
|00004420| 6e 20 2d 31 20 69 66 20 | 69 63 6f 6e 20 69 73 20 |n -1 if |icon is |
|00004430| 73 65 6c 65 63 74 65 64 | 2c 30 20 6f 74 68 65 72 |selected|,0 other|
|00004440| 77 69 73 65 0d 15 b8 1f | dd 20 a4 67 65 74 69 63 |wise....|. .getic|
|00004450| 6f 6e 73 74 61 74 65 28 | 77 69 6e 25 2c 69 63 6f |onstate(|win%,ico|
|00004460| 6e 25 29 0d 15 c2 32 21 | 62 25 3d 77 69 6e 25 3a |n%)...2!|b%=win%:|
|00004470| 62 25 21 34 3d 69 63 6f | 6e 25 3a c8 99 20 22 57 |b%!4=ico|n%:.. "W|
|00004480| 69 6d 70 5f 47 65 74 49 | 63 6f 6e 53 74 61 74 65 |imp_GetI|conState|
|00004490| 22 2c 2c 62 25 0d 15 cc | 16 3d 28 62 25 21 32 34 |",,b%...|.=(b%!24|
|000044a0| 3e 3e 32 31 20 80 20 31 | 29 3e 30 0d 15 d6 05 3a |>>21 . 1|)>0....:|
|000044b0| 0d 15 e0 32 f4 20 50 52 | 4f 43 69 63 6f 6e 73 68 |...2. PR|OCiconsh|
|000044c0| 61 64 65 20 3a 20 75 6e | 73 68 61 64 65 2f 73 68 |ade : un|shade/sh|
|000044d0| 61 64 65 2f 74 6f 67 67 | 6c 65 20 61 6e 20 69 63 |ade/togg|le an ic|
|000044e0| 6f 6e 0d 15 ea 34 f4 20 | 50 52 4f 43 69 63 6f 6e |on...4. |PROCicon|
|000044f0| 73 74 61 74 65 20 3a 20 | 75 6e 73 65 6c 65 63 74 |state : |unselect|
|00004500| 2f 73 65 6c 65 63 74 2f | 74 6f 67 67 6c 65 20 61 |/select/|toggle a|
|00004510| 6e 20 69 63 6f 6e 0d 15 | f4 21 dd f2 69 63 6f 6e |n icon..|.!..icon|
|00004520| 73 68 61 64 65 28 77 69 | 6e 25 2c 69 63 6f 6e 25 |shade(wi|n%,icon%|
|00004530| 2c 74 79 70 65 25 29 0d | 15 fe 24 f2 73 65 74 69 |,type%).|..$.seti|
|00004540| 63 6f 6e 62 69 74 28 77 | 69 6e 25 2c 69 63 6f 6e |conbit(w|in%,icon|
|00004550| 25 2c 32 32 2c 74 79 70 | 65 25 29 0d 16 08 05 e1 |%,22,typ|e%).....|
|00004560| 0d 16 12 21 dd f2 69 63 | 6f 6e 73 74 61 74 65 28 |...!..ic|onstate(|
|00004570| 77 69 6e 25 2c 69 63 6f | 6e 25 2c 74 79 70 65 25 |win%,ico|n%,type%|
|00004580| 29 0d 16 1c 24 f2 73 65 | 74 69 63 6f 6e 62 69 74 |)...$.se|ticonbit|
|00004590| 28 77 69 6e 25 2c 69 63 | 6f 6e 25 2c 32 31 2c 74 |(win%,ic|on%,21,t|
|000045a0| 79 70 65 25 29 0d 16 26 | 05 e1 0d 16 30 27 dd f2 |ype%)..&|....0'..|
|000045b0| 73 65 74 69 63 6f 6e 62 | 69 74 28 77 69 6e 25 2c |seticonb|it(win%,|
|000045c0| 69 63 6f 6e 25 2c 62 69 | 74 25 2c 74 79 70 65 25 |icon%,bi|t%,type%|
|000045d0| 29 0d 16 3a 0b ea 20 73 | 25 2c 74 25 0d 16 44 0e |)..:.. s|%,t%..D.|
|000045e0| c8 8e 20 74 79 70 65 25 | 20 ca 0d 16 4e 1e 20 c9 |.. type%| ...N. .|
|000045f0| 20 30 3a 73 25 3d 30 3c | 3c 62 69 74 25 3a 74 25 | 0:s%=0<|<bit%:t%|
|00004600| 3d 31 3c 3c 62 69 74 25 | 0d 16 58 1e 20 c9 20 31 |=1<<bit%|..X. . 1|
|00004610| 3a 73 25 3d 31 3c 3c 62 | 69 74 25 3a 74 25 3d 31 |:s%=1<<b|it%:t%=1|
|00004620| 3c 3c 62 69 74 25 0d 16 | 62 1e 20 c9 20 32 3a 73 |<<bit%..|b. . 2:s|
|00004630| 25 3d 31 3c 3c 62 69 74 | 25 3a 74 25 3d 30 3c 3c |%=1<<bit|%:t%=0<<|
|00004640| 62 69 74 25 0d 16 6c 05 | cb 0d 16 76 29 62 25 21 |bit%..l.|...v)b%!|
|00004650| 30 3d 77 69 6e 25 3a 62 | 25 21 34 3d 69 63 6f 6e |0=win%:b|%!4=icon|
|00004660| 25 3a 62 25 21 38 3d 73 | 25 3a 62 25 21 31 32 3d |%:b%!8=s|%:b%!12=|
|00004670| 74 25 0d 16 80 1e c8 99 | 20 22 57 69 6d 70 5f 53 |t%......| "Wimp_S|
|00004680| 65 74 49 63 6f 6e 53 74 | 61 74 65 22 2c 2c 62 25 |etIconSt|ate",,b%|
|00004690| 0d 16 8a 05 e1 0d 16 94 | 38 dd f2 72 65 64 72 61 |........|8..redra|
|000046a0| 77 69 63 6f 6e 28 77 69 | 6e 25 2c 69 63 6f 6e 25 |wicon(wi|n%,icon%|
|000046b0| 29 3a f2 73 65 74 69 63 | 6f 6e 62 69 74 28 77 69 |):.setic|onbit(wi|
|000046c0| 6e 25 2c 69 63 6f 6e 25 | 2c 30 2c 33 29 0d 16 9e |n%,icon%|,0,3)...|
|000046d0| 05 e1 0d 16 a8 05 3a 0d | 16 b2 3c f4 20 46 4e 67 |......:.|..<. FNg|
|000046e0| 65 74 69 63 6f 6e 74 65 | 78 74 20 20 20 3a 20 72 |eticonte|xt   : r|
|000046f0| 65 74 75 72 6e 20 69 63 | 6f 6e 73 20 74 65 78 74 |eturn ic|ons text|
|00004700| 20 73 74 72 69 6e 67 20 | 28 6f 72 20 73 70 72 69 | string |(or spri|
|00004710| 74 65 29 0d 16 bc 39 f4 | 20 50 52 4f 43 73 65 74 |te)...9.| PROCset|
|00004720| 69 63 6f 6e 74 65 78 74 | 20 3a 20 73 65 74 20 69 |icontext| : set i|
|00004730| 63 6f 6e 73 20 74 65 78 | 74 20 73 74 72 69 6e 67 |cons tex|t string|
|00004740| 20 28 6f 72 20 73 70 72 | 69 74 65 29 0d 16 c6 1d | (or spr|ite)....|
|00004750| dd a4 67 65 74 69 63 6f | 6e 74 65 78 74 28 77 69 |..getico|ntext(wi|
|00004760| 6e 25 2c 69 63 6f 6e 25 | 29 0d 16 d0 33 62 25 21 |n%,icon%|)...3b%!|
|00004770| 30 3d 77 69 6e 25 3a 62 | 25 21 34 3d 69 63 6f 6e |0=win%:b|%!4=icon|
|00004780| 25 3a c8 99 20 22 57 69 | 6d 70 5f 47 65 74 49 63 |%:.. "Wi|mp_GetIc|
|00004790| 6f 6e 53 74 61 74 65 22 | 2c 2c 62 25 0d 16 da 2a |onState"|,,b%...*|
|000047a0| e7 20 28 28 62 25 21 32 | 34 29 20 80 20 26 31 30 |. ((b%!2|4) . &10|
|000047b0| 30 29 3d 30 20 8c 3d a4 | 73 74 72 69 6e 67 30 28 |0)=0 .=.|string0(|
|000047c0| 62 25 2b 32 38 29 0d 16 | e4 14 3d a4 73 74 72 69 |b%+28)..|..=.stri|
|000047d0| 6e 67 30 28 62 25 21 32 | 38 29 0d 16 ee 39 dd f2 |ng0(b%!2|8)...9..|
|000047e0| 73 65 74 69 63 6f 6e 74 | 65 78 74 28 77 69 6e 25 |seticont|ext(win%|
|000047f0| 2c 69 63 6f 6e 25 2c 74 | 65 78 74 24 29 3a 74 65 |,icon%,t|ext$):te|
|00004800| 78 74 24 3d a4 6d 73 67 | 74 65 78 74 28 74 65 78 |xt$=.msg|text(tex|
|00004810| 74 24 29 0d 16 f8 33 62 | 25 21 30 3d 77 69 6e 25 |t$)...3b|%!0=win%|
|00004820| 3a 62 25 21 34 3d 69 63 | 6f 6e 25 3a c8 99 20 22 |:b%!4=ic|on%:.. "|
|00004830| 57 69 6d 70 5f 47 65 74 | 49 63 6f 6e 53 74 61 74 |Wimp_Get|IconStat|
|00004840| 65 22 2c 2c 62 25 0d 17 | 02 55 e7 20 28 28 62 25 |e",,b%..|.U. ((b%|
|00004850| 21 32 34 29 20 80 20 26 | 31 30 30 29 3d 30 20 80 |!24) . &|100)=0 .|
|00004860| 20 a9 28 74 65 78 74 24 | 29 3e 31 31 20 8c 20 85 | .(text$|)>11 . .|
|00004870| 20 26 38 30 33 2c 22 49 | 63 6f 6e 20 69 73 6e 27 | &803,"I|con isn'|
|00004880| 74 20 69 6e 64 69 72 65 | 63 74 65 64 20 28 23 22 |t indire|cted (#"|
|00004890| 2b c3 69 63 6f 6e 25 2b | 22 29 22 0d 17 0c 1a e7 |+.icon%+|")".....|
|000048a0| 20 28 28 62 25 21 32 34 | 29 20 80 20 26 31 30 30 | ((b%!24|) . &100|
|000048b0| 29 3e 30 20 8c 0d 17 16 | 13 20 24 28 62 25 21 32 |)>0 ....|. $(b%!2|
|000048c0| 38 29 3d 74 65 78 74 24 | 0d 17 20 05 cc 0d 17 2a |8)=text$|.. ....*|
|000048d0| 54 20 e7 20 a9 28 74 65 | 78 74 24 29 3c 62 25 21 |T . .(te|xt$)<b%!|
|000048e0| 33 32 20 8c 24 28 62 25 | 2b 32 38 29 3d 74 65 78 |32 .$(b%|+28)=tex|
|000048f0| 74 24 20 8b 85 20 26 38 | 30 33 2c 22 54 65 78 74 |t$ .. &8|03,"Text|
|00004900| 20 74 6f 6f 20 6c 6f 6e | 67 20 66 6f 72 20 69 63 | too lon|g for ic|
|00004910| 6f 6e 20 28 23 22 2b c3 | 69 63 6f 6e 25 2b 22 29 |on (#"+.|icon%+")|
|00004920| 22 0d 17 34 05 cd 0d 17 | 3e 27 62 25 21 30 3d 77 |"..4....|>'b%!0=w|
|00004930| 69 6e 25 3a 62 25 21 34 | 3d 69 63 6f 6e 25 3a 62 |in%:b%!4|=icon%:b|
|00004940| 25 21 38 3d 30 3a 62 25 | 21 31 32 3d 30 0d 17 48 |%!8=0:b%|!12=0..H|
|00004950| 1e c8 99 20 22 57 69 6d | 70 5f 53 65 74 49 63 6f |... "Wim|p_SetIco|
|00004960| 6e 53 74 61 74 65 22 2c | 2c 62 25 0d 17 52 05 e1 |nState",|,b%..R..|
|00004970| 0d 17 5c 05 3a 0d 17 66 | 37 f4 20 46 4e 67 65 74 |..\.:..f|7. FNget|
|00004980| 69 63 6f 6e 76 61 6c 69 | 64 20 20 20 3a 20 72 65 |iconvali|d   : re|
|00004990| 74 75 72 6e 20 69 63 6f | 6e 73 20 76 61 6c 69 64 |turn ico|ns valid|
|000049a0| 61 74 69 6f 6e 20 73 74 | 72 69 6e 67 0d 17 70 34 |ation st|ring..p4|
|000049b0| f4 20 50 52 4f 43 73 65 | 74 69 63 6f 6e 76 61 6c |. PROCse|ticonval|
|000049c0| 69 64 20 3a 20 73 65 74 | 20 69 63 6f 6e 73 20 76 |id : set| icons v|
|000049d0| 61 6c 69 64 61 74 69 6f | 6e 20 73 74 72 69 6e 67 |alidatio|n string|
|000049e0| 0d 17 7a 3d f4 20 52 65 | 6d 65 6d 62 65 72 20 6e |..z=. Re|member n|
|000049f0| 6f 74 20 74 6f 20 65 78 | 63 65 65 64 20 74 68 65 |ot to ex|ceed the|
|00004a00| 20 6f 72 69 67 69 6e 61 | 6c 20 76 61 6c 69 64 61 | origina|l valida|
|00004a10| 74 69 6f 6e 20 73 74 72 | 69 6e 67 27 73 0d 17 84 |tion str|ing's...|
|00004a20| 0d f4 20 6c 65 6e 67 74 | 68 2e 0d 17 8e 1e dd a4 |.. lengt|h.......|
|00004a30| 67 65 74 69 63 6f 6e 76 | 61 6c 69 64 28 77 69 6e |geticonv|alid(win|
|00004a40| 25 2c 69 63 6f 6e 25 29 | 0d 17 98 33 62 25 21 30 |%,icon%)|...3b%!0|
|00004a50| 3d 77 69 6e 25 3a 62 25 | 21 34 3d 69 63 6f 6e 25 |=win%:b%|!4=icon%|
|00004a60| 3a c8 99 20 22 57 69 6d | 70 5f 47 65 74 49 63 6f |:.. "Wim|p_GetIco|
|00004a70| 6e 53 74 61 74 65 22 2c | 2c 62 25 0d 17 a2 45 e7 |nState",|,b%...E.|
|00004a80| 20 28 28 62 25 21 32 34 | 29 20 80 20 26 31 30 30 | ((b%!24|) . &100|
|00004a90| 29 3d 30 20 85 20 26 38 | 30 33 2c 22 49 63 6f 6e |)=0 . &8|03,"Icon|
|00004aa0| 20 69 73 6e 27 74 20 69 | 6e 64 69 72 65 63 74 65 | isn't i|ndirecte|
|00004ab0| 64 20 28 23 22 2b c3 69 | 63 6f 6e 25 2b 22 29 22 |d (#"+.i|con%+")"|
|00004ac0| 0d 17 ac 14 3d a4 73 74 | 72 69 6e 67 30 28 62 25 |....=.st|ring0(b%|
|00004ad0| 21 33 32 29 0d 17 b6 24 | dd f2 73 65 74 69 63 6f |!32)...$|..setico|
|00004ae0| 6e 76 61 6c 69 64 28 77 | 69 6e 25 2c 69 63 6f 6e |nvalid(w|in%,icon|
|00004af0| 25 2c 74 65 78 74 24 29 | 0d 17 c0 33 62 25 21 30 |%,text$)|...3b%!0|
|00004b00| 3d 77 69 6e 25 3a 62 25 | 21 34 3d 69 63 6f 6e 25 |=win%:b%|!4=icon%|
|00004b10| 3a c8 99 20 22 57 69 6d | 70 5f 47 65 74 49 63 6f |:.. "Wim|p_GetIco|
|00004b20| 6e 53 74 61 74 65 22 2c | 2c 62 25 0d 17 ca 47 e7 |nState",|,b%...G.|
|00004b30| 20 28 28 62 25 21 32 34 | 29 20 80 20 26 31 30 30 | ((b%!24|) . &100|
|00004b40| 29 3d 30 20 8c 20 85 20 | 26 38 30 33 2c 22 49 63 |)=0 . . |&803,"Ic|
|00004b50| 6f 6e 20 69 73 6e 27 74 | 20 69 6e 64 69 72 65 63 |on isn't| indirec|
|00004b60| 74 65 64 20 28 23 22 2b | c3 69 63 6f 6e 25 2b 22 |ted (#"+|.icon%+"|
|00004b70| 29 22 0d 17 d4 12 24 28 | 62 25 21 33 32 29 3d 74 |)"....$(|b%!32)=t|
|00004b80| 65 78 74 24 0d 17 de 27 | 62 25 21 30 3d 77 69 6e |ext$...'|b%!0=win|
|00004b90| 25 3a 62 25 21 34 3d 69 | 63 6f 6e 25 3a 62 25 21 |%:b%!4=i|con%:b%!|
|00004ba0| 38 3d 30 3a 62 25 21 31 | 32 3d 30 0d 17 e8 1e c8 |8=0:b%!1|2=0.....|
|00004bb0| 99 20 22 57 69 6d 70 5f | 53 65 74 49 63 6f 6e 53 |. "Wimp_|SetIconS|
|00004bc0| 74 61 74 65 22 2c 2c 62 | 25 0d 17 f2 05 e1 0d 17 |tate",,b|%.......|
|00004bd0| fc 05 3a 0d 18 06 25 f4 | 20 50 52 4f 43 64 72 61 |..:...%.| PROCdra|
|00004be0| 67 69 63 6f 6e 20 3a 20 | 53 74 61 72 74 20 61 20 |gicon : |Start a |
|00004bf0| 64 72 61 67 20 62 6f 78 | 0d 18 10 21 dd f2 64 72 |drag box|...!..dr|
|00004c00| 61 67 69 63 6f 6e 28 77 | 69 6e 25 2c 69 63 6f 6e |agicon(w|in%,icon|
|00004c10| 25 2c 62 6f 75 6e 64 25 | 29 0d 18 1a 29 21 62 25 |%,bound%|)...)!b%|
|00004c20| 3d 77 69 6e 25 3a c8 99 | 20 22 57 69 6d 70 5f 47 |=win%:..| "Wimp_G|
|00004c30| 65 74 57 69 6e 64 6f 77 | 53 74 61 74 65 22 2c 2c |etWindow|State",,|
|00004c40| 62 25 0d 18 24 16 78 30 | 25 3d 62 25 21 34 3a 79 |b%..$.x0|%=b%!4:y|
|00004c50| 30 25 3d 62 25 21 31 36 | 0d 18 2e 16 78 31 25 3d |0%=b%!16|....x1%=|
|00004c60| 62 25 21 38 3a 79 31 25 | 3d 62 25 21 31 32 0d 18 |b%!8:y1%|=b%!12..|
|00004c70| 38 32 21 62 25 3d 77 69 | 6e 25 3a 62 25 21 34 3d |82!b%=wi|n%:b%!4=|
|00004c80| 69 63 6f 6e 25 3a c8 99 | 20 22 57 69 6d 70 5f 47 |icon%:..| "Wimp_G|
|00004c90| 65 74 49 63 6f 6e 53 74 | 61 74 65 22 2c 2c 62 25 |etIconSt|ate",,b%|
|00004ca0| 0d 18 42 18 62 25 21 38 | 2b 3d 78 30 25 3a 62 25 |..B.b%!8|+=x0%:b%|
|00004cb0| 21 31 32 2b 3d 79 30 25 | 0d 18 4c 19 62 25 21 31 |!12+=y0%|..L.b%!1|
|00004cc0| 36 2b 3d 78 30 25 3a 62 | 25 21 32 30 2b 3d 79 30 |6+=x0%:b|%!20+=y0|
|00004cd0| 25 0d 18 56 10 e7 20 62 | 6f 75 6e 64 25 3d b9 20 |%..V.. b|ound%=. |
|00004ce0| 8c 0d 18 60 2c 20 62 25 | 21 32 34 3d 78 30 25 3a |...`, b%|!24=x0%:|
|00004cf0| 62 25 21 32 38 3d 79 30 | 25 3a 62 25 21 33 32 3d |b%!28=y0|%:b%!32=|
|00004d00| 78 31 25 3a 62 25 21 33 | 36 3d 79 31 25 0d 18 6a |x1%:b%!3|6=y1%..j|
|00004d10| 05 cc 0d 18 74 34 20 62 | 25 21 32 34 3d 30 3a 62 |....t4 b|%!24=0:b|
|00004d20| 25 21 32 38 3d 30 3a 62 | 25 21 33 32 3d 26 37 46 |%!28=0:b|%!32=&7F|
|00004d30| 46 46 46 46 46 46 3a 62 | 25 21 33 36 3d 26 37 46 |FFFFFF:b|%!36=&7F|
|00004d40| 46 46 46 46 46 46 0d 18 | 7e 05 cd 0d 18 88 16 62 |FFFFFF..|~......b|
|00004d50| 25 21 34 3d 35 3a f4 20 | 44 72 61 67 20 74 79 70 |%!4=5:. |Drag typ|
|00004d60| 65 0d 18 92 19 c8 99 20 | 22 57 69 6d 70 5f 44 72 |e...... |"Wimp_Dr|
|00004d70| 61 67 42 6f 78 22 2c 2c | 62 25 0d 18 9c 05 e1 0d |agBox",,|b%......|
|00004d80| 18 a6 05 3a 0d 18 b0 31 | f4 20 46 4e 6c 6f 77 65 |...:...1|. FNlowe|
|00004d90| 72 20 3a 20 52 65 74 75 | 72 6e 20 67 69 76 65 6e |r : Retu|rn given|
|00004da0| 20 73 74 72 69 6e 67 20 | 69 6e 20 6c 6f 77 65 72 | string |in lower|
|00004db0| 20 63 61 73 65 0d 18 ba | 31 f4 20 46 4e 75 70 70 | case...|1. FNupp|
|00004dc0| 65 72 20 3a 20 52 65 74 | 75 72 6e 20 67 69 76 65 |er : Ret|urn give|
|00004dd0| 6e 20 73 74 72 69 6e 67 | 20 69 6e 20 75 70 70 65 |n string| in uppe|
|00004de0| 72 20 63 61 73 65 0d 18 | c4 32 f4 20 46 4e 74 69 |r case..|.2. FNti|
|00004df0| 64 79 20 20 3a 20 52 65 | 74 75 72 6e 20 67 69 76 |dy  : Re|turn giv|
|00004e00| 65 6e 20 73 74 72 69 6e | 67 20 69 6e 20 74 69 64 |en strin|g in tid|
|00004e10| 79 20 66 6f 72 6d 61 74 | 0d 18 ce 19 dd a4 6c 6f |y format|......lo|
|00004e20| 77 65 72 28 61 24 29 3a | ea 20 63 24 2c 62 24 2c |wer(a$):|. c$,b$,|
|00004e30| 49 0d 18 d8 0e e3 49 3d | 31 b8 a9 28 61 24 29 0d |I.....I=|1..(a$).|
|00004e40| 18 e2 0f 63 24 3d c1 61 | 24 2c 49 2c 31 29 0d 18 |...c$=.a|$,I,1)..|
|00004e50| ec 24 e7 20 63 24 3e 3d | 22 41 22 80 63 24 3c 3d |.$. c$>=|"A".c$<=|
|00004e60| 22 5a 22 8c 63 24 3d bd | 28 97 28 63 24 29 2b 33 |"Z".c$=.|(.(c$)+3|
|00004e70| 32 29 0d 18 f6 10 62 24 | 2b 3d 63 24 3a ed 3a 3d |2)....b$|+=c$:.:=|
|00004e80| 62 24 0d 19 00 19 dd a4 | 75 70 70 65 72 28 61 24 |b$......|upper(a$|
|00004e90| 29 3a ea 20 63 24 2c 62 | 24 2c 49 0d 19 0a 0e e3 |):. c$,b|$,I.....|
|00004ea0| 49 3d 31 b8 a9 28 61 24 | 29 0d 19 14 0f 63 24 3d |I=1..(a$|)....c$=|
|00004eb0| c1 61 24 2c 49 2c 31 29 | 0d 19 1e 24 e7 20 63 24 |.a$,I,1)|...$. c$|
|00004ec0| 3e 3d 22 61 22 80 63 24 | 3c 3d 22 7a 22 8c 63 24 |>="a".c$|<="z".c$|
|00004ed0| 3d bd 28 97 28 63 24 29 | 2d 33 32 29 0d 19 28 10 |=.(.(c$)|-32)..(.|
|00004ee0| 62 24 2b 3d 63 24 3a ed | 3a 3d 62 24 0d 19 32 1c |b$+=c$:.|:=b$..2.|
|00004ef0| dd a4 74 69 64 79 28 61 | 24 29 3a ea 20 63 61 70 |..tidy(a|$):. cap|
|00004f00| 2c 62 24 2c 49 2c 63 24 | 0d 19 3c 09 63 61 70 3d |,b$,I,c$|..<.cap=|
|00004f10| b9 0d 19 46 0e e3 49 3d | 31 b8 a9 28 61 24 29 0d |...F..I=|1..(a$).|
|00004f20| 19 50 32 20 62 24 3d c1 | 61 24 2c 49 2c 31 29 3a |.P2 b$=.|a$,I,1):|
|00004f30| e7 20 62 24 3e 3d 22 61 | 22 80 62 24 3c 3d 22 7a |. b$>="a|".b$<="z|
|00004f40| 22 20 8c 62 24 3d bd 28 | 97 28 62 24 29 2d 33 32 |" .b$=.(|.(b$)-32|
|00004f50| 29 0d 19 5a 17 20 e7 20 | 62 24 3c 22 41 22 20 84 |)..Z. . |b$<"A" .|
|00004f60| 62 24 3e 22 5a 22 20 8c | 0d 19 64 0b 20 20 63 61 |b$>"Z" .|..d.  ca|
|00004f70| 70 3d b9 0d 19 6e 06 20 | cc 0d 19 78 24 20 20 e7 |p=...n. |...x$  .|
|00004f80| 20 63 61 70 3d a3 20 8c | 62 24 3d bd 28 97 28 62 | cap=. .|b$=.(.(b|
|00004f90| 24 29 2b 33 32 29 20 8b | 63 61 70 3d a3 0d 19 82 |$)+32) .|cap=....|
|00004fa0| 0d 20 cd 3a 63 24 2b 3d | 62 24 0d 19 8c 09 ed 3a |. .:c$+=|b$.....:|
|00004fb0| 3d 63 24 0d 19 96 15 dd | a4 73 74 72 69 70 73 70 |=c$.....|.stripsp|
|00004fc0| 61 63 65 73 28 66 24 29 | 0d 19 a0 1d c8 95 20 c2 |aces(f$)|...... .|
|00004fd0| 66 24 2c 31 29 3d 22 20 | 22 20 84 20 c2 66 24 2c |f$,1)=" |" . .f$,|
|00004fe0| 31 29 3d bd 39 0d 19 aa | 0c 20 66 24 3d c0 66 24 |1)=.9...|. f$=.f$|
|00004ff0| 29 0d 19 b4 05 ce 0d 19 | be 1d c8 95 20 c0 66 24 |).......|.... .f$|
|00005000| 2c 31 29 3d 22 20 22 20 | 84 20 c0 66 24 2c 31 29 |,1)=" " |. .f$,1)|
|00005010| 3d bd 39 0d 19 c8 0e 20 | 66 24 3d c1 66 24 2c 32 |=.9.... |f$=.f$,2|
|00005020| 29 0d 19 d2 05 ce 0d 19 | dc 07 3d 66 24 0d 19 e6 |).......|..=f$...|
|00005030| 05 3a 0d 19 f0 41 f4 20 | 46 4e 47 65 74 45 6e 76 |.:...A. |FNGetEnv|
|00005040| 20 3a 20 52 65 74 75 72 | 6e 20 74 68 65 20 65 6e | : Retur|n the en|
|00005050| 76 69 72 6f 6e 6d 65 6e | 74 20 73 74 72 69 6e 67 |vironmen|t string|
|00005060| 20 73 74 72 69 70 70 65 | 64 20 6f 66 20 6c 6f 61 | strippe|d of loa|
|00005070| 64 65 72 0d 19 fa 19 dd | 20 a4 47 65 74 45 6e 76 |der.....| .GetEnv|
|00005080| 3a ea 20 63 6f 6d 24 2c | 49 2c 70 24 0d 1a 04 19 |:. com$,|I,p$....|
|00005090| c8 99 20 22 4f 53 5f 47 | 65 74 45 6e 76 22 20 b8 |.. "OS_G|etEnv" .|
|000050a0| 20 63 6f 6d 24 0d 1a 0e | 1c 70 24 3d 22 22 3a 49 | com$...|.p$="":I|
|000050b0| 3d a7 63 6f 6d 24 2c 22 | 20 2d 71 75 69 74 20 22 |=.com$,"| -quit "|
|000050c0| 29 0d 1a 18 0b e7 20 49 | 3e 30 20 8c 0d 1a 22 28 |)..... I|>0 ..."(|
|000050d0| 20 70 24 3d c1 63 6f 6d | 24 2c a7 63 6f 6d 24 2c | p$=.com|$,.com$,|
|000050e0| 22 20 22 2c 49 2b a9 22 | 20 2d 71 75 69 74 20 22 |" ",I+."| -quit "|
|000050f0| 29 2b 31 29 0d 1a 2c 1e | 20 c8 95 20 c0 70 24 2c |)+1)..,.| .. .p$,|
|00005100| 31 29 3d 22 20 22 3a 70 | 24 3d c1 70 24 2c 32 29 |1)=" ":p|$=.p$,2)|
|00005110| 3a ce 0d 1a 36 05 cd 0d | 1a 40 07 3d 70 24 0d 1a |:...6...|.@.=p$..|
|00005120| 4a 05 3a 0d 1a 54 31 f4 | 20 46 4e 66 69 6c 65 74 |J.:..T1.| FNfilet|
|00005130| 79 70 65 20 3a 20 52 65 | 74 75 72 6e 20 74 68 65 |ype : Re|turn the|
|00005140| 20 66 69 6c 65 20 74 79 | 70 65 20 6f 66 20 61 20 | file ty|pe of a |
|00005150| 66 69 6c 65 0d 1a 5e 1e | dd 20 a4 66 69 6c 65 74 |file..^.|. .filet|
|00005160| 79 70 65 28 66 24 29 3a | ea 20 66 25 2c 74 79 70 |ype(f$):|. f%,typ|
|00005170| 65 25 0d 1a 68 22 c8 99 | 20 22 4f 53 5f 46 69 6c |e%..h"..| "OS_Fil|
|00005180| 65 22 2c 31 37 2c 66 24 | 20 b8 20 74 79 70 65 25 |e",17,f$| . type%|
|00005190| 2c 2c 66 25 0d 1a 72 0e | c8 8e 20 74 79 70 65 25 |,,f%..r.|.. type%|
|000051a0| 20 ca 0d 1a 7c 11 20 c9 | 20 30 3a 74 79 70 65 25 | ...|. .| 0:type%|
|000051b0| 3d 2d 32 0d 1a 86 38 20 | c9 20 31 3a e7 20 28 66 |=-2...8 |. 1:. (f|
|000051c0| 25 3e 3e 3e 32 30 29 3d | 26 46 46 46 20 8c 74 79 |%>>>20)=|&FFF .ty|
|000051d0| 70 65 25 3d 28 66 25 3e | 3e 3e 38 29 80 26 46 46 |pe%=(f%>|>>8).&FF|
|000051e0| 46 20 8b 74 79 70 65 25 | 3d 2d 31 0d 1a 90 11 20 |F .type%|=-1.... |
|000051f0| c9 20 32 3a 74 79 70 65 | 25 3d 2d 33 0d 1a 9a 05 |. 2:type|%=-3....|
|00005200| cb 0d 1a a4 0a 3d 74 79 | 70 65 25 0d 1a ae 32 f4 |.....=ty|pe%...2.|
|00005210| 20 2d 33 20 3d 20 64 69 | 72 65 63 74 6f 72 79 2c | -3 = di|rectory,|
|00005220| 20 2d 32 20 3d 20 6e 6f | 74 20 66 6f 75 6e 64 2c | -2 = no|t found,|
|00005230| 20 2d 31 20 3d 20 75 6e | 74 79 70 65 64 0d 1a b8 | -1 = un|typed...|
|00005240| 05 3a 0d 1a c2 30 f4 20 | 46 4e 66 69 6c 65 6c 65 |.:...0. |FNfilele|
|00005250| 6e 67 74 68 20 3a 20 52 | 65 74 75 72 6e 20 74 68 |ngth : R|eturn th|
|00005260| 65 20 6c 65 6e 67 74 68 | 20 6f 66 20 61 20 66 69 |e length| of a fi|
|00005270| 6c 65 0d 1a cc 1f dd 20 | a4 66 69 6c 65 6c 65 6e |le..... |.filelen|
|00005280| 67 74 68 28 66 24 29 3a | ea 20 6c 65 6e 25 2c 65 |gth(f$):|. len%,e|
|00005290| 78 0d 1a d6 31 c8 99 20 | 22 4f 53 5f 46 69 6c 65 |x...1.. |"OS_File|
|000052a0| 22 2c 35 2c 66 24 20 b8 | 20 65 78 2c 2c 2c 2c 6c |",5,f$ .| ex,,,,l|
|000052b0| 65 6e 25 3a e7 20 65 78 | 3d 30 8c 6c 65 6e 25 3d |en%:. ex|=0.len%=|
|000052c0| 2d 31 0d 1a e0 09 3d 6c | 65 6e 25 0d 1a ea 05 3a |-1....=l|en%....:|
|000052d0| 0d 1a f4 3b f4 20 46 4e | 65 72 72 6f 72 62 6f 78 |...;. FN|errorbox|
|000052e0| 20 3a 20 63 72 65 61 74 | 65 20 61 6e 20 65 72 72 | : creat|e an err|
|000052f0| 6f 72 20 62 6f 78 20 77 | 69 74 68 20 75 70 20 74 |or box w|ith up t|
|00005300| 6f 20 32 20 62 75 74 74 | 6f 6e 73 0d 1a fe 1d f4 |o 2 butt|ons.....|
|00005310| 20 42 69 74 20 56 61 6c | 75 65 20 45 66 66 65 63 | Bit Val|ue Effec|
|00005320| 74 20 69 66 20 73 65 74 | 0d 1b 08 3f f4 20 20 30 |t if set|...?.  0|
|00005330| 20 20 20 20 31 20 20 20 | 49 6e 63 6c 75 64 65 20 |    1   |Include |
|00005340| 61 6e 20 4f 4b 20 6f 70 | 74 69 6f 6e 20 20 20 20 |an OK op|tion    |
|00005350| 7d 20 69 66 20 62 6f 74 | 68 20 75 6e 73 65 74 20 |} if bot|h unset |
|00005360| 74 68 65 6e 20 61 73 0d | 1b 12 33 f4 20 20 31 20 |then as.|..3.  1 |
|00005370| 20 20 20 32 20 20 20 49 | 6e 63 6c 75 64 65 20 61 |   2   I|nclude a|
|00005380| 20 43 61 6e 63 65 6c 20 | 6f 70 74 69 6f 6e 20 7d | Cancel |option }|
|00005390| 20 62 69 74 20 30 20 73 | 65 74 0d 1b 1c 44 f4 20 | bit 0 s|et...D. |
|000053a0| 20 32 20 20 20 20 34 20 | 20 20 52 65 76 65 72 73 | 2    4 |  Revers|
|000053b0| 65 64 20 62 75 74 74 6f | 6e 73 2c 20 4f 4b 3d 57 |ed butto|ns, OK=W|
|000053c0| 68 69 74 65 2c 20 43 61 | 6e 63 65 6c 3d 59 65 6c |hite, Ca|ncel=Yel|
|000053d0| 6c 6f 77 20 61 6e 64 20 | 61 63 74 69 6f 6e 0d 1b |low and |action..|
|000053e0| 26 11 f4 20 20 33 20 20 | 20 20 38 20 20 20 3f 0d |&..  3  |  8   ?.|
|000053f0| 1b 30 3a f4 20 20 34 20 | 20 20 20 31 36 20 20 54 |.0:.  4 |   16  T|
|00005400| 69 74 6c 65 20 69 73 20 | 6a 75 73 74 20 74 69 74 |itle is |just tit|
|00005410| 6c 65 20 28 6e 6f 74 20 | 45 72 72 6f 72 20 66 72 |le (not |Error fr|
|00005420| 6f 6d 20 74 69 74 6c 65 | 29 0d 1b 3a 25 f4 20 20 |om title|)..:%.  |
|00005430| 35 20 20 20 20 33 32 20 | 20 44 61 6e 67 65 72 6f |5    32 | Dangero|
|00005440| 75 73 2c 20 64 6f 20 6e | 6f 74 20 75 73 65 0d 1b |us, do n|ot use..|
|00005450| 44 1e f4 20 20 36 20 20 | 20 20 36 34 20 20 4e 6f |D..  6  |  64  No|
|00005460| 20 65 72 72 6f 72 20 62 | 6f 78 20 3f 0d 1b 4e 1a | error b|ox ?..N.|
|00005470| f4 20 20 37 20 20 20 31 | 32 38 20 20 44 6f 6e 27 |.  7   1|28  Don'|
|00005480| 74 20 62 65 65 70 0d 1b | 58 40 dd 20 a4 65 72 72 |t beep..|X@. .err|
|00005490| 6f 72 62 6f 78 28 74 69 | 74 6c 65 24 2c 6d 65 73 |orbox(ti|tle$,mes|
|000054a0| 73 61 67 65 24 2c 62 75 | 74 74 6f 6e 25 29 3a 74 |sage$,bu|tton%):t|
|000054b0| 69 74 6c 65 24 3d a4 6d | 73 67 74 65 78 74 28 74 |itle$=.m|sgtext(t|
|000054c0| 69 74 6c 65 24 29 0d 1b | 62 1f 6d 65 73 73 61 67 |itle$)..|b.messag|
|000054d0| 65 24 3d a4 6d 73 67 74 | 65 78 74 28 6d 65 73 73 |e$=.msgt|ext(mess|
|000054e0| 61 67 65 24 29 0d 1b 6c | 34 24 28 6d 65 73 73 61 |age$)..l|4$(messa|
|000054f0| 67 65 5f 62 75 66 66 65 | 72 25 2b 34 29 3d 6d 65 |ge_buffe|r%+4)=me|
|00005500| 73 73 61 67 65 24 3a 21 | 6d 65 73 73 61 67 65 5f |ssage$:!|message_|
|00005510| 62 75 66 66 65 72 25 3d | 30 0d 1b 76 42 c8 99 20 |buffer%=|0..vB.. |
|00005520| 22 57 69 6d 70 5f 52 65 | 70 6f 72 74 45 72 72 6f |"Wimp_Re|portErro|
|00005530| 72 22 2c 6d 65 73 73 61 | 67 65 5f 62 75 66 66 65 |r",messa|ge_buffe|
|00005540| 72 25 2c 62 75 74 74 6f | 6e 25 2c 74 69 74 6c 65 |r%,butto|n%,title|
|00005550| 24 20 b8 20 2c 72 65 70 | 6c 79 25 0d 1b 80 0b 3d |$ . ,rep|ly%....=|
|00005560| 72 65 70 6c 79 25 0d 1b | 8a 05 3a 0d 1b 94 26 f4 |reply%..|..:...&.|
|00005570| 20 46 4e 63 6c 61 69 6d | 20 20 20 3a 20 43 6c 61 | FNclaim|   : Cla|
|00005580| 69 6d 20 61 6e 20 61 72 | 65 61 20 6f 66 20 52 4d |im an ar|ea of RM|
|00005590| 41 0d 1b 9e 2f f4 20 46 | 4e 72 65 6c 65 61 73 65 |A.../. F|Nrelease|
|000055a0| 20 3a 20 52 65 6c 65 61 | 73 65 20 61 20 63 6c 61 | : Relea|se a cla|
|000055b0| 69 6d 65 64 20 61 72 65 | 61 20 6f 66 20 52 4d 41 |imed are|a of RMA|
|000055c0| 0d 1b a8 1c dd a4 63 6c | 61 69 6d 28 6c 65 6e 67 |......cl|aim(leng|
|000055d0| 74 68 25 29 3a ea 20 66 | 6c 61 67 73 0d 1b b2 2f |th%):. f|lags.../|
|000055e0| c8 99 20 22 58 4f 53 5f | 4d 6f 64 75 6c 65 22 2c |.. "XOS_|Module",|
|000055f0| 36 2c 2c 2c 6c 65 6e 67 | 74 68 25 20 b8 20 2c 2c |6,,,leng|th% . ,,|
|00005600| 61 72 65 61 25 3b 66 6c | 61 67 73 0d 1b bc 1c e7 |area%;fl|ags.....|
|00005610| 20 28 66 6c 61 67 73 20 | 80 31 29 3e 30 20 8c 61 | (flags |.1)>0 .a|
|00005620| 72 65 61 25 3d 2d 31 0d | 1b c6 0a 3d 61 72 65 61 |rea%=-1.|...=area|
|00005630| 25 0d 1b d0 16 dd f2 72 | 65 6c 65 61 73 65 28 f8 |%......r|elease(.|
|00005640| 20 61 72 65 61 25 29 0d | 1b da 2f e7 20 61 72 65 | area%).|../. are|
|00005650| 61 25 3e 30 20 8c c8 99 | 20 22 4f 53 5f 4d 6f 64 |a%>0 ...| "OS_Mod|
|00005660| 75 6c 65 22 2c 37 2c 2c | 61 72 65 61 25 3a 61 72 |ule",7,,|area%:ar|
|00005670| 65 61 25 3d 2d 31 0d 1b | e4 05 e1 0d 1b ee 05 3a |ea%=-1..|.......:|
|00005680| 0d 1b f8 28 f4 20 50 52 | 4f 43 77 69 6e 64 6f 77 |...(. PR|OCwindow|
|00005690| 74 69 74 6c 65 20 3a 20 | 53 65 74 20 77 69 6e 64 |title : |Set wind|
|000056a0| 6f 77 20 74 69 74 6c 65 | 0d 1c 02 1f dd 20 f2 77 |ow title|..... .w|
|000056b0| 69 6e 64 6f 77 74 69 74 | 6c 65 28 77 69 6e 25 2c |indowtit|le(win%,|
|000056c0| 74 69 74 6c 65 24 29 0d | 1c 0c 2b 62 25 21 30 20 |title$).|..+b%!0 |
|000056d0| 3d 20 77 69 6e 25 3a c8 | 99 20 22 57 69 6d 70 5f |= win%:.|. "Wimp_|
|000056e0| 47 65 74 57 69 6e 64 6f | 77 49 6e 66 6f 22 2c 2c |GetWindo|wInfo",,|
|000056f0| 62 25 0d 1c 16 22 6c 6f | 63 25 20 3d 20 21 28 62 |b%..."lo|c% = !(b|
|00005700| 25 2b 37 36 29 3a 24 6c | 6f 63 25 20 3d 20 74 69 |%+76):$l|oc% = ti|
|00005710| 74 6c 65 24 0d 1c 20 05 | e1 0d 1c 2a 05 3a 0d 1c |tle$.. .|...*.:..|
|00005720| 34 33 f4 20 46 4e 74 61 | 73 6b 6e 61 6d 65 20 20 |43. FNta|skname  |
|00005730| 20 20 20 20 20 20 3a 20 | 72 65 74 75 72 6e 20 61 |      : |return a|
|00005740| 20 67 69 76 65 6e 20 74 | 61 73 6b 73 20 6e 61 6d | given t|asks nam|
|00005750| 65 0d 1c 3e 3c f4 20 46 | 4e 77 69 6e 64 6f 77 74 |e..><. F|Nwindowt|
|00005760| 61 73 6b 20 20 20 20 20 | 20 3a 20 72 65 74 75 72 |ask     | : retur|
|00005770| 6e 20 74 61 73 6b 20 68 | 61 6e 64 6c 65 20 77 68 |n task h|andle wh|
|00005780| 6f 20 6f 77 6e 73 20 77 | 69 6e 64 6f 77 0d 1c 48 |o owns w|indow..H|
|00005790| 37 f4 20 46 4e 72 65 61 | 64 74 61 73 6b 73 74 72 |7. FNrea|dtaskstr|
|000057a0| 69 6e 67 20 20 3a 20 72 | 65 61 64 20 61 20 73 74 |ing  : r|ead a st|
|000057b0| 72 69 6e 67 20 66 72 6f | 6d 20 67 69 76 65 6e 20 |ring fro|m given |
|000057c0| 74 61 73 6b 0d 1c 52 36 | f4 20 50 52 4f 43 72 65 |task..R6|. PROCre|
|000057d0| 61 64 74 61 73 6b 61 72 | 65 61 20 20 3a 20 72 65 |adtaskar|ea  : re|
|000057e0| 61 64 20 61 20 62 6c 6f | 63 6b 20 66 72 6f 6d 20 |ad a blo|ck from |
|000057f0| 67 69 76 65 6e 20 74 61 | 73 6b 0d 1c 5c 1f dd a4 |given ta|sk..\...|
|00005800| 74 61 73 6b 6e 61 6d 65 | 28 74 61 73 6b 25 29 3a |taskname|(task%):|
|00005810| ea 20 6e 61 6d 65 24 2c | 66 0d 1c 66 38 c8 99 20 |. name$,|f..f8.. |
|00005820| 22 58 54 61 73 6b 4d 61 | 6e 61 67 65 72 5f 54 61 |"XTaskMa|nager_Ta|
|00005830| 73 6b 4e 61 6d 65 46 72 | 6f 6d 48 61 6e 64 6c 65 |skNameFr|omHandle|
|00005840| 22 2c 74 61 73 6b 25 20 | b8 20 6e 61 6d 65 24 3b |",task% |. name$;|
|00005850| 66 0d 1c 70 1a e7 20 28 | 66 20 80 31 29 20 8c 6e |f..p.. (|f .1) .n|
|00005860| 61 6d 65 24 3d 22 4e 6f | 6e 65 22 0d 1c 7a 0a 3d |ame$="No|ne"..z.=|
|00005870| 6e 61 6d 65 24 0d 1c 84 | 1e dd a4 77 69 6e 64 6f |name$...|...windo|
|00005880| 77 74 61 73 6b 28 77 69 | 6e 25 29 3a ea 20 74 61 |wtask(wi|n%):. ta|
|00005890| 73 6b 25 0d 1c 8e 31 c8 | 99 20 22 57 69 6d 70 5f |sk%...1.|. "Wimp_|
|000058a0| 53 65 6e 64 4d 65 73 73 | 61 67 65 22 2c 31 39 2c |SendMess|age",19,|
|000058b0| 62 25 2c 77 69 6e 25 2c | 2d 31 20 b8 20 2c 2c 74 |b%,win%,|-1 . ,,t|
|000058c0| 61 73 6b 25 0d 1c 98 0a | 3d 74 61 73 6b 25 0d 1c |ask%....|=task%..|
|000058d0| a2 25 dd a4 72 65 61 64 | 74 61 73 6b 73 74 72 69 |.%..read|taskstri|
|000058e0| 6e 67 28 74 61 73 6b 25 | 2c 6c 6f 63 25 29 3a ea |ng(task%|,loc%):.|
|000058f0| 20 70 24 0d 1c ac 33 c8 | 99 22 57 69 6d 70 5f 54 | p$...3.|."Wimp_T|
|00005900| 72 61 6e 73 66 65 72 42 | 6c 6f 63 6b 22 2c 74 61 |ransferB|lock",ta|
|00005910| 73 6b 25 2c 6c 6f 63 25 | 2c 68 61 6e 64 6c 65 2c |sk%,loc%|,handle,|
|00005920| 62 25 2c 32 35 36 0d 1c | b6 11 3d a4 73 74 72 69 |b%,256..|..=.stri|
|00005930| 6e 67 30 28 62 25 29 0d | 1c c0 27 dd f2 72 65 61 |ng0(b%).|..'..rea|
|00005940| 64 74 61 73 6b 61 72 65 | 61 28 74 61 73 6b 25 2c |dtaskare|a(task%,|
|00005950| 6c 6f 63 25 2c 74 6f 25 | 2c 6c 65 6e 25 29 0d 1c |loc%,to%|,len%)..|
|00005960| ca 35 c8 99 22 57 69 6d | 70 5f 54 72 61 6e 73 66 |.5.."Wim|p_Transf|
|00005970| 65 72 42 6c 6f 63 6b 22 | 2c 74 61 73 6b 25 2c 6c |erBlock"|,task%,l|
|00005980| 6f 63 25 2c 68 61 6e 64 | 6c 65 2c 74 6f 25 2c 6c |oc%,hand|le,to%,l|
|00005990| 65 6e 25 0d 1c d4 05 e1 | 0d 1c de 05 3a 0d 1c e8 |en%.....|....:...|
|000059a0| 3f f4 20 46 4e 62 61 63 | 6b 6f 66 77 69 6e 73 74 |?. FNbac|kofwinst|
|000059b0| 61 63 6b 20 3a 20 72 65 | 74 75 72 6e 20 77 69 6e |ack : re|turn win|
|000059c0| 20 68 61 6e 64 6c 65 20 | 6f 66 20 62 61 63 6b 20 | handle |of back |
|000059d0| 6f 66 20 77 69 6e 20 73 | 74 61 63 6b 0d 1c f2 3e |of win s|tack...>|
|000059e0| f4 20 46 4e 77 69 6e 73 | 74 61 63 6b 6e 65 78 74 |. FNwins|tacknext|
|000059f0| 20 20 20 3a 20 72 65 74 | 75 72 6e 20 77 69 6e 20 |   : ret|urn win |
|00005a00| 68 61 6e 64 6c 65 20 6f | 66 20 6e 65 78 74 20 77 |handle o|f next w|
|00005a10| 69 6e 20 66 6f 72 77 61 | 72 64 0d 1c fc 18 dd a4 |in forwa|rd......|
|00005a20| 62 61 63 6b 6f 66 77 69 | 6e 73 74 61 63 6b 3a ea |backofwi|nstack:.|
|00005a30| 20 49 0d 1d 06 2c 21 62 | 25 3d 69 6e 66 6f 62 6f | I...,!b|%=infobo|
|00005a40| 78 25 3a c8 99 22 57 69 | 6d 70 5f 47 65 74 57 69 |x%:.."Wi|mp_GetWi|
|00005a50| 6e 64 6f 77 53 74 61 74 | 65 22 2c 2c 62 25 0d 1d |ndowStat|e",,b%..|
|00005a60| 10 0d e3 49 3d 34 b8 31 | 36 88 34 0d 1d 1a 15 20 |...I=4.1|6.4.... |
|00005a70| 62 25 21 49 3d 28 62 25 | 21 49 29 2d 34 30 39 36 |b%!I=(b%|!I)-4096|
|00005a80| 0d 1d 24 06 ed 49 0d 1d | 2e 24 62 25 21 32 38 3d |..$..I..|.$b%!28=|
|00005a90| 2d 32 3a c8 99 22 57 69 | 6d 70 5f 4f 70 65 6e 57 |-2:.."Wi|mp_OpenW|
|00005aa0| 69 6e 64 6f 77 22 2c 2c | 62 25 0d 1d 38 29 c8 99 |indow",,|b%..8)..|
|00005ab0| 22 57 69 6d 70 5f 47 65 | 74 57 69 6e 64 6f 77 53 |"Wimp_Ge|tWindowS|
|00005ac0| 74 61 74 65 22 2c 2c 62 | 25 3a 7a 63 25 3d 62 25 |tate",,b|%:zc%=b%|
|00005ad0| 21 32 38 0d 1d 42 1c c8 | 99 22 57 69 6d 70 5f 43 |!28..B..|."Wimp_C|
|00005ae0| 6c 6f 73 65 57 69 6e 64 | 6f 77 22 2c 2c 62 25 0d |loseWind|ow",,b%.|
|00005af0| 1d 4c 08 3d 7a 63 25 0d | 1d 56 44 dd a4 77 69 6e |.L.=zc%.|.VD..win|
|00005b00| 73 74 61 63 6b 6e 65 78 | 74 28 77 69 6e 25 29 3a |stacknex|t(win%):|
|00005b10| 21 62 25 3d 77 69 6e 25 | 3a c8 99 22 57 69 6d 70 |!b%=win%|:.."Wimp|
|00005b20| 5f 47 65 74 57 69 6e 64 | 6f 77 53 74 61 74 65 22 |_GetWind|owState"|
|00005b30| 2c 2c 62 25 3a 3d 62 25 | 21 32 38 0d 1d 60 05 3a |,,b%:=b%|!28..`.:|
|00005b40| 0d 1d 6a 18 dd 20 a4 6c | 65 61 66 6e 61 6d 65 28 |..j.. .l|eafname(|
|00005b50| 66 24 29 3a ea 20 72 24 | 0d 1d 74 24 e7 20 a7 66 |f$):. r$|..t$. .f|
|00005b60| 24 2c 22 3a 22 29 3e 30 | 20 8c 66 24 3d c1 66 24 |$,":")>0| .f$=.f$|
|00005b70| 2c a7 66 24 2c 22 3a 22 | 29 2b 31 29 0d 1d 7e 11 |,.f$,":"|)+1)..~.|
|00005b80| c8 8e 20 a7 66 24 2c 22 | 2e 22 29 20 ca 0d 1d 88 |.. .f$,"|.") ....|
|00005b90| 12 20 c9 20 30 20 20 20 | 20 3a 72 24 3d 66 24 0d |. . 0   | :r$=f$.|
|00005ba0| 1d 92 29 20 7f 20 3a 72 | 24 3d a4 6c 65 61 66 6e |..) . :r|$=.leafn|
|00005bb0| 61 6d 65 28 c2 66 24 2c | a9 28 66 24 29 2d a7 66 |ame(.f$,|.(f$)-.f|
|00005bc0| 24 2c 22 2e 22 29 29 29 | 0d 1d 9c 05 cb 0d 1d a6 |$,".")))|........|
|00005bd0| 07 3d 72 24 0d 1d b0 13 | dd 20 a4 70 61 74 68 6e |.=r$....|. .pathn|
|00005be0| 61 6d 65 28 66 24 29 0d | 1d ba 2d e7 20 a7 66 24 |ame(f$).|..-. .f$|
|00005bf0| 2c 22 3a 22 29 3e 30 20 | 80 20 a7 66 24 2c 22 2e |,":")>0 |. .f$,".|
|00005c00| 22 29 3d 30 20 8c 3d c0 | 66 24 2c a7 66 24 2c 22 |")=0 .=.|f$,.f$,"|
|00005c10| 3a 22 29 29 0d 1d c4 22 | 3d c0 66 24 2c a9 28 66 |:"))..."|=.f$,.(f|
|00005c20| 24 29 2d a9 28 a4 6c 65 | 61 66 6e 61 6d 65 28 66 |$)-.(.le|afname(f|
|00005c30| 24 29 29 2d 31 29 0d 1d | ce 05 3a 0d 1d d8 39 f4 |$))-1)..|..:...9.|
|00005c40| 20 46 4e 6c 6f 6e 67 66 | 69 6c 65 6e 61 6d 65 20 | FNlongf|ilename |
|00005c50| 3a 20 52 65 74 75 72 6e | 20 74 68 65 20 66 75 6c |: Return| the ful|
|00005c60| 6c 20 70 61 74 68 6e 61 | 6d 65 20 6f 66 20 61 20 |l pathna|me of a |
|00005c70| 66 69 6c 65 0d 1d e2 2b | f4 20 52 65 6d 6f 76 65 |file...+|. Remove|
|00005c80| 73 20 69 64 65 6e 74 69 | 66 69 65 72 73 20 73 75 |s identi|fiers su|
|00005c90| 63 68 20 61 73 20 53 63 | 72 61 70 3a 2e 2e 2e 0d |ch as Sc|rap:....|
|00005ca0| 1d ec 16 dd a4 6c 6f 6e | 67 66 69 6c 65 6e 61 6d |.....lon|gfilenam|
|00005cb0| 65 28 66 24 29 0d 1d f6 | 38 c8 99 20 22 4f 53 5f |e(f$)...|8.. "OS_|
|00005cc0| 46 53 43 6f 6e 74 72 6f | 6c 22 2c 33 37 2c 66 24 |FSContro|l",37,f$|
|00005cd0| 2c 6d 65 73 73 61 67 65 | 5f 62 75 66 66 65 72 25 |,message|_buffer%|
|00005ce0| 2c 2c 2c 32 35 36 20 b8 | 20 2c 2c 66 24 0d 1e 00 |,,,256 .| ,,f$...|
|00005cf0| 07 3d 66 24 0d 1e 0a 05 | 3a 0d 1e 14 1b dd f2 73 |.=f$....|:......s|
|00005d00| 65 74 63 61 72 65 74 65 | 6e 64 28 77 69 6e 2c 69 |etcarete|nd(win,i|
|00005d10| 63 6f 6e 29 0d 1e 1e 34 | f2 73 65 74 63 61 72 65 |con)...4|.setcare|
|00005d20| 74 70 6f 73 28 77 69 6e | 2c 69 63 6f 6e 2c a9 28 |tpos(win|,icon,.(|
|00005d30| a4 67 65 74 69 63 6f 6e | 74 65 78 74 28 77 69 6e |.geticon|text(win|
|00005d40| 2c 69 63 6f 6e 29 29 29 | 0d 1e 28 05 e1 0d 1e 32 |,icon)))|..(....2|
|00005d50| 21 dd f2 73 65 74 63 61 | 72 65 74 70 6f 73 28 77 |!..setca|retpos(w|
|00005d60| 69 6e 2c 69 63 6f 6e 2c | 63 68 61 72 73 29 0d 1e |in,icon,|chars)..|
|00005d70| 3c 34 c8 99 20 22 57 69 | 6d 70 5f 53 65 74 43 61 |<4.. "Wi|mp_SetCa|
|00005d80| 72 65 74 50 6f 73 69 74 | 69 6f 6e 22 2c 77 69 6e |retPosit|ion",win|
|00005d90| 2c 69 63 6f 6e 2c 30 2c | 30 2c 2d 31 2c 63 68 61 |,icon,0,|0,-1,cha|
|00005da0| 72 73 0d 1e 46 05 e1 0d | 1e 50 27 dd f2 67 65 74 |rs..F...|.P'..get|
|00005db0| 63 61 72 65 74 70 6f 73 | 28 f8 20 77 69 6e 2c f8 |caretpos|(. win,.|
|00005dc0| 20 69 63 6f 6e 2c f8 20 | 63 68 61 72 73 29 0d 1e | icon,. |chars)..|
|00005dd0| 5a 40 c8 99 20 22 57 69 | 6d 70 5f 47 65 74 43 61 |Z@.. "Wi|mp_GetCa|
|00005de0| 72 65 74 50 6f 73 69 74 | 69 6f 6e 22 2c 2c 62 25 |retPosit|ion",,b%|
|00005df0| 3a 77 69 6e 3d 21 62 25 | 3a 69 63 6f 6e 3d 62 25 |:win=!b%|:icon=b%|
|00005e00| 21 34 3a 63 68 61 72 73 | 3d 62 25 21 32 30 0d 1e |!4:chars|=b%!20..|
|00005e10| 64 05 e1 0d 1e 6e 25 dd | f2 67 65 74 70 74 72 70 |d....n%.|.getptrp|
|00005e20| 6f 73 28 f8 20 78 2c f8 | 20 79 2c f8 20 77 69 6e |os(. x,.| y,. win|
|00005e30| 2c f8 20 69 63 6f 6e 29 | 0d 1e 78 43 c8 99 20 22 |,. icon)|..xC.. "|
|00005e40| 57 69 6d 70 5f 47 65 74 | 50 6f 69 6e 74 65 72 49 |Wimp_Get|PointerI|
|00005e50| 6e 66 6f 22 2c 2c 62 25 | 3a 78 3d 62 25 21 30 3a |nfo",,b%|:x=b%!0:|
|00005e60| 79 3d 62 25 21 34 3a 77 | 69 6e 3d 62 25 21 31 32 |y=b%!4:w|in=b%!12|
|00005e70| 3a 69 63 6f 6e 3d 62 25 | 21 31 36 0d 1e 82 05 e1 |:icon=b%|!16.....|
|00005e80| 0d 1e 8c 05 3a 0d 1e 96 | 37 f4 20 46 4e 72 65 61 |....:...|7. FNrea|
|00005e90| 64 63 6d 6f 73 20 20 20 | 20 3a 20 52 65 61 64 20 |dcmos   | : Read |
|00005ea0| 61 20 62 79 74 65 20 6f | 66 20 63 6f 6e 66 69 67 |a byte o|f config|
|00005eb0| 75 72 61 74 69 6f 6e 20 | 69 6e 66 6f 0d 1e a0 38 |uration |info...8|
|00005ec0| f4 20 50 52 4f 43 77 72 | 69 74 65 63 6d 6f 73 20 |. PROCwr|itecmos |
|00005ed0| 3a 20 57 72 69 74 65 20 | 61 20 62 79 74 65 20 6f |: Write |a byte o|
|00005ee0| 66 20 63 6f 6e 66 69 67 | 75 72 61 74 69 6f 6e 20 |f config|uration |
|00005ef0| 69 6e 66 6f 0d 1e aa 14 | dd a4 72 65 61 64 63 6d |info....|..readcm|
|00005f00| 6f 73 28 62 79 74 65 29 | 0d 1e b4 23 c8 99 20 22 |os(byte)|...#.. "|
|00005f10| 4f 53 5f 42 79 74 65 22 | 2c 31 36 31 2c 62 79 74 |OS_Byte"|,161,byt|
|00005f20| 65 20 b8 20 2c 2c 76 61 | 6c 75 65 0d 1e be 0a 3d |e . ,,va|lue....=|
|00005f30| 76 61 6c 75 65 0d 1e c8 | 1b dd f2 77 72 69 74 65 |value...|...write|
|00005f40| 63 6d 6f 73 28 62 79 74 | 65 2c 76 61 6c 75 65 29 |cmos(byt|e,value)|
|00005f50| 0d 1e d2 1f c8 99 20 22 | 4f 53 5f 42 79 74 65 22 |...... "|OS_Byte"|
|00005f60| 2c 31 36 32 2c 62 79 74 | 65 2c 76 61 6c 75 65 0d |,162,byt|e,value.|
|00005f70| 1e dc 05 e1 0d 1e e6 05 | 3a 0d 1e f0 19 dd a4 73 |........|:......s|
|00005f80| 77 69 6e 75 6d 62 65 72 | 28 73 77 69 24 29 3a ea |winumber|(swi$):.|
|00005f90| 20 6e 0d 1e fa 30 c8 99 | 20 22 58 4f 53 5f 53 57 | n...0..| "XOS_SW|
|00005fa0| 49 4e 75 6d 62 65 72 46 | 72 6f 6d 53 74 72 69 6e |INumberF|romStrin|
|00005fb0| 67 22 2c 2c 73 77 69 24 | 20 b8 20 6e 3b 66 6c 61 |g",,swi$| . n;fla|
|00005fc0| 67 73 0d 1f 04 18 e7 20 | 28 66 6c 61 67 73 20 80 |gs..... |(flags .|
|00005fd0| 31 29 3e 30 20 8c 6e 3d | 2d 31 0d 1f 0e 06 3d 6e |1)>0 .n=|-1....=n|
|00005fe0| 0d 1f 18 04 0d ff       |                         |......  |        |
+--------+-------------------------+-------------------------+--------+--------+