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  9c c2 00 00 60 43 01 00  9b 52 01 00 42 61 73 69  |....`C...R..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 35 32  39 43 00 4d 61 6b 65 41  |0,0001529C.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 0f  f4 3e 21 52 75 6e 49 6d  |",-1.....>!RunIm|
00000120  61 67 65 0d 00 02 1c 20  20 20 20 20 20 20 20 20  |age....         |
00000130  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 0d  |               .|
00000140  00 03 05 3a 0d 00 04 15  61 70 70 6e 61 6d 65 24  |...:....appname$|
00000150  3d 22 4f 66 66 69 63 65  22 0d 00 05 05 3a 0d 00  |="Office"....:..|
00000160  06 1a 76 65 72 24 3d 22  30 2e 33 35 20 28 39 2d  |..ver$="0.35 (9-|
00000170  41 70 72 2d 39 38 29 22  0d 00 07 0f 6e 75 6d 24  |Apr-98)"....num$|
00000180  3d 22 30 30 30 78 22 0d  00 08 14 6c 69 63 24 3d  |="000x"....lic$=|
00000190  22 53 68 61 72 65 77 61  72 65 22 0d 00 09 9f ee  |"Shareware".....|
000001a0  20 85 20 f2 77 69 6d 70  5f 65 72 72 6f 72 28 61  | . .wimp_error(a|
000001b0  70 70 6e 61 6d 65 24 2c  22 51 75 69 74 65 20 66  |ppname$,"Quite f|
000001c0  72 61 6e 6b 6c 79 2c 20  41 63 6f 72 6e 20 4f 66  |rankly, Acorn Of|
000001d0  66 69 63 65 20 64 69 64  6e 27 74 20 62 65 61 74  |fice didn't beat|
000001e0  20 61 72 6f 75 6e 64 20  74 68 65 20 62 75 73 68  | around the bush|
000001f0  20 61 6e 64 20 73 61 69  64 2c 20 27 22 2b f6 24  | and said, '"+.$|
00000200  2b 22 20 61 74 20 6c 69  6e 65 20 22 2b c3 20 9e  |+" at line "+. .|
00000210  20 2b 22 27 2e 20 54 68  69 73 20 69 73 20 70 72  | +"'. This is pr|
00000220  6f 62 61 62 6c 79 20 62  61 64 20 6e 65 77 73 2e  |obably bad news.|
00000230  2e 2e 22 2c 31 2c 31 29  3a e0 0d 00 0a 04 0d 00  |..",1,1):.......|
00000240  0b 0f f4 20 53 61 72 74  20 74 61 73 6b 0d 00 0c  |... Sart task...|
00000250  32 74 61 73 6b 25 3d a4  77 69 6d 70 5f 69 6e 69  |2task%=.wimp_ini|
00000260  74 69 61 6c 69 73 65 28  61 70 70 6e 61 6d 65 24  |tialise(appname$|
00000270  2c 37 30 30 30 2c 37 30  30 30 2c 33 30 30 29 0d  |,7000,7000,300).|
00000280  00 0d 04 0d 00 0e 0f f4  20 57 69 6d 70 20 70 6f  |........ Wimp po|
00000290  6c 6c 0d 00 0f 0e f2 77  69 6d 70 5f 70 6f 6c 6c  |ll.....wimp_poll|
000002a0  0d 00 10 05 e0 0d 00 11  05 3a 0d 00 12 16 dd 20  |.........:..... |
000002b0  f2 75 73 65 72 5f 69 6e  69 74 69 61 6c 69 73 65  |.user_initialise|
000002c0  0d 00 13 14 c8 99 22 48  6f 75 72 67 6c 61 73 73  |......"Hourglass|
000002d0  5f 4f 6e 22 0d 00 14 04  0d 00 15 2b f4 20 43 68  |_On".......+. Ch|
000002e0  65 63 6b 20 74 6f 20 73  65 65 20 69 66 20 70 72  |eck to see if pr|
000002f0  6f 67 72 61 6d 20 69 73  20 72 65 67 69 73 74 65  |ogram is registe|
00000300  72 65 64 0d 00 16 29 72  65 67 25 3d a4 72 65 67  |red...)reg%=.reg|
00000310  69 73 74 65 72 65 64 28  22 3c 6f 66 66 69 63 65  |istered("<office|
00000320  24 44 69 72 3e 2e 55 73  65 72 22 29 0d 00 17 31  |$Dir>.User")...1|
00000330  e7 20 72 65 67 25 3d b9  20 8c 20 6e 61 6d 65 24  |. reg%=. . name$|
00000340  3d a4 64 65 63 6f 64 65  28 22 3c 6f 66 66 69 63  |=.decode("<offic|
00000350  65 24 44 69 72 3e 2e 55  73 65 72 22 29 0d 00 18  |e$Dir>.User")...|
00000360  23 e7 20 72 65 67 25 3d  a3 20 8c 20 6e 61 6d 65  |#. reg%=. . name|
00000370  24 3d 22 55 4e 52 45 47  49 53 54 45 52 45 44 22  |$="UNREGISTERED"|
00000380  0d 00 19 05 cd 0d 00 1a  04 0d 00 1b 12 f4 20 4c  |.............. L|
00000390  6f 61 64 20 74 68 65 20  62 61 72 0d 00 1c 0c f2  |oad the bar.....|
000003a0  69 6e 69 74 62 61 72 0d  00 1d 04 0d 00 1e 17 f4  |initbar.........|
000003b0  20 4c 6f 61 64 20 6f 70  74 69 6f 6e 73 20 66 69  | Load options fi|
000003c0  6c 65 0d 00 1f 12 f2 64  65 66 69 6e 65 6f 70 74  |le.....defineopt|
000003d0  69 6f 6e 73 0d 00 20 04  0d 00 21 18 f4 20 54 68  |ions.. ...!.. Th|
000003e0  65 20 53 74 61 72 74 75  70 20 42 61 6e 6e 65 72  |e Startup Banner|
000003f0  0d 00 22 4b 62 61 6e 6e  65 72 25 3d a4 77 69 6d  |.."Kbanner%=.wim|
00000400  70 5f 6c 6f 61 64 77 69  6e 64 6f 77 28 22 3c 6f  |p_loadwindow("<o|
00000410  66 66 69 63 65 24 44 69  72 3e 2e 52 65 73 6f 75  |ffice$Dir>.Resou|
00000420  72 63 65 73 2e 54 65 6d  70 6c 61 74 65 73 22 2c  |rces.Templates",|
00000430  22 62 61 6e 6e 65 72 22  2c 30 29 0d 00 23 26 6c  |"banner",0)..#&l|
00000440  6f 6f 6b 75 70 24 3d a4  77 69 6d 70 5f 6d 65 73  |ookup$=.wimp_mes|
00000450  73 6c 6f 6f 6b 30 28 22  56 65 72 73 69 6f 6e 22  |slook0("Version"|
00000460  29 0d 00 24 28 f2 77 69  6d 70 5f 70 75 74 69 63  |)..$(.wimp_putic|
00000470  6f 6e 74 65 78 74 28 62  61 6e 6e 65 72 25 2c 31  |ontext(banner%,1|
00000480  2c 6c 6f 6f 6b 75 70 24  29 0d 00 25 25 6c 6f 6f  |,lookup$)..%%loo|
00000490  6b 75 70 24 3d a4 77 69  6d 70 5f 6d 65 73 73 6c  |kup$=.wimp_messl|
000004a0  6f 6f 6b 30 28 22 42 61  6e 6e 65 72 22 29 0d 00  |ook0("Banner")..|
000004b0  26 25 f2 77 69 6d 70 5f  70 75 74 69 63 6f 6e 74  |&%.wimp_puticont|
000004c0  65 78 74 28 62 61 6e 6e  65 72 25 2c 32 2c 76 65  |ext(banner%,2,ve|
000004d0  72 24 29 0d 00 27 28 f2  77 69 6d 70 5f 70 75 74  |r$)..'(.wimp_put|
000004e0  69 63 6f 6e 74 65 78 74  28 62 61 6e 6e 65 72 25  |icontext(banner%|
000004f0  2c 33 2c 6c 6f 6f 6b 75  70 24 29 0d 00 28 26 f2  |,3,lookup$)..(&.|
00000500  77 69 6d 70 5f 70 75 74  69 63 6f 6e 74 65 78 74  |wimp_puticontext|
00000510  28 62 61 6e 6e 65 72 25  2c 34 2c 6e 61 6d 65 24  |(banner%,4,name$|
00000520  29 0d 00 29 35 f2 77 69  6d 70 5f 70 75 74 69 63  |)..)5.wimp_putic|
00000530  6f 6e 74 65 78 74 28 62  61 6e 6e 65 72 25 2c 35  |ontext(banner%,5|
00000540  2c 22 a9 20 50 65 74 65  72 20 50 72 69 63 65 20  |,". Peter Price |
00000550  31 39 39 38 22 29 0d 00  2a 04 0d 00 2b 23 f4 20  |1998")..*...+#. |
00000560  54 68 65 20 43 6f 6e 66  69 67 75 72 61 74 69 6f  |The Configuratio|
00000570  6e 20 4d 41 49 4e 20 77  69 6e 64 6f 77 0d 00 2c  |n MAIN window..,|
00000580  53 63 6f 6e 66 69 67 5f  62 6f 78 25 3d a4 77 69  |Sconfig_box%=.wi|
00000590  6d 70 5f 6c 6f 61 64 77  69 6e 64 6f 77 28 22 3c  |mp_loadwindow("<|
000005a0  6f 66 66 69 63 65 24 44  69 72 3e 2e 52 65 73 6f  |office$Dir>.Reso|
000005b0  75 72 63 65 73 2e 54 65  6d 70 6c 61 74 65 73 22  |urces.Templates"|
000005c0  2c 22 63 6f 6e 66 69 67  5f 62 6f 78 22 2c 30 29  |,"config_box",0)|
000005d0  0d 00 2d 25 6c 6f 6f 6b  75 70 24 3d a4 77 69 6d  |..-%lookup$=.wim|
000005e0  70 5f 6d 65 73 73 6c 6f  6f 6b 30 28 22 43 61 6e  |p_messlook0("Can|
000005f0  63 65 6c 22 29 0d 00 2e  2c f2 77 69 6d 70 5f 70  |cel")...,.wimp_p|
00000600  75 74 69 63 6f 6e 74 65  78 74 28 63 6f 6e 66 69  |uticontext(confi|
00000610  67 5f 62 6f 78 25 2c 32  2c 6c 6f 6f 6b 75 70 24  |g_box%,2,lookup$|
00000620  29 0d 00 2f 26 6c 6f 6f  6b 75 70 24 3d a4 77 69  |)../&lookup$=.wi|
00000630  6d 70 5f 6d 65 73 73 6c  6f 6f 6b 30 28 22 52 65  |mp_messlook0("Re|
00000640  73 74 6f 72 65 22 29 0d  00 30 2c f2 77 69 6d 70  |store")..0,.wimp|
00000650  5f 70 75 74 69 63 6f 6e  74 65 78 74 28 63 6f 6e  |_puticontext(con|
00000660  66 69 67 5f 62 6f 78 25  2c 31 2c 6c 6f 6f 6b 75  |fig_box%,1,looku|
00000670  70 24 29 0d 00 31 23 6c  6f 6f 6b 75 70 24 3d a4  |p$)..1#lookup$=.|
00000680  77 69 6d 70 5f 6d 65 73  73 6c 6f 6f 6b 30 28 22  |wimp_messlook0("|
00000690  53 61 76 65 22 29 0d 00  32 2c f2 77 69 6d 70 5f  |Save")..2,.wimp_|
000006a0  70 75 74 69 63 6f 6e 74  65 78 74 28 63 6f 6e 66  |puticontext(conf|
000006b0  69 67 5f 62 6f 78 25 2c  30 2c 6c 6f 6f 6b 75 70  |ig_box%,0,lookup|
000006c0  24 29 0d 00 33 04 0d 00  34 23 f4 20 54 68 65 20  |$)..3...4#. The |
000006d0  43 6f 6e 66 69 67 75 72  61 74 69 6f 6e 20 50 41  |Configuration PA|
000006e0  4e 45 20 77 69 6e 64 6f  77 0d 00 35 55 63 6f 6e  |NE window..5Ucon|
000006f0  66 69 67 5f 70 61 6e 65  25 3d a4 77 69 6d 70 5f  |fig_pane%=.wimp_|
00000700  6c 6f 61 64 77 69 6e 64  6f 77 28 22 3c 6f 66 66  |loadwindow("<off|
00000710  69 63 65 24 44 69 72 3e  2e 52 65 73 6f 75 72 63  |ice$Dir>.Resourc|
00000720  65 73 2e 54 65 6d 70 6c  61 74 65 73 22 2c 22 63  |es.Templates","c|
00000730  6f 6e 66 69 67 5f 70 61  6e 65 22 2c 30 29 0d 00  |onfig_pane",0)..|
00000740  36 23 6c 6f 6f 6b 75 70  24 3d a4 77 69 6d 70 5f  |6#lookup$=.wimp_|
00000750  6d 65 73 73 6c 6f 6f 6b  30 28 22 43 6f 6e 31 22  |messlook0("Con1"|
00000760  29 0d 00 37 2d f2 77 69  6d 70 5f 70 75 74 69 63  |)..7-.wimp_putic|
00000770  6f 6e 74 65 78 74 28 63  6f 6e 66 69 67 5f 70 61  |ontext(config_pa|
00000780  6e 65 25 2c 32 2c 6c 6f  6f 6b 75 70 24 29 0d 00  |ne%,2,lookup$)..|
00000790  38 23 6c 6f 6f 6b 75 70  24 3d a4 77 69 6d 70 5f  |8#lookup$=.wimp_|
000007a0  6d 65 73 73 6c 6f 6f 6b  30 28 22 43 6f 6e 32 22  |messlook0("Con2"|
000007b0  29 0d 00 39 2d f2 77 69  6d 70 5f 70 75 74 69 63  |)..9-.wimp_putic|
000007c0  6f 6e 74 65 78 74 28 63  6f 6e 66 69 67 5f 70 61  |ontext(config_pa|
000007d0  6e 65 25 2c 34 2c 6c 6f  6f 6b 75 70 24 29 0d 00  |ne%,4,lookup$)..|
000007e0  3a 23 6c 6f 6f 6b 75 70  24 3d a4 77 69 6d 70 5f  |:#lookup$=.wimp_|
000007f0  6d 65 73 73 6c 6f 6f 6b  30 28 22 43 6f 6e 33 22  |messlook0("Con3"|
00000800  29 0d 00 3b 2d f2 77 69  6d 70 5f 70 75 74 69 63  |)..;-.wimp_putic|
00000810  6f 6e 74 65 78 74 28 63  6f 6e 66 69 67 5f 70 61  |ontext(config_pa|
00000820  6e 65 25 2c 38 2c 6c 6f  6f 6b 75 70 24 29 0d 00  |ne%,8,lookup$)..|
00000830  3c 23 6c 6f 6f 6b 75 70  24 3d a4 77 69 6d 70 5f  |<#lookup$=.wimp_|
00000840  6d 65 73 73 6c 6f 6f 6b  30 28 22 43 6f 6e 34 22  |messlook0("Con4"|
00000850  29 0d 00 3d 2d f2 77 69  6d 70 5f 70 75 74 69 63  |)..=-.wimp_putic|
00000860  6f 6e 74 65 78 74 28 63  6f 6e 66 69 67 5f 70 61  |ontext(config_pa|
00000870  6e 65 25 2c 39 2c 6c 6f  6f 6b 75 70 24 29 0d 00  |ne%,9,lookup$)..|
00000880  3e 30 e7 20 72 65 67 25  3d a3 20 8c 20 f2 77 69  |>0. reg%=. . .wi|
00000890  6d 70 5f 69 63 6f 6e 64  69 73 61 62 6c 65 28 63  |mp_icondisable(c|
000008a0  6f 6e 66 69 67 5f 70 61  6e 65 25 2c 36 29 0d 00  |onfig_pane%,6)..|
000008b0  3f 30 e7 20 72 65 67 25  3d a3 20 8c 20 f2 77 69  |?0. reg%=. . .wi|
000008c0  6d 70 5f 69 63 6f 6e 64  69 73 61 62 6c 65 28 63  |mp_icondisable(c|
000008d0  6f 6e 66 69 67 5f 70 61  6e 65 25 2c 37 29 0d 00  |onfig_pane%,7)..|
000008e0  40 30 e7 20 72 65 67 25  3d a3 20 8c 20 f2 77 69  |@0. reg%=. . .wi|
000008f0  6d 70 5f 69 63 6f 6e 64  69 73 61 62 6c 65 28 63  |mp_icondisable(c|
00000900  6f 6e 66 69 67 5f 70 61  6e 65 25 2c 38 29 0d 00  |onfig_pane%,8)..|
00000910  41 30 e7 20 72 65 67 25  3d a3 20 8c 20 f2 77 69  |A0. reg%=. . .wi|
00000920  6d 70 5f 69 63 6f 6e 64  69 73 61 62 6c 65 28 63  |mp_icondisable(c|
00000930  6f 6e 66 69 67 5f 70 61  6e 65 25 2c 39 29 0d 00  |onfig_pane%,9)..|
00000940  42 04 0d 00 43 1a f4 20  45 64 69 74 20 62 75 74  |B...C.. Edit but|
00000950  74 6f 6e 20 62 6f 78 20  70 61 6e 65 0d 00 44 4e  |ton box pane..DN|
00000960  65 64 69 74 62 6f 78 25  3d a4 77 69 6d 70 5f 6c  |editbox%=.wimp_l|
00000970  6f 61 64 77 69 6e 64 6f  77 28 22 3c 6f 66 66 69  |oadwindow("<offi|
00000980  63 65 24 44 69 72 3e 2e  52 65 73 6f 75 72 63 65  |ce$Dir>.Resource|
00000990  73 2e 54 65 6d 70 6c 61  74 65 73 22 2c 22 65 64  |s.Templates","ed|
000009a0  69 74 5f 62 6f 78 22 2c  30 29 0d 00 45 50 65 64  |it_box",0)..EPed|
000009b0  69 74 70 61 6e 65 25 3d  a4 77 69 6d 70 5f 6c 6f  |itpane%=.wimp_lo|
000009c0  61 64 77 69 6e 64 6f 77  28 22 3c 6f 66 66 69 63  |adwindow("<offic|
000009d0  65 24 44 69 72 3e 2e 52  65 73 6f 75 72 63 65 73  |e$Dir>.Resources|
000009e0  2e 54 65 6d 70 6c 61 74  65 73 22 2c 22 65 64 69  |.Templates","edi|
000009f0  74 5f 70 61 6e 65 22 2c  30 29 0d 00 46 21 6c 6f  |t_pane",0)..F!lo|
00000a00  6f 6b 75 70 24 3d a4 77  69 6d 70 5f 6d 65 73 73  |okup$=.wimp_mess|
00000a10  6c 6f 6f 6b 30 28 22 4f  70 22 29 0d 00 47 29 f2  |look0("Op")..G).|
00000a20  77 69 6d 70 5f 70 75 74  69 63 6f 6e 74 65 78 74  |wimp_puticontext|
00000a30  28 65 64 69 74 62 6f 78  25 2c 35 2c 6c 6f 6f 6b  |(editbox%,5,look|
00000a40  75 70 24 29 0d 00 48 24  6c 6f 6f 6b 75 70 24 3d  |up$)..H$lookup$=|
00000a50  a4 77 69 6d 70 5f 6d 65  73 73 6c 6f 6f 6b 30 28  |.wimp_messlook0(|
00000a60  22 43 6c 6f 73 65 22 29  0d 00 49 29 f2 77 69 6d  |"Close")..I).wim|
00000a70  70 5f 70 75 74 69 63 6f  6e 74 65 78 74 28 65 64  |p_puticontext(ed|
00000a80  69 74 62 6f 78 25 2c 31  2c 6c 6f 6f 6b 75 70 24  |itbox%,1,lookup$|
00000a90  29 0d 00 4a 23 6c 6f 6f  6b 75 70 24 3d a4 77 69  |)..J#lookup$=.wi|
00000aa0  6d 70 5f 6d 65 73 73 6c  6f 6f 6b 30 28 22 53 61  |mp_messlook0("Sa|
00000ab0  76 65 22 29 0d 00 4b 29  f2 77 69 6d 70 5f 70 75  |ve")..K).wimp_pu|
00000ac0  74 69 63 6f 6e 74 65 78  74 28 65 64 69 74 62 6f  |ticontext(editbo|
00000ad0  78 25 2c 30 2c 6c 6f 6f  6b 75 70 24 29 0d 00 4c  |x%,0,lookup$)..L|
00000ae0  24 6c 6f 6f 6b 75 70 24  3d a4 77 69 6d 70 5f 6d  |$lookup$=.wimp_m|
00000af0  65 73 73 6c 6f 6f 6b 30  28 22 45 64 69 74 31 22  |esslook0("Edit1"|
00000b00  29 0d 00 4d 29 f2 77 69  6d 70 5f 70 75 74 69 63  |)..M).wimp_putic|
00000b10  6f 6e 74 65 78 74 28 65  64 69 74 62 6f 78 25 2c  |ontext(editbox%,|
00000b20  33 2c 6c 6f 6f 6b 75 70  24 29 0d 00 4e 24 6c 6f  |3,lookup$)..N$lo|
00000b30  6f 6b 75 70 24 3d a4 77  69 6d 70 5f 6d 65 73 73  |okup$=.wimp_mess|
00000b40  6c 6f 6f 6b 30 28 22 45  64 69 74 32 22 29 0d 00  |look0("Edit2")..|
00000b50  4f 29 f2 77 69 6d 70 5f  70 75 74 69 63 6f 6e 74  |O).wimp_puticont|
00000b60  65 78 74 28 65 64 69 74  62 6f 78 25 2c 34 2c 6c  |ext(editbox%,4,l|
00000b70  6f 6f 6b 75 70 24 29 0d  00 50 2c f2 77 69 6d 70  |ookup$)..P,.wimp|
00000b80  5f 70 75 74 69 63 6f 6e  74 65 78 74 28 65 64 69  |_puticontext(edi|
00000b90  74 62 6f 78 25 2c 33 2c  63 6f 6e 66 69 67 72 75  |tbox%,3,configru|
00000ba0  6e 24 29 0d 00 51 04 0d  00 52 20 f4 20 54 68 65  |n$)..Q...R . The|
00000bb0  20 27 70 6c 65 61 73 65  20 74 61 6b 65 20 6e 6f  | 'please take no|
00000bc0  74 65 27 20 62 6f 78 0d  00 53 47 6e 6f 74 65 25  |te' box..SGnote%|
00000bd0  3d a4 77 69 6d 70 5f 6c  6f 61 64 77 69 6e 64 6f  |=.wimp_loadwindo|
00000be0  77 28 22 3c 6f 66 66 69  63 65 24 44 69 72 3e 2e  |w("<office$Dir>.|
00000bf0  52 65 73 6f 75 72 63 65  73 2e 54 65 6d 70 6c 61  |Resources.Templa|
00000c00  74 65 73 22 2c 22 6e 6f  74 65 22 2c 30 29 0d 00  |tes","note",0)..|
00000c10  54 23 6c 6f 6f 6b 75 70  24 3d a4 77 69 6d 70 5f  |T#lookup$=.wimp_|
00000c20  6d 65 73 73 6c 6f 6f 6b  30 28 22 4e 6f 74 65 22  |messlook0("Note"|
00000c30  29 0d 00 55 26 f2 77 69  6d 70 5f 70 75 74 69 63  |)..U&.wimp_putic|
00000c40  6f 6e 74 65 78 74 28 6e  6f 74 65 25 2c 31 2c 6c  |ontext(note%,1,l|
00000c50  6f 6f 6b 75 70 24 29 0d  00 56 27 6c 6f 6f 6b 75  |ookup$)..V'looku|
00000c60  70 24 3d a4 77 69 6d 70  5f 6d 65 73 73 6c 6f 6f  |p$=.wimp_messloo|
00000c70  6b 30 28 22 4e 6f 74 65  4d 65 73 73 22 29 0d 00  |k0("NoteMess")..|
00000c80  57 26 f2 77 69 6d 70 5f  70 75 74 69 63 6f 6e 74  |W&.wimp_puticont|
00000c90  65 78 74 28 6e 6f 74 65  25 2c 32 2c 6c 6f 6f 6b  |ext(note%,2,look|
00000ca0  75 70 24 29 0d 00 58 28  6c 6f 6f 6b 75 70 24 3d  |up$)..X(lookup$=|
00000cb0  a4 77 69 6d 70 5f 6d 65  73 73 6c 6f 6f 6b 30 28  |.wimp_messlook0(|
00000cc0  22 4e 6f 74 65 4d 65 73  73 33 22 29 0d 00 59 26  |"NoteMess3")..Y&|
00000cd0  f2 77 69 6d 70 5f 70 75  74 69 63 6f 6e 74 65 78  |.wimp_puticontex|
00000ce0  74 28 6e 6f 74 65 25 2c  33 2c 6c 6f 6f 6b 75 70  |t(note%,3,lookup|
00000cf0  24 29 0d 00 5a 29 6c 6f  6f 6b 75 70 24 3d a4 77  |$)..Z)lookup$=.w|
00000d00  69 6d 70 5f 6d 65 73 73  6c 6f 6f 6b 30 28 22 4e  |imp_messlook0("N|
00000d10  6f 74 65 45 6d 61 69 6c  31 22 29 0d 00 5b 26 f2  |oteEmail1")..[&.|
00000d20  77 69 6d 70 5f 70 75 74  69 63 6f 6e 74 65 78 74  |wimp_puticontext|
00000d30  28 6e 6f 74 65 25 2c 34  2c 6c 6f 6f 6b 75 70 24  |(note%,4,lookup$|
00000d40  29 0d 00 5c 28 6c 6f 6f  6b 75 70 24 3d a4 77 69  |)..\(lookup$=.wi|
00000d50  6d 70 5f 6d 65 73 73 6c  6f 6f 6b 30 28 22 4e 6f  |mp_messlook0("No|
00000d60  74 65 4d 65 73 73 35 22  29 0d 00 5d 26 f2 77 69  |teMess5")..]&.wi|
00000d70  6d 70 5f 70 75 74 69 63  6f 6e 74 65 78 74 28 6e  |mp_puticontext(n|
00000d80  6f 74 65 25 2c 35 2c 6c  6f 6f 6b 75 70 24 29 0d  |ote%,5,lookup$).|
00000d90  00 5e 29 6c 6f 6f 6b 75  70 24 3d a4 77 69 6d 70  |.^)lookup$=.wimp|
00000da0  5f 6d 65 73 73 6c 6f 6f  6b 30 28 22 4e 6f 74 65  |_messlook0("Note|
00000db0  45 6d 61 69 6c 32 22 29  0d 00 5f 26 f2 77 69 6d  |Email2").._&.wim|
00000dc0  70 5f 70 75 74 69 63 6f  6e 74 65 78 74 28 6e 6f  |p_puticontext(no|
00000dd0  74 65 25 2c 36 2c 6c 6f  6f 6b 75 70 24 29 0d 00  |te%,6,lookup$)..|
00000de0  60 04 0d 00 61 0e f4 20  49 6e 66 6f 20 62 6f 78  |`...a.. Info box|
00000df0  0d 00 62 53 e7 20 72 65  67 25 3d b9 20 8c 20 69  |..bS. reg%=. . i|
00000e00  6e 66 6f 25 3d a4 77 69  6d 70 5f 6c 6f 61 64 77  |nfo%=.wimp_loadw|
00000e10  69 6e 64 6f 77 28 22 3c  6f 66 66 69 63 65 24 44  |indow("<office$D|
00000e20  69 72 3e 2e 52 65 73 6f  75 72 63 65 73 2e 54 65  |ir>.Resources.Te|
00000e30  6d 70 6c 61 74 65 73 22  2c 22 7e 69 6e 66 6f 22  |mplates","~info"|
00000e40  2c 30 29 0d 00 63 52 e7  20 72 65 67 25 3d a3 20  |,0)..cR. reg%=. |
00000e50  8c 20 69 6e 66 6f 25 3d  a4 77 69 6d 70 5f 6c 6f  |. info%=.wimp_lo|
00000e60  61 64 77 69 6e 64 6f 77  28 22 3c 6f 66 66 69 63  |adwindow("<offic|
00000e70  65 24 44 69 72 3e 2e 52  65 73 6f 75 72 63 65 73  |e$Dir>.Resources|
00000e80  2e 54 65 6d 70 6c 61 74  65 73 22 2c 22 69 6e 66  |.Templates","inf|
00000e90  6f 22 2c 30 29 0d 00 64  05 cd 0d 00 65 23 6c 6f  |o",0)..d....e#lo|
00000ea0  6f 6b 75 70 24 3d a4 77  69 6d 70 5f 6d 65 73 73  |okup$=.wimp_mess|
00000eb0  6c 6f 6f 6b 30 28 22 4e  61 6d 65 22 29 0d 00 66  |look0("Name")..f|
00000ec0  26 f2 77 69 6d 70 5f 70  75 74 69 63 6f 6e 74 65  |&.wimp_puticonte|
00000ed0  78 74 28 69 6e 66 6f 25  2c 30 2c 6c 6f 6f 6b 75  |xt(info%,0,looku|
00000ee0  70 24 29 0d 00 67 23 6c  6f 6f 6b 75 70 24 3d a4  |p$)..g#lookup$=.|
00000ef0  77 69 6d 70 5f 6d 65 73  73 6c 6f 6f 6b 30 28 22  |wimp_messlook0("|
00000f00  50 75 72 70 22 29 0d 00  68 26 f2 77 69 6d 70 5f  |Purp")..h&.wimp_|
00000f10  70 75 74 69 63 6f 6e 74  65 78 74 28 69 6e 66 6f  |puticontext(info|
00000f20  25 2c 31 2c 6c 6f 6f 6b  75 70 24 29 0d 00 69 3f  |%,1,lookup$)..i?|
00000f30  f2 77 69 6d 70 5f 70 75  74 69 63 6f 6e 74 65 78  |.wimp_puticontex|
00000f40  74 28 69 6e 66 6f 25 2c  32 2c 22 a9 20 50 65 74  |t(info%,2,". Pet|
00000f50  65 72 20 50 72 69 63 65  2f 41 6e 64 72 65 77 20  |er Price/Andrew |
00000f60  41 79 72 65 20 31 39 39  38 22 29 0d 00 6a 24 f2  |Ayre 1998")..j$.|
00000f70  77 69 6d 70 5f 70 75 74  69 63 6f 6e 74 65 78 74  |wimp_puticontext|
00000f80  28 69 6e 66 6f 25 2c 33  2c 6e 61 6d 65 24 29 0d  |(info%,3,name$).|
00000f90  00 6b 23 f2 77 69 6d 70  5f 70 75 74 69 63 6f 6e  |.k#.wimp_puticon|
00000fa0  74 65 78 74 28 69 6e 66  6f 25 2c 34 2c 76 65 72  |text(info%,4,ver|
00000fb0  24 29 0d 00 6c 04 0d 00  6d 0e f4 20 49 63 6f 6e  |$)..l...m.. Icon|
00000fc0  20 62 61 72 0d 00 6e 2f  62 61 72 25 3d a4 77 69  | bar..n/bar%=.wi|
00000fd0  6d 70 5f 69 63 6f 6e 62  61 72 28 22 21 22 2b 61  |mp_iconbar("!"+a|
00000fe0  70 70 6e 61 6d 65 24 2c  22 4f 66 66 69 63 65 22  |ppname$,"Office"|
00000ff0  2c 30 29 0d 00 6f 04 0d  00 70 13 f4 20 49 63 6f  |,0)..o...p.. Ico|
00001000  6e 20 62 61 72 20 6d 65  6e 75 0d 00 71 32 62 61  |n bar menu..q2ba|
00001010  72 6d 65 6e 75 25 3d a4  77 69 6d 70 5f 63 72 65  |rmenu%=.wimp_cre|
00001020  61 74 65 6d 65 73 73 61  67 65 6d 65 6e 75 28 22  |atemessagemenu("|
00001030  42 4d 65 6e 75 22 2c 22  22 2c 39 29 0d 00 72 29  |BMenu","",9)..r)|
00001040  f2 77 69 6d 70 5f 61 74  74 61 63 68 73 75 62 6d  |.wimp_attachsubm|
00001050  65 6e 75 28 62 61 72 6d  65 6e 75 25 2c 31 2c 69  |enu(barmenu%,1,i|
00001060  6e 66 6f 25 29 0d 00 73  2f 66 69 6c 65 24 3d 22  |nfo%)..s/file$="|
00001070  3c 6f 66 66 69 63 65 24  44 69 72 3e 2e 52 65 73  |<office$Dir>.Res|
00001080  6f 75 72 63 65 73 2e 21  4d 61 6e 75 61 6c 2e 21  |ources.!Manual.!|
00001090  52 75 6e 22 0d 00 74 24  c8 99 20 22 4f 53 5f 46  |Run"..t$.. "OS_F|
000010a0  69 6c 65 22 2c 31 33 2c  66 69 6c 65 24 20 b8 20  |ile",13,file$ . |
000010b0  70 72 65 73 65 6e 74 25  0d 00 75 12 e7 20 70 72  |present%..u.. pr|
000010c0  65 73 65 6e 74 25 3d 30  20 8c 0d 00 76 0d 20 74  |esent%=0 ...v. t|
000010d0  68 65 72 65 25 3d a3 0d  00 77 12 e7 20 70 72 65  |here%=...w.. pre|
000010e0  73 65 6e 74 25 3d 31 20  8c 0d 00 78 0d 20 74 68  |sent%=1 ...x. th|
000010f0  65 72 65 25 3d b9 0d 00  79 05 cd 0d 00 7a 05 3a  |ere%=...y....z.:|
00001100  0d 00 7b 2e e7 20 74 68  65 72 65 25 3d a3 20 8c  |..{.. there%=. .|
00001110  20 f2 77 69 6d 70 5f 6d  65 6e 75 64 69 73 61 62  | .wimp_menudisab|
00001120  6c 65 28 62 61 72 6d 65  6e 75 25 2c 35 29 0d 00  |le(barmenu%,5)..|
00001130  7c 05 cc 0d 00 7d 05 cd  0d 00 7e 04 0d 00 7f 10  ||....}....~.....|
00001140  f4 20 53 74 72 69 70 20  6d 65 6e 75 0d 00 80 34  |. Strip menu...4|
00001150  73 74 72 69 70 6d 65 6e  75 25 3d a4 77 69 6d 70  |stripmenu%=.wimp|
00001160  5f 63 72 65 61 74 65 6d  65 73 73 61 67 65 6d 65  |_createmessageme|
00001170  6e 75 28 22 53 4d 65 6e  75 22 2c 22 22 2c 34 29  |nu("SMenu","",4)|
00001180  0d 00 81 2b f2 77 69 6d  70 5f 61 74 74 61 63 68  |...+.wimp_attach|
00001190  73 75 62 6d 65 6e 75 28  73 74 72 69 70 6d 65 6e  |submenu(stripmen|
000011a0  75 25 2c 31 2c 69 6e 66  6f 25 29 0d 00 82 04 0d  |u%,1,info%).....|
000011b0  00 83 0f f4 20 45 72 72  6f 72 20 62 6f 78 0d 00  |.... Error box..|
000011c0  84 49 65 72 72 6f 72 25  3d a4 77 69 6d 70 5f 6c  |.Ierror%=.wimp_l|
000011d0  6f 61 64 77 69 6e 64 6f  77 28 22 3c 6f 66 66 69  |oadwindow("<offi|
000011e0  63 65 24 44 69 72 3e 2e  52 65 73 6f 75 72 63 65  |ce$Dir>.Resource|
000011f0  73 2e 54 65 6d 70 6c 61  74 65 73 22 2c 22 65 72  |s.Templates","er|
00001200  72 6f 72 22 2c 30 29 0d  00 85 25 6c 6f 6f 6b 75  |ror",0)...%looku|
00001210  70 24 3d a4 77 69 6d 70  5f 6d 65 73 73 6c 6f 6f  |p$=.wimp_messloo|
00001220  6b 30 28 22 45 72 72 6f  72 31 22 29 0d 00 86 27  |k0("Error1")...'|
00001230  f2 77 69 6d 70 5f 70 75  74 69 63 6f 6e 74 65 78  |.wimp_puticontex|
00001240  74 28 65 72 72 6f 72 25  2c 36 2c 6c 6f 6f 6b 75  |t(error%,6,looku|
00001250  70 24 29 0d 00 87 25 6c  6f 6f 6b 75 70 24 3d a4  |p$)...%lookup$=.|
00001260  77 69 6d 70 5f 6d 65 73  73 6c 6f 6f 6b 30 28 22  |wimp_messlook0("|
00001270  45 72 72 6f 72 32 22 29  0d 00 88 27 f2 77 69 6d  |Error2")...'.wim|
00001280  70 5f 70 75 74 69 63 6f  6e 74 65 78 74 28 65 72  |p_puticontext(er|
00001290  72 6f 72 25 2c 34 2c 6c  6f 6f 6b 75 70 24 29 0d  |ror%,4,lookup$).|
000012a0  00 89 25 6c 6f 6f 6b 75  70 24 3d a4 77 69 6d 70  |..%lookup$=.wimp|
000012b0  5f 6d 65 73 73 6c 6f 6f  6b 30 28 22 43 61 6e 63  |_messlook0("Canc|
000012c0  65 6c 22 29 0d 00 8a 27  f2 77 69 6d 70 5f 70 75  |el")...'.wimp_pu|
000012d0  74 69 63 6f 6e 74 65 78  74 28 65 72 72 6f 72 25  |ticontext(error%|
000012e0  2c 31 2c 6c 6f 6f 6b 75  70 24 29 0d 00 8b 04 0d  |,1,lookup$).....|
000012f0  00 8c 19 f4 20 53 68 6f  77 20 73 74 61 72 74 75  |.... Show startu|
00001300  70 20 62 61 6e 6e 65 72  0d 00 8d 30 e7 20 63 6f  |p banner...0. co|
00001310  6e 5f 74 68 72 65 65 24  3d 22 59 65 73 22 20 8c  |n_three$="Yes" .|
00001320  20 f2 77 69 6d 70 5f 62  61 6e 6e 65 72 28 62 61  | .wimp_banner(ba|
00001330  6e 6e 65 72 25 2c 33 29  0d 00 8e 18 e7 20 63 6f  |nner%,3)..... co|
00001340  6e 5f 74 68 72 65 65 24  3d 22 4e 6f 22 20 8c 20  |n_three$="No" . |
00001350  0d 00 8f 05 cd 0d 00 90  04 0d 00 91 17 f4 20 53  |.............. S|
00001360  68 6f 77 20 73 68 6f 72  74 63 75 74 20 62 61 72  |how shortcut bar|
00001370  0d 00 92 34 e7 20 63 6f  6e 5f 74 77 6f 24 3d 22  |...4. con_two$="|
00001380  59 65 73 22 20 8c 20 f2  77 69 6d 70 5f 6f 70 65  |Yes" . .wimp_ope|
00001390  6e 77 69 6e 64 6f 77 28  73 74 72 69 70 25 2c 30  |nwindow(strip%,0|
000013a0  2c 2d 31 29 0d 00 93 35  e7 20 63 6f 6e 5f 74 77  |,-1)...5. con_tw|
000013b0  6f 24 3d 22 4e 6f 22 20  8c 20 f2 77 69 6d 70 5f  |o$="No" . .wimp_|
000013c0  69 63 6f 6e 62 61 72 73  70 72 69 74 65 28 22 21  |iconbarsprite("!|
000013d0  4f 66 66 69 63 65 b2 22  29 0d 00 94 05 cd 0d 00  |Office.").......|
000013e0  95 04 0d 00 96 15 c8 99  22 48 6f 75 72 67 6c 61  |........"Hourgla|
000013f0  73 73 5f 4f 66 66 22 0d  00 97 05 e1 0d 00 98 05  |ss_Off".........|
00001400  3a 0d 00 99 17 dd 20 a4  75 73 65 72 5f 71 75 69  |:..... .user_qui|
00001410  74 28 74 79 70 65 25 29  0d 00 9a 06 3d 31 0d 00  |t(type%)....=1..|
00001420  9b 05 3a 0d 00 9c 3b dd  20 f2 75 73 65 72 5f 6d  |..:...;. .user_m|
00001430  6f 75 73 65 63 6c 69 63  6b 28 77 69 6e 64 6f 77  |ouseclick(window|
00001440  25 2c 69 63 6f 6e 25 2c  62 75 74 74 6f 6e 25 2c  |%,icon%,button%,|
00001450  77 6f 72 6b 78 25 2c 77  6f 72 6b 79 25 29 0d 00  |workx%,worky%)..|
00001460  9d 10 c8 8e 20 77 69 6e  64 6f 77 25 20 ca 0d 00  |.... window% ...|
00001470  9e 1f f4 20 43 6f 6e 66  69 67 75 72 61 74 69 6f  |... Configuratio|
00001480  6e 20 4d 41 49 4e 20 77  69 6e 64 6f 77 0d 00 9f  |n MAIN window...|
00001490  13 c9 20 63 6f 6e 66 69  67 5f 62 6f 78 25 20 3a  |.. config_box% :|
000014a0  0d 00 a0 10 20 20 c8 8e  20 69 63 6f 6e 25 20 ca  |....  .. icon% .|
000014b0  0d 00 a1 0b 20 20 c9 20  30 20 3a 0d 00 a2 11 20  |....  . 0 :.... |
000014c0  20 f2 73 61 76 65 63 6f  6e 66 69 67 0d 00 a3 24  | .saveconfig...$|
000014d0  20 20 f2 77 69 6d 70 5f  63 6c 6f 73 65 77 69 6e  |  .wimp_closewin|
000014e0  64 6f 77 28 63 6f 6e 66  69 67 5f 62 6f 78 25 29  |dow(config_box%)|
000014f0  0d 00 a4 25 20 20 f2 77  69 6d 70 5f 63 6c 6f 73  |...%  .wimp_clos|
00001500  65 77 69 6e 64 6f 77 28  63 6f 6e 66 69 67 5f 70  |ewindow(config_p|
00001510  61 6e 65 25 29 0d 00 a5  14 20 20 f2 64 65 66 69  |ane%)....  .defi|
00001520  6e 65 6f 70 74 69 6f 6e  73 0d 00 a6 0b 20 20 c9  |neoptions....  .|
00001530  20 31 20 3a 0d 00 a7 24  20 20 f2 77 69 6d 70 5f  | 1 :...$  .wimp_|
00001540  63 6c 6f 73 65 77 69 6e  64 6f 77 28 63 6f 6e 66  |closewindow(conf|
00001550  69 67 5f 62 6f 78 25 29  0d 00 a8 25 20 20 f2 77  |ig_box%)...%  .w|
00001560  69 6d 70 5f 63 6c 6f 73  65 77 69 6e 64 6f 77 28  |imp_closewindow(|
00001570  63 6f 6e 66 69 67 5f 70  61 6e 65 25 29 0d 00 a9  |config_pane%)...|
00001580  11 20 20 f2 6f 70 65 6e  63 6f 6e 66 69 67 0d 00  |.  .openconfig..|
00001590  aa 0b 20 20 c9 20 32 20  3a 0d 00 ab 24 20 20 f2  |..  . 2 :...$  .|
000015a0  77 69 6d 70 5f 63 6c 6f  73 65 77 69 6e 64 6f 77  |wimp_closewindow|
000015b0  28 63 6f 6e 66 69 67 5f  62 6f 78 25 29 0d 00 ac  |(config_box%)...|
000015c0  27 20 20 f2 77 69 6d 70  5f 63 6c 6f 73 65 77 69  |'  .wimp_closewi|
000015d0  6e 64 6f 77 28 63 6f 6e  66 69 67 5f 70 61 6e 65  |ndow(config_pane|
000015e0  25 29 20 20 0d 00 ad 07  20 20 cb 0d 00 ae 23 f4  |%)  ....  ....#.|
000015f0  20 54 68 65 20 43 6f 6e  66 69 67 75 72 61 74 69  | The Configurati|
00001600  6f 6e 20 50 41 4e 45 20  77 69 6e 64 6f 77 0d 00  |on PANE window..|
00001610  af 14 c9 20 63 6f 6e 66  69 67 5f 70 61 6e 65 25  |... config_pane%|
00001620  20 3a 0d 00 b0 10 20 20  c8 8e 20 69 63 6f 6e 25  | :....  .. icon%|
00001630  20 ca 0d 00 b1 0b 20 20  c9 20 35 20 3a 0d 00 b2  | .....  . 5 :...|
00001640  2c 20 20 74 78 74 24 3d  a4 77 69 6d 70 5f 67 65  |,  txt$=.wimp_ge|
00001650  74 69 63 6f 6e 74 65 78  74 28 63 6f 6e 66 69 67  |ticontext(config|
00001660  5f 70 61 6e 65 25 2c 35  29 0d 00 b3 43 20 20 e7  |_pane%,5)...C  .|
00001670  20 74 78 74 24 3d 22 45  6e 67 6c 69 73 68 22 20  | txt$="English" |
00001680  8c 20 f2 77 69 6d 70 5f  70 75 74 69 63 6f 6e 74  |. .wimp_puticont|
00001690  65 78 74 28 63 6f 6e 66  69 67 5f 70 61 6e 65 25  |ext(config_pane%|
000016a0  2c 35 2c 22 47 65 72 6d  61 6e 22 29 0d 00 b4 43  |,5,"German")...C|
000016b0  20 20 e7 20 74 78 74 24  3d 22 47 65 72 6d 61 6e  |  . txt$="German|
000016c0  22 20 8c 20 f2 77 69 6d  70 5f 70 75 74 69 63 6f  |" . .wimp_putico|
000016d0  6e 74 65 78 74 28 63 6f  6e 66 69 67 5f 70 61 6e  |ntext(config_pan|
000016e0  65 25 2c 35 2c 22 45 6e  67 6c 69 73 68 22 29 0d  |e%,5,"English").|
000016f0  00 b5 07 20 20 cd 0d 00  b6 07 20 20 cb 0d 00 b7  |...  .....  ....|
00001700  0e f4 20 49 63 6f 6e 20  42 61 72 0d 00 b8 0c c9  |.. Icon Bar.....|
00001710  20 62 61 72 25 20 3a 0d  00 b9 12 20 20 c8 8e 20  | bar% :....  .. |
00001720  62 75 74 74 6f 6e 25 20  ca 0d 00 ba 0b 20 20 c9  |button% .....  .|
00001730  20 34 20 3a 0d 00 bb 35  20 20 f2 77 69 6d 70 5f  | 4 :...5  .wimp_|
00001740  6f 70 65 6e 77 69 6e 64  6f 77 28 73 74 72 69 70  |openwindow(strip|
00001750  25 2c 30 2c 2d 31 29 20  3a f4 20 53 65 6c 65 63  |%,0,-1) :. Selec|
00001760  74 20 63 6c 69 63 6b 65  64 0d 00 bc 36 20 20 f2  |t clicked...6  .|
00001770  77 69 6d 70 5f 69 63 6f  6e 62 61 72 73 70 72 69  |wimp_iconbarspri|
00001780  74 65 28 22 21 6f 66 66  69 63 65 22 29 20 3a f4  |te("!office") :.|
00001790  20 43 6f 6c 6f 75 72 20  69 6e 20 69 63 6f 6e 0d  | Colour in icon.|
000017a0  00 bd 0b 20 20 c9 20 31  20 3a 0d 00 be 31 20 20  |...  . 1 :...1  |
000017b0  f2 77 69 6d 70 5f 63 6c  6f 73 65 77 69 6e 64 6f  |.wimp_closewindo|
000017c0  77 28 73 74 72 69 70 25  29 20 3a f4 20 41 64 6a  |w(strip%) :. Adj|
000017d0  75 73 74 20 63 6c 69 63  6b 65 64 0d 00 bf 36 20  |ust clicked...6 |
000017e0  20 f2 77 69 6d 70 5f 69  63 6f 6e 62 61 72 73 70  | .wimp_iconbarsp|
000017f0  72 69 74 65 28 22 21 6f  66 66 69 63 65 b2 22 29  |rite("!office.")|
00001800  20 3a f4 20 47 72 65 79  20 6f 75 74 20 69 63 6f  | :. Grey out ico|
00001810  6e 0d 00 c0 07 20 20 cb  0d 00 c1 12 f4 20 53 74  |n....  ...... St|
00001820  72 69 70 20 57 69 6e 64  6f 77 0d 00 c2 0c c9 20  |rip Window..... |
00001830  73 74 72 69 70 25 0d 00  c3 10 20 20 c8 8e 20 69  |strip%....  .. i|
00001840  63 6f 6e 25 20 ca 0d 00  c4 37 20 20 c9 20 31 2c  |con% ....7  . 1,|
00001850  32 2c 33 2c 34 2c 35 2c  36 2c 37 2c 38 2c 39 2c  |2,3,4,5,6,7,8,9,|
00001860  31 30 2c 31 31 2c 31 32  20 3a 20 f2 73 74 72 69  |10,11,12 : .stri|
00001870  70 70 72 65 73 73 28 69  63 6f 6e 25 29 0d 00 c5  |ppress(icon%)...|
00001880  3a 20 20 c9 20 31 33 20  3a 20 f2 65 72 72 6f 72  |:  . 13 : .error|
00001890  28 22 41 72 65 20 79 6f  75 20 73 75 72 65 20 79  |("Are you sure y|
000018a0  6f 75 20 77 61 6e 74 20  74 6f 20 73 68 75 74 64  |ou want to shutd|
000018b0  6f 77 6e 3f 22 29 20 0d  00 c6 07 20 20 cb 0d 00  |own?") ....  ...|
000018c0  c7 12 f4 20 45 72 72 6f  72 20 57 69 6e 64 6f 77  |... Error Window|
000018d0  0d 00 c8 0c c9 20 65 72  72 6f 72 25 0d 00 c9 10  |..... error%....|
000018e0  20 20 c8 8e 20 69 63 6f  6e 25 20 ca 0d 00 ca 25  |  .. icon% ....%|
000018f0  20 20 c9 20 31 20 3a 20  f2 77 69 6d 70 5f 63 6c  |  . 1 : .wimp_cl|
00001900  6f 73 65 77 69 6e 64 6f  77 28 65 72 72 6f 72 25  |osewindow(error%|
00001910  29 0d 00 cb 19 20 20 c9  20 34 20 3a 20 f2 77 69  |)....  . 4 : .wi|
00001920  6d 70 5f 71 75 69 74 28  30 29 0d 00 cc 26 20 20  |mp_quit(0)...&  |
00001930  c9 20 36 20 3a 20 ff 28  22 46 69 6c 65 72 5f 52  |. 6 : .("Filer_R|
00001940  75 6e 20 22 2b 63 6f 6e  66 69 67 72 75 6e 24 29  |un "+configrun$)|
00001950  0d 00 cd 1f 20 20 f2 77  69 6d 70 5f 63 6c 6f 73  |....  .wimp_clos|
00001960  65 77 69 6e 64 6f 77 28  65 72 72 6f 72 25 29 0d  |ewindow(error%).|
00001970  00 ce 07 20 20 cb 0d 00  cf 19 f4 20 45 64 69 74  |...  ...... Edit|
00001980  20 62 75 74 74 6f 6e 73  20 77 69 6e 64 6f 77 0d  | buttons window.|
00001990  00 d0 0e c9 20 65 64 69  74 62 6f 78 25 0d 00 d1  |.... editbox%...|
000019a0  10 20 20 c8 8e 20 69 63  6f 6e 25 20 ca 0d 00 d2  |.  .. icon% ....|
000019b0  0c 20 20 f4 20 53 61 76  65 0d 00 d3 0b 20 20 c9  |.  . Save....  .|
000019c0  20 30 20 3a 0d 00 d4 12  20 20 f2 73 61 76 65 65  | 0 :....  .savee|
000019d0  64 69 74 62 6f 78 0d 00  d5 0e 20 20 f4 20 43 61  |ditbox....  . Ca|
000019e0  6e 63 65 6c 0d 00 d6 0b  20 20 c9 20 31 20 3a 0d  |ncel....  . 1 :.|
000019f0  00 d7 21 20 20 f2 77 69  6d 70 5f 63 6c 6f 73 65  |..!  .wimp_close|
00001a00  77 69 6e 64 6f 77 28 65  64 69 74 62 6f 78 25 29  |window(editbox%)|
00001a10  0d 00 d8 24 20 20 f2 77  69 6d 70 5f 63 6c 6f 73  |...$  .wimp_clos|
00001a20  65 77 69 6e 64 6f 77 28  65 64 69 74 70 61 6e 65  |ewindow(editpane|
00001a30  25 29 20 20 0d 00 d9 12  20 20 f4 20 4f 70 74 69  |%)  ....  . Opti|
00001a40  6f 6e 73 2e 2e 2e 0d 00  da 0b 20 20 c9 20 35 20  |ons.......  . 5 |
00001a50  3a 0d 00 db 11 20 20 f2  6f 70 65 6e 63 6f 6e 66  |:....  .openconf|
00001a60  69 67 0d 00 dc 07 20 20  cb 0d 00 dd 05 cb 0d 00  |ig....  ........|
00001a70  de 05 e1 0d 00 df 05 3a  0d 00 e0 1f dd 20 a4 75  |.......:..... .u|
00001a80  73 65 72 5f 6d 65 6e 75  28 77 69 6e 64 6f 77 25  |ser_menu(window%|
00001a90  2c 69 63 6f 6e 25 29 0d  00 e1 1c e7 20 77 69 6e  |,icon%)..... win|
00001aa0  64 6f 77 25 3d 62 61 72  25 20 3d 62 61 72 6d 65  |dow%=bar% =barme|
00001ab0  6e 75 25 0d 00 e2 20 e7  20 77 69 6e 64 6f 77 25  |nu%... . window%|
00001ac0  3d 73 74 72 69 70 25 20  3d 73 74 72 69 70 6d 65  |=strip% =stripme|
00001ad0  6e 75 25 0d 00 e3 06 3d  30 0d 00 e4 05 3a 0d 00  |nu%....=0....:..|
00001ae0  e5 2c dd 20 f2 75 73 65  72 5f 6f 70 65 6e 77 69  |.,. .user_openwi|
00001af0  6e 64 6f 77 28 77 69 6e  64 6f 77 25 2c 78 25 2c  |ndow(window%,x%,|
00001b00  79 25 2c 73 74 61 63 6b  25 29 0d 00 e6 47 e7 20  |y%,stack%)...G. |
00001b10  77 69 6e 64 6f 77 25 3d  65 64 69 74 62 6f 78 25  |window%=editbox%|
00001b20  20 f2 77 69 6d 70 5f 6f  70 65 6e 77 69 6e 64 6f  | .wimp_openwindo|
00001b30  77 61 74 28 65 64 69 74  70 61 6e 65 25 2c 78 25  |wat(editpane%,x%|
00001b40  2b 31 32 2c 79 25 2d 31  32 2c 73 74 61 63 6b 25  |+12,y%-12,stack%|
00001b50  29 0d 00 e7 4d e7 20 77  69 6e 64 6f 77 25 3d 63  |)...M. window%=c|
00001b60  6f 6e 66 69 67 5f 62 6f  78 25 20 f2 77 69 6d 70  |onfig_box% .wimp|
00001b70  5f 6f 70 65 6e 77 69 6e  64 6f 77 61 74 28 63 6f  |_openwindowat(co|
00001b80  6e 66 69 67 5f 70 61 6e  65 25 2c 78 25 2b 31 32  |nfig_pane%,x%+12|
00001b90  2c 79 25 2d 31 34 2c 73  74 61 63 6b 25 29 0d 00  |,y%-14,stack%)..|
00001ba0  e8 05 e1 0d 00 e9 05 3a  0d 00 ea 20 dd 20 f2 75  |.......:... . .u|
00001bb0  73 65 72 5f 63 6c 6f 73  65 77 69 6e 64 6f 77 28  |ser_closewindow(|
00001bc0  77 69 6e 64 6f 77 25 29  0d 00 eb 05 e1 0d 00 ec  |window%)........|
00001bd0  05 3a 0d 00 ed 27 dd 20  a4 75 73 65 72 5f 6b 65  |.:...'. .user_ke|
00001be0  79 70 72 65 73 73 28 77  69 6e 64 6f 77 25 2c 69  |ypress(window%,i|
00001bf0  63 6f 6e 25 2c 6b 65 79  29 0d 00 ee 06 3d 30 0d  |con%,key)....=0.|
00001c00  00 ef 05 3a 0d 00 f0 26  dd 20 f2 75 73 65 72 5f  |...:...&. .user_|
00001c10  6d 65 6e 75 73 65 6c 65  63 74 69 6f 6e 28 6d 65  |menuselection(me|
00001c20  6e 75 25 2c 69 74 65 6d  25 29 0d 00 f1 4e e7 20  |nu%,item%)...N. |
00001c30  6d 65 6e 75 25 3d 62 61  72 6d 65 6e 75 25 20 80  |menu%=barmenu% .|
00001c40  20 69 74 65 6d 25 3d 34  20 ff 28 22 46 69 6c 65  | item%=4 .("File|
00001c50  72 5f 52 75 6e 20 3c 6f  66 66 69 63 65 24 44 69  |r_Run <office$Di|
00001c60  72 3e 2e 52 65 73 6f 75  72 63 65 73 2e 73 6d 21  |r>.Resources.sm!|
00001c70  69 6d 61 67 65 73 22 29  0d 00 f2 40 e7 20 6d 65  |images")...@. me|
00001c80  6e 75 25 3d 62 61 72 6d  65 6e 75 25 20 80 20 69  |nu%=barmenu% . i|
00001c90  74 65 6d 25 3d 36 20 f2  77 69 6d 70 5f 71 75 69  |tem%=6 .wimp_qui|
00001ca0  74 28 30 29 20 3a f4 20  51 75 69 74 20 74 68 65  |t(0) :. Quit the|
00001cb0  20 70 72 6f 67 72 61 6d  0d 00 f3 5f e7 20 6d 65  | program..._. me|
00001cc0  6e 75 25 3d 62 61 72 6d  65 6e 75 25 20 80 20 69  |nu%=barmenu% . i|
00001cd0  74 65 6d 25 3d 35 20 ff  28 22 46 69 6c 65 72 5f  |tem%=5 .("Filer_|
00001ce0  52 75 6e 20 3c 6f 66 66  69 63 65 24 44 69 72 3e  |Run <office$Dir>|
00001cf0  2e 52 65 73 6f 75 72 63  65 73 2e 21 4d 61 6e 75  |.Resources.!Manu|
00001d00  61 6c 22 29 20 3a f4 20  4c 6f 61 64 20 74 68 65  |al") :. Load the|
00001d10  20 6d 61 6e 75 61 6c 0d  00 f4 5b e7 20 6d 65 6e  | manual...[. men|
00001d20  75 25 3d 62 61 72 6d 65  6e 75 25 20 80 20 69 74  |u%=barmenu% . it|
00001d30  65 6d 25 3d 33 20 f2 6f  70 65 6e 65 64 69 74 20  |em%=3 .openedit |
00001d40  3a f4 20 4f 70 65 6e 20  74 68 65 20 65 64 69 74  |:. Open the edit|
00001d50  20 62 75 74 74 6f 6e 73  20 77 69 6e 64 6f 77 20  | buttons window |
00001d60  2d 46 52 4f 4d 20 54 48  45 20 49 43 4f 4e 20 42  |-FROM THE ICON B|
00001d70  41 52 0d 00 f5 53 e7 20  6d 65 6e 75 25 3d 62 61  |AR...S. menu%=ba|
00001d80  72 6d 65 6e 75 25 20 80  20 69 74 65 6d 25 3d 32  |rmenu% . item%=2|
00001d90  20 f2 77 69 6d 70 5f 6f  70 65 6e 77 69 6e 64 6f  | .wimp_openwindo|
00001da0  77 28 6e 6f 74 65 25 2c  30 2c 2d 31 29 20 3a f4  |w(note%,0,-1) :.|
00001db0  20 4f 70 65 6e 20 74 68  65 20 6e 6f 74 65 20 77  | Open the note w|
00001dc0  69 6e 64 6f 77 0d 00 f6  5a e7 20 6d 65 6e 75 25  |indow...Z. menu%|
00001dd0  3d 73 74 72 69 70 6d 65  6e 75 25 20 80 20 69 74  |=stripmenu% . it|
00001de0  65 6d 25 3d 32 20 f2 6f  70 65 6e 65 64 69 74 20  |em%=2 .openedit |
00001df0  3a f4 20 4f 70 65 6e 20  74 68 65 20 65 64 69 74  |:. Open the edit|
00001e00  20 62 75 74 74 6f 6e 73  20 77 69 6e 64 6f 77 20  | buttons window |
00001e10  2d 46 52 4f 4d 20 54 48  45 20 53 54 52 49 50 0d  |-FROM THE STRIP.|
00001e20  00 f7 8a e7 20 6d 65 6e  75 25 3d 73 74 72 69 70  |.... menu%=strip|
00001e30  6d 65 6e 75 25 20 80 20  69 74 65 6d 25 3d 33 20  |menu% . item%=3 |
00001e40  f2 77 69 6d 70 5f 63 6c  6f 73 65 77 69 6e 64 6f  |.wimp_closewindo|
00001e50  77 28 73 74 72 69 70 25  29 3a f2 77 69 6d 70 5f  |w(strip%):.wimp_|
00001e60  69 63 6f 6e 62 61 72 73  70 72 69 74 65 28 22 21  |iconbarsprite("!|
00001e70  4f 66 66 69 63 65 b2 22  29 20 3a f4 20 4f 70 65  |Office.") :. Ope|
00001e80  6e 20 74 68 65 20 65 64  69 74 20 62 75 74 74 6f  |n the edit butto|
00001e90  6e 73 20 77 69 6e 64 6f  77 20 2d 46 52 4f 4d 20  |ns window -FROM |
00001ea0  54 48 45 20 53 54 52 49  50 0d 00 f8 05 e1 0d 00  |THE STRIP.......|
00001eb0  f9 05 3a 0d 00 fa 21 dd  20 a4 75 73 65 72 5f 73  |..:...!. .user_s|
00001ec0  61 76 65 66 69 6c 65 74  79 70 65 28 77 69 6e 64  |avefiletype(wind|
00001ed0  6f 77 25 29 0d 00 fb 07  3d 22 22 0d 00 fc 05 3a  |ow%)....=""....:|
00001ee0  0d 00 fd 34 dd 20 f2 75  73 65 72 5f 73 61 76 65  |...4. .user_save|
00001ef0  69 63 6f 6e 28 77 69 6e  64 6f 77 25 2c f8 20 64  |icon(window%,. d|
00001f00  72 61 67 25 2c f8 20 77  72 69 74 65 25 2c f8 20  |rag%,. write%,. |
00001f10  6f 6b 25 29 0d 00 fe 05  e1 0d 00 ff 05 3a 0d 01  |ok%).........:..|
00001f20  00 23 dd 20 a4 75 73 65  72 5f 73 61 76 65 64 61  |.#. .user_saveda|
00001f30  74 61 28 70 61 74 68 24  2c 77 69 6e 64 6f 77 25  |ta(path$,window%|
00001f40  29 0d 01 01 06 3d 31 0d  01 02 05 3a 0d 01 03 1f  |)....=1....:....|
00001f50  dd 20 a4 75 73 65 72 5f  68 65 6c 70 28 77 69 6e  |. .user_help(win|
00001f60  64 6f 77 25 2c 69 63 6f  6e 25 29 0d 01 04 09 68  |dow%,icon%)....h|
00001f70  24 3d 22 22 0d 01 05 10  c8 8e 20 77 69 6e 64 6f  |$=""...... windo|
00001f80  77 25 20 ca 0d 01 06 16  f4 20 54 68 65 20 73 68  |w% ...... The sh|
00001f90  6f 72 74 63 75 74 20 62  61 72 0d 01 07 0e c9 20  |ortcut bar..... |
00001fa0  73 74 72 69 70 25 20 3a  0d 01 08 10 20 20 c8 8e  |strip% :....  ..|
00001fb0  20 69 63 6f 6e 25 20 ca  0d 01 09 0b 20 20 c9 20  | icon% .....  . |
00001fc0  30 20 3a 0d 01 0a 28 20  20 6c 6f 6f 6b 75 70 24  |0 :...(  lookup$|
00001fd0  3d a4 77 69 6d 70 5f 6d  65 73 73 6c 6f 6f 6b 30  |=.wimp_messlook0|
00001fe0  28 22 48 53 74 72 69 70  30 22 29 0d 01 0b 10 20  |("HStrip0").... |
00001ff0  20 68 24 3d 6c 6f 6f 6b  75 70 24 0d 01 0c 36 20  | h$=lookup$...6 |
00002000  20 c9 20 31 2c 32 2c 33  2c 34 2c 35 2c 36 2c 37  | . 1,2,3,4,5,6,7|
00002010  2c 38 2c 39 2c 31 30 2c  31 31 2c 31 32 20 3a 20  |,8,9,10,11,12 : |
00002020  f2 73 74 72 69 70 68 65  6c 70 28 69 63 6f 6e 25  |.striphelp(icon%|
00002030  29 0d 01 0d 0c 20 20 c9  20 31 33 20 3a 0d 01 0e  |)....  . 13 :...|
00002040  29 20 20 6c 6f 6f 6b 75  70 24 3d a4 77 69 6d 70  |)  lookup$=.wimp|
00002050  5f 6d 65 73 73 6c 6f 6f  6b 30 28 22 48 53 74 72  |_messlook0("HStr|
00002060  69 70 31 33 22 29 0d 01  0f 10 20 20 68 24 3d 6c  |ip13")....  h$=l|
00002070  6f 6f 6b 75 70 24 0d 01  10 07 20 20 cb 0d 01 11  |ookup$....  ....|
00002080  12 f4 20 54 68 65 20 69  6e 66 6f 20 62 6f 78 0d  |.. The info box.|
00002090  01 12 11 20 20 c9 20 69  6e 66 6f 25 20 3a 20 20  |...  . info% :  |
000020a0  0d 01 13 10 20 20 c8 8e  20 69 63 6f 6e 25 20 ca  |....  .. icon% .|
000020b0  0d 01 14 0b 20 20 20 20  7f 20 3a 0d 01 15 29 20  |....    . :...) |
000020c0  20 20 20 6c 6f 6f 6b 75  70 24 3d a4 77 69 6d 70  |   lookup$=.wimp|
000020d0  5f 6d 65 73 73 6c 6f 6f  6b 30 28 22 48 49 6e 66  |_messlook0("HInf|
000020e0  6f 30 22 29 0d 01 16 12  20 20 20 20 68 24 3d 6c  |o0")....    h$=l|
000020f0  6f 6f 6b 75 70 24 0d 01  17 07 20 20 cb 0d 01 18  |ookup$....  ....|
00002100  15 f4 20 54 68 65 20 6e  6f 74 65 20 77 69 6e 64  |.. The note wind|
00002110  6f 77 0d 01 19 0d 20 20  c9 20 6e 6f 74 65 25 0d  |ow....  . note%.|
00002120  01 1a 10 20 20 c8 8e 20  69 63 6f 6e 25 20 ca 0d  |...  .. icon% ..|
00002130  01 1b 0b 20 20 20 20 7f  20 3a 0d 01 1c 29 20 20  |...    . :...)  |
00002140  20 20 6c 6f 6f 6b 75 70  24 3d a4 77 69 6d 70 5f  |  lookup$=.wimp_|
00002150  6d 65 73 73 6c 6f 6f 6b  30 28 22 48 4e 6f 74 65  |messlook0("HNote|
00002160  30 22 29 0d 01 1d 12 20  20 20 20 68 24 3d 6c 6f  |0")....    h$=lo|
00002170  6f 6b 75 70 24 0d 01 1e  07 20 20 cb 0d 01 1f 12  |okup$....  .....|
00002180  f4 20 54 68 65 20 69 63  6f 6e 20 62 61 72 0d 01  |. The icon bar..|
00002190  20 0c 20 20 c9 20 62 61  72 25 0d 01 21 10 20 20  | .  . bar%..!.  |
000021a0  c8 8e 20 69 63 6f 6e 25  20 ca 0d 01 22 0b 20 20  |.. icon% ...".  |
000021b0  20 20 7f 20 3a 0d 01 23  28 20 20 20 20 6c 6f 6f  |  . :..#(    loo|
000021c0  6b 75 70 24 3d a4 77 69  6d 70 5f 6d 65 73 73 6c  |kup$=.wimp_messl|
000021d0  6f 6f 6b 30 28 22 48 42  61 72 30 22 29 0d 01 24  |ook0("HBar0")..$|
000021e0  12 20 20 20 20 68 24 3d  6c 6f 6f 6b 75 70 24 0d  |.    h$=lookup$.|
000021f0  01 25 07 20 20 cb 0d 01  26 18 f4 20 54 68 65 20  |.%.  ...&.. The |
00002200  73 74 61 72 74 75 70 20  62 61 6e 6e 65 72 0d 01  |startup banner..|
00002210  27 0f 20 20 c9 20 62 61  6e 6e 65 72 25 0d 01 28  |'.  . banner%..(|
00002220  10 20 20 c8 8e 20 69 63  6f 6e 25 20 ca 0d 01 29  |.  .. icon% ...)|
00002230  0b 20 20 20 20 7f 20 3a  0d 01 2a 2b 20 20 20 20  |.    . :..*+    |
00002240  6c 6f 6f 6b 75 70 24 3d  a4 77 69 6d 70 5f 6d 65  |lookup$=.wimp_me|
00002250  73 73 6c 6f 6f 6b 30 28  22 48 42 61 6e 6e 65 72  |sslook0("HBanner|
00002260  30 22 29 0d 01 2b 12 20  20 20 20 68 24 3d 6c 6f  |0")..+.    h$=lo|
00002270  6f 6b 75 70 24 0d 01 2c  07 20 20 cb 0d 01 2d 12  |okup$..,.  ...-.|
00002280  f4 20 54 68 65 20 65 64  69 74 5f 62 6f 78 0d 01  |. The edit_box..|
00002290  2e 10 20 20 c9 20 65 64  69 74 62 6f 78 25 0d 01  |..  . editbox%..|
000022a0  2f 10 20 20 c8 8e 20 69  63 6f 6e 25 20 ca 0d 01  |/.  .. icon% ...|
000022b0  30 0d 20 20 20 20 c9 20  35 20 3a 0d 01 31 2c 20  |0.    . 5 :..1, |
000022c0  20 20 20 6c 6f 6f 6b 75  70 24 3d a4 77 69 6d 70  |   lookup$=.wimp|
000022d0  5f 6d 65 73 73 6c 6f 6f  6b 30 28 22 48 45 64 69  |_messlook0("HEdi|
000022e0  74 42 6f 78 31 22 29 0d  01 32 12 20 20 20 20 68  |tBox1")..2.    h|
000022f0  24 3d 6c 6f 6f 6b 75 70  24 0d 01 33 0d 20 20 20  |$=lookup$..3.   |
00002300  20 c9 20 31 20 3a 0d 01  34 2c 20 20 20 20 6c 6f  | . 1 :..4,    lo|
00002310  6f 6b 75 70 24 3d a4 77  69 6d 70 5f 6d 65 73 73  |okup$=.wimp_mess|
00002320  6c 6f 6f 6b 30 28 22 48  45 64 69 74 42 6f 78 32  |look0("HEditBox2|
00002330  22 29 0d 01 35 12 20 20  20 20 68 24 3d 6c 6f 6f  |")..5.    h$=loo|
00002340  6b 75 70 24 0d 01 36 0d  20 20 20 20 c9 20 30 20  |kup$..6.    . 0 |
00002350  3a 0d 01 37 2c 20 20 20  20 6c 6f 6f 6b 75 70 24  |:..7,    lookup$|
00002360  3d a4 77 69 6d 70 5f 6d  65 73 73 6c 6f 6f 6b 30  |=.wimp_messlook0|
00002370  28 22 48 45 64 69 74 42  6f 78 33 22 29 0d 01 38  |("HEditBox3")..8|
00002380  12 20 20 20 20 68 24 3d  6c 6f 6f 6b 75 70 24 0d  |.    h$=lookup$.|
00002390  01 39 0b 20 20 20 20 7f  20 3a 0d 01 3a 2c 20 20  |.9.    . :..:,  |
000023a0  20 20 6c 6f 6f 6b 75 70  24 3d a4 77 69 6d 70 5f  |  lookup$=.wimp_|
000023b0  6d 65 73 73 6c 6f 6f 6b  30 28 22 48 45 64 69 74  |messlook0("HEdit|
000023c0  42 6f 78 30 22 29 0d 01  3b 13 20 20 20 20 68 24  |Box0")..;.    h$|
000023d0  3d 6c 6f 6f 6b 75 70 24  20 0d 01 3c 07 20 20 cb  |=lookup$ ..<.  .|
000023e0  0d 01 3d 13 f4 20 54 68  65 20 65 64 69 74 5f 70  |..=.. The edit_p|
000023f0  61 6e 65 0d 01 3e 11 20  20 c9 20 65 64 69 74 70  |ane..>.  . editp|
00002400  61 6e 65 25 0d 01 3f 10  20 20 c8 8e 20 69 63 6f  |ane%..?.  .. ico|
00002410  6e 25 20 ca 0d 01 40 26  20 20 20 20 c9 20 31 2c  |n% ...@&    . 1,|
00002420  32 2c 33 2c 34 2c 35 2c  36 2c 37 2c 38 2c 39 2c  |2,3,4,5,6,7,8,9,|
00002430  31 30 2c 31 31 2c 31 32  20 3a 0d 01 41 30 20 20  |10,11,12 :..A0  |
00002440  20 20 6c 6f 6f 6b 75 70  24 3d a4 77 69 6d 70 5f  |  lookup$=.wimp_|
00002450  6d 65 73 73 6c 6f 6f 6b  30 28 22 48 45 64 69 74  |messlook0("HEdit|
00002460  50 61 6e 65 43 6f 6c 31  22 29 0d 01 42 13 20 20  |PaneCol1")..B.  |
00002470  20 20 68 24 3d 6c 6f 6f  6b 75 70 24 20 0d 01 43  |  h$=lookup$ ..C|
00002480  2f 20 20 20 20 c9 20 31  33 2c 31 34 2c 31 35 2c  |/    . 13,14,15,|
00002490  31 36 2c 31 37 2c 31 38  2c 31 39 2c 32 30 2c 32  |16,17,18,19,20,2|
000024a0  31 2c 32 32 2c 32 33 2c  32 34 20 3a 0d 01 44 30  |1,22,23,24 :..D0|
000024b0  20 20 20 20 6c 6f 6f 6b  75 70 24 3d a4 77 69 6d  |    lookup$=.wim|
000024c0  70 5f 6d 65 73 73 6c 6f  6f 6b 30 28 22 48 45 64  |p_messlook0("HEd|
000024d0  69 74 50 61 6e 65 43 6f  6c 32 22 29 0d 01 45 13  |itPaneCol2")..E.|
000024e0  20 20 20 20 68 24 3d 6c  6f 6f 6b 75 70 24 20 0d  |    h$=lookup$ .|
000024f0  01 46 2f 20 20 20 20 c9  20 32 35 2c 32 36 2c 32  |.F/    . 25,26,2|
00002500  37 2c 32 38 2c 32 39 2c  33 30 2c 33 31 2c 33 32  |7,28,29,30,31,32|
00002510  2c 33 33 2c 33 34 2c 33  35 2c 33 36 20 3a 0d 01  |,33,34,35,36 :..|
00002520  47 30 20 20 20 20 6c 6f  6f 6b 75 70 24 3d a4 77  |G0    lookup$=.w|
00002530  69 6d 70 5f 6d 65 73 73  6c 6f 6f 6b 30 28 22 48  |imp_messlook0("H|
00002540  45 64 69 74 50 61 6e 65  43 6f 6c 33 22 29 0d 01  |EditPaneCol3")..|
00002550  48 13 20 20 20 20 68 24  3d 6c 6f 6f 6b 75 70 24  |H.    h$=lookup$|
00002560  20 0d 01 49 0b 20 20 20  20 7f 20 3a 0d 01 4a 2c  | ..I.    . :..J,|
00002570  20 20 20 20 6c 6f 6f 6b  75 70 24 3d a4 77 69 6d  |    lookup$=.wim|
00002580  70 5f 6d 65 73 73 6c 6f  6f 6b 30 28 22 48 45 64  |p_messlook0("HEd|
00002590  69 74 42 6f 78 30 22 29  0d 01 4b 13 20 20 20 20  |itBox0")..K.    |
000025a0  68 24 3d 6c 6f 6f 6b 75  70 24 20 0d 01 4c 07 20  |h$=lookup$ ..L. |
000025b0  20 cb 0d 01 4d 25 f4 20  54 68 65 20 66 75 72 74  | ...M%. The furt|
000025c0  68 65 72 20 6f 70 74 69  6f 6e 73 20 6d 61 69 6e  |her options main|
000025d0  20 77 69 6e 64 6f 77 0d  01 4e 13 20 20 c9 20 63  | window..N.  . c|
000025e0  6f 6e 66 69 67 5f 62 6f  78 25 0d 01 4f 10 20 20  |onfig_box%..O.  |
000025f0  c8 8e 20 69 63 6f 6e 25  20 ca 0d 01 50 0d 20 20  |.. icon% ...P.  |
00002600  20 20 c9 20 32 20 3a 0d  01 51 2e 20 20 20 20 6c  |  . 2 :..Q.    l|
00002610  6f 6f 6b 75 70 24 3d a4  77 69 6d 70 5f 6d 65 73  |ookup$=.wimp_mes|
00002620  73 6c 6f 6f 6b 30 28 22  48 43 6f 6e 66 69 67 42  |slook0("HConfigB|
00002630  6f 78 31 22 29 0d 01 52  13 20 20 20 20 68 24 3d  |ox1")..R.    h$=|
00002640  6c 6f 6f 6b 75 70 24 20  0d 01 53 0d 20 20 20 20  |lookup$ ..S.    |
00002650  c9 20 31 20 3a 0d 01 54  2e 20 20 20 20 6c 6f 6f  |. 1 :..T.    loo|
00002660  6b 75 70 24 3d a4 77 69  6d 70 5f 6d 65 73 73 6c  |kup$=.wimp_messl|
00002670  6f 6f 6b 30 28 22 48 43  6f 6e 66 69 67 42 6f 78  |ook0("HConfigBox|
00002680  32 22 29 0d 01 55 13 20  20 20 20 68 24 3d 6c 6f  |2")..U.    h$=lo|
00002690  6f 6b 75 70 24 20 0d 01  56 0d 20 20 20 20 c9 20  |okup$ ..V.    . |
000026a0  30 20 3a 0d 01 57 2e 20  20 20 20 6c 6f 6f 6b 75  |0 :..W.    looku|
000026b0  70 24 3d a4 77 69 6d 70  5f 6d 65 73 73 6c 6f 6f  |p$=.wimp_messloo|
000026c0  6b 30 28 22 48 43 6f 6e  66 69 67 42 6f 78 33 22  |k0("HConfigBox3"|
000026d0  29 0d 01 58 12 20 20 20  20 68 24 3d 6c 6f 6f 6b  |)..X.    h$=look|
000026e0  75 70 24 0d 01 59 0b 20  20 20 20 7f 20 3a 0d 01  |up$..Y.    . :..|
000026f0  5a 2e 20 20 20 20 6c 6f  6f 6b 75 70 24 3d a4 77  |Z.    lookup$=.w|
00002700  69 6d 70 5f 6d 65 73 73  6c 6f 6f 6b 30 28 22 48  |imp_messlook0("H|
00002710  43 6f 6e 66 69 67 42 6f  78 30 22 29 0d 01 5b 12  |ConfigBox0")..[.|
00002720  20 20 20 20 68 24 3d 6c  6f 6f 6b 75 70 24 0d 01  |    h$=lookup$..|
00002730  5c 09 20 20 20 20 cb 0d  01 5d 25 f4 20 54 68 65  |\.    ...]%. The|
00002740  20 66 75 72 74 68 65 72  20 6f 70 74 69 6f 6e 73  | further options|
00002750  20 70 61 6e 65 20 77 69  6e 64 6f 77 0d 01 5e 14  | pane window..^.|
00002760  20 20 c9 20 63 6f 6e 66  69 67 5f 70 61 6e 65 25  |  . config_pane%|
00002770  0d 01 5f 10 20 20 c8 8e  20 69 63 6f 6e 25 20 ca  |.._.  .. icon% .|
00002780  0d 01 60 0d 20 20 20 20  c9 20 35 20 3a 0d 01 61  |..`.    . 5 :..a|
00002790  2f 20 20 20 20 6c 6f 6f  6b 75 70 24 3d a4 77 69  |/    lookup$=.wi|
000027a0  6d 70 5f 6d 65 73 73 6c  6f 6f 6b 30 28 22 48 43  |mp_messlook0("HC|
000027b0  6f 6e 66 69 67 50 61 6e  65 31 22 29 0d 01 62 12  |onfigPane1")..b.|
000027c0  20 20 20 20 68 24 3d 6c  6f 6f 6b 75 70 24 0d 01  |    h$=lookup$..|
000027d0  63 0b 20 20 20 20 7f 20  3a 0d 01 64 2e 20 20 20  |c.    . :..d.   |
000027e0  20 6c 6f 6f 6b 75 70 24  3d a4 77 69 6d 70 5f 6d  | lookup$=.wimp_m|
000027f0  65 73 73 6c 6f 6f 6b 30  28 22 48 43 6f 6e 66 69  |esslook0("HConfi|
00002800  67 42 6f 78 30 22 29 0d  01 65 12 20 20 20 20 68  |gBox0")..e.    h|
00002810  24 3d 6c 6f 6f 6b 75 70  24 0d 01 66 08 20 20 cb  |$=lookup$..f.  .|
00002820  20 0d 01 67 05 cb 0d 01  68 07 3d 68 24 0d 01 69  | ..g....h.=h$..i|
00002830  05 3a 0d 01 6a 21 dd 20  a4 75 73 65 72 5f 6d 65  |.:..j!. .user_me|
00002840  6e 75 68 65 6c 70 28 6d  65 6e 75 25 2c 69 74 65  |nuhelp(menu%,ite|
00002850  6d 25 29 0d 01 6b 09 68  24 3d 22 22 0d 01 6c 0e  |m%)..k.h$=""..l.|
00002860  c8 8e 20 6d 65 6e 75 25  20 ca 0d 01 6d 16 f4 20  |.. menu% ...m.. |
00002870  54 68 65 20 73 68 6f 72  74 63 75 74 20 62 61 72  |The shortcut bar|
00002880  0d 01 6e 14 20 20 c9 20  73 74 72 69 70 6d 65 6e  |..n.  . stripmen|
00002890  75 25 20 3a 0d 01 6f 10  20 20 c8 8e 20 69 74 65  |u% :..o.  .. ite|
000028a0  6d 25 20 ca 0d 01 70 0b  20 20 c9 20 31 20 3a 0d  |m% ...p.  . 1 :.|
000028b0  01 71 2b 20 20 6c 6f 6f  6b 75 70 24 3d a4 77 69  |.q+  lookup$=.wi|
000028c0  6d 70 5f 6d 65 73 73 6c  6f 6f 6b 30 28 22 48 53  |mp_messlook0("HS|
000028d0  74 72 69 70 4d 65 6e 31  22 29 0d 01 72 12 20 20  |tripMen1")..r.  |
000028e0  20 20 68 24 3d 6c 6f 6f  6b 75 70 24 0d 01 73 0b  |  h$=lookup$..s.|
000028f0  20 20 c9 20 32 20 3a 0d  01 74 2b 20 20 6c 6f 6f  |  . 2 :..t+  loo|
00002900  6b 75 70 24 3d a4 77 69  6d 70 5f 6d 65 73 73 6c  |kup$=.wimp_messl|
00002910  6f 6f 6b 30 28 22 48 53  74 72 69 70 4d 65 6e 32  |ook0("HStripMen2|
00002920  22 29 0d 01 75 12 20 20  20 20 68 24 3d 6c 6f 6f  |")..u.    h$=loo|
00002930  6b 75 70 24 0d 01 76 0b  20 20 c9 20 33 20 3a 0d  |kup$..v.  . 3 :.|
00002940  01 77 2b 20 20 6c 6f 6f  6b 75 70 24 3d a4 77 69  |.w+  lookup$=.wi|
00002950  6d 70 5f 6d 65 73 73 6c  6f 6f 6b 30 28 22 48 53  |mp_messlook0("HS|
00002960  74 72 69 70 4d 65 6e 33  22 29 0d 01 78 12 20 20  |tripMen3")..x.  |
00002970  20 20 68 24 3d 6c 6f 6f  6b 75 70 24 0d 01 79 09  |  h$=lookup$..y.|
00002980  20 20 7f 20 3a 0d 01 7a  2b 20 20 6c 6f 6f 6b 75  |  . :..z+  looku|
00002990  70 24 3d a4 77 69 6d 70  5f 6d 65 73 73 6c 6f 6f  |p$=.wimp_messloo|
000029a0  6b 30 28 22 48 53 74 72  69 70 4d 65 6e 30 22 29  |k0("HStripMen0")|
000029b0  0d 01 7b 12 20 20 20 20  68 24 3d 6c 6f 6f 6b 75  |..{.    h$=looku|
000029c0  70 24 0d 01 7c 07 20 20  cb 0d 01 7d 16 f4 20 54  |p$..|.  ...}.. T|
000029d0  68 65 20 69 63 6f 6e 62  61 72 20 6d 65 6e 75 0d  |he iconbar menu.|
000029e0  01 7e 12 20 20 c9 20 62  61 72 6d 65 6e 75 25 20  |.~.  . barmenu% |
000029f0  3a 0d 01 7f 10 20 20 c8  8e 20 69 74 65 6d 25 20  |:....  .. item% |
00002a00  ca 0d 01 80 0b 20 20 c9  20 31 20 3a 0d 01 81 29  |.....  . 1 :...)|
00002a10  20 20 6c 6f 6f 6b 75 70  24 3d a4 77 69 6d 70 5f  |  lookup$=.wimp_|
00002a20  6d 65 73 73 6c 6f 6f 6b  30 28 22 48 42 61 72 4d  |messlook0("HBarM|
00002a30  65 6e 31 22 29 0d 01 82  12 20 20 20 20 68 24 3d  |en1")....    h$=|
00002a40  6c 6f 6f 6b 75 70 24 0d  01 83 0b 20 20 c9 20 32  |lookup$....  . 2|
00002a50  20 3a 0d 01 84 29 20 20  6c 6f 6f 6b 75 70 24 3d  | :...)  lookup$=|
00002a60  a4 77 69 6d 70 5f 6d 65  73 73 6c 6f 6f 6b 30 28  |.wimp_messlook0(|
00002a70  22 48 42 61 72 4d 65 6e  32 22 29 0d 01 85 12 20  |"HBarMen2").... |
00002a80  20 20 20 68 24 3d 6c 6f  6f 6b 75 70 24 0d 01 86  |   h$=lookup$...|
00002a90  0b 20 20 c9 20 33 20 3a  0d 01 87 29 20 20 6c 6f  |.  . 3 :...)  lo|
00002aa0  6f 6b 75 70 24 3d a4 77  69 6d 70 5f 6d 65 73 73  |okup$=.wimp_mess|
00002ab0  6c 6f 6f 6b 30 28 22 48  42 61 72 4d 65 6e 33 22  |look0("HBarMen3"|
00002ac0  29 0d 01 88 12 20 20 20  20 68 24 3d 6c 6f 6f 6b  |)....    h$=look|
00002ad0  75 70 24 0d 01 89 0b 20  20 c9 20 34 20 3a 0d 01  |up$....  . 4 :..|
00002ae0  8a 29 20 20 6c 6f 6f 6b  75 70 24 3d a4 77 69 6d  |.)  lookup$=.wim|
00002af0  70 5f 6d 65 73 73 6c 6f  6f 6b 30 28 22 48 42 61  |p_messlook0("HBa|
00002b00  72 4d 65 6e 34 22 29 0d  01 8b 12 20 20 20 20 68  |rMen4")....    h|
00002b10  24 3d 6c 6f 6f 6b 75 70  24 0d 01 8c 0b 20 20 c9  |$=lookup$....  .|
00002b20  20 35 20 3a 0d 01 8d 29  20 20 6c 6f 6f 6b 75 70  | 5 :...)  lookup|
00002b30  24 3d a4 77 69 6d 70 5f  6d 65 73 73 6c 6f 6f 6b  |$=.wimp_messlook|
00002b40  30 28 22 48 42 61 72 4d  65 6e 35 22 29 0d 01 8e  |0("HBarMen5")...|
00002b50  12 20 20 20 20 68 24 3d  6c 6f 6f 6b 75 70 24 0d  |.    h$=lookup$.|
00002b60  01 8f 0b 20 20 c9 20 36  20 3a 0d 01 90 29 20 20  |...  . 6 :...)  |
00002b70  6c 6f 6f 6b 75 70 24 3d  a4 77 69 6d 70 5f 6d 65  |lookup$=.wimp_me|
00002b80  73 73 6c 6f 6f 6b 30 28  22 48 42 61 72 4d 65 6e  |sslook0("HBarMen|
00002b90  36 22 29 0d 01 91 12 20  20 20 20 68 24 3d 6c 6f  |6")....    h$=lo|
00002ba0  6f 6b 75 70 24 0d 01 92  09 20 20 7f 20 3a 0d 01  |okup$....  . :..|
00002bb0  93 29 20 20 6c 6f 6f 6b  75 70 24 3d a4 77 69 6d  |.)  lookup$=.wim|
00002bc0  70 5f 6d 65 73 73 6c 6f  6f 6b 30 28 22 48 42 61  |p_messlook0("HBa|
00002bd0  72 4d 65 6e 30 22 29 0d  01 94 12 20 20 20 20 68  |rMen0")....    h|
00002be0  24 3d 6c 6f 6f 6b 75 70  24 0d 01 95 07 20 20 cb  |$=lookup$....  .|
00002bf0  0d 01 96 05 cb 0d 01 97  07 3d 68 24 0d 01 98 05  |.........=h$....|
00002c00  3a 0d 01 99 3e dd 20 a4  75 73 65 72 5f 6c 6f 61  |:...>. .user_loa|
00002c10  64 64 61 74 61 28 70 61  74 68 24 2c 77 69 6e 64  |ddata(path$,wind|
00002c20  6f 77 25 2c 69 63 6f 6e  25 2c 66 74 79 70 65 24  |ow%,icon%,ftype$|
00002c30  2c 77 6f 72 6b 78 25 2c  77 6f 72 6b 79 25 29 0d  |,workx%,worky%).|
00002c40  01 9a 0a 75 73 65 64 3d  30 0d 01 9b 49 e7 20 77  |...used=0...I. w|
00002c50  69 6e 64 6f 77 25 3d 65  64 69 74 70 61 6e 65 25  |indow%=editpane%|
00002c60  20 80 20 69 63 6f 6e 25  3d 31 33 20 20 f2 77 69  | . icon%=13  .wi|
00002c70  6d 70 5f 70 75 74 69 63  6f 6e 74 65 78 74 28 65  |mp_puticontext(e|
00002c80  64 69 74 70 61 6e 65 25  2c 31 33 2c 70 61 74 68  |ditpane%,13,path|
00002c90  24 29 0d 01 9c 49 e7 20  77 69 6e 64 6f 77 25 3d  |$)...I. window%=|
00002ca0  65 64 69 74 70 61 6e 65  25 20 80 20 69 63 6f 6e  |editpane% . icon|
00002cb0  25 3d 31 34 20 20 f2 77  69 6d 70 5f 70 75 74 69  |%=14  .wimp_puti|
00002cc0  63 6f 6e 74 65 78 74 28  65 64 69 74 70 61 6e 65  |context(editpane|
00002cd0  25 2c 31 34 2c 70 61 74  68 24 29 0d 01 9d 49 e7  |%,14,path$)...I.|
00002ce0  20 77 69 6e 64 6f 77 25  3d 65 64 69 74 70 61 6e  | window%=editpan|
00002cf0  65 25 20 80 20 69 63 6f  6e 25 3d 31 35 20 20 f2  |e% . icon%=15  .|
00002d00  77 69 6d 70 5f 70 75 74  69 63 6f 6e 74 65 78 74  |wimp_puticontext|
00002d10  28 65 64 69 74 70 61 6e  65 25 2c 31 35 2c 70 61  |(editpane%,15,pa|
00002d20  74 68 24 29 0d 01 9e 49  e7 20 77 69 6e 64 6f 77  |th$)...I. window|
00002d30  25 3d 65 64 69 74 70 61  6e 65 25 20 80 20 69 63  |%=editpane% . ic|
00002d40  6f 6e 25 3d 31 36 20 20  f2 77 69 6d 70 5f 70 75  |on%=16  .wimp_pu|
00002d50  74 69 63 6f 6e 74 65 78  74 28 65 64 69 74 70 61  |ticontext(editpa|
00002d60  6e 65 25 2c 31 36 2c 70  61 74 68 24 29 0d 01 9f  |ne%,16,path$)...|
00002d70  49 e7 20 77 69 6e 64 6f  77 25 3d 65 64 69 74 70  |I. window%=editp|
00002d80  61 6e 65 25 20 80 20 69  63 6f 6e 25 3d 31 37 20  |ane% . icon%=17 |
00002d90  20 f2 77 69 6d 70 5f 70  75 74 69 63 6f 6e 74 65  | .wimp_puticonte|
00002da0  78 74 28 65 64 69 74 70  61 6e 65 25 2c 31 37 2c  |xt(editpane%,17,|
00002db0  70 61 74 68 24 29 0d 01  a0 49 e7 20 77 69 6e 64  |path$)...I. wind|
00002dc0  6f 77 25 3d 65 64 69 74  70 61 6e 65 25 20 80 20  |ow%=editpane% . |
00002dd0  69 63 6f 6e 25 3d 31 38  20 20 f2 77 69 6d 70 5f  |icon%=18  .wimp_|
00002de0  70 75 74 69 63 6f 6e 74  65 78 74 28 65 64 69 74  |puticontext(edit|
00002df0  70 61 6e 65 25 2c 31 38  2c 70 61 74 68 24 29 0d  |pane%,18,path$).|
00002e00  01 a1 49 e7 20 77 69 6e  64 6f 77 25 3d 65 64 69  |..I. window%=edi|
00002e10  74 70 61 6e 65 25 20 80  20 69 63 6f 6e 25 3d 31  |tpane% . icon%=1|
00002e20  39 20 20 f2 77 69 6d 70  5f 70 75 74 69 63 6f 6e  |9  .wimp_puticon|
00002e30  74 65 78 74 28 65 64 69  74 70 61 6e 65 25 2c 31  |text(editpane%,1|
00002e40  39 2c 70 61 74 68 24 29  0d 01 a2 49 e7 20 77 69  |9,path$)...I. wi|
00002e50  6e 64 6f 77 25 3d 65 64  69 74 70 61 6e 65 25 20  |ndow%=editpane% |
00002e60  80 20 69 63 6f 6e 25 3d  32 30 20 20 f2 77 69 6d  |. icon%=20  .wim|
00002e70  70 5f 70 75 74 69 63 6f  6e 74 65 78 74 28 65 64  |p_puticontext(ed|
00002e80  69 74 70 61 6e 65 25 2c  32 30 2c 70 61 74 68 24  |itpane%,20,path$|
00002e90  29 0d 01 a3 49 e7 20 77  69 6e 64 6f 77 25 3d 65  |)...I. window%=e|
00002ea0  64 69 74 70 61 6e 65 25  20 80 20 69 63 6f 6e 25  |ditpane% . icon%|
00002eb0  3d 32 31 20 20 f2 77 69  6d 70 5f 70 75 74 69 63  |=21  .wimp_putic|
00002ec0  6f 6e 74 65 78 74 28 65  64 69 74 70 61 6e 65 25  |ontext(editpane%|
00002ed0  2c 32 31 2c 70 61 74 68  24 29 0d 01 a4 49 e7 20  |,21,path$)...I. |
00002ee0  77 69 6e 64 6f 77 25 3d  65 64 69 74 70 61 6e 65  |window%=editpane|
00002ef0  25 20 80 20 69 63 6f 6e  25 3d 32 32 20 20 f2 77  |% . icon%=22  .w|
00002f00  69 6d 70 5f 70 75 74 69  63 6f 6e 74 65 78 74 28  |imp_puticontext(|
00002f10  65 64 69 74 70 61 6e 65  25 2c 32 32 2c 70 61 74  |editpane%,22,pat|
00002f20  68 24 29 0d 01 a5 49 e7  20 77 69 6e 64 6f 77 25  |h$)...I. window%|
00002f30  3d 65 64 69 74 70 61 6e  65 25 20 80 20 69 63 6f  |=editpane% . ico|
00002f40  6e 25 3d 32 33 20 20 f2  77 69 6d 70 5f 70 75 74  |n%=23  .wimp_put|
00002f50  69 63 6f 6e 74 65 78 74  28 65 64 69 74 70 61 6e  |icontext(editpan|
00002f60  65 25 2c 32 33 2c 70 61  74 68 24 29 0d 01 a6 49  |e%,23,path$)...I|
00002f70  e7 20 77 69 6e 64 6f 77  25 3d 65 64 69 74 70 61  |. window%=editpa|
00002f80  6e 65 25 20 80 20 69 63  6f 6e 25 3d 32 34 20 20  |ne% . icon%=24  |
00002f90  f2 77 69 6d 70 5f 70 75  74 69 63 6f 6e 74 65 78  |.wimp_puticontex|
00002fa0  74 28 65 64 69 74 70 61  6e 65 25 2c 32 34 2c 70  |t(editpane%,24,p|
00002fb0  61 74 68 24 29 0d 01 a7  5a e7 20 77 69 6e 64 6f  |ath$)...Z. windo|
00002fc0  77 25 3d 65 64 69 74 62  6f 78 25 20 80 20 69 63  |w%=editbox% . ic|
00002fd0  6f 6e 25 3d 36 20 63 6f  6e 66 69 67 72 75 6e 24  |on%=6 configrun$|
00002fe0  3d 70 61 74 68 24 3a f2  77 69 6d 70 5f 70 75 74  |=path$:.wimp_put|
00002ff0  69 63 6f 6e 74 65 78 74  28 65 64 69 74 62 6f 78  |icontext(editbox|
00003000  25 2c 33 2c 63 6f 6e 66  69 67 72 75 6e 24 29 0d  |%,3,configrun$).|
00003010  01 a8 09 3d 75 73 65 64  0d 01 a9 05 3a 0d 01 aa  |...=used....:...|
00003020  23 dd 20 f2 75 73 65 72  5f 65 6e 74 65 72 69 6e  |#. .user_enterin|
00003030  67 77 69 6e 64 6f 77 28  77 69 6e 64 6f 77 25 29  |gwindow(window%)|
00003040  0d 01 ab 16 e7 20 77 69  6e 64 6f 77 25 3d 73 74  |..... window%=st|
00003050  72 69 70 25 20 8c 0d 01  ac 21 f2 77 69 6d 70 5f  |rip% ....!.wimp_|
00003060  6f 70 65 6e 77 69 6e 64  6f 77 28 73 74 72 69 70  |openwindow(strip|
00003070  25 2c 30 2c 2d 31 29 0d  01 ad 05 cd 0d 01 ae 05  |%,0,-1).........|
00003080  3a 0d 01 af 22 dd 20 f2  75 73 65 72 5f 6c 65 61  |:...". .user_lea|
00003090  76 69 6e 67 77 69 6e 64  6f 77 28 77 69 6e 64 6f  |vingwindow(windo|
000030a0  77 25 29 0d 01 b0 05 e1  0d 01 b1 05 3a 0d 01 b2  |w%).........:...|
000030b0  19 dd 20 a4 75 73 65 72  5f 70 61 6e 65 28 77 69  |.. .user_pane(wi|
000030c0  6e 64 6f 77 25 29 0d 01  b3 07 3d 2d 31 0d 01 b4  |ndow%)....=-1...|
000030d0  05 3a 0d 01 b5 10 dd 20  f2 75 73 65 72 5f 6e 75  |.:..... .user_nu|
000030e0  6c 6c 0d 01 b6 05 e1 0d  01 b7 05 3a 0d 01 b8 21  |ll.........:...!|
000030f0  dd 20 f2 75 73 65 72 5f  6d 65 6e 75 6f 70 65 6e  |. .user_menuopen|
00003100  28 6d 65 6e 75 25 2c 69  63 6f 6e 25 29 0d 01 b9  |(menu%,icon%)...|
00003110  05 e1 0d 01 ba 05 3a 0d  01 bb 25 dd 20 a4 75 73  |......:...%. .us|
00003120  65 72 5f 73 6c 69 64 65  72 62 61 63 6b 28 77 69  |er_sliderback(wi|
00003130  6e 64 6f 77 25 2c 69 63  6f 6e 25 29 0d 01 bc 07  |ndow%,icon%)....|
00003140  3d 2d 31 0d 01 bd 05 3a  0d 01 be 21 dd 20 a4 75  |=-1....:...!. .u|
00003150  73 65 72 5f 73 6c 69 64  65 72 28 77 69 6e 64 6f  |ser_slider(windo|
00003160  77 25 2c 69 63 6f 6e 25  29 0d 01 bf 07 3d 2d 31  |w%,icon%)....=-1|
00003170  0d 01 c0 05 3a 0d 01 c1  2d dd 20 f2 75 73 65 72  |....:...-. .user|
00003180  5f 73 6c 69 64 65 72 76  61 6c 75 65 28 77 69 6e  |_slidervalue(win|
00003190  64 6f 77 25 2c 69 63 6f  6e 25 2c 70 63 65 6e 74  |dow%,icon%,pcent|
000031a0  25 29 0d 01 c2 05 e1 0d  01 c3 05 3a 0d 01 c4 16  |%).........:....|
000031b0  dd 20 f2 75 73 65 72 5f  6d 6f 64 65 63 68 61 6e  |. .user_modechan|
000031c0  67 65 0d 01 c5 05 e1 0d  01 c6 05 3a 0d 01 c7 18  |ge.........:....|
000031d0  dd 20 f2 75 73 65 72 5f  64 65 63 6c 61 72 65 66  |. .user_declaref|
000031e0  6f 6e 74 73 0d 01 c8 05  e1 0d 01 c9 05 3a 0d 01  |onts.........:..|
000031f0  ca 30 dd 20 f2 75 73 65  72 5f 70 72 69 6e 74 28  |.0. .user_print(|
00003200  6d 69 6e 78 25 2c 6d 69  6e 79 25 2c 6d 61 78 78  |minx%,miny%,maxx|
00003210  25 2c 6d 61 78 79 25 2c  70 61 67 65 25 29 0d 01  |%,maxy%,page%)..|
00003220  cb 05 e1 0d 01 cc 05 3a  0d 01 cd 34 dd 20 a4 75  |.......:...4. .u|
00003230  73 65 72 5f 70 72 69 6e  74 69 6e 67 28 63 6f 70  |ser_printing(cop|
00003240  79 25 2c 70 61 67 65 25  2c 74 6f 74 70 61 67 65  |y%,page%,totpage|
00003250  73 25 2c 70 61 67 65 70  6f 73 25 29 0d 01 ce 06  |s%,pagepos%)....|
00003260  3d 30 0d 01 cf 05 3a 0d  01 d0 19 dd 20 f2 75 73  |=0....:..... .us|
00003270  65 72 5f 70 72 69 6e 74  65 72 63 68 61 6e 67 65  |er_printerchange|
00003280  0d 01 d1 05 e1 0d 01 d2  05 3a 0d 01 d3 13 dd 20  |.........:..... |
00003290  f2 65 72 72 6f 72 28 74  65 78 74 24 29 0d 01 d4  |.error(text$)...|
000032a0  21 f2 77 69 6d 70 5f 6f  70 65 6e 77 69 6e 64 6f  |!.wimp_openwindo|
000032b0  77 28 65 72 72 6f 72 25  2c 31 2c 2d 31 29 0d 01  |w(error%,1,-1)..|
000032c0  d5 25 f2 77 69 6d 70 5f  70 75 74 69 63 6f 6e 74  |.%.wimp_puticont|
000032d0  65 78 74 28 65 72 72 6f  72 25 2c 30 2c 74 65 78  |ext(error%,0,tex|
000032e0  74 24 29 0d 01 d6 05 e1  0d 01 d7 05 3a 0d 01 d8  |t$).........:...|
000032f0  0f dd 20 f2 6f 70 65 6e  65 64 69 74 0d 01 d9 15  |.. .openedit....|
00003300  f4 20 4f 70 65 6e 20 74  68 65 20 77 69 6e 64 6f  |. Open the windo|
00003310  77 0d 01 da 23 f2 77 69  6d 70 5f 6f 70 65 6e 77  |w...#.wimp_openw|
00003320  69 6e 64 6f 77 28 65 64  69 74 62 6f 78 25 2c 31  |indow(editbox%,1|
00003330  2c 2d 31 29 0d 01 db 1f  f4 20 4c 6f 61 64 20 74  |,-1)..... Load t|
00003340  68 65 20 68 65 6c 70 20  64 65 66 69 6e 69 74 69  |he help definiti|
00003350  6f 6e 73 0d 01 dc 2b f2  77 69 6d 70 5f 70 75 74  |ons...+.wimp_put|
00003360  69 63 6f 6e 74 65 78 74  28 65 64 69 74 70 61 6e  |icontext(editpan|
00003370  65 25 2c 31 2c 68 65 6c  70 24 28 31 29 29 0d 01  |e%,1,help$(1))..|
00003380  dd 2b f2 77 69 6d 70 5f  70 75 74 69 63 6f 6e 74  |.+.wimp_puticont|
00003390  65 78 74 28 65 64 69 74  70 61 6e 65 25 2c 32 2c  |ext(editpane%,2,|
000033a0  68 65 6c 70 24 28 32 29  29 0d 01 de 2b f2 77 69  |help$(2))...+.wi|
000033b0  6d 70 5f 70 75 74 69 63  6f 6e 74 65 78 74 28 65  |mp_puticontext(e|
000033c0  64 69 74 70 61 6e 65 25  2c 33 2c 68 65 6c 70 24  |ditpane%,3,help$|
000033d0  28 33 29 29 0d 01 df 2b  f2 77 69 6d 70 5f 70 75  |(3))...+.wimp_pu|
000033e0  74 69 63 6f 6e 74 65 78  74 28 65 64 69 74 70 61  |ticontext(editpa|
000033f0  6e 65 25 2c 34 2c 68 65  6c 70 24 28 34 29 29 0d  |ne%,4,help$(4)).|
00003400  01 e0 2b f2 77 69 6d 70  5f 70 75 74 69 63 6f 6e  |..+.wimp_puticon|
00003410  74 65 78 74 28 65 64 69  74 70 61 6e 65 25 2c 35  |text(editpane%,5|
00003420  2c 68 65 6c 70 24 28 35  29 29 0d 01 e1 2b f2 77  |,help$(5))...+.w|
00003430  69 6d 70 5f 70 75 74 69  63 6f 6e 74 65 78 74 28  |imp_puticontext(|
00003440  65 64 69 74 70 61 6e 65  25 2c 36 2c 68 65 6c 70  |editpane%,6,help|
00003450  24 28 36 29 29 0d 01 e2  2b f2 77 69 6d 70 5f 70  |$(6))...+.wimp_p|
00003460  75 74 69 63 6f 6e 74 65  78 74 28 65 64 69 74 70  |uticontext(editp|
00003470  61 6e 65 25 2c 37 2c 68  65 6c 70 24 28 37 29 29  |ane%,7,help$(7))|
00003480  0d 01 e3 2b f2 77 69 6d  70 5f 70 75 74 69 63 6f  |...+.wimp_putico|
00003490  6e 74 65 78 74 28 65 64  69 74 70 61 6e 65 25 2c  |ntext(editpane%,|
000034a0  38 2c 68 65 6c 70 24 28  38 29 29 0d 01 e4 2b f2  |8,help$(8))...+.|
000034b0  77 69 6d 70 5f 70 75 74  69 63 6f 6e 74 65 78 74  |wimp_puticontext|
000034c0  28 65 64 69 74 70 61 6e  65 25 2c 39 2c 68 65 6c  |(editpane%,9,hel|
000034d0  70 24 28 39 29 29 0d 01  e5 2d f2 77 69 6d 70 5f  |p$(9))...-.wimp_|
000034e0  70 75 74 69 63 6f 6e 74  65 78 74 28 65 64 69 74  |puticontext(edit|
000034f0  70 61 6e 65 25 2c 31 30  2c 68 65 6c 70 24 28 31  |pane%,10,help$(1|
00003500  30 29 29 0d 01 e6 2d f2  77 69 6d 70 5f 70 75 74  |0))...-.wimp_put|
00003510  69 63 6f 6e 74 65 78 74  28 65 64 69 74 70 61 6e  |icontext(editpan|
00003520  65 25 2c 31 31 2c 68 65  6c 70 24 28 31 31 29 29  |e%,11,help$(11))|
00003530  0d 01 e7 2d f2 77 69 6d  70 5f 70 75 74 69 63 6f  |...-.wimp_putico|
00003540  6e 74 65 78 74 28 65 64  69 74 70 61 6e 65 25 2c  |ntext(editpane%,|
00003550  31 32 2c 68 65 6c 70 24  28 31 32 29 29 0d 01 e8  |12,help$(12))...|
00003560  1f f4 20 4c 6f 61 64 20  74 68 65 20 6c 69 6e 6b  |.. Load the link|
00003570  20 64 65 66 69 6e 69 74  69 6f 6e 73 0d 01 e9 2c  | definitions...,|
00003580  f2 77 69 6d 70 5f 70 75  74 69 63 6f 6e 74 65 78  |.wimp_puticontex|
00003590  74 28 65 64 69 74 70 61  6e 65 25 2c 31 33 2c 6c  |t(editpane%,13,l|
000035a0  69 6e 6b 24 28 31 29 29  0d 01 ea 2c f2 77 69 6d  |ink$(1))...,.wim|
000035b0  70 5f 70 75 74 69 63 6f  6e 74 65 78 74 28 65 64  |p_puticontext(ed|
000035c0  69 74 70 61 6e 65 25 2c  31 34 2c 6c 69 6e 6b 24  |itpane%,14,link$|
000035d0  28 32 29 29 0d 01 eb 2c  f2 77 69 6d 70 5f 70 75  |(2))...,.wimp_pu|
000035e0  74 69 63 6f 6e 74 65 78  74 28 65 64 69 74 70 61  |ticontext(editpa|
000035f0  6e 65 25 2c 31 35 2c 6c  69 6e 6b 24 28 33 29 29  |ne%,15,link$(3))|
00003600  0d 01 ec 2c f2 77 69 6d  70 5f 70 75 74 69 63 6f  |...,.wimp_putico|
00003610  6e 74 65 78 74 28 65 64  69 74 70 61 6e 65 25 2c  |ntext(editpane%,|
00003620  31 36 2c 6c 69 6e 6b 24  28 34 29 29 0d 01 ed 2c  |16,link$(4))...,|
00003630  f2 77 69 6d 70 5f 70 75  74 69 63 6f 6e 74 65 78  |.wimp_puticontex|
00003640  74 28 65 64 69 74 70 61  6e 65 25 2c 31 37 2c 6c  |t(editpane%,17,l|
00003650  69 6e 6b 24 28 35 29 29  0d 01 ee 2c f2 77 69 6d  |ink$(5))...,.wim|
00003660  70 5f 70 75 74 69 63 6f  6e 74 65 78 74 28 65 64  |p_puticontext(ed|
00003670  69 74 70 61 6e 65 25 2c  31 38 2c 6c 69 6e 6b 24  |itpane%,18,link$|
00003680  28 36 29 29 0d 01 ef 2c  f2 77 69 6d 70 5f 70 75  |(6))...,.wimp_pu|
00003690  74 69 63 6f 6e 74 65 78  74 28 65 64 69 74 70 61  |ticontext(editpa|
000036a0  6e 65 25 2c 31 39 2c 6c  69 6e 6b 24 28 37 29 29  |ne%,19,link$(7))|
000036b0  0d 01 f0 2c f2 77 69 6d  70 5f 70 75 74 69 63 6f  |...,.wimp_putico|
000036c0  6e 74 65 78 74 28 65 64  69 74 70 61 6e 65 25 2c  |ntext(editpane%,|
000036d0  32 30 2c 6c 69 6e 6b 24  28 38 29 29 0d 01 f1 2c  |20,link$(8))...,|
000036e0  f2 77 69 6d 70 5f 70 75  74 69 63 6f 6e 74 65 78  |.wimp_puticontex|
000036f0  74 28 65 64 69 74 70 61  6e 65 25 2c 32 31 2c 6c  |t(editpane%,21,l|
00003700  69 6e 6b 24 28 39 29 29  0d 01 f2 2d f2 77 69 6d  |ink$(9))...-.wim|
00003710  70 5f 70 75 74 69 63 6f  6e 74 65 78 74 28 65 64  |p_puticontext(ed|
00003720  69 74 70 61 6e 65 25 2c  32 32 2c 6c 69 6e 6b 24  |itpane%,22,link$|
00003730  28 31 30 29 29 0d 01 f3  2d f2 77 69 6d 70 5f 70  |(10))...-.wimp_p|
00003740  75 74 69 63 6f 6e 74 65  78 74 28 65 64 69 74 70  |uticontext(editp|
00003750  61 6e 65 25 2c 32 33 2c  6c 69 6e 6b 24 28 31 31  |ane%,23,link$(11|
00003760  29 29 0d 01 f4 2d f2 77  69 6d 70 5f 70 75 74 69  |))...-.wimp_puti|
00003770  63 6f 6e 74 65 78 74 28  65 64 69 74 70 61 6e 65  |context(editpane|
00003780  25 2c 32 34 2c 6c 69 6e  6b 24 28 31 32 29 29 0d  |%,24,link$(12)).|
00003790  01 f5 16 f4 20 4c 6f 61  64 20 74 68 65 20 73 70  |.... Load the sp|
000037a0  72 69 74 65 73 0d 01 f6  2b f2 77 69 6d 70 5f 70  |rites...+.wimp_p|
000037b0  75 74 69 63 6f 6e 74 65  78 74 28 65 64 69 74 70  |uticontext(editp|
000037c0  61 6e 65 25 2c 32 35 2c  73 70 72 24 28 31 29 29  |ane%,25,spr$(1))|
000037d0  0d 01 f7 2b f2 77 69 6d  70 5f 70 75 74 69 63 6f  |...+.wimp_putico|
000037e0  6e 74 65 78 74 28 65 64  69 74 70 61 6e 65 25 2c  |ntext(editpane%,|
000037f0  32 36 2c 73 70 72 24 28  32 29 29 0d 01 f8 2b f2  |26,spr$(2))...+.|
00003800  77 69 6d 70 5f 70 75 74  69 63 6f 6e 74 65 78 74  |wimp_puticontext|
00003810  28 65 64 69 74 70 61 6e  65 25 2c 32 37 2c 73 70  |(editpane%,27,sp|
00003820  72 24 28 33 29 29 0d 01  f9 2b f2 77 69 6d 70 5f  |r$(3))...+.wimp_|
00003830  70 75 74 69 63 6f 6e 74  65 78 74 28 65 64 69 74  |puticontext(edit|
00003840  70 61 6e 65 25 2c 32 38  2c 73 70 72 24 28 34 29  |pane%,28,spr$(4)|
00003850  29 0d 01 fa 2b f2 77 69  6d 70 5f 70 75 74 69 63  |)...+.wimp_putic|
00003860  6f 6e 74 65 78 74 28 65  64 69 74 70 61 6e 65 25  |ontext(editpane%|
00003870  2c 32 39 2c 73 70 72 24  28 35 29 29 0d 01 fb 2b  |,29,spr$(5))...+|
00003880  f2 77 69 6d 70 5f 70 75  74 69 63 6f 6e 74 65 78  |.wimp_puticontex|
00003890  74 28 65 64 69 74 70 61  6e 65 25 2c 33 30 2c 73  |t(editpane%,30,s|
000038a0  70 72 24 28 36 29 29 0d  01 fc 2b f2 77 69 6d 70  |pr$(6))...+.wimp|
000038b0  5f 70 75 74 69 63 6f 6e  74 65 78 74 28 65 64 69  |_puticontext(edi|
000038c0  74 70 61 6e 65 25 2c 33  31 2c 73 70 72 24 28 37  |tpane%,31,spr$(7|
000038d0  29 29 0d 01 fd 2b f2 77  69 6d 70 5f 70 75 74 69  |))...+.wimp_puti|
000038e0  63 6f 6e 74 65 78 74 28  65 64 69 74 70 61 6e 65  |context(editpane|
000038f0  25 2c 33 32 2c 73 70 72  24 28 38 29 29 0d 01 fe  |%,32,spr$(8))...|
00003900  2b f2 77 69 6d 70 5f 70  75 74 69 63 6f 6e 74 65  |+.wimp_puticonte|
00003910  78 74 28 65 64 69 74 70  61 6e 65 25 2c 33 33 2c  |xt(editpane%,33,|
00003920  73 70 72 24 28 39 29 29  0d 01 ff 2c f2 77 69 6d  |spr$(9))...,.wim|
00003930  70 5f 70 75 74 69 63 6f  6e 74 65 78 74 28 65 64  |p_puticontext(ed|
00003940  69 74 70 61 6e 65 25 2c  33 34 2c 73 70 72 24 28  |itpane%,34,spr$(|
00003950  31 30 29 29 0d 02 00 2c  f2 77 69 6d 70 5f 70 75  |10))...,.wimp_pu|
00003960  74 69 63 6f 6e 74 65 78  74 28 65 64 69 74 70 61  |ticontext(editpa|
00003970  6e 65 25 2c 33 35 2c 73  70 72 24 28 31 31 29 29  |ne%,35,spr$(11))|
00003980  0d 02 01 2c f2 77 69 6d  70 5f 70 75 74 69 63 6f  |...,.wimp_putico|
00003990  6e 74 65 78 74 28 65 64  69 74 70 61 6e 65 25 2c  |ntext(editpane%,|
000039a0  33 36 2c 73 70 72 24 28  31 32 29 29 0d 02 02 05  |36,spr$(12))....|
000039b0  e1 0d 02 03 05 3a 0d 02  04 18 dd 20 f2 73 74 72  |.....:..... .str|
000039c0  69 70 70 72 65 73 73 28  69 63 6f 6e 25 29 0d 02  |ippress(icon%)..|
000039d0  05 30 f4 20 4c 6f 61 64  20 74 68 65 20 61 70 70  |.0. Load the app|
000039e0  20 61 73 6f 63 69 61 74  65 64 20 77 69 74 68 20  | asociated with |
000039f0  62 75 74 74 6f 6e 20 70  72 65 73 73 65 64 0d 02  |button pressed..|
00003a00  06 18 6c 6f 6f 6b 75 70  24 3d 6c 69 6e 6b 24 28  |..lookup$=link$(|
00003a10  69 63 6f 6e 25 29 0d 02  07 22 74 65 78 74 24 3d  |icon%)..."text$=|
00003a20  a4 77 69 6d 70 5f 6d 65  73 73 6c 6f 6f 6b 30 28  |.wimp_messlook0(|
00003a30  22 4e 6f 41 63 74 22 29  0d 02 08 35 f4 20 43 68  |"NoAct")...5. Ch|
00003a40  65 63 6b 20 69 66 20 74  68 65 20 62 75 74 74 6f  |eck if the butto|
00003a50  6e 20 69 73 20 73 75 70  70 6f 73 65 64 20 74 6f  |n is supposed to|
00003a60  20 72 75 6e 20 61 6e 79  74 68 69 6e 67 0d 02 09  | run anything...|
00003a70  4c e7 20 6c 6f 6f 6b 75  70 24 3d 22 22 20 8c 20  |L. lookup$="" . |
00003a80  f2 77 69 6d 70 5f 65 72  72 6f 72 28 61 70 70 6e  |.wimp_error(appn|
00003a90  61 6d 65 24 2c 74 65 78  74 24 2c 31 2c 31 29 20  |ame$,text$,1,1) |
00003aa0  8b 20 ff 28 22 46 69 6c  65 72 5f 52 75 6e 20 22  |. .("Filer_Run "|
00003ab0  2b 6c 6f 6f 6b 75 70 24  29 0d 02 0a 05 e1 0d 02  |+lookup$).......|
00003ac0  0b 05 3a 0d 02 0c 11 dd  20 f2 73 61 76 65 63 6f  |..:..... .saveco|
00003ad0  6e 66 69 67 0d 02 0d 3b  f4 20 2a 2a 2a 20 47 65  |nfig...;. *** Ge|
00003ae0  74 20 61 6c 6c 20 74 68  65 20 69 63 6f 6e 20 73  |t all the icon s|
00003af0  74 61 74 65 73 20 74 6f  20 63 72 65 61 74 65 20  |tates to create |
00003b00  74 68 65 20 64 65 66 69  6e 69 74 69 6f 6e 73 0d  |the definitions.|
00003b10  02 0e 26 f4 20 2a 2a 2a  20 4e 6f 74 65 3a 20 74  |..&. *** Note: t|
00003b20  68 69 73 20 6d 61 79 20  74 61 6b 65 20 61 20 77  |his may take a w|
00003b30  68 69 6c 65 21 0d 02 0f  2d 6c 6f 6f 6b 75 70 24  |hile!...-lookup$|
00003b40  3d a4 77 69 6d 70 5f 67  65 74 69 63 6f 6e 74 65  |=.wimp_geticonte|
00003b50  78 74 28 63 6f 6e 66 69  67 5f 70 61 6e 65 25 2c  |xt(config_pane%,|
00003b60  35 29 0d 02 10 28 e7 20  6c 6f 6f 6b 75 70 24 3d  |5)...(. lookup$=|
00003b70  22 45 6e 67 6c 69 73 68  22 20 8c 20 63 6f 6e 5f  |"English" . con_|
00003b80  6c 61 6e 67 24 3d 22 30  31 22 0d 02 11 27 e7 20  |lang$="01"...'. |
00003b90  6c 6f 6f 6b 75 70 24 3d  22 47 65 72 6d 61 6e 22  |lookup$="German"|
00003ba0  20 8c 20 63 6f 6e 5f 6c  61 6e 67 24 3d 22 30 32  | . con_lang$="02|
00003bb0  22 0d 02 12 05 cd 0d 02  13 2e 6c 6f 6f 6b 75 70  |".........lookup|
00003bc0  25 3d a4 77 69 6d 70 5f  67 65 74 69 63 6f 6e 73  |%=.wimp_geticons|
00003bd0  74 61 74 65 28 63 6f 6e  66 69 67 5f 70 61 6e 65  |tate(config_pane|
00003be0  25 2c 36 29 0d 02 14 26  e7 20 6c 6f 6f 6b 75 70  |%,6)...&. lookup|
00003bf0  25 3d 31 20 8c 20 63 6f  6e 5f 62 61 72 73 74 61  |%=1 . con_barsta|
00003c00  72 74 75 70 24 3d 22 30  31 22 0d 02 15 26 e7 20  |rtup$="01"...&. |
00003c10  6c 6f 6f 6b 75 70 25 3d  30 20 8c 20 63 6f 6e 5f  |lookup%=0 . con_|
00003c20  62 61 72 73 74 61 72 74  75 70 24 3d 22 30 32 22  |barstartup$="02"|
00003c30  0d 02 16 05 cd 0d 02 17  2e 6c 6f 6f 6b 75 70 25  |.........lookup%|
00003c40  3d a4 77 69 6d 70 5f 67  65 74 69 63 6f 6e 73 74  |=.wimp_geticonst|
00003c50  61 74 65 28 63 6f 6e 66  69 67 5f 70 61 6e 65 25  |ate(config_pane%|
00003c60  2c 37 29 0d 02 18 27 e7  20 6c 6f 6f 6b 75 70 25  |,7)...'. lookup%|
00003c70  3d 31 20 8c 20 63 6f 6e  5f 73 74 61 72 74 62 61  |=1 . con_startba|
00003c80  6e 6e 65 72 24 3d 22 30  31 22 0d 02 19 27 e7 20  |nner$="01"...'. |
00003c90  6c 6f 6f 6b 75 70 25 3d  30 20 8c 20 63 6f 6e 5f  |lookup%=0 . con_|
00003ca0  73 74 61 72 74 62 61 6e  6e 65 72 24 3d 22 30 32  |startbanner$="02|
00003cb0  22 0d 02 1a 05 cd 0d 02  1b 27 f4 20 2a 2a 2a 20  |"........'. *** |
00003cc0  45 6e 64 20 6f 66 20 73  65 74 74 69 6e 67 20 75  |End of setting u|
00003cd0  70 20 64 65 66 69 6e 69  74 69 6f 6e 73 0d 02 1c  |p definitions...|
00003ce0  17 f4 20 2a 2a 2a 20 4f  70 65 6e 20 74 68 65 20  |.. *** Open the |
00003cf0  66 69 6c 65 0d 02 1d 2a  66 69 6c 65 25 3d ae 28  |file...*file%=.(|
00003d00  22 3c 6f 66 66 69 63 65  24 44 69 72 3e 2e 52 65  |"<office$Dir>.Re|
00003d10  73 6f 75 72 63 65 73 2e  44 61 74 61 22 29 0d 02  |sources.Data")..|
00003d20  1e 17 f4 20 2a 2a 2a 20  44 6f 20 74 68 65 20 73  |... *** Do the s|
00003d30  61 76 69 6e 67 0d 02 1f  15 d5 23 66 69 6c 65 25  |aving.....#file%|
00003d40  2c 63 6f 6e 5f 6c 61 6e  67 24 0d 02 20 1b d5 23  |,con_lang$.. ..#|
00003d50  66 69 6c 65 25 2c 63 6f  6e 5f 62 61 72 73 74 61  |file%,con_barsta|
00003d60  72 74 75 70 24 0d 02 21  1c d5 23 66 69 6c 65 25  |rtup$..!..#file%|
00003d70  2c 63 6f 6e 5f 73 74 61  72 74 62 61 6e 6e 65 72  |,con_startbanner|
00003d80  24 0d 02 22 0b d9 23 66  69 6c 65 25 0d 02 23 05  |$.."..#file%..#.|
00003d90  e1 0d 02 24 05 3a 0d 02  25 0e dd 20 f2 69 6e 69  |...$.:..%.. .ini|
00003da0  74 62 61 72 0d 02 26 29  f4 20 4c 6f 61 64 20 64  |tbar..&). Load d|
00003db0  65 66 69 6e 69 74 69 6f  6e 73 20 66 72 6f 6d 20  |efinitions from |
00003dc0  74 68 65 20 44 61 74 61  20 66 69 6c 65 0d 02 27  |the Data file..'|
00003dd0  2a 46 25 3d ad 28 22 3c  6f 66 66 69 63 65 24 44  |*F%=.("<office$D|
00003de0  69 72 3e 2e 52 65 73 6f  75 72 63 65 73 2e 43 68  |ir>.Resources.Ch|
00003df0  6f 69 63 65 73 22 29 0d  02 28 1e f4 20 43 72 65  |oices")..(.. Cre|
00003e00  61 74 65 20 61 20 73 70  61 63 65 20 69 6e 20 6d  |ate a space in m|
00003e10  65 6d 6f 72 79 0d 02 29  1c 20 20 20 73 24 3d be  |emory..).   s$=.|
00003e20  23 46 25 3a 62 75 74 74  6f 6e 73 25 3d bb 20 73  |#F%:buttons%=. s|
00003e30  24 0d 02 2a 1f 20 20 20  73 24 3d be 23 46 25 3a  |$..*.   s$=.#F%:|
00003e40  63 6f 6e 66 69 67 72 75  6e 68 6c 70 24 3d 73 24  |configrunhlp$=s$|
00003e50  0d 02 2b 1c 20 20 20 73  24 3d be 23 46 25 3a 63  |..+.   s$=.#F%:c|
00003e60  6f 6e 66 69 67 72 75 6e  24 3d 73 24 0d 02 2c 08  |onfigrun$=s$..,.|
00003e70  20 20 20 3a 0d 02 2d 18  20 20 20 de 20 68 65 6c  |   :..-.   . hel|
00003e80  70 24 28 62 75 74 74 6f  6e 73 25 29 0d 02 2e 18  |p$(buttons%)....|
00003e90  20 20 20 de 20 6c 69 6e  6b 24 28 62 75 74 74 6f  |   . link$(butto|
00003ea0  6e 73 25 29 0d 02 2f 17  20 20 20 de 20 73 70 72  |ns%)../.   . spr|
00003eb0  24 28 62 75 74 74 6f 6e  73 25 29 0d 02 30 11 20  |$(buttons%)..0. |
00003ec0  20 20 de 20 54 65 6d 70  24 28 33 29 0d 02 31 08  |  . Temp$(3)..1.|
00003ed0  20 20 20 3a 0d 02 32 15  e3 20 4a 25 3d 31 20 b8  |   :..2.. J%=1 .|
00003ee0  20 62 75 74 74 6f 6e 73  25 0d 02 33 19 20 20 20  | buttons%..3.   |
00003ef0  73 24 3d be 23 46 25 3a  f2 73 70 6c 69 74 28 73  |s$=.#F%:.split(s|
00003f00  24 29 0d 02 34 19 20 20  20 68 65 6c 70 24 28 4a  |$)..4.   help$(J|
00003f10  25 29 3d 54 65 6d 70 24  28 31 29 0d 02 35 19 20  |%)=Temp$(1)..5. |
00003f20  20 20 6c 69 6e 6b 24 28  4a 25 29 3d 54 65 6d 70  |  link$(J%)=Temp|
00003f30  24 28 32 29 0d 02 36 18  20 20 20 73 70 72 24 28  |$(2)..6.   spr$(|
00003f40  4a 25 29 3d 54 65 6d 70  24 28 33 29 0d 02 37 05  |J%)=Temp$(3)..7.|
00003f50  ed 0d 02 38 0d d9 23 46  25 3a 46 25 3d 30 0d 02  |...8..#F%:F%=0..|
00003f60  39 2f f4 20 4c 6f 61 64  20 74 68 65 20 64 65 66  |9/. Load the def|
00003f70  69 6e 69 74 69 6f 6e 20  66 6f 72 20 74 68 65 20  |inition for the |
00003f80  61 63 74 75 61 6c 20 77  69 6e 64 6f 77 0d 02 3a  |actual window..:|
00003f90  1b f4 20 4c 6f 61 64 20  74 68 65 20 56 65 72 74  |.. Load the Vert|
00003fa0  69 63 61 6c 20 62 61 72  0d 02 3b 0d 62 69 74 31  |ical bar..;.bit1|
00003fb0  24 3d 22 73 22 0d 02 3c  11 62 69 74 32 24 3d 22  |$="s"..<.bit2$="|
00003fc0  3b 52 31 2c 33 22 0d 02  3d 57 73 74 72 69 70 25  |;R1,3"..=Wstrip%|
00003fd0  3d a4 77 69 6d 70 5f 63  72 65 61 74 65 77 69 6e  |=.wimp_createwin|
00003fe0  64 6f 77 28 31 35 33 34  2c 33 31 38 2c 31 35 39  |dow(1534,318,159|
00003ff0  38 2c 31 31 36 30 2c 30  2c 2d 38 34 32 2c 36 34  |8,1160,0,-842,64|
00004000  2c 30 2c 25 30 31 31 30  30 30 30 30 30 31 2c 31  |,0,%0110000001,1|
00004010  2c 31 2c 22 42 61 72 22  2c 34 2c 30 29 0d 02 3e  |,1,"Bar",4,0)..>|
00004020  5b 69 63 6f 6e 30 25 3d  a4 77 69 6d 70 5f 63 72  |[icon0%=.wimp_cr|
00004030  65 61 74 65 69 63 6f 6e  28 73 74 72 69 70 25 2c  |eateicon(strip%,|
00004040  2d 32 2c 2d 38 34 34 2c  37 30 2c 32 30 2c 25 31  |-2,-844,70,20,%1|
00004050  30 30 30 30 31 31 31 30  2c 30 2c 31 2c 37 2c 31  |00001110,0,1,7,1|
00004060  2c 30 2c 22 22 2c 22 62  61 63 6b 62 61 72 32 22  |,0,"","backbar2"|
00004070  2c 30 2c 39 2c 22 22 29  0d 02 3f 11 f4 20 54 68  |,0,9,"")..?.. Th|
00004080  65 20 42 75 74 74 6f 6e  73 0d 02 40 10 73 70 72  |e Buttons..@.spr|
00004090  24 3d 73 70 72 24 28 31  29 0d 02 41 1f e7 20 73  |$=spr$(1)..A.. s|
000040a0  70 72 24 3d 22 22 20 8c  20 73 70 72 24 3d 22 64  |pr$="" . spr$="d|
000040b0  69 73 61 62 6c 65 64 22  0d 02 42 61 69 63 6f 6e  |isabled"..Baicon|
000040c0  31 25 3d a4 77 69 6d 70  5f 63 72 65 61 74 65 69  |1%=.wimp_createi|
000040d0  63 6f 6e 28 73 74 72 69  70 25 2c 38 2c 2d 31 32  |con(strip%,8,-12|
000040e0  30 2c 36 30 2c 2d 36 38  2c 25 31 30 31 30 31 31  |0,60,-68,%101011|
000040f0  31 31 31 2c 30 2c 31 2c  31 2c 31 2c 30 2c 22 22  |111,0,1,1,1,0,""|
00004100  2c 22 22 2c 30 2c 37 2c  62 69 74 31 24 2b 73 70  |,"",0,7,bit1$+sp|
00004110  72 24 2b 62 69 74 32 24  29 0d 02 43 10 73 70 72  |r$+bit2$)..C.spr|
00004120  24 3d 73 70 72 24 28 32  29 0d 02 44 1f e7 20 73  |$=spr$(2)..D.. s|
00004130  70 72 24 3d 22 22 20 8c  20 73 70 72 24 3d 22 64  |pr$="" . spr$="d|
00004140  69 73 61 62 6c 65 64 22  0d 02 45 62 69 63 6f 6e  |isabled"..Ebicon|
00004150  32 25 3d a4 77 69 6d 70  5f 63 72 65 61 74 65 69  |2%=.wimp_createi|
00004160  63 6f 6e 28 73 74 72 69  70 25 2c 38 2c 2d 31 37  |con(strip%,8,-17|
00004170  32 2c 36 30 2c 2d 31 32  30 2c 25 31 30 31 30 31  |2,60,-120,%10101|
00004180  31 31 31 31 2c 30 2c 31  2c 31 2c 31 2c 30 2c 22  |1111,0,1,1,1,0,"|
00004190  22 2c 22 22 2c 30 2c 37  2c 62 69 74 31 24 2b 73  |","",0,7,bit1$+s|
000041a0  70 72 24 2b 62 69 74 32  24 29 0d 02 46 10 73 70  |pr$+bit2$)..F.sp|
000041b0  72 24 3d 73 70 72 24 28  33 29 0d 02 47 1f e7 20  |r$=spr$(3)..G.. |
000041c0  73 70 72 24 3d 22 22 20  8c 20 73 70 72 24 3d 22  |spr$="" . spr$="|
000041d0  64 69 73 61 62 6c 65 64  22 0d 02 48 62 69 63 6f  |disabled"..Hbico|
000041e0  6e 33 25 3d a4 77 69 6d  70 5f 63 72 65 61 74 65  |n3%=.wimp_create|
000041f0  69 63 6f 6e 28 73 74 72  69 70 25 2c 38 2c 2d 32  |icon(strip%,8,-2|
00004200  32 34 2c 36 30 2c 2d 31  37 32 2c 25 31 30 31 30  |24,60,-172,%1010|
00004210  31 31 31 31 31 2c 30 2c  31 2c 37 2c 31 2c 30 2c  |11111,0,1,7,1,0,|
00004220  22 22 2c 22 22 2c 30 2c  37 2c 62 69 74 31 24 2b  |"","",0,7,bit1$+|
00004230  73 70 72 24 2b 62 69 74  32 24 29 0d 02 49 10 73  |spr$+bit2$)..I.s|
00004240  70 72 24 3d 73 70 72 24  28 34 29 0d 02 4a 1f e7  |pr$=spr$(4)..J..|
00004250  20 73 70 72 24 3d 22 22  20 8c 20 73 70 72 24 3d  | spr$="" . spr$=|
00004260  22 64 69 73 61 62 6c 65  64 22 0d 02 4b 62 69 63  |"disabled"..Kbic|
00004270  6f 6e 34 25 3d a4 77 69  6d 70 5f 63 72 65 61 74  |on4%=.wimp_creat|
00004280  65 69 63 6f 6e 28 73 74  72 69 70 25 2c 38 2c 2d  |eicon(strip%,8,-|
00004290  32 37 36 2c 36 30 2c 2d  32 32 34 2c 25 31 30 31  |276,60,-224,%101|
000042a0  30 31 31 31 31 31 2c 30  2c 31 2c 37 2c 31 2c 30  |011111,0,1,7,1,0|
000042b0  2c 22 22 2c 22 22 2c 30  2c 37 2c 62 69 74 31 24  |,"","",0,7,bit1$|
000042c0  2b 73 70 72 24 2b 62 69  74 32 24 29 0d 02 4c 10  |+spr$+bit2$)..L.|
000042d0  73 70 72 24 3d 73 70 72  24 28 35 29 0d 02 4d 1f  |spr$=spr$(5)..M.|
000042e0  e7 20 73 70 72 24 3d 22  22 20 8c 20 73 70 72 24  |. spr$="" . spr$|
000042f0  3d 22 64 69 73 61 62 6c  65 64 22 0d 02 4e 62 69  |="disabled"..Nbi|
00004300  63 6f 6e 35 25 3d a4 77  69 6d 70 5f 63 72 65 61  |con5%=.wimp_crea|
00004310  74 65 69 63 6f 6e 28 73  74 72 69 70 25 2c 38 2c  |teicon(strip%,8,|
00004320  2d 33 32 38 2c 36 30 2c  2d 32 37 36 2c 25 31 30  |-328,60,-276,%10|
00004330  31 30 31 31 31 31 31 2c  30 2c 31 2c 37 2c 31 2c  |1011111,0,1,7,1,|
00004340  30 2c 22 22 2c 22 22 2c  30 2c 37 2c 62 69 74 31  |0,"","",0,7,bit1|
00004350  24 2b 73 70 72 24 2b 62  69 74 32 24 29 0d 02 4f  |$+spr$+bit2$)..O|
00004360  10 73 70 72 24 3d 73 70  72 24 28 36 29 0d 02 50  |.spr$=spr$(6)..P|
00004370  1f e7 20 73 70 72 24 3d  22 22 20 8c 20 73 70 72  |.. spr$="" . spr|
00004380  24 3d 22 64 69 73 61 62  6c 65 64 22 0d 02 51 62  |$="disabled"..Qb|
00004390  69 63 6f 6e 36 25 3d a4  77 69 6d 70 5f 63 72 65  |icon6%=.wimp_cre|
000043a0  61 74 65 69 63 6f 6e 28  73 74 72 69 70 25 2c 38  |ateicon(strip%,8|
000043b0  2c 2d 34 31 32 2c 36 30  2c 2d 33 36 30 2c 25 31  |,-412,60,-360,%1|
000043c0  30 31 30 31 31 31 31 31  2c 30 2c 31 2c 37 2c 31  |01011111,0,1,7,1|
000043d0  2c 30 2c 22 22 2c 22 22  2c 30 2c 37 2c 62 69 74  |,0,"","",0,7,bit|
000043e0  31 24 2b 73 70 72 24 2b  62 69 74 32 24 29 0d 02  |1$+spr$+bit2$)..|
000043f0  52 10 73 70 72 24 3d 73  70 72 24 28 37 29 0d 02  |R.spr$=spr$(7)..|
00004400  53 1f e7 20 73 70 72 24  3d 22 22 20 8c 20 73 70  |S.. spr$="" . sp|
00004410  72 24 3d 22 64 69 73 61  62 6c 65 64 22 0d 02 54  |r$="disabled"..T|
00004420  62 69 63 6f 6e 37 25 3d  a4 77 69 6d 70 5f 63 72  |bicon7%=.wimp_cr|
00004430  65 61 74 65 69 63 6f 6e  28 73 74 72 69 70 25 2c  |eateicon(strip%,|
00004440  38 2c 2d 34 36 34 2c 36  30 2c 2d 34 31 32 2c 25  |8,-464,60,-412,%|
00004450  31 30 31 30 31 31 31 31  31 2c 30 2c 31 2c 37 2c  |101011111,0,1,7,|
00004460  31 2c 30 2c 22 22 2c 22  22 2c 30 2c 37 2c 62 69  |1,0,"","",0,7,bi|
00004470  74 31 24 2b 73 70 72 24  2b 62 69 74 32 24 29 0d  |t1$+spr$+bit2$).|
00004480  02 55 10 73 70 72 24 3d  73 70 72 24 28 38 29 0d  |.U.spr$=spr$(8).|
00004490  02 56 1f e7 20 73 70 72  24 3d 22 22 20 8c 20 73  |.V.. spr$="" . s|
000044a0  70 72 24 3d 22 64 69 73  61 62 6c 65 64 22 0d 02  |pr$="disabled"..|
000044b0  57 62 69 63 6f 6e 38 25  3d a4 77 69 6d 70 5f 63  |Wbicon8%=.wimp_c|
000044c0  72 65 61 74 65 69 63 6f  6e 28 73 74 72 69 70 25  |reateicon(strip%|
000044d0  2c 38 2c 2d 35 31 36 2c  36 30 2c 2d 34 36 34 2c  |,8,-516,60,-464,|
000044e0  25 31 30 31 30 31 31 31  31 31 2c 30 2c 31 2c 37  |%101011111,0,1,7|
000044f0  2c 31 2c 30 2c 22 22 2c  22 22 2c 30 2c 37 2c 62  |,1,0,"","",0,7,b|
00004500  69 74 31 24 2b 73 70 72  24 2b 62 69 74 32 24 29  |it1$+spr$+bit2$)|
00004510  0d 02 58 10 73 70 72 24  3d 73 70 72 24 28 39 29  |..X.spr$=spr$(9)|
00004520  0d 02 59 1f e7 20 73 70  72 24 3d 22 22 20 8c 20  |..Y.. spr$="" . |
00004530  73 70 72 24 3d 22 64 69  73 61 62 6c 65 64 22 0d  |spr$="disabled".|
00004540  02 5a 62 69 63 6f 6e 39  25 3d a4 77 69 6d 70 5f  |.Zbicon9%=.wimp_|
00004550  63 72 65 61 74 65 69 63  6f 6e 28 73 74 72 69 70  |createicon(strip|
00004560  25 2c 38 2c 2d 35 36 38  2c 36 30 2c 2d 35 31 36  |%,8,-568,60,-516|
00004570  2c 25 31 30 31 30 31 31  31 31 31 2c 30 2c 31 2c  |,%101011111,0,1,|
00004580  37 2c 31 2c 30 2c 22 22  2c 22 22 2c 30 2c 37 2c  |7,1,0,"","",0,7,|
00004590  62 69 74 31 24 2b 73 70  72 24 2b 62 69 74 32 24  |bit1$+spr$+bit2$|
000045a0  29 0d 02 5b 11 73 70 72  24 3d 73 70 72 24 28 31  |)..[.spr$=spr$(1|
000045b0  30 29 0d 02 5c 1f e7 20  73 70 72 24 3d 22 22 20  |0)..\.. spr$="" |
000045c0  8c 20 73 70 72 24 3d 22  64 69 73 61 62 6c 65 64  |. spr$="disabled|
000045d0  22 0d 02 5d 63 69 63 6f  6e 31 30 25 3d a4 77 69  |"..]cicon10%=.wi|
000045e0  6d 70 5f 63 72 65 61 74  65 69 63 6f 6e 28 73 74  |mp_createicon(st|
000045f0  72 69 70 25 2c 38 2c 2d  36 32 30 2c 36 30 2c 2d  |rip%,8,-620,60,-|
00004600  35 36 38 2c 25 31 30 31  30 31 31 31 31 31 2c 30  |568,%101011111,0|
00004610  2c 31 2c 37 2c 31 2c 30  2c 22 22 2c 22 22 2c 30  |,1,7,1,0,"","",0|
00004620  2c 37 2c 62 69 74 31 24  2b 73 70 72 24 2b 62 69  |,7,bit1$+spr$+bi|
00004630  74 32 24 29 0d 02 5e 11  73 70 72 24 3d 73 70 72  |t2$)..^.spr$=spr|
00004640  24 28 31 31 29 0d 02 5f  1f e7 20 73 70 72 24 3d  |$(11).._.. spr$=|
00004650  22 22 20 8c 20 73 70 72  24 3d 22 64 69 73 61 62  |"" . spr$="disab|
00004660  6c 65 64 22 0d 02 60 63  69 63 6f 6e 31 31 25 3d  |led"..`cicon11%=|
00004670  a4 77 69 6d 70 5f 63 72  65 61 74 65 69 63 6f 6e  |.wimp_createicon|
00004680  28 73 74 72 69 70 25 2c  38 2c 2d 36 37 32 2c 36  |(strip%,8,-672,6|
00004690  30 2c 2d 36 32 30 2c 25  31 30 31 30 31 31 31 31  |0,-620,%10101111|
000046a0  31 2c 30 2c 31 2c 37 2c  31 2c 30 2c 22 22 2c 22  |1,0,1,7,1,0,"","|
000046b0  22 2c 30 2c 37 2c 62 69  74 31 24 2b 73 70 72 24  |",0,7,bit1$+spr$|
000046c0  2b 62 69 74 32 24 29 0d  02 61 11 73 70 72 24 3d  |+bit2$)..a.spr$=|
000046d0  73 70 72 24 28 31 32 29  0d 02 62 1f e7 20 73 70  |spr$(12)..b.. sp|
000046e0  72 24 3d 22 22 20 8c 20  73 70 72 24 3d 22 64 69  |r$="" . spr$="di|
000046f0  73 61 62 6c 65 64 22 0d  02 63 63 69 63 6f 6e 31  |sabled"..ccicon1|
00004700  32 25 3d a4 77 69 6d 70  5f 63 72 65 61 74 65 69  |2%=.wimp_createi|
00004710  63 6f 6e 28 73 74 72 69  70 25 2c 38 2c 2d 37 32  |con(strip%,8,-72|
00004720  34 2c 36 30 2c 2d 36 37  32 2c 25 31 30 31 30 31  |4,60,-672,%10101|
00004730  31 31 31 31 2c 30 2c 31  2c 31 2c 31 2c 30 2c 22  |1111,0,1,1,1,0,"|
00004740  22 2c 22 22 2c 30 2c 37  2c 62 69 74 31 24 2b 73  |","",0,7,bit1$+s|
00004750  70 72 24 2b 62 69 74 32  24 29 0d 02 64 2a f4 20  |pr$+bit2$)..d*. |
00004760  43 6f 6e 66 69 67 75 72  65 20 6c 69 6e 6b 20 28  |Configure link (|
00004770  69 2e 65 2e 20 74 68 65  20 21 42 6f 6f 74 20 69  |i.e. the !Boot i|
00004780  63 6f 6e 29 0d 02 65 68  69 63 6f 6e 31 33 25 3d  |con)..ehicon13%=|
00004790  a4 77 69 6d 70 5f 63 72  65 61 74 65 69 63 6f 6e  |.wimp_createicon|
000047a0  28 73 74 72 69 70 25 2c  38 2c 2d 38 30 34 2c 36  |(strip%,8,-804,6|
000047b0  30 2c 2d 37 35 32 2c 25  31 30 31 30 31 31 31 31  |0,-752,%10101111|
000047c0  31 2c 30 2c 31 2c 32 2c  32 2c 30 2c 22 22 2c 22  |1,0,1,2,2,0,"","|
000047d0  22 2c 30 2c 37 2c 62 69  74 31 24 2b 22 73 6d 21  |",0,7,bit1$+"sm!|
000047e0  42 6f 6f 74 22 2b 62 69  74 32 24 29 0d 02 66 05  |Boot"+bit2$)..f.|
000047f0  e1 0d 02 67 05 3a 0d 02  68 10 dd 20 f2 73 70 6c  |...g.:..h.. .spl|
00004800  69 74 28 73 24 29 0d 02  69 34 f4 20 4c 6f 61 64  |it(s$)..i4. Load|
00004810  73 20 54 65 6d 70 24 28  29 20 77 69 74 68 20 65  |s Temp$() with e|
00004820  61 63 68 20 63 6f 6d 6d  61 2d 73 65 70 61 72 61  |ach comma-separa|
00004830  74 65 64 20 73 74 72 69  6e 67 0d 02 6a 24 f4 20  |ted string..j$. |
00004840  54 68 69 73 20 70 72 6f  63 20 28 43 29 20 47 72  |This proc (C) Gr|
00004850  61 68 61 6d 20 43 72 6f  77 20 31 39 39 37 0d 02  |aham Crow 1997..|
00004860  6b 0b ea 20 63 25 2c 6e  25 0d 02 6c 14 54 65 6d  |k.. c%,n%..l.Tem|
00004870  70 24 28 29 3d 22 20 22  3a 63 25 3d 31 0d 02 6d  |p$()=" ":c%=1..m|
00004880  11 c8 95 20 a7 73 24 2c  22 2c 22 29 3e 30 0d 02  |... .s$,",")>0..|
00004890  6e 11 20 20 6e 25 3d a7  73 24 2c 22 2c 22 29 0d  |n.  n%=.s$,",").|
000048a0  02 6f 19 20 20 54 65 6d  70 24 28 63 25 29 3d c0  |.o.  Temp$(c%)=.|
000048b0  73 24 2c 6e 25 2d 31 29  0d 02 70 15 20 20 73 24  |s$,n%-1)..p.  s$|
000048c0  3d c2 73 24 2c a9 20 73  24 2d 6e 25 29 0d 02 71  |=.s$,. s$-n%)..q|
000048d0  0b 20 20 63 25 2b 3d 31  0d 02 72 05 ce 0d 02 73  |.  c%+=1..r....s|
000048e0  10 54 65 6d 70 24 28 63  25 29 3d 73 24 0d 02 74  |.Temp$(c%)=s$..t|
000048f0  05 e1 0d 02 75 05 3a 0d  02 76 12 dd 20 f2 73 61  |....u.:..v.. .sa|
00004900  76 65 65 64 69 74 62 6f  78 0d 02 77 2d 66 69 6c  |veeditbox..w-fil|
00004910  65 25 3d ae 28 22 3c 6f  66 66 69 63 65 24 44 69  |e%=.("<office$Di|
00004920  72 3e 2e 52 65 73 6f 75  72 63 65 73 2e 43 68 6f  |r>.Resources.Cho|
00004930  69 63 65 73 22 29 0d 02  78 1e f4 20 4e 75 6d 62  |ices")..x.. Numb|
00004940  65 72 20 6f 66 20 62 75  74 74 6f 6e 73 20 6f 6e  |er of buttons on|
00004950  20 62 61 72 0d 02 79 10  d5 23 66 69 6c 65 25 2c  | bar..y..#file%,|
00004960  22 31 32 22 0d 02 7a 20  f4 20 53 61 76 65 20 6c  |"12"..z . Save l|
00004970  6f 63 61 74 69 6f 6e 20  6f 66 20 63 6f 6e 66 69  |ocation of confi|
00004980  67 75 72 65 0d 02 7b 23  d5 23 66 69 6c 65 25 2c  |gure..{#.#file%,|
00004990  22 43 6f 6e 66 69 67 75  72 65 20 6f 72 20 73 68  |"Configure or sh|
000049a0  75 74 64 6f 77 6e 22 0d  02 7c 16 d5 23 66 69 6c  |utdown"..|..#fil|
000049b0  65 25 2c 63 6f 6e 66 69  67 72 75 6e 24 0d 02 7d  |e%,configrun$..}|
000049c0  17 f4 20 53 61 76 65 20  64 65 73 63 72 69 70 74  |.. Save descript|
000049d0  69 6f 6e 73 0d 02 7e 25  79 24 3d a4 77 69 6d 70  |ions..~%y$=.wimp|
000049e0  5f 67 65 74 69 63 6f 6e  74 65 78 74 28 65 64 69  |_geticontext(edi|
000049f0  74 70 61 6e 65 25 2c 31  29 0d 02 7f 26 78 24 3d  |tpane%,1)...&x$=|
00004a00  a4 77 69 6d 70 5f 67 65  74 69 63 6f 6e 74 65 78  |.wimp_geticontex|
00004a10  74 28 65 64 69 74 70 61  6e 65 25 2c 31 33 29 0d  |t(editpane%,13).|
00004a20  02 80 26 7a 24 3d a4 77  69 6d 70 5f 67 65 74 69  |..&z$=.wimp_geti|
00004a30  63 6f 6e 74 65 78 74 28  65 64 69 74 70 61 6e 65  |context(editpane|
00004a40  25 2c 32 35 29 0d 02 81  1c d5 23 66 69 6c 65 25  |%,25).....#file%|
00004a50  2c 79 24 2b 22 2c 22 2b  78 24 2b 22 2c 22 2b 7a  |,y$+","+x$+","+z|
00004a60  24 0d 02 82 25 79 24 3d  a4 77 69 6d 70 5f 67 65  |$...%y$=.wimp_ge|
00004a70  74 69 63 6f 6e 74 65 78  74 28 65 64 69 74 70 61  |ticontext(editpa|
00004a80  6e 65 25 2c 32 29 0d 02  83 26 78 24 3d a4 77 69  |ne%,2)...&x$=.wi|
00004a90  6d 70 5f 67 65 74 69 63  6f 6e 74 65 78 74 28 65  |mp_geticontext(e|
00004aa0  64 69 74 70 61 6e 65 25  2c 31 34 29 0d 02 84 26  |ditpane%,14)...&|
00004ab0  7a 24 3d a4 77 69 6d 70  5f 67 65 74 69 63 6f 6e  |z$=.wimp_geticon|
00004ac0  74 65 78 74 28 65 64 69  74 70 61 6e 65 25 2c 32  |text(editpane%,2|
00004ad0  36 29 0d 02 85 1c d5 23  66 69 6c 65 25 2c 79 24  |6).....#file%,y$|
00004ae0  2b 22 2c 22 2b 78 24 2b  22 2c 22 2b 7a 24 0d 02  |+","+x$+","+z$..|
00004af0  86 25 79 24 3d a4 77 69  6d 70 5f 67 65 74 69 63  |.%y$=.wimp_getic|
00004b00  6f 6e 74 65 78 74 28 65  64 69 74 70 61 6e 65 25  |ontext(editpane%|
00004b10  2c 33 29 0d 02 87 26 78  24 3d a4 77 69 6d 70 5f  |,3)...&x$=.wimp_|
00004b20  67 65 74 69 63 6f 6e 74  65 78 74 28 65 64 69 74  |geticontext(edit|
00004b30  70 61 6e 65 25 2c 31 35  29 0d 02 88 26 7a 24 3d  |pane%,15)...&z$=|
00004b40  a4 77 69 6d 70 5f 67 65  74 69 63 6f 6e 74 65 78  |.wimp_geticontex|
00004b50  74 28 65 64 69 74 70 61  6e 65 25 2c 32 37 29 0d  |t(editpane%,27).|
00004b60  02 89 1c d5 23 66 69 6c  65 25 2c 79 24 2b 22 2c  |....#file%,y$+",|
00004b70  22 2b 78 24 2b 22 2c 22  2b 7a 24 0d 02 8a 25 79  |"+x$+","+z$...%y|
00004b80  24 3d a4 77 69 6d 70 5f  67 65 74 69 63 6f 6e 74  |$=.wimp_geticont|
00004b90  65 78 74 28 65 64 69 74  70 61 6e 65 25 2c 34 29  |ext(editpane%,4)|
00004ba0  0d 02 8b 26 78 24 3d a4  77 69 6d 70 5f 67 65 74  |...&x$=.wimp_get|
00004bb0  69 63 6f 6e 74 65 78 74  28 65 64 69 74 70 61 6e  |icontext(editpan|
00004bc0  65 25 2c 31 36 29 0d 02  8c 26 7a 24 3d a4 77 69  |e%,16)...&z$=.wi|
00004bd0  6d 70 5f 67 65 74 69 63  6f 6e 74 65 78 74 28 65  |mp_geticontext(e|
00004be0  64 69 74 70 61 6e 65 25  2c 32 38 29 0d 02 8d 1c  |ditpane%,28)....|
00004bf0  d5 23 66 69 6c 65 25 2c  79 24 2b 22 2c 22 2b 78  |.#file%,y$+","+x|
00004c00  24 2b 22 2c 22 2b 7a 24  0d 02 8e 25 79 24 3d a4  |$+","+z$...%y$=.|
00004c10  77 69 6d 70 5f 67 65 74  69 63 6f 6e 74 65 78 74  |wimp_geticontext|
00004c20  28 65 64 69 74 70 61 6e  65 25 2c 35 29 0d 02 8f  |(editpane%,5)...|
00004c30  26 78 24 3d a4 77 69 6d  70 5f 67 65 74 69 63 6f  |&x$=.wimp_getico|
00004c40  6e 74 65 78 74 28 65 64  69 74 70 61 6e 65 25 2c  |ntext(editpane%,|
00004c50  31 37 29 0d 02 90 26 7a  24 3d a4 77 69 6d 70 5f  |17)...&z$=.wimp_|
00004c60  67 65 74 69 63 6f 6e 74  65 78 74 28 65 64 69 74  |geticontext(edit|
00004c70  70 61 6e 65 25 2c 32 39  29 0d 02 91 1c d5 23 66  |pane%,29).....#f|
00004c80  69 6c 65 25 2c 79 24 2b  22 2c 22 2b 78 24 2b 22  |ile%,y$+","+x$+"|
00004c90  2c 22 2b 7a 24 0d 02 92  25 79 24 3d a4 77 69 6d  |,"+z$...%y$=.wim|
00004ca0  70 5f 67 65 74 69 63 6f  6e 74 65 78 74 28 65 64  |p_geticontext(ed|
00004cb0  69 74 70 61 6e 65 25 2c  36 29 0d 02 93 26 78 24  |itpane%,6)...&x$|
00004cc0  3d a4 77 69 6d 70 5f 67  65 74 69 63 6f 6e 74 65  |=.wimp_geticonte|
00004cd0  78 74 28 65 64 69 74 70  61 6e 65 25 2c 31 38 29  |xt(editpane%,18)|
00004ce0  0d 02 94 26 7a 24 3d a4  77 69 6d 70 5f 67 65 74  |...&z$=.wimp_get|
00004cf0  69 63 6f 6e 74 65 78 74  28 65 64 69 74 70 61 6e  |icontext(editpan|
00004d00  65 25 2c 33 30 29 0d 02  95 1c d5 23 66 69 6c 65  |e%,30).....#file|
00004d10  25 2c 79 24 2b 22 2c 22  2b 78 24 2b 22 2c 22 2b  |%,y$+","+x$+","+|
00004d20  7a 24 0d 02 96 25 79 24  3d a4 77 69 6d 70 5f 67  |z$...%y$=.wimp_g|
00004d30  65 74 69 63 6f 6e 74 65  78 74 28 65 64 69 74 70  |eticontext(editp|
00004d40  61 6e 65 25 2c 37 29 0d  02 97 26 78 24 3d a4 77  |ane%,7)...&x$=.w|
00004d50  69 6d 70 5f 67 65 74 69  63 6f 6e 74 65 78 74 28  |imp_geticontext(|
00004d60  65 64 69 74 70 61 6e 65  25 2c 31 39 29 0d 02 98  |editpane%,19)...|
00004d70  26 7a 24 3d a4 77 69 6d  70 5f 67 65 74 69 63 6f  |&z$=.wimp_getico|
00004d80  6e 74 65 78 74 28 65 64  69 74 70 61 6e 65 25 2c  |ntext(editpane%,|
00004d90  33 31 29 0d 02 99 1c d5  23 66 69 6c 65 25 2c 79  |31).....#file%,y|
00004da0  24 2b 22 2c 22 2b 78 24  2b 22 2c 22 2b 7a 24 0d  |$+","+x$+","+z$.|
00004db0  02 9a 25 79 24 3d a4 77  69 6d 70 5f 67 65 74 69  |..%y$=.wimp_geti|
00004dc0  63 6f 6e 74 65 78 74 28  65 64 69 74 70 61 6e 65  |context(editpane|
00004dd0  25 2c 38 29 0d 02 9b 26  78 24 3d a4 77 69 6d 70  |%,8)...&x$=.wimp|
00004de0  5f 67 65 74 69 63 6f 6e  74 65 78 74 28 65 64 69  |_geticontext(edi|
00004df0  74 70 61 6e 65 25 2c 32  30 29 0d 02 9c 26 7a 24  |tpane%,20)...&z$|
00004e00  3d a4 77 69 6d 70 5f 67  65 74 69 63 6f 6e 74 65  |=.wimp_geticonte|
00004e10  78 74 28 65 64 69 74 70  61 6e 65 25 2c 33 32 29  |xt(editpane%,32)|
00004e20  0d 02 9d 1c d5 23 66 69  6c 65 25 2c 79 24 2b 22  |.....#file%,y$+"|
00004e30  2c 22 2b 78 24 2b 22 2c  22 2b 7a 24 0d 02 9e 25  |,"+x$+","+z$...%|
00004e40  79 24 3d a4 77 69 6d 70  5f 67 65 74 69 63 6f 6e  |y$=.wimp_geticon|
00004e50  74 65 78 74 28 65 64 69  74 70 61 6e 65 25 2c 39  |text(editpane%,9|
00004e60  29 0d 02 9f 26 78 24 3d  a4 77 69 6d 70 5f 67 65  |)...&x$=.wimp_ge|
00004e70  74 69 63 6f 6e 74 65 78  74 28 65 64 69 74 70 61  |ticontext(editpa|
00004e80  6e 65 25 2c 32 31 29 0d  02 a0 26 7a 24 3d a4 77  |ne%,21)...&z$=.w|
00004e90  69 6d 70 5f 67 65 74 69  63 6f 6e 74 65 78 74 28  |imp_geticontext(|
00004ea0  65 64 69 74 70 61 6e 65  25 2c 33 33 29 0d 02 a1  |editpane%,33)...|
00004eb0  1c d5 23 66 69 6c 65 25  2c 79 24 2b 22 2c 22 2b  |..#file%,y$+","+|
00004ec0  78 24 2b 22 2c 22 2b 7a  24 0d 02 a2 26 79 24 3d  |x$+","+z$...&y$=|
00004ed0  a4 77 69 6d 70 5f 67 65  74 69 63 6f 6e 74 65 78  |.wimp_geticontex|
00004ee0  74 28 65 64 69 74 70 61  6e 65 25 2c 31 30 29 0d  |t(editpane%,10).|
00004ef0  02 a3 26 78 24 3d a4 77  69 6d 70 5f 67 65 74 69  |..&x$=.wimp_geti|
00004f00  63 6f 6e 74 65 78 74 28  65 64 69 74 70 61 6e 65  |context(editpane|
00004f10  25 2c 32 32 29 0d 02 a4  26 7a 24 3d a4 77 69 6d  |%,22)...&z$=.wim|
00004f20  70 5f 67 65 74 69 63 6f  6e 74 65 78 74 28 65 64  |p_geticontext(ed|
00004f30  69 74 70 61 6e 65 25 2c  33 34 29 0d 02 a5 1c d5  |itpane%,34).....|
00004f40  23 66 69 6c 65 25 2c 79  24 2b 22 2c 22 2b 78 24  |#file%,y$+","+x$|
00004f50  2b 22 2c 22 2b 7a 24 0d  02 a6 26 79 24 3d a4 77  |+","+z$...&y$=.w|
00004f60  69 6d 70 5f 67 65 74 69  63 6f 6e 74 65 78 74 28  |imp_geticontext(|
00004f70  65 64 69 74 70 61 6e 65  25 2c 31 31 29 0d 02 a7  |editpane%,11)...|
00004f80  26 78 24 3d a4 77 69 6d  70 5f 67 65 74 69 63 6f  |&x$=.wimp_getico|
00004f90  6e 74 65 78 74 28 65 64  69 74 70 61 6e 65 25 2c  |ntext(editpane%,|
00004fa0  32 33 29 0d 02 a8 26 7a  24 3d a4 77 69 6d 70 5f  |23)...&z$=.wimp_|
00004fb0  67 65 74 69 63 6f 6e 74  65 78 74 28 65 64 69 74  |geticontext(edit|
00004fc0  70 61 6e 65 25 2c 33 35  29 0d 02 a9 1c d5 23 66  |pane%,35).....#f|
00004fd0  69 6c 65 25 2c 79 24 2b  22 2c 22 2b 78 24 2b 22  |ile%,y$+","+x$+"|
00004fe0  2c 22 2b 7a 24 0d 02 aa  26 79 24 3d a4 77 69 6d  |,"+z$...&y$=.wim|
00004ff0  70 5f 67 65 74 69 63 6f  6e 74 65 78 74 28 65 64  |p_geticontext(ed|
00005000  69 74 70 61 6e 65 25 2c  31 32 29 0d 02 ab 26 78  |itpane%,12)...&x|
00005010  24 3d a4 77 69 6d 70 5f  67 65 74 69 63 6f 6e 74  |$=.wimp_geticont|
00005020  65 78 74 28 65 64 69 74  70 61 6e 65 25 2c 32 34  |ext(editpane%,24|
00005030  29 0d 02 ac 26 7a 24 3d  a4 77 69 6d 70 5f 67 65  |)...&z$=.wimp_ge|
00005040  74 69 63 6f 6e 74 65 78  74 28 65 64 69 74 70 61  |ticontext(editpa|
00005050  6e 65 25 2c 33 36 29 0d  02 ad 1c d5 23 66 69 6c  |ne%,36).....#fil|
00005060  65 25 2c 79 24 2b 22 2c  22 2b 78 24 2b 22 2c 22  |e%,y$+","+x$+","|
00005070  2b 7a 24 0d 02 ae 2b f4  20 2a 2a 2a 20 54 68 65  |+z$...+. *** The|
00005080  20 6c 61 73 74 20 6c 69  6e 65 20 6d 75 73 74 20  | last line must |
00005090  61 6c 77 61 79 73 20 62  65 20 74 65 78 74 0d 02  |always be text..|
000050a0  af 28 d5 23 66 69 6c 65  25 2c 22 43 6f 70 79 72  |.(.#file%,"Copyr|
000050b0  69 67 68 74 20 50 65 74  65 72 20 50 72 69 63 65  |ight Peter Price|
000050c0  20 31 39 39 38 22 0d 02  b0 0b d9 23 66 69 6c 65  | 1998".....#file|
000050d0  25 0d 02 b1 28 20 20 f4  20 2a 2a 20 63 6c 6f 73  |%...(  . ** clos|
000050e0  65 20 74 68 65 20 65 64  69 74 20 77 69 6e 64 6f  |e the edit windo|
000050f0  77 20 6e 65 78 74 2e 2e  2e 0d 02 b2 20 f2 77 69  |w next...... .wi|
00005100  6d 70 5f 63 6c 6f 73 65  77 69 6e 64 6f 77 28 65  |mp_closewindow(e|
00005110  64 69 74 70 61 6e 65 25  29 0d 02 b3 1f f2 77 69  |ditpane%).....wi|
00005120  6d 70 5f 63 6c 6f 73 65  77 69 6e 64 6f 77 28 65  |mp_closewindow(e|
00005130  64 69 74 62 6f 78 25 29  0d 02 b4 05 e1 0d 02 b5  |ditbox%)........|
00005140  05 3a 0d 02 b6 17 dd 20  f2 73 74 72 69 70 68 65  |.:..... .striphe|
00005150  6c 70 28 69 63 6f 6e 25  29 0d 02 b7 18 6c 6f 6f  |lp(icon%)....loo|
00005160  6b 75 70 24 3d 68 65 6c  70 24 28 69 63 6f 6e 25  |kup$=help$(icon%|
00005170  29 0d 02 b8 36 e7 20 6c  6f 6f 6b 75 70 24 3d 22  |)...6. lookup$="|
00005180  22 20 8c 20 68 24 3d 22  4e 6f 20 68 65 6c 70 20  |" . h$="No help |
00005190  61 76 61 6c 69 62 6c 65  2e 22 20 8b 20 68 24 3d  |avalible." . h$=|
000051a0  6c 6f 6f 6b 75 70 24 0d  02 b9 05 cd 0d 02 ba 05  |lookup$.........|
000051b0  e1 0d 02 bb 05 3a 0d 02  bc 14 dd 20 f2 64 65 66  |.....:..... .def|
000051c0  69 6e 65 6f 70 74 69 6f  6e 73 0d 02 bd 29 f4 20  |ineoptions...). |
000051d0  4c 6f 61 64 20 64 65 66  69 6e 69 74 69 6f 6e 73  |Load definitions|
000051e0  20 66 72 6f 6d 20 74 68  65 20 44 61 74 61 20 66  | from the Data f|
000051f0  69 6c 65 0d 02 be 27 59  25 3d ad 28 22 3c 6f 66  |ile...'Y%=.("<of|
00005200  66 69 63 65 24 44 69 72  3e 2e 52 65 73 6f 75 72  |fice$Dir>.Resour|
00005210  63 65 73 2e 44 61 74 61  22 29 0d 02 bf 1e 20 20  |ces.Data")....  |
00005220  20 73 24 3d be 23 59 25  3a 63 6f 6e 66 69 67 5f  | s$=.#Y%:config_|
00005230  6c 61 6e 67 24 3d 73 24  0d 02 c0 24 20 20 20 73  |lang$=s$...$   s|
00005240  24 3d be 23 59 25 3a 63  6f 6e 66 69 67 5f 62 61  |$=.#Y%:config_ba|
00005250  72 73 74 61 72 74 75 70  24 3d 73 24 0d 02 c1 25  |rstartup$=s$...%|
00005260  20 20 20 73 24 3d be 23  59 25 3a 63 6f 6e 66 69  |   s$=.#Y%:confi|
00005270  67 5f 73 74 61 72 74 62  61 6e 6e 65 72 24 3d 73  |g_startbanner$=s|
00005280  24 0d 02 c2 08 d9 23 59  25 0d 02 c3 65 e7 20 63  |$.....#Y%...e. c|
00005290  6f 6e 66 69 67 5f 6c 61  6e 67 24 3d 22 30 31 22  |onfig_lang$="01"|
000052a0  20 8c 20 63 6f 6e 5f 6f  6e 65 24 3d 22 45 6e 67  | . con_one$="Eng|
000052b0  6c 69 73 68 22 3a f2 77  69 6d 70 5f 69 6e 69 74  |lish":.wimp_init|
000052c0  6d 65 73 73 61 67 65 73  28 22 3c 6f 66 66 69 63  |messages("<offic|
000052d0  65 24 44 69 72 3e 2e 52  65 73 6f 75 72 63 65 73  |e$Dir>.Resources|
000052e0  2e 55 4b 2e 4d 65 73 73  61 67 65 73 22 29 0d 02  |.UK.Messages")..|
000052f0  c4 69 e7 20 63 6f 6e 66  69 67 5f 6c 61 6e 67 24  |.i. config_lang$|
00005300  3d 22 30 32 22 20 8c 20  63 6f 6e 5f 6f 6e 65 24  |="02" . con_one$|
00005310  3d 22 47 65 72 6d 61 6e  22 3a f2 77 69 6d 70 5f  |="German":.wimp_|
00005320  69 6e 69 74 6d 65 73 73  61 67 65 73 28 22 3c 6f  |initmessages("<o|
00005330  66 66 69 63 65 24 44 69  72 3e 2e 52 65 73 6f 75  |ffice$Dir>.Resou|
00005340  72 63 65 73 2e 47 65 72  6d 61 6e 79 2e 4d 65 73  |rces.Germany.Mes|
00005350  73 61 67 65 73 22 29 0d  02 c5 05 cd 0d 02 c6 2e  |sages").........|
00005360  e7 20 63 6f 6e 66 69 67  5f 62 61 72 73 74 61 72  |. config_barstar|
00005370  74 75 70 24 3d 22 30 31  22 20 8c 20 63 6f 6e 5f  |tup$="01" . con_|
00005380  74 77 6f 24 3d 22 59 65  73 22 0d 02 c7 2d e7 20  |two$="Yes"...-. |
00005390  63 6f 6e 66 69 67 5f 62  61 72 73 74 61 72 74 75  |config_barstartu|
000053a0  70 24 3d 22 30 32 22 20  8c 20 63 6f 6e 5f 74 77  |p$="02" . con_tw|
000053b0  6f 24 3d 22 4e 6f 22 0d  02 c8 05 cd 0d 02 c9 31  |o$="No"........1|
000053c0  e7 20 63 6f 6e 66 69 67  5f 73 74 61 72 74 62 61  |. config_startba|
000053d0  6e 6e 65 72 24 3d 22 30  31 22 20 8c 20 63 6f 6e  |nner$="01" . con|
000053e0  5f 74 68 72 65 65 24 3d  22 59 65 73 22 0d 02 ca  |_three$="Yes"...|
000053f0  30 e7 20 63 6f 6e 66 69  67 5f 73 74 61 72 74 62  |0. config_startb|
00005400  61 6e 6e 65 72 24 3d 22  30 32 22 20 8c 20 63 6f  |anner$="02" . co|
00005410  6e 5f 74 68 72 65 65 24  3d 22 4e 6f 22 0d 02 cb  |n_three$="No"...|
00005420  05 cd 0d 02 cc 05 e1 0d  02 cd 05 3a 0d 02 ce 11  |...........:....|
00005430  dd 20 f2 6f 70 65 6e 63  6f 6e 66 69 67 0d 02 cf  |. .openconfig...|
00005440  12 f2 64 65 66 69 6e 65  6f 70 74 69 6f 6e 73 0d  |..defineoptions.|
00005450  02 d0 15 f4 20 4f 70 65  6e 20 74 68 65 20 77 69  |.... Open the wi|
00005460  6e 64 6f 77 0d 02 d1 26  f2 77 69 6d 70 5f 6f 70  |ndow...&.wimp_op|
00005470  65 6e 77 69 6e 64 6f 77  28 63 6f 6e 66 69 67 5f  |enwindow(config_|
00005480  62 6f 78 25 2c 30 2c 2d  31 29 0d 02 d2 45 f2 77  |box%,0,-1)...E.w|
00005490  69 6d 70 5f 70 75 74 69  63 6f 6e 74 65 78 74 28  |imp_puticontext(|
000054a0  63 6f 6e 66 69 67 5f 70  61 6e 65 25 2c 35 2c 63  |config_pane%,5,c|
000054b0  6f 6e 5f 6f 6e 65 24 29  20 3a f4 20 53 65 74 20  |on_one$) :. Set |
000054c0  6c 61 6e 67 75 61 67 65  20 6f 70 74 69 6f 6e 0d  |language option.|
000054d0  02 d3 39 e7 20 63 6f 6e  5f 74 77 6f 24 3d 22 59  |..9. con_two$="Y|
000054e0  65 73 22 20 8c 20 f2 77  69 6d 70 5f 69 63 6f 6e  |es" . .wimp_icon|
000054f0  73 65 6c 65 63 74 28 63  6f 6e 66 69 67 5f 70 61  |select(config_pa|
00005500  6e 65 25 2c 36 2c 31 29  0d 02 d4 38 e7 20 63 6f  |ne%,6,1)...8. co|
00005510  6e 5f 74 77 6f 24 3d 22  4e 6f 22 20 8c 20 f2 77  |n_two$="No" . .w|
00005520  69 6d 70 5f 69 63 6f 6e  73 65 6c 65 63 74 28 63  |imp_iconselect(c|
00005530  6f 6e 66 69 67 5f 70 61  6e 65 25 2c 36 2c 30 29  |onfig_pane%,6,0)|
00005540  0d 02 d5 05 cd 0d 02 d6  3b e7 20 63 6f 6e 5f 74  |........;. con_t|
00005550  68 72 65 65 24 3d 22 59  65 73 22 20 8c 20 f2 77  |hree$="Yes" . .w|
00005560  69 6d 70 5f 69 63 6f 6e  73 65 6c 65 63 74 28 63  |imp_iconselect(c|
00005570  6f 6e 66 69 67 5f 70 61  6e 65 25 2c 37 2c 31 29  |onfig_pane%,7,1)|
00005580  0d 02 d7 3a e7 20 63 6f  6e 5f 74 68 72 65 65 24  |...:. con_three$|
00005590  3d 22 4e 6f 22 20 8c 20  f2 77 69 6d 70 5f 69 63  |="No" . .wimp_ic|
000055a0  6f 6e 73 65 6c 65 63 74  28 63 6f 6e 66 69 67 5f  |onselect(config_|
000055b0  70 61 6e 65 25 2c 37 2c  30 29 0d 02 d8 05 cd 0d  |pane%,7,0)......|
000055c0  02 d9 05 e1 0d 02 da 05  3a 0d 02 db 17 dd 20 a4  |........:..... .|
000055d0  72 65 67 69 73 74 65 72  65 64 28 66 73 70 24 29  |registered(fsp$)|
000055e0  0d 02 dc 25 ea 20 46 25  2c 72 65 67 25 2c 70 72  |...%. F%,reg%,pr|
000055f0  65 73 65 6e 74 25 2c 74  79 70 65 25 2c 66 69 6c  |esent%,type%,fil|
00005600  65 6c 65 6e 25 0d 02 dd  1c ea 20 67 61 70 25 2c  |elen%..... gap%,|
00005610  74 65 73 74 6c 65 6e 25  2c 6e 61 6d 65 6c 65 6e  |testlen%,namelen|
00005620  25 0d 02 de 0a 72 65 67  25 3d b9 0d 02 df 1a f4  |%....reg%=......|
00005630  20 49 73 20 74 68 65 20  66 69 6c 65 20 70 72 65  | Is the file pre|
00005640  73 65 6e 74 3f 0d 02 e0  0f e7 20 66 73 70 24 3d  |sent?..... fsp$=|
00005650  22 22 20 8c 0d 02 e1 0f  20 70 72 65 73 65 6e 74  |"" ..... present|
00005660  25 3d a3 0d 02 e2 05 cc  0d 02 e3 24 20 c8 99 20  |%=.........$ .. |
00005670  22 4f 53 5f 46 69 6c 65  22 2c 31 33 2c 66 73 70  |"OS_File",13,fsp|
00005680  24 20 b8 20 70 72 65 73  65 6e 74 25 0d 02 e4 05  |$ . present%....|
00005690  cd 0d 02 e5 12 e7 20 70  72 65 73 65 6e 74 25 3d  |...... present%=|
000056a0  30 20 8c 0d 02 e6 0b 20  72 65 67 25 3d a3 0d 02  |0 ..... reg%=...|
000056b0  e7 05 cc 0d 02 e8 1c 20  f4 20 43 68 65 63 6b 20  |....... . Check |
000056c0  74 79 70 65 20 61 6e 64  20 6c 65 6e 67 74 68 0d  |type and length.|
000056d0  02 e9 22 20 c8 99 20 22  4f 53 5f 46 69 6c 65 22  |.." .. "OS_File"|
000056e0  2c 35 2c 66 73 70 24 20  b8 20 2c 2c 74 79 70 65  |,5,fsp$ . ,,type|
000056f0  25 0d 02 ea 22 20 74 79  70 65 25 3d 28 74 79 70  |%..." type%=(typ|
00005700  65 25 20 80 20 26 46 46  46 30 30 29 20 81 20 26  |e% . &FFF00) . &|
00005710  31 30 30 0d 02 eb 27 20  c8 99 20 22 4f 53 5f 46  |100...' .. "OS_F|
00005720  69 6c 65 22 2c 35 2c 66  73 70 24 20 b8 20 2c 2c  |ile",5,fsp$ . ,,|
00005730  2c 2c 66 69 6c 65 6c 65  6e 25 0d 02 ec 0f 20 46  |,,filelen%.... F|
00005740  25 3d ad 28 66 73 70 24  29 0d 02 ed 1c 20 6e 61  |%=.(fsp$).... na|
00005750  6d 65 6c 65 6e 25 3d 9a  23 46 25 3a 67 61 70 25  |melen%=.#F%:gap%|
00005760  3d 9a 23 46 25 0d 02 ee  26 20 74 65 73 74 6c 65  |=.#F%...& testle|
00005770  6e 25 3d 28 67 61 70 25  2b 31 29 2a 6e 61 6d 65  |n%=(gap%+1)*name|
00005780  6c 65 6e 25 2b 32 2b 67  61 70 25 0d 02 ef 30 20  |len%+2+gap%...0 |
00005790  e7 20 74 79 70 65 25 3c  3e 26 46 46 44 20 84 20  |. type%<>&FFD . |
000057a0  66 69 6c 65 6c 65 6e 25  3c 3e 74 65 73 74 6c 65  |filelen%<>testle|
000057b0  6e 25 20 8c 20 72 65 67  25 3d a3 0d 02 f0 09 20  |n% . reg%=..... |
000057c0  d9 23 46 25 0d 02 f1 05  cd 0d 02 f2 09 3d 72 65  |.#F%.........=re|
000057d0  67 25 0d 02 f3 05 3a 0d  02 f4 13 dd 20 a4 64 65  |g%....:..... .de|
000057e0  63 6f 64 65 28 66 73 70  24 29 0d 02 f5 23 f4 20  |code(fsp$)...#. |
000057f0  45 78 74 72 61 63 74 20  75 73 65 72 27 73 20 6e  |Extract user's n|
00005800  61 6d 65 20 66 72 6f 6d  20 66 69 6c 65 0d 02 f6  |ame from file...|
00005810  27 ea 20 4a 25 2c 46 25  2c 63 6f 75 6e 74 25 2c  |'. J%,F%,count%,|
00005820  6c 65 6e 25 2c 67 61 70  25 2c 61 73 63 25 2c 6e  |len%,gap%,asc%,n|
00005830  61 6d 65 24 0d 02 f7 0e  46 25 3d ad 28 66 73 70  |ame$....F%=.(fsp|
00005840  24 29 0d 02 f8 0d 6c 65  6e 25 3d 9a 23 46 25 0d  |$)....len%=.#F%.|
00005850  02 f9 0d 67 61 70 25 3d  9a 23 46 25 0d 02 fa 15  |...gap%=.#F%....|
00005860  6e 61 6d 65 24 3d 22 22  3a 63 6f 75 6e 74 25 3d  |name$="":count%=|
00005870  31 0d 02 fb 05 f5 0d 02  fc 12 20 e3 20 4a 25 3d  |1......... . J%=|
00005880  31 20 b8 20 67 61 70 25  0d 02 fd 0f 20 20 61 73  |1 . gap%....  as|
00005890  63 25 3d 9a 23 46 25 0d  02 fe 06 20 ed 0d 02 ff  |c%=.#F%.... ....|
000058a0  0e 20 61 73 63 25 3d 9a  23 46 25 0d 03 00 12 20  |. asc%=.#F%.... |
000058b0  6e 61 6d 65 24 2b 3d bd  20 61 73 63 25 0d 03 01  |name$+=. asc%...|
000058c0  0e 20 63 6f 75 6e 74 25  2b 3d 31 0d 03 02 11 fd  |. count%+=1.....|
000058d0  20 63 6f 75 6e 74 25 3e  6c 65 6e 25 0d 03 03 08  | count%>len%....|
000058e0  d9 23 46 25 0d 03 04 0a  3d 6e 61 6d 65 24 0d 03  |.#F%....=name$..|
000058f0  05 05 3a 0d 03 0f 2c dd  20 f2 77 69 6d 70 5f 65  |..:...,. .wimp_e|
00005900  72 72 6f 72 28 74 69 74  6c 65 24 2c 65 72 72 6f  |rror(title$,erro|
00005910  72 24 2c 62 75 74 74 6f  6e 2c 66 72 6f 6d 29 0d  |r$,button,from).|
00005920  03 10 1b ea 20 70 72 65  24 2c 66 6c 61 67 73 25  |.... pre$,flags%|
00005930  2c 6f 6b 2c 63 61 6e 63  65 6c 0d 03 11 0b 70 72  |,ok,cancel....pr|
00005940  65 24 3d 22 22 0d 03 12  1f e7 20 66 72 6f 6d 3d  |e$=""..... from=|
00005950  31 20 70 72 65 24 3d 22  45 72 72 6f 72 20 66 72  |1 pre$="Error fr|
00005960  6f 6d 20 22 0d 03 13 21  e7 20 66 72 6f 6d 3d 32  |om "...!. from=2|
00005970  20 70 72 65 24 3d 22 4d  65 73 73 61 67 65 20 66  | pre$="Message f|
00005980  72 6f 6d 20 22 0d 03 14  12 66 72 6f 6d 3d 94 28  |rom "....from=.(|
00005990  31 2d 66 72 6f 6d 29 0d  03 15 1c e7 20 62 75 74  |1-from)..... but|
000059a0  74 6f 6e 3d 31 20 6f 6b  3d 31 3a 63 61 6e 63 65  |ton=1 ok=1:cance|
000059b0  6c 3d 30 0d 03 16 1c e7  20 62 75 74 74 6f 6e 3d  |l=0..... button=|
000059c0  32 20 6f 6b 3d 30 3a 63  61 6e 63 65 6c 3d 31 0d  |2 ok=0:cancel=1.|
000059d0  03 17 2e 66 6c 61 67 73  25 3d 6f 6b 2b 28 63 61  |...flags%=ok+(ca|
000059e0  6e 63 65 6c 3c 3c 31 29  2b 28 30 3c 3c 32 29 2b  |ncel<<1)+(0<<2)+|
000059f0  28 30 3c 3c 33 29 2b 28  31 3c 3c 34 29 0d 03 18  |(0<<3)+(1<<4)...|
00005a00  0d 77 69 6d 70 25 21 30  3d 30 0d 03 19 15 24 28  |.wimp%!0=0....$(|
00005a10  77 69 6d 70 25 2b 34 29  3d 65 72 72 6f 72 24 0d  |wimp%+4)=error$.|
00005a20  03 1a 31 c8 99 22 57 69  6d 70 5f 52 65 70 6f 72  |..1.."Wimp_Repor|
00005a30  74 45 72 72 6f 72 22 2c  77 69 6d 70 25 2c 66 6c  |tError",wimp%,fl|
00005a40  61 67 73 25 2c 70 72 65  24 2b 74 69 74 6c 65 24  |ags%,pre$+title$|
00005a50  0d 03 1b 05 e1 0d 03 1c  31 dd 20 a4 77 69 6d 70  |........1. .wimp|
00005a60  5f 69 6e 69 74 69 61 6c  69 73 65 28 6e 24 2c 77  |_initialise(n$,w|
00005a70  69 6d 70 6d 65 6d 25 2c  69 63 6f 6e 6d 65 6d 25  |impmem%,iconmem%|
00005a80  2c 76 65 72 25 29 0d 03  1d 0e de 20 77 6d 73 67  |,ver%)..... wmsg|
00005a90  73 25 20 33 0d 03 1e 0d  21 77 6d 73 67 73 25 3d  |s% 3....!wmsgs%=|
00005aa0  30 0d 03 1f 40 c8 99 22  57 69 6d 70 5f 49 6e 69  |0...@.."Wimp_Ini|
00005ab0  74 69 61 6c 69 73 65 22  2c 76 65 72 25 2c 26 34  |tialise",ver%,&4|
00005ac0  42 35 33 34 31 35 34 2c  6e 24 2c 77 6d 73 67 73  |B534154,n$,wmsgs|
00005ad0  25 20 b8 20 77 63 76 65  72 25 2c 77 74 61 73 6b  |% . wcver%,wtask|
00005ae0  25 0d 03 20 1f e7 20 77  69 6d 70 6d 65 6d 25 3c  |%.. .. wimpmem%<|
00005af0  32 35 36 20 77 69 6d 70  6d 65 6d 25 3d 32 35 36  |256 wimpmem%=256|
00005b00  0d 03 21 13 de 20 77 66  6f 6e 74 62 75 66 25 20  |..!.. wfontbuf% |
00005b10  32 35 36 0d 03 22 17 de  20 77 66 6f 6e 74 62 75  |256..".. wfontbu|
00005b20  66 74 65 6d 70 25 20 32  35 36 0d 03 23 0f e3 20  |ftemp% 256..#.. |
00005b30  4c 3d 30 20 b8 20 32 35  35 0d 03 24 13 20 20 77  |L=0 . 255..$.  w|
00005b40  66 6f 6e 74 62 75 66 25  3f 4c 3d 30 0d 03 25 07  |fontbuf%?L=0..%.|
00005b50  ed 20 4c 0d 03 26 12 de  20 77 6d 6f 75 73 65 62  |. L..&.. wmouseb|
00005b60  6c 6b 25 20 39 0d 03 27  14 de 20 77 71 75 69 74  |lk% 9..'.. wquit|
00005b70  73 65 6e 64 65 72 25 20  34 0d 03 28 10 de 20 77  |sender% 4..(.. w|
00005b80  74 62 6c 6b 25 20 33 32  30 0d 03 29 11 de 20 77  |tblk% 320..).. w|
00005b90  64 73 63 61 6c 65 25 20  38 30 0d 03 2a 12 de 20  |dscale% 80..*.. |
00005ba0  77 64 74 72 61 6e 73 25  20 33 30 30 0d 03 2b 14  |wdtrans% 300..+.|
00005bb0  de 20 77 69 6d 70 25 20  77 69 6d 70 6d 65 6d 25  |. wimp% wimpmem%|
00005bc0  0d 03 2c 84 e7 20 77 63  76 65 72 25 3c 76 65 72  |..,.. wcver%<ver|
00005bd0  25 20 f2 77 69 6d 70 5f  65 72 72 6f 72 28 22 57  |% .wimp_error("W|
00005be0  49 4d 50 22 2c 22 59 6f  75 20 6e 65 65 64 20 52  |IMP","You need R|
00005bf0  49 53 43 20 4f 53 20 22  2b c3 28 76 65 72 25 2f  |ISC OS "+.(ver%/|
00005c00  31 30 30 29 2b 22 20 6f  72 20 62 65 74 74 65 72  |100)+" or better|
00005c10  20 74 6f 20 72 75 6e 20  74 68 69 73 20 61 70 70  | to run this app|
00005c20  6c 69 63 61 74 69 6f 6e  2e 22 2c 31 2c 31 29 3a  |lication.",1,1):|
00005c30  c8 99 22 57 69 6d 70 5f  43 6c 6f 73 65 44 6f 77  |.."Wimp_CloseDow|
00005c40  6e 22 3a e0 0d 03 2d 16  de 20 77 69 63 6f 6e 73  |n":...-.. wicons|
00005c50  25 20 69 63 6f 6e 6d 65  6d 25 0d 03 2e 1e 77 69  |% iconmem%....wi|
00005c60  63 6f 6e 6d 61 78 25 3d  77 69 63 6f 6e 73 25 2b  |conmax%=wicons%+|
00005c70  69 63 6f 6e 6d 65 6d 25  0d 03 2f 0d 77 42 41 4e  |iconmem%../.wBAN|
00005c80  4e 45 52 3d a3 0d 03 30  0a 4e 55 4c 4c 3d a3 0d  |NER=...0.NULL=..|
00005c90  03 31 0f 66 69 6e 69 73  68 65 64 25 3d a3 0d 03  |.1.finished%=...|
00005ca0  32 10 77 70 72 69 6e 74  69 6e 67 25 3d a3 0d 03  |2.wprinting%=...|
00005cb0  33 20 77 73 61 76 65 64  72 61 67 25 3d 2d 31 3a  |3 wsavedrag%=-1:|
00005cc0  77 73 6c 69 64 65 64 72  61 67 25 3d 2d 31 0d 03  |wslidedrag%=-1..|
00005cd0  34 1f de 20 77 64 79 6e  61 6d 69 63 61 72 65 61  |4.. wdynamicarea|
00005ce0  25 28 28 33 30 2a 38 29  2d 31 2c 32 29 0d 03 35  |%((30*8)-1,2)..5|
00005cf0  10 77 64 79 6e 61 6d 69  63 73 25 3d 30 0d 03 36  |.wdynamics%=0..6|
00005d00  10 77 73 68 75 74 64 6f  77 6e 25 3d 30 0d 03 37  |.wshutdown%=0..7|
00005d10  14 f2 75 73 65 72 5f 69  6e 69 74 69 61 6c 69 73  |..user_initialis|
00005d20  65 0d 03 38 16 f2 77 69  6d 70 5f 63 68 65 63 6b  |e..8..wimp_check|
00005d30  66 6f 72 6c 6f 61 64 0d  03 39 0b 3d 77 74 61 73  |forload..9.=wtas|
00005d40  6b 25 0d 03 3a 10 dd 20  f2 77 69 6d 70 5f 70 6f  |k%..:.. .wimp_po|
00005d50  6c 6c 0d 03 3b 0d ea 20  72 65 61 73 6f 6e 25 0d  |ll..;.. reason%.|
00005d60  03 3c 05 f5 0d 03 3d 0f  66 69 6e 69 73 68 65 64  |.<....=.finished|
00005d70  25 3d a3 0d 03 3e 05 f5  0d 03 3f 29 c8 99 22 57  |%=...>....?).."W|
00005d80  69 6d 70 5f 50 6f 6c 6c  22 2c 30 2c 77 69 6d 70  |imp_Poll",0,wimp|
00005d90  25 20 b8 20 72 65 61 73  6f 6e 25 2c 77 69 6d 70  |% . reason%,wimp|
00005da0  25 0d 03 40 10 c8 8e 20  72 65 61 73 6f 6e 25 20  |%..@... reason% |
00005db0  ca 0d 03 41 18 c9 20 30  20 3a 20 f2 77 69 6d 70  |...A.. 0 : .wimp|
00005dc0  5f 70 6f 6c 6c 6e 75 6c  6c 0d 03 42 20 c9 20 31  |_pollnull..B . 1|
00005dd0  20 3a 20 f2 77 69 6d 70  5f 70 6f 6c 6c 72 65 64  | : .wimp_pollred|
00005de0  72 61 77 77 69 6e 64 6f  77 0d 03 43 1e c9 20 32  |rawwindow..C.. 2|
00005df0  20 3a 20 f2 77 69 6d 70  5f 70 6f 6c 6c 6f 70 65  | : .wimp_pollope|
00005e00  6e 77 69 6e 64 6f 77 0d  03 44 1f c9 20 33 20 3a  |nwindow..D.. 3 :|
00005e10  20 f2 77 69 6d 70 5f 70  6f 6c 6c 63 6c 6f 73 65  | .wimp_pollclose|
00005e20  77 69 6e 64 6f 77 0d 03  45 26 c9 20 34 20 3a 20  |window..E&. 4 : |
00005e30  f2 75 73 65 72 5f 6c 65  61 76 69 6e 67 77 69 6e  |.user_leavingwin|
00005e40  64 6f 77 28 77 69 6d 70  25 21 30 29 0d 03 46 27  |dow(wimp%!0)..F'|
00005e50  c9 20 35 20 3a 20 f2 75  73 65 72 5f 65 6e 74 65  |. 5 : .user_ente|
00005e60  72 69 6e 67 77 69 6e 64  6f 77 28 77 69 6d 70 25  |ringwindow(wimp%|
00005e70  21 30 29 0d 03 47 1e c9  20 36 20 3a 20 f2 77 69  |!0)..G.. 6 : .wi|
00005e80  6d 70 5f 70 6f 6c 6c 6d  6f 75 73 65 63 6c 69 63  |mp_pollmouseclic|
00005e90  6b 0d 03 48 1f c9 20 37  20 3a 20 f2 77 69 6d 70  |k..H.. 7 : .wimp|
00005ea0  5f 70 6f 6c 6c 73 61 76  65 6d 65 73 73 61 67 65  |_pollsavemessage|
00005eb0  0d 03 49 1c c9 20 38 20  3a 20 f2 77 69 6d 70 5f  |..I.. 8 : .wimp_|
00005ec0  70 6f 6c 6c 6b 65 79 70  72 65 73 73 0d 03 4a 21  |pollkeypress..J!|
00005ed0  c9 20 39 20 3a 20 f2 77  69 6d 70 5f 70 6f 6c 6c  |. 9 : .wimp_poll|
00005ee0  6d 65 6e 75 73 65 6c 65  63 74 69 6f 6e 0d 03 4b  |menuselection..K|
00005ef0  0a c9 20 31 30 20 3a 0d  03 4c 0a c9 20 31 31 20  |.. 10 :..L.. 11 |
00005f00  3a 0d 03 4d 0a c9 20 31  32 20 3a 0d 03 4e 0a c9  |:..M.. 12 :..N..|
00005f10  20 31 33 20 3a 0d 03 4f  0a c9 20 31 34 20 3a 0d  | 13 :..O.. 14 :.|
00005f20  03 50 0a c9 20 31 35 20  3a 0d 03 51 0a c9 20 31  |.P.. 15 :..Q.. 1|
00005f30  36 20 3a 0d 03 52 1f c9  20 31 37 2c 31 38 20 3a  |6 :..R.. 17,18 :|
00005f40  20 f2 77 69 6d 70 5f 70  6f 6c 6c 6d 65 73 73 61  | .wimp_pollmessa|
00005f50  67 65 0d 03 53 0a c9 20  31 39 20 3a 0d 03 54 05  |ge..S.. 19 :..T.|
00005f60  cb 0d 03 55 0f fd 20 66  69 6e 69 73 68 65 64 25  |...U.. finished%|
00005f70  0d 03 56 24 e7 20 77 73  68 75 74 64 6f 77 6e 25  |..V$. wshutdown%|
00005f80  3d 31 20 f2 77 69 6d 70  5f 63 6c 6f 73 65 64 6f  |=1 .wimp_closedo|
00005f90  77 6e 3a e1 0d 03 57 15  fd 20 a4 75 73 65 72 5f  |wn:...W.. .user_|
00005fa0  71 75 69 74 28 30 29 3d  31 0d 03 58 13 f2 77 69  |quit(0)=1..X..wi|
00005fb0  6d 70 5f 63 6c 6f 73 65  64 6f 77 6e 0d 03 59 05  |mp_closedown..Y.|
00005fc0  e1 0d 03 5a 25 dd 20 a4  77 69 6d 70 5f 6c 6f 61  |...Z%. .wimp_loa|
00005fd0  64 77 69 6e 64 6f 77 28  66 69 6c 65 24 2c 77 69  |dwindow(file$,wi|
00005fe0  6e 24 2c 73 70 29 0d 03  5b 2d ea 20 6e 61 6d 65  |n$,sp)..[-. name|
00005ff0  25 2c 77 68 61 6e 25 2c  69 63 6f 6e 73 25 2c 4c  |%,whan%,icons%,L|
00006000  2c 69 63 25 2c 69 6e 64  25 2c 73 70 72 25 2c 74  |,ic%,ind%,spr%,t|
00006010  78 74 25 0d 03 5c 0e de  20 6e 61 6d 65 25 20 31  |xt%..\.. name% 1|
00006020  31 0d 03 5d 0f e3 20 4c  3d 30 20 b8 20 32 35 35  |1..].. L=0 . 255|
00006030  0d 03 5e 17 20 20 77 66  6f 6e 74 62 75 66 74 65  |..^.  wfontbufte|
00006040  6d 70 25 3f 4c 3d 30 0d  03 5f 07 ed 20 4c 0d 03  |mp%?L=0.._.. L..|
00006050  60 20 c8 99 22 57 69 6d  70 5f 4f 70 65 6e 54 65  |` .."Wimp_OpenTe|
00006060  6d 70 6c 61 74 65 22 2c  2c 66 69 6c 65 24 0d 03  |mplate",,file$..|
00006070  61 0f 24 6e 61 6d 65 25  3d 77 69 6e 24 0d 03 62  |a.$name%=win$..b|
00006080  54 c8 99 22 57 69 6d 70  5f 4c 6f 61 64 54 65 6d  |T.."Wimp_LoadTem|
00006090  70 6c 61 74 65 22 2c 2c  77 69 6d 70 25 2c 77 69  |plate",,wimp%,wi|
000060a0  63 6f 6e 73 25 2c 77 69  63 6f 6e 6d 61 78 25 2c  |cons%,wiconmax%,|
000060b0  77 66 6f 6e 74 62 75 66  74 65 6d 70 25 2c 6e 61  |wfontbuftemp%,na|
000060c0  6d 65 25 2c 30 20 b8 20  2c 2c 77 69 63 6f 6e 73  |me%,0 . ,,wicons|
000060d0  25 0d 03 63 0f e3 20 4c  3d 30 20 b8 20 32 35 35  |%..c.. L=0 . 255|
000060e0  0d 03 64 26 20 20 e7 20  77 66 6f 6e 74 62 75 66  |..d&  . wfontbuf|
000060f0  74 65 6d 70 25 3f 4c 20  77 66 6f 6e 74 62 75 66  |temp%?L wfontbuf|
00006100  25 3f 4c 2b 3d 31 0d 03  65 07 ed 20 4c 0d 03 66  |%?L+=1..e.. L..f|
00006110  0c e7 20 73 70 3d 30 20  8c 0d 03 67 10 20 20 77  |.. sp=0 ...g.  w|
00006120  69 6d 70 25 21 36 34 3d  31 0d 03 68 05 cc 0d 03  |imp%!64=1..h....|
00006130  69 11 20 20 77 69 6d 70  25 21 36 34 3d 73 70 0d  |i.  wimp%!64=sp.|
00006140  03 6a 15 20 20 69 63 6f  6e 73 25 3d 77 69 6d 70  |.j.  icons%=wimp|
00006150  25 21 38 34 0d 03 6b 12  20 20 e7 20 69 63 6f 6e  |%!84..k.  . icon|
00006160  73 25 3e 30 20 8c 0d 03  6c 16 20 20 20 20 e3 20  |s%>0 ...l.    . |
00006170  4c 3d 31 20 b8 20 69 63  6f 6e 73 25 0d 03 6d 21  |L=1 . icons%..m!|
00006180  20 20 20 20 20 20 69 63  25 3d 77 69 6d 70 25 2b  |      ic%=wimp%+|
00006190  28 28 4c 2d 31 29 2a 33  32 29 2b 38 38 0d 03 6e  |((L-1)*32)+88..n|
000061a0  20 20 20 20 20 20 20 69  6e 64 25 3d 28 28 69 63  |       ind%=((ic|
000061b0  25 21 31 36 29 3e 3e 38  29 20 80 20 31 0d 03 6f  |%!16)>>8) . 1..o|
000061c0  20 20 20 20 20 20 20 73  70 72 25 3d 28 28 69 63  |       spr%=((ic|
000061d0  25 21 31 36 29 3e 3e 31  29 20 80 20 31 0d 03 70  |%!16)>>1) . 1..p|
000061e0  1b 20 20 20 20 20 20 74  78 74 25 3d 28 69 63 25  |.      txt%=(ic%|
000061f0  21 31 36 29 20 80 20 31  0d 03 71 26 20 20 20 20  |!16) . 1..q&    |
00006200  20 20 e7 20 69 6e 64 25  3d 31 20 80 20 73 70 72  |  . ind%=1 . spr|
00006210  25 3d 31 20 80 20 74 78  74 25 3d 30 20 8c 0d 03  |%=1 . txt%=0 ...|
00006220  72 23 20 20 20 20 20 20  20 20 e7 20 28 69 63 25  |r#        . (ic%|
00006230  21 32 38 29 3c 3e 30 20  69 63 25 21 32 34 3d 73  |!28)<>0 ic%!24=s|
00006240  70 0d 03 73 0b 20 20 20  20 20 20 cd 0d 03 74 0b  |p..s.      ...t.|
00006250  20 20 20 20 ed 20 4c 0d  03 75 07 20 20 cd 0d 03  |    . L..u.  ...|
00006260  76 05 cd 0d 03 77 28 c8  99 22 57 69 6d 70 5f 43  |v....w(.."Wimp_C|
00006270  72 65 61 74 65 57 69 6e  64 6f 77 22 2c 2c 77 69  |reateWindow",,wi|
00006280  6d 70 25 20 b8 20 77 68  61 6e 25 0d 03 78 1a c8  |mp% . whan%..x..|
00006290  99 22 57 69 6d 70 5f 43  6c 6f 73 65 54 65 6d 70  |."Wimp_CloseTemp|
000062a0  6c 61 74 65 22 0d 03 79  0a 3d 77 68 61 6e 25 0d  |late"..y.=whan%.|
000062b0  03 7a 1d dd 20 a4 77 69  6d 70 5f 6d 65 73 73 6c  |.z.. .wimp_messl|
000062c0  6f 6f 6b 30 28 74 6f 6b  65 6e 24 29 0d 03 7b 0c  |ook0(token$)..{.|
000062d0  ea 20 76 61 6c 75 65 24  0d 03 7c 4f c8 99 22 58  |. value$..|O.."X|
000062e0  4d 65 73 73 61 67 65 54  72 61 6e 73 5f 4c 6f 6f  |MessageTrans_Loo|
000062f0  6b 75 70 22 2c 77 6d 73  67 73 25 2c 74 6f 6b 65  |kup",wmsgs%,toke|
00006300  6e 24 2c 77 6d 73 67 5f  6f 75 74 25 2c 32 35 36  |n$,wmsg_out%,256|
00006310  2c 30 2c 30 2c 30 2c 30  20 b8 20 2c 2c 76 61 6c  |,0,0,0,0 . ,,val|
00006320  75 65 24 20 3b 66 25 0d  03 7d 14 e7 20 28 66 25  |ue$ ;f%..}.. (f%|
00006330  20 80 20 31 29 3d 31 20  3d 22 22 0d 03 7e 0b 3d  | . 1)=1 =""..~.=|
00006340  76 61 6c 75 65 24 0d 03  7f 2a dd 20 f2 77 69 6d  |value$...*. .wim|
00006350  70 5f 70 75 74 69 63 6f  6e 74 65 78 74 28 77 68  |p_puticontext(wh|
00006360  61 6e 25 2c 69 63 6f 6e  25 2c 74 65 78 74 24 29  |an%,icon%,text$)|
00006370  0d 03 80 0e ea 20 66 6c  61 67 25 2c 74 24 0d 03  |..... flag%,t$..|
00006380  81 10 e7 20 77 68 61 6e  25 3d 2d 32 20 e1 0d 03  |... whan%=-2 ...|
00006390  82 11 77 69 6d 70 25 21  30 3d 77 68 61 6e 25 0d  |..wimp%!0=whan%.|
000063a0  03 83 11 77 69 6d 70 25  21 34 3d 69 63 6f 6e 25  |...wimp%!4=icon%|
000063b0  0d 03 84 20 c8 99 22 57  69 6d 70 5f 47 65 74 49  |... .."Wimp_GetI|
000063c0  63 6f 6e 53 74 61 74 65  22 2c 2c 77 69 6d 70 25  |conState",,wimp%|
000063d0  0d 03 85 12 66 6c 61 67  25 3d 77 69 6d 70 25 21  |....flag%=wimp%!|
000063e0  32 34 0d 03 86 14 66 6c  61 67 25 3d 28 66 6c 61  |24....flag%=(fla|
000063f0  67 25 3e 3e 38 29 0d 03  87 5f e7 20 28 66 6c 61  |g%>>8)..._. (fla|
00006400  67 25 20 80 20 31 29 20  3d 30 20 f2 77 69 6d 70  |g% . 1) =0 .wimp|
00006410  5f 65 72 72 6f 72 28 61  70 70 6e 61 6d 65 24 2b  |_error(appname$+|
00006420  22 20 6c 69 62 72 61 72  79 22 2c 22 49 63 6f 6e  |" library","Icon|
00006430  20 22 2b c3 69 63 6f 6e  25 2b 22 20 69 73 20 6e  | "+.icon%+" is n|
00006440  6f 74 20 69 6e 64 69 72  65 63 74 65 64 22 2c 31  |ot indirected",1|
00006450  2c 31 29 3a e1 0d 03 88  25 74 24 3d a4 77 69 6d  |,1):....%t$=.wim|
00006460  70 5f 67 65 74 69 63 6f  6e 74 65 78 74 28 77 68  |p_geticontext(wh|
00006470  61 6e 25 2c 69 63 6f 6e  25 29 0d 03 89 10 e7 20  |an%,icon%)..... |
00006480  74 24 3d 74 65 78 74 24  20 e1 0d 03 8a 0d 77 69  |t$=text$ .....wi|
00006490  6d 70 25 21 38 3d 30 0d  03 8b 0e 77 69 6d 70 25  |mp%!8=0....wimp%|
000064a0  21 31 32 3d 30 0d 03 8c  12 24 28 77 69 6d 70 25  |!12=0....$(wimp%|
000064b0  21 32 38 29 3d 22 22 0d  03 8d 20 c8 99 22 57 69  |!28)=""... .."Wi|
000064c0  6d 70 5f 53 65 74 49 63  6f 6e 53 74 61 74 65 22  |mp_SetIconState"|
000064d0  2c 2c 77 69 6d 70 25 0d  03 8e 0d 77 69 6d 70 25  |,,wimp%....wimp%|
000064e0  21 38 3d 30 0d 03 8f 0e  77 69 6d 70 25 21 31 32  |!8=0....wimp%!12|
000064f0  3d 30 0d 03 90 15 24 28  77 69 6d 70 25 21 32 38  |=0....$(wimp%!28|
00006500  29 3d 74 65 78 74 24 0d  03 91 20 c8 99 22 57 69  |)=text$... .."Wi|
00006510  6d 70 5f 53 65 74 49 63  6f 6e 53 74 61 74 65 22  |mp_SetIconState"|
00006520  2c 2c 77 69 6d 70 25 0d  03 92 11 77 69 6d 70 25  |,,wimp%....wimp%|
00006530  21 30 3d 77 68 61 6e 25  0d 03 93 11 77 69 6d 70  |!0=whan%....wimp|
00006540  25 21 34 3d 69 63 6f 6e  25 0d 03 94 20 c8 99 22  |%!4=icon%... .."|
00006550  57 69 6d 70 5f 47 65 74  49 63 6f 6e 53 74 61 74  |Wimp_GetIconStat|
00006560  65 22 2c 2c 77 69 6d 70  25 0d 03 95 20 6d 69 6e  |e",,wimp%... min|
00006570  78 25 3d 77 69 6d 70 25  21 38 3a 6d 69 6e 79 25  |x%=wimp%!8:miny%|
00006580  3d 77 69 6d 70 25 21 31  32 0d 03 96 21 6d 61 78  |=wimp%!12...!max|
00006590  78 25 3d 77 69 6d 70 25  21 31 36 3a 6d 61 78 79  |x%=wimp%!16:maxy|
000065a0  25 3d 77 69 6d 70 25 21  32 30 0d 03 97 36 c8 99  |%=wimp%!20...6..|
000065b0  22 57 69 6d 70 5f 46 6f  72 63 65 52 65 64 72 61  |"Wimp_ForceRedra|
000065c0  77 22 2c 77 68 61 6e 25  2c 6d 69 6e 78 25 2c 6d  |w",whan%,minx%,m|
000065d0  69 6e 79 25 2c 6d 61 78  78 25 2c 6d 61 78 79 25  |iny%,maxx%,maxy%|
000065e0  0d 03 98 05 e1 0d 03 99  24 dd 20 f2 77 69 6d 70  |........$. .wimp|
000065f0  5f 69 63 6f 6e 64 69 73  61 62 6c 65 28 77 68 61  |_icondisable(wha|
00006600  6e 25 2c 69 63 6f 6e 25  29 0d 03 9a 11 77 69 6d  |n%,icon%)....wim|
00006610  70 25 21 30 3d 77 68 61  6e 25 0d 03 9b 11 77 69  |p%!0=whan%....wi|
00006620  6d 70 25 21 34 3d 69 63  6f 6e 25 0d 03 9c 13 77  |mp%!4=icon%....w|
00006630  69 6d 70 25 21 38 3d 28  31 3c 3c 32 32 29 0d 03  |imp%!8=(1<<22)..|
00006640  9d 14 77 69 6d 70 25 21  31 32 3d 28 31 3c 3c 32  |..wimp%!12=(1<<2|
00006650  32 29 0d 03 9e 20 c8 99  22 57 69 6d 70 5f 53 65  |2)... .."Wimp_Se|
00006660  74 49 63 6f 6e 53 74 61  74 65 22 2c 2c 77 69 6d  |tIconState",,wim|
00006670  70 25 0d 03 9f 05 e1 0d  03 a0 27 dd 20 a4 77 69  |p%........'. .wi|
00006680  6d 70 5f 69 63 6f 6e 62  61 72 28 73 70 72 69 74  |mp_iconbar(sprit|
00006690  65 24 2c 74 65 78 74 24  2c 70 6f 73 25 29 0d 03  |e$,text$,pos%)..|
000066a0  a1 0b 70 6f 73 25 2d 3d  32 0d 03 a2 21 de 20 77  |..pos%-=2...!. w|
000066b0  69 73 70 72 69 74 65 32  25 20 32 30 2c 77 69 73  |isprite2% 20,wis|
000066c0  70 72 5f 74 78 74 25 20  31 32 0d 03 a3 2d e7 20  |pr_txt% 12...-. |
000066d0  74 65 78 74 24 3d 22 22  20 3d a4 77 69 6d 70 5f  |text$="" =.wimp_|
000066e0  69 63 6f 6e 62 61 72 73  70 28 73 70 72 69 74 65  |iconbarsp(sprite|
000066f0  24 2c 70 6f 73 25 29 0d  03 a4 1b 24 77 69 73 70  |$,pos%)....$wisp|
00006700  72 69 74 65 32 25 3d 22  73 22 2b 73 70 72 69 74  |rite2%="s"+sprit|
00006710  65 24 0d 03 a5 1a 24 77  69 73 70 72 5f 74 78 74  |e$....$wispr_txt|
00006720  25 3d c0 74 65 78 74 24  2c 31 32 29 0d 03 a6 10  |%=.text$,12)....|
00006730  77 69 6d 70 25 21 30 3d  70 6f 73 25 0d 03 a7 0d  |wimp%!0=pos%....|
00006740  77 69 6d 70 25 21 34 3d  30 0d 03 a8 0f 77 69 6d  |wimp%!4=0....wim|
00006750  70 25 21 38 3d 2d 31 36  0d 03 a9 10 77 69 6d 70  |p%!8=-16....wimp|
00006760  25 21 31 32 3d 31 32 38  0d 03 aa 0f 77 69 6d 70  |%!12=128....wimp|
00006770  25 21 31 36 3d 38 38 0d  03 ab 16 77 69 6d 70 25  |%!16=88....wimp%|
00006780  21 32 30 3d 26 31 37 30  30 33 31 30 42 0d 03 ac  |!20=&1700310B...|
00006790  17 77 69 6d 70 25 21 32  34 3d 77 69 73 70 72 5f  |.wimp%!24=wispr_|
000067a0  74 78 74 25 0d 03 ad 17  77 69 6d 70 25 21 32 38  |txt%....wimp%!28|
000067b0  3d 77 69 73 70 72 69 74  65 32 25 0d 03 ae 0f 77  |=wisprite2%....w|
000067c0  69 6d 70 25 21 33 32 3d  32 30 0d 03 af 0e 77 42  |imp%!32=20....wB|
000067d0  41 52 54 45 58 54 3d b9  0d 03 b0 28 c8 99 20 22  |ARTEXT=....(.. "|
000067e0  57 69 6d 70 5f 43 72 65  61 74 65 49 63 6f 6e 22  |Wimp_CreateIcon"|
000067f0  2c 2c 77 69 6d 70 25 20  b8 20 77 69 68 61 6e 25  |,,wimp% . wihan%|
00006800  0d 03 b1 07 3d 2d 32 0d  03 b2 31 dd 20 a4 77 69  |....=-2...1. .wi|
00006810  6d 70 5f 63 72 65 61 74  65 6d 65 73 73 61 67 65  |mp_createmessage|
00006820  6d 65 6e 75 28 6d 65 6e  75 24 2c 74 69 74 6c 65  |menu(menu$,title|
00006830  24 2c 73 69 7a 65 25 29  0d 03 b3 11 ea 20 6d 24  |$,size%)..... m$|
00006840  2c 69 74 65 6d 25 2c 69  24 0d 03 b4 11 e7 20 74  |,item%,i$..... t|
00006850  69 74 6c 65 24 3d 22 22  20 8c 0d 03 b5 23 20 20  |itle$="" ....#  |
00006860  6d 24 3d a4 77 69 6d 70  5f 6d 65 73 73 6c 6f 6f  |m$=.wimp_messloo|
00006870  6b 30 28 6d 65 6e 75 24  2b 22 54 22 29 0d 03 b6  |k0(menu$+"T")...|
00006880  2b 20 20 e7 20 6d 24 3d  22 22 20 6d 24 3d a4 77  |+  . m$="" m$=.w|
00006890  69 6d 70 5f 6d 65 73 73  6c 6f 6f 6b 30 28 6d 65  |imp_messlook0(me|
000068a0  6e 75 24 2b 22 74 22 29  0d 03 b7 14 20 20 e7 20  |nu$+"t")....  . |
000068b0  6d 24 3d 22 22 20 6d 24  3d 22 20 22 0d 03 b8 05  |m$="" m$=" "....|
000068c0  cc 0d 03 b9 0f 20 20 6d  24 3d 74 69 74 6c 65 24  |.....  m$=title$|
000068d0  0d 03 ba 05 cd 0d 03 bb  0b 69 74 65 6d 25 3d 31  |.........item%=1|
000068e0  0d 03 bc 05 f5 0d 03 bd  24 69 24 3d a4 77 69 6d  |........$i$=.wim|
000068f0  70 5f 6d 65 73 73 6c 6f  6f 6b 30 28 6d 65 6e 75  |p_messlook0(menu|
00006900  24 2b c3 69 74 65 6d 25  29 0d 03 be 0e e7 20 69  |$+.item%)..... i|
00006910  24 3c 3e 22 22 20 8c 0d  03 bf 10 20 20 6d 24 2b  |$<>"" .....  m$+|
00006920  3d 22 2f 22 2b 69 24 0d  03 c0 0e 20 20 69 74 65  |="/"+i$....  ite|
00006930  6d 25 2b 3d 31 0d 03 c1  05 cd 0d 03 c2 0b fd 20  |m%+=1.......... |
00006940  69 24 3d 22 22 0d 03 c3  16 e7 20 69 74 65 6d 25  |i$=""..... item%|
00006950  3d 31 20 6d 24 2b 3d 22  2f 20 22 0d 03 c4 1f 3d  |=1 m$+="/ "....=|
00006960  a4 77 69 6d 70 5f 63 72  65 61 74 65 6d 65 6e 75  |.wimp_createmenu|
00006970  28 6d 24 2c 73 69 7a 65  25 29 0d 03 c5 2b dd 20  |(m$,size%)...+. |
00006980  f2 77 69 6d 70 5f 61 74  74 61 63 68 73 75 62 6d  |.wimp_attachsubm|
00006990  65 6e 75 28 6d 65 6e 75  25 2c 69 74 65 6d 25 2c  |enu(menu%,item%,|
000069a0  73 75 62 25 29 0d 03 c6  1e 21 28 6d 65 6e 75 25  |sub%)....!(menu%|
000069b0  2b 38 2b 28 69 74 65 6d  25 2a 32 34 29 29 3d 73  |+8+(item%*24))=s|
000069c0  75 62 25 0d 03 c7 05 e1  0d 03 c8 26 dd 20 f2 77  |ub%........&. .w|
000069d0  69 6d 70 5f 6d 65 6e 75  64 69 73 61 62 6c 65 28  |imp_menudisable(|
000069e0  77 6d 65 6e 75 25 2c 77  69 74 65 6d 25 29 0d 03  |wmenu%,witem%)..|
000069f0  c9 25 77 70 74 72 25 3d  28 77 6d 65 6e 75 25 2b  |.%wptr%=(wmenu%+|
00006a00  32 38 29 2b 28 32 34 2a  28 77 69 74 65 6d 25 2d  |28)+(24*(witem%-|
00006a10  31 29 29 0d 03 ca 1d 77  70 74 72 25 21 38 3d 77  |1))....wptr%!8=w|
00006a20  70 74 72 25 21 38 20 84  20 28 31 3c 3c 32 32 29  |ptr%!8 . (1<<22)|
00006a30  0d 03 cb 05 e1 0d 03 cc  1f dd 20 f2 77 69 6d 70  |.......... .wimp|
00006a40  5f 62 61 6e 6e 65 72 28  77 68 61 6e 25 2c 64 65  |_banner(whan%,de|
00006a50  6c 61 79 29 0d 03 cd 07  ea 20 74 0d 03 ce 20 f2  |lay)..... t... .|
00006a60  77 69 6d 70 5f 6f 70 65  6e 77 69 6e 64 6f 77 28  |wimp_openwindow(|
00006a70  77 68 61 6e 25 2c 31 2c  2d 31 29 0d 03 cf 0d 77  |whan%,1,-1)....w|
00006a80  42 41 4e 4e 45 52 3d b9  0d 03 d0 20 c8 99 22 4f  |BANNER=.... .."O|
00006a90  53 5f 52 65 61 64 4d 6f  6e 6f 74 6f 6e 69 63 54  |S_ReadMonotonicT|
00006aa0  69 6d 65 22 20 b8 20 74  0d 03 d1 1c 77 64 65 6c  |ime" . t....wdel|
00006ab0  61 79 6d 61 78 25 3d 28  64 65 6c 61 79 2a 31 30  |aymax%=(delay*10|
00006ac0  30 29 2b 74 0d 03 d2 12  77 62 61 6e 6e 65 72 25  |0)+t....wbanner%|
00006ad0  3d 77 68 61 6e 25 0d 03  d3 05 e1 0d 03 d4 2c dd  |=whan%........,.|
00006ae0  20 f2 77 69 6d 70 5f 6f  70 65 6e 77 69 6e 64 6f  | .wimp_openwindo|
00006af0  77 28 77 68 61 6e 25 2c  63 65 6e 74 72 65 25 2c  |w(whan%,centre%,|
00006b00  73 74 61 63 6b 25 29 0d  03 d5 24 ea 20 68 65 69  |stack%)...$. hei|
00006b10  67 68 74 25 2c 78 25 2c  79 25 2c 64 72 61 67 25  |ght%,x%,y%,drag%|
00006b20  2c 77 72 69 74 65 25 2c  6f 6b 25 0d 03 d6 11 e7  |,write%,ok%.....|
00006b30  20 73 74 61 63 6b 25 3d  2d 33 20 8c 0d 03 d7 12  | stack%=-3 .....|
00006b40  20 20 21 77 69 6d 70 25  3d 77 68 61 6e 25 0d 03  |  !wimp%=whan%..|
00006b50  d8 24 20 20 c8 99 22 57  69 6d 70 5f 47 65 74 57  |.$  .."Wimp_GetW|
00006b60  69 6e 64 6f 77 53 74 61  74 65 22 2c 2c 77 69 6d  |indowState",,wim|
00006b70  70 25 0d 03 d9 16 20 20  63 73 74 61 63 6b 25 3d  |p%....  cstack%=|
00006b80  77 69 6d 70 25 21 32 38  0d 03 da 05 cd 0d 03 db  |wimp%!28........|
00006b90  11 77 69 6d 70 25 21 30  3d 77 68 61 6e 25 0d 03  |.wimp%!0=whan%..|
00006ba0  dc 21 c8 99 22 57 69 6d  70 5f 47 65 74 57 69 6e  |.!.."Wimp_GetWin|
00006bb0  64 6f 77 49 6e 66 6f 22  2c 2c 77 69 6d 70 25 0d  |dowInfo",,wimp%.|
00006bc0  03 dd 22 e7 20 63 65 6e  74 72 65 25 3d 31 20 f2  |..". centre%=1 .|
00006bd0  77 69 6d 70 5f 63 65 6e  74 72 65 77 69 6e 64 6f  |wimp_centrewindo|
00006be0  77 0d 03 de 30 e7 20 63  65 6e 74 72 65 25 3d 32  |w...0. centre%=2|
00006bf0  20 f2 77 69 6d 70 5f 70  6f 69 6e 74 65 72 63 65  | .wimp_pointerce|
00006c00  6e 74 72 65 77 69 6e 64  6f 77 28 77 68 61 6e 25  |ntrewindow(whan%|
00006c10  29 0d 03 df 18 61 25 3d  a4 75 73 65 72 5f 70 61  |)....a%=.user_pa|
00006c20  6e 65 28 77 68 61 6e 25  29 0d 03 e0 1e e7 20 73  |ne(whan%)..... s|
00006c30  74 61 63 6b 25 3d 2d 33  20 73 74 61 63 6b 25 3d  |tack%=-3 stack%=|
00006c40  63 73 74 61 63 6b 25 0d  03 e1 13 77 69 6d 70 25  |cstack%....wimp%|
00006c50  21 32 38 3d 73 74 61 63  6b 25 0d 03 e2 1e c8 99  |!28=stack%......|
00006c60  22 57 69 6d 70 5f 4f 70  65 6e 57 69 6e 64 6f 77  |"Wimp_OpenWindow|
00006c70  22 2c 2c 77 69 6d 70 25  0d 03 e3 22 c8 99 22 57  |",,wimp%...".."W|
00006c80  69 6d 70 5f 47 65 74 57  69 6e 64 6f 77 53 74 61  |imp_GetWindowSta|
00006c90  74 65 22 2c 2c 77 69 6d  70 25 0d 03 e4 1c 68 65  |te",,wimp%....he|
00006ca0  69 67 68 74 25 3d 77 69  6d 70 25 21 31 36 2d 77  |ight%=wimp%!16-w|
00006cb0  69 6d 70 25 21 38 0d 03  e5 16 79 25 3d 77 69 6d  |imp%!8....y%=wim|
00006cc0  70 25 21 38 2b 68 65 69  67 68 74 25 0d 03 e6 0e  |p%!8+height%....|
00006cd0  78 25 3d 77 69 6d 70 25  21 34 0d 03 e7 28 f2 75  |x%=wimp%!4...(.u|
00006ce0  73 65 72 5f 6f 70 65 6e  77 69 6e 64 6f 77 28 77  |ser_openwindow(w|
00006cf0  68 61 6e 25 2c 78 25 2c  79 25 2c 73 74 61 63 6b  |han%,x%,y%,stack|
00006d00  25 29 0d 03 e8 25 e7 20  a4 75 73 65 72 5f 73 61  |%)...%. .user_sa|
00006d10  76 65 66 69 6c 65 74 79  70 65 28 77 68 61 6e 25  |vefiletype(whan%|
00006d20  29 3c 3e 22 22 20 8c 0d  03 e9 1c 20 20 64 72 61  |)<>"" .....  dra|
00006d30  67 25 3d 30 3a 77 72 69  74 65 25 3d 31 3a 6f 6b  |g%=0:write%=1:ok|
00006d40  25 3d 32 0d 03 ea 2c 20  20 f2 75 73 65 72 5f 73  |%=2...,  .user_s|
00006d50  61 76 65 69 63 6f 6e 28  77 68 61 6e 25 2c 64 72  |aveicon(whan%,dr|
00006d60  61 67 25 2c 77 72 69 74  65 25 2c 6f 6b 25 29 0d  |ag%,write%,ok%).|
00006d70  03 eb 22 20 20 f2 77 69  6d 70 5f 70 75 74 63 61  |.."  .wimp_putca|
00006d80  72 65 74 28 77 68 61 6e  25 2c 77 72 69 74 65 25  |ret(whan%,write%|
00006d90  29 0d 03 ec 05 cd 0d 03  ed 05 e1 0d 03 ee 22 dd  |).............".|
00006da0  20 f2 77 69 6d 70 5f 69  63 6f 6e 62 61 72 73 70  | .wimp_iconbarsp|
00006db0  72 69 74 65 28 73 70 72  69 74 65 24 29 0d 03 ef  |rite(sprite$)...|
00006dc0  2d e7 20 77 42 41 52 54  45 58 54 3d a3 20 f2 77  |-. wBARTEXT=. .w|
00006dd0  69 6d 70 5f 69 62 61 72  73 70 72 69 74 65 70 28  |imp_ibarspritep(|
00006de0  73 70 72 69 74 65 24 29  3a e1 0d 03 f0 1b 24 77  |sprite$):.....$w|
00006df0  69 73 70 72 69 74 65 32  25 3d 22 73 22 2b 73 70  |isprite2%="s"+sp|
00006e00  72 69 74 65 24 0d 03 f1  1d 77 69 6d 70 25 21 30  |rite$....wimp%!0|
00006e10  3d 2d 32 3a 77 69 6d 70  25 21 34 3d 77 69 68 61  |=-2:wimp%!4=wiha|
00006e20  6e 25 0d 03 f2 20 c8 99  22 57 69 6d 70 5f 47 65  |n%... .."Wimp_Ge|
00006e30  74 49 63 6f 6e 53 74 61  74 65 22 2c 2c 77 69 6d  |tIconState",,wim|
00006e40  70 25 0d 03 f3 3e c8 99  22 57 69 6d 70 5f 46 6f  |p%...>.."Wimp_Fo|
00006e50  72 63 65 52 65 64 72 61  77 22 2c 2d 32 2c 77 69  |rceRedraw",-2,wi|
00006e60  6d 70 25 21 38 2c 77 69  6d 70 25 21 31 32 2c 77  |mp%!8,wimp%!12,w|
00006e70  69 6d 70 25 21 31 36 2c  77 69 6d 70 25 21 32 30  |imp%!16,wimp%!20|
00006e80  0d 03 f4 05 e1 0d 03 f5  27 c8 99 22 57 69 6d 70  |........'.."Wimp|
00006e90  5f 46 6f 72 63 65 52 65  64 72 61 77 22 2c 2d 31  |_ForceRedraw",-1|
00006ea0  2c 30 2c 30 2c 31 45 36  2c 31 33 30 0d 03 f6 05  |,0,0,1E6,130....|
00006eb0  e1 0d 03 f7 20 dd 20 f2  77 69 6d 70 5f 63 6c 6f  |.... . .wimp_clo|
00006ec0  73 65 77 69 6e 64 6f 77  28 77 69 6e 64 6f 77 25  |sewindow(window%|
00006ed0  29 0d 03 f8 13 77 69 6d  70 25 21 30 3d 77 69 6e  |)....wimp%!0=win|
00006ee0  64 6f 77 25 0d 03 f9 1f  c8 99 22 57 69 6d 70 5f  |dow%......"Wimp_|
00006ef0  43 6c 6f 73 65 57 69 6e  64 6f 77 22 2c 2c 77 69  |CloseWindow",,wi|
00006f00  6d 70 25 0d 03 fa 1e f2  75 73 65 72 5f 63 6c 6f  |mp%.....user_clo|
00006f10  73 65 77 69 6e 64 6f 77  28 77 69 6e 64 6f 77 25  |sewindow(window%|
00006f20  29 0d 03 fb 05 e1 0d 03  fc 24 dd 20 a4 77 69 6d  |)........$. .wim|
00006f30  70 5f 67 65 74 69 63 6f  6e 74 65 78 74 28 77 68  |p_geticontext(wh|
00006f40  61 6e 25 2c 69 63 6f 6e  25 29 0d 03 fd 11 77 69  |an%,icon%)....wi|
00006f50  6d 70 25 21 30 3d 77 68  61 6e 25 0d 03 fe 11 77  |mp%!0=whan%....w|
00006f60  69 6d 70 25 21 34 3d 69  63 6f 6e 25 0d 03 ff 20  |imp%!4=icon%... |
00006f70  c8 99 22 57 69 6d 70 5f  47 65 74 49 63 6f 6e 53  |.."Wimp_GetIconS|
00006f80  74 61 74 65 22 2c 2c 77  69 6d 70 25 0d 04 00 10  |tate",,wimp%....|
00006f90  3d 24 28 77 69 6d 70 25  21 32 38 29 0d 04 01 17  |=$(wimp%!28)....|
00006fa0  dd 20 f2 77 69 6d 70 5f  71 75 69 74 28 74 79 70  |. .wimp_quit(typ|
00006fb0  65 25 29 0d 04 02 0f e7  20 74 79 70 65 25 3d 31  |e%)..... type%=1|
00006fc0  20 8c 0d 04 03 14 20 20  f2 77 69 6d 70 5f 73 61  | .....  .wimp_sa|
00006fd0  76 65 77 69 6d 70 0d 04  04 26 20 20 c8 99 22 57  |vewimp...&  .."W|
00006fe0  69 6d 70 5f 47 65 74 43  61 72 65 74 50 6f 73 69  |imp_GetCaretPosi|
00006ff0  74 69 6f 6e 22 2c 2c 77  69 6d 70 25 0d 04 05 13  |tion",,wimp%....|
00007000  20 20 77 69 6d 70 25 21  32 34 3d 26 31 46 43 0d  |  wimp%!24=&1FC.|
00007010  04 06 2f 20 20 c8 99 22  57 69 6d 70 5f 53 65 6e  |../  .."Wimp_Sen|
00007020  64 4d 65 73 73 61 67 65  22 2c 38 2c 77 69 6d 70  |dMessage",8,wimp|
00007030  25 2c 77 71 75 69 74 73  65 6e 64 65 72 25 0d 04  |%,wquitsender%..|
00007040  07 14 20 20 f2 77 69 6d  70 5f 6c 6f 61 64 77 69  |..  .wimp_loadwi|
00007050  6d 70 0d 04 08 23 20 20  f4 20 53 59 53 22 54 61  |mp...#  . SYS"Ta|
00007060  73 6b 4d 61 6e 61 67 65  72 5f 53 68 75 74 64 6f  |skManager_Shutdo|
00007070  77 6e 22 2c 38 0d 04 09  05 cc 0d 04 0a 11 20 20  |wn",8.........  |
00007080  66 69 6e 69 73 68 65 64  25 3d b9 0d 04 0b 05 cd  |finished%=......|
00007090  0d 04 0c 05 e1 0d 04 0d  2c dd 20 f2 77 69 6d 70  |........,. .wimp|
000070a0  5f 6f 70 65 6e 77 69 6e  64 6f 77 61 74 28 77 68  |_openwindowat(wh|
000070b0  61 6e 25 2c 78 25 2c 79  25 2c 73 74 61 63 6b 25  |an%,x%,y%,stack%|
000070c0  29 0d 04 0e 25 ea 20 77  69 64 74 68 25 2c 68 65  |)...%. width%,he|
000070d0  69 67 68 74 25 2c 64 72  61 67 25 2c 77 72 69 74  |ight%,drag%,writ|
000070e0  65 25 2c 6f 6b 25 0d 04  0f 11 e7 20 73 74 61 63  |e%,ok%..... stac|
000070f0  6b 25 3d 2d 33 20 8c 0d  04 10 12 20 20 21 77 69  |k%=-3 .....  !wi|
00007100  6d 70 25 3d 77 68 61 6e  25 0d 04 11 24 20 20 c8  |mp%=whan%...$  .|
00007110  99 22 57 69 6d 70 5f 47  65 74 57 69 6e 64 6f 77  |."Wimp_GetWindow|
00007120  53 74 61 74 65 22 2c 2c  77 69 6d 70 25 0d 04 12  |State",,wimp%...|
00007130  16 20 20 63 73 74 61 63  6b 25 3d 77 69 6d 70 25  |.  cstack%=wimp%|
00007140  21 32 38 0d 04 13 05 cd  0d 04 14 11 77 69 6d 70  |!28.........wimp|
00007150  25 21 30 3d 77 68 61 6e  25 0d 04 15 22 c8 99 22  |%!0=whan%...".."|
00007160  57 69 6d 70 5f 47 65 74  57 69 6e 64 6f 77 53 74  |Wimp_GetWindowSt|
00007170  61 74 65 22 2c 2c 77 69  6d 70 25 0d 04 16 1b 77  |ate",,wimp%....w|
00007180  69 64 74 68 25 3d 77 69  6d 70 25 21 31 32 2d 77  |idth%=wimp%!12-w|
00007190  69 6d 70 25 21 34 0d 04  17 1c 68 65 69 67 68 74  |imp%!4....height|
000071a0  25 3d 77 69 6d 70 25 21  31 36 2d 77 69 6d 70 25  |%=wimp%!16-wimp%|
000071b0  21 38 0d 04 18 11 77 69  6d 70 25 21 30 3d 77 68  |!8....wimp%!0=wh|
000071c0  61 6e 25 0d 04 19 0e 77  69 6d 70 25 21 34 3d 78  |an%....wimp%!4=x|
000071d0  25 0d 04 1a 16 77 69 6d  70 25 21 38 3d 79 25 2d  |%....wimp%!8=y%-|
000071e0  68 65 69 67 68 74 25 0d  04 1b 16 77 69 6d 70 25  |height%....wimp%|
000071f0  21 31 32 3d 78 25 2b 77  69 64 74 68 25 0d 04 1c  |!12=x%+width%...|
00007200  0f 77 69 6d 70 25 21 31  36 3d 79 25 0d 04 1d 1e  |.wimp%!16=y%....|
00007210  e7 20 73 74 61 63 6b 25  3d 2d 33 20 73 74 61 63  |. stack%=-3 stac|
00007220  6b 25 3d 63 73 74 61 63  6b 25 0d 04 1e 13 77 69  |k%=cstack%....wi|
00007230  6d 70 25 21 32 38 3d 73  74 61 63 6b 25 0d 04 1f  |mp%!28=stack%...|
00007240  19 61 25 3d a4 75 73 65  72 5f 70 61 6e 65 28 73  |.a%=.user_pane(s|
00007250  74 61 63 6b 25 29 0d 04  20 1d e7 20 61 25 3d 77  |tack%).. .. a%=w|
00007260  68 61 6e 25 20 77 69 6d  70 25 21 32 38 3d 77 68  |han% wimp%!28=wh|
00007270  61 6e 25 0d 04 21 1e c8  99 22 57 69 6d 70 5f 4f  |an%..!..."Wimp_O|
00007280  70 65 6e 57 69 6e 64 6f  77 22 2c 2c 77 69 6d 70  |penWindow",,wimp|
00007290  25 0d 04 22 28 f2 75 73  65 72 5f 6f 70 65 6e 77  |%.."(.user_openw|
000072a0  69 6e 64 6f 77 28 77 68  61 6e 25 2c 78 25 2c 79  |indow(whan%,x%,y|
000072b0  25 2c 73 74 61 63 6b 25  29 0d 04 23 25 e7 20 a4  |%,stack%)..#%. .|
000072c0  75 73 65 72 5f 73 61 76  65 66 69 6c 65 74 79 70  |user_savefiletyp|
000072d0  65 28 77 68 61 6e 25 29  3c 3e 22 22 20 8c 0d 04  |e(whan%)<>"" ...|
000072e0  24 1c 20 20 64 72 61 67  25 3d 30 3a 77 72 69 74  |$.  drag%=0:writ|
000072f0  65 25 3d 31 3a 6f 6b 25  3d 32 0d 04 25 2c 20 20  |e%=1:ok%=2..%,  |
00007300  f2 75 73 65 72 5f 73 61  76 65 69 63 6f 6e 28 77  |.user_saveicon(w|
00007310  68 61 6e 25 2c 64 72 61  67 25 2c 77 72 69 74 65  |han%,drag%,write|
00007320  25 2c 6f 6b 25 29 0d 04  26 22 20 20 f2 77 69 6d  |%,ok%)..&"  .wim|
00007330  70 5f 70 75 74 63 61 72  65 74 28 77 68 61 6e 25  |p_putcaret(whan%|
00007340  2c 77 72 69 74 65 25 29  0d 04 27 05 cd 0d 04 28  |,write%)..'....(|
00007350  05 e1 0d 04 29 25 dd 20  a4 77 69 6d 70 5f 67 65  |....)%. .wimp_ge|
00007360  74 69 63 6f 6e 73 74 61  74 65 28 77 68 61 6e 25  |ticonstate(whan%|
00007370  2c 69 63 6f 6e 25 29 0d  04 2a 11 77 69 6d 70 25  |,icon%)..*.wimp%|
00007380  21 30 3d 77 68 61 6e 25  0d 04 2b 11 77 69 6d 70  |!0=whan%..+.wimp|
00007390  25 21 34 3d 69 63 6f 6e  25 0d 04 2c 20 c8 99 22  |%!4=icon%.., .."|
000073a0  57 69 6d 70 5f 47 65 74  49 63 6f 6e 53 74 61 74  |Wimp_GetIconStat|
000073b0  65 22 2c 2c 77 69 6d 70  25 0d 04 2d 17 3d 28 77  |e",,wimp%..-.=(w|
000073c0  69 6d 70 25 21 32 34 3e  3e 32 31 29 20 80 20 31  |imp%!24>>21) . 1|
000073d0  0d 04 2e 80 dd 20 a4 77  69 6d 70 5f 63 72 65 61  |..... .wimp_crea|
000073e0  74 65 77 69 6e 64 6f 77  28 76 6d 69 6e 78 25 2c  |tewindow(vminx%,|
000073f0  76 6d 69 6e 79 25 2c 76  6d 61 78 78 25 2c 76 6d  |vminy%,vmaxx%,vm|
00007400  61 78 79 25 2c 77 6d 69  6e 78 25 2c 77 6d 69 6e  |axy%,wminx%,wmin|
00007410  79 25 2c 77 6d 61 78 78  25 2c 77 6d 61 78 79 25  |y%,wmaxx%,wmaxy%|
00007420  2c 66 6c 61 67 73 25 2c  77 6f 72 6b 63 6f 6c 25  |,flags%,workcol%|
00007430  2c 77 62 75 74 74 6f 6e  25 2c 74 69 74 6c 65 24  |,wbutton%,title$|
00007440  2c 6d 61 78 69 6e 64 25  2c 73 61 72 65 61 25 29  |,maxind%,sarea%)|
00007450  0d 04 2f 2c ea 20 77 66  6c 61 67 73 25 2c 74 66  |../,. wflags%,tf|
00007460  6c 61 67 73 25 2c 6c 65  6e 25 2c 6e 61 6d 65 25  |lags%,len%,name%|
00007470  2c 77 68 61 6e 25 2c 74  69 6e 64 25 0d 04 30 3f  |,whan%,tind%..0?|
00007480  21 77 69 6d 70 25 3d 76  6d 69 6e 78 25 3a 77 69  |!wimp%=vminx%:wi|
00007490  6d 70 25 21 34 3d 76 6d  69 6e 79 25 3a 77 69 6d  |mp%!4=vminy%:wim|
000074a0  70 25 21 38 3d 76 6d 61  78 78 25 3a 77 69 6d 70  |p%!8=vmaxx%:wimp|
000074b0  25 21 31 32 3d 76 6d 61  78 79 25 0d 04 31 19 77  |%!12=vmaxy%..1.w|
000074c0  69 6d 70 25 21 31 36 3d  30 3a 77 69 6d 70 25 21  |imp%!16=0:wimp%!|
000074d0  32 30 3d 30 0d 04 32 0f  77 69 6d 70 25 21 32 34  |20=0..2.wimp%!24|
000074e0  3d 2d 31 0d 04 33 21 77  66 6c 61 67 73 25 3d 28  |=-1..3!wflags%=(|
000074f0  31 3c 3c 31 29 2b 28 31  3c 3c 38 29 2b 28 31 3c  |1<<1)+(1<<8)+(1<|
00007500  3c 33 31 29 0d 04 34 24  e7 20 28 66 6c 61 67 73  |<31)..4$. (flags|
00007510  25 3e 3e 30 20 80 20 31  29 20 77 66 6c 61 67 73  |%>>0 . 1) wflags|
00007520  25 2b 3d 31 3c 3c 32 36  0d 04 35 24 e7 20 28 66  |%+=1<<26..5$. (f|
00007530  6c 61 67 73 25 3e 3e 31  20 80 20 31 29 20 77 66  |lags%>>1 . 1) wf|
00007540  6c 61 67 73 25 2b 3d 31  3c 3c 32 35 0d 04 36 24  |lags%+=1<<25..6$|
00007550  e7 20 28 66 6c 61 67 73  25 3e 3e 32 20 80 20 31  |. (flags%>>2 . 1|
00007560  29 20 77 66 6c 61 67 73  25 2b 3d 31 3c 3c 32 34  |) wflags%+=1<<24|
00007570  0d 04 37 24 e7 20 28 66  6c 61 67 73 25 3e 3e 33  |..7$. (flags%>>3|
00007580  20 80 20 31 29 20 77 66  6c 61 67 73 25 2b 3d 31  | . 1) wflags%+=1|
00007590  3c 3c 33 30 0d 04 38 24  e7 20 28 66 6c 61 67 73  |<<30..8$. (flags|
000075a0  25 3e 3e 34 20 80 20 31  29 20 77 66 6c 61 67 73  |%>>4 . 1) wflags|
000075b0  25 2b 3d 31 3c 3c 32 38  0d 04 39 24 e7 20 28 66  |%+=1<<28..9$. (f|
000075c0  6c 61 67 73 25 3e 3e 35  20 80 20 31 29 20 77 66  |lags%>>5 . 1) wf|
000075d0  6c 61 67 73 25 2b 3d 31  3c 3c 32 39 0d 04 3a 24  |lags%+=1<<29..:$|
000075e0  e7 20 28 66 6c 61 67 73  25 3e 3e 36 20 80 20 31  |. (flags%>>6 . 1|
000075f0  29 20 77 66 6c 61 67 73  25 2b 3d 31 3c 3c 32 37  |) wflags%+=1<<27|
00007600  0d 04 3b 23 e7 20 28 66  6c 61 67 73 25 3e 3e 37  |..;#. (flags%>>7|
00007610  20 80 20 31 29 20 77 66  6c 61 67 73 25 2b 3d 31  | . 1) wflags%+=1|
00007620  3c 3c 34 0d 04 3c 23 e7  20 28 66 6c 61 67 73 25  |<<4..<#. (flags%|
00007630  3e 3e 38 20 80 20 31 29  20 77 66 6c 61 67 73 25  |>>8 . 1) wflags%|
00007640  2b 3d 31 3c 3c 35 0d 04  3d 19 74 69 6e 64 25 3d  |+=1<<5..=.tind%=|
00007650  28 66 6c 61 67 73 25 3e  3e 39 20 80 20 31 29 0d  |(flags%>>9 . 1).|
00007660  04 3e 1a e7 20 a9 28 74  69 74 6c 65 24 29 3e 31  |.>.. .(title$)>1|
00007670  31 20 74 69 6e 64 25 3d  31 0d 04 3f 14 77 69 6d  |1 tind%=1..?.wim|
00007680  70 25 21 32 38 3d 77 66  6c 61 67 73 25 0d 04 40  |p%!28=wflags%..@|
00007690  36 77 69 6d 70 25 3f 33  32 3d 37 3a 77 69 6d 70  |6wimp%?32=7:wimp|
000076a0  25 3f 33 33 3d 32 3a 77  69 6d 70 25 3f 33 34 3d  |%?33=2:wimp%?34=|
000076b0  37 3a 77 69 6d 70 25 3f  33 35 3d 77 6f 72 6b 63  |7:wimp%?35=workc|
000076c0  6f 6c 25 0d 04 41 30 77  69 6d 70 25 3f 33 36 3d  |ol%..A0wimp%?36=|
000076d0  33 3a 77 69 6d 70 25 3f  33 37 3d 31 3a 77 69 6d  |3:wimp%?37=1:wim|
000076e0  70 25 3f 33 38 3d 31 32  3a 77 69 6d 70 25 3f 33  |p%?38=12:wimp%?3|
000076f0  39 3d 30 0d 04 42 43 77  69 6d 70 25 21 34 30 3d  |9=0..BCwimp%!40=|
00007700  77 6d 69 6e 78 25 3a 77  69 6d 70 25 21 34 34 3d  |wminx%:wimp%!44=|
00007710  77 6d 69 6e 79 25 3a 77  69 6d 70 25 21 34 38 3d  |wminy%:wimp%!48=|
00007720  77 6d 61 78 78 25 3a 77  69 6d 70 25 21 35 32 3d  |wmaxx%:wimp%!52=|
00007730  77 6d 61 78 79 25 0d 04  43 12 74 66 6c 61 67 73  |wmaxy%..C.tflags|
00007740  25 3d 25 31 31 30 30 31  0d 04 44 15 74 66 6c 61  |%=%11001..D.tfla|
00007750  67 73 25 2b 3d 74 69 6e  64 25 3c 3c 38 0d 04 45  |gs%+=tind%<<8..E|
00007760  14 77 69 6d 70 25 21 35  36 3d 74 66 6c 61 67 73  |.wimp%!56=tflags|
00007770  25 0d 04 46 2c e7 20 77  62 75 74 74 6f 6e 25 3d  |%..F,. wbutton%=|
00007780  31 20 77 69 6d 70 25 21  36 30 3d 33 3c 3c 31 32  |1 wimp%!60=3<<12|
00007790  20 8b 20 77 69 6d 70 25  21 36 30 3d 30 0d 04 47  | . wimp%!60=0..G|
000077a0  2b e7 20 73 61 72 65 61  25 3d 30 20 77 69 6d 70  |+. sarea%=0 wimp|
000077b0  25 21 36 34 3d 31 20 8b  20 77 69 6d 70 25 21 36  |%!64=1 . wimp%!6|
000077c0  34 3d 73 61 72 65 61 25  0d 04 48 2f 77 69 6d 70  |4=sarea%..H/wimp|
000077d0  25 3f 36 38 3d 30 3a 77  69 6d 70 25 3f 36 39 3d  |%?68=0:wimp%?69=|
000077e0  30 3a 77 69 6d 70 25 3f  37 30 3d 30 3a 77 69 6d  |0:wimp%?70=0:wim|
000077f0  70 25 3f 37 31 3d 30 0d  04 49 0f e7 20 74 69 6e  |p%?71=0..I.. tin|
00007800  64 25 3d 30 20 8c 0d 04  4a 18 20 20 24 28 77 69  |d%=0 ...J.  $(wi|
00007810  6d 70 25 2b 37 32 29 3d  74 69 74 6c 65 24 0d 04  |mp%+72)=title$..|
00007820  4b 05 cc 0d 04 4c 16 20  20 6c 65 6e 25 3d a9 28  |K....L.  len%=.(|
00007830  74 69 74 6c 65 24 29 2b  31 0d 04 4d 12 20 20 de  |title$)+1..M.  .|
00007840  20 6e 61 6d 65 25 20 6c  65 6e 25 0d 04 4e 21 20  | name% len%..N! |
00007850  20 e7 20 6d 61 78 69 6e  64 25 3c 6c 65 6e 25 20  | . maxind%<len% |
00007860  6d 61 78 69 6e 64 25 3d  6c 65 6e 25 0d 04 4f 15  |maxind%=len%..O.|
00007870  20 20 24 28 6e 61 6d 65  25 29 3d 74 69 74 6c 65  |  $(name%)=title|
00007880  24 0d 04 50 14 20 20 77  69 6d 70 25 21 37 32 3d  |$..P.  wimp%!72=|
00007890  6e 61 6d 65 25 0d 04 51  11 20 20 77 69 6d 70 25  |name%..Q.  wimp%|
000078a0  21 37 36 3d 2d 31 0d 04  52 16 20 20 77 69 6d 70  |!76=-1..R.  wimp|
000078b0  25 21 38 30 3d 6d 61 78  69 6e 64 25 0d 04 53 05  |%!80=maxind%..S.|
000078c0  cd 0d 04 54 0e 77 69 6d  70 25 21 38 34 3d 30 0d  |...T.wimp%!84=0.|
000078d0  04 55 28 c8 99 22 57 69  6d 70 5f 43 72 65 61 74  |.U(.."Wimp_Creat|
000078e0  65 57 69 6e 64 6f 77 22  2c 2c 77 69 6d 70 25 20  |eWindow",,wimp% |
000078f0  b8 20 77 68 61 6e 25 0d  04 56 0a 3d 77 68 61 6e  |. whan%..V.=whan|
00007900  25 0d 04 57 83 dd 20 a4  77 69 6d 70 5f 63 72 65  |%..W.. .wimp_cre|
00007910  61 74 65 69 63 6f 6e 28  77 68 61 6e 25 2c 77 6d  |ateicon(whan%,wm|
00007920  69 6e 78 25 2c 77 6d 69  6e 79 25 2c 77 6d 61 78  |inx%,wminy%,wmax|
00007930  78 25 2c 77 6d 61 78 79  25 2c 66 6c 61 67 73 25  |x%,wmaxy%,flags%|
00007940  2c 65 73 67 25 2c 62 75  74 74 6f 6e 25 2c 66 63  |,esg%,button%,fc|
00007950  6f 6c 25 2c 62 63 6f 6c  25 2c 66 68 61 6e 25 2c  |ol%,bcol%,fhan%,|
00007960  74 65 78 74 24 2c 73 70  72 69 74 65 24 2c 73 61  |text$,sprite$,sa|
00007970  72 65 61 25 2c 6d 61 78  69 6e 64 25 2c 76 61 6c  |rea%,maxind%,val|
00007980  69 64 24 29 0d 04 58 2a  ea 20 69 66 6c 61 67 73  |id$)..X*. iflags|
00007990  25 2c 6c 65 6e 25 2c 62  75 66 25 2c 76 61 6c 69  |%,len%,buf%,vali|
000079a0  64 25 2c 69 63 6f 6e 25  2c 74 25 2c 73 25 0d 04  |d%,icon%,t%,s%..|
000079b0  59 10 21 77 69 6d 70 25  3d 77 68 61 6e 25 0d 04  |Y.!wimp%=whan%..|
000079c0  5a 41 77 69 6d 70 25 21  34 3d 77 6d 69 6e 78 25  |ZAwimp%!4=wminx%|
000079d0  3a 77 69 6d 70 25 21 38  3d 77 6d 69 6e 79 25 3a  |:wimp%!8=wminy%:|
000079e0  77 69 6d 70 25 21 31 32  3d 77 6d 61 78 78 25 3a  |wimp%!12=wmaxx%:|
000079f0  77 69 6d 70 25 21 31 36  3d 77 6d 61 78 79 25 0d  |wimp%!16=wmaxy%.|
00007a00  04 5b 0d 69 66 6c 61 67  73 25 3d 30 0d 04 5c 14  |.[.iflags%=0..\.|
00007a10  74 25 3d 66 6c 61 67 73  25 3e 3e 30 20 80 20 31  |t%=flags%>>0 . 1|
00007a20  0d 04 5d 14 73 25 3d 66  6c 61 67 73 25 3e 3e 31  |..].s%=flags%>>1|
00007a30  20 80 20 31 0d 04 5e 14  66 25 3d 66 6c 61 67 73  | . 1..^.f%=flags|
00007a40  25 3e 3e 37 20 80 20 31  0d 04 5f 16 69 6e 64 25  |%>>7 . 1.._.ind%|
00007a50  3d 66 6c 61 67 73 25 3e  3e 38 20 80 20 31 0d 04  |=flags%>>8 . 1..|
00007a60  60 1a e7 20 69 6e 64 25  3d 31 20 69 66 6c 61 67  |`.. ind%=1 iflag|
00007a70  73 25 2b 3d 31 3c 3c 38  0d 04 61 15 69 66 6c 61  |s%+=1<<8..a.ifla|
00007a80  67 73 25 2b 3d 65 73 67  25 3c 3c 31 36 0d 04 62  |gs%+=esg%<<16..b|
00007a90  0a e7 20 66 25 20 8c 0d  04 63 13 20 20 69 66 6c  |.. f% ...c.  ifl|
00007aa0  61 67 73 25 2b 3d 31 3c  3c 36 0d 04 64 18 20 20  |ags%+=1<<6..d.  |
00007ab0  69 66 6c 61 67 73 25 2b  3d 66 68 61 6e 25 3c 3c  |iflags%+=fhan%<<|
00007ac0  32 34 0d 04 65 05 cc 0d  04 66 18 20 20 69 66 6c  |24..e....f.  ifl|
00007ad0  61 67 73 25 2b 3d 66 63  6f 6c 25 3c 3c 32 34 0d  |ags%+=fcol%<<24.|
00007ae0  04 67 18 20 20 69 66 6c  61 67 73 25 2b 3d 62 63  |.g.  iflags%+=bc|
00007af0  6f 6c 25 3c 3c 32 38 0d  04 68 05 cd 0d 04 69 16  |ol%<<28..h....i.|
00007b00  e7 20 74 25 20 69 66 6c  61 67 73 25 2b 3d 31 3c  |. t% iflags%+=1<|
00007b10  3c 30 0d 04 6a 16 e7 20  73 25 20 69 66 6c 61 67  |<0..j.. s% iflag|
00007b20  73 25 2b 3d 31 3c 3c 31  0d 04 6b 23 e7 20 28 66  |s%+=1<<1..k#. (f|
00007b30  6c 61 67 73 25 3e 3e 32  20 80 20 31 29 20 69 66  |lags%>>2 . 1) if|
00007b40  6c 61 67 73 25 2b 3d 31  3c 3c 33 0d 04 6c 23 e7  |lags%+=1<<3..l#.|
00007b50  20 28 66 6c 61 67 73 25  3e 3e 33 20 80 20 31 29  | (flags%>>3 . 1)|
00007b60  20 69 66 6c 61 67 73 25  2b 3d 31 3c 3c 34 0d 04  | iflags%+=1<<4..|
00007b70  6d 23 e7 20 28 66 6c 61  67 73 25 3e 3e 34 20 80  |m#. (flags%>>4 .|
00007b80  20 31 29 20 69 66 6c 61  67 73 25 2b 3d 31 3c 3c  | 1) iflags%+=1<<|
00007b90  35 0d 04 6e 23 e7 20 28  66 6c 61 67 73 25 3e 3e  |5..n#. (flags%>>|
00007ba0  35 20 80 20 31 29 20 69  66 6c 61 67 73 25 2b 3d  |5 . 1) iflags%+=|
00007bb0  31 3c 3c 39 0d 04 6f 23  e7 20 28 66 6c 61 67 73  |1<<9..o#. (flags|
00007bc0  25 3e 3e 36 20 80 20 31  29 20 69 66 6c 61 67 73  |%>>6 . 1) iflags|
00007bd0  25 2b 3d 31 3c 3c 32 0d  04 70 1e e7 20 62 75 74  |%+=1<<2..p.. but|
00007be0  74 6f 6e 25 3d 30 20 69  66 6c 61 67 73 25 2b 3d  |ton%=0 iflags%+=|
00007bf0  30 3c 3c 31 32 0d 04 71  1e e7 20 62 75 74 74 6f  |0<<12..q.. butto|
00007c00  6e 25 3d 31 20 69 66 6c  61 67 73 25 2b 3d 33 3c  |n%=1 iflags%+=3<|
00007c10  3c 31 32 0d 04 72 1e e7  20 62 75 74 74 6f 6e 25  |<12..r.. button%|
00007c20  3d 32 20 69 66 6c 61 67  73 25 2b 3d 32 3c 3c 31  |=2 iflags%+=2<<1|
00007c30  32 0d 04 73 1e e7 20 62  75 74 74 6f 6e 25 3d 33  |2..s.. button%=3|
00007c40  20 69 66 6c 61 67 73 25  2b 3d 36 3c 3c 31 32 0d  | iflags%+=6<<12.|
00007c50  04 74 1f e7 20 62 75 74  74 6f 6e 25 3d 34 20 69  |.t.. button%=4 i|
00007c60  66 6c 61 67 73 25 2b 3d  31 35 3c 3c 31 32 0d 04  |flags%+=15<<12..|
00007c70  75 1f e7 20 62 75 74 74  6f 6e 25 3d 35 20 69 66  |u.. button%=5 if|
00007c80  6c 61 67 73 25 2b 3d 31  31 3c 3c 31 32 0d 04 76  |lags%+=11<<12..v|
00007c90  1e e7 20 62 75 74 74 6f  6e 25 3d 36 20 69 66 6c  |.. button%=6 ifl|
00007ca0  61 67 73 25 2b 3d 39 3c  3c 31 32 0d 04 77 1e e7  |ags%+=9<<12..w..|
00007cb0  20 62 75 74 74 6f 6e 25  3d 37 20 69 66 6c 61 67  | button%=7 iflag|
00007cc0  73 25 2b 3d 31 3c 3c 31  32 0d 04 78 1e e7 20 62  |s%+=1<<12..x.. b|
00007cd0  75 74 74 6f 6e 25 3d 38  20 69 66 6c 61 67 73 25  |utton%=8 iflags%|
00007ce0  2b 3d 34 3c 3c 31 32 0d  04 79 1e e7 20 62 75 74  |+=4<<12..y.. but|
00007cf0  74 6f 6e 25 3d 39 20 69  66 6c 61 67 73 25 2b 3d  |ton%=9 iflags%+=|
00007d00  35 3c 3c 31 32 0d 04 7a  1f e7 20 62 75 74 74 6f  |5<<12..z.. butto|
00007d10  6e 25 3d 31 30 20 69 66  6c 61 67 73 25 2b 3d 37  |n%=10 iflags%+=7|
00007d20  3c 3c 31 32 0d 04 7b 1f  e7 20 62 75 74 74 6f 6e  |<<12..{.. button|
00007d30  25 3d 31 31 20 69 66 6c  61 67 73 25 2b 3d 38 3c  |%=11 iflags%+=8<|
00007d40  3c 31 32 0d 04 7c 20 e7  20 62 75 74 74 6f 6e 25  |<12..| . button%|
00007d50  3d 31 32 20 69 66 6c 61  67 73 25 2b 3d 31 30 3c  |=12 iflags%+=10<|
00007d60  3c 31 32 0d 04 7d 20 e7  20 62 75 74 74 6f 6e 25  |<12..} . button%|
00007d70  3d 31 33 20 69 66 6c 61  67 73 25 2b 3d 31 32 3c  |=13 iflags%+=12<|
00007d80  3c 31 32 0d 04 7e 20 e7  20 62 75 74 74 6f 6e 25  |<12..~ . button%|
00007d90  3d 31 34 20 69 66 6c 61  67 73 25 2b 3d 31 33 3c  |=14 iflags%+=13<|
00007da0  3c 31 32 0d 04 7f 20 e7  20 62 75 74 74 6f 6e 25  |<12... . button%|
00007db0  3d 31 35 20 69 66 6c 61  67 73 25 2b 3d 31 34 3c  |=15 iflags%+=14<|
00007dc0  3c 31 32 0d 04 80 14 77  69 6d 70 25 21 32 30 3d  |<12....wimp%!20=|
00007dd0  69 66 6c 61 67 73 25 0d  04 81 2c e7 20 74 25 3d  |iflags%...,. t%=|
00007de0  31 20 80 20 73 25 3d 30  20 80 20 69 6e 64 25 3d  |1 . s%=0 . ind%=|
00007df0  30 20 24 28 77 69 6d 70  25 2b 32 34 29 3d 74 65  |0 $(wimp%+24)=te|
00007e00  78 74 24 0d 04 82 2e e7  20 74 25 3d 30 20 80 20  |xt$..... t%=0 . |
00007e10  73 25 3d 31 20 80 20 69  6e 64 25 3d 30 20 24 28  |s%=1 . ind%=0 $(|
00007e20  77 69 6d 70 25 2b 32 34  29 3d 73 70 72 69 74 65  |wimp%+24)=sprite|
00007e30  24 0d 04 83 2e e7 20 74  25 3d 31 20 80 20 73 25  |$..... t%=1 . s%|
00007e40  3d 31 20 80 20 69 6e 64  25 3d 30 20 24 28 77 69  |=1 . ind%=0 $(wi|
00007e50  6d 70 25 2b 32 34 29 3d  73 70 72 69 74 65 24 0d  |mp%+24)=sprite$.|
00007e60  04 84 15 e7 20 74 25 3d  31 20 80 20 69 6e 64 25  |.... t%=1 . ind%|
00007e70  3d 31 20 8c 0d 04 85 16  20 20 6c 65 6e 25 3d a9  |=1 .....  len%=.|
00007e80  28 76 61 6c 69 64 24 29  2b 31 0d 04 86 13 20 20  |(valid$)+1....  |
00007e90  de 20 76 61 6c 69 64 25  20 6c 65 6e 25 0d 04 87  |. valid% len%...|
00007ea0  15 20 20 6c 65 6e 25 3d  a9 28 74 65 78 74 24 29  |.  len%=.(text$)|
00007eb0  2b 31 0d 04 88 21 20 20  e7 20 6d 61 78 69 6e 64  |+1...!  . maxind|
00007ec0  25 3c 6c 65 6e 25 20 6d  61 78 69 6e 64 25 3d 6c  |%<len% maxind%=l|
00007ed0  65 6e 25 0d 04 89 14 20  20 de 20 62 75 66 25 20  |en%....  . buf% |
00007ee0  6d 61 78 69 6e 64 25 0d  04 8a 13 20 20 24 28 62  |maxind%....  $(b|
00007ef0  75 66 25 29 3d 74 65 78  74 24 0d 04 8b 16 20 20  |uf%)=text$....  |
00007f00  24 28 76 61 6c 69 64 25  29 3d 76 61 6c 69 64 24  |$(valid%)=valid$|
00007f10  0d 04 8c 13 20 20 77 69  6d 70 25 21 32 34 3d 62  |....  wimp%!24=b|
00007f20  75 66 25 0d 04 8d 15 20  20 77 69 6d 70 25 21 32  |uf%....  wimp%!2|
00007f30  38 3d 76 61 6c 69 64 25  0d 04 8e 16 20 20 77 69  |8=valid%....  wi|
00007f40  6d 70 25 21 33 32 3d 6d  61 78 69 6e 64 25 0d 04  |mp%!32=maxind%..|
00007f50  8f 05 cd 0d 04 90 1c e7  20 74 25 3d 30 20 80 20  |........ t%=0 . |
00007f60  73 25 3d 31 20 80 20 69  6e 64 25 3d 31 20 8c 0d  |s%=1 . ind%=1 ..|
00007f70  04 91 17 20 20 6c 65 6e  25 3d a9 28 73 70 72 69  |...  len%=.(spri|
00007f80  74 65 24 29 2b 31 0d 04  92 21 20 20 e7 20 6d 61  |te$)+1...!  . ma|
00007f90  78 69 6e 64 25 3c 6c 65  6e 25 20 6d 61 78 69 6e  |xind%<len% maxin|
00007fa0  64 25 3d 6c 65 6e 25 0d  04 93 14 20 20 de 20 62  |d%=len%....  . b|
00007fb0  75 66 25 20 6d 61 78 69  6e 64 25 0d 04 94 15 20  |uf% maxind%.... |
00007fc0  20 24 28 62 75 66 25 29  3d 73 70 72 69 74 65 24  | $(buf%)=sprite$|
00007fd0  0d 04 95 13 20 20 77 69  6d 70 25 21 32 34 3d 62  |....  wimp%!24=b|
00007fe0  75 66 25 0d 04 96 2d 20  20 e7 20 73 61 72 65 61  |uf%...-  . sarea|
00007ff0  25 3d 30 20 77 69 6d 70  25 21 32 38 3d 31 20 8b  |%=0 wimp%!28=1 .|
00008000  20 77 69 6d 70 25 21 32  38 3d 73 61 72 65 61 25  | wimp%!28=sarea%|
00008010  0d 04 97 16 20 20 77 69  6d 70 25 21 33 32 3d 6d  |....  wimp%!32=m|
00008020  61 78 69 6e 64 25 0d 04  98 05 cd 0d 04 99 26 c8  |axind%........&.|
00008030  99 22 57 69 6d 70 5f 43  72 65 61 74 65 49 63 6f  |."Wimp_CreateIco|
00008040  6e 22 2c 2c 77 69 6d 70  25 20 b8 20 69 63 6f 6e  |n",,wimp% . icon|
00008050  25 0d 04 9a 0a 3d 69 63  6f 6e 25 0d 04 9b 1f dd  |%....=icon%.....|
00008060  20 f2 77 69 6d 70 5f 69  6e 69 74 6d 65 73 73 61  | .wimp_initmessa|
00008070  67 65 73 28 66 69 6c 65  24 29 0d 04 9c 0b ea 20  |ges(file$)..... |
00008080  73 69 7a 65 25 0d 04 9d  2e c8 99 22 4d 65 73 73  |size%......"Mess|
00008090  61 67 65 54 72 61 6e 73  5f 46 69 6c 65 49 6e 66  |ageTrans_FileInf|
000080a0  6f 22 2c 2c 66 69 6c 65  24 20 b8 20 2c 2c 73 69  |o",,file$ . ,,si|
000080b0  7a 65 25 0d 04 9e 18 de  20 77 6d 73 67 5f 62 75  |ze%..... wmsg_bu|
000080c0  66 66 65 72 25 20 73 69  7a 65 25 0d 04 9f 10 de  |ffer% size%.....|
000080d0  20 77 6d 73 67 73 25 20  32 35 36 0d 04 a0 16 24  | wmsgs% 256....$|
000080e0  28 77 6d 73 67 73 25 2b  31 36 29 3d 66 69 6c 65  |(wmsgs%+16)=file|
000080f0  24 0d 04 a1 3b c8 99 22  4d 65 73 73 61 67 65 54  |$...;.."MessageT|
00008100  72 61 6e 73 5f 4f 70 65  6e 46 69 6c 65 22 2c 77  |rans_OpenFile",w|
00008110  6d 73 67 73 25 2c 77 6d  73 67 73 25 2b 31 36 2c  |msgs%,wmsgs%+16,|
00008120  77 6d 73 67 5f 62 75 66  66 65 72 25 0d 04 a2 13  |wmsg_buffer%....|
00008130  de 20 77 6d 73 67 5f 6f  75 74 25 20 32 35 36 0d  |. wmsg_out% 256.|
00008140  04 a3 05 e1 0d 04 a4 29  dd 20 f2 77 69 6d 70 5f  |.......). .wimp_|
00008150  69 63 6f 6e 73 65 6c 65  63 74 28 77 68 61 6e 25  |iconselect(whan%|
00008160  2c 69 63 6f 6e 25 2c 73  74 61 74 65 29 0d 04 a5  |,icon%,state)...|
00008170  08 ea 20 62 25 0d 04 a6  11 77 69 6d 70 25 21 30  |.. b%....wimp%!0|
00008180  3d 77 68 61 6e 25 0d 04  a7 11 77 69 6d 70 25 21  |=whan%....wimp%!|
00008190  34 3d 69 63 6f 6e 25 0d  04 a8 20 c8 99 22 57 69  |4=icon%... .."Wi|
000081a0  6d 70 5f 47 65 74 49 63  6f 6e 53 74 61 74 65 22  |mp_GetIconState"|
000081b0  2c 2c 77 69 6d 70 25 0d  04 a9 19 62 25 3d 28 77  |,,wimp%....b%=(w|
000081c0  69 6d 70 25 21 32 34 3e  3e 32 31 29 20 80 20 31  |imp%!24>>21) . 1|
000081d0  0d 04 aa 10 e7 20 62 25  3d 73 74 61 74 65 20 e1  |..... b%=state .|
000081e0  0d 04 ab 17 77 69 6d 70  25 21 38 3d 28 73 74 61  |....wimp%!8=(sta|
000081f0  74 65 3c 3c 32 31 29 0d  04 ac 14 77 69 6d 70 25  |te<<21)....wimp%|
00008200  21 31 32 3d 28 31 3c 3c  32 31 29 0d 04 ad 20 c8  |!12=(1<<21)... .|
00008210  99 22 57 69 6d 70 5f 53  65 74 49 63 6f 6e 53 74  |."Wimp_SetIconSt|
00008220  61 74 65 22 2c 2c 77 69  6d 70 25 0d 04 ae 05 e1  |ate",,wimp%.....|
00008230  0d 04 af 18 dd 20 f2 77  69 6d 70 5f 63 68 65 63  |..... .wimp_chec|
00008240  6b 66 6f 72 6c 6f 61 64  0d 04 b0 28 ea 20 65 6e  |kforload...(. en|
00008250  76 73 74 72 25 2c 61 24  2c 4c 2c 69 25 2c 66 69  |vstr%,a$,L,i%,fi|
00008260  6c 65 24 2c 70 24 2c 6f  25 2c 66 74 79 70 65 25  |le$,p$,o%,ftype%|
00008270  0d 04 b1 1b c8 99 22 4f  53 5f 47 65 74 45 6e 76  |......"OS_GetEnv|
00008280  22 20 b8 20 65 6e 76 73  74 72 25 0d 04 b2 1c 61  |" . envstr%....a|
00008290  24 3d a4 77 69 6d 70 5f  73 74 72 69 6e 67 28 65  |$=.wimp_string(e|
000082a0  6e 76 73 74 72 25 29 0d  04 b3 0d e3 20 4c 3d 31  |nvstr%)..... L=1|
000082b0  20 b8 20 33 0d 04 b4 0f  69 25 3d a7 61 24 2c 22  | . 3....i%=.a$,"|
000082c0  20 22 29 0d 04 b5 14 61  24 3d c2 61 24 2c a9 28  | ")....a$=.a$,.(|
000082d0  61 24 29 2d 69 25 29 0d  04 b6 07 ed 20 4c 0d 04  |a$)-i%)..... L..|
000082e0  b7 0d e7 20 61 24 3d 22  22 20 e1 0d 04 b8 1f 66  |... a$="" .....f|
000082f0  69 6c 65 24 3d a4 77 69  6d 70 5f 67 65 74 6c 65  |ile$=.wimp_getle|
00008300  61 66 6e 61 6d 65 28 61  24 29 0d 04 b9 1a 70 24  |afname(a$)....p$|
00008310  3d c0 61 24 2c a9 28 61  24 29 2d a9 28 66 69 6c  |=.a$,.(a$)-.(fil|
00008320  65 24 29 29 0d 04 ba 2e  c8 99 22 4f 53 5f 46 69  |e$))......"OS_Fi|
00008330  6c 65 22 2c 32 31 2c 66  69 6c 65 24 2c 2c 2c 70  |le",21,file$,,,p|
00008340  24 20 b8 20 6f 25 2c 2c  2c 2c 2c 2c 66 74 79 70  |$ . o%,,,,,,ftyp|
00008350  65 25 0d 04 bb 0d e7 20  6f 25 3c 3e 31 20 e1 0d  |e%..... o%<>1 ..|
00008360  04 bc 2e 69 25 3d a4 75  73 65 72 5f 6c 6f 61 64  |...i%=.user_load|
00008370  64 61 74 61 28 61 24 2c  30 2c 30 2c c3 7e 28 66  |data(a$,0,0,.~(f|
00008380  74 79 70 65 25 29 2c 2d  31 2c 2d 31 29 0d 04 bd  |type%),-1,-1)...|
00008390  05 e1 0d 04 be 14 dd 20  f2 77 69 6d 70 5f 70 6f  |....... .wimp_po|
000083a0  6c 6c 6e 75 6c 6c 0d 04  bf 17 e7 20 4e 55 4c 4c  |llnull..... NULL|
000083b0  3d b9 20 f2 75 73 65 72  5f 6e 75 6c 6c 0d 04 c0  |=. .user_null...|
000083c0  2a e7 20 77 73 6c 69 64  65 64 72 61 67 25 3c 3e  |*. wslidedrag%<>|
000083d0  2d 31 20 f2 77 69 6d 70  5f 64 72 61 67 67 69 6e  |-1 .wimp_draggin|
000083e0  67 73 6c 69 64 65 72 0d  04 c1 07 ea 20 74 0d 04  |gslider..... t..|
000083f0  c2 11 e7 20 77 42 41 4e  4e 45 52 3d a3 20 e1 0d  |... wBANNER=. ..|
00008400  04 c3 20 c8 99 22 4f 53  5f 52 65 61 64 4d 6f 6e  |.. .."OS_ReadMon|
00008410  6f 74 6f 6e 69 63 54 69  6d 65 22 20 b8 20 74 0d  |otonicTime" . t.|
00008420  04 c4 15 e7 20 74 3c 3d  77 64 65 6c 61 79 6d 61  |.... t<=wdelayma|
00008430  78 25 20 e1 0d 04 c5 29  f2 77 69 6d 70 5f 63 6c  |x% ....).wimp_cl|
00008440  6f 73 65 77 69 6e 64 6f  77 28 77 62 61 6e 6e 65  |osewindow(wbanne|
00008450  72 25 29 3a 77 42 41 4e  4e 45 52 3d a3 0d 04 c6  |r%):wBANNER=....|
00008460  05 e1 0d 04 c7 1c dd 20  f2 77 69 6d 70 5f 70 6f  |....... .wimp_po|
00008470  6c 6c 72 65 64 72 61 77  77 69 6e 64 6f 77 0d 04  |llredrawwindow..|
00008480  c8 0a ea 20 66 6c 61 67  0d 04 c9 27 c8 99 22 57  |... flag...'.."W|
00008490  69 6d 70 5f 52 65 64 72  61 77 57 69 6e 64 6f 77  |imp_RedrawWindow|
000084a0  22 2c 2c 77 69 6d 70 25  20 b8 20 66 6c 61 67 0d  |",,wimp% . flag.|
000084b0  04 ca 0b c8 95 20 66 6c  61 67 0d 04 cb 12 f2 77  |..... flag.....w|
000084c0  69 6d 70 5f 73 61 76 65  77 69 6d 70 0d 04 cc 41  |imp_savewimp...A|
000084d0  f2 75 73 65 72 5f 72 65  64 72 61 77 28 77 69 6d  |.user_redraw(wim|
000084e0  70 25 21 30 2c 77 69 6d  70 25 21 32 38 2c 77 69  |p%!0,wimp%!28,wi|
000084f0  6d 70 25 21 33 32 2c 77  69 6d 70 25 21 33 36 2c  |mp%!32,wimp%!36,|
00008500  77 69 6d 70 25 21 34 30  2c a3 2c 30 29 0d 04 cd  |wimp%!40,.,0)...|
00008510  12 f2 77 69 6d 70 5f 6c  6f 61 64 77 69 6d 70 0d  |..wimp_loadwimp.|
00008520  04 ce 27 c8 99 22 57 69  6d 70 5f 47 65 74 52 65  |..'.."Wimp_GetRe|
00008530  63 74 61 6e 67 6c 65 22  2c 2c 77 69 6d 70 25 20  |ctangle",,wimp% |
00008540  b8 20 66 6c 61 67 0d 04  cf 05 ce 0d 04 d0 05 e1  |. flag..........|
00008550  0d 04 d1 1a dd 20 f2 77  69 6d 70 5f 70 6f 6c 6c  |..... .wimp_poll|
00008560  6f 70 65 6e 77 69 6e 64  6f 77 0d 04 d2 1e ea 20  |openwindow..... |
00008570  61 25 2c 77 69 6e 25 2c  64 72 61 67 25 2c 77 72  |a%,win%,drag%,wr|
00008580  69 74 65 25 2c 6f 6b 25  0d 04 d3 34 21 77 74 62  |ite%,ok%...4!wtb|
00008590  6c 6b 25 3d 21 77 69 6d  70 25 3a 77 74 62 6c 6b  |lk%=!wimp%:wtblk|
000085a0  25 21 34 3d 77 69 6d 70  25 21 34 3a 77 74 62 6c  |%!4=wimp%!4:wtbl|
000085b0  6b 25 21 38 3d 77 69 6d  70 25 21 38 0d 04 d4 3c  |k%!8=wimp%!8...<|
000085c0  77 74 62 6c 6b 25 21 31  32 3d 77 69 6d 70 25 21  |wtblk%!12=wimp%!|
000085d0  31 32 3a 77 74 62 6c 6b  25 21 31 36 3d 77 69 6d  |12:wtblk%!16=wim|
000085e0  70 25 21 31 36 3a 77 74  62 6c 6b 25 21 32 30 3d  |p%!16:wtblk%!20=|
000085f0  77 69 6d 70 25 21 32 30  0d 04 d5 29 77 74 62 6c  |wimp%!20...)wtbl|
00008600  6b 25 21 32 34 3d 77 69  6d 70 25 21 32 34 3a 77  |k%!24=wimp%!24:w|
00008610  74 62 6c 6b 25 21 32 38  3d 77 69 6d 70 25 21 32  |tblk%!28=wimp%!2|
00008620  38 0d 04 d6 0f 77 69 6e  25 3d 21 77 69 6d 70 25  |8....win%=!wimp%|
00008630  0d 04 d7 17 61 25 3d a4  75 73 65 72 5f 70 61 6e  |....a%=.user_pan|
00008640  65 28 77 69 6e 25 29 0d  04 d8 18 e7 20 61 25 3c  |e(win%)..... a%<|
00008650  3e 2d 31 20 77 69 6d 70  25 21 32 38 3d 61 25 0d  |>-1 wimp%!28=a%.|
00008660  04 d9 1e c8 99 22 57 69  6d 70 5f 4f 70 65 6e 57  |....."Wimp_OpenW|
00008670  69 6e 64 6f 77 22 2c 2c  77 69 6d 70 25 0d 04 da  |indow",,wimp%...|
00008680  37 f2 75 73 65 72 5f 6f  70 65 6e 77 69 6e 64 6f  |7.user_openwindo|
00008690  77 28 21 77 69 6d 70 25  2c 77 69 6d 70 25 21 34  |w(!wimp%,wimp%!4|
000086a0  2c 77 69 6d 70 25 21 31  36 2c 77 74 62 6c 6b 25  |,wimp%!16,wtblk%|
000086b0  21 32 38 29 0d 04 db 14  e7 20 77 74 62 6c 6b 25  |!28)..... wtblk%|
000086c0  21 32 38 3d 2d 32 20 8c  0d 04 dc 19 20 20 61 25  |!28=-2 .....  a%|
000086d0  3d a4 75 73 65 72 5f 70  61 6e 65 28 77 69 6e 25  |=.user_pane(win%|
000086e0  29 0d 04 dd 1b 20 20 e7  20 61 25 3c 3e 2d 31 20  |)....  . a%<>-1 |
000086f0  77 74 62 6c 6b 25 21 32  38 3d 61 25 0d 04 de 21  |wtblk%!28=a%...!|
00008700  20 20 c8 99 22 57 69 6d  70 5f 4f 70 65 6e 57 69  |  .."Wimp_OpenWi|
00008710  6e 64 6f 77 22 2c 2c 77  74 62 6c 6b 25 0d 04 df  |ndow",,wtblk%...|
00008720  05 cd 0d 04 e0 24 e7 20  a4 75 73 65 72 5f 73 61  |.....$. .user_sa|
00008730  76 65 66 69 6c 65 74 79  70 65 28 77 69 6e 25 29  |vefiletype(win%)|
00008740  3c 3e 22 22 20 8c 0d 04  e1 24 20 20 e7 20 a4 77  |<>"" ....$  . .w|
00008750  69 6d 70 5f 69 73 77 69  6e 64 6f 77 6f 70 65 6e  |imp_iswindowopen|
00008760  28 77 69 6e 25 29 3d 30  20 8c 0d 04 e2 1e 20 20  |(win%)=0 .....  |
00008770  20 20 64 72 61 67 25 3d  30 3a 77 72 69 74 65 25  |  drag%=0:write%|
00008780  3d 31 3a 6f 6b 25 3d 32  0d 04 e3 2d 20 20 20 20  |=1:ok%=2...-    |
00008790  f2 75 73 65 72 5f 73 61  76 65 69 63 6f 6e 28 77  |.user_saveicon(w|
000087a0  69 6e 25 2c 64 72 61 67  25 2c 77 72 69 74 65 25  |in%,drag%,write%|
000087b0  2c 6f 6b 25 29 0d 04 e4  23 20 20 20 20 f2 77 69  |,ok%)...#    .wi|
000087c0  6d 70 5f 70 75 74 63 61  72 65 74 28 77 69 6e 25  |mp_putcaret(win%|
000087d0  2c 77 72 69 74 65 25 29  0d 04 e5 07 20 20 cd 0d  |,write%)....  ..|
000087e0  04 e6 05 cd 0d 04 e7 05  e1 0d 04 e8 1b dd 20 f2  |.............. .|
000087f0  77 69 6d 70 5f 70 6f 6c  6c 63 6c 6f 73 65 77 69  |wimp_pollclosewi|
00008800  6e 64 6f 77 0d 04 e9 1f  c8 99 22 57 69 6d 70 5f  |ndow......"Wimp_|
00008810  43 6c 6f 73 65 57 69 6e  64 6f 77 22 2c 2c 77 69  |CloseWindow",,wi|
00008820  6d 70 25 0d 04 ea 1e f2  75 73 65 72 5f 63 6c 6f  |mp%.....user_clo|
00008830  73 65 77 69 6e 64 6f 77  28 77 69 6d 70 25 21 30  |sewindow(wimp%!0|
00008840  29 0d 04 eb 05 e1 0d 04  ec 1a dd 20 f2 77 69 6d  |).......... .wim|
00008850  70 5f 70 6f 6c 6c 6d 6f  75 73 65 63 6c 69 63 6b  |p_pollmouseclick|
00008860  0d 04 ed 2d ea 20 6d 68  61 6e 25 2c 79 2c 78 25  |...-. mhan%,y,x%|
00008870  2c 79 25 2c 73 25 2c 64  6f 6e 65 25 2c 64 72 61  |,y%,s%,done%,dra|
00008880  67 25 2c 77 72 69 74 65  25 2c 6f 6b 25 0d 04 ee  |g%,write%,ok%...|
00008890  33 e7 20 77 69 6d 70 25  21 38 3d 36 34 20 f2 77  |3. wimp%!8=64 .w|
000088a0  69 6d 70 5f 73 74 61 72  74 64 72 61 67 28 77 69  |imp_startdrag(wi|
000088b0  6d 70 25 21 31 32 2c 77  69 6d 70 25 21 31 36 29  |mp%!12,wimp%!16)|
000088c0  0d 04 ef 63 e7 20 a4 75  73 65 72 5f 73 6c 69 64  |...c. .user_slid|
000088d0  65 72 62 61 63 6b 28 77  69 6d 70 25 21 31 32 2c  |erback(wimp%!12,|
000088e0  77 69 6d 70 25 21 31 36  29 3c 3e 2d 31 20 f2 77  |wimp%!16)<>-1 .w|
000088f0  69 6d 70 5f 63 6c 69 63  6b 65 64 73 6c 69 64 65  |imp_clickedslide|
00008900  72 28 77 69 6d 70 25 21  31 32 2c 77 69 6d 70 25  |r(wimp%!12,wimp%|
00008910  21 31 36 2c 21 77 69 6d  70 25 2c 77 69 6d 70 25  |!16,!wimp%,wimp%|
00008920  21 34 29 0d 04 f0 26 73  25 3d a4 75 73 65 72 5f  |!4)...&s%=.user_|
00008930  73 6c 69 64 65 72 28 77  69 6d 70 25 21 31 32 2c  |slider(wimp%!12,|
00008940  77 69 6d 70 25 21 31 36  29 0d 04 f1 3c e7 20 73  |wimp%!16)...<. s|
00008950  25 3c 3e 2d 31 20 f2 77  69 6d 70 5f 63 6c 69 63  |%<>-1 .wimp_clic|
00008960  6b 65 64 73 6c 69 64 65  72 28 77 69 6d 70 25 21  |kedslider(wimp%!|
00008970  31 32 2c 73 25 2c 21 77  69 6d 70 25 2c 77 69 6d  |12,s%,!wimp%,wim|
00008980  70 25 21 34 29 0d 04 f2  0b 64 6f 6e 65 25 3d 30  |p%!4)....done%=0|
00008990  0d 04 f3 35 e7 20 77 69  6d 70 25 21 38 3c 3e 32  |...5. wimp%!8<>2|
000089a0  20 80 20 a4 75 73 65 72  5f 73 61 76 65 66 69 6c  | . .user_savefil|
000089b0  65 74 79 70 65 28 77 69  6d 70 25 21 31 32 29 3c  |etype(wimp%!12)<|
000089c0  3e 22 22 20 8c 0d 04 f4  1c 20 20 64 72 61 67 25  |>"" .....  drag%|
000089d0  3d 30 3a 77 72 69 74 65  25 3d 31 3a 6f 6b 25 3d  |=0:write%=1:ok%=|
000089e0  32 0d 04 f5 2f 20 20 f2  75 73 65 72 5f 73 61 76  |2.../  .user_sav|
000089f0  65 69 63 6f 6e 28 77 69  6d 70 25 21 31 32 2c 64  |eicon(wimp%!12,d|
00008a00  72 61 67 25 2c 77 72 69  74 65 25 2c 6f 6b 25 29  |rag%,write%,ok%)|
00008a10  0d 04 f6 36 20 20 e7 20  77 69 6d 70 25 21 31 36  |...6  . wimp%!16|
00008a20  3d 6f 6b 25 20 f2 77 69  6d 70 5f 71 75 69 63 6b  |=ok% .wimp_quick|
00008a30  73 61 76 65 28 77 69 6d  70 25 21 31 32 29 3a 64  |save(wimp%!12):d|
00008a40  6f 6e 65 25 3d 31 0d 04  f7 05 cd 0d 04 f8 0f e7  |one%=1..........|
00008a50  20 64 6f 6e 65 25 3d 31  20 e1 0d 04 f9 12 e7 20  | done%=1 ...... |
00008a60  77 69 6d 70 25 21 38 3c  3e 32 20 8c 0d 04 fa 48  |wimp%!8<>2 ....H|
00008a70  20 20 77 68 61 6e 25 3d  77 69 6d 70 25 21 31 32  |  whan%=wimp%!12|
00008a80  3a 69 63 6f 6e 25 3d 77  69 6d 70 25 21 31 36 3a  |:icon%=wimp%!16:|
00008a90  62 75 74 74 6f 6e 25 3d  77 69 6d 70 25 21 38 3a  |button%=wimp%!8:|
00008aa0  78 25 3d 21 77 69 6d 70  25 3a 79 25 3d 77 69 6d  |x%=!wimp%:y%=wim|
00008ab0  70 25 21 34 0d 04 fb 49  20 20 78 25 3d a4 77 69  |p%!4...I  x%=.wi|
00008ac0  6d 70 5f 73 63 72 65 65  6e 74 6f 77 6f 72 6b 28  |mp_screentowork(|
00008ad0  77 68 61 6e 25 2c 78 25  2c 30 29 3a 79 25 3d a4  |whan%,x%,0):y%=.|
00008ae0  77 69 6d 70 5f 73 63 72  65 65 6e 74 6f 77 6f 72  |wimp_screentowor|
00008af0  6b 28 77 68 61 6e 25 2c  79 25 2c 31 29 0d 04 fc  |k(whan%,y%,1)...|
00008b00  31 20 20 f2 75 73 65 72  5f 6d 6f 75 73 65 63 6c  |1  .user_mousecl|
00008b10  69 63 6b 28 77 68 61 6e  25 2c 69 63 6f 6e 25 2c  |ick(whan%,icon%,|
00008b20  62 75 74 74 6f 6e 25 2c  78 25 2c 79 25 29 0d 04  |button%,x%,y%)..|
00008b30  fd 05 cd 0d 04 fe 12 e7  20 77 69 6d 70 25 21 38  |........ wimp%!8|
00008b40  3c 3e 32 20 e1 0d 04 ff  14 77 69 6e 64 6f 77 25  |<>2 .....window%|
00008b50  3d 77 69 6d 70 25 21 31  32 0d 05 00 27 6d 68 61  |=wimp%!12...'mha|
00008b60  6e 25 3d a4 75 73 65 72  5f 6d 65 6e 75 28 77 69  |n%=.user_menu(wi|
00008b70  6d 70 25 21 31 32 2c 77  69 6d 70 25 21 31 36 29  |mp%!12,wimp%!16)|
00008b80  0d 05 01 0f e7 20 6d 68  61 6e 25 3d 30 20 e1 0d  |..... mhan%=0 ..|
00008b90  05 02 22 c8 99 22 57 69  6d 70 5f 47 65 74 50 6f  |..".."Wimp_GetPo|
00008ba0  69 6e 74 65 72 49 6e 66  6f 22 2c 2c 77 69 6d 70  |interInfo",,wimp|
00008bb0  25 0d 05 03 25 79 3d 28  28 a4 77 69 6d 70 5f 6d  |%...%y=((.wimp_m|
00008bc0  65 6e 75 73 69 7a 65 28  6d 68 61 6e 25 29 29 2a  |enusize(mhan%))*|
00008bd0  34 34 29 2b 39 36 0d 05  04 10 c8 8e 20 77 69 6e  |44)+96...... win|
00008be0  64 6f 77 25 20 ca 0d 05  05 34 c9 20 2d 32 20 20  |dow% ....4. -2  |
00008bf0  20 3a 20 c8 99 22 57 69  6d 70 5f 43 72 65 61 74  | : .."Wimp_Creat|
00008c00  65 4d 65 6e 75 22 2c 2c  6d 68 61 6e 25 2c 77 69  |eMenu",,mhan%,wi|
00008c10  6d 70 25 21 30 2d 36 34  2c 79 0d 05 06 62 7f 20  |mp%!0-64,y...b. |
00008c20  3a 20 78 25 3d 21 77 69  6d 70 25 3a 79 25 3d 77  |: x%=!wimp%:y%=w|
00008c30  69 6d 70 25 21 34 3a f2  75 73 65 72 5f 6d 65 6e  |imp%!4:.user_men|
00008c40  75 6f 70 65 6e 28 6d 68  61 6e 25 2c 77 69 6d 70  |uopen(mhan%,wimp|
00008c50  25 21 31 36 29 3a c8 99  22 57 69 6d 70 5f 43 72  |%!16):.."Wimp_Cr|
00008c60  65 61 74 65 4d 65 6e 75  22 2c 2c 6d 68 61 6e 25  |eateMenu",,mhan%|
00008c70  2c 78 25 2d 36 34 2c 79  25 2b 32 30 0d 05 07 05  |,x%-64,y%+20....|
00008c80  cb 0d 05 08 1f f2 77 69  6d 70 5f 6d 65 6e 75 6a  |......wimp_menuj|
00008c90  75 73 74 6f 70 65 6e 65  64 28 6d 68 61 6e 25 29  |ustopened(mhan%)|
00008ca0  0d 05 09 14 77 6c 61 73  74 6d 65 6e 75 25 3d 6d  |....wlastmenu%=m|
00008cb0  68 61 6e 25 0d 05 0a 05  e1 0d 05 0b 1b dd 20 f2  |han%.......... .|
00008cc0  77 69 6d 70 5f 70 6f 6c  6c 73 61 76 65 6d 65 73  |wimp_pollsavemes|
00008cd0  73 61 67 65 0d 05 0c 29  e7 20 77 73 61 76 65 64  |sage...). wsaved|
00008ce0  72 61 67 25 3d 2d 31 20  f2 77 69 6d 70 5f 65 6e  |rag%=-1 .wimp_en|
00008cf0  64 73 6c 69 64 65 72 64  72 61 67 3a e1 0d 05 0d  |dsliderdrag:....|
00008d00  18 c8 99 22 44 72 61 67  41 53 70 72 69 74 65 5f  |..."DragASprite_|
00008d10  53 74 6f 70 22 0d 05 0e  18 ea 20 77 69 6e 25 2c  |Stop"..... win%,|
00008d20  69 63 6f 25 2c 78 25 2c  79 25 2c 76 25 0d 05 0f  |ico%,x%,y%,v%...|
00008d30  22 c8 99 22 57 69 6d 70  5f 47 65 74 50 6f 69 6e  |".."Wimp_GetPoin|
00008d40  74 65 72 49 6e 66 6f 22  2c 2c 77 69 6d 70 25 0d  |terInfo",,wimp%.|
00008d50  05 10 11 77 69 6e 25 3d  77 69 6d 70 25 21 31 32  |...win%=wimp%!12|
00008d60  0d 05 11 11 69 63 6f 25  3d 77 69 6d 70 25 21 31  |....ico%=wimp%!1|
00008d70  36 0d 05 12 0d 78 25 3d  21 77 69 6d 70 25 0d 05  |6....x%=!wimp%..|
00008d80  13 0e 79 25 3d 77 69 6d  70 25 21 34 0d 05 14 42  |..y%=wimp%!4...B|
00008d90  24 28 77 69 6d 70 25 2b  34 34 29 3d a4 77 69 6d  |$(wimp%+44)=.wim|
00008da0  70 5f 67 65 74 6c 65 61  66 6e 61 6d 65 28 a4 77  |p_getleafname(.w|
00008db0  69 6d 70 5f 67 65 74 69  63 6f 6e 74 65 78 74 28  |imp_geticontext(|
00008dc0  77 73 61 76 65 77 25 2c  31 29 29 2b bd 30 0d 05  |wsavew%,1))+.0..|
00008dd0  15 11 77 69 6d 70 25 21  32 30 3d 77 69 6e 25 0d  |..wimp%!20=win%.|
00008de0  05 16 11 77 69 6d 70 25  21 32 34 3d 69 63 6f 25  |...wimp%!24=ico%|
00008df0  0d 05 17 0f 77 69 6d 70  25 21 32 38 3d 78 25 0d  |....wimp%!28=x%.|
00008e00  05 18 0f 77 69 6d 70 25  21 33 32 3d 79 25 0d 05  |...wimp%!32=y%..|
00008e10  19 11 77 69 6d 70 25 21  33 36 3d 31 30 32 34 0d  |..wimp%!36=1024.|
00008e20  05 1a 0d 21 77 69 6d 70  25 3d 36 34 0d 05 1b 0e  |...!wimp%=64....|
00008e30  77 69 6d 70 25 21 31 32  3d 30 0d 05 1c 0e 77 69  |wimp%!12=0....wi|
00008e40  6d 70 25 21 31 36 3d 31  0d 05 1d 2d c8 99 22 4f  |mp%!16=1...-.."O|
00008e50  53 5f 52 65 61 64 55 6e  73 69 67 6e 65 64 22 2c  |S_ReadUnsigned",|
00008e60  31 30 2c 22 26 22 2b 77  73 61 76 65 74 24 20 b8  |10,"&"+wsavet$ .|
00008e70  20 2c 2c 76 25 0d 05 1e  0f 77 69 6d 70 25 21 34  | ,,v%....wimp%!4|
00008e80  30 3d 76 25 0d 05 1f 33  c8 99 22 57 69 6d 70 5f  |0=v%...3.."Wimp_|
00008e90  53 65 6e 64 4d 65 73 73  61 67 65 22 2c 31 38 2c  |SendMessage",18,|
00008ea0  77 69 6d 70 25 2c 77 69  6d 70 25 21 32 30 2c 77  |wimp%,wimp%!20,w|
00008eb0  69 6d 70 25 21 32 34 0d  05 20 11 77 73 61 76 65  |imp%!24.. .wsave|
00008ec0  64 72 61 67 25 3d 2d 31  0d 05 21 05 e1 0d 05 22  |drag%=-1..!...."|
00008ed0  18 dd 20 f2 77 69 6d 70  5f 70 6f 6c 6c 6b 65 79  |.. .wimp_pollkey|
00008ee0  70 72 65 73 73 0d 05 23  1b ea 20 64 6f 6e 65 2c  |press..#.. done,|
00008ef0  64 72 61 67 25 2c 77 72  69 74 65 25 2c 6f 6b 25  |drag%,write%,ok%|
00008f00  0d 05 24 0a 64 6f 6e 65  3d 30 0d 05 25 35 e7 20  |..$.done=0..%5. |
00008f10  a4 75 73 65 72 5f 73 61  76 65 66 69 6c 65 74 79  |.user_savefilety|
00008f20  70 65 28 77 69 6d 70 25  21 30 29 3c 3e 22 22 20  |pe(wimp%!0)<>"" |
00008f30  80 20 77 69 6d 70 25 21  32 34 3d 31 33 20 8c 0d  |. wimp%!24=13 ..|
00008f40  05 26 1c 20 20 64 72 61  67 25 3d 30 3a 77 72 69  |.&.  drag%=0:wri|
00008f50  74 65 25 3d 31 3a 6f 6b  25 3d 32 0d 05 27 2e 20  |te%=1:ok%=2..'. |
00008f60  20 f2 75 73 65 72 5f 73  61 76 65 69 63 6f 6e 28  | .user_saveicon(|
00008f70  77 69 6d 70 25 21 30 2c  64 72 61 67 25 2c 77 72  |wimp%!0,drag%,wr|
00008f80  69 74 65 25 2c 6f 6b 25  29 0d 05 28 36 20 20 e7  |ite%,ok%)..(6  .|
00008f90  20 77 69 6d 70 25 21 34  3d 77 72 69 74 65 25 20  | wimp%!4=write% |
00008fa0  f2 77 69 6d 70 5f 71 75  69 63 6b 73 61 76 65 28  |.wimp_quicksave(|
00008fb0  77 69 6d 70 25 21 30 29  3a 64 6f 6e 65 3d 31 0d  |wimp%!0):done=1.|
00008fc0  05 29 05 cd 0d 05 2a 0e  e7 20 64 6f 6e 65 3d 31  |.)....*.. done=1|
00008fd0  20 e1 0d 05 2b 12 f2 77  69 6d 70 5f 73 61 76 65  | ...+..wimp_save|
00008fe0  77 69 6d 70 0d 05 2c 31  64 6f 6e 65 3d a4 75 73  |wimp..,1done=.us|
00008ff0  65 72 5f 6b 65 79 70 72  65 73 73 28 77 69 6d 70  |er_keypress(wimp|
00009000  25 21 30 2c 77 69 6d 70  25 21 34 2c 77 69 6d 70  |%!0,wimp%!4,wimp|
00009010  25 21 32 34 29 0d 05 2d  12 f2 77 69 6d 70 5f 6c  |%!24)..-..wimp_l|
00009020  6f 61 64 77 69 6d 70 0d  05 2e 29 e7 20 64 6f 6e  |oadwimp...). don|
00009030  65 3d 30 20 c8 99 22 57  69 6d 70 5f 50 72 6f 63  |e=0 .."Wimp_Proc|
00009040  65 73 73 4b 65 79 22 2c  77 69 6d 70 25 21 32 34  |essKey",wimp%!24|
00009050  0d 05 2f 05 e1 0d 05 30  1d dd 20 f2 77 69 6d 70  |../....0.. .wimp|
00009060  5f 70 6f 6c 6c 6d 65 6e  75 73 65 6c 65 63 74 69  |_pollmenuselecti|
00009070  6f 6e 0d 05 31 24 f2 77  69 6d 70 5f 67 65 74 6d  |on..1$.wimp_getm|
00009080  65 6e 75 61 6e 64 69 74  65 6d 28 77 6c 61 73 74  |enuanditem(wlast|
00009090  6d 65 6e 75 25 29 0d 05  32 26 f2 75 73 65 72 5f  |menu%)..2&.user_|
000090a0  6d 65 6e 75 73 65 6c 65  63 74 69 6f 6e 28 77 6d  |menuselection(wm|
000090b0  65 6e 75 25 2c 77 69 74  65 6d 25 29 0d 05 33 22  |enu%,witem%)..3"|
000090c0  c8 99 22 57 69 6d 70 5f  47 65 74 50 6f 69 6e 74  |.."Wimp_GetPoint|
000090d0  65 72 49 6e 66 6f 22 2c  2c 77 69 6d 70 25 0d 05  |erInfo",,wimp%..|
000090e0  34 12 e7 20 77 69 6d 70  25 21 38 3c 3e 31 20 e1  |4.. wimp%!8<>1 .|
000090f0  0d 05 35 39 c8 99 22 57  69 6d 70 5f 43 72 65 61  |..59.."Wimp_Crea|
00009100  74 65 4d 65 6e 75 22 2c  2c 77 6c 61 73 74 6d 65  |teMenu",,wlastme|
00009110  6e 75 25 2c 77 69 6d 70  25 21 30 2d 36 34 2c 77  |nu%,wimp%!0-64,w|
00009120  69 6d 70 25 21 34 2b 32  30 0d 05 36 05 e1 0d 05  |imp%!4+20..6....|
00009130  37 17 dd 20 f2 77 69 6d  70 5f 70 6f 6c 6c 6d 65  |7.. .wimp_pollme|
00009140  73 73 61 67 65 0d 05 38  11 c8 8e 20 77 69 6d 70  |ssage..8... wimp|
00009150  25 21 31 36 20 ca 0d 05  39 1a c9 20 30 20 20 20  |%!16 ...9.. 0   |
00009160  20 20 20 3a 20 66 69 6e  69 73 68 65 64 25 3d b9  |   : finished%=.|
00009170  0d 05 3a 20 c9 20 31 20  20 20 20 20 20 3a 20 f2  |..: . 1      : .|
00009180  77 69 6d 70 5f 64 61 74  61 6c 6f 61 64 61 70 70  |wimp_dataloadapp|
00009190  0d 05 3b 1d c9 20 32 20  20 20 20 20 20 3a 20 f2  |..;.. 2      : .|
000091a0  77 69 6d 70 5f 64 61 74  61 73 61 76 65 0d 05 3c  |wimp_datasave..<|
000091b0  27 c9 20 33 2c 35 20 20  20 20 3a 20 f2 77 69 6d  |'. 3,5    : .wim|
000091c0  70 5f 64 61 74 61 6c 6f  61 64 28 77 69 6d 70 25  |p_dataload(wimp%|
000091d0  21 31 36 29 0d 05 3d 1f  c9 20 38 20 20 20 20 20  |!16)..=.. 8     |
000091e0  20 3a 20 f2 77 69 6d 70  5f 71 75 69 74 69 73 73  | : .wimp_quitiss|
000091f0  75 65 64 0d 05 3e 19 c9  20 26 35 30 32 20 20 20  |ued..>.. &502   |
00009200  3a 20 f2 77 69 6d 70 5f  68 65 6c 70 0d 05 3f 1f  |: .wimp_help..?.|
00009210  c9 20 26 34 30 30 43 31  20 3a 20 f2 75 73 65 72  |. &400C1 : .user|
00009220  5f 6d 6f 64 65 63 68 61  6e 67 65 0d 05 40 20 c9  |_modechange..@ .|
00009230  20 26 34 30 30 43 30 20  3a 20 f2 77 69 6d 70 5f  | &400C0 : .wimp_|
00009240  6f 70 65 6e 73 75 62 6d  65 6e 75 0d 05 41 22 c9  |opensubmenu..A".|
00009250  20 26 38 30 31 34 37 20  3a 20 f2 75 73 65 72 5f  | &80147 : .user_|
00009260  70 72 69 6e 74 65 72 63  68 61 6e 67 65 0d 05 42  |printerchange..B|
00009270  05 cb 0d 05 43 05 e1 0d  05 44 15 dd 20 f2 77 69  |....C....D.. .wi|
00009280  6d 70 5f 63 6c 6f 73 65  64 6f 77 6e 0d 05 45 07  |mp_closedown..E.|
00009290  ea 20 4c 0d 05 46 0f e3  20 4c 3d 30 20 b8 20 32  |. L..F.. L=0 . 2|
000092a0  35 35 0d 05 47 27 20 20  e7 20 77 66 6f 6e 74 62  |55..G'  . wfontb|
000092b0  75 66 25 3f 4c 20 c8 99  22 46 6f 6e 74 5f 4c 6f  |uf%?L .."Font_Lo|
000092c0  73 65 46 6f 6e 74 22 2c  4c 0d 05 48 07 ed 20 4c  |seFont",L..H.. L|
000092d0  0d 05 49 16 c8 99 22 57  69 6d 70 5f 43 6c 6f 73  |..I..."Wimp_Clos|
000092e0  65 44 6f 77 6e 22 0d 05  4a 05 e1 0d 05 4b 23 dd  |eDown"..J....K#.|
000092f0  20 a4 77 69 6d 70 5f 69  63 6f 6e 62 61 72 73 70  | .wimp_iconbarsp|
00009300  28 73 70 72 69 74 65 24  2c 70 6f 73 25 29 0d 05  |(sprite$,pos%)..|
00009310  4c 17 24 77 69 73 70 72  69 74 65 32 25 3d 73 70  |L.$wisprite2%=sp|
00009320  72 69 74 65 24 0d 05 4d  10 77 69 6d 70 25 21 30  |rite$..M.wimp%!0|
00009330  3d 70 6f 73 25 0d 05 4e  0d 77 69 6d 70 25 21 34  |=pos%..N.wimp%!4|
00009340  3d 30 0d 05 4f 0d 77 69  6d 70 25 21 38 3d 30 0d  |=0..O.wimp%!8=0.|
00009350  05 50 0f 77 69 6d 70 25  21 31 32 3d 36 38 0d 05  |.P.wimp%!12=68..|
00009360  51 0f 77 69 6d 70 25 21  31 36 3d 38 30 0d 05 52  |Q.wimp%!16=80..R|
00009370  16 77 69 6d 70 25 21 32  30 3d 26 31 37 30 30 33  |.wimp%!20=&17003|
00009380  31 30 41 0d 05 53 17 77  69 6d 70 25 21 32 34 3d  |10A..S.wimp%!24=|
00009390  77 69 73 70 72 69 74 65  32 25 0d 05 54 0e 77 69  |wisprite2%..T.wi|
000093a0  6d 70 25 21 32 38 3d 31  0d 05 55 0f 77 69 6d 70  |mp%!28=1..U.wimp|
000093b0  25 21 33 32 3d 32 30 0d  05 56 0e 77 42 41 52 54  |%!32=20..V.wBART|
000093c0  45 58 54 3d a3 0d 05 57  27 c8 99 22 57 69 6d 70  |EXT=...W'.."Wimp|
000093d0  5f 43 72 65 61 74 65 49  63 6f 6e 22 2c 2c 77 69  |_CreateIcon",,wi|
000093e0  6d 70 25 20 b8 20 77 69  68 61 6e 25 0d 05 58 07  |mp% . wihan%..X.|
000093f0  3d 2d 32 0d 05 59 23 dd  20 a4 77 69 6d 70 5f 63  |=-2..Y#. .wimp_c|
00009400  72 65 61 74 65 6d 65 6e  75 28 6d 65 6e 75 24 2c  |reatemenu(menu$,|
00009410  73 69 7a 65 25 29 0d 05  5a 34 ea 20 77 6d 65 6e  |size%)..Z4. wmen|
00009420  75 25 2c 6e 75 6d 2c 71  2c 4c 2c 6d 66 6c 61 67  |u%,num,q,L,mflag|
00009430  73 25 2c 61 25 2c 77 69  64 74 68 25 2c 65 78 74  |s%,a%,width%,ext|
00009440  72 61 25 2c 74 69 74 6c  65 24 0d 05 5b 24 6e 75  |ra%,title$..[$nu|
00009450  6d 3d a4 77 69 6d 70 5f  6e 75 6d 62 65 72 6f 66  |m=.wimp_numberof|
00009460  65 6e 74 72 69 65 73 28  6d 65 6e 75 24 29 0d 05  |entries(menu$)..|
00009470  5c 0a 6e 75 6d 2d 3d 31  0d 05 5d 18 e7 20 73 69  |\.num-=1..].. si|
00009480  7a 65 25 3c 3d 6e 75 6d  20 73 69 7a 65 25 3d 30  |ze%<=num size%=0|
00009490  0d 05 5e 22 e7 20 73 69  7a 65 25 3d 30 20 de 20  |..^". size%=0 . |
000094a0  77 6d 65 6e 75 25 20 28  6e 75 6d 2a 32 34 29 2b  |wmenu% (num*24)+|
000094b0  32 38 0d 05 5f 3f e7 20  73 69 7a 65 25 3e 30 20  |28.._?. size%>0 |
000094c0  65 78 74 72 61 25 3d 73  69 7a 65 25 2d 6e 75 6d  |extra%=size%-num|
000094d0  3a de 20 77 6d 65 6e 75  25 20 28 6e 75 6d 2a 32  |:. wmenu% (num*2|
000094e0  34 29 2b 32 38 2b 28 65  78 74 72 61 25 2a 32 34  |4)+28+(extra%*24|
000094f0  29 0d 05 60 11 71 3d a7  6d 65 6e 75 24 2c 22 2f  |)..`.q=.menu$,"/|
00009500  22 29 0d 05 61 16 74 69  74 6c 65 24 3d c0 6d 65  |")..a.title$=.me|
00009510  6e 75 24 2c 71 2d 31 29  0d 05 62 25 e7 20 a9 28  |nu$,q-1)..b%. .(|
00009520  74 69 74 6c 65 24 29 3e  31 31 20 74 69 74 6c 65  |title$)>11 title|
00009530  24 3d c0 74 69 74 6c 65  24 2c 31 31 29 0d 05 63  |$=.title$,11)..c|
00009540  12 24 77 6d 65 6e 75 25  3d 74 69 74 6c 65 24 0d  |.$wmenu%=title$.|
00009550  05 64 1c 6d 65 6e 75 24  3d c2 6d 65 6e 75 24 2c  |.d.menu$=.menu$,|
00009560  a9 28 6d 65 6e 75 24 29  2d 71 29 0d 05 65 20 77  |.(menu$)-q)..e w|
00009570  69 64 74 68 25 3d 28 a9  28 c0 6d 65 6e 75 24 2c  |idth%=(.(.menu$,|
00009580  71 2d 31 29 29 2d 31 29  2a 31 36 0d 05 66 17 77  |q-1))-1)*16..f.w|
00009590  6d 65 6e 75 25 21 31 32  3d 26 30 30 30 37 30 32  |menu%!12=&000702|
000095a0  30 37 0d 05 67 10 77 6d  65 6e 75 25 21 32 30 3d  |07..g.wmenu%!20=|
000095b0  34 34 0d 05 68 0f 77 6d  65 6e 75 25 21 32 34 3d  |44..h.wmenu%!24=|
000095c0  30 0d 05 69 13 77 70 74  72 25 3d 77 6d 65 6e 75  |0..i.wptr%=wmenu|
000095d0  25 2b 32 38 0d 05 6a 0f  e3 20 4c 3d 31 20 b8 20  |%+28..j.. L=1 . |
000095e0  6e 75 6d 0d 05 6b 22 f2  77 69 6d 70 5f 64 65 63  |num..k".wimp_dec|
000095f0  6f 64 65 6d 65 6e 75 65  6e 74 72 79 28 6d 65 6e  |odemenuentry(men|
00009600  75 24 2c 4c 29 0d 05 6c  23 e7 20 4c 3d 6e 75 6d  |u$,L)..l#. L=num|
00009610  20 6d 66 6c 61 67 73 25  3d 26 38 38 20 8b 20 6d  | mflags%=&88 . m|
00009620  66 6c 61 67 73 25 3d 38  0d 05 6d 12 21 77 70 74  |flags%=8..m.!wpt|
00009630  72 25 3d 6d 66 6c 61 67  73 25 0d 05 6e 14 77 70  |r%=mflags%..n.wp|
00009640  74 72 25 21 34 3d 77 73  75 62 70 74 72 25 0d 05  |tr%!4=wsubptr%..|
00009650  6f 14 77 70 74 72 25 21  38 3d 26 37 30 30 30 30  |o.wptr%!8=&70000|
00009660  32 31 0d 05 70 62 e7 20  a9 28 69 74 65 6d 24 29  |21..pb. .(item$)|
00009670  3e 31 31 20 de 20 74 77  65 6c 76 65 25 20 a9 28  |>11 . twelve% .(|
00009680  69 74 65 6d 24 29 3a 24  28 74 77 65 6c 76 65 25  |item$):$(twelve%|
00009690  29 3d 69 74 65 6d 24 3a  77 70 74 72 25 21 38 3d  |)=item$:wptr%!8=|
000096a0  26 37 30 30 30 31 32 31  3a 77 70 74 72 25 21 31  |&7000121:wptr%!1|
000096b0  32 3d 74 77 65 6c 76 65  25 3a 77 70 74 72 25 21  |2=twelve%:wptr%!|
000096c0  31 36 3d 30 0d 05 71 23  e7 20 a9 28 69 74 65 6d  |16=0..q#. .(item|
000096d0  24 29 3c 31 32 20 24 28  77 70 74 72 25 2b 31 32  |$)<12 $(wptr%+12|
000096e0  29 3d 69 74 65 6d 24 0d  05 72 16 61 25 3d 28 a9  |)=item$..r.a%=(.|
000096f0  28 69 74 65 6d 24 29 2b  31 29 2a 31 36 0d 05 73  |(item$)+1)*16..s|
00009700  19 e7 20 61 25 3e 77 69  64 74 68 25 20 77 69 64  |.. a%>width% wid|
00009710  74 68 25 3d 61 25 0d 05  74 0d 77 70 74 72 25 2b  |th%=a%..t.wptr%+|
00009720  3d 32 34 0d 05 75 07 ed  20 4c 0d 05 76 2d f4 20  |=24..u.. L..v-. |
00009730  6d 69 6e 25 3d 28 46 4e  75 73 65 72 5f 6d 69 6e  |min%=(FNuser_min|
00009740  6d 65 6e 75 77 69 64 74  68 28 77 6d 65 6e 75 25  |menuwidth(wmenu%|
00009750  29 2b 31 29 2a 31 36 0d  05 77 20 f4 20 49 46 20  |)+1)*16..w . IF |
00009760  6d 69 6e 25 3e 77 69 64  74 68 25 20 77 69 64 74  |min%>width% widt|
00009770  68 25 3d 6d 69 6e 25 0d  05 78 14 77 6d 65 6e 75  |h%=min%..x.wmenu|
00009780  25 21 31 36 3d 77 69 64  74 68 25 0d 05 79 0b 3d  |%!16=width%..y.=|
00009790  77 6d 65 6e 75 25 0d 05  7a 21 dd 20 f2 77 69 6d  |wmenu%..z!. .wim|
000097a0  70 5f 70 75 74 63 61 72  65 74 28 77 68 61 6e 25  |p_putcaret(whan%|
000097b0  2c 69 63 6f 6e 25 29 0d  05 7b 0f ea 20 78 6f 66  |,icon%)..{.. xof|
000097c0  66 2c 79 6f 66 66 0d 05  7c 13 78 6f 66 66 3d 31  |f,yoff..|.xoff=1|
000097d0  45 36 3a 79 6f 66 66 3d  30 0d 05 7d 39 c8 99 22  |E6:yoff=0..}9.."|
000097e0  57 69 6d 70 5f 53 65 74  43 61 72 65 74 50 6f 73  |Wimp_SetCaretPos|
000097f0  69 74 69 6f 6e 22 2c 77  68 61 6e 25 2c 69 63 6f  |ition",whan%,ico|
00009800  6e 25 2c 78 6f 66 66 2c  79 6f 66 66 2c 2d 31 2c  |n%,xoff,yoff,-1,|
00009810  2d 31 0d 05 7e 05 e1 0d  05 7f 18 dd 20 f2 77 69  |-1..~....... .wi|
00009820  6d 70 5f 63 65 6e 74 72  65 77 69 6e 64 6f 77 0d  |mp_centrewindow.|
00009830  05 80 3f ea 20 78 30 2c  79 30 2c 78 31 2c 79 31  |..?. x0,y0,x1,y1|
00009840  2c 77 77 69 64 74 68 2c  77 68 65 69 67 68 74 2c  |,wwidth,wheight,|
00009850  58 45 69 67 2c 59 45 69  67 2c 73 78 2c 73 79 2c  |XEig,YEig,sx,sy,|
00009860  73 77 69 64 74 68 2c 73  68 65 69 67 68 74 0d 05  |swidth,sheight..|
00009870  81 19 78 30 3d 77 69 6d  70 25 21 34 3a 79 30 3d  |..x0=wimp%!4:y0=|
00009880  77 69 6d 70 25 21 38 0d  05 82 1b 78 31 3d 77 69  |wimp%!8....x1=wi|
00009890  6d 70 25 21 31 32 3a 79  31 3d 77 69 6d 70 25 21  |mp%!12:y1=wimp%!|
000098a0  31 36 0d 05 83 1e 77 77  69 64 74 68 3d 78 31 2d  |16....wwidth=x1-|
000098b0  78 30 3a 77 68 65 69 67  68 74 3d 79 31 2d 79 30  |x0:wheight=y1-y0|
000098c0  0d 05 84 29 c8 99 22 4f  53 5f 52 65 61 64 4d 6f  |...).."OS_ReadMo|
000098d0  64 65 56 61 72 69 61 62  6c 65 22 2c 2d 31 2c 34  |deVariable",-1,4|
000098e0  20 b8 20 2c 2c 58 45 69  67 0d 05 85 29 c8 99 22  | . ,,XEig...).."|
000098f0  4f 53 5f 52 65 61 64 4d  6f 64 65 56 61 72 69 61  |OS_ReadModeVaria|
00009900  62 6c 65 22 2c 2d 31 2c  35 20 b8 20 2c 2c 59 45  |ble",-1,5 . ,,YE|
00009910  69 67 0d 05 86 28 c8 99  22 4f 53 5f 52 65 61 64  |ig...(.."OS_Read|
00009920  4d 6f 64 65 56 61 72 69  61 62 6c 65 22 2c 2d 31  |ModeVariable",-1|
00009930  2c 31 31 20 b8 20 2c 2c  73 78 0d 05 87 28 c8 99  |,11 . ,,sx...(..|
00009940  22 4f 53 5f 52 65 61 64  4d 6f 64 65 56 61 72 69  |"OS_ReadModeVari|
00009950  61 62 6c 65 22 2c 2d 31  2c 31 32 20 b8 20 2c 2c  |able",-1,12 . ,,|
00009960  73 79 0d 05 88 13 73 77  69 64 74 68 3d 73 78 3c  |sy....swidth=sx<|
00009970  3c 58 45 69 67 0d 05 89  14 73 68 65 69 67 68 74  |<XEig....sheight|
00009980  3d 73 79 3c 3c 59 45 69  67 0d 05 8a 18 78 30 3d  |=sy<<YEig....x0=|
00009990  28 73 77 69 64 74 68 2d  77 77 69 64 74 68 29 2f  |(swidth-wwidth)/|
000099a0  32 0d 05 8b 1a 79 30 3d  28 73 68 65 69 67 68 74  |2....y0=(sheight|
000099b0  2d 77 68 65 69 67 68 74  29 2f 32 0d 05 8c 19 77  |-wheight)/2....w|
000099c0  69 6d 70 25 21 34 3d 78  30 3a 77 69 6d 70 25 21  |imp%!4=x0:wimp%!|
000099d0  38 3d 79 30 0d 05 8d 1e  78 31 3d 78 30 2b 77 77  |8=y0....x1=x0+ww|
000099e0  69 64 74 68 3a 79 31 3d  79 30 2b 77 68 65 69 67  |idth:y1=y0+wheig|
000099f0  68 74 0d 05 8e 1b 77 69  6d 70 25 21 31 32 3d 78  |ht....wimp%!12=x|
00009a00  31 3a 77 69 6d 70 25 21  31 36 3d 79 31 0d 05 8f  |1:wimp%!16=y1...|
00009a10  05 e1 0d 05 90 26 dd 20  f2 77 69 6d 70 5f 70 6f  |.....&. .wimp_po|
00009a20  69 6e 74 65 72 63 65 6e  74 72 65 77 69 6e 64 6f  |intercentrewindo|
00009a30  77 28 77 68 61 6e 25 29  0d 05 91 24 ea 20 6d 78  |w(whan%)...$. mx|
00009a40  25 2c 6d 79 25 2c 77 69  64 74 68 25 2c 68 65 69  |%,my%,width%,hei|
00009a50  67 68 74 25 2c 78 70 25  2c 79 70 25 0d 05 92 22  |ght%,xp%,yp%..."|
00009a60  c8 99 22 57 69 6d 70 5f  47 65 74 50 6f 69 6e 74  |.."Wimp_GetPoint|
00009a70  65 72 49 6e 66 6f 22 2c  2c 77 69 6d 70 25 0d 05  |erInfo",,wimp%..|
00009a80  93 1b 6d 78 25 3d 77 69  6d 70 25 21 30 3a 6d 79  |..mx%=wimp%!0:my|
00009a90  25 3d 77 69 6d 70 25 21  34 0d 05 94 11 77 69 6d  |%=wimp%!4....wim|
00009aa0  70 25 21 30 3d 77 68 61  6e 25 0d 05 95 21 c8 99  |p%!0=whan%...!..|
00009ab0  22 57 69 6d 70 5f 47 65  74 57 69 6e 64 6f 77 49  |"Wimp_GetWindowI|
00009ac0  6e 66 6f 22 2c 2c 77 69  6d 70 25 0d 05 96 34 77  |nfo",,wimp%...4w|
00009ad0  69 64 74 68 25 3d 77 69  6d 70 25 21 31 32 2d 77  |idth%=wimp%!12-w|
00009ae0  69 6d 70 25 21 34 3a 68  65 69 67 68 74 25 3d 77  |imp%!4:height%=w|
00009af0  69 6d 70 25 21 31 36 2d  77 69 6d 70 25 21 38 0d  |imp%!16-wimp%!8.|
00009b00  05 97 26 78 70 25 3d 6d  78 25 2d 77 69 64 74 68  |..&xp%=mx%-width|
00009b10  25 2f 32 3a 79 70 25 3d  6d 79 25 2d 68 65 69 67  |%/2:yp%=my%-heig|
00009b20  68 74 25 2f 32 0d 05 98  1b 77 69 6d 70 25 21 34  |ht%/2....wimp%!4|
00009b30  3d 78 70 25 3a 77 69 6d  70 25 21 38 3d 79 70 25  |=xp%:wimp%!8=yp%|
00009b40  0d 05 99 2c 77 69 6d 70  25 21 31 32 3d 78 70 25  |...,wimp%!12=xp%|
00009b50  2b 77 69 64 74 68 25 3a  77 69 6d 70 25 21 31 36  |+width%:wimp%!16|
00009b60  3d 79 70 25 2b 68 65 69  67 68 74 25 0d 05 9a 05  |=yp%+height%....|
00009b70  e1 0d 05 9b 20 dd 20 f2  77 69 6d 70 5f 69 62 61  |.... . .wimp_iba|
00009b80  72 73 70 72 69 74 65 70  28 73 70 72 69 74 65 24  |rspritep(sprite$|
00009b90  29 0d 05 9c 1d 77 69 6d  70 25 21 30 3d 2d 32 3a  |)....wimp%!0=-2:|
00009ba0  77 69 6d 70 25 21 34 3d  77 69 68 61 6e 25 0d 05  |wimp%!4=wihan%..|
00009bb0  9d 20 c8 99 22 57 69 6d  70 5f 47 65 74 49 63 6f  |. .."Wimp_GetIco|
00009bc0  6e 53 74 61 74 65 22 2c  2c 77 69 6d 70 25 0d 05  |nState",,wimp%..|
00009bd0  9e 17 24 28 77 69 6d 70  25 21 32 38 29 3d 73 70  |..$(wimp%!28)=sp|
00009be0  72 69 74 65 24 0d 05 9f  3e c8 99 22 57 69 6d 70  |rite$...>.."Wimp|
00009bf0  5f 46 6f 72 63 65 52 65  64 72 61 77 22 2c 2d 32  |_ForceRedraw",-2|
00009c00  2c 77 69 6d 70 25 21 38  2c 77 69 6d 70 25 21 31  |,wimp%!8,wimp%!1|
00009c10  32 2c 77 69 6d 70 25 21  31 36 2c 77 69 6d 70 25  |2,wimp%!16,wimp%|
00009c20  21 32 30 0d 05 a0 05 e1  0d 05 a1 27 c8 99 22 57  |!20........'.."W|
00009c30  69 6d 70 5f 46 6f 72 63  65 52 65 64 72 61 77 22  |imp_ForceRedraw"|
00009c40  2c 2d 31 2c 30 2c 30 2c  31 45 36 2c 31 33 30 0d  |,-1,0,0,1E6,130.|
00009c50  05 a2 05 e1 0d 05 a3 14  dd 20 f2 77 69 6d 70 5f  |......... .wimp_|
00009c60  73 61 76 65 77 69 6d 70  0d 05 a4 13 e3 20 4c 3d  |savewimp..... L=|
00009c70  30 20 b8 20 33 31 36 20  88 20 34 0d 05 a5 16 20  |0 . 316 . 4.... |
00009c80  20 77 74 62 6c 6b 25 21  4c 3d 77 69 6d 70 25 21  | wtblk%!L=wimp%!|
00009c90  4c 0d 05 a6 07 ed 20 4c  0d 05 a7 05 e1 0d 05 a8  |L..... L........|
00009ca0  14 dd 20 f2 77 69 6d 70  5f 6c 6f 61 64 77 69 6d  |.. .wimp_loadwim|
00009cb0  70 0d 05 a9 13 e3 20 4c  3d 30 20 b8 20 33 31 36  |p..... L=0 . 316|
00009cc0  20 88 20 34 0d 05 aa 16  20 20 77 69 6d 70 25 21  | . 4....  wimp%!|
00009cd0  4c 3d 77 74 62 6c 6b 25  21 4c 0d 05 ab 07 ed 20  |L=wtblk%!L..... |
00009ce0  4c 0d 05 ac 05 e1 0d 05  ad 1e dd 20 a4 77 69 6d  |L.......... .wim|
00009cf0  70 5f 67 65 74 6c 65 61  66 6e 61 6d 65 28 74 65  |p_getleafname(te|
00009d00  78 74 24 29 0d 05 ae 09  ea 20 4c 2c 70 0d 05 af  |xt$)..... L,p...|
00009d10  07 70 3d 30 0d 05 b0 14  e3 20 4c 3d 31 20 b8 20  |.p=0..... L=1 . |
00009d20  a9 28 74 65 78 74 24 29  0d 05 b1 19 e7 20 c1 74  |.(text$)..... .t|
00009d30  65 78 74 24 2c 4c 2c 31  29 3d 22 2e 22 20 70 3d  |ext$,L,1)="." p=|
00009d40  4c 0d 05 b2 07 ed 20 4c  0d 05 b3 10 e7 20 70 3d  |L..... L..... p=|
00009d50  30 20 3d 74 65 78 74 24  0d 05 b4 17 3d c2 74 65  |0 =text$....=.te|
00009d60  78 74 24 2c a9 28 74 65  78 74 24 29 2d 70 29 0d  |xt$,.(text$)-p).|
00009d70  05 b5 19 dd 20 a4 77 69  6d 70 5f 73 74 72 69 6e  |.... .wimp_strin|
00009d80  67 28 77 70 74 72 25 29  0d 05 b6 08 ea 20 61 24  |g(wptr%)..... a$|
00009d90  0d 05 b7 10 c8 95 20 3f  77 70 74 72 25 3c 3e 30  |...... ?wptr%<>0|
00009da0  0d 05 b8 1a 61 24 2b 3d  bd 28 3f 77 70 74 72 25  |....a$+=.(?wptr%|
00009db0  29 3a 77 70 74 72 25 2b  3d 31 0d 05 b9 05 ce 0d  |):wptr%+=1......|
00009dc0  05 ba 07 3d 61 24 0d 05  bb 1a dd 20 f2 77 69 6d  |...=a$..... .wim|
00009dd0  70 5f 64 72 61 67 67 69  6e 67 73 6c 69 64 65 72  |p_draggingslider|
00009de0  0d 05 bc 28 ea 20 6d 69  6e 78 25 2c 6d 69 6e 79  |...(. minx%,miny|
00009df0  25 2c 6d 61 78 78 25 2c  6d 61 78 79 25 2c 6c 65  |%,maxx%,maxy%,le|
00009e00  6e 25 2c 6c 65 6e 32 25  0d 05 bd 24 21 77 69 6d  |n%,len2%...$!wim|
00009e10  70 25 3d 77 73 6c 69 64  65 77 25 3a 77 69 6d 70  |p%=wslidew%:wimp|
00009e20  25 21 34 3d 77 73 6c 69  64 65 69 25 0d 05 be 20  |%!4=wslidei%... |
00009e30  c8 99 22 57 69 6d 70 5f  47 65 74 49 63 6f 6e 53  |.."Wimp_GetIconS|
00009e40  74 61 74 65 22 2c 2c 77  69 6d 70 25 0d 05 bf 2a  |tate",,wimp%...*|
00009e50  6d 69 6e 78 25 3d 77 69  6d 70 25 21 38 2b 77 6f  |minx%=wimp%!8+wo|
00009e60  78 25 3a 6d 61 78 78 25  3d 77 69 6d 70 25 21 31  |x%:maxx%=wimp%!1|
00009e70  36 2b 77 6f 78 25 0d 05  c0 2b 6d 69 6e 79 25 3d  |6+wox%...+miny%=|
00009e80  77 69 6d 70 25 21 31 32  2b 77 6f 79 25 3a 6d 61  |wimp%!12+woy%:ma|
00009e90  78 79 25 3d 77 69 6d 70  25 21 32 30 2b 77 6f 79  |xy%=wimp%!20+woy|
00009ea0  25 0d 05 c1 22 c8 99 22  57 69 6d 70 5f 47 65 74  |%...".."Wimp_Get|
00009eb0  50 6f 69 6e 74 65 72 49  6e 66 6f 22 2c 2c 77 69  |PointerInfo",,wi|
00009ec0  6d 70 25 0d 05 c2 29 6c  65 6e 25 3d 21 77 69 6d  |mp%...)len%=!wim|
00009ed0  70 25 2d 6d 69 6e 78 25  3a 6c 65 6e 32 25 3d 77  |p%-minx%:len2%=w|
00009ee0  69 6d 70 25 21 34 2d 6d  69 6e 79 25 0d 05 c3 15  |imp%!4-miny%....|
00009ef0  e7 20 77 73 68 65 69 25  3e 77 73 77 69 64 25 20  |. wshei%>wswid% |
00009f00  8c 0d 05 c4 17 20 20 e7  20 6c 65 6e 32 25 3c 3e  |.....  . len2%<>|
00009f10  77 6c 65 6e 32 25 20 8c  0d 05 c5 2c 20 20 20 20  |wlen2% ....,    |
00009f20  f2 77 69 6d 70 5f 62 61  72 28 77 73 6c 69 64 65  |.wimp_bar(wslide|
00009f30  77 25 2c 77 73 6c 69 64  65 69 25 2c 6c 65 6e 32  |w%,wslidei%,len2|
00009f40  25 2c 31 29 0d 05 c6 14  20 20 20 20 77 6c 65 6e  |%,1)....    wlen|
00009f50  32 25 3d 6c 65 6e 32 25  0d 05 c7 5b 20 20 20 20  |2%=len2%...[    |
00009f60  f2 75 73 65 72 5f 73 6c  69 64 65 72 76 61 6c 75  |.user_slidervalu|
00009f70  65 28 77 73 6c 69 64 65  77 25 2c 77 73 6c 69 64  |e(wslidew%,wslid|
00009f80  65 69 25 2c a4 77 69 6d  70 5f 63 61 6c 63 73 6c  |ei%,.wimp_calcsl|
00009f90  69 64 65 70 63 65 6e 74  28 77 73 6c 69 64 65 77  |idepcent(wslidew|
00009fa0  25 2c 77 73 6c 69 64 65  69 25 2c 77 73 68 65 69  |%,wslidei%,wshei|
00009fb0  25 29 29 0d 05 c8 07 20  20 cd 0d 05 c9 05 cc 0d  |%))....  .......|
00009fc0  05 ca 15 20 20 e7 20 6c  65 6e 25 3c 3e 77 6c 65  |...  . len%<>wle|
00009fd0  6e 25 20 8c 0d 05 cb 2b  20 20 20 20 f2 77 69 6d  |n% ....+    .wim|
00009fe0  70 5f 62 61 72 28 77 73  6c 69 64 65 77 25 2c 77  |p_bar(wslidew%,w|
00009ff0  73 6c 69 64 65 69 25 2c  6c 65 6e 25 2c 30 29 0d  |slidei%,len%,0).|
0000a000  05 cc 12 20 20 20 20 77  6c 65 6e 25 3d 6c 65 6e  |...    wlen%=len|
0000a010  25 0d 05 cd 5b 20 20 20  20 f2 75 73 65 72 5f 73  |%...[    .user_s|
0000a020  6c 69 64 65 72 76 61 6c  75 65 28 77 73 6c 69 64  |lidervalue(wslid|
0000a030  65 77 25 2c 77 73 6c 69  64 65 69 25 2c a4 77 69  |ew%,wslidei%,.wi|
0000a040  6d 70 5f 63 61 6c 63 73  6c 69 64 65 70 63 65 6e  |mp_calcslidepcen|
0000a050  74 28 77 73 6c 69 64 65  77 25 2c 77 73 6c 69 64  |t(wslidew%,wslid|
0000a060  65 69 25 2c 77 73 77 69  64 25 29 29 0d 05 ce 07  |ei%,wswid%))....|
0000a070  20 20 cd 0d 05 cf 05 cd  0d 05 d0 05 e1 0d 05 d1  |  ..............|
0000a080  1f dd 20 a4 77 69 6d 70  5f 69 73 77 69 6e 64 6f  |.. .wimp_iswindo|
0000a090  77 6f 70 65 6e 28 77 68  61 6e 25 29 0d 05 d2 10  |wopen(whan%)....|
0000a0a0  21 77 69 6d 70 25 3d 77  68 61 6e 25 0d 05 d3 22  |!wimp%=whan%..."|
0000a0b0  c8 99 22 57 69 6d 70 5f  47 65 74 57 69 6e 64 6f  |.."Wimp_GetWindo|
0000a0c0  77 53 74 61 74 65 22 2c  2c 77 69 6d 70 25 0d 05  |wState",,wimp%..|
0000a0d0  d4 19 3d 28 77 69 6d 70  25 21 33 32 20 3e 3e 20  |..=(wimp%!32 >> |
0000a0e0  31 36 29 20 80 20 31 0d  05 d5 22 dd 20 f2 77 69  |16) . 1...". .wi|
0000a0f0  6d 70 5f 73 74 61 72 74  64 72 61 67 28 77 68 61  |mp_startdrag(wha|
0000a100  6e 25 2c 69 63 6f 6e 25  29 0d 05 d6 27 ea 20 6f  |n%,icon%)...'. o|
0000a110  78 25 2c 6f 79 25 2c 69  25 2c 77 25 2c 6e 24 2c  |x%,oy%,i%,w%,n$,|
0000a120  64 72 61 67 25 2c 77 72  69 74 65 25 2c 6f 6b 25  |drag%,write%,ok%|
0000a130  0d 05 d7 25 77 73 61 76  65 74 24 3d a4 75 73 65  |...%wsavet$=.use|
0000a140  72 5f 73 61 76 65 66 69  6c 65 74 79 70 65 28 77  |r_savefiletype(w|
0000a150  68 61 6e 25 29 0d 05 d8  35 e7 20 77 73 61 76 65  |han%)...5. wsave|
0000a160  74 24 3d 22 22 20 f2 77  69 6d 70 5f 73 74 61 72  |t$="" .wimp_star|
0000a170  74 73 6c 69 64 65 72 64  72 61 67 28 77 68 61 6e  |tsliderdrag(whan|
0000a180  25 2c 69 63 6f 6e 25 29  3a e1 0d 05 d9 22 77 73  |%,icon%):...."ws|
0000a190  61 76 65 77 25 3d 77 68  61 6e 25 3a 77 73 61 76  |avew%=whan%:wsav|
0000a1a0  65 64 72 61 67 25 3d 77  68 61 6e 25 0d 05 da 12  |edrag%=whan%....|
0000a1b0  21 77 69 6d 70 25 3d 77  73 61 76 65 77 25 0d 05  |!wimp%=wsavew%..|
0000a1c0  db 22 c8 99 22 57 69 6d  70 5f 47 65 74 57 69 6e  |.".."Wimp_GetWin|
0000a1d0  64 6f 77 53 74 61 74 65  22 2c 2c 77 69 6d 70 25  |dowState",,wimp%|
0000a1e0  0d 05 dc 18 6f 78 25 3d  77 69 6d 70 25 21 34 2d  |....ox%=wimp%!4-|
0000a1f0  77 69 6d 70 25 21 32 30  0d 05 dd 19 6f 79 25 3d  |wimp%!20....oy%=|
0000a200  77 69 6d 70 25 21 31 36  2d 77 69 6d 70 25 21 32  |wimp%!16-wimp%!2|
0000a210  34 0d 05 de 1a 64 72 61  67 25 3d 30 3a 77 72 69  |4....drag%=0:wri|
0000a220  74 65 25 3d 31 3a 6f 6b  25 3d 32 0d 05 df 2c f2  |te%=1:ok%=2...,.|
0000a230  75 73 65 72 5f 73 61 76  65 69 63 6f 6e 28 77 73  |user_saveicon(ws|
0000a240  61 76 65 77 25 2c 64 72  61 67 25 2c 77 72 69 74  |avew%,drag%,writ|
0000a250  65 25 2c 6f 6b 25 29 0d  05 e0 14 e7 20 64 72 61  |e%,ok%)..... dra|
0000a260  67 25 3c 3e 69 63 6f 6e  25 20 e1 0d 05 e1 11 77  |g%<>icon% .....w|
0000a270  69 6d 70 25 21 34 3d 64  72 61 67 25 0d 05 e2 20  |imp%!4=drag%... |
0000a280  c8 99 22 57 69 6d 70 5f  47 65 74 49 63 6f 6e 53  |.."Wimp_GetIconS|
0000a290  74 61 74 65 22 2c 2c 77  69 6d 70 25 0d 05 e3 18  |tate",,wimp%....|
0000a2a0  69 25 3d 28 77 69 6d 70  25 21 32 34 3e 3e 38 29  |i%=(wimp%!24>>8)|
0000a2b0  20 80 20 31 0d 05 e4 1e  e7 20 69 25 3d 30 20 6e  | . 1..... i%=0 n|
0000a2c0  24 3d 24 28 77 69 6d 70  25 2b 32 38 29 3a 77 25  |$=$(wimp%+28):w%|
0000a2d0  3d 31 0d 05 e5 25 e7 20  69 25 3d 31 20 6e 24 3d  |=1...%. i%=1 n$=|
0000a2e0  24 28 77 69 6d 70 25 21  32 38 29 3a 77 25 3d 77  |$(wimp%!28):w%=w|
0000a2f0  69 6d 70 25 21 33 32 0d  05 e6 2b 21 77 69 6d 70  |imp%!32...+!wimp|
0000a300  25 3d 77 69 6d 70 25 21  38 2b 6f 78 25 3a 77 69  |%=wimp%!8+ox%:wi|
0000a310  6d 70 25 21 34 3d 77 69  6d 70 25 21 31 32 2b 6f  |mp%!4=wimp%!12+o|
0000a320  79 25 0d 05 e7 2e 77 69  6d 70 25 21 38 3d 77 69  |y%....wimp%!8=wi|
0000a330  6d 70 25 21 31 36 2b 6f  78 25 3a 77 69 6d 70 25  |mp%!16+ox%:wimp%|
0000a340  21 31 32 3d 77 69 6d 70  25 21 32 30 2b 6f 79 25  |!12=wimp%!20+oy%|
0000a350  0d 05 e8 2f c8 99 22 44  72 61 67 41 53 70 72 69  |.../.."DragASpri|
0000a360  74 65 5f 53 74 61 72 74  22 2c 25 31 31 30 30 31  |te_Start",%11001|
0000a370  30 31 30 2c 77 25 2c 6e  24 2c 77 69 6d 70 25 0d  |010,w%,n$,wimp%.|
0000a380  05 e9 05 e1 0d 05 ea 2e  dd 20 f2 77 69 6d 70 5f  |......... .wimp_|
0000a390  63 6c 69 63 6b 65 64 73  6c 69 64 65 72 28 77 68  |clickedslider(wh|
0000a3a0  61 6e 25 2c 69 63 6f 6e  25 2c 6d 78 25 2c 6d 79  |an%,icon%,mx%,my|
0000a3b0  25 29 0d 05 eb 4c ea 20  6c 65 6e 25 2c 6d 69 6e  |%)...L. len%,min|
0000a3c0  78 25 2c 6d 69 6e 79 25  2c 6d 61 78 78 25 2c 6d  |x%,miny%,maxx%,m|
0000a3d0  61 78 79 25 2c 6f 78 25  2c 6f 79 25 2c 6c 65 6e  |axy%,ox%,oy%,len|
0000a3e0  32 25 2c 6d 69 6e 78 62  25 2c 6d 69 6e 79 62 25  |2%,minxb%,minyb%|
0000a3f0  2c 6d 61 78 78 62 25 2c  6d 61 78 79 62 25 0d 05  |,maxxb%,maxyb%..|
0000a400  ec 10 21 77 69 6d 70 25  3d 77 68 61 6e 25 0d 05  |..!wimp%=whan%..|
0000a410  ed 22 c8 99 22 57 69 6d  70 5f 47 65 74 57 69 6e  |.".."Wimp_GetWin|
0000a420  64 6f 77 53 74 61 74 65  22 2c 2c 77 69 6d 70 25  |dowState",,wimp%|
0000a430  0d 05 ee 18 6f 78 25 3d  77 69 6d 70 25 21 34 2d  |....ox%=wimp%!4-|
0000a440  77 69 6d 70 25 21 32 30  0d 05 ef 19 6f 79 25 3d  |wimp%!20....oy%=|
0000a450  77 69 6d 70 25 21 31 36  2d 77 69 6d 70 25 21 32  |wimp%!16-wimp%!2|
0000a460  34 0d 05 f0 1e 21 77 69  6d 70 25 3d 77 68 61 6e  |4....!wimp%=whan|
0000a470  25 3a 77 69 6d 70 25 21  34 3d 69 63 6f 6e 25 0d  |%:wimp%!4=icon%.|
0000a480  05 f1 20 c8 99 22 57 69  6d 70 5f 47 65 74 49 63  |.. .."Wimp_GetIc|
0000a490  6f 6e 53 74 61 74 65 22  2c 2c 77 69 6d 70 25 0d  |onState",,wimp%.|
0000a4a0  05 f2 28 6d 69 6e 78 25  3d 77 69 6d 70 25 21 38  |..(minx%=wimp%!8|
0000a4b0  2b 6f 78 25 3a 6d 61 78  78 25 3d 77 69 6d 70 25  |+ox%:maxx%=wimp%|
0000a4c0  21 31 36 2b 6f 78 25 0d  05 f3 29 6d 69 6e 79 25  |!16+ox%...)miny%|
0000a4d0  3d 77 69 6d 70 25 21 31  32 2b 6f 79 25 3a 6d 61  |=wimp%!12+oy%:ma|
0000a4e0  78 79 25 3d 77 69 6d 70  25 21 32 30 2b 6f 79 25  |xy%=wimp%!20+oy%|
0000a4f0  0d 05 f4 22 6c 65 6e 25  3d 6d 78 25 2d 6d 69 6e  |..."len%=mx%-min|
0000a500  78 25 3a 6c 65 6e 32 25  3d 6d 79 25 2d 6d 69 6e  |x%:len2%=my%-min|
0000a510  79 25 0d 05 f5 36 21 77  69 6d 70 25 3d 77 68 61  |y%...6!wimp%=wha|
0000a520  6e 25 3a 77 69 6d 70 25  21 34 3d a4 75 73 65 72  |n%:wimp%!4=.user|
0000a530  5f 73 6c 69 64 65 72 62  61 63 6b 28 77 68 61 6e  |_sliderback(whan|
0000a540  25 2c 69 63 6f 6e 25 29  0d 05 f6 20 c8 99 22 57  |%,icon%)... .."W|
0000a550  69 6d 70 5f 47 65 74 49  63 6f 6e 53 74 61 74 65  |imp_GetIconState|
0000a560  22 2c 2c 77 69 6d 70 25  0d 05 f7 2a 6d 69 6e 78  |",,wimp%...*minx|
0000a570  62 25 3d 77 69 6d 70 25  21 38 2b 6f 78 25 3a 6d  |b%=wimp%!8+ox%:m|
0000a580  61 78 78 62 25 3d 77 69  6d 70 25 21 31 36 2b 6f  |axxb%=wimp%!16+o|
0000a590  78 25 0d 05 f8 2b 6d 69  6e 79 62 25 3d 77 69 6d  |x%...+minyb%=wim|
0000a5a0  70 25 21 31 32 2b 6f 79  25 3a 6d 61 78 79 62 25  |p%!12+oy%:maxyb%|
0000a5b0  3d 77 69 6d 70 25 21 32  30 2b 6f 79 25 0d 05 f9  |=wimp%!20+oy%...|
0000a5c0  27 e7 20 28 6d 61 78 79  62 25 2d 6d 69 6e 79 62  |'. (maxyb%-minyb|
0000a5d0  25 29 3e 28 6d 61 78 78  62 25 2d 6d 69 6e 78 62  |%)>(maxxb%-minxb|
0000a5e0  25 29 20 8c 0d 05 fa 24  20 20 f2 77 69 6d 70 5f  |%) ....$  .wimp_|
0000a5f0  62 61 72 28 77 68 61 6e  25 2c 69 63 6f 6e 25 2c  |bar(whan%,icon%,|
0000a600  6c 65 6e 32 25 2c 31 29  0d 05 fb 05 cc 0d 05 fc  |len2%,1)........|
0000a610  23 20 20 f2 77 69 6d 70  5f 62 61 72 28 77 68 61  |#  .wimp_bar(wha|
0000a620  6e 25 2c 69 63 6f 6e 25  2c 6c 65 6e 25 2c 30 29  |n%,icon%,len%,0)|
0000a630  0d 05 fd 05 cd 0d 05 fe  36 21 77 69 6d 70 25 3d  |........6!wimp%=|
0000a640  77 68 61 6e 25 3a 77 69  6d 70 25 21 34 3d a4 75  |whan%:wimp%!4=.u|
0000a650  73 65 72 5f 73 6c 69 64  65 72 62 61 63 6b 28 77  |ser_sliderback(w|
0000a660  68 61 6e 25 2c 69 63 6f  6e 25 29 0d 05 ff 20 c8  |han%,icon%)... .|
0000a670  99 22 57 69 6d 70 5f 47  65 74 49 63 6f 6e 53 74  |."Wimp_GetIconSt|
0000a680  61 74 65 22 2c 2c 77 69  6d 70 25 0d 06 00 27 e7  |ate",,wimp%...'.|
0000a690  20 28 6d 61 78 79 62 25  2d 6d 69 6e 79 62 25 29  | (maxyb%-minyb%)|
0000a6a0  3e 28 6d 61 78 78 62 25  2d 6d 69 6e 78 62 25 29  |>(maxxb%-minxb%)|
0000a6b0  20 8c 0d 06 01 58 20 20  f2 75 73 65 72 5f 73 6c  | ....X  .user_sl|
0000a6c0  69 64 65 72 76 61 6c 75  65 28 77 68 61 6e 25 2c  |idervalue(whan%,|
0000a6d0  69 63 6f 6e 25 2c a4 77  69 6d 70 5f 63 61 6c 63  |icon%,.wimp_calc|
0000a6e0  73 6c 69 64 65 70 63 65  6e 74 28 77 68 61 6e 25  |slidepcent(whan%|
0000a6f0  2c 69 63 6f 6e 25 2c 77  69 6d 70 25 21 32 30 2d  |,icon%,wimp%!20-|
0000a700  77 69 6d 70 25 21 31 32  29 29 0d 06 02 05 cc 0d  |wimp%!12))......|
0000a710  06 03 57 20 20 f2 75 73  65 72 5f 73 6c 69 64 65  |..W  .user_slide|
0000a720  72 76 61 6c 75 65 28 77  68 61 6e 25 2c 69 63 6f  |rvalue(whan%,ico|
0000a730  6e 25 2c a4 77 69 6d 70  5f 63 61 6c 63 73 6c 69  |n%,.wimp_calcsli|
0000a740  64 65 70 63 65 6e 74 28  77 68 61 6e 25 2c 69 63  |depcent(whan%,ic|
0000a750  6f 6e 25 2c 77 69 6d 70  25 21 31 36 2d 77 69 6d  |on%,wimp%!16-wim|
0000a760  70 25 21 38 29 29 0d 06  04 05 cd 0d 06 05 05 e1  |p%!8))..........|
0000a770  0d 06 06 1c dd 20 f2 77  69 6d 70 5f 71 75 69 63  |..... .wimp_quic|
0000a780  6b 73 61 76 65 28 77 68  61 6e 25 29 0d 06 07 0d  |ksave(whan%)....|
0000a790  ea 20 70 61 74 68 24 2c  51 0d 06 08 24 70 61 74  |. path$,Q...$pat|
0000a7a0  68 24 3d a4 77 69 6d 70  5f 67 65 74 69 63 6f 6e  |h$=.wimp_geticon|
0000a7b0  74 65 78 74 28 77 68 61  6e 25 2c 31 29 0d 06 09  |text(whan%,1)...|
0000a7c0  13 e7 20 a7 70 61 74 68  24 2c 22 2e 22 29 20 8c  |.. .path$,".") .|
0000a7d0  0d 06 0a 21 51 3d a4 75  73 65 72 5f 73 61 76 65  |...!Q=.user_save|
0000a7e0  64 61 74 61 28 70 61 74  68 24 2c 77 68 61 6e 25  |data(path$,whan%|
0000a7f0  29 0d 06 0b 2c e7 20 51  3d 32 20 8c 20 f2 77 69  |)...,. Q=2 . .wi|
0000a800  6d 70 5f 65 72 72 6f 72  28 22 4d 65 73 73 61 67  |mp_error("Messag|
0000a810  65 22 2c f6 24 2c 31 2c  30 29 20 3a e1 0d 06 0c  |e",.$,1,0) :....|
0000a820  0b e7 20 51 3d 30 20 e1  0d 06 0d 33 ff 22 53 65  |.. Q=0 ....3."Se|
0000a830  74 54 79 70 65 20 22 2b  70 61 74 68 24 2b 22 20  |tType "+path$+" |
0000a840  22 2b a4 75 73 65 72 5f  73 61 76 65 66 69 6c 65  |"+.user_savefile|
0000a850  74 79 70 65 28 77 68 61  6e 25 29 0d 06 0e 05 cc  |type(whan%).....|
0000a860  0d 06 0f 5c f2 77 69 6d  70 5f 65 72 72 6f 72 28  |...\.wimp_error(|
0000a870  22 4d 65 73 73 61 67 65  22 2c 22 54 6f 20 73 61  |"Message","To sa|
0000a880  76 65 2c 20 64 72 61 67  20 74 68 65 20 69 63 6f  |ve, drag the ico|
0000a890  6e 20 74 6f 20 61 20 64  69 72 65 63 74 6f 72 79  |n to a directory|
0000a8a0  20 76 69 65 77 65 72 20  6f 72 20 61 70 70 6c 69  | viewer or appli|
0000a8b0  63 61 74 69 6f 6e 22 2c  31 2c 30 29 0d 06 10 05  |cation",1,0)....|
0000a8c0  cd 0d 06 11 05 e1 0d 06  12 2c dd 20 a4 77 69 6d  |.........,. .wim|
0000a8d0  70 5f 73 63 72 65 65 6e  74 6f 77 6f 72 6b 28 77  |p_screentowork(w|
0000a8e0  68 61 6e 25 2c 63 6f 6f  72 64 25 2c 73 69 64 65  |han%,coord%,side|
0000a8f0  25 29 0d 06 13 08 ea 20  66 25 0d 06 14 36 77 69  |%)..... f%...6wi|
0000a900  6d 70 25 21 30 3d 77 68  61 6e 25 3a c8 99 22 58  |mp%!0=whan%:.."X|
0000a910  57 69 6d 70 5f 47 65 74  57 69 6e 64 6f 77 49 6e  |Wimp_GetWindowIn|
0000a920  66 6f 22 2c 2c 77 69 6d  70 25 20 b8 20 3b 66 25  |fo",,wimp% . ;f%|
0000a930  0d 06 15 13 e7 20 28 66  25 20 80 20 31 29 3d 31  |..... (f% . 1)=1|
0000a940  20 3d 30 0d 06 16 26 e7  20 73 69 64 65 25 3d 30  | =0...&. side%=0|
0000a950  20 3d 63 6f 6f 72 64 25  2b 77 69 6d 70 25 21 32  | =coord%+wimp%!2|
0000a960  30 2d 77 69 6d 70 25 21  34 0d 06 17 27 e7 20 73  |0-wimp%!4...'. s|
0000a970  69 64 65 25 3d 31 20 3d  63 6f 6f 72 64 25 2b 77  |ide%=1 =coord%+w|
0000a980  69 6d 70 25 21 32 34 2d  77 69 6d 70 25 21 31 36  |imp%!24-wimp%!16|
0000a990  0d 06 18 06 3d 30 0d 06  19 1b dd 20 a4 77 69 6d  |....=0..... .wim|
0000a9a0  70 5f 6d 65 6e 75 73 69  7a 65 28 6d 68 61 6e 25  |p_menusize(mhan%|
0000a9b0  29 0d 06 1a 15 ea 20 77  70 74 72 25 2c 65 2c 6c  |)..... wptr%,e,l|
0000a9c0  2c 66 6c 61 67 25 0d 06  1b 07 65 3d a3 0d 06 1c  |,flag%....e=....|
0000a9d0  11 77 70 74 72 25 3d 6d  68 61 6e 25 2b 34 0d 06  |.wptr%=mhan%+4..|
0000a9e0  1d 07 6c 3d 30 0d 06 1e  05 f5 0d 06 1f 0d 77 70  |..l=0.........wp|
0000a9f0  74 72 25 2b 3d 32 34 0d  06 20 08 6c 2b 3d 31 0d  |tr%+=24.. .l+=1.|
0000aa00  06 21 11 66 6c 61 67 25  3d 77 70 74 72 25 21 30  |.!.flag%=wptr%!0|
0000aa10  0d 06 22 12 66 6c 61 67  25 3d 66 6c 61 67 25 3e  |..".flag%=flag%>|
0000aa20  3e 37 0d 06 23 17 e7 20  28 66 6c 61 67 25 20 80  |>7..#.. (flag% .|
0000aa30  20 31 29 3d 31 20 65 3d  b9 0d 06 24 09 fd 20 65  | 1)=1 e=...$.. e|
0000aa40  3d b9 0d 06 25 06 3d 6c  0d 06 26 21 dd 20 f2 77  |=...%.=l..&!. .w|
0000aa50  69 6d 70 5f 6d 65 6e 75  6a 75 73 74 6f 70 65 6e  |imp_menujustopen|
0000aa60  65 64 28 6d 65 6e 75 25  29 0d 06 27 16 ea 20 64  |ed(menu%)..'.. d|
0000aa70  72 61 67 25 2c 77 72 69  74 65 25 2c 6f 6b 25 0d  |rag%,write%,ok%.|
0000aa80  06 28 25 e7 20 a4 75 73  65 72 5f 73 61 76 65 66  |.(%. .user_savef|
0000aa90  69 6c 65 74 79 70 65 28  6d 65 6e 75 25 29 3c 3e  |iletype(menu%)<>|
0000aaa0  22 22 20 8c 0d 06 29 1c  20 20 64 72 61 67 25 3d  |"" ...).  drag%=|
0000aab0  30 3a 77 72 69 74 65 25  3d 31 3a 6f 6b 25 3d 32  |0:write%=1:ok%=2|
0000aac0  0d 06 2a 2c 20 20 f2 75  73 65 72 5f 73 61 76 65  |..*,  .user_save|
0000aad0  69 63 6f 6e 28 6d 65 6e  75 25 2c 64 72 61 67 25  |icon(menu%,drag%|
0000aae0  2c 77 72 69 74 65 25 2c  6f 6b 25 29 0d 06 2b 22  |,write%,ok%)..+"|
0000aaf0  20 20 f2 77 69 6d 70 5f  70 75 74 63 61 72 65 74  |  .wimp_putcaret|
0000ab00  28 6d 65 6e 75 25 2c 77  72 69 74 65 25 29 0d 06  |(menu%,write%)..|
0000ab10  2c 05 cd 0d 06 2d 05 e1  0d 06 2e 19 dd 20 f2 77  |,....-....... .w|
0000ab20  69 6d 70 5f 65 6e 64 73  6c 69 64 65 72 64 72 61  |imp_endsliderdra|
0000ab30  67 0d 06 2f 12 77 73 6c  69 64 65 64 72 61 67 25  |g../.wslidedrag%|
0000ab40  3d 2d 31 0d 06 30 15 e7  20 77 73 68 65 69 25 3e  |=-1..0.. wshei%>|
0000ab50  77 73 77 69 64 25 20 8c  0d 06 31 59 20 20 f2 75  |wswid% ...1Y  .u|
0000ab60  73 65 72 5f 73 6c 69 64  65 72 76 61 6c 75 65 28  |ser_slidervalue(|
0000ab70  77 73 6c 69 64 65 77 25  2c 77 73 6c 69 64 65 69  |wslidew%,wslidei|
0000ab80  25 2c a4 77 69 6d 70 5f  63 61 6c 63 73 6c 69 64  |%,.wimp_calcslid|
0000ab90  65 70 63 65 6e 74 28 77  73 6c 69 64 65 77 25 2c  |epcent(wslidew%,|
0000aba0  77 73 6c 69 64 65 69 25  2c 77 73 68 65 69 25 29  |wslidei%,wshei%)|
0000abb0  29 0d 06 32 05 cc 0d 06  33 59 20 20 f2 75 73 65  |)..2....3Y  .use|
0000abc0  72 5f 73 6c 69 64 65 72  76 61 6c 75 65 28 77 73  |r_slidervalue(ws|
0000abd0  6c 69 64 65 77 25 2c 77  73 6c 69 64 65 69 25 2c  |lidew%,wslidei%,|
0000abe0  a4 77 69 6d 70 5f 63 61  6c 63 73 6c 69 64 65 70  |.wimp_calcslidep|
0000abf0  63 65 6e 74 28 77 73 6c  69 64 65 77 25 2c 77 73  |cent(wslidew%,ws|
0000ac00  6c 69 64 65 69 25 2c 77  73 77 69 64 25 29 29 0d  |lidei%,wswid%)).|
0000ac10  06 34 05 cd 0d 06 35 05  e1 0d 06 36 26 dd 20 f2  |.4....5....6&. .|
0000ac20  77 69 6d 70 5f 67 65 74  6d 65 6e 75 61 6e 64 69  |wimp_getmenuandi|
0000ac30  74 65 6d 28 77 6c 61 73  74 6d 65 6e 75 25 29 0d  |tem(wlastmenu%).|
0000ac40  06 37 07 ea 20 71 0d 06  38 39 e7 20 28 77 69 6d  |.7.. q..89. (wim|
0000ac50  70 25 21 34 29 3d 2d 31  20 77 6d 65 6e 75 25 3d  |p%!4)=-1 wmenu%=|
0000ac60  77 6c 61 73 74 6d 65 6e  75 25 3a 77 69 74 65 6d  |wlastmenu%:witem|
0000ac70  25 3d 28 77 69 6d 70 25  21 30 29 2b 31 3a e1 0d  |%=(wimp%!0)+1:..|
0000ac80  06 39 07 71 3d 30 0d 06  3a 15 77 6d 65 6e 75 25  |.9.q=0..:.wmenu%|
0000ac90  3d 77 6c 61 73 74 6d 65  6e 75 25 0d 06 3b 05 f5  |=wlastmenu%..;..|
0000aca0  0d 06 3c 33 77 6d 65 6e  75 25 3d a4 77 69 6d 70  |..<3wmenu%=.wimp|
0000acb0  5f 66 69 6e 64 73 75 62  6d 65 6e 75 70 74 72 28  |_findsubmenuptr(|
0000acc0  77 6d 65 6e 75 25 2c 28  77 69 6d 70 25 21 71 29  |wmenu%,(wimp%!q)|
0000acd0  2b 31 29 0d 06 3d 08 71  2b 3d 34 0d 06 3e 16 fd  |+1)..=.q+=4..>..|
0000ace0  20 28 77 69 6d 70 25 21  28 71 2b 34 29 29 3d 2d  | (wimp%!(q+4))=-|
0000acf0  31 0d 06 3f 16 77 69 74  65 6d 25 3d 28 77 69 6d  |1..?.witem%=(wim|
0000ad00  70 25 21 71 29 2b 31 0d  06 40 05 e1 0d 06 41 17  |p%!q)+1..@....A.|
0000ad10  dd 20 f2 77 69 6d 70 5f  64 61 74 61 6c 6f 61 64  |. .wimp_dataload|
0000ad20  61 70 70 0d 06 42 16 e7  20 77 69 6d 70 25 21 34  |app..B.. wimp%!4|
0000ad30  3d 77 74 61 73 6b 25 20  e1 0d 06 43 0e 77 69 6d  |=wtask% ...C.wim|
0000ad40  70 25 21 31 36 3d 32 0d  06 44 0f 77 69 6d 70 25  |p%!16=2..D.wimp%|
0000ad50  21 33 36 3d 2d 31 0d 06  45 14 77 69 6d 70 25 21  |!36=-1..E.wimp%!|
0000ad60  31 32 3d 77 69 6d 70 25  21 38 0d 06 46 30 f2 77  |12=wimp%!8..F0.w|
0000ad70  69 6d 70 5f 7a 65 72 6f  74 65 72 6d 69 6e 61 74  |imp_zeroterminat|
0000ad80  65 28 77 69 6d 70 25 2b  34 34 2c 22 3c 57 69 6d  |e(wimp%+44,"<Wim|
0000ad90  70 24 53 63 72 61 70 3e  22 29 0d 06 47 32 c8 99  |p$Scrap>")..G2..|
0000ada0  22 57 69 6d 70 5f 53 65  6e 64 4d 65 73 73 61 67  |"Wimp_SendMessag|
0000adb0  65 22 2c 31 37 2c 77 69  6d 70 25 2c 77 69 6d 70  |e",17,wimp%,wimp|
0000adc0  25 21 34 2c 77 69 6d 70  25 21 32 34 0d 06 48 05  |%!4,wimp%!24..H.|
0000add0  e1 0d 06 49 14 dd 20 f2  77 69 6d 70 5f 64 61 74  |...I.. .wimp_dat|
0000ade0  61 73 61 76 65 0d 06 4a  0e ea 20 70 61 74 68 24  |asave..J.. path$|
0000adf0  2c 51 25 0d 06 4b 20 70  61 74 68 24 3d a4 77 69  |,Q%..K path$=.wi|
0000ae00  6d 70 5f 73 74 72 69 6e  67 28 77 69 6d 70 25 2b  |mp_string(wimp%+|
0000ae10  34 34 29 0d 06 4c 12 f2  77 69 6d 70 5f 73 61 76  |44)..L..wimp_sav|
0000ae20  65 77 69 6d 70 0d 06 4d  24 51 25 3d a4 75 73 65  |ewimp..M$Q%=.use|
0000ae30  72 5f 73 61 76 65 64 61  74 61 28 70 61 74 68 24  |r_savedata(path$|
0000ae40  2c 77 73 61 76 65 77 25  29 0d 06 4e 12 f2 77 69  |,wsavew%)..N..wi|
0000ae50  6d 70 5f 6c 6f 61 64 77  69 6d 70 0d 06 4f 2d e7  |mp_loadwimp..O-.|
0000ae60  20 51 25 3d 32 20 8c 20  f2 77 69 6d 70 5f 65 72  | Q%=2 . .wimp_er|
0000ae70  72 6f 72 28 22 4d 65 73  73 61 67 65 22 2c f6 24  |ror("Message",.$|
0000ae80  2c 31 2c 30 29 20 3a e1  0d 06 50 0c e7 20 51 25  |,1,0) :...P.. Q%|
0000ae90  3d 30 20 e1 0d 06 51 21  ff 22 53 65 74 54 79 70  |=0 ...Q!."SetTyp|
0000aea0  65 20 22 2b 70 61 74 68  24 2b 22 20 22 2b 77 73  |e "+path$+" "+ws|
0000aeb0  61 76 65 74 24 0d 06 52  14 77 69 6d 70 25 21 31  |avet$..R.wimp%!1|
0000aec0  32 3d 77 69 6d 70 25 21  38 0d 06 53 0e 77 69 6d  |2=wimp%!8..S.wim|
0000aed0  70 25 21 31 36 3d 33 0d  06 54 0e 21 77 69 6d 70  |p%!16=3..T.!wimp|
0000aee0  25 3d 32 35 36 0d 06 55  33 c8 99 22 57 69 6d 70  |%=256..U3.."Wimp|
0000aef0  5f 53 65 6e 64 4d 65 73  73 61 67 65 22 2c 31 38  |_SendMessage",18|
0000af00  2c 77 69 6d 70 25 2c 77  69 6d 70 25 21 32 30 2c  |,wimp%,wimp%!20,|
0000af10  77 69 6d 70 25 21 32 34  0d 06 56 3e e7 20 70 61  |wimp%!24..V>. pa|
0000af20  74 68 24 3c 3e 22 3c 57  69 6d 70 24 53 63 72 61  |th$<>"<Wimp$Scra|
0000af30  70 3e 22 20 f2 77 69 6d  70 5f 70 75 74 69 63 6f  |p>" .wimp_putico|
0000af40  6e 74 65 78 74 28 77 73  61 76 65 77 25 2c 31 2c  |ntext(wsavew%,1,|
0000af50  70 61 74 68 24 29 0d 06  57 05 e1 0d 06 58 1b dd  |path$)..W....X..|
0000af60  20 f2 77 69 6d 70 5f 64  61 74 61 6c 6f 61 64 28  | .wimp_dataload(|
0000af70  74 79 70 65 25 29 0d 06  59 26 ea 20 77 68 61 6e  |type%)..Y&. whan|
0000af80  25 2c 69 63 6f 6e 25 2c  66 74 79 70 65 24 2c 70  |%,icon%,ftype$,p|
0000af90  61 74 68 24 2c 70 2c 78  25 2c 79 25 0d 06 5a 12  |ath$,p,x%,y%..Z.|
0000afa0  77 68 61 6e 25 3d 77 69  6d 70 25 21 32 30 0d 06  |whan%=wimp%!20..|
0000afb0  5b 12 69 63 6f 6e 25 3d  77 69 6d 70 25 21 32 34  |[.icon%=wimp%!24|
0000afc0  0d 06 5c 17 66 74 79 70  65 24 3d c3 7e 28 77 69  |..\.ftype$=.~(wi|
0000afd0  6d 70 25 21 34 30 29 0d  06 5d 20 70 61 74 68 24  |mp%!40)..] path$|
0000afe0  3d a4 77 69 6d 70 5f 73  74 72 69 6e 67 28 77 69  |=.wimp_string(wi|
0000aff0  6d 70 25 2b 34 34 29 0d  06 5e 12 f2 77 69 6d 70  |mp%+44)..^..wimp|
0000b000  5f 73 61 76 65 77 69 6d  70 0d 06 5f 1d e7 20 74  |_savewimp.._.. t|
0000b010  79 70 65 25 3d 35 20 77  68 61 6e 25 3d 30 3a 69  |ype%=5 whan%=0:i|
0000b020  63 6f 6e 25 3d 30 0d 06  60 1b 78 25 3d 77 69 6d  |con%=0..`.x%=wim|
0000b030  70 25 21 32 38 3a 79 25  3d 77 69 6d 70 25 21 33  |p%!28:y%=wimp%!3|
0000b040  32 0d 06 61 47 78 25 3d  a4 77 69 6d 70 5f 73 63  |2..aGx%=.wimp_sc|
0000b050  72 65 65 6e 74 6f 77 6f  72 6b 28 77 68 61 6e 25  |reentowork(whan%|
0000b060  2c 78 25 2c 30 29 3a 79  25 3d a4 77 69 6d 70 5f  |,x%,0):y%=.wimp_|
0000b070  73 63 72 65 65 6e 74 6f  77 6f 72 6b 28 77 68 61  |screentowork(wha|
0000b080  6e 25 2c 79 25 2c 31 29  0d 06 62 34 70 3d a4 75  |n%,y%,1)..b4p=.u|
0000b090  73 65 72 5f 6c 6f 61 64  64 61 74 61 28 70 61 74  |ser_loaddata(pat|
0000b0a0  68 24 2c 77 68 61 6e 25  2c 69 63 6f 6e 25 2c 66  |h$,whan%,icon%,f|
0000b0b0  74 79 70 65 24 2c 78 25  2c 79 25 29 0d 06 63 12  |type$,x%,y%)..c.|
0000b0c0  f2 77 69 6d 70 5f 6c 6f  61 64 77 69 6d 70 0d 06  |.wimp_loadwimp..|
0000b0d0  64 1b e7 20 70 3d 31 20  f2 77 69 6d 70 5f 64 61  |d.. p=1 .wimp_da|
0000b0e0  74 61 6c 6f 61 64 61 63  6b 0d 06 65 05 e1 0d 06  |taloadack..e....|
0000b0f0  66 16 dd 20 f2 77 69 6d  70 5f 71 75 69 74 69 73  |f.. .wimp_quitis|
0000b100  73 75 65 64 0d 06 67 12  f2 77 69 6d 70 5f 73 61  |sued..g..wimp_sa|
0000b110  76 65 77 69 6d 70 0d 06  68 17 e7 20 a4 75 73 65  |vewimp..h.. .use|
0000b120  72 5f 71 75 69 74 28 31  29 3d 30 20 8c 0d 06 69  |r_quit(1)=0 ...i|
0000b130  14 20 20 f2 77 69 6d 70  5f 6c 6f 61 64 77 69 6d  |.  .wimp_loadwim|
0000b140  70 0d 06 6a 1a 20 20 77  71 75 69 74 73 65 6e 64  |p..j.  wquitsend|
0000b150  65 72 25 3d 77 69 6d 70  25 21 34 0d 06 6b 16 20  |er%=wimp%!4..k. |
0000b160  20 77 69 6d 70 25 21 31  32 3d 77 69 6d 70 25 21  | wimp%!12=wimp%!|
0000b170  38 0d 06 6c 23 20 20 c8  99 22 57 69 6d 70 5f 53  |8..l#  .."Wimp_S|
0000b180  65 6e 64 4d 65 73 73 61  67 65 22 2c 31 39 2c 77  |endMessage",19,w|
0000b190  69 6d 70 25 0d 06 6d 05  cc 0d 06 6e 12 20 20 77  |imp%..m....n.  w|
0000b1a0  73 68 75 74 64 6f 77 6e  25 3d 31 0d 06 6f 05 cd  |shutdown%=1..o..|
0000b1b0  0d 06 70 05 e1 0d 06 71  10 dd 20 f2 77 69 6d 70  |..p....q.. .wimp|
0000b1c0  5f 68 65 6c 70 0d 06 72  34 ea 20 68 65 6c 70 25  |_help..r4. help%|
0000b1d0  2c 77 68 61 6e 25 2c 69  63 6f 6e 25 2c 72 65 66  |,whan%,icon%,ref|
0000b1e0  25 2c 68 65 6c 70 24 2c  64 65 73 74 25 2c 6d 77  |%,help$,dest%,mw|
0000b1f0  68 61 6e 25 2c 73 75 62  25 0d 06 73 11 64 65 73  |han%,sub%..s.des|
0000b200  74 25 3d 77 69 6d 70 25  21 34 0d 06 74 10 72 65  |t%=wimp%!4..t.re|
0000b210  66 25 3d 77 69 6d 70 25  21 38 0d 06 75 12 77 68  |f%=wimp%!8..u.wh|
0000b220  61 6e 25 3d 77 69 6d 70  25 21 33 32 0d 06 76 12  |an%=wimp%!32..v.|
0000b230  69 63 6f 6e 25 3d 77 69  6d 70 25 21 33 36 0d 06  |icon%=wimp%!36..|
0000b240  77 0c 68 65 6c 70 24 3d  22 22 0d 06 78 22 c8 99  |w.help$=""..x"..|
0000b250  22 57 69 6d 70 5f 47 65  74 50 6f 69 6e 74 65 72  |"Wimp_GetPointer|
0000b260  49 6e 66 6f 22 2c 2c 77  69 6d 70 25 0d 06 79 13  |Info",,wimp%..y.|
0000b270  6d 77 68 61 6e 25 3d 77  69 6d 70 25 21 31 32 0d  |mwhan%=wimp%!12.|
0000b280  06 7a 2d c8 99 22 57 69  6d 70 5f 47 65 74 4d 65  |.z-.."Wimp_GetMe|
0000b290  6e 75 53 74 61 74 65 22  2c 31 2c 77 69 6d 70 25  |nuState",1,wimp%|
0000b2a0  2c 77 68 61 6e 25 2c 69  63 6f 6e 25 0d 06 7b 12  |,whan%,icon%..{.|
0000b2b0  e7 20 21 77 69 6d 70 25  3c 3e 2d 31 20 8c 0d 06  |. !wimp%<>-1 ...|
0000b2c0  7c 26 20 20 f2 77 69 6d  70 5f 67 65 74 6d 65 6e  ||&  .wimp_getmen|
0000b2d0  75 61 6e 64 69 74 65 6d  28 77 6c 61 73 74 6d 65  |uanditem(wlastme|
0000b2e0  6e 75 25 29 0d 06 7d 22  20 20 73 75 62 25 3d 21  |nu%)..}"  sub%=!|
0000b2f0  28 77 6d 65 6e 75 25 2b  38 2b 28 77 69 74 65 6d  |(wmenu%+8+(witem|
0000b300  25 2a 32 34 29 29 0d 06  7e 15 20 20 e7 20 73 75  |%*24))..~.  . su|
0000b310  62 25 3d 6d 77 68 61 6e  25 20 8c 0d 06 7f 16 20  |b%=mwhan% ..... |
0000b320  20 20 20 f2 77 69 6d 70  5f 73 61 76 65 77 69 6d  |   .wimp_savewim|
0000b330  70 0d 06 80 25 20 20 20  20 68 65 6c 70 24 3d a4  |p...%    help$=.|
0000b340  75 73 65 72 5f 68 65 6c  70 28 77 68 61 6e 25 2c  |user_help(whan%,|
0000b350  69 63 6f 6e 25 29 0d 06  81 16 20 20 20 20 f2 77  |icon%)....    .w|
0000b360  69 6d 70 5f 6c 6f 61 64  77 69 6d 70 0d 06 82 07  |imp_loadwimp....|
0000b370  20 20 cc 0d 06 83 16 20  20 20 20 f2 77 69 6d 70  |  .....    .wimp|
0000b380  5f 73 61 76 65 77 69 6d  70 0d 06 84 2b 20 20 20  |_savewimp...+   |
0000b390  20 68 65 6c 70 24 3d a4  75 73 65 72 5f 6d 65 6e  | help$=.user_men|
0000b3a0  75 68 65 6c 70 28 77 6d  65 6e 75 25 2c 77 69 74  |uhelp(wmenu%,wit|
0000b3b0  65 6d 25 29 0d 06 85 16  20 20 20 20 f2 77 69 6d  |em%)....    .wim|
0000b3c0  70 5f 6c 6f 61 64 77 69  6d 70 0d 06 86 07 20 20  |p_loadwimp....  |
0000b3d0  cd 0d 06 87 05 cc 0d 06  88 14 20 20 f2 77 69 6d  |..........  .wim|
0000b3e0  70 5f 73 61 76 65 77 69  6d 70 0d 06 89 23 20 20  |p_savewimp...#  |
0000b3f0  68 65 6c 70 24 3d a4 75  73 65 72 5f 68 65 6c 70  |help$=.user_help|
0000b400  28 77 68 61 6e 25 2c 69  63 6f 6e 25 29 0d 06 8a  |(whan%,icon%)...|
0000b410  14 20 20 f2 77 69 6d 70  5f 6c 6f 61 64 77 69 6d  |.  .wimp_loadwim|
0000b420  70 0d 06 8b 05 cd 0d 06  8c 14 68 65 6c 70 24 3d  |p.........help$=|
0000b430  68 65 6c 70 24 2b 22 7c  4d 22 0d 06 8d 1b 21 77  |help$+"|M"....!w|
0000b440  69 6d 70 25 3d 28 a9 28  68 65 6c 70 24 29 2b 32  |imp%=(.(help$)+2|
0000b450  34 29 80 ac 33 0d 06 8e  11 77 69 6d 70 25 21 34  |4)..3....wimp%!4|
0000b460  3d 64 65 73 74 25 0d 06  8f 11 77 69 6d 70 25 21  |=dest%....wimp%!|
0000b470  31 32 3d 72 65 66 25 0d  06 90 11 77 69 6d 70 25  |12=ref%....wimp%|
0000b480  21 31 36 3d 26 35 30 33  0d 06 91 15 24 28 77 69  |!16=&503....$(wi|
0000b490  6d 70 25 2b 32 30 29 3d  68 65 6c 70 24 0d 06 92  |mp%+20)=help$...|
0000b4a0  29 c8 99 22 57 69 6d 70  5f 53 65 6e 64 4d 65 73  |).."Wimp_SendMes|
0000b4b0  73 61 67 65 22 2c 31 37  2c 77 69 6d 70 25 2c 77  |sage",17,wimp%,w|
0000b4c0  69 6d 70 25 21 34 0d 06  93 05 e1 0d 06 94 17 dd  |imp%!4..........|
0000b4d0  20 f2 77 69 6d 70 5f 6f  70 65 6e 73 75 62 6d 65  | .wimp_opensubme|
0000b4e0  6e 75 0d 06 95 36 c8 99  22 57 69 6d 70 5f 43 72  |nu...6.."Wimp_Cr|
0000b4f0  65 61 74 65 53 75 62 4d  65 6e 75 22 2c 2c 77 69  |eateSubMenu",,wi|
0000b500  6d 70 25 21 32 30 2c 77  69 6d 70 25 21 32 34 2c  |mp%!20,wimp%!24,|
0000b510  77 69 6d 70 25 21 32 38  0d 06 96 22 f2 77 69 6d  |wimp%!28...".wim|
0000b520  70 5f 6d 65 6e 75 6a 75  73 74 6f 70 65 6e 65 64  |p_menujustopened|
0000b530  28 77 69 6d 70 25 21 32  30 29 0d 06 97 05 e1 0d  |(wimp%!20)......|
0000b540  06 98 22 dd 20 a4 77 69  6d 70 5f 6e 75 6d 62 65  |..". .wimp_numbe|
0000b550  72 6f 66 65 6e 74 72 69  65 73 28 6d 65 6e 75 24  |rofentries(menu$|
0000b560  29 0d 06 99 0d ea 20 74  6f 74 61 6c 2c 4c 0d 06  |)..... total,L..|
0000b570  9a 0b 74 6f 74 61 6c 3d  31 0d 06 9b 14 e3 20 4c  |..total=1..... L|
0000b580  3d 31 20 b8 20 a9 28 6d  65 6e 75 24 29 0d 06 9c  |=1 . .(menu$)...|
0000b590  1e e7 20 c1 6d 65 6e 75  24 2c 4c 2c 31 29 3d 22  |.. .menu$,L,1)="|
0000b5a0  2f 22 20 74 6f 74 61 6c  2b 3d 31 0d 06 9d 07 ed  |/" total+=1.....|
0000b5b0  20 4c 0d 06 9e 0a 3d 74  6f 74 61 6c 0d 06 9f 24  | L....=total...$|
0000b5c0  dd 20 f2 77 69 6d 70 5f  64 65 63 6f 64 65 6d 65  |. .wimp_decodeme|
0000b5d0  6e 75 65 6e 74 72 79 28  6d 65 6e 75 24 2c 6e 29  |nuentry(menu$,n)|
0000b5e0  0d 06 a0 10 ea 20 4d 2c  70 2c 6f 6d 65 6e 75 24  |..... M,p,omenu$|
0000b5f0  0d 06 a1 07 4d 3d 30 0d  06 a2 07 70 3d 31 0d 06  |....M=0....p=1..|
0000b600  a3 05 f5 0d 06 a4 1a e7  20 c1 6d 65 6e 75 24 2c  |........ .menu$,|
0000b610  4d 2c 31 29 3d 22 2f 22  20 70 2b 3d 31 0d 06 a5  |M,1)="/" p+=1...|
0000b620  08 4d 2b 3d 31 0d 06 a6  09 fd 20 70 3d 6e 0d 06  |.M+=1..... p=n..|
0000b630  a7 10 6f 6d 65 6e 75 24  3d 6d 65 6e 75 24 0d 06  |..omenu$=menu$..|
0000b640  a8 23 6f 6d 65 6e 75 24  3d c2 6f 6d 65 6e 75 24  |.#omenu$=.omenu$|
0000b650  2c a9 28 6f 6d 65 6e 75  24 29 2d 28 4d 2d 31 29  |,.(omenu$)-(M-1)|
0000b660  29 0d 06 a9 12 70 3d a7  6f 6d 65 6e 75 24 2c 22  |)....p=.omenu$,"|
0000b670  2f 22 29 0d 06 aa 1d e7  20 70 3e 30 20 6f 6d 65  |/")..... p>0 ome|
0000b680  6e 75 24 3d c0 6f 6d 65  6e 75 24 2c 70 2d 31 29  |nu$=.omenu$,p-1)|
0000b690  0d 06 ab 12 70 3d a7 6f  6d 65 6e 75 24 2c 22 3e  |....p=.omenu$,">|
0000b6a0  22 29 0d 06 ac 24 e7 20  70 3d 30 20 69 74 65 6d  |")...$. p=0 item|
0000b6b0  24 3d 6f 6d 65 6e 75 24  3a 77 73 75 62 70 74 72  |$=omenu$:wsubptr|
0000b6c0  25 3d 2d 31 3a e1 0d 06  ad 16 69 74 65 6d 24 3d  |%=-1:.....item$=|
0000b6d0  c0 6f 6d 65 6e 75 24 2c  70 2d 31 29 0d 06 ae 38  |.omenu$,p-1)...8|
0000b6e0  f4 20 77 73 75 62 70 74  72 25 3d 46 4e 77 69 6d  |. wsubptr%=FNwim|
0000b6f0  70 5f 65 76 61 6c 28 52  49 47 48 54 24 28 6f 6d  |p_eval(RIGHT$(om|
0000b700  65 6e 75 24 2c 4c 45 4e  28 6f 6d 65 6e 75 24 29  |enu$,LEN(omenu$)|
0000b710  2d 70 29 29 0d 06 af 0f  77 73 75 62 70 74 72 25  |-p))....wsubptr%|
0000b720  3d 2d 31 0d 06 b0 05 e1  0d 06 b1 26 dd 20 f2 77  |=-1........&. .w|
0000b730  69 6d 70 5f 62 61 72 28  77 68 61 6e 25 2c 69 63  |imp_bar(whan%,ic|
0000b740  6f 6e 25 2c 6c 65 6e 25  2c 64 69 72 25 29 0d 06  |on%,len%,dir%)..|
0000b750  b2 3c ea 20 6d 69 6e 78  25 2c 6d 69 6e 79 25 2c  |.<. minx%,miny%,|
0000b760  6d 61 78 78 25 2c 6d 61  78 79 25 2c 66 6c 61 67  |maxx%,maxy%,flag|
0000b770  25 2c 64 61 74 61 25 2c  62 6f 72 64 65 72 2c 66  |%,data%,border,f|
0000b780  69 6c 6c 65 64 2c 6f 6c  64 62 0d 06 b3 07 52 3d  |illed,oldb....R=|
0000b790  a3 0d 06 b4 1f 77 69 6d  70 25 21 30 3d 77 68 61  |.....wimp%!0=wha|
0000b7a0  6e 25 3a 77 69 6d 70 25  21 34 3d 69 63 6f 6e 25  |n%:wimp%!4=icon%|
0000b7b0  0d 06 b5 20 c8 99 22 57  69 6d 70 5f 47 65 74 49  |... .."Wimp_GetI|
0000b7c0  63 6f 6e 53 74 61 74 65  22 2c 2c 77 69 6d 70 25  |conState",,wimp%|
0000b7d0  0d 06 b6 20 6d 69 6e 78  25 3d 77 69 6d 70 25 21  |... minx%=wimp%!|
0000b7e0  38 3a 6d 69 6e 79 25 3d  77 69 6d 70 25 21 31 32  |8:miny%=wimp%!12|
0000b7f0  0d 06 b7 21 6d 61 78 78  25 3d 77 69 6d 70 25 21  |...!maxx%=wimp%!|
0000b800  31 36 3a 6d 61 78 79 25  3d 77 69 6d 70 25 21 32  |16:maxy%=wimp%!2|
0000b810  30 0d 06 b8 21 66 6c 61  67 25 3d 77 69 6d 70 25  |0...!flag%=wimp%|
0000b820  21 32 34 3a 64 61 74 61  25 3d 77 69 6d 70 25 21  |!24:data%=wimp%!|
0000b830  32 38 0d 06 b9 19 66 69  6c 6c 65 64 3d 28 66 6c  |28....filled=(fl|
0000b840  61 67 25 3e 3e 35 29 20  80 20 31 0d 06 ba 19 62  |ag%>>5) . 1....b|
0000b850  6f 72 64 65 72 3d 28 66  6c 61 67 25 3e 3e 32 29  |order=(flag%>>2)|
0000b860  20 80 20 31 0d 06 bb 18  6f 6c 64 62 3d 28 66 6c  | . 1....oldb=(fl|
0000b870  61 67 25 3e 3e 31 31 29  20 80 20 31 0d 06 bc 13  |ag%>>11) . 1....|
0000b880  e7 20 6c 65 6e 25 3c 30  20 6c 65 6e 25 3d 30 0d  |. len%<0 len%=0.|
0000b890  06 bd 19 e7 20 6c 65 6e  25 3d 30 20 80 20 66 69  |.... len%=0 . fi|
0000b8a0  6c 6c 65 64 3d 30 20 e1  0d 06 be 5d e7 20 6c 65  |lled=0 ....]. le|
0000b8b0  6e 25 3d 30 20 f2 77 69  6d 70 5f 7a 65 72 6f 6c  |n%=0 .wimp_zerol|
0000b8c0  65 6e 67 74 68 62 61 72  28 62 6f 72 64 65 72 29  |engthbar(border)|
0000b8d0  3a c8 99 22 57 69 6d 70  5f 46 6f 72 63 65 52 65  |:.."Wimp_ForceRe|
0000b8e0  64 72 61 77 22 2c 77 68  61 6e 25 2c 6d 69 6e 78  |draw",whan%,minx|
0000b8f0  25 2c 6d 69 6e 79 25 2c  6d 61 78 78 25 2c 6d 61  |%,miny%,maxx%,ma|
0000b900  78 79 25 3a e1 0d 06 bf  1e c8 99 22 57 69 6d 70  |xy%:......."Wimp|
0000b910  5f 44 65 6c 65 74 65 49  63 6f 6e 22 2c 2c 77 69  |_DeleteIcon",,wi|
0000b920  6d 70 25 0d 06 c0 0e e7  20 64 69 72 25 3d 30 20  |mp%..... dir%=0 |
0000b930  8c 0d 06 c1 11 20 20 6c  65 6e 25 2b 3d 6d 69 6e  |.....  len%+=min|
0000b940  78 25 0d 06 c2 21 20 20  77 69 6d 70 25 21 34 3d  |x%...!  wimp%!4=|
0000b950  6d 69 6e 78 25 3a 77 69  6d 70 25 21 38 3d 6d 69  |minx%:wimp%!8=mi|
0000b960  6e 79 25 0d 06 c3 22 20  20 77 69 6d 70 25 21 31  |ny%..."  wimp%!1|
0000b970  32 3d 6c 65 6e 25 3a 77  69 6d 70 25 21 31 36 3d  |2=len%:wimp%!16=|
0000b980  6d 61 78 79 25 0d 06 c4  05 cc 0d 06 c5 15 20 20  |maxy%.........  |
0000b990  6c 65 6e 25 3d 6d 69 6e  79 25 2b 6c 65 6e 25 0d  |len%=miny%+len%.|
0000b9a0  06 c6 21 20 20 77 69 6d  70 25 21 34 3d 6d 69 6e  |..!  wimp%!4=min|
0000b9b0  78 25 3a 77 69 6d 70 25  21 38 3d 6d 69 6e 79 25  |x%:wimp%!8=miny%|
0000b9c0  0d 06 c7 22 20 20 77 69  6d 70 25 21 31 32 3d 6d  |..."  wimp%!12=m|
0000b9d0  61 78 78 25 3a 77 69 6d  70 25 21 31 36 3d 6c 65  |axx%:wimp%!16=le|
0000b9e0  6e 25 0d 06 c8 05 cd 0d  06 c9 21 77 69 6d 70 25  |n%........!wimp%|
0000b9f0  21 32 30 3d 66 6c 61 67  25 3a 77 69 6d 70 25 21  |!20=flag%:wimp%!|
0000ba00  32 34 3d 64 61 74 61 25  0d 06 ca 1e c8 99 22 57  |24=data%......"W|
0000ba10  69 6d 70 5f 43 72 65 61  74 65 49 63 6f 6e 22 2c  |imp_CreateIcon",|
0000ba20  2c 77 69 6d 70 25 0d 06  cb 1f 77 69 6d 70 25 21  |,wimp%....wimp%!|
0000ba30  30 3d 77 68 61 6e 25 3a  77 69 6d 70 25 21 34 3d  |0=whan%:wimp%!4=|
0000ba40  69 63 6f 6e 25 0d 06 cc  10 e7 20 66 69 6c 6c 65  |icon%..... fille|
0000ba50  64 3d 30 20 8c 0d 06 cd  1c 20 20 77 69 6d 70 25  |d=0 .....  wimp%|
0000ba60  21 38 3d 33 32 3a 77 69  6d 70 25 21 31 32 3d 33  |!8=32:wimp%!12=3|
0000ba70  32 0d 06 ce 22 20 20 c8  99 22 57 69 6d 70 5f 53  |2..."  .."Wimp_S|
0000ba80  65 74 49 63 6f 6e 53 74  61 74 65 22 2c 2c 77 69  |etIconState",,wi|
0000ba90  6d 70 25 0d 06 cf 10 20  20 e7 20 6f 6c 64 62 3d  |mp%....  . oldb=|
0000baa0  31 20 8c 0d 06 d0 1c 20  20 20 20 77 69 6d 70 25  |1 .....    wimp%|
0000bab0  21 38 3d 34 3a 77 69 6d  70 25 21 31 32 3d 34 0d  |!8=4:wimp%!12=4.|
0000bac0  06 d1 24 20 20 20 20 c8  99 22 57 69 6d 70 5f 53  |..$    .."Wimp_S|
0000bad0  65 74 49 63 6f 6e 53 74  61 74 65 22 2c 2c 77 69  |etIconState",,wi|
0000bae0  6d 70 25 0d 06 d2 07 20  20 cd 0d 06 d3 05 cd 0d  |mp%....  .......|
0000baf0  06 d4 0e e7 20 64 69 72  25 3d 30 20 8c 0d 06 d5  |.... dir%=0 ....|
0000bb00  14 20 20 e7 20 6c 65 6e  25 3c 6d 61 78 78 25 20  |.  . len%<maxx% |
0000bb10  8c 0d 06 d6 3b 20 20 20  20 c8 99 22 57 69 6d 70  |....;    .."Wimp|
0000bb20  5f 46 6f 72 63 65 52 65  64 72 61 77 22 2c 77 68  |_ForceRedraw",wh|
0000bb30  61 6e 25 2c 6c 65 6e 25  2d 32 2c 6d 69 6e 79 25  |an%,len%-2,miny%|
0000bb40  2c 6d 61 78 78 25 2c 6d  61 78 79 25 0d 06 d7 07  |,maxx%,maxy%....|
0000bb50  20 20 cc 0d 06 d8 3b 20  20 20 20 c8 99 22 57 69  |  ....;    .."Wi|
0000bb60  6d 70 5f 46 6f 72 63 65  52 65 64 72 61 77 22 2c  |mp_ForceRedraw",|
0000bb70  77 68 61 6e 25 2c 6d 61  78 78 25 2d 32 2c 6d 69  |whan%,maxx%-2,mi|
0000bb80  6e 79 25 2c 6c 65 6e 25  2c 6d 61 78 79 25 0d 06  |ny%,len%,maxy%..|
0000bb90  d9 07 20 20 cd 0d 06 da  05 cc 0d 06 db 14 20 20  |..  ..........  |
0000bba0  e7 20 6c 65 6e 25 3c 6d  61 78 79 25 20 8c 0d 06  |. len%<maxy% ...|
0000bbb0  dc 3b 20 20 20 20 c8 99  22 57 69 6d 70 5f 46 6f  |.;    .."Wimp_Fo|
0000bbc0  72 63 65 52 65 64 72 61  77 22 2c 77 68 61 6e 25  |rceRedraw",whan%|
0000bbd0  2c 6d 69 6e 78 25 2c 6c  65 6e 25 2d 32 2c 6d 61  |,minx%,len%-2,ma|
0000bbe0  78 78 25 2c 6d 61 78 79  25 0d 06 dd 07 20 20 cc  |xx%,maxy%....  .|
0000bbf0  0d 06 de 3b 20 20 20 20  c8 99 22 57 69 6d 70 5f  |...;    .."Wimp_|
0000bc00  46 6f 72 63 65 52 65 64  72 61 77 22 2c 77 68 61  |ForceRedraw",wha|
0000bc10  6e 25 2c 6d 69 6e 78 25  2c 6d 61 78 79 25 2d 32  |n%,minx%,maxy%-2|
0000bc20  2c 6d 61 78 78 25 2c 6c  65 6e 25 0d 06 df 07 20  |,maxx%,len%.... |
0000bc30  20 cd 0d 06 e0 05 cd 0d  06 e1 05 e1 0d 06 e2 2a  | ..............*|
0000bc40  dd 20 a4 77 69 6d 70 5f  63 61 6c 63 73 6c 69 64  |. .wimp_calcslid|
0000bc50  65 70 63 65 6e 74 28 77  68 61 6e 25 2c 69 63 6f  |epcent(whan%,ico|
0000bc60  6e 25 2c 77 25 29 0d 06  e3 19 ea 20 73 6c 69 64  |n%,w%)..... slid|
0000bc70  65 68 25 2c 73 6c 69 64  65 77 25 2c 70 63 25 0d  |eh%,slidew%,pc%.|
0000bc80  06 e4 1e 21 77 69 6d 70  25 3d 77 68 61 6e 25 3a  |...!wimp%=whan%:|
0000bc90  77 69 6d 70 25 21 34 3d  69 63 6f 6e 25 0d 06 e5  |wimp%!4=icon%...|
0000bca0  20 c8 99 22 57 69 6d 70  5f 47 65 74 49 63 6f 6e  | .."Wimp_GetIcon|
0000bcb0  53 74 61 74 65 22 2c 2c  77 69 6d 70 25 0d 06 e6  |State",,wimp%...|
0000bcc0  1d 73 6c 69 64 65 68 25  3d 77 69 6d 70 25 21 32  |.slideh%=wimp%!2|
0000bcd0  30 2d 77 69 6d 70 25 21  31 32 0d 06 e7 1c 73 6c  |0-wimp%!12....sl|
0000bce0  69 64 65 77 25 3d 77 69  6d 70 25 21 31 36 2d 77  |idew%=wimp%!16-w|
0000bcf0  69 6d 70 25 21 38 0d 06  e8 17 e7 20 73 6c 69 64  |imp%!8..... slid|
0000bd00  65 77 25 3e 73 6c 69 64  65 68 25 20 8c 0d 06 e9  |ew%>slideh% ....|
0000bd10  1d 20 20 70 63 25 3d a8  28 28 73 6c 69 64 65 77  |.  pc%=.((slidew|
0000bd20  25 2f 77 25 29 2a 31 30  30 29 0d 06 ea 05 cc 0d  |%/w%)*100)......|
0000bd30  06 eb 1d 20 20 70 63 25  3d a8 28 28 73 6c 69 64  |...  pc%=.((slid|
0000bd40  65 68 25 2f 77 25 29 2a  31 30 30 29 0d 06 ec 05  |eh%/w%)*100)....|
0000bd50  cd 0d 06 ed 08 3d 70 63  25 0d 06 ee 28 dd 20 f2  |.....=pc%...(. .|
0000bd60  77 69 6d 70 5f 73 74 61  72 74 73 6c 69 64 65 72  |wimp_startslider|
0000bd70  64 72 61 67 28 77 68 61  6e 25 2c 69 63 6f 6e 25  |drag(whan%,icon%|
0000bd80  29 0d 06 ef 27 ea 20 6f  78 25 2c 6f 79 25 2c 62  |)...'. ox%,oy%,b|
0000bd90  78 31 25 2c 62 79 31 25  2c 62 78 32 25 2c 62 79  |x1%,by1%,bx2%,by|
0000bda0  32 25 2c 61 25 2c 62 25  0d 06 f0 41 61 25 3d a4  |2%,a%,b%...Aa%=.|
0000bdb0  75 73 65 72 5f 73 6c 69  64 65 72 62 61 63 6b 28  |user_sliderback(|
0000bdc0  77 68 61 6e 25 2c 69 63  6f 6e 25 29 3a 62 25 3d  |whan%,icon%):b%=|
0000bdd0  a4 75 73 65 72 5f 73 6c  69 64 65 72 28 77 68 61  |.user_slider(wha|
0000bde0  6e 25 2c 69 63 6f 6e 25  29 0d 06 f1 15 e7 20 61  |n%,icon%)..... a|
0000bdf0  25 3d 2d 31 20 80 20 62  25 3d 2d 31 20 e1 0d 06  |%=-1 . b%=-1 ...|
0000be00  f2 14 e7 20 61 25 3d 2d  31 20 69 63 6f 6e 25 3d  |... a%=-1 icon%=|
0000be10  62 25 0d 06 f3 10 21 77  69 6d 70 25 3d 77 68 61  |b%....!wimp%=wha|
0000be20  6e 25 0d 06 f4 22 c8 99  22 57 69 6d 70 5f 47 65  |n%...".."Wimp_Ge|
0000be30  74 57 69 6e 64 6f 77 53  74 61 74 65 22 2c 2c 77  |tWindowState",,w|
0000be40  69 6d 70 25 0d 06 f5 18  6f 78 25 3d 77 69 6d 70  |imp%....ox%=wimp|
0000be50  25 21 34 2d 77 69 6d 70  25 21 32 30 0d 06 f6 19  |%!4-wimp%!20....|
0000be60  6f 79 25 3d 77 69 6d 70  25 21 31 36 2d 77 69 6d  |oy%=wimp%!16-wim|
0000be70  70 25 21 32 34 0d 06 f7  36 21 77 69 6d 70 25 3d  |p%!24...6!wimp%=|
0000be80  77 68 61 6e 25 3a 77 69  6d 70 25 21 34 3d a4 75  |whan%:wimp%!4=.u|
0000be90  73 65 72 5f 73 6c 69 64  65 72 62 61 63 6b 28 77  |ser_sliderback(w|
0000bea0  68 61 6e 25 2c 69 63 6f  6e 25 29 0d 06 f8 20 c8  |han%,icon%)... .|
0000beb0  99 22 57 69 6d 70 5f 47  65 74 49 63 6f 6e 53 74  |."Wimp_GetIconSt|
0000bec0  61 74 65 22 2c 2c 77 69  6d 70 25 0d 06 f9 26 62  |ate",,wimp%...&b|
0000bed0  78 31 25 3d 6f 78 25 2b  77 69 6d 70 25 21 38 3a  |x1%=ox%+wimp%!8:|
0000bee0  62 79 31 25 3d 6f 79 25  2b 77 69 6d 70 25 21 31  |by1%=oy%+wimp%!1|
0000bef0  32 0d 06 fa 27 62 78 32  25 3d 6f 78 25 2b 77 69  |2...'bx2%=ox%+wi|
0000bf00  6d 70 25 21 31 36 3a 62  79 32 25 3d 6f 79 25 2b  |mp%!16:by2%=oy%+|
0000bf10  77 69 6d 70 25 21 32 30  0d 06 fb 1e 21 77 69 6d  |wimp%!20....!wim|
0000bf20  70 25 3d 77 68 61 6e 25  3a 77 69 6d 70 25 21 34  |p%=whan%:wimp%!4|
0000bf30  3d 69 63 6f 6e 25 0d 06  fc 20 c8 99 22 57 69 6d  |=icon%... .."Wim|
0000bf40  70 5f 47 65 74 49 63 6f  6e 53 74 61 74 65 22 2c  |p_GetIconState",|
0000bf50  2c 77 69 6d 70 25 0d 06  fd 0d 77 69 6d 70 25 21  |,wimp%....wimp%!|
0000bf60  34 3d 37 0d 06 fe 17 77  69 6d 70 25 21 38 3d 6f  |4=7....wimp%!8=o|
0000bf70  78 25 2b 77 69 6d 70 25  21 38 0d 06 ff 19 77 69  |x%+wimp%!8....wi|
0000bf80  6d 70 25 21 31 32 3d 6f  79 25 2b 77 69 6d 70 25  |mp%!12=oy%+wimp%|
0000bf90  21 31 32 0d 07 00 19 77  69 6d 70 25 21 31 36 3d  |!12....wimp%!16=|
0000bfa0  6f 78 25 2b 77 69 6d 70  25 21 31 36 0d 07 01 19  |ox%+wimp%!16....|
0000bfb0  77 69 6d 70 25 21 32 30  3d 6f 79 25 2b 77 69 6d  |wimp%!20=oy%+wim|
0000bfc0  70 25 21 32 30 0d 07 02  11 77 69 6d 70 25 21 32  |p%!20....wimp%!2|
0000bfd0  34 3d 62 78 31 25 0d 07  03 11 77 69 6d 70 25 21  |4=bx1%....wimp%!|
0000bfe0  32 38 3d 62 79 31 25 0d  07 04 11 77 69 6d 70 25  |28=by1%....wimp%|
0000bff0  21 33 32 3d 62 78 32 25  0d 07 05 11 77 69 6d 70  |!32=bx2%....wimp|
0000c000  25 21 33 36 3d 62 79 32  25 0d 07 06 1b c8 99 22  |%!36=by2%......"|
0000c010  57 69 6d 70 5f 44 72 61  67 42 6f 78 22 2c 2c 77  |Wimp_DragBox",,w|
0000c020  69 6d 70 25 0d 07 07 58  77 73 6c 69 64 65 64 72  |imp%...Xwslidedr|
0000c030  61 67 25 3d 77 68 61 6e  25 3a 77 73 6c 69 64 65  |ag%=whan%:wslide|
0000c040  77 25 3d 77 68 61 6e 25  3a 77 73 6c 69 64 65 69  |w%=whan%:wslidei|
0000c050  25 3d 69 63 6f 6e 25 3a  77 6f 78 25 3d 6f 78 25  |%=icon%:wox%=ox%|
0000c060  3a 77 6f 79 25 3d 6f 79  25 3a 77 6c 65 6e 25 3d  |:woy%=oy%:wlen%=|
0000c070  2d 31 3a 77 6c 65 6e 32  25 3d 2d 31 0d 07 08 25  |-1:wlen2%=-1...%|
0000c080  77 73 77 69 64 25 3d 62  78 32 25 2d 62 78 31 25  |wswid%=bx2%-bx1%|
0000c090  3a 77 73 68 65 69 25 3d  62 79 32 25 2d 62 79 31  |:wshei%=by2%-by1|
0000c0a0  25 0d 07 09 05 e1 0d 07  0a 28 dd 20 a4 77 69 6d  |%........(. .wim|
0000c0b0  70 5f 66 69 6e 64 73 75  62 6d 65 6e 75 70 74 72  |p_findsubmenuptr|
0000c0c0  28 77 6d 65 6e 75 25 2c  69 74 65 6d 25 29 0d 07  |(wmenu%,item%)..|
0000c0d0  0b 0d ea 20 4d 2c 77 70  74 72 25 0d 07 0c 12 77  |... M,wptr%....w|
0000c0e0  70 74 72 25 3d 77 6d 65  6e 75 25 2b 34 0d 07 0d  |ptr%=wmenu%+4...|
0000c0f0  11 e3 20 4d 3d 31 20 b8  20 69 74 65 6d 25 0d 07  |.. M=1 . item%..|
0000c100  0e 0d 77 70 74 72 25 2b  3d 32 34 0d 07 0f 07 ed  |..wptr%+=24.....|
0000c110  20 4d 0d 07 10 0c 3d 77  70 74 72 25 21 34 0d 07  | M....=wptr%!4..|
0000c120  11 23 dd 20 f2 77 69 6d  70 5f 7a 65 72 6f 74 65  |.#. .wimp_zerote|
0000c130  72 6d 69 6e 61 74 65 28  77 70 74 72 25 2c 74 24  |rminate(wptr%,t$|
0000c140  29 0d 07 12 07 ea 20 4c  0d 07 13 11 e3 20 4c 3d  |)..... L..... L=|
0000c150  31 20 b8 20 a9 28 74 24  29 0d 07 14 16 3f 77 70  |1 . .(t$)....?wp|
0000c160  74 72 25 3d 97 28 c1 74  24 2c 4c 2c 31 29 29 0d  |tr%=.(.t$,L,1)).|
0000c170  07 15 0c 77 70 74 72 25  2b 3d 31 0d 07 16 07 ed  |...wptr%+=1.....|
0000c180  20 4c 0d 07 17 0c 3f 77  70 74 72 25 3d 30 0d 07  | L....?wptr%=0..|
0000c190  18 05 e1 0d 07 19 17 dd  20 f2 77 69 6d 70 5f 64  |........ .wimp_d|
0000c1a0  61 74 61 6c 6f 61 64 61  63 6b 0d 07 1a 1f 77 69  |ataloadack....wi|
0000c1b0  6d 70 25 21 31 36 3d 34  3a 77 69 6d 70 25 21 31  |mp%!16=4:wimp%!1|
0000c1c0  32 3d 77 69 6d 70 25 21  38 0d 07 1b 33 c8 99 22  |2=wimp%!8...3.."|
0000c1d0  57 69 6d 70 5f 53 65 6e  64 4d 65 73 73 61 67 65  |Wimp_SendMessage|
0000c1e0  22 2c 31 37 2c 77 69 6d  70 25 2c 77 69 6d 70 25  |",17,wimp%,wimp%|
0000c1f0  21 32 30 2c 77 69 6d 70  25 21 32 34 0d 07 1c 34  |!20,wimp%!24...4|
0000c200  e7 20 70 61 74 68 24 3d  22 3c 57 69 6d 70 24 53  |. path$="<Wimp$S|
0000c210  63 72 61 70 3e 22 20 ff  22 57 69 70 65 20 22 2b  |crap>" ."Wipe "+|
0000c220  70 61 74 68 24 2b 22 20  7e 43 20 7e 56 20 46 22  |path$+" ~C ~V F"|
0000c230  0d 07 1d 05 e1 0d 07 1e  21 dd 20 f2 77 69 6d 70  |........!. .wimp|
0000c240  5f 7a 65 72 6f 6c 65 6e  67 74 68 62 61 72 28 62  |_zerolengthbar(b|
0000c250  6f 72 64 65 72 29 0d 07  1f 19 77 69 6d 70 25 21  |order)....wimp%!|
0000c260  38 3d 30 3a 77 69 6d 70  25 21 31 32 3d 33 32 0d  |8=0:wimp%!12=32.|
0000c270  07 20 20 c8 99 22 57 69  6d 70 5f 53 65 74 49 63  |.  .."Wimp_SetIc|
0000c280  6f 6e 53 74 61 74 65 22  2c 2c 77 69 6d 70 25 0d  |onState",,wimp%.|
0000c290  07 21 10 e7 20 62 6f 72  64 65 72 3d 31 20 8c 0d  |.!.. border=1 ..|
0000c2a0  07 22 1e 77 69 6d 70 25  21 38 3d 32 30 34 38 3a  |.".wimp%!8=2048:|
0000c2b0  77 69 6d 70 25 21 31 32  3d 32 30 34 38 0d 07 23  |wimp%!12=2048..#|
0000c2c0  20 c8 99 22 57 69 6d 70  5f 53 65 74 49 63 6f 6e  | .."Wimp_SetIcon|
0000c2d0  53 74 61 74 65 22 2c 2c  77 69 6d 70 25 0d 07 24  |State",,wimp%..$|
0000c2e0  18 77 69 6d 70 25 21 38  3d 30 3a 77 69 6d 70 25  |.wimp%!8=0:wimp%|
0000c2f0  21 31 32 3d 34 0d 07 25  20 c8 99 22 57 69 6d 70  |!12=4..% .."Wimp|
0000c300  5f 53 65 74 49 63 6f 6e  53 74 61 74 65 22 2c 2c  |_SetIconState",,|
0000c310  77 69 6d 70 25 0d 07 26  05 cc 0d 07 27 1b 77 69  |wimp%..&....'.wi|
0000c320  6d 70 25 21 38 3d 30 3a  77 69 6d 70 25 21 31 32  |mp%!8=0:wimp%!12|
0000c330  3d 32 30 34 38 0d 07 28  20 c8 99 22 57 69 6d 70  |=2048..( .."Wimp|
0000c340  5f 53 65 74 49 63 6f 6e  53 74 61 74 65 22 2c 2c  |_SetIconState",,|
0000c350  77 69 6d 70 25 0d 07 29  05 cd 0d 07 2a 05 e1 0d  |wimp%..)....*...|
0000c360  ff                                                |.|
0000c361