00000000  78 10 9f e5 78 20 9f e5  78 30 9f e5 01 00 52 e4  |x...x ..x0....R.|
00000010  01 00 43 e4 01 10 51 e2  fb ff ff 1a 10 00 00 ef  |..C...Q.........|
00000020  9d 20 8f e2 01 10 d0 e4  00 00 31 e3 20 00 31 13  |. ........1. .1.|
00000030  01 10 c2 14 fa ff ff 1a  22 30 a0 e3 01 30 c2 e4  |........"0...0..|
00000040  20 30 a0 e3 01 30 c2 e4  00 00 31 e3 01 00 40 02  | 0...0....1...@.|
00000050  01 10 d0 e4 01 10 c2 e4  00 00 31 e3 fb ff ff 1a  |..........1.....|
00000060  43 00 8f e2 4c 10 8f e2  01 20 42 e0 00 30 a0 e3  |C...L.... B..0..|
00000070  04 40 a0 e3 24 00 00 ef  0c 00 8f e2 05 00 00 ef  |.@..$...........|
00000080  e0 aa 00 00 a4 2b 01 00  df 3a 01 00 42 61 73 69  |.....+...:..Basi|
00000090  63 20 2d 71 75 69 74 20  40 30 30 30 30 39 30 30  |c -quit @0000900|
000000a0  30 2c 30 30 30 31 33 41  45 30 00 4d 61 6b 65 41  |0,00013AE0.MakeA|
000000b0  70 70 32 24 43 4c 49 00  42 61 73 69 63 20 2d 71  |pp2$CLI.Basic -q|
000000c0  75 69 74 20 22 0d 00 00  4f de 42 25 20 32 35 36  |uit "...O.B% 256|
000000d0  3a 43 24 3d 22 4d 61 6b  65 41 70 70 32 24 43 4c  |:C$="MakeApp2$CL|
000000e0  49 22 3a c8 99 33 35 2c  43 24 2c 42 25 2c 32 35  |I":..35,C$,B%,25|
000000f0  36 3a c8 99 31 36 b8 2c  2c 54 25 3a c8 99 37 32  |6:..16.,,T%:..72|
00000100  2c 42 25 2c 54 25 3a c8  99 33 36 2c 43 24 2c 22  |,B%,T%:..36,C$,"|
00000110  22 2c 2d 31 0d 00 01 0d  f4 3e 21 52 75 6e 42 61  |",-1.....>!RunBa|
00000120  72 0d 00 02 46 f4 20 43  72 65 61 74 65 73 20 61  |r...F. Creates a|
00000130  20 62 75 74 74 6f 6e 20  62 61 72 20 77 68 69 63  | button bar whic|
00000140  68 20 63 61 6e 20 62 65  20 70 6c 61 63 65 64 20  |h can be placed |
00000150  61 6e 79 77 68 65 72 65  20 6f 6e 20 74 68 65 20  |anywhere on the |
00000160  73 63 72 65 65 6e 2e 0d  00 03 3e f4 20 55 73 65  |screen....>. Use|
00000170  73 20 64 61 74 61 20 66  69 6c 65 73 20 63 72 65  |s data files cre|
00000180  61 74 65 64 20 62 79 20  4f 66 66 69 63 65 20 43  |ated by Office C|
00000190  6f 6e 66 69 67 75 72 65  20 28 21 52 75 6e 43 6f  |onfigure (!RunCo|
000001a0  6e 66 69 67 29 0d 00 04  18 f4 20 a9 20 50 65 74  |nfig)..... . Pet|
000001b0  65 72 20 50 72 69 63 65  20 31 39 39 38 0d 00 05  |er Price 1998...|
000001c0  05 3a 0d 00 06 15 61 70  70 6e 61 6d 65 24 3d 22  |.:....appname$="|
000001d0  4f 66 66 69 63 65 22 0d  00 07 05 3a 0d 00 08 1b  |Office"....:....|
000001e0  76 65 72 24 3d 22 30 2e  33 37 20 28 32 33 2d 41  |ver$="0.37 (23-A|
000001f0  70 72 2d 39 38 29 22 0d  00 09 0f 6e 75 6d 24 3d  |pr-98)"....num$=|
00000200  22 30 30 30 78 22 0d 00  0a 14 6c 69 63 24 3d 22  |"000x"....lic$="|
00000210  53 68 61 72 65 77 61 72  65 22 0d 00 0b 9f ee 20  |Shareware"..... |
00000220  85 20 f2 77 69 6d 70 5f  65 72 72 6f 72 28 61 70  |. .wimp_error(ap|
00000230  70 6e 61 6d 65 24 2c 22  51 75 69 74 65 20 66 72  |pname$,"Quite fr|
00000240  61 6e 6b 6c 79 2c 20 41  63 6f 72 6e 20 4f 66 66  |ankly, Acorn Off|
00000250  69 63 65 20 64 69 64 6e  27 74 20 62 65 61 74 20  |ice didn't beat |
00000260  61 72 6f 75 6e 64 20 74  68 65 20 62 75 73 68 20  |around the bush |
00000270  61 6e 64 20 73 61 69 64  2c 20 27 22 2b f6 24 2b  |and said, '"+.$+|
00000280  22 20 61 74 20 6c 69 6e  65 20 22 2b c3 20 9e 20  |" at line "+. . |
00000290  2b 22 27 2e 20 54 68 69  73 20 69 73 20 70 72 6f  |+"'. This is pro|
000002a0  62 61 62 6c 79 20 62 61  64 20 6e 65 77 73 2e 2e  |bably bad news..|
000002b0  2e 22 2c 31 2c 31 29 3a  e0 0d 00 0c 04 0d 00 0d  |.",1,1):........|
000002c0  0f f4 20 53 61 72 74 20  74 61 73 6b 0d 00 0e 32  |.. Sart task...2|
000002d0  74 61 73 6b 25 3d a4 77  69 6d 70 5f 69 6e 69 74  |task%=.wimp_init|
000002e0  69 61 6c 69 73 65 28 61  70 70 6e 61 6d 65 24 2c  |ialise(appname$,|
000002f0  37 30 30 30 2c 37 30 30  30 2c 33 30 30 29 0d 00  |7000,7000,300)..|
00000300  0f 04 0d 00 10 31 f4 20  4c 6f 61 64 20 74 68 65  |.....1. Load the|
00000310  20 62 61 6e 6e 65 72 20  69 66 20 74 68 65 20 63  | banner if the c|
00000320  68 6f 69 63 65 73 20 66  69 6c 65 20 73 61 79 73  |hoices file says|
00000330  20 74 6f 0d 00 11 29 e7  20 6f 70 74 31 24 3d 22  | to...). opt1$="|
00000340  31 22 20 8c 20 f2 77 69  6d 70 5f 62 61 6e 6e 65  |1" . .wimp_banne|
00000350  72 28 62 61 6e 6e 65 72  25 2c 35 29 0d 00 12 31  |r(banner%,5)...1|
00000360  e7 20 6f 70 74 31 24 3d  22 30 22 20 8c 20 f2 77  |. opt1$="0" . .w|
00000370  69 6d 70 5f 69 63 6f 6e  62 61 72 73 70 72 69 74  |imp_iconbarsprit|
00000380  65 28 22 21 6f 66 66 69  63 65 b2 22 29 0d 00 13  |e("!office.")...|
00000390  1d cc 20 f2 77 69 6d 70  5f 62 61 6e 6e 65 72 28  |.. .wimp_banner(|
000003a0  62 61 6e 6e 65 72 25 2c  35 29 0d 00 14 05 cd 0d  |banner%,5)......|
000003b0  00 15 04 0d 00 16 38 f4  20 53 68 6f 77 20 73 68  |......8. Show sh|
000003c0  6f 72 74 63 75 74 20 62  61 72 20 28 69 66 20 74  |ortcut bar (if t|
000003d0  68 65 20 63 68 6f 69 63  65 73 20 66 69 6c 65 20  |he choices file |
000003e0  73 61 79 73 20 74 6f 2e  2e 2e 29 0d 00 17 2f e7  |says to...).../.|
000003f0  20 6f 70 74 32 24 3d 22  31 22 20 8c 20 f2 77 69  | opt2$="1" . .wi|
00000400  6d 70 5f 6f 70 65 6e 77  69 6e 64 6f 77 28 73 74  |mp_openwindow(st|
00000410  72 69 70 25 2c 30 2c 2d  31 29 0d 00 18 0f e7 20  |rip%,0,-1)..... |
00000420  6f 70 74 32 24 3d 22 30  22 0d 00 19 23 cc 20 f2  |opt2$="0"...#. .|
00000430  77 69 6d 70 5f 6f 70 65  6e 77 69 6e 64 6f 77 28  |wimp_openwindow(|
00000440  73 74 72 69 70 25 2c 30  2c 2d 31 29 0d 00 1a 05  |strip%,0,-1)....|
00000450  cd 0d 00 1b 04 0d 00 1c  0f f4 20 57 69 6d 70 20  |.......... Wimp |
00000460  70 6f 6c 6c 0d 00 1d 0e  f2 77 69 6d 70 5f 70 6f  |poll.....wimp_po|
00000470  6c 6c 0d 00 1e 05 e0 0d  00 1f 05 3a 0d 00 20 16  |ll.........:.. .|
00000480  dd 20 f2 75 73 65 72 5f  69 6e 69 74 69 61 6c 69  |. .user_initiali|
00000490  73 65 0d 00 21 15 f2 77  69 6d 70 5f 68 6f 75 72  |se..!..wimp_hour|
000004a0  67 6c 61 73 73 6f 6e 0d  00 22 04 0d 00 23 2b f4  |glasson.."...#+.|
000004b0  20 43 68 65 63 6b 20 74  6f 20 73 65 65 20 69 66  | Check to see if|
000004c0  20 70 72 6f 67 72 61 6d  20 69 73 20 72 65 67 69  | program is regi|
000004d0  73 74 65 72 65 64 0d 00  24 29 72 65 67 25 3d a4  |stered..$)reg%=.|
000004e0  72 65 67 69 73 74 65 72  65 64 28 22 3c 4f 66 66  |registered("<Off|
000004f0  69 63 65 24 44 69 72 3e  2e 55 73 65 72 22 29 0d  |ice$Dir>.User").|
00000500  00 25 31 e7 20 72 65 67  25 3d b9 20 8c 20 6e 61  |.%1. reg%=. . na|
00000510  6d 65 24 3d a4 64 65 63  6f 64 65 28 22 3c 4f 66  |me$=.decode("<Of|
00000520  66 69 63 65 24 44 69 72  3e 2e 55 73 65 72 22 29  |fice$Dir>.User")|
00000530  0d 00 26 23 e7 20 72 65  67 25 3d a3 20 8c 20 6e  |..&#. reg%=. . n|
00000540  61 6d 65 24 3d 22 55 4e  52 45 47 49 53 54 45 52  |ame$="UNREGISTER|
00000550  45 44 22 0d 00 27 05 cd  0d 00 28 04 0d 00 29 12  |ED"..'....(...).|
00000560  f4 20 4c 6f 61 64 20 74  68 65 20 62 61 72 0d 00  |. Load the bar..|
00000570  2a 0c f2 69 6e 69 74 62  61 72 0d 00 2b 0e f2 75  |*..initbar..+..u|
00000580  70 64 61 74 65 62 61 72  0d 00 2c 04 0d 00 2d 1c  |pdatebar..,...-.|
00000590  f4 20 4c 6f 61 64 20 74  68 65 20 6d 65 73 73 61  |. Load the messa|
000005a0  67 65 73 20 66 69 6c 65  0d 00 2e 3c f2 77 69 6d  |ges file...<.wim|
000005b0  70 5f 69 6e 69 74 6d 65  73 73 61 67 65 73 28 22  |p_initmessages("|
000005c0  3c 4f 66 66 69 63 65 24  44 69 72 3e 2e 52 65 73  |<Office$Dir>.Res|
000005d0  6f 75 72 63 65 73 2e 55  4b 2e 4d 65 73 73 61 67  |ources.UK.Messag|
000005e0  65 73 22 29 0d 00 2f 04  0d 00 30 18 f4 20 54 68  |es")../...0.. Th|
000005f0  65 20 53 74 61 72 74 75  70 20 42 61 6e 6e 65 72  |e Startup Banner|
00000600  0d 00 31 4b 62 61 6e 6e  65 72 25 3d a4 77 69 6d  |..1Kbanner%=.wim|
00000610  70 5f 6c 6f 61 64 77 69  6e 64 6f 77 28 22 3c 4f  |p_loadwindow("<O|
00000620  66 66 69 63 65 24 44 69  72 3e 2e 52 65 73 6f 75  |ffice$Dir>.Resou|
00000630  72 63 65 73 2e 54 65 6d  70 6c 61 74 65 73 22 2c  |rces.Templates",|
00000640  22 62 61 6e 6e 65 72 22  2c 30 29 0d 00 32 26 6c  |"banner",0)..2&l|
00000650  6f 6f 6b 75 70 24 3d a4  77 69 6d 70 5f 6d 65 73  |ookup$=.wimp_mes|
00000660  73 6c 6f 6f 6b 30 28 22  56 65 72 73 69 6f 6e 22  |slook0("Version"|
00000670  29 0d 00 33 28 f2 77 69  6d 70 5f 70 75 74 69 63  |)..3(.wimp_putic|
00000680  6f 6e 74 65 78 74 28 62  61 6e 6e 65 72 25 2c 31  |ontext(banner%,1|
00000690  2c 6c 6f 6f 6b 75 70 24  29 0d 00 34 25 6c 6f 6f  |,lookup$)..4%loo|
000006a0  6b 75 70 24 3d a4 77 69  6d 70 5f 6d 65 73 73 6c  |kup$=.wimp_messl|
000006b0  6f 6f 6b 30 28 22 42 61  6e 6e 65 72 22 29 0d 00  |ook0("Banner")..|
000006c0  35 25 f2 77 69 6d 70 5f  70 75 74 69 63 6f 6e 74  |5%.wimp_puticont|
000006d0  65 78 74 28 62 61 6e 6e  65 72 25 2c 32 2c 76 65  |ext(banner%,2,ve|
000006e0  72 24 29 0d 00 36 28 f2  77 69 6d 70 5f 70 75 74  |r$)..6(.wimp_put|
000006f0  69 63 6f 6e 74 65 78 74  28 62 61 6e 6e 65 72 25  |icontext(banner%|
00000700  2c 33 2c 6c 6f 6f 6b 75  70 24 29 0d 00 37 26 f2  |,3,lookup$)..7&.|
00000710  77 69 6d 70 5f 70 75 74  69 63 6f 6e 74 65 78 74  |wimp_puticontext|
00000720  28 62 61 6e 6e 65 72 25  2c 34 2c 6e 61 6d 65 24  |(banner%,4,name$|
00000730  29 0d 00 38 35 f2 77 69  6d 70 5f 70 75 74 69 63  |)..85.wimp_putic|
00000740  6f 6e 74 65 78 74 28 62  61 6e 6e 65 72 25 2c 35  |ontext(banner%,5|
00000750  2c 22 a9 20 50 65 74 65  72 20 50 72 69 63 65 20  |,". Peter Price |
00000760  31 39 39 38 22 29 0d 00  39 04 0d 00 3a 0e f4 20  |1998")..9...:.. |
00000770  49 6e 66 6f 20 62 6f 78  0d 00 3b 53 e7 20 72 65  |Info box..;S. re|
00000780  67 25 3d b9 20 8c 20 69  6e 66 6f 25 3d a4 77 69  |g%=. . info%=.wi|
00000790  6d 70 5f 6c 6f 61 64 77  69 6e 64 6f 77 28 22 3c  |mp_loadwindow("<|
000007a0  4f 66 66 69 63 65 24 44  69 72 3e 2e 52 65 73 6f  |Office$Dir>.Reso|
000007b0  75 72 63 65 73 2e 54 65  6d 70 6c 61 74 65 73 22  |urces.Templates"|
000007c0  2c 22 7e 69 6e 66 6f 22  2c 30 29 0d 00 3c 52 e7  |,"~info",0)..<R.|
000007d0  20 72 65 67 25 3d a3 20  8c 20 69 6e 66 6f 25 3d  | reg%=. . info%=|
000007e0  a4 77 69 6d 70 5f 6c 6f  61 64 77 69 6e 64 6f 77  |.wimp_loadwindow|
000007f0  28 22 3c 4f 66 66 69 63  65 24 44 69 72 3e 2e 52  |("<Office$Dir>.R|
00000800  65 73 6f 75 72 63 65 73  2e 54 65 6d 70 6c 61 74  |esources.Templat|
00000810  65 73 22 2c 22 69 6e 66  6f 22 2c 30 29 0d 00 3d  |es","info",0)..=|
00000820  05 cd 0d 00 3e 23 6c 6f  6f 6b 75 70 24 3d a4 77  |....>#lookup$=.w|
00000830  69 6d 70 5f 6d 65 73 73  6c 6f 6f 6b 30 28 22 4e  |imp_messlook0("N|
00000840  61 6d 65 22 29 0d 00 3f  26 f2 77 69 6d 70 5f 70  |ame")..?&.wimp_p|
00000850  75 74 69 63 6f 6e 74 65  78 74 28 69 6e 66 6f 25  |uticontext(info%|
00000860  2c 30 2c 6c 6f 6f 6b 75  70 24 29 0d 00 40 23 6c  |,0,lookup$)..@#l|
00000870  6f 6f 6b 75 70 24 3d a4  77 69 6d 70 5f 6d 65 73  |ookup$=.wimp_mes|
00000880  73 6c 6f 6f 6b 30 28 22  50 75 72 70 22 29 0d 00  |slook0("Purp")..|
00000890  41 26 f2 77 69 6d 70 5f  70 75 74 69 63 6f 6e 74  |A&.wimp_puticont|
000008a0  65 78 74 28 69 6e 66 6f  25 2c 31 2c 6c 6f 6f 6b  |ext(info%,1,look|
000008b0  75 70 24 29 0d 00 42 33  f2 77 69 6d 70 5f 70 75  |up$)..B3.wimp_pu|
000008c0  74 69 63 6f 6e 74 65 78  74 28 69 6e 66 6f 25 2c  |ticontext(info%,|
000008d0  32 2c 22 a9 20 50 65 74  65 72 20 50 72 69 63 65  |2,". Peter Price|
000008e0  20 31 39 39 38 22 29 0d  00 43 24 f2 77 69 6d 70  | 1998")..C$.wimp|
000008f0  5f 70 75 74 69 63 6f 6e  74 65 78 74 28 69 6e 66  |_puticontext(inf|
00000900  6f 25 2c 33 2c 6e 61 6d  65 24 29 0d 00 44 23 f2  |o%,3,name$)..D#.|
00000910  77 69 6d 70 5f 70 75 74  69 63 6f 6e 74 65 78 74  |wimp_puticontext|
00000920  28 69 6e 66 6f 25 2c 34  2c 76 65 72 24 29 0d 00  |(info%,4,ver$)..|
00000930  45 04 0d 00 46 0e f4 20  49 63 6f 6e 20 62 61 72  |E...F.. Icon bar|
00000940  0d 00 47 2f 62 61 72 25  3d a4 77 69 6d 70 5f 69  |..G/bar%=.wimp_i|
00000950  63 6f 6e 62 61 72 28 22  21 22 2b 61 70 70 6e 61  |conbar("!"+appna|
00000960  6d 65 24 2c 22 4f 66 66  69 63 65 22 2c 30 29 0d  |me$,"Office",0).|
00000970  00 48 04 0d 00 49 13 f4  20 49 63 6f 6e 20 62 61  |.H...I.. Icon ba|
00000980  72 20 6d 65 6e 75 0d 00  4a 32 62 61 72 6d 65 6e  |r menu..J2barmen|
00000990  75 25 3d a4 77 69 6d 70  5f 63 72 65 61 74 65 6d  |u%=.wimp_createm|
000009a0  65 73 73 61 67 65 6d 65  6e 75 28 22 42 4d 65 6e  |essagemenu("BMen|
000009b0  75 22 2c 22 22 2c 35 29  0d 00 4b 29 f2 77 69 6d  |u","",5)..K).wim|
000009c0  70 5f 61 74 74 61 63 68  73 75 62 6d 65 6e 75 28  |p_attachsubmenu(|
000009d0  62 61 72 6d 65 6e 75 25  2c 31 2c 69 6e 66 6f 25  |barmenu%,1,info%|
000009e0  29 0d 00 4c 2f 66 69 6c  65 24 3d 22 3c 4f 66 66  |)..L/file$="<Off|
000009f0  69 63 65 24 44 69 72 3e  2e 52 65 73 6f 75 72 63  |ice$Dir>.Resourc|
00000a00  65 73 2e 21 4d 61 6e 75  61 6c 2e 21 52 75 6e 22  |es.!Manual.!Run"|
00000a10  0d 00 4d 24 c8 99 20 22  4f 53 5f 46 69 6c 65 22  |..M$.. "OS_File"|
00000a20  2c 31 33 2c 66 69 6c 65  24 20 b8 20 70 72 65 73  |,13,file$ . pres|
00000a30  65 6e 74 25 0d 00 4e 12  e7 20 70 72 65 73 65 6e  |ent%..N.. presen|
00000a40  74 25 3d 30 20 8c 0d 00  4f 0d 20 74 68 65 72 65  |t%=0 ...O. there|
00000a50  25 3d a3 0d 00 50 12 e7  20 70 72 65 73 65 6e 74  |%=...P.. present|
00000a60  25 3d 31 20 8c 0d 00 51  0d 20 74 68 65 72 65 25  |%=1 ...Q. there%|
00000a70  3d b9 0d 00 52 05 cd 0d  00 53 05 3a 0d 00 54 2e  |=...R....S.:..T.|
00000a80  e7 20 74 68 65 72 65 25  3d a3 20 8c 20 f2 77 69  |. there%=. . .wi|
00000a90  6d 70 5f 6d 65 6e 75 64  69 73 61 62 6c 65 28 62  |mp_menudisable(b|
00000aa0  61 72 6d 65 6e 75 25 2c  33 29 0d 00 55 05 cc 0d  |armenu%,3)..U...|
00000ab0  00 56 05 cd 0d 00 57 04  0d 00 58 15 f4 20 54 68  |.V....W...X.. Th|
00000ac0  65 20 6e 65 77 20 75 72  6c 20 62 6f 78 0d 00 59  |e new url box..Y|
00000ad0  4b 6e 65 77 75 72 6c 25  3d a4 77 69 6d 70 5f 6c  |Knewurl%=.wimp_l|
00000ae0  6f 61 64 77 69 6e 64 6f  77 28 22 3c 4f 66 66 69  |oadwindow("<Offi|
00000af0  63 65 24 44 69 72 3e 2e  52 65 73 6f 75 72 63 65  |ce$Dir>.Resource|
00000b00  73 2e 54 65 6d 70 6c 61  74 65 73 22 2c 22 6e 65  |s.Templates","ne|
00000b10  77 75 72 6c 22 2c 30 29  0d 00 5a 04 0d 00 5b 10  |wurl",0)..Z...[.|
00000b20  f4 20 53 74 72 69 70 20  6d 65 6e 75 0d 00 5c 34  |. Strip menu..\4|
00000b30  73 74 72 69 70 6d 65 6e  75 25 3d a4 77 69 6d 70  |stripmenu%=.wimp|
00000b40  5f 63 72 65 61 74 65 6d  65 73 73 61 67 65 6d 65  |_createmessageme|
00000b50  6e 75 28 22 53 4d 65 6e  75 22 2c 22 22 2c 32 29  |nu("SMenu","",2)|
00000b60  0d 00 5d 04 0d 00 5e 0f  f4 20 45 72 72 6f 72 20  |..]...^.. Error |
00000b70  62 6f 78 0d 00 5f 49 65  72 72 6f 72 25 3d a4 77  |box.._Ierror%=.w|
00000b80  69 6d 70 5f 6c 6f 61 64  77 69 6e 64 6f 77 28 22  |imp_loadwindow("|
00000b90  3c 4f 66 66 69 63 65 24  44 69 72 3e 2e 52 65 73  |<Office$Dir>.Res|
00000ba0  6f 75 72 63 65 73 2e 54  65 6d 70 6c 61 74 65 73  |ources.Templates|
00000bb0  22 2c 22 65 72 72 6f 72  22 2c 30 29 0d 00 60 25  |","error",0)..`%|
00000bc0  6c 6f 6f 6b 75 70 24 3d  a4 77 69 6d 70 5f 6d 65  |lookup$=.wimp_me|
00000bd0  73 73 6c 6f 6f 6b 30 28  22 45 72 72 6f 72 31 22  |sslook0("Error1"|
00000be0  29 0d 00 61 27 f2 77 69  6d 70 5f 70 75 74 69 63  |)..a'.wimp_putic|
00000bf0  6f 6e 74 65 78 74 28 65  72 72 6f 72 25 2c 31 2c  |ontext(error%,1,|
00000c00  6c 6f 6f 6b 75 70 24 29  0d 00 62 25 6c 6f 6f 6b  |lookup$)..b%look|
00000c10  75 70 24 3d a4 77 69 6d  70 5f 6d 65 73 73 6c 6f  |up$=.wimp_messlo|
00000c20  6f 6b 30 28 22 45 72 72  6f 72 32 22 29 0d 00 63  |ok0("Error2")..c|
00000c30  27 f2 77 69 6d 70 5f 70  75 74 69 63 6f 6e 74 65  |'.wimp_puticonte|
00000c40  78 74 28 65 72 72 6f 72  25 2c 32 2c 6c 6f 6f 6b  |xt(error%,2,look|
00000c50  75 70 24 29 0d 00 64 25  6c 6f 6f 6b 75 70 24 3d  |up$)..d%lookup$=|
00000c60  a4 77 69 6d 70 5f 6d 65  73 73 6c 6f 6f 6b 30 28  |.wimp_messlook0(|
00000c70  22 45 72 72 6f 72 33 22  29 0d 00 65 27 f2 77 69  |"Error3")..e'.wi|
00000c80  6d 70 5f 70 75 74 69 63  6f 6e 74 65 78 74 28 65  |mp_puticontext(e|
00000c90  72 72 6f 72 25 2c 36 2c  6c 6f 6f 6b 75 70 24 29  |rror%,6,lookup$)|
00000ca0  0d 00 66 25 6c 6f 6f 6b  75 70 24 3d a4 77 69 6d  |..f%lookup$=.wim|
00000cb0  70 5f 6d 65 73 73 6c 6f  6f 6b 30 28 22 45 72 72  |p_messlook0("Err|
00000cc0  6f 72 34 22 29 0d 00 67  27 f2 77 69 6d 70 5f 70  |or4")..g'.wimp_p|
00000cd0  75 74 69 63 6f 6e 74 65  78 74 28 65 72 72 6f 72  |uticontext(error|
00000ce0  25 2c 33 2c 6c 6f 6f 6b  75 70 24 29 0d 00 68 25  |%,3,lookup$)..h%|
00000cf0  6c 6f 6f 6b 75 70 24 3d  a4 77 69 6d 70 5f 6d 65  |lookup$=.wimp_me|
00000d00  73 73 6c 6f 6f 6b 30 28  22 45 72 72 6f 72 35 22  |sslook0("Error5"|
00000d10  29 0d 00 69 27 f2 77 69  6d 70 5f 70 75 74 69 63  |)..i'.wimp_putic|
00000d20  6f 6e 74 65 78 74 28 65  72 72 6f 72 25 2c 35 2c  |ontext(error%,5,|
00000d30  6c 6f 6f 6b 75 70 24 29  0d 00 6a 25 6c 6f 6f 6b  |lookup$)..j%look|
00000d40  75 70 24 3d a4 77 69 6d  70 5f 6d 65 73 73 6c 6f  |up$=.wimp_messlo|
00000d50  6f 6b 30 28 22 45 72 72  6f 72 36 22 29 0d 00 6b  |ok0("Error6")..k|
00000d60  27 f2 77 69 6d 70 5f 70  75 74 69 63 6f 6e 74 65  |'.wimp_puticonte|
00000d70  78 74 28 65 72 72 6f 72  25 2c 37 2c 6c 6f 6f 6b  |xt(error%,7,look|
00000d80  75 70 24 29 0d 00 6c 22  6c 6f 6f 6b 75 70 24 3d  |up$)..l"lookup$=|
00000d90  a4 77 69 6d 70 5f 6d 65  73 73 6c 6f 6f 6b 30 28  |.wimp_messlook0(|
00000da0  22 55 52 4c 22 29 0d 00  6d 27 f2 77 69 6d 70 5f  |"URL")..m'.wimp_|
00000db0  70 75 74 69 63 6f 6e 74  65 78 74 28 65 72 72 6f  |puticontext(erro|
00000dc0  72 25 2c 38 2c 6c 6f 6f  6b 75 70 24 29 0d 00 6e  |r%,8,lookup$)..n|
00000dd0  0d 70 69 63 6b 65 64 25  3d 31 0d 00 6f 04 0d 00  |.picked%=1..o...|
00000de0  70 19 f4 20 2a 2a 2a 20  45 72 72 6f 72 20 70 69  |p.. *** Error pi|
00000df0  63 6b 20 6d 65 6e 75 0d  00 71 34 65 72 72 6f 72  |ck menu..q4error|
00000e00  6d 65 6e 75 25 3d a4 77  69 6d 70 5f 63 72 65 61  |menu%=.wimp_crea|
00000e10  74 65 6d 65 73 73 61 67  65 6d 65 6e 75 28 22 45  |temessagemenu("E|
00000e20  4d 65 6e 75 22 2c 22 22  2c 33 29 0d 00 72 20 f2  |Menu","",3)..r .|
00000e30  77 69 6d 70 5f 6d 65 6e  75 74 69 63 6b 28 65 72  |wimp_menutick(er|
00000e40  72 6f 72 6d 65 6e 75 25  2c 31 29 0d 00 73 29 74  |rormenu%,1)..s)t|
00000e50  65 78 74 24 3d a4 77 69  6d 70 5f 67 65 74 6d 65  |ext$=.wimp_getme|
00000e60  6e 75 74 65 78 74 28 65  72 72 6f 72 6d 65 6e 75  |nutext(errormenu|
00000e70  25 2c 31 29 0d 00 74 25  f2 77 69 6d 70 5f 70 75  |%,1)..t%.wimp_pu|
00000e80  74 69 63 6f 6e 74 65 78  74 28 65 72 72 6f 72 25  |ticontext(error%|
00000e90  2c 36 2c 74 65 78 74 24  29 0d 00 75 0d 70 69 63  |,6,text$)..u.pic|
00000ea0  6b 65 64 25 3d 31 0d 00  76 04 0d 00 77 16 f2 77  |ked%=1..v...w..w|
00000eb0  69 6d 70 5f 68 6f 75 72  67 6c 61 73 73 6f 66 66  |imp_hourglassoff|
00000ec0  0d 00 78 05 e1 0d 00 79  05 3a 0d 00 7a 17 dd 20  |..x....y.:..z.. |
00000ed0  a4 75 73 65 72 5f 71 75  69 74 28 74 79 70 65 25  |.user_quit(type%|
00000ee0  29 0d 00 7b 06 3d 31 0d  00 7c 05 3a 0d 00 7d 3b  |)..{.=1..|.:..};|
00000ef0  dd 20 f2 75 73 65 72 5f  6d 6f 75 73 65 63 6c 69  |. .user_mousecli|
00000f00  63 6b 28 77 69 6e 64 6f  77 25 2c 69 63 6f 6e 25  |ck(window%,icon%|
00000f10  2c 62 75 74 74 6f 6e 25  2c 77 6f 72 6b 78 25 2c  |,button%,workx%,|
00000f20  77 6f 72 6b 79 25 29 0d  00 7e 10 c8 8e 20 77 69  |worky%)..~... wi|
00000f30  6e 64 6f 77 25 20 ca 0d  00 7f 0e f4 20 49 63 6f  |ndow% ...... Ico|
00000f40  6e 20 42 61 72 0d 00 80  0c c9 20 62 61 72 25 20  |n Bar..... bar% |
00000f50  3a 0d 00 81 12 20 20 c8  8e 20 62 75 74 74 6f 6e  |:....  .. button|
00000f60  25 20 ca 0d 00 82 0b 20  20 c9 20 34 20 3a 0d 00  |% .....  . 4 :..|
00000f70  83 35 20 20 f2 77 69 6d  70 5f 6f 70 65 6e 77 69  |.5  .wimp_openwi|
00000f80  6e 64 6f 77 28 73 74 72  69 70 25 2c 30 2c 2d 31  |ndow(strip%,0,-1|
00000f90  29 20 3a f4 20 53 65 6c  65 63 74 20 63 6c 69 63  |) :. Select clic|
00000fa0  6b 65 64 0d 00 84 36 20  20 f2 77 69 6d 70 5f 69  |ked...6  .wimp_i|
00000fb0  63 6f 6e 62 61 72 73 70  72 69 74 65 28 22 21 4f  |conbarsprite("!O|
00000fc0  66 66 69 63 65 22 29 20  3a f4 20 43 6f 6c 6f 75  |ffice") :. Colou|
00000fd0  72 20 69 6e 20 69 63 6f  6e 0d 00 85 0b 20 20 c9  |r in icon....  .|
00000fe0  20 31 20 3a 0d 00 86 31  20 20 f2 77 69 6d 70 5f  | 1 :...1  .wimp_|
00000ff0  63 6c 6f 73 65 77 69 6e  64 6f 77 28 73 74 72 69  |closewindow(stri|
00001000  70 25 29 20 3a f4 20 41  64 6a 75 73 74 20 63 6c  |p%) :. Adjust cl|
00001010  69 63 6b 65 64 0d 00 87  36 20 20 f2 77 69 6d 70  |icked...6  .wimp|
00001020  5f 69 63 6f 6e 62 61 72  73 70 72 69 74 65 28 22  |_iconbarsprite("|
00001030  21 4f 66 66 69 63 65 b2  22 29 20 3a f4 20 47 72  |!Office.") :. Gr|
00001040  65 79 20 6f 75 74 20 69  63 6f 6e 0d 00 88 07 20  |ey out icon.... |
00001050  20 cb 0d 00 89 12 f4 20  53 74 72 69 70 20 57 69  | ...... Strip Wi|
00001060  6e 64 6f 77 0d 00 8a 0c  c9 20 73 74 72 69 70 25  |ndow..... strip%|
00001070  0d 00 8b 10 20 20 c8 8e  20 69 63 6f 6e 25 20 ca  |....  .. icon% .|
00001080  0d 00 8c 67 20 20 c9 20  31 2c 32 2c 33 2c 34 2c  |...g  . 1,2,3,4,|
00001090  35 2c 36 2c 37 2c 38 2c  39 2c 31 30 2c 31 31 2c  |5,6,7,8,9,10,11,|
000010a0  31 32 2c 31 33 2c 31 34  2c 31 35 2c 31 36 2c 31  |12,13,14,15,16,1|
000010b0  37 2c 31 38 2c 31 39 2c  32 30 2c 32 31 2c 32 32  |7,18,19,20,21,22|
000010c0  2c 32 33 2c 32 34 2c 32  35 2c 32 36 2c 32 37 2c  |,23,24,25,26,27,|
000010d0  32 38 20 3a 20 f2 73 74  72 69 70 70 72 65 73 73  |28 : .strippress|
000010e0  28 69 63 6f 6e 25 29 0d  00 8d 07 20 20 cb 0d 00  |(icon%)....  ...|
000010f0  8e 1d f4 20 54 68 65 20  73 74 72 69 70 27 73 20  |... The strip's |
00001100  70 61 6e 65 20 77 69 6e  64 6f 77 0d 00 8f 0b c9  |pane window.....|
00001110  20 63 62 61 72 25 0d 00  90 10 20 20 c8 8e 20 69  | cbar%....  .. i|
00001120  63 6f 6e 25 20 ca 0d 00  91 16 20 20 c9 20 30 20  |con% .....  . 0 |
00001130  3a 20 f2 6f 70 65 6e 65  72 72 6f 72 0d 00 92 07  |: .openerror....|
00001140  20 20 cb 0d 00 93 12 f4  20 45 72 72 6f 72 20 57  |  ...... Error W|
00001150  69 6e 64 6f 77 0d 00 94  0c c9 20 65 72 72 6f 72  |indow..... error|
00001160  25 0d 00 95 1f 20 20 f2  77 69 6d 70 5f 70 75 74  |%....  .wimp_put|
00001170  63 61 72 65 74 28 65 72  72 6f 72 25 2c 31 30 29  |caret(error%,10)|
00001180  0d 00 96 10 20 20 c8 8e  20 69 63 6f 6e 25 20 ca  |....  .. icon% .|
00001190  0d 00 97 0b 20 20 c9 20  31 20 3a 0d 00 98 20 20  |....  . 1 :...  |
000011a0  20 ff 28 22 46 69 6c 65  72 5f 52 75 6e 20 22 2b  | .("Filer_Run "+|
000011b0  63 6f 6e 66 69 67 72 75  6e 24 29 0d 00 99 1f 20  |configrun$).... |
000011c0  20 f2 77 69 6d 70 5f 63  6c 6f 73 65 77 69 6e 64  | .wimp_closewind|
000011d0  6f 77 28 65 72 72 6f 72  25 29 0d 00 9a 19 20 20  |ow(error%)....  |
000011e0  c9 20 32 20 3a 20 f2 77  69 6d 70 5f 71 75 69 74  |. 2 : .wimp_quit|
000011f0  28 30 29 0d 00 9b 18 20  20 c9 20 37 20 3a 20 f2  |(0)....  . 7 : .|
00001200  65 72 72 6f 72 63 72 65  61 74 65 0d 00 9c 0b 20  |errorcreate.... |
00001210  20 c9 20 38 20 3a 0d 00  9d 0e 20 20 c8 97 20 58  | . 8 :....  .. X|
00001220  2c 59 2c 42 0d 00 9e 0d  20 20 78 25 3d 58 2d 34  |,Y,B....  x%=X-4|
00001230  30 0d 00 9f 25 20 20 f2  77 69 6d 70 5f 6d 65 6e  |0...%  .wimp_men|
00001240  75 70 6f 70 75 70 28 6e  65 77 75 72 6c 25 2c 30  |upopup(newurl%,0|
00001250  2c 78 25 2c 59 29 0d 00  a0 21 20 20 f2 77 69 6d  |,x%,Y)...!  .wim|
00001260  70 5f 70 75 74 63 61 72  65 74 28 6e 65 77 75 72  |p_putcaret(newur|
00001270  6c 25 2c 30 29 20 20 0d  00 a1 3d 20 20 f4 20 2a  |l%,0)  ...=  . *|
00001280  2a 2a 20 44 65 74 65 63  74 20 63 6c 69 63 6b 73  |** Detect clicks|
00001290  20 6f 6e 20 74 68 65 20  6d 65 6e 75 20 69 63 6f  | on the menu ico|
000012a0  6e 20 74 6f 20 70 6f 70  20 74 68 65 20 6d 65 6e  |n to pop the men|
000012b0  75 20 75 70 0d 00 a2 0b  20 20 c9 20 39 20 3a 0d  |u up....  . 9 :.|
000012c0  00 a3 0e 20 20 c8 97 20  58 2c 59 2c 42 0d 00 a4  |...  .. X,Y,B...|
000012d0  0d 20 20 78 25 3d 58 2d  34 30 0d 00 a5 28 20 20  |.  x%=X-40...(  |
000012e0  f2 77 69 6d 70 5f 6d 65  6e 75 70 6f 70 75 70 28  |.wimp_menupopup(|
000012f0  65 72 72 6f 72 6d 65 6e  75 25 2c 30 2c 78 25 2c  |errormenu%,0,x%,|
00001300  59 29 0d 00 a6 07 20 20  cb 0d 00 a7 05 cb 0d 00  |Y)....  ........|
00001310  a8 05 e1 0d 00 a9 05 3a  0d 00 aa 1f dd 20 a4 75  |.......:..... .u|
00001320  73 65 72 5f 6d 65 6e 75  28 77 69 6e 64 6f 77 25  |ser_menu(window%|
00001330  2c 69 63 6f 6e 25 29 0d  00 ab 1c e7 20 77 69 6e  |,icon%)..... win|
00001340  64 6f 77 25 3d 62 61 72  25 20 3d 62 61 72 6d 65  |dow%=bar% =barme|
00001350  6e 75 25 0d 00 ac 20 e7  20 77 69 6e 64 6f 77 25  |nu%... . window%|
00001360  3d 73 74 72 69 70 25 20  3d 73 74 72 69 70 6d 65  |=strip% =stripme|
00001370  6e 75 25 0d 00 ad 06 3d  30 0d 00 ae 05 3a 0d 00  |nu%....=0....:..|
00001380  af 2c dd 20 f2 75 73 65  72 5f 6f 70 65 6e 77 69  |.,. .user_openwi|
00001390  6e 64 6f 77 28 77 69 6e  64 6f 77 25 2c 78 25 2c  |ndow(window%,x%,|
000013a0  79 25 2c 73 74 61 63 6b  25 29 0d 00 b0 16 e7 20  |y%,stack%)..... |
000013b0  77 69 6e 64 6f 77 25 3d  73 74 72 69 70 25 20 8c  |window%=strip% .|
000013c0  0d 00 b1 2b 20 20 68 65  69 67 68 74 25 3d a4 77  |...+  height%=.w|
000013d0  69 6d 70 5f 67 65 74 77  69 6e 64 6f 77 73 69 7a  |imp_getwindowsiz|
000013e0  65 28 73 74 72 69 70 25  2c 31 29 0d 00 b2 34 20  |e(strip%,1)...4 |
000013f0  20 f2 77 69 6d 70 5f 6f  70 65 6e 77 69 6e 64 6f  | .wimp_openwindo|
00001400  77 61 74 28 63 62 61 72  25 2c 78 25 2c 79 25 2d  |wat(cbar%,x%,y%-|
00001410  68 65 69 67 68 74 25 2c  73 74 61 63 6b 25 29 0d  |height%,stack%).|
00001420  00 b3 05 e1 0d 00 b4 05  3a 0d 00 b5 20 dd 20 f2  |........:... . .|
00001430  75 73 65 72 5f 63 6c 6f  73 65 77 69 6e 64 6f 77  |user_closewindow|
00001440  28 77 69 6e 64 6f 77 25  29 0d 00 b6 2d e7 20 77  |(window%)...-. w|
00001450  69 6e 64 6f 77 25 3d 73  74 72 69 70 25 20 f2 77  |indow%=strip% .w|
00001460  69 6d 70 5f 63 6c 6f 73  65 77 69 6e 64 6f 77 28  |imp_closewindow(|
00001470  63 62 61 72 25 29 0d 00  b7 05 e1 0d 00 b8 05 3a  |cbar%).........:|
00001480  0d 00 b9 27 dd 20 a4 75  73 65 72 5f 6b 65 79 70  |...'. .user_keyp|
00001490  72 65 73 73 28 77 69 6e  64 6f 77 25 2c 69 63 6f  |ress(window%,ico|
000014a0  6e 25 2c 6b 65 79 29 0d  00 ba 0a 75 73 65 64 3d  |n%,key)....used=|
000014b0  30 0d 00 bb 10 c8 8e 20  77 69 6e 64 6f 77 25 20  |0...... window% |
000014c0  ca 0d 00 bc 0e c9 20 65  72 72 6f 72 25 20 3a 0d  |...... error% :.|
000014d0  00 bd 10 20 20 c8 8e 20  69 63 6f 6e 25 20 ca 0d  |...  .. icon% ..|
000014e0  00 be 0c 20 20 c9 20 31  30 20 3a 0d 00 bf 12 20  |...  . 10 :.... |
000014f0  20 20 20 e7 20 6b 65 79  3d 31 33 20 8c 0d 00 c0  |   . key=13 ....|
00001500  10 20 20 20 20 20 20 75  73 65 64 3d 31 0d 00 c1  |.      used=1...|
00001510  16 20 20 20 20 20 20 f2  65 72 72 6f 72 63 72 65  |.      .errorcre|
00001520  61 74 65 0d 00 c2 09 20  20 20 20 cd 0d 00 c3 07  |ate....    .....|
00001530  20 20 cb 0d 00 c4 0f c9  20 6e 65 77 75 72 6c 25  |  ...... newurl%|
00001540  20 3a 0d 00 c5 10 20 20  c8 8e 20 69 63 6f 6e 25  | :....  .. icon%|
00001550  20 ca 0d 00 c6 0b 20 20  c9 20 30 20 3a 0d 00 c7  | .....  . 0 :...|
00001560  12 20 20 20 20 e7 20 6b  65 79 3d 31 33 20 8c 0d  |.    . key=13 ..|
00001570  00 c8 10 20 20 20 20 20  20 75 73 65 64 3d 31 0d  |...      used=1.|
00001580  00 c9 10 20 20 20 20 20  20 f2 75 72 6c 67 6f 0d  |...      .urlgo.|
00001590  00 ca 09 20 20 20 20 cd  0d 00 cb 07 20 20 cb 0d  |...    .....  ..|
000015a0  00 cc 05 cb 0d 00 cd 09  3d 75 73 65 64 0d 00 ce  |........=used...|
000015b0  05 3a 0d 00 cf 26 dd 20  f2 75 73 65 72 5f 6d 65  |.:...&. .user_me|
000015c0  6e 75 73 65 6c 65 63 74  69 6f 6e 28 6d 65 6e 75  |nuselection(menu|
000015d0  25 2c 69 74 65 6d 25 29  0d 00 d0 40 e7 20 6d 65  |%,item%)...@. me|
000015e0  6e 75 25 3d 62 61 72 6d  65 6e 75 25 20 80 20 69  |nu%=barmenu% . i|
000015f0  74 65 6d 25 3d 34 20 f2  77 69 6d 70 5f 71 75 69  |tem%=4 .wimp_qui|
00001600  74 28 30 29 20 3a f4 20  51 75 69 74 20 74 68 65  |t(0) :. Quit the|
00001610  20 70 72 6f 67 72 61 6d  0d 00 d1 5f e7 20 6d 65  | program..._. me|
00001620  6e 75 25 3d 62 61 72 6d  65 6e 75 25 20 80 20 69  |nu%=barmenu% . i|
00001630  74 65 6d 25 3d 33 20 ff  28 22 46 69 6c 65 72 5f  |tem%=3 .("Filer_|
00001640  52 75 6e 20 3c 4f 66 66  69 63 65 24 44 69 72 3e  |Run <Office$Dir>|
00001650  2e 52 65 73 6f 75 72 63  65 73 2e 21 4d 61 6e 75  |.Resources.!Manu|
00001660  61 6c 22 29 20 3a f4 20  4c 6f 61 64 20 74 68 65  |al") :. Load the|
00001670  20 6d 61 6e 75 61 6c 0d  00 d2 75 e7 20 6d 65 6e  | manual...u. men|
00001680  75 25 3d 62 61 72 6d 65  6e 75 25 20 80 20 69 74  |u%=barmenu% . it|
00001690  65 6d 25 3d 32 20 ff 28  22 46 69 6c 65 72 5f 52  |em%=2 .("Filer_R|
000016a0  75 6e 20 3c 4f 66 66 69  63 65 24 44 69 72 3e 2e  |un <Office$Dir>.|
000016b0  21 52 75 6e 43 6f 6e 66  69 67 22 29 20 3a f4 20  |!RunConfig") :. |
000016c0  4c 6f 61 64 20 74 68 65  20 63 6f 6e 66 69 67 75  |Load the configu|
000016d0  72 61 74 69 6f 6e 20 61  70 70 20 46 52 4f 4d 20  |ration app FROM |
000016e0  54 48 45 20 49 43 4f 4e  20 42 41 52 0d 00 d3 9d  |THE ICON BAR....|
000016f0  e7 20 6d 65 6e 75 25 3d  73 74 72 69 70 6d 65 6e  |. menu%=stripmen|
00001700  75 25 20 80 20 69 74 65  6d 25 3d 31 20 ff 28 22  |u% . item%=1 .("|
00001710  46 69 6c 65 72 5f 52 75  6e 20 3c 4f 66 66 69 63  |Filer_Run <Offic|
00001720  65 24 44 69 72 3e 2e 21  52 75 6e 43 6f 6e 66 69  |e$Dir>.!RunConfi|
00001730  67 22 29 20 3a f4 20 4c  6f 61 64 20 74 68 65 20  |g") :. Load the |
00001740  63 6f 6e 66 69 67 75 72  61 74 69 6f 6e 20 61 70  |configuration ap|
00001750  70 20 46 52 4f 4d 20 54  48 45 20 53 54 52 49 50  |p FROM THE STRIP|
00001760  20 4d 45 4e 55 20 28 4e  6f 74 20 74 68 61 74 20  | MENU (Not that |
00001770  69 74 20 6d 61 6b 65 73  20 6d 75 63 68 20 64 69  |it makes much di|
00001780  66 66 65 72 6e 63 65 21  29 0d 00 d4 80 e7 20 6d  |ffernce!)..... m|
00001790  65 6e 75 25 3d 73 74 72  69 70 6d 65 6e 75 25 20  |enu%=stripmenu% |
000017a0  80 20 69 74 65 6d 25 3d  33 20 f2 77 69 6d 70 5f  |. item%=3 .wimp_|
000017b0  63 6c 6f 73 65 77 69 6e  64 6f 77 28 73 74 72 69  |closewindow(stri|
000017c0  70 25 29 3a f2 77 69 6d  70 5f 69 63 6f 6e 62 61  |p%):.wimp_iconba|
000017d0  72 73 70 72 69 74 65 28  22 21 4f 66 66 69 63 65  |rsprite("!Office|
000017e0  b2 22 29 20 3a f4 20 48  69 64 65 20 74 68 65 20  |.") :. Hide the |
000017f0  73 74 72 69 70 20 66 72  6f 6d 20 74 68 65 20 73  |strip from the s|
00001800  74 72 69 70 20 6d 65 6e  75 0d 00 d5 d9 e7 20 6d  |trip menu..... m|
00001810  65 6e 75 25 3d 65 72 72  6f 72 6d 65 6e 75 25 20  |enu%=errormenu% |
00001820  80 20 69 74 65 6d 25 3d  31 20 70 69 63 6b 65 64  |. item%=1 picked|
00001830  25 3d 31 20 3a f2 77 69  6d 70 5f 6d 65 6e 75 74  |%=1 :.wimp_menut|
00001840  69 63 6b 28 65 72 72 6f  72 6d 65 6e 75 25 2c 31  |ick(errormenu%,1|
00001850  29 20 3a f2 77 69 6d 70  5f 6d 65 6e 75 74 69 63  |) :.wimp_menutic|
00001860  6b 28 65 72 72 6f 72 6d  65 6e 75 25 2c 32 29 20  |k(errormenu%,2) |
00001870  3a 74 65 78 74 24 3d a4  77 69 6d 70 5f 67 65 74  |:text$=.wimp_get|
00001880  6d 65 6e 75 74 65 78 74  28 65 72 72 6f 72 6d 65  |menutext(errorme|
00001890  6e 75 25 2c 31 29 20 3a  f2 77 69 6d 70 5f 70 75  |nu%,1) :.wimp_pu|
000018a0  74 69 63 6f 6e 74 65 78  74 28 65 72 72 6f 72 25  |ticontext(error%|
000018b0  2c 36 2c 74 65 78 74 24  29 20 3a f4 20 54 68 65  |,6,text$) :. The|
000018c0  20 73 65 6c 65 63 74 20  74 79 70 65 20 6d 65 6e  | select type men|
000018d0  75 20 69 6e 20 74 68 65  20 65 72 72 6f 72 20 62  |u in the error b|
000018e0  6f 78 0d 00 d6 d9 e7 20  6d 65 6e 75 25 3d 65 72  |ox..... menu%=er|
000018f0  72 6f 72 6d 65 6e 75 25  20 80 20 69 74 65 6d 25  |rormenu% . item%|
00001900  3d 32 20 70 69 63 6b 65  64 25 3d 32 20 3a f2 77  |=2 picked%=2 :.w|
00001910  69 6d 70 5f 6d 65 6e 75  74 69 63 6b 28 65 72 72  |imp_menutick(err|
00001920  6f 72 6d 65 6e 75 25 2c  32 29 20 3a f2 77 69 6d  |ormenu%,2) :.wim|
00001930  70 5f 6d 65 6e 75 74 69  63 6b 28 65 72 72 6f 72  |p_menutick(error|
00001940  6d 65 6e 75 25 2c 31 29  20 3a 74 65 78 74 24 3d  |menu%,1) :text$=|
00001950  a4 77 69 6d 70 5f 67 65  74 6d 65 6e 75 74 65 78  |.wimp_getmenutex|
00001960  74 28 65 72 72 6f 72 6d  65 6e 75 25 2c 32 29 20  |t(errormenu%,2) |
00001970  3a f2 77 69 6d 70 5f 70  75 74 69 63 6f 6e 74 65  |:.wimp_puticonte|
00001980  78 74 28 65 72 72 6f 72  25 2c 36 2c 74 65 78 74  |xt(error%,6,text|
00001990  24 29 20 3a f4 20 54 68  65 20 73 65 6c 65 63 74  |$) :. The select|
000019a0  20 74 79 70 65 20 6d 65  6e 75 20 69 6e 20 74 68  | type menu in th|
000019b0  65 20 65 72 72 6f 72 20  62 6f 78 0d 00 d7 05 e1  |e error box.....|
000019c0  0d 00 d8 05 3a 0d 00 d9  21 dd 20 a4 75 73 65 72  |....:...!. .user|
000019d0  5f 73 61 76 65 66 69 6c  65 74 79 70 65 28 77 69  |_savefiletype(wi|
000019e0  6e 64 6f 77 25 29 0d 00  da 07 3d 22 22 0d 00 db  |ndow%)....=""...|
000019f0  05 3a 0d 00 dc 34 dd 20  f2 75 73 65 72 5f 73 61  |.:...4. .user_sa|
00001a00  76 65 69 63 6f 6e 28 77  69 6e 64 6f 77 25 2c f8  |veicon(window%,.|
00001a10  20 64 72 61 67 25 2c f8  20 77 72 69 74 65 25 2c  | drag%,. write%,|
00001a20  f8 20 6f 6b 25 29 0d 00  dd 05 e1 0d 00 de 05 3a  |. ok%).........:|
00001a30  0d 00 df 23 dd 20 a4 75  73 65 72 5f 73 61 76 65  |...#. .user_save|
00001a40  64 61 74 61 28 70 61 74  68 24 2c 77 69 6e 64 6f  |data(path$,windo|
00001a50  77 25 29 0d 00 e0 06 3d  31 0d 00 e1 05 3a 0d 00  |w%)....=1....:..|
00001a60  e2 1f dd 20 a4 75 73 65  72 5f 68 65 6c 70 28 77  |... .user_help(w|
00001a70  69 6e 64 6f 77 25 2c 69  63 6f 6e 25 29 0d 00 e3  |indow%,icon%)...|
00001a80  09 68 24 3d 22 22 0d 00  e4 10 c8 8e 20 77 69 6e  |.h$=""...... win|
00001a90  64 6f 77 25 20 ca 0d 00  e5 16 f4 20 54 68 65 20  |dow% ...... The |
00001aa0  73 68 6f 72 74 63 75 74  20 62 61 72 0d 00 e6 0e  |shortcut bar....|
00001ab0  c9 20 73 74 72 69 70 25  20 3a 0d 00 e7 10 20 20  |. strip% :....  |
00001ac0  c8 8e 20 69 63 6f 6e 25  20 ca 0d 00 e8 0b 20 20  |.. icon% .....  |
00001ad0  c9 20 30 20 3a 0d 00 e9  28 20 20 6c 6f 6f 6b 75  |. 0 :...(  looku|
00001ae0  70 24 3d a4 77 69 6d 70  5f 6d 65 73 73 6c 6f 6f  |p$=.wimp_messloo|
00001af0  6b 30 28 22 48 53 74 72  69 70 30 22 29 0d 00 ea  |k0("HStrip0")...|
00001b00  10 20 20 68 24 3d 6c 6f  6f 6b 75 70 24 0d 00 eb  |.  h$=lookup$...|
00001b10  5c 20 20 c9 20 31 2c 32  2c 33 2c 34 2c 35 2c 36  |\  . 1,2,3,4,5,6|
00001b20  2c 37 2c 38 2c 39 2c 31  30 2c 31 31 2c 31 32 2c  |,7,8,9,10,11,12,|
00001b30  31 33 2c 31 34 2c 31 35  2c 31 36 2c 31 37 2c 31  |13,14,15,16,17,1|
00001b40  38 2c 31 39 2c 32 30 2c  32 31 2c 32 32 2c 32 33  |8,19,20,21,22,23|
00001b50  2c 32 34 2c 32 35 20 3a  f2 73 74 72 69 70 68 65  |,24,25 :.striphe|
00001b60  6c 70 28 69 63 6f 6e 25  29 0d 00 ec 07 20 20 cb  |lp(icon%)....  .|
00001b70  0d 00 ed 2b f4 20 54 68  65 20 70 61 6e 65 20 61  |...+. The pane a|
00001b80  74 74 61 63 68 65 64 20  74 6f 20 74 68 65 20 73  |ttached to the s|
00001b90  74 72 69 70 20 77 69 6e  64 6f 77 0d 00 ee 0b c9  |trip window.....|
00001ba0  20 63 62 61 72 25 0d 00  ef 10 20 20 c8 8e 20 69  | cbar%....  .. i|
00001bb0  63 6f 6e 25 20 ca 0d 00  f0 0b 20 20 c9 20 30 20  |con% .....  . 0 |
00001bc0  3a 0d 00 f1 29 20 20 6c  6f 6f 6b 75 70 24 3d a4  |:...)  lookup$=.|
00001bd0  77 69 6d 70 5f 6d 65 73  73 6c 6f 6f 6b 30 28 22  |wimp_messlook0("|
00001be0  48 53 74 72 69 70 31 33  22 29 0d 00 f2 10 20 20  |HStrip13")....  |
00001bf0  68 24 3d 6c 6f 6f 6b 75  70 24 0d 00 f3 07 20 20  |h$=lookup$....  |
00001c00  cb 0d 00 f4 12 f4 20 54  68 65 20 69 6e 66 6f 20  |...... The info |
00001c10  62 6f 78 0d 00 f5 11 20  20 c9 20 69 6e 66 6f 25  |box....  . info%|
00001c20  20 3a 20 20 0d 00 f6 10  20 20 c8 8e 20 69 63 6f  | :  ....  .. ico|
00001c30  6e 25 20 ca 0d 00 f7 0b  20 20 20 20 7f 20 3a 0d  |n% .....    . :.|
00001c40  00 f8 29 20 20 20 20 6c  6f 6f 6b 75 70 24 3d a4  |..)    lookup$=.|
00001c50  77 69 6d 70 5f 6d 65 73  73 6c 6f 6f 6b 30 28 22  |wimp_messlook0("|
00001c60  48 49 6e 66 6f 30 22 29  0d 00 f9 12 20 20 20 20  |HInfo0")....    |
00001c70  68 24 3d 6c 6f 6f 6b 75  70 24 0d 00 fa 07 20 20  |h$=lookup$....  |
00001c80  cb 0d 00 fb 12 f4 20 54  68 65 20 69 63 6f 6e 20  |...... The icon |
00001c90  62 61 72 0d 00 fc 0c 20  20 c9 20 62 61 72 25 0d  |bar....  . bar%.|
00001ca0  00 fd 10 20 20 c8 8e 20  69 63 6f 6e 25 20 ca 0d  |...  .. icon% ..|
00001cb0  00 fe 0b 20 20 20 20 7f  20 3a 0d 00 ff 28 20 20  |...    . :...(  |
00001cc0  20 20 6c 6f 6f 6b 75 70  24 3d a4 77 69 6d 70 5f  |  lookup$=.wimp_|
00001cd0  6d 65 73 73 6c 6f 6f 6b  30 28 22 48 42 61 72 30  |messlook0("HBar0|
00001ce0  22 29 0d 01 00 12 20 20  20 20 68 24 3d 6c 6f 6f  |")....    h$=loo|
00001cf0  6b 75 70 24 0d 01 01 07  20 20 cb 0d 01 02 18 f4  |kup$....  ......|
00001d00  20 54 68 65 20 73 74 61  72 74 75 70 20 62 61 6e  | The startup ban|
00001d10  6e 65 72 0d 01 03 0f 20  20 c9 20 62 61 6e 6e 65  |ner....  . banne|
00001d20  72 25 0d 01 04 10 20 20  c8 8e 20 69 63 6f 6e 25  |r%....  .. icon%|
00001d30  20 ca 0d 01 05 0b 20 20  20 20 7f 20 3a 0d 01 06  | .....    . :...|
00001d40  2b 20 20 20 20 6c 6f 6f  6b 75 70 24 3d a4 77 69  |+    lookup$=.wi|
00001d50  6d 70 5f 6d 65 73 73 6c  6f 6f 6b 30 28 22 48 42  |mp_messlook0("HB|
00001d60  61 6e 6e 65 72 30 22 29  0d 01 07 12 20 20 20 20  |anner0")....    |
00001d70  68 24 3d 6c 6f 6f 6b 75  70 24 0d 01 08 07 20 20  |h$=lookup$....  |
00001d80  cb 0d 01 09 1c f4 20 2a  2a 2a 20 54 68 65 20 27  |...... *** The '|
00001d90  45 72 72 6f 72 27 20 77  69 6e 64 6f 77 0d 01 0a  |Error' window...|
00001da0  0e 20 20 c9 20 65 72 72  6f 72 25 0d 01 0b 28 20  |.  . error%...( |
00001db0  20 6c 6f 6f 6b 75 70 24  3d a4 77 69 6d 70 5f 6d  | lookup$=.wimp_m|
00001dc0  65 73 73 6c 6f 6f 6b 30  28 22 48 45 72 72 6f 72  |esslook0("HError|
00001dd0  31 22 29 0d 01 0c 12 20  20 20 20 68 24 3d 6c 6f  |1")....    h$=lo|
00001de0  6f 6b 75 70 24 0d 01 0d  10 20 20 c8 8e 20 69 63  |okup$....  .. ic|
00001df0  6f 6e 25 20 ca 0d 01 0e  0c 20 20 20 20 c9 20 31  |on% .....    . 1|
00001e00  3a 0d 01 0f 2a 20 20 20  20 6c 6f 6f 6b 75 70 24  |:...*    lookup$|
00001e10  3d a4 77 69 6d 70 5f 6d  65 73 73 6c 6f 6f 6b 30  |=.wimp_messlook0|
00001e20  28 22 48 45 72 72 6f 72  32 22 29 0d 01 10 12 20  |("HError2").... |
00001e30  20 20 20 68 24 3d 6c 6f  6f 6b 75 70 24 0d 01 11  |   h$=lookup$...|
00001e40  0c 20 20 20 20 c9 20 32  3a 0d 01 12 2a 20 20 20  |.    . 2:...*   |
00001e50  20 6c 6f 6f 6b 75 70 24  3d a4 77 69 6d 70 5f 6d  | lookup$=.wimp_m|
00001e60  65 73 73 6c 6f 6f 6b 30  28 22 48 45 72 72 6f 72  |esslook0("HError|
00001e70  33 22 29 0d 01 13 12 20  20 20 20 68 24 3d 6c 6f  |3")....    h$=lo|
00001e80  6f 6b 75 70 24 0d 01 14  0c 20 20 20 20 c9 20 39  |okup$....    . 9|
00001e90  3a 0d 01 15 2a 20 20 20  20 6c 6f 6f 6b 75 70 24  |:...*    lookup$|
00001ea0  3d a4 77 69 6d 70 5f 6d  65 73 73 6c 6f 6f 6b 30  |=.wimp_messlook0|
00001eb0  28 22 48 45 72 72 6f 72  34 22 29 0d 01 16 12 20  |("HError4").... |
00001ec0  20 20 20 68 24 3d 6c 6f  6f 6b 75 70 24 0d 01 17  |   h$=lookup$...|
00001ed0  0c 20 20 20 20 c9 20 38  3a 0d 01 18 2a 20 20 20  |.    . 8:...*   |
00001ee0  20 6c 6f 6f 6b 75 70 24  3d a4 77 69 6d 70 5f 6d  | lookup$=.wimp_m|
00001ef0  65 73 73 6c 6f 6f 6b 30  28 22 48 45 72 72 6f 72  |esslook0("HError|
00001f00  35 22 29 0d 01 19 12 20  20 20 20 68 24 3d 6c 6f  |5")....    h$=lo|
00001f10  6f 6b 75 70 24 0d 01 1a  0c 20 20 20 20 c9 20 37  |okup$....    . 7|
00001f20  3a 0d 01 1b 2a 20 20 20  20 6c 6f 6f 6b 75 70 24  |:...*    lookup$|
00001f30  3d a4 77 69 6d 70 5f 6d  65 73 73 6c 6f 6f 6b 30  |=.wimp_messlook0|
00001f40  28 22 48 45 72 72 6f 72  36 22 29 0d 01 1c 12 20  |("HError6").... |
00001f50  20 20 20 68 24 3d 6c 6f  6f 6b 75 70 24 0d 01 1d  |   h$=lookup$...|
00001f60  07 20 20 cb 0d 01 1e 05  cb 0d 01 1f 07 3d 68 24  |.  ..........=h$|
00001f70  0d 01 20 05 3a 0d 01 21  21 dd 20 a4 75 73 65 72  |.. .:..!!. .user|
00001f80  5f 6d 65 6e 75 68 65 6c  70 28 6d 65 6e 75 25 2c  |_menuhelp(menu%,|
00001f90  69 74 65 6d 25 29 0d 01  22 09 68 24 3d 22 22 0d  |item%)..".h$="".|
00001fa0  01 23 0e c8 8e 20 6d 65  6e 75 25 20 ca 0d 01 24  |.#... menu% ...$|
00001fb0  16 f4 20 54 68 65 20 73  68 6f 72 74 63 75 74 20  |.. The shortcut |
00001fc0  62 61 72 0d 01 25 14 20  20 c9 20 73 74 72 69 70  |bar..%.  . strip|
00001fd0  6d 65 6e 75 25 20 3a 0d  01 26 10 20 20 c8 8e 20  |menu% :..&.  .. |
00001fe0  69 74 65 6d 25 20 ca 0d  01 27 0b 20 20 c9 20 31  |item% ...'.  . 1|
00001ff0  20 3a 0d 01 28 2b 20 20  6c 6f 6f 6b 75 70 24 3d  | :..(+  lookup$=|
00002000  a4 77 69 6d 70 5f 6d 65  73 73 6c 6f 6f 6b 30 28  |.wimp_messlook0(|
00002010  22 48 53 74 72 69 70 4d  65 6e 31 22 29 0d 01 29  |"HStripMen1")..)|
00002020  12 20 20 20 20 68 24 3d  6c 6f 6f 6b 75 70 24 0d  |.    h$=lookup$.|
00002030  01 2a 0b 20 20 c9 20 32  20 3a 0d 01 2b 2b 20 20  |.*.  . 2 :..++  |
00002040  6c 6f 6f 6b 75 70 24 3d  a4 77 69 6d 70 5f 6d 65  |lookup$=.wimp_me|
00002050  73 73 6c 6f 6f 6b 30 28  22 48 53 74 72 69 70 4d  |sslook0("HStripM|
00002060  65 6e 32 22 29 0d 01 2c  12 20 20 20 20 68 24 3d  |en2")..,.    h$=|
00002070  6c 6f 6f 6b 75 70 24 0d  01 2d 0b 20 20 c9 20 33  |lookup$..-.  . 3|
00002080  20 3a 0d 01 2e 2b 20 20  6c 6f 6f 6b 75 70 24 3d  | :...+  lookup$=|
00002090  a4 77 69 6d 70 5f 6d 65  73 73 6c 6f 6f 6b 30 28  |.wimp_messlook0(|
000020a0  22 48 53 74 72 69 70 4d  65 6e 33 22 29 0d 01 2f  |"HStripMen3")../|
000020b0  12 20 20 20 20 68 24 3d  6c 6f 6f 6b 75 70 24 0d  |.    h$=lookup$.|
000020c0  01 30 09 20 20 7f 20 3a  0d 01 31 2b 20 20 6c 6f  |.0.  . :..1+  lo|
000020d0  6f 6b 75 70 24 3d a4 77  69 6d 70 5f 6d 65 73 73  |okup$=.wimp_mess|
000020e0  6c 6f 6f 6b 30 28 22 48  53 74 72 69 70 4d 65 6e  |look0("HStripMen|
000020f0  30 22 29 0d 01 32 12 20  20 20 20 68 24 3d 6c 6f  |0")..2.    h$=lo|
00002100  6f 6b 75 70 24 0d 01 33  07 20 20 cb 0d 01 34 16  |okup$..3.  ...4.|
00002110  f4 20 54 68 65 20 69 63  6f 6e 62 61 72 20 6d 65  |. The iconbar me|
00002120  6e 75 0d 01 35 12 20 20  c9 20 62 61 72 6d 65 6e  |nu..5.  . barmen|
00002130  75 25 20 3a 0d 01 36 10  20 20 c8 8e 20 69 74 65  |u% :..6.  .. ite|
00002140  6d 25 20 ca 0d 01 37 0b  20 20 c9 20 31 20 3a 0d  |m% ...7.  . 1 :.|
00002150  01 38 29 20 20 6c 6f 6f  6b 75 70 24 3d a4 77 69  |.8)  lookup$=.wi|
00002160  6d 70 5f 6d 65 73 73 6c  6f 6f 6b 30 28 22 48 42  |mp_messlook0("HB|
00002170  61 72 4d 65 6e 31 22 29  0d 01 39 12 20 20 20 20  |arMen1")..9.    |
00002180  68 24 3d 6c 6f 6f 6b 75  70 24 0d 01 3a 0b 20 20  |h$=lookup$..:.  |
00002190  c9 20 32 20 3a 0d 01 3b  29 20 20 6c 6f 6f 6b 75  |. 2 :..;)  looku|
000021a0  70 24 3d a4 77 69 6d 70  5f 6d 65 73 73 6c 6f 6f  |p$=.wimp_messloo|
000021b0  6b 30 28 22 48 42 61 72  4d 65 6e 32 22 29 0d 01  |k0("HBarMen2")..|
000021c0  3c 12 20 20 20 20 68 24  3d 6c 6f 6f 6b 75 70 24  |<.    h$=lookup$|
000021d0  0d 01 3d 0b 20 20 c9 20  33 20 3a 0d 01 3e 29 20  |..=.  . 3 :..>) |
000021e0  20 6c 6f 6f 6b 75 70 24  3d a4 77 69 6d 70 5f 6d  | lookup$=.wimp_m|
000021f0  65 73 73 6c 6f 6f 6b 30  28 22 48 42 61 72 4d 65  |esslook0("HBarMe|
00002200  6e 33 22 29 0d 01 3f 12  20 20 20 20 68 24 3d 6c  |n3")..?.    h$=l|
00002210  6f 6f 6b 75 70 24 0d 01  40 0b 20 20 c9 20 34 20  |ookup$..@.  . 4 |
00002220  3a 0d 01 41 29 20 20 6c  6f 6f 6b 75 70 24 3d a4  |:..A)  lookup$=.|
00002230  77 69 6d 70 5f 6d 65 73  73 6c 6f 6f 6b 30 28 22  |wimp_messlook0("|
00002240  48 42 61 72 4d 65 6e 34  22 29 0d 01 42 12 20 20  |HBarMen4")..B.  |
00002250  20 20 68 24 3d 6c 6f 6f  6b 75 70 24 0d 01 43 0b  |  h$=lookup$..C.|
00002260  20 20 c9 20 35 20 3a 0d  01 44 29 20 20 6c 6f 6f  |  . 5 :..D)  loo|
00002270  6b 75 70 24 3d a4 77 69  6d 70 5f 6d 65 73 73 6c  |kup$=.wimp_messl|
00002280  6f 6f 6b 30 28 22 48 42  61 72 4d 65 6e 35 22 29  |ook0("HBarMen5")|
00002290  0d 01 45 12 20 20 20 20  68 24 3d 6c 6f 6f 6b 75  |..E.    h$=looku|
000022a0  70 24 0d 01 46 0b 20 20  c9 20 36 20 3a 0d 01 47  |p$..F.  . 6 :..G|
000022b0  29 20 20 6c 6f 6f 6b 75  70 24 3d a4 77 69 6d 70  |)  lookup$=.wimp|
000022c0  5f 6d 65 73 73 6c 6f 6f  6b 30 28 22 48 42 61 72  |_messlook0("HBar|
000022d0  4d 65 6e 36 22 29 0d 01  48 12 20 20 20 20 68 24  |Men6")..H.    h$|
000022e0  3d 6c 6f 6f 6b 75 70 24  0d 01 49 09 20 20 7f 20  |=lookup$..I.  . |
000022f0  3a 0d 01 4a 29 20 20 6c  6f 6f 6b 75 70 24 3d a4  |:..J)  lookup$=.|
00002300  77 69 6d 70 5f 6d 65 73  73 6c 6f 6f 6b 30 28 22  |wimp_messlook0("|
00002310  48 42 61 72 4d 65 6e 30  22 29 0d 01 4b 12 20 20  |HBarMen0")..K.  |
00002320  20 20 68 24 3d 6c 6f 6f  6b 75 70 24 0d 01 4c 07  |  h$=lookup$..L.|
00002330  20 20 cb 0d 01 4d 05 cb  0d 01 4e 07 3d 68 24 0d  |  ...M....N.=h$.|
00002340  01 4f 05 3a 0d 01 50 3e  dd 20 a4 75 73 65 72 5f  |.O.:..P>. .user_|
00002350  6c 6f 61 64 64 61 74 61  28 70 61 74 68 24 2c 77  |loaddata(path$,w|
00002360  69 6e 64 6f 77 25 2c 69  63 6f 6e 25 2c 66 74 79  |indow%,icon%,fty|
00002370  70 65 24 2c 77 6f 72 6b  78 25 2c 77 6f 72 6b 79  |pe$,workx%,worky|
00002380  25 29 0d 01 51 0a 75 73  65 64 3d 30 0d 01 52 09  |%)..Q.used=0..R.|
00002390  3d 75 73 65 64 0d 01 53  05 3a 0d 01 54 23 dd 20  |=used..S.:..T#. |
000023a0  f2 75 73 65 72 5f 65 6e  74 65 72 69 6e 67 77 69  |.user_enteringwi|
000023b0  6e 64 6f 77 28 77 69 6e  64 6f 77 25 29 0d 01 55  |ndow(window%)..U|
000023c0  34 e7 20 77 69 6e 64 6f  77 25 3d 73 74 72 69 70  |4. window%=strip|
000023d0  25 20 8c 20 f2 77 69 6d  70 5f 6f 70 65 6e 77 69  |% . .wimp_openwi|
000023e0  6e 64 6f 77 28 73 74 72  69 70 25 2c 30 2c 2d 31  |ndow(strip%,0,-1|
000023f0  29 0d 01 56 33 e7 20 77  69 6e 64 6f 77 25 3d 63  |)..V3. window%=c|
00002400  62 61 72 25 20 8c 20 f2  77 69 6d 70 5f 6f 70 65  |bar% . .wimp_ope|
00002410  6e 77 69 6e 64 6f 77 28  73 74 72 69 70 25 2c 30  |nwindow(strip%,0|
00002420  2c 2d 31 29 0d 01 57 05  cd 0d 01 58 05 3a 0d 01  |,-1)..W....X.:..|
00002430  59 22 dd 20 f2 75 73 65  72 5f 6c 65 61 76 69 6e  |Y". .user_leavin|
00002440  67 77 69 6e 64 6f 77 28  77 69 6e 64 6f 77 25 29  |gwindow(window%)|
00002450  0d 01 5a 05 e1 0d 01 5b  05 3a 0d 01 5c 19 dd 20  |..Z....[.:..\.. |
00002460  a4 75 73 65 72 5f 70 61  6e 65 28 77 69 6e 64 6f  |.user_pane(windo|
00002470  77 25 29 0d 01 5d 1b e7  20 77 69 6e 64 6f 77 25  |w%)..].. window%|
00002480  3d 73 74 72 69 70 25 20  3d 63 62 61 72 25 0d 01  |=strip% =cbar%..|
00002490  5e 07 3d 2d 31 0d 01 5f  05 3a 0d 01 60 10 dd 20  |^.=-1.._.:..`.. |
000024a0  f2 75 73 65 72 5f 6e 75  6c 6c 0d 01 61 05 e1 0d  |.user_null..a...|
000024b0  01 62 05 3a 0d 01 63 21  dd 20 f2 75 73 65 72 5f  |.b.:..c!. .user_|
000024c0  6d 65 6e 75 6f 70 65 6e  28 6d 65 6e 75 25 2c 69  |menuopen(menu%,i|
000024d0  63 6f 6e 25 29 0d 01 64  05 e1 0d 01 65 05 3a 0d  |con%)..d....e.:.|
000024e0  01 66 25 dd 20 a4 75 73  65 72 5f 73 6c 69 64 65  |.f%. .user_slide|
000024f0  72 62 61 63 6b 28 77 69  6e 64 6f 77 25 2c 69 63  |rback(window%,ic|
00002500  6f 6e 25 29 0d 01 67 07  3d 2d 31 0d 01 68 05 3a  |on%)..g.=-1..h.:|
00002510  0d 01 69 21 dd 20 a4 75  73 65 72 5f 73 6c 69 64  |..i!. .user_slid|
00002520  65 72 28 77 69 6e 64 6f  77 25 2c 69 63 6f 6e 25  |er(window%,icon%|
00002530  29 0d 01 6a 07 3d 2d 31  0d 01 6b 05 3a 0d 01 6c  |)..j.=-1..k.:..l|
00002540  2d dd 20 f2 75 73 65 72  5f 73 6c 69 64 65 72 76  |-. .user_sliderv|
00002550  61 6c 75 65 28 77 69 6e  64 6f 77 25 2c 69 63 6f  |alue(window%,ico|
00002560  6e 25 2c 70 63 65 6e 74  25 29 0d 01 6d 05 e1 0d  |n%,pcent%)..m...|
00002570  01 6e 05 3a 0d 01 6f 16  dd 20 f2 75 73 65 72 5f  |.n.:..o.. .user_|
00002580  6d 6f 64 65 63 68 61 6e  67 65 0d 01 70 05 e1 0d  |modechange..p...|
00002590  01 71 05 3a 0d 01 72 18  dd 20 f2 75 73 65 72 5f  |.q.:..r.. .user_|
000025a0  64 65 63 6c 61 72 65 66  6f 6e 74 73 0d 01 73 05  |declarefonts..s.|
000025b0  e1 0d 01 74 05 3a 0d 01  75 30 dd 20 f2 75 73 65  |...t.:..u0. .use|
000025c0  72 5f 70 72 69 6e 74 28  6d 69 6e 78 25 2c 6d 69  |r_print(minx%,mi|
000025d0  6e 79 25 2c 6d 61 78 78  25 2c 6d 61 78 79 25 2c  |ny%,maxx%,maxy%,|
000025e0  70 61 67 65 25 29 0d 01  76 05 e1 0d 01 77 05 3a  |page%)..v....w.:|
000025f0  0d 01 78 34 dd 20 a4 75  73 65 72 5f 70 72 69 6e  |..x4. .user_prin|
00002600  74 69 6e 67 28 63 6f 70  79 25 2c 70 61 67 65 25  |ting(copy%,page%|
00002610  2c 74 6f 74 70 61 67 65  73 25 2c 70 61 67 65 70  |,totpages%,pagep|
00002620  6f 73 25 29 0d 01 79 06  3d 30 0d 01 7a 05 3a 0d  |os%)..y.=0..z.:.|
00002630  01 7b 19 dd 20 f2 75 73  65 72 5f 70 72 69 6e 74  |.{.. .user_print|
00002640  65 72 63 68 61 6e 67 65  0d 01 7c 05 e1 0d 01 7d  |erchange..|....}|
00002650  05 3a 0d 01 7e 10 dd 20  f2 69 6e 69 74 65 72 72  |.:..~.. .initerr|
00002660  6f 72 0d 01 7f 05 e1 0d  01 80 05 3a 0d 01 81 10  |or.........:....|
00002670  dd 20 f2 6f 70 65 6e 65  72 72 6f 72 0d 01 82 0c  |. .openerror....|
00002680  c8 97 20 58 2c 59 2c 42  0d 01 83 0b 78 25 3d 58  |.. X,Y,B....x%=X|
00002690  2d 34 30 0d 01 84 26 f2  77 69 6d 70 5f 6f 70 65  |-40...&.wimp_ope|
000026a0  6e 77 69 6e 64 6f 77 61  74 28 65 72 72 6f 72 25  |nwindowat(error%|
000026b0  2c 78 25 2c 59 2c 2d 31  29 0d 01 85 1d f2 77 69  |,x%,Y,-1).....wi|
000026c0  6d 70 5f 70 75 74 63 61  72 65 74 28 65 72 72 6f  |mp_putcaret(erro|
000026d0  72 25 2c 31 30 29 0d 01  86 05 e1 0d 01 87 05 3a  |r%,10).........:|
000026e0  0d 01 88 12 dd 20 f2 65  72 72 6f 72 63 72 65 61  |..... .errorcrea|
000026f0  74 65 0d 01 89 28 f4 20  2d 2d 2d 20 44 65 74 65  |te...(. --- Dete|
00002700  63 74 20 77 68 69 63 68  20 69 63 6f 6e 20 77 61  |ct which icon wa|
00002710  73 20 73 65 6c 65 63 74  65 64 0d 01 8a 38 e7 20  |s selected...8. |
00002720  70 69 63 6b 65 64 25 3d  31 20 8c 20 ff 28 22 46  |picked%=1 . .("F|
00002730  69 6c 65 72 5f 52 75 6e  20 3c 4f 66 66 69 63 65  |iler_Run <Office|
00002740  24 53 63 72 69 70 74 73  3e 2e 4f 76 6e 50 72 6f  |$Scripts>.OvnPro|
00002750  22 29 0d 01 8b 3a e7 20  70 69 63 6b 65 64 25 3d  |")...:. picked%=|
00002760  32 20 8c 20 ff 28 22 46  69 6c 65 72 5f 52 75 6e  |2 . .("Filer_Run|
00002770  20 3c 4f 66 66 69 63 65  24 53 63 72 69 70 74 73  | <Office$Scripts|
00002780  3e 2e 54 65 78 74 46 69  6c 65 22 29 0d 01 8c 05  |>.TextFile")....|
00002790  3a 0d 01 8d 1d f2 77 69  6d 70 5f 63 6c 6f 73 65  |:.....wimp_close|
000027a0  77 69 6e 64 6f 77 28 65  72 72 6f 72 25 29 0d 01  |window(error%)..|
000027b0  8e 05 e1 0d 01 8f 05 3a  0d 01 90 18 dd 20 f2 73  |.......:..... .s|
000027c0  74 72 69 70 70 72 65 73  73 28 69 63 6f 6e 25 29  |trippress(icon%)|
000027d0  0d 01 91 30 f4 20 4c 6f  61 64 20 74 68 65 20 61  |...0. Load the a|
000027e0  70 70 20 61 73 6f 63 69  61 74 65 64 20 77 69 74  |pp asociated wit|
000027f0  68 20 62 75 74 74 6f 6e  20 70 72 65 73 73 65 64  |h button pressed|
00002800  0d 01 92 18 6c 6f 6f 6b  75 70 24 3d 6c 69 6e 6b  |....lookup$=link|
00002810  24 28 69 63 6f 6e 25 29  0d 01 93 22 74 65 78 74  |$(icon%)..."text|
00002820  24 3d a4 77 69 6d 70 5f  6d 65 73 73 6c 6f 6f 6b  |$=.wimp_messlook|
00002830  30 28 22 4e 6f 41 63 74  22 29 0d 01 94 35 f4 20  |0("NoAct")...5. |
00002840  43 68 65 63 6b 20 69 66  20 74 68 65 20 62 75 74  |Check if the but|
00002850  74 6f 6e 20 69 73 20 73  75 70 70 6f 73 65 64 20  |ton is supposed |
00002860  74 6f 20 72 75 6e 20 61  6e 79 74 68 69 6e 67 0d  |to run anything.|
00002870  01 95 4c e7 20 6c 6f 6f  6b 75 70 24 3d 22 22 20  |..L. lookup$="" |
00002880  8c 20 f2 77 69 6d 70 5f  65 72 72 6f 72 28 61 70  |. .wimp_error(ap|
00002890  70 6e 61 6d 65 24 2c 74  65 78 74 24 2c 31 2c 31  |pname$,text$,1,1|
000028a0  29 20 8b 20 ff 28 22 46  69 6c 65 72 5f 52 75 6e  |) . .("Filer_Run|
000028b0  20 22 2b 6c 6f 6f 6b 75  70 24 29 0d 01 96 05 e1  | "+lookup$).....|
000028c0  0d 01 97 05 3a 0d 01 98  0e dd 20 f2 69 6e 69 74  |....:..... .init|
000028d0  62 61 72 0d 01 99 29 f4  20 4c 6f 61 64 20 64 65  |bar...). Load de|
000028e0  66 69 6e 69 74 69 6f 6e  73 20 66 72 6f 6d 20 74  |finitions from t|
000028f0  68 65 20 44 61 74 61 20  66 69 6c 65 0d 01 9a 2a  |he Data file...*|
00002900  46 25 3d ad 28 22 3c 4f  66 66 69 63 65 24 44 69  |F%=.("<Office$Di|
00002910  72 3e 2e 52 65 73 6f 75  72 63 65 73 2e 43 68 6f  |r>.Resources.Cho|
00002920  69 63 65 73 22 29 0d 01  9b 1e f4 20 43 72 65 61  |ices")..... Crea|
00002930  74 65 20 61 20 73 70 61  63 65 20 69 6e 20 6d 65  |te a space in me|
00002940  6d 6f 72 79 0d 01 9c 1c  20 20 20 73 24 3d be 23  |mory....   s$=.#|
00002950  46 25 3a 62 75 74 74 6f  6e 73 25 3d bb 20 73 24  |F%:buttons%=. s$|
00002960  0d 01 9d 1f 20 20 20 73  24 3d be 23 46 25 3a 63  |....   s$=.#F%:c|
00002970  6f 6e 66 69 67 72 75 6e  68 6c 70 24 3d 73 24 0d  |onfigrunhlp$=s$.|
00002980  01 9e 1c 20 20 20 73 24  3d be 23 46 25 3a 63 6f  |...   s$=.#F%:co|
00002990  6e 66 69 67 72 75 6e 24  3d 73 24 0d 01 9f 08 20  |nfigrun$=s$.... |
000029a0  20 20 3a 0d 01 a0 12 20  20 20 de 20 68 65 6c 70  |  :....   . help|
000029b0  24 28 33 30 29 0d 01 a1  12 20 20 20 de 20 6c 69  |$(30)....   . li|
000029c0  6e 6b 24 28 33 30 29 0d  01 a2 11 20 20 20 de 20  |nk$(30)....   . |
000029d0  73 70 72 24 28 33 30 29  0d 01 a3 12 20 20 20 de  |spr$(30)....   .|
000029e0  20 69 63 6f 6e 25 28 33  30 29 0d 01 a4 11 20 20  | icon%(30)....  |
000029f0  20 de 20 54 65 6d 70 24  28 33 29 0d 01 a5 08 20  | . Temp$(3).... |
00002a00  20 20 3a 0d 01 a6 15 e3  20 4a 25 3d 31 20 b8 20  |  :..... J%=1 . |
00002a10  62 75 74 74 6f 6e 73 25  0d 01 a7 19 20 20 20 73  |buttons%....   s|
00002a20  24 3d be 23 46 25 3a f2  73 70 6c 69 74 28 73 24  |$=.#F%:.split(s$|
00002a30  29 0d 01 a8 19 20 20 20  68 65 6c 70 24 28 4a 25  |)....   help$(J%|
00002a40  29 3d 54 65 6d 70 24 28  31 29 0d 01 a9 19 20 20  |)=Temp$(1)....  |
00002a50  20 6c 69 6e 6b 24 28 4a  25 29 3d 54 65 6d 70 24  | link$(J%)=Temp$|
00002a60  28 32 29 0d 01 aa 18 20  20 20 73 70 72 24 28 4a  |(2)....   spr$(J|
00002a70  25 29 3d 54 65 6d 70 24  28 33 29 0d 01 ab 05 ed  |%)=Temp$(3).....|
00002a80  0d 01 ac 4e f4 20 54 68  65 20 6f 70 74 69 6f 6e  |...N. The option|
00002a90  73 20 28 67 65 74 74 69  6e 67 20 72 69 64 20 6f  |s (getting rid o|
00002aa0  66 20 74 68 65 20 67 75  62 62 69 6e 73 20 73 75  |f the gubbins su|
00002ab0  72 72 6f 75 6e 64 69 6e  67 20 74 68 65 6d 20 69  |rrounding them i|
00002ac0  6e 20 74 68 65 20 70 72  6f 63 65 73 73 29 0d 01  |n the process)..|
00002ad0  ad 0f e3 20 4a 25 3d 31  20 b8 20 34 30 0d 01 ae  |... J%=1 . 40...|
00002ae0  14 20 20 67 69 62 65 72  69 73 68 25 3d 9a 23 46  |.  giberish%=.#F|
00002af0  25 0d 01 af 05 ed 0d 01  b0 17 20 20 20 73 24 3d  |%.........   s$=|
00002b00  be 23 46 25 3a 6f 70 74  31 24 3d 73 24 0d 01 b1  |.#F%:opt1$=s$...|
00002b10  0f e3 20 4a 25 3d 31 20  b8 20 34 30 0d 01 b2 14  |.. J%=1 . 40....|
00002b20  20 20 67 69 62 65 72 69  73 68 25 3d 9a 23 46 25  |  giberish%=.#F%|
00002b30  0d 01 b3 05 ed 0d 01 b4  17 20 20 20 73 24 3d be  |.........   s$=.|
00002b40  23 46 25 3a 6f 70 74 32  24 3d 73 24 0d 01 b5 0d  |#F%:opt2$=s$....|
00002b50  d9 23 46 25 3a 46 25 3d  30 0d 01 b6 05 3a 0d 01  |.#F%:F%=0....:..|
00002b60  b7 19 5f 77 69 6e 6c 65  6e 25 3d 62 75 74 74 6f  |.._winlen%=butto|
00002b70  6e 73 25 2a 2d 35 32 0d  01 b8 5b 73 74 72 69 70  |ns%*-52...[strip|
00002b80  25 3d a4 77 69 6d 70 5f  63 72 65 61 74 65 77 69  |%=.wimp_createwi|
00002b90  6e 64 6f 77 28 31 39 39  32 2c 31 39 36 2c 32 30  |ndow(1992,196,20|
00002ba0  34 36 2c 31 34 39 36 2c  30 2c 5f 77 69 6e 6c 65  |46,1496,0,_winle|
00002bb0  6e 25 2c 35 34 2c 30 2c  25 30 31 31 30 30 30 30  |n%,54,0,%0110000|
00002bc0  30 30 31 2c 31 2c 31 2c  22 27 39 38 22 2c 34 2c  |001,1,1,"'98",4,|
00002bd0  30 29 0d 01 b9 54 69 63  6f 6e 30 25 3d a4 77 69  |0)...Ticon0%=.wi|
00002be0  6d 70 5f 63 72 65 61 74  65 69 63 6f 6e 28 73 74  |mp_createicon(st|
00002bf0  72 69 70 25 2c 30 2c 2d  35 32 2c 35 34 2c 30 2c  |rip%,0,-52,54,0,|
00002c00  25 31 30 31 30 31 31 31  31 31 2c 30 2c 31 2c 31  |%101011111,0,1,1|
00002c10  2c 31 2c 30 2c 22 22 2c  22 22 2c 30 2c 37 2c 22  |,1,0,"","",0,7,"|
00002c20  52 31 2c 33 22 29 0d 01  ba 05 3a 0d 01 bb 51 f4  |R1,3")....:...Q.|
00002c30  20 4c 6f 61 64 20 74 68  65 20 61 74 74 61 63 68  | Load the attach|
00002c40  65 64 20 77 69 6e 64 6f  77 20 63 61 6c 6c 65 64  |ed window called|
00002c50  20 63 62 61 72 25 20 77  68 69 63 68 20 69 73 20  | cbar% which is |
00002c60  61 74 74 61 63 68 65 64  20 61 73 20 61 20 70 61  |attached as a pa|
00002c70  6e 65 20 74 6f 20 73 74  72 69 70 25 0d 01 bc 47  |ne to strip%...G|
00002c80  63 62 61 72 25 3d a4 77  69 6d 70 5f 6c 6f 61 64  |cbar%=.wimp_load|
00002c90  77 69 6e 64 6f 77 28 22  3c 4f 66 66 69 63 65 24  |window("<Office$|
00002ca0  44 69 72 3e 2e 52 65 73  6f 75 72 63 65 73 2e 54  |Dir>.Resources.T|
00002cb0  65 6d 70 6c 61 74 65 73  22 2c 22 63 62 61 72 22  |emplates","cbar"|
00002cc0  2c 30 29 0d 01 bd 05 e1  0d 01 be 05 3a 0d 01 bf  |,0).........:...|
00002cd0  10 dd 20 f2 75 70 64 61  74 65 62 61 72 0d 01 c0  |.. .updatebar...|
00002ce0  1e 20 20 20 f4 20 4c 6f  61 64 20 74 68 65 20 56  |.   . Load the V|
00002cf0  65 72 74 69 63 61 6c 20  62 61 72 0d 01 c1 10 20  |ertical bar.... |
00002d00  20 20 62 69 74 31 24 3d  22 73 22 0d 01 c2 14 20  |  bit1$="s".... |
00002d10  20 20 62 69 74 32 24 3d  22 3b 52 31 2c 33 22 0d  |  bit2$=";R1,3".|
00002d20  01 c3 18 20 20 20 e3 20  4a 25 3d 31 20 b8 20 62  |...   . J%=1 . b|
00002d30  75 74 74 6f 6e 73 25 0d  01 c4 14 20 20 20 73 70  |uttons%....   sp|
00002d40  72 24 3d 73 70 72 24 28  4a 25 29 0d 01 c5 70 20  |r$=spr$(J%)...p |
00002d50  20 20 20 20 e7 20 4a 25  3d 31 20 8c 20 69 63 6f  |    . J%=1 . ico|
00002d60  6e 31 25 3d a4 77 69 6d  70 5f 63 72 65 61 74 65  |n1%=.wimp_create|
00002d70  69 63 6f 6e 28 73 74 72  69 70 25 2c 30 2c 2d 35  |icon(strip%,0,-5|
00002d80  32 2c 35 34 2c 30 2c 25  31 30 31 30 31 31 31 31  |2,54,0,%10101111|
00002d90  31 2c 30 2c 31 2c 31 2c  31 2c 30 2c 22 22 2c 22  |1,0,1,1,1,0,"","|
00002da0  22 2c 30 2c 37 2c 62 69  74 31 24 2b 73 70 72 24  |",0,7,bit1$+spr$|
00002db0  28 4a 25 29 2b 62 69 74  32 24 29 0d 01 c6 73 20  |(J%)+bit2$)...s |
00002dc0  20 20 20 20 e7 20 4a 25  3d 32 20 8c 20 69 63 6f  |    . J%=2 . ico|
00002dd0  6e 32 25 3d a4 77 69 6d  70 5f 63 72 65 61 74 65  |n2%=.wimp_create|
00002de0  69 63 6f 6e 28 73 74 72  69 70 25 2c 30 2c 2d 31  |icon(strip%,0,-1|
00002df0  30 34 2c 35 34 2c 2d 35  32 2c 25 31 30 31 30 31  |04,54,-52,%10101|
00002e00  31 31 31 31 2c 30 2c 31  2c 31 2c 31 2c 30 2c 22  |1111,0,1,1,1,0,"|
00002e10  22 2c 22 22 2c 30 2c 37  2c 62 69 74 31 24 2b 73  |","",0,7,bit1$+s|
00002e20  70 72 24 28 4a 25 29 2b  62 69 74 32 24 29 0d 01  |pr$(J%)+bit2$)..|
00002e30  c7 74 20 20 20 20 20 e7  20 4a 25 3d 33 20 8c 20  |.t     . J%=3 . |
00002e40  69 63 6f 6e 33 25 3d a4  77 69 6d 70 5f 63 72 65  |icon3%=.wimp_cre|
00002e50  61 74 65 69 63 6f 6e 28  73 74 72 69 70 25 2c 30  |ateicon(strip%,0|
00002e60  2c 2d 31 35 36 2c 35 34  2c 2d 31 30 34 2c 25 31  |,-156,54,-104,%1|
00002e70  30 31 30 31 31 31 31 31  2c 30 2c 31 2c 31 2c 31  |01011111,0,1,1,1|
00002e80  2c 30 2c 22 22 2c 22 22  2c 30 2c 37 2c 62 69 74  |,0,"","",0,7,bit|
00002e90  31 24 2b 73 70 72 24 28  4a 25 29 2b 62 69 74 32  |1$+spr$(J%)+bit2|
00002ea0  24 29 0d 01 c8 74 20 20  20 20 20 e7 20 4a 25 3d  |$)...t     . J%=|
00002eb0  34 20 8c 20 69 63 6f 6e  34 25 3d a4 77 69 6d 70  |4 . icon4%=.wimp|
00002ec0  5f 63 72 65 61 74 65 69  63 6f 6e 28 73 74 72 69  |_createicon(stri|
00002ed0  70 25 2c 30 2c 2d 32 30  38 2c 35 34 2c 2d 31 35  |p%,0,-208,54,-15|
00002ee0  36 2c 25 31 30 31 30 31  31 31 31 31 2c 30 2c 31  |6,%101011111,0,1|
00002ef0  2c 31 2c 31 2c 30 2c 22  22 2c 22 22 2c 30 2c 37  |,1,1,0,"","",0,7|
00002f00  2c 62 69 74 31 24 2b 73  70 72 24 28 4a 25 29 2b  |,bit1$+spr$(J%)+|
00002f10  62 69 74 32 24 29 0d 01  c9 74 20 20 20 20 20 e7  |bit2$)...t     .|
00002f20  20 4a 25 3d 35 20 8c 20  69 63 6f 6e 35 25 3d a4  | J%=5 . icon5%=.|
00002f30  77 69 6d 70 5f 63 72 65  61 74 65 69 63 6f 6e 28  |wimp_createicon(|
00002f40  73 74 72 69 70 25 2c 30  2c 2d 32 36 30 2c 35 34  |strip%,0,-260,54|
00002f50  2c 2d 32 30 38 2c 25 31  30 31 30 31 31 31 31 31  |,-208,%101011111|
00002f60  2c 30 2c 31 2c 31 2c 31  2c 30 2c 22 22 2c 22 22  |,0,1,1,1,0,"",""|
00002f70  2c 30 2c 37 2c 62 69 74  31 24 2b 73 70 72 24 28  |,0,7,bit1$+spr$(|
00002f80  4a 25 29 2b 62 69 74 32  24 29 0d 01 ca 74 20 20  |J%)+bit2$)...t  |
00002f90  20 20 20 e7 20 4a 25 3d  36 20 8c 20 69 63 6f 6e  |   . J%=6 . icon|
00002fa0  36 25 3d a4 77 69 6d 70  5f 63 72 65 61 74 65 69  |6%=.wimp_createi|
00002fb0  63 6f 6e 28 73 74 72 69  70 25 2c 30 2c 2d 33 31  |con(strip%,0,-31|
00002fc0  32 2c 35 34 2c 2d 32 36  30 2c 25 31 30 31 30 31  |2,54,-260,%10101|
00002fd0  31 31 31 31 2c 30 2c 31  2c 31 2c 31 2c 30 2c 22  |1111,0,1,1,1,0,"|
00002fe0  22 2c 22 22 2c 30 2c 37  2c 62 69 74 31 24 2b 73  |","",0,7,bit1$+s|
00002ff0  70 72 24 28 4a 25 29 2b  62 69 74 32 24 29 0d 01  |pr$(J%)+bit2$)..|
00003000  cb 74 20 20 20 20 20 e7  20 4a 25 3d 37 20 8c 20  |.t     . J%=7 . |
00003010  69 63 6f 6e 37 25 3d a4  77 69 6d 70 5f 63 72 65  |icon7%=.wimp_cre|
00003020  61 74 65 69 63 6f 6e 28  73 74 72 69 70 25 2c 30  |ateicon(strip%,0|
00003030  2c 2d 33 36 34 2c 35 34  2c 2d 33 31 32 2c 25 31  |,-364,54,-312,%1|
00003040  30 31 30 31 31 31 31 31  2c 30 2c 31 2c 31 2c 31  |01011111,0,1,1,1|
00003050  2c 30 2c 22 22 2c 22 22  2c 30 2c 37 2c 62 69 74  |,0,"","",0,7,bit|
00003060  31 24 2b 73 70 72 24 28  4a 25 29 2b 62 69 74 32  |1$+spr$(J%)+bit2|
00003070  24 29 0d 01 cc 74 20 20  20 20 20 e7 20 4a 25 3d  |$)...t     . J%=|
00003080  38 20 8c 20 69 63 6f 6e  38 25 3d a4 77 69 6d 70  |8 . icon8%=.wimp|
00003090  5f 63 72 65 61 74 65 69  63 6f 6e 28 73 74 72 69  |_createicon(stri|
000030a0  70 25 2c 30 2c 2d 34 31  36 2c 35 34 2c 2d 33 36  |p%,0,-416,54,-36|
000030b0  34 2c 25 31 30 31 30 31  31 31 31 31 2c 30 2c 31  |4,%101011111,0,1|
000030c0  2c 31 2c 31 2c 30 2c 22  22 2c 22 22 2c 30 2c 37  |,1,1,0,"","",0,7|
000030d0  2c 62 69 74 31 24 2b 73  70 72 24 28 4a 25 29 2b  |,bit1$+spr$(J%)+|
000030e0  62 69 74 32 24 29 0d 01  cd 74 20 20 20 20 20 e7  |bit2$)...t     .|
000030f0  20 4a 25 3d 39 20 8c 20  69 63 6f 6e 39 25 3d a4  | J%=9 . icon9%=.|
00003100  77 69 6d 70 5f 63 72 65  61 74 65 69 63 6f 6e 28  |wimp_createicon(|
00003110  73 74 72 69 70 25 2c 30  2c 2d 34 36 38 2c 35 34  |strip%,0,-468,54|
00003120  2c 2d 34 31 36 2c 25 31  30 31 30 31 31 31 31 31  |,-416,%101011111|
00003130  2c 30 2c 31 2c 31 2c 31  2c 30 2c 22 22 2c 22 22  |,0,1,1,1,0,"",""|
00003140  2c 30 2c 37 2c 62 69 74  31 24 2b 73 70 72 24 28  |,0,7,bit1$+spr$(|
00003150  4a 25 29 2b 62 69 74 32  24 29 0d 01 ce 76 20 20  |J%)+bit2$)...v  |
00003160  20 20 20 e7 20 4a 25 3d  31 30 20 8c 20 69 63 6f  |   . J%=10 . ico|
00003170  6e 31 30 25 3d a4 77 69  6d 70 5f 63 72 65 61 74  |n10%=.wimp_creat|
00003180  65 69 63 6f 6e 28 73 74  72 69 70 25 2c 30 2c 2d  |eicon(strip%,0,-|
00003190  35 32 30 2c 35 34 2c 2d  34 36 38 2c 25 31 30 31  |520,54,-468,%101|
000031a0  30 31 31 31 31 31 2c 30  2c 31 2c 31 2c 31 2c 30  |011111,0,1,1,1,0|
000031b0  2c 22 22 2c 22 22 2c 30  2c 37 2c 62 69 74 31 24  |,"","",0,7,bit1$|
000031c0  2b 73 70 72 24 28 4a 25  29 2b 62 69 74 32 24 29  |+spr$(J%)+bit2$)|
000031d0  0d 01 cf 76 20 20 20 20  20 e7 20 4a 25 3d 31 31  |...v     . J%=11|
000031e0  20 8c 20 69 63 6f 6e 31  31 25 3d a4 77 69 6d 70  | . icon11%=.wimp|
000031f0  5f 63 72 65 61 74 65 69  63 6f 6e 28 73 74 72 69  |_createicon(stri|
00003200  70 25 2c 30 2c 2d 35 37  32 2c 35 34 2c 2d 35 32  |p%,0,-572,54,-52|
00003210  30 2c 25 31 30 31 30 31  31 31 31 31 2c 30 2c 31  |0,%101011111,0,1|
00003220  2c 31 2c 31 2c 30 2c 22  22 2c 22 22 2c 30 2c 37  |,1,1,0,"","",0,7|
00003230  2c 62 69 74 31 24 2b 73  70 72 24 28 4a 25 29 2b  |,bit1$+spr$(J%)+|
00003240  62 69 74 32 24 29 0d 01  d0 76 20 20 20 20 20 e7  |bit2$)...v     .|
00003250  20 4a 25 3d 31 32 20 8c  20 69 63 6f 6e 31 32 25  | J%=12 . icon12%|
00003260  3d a4 77 69 6d 70 5f 63  72 65 61 74 65 69 63 6f  |=.wimp_createico|
00003270  6e 28 73 74 72 69 70 25  2c 30 2c 2d 36 32 34 2c  |n(strip%,0,-624,|
00003280  35 34 2c 2d 35 37 32 2c  25 31 30 31 30 31 31 31  |54,-572,%1010111|
00003290  31 31 2c 30 2c 31 2c 31  2c 31 2c 30 2c 22 22 2c  |11,0,1,1,1,0,"",|
000032a0  22 22 2c 30 2c 37 2c 62  69 74 31 24 2b 73 70 72  |"",0,7,bit1$+spr|
000032b0  24 28 4a 25 29 2b 62 69  74 32 24 29 0d 01 d1 76  |$(J%)+bit2$)...v|
000032c0  20 20 20 20 20 e7 20 4a  25 3d 31 33 20 8c 20 69  |     . J%=13 . i|
000032d0  63 6f 6e 31 33 25 3d a4  77 69 6d 70 5f 63 72 65  |con13%=.wimp_cre|
000032e0  61 74 65 69 63 6f 6e 28  73 74 72 69 70 25 2c 30  |ateicon(strip%,0|
000032f0  2c 2d 36 37 36 2c 35 34  2c 2d 36 32 34 2c 25 31  |,-676,54,-624,%1|
00003300  30 31 30 31 31 31 31 31  2c 30 2c 31 2c 31 2c 31  |01011111,0,1,1,1|
00003310  2c 30 2c 22 22 2c 22 22  2c 30 2c 37 2c 62 69 74  |,0,"","",0,7,bit|
00003320  31 24 2b 73 70 72 24 28  4a 25 29 2b 62 69 74 32  |1$+spr$(J%)+bit2|
00003330  24 29 0d 01 d2 76 20 20  20 20 20 e7 20 4a 25 3d  |$)...v     . J%=|
00003340  31 34 20 8c 20 69 63 6f  6e 31 34 25 3d a4 77 69  |14 . icon14%=.wi|
00003350  6d 70 5f 63 72 65 61 74  65 69 63 6f 6e 28 73 74  |mp_createicon(st|
00003360  72 69 70 25 2c 30 2c 2d  37 32 38 2c 35 34 2c 2d  |rip%,0,-728,54,-|
00003370  36 37 36 2c 25 31 30 31  30 31 31 31 31 31 2c 30  |676,%101011111,0|
00003380  2c 31 2c 31 2c 31 2c 30  2c 22 22 2c 22 22 2c 30  |,1,1,1,0,"","",0|
00003390  2c 37 2c 62 69 74 31 24  2b 73 70 72 24 28 4a 25  |,7,bit1$+spr$(J%|
000033a0  29 2b 62 69 74 32 24 29  0d 01 d3 76 20 20 20 20  |)+bit2$)...v    |
000033b0  20 e7 20 4a 25 3d 31 35  20 8c 20 69 63 6f 6e 31  | . J%=15 . icon1|
000033c0  35 25 3d a4 77 69 6d 70  5f 63 72 65 61 74 65 69  |5%=.wimp_createi|
000033d0  63 6f 6e 28 73 74 72 69  70 25 2c 30 2c 2d 37 38  |con(strip%,0,-78|
000033e0  30 2c 35 34 2c 2d 37 32  38 2c 25 31 30 31 30 31  |0,54,-728,%10101|
000033f0  31 31 31 31 2c 30 2c 31  2c 31 2c 31 2c 30 2c 22  |1111,0,1,1,1,0,"|
00003400  22 2c 22 22 2c 30 2c 37  2c 62 69 74 31 24 2b 73  |","",0,7,bit1$+s|
00003410  70 72 24 28 4a 25 29 2b  62 69 74 32 24 29 0d 01  |pr$(J%)+bit2$)..|
00003420  d4 76 20 20 20 20 20 e7  20 4a 25 3d 31 36 20 8c  |.v     . J%=16 .|
00003430  20 69 63 6f 6e 31 36 25  3d a4 77 69 6d 70 5f 63  | icon16%=.wimp_c|
00003440  72 65 61 74 65 69 63 6f  6e 28 73 74 72 69 70 25  |reateicon(strip%|
00003450  2c 30 2c 2d 38 33 32 2c  35 34 2c 2d 37 38 30 2c  |,0,-832,54,-780,|
00003460  25 31 30 31 30 31 31 31  31 31 2c 30 2c 31 2c 31  |%101011111,0,1,1|
00003470  2c 31 2c 30 2c 22 22 2c  22 22 2c 30 2c 37 2c 62  |,1,0,"","",0,7,b|
00003480  69 74 31 24 2b 73 70 72  24 28 4a 25 29 2b 62 69  |it1$+spr$(J%)+bi|
00003490  74 32 24 29 0d 01 d5 76  20 20 20 20 20 e7 20 4a  |t2$)...v     . J|
000034a0  25 3d 31 37 20 8c 20 69  63 6f 6e 31 37 25 3d a4  |%=17 . icon17%=.|
000034b0  77 69 6d 70 5f 63 72 65  61 74 65 69 63 6f 6e 28  |wimp_createicon(|
000034c0  73 74 72 69 70 25 2c 30  2c 2d 38 38 34 2c 35 34  |strip%,0,-884,54|
000034d0  2c 2d 38 33 32 2c 25 31  30 31 30 31 31 31 31 31  |,-832,%101011111|
000034e0  2c 30 2c 31 2c 31 2c 31  2c 30 2c 22 22 2c 22 22  |,0,1,1,1,0,"",""|
000034f0  2c 30 2c 37 2c 62 69 74  31 24 2b 73 70 72 24 28  |,0,7,bit1$+spr$(|
00003500  4a 25 29 2b 62 69 74 32  24 29 0d 01 d6 76 20 20  |J%)+bit2$)...v  |
00003510  20 20 20 e7 20 4a 25 3d  31 38 20 8c 20 69 63 6f  |   . J%=18 . ico|
00003520  6e 31 38 25 3d a4 77 69  6d 70 5f 63 72 65 61 74  |n18%=.wimp_creat|
00003530  65 69 63 6f 6e 28 73 74  72 69 70 25 2c 30 2c 2d  |eicon(strip%,0,-|
00003540  39 33 36 2c 35 34 2c 2d  38 38 34 2c 25 31 30 31  |936,54,-884,%101|
00003550  30 31 31 31 31 31 2c 30  2c 31 2c 31 2c 31 2c 30  |011111,0,1,1,1,0|
00003560  2c 22 22 2c 22 22 2c 30  2c 37 2c 62 69 74 31 24  |,"","",0,7,bit1$|
00003570  2b 73 70 72 24 28 4a 25  29 2b 62 69 74 32 24 29  |+spr$(J%)+bit2$)|
00003580  0d 01 d7 76 20 20 20 20  20 e7 20 4a 25 3d 31 39  |...v     . J%=19|
00003590  20 8c 20 69 63 6f 6e 31  39 25 3d a4 77 69 6d 70  | . icon19%=.wimp|
000035a0  5f 63 72 65 61 74 65 69  63 6f 6e 28 73 74 72 69  |_createicon(stri|
000035b0  70 25 2c 30 2c 2d 39 38  38 2c 35 34 2c 2d 39 33  |p%,0,-988,54,-93|
000035c0  36 2c 25 31 30 31 30 31  31 31 31 31 2c 30 2c 31  |6,%101011111,0,1|
000035d0  2c 31 2c 31 2c 30 2c 22  22 2c 22 22 2c 30 2c 37  |,1,1,0,"","",0,7|
000035e0  2c 62 69 74 31 24 2b 73  70 72 24 28 4a 25 29 2b  |,bit1$+spr$(J%)+|
000035f0  62 69 74 32 24 29 0d 01  d8 77 20 20 20 20 20 e7  |bit2$)...w     .|
00003600  20 4a 25 3d 32 30 20 8c  20 69 63 6f 6e 32 30 25  | J%=20 . icon20%|
00003610  3d a4 77 69 6d 70 5f 63  72 65 61 74 65 69 63 6f  |=.wimp_createico|
00003620  6e 28 73 74 72 69 70 25  2c 30 2c 2d 31 30 34 30  |n(strip%,0,-1040|
00003630  2c 35 34 2c 2d 39 38 38  2c 25 31 30 31 30 31 31  |,54,-988,%101011|
00003640  31 31 31 2c 30 2c 31 2c  31 2c 31 2c 30 2c 22 22  |111,0,1,1,1,0,""|
00003650  2c 22 22 2c 30 2c 37 2c  62 69 74 31 24 2b 73 70  |,"",0,7,bit1$+sp|
00003660  72 24 28 4a 25 29 2b 62  69 74 32 24 29 0d 01 d9  |r$(J%)+bit2$)...|
00003670  78 20 20 20 20 20 e7 20  4a 25 3d 32 31 20 8c 20  |x     . J%=21 . |
00003680  69 63 6f 6e 32 31 25 3d  a4 77 69 6d 70 5f 63 72  |icon21%=.wimp_cr|
00003690  65 61 74 65 69 63 6f 6e  28 73 74 72 69 70 25 2c  |eateicon(strip%,|
000036a0  30 2c 2d 31 30 39 32 2c  35 34 2c 2d 31 30 34 30  |0,-1092,54,-1040|
000036b0  2c 25 31 30 31 30 31 31  31 31 31 2c 30 2c 31 2c  |,%101011111,0,1,|
000036c0  31 2c 31 2c 30 2c 22 22  2c 22 22 2c 30 2c 37 2c  |1,1,0,"","",0,7,|
000036d0  62 69 74 31 24 2b 73 70  72 24 28 4a 25 29 2b 62  |bit1$+spr$(J%)+b|
000036e0  69 74 32 24 29 0d 01 da  78 20 20 20 20 20 e7 20  |it2$)...x     . |
000036f0  4a 25 3d 32 32 20 8c 20  69 63 6f 6e 32 32 25 3d  |J%=22 . icon22%=|
00003700  a4 77 69 6d 70 5f 63 72  65 61 74 65 69 63 6f 6e  |.wimp_createicon|
00003710  28 73 74 72 69 70 25 2c  30 2c 2d 31 31 34 34 2c  |(strip%,0,-1144,|
00003720  35 34 2c 2d 31 30 39 32  2c 25 31 30 31 30 31 31  |54,-1092,%101011|
00003730  31 31 31 2c 30 2c 31 2c  31 2c 31 2c 30 2c 22 22  |111,0,1,1,1,0,""|
00003740  2c 22 22 2c 30 2c 37 2c  62 69 74 31 24 2b 73 70  |,"",0,7,bit1$+sp|
00003750  72 24 28 4a 25 29 2b 62  69 74 32 24 29 0d 01 db  |r$(J%)+bit2$)...|
00003760  78 20 20 20 20 20 e7 20  4a 25 3d 32 33 20 8c 20  |x     . J%=23 . |
00003770  69 63 6f 6e 32 33 25 3d  a4 77 69 6d 70 5f 63 72  |icon23%=.wimp_cr|
00003780  65 61 74 65 69 63 6f 6e  28 73 74 72 69 70 25 2c  |eateicon(strip%,|
00003790  30 2c 2d 31 31 39 36 2c  35 34 2c 2d 31 31 34 34  |0,-1196,54,-1144|
000037a0  2c 25 31 30 31 30 31 31  31 31 31 2c 30 2c 31 2c  |,%101011111,0,1,|
000037b0  31 2c 31 2c 30 2c 22 22  2c 22 22 2c 30 2c 37 2c  |1,1,0,"","",0,7,|
000037c0  62 69 74 31 24 2b 73 70  72 24 28 4a 25 29 2b 62  |bit1$+spr$(J%)+b|
000037d0  69 74 32 24 29 0d 01 dc  78 20 20 20 20 20 e7 20  |it2$)...x     . |
000037e0  4a 25 3d 32 34 20 8c 20  69 63 6f 6e 32 34 25 3d  |J%=24 . icon24%=|
000037f0  a4 77 69 6d 70 5f 63 72  65 61 74 65 69 63 6f 6e  |.wimp_createicon|
00003800  28 73 74 72 69 70 25 2c  30 2c 2d 31 32 34 38 2c  |(strip%,0,-1248,|
00003810  35 34 2c 2d 31 31 39 36  2c 25 31 30 31 30 31 31  |54,-1196,%101011|
00003820  31 31 31 2c 30 2c 31 2c  31 2c 31 2c 30 2c 22 22  |111,0,1,1,1,0,""|
00003830  2c 22 22 2c 30 2c 37 2c  62 69 74 31 24 2b 73 70  |,"",0,7,bit1$+sp|
00003840  72 24 28 4a 25 29 2b 62  69 74 32 24 29 0d 01 dd  |r$(J%)+bit2$)...|
00003850  78 20 20 20 20 20 e7 20  4a 25 3d 32 35 20 8c 20  |x     . J%=25 . |
00003860  69 63 6f 6e 32 35 25 3d  a4 77 69 6d 70 5f 63 72  |icon25%=.wimp_cr|
00003870  65 61 74 65 69 63 6f 6e  28 73 74 72 69 70 25 2c  |eateicon(strip%,|
00003880  30 2c 2d 31 33 30 30 2c  35 34 2c 2d 31 32 34 38  |0,-1300,54,-1248|
00003890  2c 25 31 30 31 30 31 31  31 31 31 2c 30 2c 31 2c  |,%101011111,0,1,|
000038a0  31 2c 31 2c 30 2c 22 22  2c 22 22 2c 30 2c 37 2c  |1,1,0,"","",0,7,|
000038b0  62 69 74 31 24 2b 73 70  72 24 28 4a 25 29 2b 62  |bit1$+spr$(J%)+b|
000038c0  69 74 32 24 29 0d 01 de  0a 20 20 20 20 20 ed 0d  |it2$)....     ..|
000038d0  01 df 05 e1 0d 01 e0 05  3a 0d 01 e1 10 dd 20 f2  |........:..... .|
000038e0  73 70 6c 69 74 28 73 24  29 0d 01 e2 34 f4 20 4c  |split(s$)...4. L|
000038f0  6f 61 64 73 20 54 65 6d  70 24 28 29 20 77 69 74  |oads Temp$() wit|
00003900  68 20 65 61 63 68 20 63  6f 6d 6d 61 2d 73 65 70  |h each comma-sep|
00003910  61 72 61 74 65 64 20 73  74 72 69 6e 67 0d 01 e3  |arated string...|
00003920  24 f4 20 54 68 69 73 20  70 72 6f 63 20 28 43 29  |$. This proc (C)|
00003930  20 47 72 61 68 61 6d 20  43 72 6f 77 20 31 39 39  | Graham Crow 199|
00003940  37 0d 01 e4 0b ea 20 63  25 2c 6e 25 0d 01 e5 14  |7..... c%,n%....|
00003950  54 65 6d 70 24 28 29 3d  22 20 22 3a 63 25 3d 31  |Temp$()=" ":c%=1|
00003960  0d 01 e6 11 c8 95 20 a7  73 24 2c 22 2c 22 29 3e  |...... .s$,",")>|
00003970  30 0d 01 e7 11 20 20 6e  25 3d a7 73 24 2c 22 2c  |0....  n%=.s$,",|
00003980  22 29 0d 01 e8 19 20 20  54 65 6d 70 24 28 63 25  |")....  Temp$(c%|
00003990  29 3d c0 73 24 2c 6e 25  2d 31 29 0d 01 e9 15 20  |)=.s$,n%-1).... |
000039a0  20 73 24 3d c2 73 24 2c  a9 20 73 24 2d 6e 25 29  | s$=.s$,. s$-n%)|
000039b0  0d 01 ea 0b 20 20 63 25  2b 3d 31 0d 01 eb 05 ce  |....  c%+=1.....|
000039c0  0d 01 ec 10 54 65 6d 70  24 28 63 25 29 3d 73 24  |....Temp$(c%)=s$|
000039d0  0d 01 ed 05 e1 0d 01 ee  05 3a 0d 01 ef 17 dd 20  |.........:..... |
000039e0  f2 73 74 72 69 70 68 65  6c 70 28 69 63 6f 6e 25  |.striphelp(icon%|
000039f0  29 0d 01 f0 18 6c 6f 6f  6b 75 70 24 3d 68 65 6c  |)....lookup$=hel|
00003a00  70 24 28 69 63 6f 6e 25  29 0d 01 f1 36 e7 20 6c  |p$(icon%)...6. l|
00003a10  6f 6f 6b 75 70 24 3d 22  22 20 8c 20 68 24 3d 22  |ookup$="" . h$="|
00003a20  4e 6f 20 68 65 6c 70 20  61 76 61 6c 69 62 6c 65  |No help avalible|
00003a30  2e 22 20 8b 20 68 24 3d  6c 6f 6f 6b 75 70 24 0d  |." . h$=lookup$.|
00003a40  01 f2 05 cd 0d 01 f3 05  e1 0d 01 f4 05 3a 0d 01  |.............:..|
00003a50  f5 17 dd 20 a4 72 65 67  69 73 74 65 72 65 64 28  |... .registered(|
00003a60  66 73 70 24 29 0d 01 f6  25 ea 20 46 25 2c 72 65  |fsp$)...%. F%,re|
00003a70  67 25 2c 70 72 65 73 65  6e 74 25 2c 74 79 70 65  |g%,present%,type|
00003a80  25 2c 66 69 6c 65 6c 65  6e 25 0d 01 f7 1c ea 20  |%,filelen%..... |
00003a90  67 61 70 25 2c 74 65 73  74 6c 65 6e 25 2c 6e 61  |gap%,testlen%,na|
00003aa0  6d 65 6c 65 6e 25 0d 01  f8 0a 72 65 67 25 3d b9  |melen%....reg%=.|
00003ab0  0d 01 f9 1a f4 20 49 73  20 74 68 65 20 66 69 6c  |..... Is the fil|
00003ac0  65 20 70 72 65 73 65 6e  74 3f 0d 01 fa 0f e7 20  |e present?..... |
00003ad0  66 73 70 24 3d 22 22 20  8c 0d 01 fb 0f 20 70 72  |fsp$="" ..... pr|
00003ae0  65 73 65 6e 74 25 3d a3  0d 01 fc 05 cc 0d 01 fd  |esent%=.........|
00003af0  24 20 c8 99 20 22 4f 53  5f 46 69 6c 65 22 2c 31  |$ .. "OS_File",1|
00003b00  33 2c 66 73 70 24 20 b8  20 70 72 65 73 65 6e 74  |3,fsp$ . present|
00003b10  25 0d 01 fe 05 cd 0d 01  ff 12 e7 20 70 72 65 73  |%.......... pres|
00003b20  65 6e 74 25 3d 30 20 8c  0d 02 00 0b 20 72 65 67  |ent%=0 ..... reg|
00003b30  25 3d a3 0d 02 01 05 cc  0d 02 02 1c 20 f4 20 43  |%=.......... . C|
00003b40  68 65 63 6b 20 74 79 70  65 20 61 6e 64 20 6c 65  |heck type and le|
00003b50  6e 67 74 68 0d 02 03 22  20 c8 99 20 22 4f 53 5f  |ngth..." .. "OS_|
00003b60  46 69 6c 65 22 2c 35 2c  66 73 70 24 20 b8 20 2c  |File",5,fsp$ . ,|
00003b70  2c 74 79 70 65 25 0d 02  04 22 20 74 79 70 65 25  |,type%..." type%|
00003b80  3d 28 74 79 70 65 25 20  80 20 26 46 46 46 30 30  |=(type% . &FFF00|
00003b90  29 20 81 20 26 31 30 30  0d 02 05 27 20 c8 99 20  |) . &100...' .. |
00003ba0  22 4f 53 5f 46 69 6c 65  22 2c 35 2c 66 73 70 24  |"OS_File",5,fsp$|
00003bb0  20 b8 20 2c 2c 2c 2c 66  69 6c 65 6c 65 6e 25 0d  | . ,,,,filelen%.|
00003bc0  02 06 0f 20 46 25 3d ad  28 66 73 70 24 29 0d 02  |... F%=.(fsp$)..|
00003bd0  07 1c 20 6e 61 6d 65 6c  65 6e 25 3d 9a 23 46 25  |.. namelen%=.#F%|
00003be0  3a 67 61 70 25 3d 9a 23  46 25 0d 02 08 26 20 74  |:gap%=.#F%...& t|
00003bf0  65 73 74 6c 65 6e 25 3d  28 67 61 70 25 2b 31 29  |estlen%=(gap%+1)|
00003c00  2a 6e 61 6d 65 6c 65 6e  25 2b 32 2b 67 61 70 25  |*namelen%+2+gap%|
00003c10  0d 02 09 30 20 e7 20 74  79 70 65 25 3c 3e 26 46  |...0 . type%<>&F|
00003c20  46 44 20 84 20 66 69 6c  65 6c 65 6e 25 3c 3e 74  |FD . filelen%<>t|
00003c30  65 73 74 6c 65 6e 25 20  8c 20 72 65 67 25 3d a3  |estlen% . reg%=.|
00003c40  0d 02 0a 09 20 d9 23 46  25 0d 02 0b 05 cd 0d 02  |.... .#F%.......|
00003c50  0c 09 3d 72 65 67 25 0d  02 0d 05 3a 0d 02 0e 13  |..=reg%....:....|
00003c60  dd 20 a4 64 65 63 6f 64  65 28 66 73 70 24 29 0d  |. .decode(fsp$).|
00003c70  02 0f 23 f4 20 45 78 74  72 61 63 74 20 75 73 65  |..#. Extract use|
00003c80  72 27 73 20 6e 61 6d 65  20 66 72 6f 6d 20 66 69  |r's name from fi|
00003c90  6c 65 0d 02 10 27 ea 20  4a 25 2c 46 25 2c 63 6f  |le...'. J%,F%,co|
00003ca0  75 6e 74 25 2c 6c 65 6e  25 2c 67 61 70 25 2c 61  |unt%,len%,gap%,a|
00003cb0  73 63 25 2c 6e 61 6d 65  24 0d 02 11 0e 46 25 3d  |sc%,name$....F%=|
00003cc0  ad 28 66 73 70 24 29 0d  02 12 0d 6c 65 6e 25 3d  |.(fsp$)....len%=|
00003cd0  9a 23 46 25 0d 02 13 0d  67 61 70 25 3d 9a 23 46  |.#F%....gap%=.#F|
00003ce0  25 0d 02 14 15 6e 61 6d  65 24 3d 22 22 3a 63 6f  |%....name$="":co|
00003cf0  75 6e 74 25 3d 31 0d 02  15 05 f5 0d 02 16 12 20  |unt%=1......... |
00003d00  e3 20 4a 25 3d 31 20 b8  20 67 61 70 25 0d 02 17  |. J%=1 . gap%...|
00003d10  0f 20 20 61 73 63 25 3d  9a 23 46 25 0d 02 18 06  |.  asc%=.#F%....|
00003d20  20 ed 0d 02 19 0e 20 61  73 63 25 3d 9a 23 46 25  | ..... asc%=.#F%|
00003d30  0d 02 1a 12 20 6e 61 6d  65 24 2b 3d bd 20 61 73  |.... name$+=. as|
00003d40  63 25 0d 02 1b 0e 20 63  6f 75 6e 74 25 2b 3d 31  |c%.... count%+=1|
00003d50  0d 02 1c 11 fd 20 63 6f  75 6e 74 25 3e 6c 65 6e  |..... count%>len|
00003d60  25 0d 02 1d 08 d9 23 46  25 0d 02 1e 0a 3d 6e 61  |%.....#F%....=na|
00003d70  6d 65 24 0d 02 1f 05 3a  0d 02 20 0d dd 20 f2 6e  |me$....:.. .. .n|
00003d80  65 77 75 72 6c 0d 02 21  22 f2 77 69 6d 70 5f 6f  |ewurl..!".wimp_o|
00003d90  70 65 6e 77 69 6e 64 6f  77 28 6e 65 77 75 72 6c  |penwindow(newurl|
00003da0  25 2c 30 2c 2d 31 29 0d  02 22 05 e1 0d 02 23 05  |%,0,-1).."....#.|
00003db0  3a 0d 02 24 0c dd 20 f2  75 72 6c 67 6f 0d 02 25  |:..$.. .urlgo..%|
00003dc0  25 75 72 6c 24 3d a4 77  69 6d 70 5f 67 65 74 69  |%url$=.wimp_geti|
00003dd0  63 6f 6e 74 65 78 74 28  6e 65 77 75 72 6c 25 2c  |context(newurl%,|
00003de0  30 29 0d 02 26 14 c8 99  20 26 36 45 33 38 31 2c  |0)..&... &6E381,|
00003df0  30 2c 75 72 6c 24 0d 02  27 1e f2 77 69 6d 70 5f  |0,url$..'..wimp_|
00003e00  63 6c 6f 73 65 77 69 6e  64 6f 77 28 6e 65 77 75  |closewindow(newu|
00003e10  72 6c 25 29 0d 02 28 05  e1 0d 02 29 05 3a 0d 02  |rl%)..(....).:..|
00003e20  2a 2c dd 20 f2 77 69 6d  70 5f 65 72 72 6f 72 28  |*,. .wimp_error(|
00003e30  74 69 74 6c 65 24 2c 65  72 72 6f 72 24 2c 62 75  |title$,error$,bu|
00003e40  74 74 6f 6e 2c 66 72 6f  6d 29 0d 02 2b 1b ea 20  |tton,from)..+.. |
00003e50  70 72 65 24 2c 66 6c 61  67 73 25 2c 6f 6b 2c 63  |pre$,flags%,ok,c|
00003e60  61 6e 63 65 6c 0d 02 2c  0b 70 72 65 24 3d 22 22  |ancel..,.pre$=""|
00003e70  0d 02 2d 1f e7 20 66 72  6f 6d 3d 31 20 70 72 65  |..-.. from=1 pre|
00003e80  24 3d 22 45 72 72 6f 72  20 66 72 6f 6d 20 22 0d  |$="Error from ".|
00003e90  02 2e 21 e7 20 66 72 6f  6d 3d 32 20 70 72 65 24  |..!. from=2 pre$|
00003ea0  3d 22 4d 65 73 73 61 67  65 20 66 72 6f 6d 20 22  |="Message from "|
00003eb0  0d 02 2f 12 66 72 6f 6d  3d 94 28 31 2d 66 72 6f  |../.from=.(1-fro|
00003ec0  6d 29 0d 02 30 1c e7 20  62 75 74 74 6f 6e 3d 31  |m)..0.. button=1|
00003ed0  20 6f 6b 3d 31 3a 63 61  6e 63 65 6c 3d 30 0d 02  | ok=1:cancel=0..|
00003ee0  31 1c e7 20 62 75 74 74  6f 6e 3d 32 20 6f 6b 3d  |1.. button=2 ok=|
00003ef0  30 3a 63 61 6e 63 65 6c  3d 31 0d 02 32 2e 66 6c  |0:cancel=1..2.fl|
00003f00  61 67 73 25 3d 6f 6b 2b  28 63 61 6e 63 65 6c 3c  |ags%=ok+(cancel<|
00003f10  3c 31 29 2b 28 30 3c 3c  32 29 2b 28 30 3c 3c 33  |<1)+(0<<2)+(0<<3|
00003f20  29 2b 28 31 3c 3c 34 29  0d 02 33 0d 77 69 6d 70  |)+(1<<4)..3.wimp|
00003f30  25 21 30 3d 30 0d 02 34  15 24 28 77 69 6d 70 25  |%!0=0..4.$(wimp%|
00003f40  2b 34 29 3d 65 72 72 6f  72 24 0d 02 35 31 c8 99  |+4)=error$..51..|
00003f50  22 57 69 6d 70 5f 52 65  70 6f 72 74 45 72 72 6f  |"Wimp_ReportErro|
00003f60  72 22 2c 77 69 6d 70 25  2c 66 6c 61 67 73 25 2c  |r",wimp%,flags%,|
00003f70  70 72 65 24 2b 74 69 74  6c 65 24 0d 02 36 05 e1  |pre$+title$..6..|
00003f80  0d 02 37 31 dd 20 a4 77  69 6d 70 5f 69 6e 69 74  |..71. .wimp_init|
00003f90  69 61 6c 69 73 65 28 6e  24 2c 77 69 6d 70 6d 65  |ialise(n$,wimpme|
00003fa0  6d 25 2c 69 63 6f 6e 6d  65 6d 25 2c 76 65 72 25  |m%,iconmem%,ver%|
00003fb0  29 0d 02 38 0e de 20 77  6d 73 67 73 25 20 33 0d  |)..8.. wmsgs% 3.|
00003fc0  02 39 0d 21 77 6d 73 67  73 25 3d 30 0d 02 3a 40  |.9.!wmsgs%=0..:@|
00003fd0  c8 99 22 57 69 6d 70 5f  49 6e 69 74 69 61 6c 69  |.."Wimp_Initiali|
00003fe0  73 65 22 2c 76 65 72 25  2c 26 34 42 35 33 34 31  |se",ver%,&4B5341|
00003ff0  35 34 2c 6e 24 2c 77 6d  73 67 73 25 20 b8 20 77  |54,n$,wmsgs% . w|
00004000  63 76 65 72 25 2c 77 74  61 73 6b 25 0d 02 3b 1f  |cver%,wtask%..;.|
00004010  e7 20 77 69 6d 70 6d 65  6d 25 3c 32 35 36 20 77  |. wimpmem%<256 w|
00004020  69 6d 70 6d 65 6d 25 3d  32 35 36 0d 02 3c 13 de  |impmem%=256..<..|
00004030  20 77 66 6f 6e 74 62 75  66 25 20 32 35 36 0d 02  | wfontbuf% 256..|
00004040  3d 17 de 20 77 66 6f 6e  74 62 75 66 74 65 6d 70  |=.. wfontbuftemp|
00004050  25 20 32 35 36 0d 02 3e  0f e3 20 4c 3d 30 20 b8  |% 256..>.. L=0 .|
00004060  20 32 35 35 0d 02 3f 13  20 20 77 66 6f 6e 74 62  | 255..?.  wfontb|
00004070  75 66 25 3f 4c 3d 30 0d  02 40 07 ed 20 4c 0d 02  |uf%?L=0..@.. L..|
00004080  41 12 de 20 77 6d 6f 75  73 65 62 6c 6b 25 20 39  |A.. wmouseblk% 9|
00004090  0d 02 42 14 de 20 77 71  75 69 74 73 65 6e 64 65  |..B.. wquitsende|
000040a0  72 25 20 34 0d 02 43 10  de 20 77 74 62 6c 6b 25  |r% 4..C.. wtblk%|
000040b0  20 33 32 30 0d 02 44 11  de 20 77 64 73 63 61 6c  | 320..D.. wdscal|
000040c0  65 25 20 38 30 0d 02 45  12 de 20 77 64 74 72 61  |e% 80..E.. wdtra|
000040d0  6e 73 25 20 33 30 30 0d  02 46 14 de 20 77 69 6d  |ns% 300..F.. wim|
000040e0  70 25 20 77 69 6d 70 6d  65 6d 25 0d 02 47 84 e7  |p% wimpmem%..G..|
000040f0  20 77 63 76 65 72 25 3c  76 65 72 25 20 f2 77 69  | wcver%<ver% .wi|
00004100  6d 70 5f 65 72 72 6f 72  28 22 57 49 4d 50 22 2c  |mp_error("WIMP",|
00004110  22 59 6f 75 20 6e 65 65  64 20 52 49 53 43 20 4f  |"You need RISC O|
00004120  53 20 22 2b c3 28 76 65  72 25 2f 31 30 30 29 2b  |S "+.(ver%/100)+|
00004130  22 20 6f 72 20 62 65 74  74 65 72 20 74 6f 20 72  |" or better to r|
00004140  75 6e 20 74 68 69 73 20  61 70 70 6c 69 63 61 74  |un this applicat|
00004150  69 6f 6e 2e 22 2c 31 2c  31 29 3a c8 99 22 57 69  |ion.",1,1):.."Wi|
00004160  6d 70 5f 43 6c 6f 73 65  44 6f 77 6e 22 3a e0 0d  |mp_CloseDown":..|
00004170  02 48 16 de 20 77 69 63  6f 6e 73 25 20 69 63 6f  |.H.. wicons% ico|
00004180  6e 6d 65 6d 25 0d 02 49  1e 77 69 63 6f 6e 6d 61  |nmem%..I.wiconma|
00004190  78 25 3d 77 69 63 6f 6e  73 25 2b 69 63 6f 6e 6d  |x%=wicons%+iconm|
000041a0  65 6d 25 0d 02 4a 0d 77  42 41 4e 4e 45 52 3d a3  |em%..J.wBANNER=.|
000041b0  0d 02 4b 0a 4e 55 4c 4c  3d a3 0d 02 4c 0f 66 69  |..K.NULL=...L.fi|
000041c0  6e 69 73 68 65 64 25 3d  a3 0d 02 4d 10 77 70 72  |nished%=...M.wpr|
000041d0  69 6e 74 69 6e 67 25 3d  a3 0d 02 4e 20 77 73 61  |inting%=...N wsa|
000041e0  76 65 64 72 61 67 25 3d  2d 31 3a 77 73 6c 69 64  |vedrag%=-1:wslid|
000041f0  65 64 72 61 67 25 3d 2d  31 0d 02 4f 1f de 20 77  |edrag%=-1..O.. w|
00004200  64 79 6e 61 6d 69 63 61  72 65 61 25 28 28 33 30  |dynamicarea%((30|
00004210  2a 38 29 2d 31 2c 32 29  0d 02 50 10 77 64 79 6e  |*8)-1,2)..P.wdyn|
00004220  61 6d 69 63 73 25 3d 30  0d 02 51 10 77 73 68 75  |amics%=0..Q.wshu|
00004230  74 64 6f 77 6e 25 3d 30  0d 02 52 14 f2 75 73 65  |tdown%=0..R..use|
00004240  72 5f 69 6e 69 74 69 61  6c 69 73 65 0d 02 53 16  |r_initialise..S.|
00004250  f2 77 69 6d 70 5f 63 68  65 63 6b 66 6f 72 6c 6f  |.wimp_checkforlo|
00004260  61 64 0d 02 54 0b 3d 77  74 61 73 6b 25 0d 02 55  |ad..T.=wtask%..U|
00004270  1f dd 20 f2 77 69 6d 70  5f 62 61 6e 6e 65 72 28  |.. .wimp_banner(|
00004280  77 68 61 6e 25 2c 64 65  6c 61 79 29 0d 02 56 07  |whan%,delay)..V.|
00004290  ea 20 74 0d 02 57 20 f2  77 69 6d 70 5f 6f 70 65  |. t..W .wimp_ope|
000042a0  6e 77 69 6e 64 6f 77 28  77 68 61 6e 25 2c 31 2c  |nwindow(whan%,1,|
000042b0  2d 31 29 0d 02 58 0d 77  42 41 4e 4e 45 52 3d b9  |-1)..X.wBANNER=.|
000042c0  0d 02 59 20 c8 99 22 4f  53 5f 52 65 61 64 4d 6f  |..Y .."OS_ReadMo|
000042d0  6e 6f 74 6f 6e 69 63 54  69 6d 65 22 20 b8 20 74  |notonicTime" . t|
000042e0  0d 02 5a 1c 77 64 65 6c  61 79 6d 61 78 25 3d 28  |..Z.wdelaymax%=(|
000042f0  64 65 6c 61 79 2a 31 30  30 29 2b 74 0d 02 5b 12  |delay*100)+t..[.|
00004300  77 62 61 6e 6e 65 72 25  3d 77 68 61 6e 25 0d 02  |wbanner%=whan%..|
00004310  5c 05 e1 0d 02 5d 22 dd  20 f2 77 69 6d 70 5f 69  |\....]". .wimp_i|
00004320  63 6f 6e 62 61 72 73 70  72 69 74 65 28 73 70 72  |conbarsprite(spr|
00004330  69 74 65 24 29 0d 02 5e  2d e7 20 77 42 41 52 54  |ite$)..^-. wBART|
00004340  45 58 54 3d a3 20 f2 77  69 6d 70 5f 69 62 61 72  |EXT=. .wimp_ibar|
00004350  73 70 72 69 74 65 70 28  73 70 72 69 74 65 24 29  |spritep(sprite$)|
00004360  3a e1 0d 02 5f 1b 24 77  69 73 70 72 69 74 65 32  |:..._.$wisprite2|
00004370  25 3d 22 73 22 2b 73 70  72 69 74 65 24 0d 02 60  |%="s"+sprite$..`|
00004380  1d 77 69 6d 70 25 21 30  3d 2d 32 3a 77 69 6d 70  |.wimp%!0=-2:wimp|
00004390  25 21 34 3d 77 69 68 61  6e 25 0d 02 61 20 c8 99  |%!4=wihan%..a ..|
000043a0  22 57 69 6d 70 5f 47 65  74 49 63 6f 6e 53 74 61  |"Wimp_GetIconSta|
000043b0  74 65 22 2c 2c 77 69 6d  70 25 0d 02 62 3e c8 99  |te",,wimp%..b>..|
000043c0  22 57 69 6d 70 5f 46 6f  72 63 65 52 65 64 72 61  |"Wimp_ForceRedra|
000043d0  77 22 2c 2d 32 2c 77 69  6d 70 25 21 38 2c 77 69  |w",-2,wimp%!8,wi|
000043e0  6d 70 25 21 31 32 2c 77  69 6d 70 25 21 31 36 2c  |mp%!12,wimp%!16,|
000043f0  77 69 6d 70 25 21 32 30  0d 02 63 05 e1 0d 02 64  |wimp%!20..c....d|
00004400  27 c8 99 22 57 69 6d 70  5f 46 6f 72 63 65 52 65  |'.."Wimp_ForceRe|
00004410  64 72 61 77 22 2c 2d 31  2c 30 2c 30 2c 31 45 36  |draw",-1,0,0,1E6|
00004420  2c 31 33 30 0d 02 65 05  e1 0d 02 66 2c dd 20 f2  |,130..e....f,. .|
00004430  77 69 6d 70 5f 6f 70 65  6e 77 69 6e 64 6f 77 28  |wimp_openwindow(|
00004440  77 68 61 6e 25 2c 63 65  6e 74 72 65 25 2c 73 74  |whan%,centre%,st|
00004450  61 63 6b 25 29 0d 02 67  24 ea 20 68 65 69 67 68  |ack%)..g$. heigh|
00004460  74 25 2c 78 25 2c 79 25  2c 64 72 61 67 25 2c 77  |t%,x%,y%,drag%,w|
00004470  72 69 74 65 25 2c 6f 6b  25 0d 02 68 11 e7 20 73  |rite%,ok%..h.. s|
00004480  74 61 63 6b 25 3d 2d 33  20 8c 0d 02 69 12 20 20  |tack%=-3 ...i.  |
00004490  21 77 69 6d 70 25 3d 77  68 61 6e 25 0d 02 6a 24  |!wimp%=whan%..j$|
000044a0  20 20 c8 99 22 57 69 6d  70 5f 47 65 74 57 69 6e  |  .."Wimp_GetWin|
000044b0  64 6f 77 53 74 61 74 65  22 2c 2c 77 69 6d 70 25  |dowState",,wimp%|
000044c0  0d 02 6b 16 20 20 63 73  74 61 63 6b 25 3d 77 69  |..k.  cstack%=wi|
000044d0  6d 70 25 21 32 38 0d 02  6c 05 cd 0d 02 6d 11 77  |mp%!28..l....m.w|
000044e0  69 6d 70 25 21 30 3d 77  68 61 6e 25 0d 02 6e 21  |imp%!0=whan%..n!|
000044f0  c8 99 22 57 69 6d 70 5f  47 65 74 57 69 6e 64 6f  |.."Wimp_GetWindo|
00004500  77 49 6e 66 6f 22 2c 2c  77 69 6d 70 25 0d 02 6f  |wInfo",,wimp%..o|
00004510  22 e7 20 63 65 6e 74 72  65 25 3d 31 20 f2 77 69  |". centre%=1 .wi|
00004520  6d 70 5f 63 65 6e 74 72  65 77 69 6e 64 6f 77 0d  |mp_centrewindow.|
00004530  02 70 30 e7 20 63 65 6e  74 72 65 25 3d 32 20 f2  |.p0. centre%=2 .|
00004540  77 69 6d 70 5f 70 6f 69  6e 74 65 72 63 65 6e 74  |wimp_pointercent|
00004550  72 65 77 69 6e 64 6f 77  28 77 68 61 6e 25 29 0d  |rewindow(whan%).|
00004560  02 71 18 61 25 3d a4 75  73 65 72 5f 70 61 6e 65  |.q.a%=.user_pane|
00004570  28 77 68 61 6e 25 29 0d  02 72 1e e7 20 73 74 61  |(whan%)..r.. sta|
00004580  63 6b 25 3d 2d 33 20 73  74 61 63 6b 25 3d 63 73  |ck%=-3 stack%=cs|
00004590  74 61 63 6b 25 0d 02 73  13 77 69 6d 70 25 21 32  |tack%..s.wimp%!2|
000045a0  38 3d 73 74 61 63 6b 25  0d 02 74 1e c8 99 22 57  |8=stack%..t..."W|
000045b0  69 6d 70 5f 4f 70 65 6e  57 69 6e 64 6f 77 22 2c  |imp_OpenWindow",|
000045c0  2c 77 69 6d 70 25 0d 02  75 22 c8 99 22 57 69 6d  |,wimp%..u".."Wim|
000045d0  70 5f 47 65 74 57 69 6e  64 6f 77 53 74 61 74 65  |p_GetWindowState|
000045e0  22 2c 2c 77 69 6d 70 25  0d 02 76 1c 68 65 69 67  |",,wimp%..v.heig|
000045f0  68 74 25 3d 77 69 6d 70  25 21 31 36 2d 77 69 6d  |ht%=wimp%!16-wim|
00004600  70 25 21 38 0d 02 77 16  79 25 3d 77 69 6d 70 25  |p%!8..w.y%=wimp%|
00004610  21 38 2b 68 65 69 67 68  74 25 0d 02 78 0e 78 25  |!8+height%..x.x%|
00004620  3d 77 69 6d 70 25 21 34  0d 02 79 28 f2 75 73 65  |=wimp%!4..y(.use|
00004630  72 5f 6f 70 65 6e 77 69  6e 64 6f 77 28 77 68 61  |r_openwindow(wha|
00004640  6e 25 2c 78 25 2c 79 25  2c 73 74 61 63 6b 25 29  |n%,x%,y%,stack%)|
00004650  0d 02 7a 25 e7 20 a4 75  73 65 72 5f 73 61 76 65  |..z%. .user_save|
00004660  66 69 6c 65 74 79 70 65  28 77 68 61 6e 25 29 3c  |filetype(whan%)<|
00004670  3e 22 22 20 8c 0d 02 7b  1c 20 20 64 72 61 67 25  |>"" ...{.  drag%|
00004680  3d 30 3a 77 72 69 74 65  25 3d 31 3a 6f 6b 25 3d  |=0:write%=1:ok%=|
00004690  32 0d 02 7c 2c 20 20 f2  75 73 65 72 5f 73 61 76  |2..|,  .user_sav|
000046a0  65 69 63 6f 6e 28 77 68  61 6e 25 2c 64 72 61 67  |eicon(whan%,drag|
000046b0  25 2c 77 72 69 74 65 25  2c 6f 6b 25 29 0d 02 7d  |%,write%,ok%)..}|
000046c0  22 20 20 f2 77 69 6d 70  5f 70 75 74 63 61 72 65  |"  .wimp_putcare|
000046d0  74 28 77 68 61 6e 25 2c  77 72 69 74 65 25 29 0d  |t(whan%,write%).|
000046e0  02 7e 05 cd 0d 02 7f 05  e1 0d 02 80 10 dd 20 f2  |.~............ .|
000046f0  77 69 6d 70 5f 70 6f 6c  6c 0d 02 81 0d ea 20 72  |wimp_poll..... r|
00004700  65 61 73 6f 6e 25 0d 02  82 05 f5 0d 02 83 0f 66  |eason%.........f|
00004710  69 6e 69 73 68 65 64 25  3d a3 0d 02 84 05 f5 0d  |inished%=.......|
00004720  02 85 29 c8 99 22 57 69  6d 70 5f 50 6f 6c 6c 22  |..).."Wimp_Poll"|
00004730  2c 30 2c 77 69 6d 70 25  20 b8 20 72 65 61 73 6f  |,0,wimp% . reaso|
00004740  6e 25 2c 77 69 6d 70 25  0d 02 86 10 c8 8e 20 72  |n%,wimp%...... r|
00004750  65 61 73 6f 6e 25 20 ca  0d 02 87 18 c9 20 30 20  |eason% ...... 0 |
00004760  3a 20 f2 77 69 6d 70 5f  70 6f 6c 6c 6e 75 6c 6c  |: .wimp_pollnull|
00004770  0d 02 88 20 c9 20 31 20  3a 20 f2 77 69 6d 70 5f  |... . 1 : .wimp_|
00004780  70 6f 6c 6c 72 65 64 72  61 77 77 69 6e 64 6f 77  |pollredrawwindow|
00004790  0d 02 89 1e c9 20 32 20  3a 20 f2 77 69 6d 70 5f  |..... 2 : .wimp_|
000047a0  70 6f 6c 6c 6f 70 65 6e  77 69 6e 64 6f 77 0d 02  |pollopenwindow..|
000047b0  8a 1f c9 20 33 20 3a 20  f2 77 69 6d 70 5f 70 6f  |... 3 : .wimp_po|
000047c0  6c 6c 63 6c 6f 73 65 77  69 6e 64 6f 77 0d 02 8b  |llclosewindow...|
000047d0  26 c9 20 34 20 3a 20 f2  75 73 65 72 5f 6c 65 61  |&. 4 : .user_lea|
000047e0  76 69 6e 67 77 69 6e 64  6f 77 28 77 69 6d 70 25  |vingwindow(wimp%|
000047f0  21 30 29 0d 02 8c 27 c9  20 35 20 3a 20 f2 75 73  |!0)...'. 5 : .us|
00004800  65 72 5f 65 6e 74 65 72  69 6e 67 77 69 6e 64 6f  |er_enteringwindo|
00004810  77 28 77 69 6d 70 25 21  30 29 0d 02 8d 1e c9 20  |w(wimp%!0)..... |
00004820  36 20 3a 20 f2 77 69 6d  70 5f 70 6f 6c 6c 6d 6f  |6 : .wimp_pollmo|
00004830  75 73 65 63 6c 69 63 6b  0d 02 8e 1f c9 20 37 20  |useclick..... 7 |
00004840  3a 20 f2 77 69 6d 70 5f  70 6f 6c 6c 73 61 76 65  |: .wimp_pollsave|
00004850  6d 65 73 73 61 67 65 0d  02 8f 1c c9 20 38 20 3a  |message..... 8 :|
00004860  20 f2 77 69 6d 70 5f 70  6f 6c 6c 6b 65 79 70 72  | .wimp_pollkeypr|
00004870  65 73 73 0d 02 90 21 c9  20 39 20 3a 20 f2 77 69  |ess...!. 9 : .wi|
00004880  6d 70 5f 70 6f 6c 6c 6d  65 6e 75 73 65 6c 65 63  |mp_pollmenuselec|
00004890  74 69 6f 6e 0d 02 91 0a  c9 20 31 30 20 3a 0d 02  |tion..... 10 :..|
000048a0  92 0a c9 20 31 31 20 3a  0d 02 93 0a c9 20 31 32  |... 11 :..... 12|
000048b0  20 3a 0d 02 94 0a c9 20  31 33 20 3a 0d 02 95 0a  | :..... 13 :....|
000048c0  c9 20 31 34 20 3a 0d 02  96 0a c9 20 31 35 20 3a  |. 14 :..... 15 :|
000048d0  0d 02 97 0a c9 20 31 36  20 3a 0d 02 98 1f c9 20  |..... 16 :..... |
000048e0  31 37 2c 31 38 20 3a 20  f2 77 69 6d 70 5f 70 6f  |17,18 : .wimp_po|
000048f0  6c 6c 6d 65 73 73 61 67  65 0d 02 99 0a c9 20 31  |llmessage..... 1|
00004900  39 20 3a 0d 02 9a 05 cb  0d 02 9b 0f fd 20 66 69  |9 :.......... fi|
00004910  6e 69 73 68 65 64 25 0d  02 9c 24 e7 20 77 73 68  |nished%...$. wsh|
00004920  75 74 64 6f 77 6e 25 3d  31 20 f2 77 69 6d 70 5f  |utdown%=1 .wimp_|
00004930  63 6c 6f 73 65 64 6f 77  6e 3a e1 0d 02 9d 15 fd  |closedown:......|
00004940  20 a4 75 73 65 72 5f 71  75 69 74 28 30 29 3d 31  | .user_quit(0)=1|
00004950  0d 02 9e 13 f2 77 69 6d  70 5f 63 6c 6f 73 65 64  |.....wimp_closed|
00004960  6f 77 6e 0d 02 9f 05 e1  0d 02 a0 17 dd 20 f2 77  |own.......... .w|
00004970  69 6d 70 5f 68 6f 75 72  67 6c 61 73 73 6f 6e 0d  |imp_hourglasson.|
00004980  02 a1 14 c8 99 22 48 6f  75 72 67 6c 61 73 73 5f  |....."Hourglass_|
00004990  4f 6e 22 0d 02 a2 05 e1  0d 02 a3 1f dd 20 f2 77  |On".......... .w|
000049a0  69 6d 70 5f 69 6e 69 74  6d 65 73 73 61 67 65 73  |imp_initmessages|
000049b0  28 66 69 6c 65 24 29 0d  02 a4 0b ea 20 73 69 7a  |(file$)..... siz|
000049c0  65 25 0d 02 a5 2e c8 99  22 4d 65 73 73 61 67 65  |e%......"Message|
000049d0  54 72 61 6e 73 5f 46 69  6c 65 49 6e 66 6f 22 2c  |Trans_FileInfo",|
000049e0  2c 66 69 6c 65 24 20 b8  20 2c 2c 73 69 7a 65 25  |,file$ . ,,size%|
000049f0  0d 02 a6 18 de 20 77 6d  73 67 5f 62 75 66 66 65  |..... wmsg_buffe|
00004a00  72 25 20 73 69 7a 65 25  0d 02 a7 10 de 20 77 6d  |r% size%..... wm|
00004a10  73 67 73 25 20 32 35 36  0d 02 a8 16 24 28 77 6d  |sgs% 256....$(wm|
00004a20  73 67 73 25 2b 31 36 29  3d 66 69 6c 65 24 0d 02  |sgs%+16)=file$..|
00004a30  a9 3b c8 99 22 4d 65 73  73 61 67 65 54 72 61 6e  |.;.."MessageTran|
00004a40  73 5f 4f 70 65 6e 46 69  6c 65 22 2c 77 6d 73 67  |s_OpenFile",wmsg|
00004a50  73 25 2c 77 6d 73 67 73  25 2b 31 36 2c 77 6d 73  |s%,wmsgs%+16,wms|
00004a60  67 5f 62 75 66 66 65 72  25 0d 02 aa 13 de 20 77  |g_buffer%..... w|
00004a70  6d 73 67 5f 6f 75 74 25  20 32 35 36 0d 02 ab 05  |msg_out% 256....|
00004a80  e1 0d 02 ac 25 dd 20 a4  77 69 6d 70 5f 6c 6f 61  |....%. .wimp_loa|
00004a90  64 77 69 6e 64 6f 77 28  66 69 6c 65 24 2c 77 69  |dwindow(file$,wi|
00004aa0  6e 24 2c 73 70 29 0d 02  ad 2d ea 20 6e 61 6d 65  |n$,sp)...-. name|
00004ab0  25 2c 77 68 61 6e 25 2c  69 63 6f 6e 73 25 2c 4c  |%,whan%,icons%,L|
00004ac0  2c 69 63 25 2c 69 6e 64  25 2c 73 70 72 25 2c 74  |,ic%,ind%,spr%,t|
00004ad0  78 74 25 0d 02 ae 0e de  20 6e 61 6d 65 25 20 31  |xt%..... name% 1|
00004ae0  31 0d 02 af 0f e3 20 4c  3d 30 20 b8 20 32 35 35  |1..... L=0 . 255|
00004af0  0d 02 b0 17 20 20 77 66  6f 6e 74 62 75 66 74 65  |....  wfontbufte|
00004b00  6d 70 25 3f 4c 3d 30 0d  02 b1 07 ed 20 4c 0d 02  |mp%?L=0..... L..|
00004b10  b2 20 c8 99 22 57 69 6d  70 5f 4f 70 65 6e 54 65  |. .."Wimp_OpenTe|
00004b20  6d 70 6c 61 74 65 22 2c  2c 66 69 6c 65 24 0d 02  |mplate",,file$..|
00004b30  b3 0f 24 6e 61 6d 65 25  3d 77 69 6e 24 0d 02 b4  |..$name%=win$...|
00004b40  54 c8 99 22 57 69 6d 70  5f 4c 6f 61 64 54 65 6d  |T.."Wimp_LoadTem|
00004b50  70 6c 61 74 65 22 2c 2c  77 69 6d 70 25 2c 77 69  |plate",,wimp%,wi|
00004b60  63 6f 6e 73 25 2c 77 69  63 6f 6e 6d 61 78 25 2c  |cons%,wiconmax%,|
00004b70  77 66 6f 6e 74 62 75 66  74 65 6d 70 25 2c 6e 61  |wfontbuftemp%,na|
00004b80  6d 65 25 2c 30 20 b8 20  2c 2c 77 69 63 6f 6e 73  |me%,0 . ,,wicons|
00004b90  25 0d 02 b5 0f e3 20 4c  3d 30 20 b8 20 32 35 35  |%..... L=0 . 255|
00004ba0  0d 02 b6 26 20 20 e7 20  77 66 6f 6e 74 62 75 66  |...&  . wfontbuf|
00004bb0  74 65 6d 70 25 3f 4c 20  77 66 6f 6e 74 62 75 66  |temp%?L wfontbuf|
00004bc0  25 3f 4c 2b 3d 31 0d 02  b7 07 ed 20 4c 0d 02 b8  |%?L+=1..... L...|
00004bd0  0c e7 20 73 70 3d 30 20  8c 0d 02 b9 10 20 20 77  |.. sp=0 .....  w|
00004be0  69 6d 70 25 21 36 34 3d  31 0d 02 ba 05 cc 0d 02  |imp%!64=1.......|
00004bf0  bb 11 20 20 77 69 6d 70  25 21 36 34 3d 73 70 0d  |..  wimp%!64=sp.|
00004c00  02 bc 15 20 20 69 63 6f  6e 73 25 3d 77 69 6d 70  |...  icons%=wimp|
00004c10  25 21 38 34 0d 02 bd 12  20 20 e7 20 69 63 6f 6e  |%!84....  . icon|
00004c20  73 25 3e 30 20 8c 0d 02  be 16 20 20 20 20 e3 20  |s%>0 .....    . |
00004c30  4c 3d 31 20 b8 20 69 63  6f 6e 73 25 0d 02 bf 21  |L=1 . icons%...!|
00004c40  20 20 20 20 20 20 69 63  25 3d 77 69 6d 70 25 2b  |      ic%=wimp%+|
00004c50  28 28 4c 2d 31 29 2a 33  32 29 2b 38 38 0d 02 c0  |((L-1)*32)+88...|
00004c60  20 20 20 20 20 20 20 69  6e 64 25 3d 28 28 69 63  |       ind%=((ic|
00004c70  25 21 31 36 29 3e 3e 38  29 20 80 20 31 0d 02 c1  |%!16)>>8) . 1...|
00004c80  20 20 20 20 20 20 20 73  70 72 25 3d 28 28 69 63  |       spr%=((ic|
00004c90  25 21 31 36 29 3e 3e 31  29 20 80 20 31 0d 02 c2  |%!16)>>1) . 1...|
00004ca0  1b 20 20 20 20 20 20 74  78 74 25 3d 28 69 63 25  |.      txt%=(ic%|
00004cb0  21 31 36 29 20 80 20 31  0d 02 c3 26 20 20 20 20  |!16) . 1...&    |
00004cc0  20 20 e7 20 69 6e 64 25  3d 31 20 80 20 73 70 72  |  . ind%=1 . spr|
00004cd0  25 3d 31 20 80 20 74 78  74 25 3d 30 20 8c 0d 02  |%=1 . txt%=0 ...|
00004ce0  c4 23 20 20 20 20 20 20  20 20 e7 20 28 69 63 25  |.#        . (ic%|
00004cf0  21 32 38 29 3c 3e 30 20  69 63 25 21 32 34 3d 73  |!28)<>0 ic%!24=s|
00004d00  70 0d 02 c5 0b 20 20 20  20 20 20 cd 0d 02 c6 0b  |p....      .....|
00004d10  20 20 20 20 ed 20 4c 0d  02 c7 07 20 20 cd 0d 02  |    . L....  ...|
00004d20  c8 05 cd 0d 02 c9 28 c8  99 22 57 69 6d 70 5f 43  |......(.."Wimp_C|
00004d30  72 65 61 74 65 57 69 6e  64 6f 77 22 2c 2c 77 69  |reateWindow",,wi|
00004d40  6d 70 25 20 b8 20 77 68  61 6e 25 0d 02 ca 1a c8  |mp% . whan%.....|
00004d50  99 22 57 69 6d 70 5f 43  6c 6f 73 65 54 65 6d 70  |."Wimp_CloseTemp|
00004d60  6c 61 74 65 22 0d 02 cb  0a 3d 77 68 61 6e 25 0d  |late"....=whan%.|
00004d70  02 cc 1d dd 20 a4 77 69  6d 70 5f 6d 65 73 73 6c  |.... .wimp_messl|
00004d80  6f 6f 6b 30 28 74 6f 6b  65 6e 24 29 0d 02 cd 0c  |ook0(token$)....|
00004d90  ea 20 76 61 6c 75 65 24  0d 02 ce 4f c8 99 22 58  |. value$...O.."X|
00004da0  4d 65 73 73 61 67 65 54  72 61 6e 73 5f 4c 6f 6f  |MessageTrans_Loo|
00004db0  6b 75 70 22 2c 77 6d 73  67 73 25 2c 74 6f 6b 65  |kup",wmsgs%,toke|
00004dc0  6e 24 2c 77 6d 73 67 5f  6f 75 74 25 2c 32 35 36  |n$,wmsg_out%,256|
00004dd0  2c 30 2c 30 2c 30 2c 30  20 b8 20 2c 2c 76 61 6c  |,0,0,0,0 . ,,val|
00004de0  75 65 24 20 3b 66 25 0d  02 cf 14 e7 20 28 66 25  |ue$ ;f%..... (f%|
00004df0  20 80 20 31 29 3d 31 20  3d 22 22 0d 02 d0 0b 3d  | . 1)=1 =""....=|
00004e00  76 61 6c 75 65 24 0d 02  d1 2a dd 20 f2 77 69 6d  |value$...*. .wim|
00004e10  70 5f 70 75 74 69 63 6f  6e 74 65 78 74 28 77 68  |p_puticontext(wh|
00004e20  61 6e 25 2c 69 63 6f 6e  25 2c 74 65 78 74 24 29  |an%,icon%,text$)|
00004e30  0d 02 d2 0e ea 20 66 6c  61 67 25 2c 74 24 0d 02  |..... flag%,t$..|
00004e40  d3 10 e7 20 77 68 61 6e  25 3d 2d 32 20 e1 0d 02  |... whan%=-2 ...|
00004e50  d4 11 77 69 6d 70 25 21  30 3d 77 68 61 6e 25 0d  |..wimp%!0=whan%.|
00004e60  02 d5 11 77 69 6d 70 25  21 34 3d 69 63 6f 6e 25  |...wimp%!4=icon%|
00004e70  0d 02 d6 20 c8 99 22 57  69 6d 70 5f 47 65 74 49  |... .."Wimp_GetI|
00004e80  63 6f 6e 53 74 61 74 65  22 2c 2c 77 69 6d 70 25  |conState",,wimp%|
00004e90  0d 02 d7 12 66 6c 61 67  25 3d 77 69 6d 70 25 21  |....flag%=wimp%!|
00004ea0  32 34 0d 02 d8 14 66 6c  61 67 25 3d 28 66 6c 61  |24....flag%=(fla|
00004eb0  67 25 3e 3e 38 29 0d 02  d9 60 e7 20 28 66 6c 61  |g%>>8)...`. (fla|
00004ec0  67 25 20 80 20 31 29 20  3d 30 20 f2 77 69 6d 70  |g% . 1) =0 .wimp|
00004ed0  5f 65 72 72 6f 72 28 61  70 70 6e 61 6d 65 24 2b  |_error(appname$+|
00004ee0  22 20 6c 69 62 72 61 72  79 22 2c 22 49 63 6f 6e  |" library","Icon|
00004ef0  20 22 2b c3 20 69 63 6f  6e 25 2b 22 20 69 73 20  | "+. icon%+" is |
00004f00  6e 6f 74 20 69 6e 64 69  72 65 63 74 65 64 22 2c  |not indirected",|
00004f10  31 2c 31 29 3a e1 0d 02  da 25 74 24 3d a4 77 69  |1,1):....%t$=.wi|
00004f20  6d 70 5f 67 65 74 69 63  6f 6e 74 65 78 74 28 77  |mp_geticontext(w|
00004f30  68 61 6e 25 2c 69 63 6f  6e 25 29 0d 02 db 10 e7  |han%,icon%).....|
00004f40  20 74 24 3d 74 65 78 74  24 20 e1 0d 02 dc 0d 77  | t$=text$ .....w|
00004f50  69 6d 70 25 21 38 3d 30  0d 02 dd 0e 77 69 6d 70  |imp%!8=0....wimp|
00004f60  25 21 31 32 3d 30 0d 02  de 12 24 28 77 69 6d 70  |%!12=0....$(wimp|
00004f70  25 21 32 38 29 3d 22 22  0d 02 df 20 c8 99 22 57  |%!28)=""... .."W|
00004f80  69 6d 70 5f 53 65 74 49  63 6f 6e 53 74 61 74 65  |imp_SetIconState|
00004f90  22 2c 2c 77 69 6d 70 25  0d 02 e0 0d 77 69 6d 70  |",,wimp%....wimp|
00004fa0  25 21 38 3d 30 0d 02 e1  0e 77 69 6d 70 25 21 31  |%!8=0....wimp%!1|
00004fb0  32 3d 30 0d 02 e2 15 24  28 77 69 6d 70 25 21 32  |2=0....$(wimp%!2|
00004fc0  38 29 3d 74 65 78 74 24  0d 02 e3 20 c8 99 22 57  |8)=text$... .."W|
00004fd0  69 6d 70 5f 53 65 74 49  63 6f 6e 53 74 61 74 65  |imp_SetIconState|
00004fe0  22 2c 2c 77 69 6d 70 25  0d 02 e4 11 77 69 6d 70  |",,wimp%....wimp|
00004ff0  25 21 30 3d 77 68 61 6e  25 0d 02 e5 11 77 69 6d  |%!0=whan%....wim|
00005000  70 25 21 34 3d 69 63 6f  6e 25 0d 02 e6 20 c8 99  |p%!4=icon%... ..|
00005010  22 57 69 6d 70 5f 47 65  74 49 63 6f 6e 53 74 61  |"Wimp_GetIconSta|
00005020  74 65 22 2c 2c 77 69 6d  70 25 0d 02 e7 20 6d 69  |te",,wimp%... mi|
00005030  6e 78 25 3d 77 69 6d 70  25 21 38 3a 6d 69 6e 79  |nx%=wimp%!8:miny|
00005040  25 3d 77 69 6d 70 25 21  31 32 0d 02 e8 21 6d 61  |%=wimp%!12...!ma|
00005050  78 78 25 3d 77 69 6d 70  25 21 31 36 3a 6d 61 78  |xx%=wimp%!16:max|
00005060  79 25 3d 77 69 6d 70 25  21 32 30 0d 02 e9 36 c8  |y%=wimp%!20...6.|
00005070  99 22 57 69 6d 70 5f 46  6f 72 63 65 52 65 64 72  |."Wimp_ForceRedr|
00005080  61 77 22 2c 77 68 61 6e  25 2c 6d 69 6e 78 25 2c  |aw",whan%,minx%,|
00005090  6d 69 6e 79 25 2c 6d 61  78 78 25 2c 6d 61 78 79  |miny%,maxx%,maxy|
000050a0  25 0d 02 ea 05 e1 0d 02  eb 27 dd 20 a4 77 69 6d  |%........'. .wim|
000050b0  70 5f 69 63 6f 6e 62 61  72 28 73 70 72 69 74 65  |p_iconbar(sprite|
000050c0  24 2c 74 65 78 74 24 2c  70 6f 73 25 29 0d 02 ec  |$,text$,pos%)...|
000050d0  0b 70 6f 73 25 2d 3d 32  0d 02 ed 21 de 20 77 69  |.pos%-=2...!. wi|
000050e0  73 70 72 69 74 65 32 25  20 32 30 2c 77 69 73 70  |sprite2% 20,wisp|
000050f0  72 5f 74 78 74 25 20 31  32 0d 02 ee 2d e7 20 74  |r_txt% 12...-. t|
00005100  65 78 74 24 3d 22 22 20  3d a4 77 69 6d 70 5f 69  |ext$="" =.wimp_i|
00005110  63 6f 6e 62 61 72 73 70  28 73 70 72 69 74 65 24  |conbarsp(sprite$|
00005120  2c 70 6f 73 25 29 0d 02  ef 1b 24 77 69 73 70 72  |,pos%)....$wispr|
00005130  69 74 65 32 25 3d 22 73  22 2b 73 70 72 69 74 65  |ite2%="s"+sprite|
00005140  24 0d 02 f0 1a 24 77 69  73 70 72 5f 74 78 74 25  |$....$wispr_txt%|
00005150  3d c0 74 65 78 74 24 2c  31 32 29 0d 02 f1 10 77  |=.text$,12)....w|
00005160  69 6d 70 25 21 30 3d 70  6f 73 25 0d 02 f2 0d 77  |imp%!0=pos%....w|
00005170  69 6d 70 25 21 34 3d 30  0d 02 f3 0f 77 69 6d 70  |imp%!4=0....wimp|
00005180  25 21 38 3d 2d 31 36 0d  02 f4 10 77 69 6d 70 25  |%!8=-16....wimp%|
00005190  21 31 32 3d 31 32 38 0d  02 f5 0f 77 69 6d 70 25  |!12=128....wimp%|
000051a0  21 31 36 3d 38 38 0d 02  f6 16 77 69 6d 70 25 21  |!16=88....wimp%!|
000051b0  32 30 3d 26 31 37 30 30  33 31 30 42 0d 02 f7 17  |20=&1700310B....|
000051c0  77 69 6d 70 25 21 32 34  3d 77 69 73 70 72 5f 74  |wimp%!24=wispr_t|
000051d0  78 74 25 0d 02 f8 17 77  69 6d 70 25 21 32 38 3d  |xt%....wimp%!28=|
000051e0  77 69 73 70 72 69 74 65  32 25 0d 02 f9 0f 77 69  |wisprite2%....wi|
000051f0  6d 70 25 21 33 32 3d 32  30 0d 02 fa 0e 77 42 41  |mp%!32=20....wBA|
00005200  52 54 45 58 54 3d b9 0d  02 fb 28 c8 99 20 22 57  |RTEXT=....(.. "W|
00005210  69 6d 70 5f 43 72 65 61  74 65 49 63 6f 6e 22 2c  |imp_CreateIcon",|
00005220  2c 77 69 6d 70 25 20 b8  20 77 69 68 61 6e 25 0d  |,wimp% . wihan%.|
00005230  02 fc 07 3d 2d 32 0d 02  fd 31 dd 20 a4 77 69 6d  |...=-2...1. .wim|
00005240  70 5f 63 72 65 61 74 65  6d 65 73 73 61 67 65 6d  |p_createmessagem|
00005250  65 6e 75 28 6d 65 6e 75  24 2c 74 69 74 6c 65 24  |enu(menu$,title$|
00005260  2c 73 69 7a 65 25 29 0d  02 fe 11 ea 20 6d 24 2c  |,size%)..... m$,|
00005270  69 74 65 6d 25 2c 69 24  0d 02 ff 11 e7 20 74 69  |item%,i$..... ti|
00005280  74 6c 65 24 3d 22 22 20  8c 0d 03 00 23 20 20 6d  |tle$="" ....#  m|
00005290  24 3d a4 77 69 6d 70 5f  6d 65 73 73 6c 6f 6f 6b  |$=.wimp_messlook|
000052a0  30 28 6d 65 6e 75 24 2b  22 54 22 29 0d 03 01 2b  |0(menu$+"T")...+|
000052b0  20 20 e7 20 6d 24 3d 22  22 20 6d 24 3d a4 77 69  |  . m$="" m$=.wi|
000052c0  6d 70 5f 6d 65 73 73 6c  6f 6f 6b 30 28 6d 65 6e  |mp_messlook0(men|
000052d0  75 24 2b 22 74 22 29 0d  03 02 14 20 20 e7 20 6d  |u$+"t")....  . m|
000052e0  24 3d 22 22 20 6d 24 3d  22 20 22 0d 03 03 05 cc  |$="" m$=" ".....|
000052f0  0d 03 04 0f 20 20 6d 24  3d 74 69 74 6c 65 24 0d  |....  m$=title$.|
00005300  03 05 05 cd 0d 03 06 0b  69 74 65 6d 25 3d 31 0d  |........item%=1.|
00005310  03 07 05 f5 0d 03 08 25  69 24 3d a4 77 69 6d 70  |.......%i$=.wimp|
00005320  5f 6d 65 73 73 6c 6f 6f  6b 30 28 6d 65 6e 75 24  |_messlook0(menu$|
00005330  2b c3 20 69 74 65 6d 25  29 0d 03 09 0e e7 20 69  |+. item%)..... i|
00005340  24 3c 3e 22 22 20 8c 0d  03 0a 10 20 20 6d 24 2b  |$<>"" .....  m$+|
00005350  3d 22 2f 22 2b 69 24 0d  03 0b 0e 20 20 69 74 65  |="/"+i$....  ite|
00005360  6d 25 2b 3d 31 0d 03 0c  05 cd 0d 03 0d 0b fd 20  |m%+=1.......... |
00005370  69 24 3d 22 22 0d 03 0e  16 e7 20 69 74 65 6d 25  |i$=""..... item%|
00005380  3d 31 20 6d 24 2b 3d 22  2f 20 22 0d 03 0f 1f 3d  |=1 m$+="/ "....=|
00005390  a4 77 69 6d 70 5f 63 72  65 61 74 65 6d 65 6e 75  |.wimp_createmenu|
000053a0  28 6d 24 2c 73 69 7a 65  25 29 0d 03 10 2b dd 20  |(m$,size%)...+. |
000053b0  f2 77 69 6d 70 5f 61 74  74 61 63 68 73 75 62 6d  |.wimp_attachsubm|
000053c0  65 6e 75 28 6d 65 6e 75  25 2c 69 74 65 6d 25 2c  |enu(menu%,item%,|
000053d0  73 75 62 25 29 0d 03 11  1e 21 28 6d 65 6e 75 25  |sub%)....!(menu%|
000053e0  2b 38 2b 28 69 74 65 6d  25 2a 32 34 29 29 3d 73  |+8+(item%*24))=s|
000053f0  75 62 25 0d 03 12 05 e1  0d 03 13 26 dd 20 f2 77  |ub%........&. .w|
00005400  69 6d 70 5f 6d 65 6e 75  64 69 73 61 62 6c 65 28  |imp_menudisable(|
00005410  77 6d 65 6e 75 25 2c 77  69 74 65 6d 25 29 0d 03  |wmenu%,witem%)..|
00005420  14 25 77 70 74 72 25 3d  28 77 6d 65 6e 75 25 2b  |.%wptr%=(wmenu%+|
00005430  32 38 29 2b 28 32 34 2a  28 77 69 74 65 6d 25 2d  |28)+(24*(witem%-|
00005440  31 29 29 0d 03 15 1d 77  70 74 72 25 21 38 3d 77  |1))....wptr%!8=w|
00005450  70 74 72 25 21 38 20 84  20 28 31 3c 3c 32 32 29  |ptr%!8 . (1<<22)|
00005460  0d 03 16 05 e1 0d 03 17  23 dd 20 f2 77 69 6d 70  |........#. .wimp|
00005470  5f 6d 65 6e 75 74 69 63  6b 28 77 6d 65 6e 75 25  |_menutick(wmenu%|
00005480  2c 77 69 74 65 6d 25 29  0d 03 18 25 77 70 74 72  |,witem%)...%wptr|
00005490  25 3d 28 77 6d 65 6e 75  25 2b 32 38 29 2b 28 32  |%=(wmenu%+28)+(2|
000054a0  34 2a 28 77 69 74 65 6d  25 2d 31 29 29 0d 03 19  |4*(witem%-1))...|
000054b0  15 21 77 70 74 72 25 3d  21 77 70 74 72 25 20 82  |.!wptr%=!wptr% .|
000054c0  20 31 0d 03 1a 05 e1 0d  03 1b 25 dd 20 a4 77 69  | 1........%. .wi|
000054d0  6d 70 5f 67 65 74 6d 65  6e 75 74 65 78 74 28 6d  |mp_getmenutext(m|
000054e0  68 61 6e 25 2c 77 69 74  65 6d 25 29 0d 03 1c 0e  |han%,witem%)....|
000054f0  ea 20 70 25 2c 66 6c 61  67 25 0d 03 1d 19 70 25  |. p%,flag%....p%|
00005500  3d 34 30 2b 28 28 77 69  74 65 6d 25 2d 31 29 2a  |=40+((witem%-1)*|
00005510  32 34 29 0d 03 1e 16 66  6c 61 67 25 3d 6d 68 61  |24)....flag%=mha|
00005520  6e 25 21 28 70 25 2d 34  29 0d 03 1f 14 66 6c 61  |n%!(p%-4)....fla|
00005530  67 25 3d 28 66 6c 61 67  25 3e 3e 38 29 0d 03 20  |g%=(flag%>>8).. |
00005540  21 e7 20 28 66 6c 61 67  25 20 80 20 31 29 20 3d  |!. (flag% . 1) =|
00005550  31 20 3d 24 28 6d 68 61  6e 25 21 70 25 29 0d 03  |1 =$(mhan%!p%)..|
00005560  21 10 3d 24 28 6d 68 61  6e 25 2b 70 25 29 0d 03  |!.=$(mhan%+p%)..|
00005570  22 18 dd 20 f2 77 69 6d  70 5f 68 6f 75 72 67 6c  |".. .wimp_hourgl|
00005580  61 73 73 6f 66 66 0d 03  23 15 c8 99 22 48 6f 75  |assoff..#..."Hou|
00005590  72 67 6c 61 73 73 5f 4f  66 66 22 0d 03 24 05 e1  |rglass_Off"..$..|
000055a0  0d 03 25 20 dd 20 f2 77  69 6d 70 5f 63 6c 6f 73  |..% . .wimp_clos|
000055b0  65 77 69 6e 64 6f 77 28  77 69 6e 64 6f 77 25 29  |ewindow(window%)|
000055c0  0d 03 26 13 77 69 6d 70  25 21 30 3d 77 69 6e 64  |..&.wimp%!0=wind|
000055d0  6f 77 25 0d 03 27 1f c8  99 22 57 69 6d 70 5f 43  |ow%..'..."Wimp_C|
000055e0  6c 6f 73 65 57 69 6e 64  6f 77 22 2c 2c 77 69 6d  |loseWindow",,wim|
000055f0  70 25 0d 03 28 1e f2 75  73 65 72 5f 63 6c 6f 73  |p%..(..user_clos|
00005600  65 77 69 6e 64 6f 77 28  77 69 6e 64 6f 77 25 29  |ewindow(window%)|
00005610  0d 03 29 05 e1 0d 03 2a  21 dd 20 f2 77 69 6d 70  |..)....*!. .wimp|
00005620  5f 70 75 74 63 61 72 65  74 28 77 68 61 6e 25 2c  |_putcaret(whan%,|
00005630  69 63 6f 6e 25 29 0d 03  2b 0f ea 20 78 6f 66 66  |icon%)..+.. xoff|
00005640  2c 79 6f 66 66 0d 03 2c  13 78 6f 66 66 3d 31 45  |,yoff..,.xoff=1E|
00005650  36 3a 79 6f 66 66 3d 30  0d 03 2d 39 c8 99 22 57  |6:yoff=0..-9.."W|
00005660  69 6d 70 5f 53 65 74 43  61 72 65 74 50 6f 73 69  |imp_SetCaretPosi|
00005670  74 69 6f 6e 22 2c 77 68  61 6e 25 2c 69 63 6f 6e  |tion",whan%,icon|
00005680  25 2c 78 6f 66 66 2c 79  6f 66 66 2c 2d 31 2c 2d  |%,xoff,yoff,-1,-|
00005690  31 0d 03 2e 05 e1 0d 03  2f 17 dd 20 f2 77 69 6d  |1......./.. .wim|
000056a0  70 5f 71 75 69 74 28 74  79 70 65 25 29 0d 03 30  |p_quit(type%)..0|
000056b0  0f e7 20 74 79 70 65 25  3d 31 20 8c 0d 03 31 14  |.. type%=1 ...1.|
000056c0  20 20 f2 77 69 6d 70 5f  73 61 76 65 77 69 6d 70  |  .wimp_savewimp|
000056d0  0d 03 32 26 20 20 c8 99  22 57 69 6d 70 5f 47 65  |..2&  .."Wimp_Ge|
000056e0  74 43 61 72 65 74 50 6f  73 69 74 69 6f 6e 22 2c  |tCaretPosition",|
000056f0  2c 77 69 6d 70 25 0d 03  33 13 20 20 77 69 6d 70  |,wimp%..3.  wimp|
00005700  25 21 32 34 3d 26 31 46  43 0d 03 34 2f 20 20 c8  |%!24=&1FC..4/  .|
00005710  99 22 57 69 6d 70 5f 53  65 6e 64 4d 65 73 73 61  |."Wimp_SendMessa|
00005720  67 65 22 2c 38 2c 77 69  6d 70 25 2c 77 71 75 69  |ge",8,wimp%,wqui|
00005730  74 73 65 6e 64 65 72 25  0d 03 35 14 20 20 f2 77  |tsender%..5.  .w|
00005740  69 6d 70 5f 6c 6f 61 64  77 69 6d 70 0d 03 36 23  |imp_loadwimp..6#|
00005750  20 20 f4 20 53 59 53 22  54 61 73 6b 4d 61 6e 61  |  . SYS"TaskMana|
00005760  67 65 72 5f 53 68 75 74  64 6f 77 6e 22 2c 38 0d  |ger_Shutdown",8.|
00005770  03 37 05 cc 0d 03 38 11  20 20 66 69 6e 69 73 68  |.7....8.  finish|
00005780  65 64 25 3d b9 0d 03 39  05 cd 0d 03 3a 05 e1 0d  |ed%=...9....:...|
00005790  03 3b 27 dd 20 f2 77 69  6d 70 5f 6d 65 6e 75 70  |.;'. .wimp_menup|
000057a0  6f 70 75 70 28 6d 68 61  6e 25 2c 62 61 72 25 2c  |opup(mhan%,bar%,|
000057b0  78 25 2c 79 25 29 0d 03  3c 0d c8 8e 20 62 61 72  |x%,y%)..<... bar|
000057c0  25 20 ca 0d 03 3d 30 c9  20 31 20 20 20 20 3a 20  |% ...=0. 1    : |
000057d0  c8 99 22 57 69 6d 70 5f  43 72 65 61 74 65 4d 65  |.."Wimp_CreateMe|
000057e0  6e 75 22 2c 2c 6d 68 61  6e 25 2c 78 25 2b 36 34  |nu",,mhan%,x%+64|
000057f0  2c 39 36 0d 03 3e 24 c9  20 32 20 20 20 20 3a 20  |,96..>$. 2    : |
00005800  f2 77 69 6d 70 5f 63 65  6e 74 72 65 6d 65 6e 75  |.wimp_centremenu|
00005810  28 6d 68 61 6e 25 29 0d  03 3f 2e 7f 20 3a 20 c8  |(mhan%)..?.. : .|
00005820  99 22 57 69 6d 70 5f 43  72 65 61 74 65 4d 65 6e  |."Wimp_CreateMen|
00005830  75 22 2c 2c 6d 68 61 6e  25 2c 78 25 2b 36 34 2c  |u",,mhan%,x%+64,|
00005840  79 25 2b 32 30 0d 03 40  05 cb 0d 03 41 1f f2 77  |y%+20..@....A..w|
00005850  69 6d 70 5f 6d 65 6e 75  6a 75 73 74 6f 70 65 6e  |imp_menujustopen|
00005860  65 64 28 6d 68 61 6e 25  29 0d 03 42 14 77 6c 61  |ed(mhan%)..B.wla|
00005870  73 74 6d 65 6e 75 25 3d  6d 68 61 6e 25 0d 03 43  |stmenu%=mhan%..C|
00005880  05 e1 0d 03 44 26 dd 20  a4 77 69 6d 70 5f 67 65  |....D&. .wimp_ge|
00005890  74 77 69 6e 64 6f 77 73  69 7a 65 28 77 68 61 6e  |twindowsize(whan|
000058a0  25 2c 73 69 64 65 25 29  0d 03 45 11 77 69 6d 70  |%,side%)..E.wimp|
000058b0  25 21 30 3d 77 68 61 6e  25 0d 03 46 22 c8 99 22  |%!0=whan%..F".."|
000058c0  57 69 6d 70 5f 47 65 74  57 69 6e 64 6f 77 53 74  |Wimp_GetWindowSt|
000058d0  61 74 65 22 2c 2c 77 69  6d 70 25 0d 03 47 23 e7  |ate",,wimp%..G#.|
000058e0  20 73 69 64 65 25 3d 30  20 3d 28 77 69 6d 70 25  | side%=0 =(wimp%|
000058f0  21 31 32 2d 77 69 6d 70  25 21 34 29 2b 32 0d 03  |!12-wimp%!4)+2..|
00005900  48 1f e7 20 73 69 64 65  25 3d 31 20 3d 77 69 6d  |H.. side%=1 =wim|
00005910  70 25 21 31 36 2d 77 69  6d 70 25 21 38 0d 03 49  |p%!16-wimp%!8..I|
00005920  06 3d 30 0d 03 4a 2c dd  20 f2 77 69 6d 70 5f 6f  |.=0..J,. .wimp_o|
00005930  70 65 6e 77 69 6e 64 6f  77 61 74 28 77 68 61 6e  |penwindowat(whan|
00005940  25 2c 78 25 2c 79 25 2c  73 74 61 63 6b 25 29 0d  |%,x%,y%,stack%).|
00005950  03 4b 25 ea 20 77 69 64  74 68 25 2c 68 65 69 67  |.K%. width%,heig|
00005960  68 74 25 2c 64 72 61 67  25 2c 77 72 69 74 65 25  |ht%,drag%,write%|
00005970  2c 6f 6b 25 0d 03 4c 11  e7 20 73 74 61 63 6b 25  |,ok%..L.. stack%|
00005980  3d 2d 33 20 8c 0d 03 4d  12 20 20 21 77 69 6d 70  |=-3 ...M.  !wimp|
00005990  25 3d 77 68 61 6e 25 0d  03 4e 24 20 20 c8 99 22  |%=whan%..N$  .."|
000059a0  57 69 6d 70 5f 47 65 74  57 69 6e 64 6f 77 53 74  |Wimp_GetWindowSt|
000059b0  61 74 65 22 2c 2c 77 69  6d 70 25 0d 03 4f 16 20  |ate",,wimp%..O. |
000059c0  20 63 73 74 61 63 6b 25  3d 77 69 6d 70 25 21 32  | cstack%=wimp%!2|
000059d0  38 0d 03 50 05 cd 0d 03  51 11 77 69 6d 70 25 21  |8..P....Q.wimp%!|
000059e0  30 3d 77 68 61 6e 25 0d  03 52 22 c8 99 22 57 69  |0=whan%..R".."Wi|
000059f0  6d 70 5f 47 65 74 57 69  6e 64 6f 77 53 74 61 74  |mp_GetWindowStat|
00005a00  65 22 2c 2c 77 69 6d 70  25 0d 03 53 1b 77 69 64  |e",,wimp%..S.wid|
00005a10  74 68 25 3d 77 69 6d 70  25 21 31 32 2d 77 69 6d  |th%=wimp%!12-wim|
00005a20  70 25 21 34 0d 03 54 1c  68 65 69 67 68 74 25 3d  |p%!4..T.height%=|
00005a30  77 69 6d 70 25 21 31 36  2d 77 69 6d 70 25 21 38  |wimp%!16-wimp%!8|
00005a40  0d 03 55 11 77 69 6d 70  25 21 30 3d 77 68 61 6e  |..U.wimp%!0=whan|
00005a50  25 0d 03 56 0e 77 69 6d  70 25 21 34 3d 78 25 0d  |%..V.wimp%!4=x%.|
00005a60  03 57 16 77 69 6d 70 25  21 38 3d 79 25 2d 68 65  |.W.wimp%!8=y%-he|
00005a70  69 67 68 74 25 0d 03 58  16 77 69 6d 70 25 21 31  |ight%..X.wimp%!1|
00005a80  32 3d 78 25 2b 77 69 64  74 68 25 0d 03 59 0f 77  |2=x%+width%..Y.w|
00005a90  69 6d 70 25 21 31 36 3d  79 25 0d 03 5a 1e e7 20  |imp%!16=y%..Z.. |
00005aa0  73 74 61 63 6b 25 3d 2d  33 20 73 74 61 63 6b 25  |stack%=-3 stack%|
00005ab0  3d 63 73 74 61 63 6b 25  0d 03 5b 13 77 69 6d 70  |=cstack%..[.wimp|
00005ac0  25 21 32 38 3d 73 74 61  63 6b 25 0d 03 5c 19 61  |%!28=stack%..\.a|
00005ad0  25 3d a4 75 73 65 72 5f  70 61 6e 65 28 73 74 61  |%=.user_pane(sta|
00005ae0  63 6b 25 29 0d 03 5d 1d  e7 20 61 25 3d 77 68 61  |ck%)..].. a%=wha|
00005af0  6e 25 20 77 69 6d 70 25  21 32 38 3d 77 68 61 6e  |n% wimp%!28=whan|
00005b00  25 0d 03 5e 1e c8 99 22  57 69 6d 70 5f 4f 70 65  |%..^..."Wimp_Ope|
00005b10  6e 57 69 6e 64 6f 77 22  2c 2c 77 69 6d 70 25 0d  |nWindow",,wimp%.|
00005b20  03 5f 28 f2 75 73 65 72  5f 6f 70 65 6e 77 69 6e  |._(.user_openwin|
00005b30  64 6f 77 28 77 68 61 6e  25 2c 78 25 2c 79 25 2c  |dow(whan%,x%,y%,|
00005b40  73 74 61 63 6b 25 29 0d  03 60 25 e7 20 a4 75 73  |stack%)..`%. .us|
00005b50  65 72 5f 73 61 76 65 66  69 6c 65 74 79 70 65 28  |er_savefiletype(|
00005b60  77 68 61 6e 25 29 3c 3e  22 22 20 8c 0d 03 61 1c  |whan%)<>"" ...a.|
00005b70  20 20 64 72 61 67 25 3d  30 3a 77 72 69 74 65 25  |  drag%=0:write%|
00005b80  3d 31 3a 6f 6b 25 3d 32  0d 03 62 2c 20 20 f2 75  |=1:ok%=2..b,  .u|
00005b90  73 65 72 5f 73 61 76 65  69 63 6f 6e 28 77 68 61  |ser_saveicon(wha|
00005ba0  6e 25 2c 64 72 61 67 25  2c 77 72 69 74 65 25 2c  |n%,drag%,write%,|
00005bb0  6f 6b 25 29 0d 03 63 22  20 20 f2 77 69 6d 70 5f  |ok%)..c"  .wimp_|
00005bc0  70 75 74 63 61 72 65 74  28 77 68 61 6e 25 2c 77  |putcaret(whan%,w|
00005bd0  72 69 74 65 25 29 0d 03  64 05 cd 0d 03 65 05 e1  |rite%)..d....e..|
00005be0  0d 03 66 80 dd 20 a4 77  69 6d 70 5f 63 72 65 61  |..f.. .wimp_crea|
00005bf0  74 65 77 69 6e 64 6f 77  28 76 6d 69 6e 78 25 2c  |tewindow(vminx%,|
00005c00  76 6d 69 6e 79 25 2c 76  6d 61 78 78 25 2c 76 6d  |vminy%,vmaxx%,vm|
00005c10  61 78 79 25 2c 77 6d 69  6e 78 25 2c 77 6d 69 6e  |axy%,wminx%,wmin|
00005c20  79 25 2c 77 6d 61 78 78  25 2c 77 6d 61 78 79 25  |y%,wmaxx%,wmaxy%|
00005c30  2c 66 6c 61 67 73 25 2c  77 6f 72 6b 63 6f 6c 25  |,flags%,workcol%|
00005c40  2c 77 62 75 74 74 6f 6e  25 2c 74 69 74 6c 65 24  |,wbutton%,title$|
00005c50  2c 6d 61 78 69 6e 64 25  2c 73 61 72 65 61 25 29  |,maxind%,sarea%)|
00005c60  0d 03 67 2c ea 20 77 66  6c 61 67 73 25 2c 74 66  |..g,. wflags%,tf|
00005c70  6c 61 67 73 25 2c 6c 65  6e 25 2c 6e 61 6d 65 25  |lags%,len%,name%|
00005c80  2c 77 68 61 6e 25 2c 74  69 6e 64 25 0d 03 68 3f  |,whan%,tind%..h?|
00005c90  21 77 69 6d 70 25 3d 76  6d 69 6e 78 25 3a 77 69  |!wimp%=vminx%:wi|
00005ca0  6d 70 25 21 34 3d 76 6d  69 6e 79 25 3a 77 69 6d  |mp%!4=vminy%:wim|
00005cb0  70 25 21 38 3d 76 6d 61  78 78 25 3a 77 69 6d 70  |p%!8=vmaxx%:wimp|
00005cc0  25 21 31 32 3d 76 6d 61  78 79 25 0d 03 69 19 77  |%!12=vmaxy%..i.w|
00005cd0  69 6d 70 25 21 31 36 3d  30 3a 77 69 6d 70 25 21  |imp%!16=0:wimp%!|
00005ce0  32 30 3d 30 0d 03 6a 0f  77 69 6d 70 25 21 32 34  |20=0..j.wimp%!24|
00005cf0  3d 2d 31 0d 03 6b 21 77  66 6c 61 67 73 25 3d 28  |=-1..k!wflags%=(|
00005d00  31 3c 3c 31 29 2b 28 31  3c 3c 38 29 2b 28 31 3c  |1<<1)+(1<<8)+(1<|
00005d10  3c 33 31 29 0d 03 6c 24  e7 20 28 66 6c 61 67 73  |<31)..l$. (flags|
00005d20  25 3e 3e 30 20 80 20 31  29 20 77 66 6c 61 67 73  |%>>0 . 1) wflags|
00005d30  25 2b 3d 31 3c 3c 32 36  0d 03 6d 24 e7 20 28 66  |%+=1<<26..m$. (f|
00005d40  6c 61 67 73 25 3e 3e 31  20 80 20 31 29 20 77 66  |lags%>>1 . 1) wf|
00005d50  6c 61 67 73 25 2b 3d 31  3c 3c 32 35 0d 03 6e 24  |lags%+=1<<25..n$|
00005d60  e7 20 28 66 6c 61 67 73  25 3e 3e 32 20 80 20 31  |. (flags%>>2 . 1|
00005d70  29 20 77 66 6c 61 67 73  25 2b 3d 31 3c 3c 32 34  |) wflags%+=1<<24|
00005d80  0d 03 6f 24 e7 20 28 66  6c 61 67 73 25 3e 3e 33  |..o$. (flags%>>3|
00005d90  20 80 20 31 29 20 77 66  6c 61 67 73 25 2b 3d 31  | . 1) wflags%+=1|
00005da0  3c 3c 33 30 0d 03 70 24  e7 20 28 66 6c 61 67 73  |<<30..p$. (flags|
00005db0  25 3e 3e 34 20 80 20 31  29 20 77 66 6c 61 67 73  |%>>4 . 1) wflags|
00005dc0  25 2b 3d 31 3c 3c 32 38  0d 03 71 24 e7 20 28 66  |%+=1<<28..q$. (f|
00005dd0  6c 61 67 73 25 3e 3e 35  20 80 20 31 29 20 77 66  |lags%>>5 . 1) wf|
00005de0  6c 61 67 73 25 2b 3d 31  3c 3c 32 39 0d 03 72 24  |lags%+=1<<29..r$|
00005df0  e7 20 28 66 6c 61 67 73  25 3e 3e 36 20 80 20 31  |. (flags%>>6 . 1|
00005e00  29 20 77 66 6c 61 67 73  25 2b 3d 31 3c 3c 32 37  |) wflags%+=1<<27|
00005e10  0d 03 73 23 e7 20 28 66  6c 61 67 73 25 3e 3e 37  |..s#. (flags%>>7|
00005e20  20 80 20 31 29 20 77 66  6c 61 67 73 25 2b 3d 31  | . 1) wflags%+=1|
00005e30  3c 3c 34 0d 03 74 23 e7  20 28 66 6c 61 67 73 25  |<<4..t#. (flags%|
00005e40  3e 3e 38 20 80 20 31 29  20 77 66 6c 61 67 73 25  |>>8 . 1) wflags%|
00005e50  2b 3d 31 3c 3c 35 0d 03  75 19 74 69 6e 64 25 3d  |+=1<<5..u.tind%=|
00005e60  28 66 6c 61 67 73 25 3e  3e 39 20 80 20 31 29 0d  |(flags%>>9 . 1).|
00005e70  03 76 1a e7 20 a9 28 74  69 74 6c 65 24 29 3e 31  |.v.. .(title$)>1|
00005e80  31 20 74 69 6e 64 25 3d  31 0d 03 77 14 77 69 6d  |1 tind%=1..w.wim|
00005e90  70 25 21 32 38 3d 77 66  6c 61 67 73 25 0d 03 78  |p%!28=wflags%..x|
00005ea0  36 77 69 6d 70 25 3f 33  32 3d 37 3a 77 69 6d 70  |6wimp%?32=7:wimp|
00005eb0  25 3f 33 33 3d 32 3a 77  69 6d 70 25 3f 33 34 3d  |%?33=2:wimp%?34=|
00005ec0  37 3a 77 69 6d 70 25 3f  33 35 3d 77 6f 72 6b 63  |7:wimp%?35=workc|
00005ed0  6f 6c 25 0d 03 79 30 77  69 6d 70 25 3f 33 36 3d  |ol%..y0wimp%?36=|
00005ee0  33 3a 77 69 6d 70 25 3f  33 37 3d 31 3a 77 69 6d  |3:wimp%?37=1:wim|
00005ef0  70 25 3f 33 38 3d 31 32  3a 77 69 6d 70 25 3f 33  |p%?38=12:wimp%?3|
00005f00  39 3d 30 0d 03 7a 43 77  69 6d 70 25 21 34 30 3d  |9=0..zCwimp%!40=|
00005f10  77 6d 69 6e 78 25 3a 77  69 6d 70 25 21 34 34 3d  |wminx%:wimp%!44=|
00005f20  77 6d 69 6e 79 25 3a 77  69 6d 70 25 21 34 38 3d  |wminy%:wimp%!48=|
00005f30  77 6d 61 78 78 25 3a 77  69 6d 70 25 21 35 32 3d  |wmaxx%:wimp%!52=|
00005f40  77 6d 61 78 79 25 0d 03  7b 12 74 66 6c 61 67 73  |wmaxy%..{.tflags|
00005f50  25 3d 25 31 31 30 30 31  0d 03 7c 15 74 66 6c 61  |%=%11001..|.tfla|
00005f60  67 73 25 2b 3d 74 69 6e  64 25 3c 3c 38 0d 03 7d  |gs%+=tind%<<8..}|
00005f70  14 77 69 6d 70 25 21 35  36 3d 74 66 6c 61 67 73  |.wimp%!56=tflags|
00005f80  25 0d 03 7e 2c e7 20 77  62 75 74 74 6f 6e 25 3d  |%..~,. wbutton%=|
00005f90  31 20 77 69 6d 70 25 21  36 30 3d 33 3c 3c 31 32  |1 wimp%!60=3<<12|
00005fa0  20 8b 20 77 69 6d 70 25  21 36 30 3d 30 0d 03 7f  | . wimp%!60=0...|
00005fb0  2b e7 20 73 61 72 65 61  25 3d 30 20 77 69 6d 70  |+. sarea%=0 wimp|
00005fc0  25 21 36 34 3d 31 20 8b  20 77 69 6d 70 25 21 36  |%!64=1 . wimp%!6|
00005fd0  34 3d 73 61 72 65 61 25  0d 03 80 2f 77 69 6d 70  |4=sarea%.../wimp|
00005fe0  25 3f 36 38 3d 30 3a 77  69 6d 70 25 3f 36 39 3d  |%?68=0:wimp%?69=|
00005ff0  30 3a 77 69 6d 70 25 3f  37 30 3d 30 3a 77 69 6d  |0:wimp%?70=0:wim|
00006000  70 25 3f 37 31 3d 30 0d  03 81 0f e7 20 74 69 6e  |p%?71=0..... tin|
00006010  64 25 3d 30 20 8c 0d 03  82 18 20 20 24 28 77 69  |d%=0 .....  $(wi|
00006020  6d 70 25 2b 37 32 29 3d  74 69 74 6c 65 24 0d 03  |mp%+72)=title$..|
00006030  83 05 cc 0d 03 84 16 20  20 6c 65 6e 25 3d a9 28  |.......  len%=.(|
00006040  74 69 74 6c 65 24 29 2b  31 0d 03 85 12 20 20 de  |title$)+1....  .|
00006050  20 6e 61 6d 65 25 20 6c  65 6e 25 0d 03 86 21 20  | name% len%...! |
00006060  20 e7 20 6d 61 78 69 6e  64 25 3c 6c 65 6e 25 20  | . maxind%<len% |
00006070  6d 61 78 69 6e 64 25 3d  6c 65 6e 25 0d 03 87 15  |maxind%=len%....|
00006080  20 20 24 28 6e 61 6d 65  25 29 3d 74 69 74 6c 65  |  $(name%)=title|
00006090  24 0d 03 88 14 20 20 77  69 6d 70 25 21 37 32 3d  |$....  wimp%!72=|
000060a0  6e 61 6d 65 25 0d 03 89  11 20 20 77 69 6d 70 25  |name%....  wimp%|
000060b0  21 37 36 3d 2d 31 0d 03  8a 16 20 20 77 69 6d 70  |!76=-1....  wimp|
000060c0  25 21 38 30 3d 6d 61 78  69 6e 64 25 0d 03 8b 05  |%!80=maxind%....|
000060d0  cd 0d 03 8c 0e 77 69 6d  70 25 21 38 34 3d 30 0d  |.....wimp%!84=0.|
000060e0  03 8d 28 c8 99 22 57 69  6d 70 5f 43 72 65 61 74  |..(.."Wimp_Creat|
000060f0  65 57 69 6e 64 6f 77 22  2c 2c 77 69 6d 70 25 20  |eWindow",,wimp% |
00006100  b8 20 77 68 61 6e 25 0d  03 8e 0a 3d 77 68 61 6e  |. whan%....=whan|
00006110  25 0d 03 8f 83 dd 20 a4  77 69 6d 70 5f 63 72 65  |%..... .wimp_cre|
00006120  61 74 65 69 63 6f 6e 28  77 68 61 6e 25 2c 77 6d  |ateicon(whan%,wm|
00006130  69 6e 78 25 2c 77 6d 69  6e 79 25 2c 77 6d 61 78  |inx%,wminy%,wmax|
00006140  78 25 2c 77 6d 61 78 79  25 2c 66 6c 61 67 73 25  |x%,wmaxy%,flags%|
00006150  2c 65 73 67 25 2c 62 75  74 74 6f 6e 25 2c 66 63  |,esg%,button%,fc|
00006160  6f 6c 25 2c 62 63 6f 6c  25 2c 66 68 61 6e 25 2c  |ol%,bcol%,fhan%,|
00006170  74 65 78 74 24 2c 73 70  72 69 74 65 24 2c 73 61  |text$,sprite$,sa|
00006180  72 65 61 25 2c 6d 61 78  69 6e 64 25 2c 76 61 6c  |rea%,maxind%,val|
00006190  69 64 24 29 0d 03 90 2a  ea 20 69 66 6c 61 67 73  |id$)...*. iflags|
000061a0  25 2c 6c 65 6e 25 2c 62  75 66 25 2c 76 61 6c 69  |%,len%,buf%,vali|
000061b0  64 25 2c 69 63 6f 6e 25  2c 74 25 2c 73 25 0d 03  |d%,icon%,t%,s%..|
000061c0  91 10 21 77 69 6d 70 25  3d 77 68 61 6e 25 0d 03  |..!wimp%=whan%..|
000061d0  92 41 77 69 6d 70 25 21  34 3d 77 6d 69 6e 78 25  |.Awimp%!4=wminx%|
000061e0  3a 77 69 6d 70 25 21 38  3d 77 6d 69 6e 79 25 3a  |:wimp%!8=wminy%:|
000061f0  77 69 6d 70 25 21 31 32  3d 77 6d 61 78 78 25 3a  |wimp%!12=wmaxx%:|
00006200  77 69 6d 70 25 21 31 36  3d 77 6d 61 78 79 25 0d  |wimp%!16=wmaxy%.|
00006210  03 93 0d 69 66 6c 61 67  73 25 3d 30 0d 03 94 14  |...iflags%=0....|
00006220  74 25 3d 66 6c 61 67 73  25 3e 3e 30 20 80 20 31  |t%=flags%>>0 . 1|
00006230  0d 03 95 14 73 25 3d 66  6c 61 67 73 25 3e 3e 31  |....s%=flags%>>1|
00006240  20 80 20 31 0d 03 96 14  66 25 3d 66 6c 61 67 73  | . 1....f%=flags|
00006250  25 3e 3e 37 20 80 20 31  0d 03 97 16 69 6e 64 25  |%>>7 . 1....ind%|
00006260  3d 66 6c 61 67 73 25 3e  3e 38 20 80 20 31 0d 03  |=flags%>>8 . 1..|
00006270  98 1a e7 20 69 6e 64 25  3d 31 20 69 66 6c 61 67  |... ind%=1 iflag|
00006280  73 25 2b 3d 31 3c 3c 38  0d 03 99 15 69 66 6c 61  |s%+=1<<8....ifla|
00006290  67 73 25 2b 3d 65 73 67  25 3c 3c 31 36 0d 03 9a  |gs%+=esg%<<16...|
000062a0  0a e7 20 66 25 20 8c 0d  03 9b 13 20 20 69 66 6c  |.. f% .....  ifl|
000062b0  61 67 73 25 2b 3d 31 3c  3c 36 0d 03 9c 18 20 20  |ags%+=1<<6....  |
000062c0  69 66 6c 61 67 73 25 2b  3d 66 68 61 6e 25 3c 3c  |iflags%+=fhan%<<|
000062d0  32 34 0d 03 9d 05 cc 0d  03 9e 18 20 20 69 66 6c  |24.........  ifl|
000062e0  61 67 73 25 2b 3d 66 63  6f 6c 25 3c 3c 32 34 0d  |ags%+=fcol%<<24.|
000062f0  03 9f 18 20 20 69 66 6c  61 67 73 25 2b 3d 62 63  |...  iflags%+=bc|
00006300  6f 6c 25 3c 3c 32 38 0d  03 a0 05 cd 0d 03 a1 16  |ol%<<28.........|
00006310  e7 20 74 25 20 69 66 6c  61 67 73 25 2b 3d 31 3c  |. t% iflags%+=1<|
00006320  3c 30 0d 03 a2 16 e7 20  73 25 20 69 66 6c 61 67  |<0..... s% iflag|
00006330  73 25 2b 3d 31 3c 3c 31  0d 03 a3 23 e7 20 28 66  |s%+=1<<1...#. (f|
00006340  6c 61 67 73 25 3e 3e 32  20 80 20 31 29 20 69 66  |lags%>>2 . 1) if|
00006350  6c 61 67 73 25 2b 3d 31  3c 3c 33 0d 03 a4 23 e7  |lags%+=1<<3...#.|
00006360  20 28 66 6c 61 67 73 25  3e 3e 33 20 80 20 31 29  | (flags%>>3 . 1)|
00006370  20 69 66 6c 61 67 73 25  2b 3d 31 3c 3c 34 0d 03  | iflags%+=1<<4..|
00006380  a5 23 e7 20 28 66 6c 61  67 73 25 3e 3e 34 20 80  |.#. (flags%>>4 .|
00006390  20 31 29 20 69 66 6c 61  67 73 25 2b 3d 31 3c 3c  | 1) iflags%+=1<<|
000063a0  35 0d 03 a6 23 e7 20 28  66 6c 61 67 73 25 3e 3e  |5...#. (flags%>>|
000063b0  35 20 80 20 31 29 20 69  66 6c 61 67 73 25 2b 3d  |5 . 1) iflags%+=|
000063c0  31 3c 3c 39 0d 03 a7 23  e7 20 28 66 6c 61 67 73  |1<<9...#. (flags|
000063d0  25 3e 3e 36 20 80 20 31  29 20 69 66 6c 61 67 73  |%>>6 . 1) iflags|
000063e0  25 2b 3d 31 3c 3c 32 0d  03 a8 1e e7 20 62 75 74  |%+=1<<2..... but|
000063f0  74 6f 6e 25 3d 30 20 69  66 6c 61 67 73 25 2b 3d  |ton%=0 iflags%+=|
00006400  30 3c 3c 31 32 0d 03 a9  1e e7 20 62 75 74 74 6f  |0<<12..... butto|
00006410  6e 25 3d 31 20 69 66 6c  61 67 73 25 2b 3d 33 3c  |n%=1 iflags%+=3<|
00006420  3c 31 32 0d 03 aa 1e e7  20 62 75 74 74 6f 6e 25  |<12..... button%|
00006430  3d 32 20 69 66 6c 61 67  73 25 2b 3d 32 3c 3c 31  |=2 iflags%+=2<<1|
00006440  32 0d 03 ab 1e e7 20 62  75 74 74 6f 6e 25 3d 33  |2..... button%=3|
00006450  20 69 66 6c 61 67 73 25  2b 3d 36 3c 3c 31 32 0d  | iflags%+=6<<12.|
00006460  03 ac 1f e7 20 62 75 74  74 6f 6e 25 3d 34 20 69  |.... button%=4 i|
00006470  66 6c 61 67 73 25 2b 3d  31 35 3c 3c 31 32 0d 03  |flags%+=15<<12..|
00006480  ad 1f e7 20 62 75 74 74  6f 6e 25 3d 35 20 69 66  |... button%=5 if|
00006490  6c 61 67 73 25 2b 3d 31  31 3c 3c 31 32 0d 03 ae  |lags%+=11<<12...|
000064a0  1e e7 20 62 75 74 74 6f  6e 25 3d 36 20 69 66 6c  |.. button%=6 ifl|
000064b0  61 67 73 25 2b 3d 39 3c  3c 31 32 0d 03 af 1e e7  |ags%+=9<<12.....|
000064c0  20 62 75 74 74 6f 6e 25  3d 37 20 69 66 6c 61 67  | button%=7 iflag|
000064d0  73 25 2b 3d 31 3c 3c 31  32 0d 03 b0 1e e7 20 62  |s%+=1<<12..... b|
000064e0  75 74 74 6f 6e 25 3d 38  20 69 66 6c 61 67 73 25  |utton%=8 iflags%|
000064f0  2b 3d 34 3c 3c 31 32 0d  03 b1 1e e7 20 62 75 74  |+=4<<12..... but|
00006500  74 6f 6e 25 3d 39 20 69  66 6c 61 67 73 25 2b 3d  |ton%=9 iflags%+=|
00006510  35 3c 3c 31 32 0d 03 b2  1f e7 20 62 75 74 74 6f  |5<<12..... butto|
00006520  6e 25 3d 31 30 20 69 66  6c 61 67 73 25 2b 3d 37  |n%=10 iflags%+=7|
00006530  3c 3c 31 32 0d 03 b3 1f  e7 20 62 75 74 74 6f 6e  |<<12..... button|
00006540  25 3d 31 31 20 69 66 6c  61 67 73 25 2b 3d 38 3c  |%=11 iflags%+=8<|
00006550  3c 31 32 0d 03 b4 20 e7  20 62 75 74 74 6f 6e 25  |<12... . button%|
00006560  3d 31 32 20 69 66 6c 61  67 73 25 2b 3d 31 30 3c  |=12 iflags%+=10<|
00006570  3c 31 32 0d 03 b5 20 e7  20 62 75 74 74 6f 6e 25  |<12... . button%|
00006580  3d 31 33 20 69 66 6c 61  67 73 25 2b 3d 31 32 3c  |=13 iflags%+=12<|
00006590  3c 31 32 0d 03 b6 20 e7  20 62 75 74 74 6f 6e 25  |<12... . button%|
000065a0  3d 31 34 20 69 66 6c 61  67 73 25 2b 3d 31 33 3c  |=14 iflags%+=13<|
000065b0  3c 31 32 0d 03 b7 20 e7  20 62 75 74 74 6f 6e 25  |<12... . button%|
000065c0  3d 31 35 20 69 66 6c 61  67 73 25 2b 3d 31 34 3c  |=15 iflags%+=14<|
000065d0  3c 31 32 0d 03 b8 14 77  69 6d 70 25 21 32 30 3d  |<12....wimp%!20=|
000065e0  69 66 6c 61 67 73 25 0d  03 b9 2c e7 20 74 25 3d  |iflags%...,. t%=|
000065f0  31 20 80 20 73 25 3d 30  20 80 20 69 6e 64 25 3d  |1 . s%=0 . ind%=|
00006600  30 20 24 28 77 69 6d 70  25 2b 32 34 29 3d 74 65  |0 $(wimp%+24)=te|
00006610  78 74 24 0d 03 ba 2e e7  20 74 25 3d 30 20 80 20  |xt$..... t%=0 . |
00006620  73 25 3d 31 20 80 20 69  6e 64 25 3d 30 20 24 28  |s%=1 . ind%=0 $(|
00006630  77 69 6d 70 25 2b 32 34  29 3d 73 70 72 69 74 65  |wimp%+24)=sprite|
00006640  24 0d 03 bb 2e e7 20 74  25 3d 31 20 80 20 73 25  |$..... t%=1 . s%|
00006650  3d 31 20 80 20 69 6e 64  25 3d 30 20 24 28 77 69  |=1 . ind%=0 $(wi|
00006660  6d 70 25 2b 32 34 29 3d  73 70 72 69 74 65 24 0d  |mp%+24)=sprite$.|
00006670  03 bc 15 e7 20 74 25 3d  31 20 80 20 69 6e 64 25  |.... t%=1 . ind%|
00006680  3d 31 20 8c 0d 03 bd 16  20 20 6c 65 6e 25 3d a9  |=1 .....  len%=.|
00006690  28 76 61 6c 69 64 24 29  2b 31 0d 03 be 13 20 20  |(valid$)+1....  |
000066a0  de 20 76 61 6c 69 64 25  20 6c 65 6e 25 0d 03 bf  |. valid% len%...|
000066b0  15 20 20 6c 65 6e 25 3d  a9 28 74 65 78 74 24 29  |.  len%=.(text$)|
000066c0  2b 31 0d 03 c0 21 20 20  e7 20 6d 61 78 69 6e 64  |+1...!  . maxind|
000066d0  25 3c 6c 65 6e 25 20 6d  61 78 69 6e 64 25 3d 6c  |%<len% maxind%=l|
000066e0  65 6e 25 0d 03 c1 14 20  20 de 20 62 75 66 25 20  |en%....  . buf% |
000066f0  6d 61 78 69 6e 64 25 0d  03 c2 13 20 20 24 28 62  |maxind%....  $(b|
00006700  75 66 25 29 3d 74 65 78  74 24 0d 03 c3 16 20 20  |uf%)=text$....  |
00006710  24 28 76 61 6c 69 64 25  29 3d 76 61 6c 69 64 24  |$(valid%)=valid$|
00006720  0d 03 c4 13 20 20 77 69  6d 70 25 21 32 34 3d 62  |....  wimp%!24=b|
00006730  75 66 25 0d 03 c5 15 20  20 77 69 6d 70 25 21 32  |uf%....  wimp%!2|
00006740  38 3d 76 61 6c 69 64 25  0d 03 c6 16 20 20 77 69  |8=valid%....  wi|
00006750  6d 70 25 21 33 32 3d 6d  61 78 69 6e 64 25 0d 03  |mp%!32=maxind%..|
00006760  c7 05 cd 0d 03 c8 1c e7  20 74 25 3d 30 20 80 20  |........ t%=0 . |
00006770  73 25 3d 31 20 80 20 69  6e 64 25 3d 31 20 8c 0d  |s%=1 . ind%=1 ..|
00006780  03 c9 17 20 20 6c 65 6e  25 3d a9 28 73 70 72 69  |...  len%=.(spri|
00006790  74 65 24 29 2b 31 0d 03  ca 21 20 20 e7 20 6d 61  |te$)+1...!  . ma|
000067a0  78 69 6e 64 25 3c 6c 65  6e 25 20 6d 61 78 69 6e  |xind%<len% maxin|
000067b0  64 25 3d 6c 65 6e 25 0d  03 cb 14 20 20 de 20 62  |d%=len%....  . b|
000067c0  75 66 25 20 6d 61 78 69  6e 64 25 0d 03 cc 15 20  |uf% maxind%.... |
000067d0  20 24 28 62 75 66 25 29  3d 73 70 72 69 74 65 24  | $(buf%)=sprite$|
000067e0  0d 03 cd 13 20 20 77 69  6d 70 25 21 32 34 3d 62  |....  wimp%!24=b|
000067f0  75 66 25 0d 03 ce 2d 20  20 e7 20 73 61 72 65 61  |uf%...-  . sarea|
00006800  25 3d 30 20 77 69 6d 70  25 21 32 38 3d 31 20 8b  |%=0 wimp%!28=1 .|
00006810  20 77 69 6d 70 25 21 32  38 3d 73 61 72 65 61 25  | wimp%!28=sarea%|
00006820  0d 03 cf 16 20 20 77 69  6d 70 25 21 33 32 3d 6d  |....  wimp%!32=m|
00006830  61 78 69 6e 64 25 0d 03  d0 05 cd 0d 03 d1 26 c8  |axind%........&.|
00006840  99 22 57 69 6d 70 5f 43  72 65 61 74 65 49 63 6f  |."Wimp_CreateIco|
00006850  6e 22 2c 2c 77 69 6d 70  25 20 b8 20 69 63 6f 6e  |n",,wimp% . icon|
00006860  25 0d 03 d2 0a 3d 69 63  6f 6e 25 0d 03 d3 24 dd  |%....=icon%...$.|
00006870  20 a4 77 69 6d 70 5f 67  65 74 69 63 6f 6e 74 65  | .wimp_geticonte|
00006880  78 74 28 77 68 61 6e 25  2c 69 63 6f 6e 25 29 0d  |xt(whan%,icon%).|
00006890  03 d4 11 77 69 6d 70 25  21 30 3d 77 68 61 6e 25  |...wimp%!0=whan%|
000068a0  0d 03 d5 11 77 69 6d 70  25 21 34 3d 69 63 6f 6e  |....wimp%!4=icon|
000068b0  25 0d 03 d6 20 c8 99 22  57 69 6d 70 5f 47 65 74  |%... .."Wimp_Get|
000068c0  49 63 6f 6e 53 74 61 74  65 22 2c 2c 77 69 6d 70  |IconState",,wimp|
000068d0  25 0d 03 d7 10 3d 24 28  77 69 6d 70 25 21 32 38  |%....=$(wimp%!28|
000068e0  29 0d 03 d8 18 dd 20 f2  77 69 6d 70 5f 63 68 65  |)..... .wimp_che|
000068f0  63 6b 66 6f 72 6c 6f 61  64 0d 03 d9 28 ea 20 65  |ckforload...(. e|
00006900  6e 76 73 74 72 25 2c 61  24 2c 4c 2c 69 25 2c 66  |nvstr%,a$,L,i%,f|
00006910  69 6c 65 24 2c 70 24 2c  6f 25 2c 66 74 79 70 65  |ile$,p$,o%,ftype|
00006920  25 0d 03 da 1b c8 99 22  4f 53 5f 47 65 74 45 6e  |%......"OS_GetEn|
00006930  76 22 20 b8 20 65 6e 76  73 74 72 25 0d 03 db 1c  |v" . envstr%....|
00006940  61 24 3d a4 77 69 6d 70  5f 73 74 72 69 6e 67 28  |a$=.wimp_string(|
00006950  65 6e 76 73 74 72 25 29  0d 03 dc 0d e3 20 4c 3d  |envstr%)..... L=|
00006960  31 20 b8 20 33 0d 03 dd  0f 69 25 3d a7 61 24 2c  |1 . 3....i%=.a$,|
00006970  22 20 22 29 0d 03 de 14  61 24 3d c2 61 24 2c a9  |" ")....a$=.a$,.|
00006980  28 61 24 29 2d 69 25 29  0d 03 df 07 ed 20 4c 0d  |(a$)-i%)..... L.|
00006990  03 e0 0d e7 20 61 24 3d  22 22 20 e1 0d 03 e1 1f  |.... a$="" .....|
000069a0  66 69 6c 65 24 3d a4 77  69 6d 70 5f 67 65 74 6c  |file$=.wimp_getl|
000069b0  65 61 66 6e 61 6d 65 28  61 24 29 0d 03 e2 1a 70  |eafname(a$)....p|
000069c0  24 3d c0 61 24 2c a9 28  61 24 29 2d a9 28 66 69  |$=.a$,.(a$)-.(fi|
000069d0  6c 65 24 29 29 0d 03 e3  2e c8 99 22 4f 53 5f 46  |le$))......"OS_F|
000069e0  69 6c 65 22 2c 32 31 2c  66 69 6c 65 24 2c 2c 2c  |ile",21,file$,,,|
000069f0  70 24 20 b8 20 6f 25 2c  2c 2c 2c 2c 2c 66 74 79  |p$ . o%,,,,,,fty|
00006a00  70 65 25 0d 03 e4 0d e7  20 6f 25 3c 3e 31 20 e1  |pe%..... o%<>1 .|
00006a10  0d 03 e5 2e 69 25 3d a4  75 73 65 72 5f 6c 6f 61  |....i%=.user_loa|
00006a20  64 64 61 74 61 28 61 24  2c 30 2c 30 2c c3 7e 28  |ddata(a$,0,0,.~(|
00006a30  66 74 79 70 65 25 29 2c  2d 31 2c 2d 31 29 0d 03  |ftype%),-1,-1)..|
00006a40  e6 05 e1 0d 03 e7 20 dd  20 f2 77 69 6d 70 5f 69  |...... . .wimp_i|
00006a50  62 61 72 73 70 72 69 74  65 70 28 73 70 72 69 74  |barspritep(sprit|
00006a60  65 24 29 0d 03 e8 1d 77  69 6d 70 25 21 30 3d 2d  |e$)....wimp%!0=-|
00006a70  32 3a 77 69 6d 70 25 21  34 3d 77 69 68 61 6e 25  |2:wimp%!4=wihan%|
00006a80  0d 03 e9 20 c8 99 22 57  69 6d 70 5f 47 65 74 49  |... .."Wimp_GetI|
00006a90  63 6f 6e 53 74 61 74 65  22 2c 2c 77 69 6d 70 25  |conState",,wimp%|
00006aa0  0d 03 ea 17 24 28 77 69  6d 70 25 21 32 38 29 3d  |....$(wimp%!28)=|
00006ab0  73 70 72 69 74 65 24 0d  03 eb 3e c8 99 22 57 69  |sprite$...>.."Wi|
00006ac0  6d 70 5f 46 6f 72 63 65  52 65 64 72 61 77 22 2c  |mp_ForceRedraw",|
00006ad0  2d 32 2c 77 69 6d 70 25  21 38 2c 77 69 6d 70 25  |-2,wimp%!8,wimp%|
00006ae0  21 31 32 2c 77 69 6d 70  25 21 31 36 2c 77 69 6d  |!12,wimp%!16,wim|
00006af0  70 25 21 32 30 0d 03 ec  05 e1 0d 03 ed 27 c8 99  |p%!20........'..|
00006b00  22 57 69 6d 70 5f 46 6f  72 63 65 52 65 64 72 61  |"Wimp_ForceRedra|
00006b10  77 22 2c 2d 31 2c 30 2c  30 2c 31 45 36 2c 31 33  |w",-1,0,0,1E6,13|
00006b20  30 0d 03 ee 05 e1 0d 03  ef 18 dd 20 f2 77 69 6d  |0.......... .wim|
00006b30  70 5f 63 65 6e 74 72 65  77 69 6e 64 6f 77 0d 03  |p_centrewindow..|
00006b40  f0 3f ea 20 78 30 2c 79  30 2c 78 31 2c 79 31 2c  |.?. x0,y0,x1,y1,|
00006b50  77 77 69 64 74 68 2c 77  68 65 69 67 68 74 2c 58  |wwidth,wheight,X|
00006b60  45 69 67 2c 59 45 69 67  2c 73 78 2c 73 79 2c 73  |Eig,YEig,sx,sy,s|
00006b70  77 69 64 74 68 2c 73 68  65 69 67 68 74 0d 03 f1  |width,sheight...|
00006b80  19 78 30 3d 77 69 6d 70  25 21 34 3a 79 30 3d 77  |.x0=wimp%!4:y0=w|
00006b90  69 6d 70 25 21 38 0d 03  f2 1b 78 31 3d 77 69 6d  |imp%!8....x1=wim|
00006ba0  70 25 21 31 32 3a 79 31  3d 77 69 6d 70 25 21 31  |p%!12:y1=wimp%!1|
00006bb0  36 0d 03 f3 1e 77 77 69  64 74 68 3d 78 31 2d 78  |6....wwidth=x1-x|
00006bc0  30 3a 77 68 65 69 67 68  74 3d 79 31 2d 79 30 0d  |0:wheight=y1-y0.|
00006bd0  03 f4 29 c8 99 22 4f 53  5f 52 65 61 64 4d 6f 64  |..).."OS_ReadMod|
00006be0  65 56 61 72 69 61 62 6c  65 22 2c 2d 31 2c 34 20  |eVariable",-1,4 |
00006bf0  b8 20 2c 2c 58 45 69 67  0d 03 f5 29 c8 99 22 4f  |. ,,XEig...).."O|
00006c00  53 5f 52 65 61 64 4d 6f  64 65 56 61 72 69 61 62  |S_ReadModeVariab|
00006c10  6c 65 22 2c 2d 31 2c 35  20 b8 20 2c 2c 59 45 69  |le",-1,5 . ,,YEi|
00006c20  67 0d 03 f6 28 c8 99 22  4f 53 5f 52 65 61 64 4d  |g...(.."OS_ReadM|
00006c30  6f 64 65 56 61 72 69 61  62 6c 65 22 2c 2d 31 2c  |odeVariable",-1,|
00006c40  31 31 20 b8 20 2c 2c 73  78 0d 03 f7 28 c8 99 22  |11 . ,,sx...(.."|
00006c50  4f 53 5f 52 65 61 64 4d  6f 64 65 56 61 72 69 61  |OS_ReadModeVaria|
00006c60  62 6c 65 22 2c 2d 31 2c  31 32 20 b8 20 2c 2c 73  |ble",-1,12 . ,,s|
00006c70  79 0d 03 f8 13 73 77 69  64 74 68 3d 73 78 3c 3c  |y....swidth=sx<<|
00006c80  58 45 69 67 0d 03 f9 14  73 68 65 69 67 68 74 3d  |XEig....sheight=|
00006c90  73 79 3c 3c 59 45 69 67  0d 03 fa 18 78 30 3d 28  |sy<<YEig....x0=(|
00006ca0  73 77 69 64 74 68 2d 77  77 69 64 74 68 29 2f 32  |swidth-wwidth)/2|
00006cb0  0d 03 fb 1a 79 30 3d 28  73 68 65 69 67 68 74 2d  |....y0=(sheight-|
00006cc0  77 68 65 69 67 68 74 29  2f 32 0d 03 fc 19 77 69  |wheight)/2....wi|
00006cd0  6d 70 25 21 34 3d 78 30  3a 77 69 6d 70 25 21 38  |mp%!4=x0:wimp%!8|
00006ce0  3d 79 30 0d 03 fd 1e 78  31 3d 78 30 2b 77 77 69  |=y0....x1=x0+wwi|
00006cf0  64 74 68 3a 79 31 3d 79  30 2b 77 68 65 69 67 68  |dth:y1=y0+wheigh|
00006d00  74 0d 03 fe 1b 77 69 6d  70 25 21 31 32 3d 78 31  |t....wimp%!12=x1|
00006d10  3a 77 69 6d 70 25 21 31  36 3d 79 31 0d 03 ff 05  |:wimp%!16=y1....|
00006d20  e1 0d 04 00 26 dd 20 f2  77 69 6d 70 5f 70 6f 69  |....&. .wimp_poi|
00006d30  6e 74 65 72 63 65 6e 74  72 65 77 69 6e 64 6f 77  |ntercentrewindow|
00006d40  28 77 68 61 6e 25 29 0d  04 01 24 ea 20 6d 78 25  |(whan%)...$. mx%|
00006d50  2c 6d 79 25 2c 77 69 64  74 68 25 2c 68 65 69 67  |,my%,width%,heig|
00006d60  68 74 25 2c 78 70 25 2c  79 70 25 0d 04 02 22 c8  |ht%,xp%,yp%...".|
00006d70  99 22 57 69 6d 70 5f 47  65 74 50 6f 69 6e 74 65  |."Wimp_GetPointe|
00006d80  72 49 6e 66 6f 22 2c 2c  77 69 6d 70 25 0d 04 03  |rInfo",,wimp%...|
00006d90  1b 6d 78 25 3d 77 69 6d  70 25 21 30 3a 6d 79 25  |.mx%=wimp%!0:my%|
00006da0  3d 77 69 6d 70 25 21 34  0d 04 04 11 77 69 6d 70  |=wimp%!4....wimp|
00006db0  25 21 30 3d 77 68 61 6e  25 0d 04 05 21 c8 99 22  |%!0=whan%...!.."|
00006dc0  57 69 6d 70 5f 47 65 74  57 69 6e 64 6f 77 49 6e  |Wimp_GetWindowIn|
00006dd0  66 6f 22 2c 2c 77 69 6d  70 25 0d 04 06 34 77 69  |fo",,wimp%...4wi|
00006de0  64 74 68 25 3d 77 69 6d  70 25 21 31 32 2d 77 69  |dth%=wimp%!12-wi|
00006df0  6d 70 25 21 34 3a 68 65  69 67 68 74 25 3d 77 69  |mp%!4:height%=wi|
00006e00  6d 70 25 21 31 36 2d 77  69 6d 70 25 21 38 0d 04  |mp%!16-wimp%!8..|
00006e10  07 26 78 70 25 3d 6d 78  25 2d 77 69 64 74 68 25  |.&xp%=mx%-width%|
00006e20  2f 32 3a 79 70 25 3d 6d  79 25 2d 68 65 69 67 68  |/2:yp%=my%-heigh|
00006e30  74 25 2f 32 0d 04 08 1b  77 69 6d 70 25 21 34 3d  |t%/2....wimp%!4=|
00006e40  78 70 25 3a 77 69 6d 70  25 21 38 3d 79 70 25 0d  |xp%:wimp%!8=yp%.|
00006e50  04 09 2c 77 69 6d 70 25  21 31 32 3d 78 70 25 2b  |..,wimp%!12=xp%+|
00006e60  77 69 64 74 68 25 3a 77  69 6d 70 25 21 31 36 3d  |width%:wimp%!16=|
00006e70  79 70 25 2b 68 65 69 67  68 74 25 0d 04 0a 05 e1  |yp%+height%.....|
00006e80  0d 04 0b 14 dd 20 f2 77  69 6d 70 5f 70 6f 6c 6c  |..... .wimp_poll|
00006e90  6e 75 6c 6c 0d 04 0c 17  e7 20 4e 55 4c 4c 3d b9  |null..... NULL=.|
00006ea0  20 f2 75 73 65 72 5f 6e  75 6c 6c 0d 04 0d 2a e7  | .user_null...*.|
00006eb0  20 77 73 6c 69 64 65 64  72 61 67 25 3c 3e 2d 31  | wslidedrag%<>-1|
00006ec0  20 f2 77 69 6d 70 5f 64  72 61 67 67 69 6e 67 73  | .wimp_draggings|
00006ed0  6c 69 64 65 72 0d 04 0e  07 ea 20 74 0d 04 0f 11  |lider..... t....|
00006ee0  e7 20 77 42 41 4e 4e 45  52 3d a3 20 e1 0d 04 10  |. wBANNER=. ....|
00006ef0  20 c8 99 22 4f 53 5f 52  65 61 64 4d 6f 6e 6f 74  | .."OS_ReadMonot|
00006f00  6f 6e 69 63 54 69 6d 65  22 20 b8 20 74 0d 04 11  |onicTime" . t...|
00006f10  15 e7 20 74 3c 3d 77 64  65 6c 61 79 6d 61 78 25  |.. t<=wdelaymax%|
00006f20  20 e1 0d 04 12 29 f2 77  69 6d 70 5f 63 6c 6f 73  | ....).wimp_clos|
00006f30  65 77 69 6e 64 6f 77 28  77 62 61 6e 6e 65 72 25  |ewindow(wbanner%|
00006f40  29 3a 77 42 41 4e 4e 45  52 3d a3 0d 04 13 05 e1  |):wBANNER=......|
00006f50  0d 04 14 1c dd 20 f2 77  69 6d 70 5f 70 6f 6c 6c  |..... .wimp_poll|
00006f60  72 65 64 72 61 77 77 69  6e 64 6f 77 0d 04 15 0a  |redrawwindow....|
00006f70  ea 20 66 6c 61 67 0d 04  16 27 c8 99 22 57 69 6d  |. flag...'.."Wim|
00006f80  70 5f 52 65 64 72 61 77  57 69 6e 64 6f 77 22 2c  |p_RedrawWindow",|
00006f90  2c 77 69 6d 70 25 20 b8  20 66 6c 61 67 0d 04 17  |,wimp% . flag...|
00006fa0  0b c8 95 20 66 6c 61 67  0d 04 18 12 f2 77 69 6d  |... flag.....wim|
00006fb0  70 5f 73 61 76 65 77 69  6d 70 0d 04 19 41 f2 75  |p_savewimp...A.u|
00006fc0  73 65 72 5f 72 65 64 72  61 77 28 77 69 6d 70 25  |ser_redraw(wimp%|
00006fd0  21 30 2c 77 69 6d 70 25  21 32 38 2c 77 69 6d 70  |!0,wimp%!28,wimp|
00006fe0  25 21 33 32 2c 77 69 6d  70 25 21 33 36 2c 77 69  |%!32,wimp%!36,wi|
00006ff0  6d 70 25 21 34 30 2c a3  2c 30 29 0d 04 1a 12 f2  |mp%!40,.,0).....|
00007000  77 69 6d 70 5f 6c 6f 61  64 77 69 6d 70 0d 04 1b  |wimp_loadwimp...|
00007010  27 c8 99 22 57 69 6d 70  5f 47 65 74 52 65 63 74  |'.."Wimp_GetRect|
00007020  61 6e 67 6c 65 22 2c 2c  77 69 6d 70 25 20 b8 20  |angle",,wimp% . |
00007030  66 6c 61 67 0d 04 1c 05  ce 0d 04 1d 05 e1 0d 04  |flag............|
00007040  1e 1a dd 20 f2 77 69 6d  70 5f 70 6f 6c 6c 6f 70  |... .wimp_pollop|
00007050  65 6e 77 69 6e 64 6f 77  0d 04 1f 1e ea 20 61 25  |enwindow..... a%|
00007060  2c 77 69 6e 25 2c 64 72  61 67 25 2c 77 72 69 74  |,win%,drag%,writ|
00007070  65 25 2c 6f 6b 25 0d 04  20 34 21 77 74 62 6c 6b  |e%,ok%.. 4!wtblk|
00007080  25 3d 21 77 69 6d 70 25  3a 77 74 62 6c 6b 25 21  |%=!wimp%:wtblk%!|
00007090  34 3d 77 69 6d 70 25 21  34 3a 77 74 62 6c 6b 25  |4=wimp%!4:wtblk%|
000070a0  21 38 3d 77 69 6d 70 25  21 38 0d 04 21 3c 77 74  |!8=wimp%!8..!<wt|
000070b0  62 6c 6b 25 21 31 32 3d  77 69 6d 70 25 21 31 32  |blk%!12=wimp%!12|
000070c0  3a 77 74 62 6c 6b 25 21  31 36 3d 77 69 6d 70 25  |:wtblk%!16=wimp%|
000070d0  21 31 36 3a 77 74 62 6c  6b 25 21 32 30 3d 77 69  |!16:wtblk%!20=wi|
000070e0  6d 70 25 21 32 30 0d 04  22 29 77 74 62 6c 6b 25  |mp%!20..")wtblk%|
000070f0  21 32 34 3d 77 69 6d 70  25 21 32 34 3a 77 74 62  |!24=wimp%!24:wtb|
00007100  6c 6b 25 21 32 38 3d 77  69 6d 70 25 21 32 38 0d  |lk%!28=wimp%!28.|
00007110  04 23 0f 77 69 6e 25 3d  21 77 69 6d 70 25 0d 04  |.#.win%=!wimp%..|
00007120  24 17 61 25 3d a4 75 73  65 72 5f 70 61 6e 65 28  |$.a%=.user_pane(|
00007130  77 69 6e 25 29 0d 04 25  18 e7 20 61 25 3c 3e 2d  |win%)..%.. a%<>-|
00007140  31 20 77 69 6d 70 25 21  32 38 3d 61 25 0d 04 26  |1 wimp%!28=a%..&|
00007150  1e c8 99 22 57 69 6d 70  5f 4f 70 65 6e 57 69 6e  |..."Wimp_OpenWin|
00007160  64 6f 77 22 2c 2c 77 69  6d 70 25 0d 04 27 37 f2  |dow",,wimp%..'7.|
00007170  75 73 65 72 5f 6f 70 65  6e 77 69 6e 64 6f 77 28  |user_openwindow(|
00007180  21 77 69 6d 70 25 2c 77  69 6d 70 25 21 34 2c 77  |!wimp%,wimp%!4,w|
00007190  69 6d 70 25 21 31 36 2c  77 74 62 6c 6b 25 21 32  |imp%!16,wtblk%!2|
000071a0  38 29 0d 04 28 14 e7 20  77 74 62 6c 6b 25 21 32  |8)..(.. wtblk%!2|
000071b0  38 3d 2d 32 20 8c 0d 04  29 19 20 20 61 25 3d a4  |8=-2 ...).  a%=.|
000071c0  75 73 65 72 5f 70 61 6e  65 28 77 69 6e 25 29 0d  |user_pane(win%).|
000071d0  04 2a 1b 20 20 e7 20 61  25 3c 3e 2d 31 20 77 74  |.*.  . a%<>-1 wt|
000071e0  62 6c 6b 25 21 32 38 3d  61 25 0d 04 2b 21 20 20  |blk%!28=a%..+!  |
000071f0  c8 99 22 57 69 6d 70 5f  4f 70 65 6e 57 69 6e 64  |.."Wimp_OpenWind|
00007200  6f 77 22 2c 2c 77 74 62  6c 6b 25 0d 04 2c 05 cd  |ow",,wtblk%..,..|
00007210  0d 04 2d 24 e7 20 a4 75  73 65 72 5f 73 61 76 65  |..-$. .user_save|
00007220  66 69 6c 65 74 79 70 65  28 77 69 6e 25 29 3c 3e  |filetype(win%)<>|
00007230  22 22 20 8c 0d 04 2e 24  20 20 e7 20 a4 77 69 6d  |"" ....$  . .wim|
00007240  70 5f 69 73 77 69 6e 64  6f 77 6f 70 65 6e 28 77  |p_iswindowopen(w|
00007250  69 6e 25 29 3d 30 20 8c  0d 04 2f 1e 20 20 20 20  |in%)=0 .../.    |
00007260  64 72 61 67 25 3d 30 3a  77 72 69 74 65 25 3d 31  |drag%=0:write%=1|
00007270  3a 6f 6b 25 3d 32 0d 04  30 2d 20 20 20 20 f2 75  |:ok%=2..0-    .u|
00007280  73 65 72 5f 73 61 76 65  69 63 6f 6e 28 77 69 6e  |ser_saveicon(win|
00007290  25 2c 64 72 61 67 25 2c  77 72 69 74 65 25 2c 6f  |%,drag%,write%,o|
000072a0  6b 25 29 0d 04 31 23 20  20 20 20 f2 77 69 6d 70  |k%)..1#    .wimp|
000072b0  5f 70 75 74 63 61 72 65  74 28 77 69 6e 25 2c 77  |_putcaret(win%,w|
000072c0  72 69 74 65 25 29 0d 04  32 07 20 20 cd 0d 04 33  |rite%)..2.  ...3|
000072d0  05 cd 0d 04 34 05 e1 0d  04 35 1b dd 20 f2 77 69  |....4....5.. .wi|
000072e0  6d 70 5f 70 6f 6c 6c 63  6c 6f 73 65 77 69 6e 64  |mp_pollclosewind|
000072f0  6f 77 0d 04 36 1f c8 99  22 57 69 6d 70 5f 43 6c  |ow..6..."Wimp_Cl|
00007300  6f 73 65 57 69 6e 64 6f  77 22 2c 2c 77 69 6d 70  |oseWindow",,wimp|
00007310  25 0d 04 37 1e f2 75 73  65 72 5f 63 6c 6f 73 65  |%..7..user_close|
00007320  77 69 6e 64 6f 77 28 77  69 6d 70 25 21 30 29 0d  |window(wimp%!0).|
00007330  04 38 05 e1 0d 04 39 1a  dd 20 f2 77 69 6d 70 5f  |.8....9.. .wimp_|
00007340  70 6f 6c 6c 6d 6f 75 73  65 63 6c 69 63 6b 0d 04  |pollmouseclick..|
00007350  3a 2d ea 20 6d 68 61 6e  25 2c 79 2c 78 25 2c 79  |:-. mhan%,y,x%,y|
00007360  25 2c 73 25 2c 64 6f 6e  65 25 2c 64 72 61 67 25  |%,s%,done%,drag%|
00007370  2c 77 72 69 74 65 25 2c  6f 6b 25 0d 04 3b 33 e7  |,write%,ok%..;3.|
00007380  20 77 69 6d 70 25 21 38  3d 36 34 20 f2 77 69 6d  | wimp%!8=64 .wim|
00007390  70 5f 73 74 61 72 74 64  72 61 67 28 77 69 6d 70  |p_startdrag(wimp|
000073a0  25 21 31 32 2c 77 69 6d  70 25 21 31 36 29 0d 04  |%!12,wimp%!16)..|
000073b0  3c 63 e7 20 a4 75 73 65  72 5f 73 6c 69 64 65 72  |<c. .user_slider|
000073c0  62 61 63 6b 28 77 69 6d  70 25 21 31 32 2c 77 69  |back(wimp%!12,wi|
000073d0  6d 70 25 21 31 36 29 3c  3e 2d 31 20 f2 77 69 6d  |mp%!16)<>-1 .wim|
000073e0  70 5f 63 6c 69 63 6b 65  64 73 6c 69 64 65 72 28  |p_clickedslider(|
000073f0  77 69 6d 70 25 21 31 32  2c 77 69 6d 70 25 21 31  |wimp%!12,wimp%!1|
00007400  36 2c 21 77 69 6d 70 25  2c 77 69 6d 70 25 21 34  |6,!wimp%,wimp%!4|
00007410  29 0d 04 3d 26 73 25 3d  a4 75 73 65 72 5f 73 6c  |)..=&s%=.user_sl|
00007420  69 64 65 72 28 77 69 6d  70 25 21 31 32 2c 77 69  |ider(wimp%!12,wi|
00007430  6d 70 25 21 31 36 29 0d  04 3e 3c e7 20 73 25 3c  |mp%!16)..><. s%<|
00007440  3e 2d 31 20 f2 77 69 6d  70 5f 63 6c 69 63 6b 65  |>-1 .wimp_clicke|
00007450  64 73 6c 69 64 65 72 28  77 69 6d 70 25 21 31 32  |dslider(wimp%!12|
00007460  2c 73 25 2c 21 77 69 6d  70 25 2c 77 69 6d 70 25  |,s%,!wimp%,wimp%|
00007470  21 34 29 0d 04 3f 0b 64  6f 6e 65 25 3d 30 0d 04  |!4)..?.done%=0..|
00007480  40 35 e7 20 77 69 6d 70  25 21 38 3c 3e 32 20 80  |@5. wimp%!8<>2 .|
00007490  20 a4 75 73 65 72 5f 73  61 76 65 66 69 6c 65 74  | .user_savefilet|
000074a0  79 70 65 28 77 69 6d 70  25 21 31 32 29 3c 3e 22  |ype(wimp%!12)<>"|
000074b0  22 20 8c 0d 04 41 1c 20  20 64 72 61 67 25 3d 30  |" ...A.  drag%=0|
000074c0  3a 77 72 69 74 65 25 3d  31 3a 6f 6b 25 3d 32 0d  |:write%=1:ok%=2.|
000074d0  04 42 2f 20 20 f2 75 73  65 72 5f 73 61 76 65 69  |.B/  .user_savei|
000074e0  63 6f 6e 28 77 69 6d 70  25 21 31 32 2c 64 72 61  |con(wimp%!12,dra|
000074f0  67 25 2c 77 72 69 74 65  25 2c 6f 6b 25 29 0d 04  |g%,write%,ok%)..|
00007500  43 36 20 20 e7 20 77 69  6d 70 25 21 31 36 3d 6f  |C6  . wimp%!16=o|
00007510  6b 25 20 f2 77 69 6d 70  5f 71 75 69 63 6b 73 61  |k% .wimp_quicksa|
00007520  76 65 28 77 69 6d 70 25  21 31 32 29 3a 64 6f 6e  |ve(wimp%!12):don|
00007530  65 25 3d 31 0d 04 44 05  cd 0d 04 45 0f e7 20 64  |e%=1..D....E.. d|
00007540  6f 6e 65 25 3d 31 20 e1  0d 04 46 12 e7 20 77 69  |one%=1 ...F.. wi|
00007550  6d 70 25 21 38 3c 3e 32  20 8c 0d 04 47 48 20 20  |mp%!8<>2 ...GH  |
00007560  77 68 61 6e 25 3d 77 69  6d 70 25 21 31 32 3a 69  |whan%=wimp%!12:i|
00007570  63 6f 6e 25 3d 77 69 6d  70 25 21 31 36 3a 62 75  |con%=wimp%!16:bu|
00007580  74 74 6f 6e 25 3d 77 69  6d 70 25 21 38 3a 78 25  |tton%=wimp%!8:x%|
00007590  3d 21 77 69 6d 70 25 3a  79 25 3d 77 69 6d 70 25  |=!wimp%:y%=wimp%|
000075a0  21 34 0d 04 48 49 20 20  78 25 3d a4 77 69 6d 70  |!4..HI  x%=.wimp|
000075b0  5f 73 63 72 65 65 6e 74  6f 77 6f 72 6b 28 77 68  |_screentowork(wh|
000075c0  61 6e 25 2c 78 25 2c 30  29 3a 79 25 3d a4 77 69  |an%,x%,0):y%=.wi|
000075d0  6d 70 5f 73 63 72 65 65  6e 74 6f 77 6f 72 6b 28  |mp_screentowork(|
000075e0  77 68 61 6e 25 2c 79 25  2c 31 29 0d 04 49 31 20  |whan%,y%,1)..I1 |
000075f0  20 f2 75 73 65 72 5f 6d  6f 75 73 65 63 6c 69 63  | .user_mouseclic|
00007600  6b 28 77 68 61 6e 25 2c  69 63 6f 6e 25 2c 62 75  |k(whan%,icon%,bu|
00007610  74 74 6f 6e 25 2c 78 25  2c 79 25 29 0d 04 4a 05  |tton%,x%,y%)..J.|
00007620  cd 0d 04 4b 12 e7 20 77  69 6d 70 25 21 38 3c 3e  |...K.. wimp%!8<>|
00007630  32 20 e1 0d 04 4c 14 77  69 6e 64 6f 77 25 3d 77  |2 ...L.window%=w|
00007640  69 6d 70 25 21 31 32 0d  04 4d 27 6d 68 61 6e 25  |imp%!12..M'mhan%|
00007650  3d a4 75 73 65 72 5f 6d  65 6e 75 28 77 69 6d 70  |=.user_menu(wimp|
00007660  25 21 31 32 2c 77 69 6d  70 25 21 31 36 29 0d 04  |%!12,wimp%!16)..|
00007670  4e 0f e7 20 6d 68 61 6e  25 3d 30 20 e1 0d 04 4f  |N.. mhan%=0 ...O|
00007680  22 c8 99 22 57 69 6d 70  5f 47 65 74 50 6f 69 6e  |".."Wimp_GetPoin|
00007690  74 65 72 49 6e 66 6f 22  2c 2c 77 69 6d 70 25 0d  |terInfo",,wimp%.|
000076a0  04 50 25 79 3d 28 28 a4  77 69 6d 70 5f 6d 65 6e  |.P%y=((.wimp_men|
000076b0  75 73 69 7a 65 28 6d 68  61 6e 25 29 29 2a 34 34  |usize(mhan%))*44|
000076c0  29 2b 39 36 0d 04 51 10  c8 8e 20 77 69 6e 64 6f  |)+96..Q... windo|
000076d0  77 25 20 ca 0d 04 52 34  c9 20 2d 32 20 20 20 3a  |w% ...R4. -2   :|
000076e0  20 c8 99 22 57 69 6d 70  5f 43 72 65 61 74 65 4d  | .."Wimp_CreateM|
000076f0  65 6e 75 22 2c 2c 6d 68  61 6e 25 2c 77 69 6d 70  |enu",,mhan%,wimp|
00007700  25 21 30 2d 36 34 2c 79  0d 04 53 62 7f 20 3a 20  |%!0-64,y..Sb. : |
00007710  78 25 3d 21 77 69 6d 70  25 3a 79 25 3d 77 69 6d  |x%=!wimp%:y%=wim|
00007720  70 25 21 34 3a f2 75 73  65 72 5f 6d 65 6e 75 6f  |p%!4:.user_menuo|
00007730  70 65 6e 28 6d 68 61 6e  25 2c 77 69 6d 70 25 21  |pen(mhan%,wimp%!|
00007740  31 36 29 3a c8 99 22 57  69 6d 70 5f 43 72 65 61  |16):.."Wimp_Crea|
00007750  74 65 4d 65 6e 75 22 2c  2c 6d 68 61 6e 25 2c 78  |teMenu",,mhan%,x|
00007760  25 2d 36 34 2c 79 25 2b  32 30 0d 04 54 05 cb 0d  |%-64,y%+20..T...|
00007770  04 55 1f f2 77 69 6d 70  5f 6d 65 6e 75 6a 75 73  |.U..wimp_menujus|
00007780  74 6f 70 65 6e 65 64 28  6d 68 61 6e 25 29 0d 04  |topened(mhan%)..|
00007790  56 14 77 6c 61 73 74 6d  65 6e 75 25 3d 6d 68 61  |V.wlastmenu%=mha|
000077a0  6e 25 0d 04 57 05 e1 0d  04 58 1b dd 20 f2 77 69  |n%..W....X.. .wi|
000077b0  6d 70 5f 70 6f 6c 6c 73  61 76 65 6d 65 73 73 61  |mp_pollsavemessa|
000077c0  67 65 0d 04 59 29 e7 20  77 73 61 76 65 64 72 61  |ge..Y). wsavedra|
000077d0  67 25 3d 2d 31 20 f2 77  69 6d 70 5f 65 6e 64 73  |g%=-1 .wimp_ends|
000077e0  6c 69 64 65 72 64 72 61  67 3a e1 0d 04 5a 18 c8  |liderdrag:...Z..|
000077f0  99 22 44 72 61 67 41 53  70 72 69 74 65 5f 53 74  |."DragASprite_St|
00007800  6f 70 22 0d 04 5b 18 ea  20 77 69 6e 25 2c 69 63  |op"..[.. win%,ic|
00007810  6f 25 2c 78 25 2c 79 25  2c 76 25 0d 04 5c 22 c8  |o%,x%,y%,v%..\".|
00007820  99 22 57 69 6d 70 5f 47  65 74 50 6f 69 6e 74 65  |."Wimp_GetPointe|
00007830  72 49 6e 66 6f 22 2c 2c  77 69 6d 70 25 0d 04 5d  |rInfo",,wimp%..]|
00007840  11 77 69 6e 25 3d 77 69  6d 70 25 21 31 32 0d 04  |.win%=wimp%!12..|
00007850  5e 11 69 63 6f 25 3d 77  69 6d 70 25 21 31 36 0d  |^.ico%=wimp%!16.|
00007860  04 5f 0d 78 25 3d 21 77  69 6d 70 25 0d 04 60 0e  |._.x%=!wimp%..`.|
00007870  79 25 3d 77 69 6d 70 25  21 34 0d 04 61 42 24 28  |y%=wimp%!4..aB$(|
00007880  77 69 6d 70 25 2b 34 34  29 3d a4 77 69 6d 70 5f  |wimp%+44)=.wimp_|
00007890  67 65 74 6c 65 61 66 6e  61 6d 65 28 a4 77 69 6d  |getleafname(.wim|
000078a0  70 5f 67 65 74 69 63 6f  6e 74 65 78 74 28 77 73  |p_geticontext(ws|
000078b0  61 76 65 77 25 2c 31 29  29 2b bd 30 0d 04 62 11  |avew%,1))+.0..b.|
000078c0  77 69 6d 70 25 21 32 30  3d 77 69 6e 25 0d 04 63  |wimp%!20=win%..c|
000078d0  11 77 69 6d 70 25 21 32  34 3d 69 63 6f 25 0d 04  |.wimp%!24=ico%..|
000078e0  64 0f 77 69 6d 70 25 21  32 38 3d 78 25 0d 04 65  |d.wimp%!28=x%..e|
000078f0  0f 77 69 6d 70 25 21 33  32 3d 79 25 0d 04 66 11  |.wimp%!32=y%..f.|
00007900  77 69 6d 70 25 21 33 36  3d 31 30 32 34 0d 04 67  |wimp%!36=1024..g|
00007910  0d 21 77 69 6d 70 25 3d  36 34 0d 04 68 0e 77 69  |.!wimp%=64..h.wi|
00007920  6d 70 25 21 31 32 3d 30  0d 04 69 0e 77 69 6d 70  |mp%!12=0..i.wimp|
00007930  25 21 31 36 3d 31 0d 04  6a 2d c8 99 22 4f 53 5f  |%!16=1..j-.."OS_|
00007940  52 65 61 64 55 6e 73 69  67 6e 65 64 22 2c 31 30  |ReadUnsigned",10|
00007950  2c 22 26 22 2b 77 73 61  76 65 74 24 20 b8 20 2c  |,"&"+wsavet$ . ,|
00007960  2c 76 25 0d 04 6b 0f 77  69 6d 70 25 21 34 30 3d  |,v%..k.wimp%!40=|
00007970  76 25 0d 04 6c 33 c8 99  22 57 69 6d 70 5f 53 65  |v%..l3.."Wimp_Se|
00007980  6e 64 4d 65 73 73 61 67  65 22 2c 31 38 2c 77 69  |ndMessage",18,wi|
00007990  6d 70 25 2c 77 69 6d 70  25 21 32 30 2c 77 69 6d  |mp%,wimp%!20,wim|
000079a0  70 25 21 32 34 0d 04 6d  11 77 73 61 76 65 64 72  |p%!24..m.wsavedr|
000079b0  61 67 25 3d 2d 31 0d 04  6e 05 e1 0d 04 6f 18 dd  |ag%=-1..n....o..|
000079c0  20 f2 77 69 6d 70 5f 70  6f 6c 6c 6b 65 79 70 72  | .wimp_pollkeypr|
000079d0  65 73 73 0d 04 70 1b ea  20 64 6f 6e 65 2c 64 72  |ess..p.. done,dr|
000079e0  61 67 25 2c 77 72 69 74  65 25 2c 6f 6b 25 0d 04  |ag%,write%,ok%..|
000079f0  71 0a 64 6f 6e 65 3d 30  0d 04 72 35 e7 20 a4 75  |q.done=0..r5. .u|
00007a00  73 65 72 5f 73 61 76 65  66 69 6c 65 74 79 70 65  |ser_savefiletype|
00007a10  28 77 69 6d 70 25 21 30  29 3c 3e 22 22 20 80 20  |(wimp%!0)<>"" . |
00007a20  77 69 6d 70 25 21 32 34  3d 31 33 20 8c 0d 04 73  |wimp%!24=13 ...s|
00007a30  1c 20 20 64 72 61 67 25  3d 30 3a 77 72 69 74 65  |.  drag%=0:write|
00007a40  25 3d 31 3a 6f 6b 25 3d  32 0d 04 74 2e 20 20 f2  |%=1:ok%=2..t.  .|
00007a50  75 73 65 72 5f 73 61 76  65 69 63 6f 6e 28 77 69  |user_saveicon(wi|
00007a60  6d 70 25 21 30 2c 64 72  61 67 25 2c 77 72 69 74  |mp%!0,drag%,writ|
00007a70  65 25 2c 6f 6b 25 29 0d  04 75 36 20 20 e7 20 77  |e%,ok%)..u6  . w|
00007a80  69 6d 70 25 21 34 3d 77  72 69 74 65 25 20 f2 77  |imp%!4=write% .w|
00007a90  69 6d 70 5f 71 75 69 63  6b 73 61 76 65 28 77 69  |imp_quicksave(wi|
00007aa0  6d 70 25 21 30 29 3a 64  6f 6e 65 3d 31 0d 04 76  |mp%!0):done=1..v|
00007ab0  05 cd 0d 04 77 0e e7 20  64 6f 6e 65 3d 31 20 e1  |....w.. done=1 .|
00007ac0  0d 04 78 12 f2 77 69 6d  70 5f 73 61 76 65 77 69  |..x..wimp_savewi|
00007ad0  6d 70 0d 04 79 31 64 6f  6e 65 3d a4 75 73 65 72  |mp..y1done=.user|
00007ae0  5f 6b 65 79 70 72 65 73  73 28 77 69 6d 70 25 21  |_keypress(wimp%!|
00007af0  30 2c 77 69 6d 70 25 21  34 2c 77 69 6d 70 25 21  |0,wimp%!4,wimp%!|
00007b00  32 34 29 0d 04 7a 12 f2  77 69 6d 70 5f 6c 6f 61  |24)..z..wimp_loa|
00007b10  64 77 69 6d 70 0d 04 7b  29 e7 20 64 6f 6e 65 3d  |dwimp..{). done=|
00007b20  30 20 c8 99 22 57 69 6d  70 5f 50 72 6f 63 65 73  |0 .."Wimp_Proces|
00007b30  73 4b 65 79 22 2c 77 69  6d 70 25 21 32 34 0d 04  |sKey",wimp%!24..|
00007b40  7c 05 e1 0d 04 7d 1d dd  20 f2 77 69 6d 70 5f 70  ||....}.. .wimp_p|
00007b50  6f 6c 6c 6d 65 6e 75 73  65 6c 65 63 74 69 6f 6e  |ollmenuselection|
00007b60  0d 04 7e 24 f2 77 69 6d  70 5f 67 65 74 6d 65 6e  |..~$.wimp_getmen|
00007b70  75 61 6e 64 69 74 65 6d  28 77 6c 61 73 74 6d 65  |uanditem(wlastme|
00007b80  6e 75 25 29 0d 04 7f 26  f2 75 73 65 72 5f 6d 65  |nu%)...&.user_me|
00007b90  6e 75 73 65 6c 65 63 74  69 6f 6e 28 77 6d 65 6e  |nuselection(wmen|
00007ba0  75 25 2c 77 69 74 65 6d  25 29 0d 04 80 22 c8 99  |u%,witem%)..."..|
00007bb0  22 57 69 6d 70 5f 47 65  74 50 6f 69 6e 74 65 72  |"Wimp_GetPointer|
00007bc0  49 6e 66 6f 22 2c 2c 77  69 6d 70 25 0d 04 81 12  |Info",,wimp%....|
00007bd0  e7 20 77 69 6d 70 25 21  38 3c 3e 31 20 e1 0d 04  |. wimp%!8<>1 ...|
00007be0  82 39 c8 99 22 57 69 6d  70 5f 43 72 65 61 74 65  |.9.."Wimp_Create|
00007bf0  4d 65 6e 75 22 2c 2c 77  6c 61 73 74 6d 65 6e 75  |Menu",,wlastmenu|
00007c00  25 2c 77 69 6d 70 25 21  30 2d 36 34 2c 77 69 6d  |%,wimp%!0-64,wim|
00007c10  70 25 21 34 2b 32 30 0d  04 83 05 e1 0d 04 84 17  |p%!4+20.........|
00007c20  dd 20 f2 77 69 6d 70 5f  70 6f 6c 6c 6d 65 73 73  |. .wimp_pollmess|
00007c30  61 67 65 0d 04 85 11 c8  8e 20 77 69 6d 70 25 21  |age...... wimp%!|
00007c40  31 36 20 ca 0d 04 86 1a  c9 20 30 20 20 20 20 20  |16 ...... 0     |
00007c50  20 3a 20 66 69 6e 69 73  68 65 64 25 3d b9 0d 04  | : finished%=...|
00007c60  87 20 c9 20 31 20 20 20  20 20 20 3a 20 f2 77 69  |. . 1      : .wi|
00007c70  6d 70 5f 64 61 74 61 6c  6f 61 64 61 70 70 0d 04  |mp_dataloadapp..|
00007c80  88 1d c9 20 32 20 20 20  20 20 20 3a 20 f2 77 69  |... 2      : .wi|
00007c90  6d 70 5f 64 61 74 61 73  61 76 65 0d 04 89 27 c9  |mp_datasave...'.|
00007ca0  20 33 2c 35 20 20 20 20  3a 20 f2 77 69 6d 70 5f  | 3,5    : .wimp_|
00007cb0  64 61 74 61 6c 6f 61 64  28 77 69 6d 70 25 21 31  |dataload(wimp%!1|
00007cc0  36 29 0d 04 8a 1f c9 20  38 20 20 20 20 20 20 3a  |6)..... 8      :|
00007cd0  20 f2 77 69 6d 70 5f 71  75 69 74 69 73 73 75 65  | .wimp_quitissue|
00007ce0  64 0d 04 8b 19 c9 20 26  35 30 32 20 20 20 3a 20  |d..... &502   : |
00007cf0  f2 77 69 6d 70 5f 68 65  6c 70 0d 04 8c 1f c9 20  |.wimp_help..... |
00007d00  26 34 30 30 43 31 20 3a  20 f2 75 73 65 72 5f 6d  |&400C1 : .user_m|
00007d10  6f 64 65 63 68 61 6e 67  65 0d 04 8d 20 c9 20 26  |odechange... . &|
00007d20  34 30 30 43 30 20 3a 20  f2 77 69 6d 70 5f 6f 70  |400C0 : .wimp_op|
00007d30  65 6e 73 75 62 6d 65 6e  75 0d 04 8e 22 c9 20 26  |ensubmenu...". &|
00007d40  38 30 31 34 37 20 3a 20  f2 75 73 65 72 5f 70 72  |80147 : .user_pr|
00007d50  69 6e 74 65 72 63 68 61  6e 67 65 0d 04 8f 05 cb  |interchange.....|
00007d60  0d 04 90 05 e1 0d 04 91  15 dd 20 f2 77 69 6d 70  |.......... .wimp|
00007d70  5f 63 6c 6f 73 65 64 6f  77 6e 0d 04 92 07 ea 20  |_closedown..... |
00007d80  4c 0d 04 93 0f e3 20 4c  3d 30 20 b8 20 32 35 35  |L..... L=0 . 255|
00007d90  0d 04 94 27 20 20 e7 20  77 66 6f 6e 74 62 75 66  |...'  . wfontbuf|
00007da0  25 3f 4c 20 c8 99 22 46  6f 6e 74 5f 4c 6f 73 65  |%?L .."Font_Lose|
00007db0  46 6f 6e 74 22 2c 4c 0d  04 95 07 ed 20 4c 0d 04  |Font",L..... L..|
00007dc0  96 16 c8 99 22 57 69 6d  70 5f 43 6c 6f 73 65 44  |...."Wimp_CloseD|
00007dd0  6f 77 6e 22 0d 04 97 05  e1 0d 04 98 23 dd 20 a4  |own"........#. .|
00007de0  77 69 6d 70 5f 69 63 6f  6e 62 61 72 73 70 28 73  |wimp_iconbarsp(s|
00007df0  70 72 69 74 65 24 2c 70  6f 73 25 29 0d 04 99 17  |prite$,pos%)....|
00007e00  24 77 69 73 70 72 69 74  65 32 25 3d 73 70 72 69  |$wisprite2%=spri|
00007e10  74 65 24 0d 04 9a 10 77  69 6d 70 25 21 30 3d 70  |te$....wimp%!0=p|
00007e20  6f 73 25 0d 04 9b 0d 77  69 6d 70 25 21 34 3d 30  |os%....wimp%!4=0|
00007e30  0d 04 9c 0d 77 69 6d 70  25 21 38 3d 30 0d 04 9d  |....wimp%!8=0...|
00007e40  0f 77 69 6d 70 25 21 31  32 3d 36 38 0d 04 9e 0f  |.wimp%!12=68....|
00007e50  77 69 6d 70 25 21 31 36  3d 38 30 0d 04 9f 16 77  |wimp%!16=80....w|
00007e60  69 6d 70 25 21 32 30 3d  26 31 37 30 30 33 31 30  |imp%!20=&1700310|
00007e70  41 0d 04 a0 17 77 69 6d  70 25 21 32 34 3d 77 69  |A....wimp%!24=wi|
00007e80  73 70 72 69 74 65 32 25  0d 04 a1 0e 77 69 6d 70  |sprite2%....wimp|
00007e90  25 21 32 38 3d 31 0d 04  a2 0f 77 69 6d 70 25 21  |%!28=1....wimp%!|
00007ea0  33 32 3d 32 30 0d 04 a3  0e 77 42 41 52 54 45 58  |32=20....wBARTEX|
00007eb0  54 3d a3 0d 04 a4 27 c8  99 22 57 69 6d 70 5f 43  |T=....'.."Wimp_C|
00007ec0  72 65 61 74 65 49 63 6f  6e 22 2c 2c 77 69 6d 70  |reateIcon",,wimp|
00007ed0  25 20 b8 20 77 69 68 61  6e 25 0d 04 a5 07 3d 2d  |% . wihan%....=-|
00007ee0  32 0d 04 a6 23 dd 20 a4  77 69 6d 70 5f 63 72 65  |2...#. .wimp_cre|
00007ef0  61 74 65 6d 65 6e 75 28  6d 65 6e 75 24 2c 73 69  |atemenu(menu$,si|
00007f00  7a 65 25 29 0d 04 a7 34  ea 20 77 6d 65 6e 75 25  |ze%)...4. wmenu%|
00007f10  2c 6e 75 6d 2c 71 2c 4c  2c 6d 66 6c 61 67 73 25  |,num,q,L,mflags%|
00007f20  2c 61 25 2c 77 69 64 74  68 25 2c 65 78 74 72 61  |,a%,width%,extra|
00007f30  25 2c 74 69 74 6c 65 24  0d 04 a8 24 6e 75 6d 3d  |%,title$...$num=|
00007f40  a4 77 69 6d 70 5f 6e 75  6d 62 65 72 6f 66 65 6e  |.wimp_numberofen|
00007f50  74 72 69 65 73 28 6d 65  6e 75 24 29 0d 04 a9 0a  |tries(menu$)....|
00007f60  6e 75 6d 2d 3d 31 0d 04  aa 18 e7 20 73 69 7a 65  |num-=1..... size|
00007f70  25 3c 3d 6e 75 6d 20 73  69 7a 65 25 3d 30 0d 04  |%<=num size%=0..|
00007f80  ab 22 e7 20 73 69 7a 65  25 3d 30 20 de 20 77 6d  |.". size%=0 . wm|
00007f90  65 6e 75 25 20 28 6e 75  6d 2a 32 34 29 2b 32 38  |enu% (num*24)+28|
00007fa0  0d 04 ac 3f e7 20 73 69  7a 65 25 3e 30 20 65 78  |...?. size%>0 ex|
00007fb0  74 72 61 25 3d 73 69 7a  65 25 2d 6e 75 6d 3a de  |tra%=size%-num:.|
00007fc0  20 77 6d 65 6e 75 25 20  28 6e 75 6d 2a 32 34 29  | wmenu% (num*24)|
00007fd0  2b 32 38 2b 28 65 78 74  72 61 25 2a 32 34 29 0d  |+28+(extra%*24).|
00007fe0  04 ad 11 71 3d a7 6d 65  6e 75 24 2c 22 2f 22 29  |...q=.menu$,"/")|
00007ff0  0d 04 ae 16 74 69 74 6c  65 24 3d c0 6d 65 6e 75  |....title$=.menu|
00008000  24 2c 71 2d 31 29 0d 04  af 25 e7 20 a9 28 74 69  |$,q-1)...%. .(ti|
00008010  74 6c 65 24 29 3e 31 31  20 74 69 74 6c 65 24 3d  |tle$)>11 title$=|
00008020  c0 74 69 74 6c 65 24 2c  31 31 29 0d 04 b0 12 24  |.title$,11)....$|
00008030  77 6d 65 6e 75 25 3d 74  69 74 6c 65 24 0d 04 b1  |wmenu%=title$...|
00008040  1c 6d 65 6e 75 24 3d c2  6d 65 6e 75 24 2c a9 28  |.menu$=.menu$,.(|
00008050  6d 65 6e 75 24 29 2d 71  29 0d 04 b2 20 77 69 64  |menu$)-q)... wid|
00008060  74 68 25 3d 28 a9 28 c0  6d 65 6e 75 24 2c 71 2d  |th%=(.(.menu$,q-|
00008070  31 29 29 2d 31 29 2a 31  36 0d 04 b3 17 77 6d 65  |1))-1)*16....wme|
00008080  6e 75 25 21 31 32 3d 26  30 30 30 37 30 32 30 37  |nu%!12=&00070207|
00008090  0d 04 b4 10 77 6d 65 6e  75 25 21 32 30 3d 34 34  |....wmenu%!20=44|
000080a0  0d 04 b5 0f 77 6d 65 6e  75 25 21 32 34 3d 30 0d  |....wmenu%!24=0.|
000080b0  04 b6 13 77 70 74 72 25  3d 77 6d 65 6e 75 25 2b  |...wptr%=wmenu%+|
000080c0  32 38 0d 04 b7 0f e3 20  4c 3d 31 20 b8 20 6e 75  |28..... L=1 . nu|
000080d0  6d 0d 04 b8 22 f2 77 69  6d 70 5f 64 65 63 6f 64  |m...".wimp_decod|
000080e0  65 6d 65 6e 75 65 6e 74  72 79 28 6d 65 6e 75 24  |emenuentry(menu$|
000080f0  2c 4c 29 0d 04 b9 23 e7  20 4c 3d 6e 75 6d 20 6d  |,L)...#. L=num m|
00008100  66 6c 61 67 73 25 3d 26  38 38 20 8b 20 6d 66 6c  |flags%=&88 . mfl|
00008110  61 67 73 25 3d 38 0d 04  ba 12 21 77 70 74 72 25  |ags%=8....!wptr%|
00008120  3d 6d 66 6c 61 67 73 25  0d 04 bb 14 77 70 74 72  |=mflags%....wptr|
00008130  25 21 34 3d 77 73 75 62  70 74 72 25 0d 04 bc 14  |%!4=wsubptr%....|
00008140  77 70 74 72 25 21 38 3d  26 37 30 30 30 30 32 31  |wptr%!8=&7000021|
00008150  0d 04 bd 62 e7 20 a9 28  69 74 65 6d 24 29 3e 31  |...b. .(item$)>1|
00008160  31 20 de 20 74 77 65 6c  76 65 25 20 a9 28 69 74  |1 . twelve% .(it|
00008170  65 6d 24 29 3a 24 28 74  77 65 6c 76 65 25 29 3d  |em$):$(twelve%)=|
00008180  69 74 65 6d 24 3a 77 70  74 72 25 21 38 3d 26 37  |item$:wptr%!8=&7|
00008190  30 30 30 31 32 31 3a 77  70 74 72 25 21 31 32 3d  |000121:wptr%!12=|
000081a0  74 77 65 6c 76 65 25 3a  77 70 74 72 25 21 31 36  |twelve%:wptr%!16|
000081b0  3d 30 0d 04 be 23 e7 20  a9 28 69 74 65 6d 24 29  |=0...#. .(item$)|
000081c0  3c 31 32 20 24 28 77 70  74 72 25 2b 31 32 29 3d  |<12 $(wptr%+12)=|
000081d0  69 74 65 6d 24 0d 04 bf  16 61 25 3d 28 a9 28 69  |item$....a%=(.(i|
000081e0  74 65 6d 24 29 2b 31 29  2a 31 36 0d 04 c0 19 e7  |tem$)+1)*16.....|
000081f0  20 61 25 3e 77 69 64 74  68 25 20 77 69 64 74 68  | a%>width% width|
00008200  25 3d 61 25 0d 04 c1 0d  77 70 74 72 25 2b 3d 32  |%=a%....wptr%+=2|
00008210  34 0d 04 c2 07 ed 20 4c  0d 04 c3 2d f4 20 6d 69  |4..... L...-. mi|
00008220  6e 25 3d 28 46 4e 75 73  65 72 5f 6d 69 6e 6d 65  |n%=(FNuser_minme|
00008230  6e 75 77 69 64 74 68 28  77 6d 65 6e 75 25 29 2b  |nuwidth(wmenu%)+|
00008240  31 29 2a 31 36 0d 04 c4  20 f4 20 49 46 20 6d 69  |1)*16... . IF mi|
00008250  6e 25 3e 77 69 64 74 68  25 20 77 69 64 74 68 25  |n%>width% width%|
00008260  3d 6d 69 6e 25 0d 04 c5  14 77 6d 65 6e 75 25 21  |=min%....wmenu%!|
00008270  31 36 3d 77 69 64 74 68  25 0d 04 c6 0b 3d 77 6d  |16=width%....=wm|
00008280  65 6e 75 25 0d 04 c7 14  dd 20 f2 77 69 6d 70 5f  |enu%..... .wimp_|
00008290  73 61 76 65 77 69 6d 70  0d 04 c8 13 e3 20 4c 3d  |savewimp..... L=|
000082a0  30 20 b8 20 33 31 36 20  88 20 34 0d 04 c9 16 20  |0 . 316 . 4.... |
000082b0  20 77 74 62 6c 6b 25 21  4c 3d 77 69 6d 70 25 21  | wtblk%!L=wimp%!|
000082c0  4c 0d 04 ca 07 ed 20 4c  0d 04 cb 05 e1 0d 04 cc  |L..... L........|
000082d0  14 dd 20 f2 77 69 6d 70  5f 6c 6f 61 64 77 69 6d  |.. .wimp_loadwim|
000082e0  70 0d 04 cd 13 e3 20 4c  3d 30 20 b8 20 33 31 36  |p..... L=0 . 316|
000082f0  20 88 20 34 0d 04 ce 16  20 20 77 69 6d 70 25 21  | . 4....  wimp%!|
00008300  4c 3d 77 74 62 6c 6b 25  21 4c 0d 04 cf 07 ed 20  |L=wtblk%!L..... |
00008310  4c 0d 04 d0 05 e1 0d 04  d1 21 dd 20 f2 77 69 6d  |L........!. .wim|
00008320  70 5f 6d 65 6e 75 6a 75  73 74 6f 70 65 6e 65 64  |p_menujustopened|
00008330  28 6d 65 6e 75 25 29 0d  04 d2 16 ea 20 64 72 61  |(menu%)..... dra|
00008340  67 25 2c 77 72 69 74 65  25 2c 6f 6b 25 0d 04 d3  |g%,write%,ok%...|
00008350  25 e7 20 a4 75 73 65 72  5f 73 61 76 65 66 69 6c  |%. .user_savefil|
00008360  65 74 79 70 65 28 6d 65  6e 75 25 29 3c 3e 22 22  |etype(menu%)<>""|
00008370  20 8c 0d 04 d4 1c 20 20  64 72 61 67 25 3d 30 3a  | .....  drag%=0:|
00008380  77 72 69 74 65 25 3d 31  3a 6f 6b 25 3d 32 0d 04  |write%=1:ok%=2..|
00008390  d5 2c 20 20 f2 75 73 65  72 5f 73 61 76 65 69 63  |.,  .user_saveic|
000083a0  6f 6e 28 6d 65 6e 75 25  2c 64 72 61 67 25 2c 77  |on(menu%,drag%,w|
000083b0  72 69 74 65 25 2c 6f 6b  25 29 0d 04 d6 22 20 20  |rite%,ok%)..."  |
000083c0  f2 77 69 6d 70 5f 70 75  74 63 61 72 65 74 28 6d  |.wimp_putcaret(m|
000083d0  65 6e 75 25 2c 77 72 69  74 65 25 29 0d 04 d7 05  |enu%,write%)....|
000083e0  cd 0d 04 d8 05 e1 0d 04  d9 1d dd 20 f2 77 69 6d  |........... .wim|
000083f0  70 5f 63 65 6e 74 72 65  6d 65 6e 75 28 6d 68 61  |p_centremenu(mha|
00008400  6e 25 29 0d 04 da 45 ea  20 78 30 2c 79 30 2c 78  |n%)...E. x0,y0,x|
00008410  31 2c 79 31 2c 77 77 69  64 74 68 2c 77 68 65 69  |1,y1,wwidth,whei|
00008420  67 68 74 2c 58 45 69 67  2c 59 45 69 67 2c 73 78  |ght,XEig,YEig,sx|
00008430  2c 73 79 2c 73 77 69 64  74 68 2c 73 68 65 69 67  |,sy,swidth,sheig|
00008440  68 74 2c 78 25 2c 79 25  0d 04 db 11 77 69 6d 70  |ht,x%,y%....wimp|
00008450  25 21 30 3d 6d 68 61 6e  25 0d 04 dc 21 c8 99 22  |%!0=mhan%...!.."|
00008460  57 69 6d 70 5f 47 65 74  57 69 6e 64 6f 77 49 6e  |Wimp_GetWindowIn|
00008470  66 6f 22 2c 2c 77 69 6d  70 25 0d 04 dd 19 78 30  |fo",,wimp%....x0|
00008480  3d 77 69 6d 70 25 21 34  3a 79 30 3d 77 69 6d 70  |=wimp%!4:y0=wimp|
00008490  25 21 38 0d 04 de 1b 78  31 3d 77 69 6d 70 25 21  |%!8....x1=wimp%!|
000084a0  31 32 3a 79 31 3d 77 69  6d 70 25 21 31 36 0d 04  |12:y1=wimp%!16..|
000084b0  df 1e 77 77 69 64 74 68  3d 78 31 2d 78 30 3a 77  |..wwidth=x1-x0:w|
000084c0  68 65 69 67 68 74 3d 79  31 2d 79 30 0d 04 e0 29  |height=y1-y0...)|
000084d0  c8 99 22 4f 53 5f 52 65  61 64 4d 6f 64 65 56 61  |.."OS_ReadModeVa|
000084e0  72 69 61 62 6c 65 22 2c  2d 31 2c 34 20 b8 20 2c  |riable",-1,4 . ,|
000084f0  2c 58 45 69 67 0d 04 e1  29 c8 99 22 4f 53 5f 52  |,XEig...).."OS_R|
00008500  65 61 64 4d 6f 64 65 56  61 72 69 61 62 6c 65 22  |eadModeVariable"|
00008510  2c 2d 31 2c 35 20 b8 20  2c 2c 59 45 69 67 0d 04  |,-1,5 . ,,YEig..|
00008520  e2 28 c8 99 22 4f 53 5f  52 65 61 64 4d 6f 64 65  |.(.."OS_ReadMode|
00008530  56 61 72 69 61 62 6c 65  22 2c 2d 31 2c 31 31 20  |Variable",-1,11 |
00008540  b8 20 2c 2c 73 78 0d 04  e3 28 c8 99 22 4f 53 5f  |. ,,sx...(.."OS_|
00008550  52 65 61 64 4d 6f 64 65  56 61 72 69 61 62 6c 65  |ReadModeVariable|
00008560  22 2c 2d 31 2c 31 32 20  b8 20 2c 2c 73 79 0d 04  |",-1,12 . ,,sy..|
00008570  e4 13 73 77 69 64 74 68  3d 73 78 3c 3c 58 45 69  |..swidth=sx<<XEi|
00008580  67 0d 04 e5 14 73 68 65  69 67 68 74 3d 73 79 3c  |g....sheight=sy<|
00008590  3c 59 45 69 67 0d 04 e6  18 78 25 3d 28 73 77 69  |<YEig....x%=(swi|
000085a0  64 74 68 2d 77 77 69 64  74 68 29 2f 32 0d 04 e7  |dth-wwidth)/2...|
000085b0  24 79 25 3d 28 28 73 68  65 69 67 68 74 2d 77 68  |$y%=((sheight-wh|
000085c0  65 69 67 68 74 29 2f 32  29 2b 77 68 65 69 67 68  |eight)/2)+wheigh|
000085d0  74 0d 04 e8 24 c8 99 22  57 69 6d 70 5f 43 72 65  |t...$.."Wimp_Cre|
000085e0  61 74 65 4d 65 6e 75 22  2c 2c 6d 68 61 6e 25 2c  |ateMenu",,mhan%,|
000085f0  78 25 2c 79 25 0d 04 e9  05 e1 0d 04 ea 1e dd 20  |x%,y%.......... |
00008600  a4 77 69 6d 70 5f 67 65  74 6c 65 61 66 6e 61 6d  |.wimp_getleafnam|
00008610  65 28 74 65 78 74 24 29  0d 04 eb 09 ea 20 4c 2c  |e(text$)..... L,|
00008620  70 0d 04 ec 07 70 3d 30  0d 04 ed 14 e3 20 4c 3d  |p....p=0..... L=|
00008630  31 20 b8 20 a9 28 74 65  78 74 24 29 0d 04 ee 19  |1 . .(text$)....|
00008640  e7 20 c1 74 65 78 74 24  2c 4c 2c 31 29 3d 22 2e  |. .text$,L,1)=".|
00008650  22 20 70 3d 4c 0d 04 ef  07 ed 20 4c 0d 04 f0 10  |" p=L..... L....|
00008660  e7 20 70 3d 30 20 3d 74  65 78 74 24 0d 04 f1 17  |. p=0 =text$....|
00008670  3d c2 74 65 78 74 24 2c  a9 28 74 65 78 74 24 29  |=.text$,.(text$)|
00008680  2d 70 29 0d 04 f2 19 dd  20 a4 77 69 6d 70 5f 73  |-p)..... .wimp_s|
00008690  74 72 69 6e 67 28 77 70  74 72 25 29 0d 04 f3 08  |tring(wptr%)....|
000086a0  ea 20 61 24 0d 04 f4 10  c8 95 20 3f 77 70 74 72  |. a$...... ?wptr|
000086b0  25 3c 3e 30 0d 04 f5 1a  61 24 2b 3d bd 28 3f 77  |%<>0....a$+=.(?w|
000086c0  70 74 72 25 29 3a 77 70  74 72 25 2b 3d 31 0d 04  |ptr%):wptr%+=1..|
000086d0  f6 05 ce 0d 04 f7 07 3d  61 24 0d 04 f8 1a dd 20  |.......=a$..... |
000086e0  f2 77 69 6d 70 5f 64 72  61 67 67 69 6e 67 73 6c  |.wimp_draggingsl|
000086f0  69 64 65 72 0d 04 f9 28  ea 20 6d 69 6e 78 25 2c  |ider...(. minx%,|
00008700  6d 69 6e 79 25 2c 6d 61  78 78 25 2c 6d 61 78 79  |miny%,maxx%,maxy|
00008710  25 2c 6c 65 6e 25 2c 6c  65 6e 32 25 0d 04 fa 24  |%,len%,len2%...$|
00008720  21 77 69 6d 70 25 3d 77  73 6c 69 64 65 77 25 3a  |!wimp%=wslidew%:|
00008730  77 69 6d 70 25 21 34 3d  77 73 6c 69 64 65 69 25  |wimp%!4=wslidei%|
00008740  0d 04 fb 20 c8 99 22 57  69 6d 70 5f 47 65 74 49  |... .."Wimp_GetI|
00008750  63 6f 6e 53 74 61 74 65  22 2c 2c 77 69 6d 70 25  |conState",,wimp%|
00008760  0d 04 fc 2a 6d 69 6e 78  25 3d 77 69 6d 70 25 21  |...*minx%=wimp%!|
00008770  38 2b 77 6f 78 25 3a 6d  61 78 78 25 3d 77 69 6d  |8+wox%:maxx%=wim|
00008780  70 25 21 31 36 2b 77 6f  78 25 0d 04 fd 2b 6d 69  |p%!16+wox%...+mi|
00008790  6e 79 25 3d 77 69 6d 70  25 21 31 32 2b 77 6f 79  |ny%=wimp%!12+woy|
000087a0  25 3a 6d 61 78 79 25 3d  77 69 6d 70 25 21 32 30  |%:maxy%=wimp%!20|
000087b0  2b 77 6f 79 25 0d 04 fe  22 c8 99 22 57 69 6d 70  |+woy%...".."Wimp|
000087c0  5f 47 65 74 50 6f 69 6e  74 65 72 49 6e 66 6f 22  |_GetPointerInfo"|
000087d0  2c 2c 77 69 6d 70 25 0d  04 ff 29 6c 65 6e 25 3d  |,,wimp%...)len%=|
000087e0  21 77 69 6d 70 25 2d 6d  69 6e 78 25 3a 6c 65 6e  |!wimp%-minx%:len|
000087f0  32 25 3d 77 69 6d 70 25  21 34 2d 6d 69 6e 79 25  |2%=wimp%!4-miny%|
00008800  0d 05 00 15 e7 20 77 73  68 65 69 25 3e 77 73 77  |..... wshei%>wsw|
00008810  69 64 25 20 8c 0d 05 01  17 20 20 e7 20 6c 65 6e  |id% .....  . len|
00008820  32 25 3c 3e 77 6c 65 6e  32 25 20 8c 0d 05 02 2c  |2%<>wlen2% ....,|
00008830  20 20 20 20 f2 77 69 6d  70 5f 62 61 72 28 77 73  |    .wimp_bar(ws|
00008840  6c 69 64 65 77 25 2c 77  73 6c 69 64 65 69 25 2c  |lidew%,wslidei%,|
00008850  6c 65 6e 32 25 2c 31 29  0d 05 03 14 20 20 20 20  |len2%,1)....    |
00008860  77 6c 65 6e 32 25 3d 6c  65 6e 32 25 0d 05 04 5b  |wlen2%=len2%...[|
00008870  20 20 20 20 f2 75 73 65  72 5f 73 6c 69 64 65 72  |    .user_slider|
00008880  76 61 6c 75 65 28 77 73  6c 69 64 65 77 25 2c 77  |value(wslidew%,w|
00008890  73 6c 69 64 65 69 25 2c  a4 77 69 6d 70 5f 63 61  |slidei%,.wimp_ca|
000088a0  6c 63 73 6c 69 64 65 70  63 65 6e 74 28 77 73 6c  |lcslidepcent(wsl|
000088b0  69 64 65 77 25 2c 77 73  6c 69 64 65 69 25 2c 77  |idew%,wslidei%,w|
000088c0  73 68 65 69 25 29 29 0d  05 05 07 20 20 cd 0d 05  |shei%))....  ...|
000088d0  06 05 cc 0d 05 07 15 20  20 e7 20 6c 65 6e 25 3c  |.......  . len%<|
000088e0  3e 77 6c 65 6e 25 20 8c  0d 05 08 2b 20 20 20 20  |>wlen% ....+    |
000088f0  f2 77 69 6d 70 5f 62 61  72 28 77 73 6c 69 64 65  |.wimp_bar(wslide|
00008900  77 25 2c 77 73 6c 69 64  65 69 25 2c 6c 65 6e 25  |w%,wslidei%,len%|
00008910  2c 30 29 0d 05 09 12 20  20 20 20 77 6c 65 6e 25  |,0)....    wlen%|
00008920  3d 6c 65 6e 25 0d 05 0a  5b 20 20 20 20 f2 75 73  |=len%...[    .us|
00008930  65 72 5f 73 6c 69 64 65  72 76 61 6c 75 65 28 77  |er_slidervalue(w|
00008940  73 6c 69 64 65 77 25 2c  77 73 6c 69 64 65 69 25  |slidew%,wslidei%|
00008950  2c a4 77 69 6d 70 5f 63  61 6c 63 73 6c 69 64 65  |,.wimp_calcslide|
00008960  70 63 65 6e 74 28 77 73  6c 69 64 65 77 25 2c 77  |pcent(wslidew%,w|
00008970  73 6c 69 64 65 69 25 2c  77 73 77 69 64 25 29 29  |slidei%,wswid%))|
00008980  0d 05 0b 07 20 20 cd 0d  05 0c 05 cd 0d 05 0d 05  |....  ..........|
00008990  e1 0d 05 0e 1f dd 20 a4  77 69 6d 70 5f 69 73 77  |...... .wimp_isw|
000089a0  69 6e 64 6f 77 6f 70 65  6e 28 77 68 61 6e 25 29  |indowopen(whan%)|
000089b0  0d 05 0f 10 21 77 69 6d  70 25 3d 77 68 61 6e 25  |....!wimp%=whan%|
000089c0  0d 05 10 22 c8 99 22 57  69 6d 70 5f 47 65 74 57  |...".."Wimp_GetW|
000089d0  69 6e 64 6f 77 53 74 61  74 65 22 2c 2c 77 69 6d  |indowState",,wim|
000089e0  70 25 0d 05 11 19 3d 28  77 69 6d 70 25 21 33 32  |p%....=(wimp%!32|
000089f0  20 3e 3e 20 31 36 29 20  80 20 31 0d 05 12 22 dd  | >> 16) . 1...".|
00008a00  20 f2 77 69 6d 70 5f 73  74 61 72 74 64 72 61 67  | .wimp_startdrag|
00008a10  28 77 68 61 6e 25 2c 69  63 6f 6e 25 29 0d 05 13  |(whan%,icon%)...|
00008a20  27 ea 20 6f 78 25 2c 6f  79 25 2c 69 25 2c 77 25  |'. ox%,oy%,i%,w%|
00008a30  2c 6e 24 2c 64 72 61 67  25 2c 77 72 69 74 65 25  |,n$,drag%,write%|
00008a40  2c 6f 6b 25 0d 05 14 25  77 73 61 76 65 74 24 3d  |,ok%...%wsavet$=|
00008a50  a4 75 73 65 72 5f 73 61  76 65 66 69 6c 65 74 79  |.user_savefilety|
00008a60  70 65 28 77 68 61 6e 25  29 0d 05 15 35 e7 20 77  |pe(whan%)...5. w|
00008a70  73 61 76 65 74 24 3d 22  22 20 f2 77 69 6d 70 5f  |savet$="" .wimp_|
00008a80  73 74 61 72 74 73 6c 69  64 65 72 64 72 61 67 28  |startsliderdrag(|
00008a90  77 68 61 6e 25 2c 69 63  6f 6e 25 29 3a e1 0d 05  |whan%,icon%):...|
00008aa0  16 22 77 73 61 76 65 77  25 3d 77 68 61 6e 25 3a  |."wsavew%=whan%:|
00008ab0  77 73 61 76 65 64 72 61  67 25 3d 77 68 61 6e 25  |wsavedrag%=whan%|
00008ac0  0d 05 17 12 21 77 69 6d  70 25 3d 77 73 61 76 65  |....!wimp%=wsave|
00008ad0  77 25 0d 05 18 22 c8 99  22 57 69 6d 70 5f 47 65  |w%...".."Wimp_Ge|
00008ae0  74 57 69 6e 64 6f 77 53  74 61 74 65 22 2c 2c 77  |tWindowState",,w|
00008af0  69 6d 70 25 0d 05 19 18  6f 78 25 3d 77 69 6d 70  |imp%....ox%=wimp|
00008b00  25 21 34 2d 77 69 6d 70  25 21 32 30 0d 05 1a 19  |%!4-wimp%!20....|
00008b10  6f 79 25 3d 77 69 6d 70  25 21 31 36 2d 77 69 6d  |oy%=wimp%!16-wim|
00008b20  70 25 21 32 34 0d 05 1b  1a 64 72 61 67 25 3d 30  |p%!24....drag%=0|
00008b30  3a 77 72 69 74 65 25 3d  31 3a 6f 6b 25 3d 32 0d  |:write%=1:ok%=2.|
00008b40  05 1c 2c f2 75 73 65 72  5f 73 61 76 65 69 63 6f  |..,.user_saveico|
00008b50  6e 28 77 73 61 76 65 77  25 2c 64 72 61 67 25 2c  |n(wsavew%,drag%,|
00008b60  77 72 69 74 65 25 2c 6f  6b 25 29 0d 05 1d 14 e7  |write%,ok%).....|
00008b70  20 64 72 61 67 25 3c 3e  69 63 6f 6e 25 20 e1 0d  | drag%<>icon% ..|
00008b80  05 1e 11 77 69 6d 70 25  21 34 3d 64 72 61 67 25  |...wimp%!4=drag%|
00008b90  0d 05 1f 20 c8 99 22 57  69 6d 70 5f 47 65 74 49  |... .."Wimp_GetI|
00008ba0  63 6f 6e 53 74 61 74 65  22 2c 2c 77 69 6d 70 25  |conState",,wimp%|
00008bb0  0d 05 20 18 69 25 3d 28  77 69 6d 70 25 21 32 34  |.. .i%=(wimp%!24|
00008bc0  3e 3e 38 29 20 80 20 31  0d 05 21 1e e7 20 69 25  |>>8) . 1..!.. i%|
00008bd0  3d 30 20 6e 24 3d 24 28  77 69 6d 70 25 2b 32 38  |=0 n$=$(wimp%+28|
00008be0  29 3a 77 25 3d 31 0d 05  22 25 e7 20 69 25 3d 31  |):w%=1.."%. i%=1|
00008bf0  20 6e 24 3d 24 28 77 69  6d 70 25 21 32 38 29 3a  | n$=$(wimp%!28):|
00008c00  77 25 3d 77 69 6d 70 25  21 33 32 0d 05 23 2b 21  |w%=wimp%!32..#+!|
00008c10  77 69 6d 70 25 3d 77 69  6d 70 25 21 38 2b 6f 78  |wimp%=wimp%!8+ox|
00008c20  25 3a 77 69 6d 70 25 21  34 3d 77 69 6d 70 25 21  |%:wimp%!4=wimp%!|
00008c30  31 32 2b 6f 79 25 0d 05  24 2e 77 69 6d 70 25 21  |12+oy%..$.wimp%!|
00008c40  38 3d 77 69 6d 70 25 21  31 36 2b 6f 78 25 3a 77  |8=wimp%!16+ox%:w|
00008c50  69 6d 70 25 21 31 32 3d  77 69 6d 70 25 21 32 30  |imp%!12=wimp%!20|
00008c60  2b 6f 79 25 0d 05 25 2f  c8 99 22 44 72 61 67 41  |+oy%..%/.."DragA|
00008c70  53 70 72 69 74 65 5f 53  74 61 72 74 22 2c 25 31  |Sprite_Start",%1|
00008c80  31 30 30 31 30 31 30 2c  77 25 2c 6e 24 2c 77 69  |1001010,w%,n$,wi|
00008c90  6d 70 25 0d 05 26 05 e1  0d 05 27 2e dd 20 f2 77  |mp%..&....'.. .w|
00008ca0  69 6d 70 5f 63 6c 69 63  6b 65 64 73 6c 69 64 65  |imp_clickedslide|
00008cb0  72 28 77 68 61 6e 25 2c  69 63 6f 6e 25 2c 6d 78  |r(whan%,icon%,mx|
00008cc0  25 2c 6d 79 25 29 0d 05  28 4c ea 20 6c 65 6e 25  |%,my%)..(L. len%|
00008cd0  2c 6d 69 6e 78 25 2c 6d  69 6e 79 25 2c 6d 61 78  |,minx%,miny%,max|
00008ce0  78 25 2c 6d 61 78 79 25  2c 6f 78 25 2c 6f 79 25  |x%,maxy%,ox%,oy%|
00008cf0  2c 6c 65 6e 32 25 2c 6d  69 6e 78 62 25 2c 6d 69  |,len2%,minxb%,mi|
00008d00  6e 79 62 25 2c 6d 61 78  78 62 25 2c 6d 61 78 79  |nyb%,maxxb%,maxy|
00008d10  62 25 0d 05 29 10 21 77  69 6d 70 25 3d 77 68 61  |b%..).!wimp%=wha|
00008d20  6e 25 0d 05 2a 22 c8 99  22 57 69 6d 70 5f 47 65  |n%..*".."Wimp_Ge|
00008d30  74 57 69 6e 64 6f 77 53  74 61 74 65 22 2c 2c 77  |tWindowState",,w|
00008d40  69 6d 70 25 0d 05 2b 18  6f 78 25 3d 77 69 6d 70  |imp%..+.ox%=wimp|
00008d50  25 21 34 2d 77 69 6d 70  25 21 32 30 0d 05 2c 19  |%!4-wimp%!20..,.|
00008d60  6f 79 25 3d 77 69 6d 70  25 21 31 36 2d 77 69 6d  |oy%=wimp%!16-wim|
00008d70  70 25 21 32 34 0d 05 2d  1e 21 77 69 6d 70 25 3d  |p%!24..-.!wimp%=|
00008d80  77 68 61 6e 25 3a 77 69  6d 70 25 21 34 3d 69 63  |whan%:wimp%!4=ic|
00008d90  6f 6e 25 0d 05 2e 20 c8  99 22 57 69 6d 70 5f 47  |on%... .."Wimp_G|
00008da0  65 74 49 63 6f 6e 53 74  61 74 65 22 2c 2c 77 69  |etIconState",,wi|
00008db0  6d 70 25 0d 05 2f 28 6d  69 6e 78 25 3d 77 69 6d  |mp%../(minx%=wim|
00008dc0  70 25 21 38 2b 6f 78 25  3a 6d 61 78 78 25 3d 77  |p%!8+ox%:maxx%=w|
00008dd0  69 6d 70 25 21 31 36 2b  6f 78 25 0d 05 30 29 6d  |imp%!16+ox%..0)m|
00008de0  69 6e 79 25 3d 77 69 6d  70 25 21 31 32 2b 6f 79  |iny%=wimp%!12+oy|
00008df0  25 3a 6d 61 78 79 25 3d  77 69 6d 70 25 21 32 30  |%:maxy%=wimp%!20|
00008e00  2b 6f 79 25 0d 05 31 22  6c 65 6e 25 3d 6d 78 25  |+oy%..1"len%=mx%|
00008e10  2d 6d 69 6e 78 25 3a 6c  65 6e 32 25 3d 6d 79 25  |-minx%:len2%=my%|
00008e20  2d 6d 69 6e 79 25 0d 05  32 36 21 77 69 6d 70 25  |-miny%..26!wimp%|
00008e30  3d 77 68 61 6e 25 3a 77  69 6d 70 25 21 34 3d a4  |=whan%:wimp%!4=.|
00008e40  75 73 65 72 5f 73 6c 69  64 65 72 62 61 63 6b 28  |user_sliderback(|
00008e50  77 68 61 6e 25 2c 69 63  6f 6e 25 29 0d 05 33 20  |whan%,icon%)..3 |
00008e60  c8 99 22 57 69 6d 70 5f  47 65 74 49 63 6f 6e 53  |.."Wimp_GetIconS|
00008e70  74 61 74 65 22 2c 2c 77  69 6d 70 25 0d 05 34 2a  |tate",,wimp%..4*|
00008e80  6d 69 6e 78 62 25 3d 77  69 6d 70 25 21 38 2b 6f  |minxb%=wimp%!8+o|
00008e90  78 25 3a 6d 61 78 78 62  25 3d 77 69 6d 70 25 21  |x%:maxxb%=wimp%!|
00008ea0  31 36 2b 6f 78 25 0d 05  35 2b 6d 69 6e 79 62 25  |16+ox%..5+minyb%|
00008eb0  3d 77 69 6d 70 25 21 31  32 2b 6f 79 25 3a 6d 61  |=wimp%!12+oy%:ma|
00008ec0  78 79 62 25 3d 77 69 6d  70 25 21 32 30 2b 6f 79  |xyb%=wimp%!20+oy|
00008ed0  25 0d 05 36 27 e7 20 28  6d 61 78 79 62 25 2d 6d  |%..6'. (maxyb%-m|
00008ee0  69 6e 79 62 25 29 3e 28  6d 61 78 78 62 25 2d 6d  |inyb%)>(maxxb%-m|
00008ef0  69 6e 78 62 25 29 20 8c  0d 05 37 24 20 20 f2 77  |inxb%) ...7$  .w|
00008f00  69 6d 70 5f 62 61 72 28  77 68 61 6e 25 2c 69 63  |imp_bar(whan%,ic|
00008f10  6f 6e 25 2c 6c 65 6e 32  25 2c 31 29 0d 05 38 05  |on%,len2%,1)..8.|
00008f20  cc 0d 05 39 23 20 20 f2  77 69 6d 70 5f 62 61 72  |...9#  .wimp_bar|
00008f30  28 77 68 61 6e 25 2c 69  63 6f 6e 25 2c 6c 65 6e  |(whan%,icon%,len|
00008f40  25 2c 30 29 0d 05 3a 05  cd 0d 05 3b 36 21 77 69  |%,0)..:....;6!wi|
00008f50  6d 70 25 3d 77 68 61 6e  25 3a 77 69 6d 70 25 21  |mp%=whan%:wimp%!|
00008f60  34 3d a4 75 73 65 72 5f  73 6c 69 64 65 72 62 61  |4=.user_sliderba|
00008f70  63 6b 28 77 68 61 6e 25  2c 69 63 6f 6e 25 29 0d  |ck(whan%,icon%).|
00008f80  05 3c 20 c8 99 22 57 69  6d 70 5f 47 65 74 49 63  |.< .."Wimp_GetIc|
00008f90  6f 6e 53 74 61 74 65 22  2c 2c 77 69 6d 70 25 0d  |onState",,wimp%.|
00008fa0  05 3d 27 e7 20 28 6d 61  78 79 62 25 2d 6d 69 6e  |.='. (maxyb%-min|
00008fb0  79 62 25 29 3e 28 6d 61  78 78 62 25 2d 6d 69 6e  |yb%)>(maxxb%-min|
00008fc0  78 62 25 29 20 8c 0d 05  3e 58 20 20 f2 75 73 65  |xb%) ...>X  .use|
00008fd0  72 5f 73 6c 69 64 65 72  76 61 6c 75 65 28 77 68  |r_slidervalue(wh|
00008fe0  61 6e 25 2c 69 63 6f 6e  25 2c a4 77 69 6d 70 5f  |an%,icon%,.wimp_|
00008ff0  63 61 6c 63 73 6c 69 64  65 70 63 65 6e 74 28 77  |calcslidepcent(w|
00009000  68 61 6e 25 2c 69 63 6f  6e 25 2c 77 69 6d 70 25  |han%,icon%,wimp%|
00009010  21 32 30 2d 77 69 6d 70  25 21 31 32 29 29 0d 05  |!20-wimp%!12))..|
00009020  3f 05 cc 0d 05 40 57 20  20 f2 75 73 65 72 5f 73  |?....@W  .user_s|
00009030  6c 69 64 65 72 76 61 6c  75 65 28 77 68 61 6e 25  |lidervalue(whan%|
00009040  2c 69 63 6f 6e 25 2c a4  77 69 6d 70 5f 63 61 6c  |,icon%,.wimp_cal|
00009050  63 73 6c 69 64 65 70 63  65 6e 74 28 77 68 61 6e  |cslidepcent(whan|
00009060  25 2c 69 63 6f 6e 25 2c  77 69 6d 70 25 21 31 36  |%,icon%,wimp%!16|
00009070  2d 77 69 6d 70 25 21 38  29 29 0d 05 41 05 cd 0d  |-wimp%!8))..A...|
00009080  05 42 05 e1 0d 05 43 1c  dd 20 f2 77 69 6d 70 5f  |.B....C.. .wimp_|
00009090  71 75 69 63 6b 73 61 76  65 28 77 68 61 6e 25 29  |quicksave(whan%)|
000090a0  0d 05 44 0d ea 20 70 61  74 68 24 2c 51 0d 05 45  |..D.. path$,Q..E|
000090b0  24 70 61 74 68 24 3d a4  77 69 6d 70 5f 67 65 74  |$path$=.wimp_get|
000090c0  69 63 6f 6e 74 65 78 74  28 77 68 61 6e 25 2c 31  |icontext(whan%,1|
000090d0  29 0d 05 46 13 e7 20 a7  70 61 74 68 24 2c 22 2e  |)..F.. .path$,".|
000090e0  22 29 20 8c 0d 05 47 21  51 3d a4 75 73 65 72 5f  |") ...G!Q=.user_|
000090f0  73 61 76 65 64 61 74 61  28 70 61 74 68 24 2c 77  |savedata(path$,w|
00009100  68 61 6e 25 29 0d 05 48  2c e7 20 51 3d 32 20 8c  |han%)..H,. Q=2 .|
00009110  20 f2 77 69 6d 70 5f 65  72 72 6f 72 28 22 4d 65  | .wimp_error("Me|
00009120  73 73 61 67 65 22 2c f6  24 2c 31 2c 30 29 20 3a  |ssage",.$,1,0) :|
00009130  e1 0d 05 49 0b e7 20 51  3d 30 20 e1 0d 05 4a 33  |...I.. Q=0 ...J3|
00009140  ff 22 53 65 74 54 79 70  65 20 22 2b 70 61 74 68  |."SetType "+path|
00009150  24 2b 22 20 22 2b a4 75  73 65 72 5f 73 61 76 65  |$+" "+.user_save|
00009160  66 69 6c 65 74 79 70 65  28 77 68 61 6e 25 29 0d  |filetype(whan%).|
00009170  05 4b 05 cc 0d 05 4c 5c  f2 77 69 6d 70 5f 65 72  |.K....L\.wimp_er|
00009180  72 6f 72 28 22 4d 65 73  73 61 67 65 22 2c 22 54  |ror("Message","T|
00009190  6f 20 73 61 76 65 2c 20  64 72 61 67 20 74 68 65  |o save, drag the|
000091a0  20 69 63 6f 6e 20 74 6f  20 61 20 64 69 72 65 63  | icon to a direc|
000091b0  74 6f 72 79 20 76 69 65  77 65 72 20 6f 72 20 61  |tory viewer or a|
000091c0  70 70 6c 69 63 61 74 69  6f 6e 22 2c 31 2c 30 29  |pplication",1,0)|
000091d0  0d 05 4d 05 cd 0d 05 4e  05 e1 0d 05 4f 2c dd 20  |..M....N....O,. |
000091e0  a4 77 69 6d 70 5f 73 63  72 65 65 6e 74 6f 77 6f  |.wimp_screentowo|
000091f0  72 6b 28 77 68 61 6e 25  2c 63 6f 6f 72 64 25 2c  |rk(whan%,coord%,|
00009200  73 69 64 65 25 29 0d 05  50 08 ea 20 66 25 0d 05  |side%)..P.. f%..|
00009210  51 36 77 69 6d 70 25 21  30 3d 77 68 61 6e 25 3a  |Q6wimp%!0=whan%:|
00009220  c8 99 22 58 57 69 6d 70  5f 47 65 74 57 69 6e 64  |.."XWimp_GetWind|
00009230  6f 77 49 6e 66 6f 22 2c  2c 77 69 6d 70 25 20 b8  |owInfo",,wimp% .|
00009240  20 3b 66 25 0d 05 52 13  e7 20 28 66 25 20 80 20  | ;f%..R.. (f% . |
00009250  31 29 3d 31 20 3d 30 0d  05 53 26 e7 20 73 69 64  |1)=1 =0..S&. sid|
00009260  65 25 3d 30 20 3d 63 6f  6f 72 64 25 2b 77 69 6d  |e%=0 =coord%+wim|
00009270  70 25 21 32 30 2d 77 69  6d 70 25 21 34 0d 05 54  |p%!20-wimp%!4..T|
00009280  27 e7 20 73 69 64 65 25  3d 31 20 3d 63 6f 6f 72  |'. side%=1 =coor|
00009290  64 25 2b 77 69 6d 70 25  21 32 34 2d 77 69 6d 70  |d%+wimp%!24-wimp|
000092a0  25 21 31 36 0d 05 55 06  3d 30 0d 05 56 1b dd 20  |%!16..U.=0..V.. |
000092b0  a4 77 69 6d 70 5f 6d 65  6e 75 73 69 7a 65 28 6d  |.wimp_menusize(m|
000092c0  68 61 6e 25 29 0d 05 57  15 ea 20 77 70 74 72 25  |han%)..W.. wptr%|
000092d0  2c 65 2c 6c 2c 66 6c 61  67 25 0d 05 58 07 65 3d  |,e,l,flag%..X.e=|
000092e0  a3 0d 05 59 11 77 70 74  72 25 3d 6d 68 61 6e 25  |...Y.wptr%=mhan%|
000092f0  2b 34 0d 05 5a 07 6c 3d  30 0d 05 5b 05 f5 0d 05  |+4..Z.l=0..[....|
00009300  5c 0d 77 70 74 72 25 2b  3d 32 34 0d 05 5d 08 6c  |\.wptr%+=24..].l|
00009310  2b 3d 31 0d 05 5e 11 66  6c 61 67 25 3d 77 70 74  |+=1..^.flag%=wpt|
00009320  72 25 21 30 0d 05 5f 12  66 6c 61 67 25 3d 66 6c  |r%!0.._.flag%=fl|
00009330  61 67 25 3e 3e 37 0d 05  60 17 e7 20 28 66 6c 61  |ag%>>7..`.. (fla|
00009340  67 25 20 80 20 31 29 3d  31 20 65 3d b9 0d 05 61  |g% . 1)=1 e=...a|
00009350  09 fd 20 65 3d b9 0d 05  62 06 3d 6c 0d 05 63 19  |.. e=...b.=l..c.|
00009360  dd 20 f2 77 69 6d 70 5f  65 6e 64 73 6c 69 64 65  |. .wimp_endslide|
00009370  72 64 72 61 67 0d 05 64  12 77 73 6c 69 64 65 64  |rdrag..d.wslided|
00009380  72 61 67 25 3d 2d 31 0d  05 65 15 e7 20 77 73 68  |rag%=-1..e.. wsh|
00009390  65 69 25 3e 77 73 77 69  64 25 20 8c 0d 05 66 59  |ei%>wswid% ...fY|
000093a0  20 20 f2 75 73 65 72 5f  73 6c 69 64 65 72 76 61  |  .user_sliderva|
000093b0  6c 75 65 28 77 73 6c 69  64 65 77 25 2c 77 73 6c  |lue(wslidew%,wsl|
000093c0  69 64 65 69 25 2c a4 77  69 6d 70 5f 63 61 6c 63  |idei%,.wimp_calc|
000093d0  73 6c 69 64 65 70 63 65  6e 74 28 77 73 6c 69 64  |slidepcent(wslid|
000093e0  65 77 25 2c 77 73 6c 69  64 65 69 25 2c 77 73 68  |ew%,wslidei%,wsh|
000093f0  65 69 25 29 29 0d 05 67  05 cc 0d 05 68 59 20 20  |ei%))..g....hY  |
00009400  f2 75 73 65 72 5f 73 6c  69 64 65 72 76 61 6c 75  |.user_slidervalu|
00009410  65 28 77 73 6c 69 64 65  77 25 2c 77 73 6c 69 64  |e(wslidew%,wslid|
00009420  65 69 25 2c a4 77 69 6d  70 5f 63 61 6c 63 73 6c  |ei%,.wimp_calcsl|
00009430  69 64 65 70 63 65 6e 74  28 77 73 6c 69 64 65 77  |idepcent(wslidew|
00009440  25 2c 77 73 6c 69 64 65  69 25 2c 77 73 77 69 64  |%,wslidei%,wswid|
00009450  25 29 29 0d 05 69 05 cd  0d 05 6a 05 e1 0d 05 6b  |%))..i....j....k|
00009460  26 dd 20 f2 77 69 6d 70  5f 67 65 74 6d 65 6e 75  |&. .wimp_getmenu|
00009470  61 6e 64 69 74 65 6d 28  77 6c 61 73 74 6d 65 6e  |anditem(wlastmen|
00009480  75 25 29 0d 05 6c 07 ea  20 71 0d 05 6d 39 e7 20  |u%)..l.. q..m9. |
00009490  28 77 69 6d 70 25 21 34  29 3d 2d 31 20 77 6d 65  |(wimp%!4)=-1 wme|
000094a0  6e 75 25 3d 77 6c 61 73  74 6d 65 6e 75 25 3a 77  |nu%=wlastmenu%:w|
000094b0  69 74 65 6d 25 3d 28 77  69 6d 70 25 21 30 29 2b  |item%=(wimp%!0)+|
000094c0  31 3a e1 0d 05 6e 07 71  3d 30 0d 05 6f 15 77 6d  |1:...n.q=0..o.wm|
000094d0  65 6e 75 25 3d 77 6c 61  73 74 6d 65 6e 75 25 0d  |enu%=wlastmenu%.|
000094e0  05 70 05 f5 0d 05 71 33  77 6d 65 6e 75 25 3d a4  |.p....q3wmenu%=.|
000094f0  77 69 6d 70 5f 66 69 6e  64 73 75 62 6d 65 6e 75  |wimp_findsubmenu|
00009500  70 74 72 28 77 6d 65 6e  75 25 2c 28 77 69 6d 70  |ptr(wmenu%,(wimp|
00009510  25 21 71 29 2b 31 29 0d  05 72 08 71 2b 3d 34 0d  |%!q)+1)..r.q+=4.|
00009520  05 73 16 fd 20 28 77 69  6d 70 25 21 28 71 2b 34  |.s.. (wimp%!(q+4|
00009530  29 29 3d 2d 31 0d 05 74  16 77 69 74 65 6d 25 3d  |))=-1..t.witem%=|
00009540  28 77 69 6d 70 25 21 71  29 2b 31 0d 05 75 05 e1  |(wimp%!q)+1..u..|
00009550  0d 05 76 17 dd 20 f2 77  69 6d 70 5f 64 61 74 61  |..v.. .wimp_data|
00009560  6c 6f 61 64 61 70 70 0d  05 77 16 e7 20 77 69 6d  |loadapp..w.. wim|
00009570  70 25 21 34 3d 77 74 61  73 6b 25 20 e1 0d 05 78  |p%!4=wtask% ...x|
00009580  0e 77 69 6d 70 25 21 31  36 3d 32 0d 05 79 0f 77  |.wimp%!16=2..y.w|
00009590  69 6d 70 25 21 33 36 3d  2d 31 0d 05 7a 14 77 69  |imp%!36=-1..z.wi|
000095a0  6d 70 25 21 31 32 3d 77  69 6d 70 25 21 38 0d 05  |mp%!12=wimp%!8..|
000095b0  7b 30 f2 77 69 6d 70 5f  7a 65 72 6f 74 65 72 6d  |{0.wimp_zeroterm|
000095c0  69 6e 61 74 65 28 77 69  6d 70 25 2b 34 34 2c 22  |inate(wimp%+44,"|
000095d0  3c 57 69 6d 70 24 53 63  72 61 70 3e 22 29 0d 05  |<Wimp$Scrap>")..|
000095e0  7c 32 c8 99 22 57 69 6d  70 5f 53 65 6e 64 4d 65  ||2.."Wimp_SendMe|
000095f0  73 73 61 67 65 22 2c 31  37 2c 77 69 6d 70 25 2c  |ssage",17,wimp%,|
00009600  77 69 6d 70 25 21 34 2c  77 69 6d 70 25 21 32 34  |wimp%!4,wimp%!24|
00009610  0d 05 7d 05 e1 0d 05 7e  14 dd 20 f2 77 69 6d 70  |..}....~.. .wimp|
00009620  5f 64 61 74 61 73 61 76  65 0d 05 7f 0e ea 20 70  |_datasave..... p|
00009630  61 74 68 24 2c 51 25 0d  05 80 20 70 61 74 68 24  |ath$,Q%... path$|
00009640  3d a4 77 69 6d 70 5f 73  74 72 69 6e 67 28 77 69  |=.wimp_string(wi|
00009650  6d 70 25 2b 34 34 29 0d  05 81 12 f2 77 69 6d 70  |mp%+44).....wimp|
00009660  5f 73 61 76 65 77 69 6d  70 0d 05 82 24 51 25 3d  |_savewimp...$Q%=|
00009670  a4 75 73 65 72 5f 73 61  76 65 64 61 74 61 28 70  |.user_savedata(p|
00009680  61 74 68 24 2c 77 73 61  76 65 77 25 29 0d 05 83  |ath$,wsavew%)...|
00009690  12 f2 77 69 6d 70 5f 6c  6f 61 64 77 69 6d 70 0d  |..wimp_loadwimp.|
000096a0  05 84 2d e7 20 51 25 3d  32 20 8c 20 f2 77 69 6d  |..-. Q%=2 . .wim|
000096b0  70 5f 65 72 72 6f 72 28  22 4d 65 73 73 61 67 65  |p_error("Message|
000096c0  22 2c f6 24 2c 31 2c 30  29 20 3a e1 0d 05 85 0c  |",.$,1,0) :.....|
000096d0  e7 20 51 25 3d 30 20 e1  0d 05 86 21 ff 22 53 65  |. Q%=0 ....!."Se|
000096e0  74 54 79 70 65 20 22 2b  70 61 74 68 24 2b 22 20  |tType "+path$+" |
000096f0  22 2b 77 73 61 76 65 74  24 0d 05 87 14 77 69 6d  |"+wsavet$....wim|
00009700  70 25 21 31 32 3d 77 69  6d 70 25 21 38 0d 05 88  |p%!12=wimp%!8...|
00009710  0e 77 69 6d 70 25 21 31  36 3d 33 0d 05 89 0e 21  |.wimp%!16=3....!|
00009720  77 69 6d 70 25 3d 32 35  36 0d 05 8a 33 c8 99 22  |wimp%=256...3.."|
00009730  57 69 6d 70 5f 53 65 6e  64 4d 65 73 73 61 67 65  |Wimp_SendMessage|
00009740  22 2c 31 38 2c 77 69 6d  70 25 2c 77 69 6d 70 25  |",18,wimp%,wimp%|
00009750  21 32 30 2c 77 69 6d 70  25 21 32 34 0d 05 8b 3e  |!20,wimp%!24...>|
00009760  e7 20 70 61 74 68 24 3c  3e 22 3c 57 69 6d 70 24  |. path$<>"<Wimp$|
00009770  53 63 72 61 70 3e 22 20  f2 77 69 6d 70 5f 70 75  |Scrap>" .wimp_pu|
00009780  74 69 63 6f 6e 74 65 78  74 28 77 73 61 76 65 77  |ticontext(wsavew|
00009790  25 2c 31 2c 70 61 74 68  24 29 0d 05 8c 05 e1 0d  |%,1,path$)......|
000097a0  05 8d 1b dd 20 f2 77 69  6d 70 5f 64 61 74 61 6c  |.... .wimp_datal|
000097b0  6f 61 64 28 74 79 70 65  25 29 0d 05 8e 26 ea 20  |oad(type%)...&. |
000097c0  77 68 61 6e 25 2c 69 63  6f 6e 25 2c 66 74 79 70  |whan%,icon%,ftyp|
000097d0  65 24 2c 70 61 74 68 24  2c 70 2c 78 25 2c 79 25  |e$,path$,p,x%,y%|
000097e0  0d 05 8f 12 77 68 61 6e  25 3d 77 69 6d 70 25 21  |....whan%=wimp%!|
000097f0  32 30 0d 05 90 12 69 63  6f 6e 25 3d 77 69 6d 70  |20....icon%=wimp|
00009800  25 21 32 34 0d 05 91 17  66 74 79 70 65 24 3d c3  |%!24....ftype$=.|
00009810  7e 28 77 69 6d 70 25 21  34 30 29 0d 05 92 20 70  |~(wimp%!40)... p|
00009820  61 74 68 24 3d a4 77 69  6d 70 5f 73 74 72 69 6e  |ath$=.wimp_strin|
00009830  67 28 77 69 6d 70 25 2b  34 34 29 0d 05 93 12 f2  |g(wimp%+44).....|
00009840  77 69 6d 70 5f 73 61 76  65 77 69 6d 70 0d 05 94  |wimp_savewimp...|
00009850  1d e7 20 74 79 70 65 25  3d 35 20 77 68 61 6e 25  |.. type%=5 whan%|
00009860  3d 30 3a 69 63 6f 6e 25  3d 30 0d 05 95 1b 78 25  |=0:icon%=0....x%|
00009870  3d 77 69 6d 70 25 21 32  38 3a 79 25 3d 77 69 6d  |=wimp%!28:y%=wim|
00009880  70 25 21 33 32 0d 05 96  47 78 25 3d a4 77 69 6d  |p%!32...Gx%=.wim|
00009890  70 5f 73 63 72 65 65 6e  74 6f 77 6f 72 6b 28 77  |p_screentowork(w|
000098a0  68 61 6e 25 2c 78 25 2c  30 29 3a 79 25 3d a4 77  |han%,x%,0):y%=.w|
000098b0  69 6d 70 5f 73 63 72 65  65 6e 74 6f 77 6f 72 6b  |imp_screentowork|
000098c0  28 77 68 61 6e 25 2c 79  25 2c 31 29 0d 05 97 34  |(whan%,y%,1)...4|
000098d0  70 3d a4 75 73 65 72 5f  6c 6f 61 64 64 61 74 61  |p=.user_loaddata|
000098e0  28 70 61 74 68 24 2c 77  68 61 6e 25 2c 69 63 6f  |(path$,whan%,ico|
000098f0  6e 25 2c 66 74 79 70 65  24 2c 78 25 2c 79 25 29  |n%,ftype$,x%,y%)|
00009900  0d 05 98 12 f2 77 69 6d  70 5f 6c 6f 61 64 77 69  |.....wimp_loadwi|
00009910  6d 70 0d 05 99 1b e7 20  70 3d 31 20 f2 77 69 6d  |mp..... p=1 .wim|
00009920  70 5f 64 61 74 61 6c 6f  61 64 61 63 6b 0d 05 9a  |p_dataloadack...|
00009930  05 e1 0d 05 9b 16 dd 20  f2 77 69 6d 70 5f 71 75  |....... .wimp_qu|
00009940  69 74 69 73 73 75 65 64  0d 05 9c 12 f2 77 69 6d  |itissued.....wim|
00009950  70 5f 73 61 76 65 77 69  6d 70 0d 05 9d 17 e7 20  |p_savewimp..... |
00009960  a4 75 73 65 72 5f 71 75  69 74 28 31 29 3d 30 20  |.user_quit(1)=0 |
00009970  8c 0d 05 9e 14 20 20 f2  77 69 6d 70 5f 6c 6f 61  |.....  .wimp_loa|
00009980  64 77 69 6d 70 0d 05 9f  1a 20 20 77 71 75 69 74  |dwimp....  wquit|
00009990  73 65 6e 64 65 72 25 3d  77 69 6d 70 25 21 34 0d  |sender%=wimp%!4.|
000099a0  05 a0 16 20 20 77 69 6d  70 25 21 31 32 3d 77 69  |...  wimp%!12=wi|
000099b0  6d 70 25 21 38 0d 05 a1  23 20 20 c8 99 22 57 69  |mp%!8...#  .."Wi|
000099c0  6d 70 5f 53 65 6e 64 4d  65 73 73 61 67 65 22 2c  |mp_SendMessage",|
000099d0  31 39 2c 77 69 6d 70 25  0d 05 a2 05 cc 0d 05 a3  |19,wimp%........|
000099e0  12 20 20 77 73 68 75 74  64 6f 77 6e 25 3d 31 0d  |.  wshutdown%=1.|
000099f0  05 a4 05 cd 0d 05 a5 05  e1 0d 05 a6 10 dd 20 f2  |.............. .|
00009a00  77 69 6d 70 5f 68 65 6c  70 0d 05 a7 34 ea 20 68  |wimp_help...4. h|
00009a10  65 6c 70 25 2c 77 68 61  6e 25 2c 69 63 6f 6e 25  |elp%,whan%,icon%|
00009a20  2c 72 65 66 25 2c 68 65  6c 70 24 2c 64 65 73 74  |,ref%,help$,dest|
00009a30  25 2c 6d 77 68 61 6e 25  2c 73 75 62 25 0d 05 a8  |%,mwhan%,sub%...|
00009a40  11 64 65 73 74 25 3d 77  69 6d 70 25 21 34 0d 05  |.dest%=wimp%!4..|
00009a50  a9 10 72 65 66 25 3d 77  69 6d 70 25 21 38 0d 05  |..ref%=wimp%!8..|
00009a60  aa 12 77 68 61 6e 25 3d  77 69 6d 70 25 21 33 32  |..whan%=wimp%!32|
00009a70  0d 05 ab 12 69 63 6f 6e  25 3d 77 69 6d 70 25 21  |....icon%=wimp%!|
00009a80  33 36 0d 05 ac 0c 68 65  6c 70 24 3d 22 22 0d 05  |36....help$=""..|
00009a90  ad 22 c8 99 22 57 69 6d  70 5f 47 65 74 50 6f 69  |.".."Wimp_GetPoi|
00009aa0  6e 74 65 72 49 6e 66 6f  22 2c 2c 77 69 6d 70 25  |nterInfo",,wimp%|
00009ab0  0d 05 ae 13 6d 77 68 61  6e 25 3d 77 69 6d 70 25  |....mwhan%=wimp%|
00009ac0  21 31 32 0d 05 af 2d c8  99 22 57 69 6d 70 5f 47  |!12...-.."Wimp_G|
00009ad0  65 74 4d 65 6e 75 53 74  61 74 65 22 2c 31 2c 77  |etMenuState",1,w|
00009ae0  69 6d 70 25 2c 77 68 61  6e 25 2c 69 63 6f 6e 25  |imp%,whan%,icon%|
00009af0  0d 05 b0 12 e7 20 21 77  69 6d 70 25 3c 3e 2d 31  |..... !wimp%<>-1|
00009b00  20 8c 0d 05 b1 26 20 20  f2 77 69 6d 70 5f 67 65  | ....&  .wimp_ge|
00009b10  74 6d 65 6e 75 61 6e 64  69 74 65 6d 28 77 6c 61  |tmenuanditem(wla|
00009b20  73 74 6d 65 6e 75 25 29  0d 05 b2 22 20 20 73 75  |stmenu%)..."  su|
00009b30  62 25 3d 21 28 77 6d 65  6e 75 25 2b 38 2b 28 77  |b%=!(wmenu%+8+(w|
00009b40  69 74 65 6d 25 2a 32 34  29 29 0d 05 b3 15 20 20  |item%*24))....  |
00009b50  e7 20 73 75 62 25 3d 6d  77 68 61 6e 25 20 8c 0d  |. sub%=mwhan% ..|
00009b60  05 b4 16 20 20 20 20 f2  77 69 6d 70 5f 73 61 76  |...    .wimp_sav|
00009b70  65 77 69 6d 70 0d 05 b5  25 20 20 20 20 68 65 6c  |ewimp...%    hel|
00009b80  70 24 3d a4 75 73 65 72  5f 68 65 6c 70 28 77 68  |p$=.user_help(wh|
00009b90  61 6e 25 2c 69 63 6f 6e  25 29 0d 05 b6 16 20 20  |an%,icon%)....  |
00009ba0  20 20 f2 77 69 6d 70 5f  6c 6f 61 64 77 69 6d 70  |  .wimp_loadwimp|
00009bb0  0d 05 b7 07 20 20 cc 0d  05 b8 16 20 20 20 20 f2  |....  .....    .|
00009bc0  77 69 6d 70 5f 73 61 76  65 77 69 6d 70 0d 05 b9  |wimp_savewimp...|
00009bd0  2b 20 20 20 20 68 65 6c  70 24 3d a4 75 73 65 72  |+    help$=.user|
00009be0  5f 6d 65 6e 75 68 65 6c  70 28 77 6d 65 6e 75 25  |_menuhelp(wmenu%|
00009bf0  2c 77 69 74 65 6d 25 29  0d 05 ba 16 20 20 20 20  |,witem%)....    |
00009c00  f2 77 69 6d 70 5f 6c 6f  61 64 77 69 6d 70 0d 05  |.wimp_loadwimp..|
00009c10  bb 07 20 20 cd 0d 05 bc  05 cc 0d 05 bd 14 20 20  |..  ..........  |
00009c20  f2 77 69 6d 70 5f 73 61  76 65 77 69 6d 70 0d 05  |.wimp_savewimp..|
00009c30  be 23 20 20 68 65 6c 70  24 3d a4 75 73 65 72 5f  |.#  help$=.user_|
00009c40  68 65 6c 70 28 77 68 61  6e 25 2c 69 63 6f 6e 25  |help(whan%,icon%|
00009c50  29 0d 05 bf 14 20 20 f2  77 69 6d 70 5f 6c 6f 61  |)....  .wimp_loa|
00009c60  64 77 69 6d 70 0d 05 c0  05 cd 0d 05 c1 14 68 65  |dwimp.........he|
00009c70  6c 70 24 3d 68 65 6c 70  24 2b 22 7c 4d 22 0d 05  |lp$=help$+"|M"..|
00009c80  c2 1b 21 77 69 6d 70 25  3d 28 a9 28 68 65 6c 70  |..!wimp%=(.(help|
00009c90  24 29 2b 32 34 29 80 ac  33 0d 05 c3 11 77 69 6d  |$)+24)..3....wim|
00009ca0  70 25 21 34 3d 64 65 73  74 25 0d 05 c4 11 77 69  |p%!4=dest%....wi|
00009cb0  6d 70 25 21 31 32 3d 72  65 66 25 0d 05 c5 11 77  |mp%!12=ref%....w|
00009cc0  69 6d 70 25 21 31 36 3d  26 35 30 33 0d 05 c6 15  |imp%!16=&503....|
00009cd0  24 28 77 69 6d 70 25 2b  32 30 29 3d 68 65 6c 70  |$(wimp%+20)=help|
00009ce0  24 0d 05 c7 29 c8 99 22  57 69 6d 70 5f 53 65 6e  |$...).."Wimp_Sen|
00009cf0  64 4d 65 73 73 61 67 65  22 2c 31 37 2c 77 69 6d  |dMessage",17,wim|
00009d00  70 25 2c 77 69 6d 70 25  21 34 0d 05 c8 05 e1 0d  |p%,wimp%!4......|
00009d10  05 c9 17 dd 20 f2 77 69  6d 70 5f 6f 70 65 6e 73  |.... .wimp_opens|
00009d20  75 62 6d 65 6e 75 0d 05  ca 36 c8 99 22 57 69 6d  |ubmenu...6.."Wim|
00009d30  70 5f 43 72 65 61 74 65  53 75 62 4d 65 6e 75 22  |p_CreateSubMenu"|
00009d40  2c 2c 77 69 6d 70 25 21  32 30 2c 77 69 6d 70 25  |,,wimp%!20,wimp%|
00009d50  21 32 34 2c 77 69 6d 70  25 21 32 38 0d 05 cb 22  |!24,wimp%!28..."|
00009d60  f2 77 69 6d 70 5f 6d 65  6e 75 6a 75 73 74 6f 70  |.wimp_menujustop|
00009d70  65 6e 65 64 28 77 69 6d  70 25 21 32 30 29 0d 05  |ened(wimp%!20)..|
00009d80  cc 05 e1 0d 05 cd 22 dd  20 a4 77 69 6d 70 5f 6e  |......". .wimp_n|
00009d90  75 6d 62 65 72 6f 66 65  6e 74 72 69 65 73 28 6d  |umberofentries(m|
00009da0  65 6e 75 24 29 0d 05 ce  0d ea 20 74 6f 74 61 6c  |enu$)..... total|
00009db0  2c 4c 0d 05 cf 0b 74 6f  74 61 6c 3d 31 0d 05 d0  |,L....total=1...|
00009dc0  14 e3 20 4c 3d 31 20 b8  20 a9 28 6d 65 6e 75 24  |.. L=1 . .(menu$|
00009dd0  29 0d 05 d1 1e e7 20 c1  6d 65 6e 75 24 2c 4c 2c  |)..... .menu$,L,|
00009de0  31 29 3d 22 2f 22 20 74  6f 74 61 6c 2b 3d 31 0d  |1)="/" total+=1.|
00009df0  05 d2 07 ed 20 4c 0d 05  d3 0a 3d 74 6f 74 61 6c  |.... L....=total|
00009e00  0d 05 d4 24 dd 20 f2 77  69 6d 70 5f 64 65 63 6f  |...$. .wimp_deco|
00009e10  64 65 6d 65 6e 75 65 6e  74 72 79 28 6d 65 6e 75  |demenuentry(menu|
00009e20  24 2c 6e 29 0d 05 d5 10  ea 20 4d 2c 70 2c 6f 6d  |$,n)..... M,p,om|
00009e30  65 6e 75 24 0d 05 d6 07  4d 3d 30 0d 05 d7 07 70  |enu$....M=0....p|
00009e40  3d 31 0d 05 d8 05 f5 0d  05 d9 1a e7 20 c1 6d 65  |=1.......... .me|
00009e50  6e 75 24 2c 4d 2c 31 29  3d 22 2f 22 20 70 2b 3d  |nu$,M,1)="/" p+=|
00009e60  31 0d 05 da 08 4d 2b 3d  31 0d 05 db 09 fd 20 70  |1....M+=1..... p|
00009e70  3d 6e 0d 05 dc 10 6f 6d  65 6e 75 24 3d 6d 65 6e  |=n....omenu$=men|
00009e80  75 24 0d 05 dd 23 6f 6d  65 6e 75 24 3d c2 6f 6d  |u$...#omenu$=.om|
00009e90  65 6e 75 24 2c a9 28 6f  6d 65 6e 75 24 29 2d 28  |enu$,.(omenu$)-(|
00009ea0  4d 2d 31 29 29 0d 05 de  12 70 3d a7 6f 6d 65 6e  |M-1))....p=.omen|
00009eb0  75 24 2c 22 2f 22 29 0d  05 df 1d e7 20 70 3e 30  |u$,"/")..... p>0|
00009ec0  20 6f 6d 65 6e 75 24 3d  c0 6f 6d 65 6e 75 24 2c  | omenu$=.omenu$,|
00009ed0  70 2d 31 29 0d 05 e0 12  70 3d a7 6f 6d 65 6e 75  |p-1)....p=.omenu|
00009ee0  24 2c 22 3e 22 29 0d 05  e1 24 e7 20 70 3d 30 20  |$,">")...$. p=0 |
00009ef0  69 74 65 6d 24 3d 6f 6d  65 6e 75 24 3a 77 73 75  |item$=omenu$:wsu|
00009f00  62 70 74 72 25 3d 2d 31  3a e1 0d 05 e2 16 69 74  |bptr%=-1:.....it|
00009f10  65 6d 24 3d c0 6f 6d 65  6e 75 24 2c 70 2d 31 29  |em$=.omenu$,p-1)|
00009f20  0d 05 e3 38 f4 20 77 73  75 62 70 74 72 25 3d 46  |...8. wsubptr%=F|
00009f30  4e 77 69 6d 70 5f 65 76  61 6c 28 52 49 47 48 54  |Nwimp_eval(RIGHT|
00009f40  24 28 6f 6d 65 6e 75 24  2c 4c 45 4e 28 6f 6d 65  |$(omenu$,LEN(ome|
00009f50  6e 75 24 29 2d 70 29 29  0d 05 e4 0f 77 73 75 62  |nu$)-p))....wsub|
00009f60  70 74 72 25 3d 2d 31 0d  05 e5 05 e1 0d 05 e6 26  |ptr%=-1........&|
00009f70  dd 20 f2 77 69 6d 70 5f  62 61 72 28 77 68 61 6e  |. .wimp_bar(whan|
00009f80  25 2c 69 63 6f 6e 25 2c  6c 65 6e 25 2c 64 69 72  |%,icon%,len%,dir|
00009f90  25 29 0d 05 e7 3c ea 20  6d 69 6e 78 25 2c 6d 69  |%)...<. minx%,mi|
00009fa0  6e 79 25 2c 6d 61 78 78  25 2c 6d 61 78 79 25 2c  |ny%,maxx%,maxy%,|
00009fb0  66 6c 61 67 25 2c 64 61  74 61 25 2c 62 6f 72 64  |flag%,data%,bord|
00009fc0  65 72 2c 66 69 6c 6c 65  64 2c 6f 6c 64 62 0d 05  |er,filled,oldb..|
00009fd0  e8 07 52 3d a3 0d 05 e9  1f 77 69 6d 70 25 21 30  |..R=.....wimp%!0|
00009fe0  3d 77 68 61 6e 25 3a 77  69 6d 70 25 21 34 3d 69  |=whan%:wimp%!4=i|
00009ff0  63 6f 6e 25 0d 05 ea 20  c8 99 22 57 69 6d 70 5f  |con%... .."Wimp_|
0000a000  47 65 74 49 63 6f 6e 53  74 61 74 65 22 2c 2c 77  |GetIconState",,w|
0000a010  69 6d 70 25 0d 05 eb 20  6d 69 6e 78 25 3d 77 69  |imp%... minx%=wi|
0000a020  6d 70 25 21 38 3a 6d 69  6e 79 25 3d 77 69 6d 70  |mp%!8:miny%=wimp|
0000a030  25 21 31 32 0d 05 ec 21  6d 61 78 78 25 3d 77 69  |%!12...!maxx%=wi|
0000a040  6d 70 25 21 31 36 3a 6d  61 78 79 25 3d 77 69 6d  |mp%!16:maxy%=wim|
0000a050  70 25 21 32 30 0d 05 ed  21 66 6c 61 67 25 3d 77  |p%!20...!flag%=w|
0000a060  69 6d 70 25 21 32 34 3a  64 61 74 61 25 3d 77 69  |imp%!24:data%=wi|
0000a070  6d 70 25 21 32 38 0d 05  ee 19 66 69 6c 6c 65 64  |mp%!28....filled|
0000a080  3d 28 66 6c 61 67 25 3e  3e 35 29 20 80 20 31 0d  |=(flag%>>5) . 1.|
0000a090  05 ef 19 62 6f 72 64 65  72 3d 28 66 6c 61 67 25  |...border=(flag%|
0000a0a0  3e 3e 32 29 20 80 20 31  0d 05 f0 18 6f 6c 64 62  |>>2) . 1....oldb|
0000a0b0  3d 28 66 6c 61 67 25 3e  3e 31 31 29 20 80 20 31  |=(flag%>>11) . 1|
0000a0c0  0d 05 f1 13 e7 20 6c 65  6e 25 3c 30 20 6c 65 6e  |..... len%<0 len|
0000a0d0  25 3d 30 0d 05 f2 19 e7  20 6c 65 6e 25 3d 30 20  |%=0..... len%=0 |
0000a0e0  80 20 66 69 6c 6c 65 64  3d 30 20 e1 0d 05 f3 5d  |. filled=0 ....]|
0000a0f0  e7 20 6c 65 6e 25 3d 30  20 f2 77 69 6d 70 5f 7a  |. len%=0 .wimp_z|
0000a100  65 72 6f 6c 65 6e 67 74  68 62 61 72 28 62 6f 72  |erolengthbar(bor|
0000a110  64 65 72 29 3a c8 99 22  57 69 6d 70 5f 46 6f 72  |der):.."Wimp_For|
0000a120  63 65 52 65 64 72 61 77  22 2c 77 68 61 6e 25 2c  |ceRedraw",whan%,|
0000a130  6d 69 6e 78 25 2c 6d 69  6e 79 25 2c 6d 61 78 78  |minx%,miny%,maxx|
0000a140  25 2c 6d 61 78 79 25 3a  e1 0d 05 f4 1e c8 99 22  |%,maxy%:......."|
0000a150  57 69 6d 70 5f 44 65 6c  65 74 65 49 63 6f 6e 22  |Wimp_DeleteIcon"|
0000a160  2c 2c 77 69 6d 70 25 0d  05 f5 0e e7 20 64 69 72  |,,wimp%..... dir|
0000a170  25 3d 30 20 8c 0d 05 f6  11 20 20 6c 65 6e 25 2b  |%=0 .....  len%+|
0000a180  3d 6d 69 6e 78 25 0d 05  f7 21 20 20 77 69 6d 70  |=minx%...!  wimp|
0000a190  25 21 34 3d 6d 69 6e 78  25 3a 77 69 6d 70 25 21  |%!4=minx%:wimp%!|
0000a1a0  38 3d 6d 69 6e 79 25 0d  05 f8 22 20 20 77 69 6d  |8=miny%..."  wim|
0000a1b0  70 25 21 31 32 3d 6c 65  6e 25 3a 77 69 6d 70 25  |p%!12=len%:wimp%|
0000a1c0  21 31 36 3d 6d 61 78 79  25 0d 05 f9 05 cc 0d 05  |!16=maxy%.......|
0000a1d0  fa 15 20 20 6c 65 6e 25  3d 6d 69 6e 79 25 2b 6c  |..  len%=miny%+l|
0000a1e0  65 6e 25 0d 05 fb 21 20  20 77 69 6d 70 25 21 34  |en%...!  wimp%!4|
0000a1f0  3d 6d 69 6e 78 25 3a 77  69 6d 70 25 21 38 3d 6d  |=minx%:wimp%!8=m|
0000a200  69 6e 79 25 0d 05 fc 22  20 20 77 69 6d 70 25 21  |iny%..."  wimp%!|
0000a210  31 32 3d 6d 61 78 78 25  3a 77 69 6d 70 25 21 31  |12=maxx%:wimp%!1|
0000a220  36 3d 6c 65 6e 25 0d 05  fd 05 cd 0d 05 fe 21 77  |6=len%........!w|
0000a230  69 6d 70 25 21 32 30 3d  66 6c 61 67 25 3a 77 69  |imp%!20=flag%:wi|
0000a240  6d 70 25 21 32 34 3d 64  61 74 61 25 0d 05 ff 1e  |mp%!24=data%....|
0000a250  c8 99 22 57 69 6d 70 5f  43 72 65 61 74 65 49 63  |.."Wimp_CreateIc|
0000a260  6f 6e 22 2c 2c 77 69 6d  70 25 0d 06 00 1f 77 69  |on",,wimp%....wi|
0000a270  6d 70 25 21 30 3d 77 68  61 6e 25 3a 77 69 6d 70  |mp%!0=whan%:wimp|
0000a280  25 21 34 3d 69 63 6f 6e  25 0d 06 01 10 e7 20 66  |%!4=icon%..... f|
0000a290  69 6c 6c 65 64 3d 30 20  8c 0d 06 02 1c 20 20 77  |illed=0 .....  w|
0000a2a0  69 6d 70 25 21 38 3d 33  32 3a 77 69 6d 70 25 21  |imp%!8=32:wimp%!|
0000a2b0  31 32 3d 33 32 0d 06 03  22 20 20 c8 99 22 57 69  |12=32..."  .."Wi|
0000a2c0  6d 70 5f 53 65 74 49 63  6f 6e 53 74 61 74 65 22  |mp_SetIconState"|
0000a2d0  2c 2c 77 69 6d 70 25 0d  06 04 10 20 20 e7 20 6f  |,,wimp%....  . o|
0000a2e0  6c 64 62 3d 31 20 8c 0d  06 05 1c 20 20 20 20 77  |ldb=1 .....    w|
0000a2f0  69 6d 70 25 21 38 3d 34  3a 77 69 6d 70 25 21 31  |imp%!8=4:wimp%!1|
0000a300  32 3d 34 0d 06 06 24 20  20 20 20 c8 99 22 57 69  |2=4...$    .."Wi|
0000a310  6d 70 5f 53 65 74 49 63  6f 6e 53 74 61 74 65 22  |mp_SetIconState"|
0000a320  2c 2c 77 69 6d 70 25 0d  06 07 07 20 20 cd 0d 06  |,,wimp%....  ...|
0000a330  08 05 cd 0d 06 09 0e e7  20 64 69 72 25 3d 30 20  |........ dir%=0 |
0000a340  8c 0d 06 0a 14 20 20 e7  20 6c 65 6e 25 3c 6d 61  |.....  . len%<ma|
0000a350  78 78 25 20 8c 0d 06 0b  3b 20 20 20 20 c8 99 22  |xx% ....;    .."|
0000a360  57 69 6d 70 5f 46 6f 72  63 65 52 65 64 72 61 77  |Wimp_ForceRedraw|
0000a370  22 2c 77 68 61 6e 25 2c  6c 65 6e 25 2d 32 2c 6d  |",whan%,len%-2,m|
0000a380  69 6e 79 25 2c 6d 61 78  78 25 2c 6d 61 78 79 25  |iny%,maxx%,maxy%|
0000a390  0d 06 0c 07 20 20 cc 0d  06 0d 3b 20 20 20 20 c8  |....  ....;    .|
0000a3a0  99 22 57 69 6d 70 5f 46  6f 72 63 65 52 65 64 72  |."Wimp_ForceRedr|
0000a3b0  61 77 22 2c 77 68 61 6e  25 2c 6d 61 78 78 25 2d  |aw",whan%,maxx%-|
0000a3c0  32 2c 6d 69 6e 79 25 2c  6c 65 6e 25 2c 6d 61 78  |2,miny%,len%,max|
0000a3d0  79 25 0d 06 0e 07 20 20  cd 0d 06 0f 05 cc 0d 06  |y%....  ........|
0000a3e0  10 14 20 20 e7 20 6c 65  6e 25 3c 6d 61 78 79 25  |..  . len%<maxy%|
0000a3f0  20 8c 0d 06 11 3b 20 20  20 20 c8 99 22 57 69 6d  | ....;    .."Wim|
0000a400  70 5f 46 6f 72 63 65 52  65 64 72 61 77 22 2c 77  |p_ForceRedraw",w|
0000a410  68 61 6e 25 2c 6d 69 6e  78 25 2c 6c 65 6e 25 2d  |han%,minx%,len%-|
0000a420  32 2c 6d 61 78 78 25 2c  6d 61 78 79 25 0d 06 12  |2,maxx%,maxy%...|
0000a430  07 20 20 cc 0d 06 13 3b  20 20 20 20 c8 99 22 57  |.  ....;    .."W|
0000a440  69 6d 70 5f 46 6f 72 63  65 52 65 64 72 61 77 22  |imp_ForceRedraw"|
0000a450  2c 77 68 61 6e 25 2c 6d  69 6e 78 25 2c 6d 61 78  |,whan%,minx%,max|
0000a460  79 25 2d 32 2c 6d 61 78  78 25 2c 6c 65 6e 25 0d  |y%-2,maxx%,len%.|
0000a470  06 14 07 20 20 cd 0d 06  15 05 cd 0d 06 16 05 e1  |...  ...........|
0000a480  0d 06 17 2a dd 20 a4 77  69 6d 70 5f 63 61 6c 63  |...*. .wimp_calc|
0000a490  73 6c 69 64 65 70 63 65  6e 74 28 77 68 61 6e 25  |slidepcent(whan%|
0000a4a0  2c 69 63 6f 6e 25 2c 77  25 29 0d 06 18 19 ea 20  |,icon%,w%)..... |
0000a4b0  73 6c 69 64 65 68 25 2c  73 6c 69 64 65 77 25 2c  |slideh%,slidew%,|
0000a4c0  70 63 25 0d 06 19 1e 21  77 69 6d 70 25 3d 77 68  |pc%....!wimp%=wh|
0000a4d0  61 6e 25 3a 77 69 6d 70  25 21 34 3d 69 63 6f 6e  |an%:wimp%!4=icon|
0000a4e0  25 0d 06 1a 20 c8 99 22  57 69 6d 70 5f 47 65 74  |%... .."Wimp_Get|
0000a4f0  49 63 6f 6e 53 74 61 74  65 22 2c 2c 77 69 6d 70  |IconState",,wimp|
0000a500  25 0d 06 1b 1d 73 6c 69  64 65 68 25 3d 77 69 6d  |%....slideh%=wim|
0000a510  70 25 21 32 30 2d 77 69  6d 70 25 21 31 32 0d 06  |p%!20-wimp%!12..|
0000a520  1c 1c 73 6c 69 64 65 77  25 3d 77 69 6d 70 25 21  |..slidew%=wimp%!|
0000a530  31 36 2d 77 69 6d 70 25  21 38 0d 06 1d 17 e7 20  |16-wimp%!8..... |
0000a540  73 6c 69 64 65 77 25 3e  73 6c 69 64 65 68 25 20  |slidew%>slideh% |
0000a550  8c 0d 06 1e 1d 20 20 70  63 25 3d a8 28 28 73 6c  |.....  pc%=.((sl|
0000a560  69 64 65 77 25 2f 77 25  29 2a 31 30 30 29 0d 06  |idew%/w%)*100)..|
0000a570  1f 05 cc 0d 06 20 1d 20  20 70 63 25 3d a8 28 28  |..... .  pc%=.((|
0000a580  73 6c 69 64 65 68 25 2f  77 25 29 2a 31 30 30 29  |slideh%/w%)*100)|
0000a590  0d 06 21 05 cd 0d 06 22  08 3d 70 63 25 0d 06 23  |..!....".=pc%..#|
0000a5a0  28 dd 20 f2 77 69 6d 70  5f 73 74 61 72 74 73 6c  |(. .wimp_startsl|
0000a5b0  69 64 65 72 64 72 61 67  28 77 68 61 6e 25 2c 69  |iderdrag(whan%,i|
0000a5c0  63 6f 6e 25 29 0d 06 24  27 ea 20 6f 78 25 2c 6f  |con%)..$'. ox%,o|
0000a5d0  79 25 2c 62 78 31 25 2c  62 79 31 25 2c 62 78 32  |y%,bx1%,by1%,bx2|
0000a5e0  25 2c 62 79 32 25 2c 61  25 2c 62 25 0d 06 25 41  |%,by2%,a%,b%..%A|
0000a5f0  61 25 3d a4 75 73 65 72  5f 73 6c 69 64 65 72 62  |a%=.user_sliderb|
0000a600  61 63 6b 28 77 68 61 6e  25 2c 69 63 6f 6e 25 29  |ack(whan%,icon%)|
0000a610  3a 62 25 3d a4 75 73 65  72 5f 73 6c 69 64 65 72  |:b%=.user_slider|
0000a620  28 77 68 61 6e 25 2c 69  63 6f 6e 25 29 0d 06 26  |(whan%,icon%)..&|
0000a630  15 e7 20 61 25 3d 2d 31  20 80 20 62 25 3d 2d 31  |.. a%=-1 . b%=-1|
0000a640  20 e1 0d 06 27 14 e7 20  61 25 3d 2d 31 20 69 63  | ...'.. a%=-1 ic|
0000a650  6f 6e 25 3d 62 25 0d 06  28 10 21 77 69 6d 70 25  |on%=b%..(.!wimp%|
0000a660  3d 77 68 61 6e 25 0d 06  29 22 c8 99 22 57 69 6d  |=whan%..)".."Wim|
0000a670  70 5f 47 65 74 57 69 6e  64 6f 77 53 74 61 74 65  |p_GetWindowState|
0000a680  22 2c 2c 77 69 6d 70 25  0d 06 2a 18 6f 78 25 3d  |",,wimp%..*.ox%=|
0000a690  77 69 6d 70 25 21 34 2d  77 69 6d 70 25 21 32 30  |wimp%!4-wimp%!20|
0000a6a0  0d 06 2b 19 6f 79 25 3d  77 69 6d 70 25 21 31 36  |..+.oy%=wimp%!16|
0000a6b0  2d 77 69 6d 70 25 21 32  34 0d 06 2c 36 21 77 69  |-wimp%!24..,6!wi|
0000a6c0  6d 70 25 3d 77 68 61 6e  25 3a 77 69 6d 70 25 21  |mp%=whan%:wimp%!|
0000a6d0  34 3d a4 75 73 65 72 5f  73 6c 69 64 65 72 62 61  |4=.user_sliderba|
0000a6e0  63 6b 28 77 68 61 6e 25  2c 69 63 6f 6e 25 29 0d  |ck(whan%,icon%).|
0000a6f0  06 2d 20 c8 99 22 57 69  6d 70 5f 47 65 74 49 63  |.- .."Wimp_GetIc|
0000a700  6f 6e 53 74 61 74 65 22  2c 2c 77 69 6d 70 25 0d  |onState",,wimp%.|
0000a710  06 2e 26 62 78 31 25 3d  6f 78 25 2b 77 69 6d 70  |..&bx1%=ox%+wimp|
0000a720  25 21 38 3a 62 79 31 25  3d 6f 79 25 2b 77 69 6d  |%!8:by1%=oy%+wim|
0000a730  70 25 21 31 32 0d 06 2f  27 62 78 32 25 3d 6f 78  |p%!12../'bx2%=ox|
0000a740  25 2b 77 69 6d 70 25 21  31 36 3a 62 79 32 25 3d  |%+wimp%!16:by2%=|
0000a750  6f 79 25 2b 77 69 6d 70  25 21 32 30 0d 06 30 1e  |oy%+wimp%!20..0.|
0000a760  21 77 69 6d 70 25 3d 77  68 61 6e 25 3a 77 69 6d  |!wimp%=whan%:wim|
0000a770  70 25 21 34 3d 69 63 6f  6e 25 0d 06 31 20 c8 99  |p%!4=icon%..1 ..|
0000a780  22 57 69 6d 70 5f 47 65  74 49 63 6f 6e 53 74 61  |"Wimp_GetIconSta|
0000a790  74 65 22 2c 2c 77 69 6d  70 25 0d 06 32 0d 77 69  |te",,wimp%..2.wi|
0000a7a0  6d 70 25 21 34 3d 37 0d  06 33 17 77 69 6d 70 25  |mp%!4=7..3.wimp%|
0000a7b0  21 38 3d 6f 78 25 2b 77  69 6d 70 25 21 38 0d 06  |!8=ox%+wimp%!8..|
0000a7c0  34 19 77 69 6d 70 25 21  31 32 3d 6f 79 25 2b 77  |4.wimp%!12=oy%+w|
0000a7d0  69 6d 70 25 21 31 32 0d  06 35 19 77 69 6d 70 25  |imp%!12..5.wimp%|
0000a7e0  21 31 36 3d 6f 78 25 2b  77 69 6d 70 25 21 31 36  |!16=ox%+wimp%!16|
0000a7f0  0d 06 36 19 77 69 6d 70  25 21 32 30 3d 6f 79 25  |..6.wimp%!20=oy%|
0000a800  2b 77 69 6d 70 25 21 32  30 0d 06 37 11 77 69 6d  |+wimp%!20..7.wim|
0000a810  70 25 21 32 34 3d 62 78  31 25 0d 06 38 11 77 69  |p%!24=bx1%..8.wi|
0000a820  6d 70 25 21 32 38 3d 62  79 31 25 0d 06 39 11 77  |mp%!28=by1%..9.w|
0000a830  69 6d 70 25 21 33 32 3d  62 78 32 25 0d 06 3a 11  |imp%!32=bx2%..:.|
0000a840  77 69 6d 70 25 21 33 36  3d 62 79 32 25 0d 06 3b  |wimp%!36=by2%..;|
0000a850  1b c8 99 22 57 69 6d 70  5f 44 72 61 67 42 6f 78  |..."Wimp_DragBox|
0000a860  22 2c 2c 77 69 6d 70 25  0d 06 3c 58 77 73 6c 69  |",,wimp%..<Xwsli|
0000a870  64 65 64 72 61 67 25 3d  77 68 61 6e 25 3a 77 73  |dedrag%=whan%:ws|
0000a880  6c 69 64 65 77 25 3d 77  68 61 6e 25 3a 77 73 6c  |lidew%=whan%:wsl|
0000a890  69 64 65 69 25 3d 69 63  6f 6e 25 3a 77 6f 78 25  |idei%=icon%:wox%|
0000a8a0  3d 6f 78 25 3a 77 6f 79  25 3d 6f 79 25 3a 77 6c  |=ox%:woy%=oy%:wl|
0000a8b0  65 6e 25 3d 2d 31 3a 77  6c 65 6e 32 25 3d 2d 31  |en%=-1:wlen2%=-1|
0000a8c0  0d 06 3d 25 77 73 77 69  64 25 3d 62 78 32 25 2d  |..=%wswid%=bx2%-|
0000a8d0  62 78 31 25 3a 77 73 68  65 69 25 3d 62 79 32 25  |bx1%:wshei%=by2%|
0000a8e0  2d 62 79 31 25 0d 06 3e  05 e1 0d 06 3f 28 dd 20  |-by1%..>....?(. |
0000a8f0  a4 77 69 6d 70 5f 66 69  6e 64 73 75 62 6d 65 6e  |.wimp_findsubmen|
0000a900  75 70 74 72 28 77 6d 65  6e 75 25 2c 69 74 65 6d  |uptr(wmenu%,item|
0000a910  25 29 0d 06 40 0d ea 20  4d 2c 77 70 74 72 25 0d  |%)..@.. M,wptr%.|
0000a920  06 41 12 77 70 74 72 25  3d 77 6d 65 6e 75 25 2b  |.A.wptr%=wmenu%+|
0000a930  34 0d 06 42 11 e3 20 4d  3d 31 20 b8 20 69 74 65  |4..B.. M=1 . ite|
0000a940  6d 25 0d 06 43 0d 77 70  74 72 25 2b 3d 32 34 0d  |m%..C.wptr%+=24.|
0000a950  06 44 07 ed 20 4d 0d 06  45 0c 3d 77 70 74 72 25  |.D.. M..E.=wptr%|
0000a960  21 34 0d 06 46 23 dd 20  f2 77 69 6d 70 5f 7a 65  |!4..F#. .wimp_ze|
0000a970  72 6f 74 65 72 6d 69 6e  61 74 65 28 77 70 74 72  |roterminate(wptr|
0000a980  25 2c 74 24 29 0d 06 47  07 ea 20 4c 0d 06 48 11  |%,t$)..G.. L..H.|
0000a990  e3 20 4c 3d 31 20 b8 20  a9 28 74 24 29 0d 06 49  |. L=1 . .(t$)..I|
0000a9a0  16 3f 77 70 74 72 25 3d  97 28 c1 74 24 2c 4c 2c  |.?wptr%=.(.t$,L,|
0000a9b0  31 29 29 0d 06 4a 0c 77  70 74 72 25 2b 3d 31 0d  |1))..J.wptr%+=1.|
0000a9c0  06 4b 07 ed 20 4c 0d 06  4c 0c 3f 77 70 74 72 25  |.K.. L..L.?wptr%|
0000a9d0  3d 30 0d 06 4d 05 e1 0d  06 4e 17 dd 20 f2 77 69  |=0..M....N.. .wi|
0000a9e0  6d 70 5f 64 61 74 61 6c  6f 61 64 61 63 6b 0d 06  |mp_dataloadack..|
0000a9f0  4f 1f 77 69 6d 70 25 21  31 36 3d 34 3a 77 69 6d  |O.wimp%!16=4:wim|
0000aa00  70 25 21 31 32 3d 77 69  6d 70 25 21 38 0d 06 50  |p%!12=wimp%!8..P|
0000aa10  33 c8 99 22 57 69 6d 70  5f 53 65 6e 64 4d 65 73  |3.."Wimp_SendMes|
0000aa20  73 61 67 65 22 2c 31 37  2c 77 69 6d 70 25 2c 77  |sage",17,wimp%,w|
0000aa30  69 6d 70 25 21 32 30 2c  77 69 6d 70 25 21 32 34  |imp%!20,wimp%!24|
0000aa40  0d 06 51 34 e7 20 70 61  74 68 24 3d 22 3c 57 69  |..Q4. path$="<Wi|
0000aa50  6d 70 24 53 63 72 61 70  3e 22 20 ff 22 57 69 70  |mp$Scrap>" ."Wip|
0000aa60  65 20 22 2b 70 61 74 68  24 2b 22 20 7e 43 20 7e  |e "+path$+" ~C ~|
0000aa70  56 20 46 22 0d 06 52 05  e1 0d 06 53 21 dd 20 f2  |V F"..R....S!. .|
0000aa80  77 69 6d 70 5f 7a 65 72  6f 6c 65 6e 67 74 68 62  |wimp_zerolengthb|
0000aa90  61 72 28 62 6f 72 64 65  72 29 0d 06 54 19 77 69  |ar(border)..T.wi|
0000aaa0  6d 70 25 21 38 3d 30 3a  77 69 6d 70 25 21 31 32  |mp%!8=0:wimp%!12|
0000aab0  3d 33 32 0d 06 55 20 c8  99 22 57 69 6d 70 5f 53  |=32..U .."Wimp_S|
0000aac0  65 74 49 63 6f 6e 53 74  61 74 65 22 2c 2c 77 69  |etIconState",,wi|
0000aad0  6d 70 25 0d 06 56 10 e7  20 62 6f 72 64 65 72 3d  |mp%..V.. border=|
0000aae0  31 20 8c 0d 06 57 1e 77  69 6d 70 25 21 38 3d 32  |1 ...W.wimp%!8=2|
0000aaf0  30 34 38 3a 77 69 6d 70  25 21 31 32 3d 32 30 34  |048:wimp%!12=204|
0000ab00  38 0d 06 58 20 c8 99 22  57 69 6d 70 5f 53 65 74  |8..X .."Wimp_Set|
0000ab10  49 63 6f 6e 53 74 61 74  65 22 2c 2c 77 69 6d 70  |IconState",,wimp|
0000ab20  25 0d 06 59 18 77 69 6d  70 25 21 38 3d 30 3a 77  |%..Y.wimp%!8=0:w|
0000ab30  69 6d 70 25 21 31 32 3d  34 0d 06 5a 20 c8 99 22  |imp%!12=4..Z .."|
0000ab40  57 69 6d 70 5f 53 65 74  49 63 6f 6e 53 74 61 74  |Wimp_SetIconStat|
0000ab50  65 22 2c 2c 77 69 6d 70  25 0d 06 5b 05 cc 0d 06  |e",,wimp%..[....|
0000ab60  5c 1b 77 69 6d 70 25 21  38 3d 30 3a 77 69 6d 70  |\.wimp%!8=0:wimp|
0000ab70  25 21 31 32 3d 32 30 34  38 0d 06 5d 20 c8 99 22  |%!12=2048..] .."|
0000ab80  57 69 6d 70 5f 53 65 74  49 63 6f 6e 53 74 61 74  |Wimp_SetIconStat|
0000ab90  65 22 2c 2c 77 69 6d 70  25 0d 06 5e 05 cd 0d 06  |e",,wimp%..^....|
0000aba0  5f 05 e1 0d ff                                    |_....|
0000aba5