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  ed 81 00 00 b1 02 01 00  ec 11 01 00 42 61 73 69  |............Basi|
00000090  63 20 2d 71 75 69 74 20  40 30 30 30 30 39 30 30  |c -quit @0000900|
000000a0  30 2c 30 30 30 31 31 31  45 44 00 4d 61 6b 65 41  |0,000111ED.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 10  f4 3e 21 43 6f 6e 66 69  |",-1.....>!Confi|
00000120  67 75 72 65 0d 00 02 48  f4 20 43 72 65 61 74 65  |gure...H. Create|
00000130  73 20 64 61 74 61 20 66  69 6c 65 73 20 66 6f 72  |s data files for|
00000140  20 75 73 65 20 77 69 74  68 20 41 63 6f 72 6e 20  | use with Acorn |
00000150  4f 66 66 69 63 65 27 39  38 20 62 79 20 6d 65 2c  |Office'98 by me,|
00000160  20 50 65 74 65 72 20 50  72 69 63 65 0d 00 03 18  | Peter Price....|
00000170  f4 20 a9 20 50 65 74 65  72 20 50 72 69 63 65 20  |. . Peter Price |
00000180  31 39 39 38 0d 00 04 05  3a 0d 00 05 1f 61 70 70  |1998....:....app|
00000190  6e 61 6d 65 24 3d 22 4f  66 66 69 63 65 20 43 6f  |name$="Office Co|
000001a0  6e 66 69 67 75 72 65 22  0d 00 06 05 3a 0d 00 07  |nfigure"....:...|
000001b0  1b 76 65 72 24 3d 22 31  2e 30 30 20 28 32 33 2d  |.ver$="1.00 (23-|
000001c0  41 70 72 2d 39 38 29 22  0d 00 08 13 6c 69 63 24  |Apr-98)"....lic$|
000001d0  3d 22 46 72 65 65 77 61  72 65 22 0d 00 09 9f ee  |="Freeware".....|
000001e0  20 85 20 f2 77 69 6d 70  5f 65 72 72 6f 72 28 61  | . .wimp_error(a|
000001f0  70 70 6e 61 6d 65 24 2c  22 51 75 69 74 65 20 66  |ppname$,"Quite f|
00000200  72 61 6e 6b 6c 79 2c 20  41 63 6f 72 6e 20 4f 66  |rankly, Acorn Of|
00000210  66 69 63 65 20 64 69 64  6e 27 74 20 62 65 61 74  |fice didn't beat|
00000220  20 61 72 6f 75 6e 64 20  74 68 65 20 62 75 73 68  | around the bush|
00000230  20 61 6e 64 20 73 61 69  64 2c 20 27 22 2b f6 24  | and said, '"+.$|
00000240  2b 22 20 61 74 20 6c 69  6e 65 20 22 2b c3 20 9e  |+" at line "+. .|
00000250  20 2b 22 27 2e 20 54 68  69 73 20 69 73 20 70 72  | +"'. This is pr|
00000260  6f 62 61 62 6c 79 20 62  61 64 20 6e 65 77 73 2e  |obably bad news.|
00000270  2e 2e 22 2c 31 2c 31 29  3a e0 0d 00 0a 04 0d 00  |..",1,1):.......|
00000280  0b 0f f4 20 53 61 72 74  20 74 61 73 6b 0d 00 0c  |... Sart task...|
00000290  32 74 61 73 6b 25 3d a4  77 69 6d 70 5f 69 6e 69  |2task%=.wimp_ini|
000002a0  74 69 61 6c 69 73 65 28  61 70 70 6e 61 6d 65 24  |tialise(appname$|
000002b0  2c 37 30 30 30 2c 37 30  30 30 2c 33 30 30 29 0d  |,7000,7000,300).|
000002c0  00 0d 04 0d 00 0e 1d f4  20 4f 70 65 6e 20 74 68  |........ Open th|
000002d0  65 20 63 6f 6e 74 72 6f  6c 20 77 69 6e 64 6f 77  |e control window|
000002e0  0d 00 0f 0d f2 6f 70 65  6e 65 64 69 74 0d 00 10  |.....openedit...|
000002f0  04 0d 00 11 37 f4 20 50  6f 6c 6c 20 74 68 65 20  |....7. Poll the |
00000300  77 69 6d 70 2c 20 77 61  69 74 69 6e 67 20 66 6f  |wimp, waiting fo|
00000310  72 20 73 6f 6d 65 74 68  69 6e 67 20 74 6f 20 68  |r something to h|
00000320  61 70 70 65 6e 2e 2e 2e  0d 00 12 0e f2 77 69 6d  |appen........wim|
00000330  70 5f 70 6f 6c 6c 0d 00  13 05 e0 0d 00 14 05 3a  |p_poll.........:|
00000340  0d 00 15 16 dd 20 f2 75  73 65 72 5f 69 6e 69 74  |..... .user_init|
00000350  69 61 6c 69 73 65 0d 00  16 15 f2 77 69 6d 70 5f  |ialise.....wimp_|
00000360  68 6f 75 72 67 6c 61 73  73 6f 6e 0d 00 17 04 0d  |hourglasson.....|
00000370  00 18 2a f4 20 4c 6f 61  64 20 74 68 65 20 61 6c  |..*. Load the al|
00000380  6c 20 69 6d 70 6f 72 74  61 6e 74 20 63 68 6f 69  |l important choi|
00000390  63 65 73 20 66 69 6c 65  2e 0d 00 19 12 f2 75 6e  |ces file......un|
000003a0  69 76 65 72 73 61 6c 6c  6f 61 64 0d 00 1a 04 0d  |iversalload.....|
000003b0  00 1b 2b f4 20 43 68 65  63 6b 20 74 6f 20 73 65  |..+. Check to se|
000003c0  65 20 69 66 20 70 72 6f  67 72 61 6d 20 69 73 20  |e if program is |
000003d0  72 65 67 69 73 74 65 72  65 64 0d 00 1c 29 72 65  |registered...)re|
000003e0  67 25 3d a4 72 65 67 69  73 74 65 72 65 64 28 22  |g%=.registered("|
000003f0  3c 4f 66 66 69 63 65 24  44 69 72 3e 2e 55 73 65  |<Office$Dir>.Use|
00000400  72 22 29 0d 00 1d 31 e7  20 72 65 67 25 3d b9 20  |r")...1. reg%=. |
00000410  8c 20 6e 61 6d 65 24 3d  a4 64 65 63 6f 64 65 28  |. name$=.decode(|
00000420  22 3c 4f 66 66 69 63 65  24 44 69 72 3e 2e 55 73  |"<Office$Dir>.Us|
00000430  65 72 22 29 0d 00 1e 23  e7 20 72 65 67 25 3d a3  |er")...#. reg%=.|
00000440  20 8c 20 6e 61 6d 65 24  3d 22 55 4e 52 45 47 49  | . name$="UNREGI|
00000450  53 54 45 52 45 44 22 0d  00 1f 05 cd 0d 00 20 04  |STERED"....... .|
00000460  0d 00 21 1c f4 20 4c 6f  61 64 20 74 68 65 20 4d  |..!.. Load the M|
00000470  65 73 73 61 67 65 73 20  66 69 6c 65 0d 00 22 3c  |essages file.."<|
00000480  f2 77 69 6d 70 5f 69 6e  69 74 6d 65 73 73 61 67  |.wimp_initmessag|
00000490  65 73 28 22 3c 4f 66 66  69 63 65 24 44 69 72 3e  |es("<Office$Dir>|
000004a0  2e 52 65 73 6f 75 72 63  65 73 2e 55 4b 2e 4d 65  |.Resources.UK.Me|
000004b0  73 73 61 67 65 73 22 29  0d 00 23 04 0d 00 24 15  |ssages")..#...$.|
000004c0  f4 20 45 64 69 74 20 62  75 74 74 6f 6e 20 62 6f  |. Edit button bo|
000004d0  78 0d 00 25 54 65 64 69  74 62 6f 78 25 3d a4 77  |x..%Teditbox%=.w|
000004e0  69 6d 70 5f 6c 6f 61 64  77 69 6e 64 6f 77 28 22  |imp_loadwindow("|
000004f0  3c 4f 66 66 69 63 65 43  6f 6e 66 69 67 24 44 69  |<OfficeConfig$Di|
00000500  72 3e 2e 52 65 73 6f 75  72 63 65 73 2e 43 6f 6e  |r>.Resources.Con|
00000510  66 69 67 75 72 65 22 2c  22 65 64 69 74 5f 62 6f  |figure","edit_bo|
00000520  78 22 2c 30 29 0d 00 26  4c e7 20 72 65 67 25 3d  |x",0)..&L. reg%=|
00000530  a3 20 8c 20 f2 77 69 6d  70 5f 69 63 6f 6e 64 69  |. . .wimp_icondi|
00000540  73 61 62 6c 65 28 65 64  69 74 62 6f 78 25 2c 32  |sable(editbox%,2|
00000550  32 29 3a f2 77 69 6d 70  5f 69 63 6f 6e 64 69 73  |2):.wimp_icondis|
00000560  61 62 6c 65 28 65 64 69  74 62 6f 78 25 2c 32 33  |able(editbox%,23|
00000570  29 0d 00 27 05 cd 0d 00  28 04 0d 00 29 55 f4 20  |)..'....(...)U. |
00000580  54 68 65 20 45 64 69 74  20 42 75 74 74 6f 6e 20  |The Edit Button |
00000590  77 69 6e 64 6f 77 20 70  6f 70 20 75 70 20 6d 65  |window pop up me|
000005a0  6e 75 2e 20 28 43 75 6e  6e 69 6e 67 6c 79 20 63  |nu. (Cunningly c|
000005b0  72 65 61 74 65 64 20 66  72 6f 6d 20 74 68 65 20  |reated from the |
000005c0  6d 65 73 73 61 67 65 73  20 66 69 6c 65 2e 29 0d  |messages file.).|
000005d0  00 2a 36 65 64 69 74 70  6f 70 6d 65 6e 75 25 3d  |.*6editpopmenu%=|
000005e0  a4 77 69 6d 70 5f 63 72  65 61 74 65 6d 65 73 73  |.wimp_createmess|
000005f0  61 67 65 6d 65 6e 75 28  22 50 4d 65 6e 75 22 2c  |agemenu("PMenu",|
00000600  22 22 2c 36 29 0d 00 2b  04 0d 00 2c 16 f2 77 69  |"",6)..+...,..wi|
00000610  6d 70 5f 68 6f 75 72 67  6c 61 73 73 6f 66 66 0d  |mp_hourglassoff.|
00000620  00 2d 05 e1 0d 00 2e 05  3a 0d 00 2f 17 dd 20 a4  |.-......:../.. .|
00000630  75 73 65 72 5f 71 75 69  74 28 74 79 70 65 25 29  |user_quit(type%)|
00000640  0d 00 30 06 3d 31 0d 00  31 05 3a 0d 00 32 3b dd  |..0.=1..1.:..2;.|
00000650  20 f2 75 73 65 72 5f 6d  6f 75 73 65 63 6c 69 63  | .user_mouseclic|
00000660  6b 28 77 69 6e 64 6f 77  25 2c 69 63 6f 6e 25 2c  |k(window%,icon%,|
00000670  62 75 74 74 6f 6e 25 2c  77 6f 72 6b 78 25 2c 77  |button%,workx%,w|
00000680  6f 72 6b 79 25 29 0d 00  33 10 c8 8e 20 77 69 6e  |orky%)..3... win|
00000690  64 6f 77 25 20 ca 0d 00  34 19 f4 20 45 64 69 74  |dow% ...4.. Edit|
000006a0  20 62 75 74 74 6f 6e 73  20 77 69 6e 64 6f 77 0d  | buttons window.|
000006b0  00 35 0e c9 20 65 64 69  74 62 6f 78 25 0d 00 36  |.5.. editbox%..6|
000006c0  10 20 20 c8 8e 20 69 63  6f 6e 25 20 ca 0d 00 37  |.  .. icon% ...7|
000006d0  0c 20 20 f4 20 53 61 76  65 0d 00 38 0b 20 20 c9  |.  . Save..8.  .|
000006e0  20 30 20 3a 0d 00 39 12  20 20 f2 73 61 76 65 65  | 0 :..9.  .savee|
000006f0  64 69 74 62 6f 78 0d 00  3a 0e 20 20 f4 20 43 61  |ditbox..:.  . Ca|
00000700  6e 63 65 6c 0d 00 3b 28  20 20 c9 20 31 20 3a 20  |ncel..;(  . 1 : |
00000710  f2 77 69 6d 70 5f 63 6c  6f 73 65 77 69 6e 64 6f  |.wimp_closewindo|
00000720  77 28 65 64 69 74 62 6f  78 25 29 20 0d 00 3c 1a  |w(editbox%) ..<.|
00000730  20 20 f4 20 55 70 20 61  6e 64 20 64 6f 77 6e 20  |  . Up and down |
00000740  61 72 72 6f 77 73 0d 00  3d 0b 20 20 c9 20 39 20  |arrows..=.  . 9 |
00000750  3a 0d 00 3e 1b 20 20 f2  63 68 61 6e 67 65 62 75  |:..>.  .changebu|
00000760  74 74 6f 6e 76 61 6c 75  65 28 39 29 0d 00 3f 0c  |ttonvalue(9)..?.|
00000770  20 20 c9 20 31 30 20 3a  0d 00 40 1c 20 20 f2 63  |  . 10 :..@.  .c|
00000780  68 61 6e 67 65 62 75 74  74 6f 6e 76 61 6c 75 65  |hangebuttonvalue|
00000790  28 31 30 29 0d 00 41 0c  20 20 c9 20 31 32 20 3a  |(10)..A.  . 12 :|
000007a0  0d 00 42 1b 20 20 f2 63  68 61 6e 67 65 65 64 69  |..B.  .changeedi|
000007b0  74 6e 75 6d 62 65 72 28  31 32 29 0d 00 43 0c 20  |tnumber(12)..C. |
000007c0  20 c9 20 31 33 20 3a 0d  00 44 1b 20 20 f2 63 68  | . 13 :..D.  .ch|
000007d0  61 6e 67 65 65 64 69 74  6e 75 6d 62 65 72 28 31  |angeeditnumber(1|
000007e0  33 29 0d 00 45 0c 20 20  c9 20 31 37 20 3a 0d 00  |3)..E.  . 17 :..|
000007f0  46 0e 20 20 c8 97 20 58  2c 59 2c 42 0d 00 47 0d  |F.  .. X,Y,B..G.|
00000800  20 20 78 25 3d 58 2d 34  30 0d 00 48 2a 20 20 f2  |  x%=X-40..H*  .|
00000810  77 69 6d 70 5f 6d 65 6e  75 70 6f 70 75 70 28 65  |wimp_menupopup(e|
00000820  64 69 74 70 6f 70 6d 65  6e 75 25 2c 30 2c 78 25  |ditpopmenu%,0,x%|
00000830  2c 59 29 0d 00 49 0c 20  20 c9 20 31 38 20 3a 0d  |,Y)..I.  . 18 :.|
00000840  00 4a 35 20 20 ff 28 22  46 69 6c 65 72 5f 52 75  |.J5  .("Filer_Ru|
00000850  6e 20 3c 4f 66 66 69 63  65 24 44 69 72 3e 2e 52  |n <Office$Dir>.R|
00000860  65 73 6f 75 72 63 65 73  2e 73 6d 21 69 6d 61 67  |esources.sm!imag|
00000870  65 73 22 29 0d 00 4b 07  20 20 cb 0d 00 4c 05 cb  |es")..K.  ...L..|
00000880  0d 00 4d 05 e1 0d 00 4e  05 3a 0d 00 4f 1f dd 20  |..M....N.:..O.. |
00000890  a4 75 73 65 72 5f 6d 65  6e 75 28 77 69 6e 64 6f  |.user_menu(windo|
000008a0  77 25 2c 69 63 6f 6e 25  29 0d 00 50 06 3d 30 0d  |w%,icon%)..P.=0.|
000008b0  00 51 05 3a 0d 00 52 2c  dd 20 f2 75 73 65 72 5f  |.Q.:..R,. .user_|
000008c0  6f 70 65 6e 77 69 6e 64  6f 77 28 77 69 6e 64 6f  |openwindow(windo|
000008d0  77 25 2c 78 25 2c 79 25  2c 73 74 61 63 6b 25 29  |w%,x%,y%,stack%)|
000008e0  0d 00 53 05 e1 0d 00 54  05 3a 0d 00 55 20 dd 20  |..S....T.:..U . |
000008f0  f2 75 73 65 72 5f 63 6c  6f 73 65 77 69 6e 64 6f  |.user_closewindo|
00000900  77 28 77 69 6e 64 6f 77  25 29 0d 00 56 26 e7 20  |w(window%)..V&. |
00000910  77 69 6e 64 6f 77 25 3d  65 64 69 74 62 6f 78 25  |window%=editbox%|
00000920  20 8c 20 f2 77 69 6d 70  5f 71 75 69 74 28 30 29  | . .wimp_quit(0)|
00000930  0d 00 57 05 e1 0d 00 58  05 3a 0d 00 59 27 dd 20  |..W....X.:..Y'. |
00000940  a4 75 73 65 72 5f 6b 65  79 70 72 65 73 73 28 77  |.user_keypress(w|
00000950  69 6e 64 6f 77 25 2c 69  63 6f 6e 25 2c 6b 65 79  |indow%,icon%,key|
00000960  29 0d 00 5a 06 3d 30 0d  00 5b 05 3a 0d 00 5c 26  |)..Z.=0..[.:..\&|
00000970  dd 20 f2 75 73 65 72 5f  6d 65 6e 75 73 65 6c 65  |. .user_menusele|
00000980  63 74 69 6f 6e 28 6d 65  6e 75 25 2c 69 74 65 6d  |ction(menu%,item|
00000990  25 29 0d 00 5d 0d ea 20  6c 6f 6f 6b 75 70 24 0d  |%)..].. lookup$.|
000009a0  00 5e 6c e7 20 6d 65 6e  75 25 3d 65 64 69 74 70  |.^l. menu%=editp|
000009b0  6f 70 6d 65 6e 75 25 20  80 20 69 74 65 6d 25 3d  |opmenu% . item%=|
000009c0  31 20 8c 20 6c 6f 6f 6b  75 70 24 3d a4 77 69 6d  |1 . lookup$=.wim|
000009d0  70 5f 6d 65 73 73 6c 6f  6f 6b 30 28 22 50 4d 65  |p_messlook0("PMe|
000009e0  6e 75 31 22 29 3a f2 77  69 6d 70 5f 70 75 74 69  |nu1"):.wimp_puti|
000009f0  63 6f 6e 74 65 78 74 28  65 64 69 74 62 6f 78 25  |context(editbox%|
00000a00  2c 36 2c 6c 6f 6f 6b 75  70 24 29 0d 00 5f 6c e7  |,6,lookup$).._l.|
00000a10  20 6d 65 6e 75 25 3d 65  64 69 74 70 6f 70 6d 65  | menu%=editpopme|
00000a20  6e 75 25 20 80 20 69 74  65 6d 25 3d 32 20 8c 20  |nu% . item%=2 . |
00000a30  6c 6f 6f 6b 75 70 24 3d  a4 77 69 6d 70 5f 6d 65  |lookup$=.wimp_me|
00000a40  73 73 6c 6f 6f 6b 30 28  22 50 4d 65 6e 75 32 22  |sslook0("PMenu2"|
00000a50  29 3a f2 77 69 6d 70 5f  70 75 74 69 63 6f 6e 74  |):.wimp_puticont|
00000a60  65 78 74 28 65 64 69 74  62 6f 78 25 2c 36 2c 6c  |ext(editbox%,6,l|
00000a70  6f 6f 6b 75 70 24 29 0d  00 60 6c e7 20 6d 65 6e  |ookup$)..`l. men|
00000a80  75 25 3d 65 64 69 74 70  6f 70 6d 65 6e 75 25 20  |u%=editpopmenu% |
00000a90  80 20 69 74 65 6d 25 3d  33 20 8c 20 6c 6f 6f 6b  |. item%=3 . look|
00000aa0  75 70 24 3d a4 77 69 6d  70 5f 6d 65 73 73 6c 6f  |up$=.wimp_messlo|
00000ab0  6f 6b 30 28 22 50 4d 65  6e 75 33 22 29 3a f2 77  |ok0("PMenu3"):.w|
00000ac0  69 6d 70 5f 70 75 74 69  63 6f 6e 74 65 78 74 28  |imp_puticontext(|
00000ad0  65 64 69 74 62 6f 78 25  2c 36 2c 6c 6f 6f 6b 75  |editbox%,6,looku|
00000ae0  70 24 29 0d 00 61 6c e7  20 6d 65 6e 75 25 3d 65  |p$)..al. menu%=e|
00000af0  64 69 74 70 6f 70 6d 65  6e 75 25 20 80 20 69 74  |ditpopmenu% . it|
00000b00  65 6d 25 3d 34 20 8c 20  6c 6f 6f 6b 75 70 24 3d  |em%=4 . lookup$=|
00000b10  a4 77 69 6d 70 5f 6d 65  73 73 6c 6f 6f 6b 30 28  |.wimp_messlook0(|
00000b20  22 50 4d 65 6e 75 34 22  29 3a f2 77 69 6d 70 5f  |"PMenu4"):.wimp_|
00000b30  70 75 74 69 63 6f 6e 74  65 78 74 28 65 64 69 74  |puticontext(edit|
00000b40  62 6f 78 25 2c 36 2c 6c  6f 6f 6b 75 70 24 29 0d  |box%,6,lookup$).|
00000b50  00 62 6c e7 20 6d 65 6e  75 25 3d 65 64 69 74 70  |.bl. menu%=editp|
00000b60  6f 70 6d 65 6e 75 25 20  80 20 69 74 65 6d 25 3d  |opmenu% . item%=|
00000b70  35 20 8c 20 6c 6f 6f 6b  75 70 24 3d a4 77 69 6d  |5 . lookup$=.wim|
00000b80  70 5f 6d 65 73 73 6c 6f  6f 6b 30 28 22 50 4d 65  |p_messlook0("PMe|
00000b90  6e 75 35 22 29 3a f2 77  69 6d 70 5f 70 75 74 69  |nu5"):.wimp_puti|
00000ba0  63 6f 6e 74 65 78 74 28  65 64 69 74 62 6f 78 25  |context(editbox%|
00000bb0  2c 36 2c 6c 6f 6f 6b 75  70 24 29 0d 00 63 6c e7  |,6,lookup$)..cl.|
00000bc0  20 6d 65 6e 75 25 3d 65  64 69 74 70 6f 70 6d 65  | menu%=editpopme|
00000bd0  6e 75 25 20 80 20 69 74  65 6d 25 3d 36 20 8c 20  |nu% . item%=6 . |
00000be0  6c 6f 6f 6b 75 70 24 3d  a4 77 69 6d 70 5f 6d 65  |lookup$=.wimp_me|
00000bf0  73 73 6c 6f 6f 6b 30 28  22 50 4d 65 6e 75 36 22  |sslook0("PMenu6"|
00000c00  29 3a f2 77 69 6d 70 5f  70 75 74 69 63 6f 6e 74  |):.wimp_puticont|
00000c10  65 78 74 28 65 64 69 74  62 6f 78 25 2c 36 2c 6c  |ext(editbox%,6,l|
00000c20  6f 6f 6b 75 70 24 29 0d  00 64 05 e1 0d 00 65 05  |ookup$)..d....e.|
00000c30  3a 0d 00 66 21 dd 20 a4  75 73 65 72 5f 73 61 76  |:..f!. .user_sav|
00000c40  65 66 69 6c 65 74 79 70  65 28 77 69 6e 64 6f 77  |efiletype(window|
00000c50  25 29 0d 00 67 07 3d 22  22 0d 00 68 05 3a 0d 00  |%)..g.=""..h.:..|
00000c60  69 34 dd 20 f2 75 73 65  72 5f 73 61 76 65 69 63  |i4. .user_saveic|
00000c70  6f 6e 28 77 69 6e 64 6f  77 25 2c f8 20 64 72 61  |on(window%,. dra|
00000c80  67 25 2c f8 20 77 72 69  74 65 25 2c f8 20 6f 6b  |g%,. write%,. ok|
00000c90  25 29 0d 00 6a 05 e1 0d  00 6b 05 3a 0d 00 6c 23  |%)..j....k.:..l#|
00000ca0  dd 20 a4 75 73 65 72 5f  73 61 76 65 64 61 74 61  |. .user_savedata|
00000cb0  28 70 61 74 68 24 2c 77  69 6e 64 6f 77 25 29 0d  |(path$,window%).|
00000cc0  00 6d 06 3d 31 0d 00 6e  05 3a 0d 00 6f 1f dd 20  |.m.=1..n.:..o.. |
00000cd0  a4 75 73 65 72 5f 68 65  6c 70 28 77 69 6e 64 6f  |.user_help(windo|
00000ce0  77 25 2c 69 63 6f 6e 25  29 0d 00 70 09 68 24 3d  |w%,icon%)..p.h$=|
00000cf0  22 22 0d 00 71 10 c8 8e  20 77 69 6e 64 6f 77 25  |""..q... window%|
00000d00  20 ca 0d 00 72 12 f4 20  54 68 65 20 65 64 69 74  | ...r.. The edit|
00000d10  5f 62 6f 78 0d 00 73 10  20 20 c9 20 65 64 69 74  |_box..s.  . edit|
00000d20  62 6f 78 25 0d 00 74 10  20 20 c8 8e 20 69 63 6f  |box%..t.  .. ico|
00000d30  6e 25 20 ca 0d 00 75 0f  20 20 20 20 c9 20 33 2c  |n% ...u.    . 3,|
00000d40  34 20 3a 0d 00 76 29 20  20 20 20 6c 6f 6f 6b 75  |4 :..v)    looku|
00000d50  70 24 3d a4 77 69 6d 70  5f 6d 65 73 73 6c 6f 6f  |p$=.wimp_messloo|
00000d60  6b 30 28 22 48 45 64 69  74 34 22 29 0d 00 77 12  |k0("HEdit4")..w.|
00000d70  20 20 20 20 68 24 3d 6c  6f 6f 6b 75 70 24 0d 00  |    h$=lookup$..|
00000d80  78 0d 20 20 20 20 c9 20  36 20 3a 0d 00 79 29 20  |x.    . 6 :..y) |
00000d90  20 20 20 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 48 45 64 69  |_messlook0("HEdi|
00000db0  74 35 22 29 0d 00 7a 12  20 20 20 20 68 24 3d 6c  |t5")..z.    h$=l|
00000dc0  6f 6f 6b 75 70 24 0d 00  7b 0e 20 20 20 20 c9 20  |ookup$..{.    . |
00000dd0  31 34 20 3a 0d 00 7c 29  20 20 20 20 6c 6f 6f 6b  |14 :..|)    look|
00000de0  75 70 24 3d a4 77 69 6d  70 5f 6d 65 73 73 6c 6f  |up$=.wimp_messlo|
00000df0  6f 6b 30 28 22 48 45 64  69 74 36 22 29 0d 00 7d  |ok0("HEdit6")..}|
00000e00  12 20 20 20 20 68 24 3d  6c 6f 6f 6b 75 70 24 0d  |.    h$=lookup$.|
00000e10  00 7e 0e 20 20 20 20 c9  20 32 31 20 3a 0d 00 7f  |.~.    . 21 :...|
00000e20  29 20 20 20 20 6c 6f 6f  6b 75 70 24 3d a4 77 69  |)    lookup$=.wi|
00000e30  6d 70 5f 6d 65 73 73 6c  6f 6f 6b 30 28 22 48 45  |mp_messlook0("HE|
00000e40  64 69 74 37 22 29 0d 00  80 12 20 20 20 20 68 24  |dit7")....    h$|
00000e50  3d 6c 6f 6f 6b 75 70 24  0d 00 81 11 20 20 20 20  |=lookup$....    |
00000e60  c9 20 32 32 2c 32 33 20  3a 0d 00 82 29 20 20 20  |. 22,23 :...)   |
00000e70  20 6c 6f 6f 6b 75 70 24  3d a4 77 69 6d 70 5f 6d  | lookup$=.wimp_m|
00000e80  65 73 73 6c 6f 6f 6b 30  28 22 48 45 64 69 74 38  |esslook0("HEdit8|
00000e90  22 29 0d 00 83 12 20 20  20 20 68 24 3d 6c 6f 6f  |")....    h$=loo|
00000ea0  6b 75 70 24 0d 00 84 0e  20 20 20 20 c9 20 31 38  |kup$....    . 18|
00000eb0  20 3a 0d 00 85 29 20 20  20 20 6c 6f 6f 6b 75 70  | :...)    lookup|
00000ec0  24 3d a4 77 69 6d 70 5f  6d 65 73 73 6c 6f 6f 6b  |$=.wimp_messlook|
00000ed0  30 28 22 48 45 64 69 74  39 22 29 0d 00 86 12 20  |0("HEdit9").... |
00000ee0  20 20 20 68 24 3d 6c 6f  6f 6b 75 70 24 0d 00 87  |   h$=lookup$...|
00000ef0  0d 20 20 20 20 c9 20 31  20 3a 0d 00 88 29 20 20  |.    . 1 :...)  |
00000f00  20 20 6c 6f 6f 6b 75 70  24 3d a4 77 69 6d 70 5f  |  lookup$=.wimp_|
00000f10  6d 65 73 73 6c 6f 6f 6b  30 28 22 48 45 64 69 74  |messlook0("HEdit|
00000f20  32 22 29 0d 00 89 12 20  20 20 20 68 24 3d 6c 6f  |2")....    h$=lo|
00000f30  6f 6b 75 70 24 0d 00 8a  0d 20 20 20 20 c9 20 30  |okup$....    . 0|
00000f40  20 3a 0d 00 8b 29 20 20  20 20 6c 6f 6f 6b 75 70  | :...)    lookup|
00000f50  24 3d a4 77 69 6d 70 5f  6d 65 73 73 6c 6f 6f 6b  |$=.wimp_messlook|
00000f60  30 28 22 48 45 64 69 74  33 22 29 0d 00 8c 12 20  |0("HEdit3").... |
00000f70  20 20 20 68 24 3d 6c 6f  6f 6b 75 70 24 0d 00 8d  |   h$=lookup$...|
00000f80  0b 20 20 20 20 7f 20 3a  0d 00 8e 29 20 20 20 20  |.    . :...)    |
00000f90  6c 6f 6f 6b 75 70 24 3d  a4 77 69 6d 70 5f 6d 65  |lookup$=.wimp_me|
00000fa0  73 73 6c 6f 6f 6b 30 28  22 48 45 64 69 74 31 22  |sslook0("HEdit1"|
00000fb0  29 0d 00 8f 13 20 20 20  20 68 24 3d 6c 6f 6f 6b  |)....    h$=look|
00000fc0  75 70 24 20 0d 00 90 07  20 20 cb 0d 00 91 05 cb  |up$ ....  ......|
00000fd0  0d 00 92 07 3d 68 24 0d  00 93 05 3a 0d 00 94 21  |....=h$....:...!|
00000fe0  dd 20 a4 75 73 65 72 5f  6d 65 6e 75 68 65 6c 70  |. .user_menuhelp|
00000ff0  28 6d 65 6e 75 25 2c 69  74 65 6d 25 29 0d 00 95  |(menu%,item%)...|
00001000  09 68 24 3d 22 22 0d 00  96 07 3d 68 24 0d 00 97  |.h$=""....=h$...|
00001010  05 3a 0d 00 98 3e dd 20  a4 75 73 65 72 5f 6c 6f  |.:...>. .user_lo|
00001020  61 64 64 61 74 61 28 70  61 74 68 24 2c 77 69 6e  |addata(path$,win|
00001030  64 6f 77 25 2c 69 63 6f  6e 25 2c 66 74 79 70 65  |dow%,icon%,ftype|
00001040  24 2c 77 6f 72 6b 78 25  2c 77 6f 72 6b 79 25 29  |$,workx%,worky%)|
00001050  0d 00 99 0a 75 73 65 64  3d 30 0d 00 9a 6a e7 20  |....used=0...j. |
00001060  77 69 6e 64 6f 77 25 3d  65 64 69 74 62 6f 78 25  |window%=editbox%|
00001070  20 80 20 69 63 6f 6e 25  3d 36 20 6c 69 6e 6b 24  | . icon%=6 link$|
00001080  28 63 75 72 72 65 6e 74  62 75 74 25 29 3d 70 61  |(currentbut%)=pa|
00001090  74 68 24 3a f2 77 69 6d  70 5f 70 75 74 69 63 6f  |th$:.wimp_putico|
000010a0  6e 74 65 78 74 28 65 64  69 74 62 6f 78 25 2c 36  |ntext(editbox%,6|
000010b0  2c 6c 69 6e 6b 24 28 63  75 72 72 65 6e 74 62 75  |,link$(currentbu|
000010c0  74 25 29 29 0d 00 9b 5c  e7 20 77 69 6e 64 6f 77  |t%))...\. window|
000010d0  25 3d 65 64 69 74 62 6f  78 25 20 80 20 69 63 6f  |%=editbox% . ico|
000010e0  6e 25 3d 32 31 20 63 6f  6e 66 69 67 72 75 6e 24  |n%=21 configrun$|
000010f0  3d 70 61 74 68 24 3a f2  77 69 6d 70 5f 70 75 74  |=path$:.wimp_put|
00001100  69 63 6f 6e 74 65 78 74  28 65 64 69 74 62 6f 78  |icontext(editbox|
00001110  25 2c 32 31 2c 63 6f 6e  66 69 67 72 75 6e 24 29  |%,21,configrun$)|
00001120  0d 00 9c 09 3d 75 73 65  64 0d 00 9d 05 3a 0d 00  |....=used....:..|
00001130  9e 23 dd 20 f2 75 73 65  72 5f 65 6e 74 65 72 69  |.#. .user_enteri|
00001140  6e 67 77 69 6e 64 6f 77  28 77 69 6e 64 6f 77 25  |ngwindow(window%|
00001150  29 0d 00 9f 05 cd 0d 00  a0 05 3a 0d 00 a1 22 dd  |).........:...".|
00001160  20 f2 75 73 65 72 5f 6c  65 61 76 69 6e 67 77 69  | .user_leavingwi|
00001170  6e 64 6f 77 28 77 69 6e  64 6f 77 25 29 0d 00 a2  |ndow(window%)...|
00001180  05 e1 0d 00 a3 05 3a 0d  00 a4 19 dd 20 a4 75 73  |......:..... .us|
00001190  65 72 5f 70 61 6e 65 28  77 69 6e 64 6f 77 25 29  |er_pane(window%)|
000011a0  0d 00 a5 07 3d 2d 31 0d  00 a6 05 3a 0d 00 a7 10  |....=-1....:....|
000011b0  dd 20 f2 75 73 65 72 5f  6e 75 6c 6c 0d 00 a8 05  |. .user_null....|
000011c0  e1 0d 00 a9 05 3a 0d 00  aa 21 dd 20 f2 75 73 65  |.....:...!. .use|
000011d0  72 5f 6d 65 6e 75 6f 70  65 6e 28 6d 65 6e 75 25  |r_menuopen(menu%|
000011e0  2c 69 63 6f 6e 25 29 0d  00 ab 05 e1 0d 00 ac 05  |,icon%).........|
000011f0  3a 0d 00 ad 25 dd 20 a4  75 73 65 72 5f 73 6c 69  |:...%. .user_sli|
00001200  64 65 72 62 61 63 6b 28  77 69 6e 64 6f 77 25 2c  |derback(window%,|
00001210  69 63 6f 6e 25 29 0d 00  ae 07 3d 2d 31 0d 00 af  |icon%)....=-1...|
00001220  05 3a 0d 00 b0 21 dd 20  a4 75 73 65 72 5f 73 6c  |.:...!. .user_sl|
00001230  69 64 65 72 28 77 69 6e  64 6f 77 25 2c 69 63 6f  |ider(window%,ico|
00001240  6e 25 29 0d 00 b1 07 3d  2d 31 0d 00 b2 05 3a 0d  |n%)....=-1....:.|
00001250  00 b3 2d dd 20 f2 75 73  65 72 5f 73 6c 69 64 65  |..-. .user_slide|
00001260  72 76 61 6c 75 65 28 77  69 6e 64 6f 77 25 2c 69  |rvalue(window%,i|
00001270  63 6f 6e 25 2c 70 63 65  6e 74 25 29 0d 00 b4 05  |con%,pcent%)....|
00001280  e1 0d 00 b5 05 3a 0d 00  b6 16 dd 20 f2 75 73 65  |.....:..... .use|
00001290  72 5f 6d 6f 64 65 63 68  61 6e 67 65 0d 00 b7 05  |r_modechange....|
000012a0  e1 0d 00 b8 05 3a 0d 00  b9 18 dd 20 f2 75 73 65  |.....:..... .use|
000012b0  72 5f 64 65 63 6c 61 72  65 66 6f 6e 74 73 0d 00  |r_declarefonts..|
000012c0  ba 05 e1 0d 00 bb 05 3a  0d 00 bc 30 dd 20 f2 75  |.......:...0. .u|
000012d0  73 65 72 5f 70 72 69 6e  74 28 6d 69 6e 78 25 2c  |ser_print(minx%,|
000012e0  6d 69 6e 79 25 2c 6d 61  78 78 25 2c 6d 61 78 79  |miny%,maxx%,maxy|
000012f0  25 2c 70 61 67 65 25 29  0d 00 bd 05 e1 0d 00 be  |%,page%)........|
00001300  05 3a 0d 00 bf 34 dd 20  a4 75 73 65 72 5f 70 72  |.:...4. .user_pr|
00001310  69 6e 74 69 6e 67 28 63  6f 70 79 25 2c 70 61 67  |inting(copy%,pag|
00001320  65 25 2c 74 6f 74 70 61  67 65 73 25 2c 70 61 67  |e%,totpages%,pag|
00001330  65 70 6f 73 25 29 0d 00  c0 06 3d 30 0d 00 c1 05  |epos%)....=0....|
00001340  3a 0d 00 c2 19 dd 20 f2  75 73 65 72 5f 70 72 69  |:..... .user_pri|
00001350  6e 74 65 72 63 68 61 6e  67 65 0d 00 c3 05 e1 0d  |nterchange......|
00001360  00 c4 05 3a 0d 00 c5 1d  f2 77 69 6d 70 5f 63 6c  |...:.....wimp_cl|
00001370  6f 73 65 77 69 6e 64 6f  77 28 65 72 72 6f 72 25  |osewindow(error%|
00001380  29 0d 00 c6 05 e1 0d 00  c7 05 3a 0d 00 c8 1f dd  |).........:.....|
00001390  20 f2 63 68 61 6e 67 65  62 75 74 74 6f 6e 76 61  | .changebuttonva|
000013a0  6c 75 65 28 69 63 6f 6e  25 29 0d 00 c9 0e c8 8e  |lue(icon%)......|
000013b0  20 69 63 6f 6e 25 20 ca  0d 00 ca 0c 20 20 20 c9  | icon% .....   .|
000013c0  20 39 20 3a 0d 00 cb 30  20 20 20 20 f2 77 69 6d  | 9 :...0    .wim|
000013d0  70 5f 70 75 74 69 63 6f  6e 74 65 78 74 28 65 64  |p_puticontext(ed|
000013e0  69 74 62 6f 78 25 2c 38  2c c3 20 62 75 74 74 6f  |itbox%,8,. butto|
000013f0  6e 73 25 29 0d 00 cc 13  20 20 20 20 62 75 74 74  |ns%)....    butt|
00001400  6f 6e 73 25 2b 3d 31 0d  00 cd 23 20 20 20 20 e7  |ons%+=1...#    .|
00001410  20 62 75 74 74 6f 6e 73  25 3e 32 35 20 8c 20 62  | buttons%>25 . b|
00001420  75 74 74 6f 6e 73 25 3d  32 35 0d 00 ce 30 20 20  |uttons%=25...0  |
00001430  20 20 f2 77 69 6d 70 5f  70 75 74 69 63 6f 6e 74  |  .wimp_puticont|
00001440  65 78 74 28 65 64 69 74  62 6f 78 25 2c 38 2c c3  |ext(editbox%,8,.|
00001450  20 62 75 74 74 6f 6e 73  25 29 0d 00 cf 0d 20 20  | buttons%)....  |
00001460  20 c9 20 31 30 20 3a 0d  00 d0 13 20 20 20 20 62  | . 10 :....    b|
00001470  75 74 74 6f 6e 73 25 2d  3d 31 0d 00 d1 30 20 20  |uttons%-=1...0  |
00001480  20 20 f2 77 69 6d 70 5f  70 75 74 69 63 6f 6e 74  |  .wimp_puticont|
00001490  65 78 74 28 65 64 69 74  62 6f 78 25 2c 38 2c c3  |ext(editbox%,8,.|
000014a0  20 62 75 74 74 6f 6e 73  25 29 0d 00 d2 21 20 20  | buttons%)...!  |
000014b0  20 20 e7 20 62 75 74 74  6f 6e 73 25 3c 32 20 8c  |  . buttons%<2 .|
000014c0  20 62 75 74 74 6f 6e 73  25 3d 31 0d 00 d3 30 20  | buttons%=1...0 |
000014d0  20 20 20 f2 77 69 6d 70  5f 70 75 74 69 63 6f 6e  |   .wimp_puticon|
000014e0  74 65 78 74 28 65 64 69  74 62 6f 78 25 2c 38 2c  |text(editbox%,8,|
000014f0  c3 20 62 75 74 74 6f 6e  73 25 29 0d 00 d4 05 cb  |. buttons%).....|
00001500  0d 00 d5 05 e1 0d 00 d6  05 3a 0d 00 d7 1e dd 20  |.........:..... |
00001510  f2 63 68 61 6e 67 65 65  64 69 74 6e 75 6d 62 65  |.changeeditnumbe|
00001520  72 28 69 63 6f 6e 25 29  0d 00 d8 0e c8 8e 20 69  |r(icon%)...... i|
00001530  63 6f 6e 25 20 ca 0d 00  d9 0f 20 20 20 20 20 c9  |con% .....     .|
00001540  20 31 32 20 3a 0d 00 da  2d 20 20 20 20 20 f4 20  | 12 :...-     . |
00001550  2a 2a 2a 20 53 61 76 65  20 74 68 65 20 64 65 66  |*** Save the def|
00001560  69 6e 69 74 69 6f 6e 73  20 74 6f 20 6d 65 6d 6f  |initions to memo|
00001570  72 79 0d 00 db 2e 20 20  20 20 20 6c 6f 6f 6b 75  |ry....     looku|
00001580  70 24 3d a4 77 69 6d 70  5f 67 65 74 69 63 6f 6e  |p$=.wimp_geticon|
00001590  74 65 78 74 28 65 64 69  74 62 6f 78 25 2c 34 29  |text(editbox%,4)|
000015a0  0d 00 dc 26 20 20 20 20  20 20 20 20 68 65 6c 70  |...&        help|
000015b0  24 28 63 75 72 72 65 6e  74 62 75 74 25 29 3d 6c  |$(currentbut%)=l|
000015c0  6f 6f 6b 75 70 24 0d 00  dd 2e 20 20 20 20 20 6c  |ookup$....     l|
000015d0  6f 6f 6b 75 70 24 3d a4  77 69 6d 70 5f 67 65 74  |ookup$=.wimp_get|
000015e0  69 63 6f 6e 74 65 78 74  28 65 64 69 74 62 6f 78  |icontext(editbox|
000015f0  25 2c 36 29 0d 00 de 26  20 20 20 20 20 20 20 20  |%,6)...&        |
00001600  6c 69 6e 6b 24 28 63 75  72 72 65 6e 74 62 75 74  |link$(currentbut|
00001610  25 29 3d 6c 6f 6f 6b 75  70 24 0d 00 df 2f 20 20  |%)=lookup$.../  |
00001620  20 20 20 6c 6f 6f 6b 75  70 24 3d a4 77 69 6d 70  |   lookup$=.wimp|
00001630  5f 67 65 74 69 63 6f 6e  74 65 78 74 28 65 64 69  |_geticontext(edi|
00001640  74 62 6f 78 25 2c 31 34  29 0d 00 e0 25 20 20 20  |tbox%,14)...%   |
00001650  20 20 20 20 20 73 70 72  24 28 63 75 72 72 65 6e  |     spr$(curren|
00001660  74 62 75 74 25 29 3d 6c  6f 6f 6b 75 70 24 0d 00  |tbut%)=lookup$..|
00001670  e1 17 20 20 20 20 20 63  75 72 72 65 6e 74 62 75  |..     currentbu|
00001680  74 25 2b 3d 31 0d 00 e2  32 20 20 20 20 20 e7 20  |t%+=1...2     . |
00001690  62 75 74 74 6f 6e 73 25  3c 63 75 72 72 65 6e 74  |buttons%<current|
000016a0  62 75 74 25 20 8c 20 63  75 72 72 65 6e 74 62 75  |but% . currentbu|
000016b0  74 25 2d 3d 31 3a e1 0d  00 e3 3a 20 20 20 20 20  |t%-=1:....:     |
000016c0  f2 77 69 6d 70 5f 70 75  74 69 63 6f 6e 74 65 78  |.wimp_puticontex|
000016d0  74 28 65 64 69 74 62 6f  78 25 2c 31 31 2c c3 20  |t(editbox%,11,. |
000016e0  63 75 72 72 65 6e 74 62  75 74 25 29 20 20 20 20  |currentbut%)    |
000016f0  20 0d 00 e4 28 20 20 20  20 20 f4 20 2a 2a 2a 20  | ...(     . *** |
00001700  4c 6f 61 64 20 74 68 65  20 68 65 6c 70 20 64 65  |Load the help de|
00001710  66 69 6e 69 74 69 6f 6e  73 0d 00 e5 39 20 20 20  |finitions...9   |
00001720  20 20 f2 77 69 6d 70 5f  70 75 74 69 63 6f 6e 74  |  .wimp_puticont|
00001730  65 78 74 28 65 64 69 74  62 6f 78 25 2c 34 2c 68  |ext(editbox%,4,h|
00001740  65 6c 70 24 28 63 75 72  72 65 6e 74 62 75 74 25  |elp$(currentbut%|
00001750  29 29 0d 00 e6 28 20 20  20 20 20 f4 20 52 45 4d  |))...(     . REM|
00001760  20 4c 6f 61 64 20 74 68  65 20 6c 69 6e 6b 20 64  | Load the link d|
00001770  65 66 69 6e 69 74 69 6f  6e 73 0d 00 e7 39 20 20  |efinitions...9  |
00001780  20 20 20 f2 77 69 6d 70  5f 70 75 74 69 63 6f 6e  |   .wimp_puticon|
00001790  74 65 78 74 28 65 64 69  74 62 6f 78 25 2c 36 2c  |text(editbox%,6,|
000017a0  6c 69 6e 6b 24 28 63 75  72 72 65 6e 74 62 75 74  |link$(currentbut|
000017b0  25 29 29 0d 00 e8 1f 20  20 20 20 20 f4 20 52 45  |%))....     . RE|
000017c0  4d 20 4c 6f 61 64 20 74  68 65 20 73 70 72 69 74  |M Load the sprit|
000017d0  65 73 0d 00 e9 39 20 20  20 20 20 f2 77 69 6d 70  |es...9     .wimp|
000017e0  5f 70 75 74 69 63 6f 6e  74 65 78 74 28 65 64 69  |_puticontext(edi|
000017f0  74 62 6f 78 25 2c 31 34  2c 73 70 72 24 28 63 75  |tbox%,14,spr$(cu|
00001800  72 72 65 6e 74 62 75 74  25 29 29 0d 00 ea 0f 20  |rrentbut%)).... |
00001810  20 20 20 20 c9 20 31 33  20 3a 0d 00 eb 2d 20 20  |    . 13 :...-  |
00001820  20 20 20 f4 20 2a 2a 2a  20 53 61 76 65 20 74 68  |   . *** Save th|
00001830  65 20 64 65 66 69 6e 69  74 69 6f 6e 73 20 74 6f  |e definitions to|
00001840  20 6d 65 6d 6f 72 79 0d  00 ec 2e 20 20 20 20 20  | memory....     |
00001850  6c 6f 6f 6b 75 70 24 3d  a4 77 69 6d 70 5f 67 65  |lookup$=.wimp_ge|
00001860  74 69 63 6f 6e 74 65 78  74 28 65 64 69 74 62 6f  |ticontext(editbo|
00001870  78 25 2c 34 29 0d 00 ed  26 20 20 20 20 20 20 20  |x%,4)...&       |
00001880  20 68 65 6c 70 24 28 63  75 72 72 65 6e 74 62 75  | help$(currentbu|
00001890  74 25 29 3d 6c 6f 6f 6b  75 70 24 0d 00 ee 2e 20  |t%)=lookup$.... |
000018a0  20 20 20 20 6c 6f 6f 6b  75 70 24 3d a4 77 69 6d  |    lookup$=.wim|
000018b0  70 5f 67 65 74 69 63 6f  6e 74 65 78 74 28 65 64  |p_geticontext(ed|
000018c0  69 74 62 6f 78 25 2c 36  29 0d 00 ef 26 20 20 20  |itbox%,6)...&   |
000018d0  20 20 20 20 20 6c 69 6e  6b 24 28 63 75 72 72 65  |     link$(curre|
000018e0  6e 74 62 75 74 25 29 3d  6c 6f 6f 6b 75 70 24 0d  |ntbut%)=lookup$.|
000018f0  00 f0 2f 20 20 20 20 20  6c 6f 6f 6b 75 70 24 3d  |../     lookup$=|
00001900  a4 77 69 6d 70 5f 67 65  74 69 63 6f 6e 74 65 78  |.wimp_geticontex|
00001910  74 28 65 64 69 74 62 6f  78 25 2c 31 34 29 0d 00  |t(editbox%,14)..|
00001920  f1 25 20 20 20 20 20 20  20 20 73 70 72 24 28 63  |.%        spr$(c|
00001930  75 72 72 65 6e 74 62 75  74 25 29 3d 6c 6f 6f 6b  |urrentbut%)=look|
00001940  75 70 24 0d 00 f2 17 20  20 20 20 20 63 75 72 72  |up$....     curr|
00001950  65 6e 74 62 75 74 25 2d  3d 31 0d 00 f3 2b 20 20  |entbut%-=1...+  |
00001960  20 20 20 e7 20 63 75 72  72 65 6e 74 62 75 74 25  |   . currentbut%|
00001970  3c 31 20 8c 20 63 75 72  72 65 6e 74 62 75 74 25  |<1 . currentbut%|
00001980  2b 3d 31 3a e1 0d 00 f4  35 20 20 20 20 20 f2 77  |+=1:....5     .w|
00001990  69 6d 70 5f 70 75 74 69  63 6f 6e 74 65 78 74 28  |imp_puticontext(|
000019a0  65 64 69 74 62 6f 78 25  2c 31 31 2c c3 20 63 75  |editbox%,11,. cu|
000019b0  72 72 65 6e 74 62 75 74  25 29 0d 00 f5 28 20 20  |rrentbut%)...(  |
000019c0  20 20 20 f4 20 2a 2a 2a  20 4c 6f 61 64 20 74 68  |   . *** Load th|
000019d0  65 20 68 65 6c 70 20 64  65 66 69 6e 69 74 69 6f  |e help definitio|
000019e0  6e 73 0d 00 f6 39 20 20  20 20 20 f2 77 69 6d 70  |ns...9     .wimp|
000019f0  5f 70 75 74 69 63 6f 6e  74 65 78 74 28 65 64 69  |_puticontext(edi|
00001a00  74 62 6f 78 25 2c 34 2c  68 65 6c 70 24 28 63 75  |tbox%,4,help$(cu|
00001a10  72 72 65 6e 74 62 75 74  25 29 29 0d 00 f7 28 20  |rrentbut%))...( |
00001a20  20 20 20 20 f4 20 52 45  4d 20 4c 6f 61 64 20 74  |    . REM Load t|
00001a30  68 65 20 6c 69 6e 6b 20  64 65 66 69 6e 69 74 69  |he link definiti|
00001a40  6f 6e 73 0d 00 f8 39 20  20 20 20 20 f2 77 69 6d  |ons...9     .wim|
00001a50  70 5f 70 75 74 69 63 6f  6e 74 65 78 74 28 65 64  |p_puticontext(ed|
00001a60  69 74 62 6f 78 25 2c 36  2c 6c 69 6e 6b 24 28 63  |itbox%,6,link$(c|
00001a70  75 72 72 65 6e 74 62 75  74 25 29 29 0d 00 f9 1f  |urrentbut%))....|
00001a80  20 20 20 20 20 f4 20 52  45 4d 20 4c 6f 61 64 20  |     . REM Load |
00001a90  74 68 65 20 73 70 72 69  74 65 73 0d 00 fa 39 20  |the sprites...9 |
00001aa0  20 20 20 20 f2 77 69 6d  70 5f 70 75 74 69 63 6f  |    .wimp_putico|
00001ab0  6e 74 65 78 74 28 65 64  69 74 62 6f 78 25 2c 31  |ntext(editbox%,1|
00001ac0  34 2c 73 70 72 24 28 63  75 72 72 65 6e 74 62 75  |4,spr$(currentbu|
00001ad0  74 25 29 29 0d 00 fb 05  cb 0d 00 fc 05 e1 0d 00  |t%))............|
00001ae0  fd 05 3a 0d 00 fe 0f dd  20 f2 6f 70 65 6e 65 64  |..:..... .opened|
00001af0  69 74 0d 00 ff 19 f4 20  2a 2a 2a 20 4f 70 65 6e  |it..... *** Open|
00001b00  20 74 68 65 20 77 69 6e  64 6f 77 0d 01 00 23 f2  | the window...#.|
00001b10  77 69 6d 70 5f 6f 70 65  6e 77 69 6e 64 6f 77 28  |wimp_openwindow(|
00001b20  65 64 69 74 62 6f 78 25  2c 31 2c 2d 31 29 0d 01  |editbox%,1,-1)..|
00001b30  01 3d f4 20 2a 2a 2a 20  4c 6f 61 64 20 73 6f 6d  |.=. *** Load som|
00001b40  65 20 74 68 69 6e 67 73  20 66 72 6f 6d 20 74 68  |e things from th|
00001b50  65 20 6d 65 73 73 61 67  65 73 20 61 6e 64 20 6f  |e messages and o|
00001b60  70 74 69 6f 6e 73 20 66  69 6c 65 0d 01 02 2c f2  |ptions file...,.|
00001b70  77 69 6d 70 5f 70 75 74  69 63 6f 6e 74 65 78 74  |wimp_puticontext|
00001b80  28 65 64 69 74 62 6f 78  25 2c 38 2c c3 20 62 75  |(editbox%,8,. bu|
00001b90  74 74 6f 6e 73 25 29 0d  01 03 3a f4 20 2a 2a 2a  |ttons%)...:. ***|
00001ba0  20 53 65 74 75 70 20 61  6e 64 20 73 68 6f 77 20  | Setup and show |
00001bb0  74 68 65 20 66 69 72 73  74 20 63 61 72 64 3a 20  |the first card: |
00001bc0  74 68 65 20 66 69 72 73  74 20 62 75 74 74 6f 6e  |the first button|
00001bd0  2e 0d 01 04 11 63 75 72  72 65 6e 74 62 75 74 25  |.....currentbut%|
00001be0  3d 31 0d 01 05 30 f2 77  69 6d 70 5f 70 75 74 69  |=1...0.wimp_puti|
00001bf0  63 6f 6e 74 65 78 74 28  65 64 69 74 62 6f 78 25  |context(editbox%|
00001c00  2c 31 31 2c c3 20 63 75  72 72 65 6e 74 62 75 74  |,11,. currentbut|
00001c10  25 29 0d 01 06 23 f4 20  2a 2a 2a 20 4c 6f 61 64  |%)...#. *** Load|
00001c20  20 74 68 65 20 68 65 6c  70 20 64 65 66 69 6e 69  | the help defini|
00001c30  74 69 6f 6e 73 0d 01 07  2a f2 77 69 6d 70 5f 70  |tions...*.wimp_p|
00001c40  75 74 69 63 6f 6e 74 65  78 74 28 65 64 69 74 62  |uticontext(editb|
00001c50  6f 78 25 2c 34 2c 68 65  6c 70 24 28 31 29 29 0d  |ox%,4,help$(1)).|
00001c60  01 08 23 f4 20 2a 2a 2a  20 4c 6f 61 64 20 74 68  |..#. *** Load th|
00001c70  65 20 6c 69 6e 6b 20 64  65 66 69 6e 69 74 69 6f  |e link definitio|
00001c80  6e 73 0d 01 09 2a f2 77  69 6d 70 5f 70 75 74 69  |ns...*.wimp_puti|
00001c90  63 6f 6e 74 65 78 74 28  65 64 69 74 62 6f 78 25  |context(editbox%|
00001ca0  2c 36 2c 6c 69 6e 6b 24  28 31 29 29 0d 01 0a 1a  |,6,link$(1))....|
00001cb0  f4 20 2a 2a 2a 20 4c 6f  61 64 20 74 68 65 20 73  |. *** Load the s|
00001cc0  70 72 69 74 65 73 0d 01  0b 2a f2 77 69 6d 70 5f  |prites...*.wimp_|
00001cd0  70 75 74 69 63 6f 6e 74  65 78 74 28 65 64 69 74  |puticontext(edit|
00001ce0  62 6f 78 25 2c 31 34 2c  73 70 72 24 28 31 29 29  |box%,14,spr$(1))|
00001cf0  0d 01 0c 35 f4 20 2a 2a  2a 20 4c 6f 61 64 20 74  |...5. *** Load t|
00001d00  68 65 20 6c 69 6e 6b 20  74 6f 20 74 68 65 20 63  |he link to the c|
00001d10  6f 6e 66 69 67 75 72 65  20 61 70 70 6c 69 63 61  |onfigure applica|
00001d20  74 69 6f 6e 2e 0d 01 0d  2d f2 77 69 6d 70 5f 70  |tion....-.wimp_p|
00001d30  75 74 69 63 6f 6e 74 65  78 74 28 65 64 69 74 62  |uticontext(editb|
00001d40  6f 78 25 2c 32 31 2c 63  6f 6e 66 69 67 72 75 6e  |ox%,21,configrun|
00001d50  24 29 0d 01 0e 1a f4 20  2a 2a 2a 20 4c 6f 61 64  |$)..... *** Load|
00001d60  20 74 68 65 20 6f 70 74  69 6f 6e 73 0d 01 0f 5f  | the options..._|
00001d70  e7 20 6f 70 74 31 24 3d  22 31 22 20 8c 20 f2 77  |. opt1$="1" . .w|
00001d80  69 6d 70 5f 69 63 6f 6e  73 65 6c 65 63 74 28 65  |imp_iconselect(e|
00001d90  64 69 74 62 6f 78 25 2c  32 32 2c 31 29 3a e7 20  |ditbox%,22,1):. |
00001da0  6f 70 74 31 24 3d 22 30  22 20 8c 20 f2 77 69 6d  |opt1$="0" . .wim|
00001db0  70 5f 69 63 6f 6e 73 65  6c 65 63 74 28 65 64 69  |p_iconselect(edi|
00001dc0  74 62 6f 78 25 2c 32 32  2c 30 29 0d 01 10 5f e7  |tbox%,22,0)..._.|
00001dd0  20 6f 70 74 32 24 3d 22  31 22 20 8c 20 f2 77 69  | opt2$="1" . .wi|
00001de0  6d 70 5f 69 63 6f 6e 73  65 6c 65 63 74 28 65 64  |mp_iconselect(ed|
00001df0  69 74 62 6f 78 25 2c 32  33 2c 31 29 3a e7 20 6f  |itbox%,23,1):. o|
00001e00  70 74 32 24 3d 22 30 22  20 8c 20 f2 77 69 6d 70  |pt2$="0" . .wimp|
00001e10  5f 69 63 6f 6e 73 65 6c  65 63 74 28 65 64 69 74  |_iconselect(edit|
00001e20  62 6f 78 25 2c 32 33 2c  30 29 0d 01 11 05 e1 0d  |box%,23,0)......|
00001e30  01 12 05 3a 0d 01 13 10  dd 20 f2 73 70 6c 69 74  |...:..... .split|
00001e40  28 73 24 29 0d 01 14 34  f4 20 4c 6f 61 64 73 20  |(s$)...4. Loads |
00001e50  54 65 6d 70 24 28 29 20  77 69 74 68 20 65 61 63  |Temp$() with eac|
00001e60  68 20 63 6f 6d 6d 61 2d  73 65 70 61 72 61 74 65  |h comma-separate|
00001e70  64 20 73 74 72 69 6e 67  0d 01 15 24 f4 20 54 68  |d string...$. Th|
00001e80  69 73 20 70 72 6f 63 20  28 43 29 20 47 72 61 68  |is proc (C) Grah|
00001e90  61 6d 20 43 72 6f 77 20  31 39 39 37 0d 01 16 0b  |am Crow 1997....|
00001ea0  ea 20 63 25 2c 6e 25 0d  01 17 14 54 65 6d 70 24  |. c%,n%....Temp$|
00001eb0  28 29 3d 22 20 22 3a 63  25 3d 31 0d 01 18 11 c8  |()=" ":c%=1.....|
00001ec0  95 20 a7 73 24 2c 22 2c  22 29 3e 30 0d 01 19 11  |. .s$,",")>0....|
00001ed0  20 20 6e 25 3d a7 73 24  2c 22 2c 22 29 0d 01 1a  |  n%=.s$,",")...|
00001ee0  19 20 20 54 65 6d 70 24  28 63 25 29 3d c0 73 24  |.  Temp$(c%)=.s$|
00001ef0  2c 6e 25 2d 31 29 0d 01  1b 15 20 20 73 24 3d c2  |,n%-1)....  s$=.|
00001f00  73 24 2c a9 20 73 24 2d  6e 25 29 0d 01 1c 0b 20  |s$,. s$-n%).... |
00001f10  20 63 25 2b 3d 31 0d 01  1d 05 ce 0d 01 1e 10 54  | c%+=1.........T|
00001f20  65 6d 70 24 28 63 25 29  3d 73 24 0d 01 1f 05 e1  |emp$(c%)=s$.....|
00001f30  0d 01 20 05 3a 0d 01 21  12 dd 20 f2 73 61 76 65  |.. .:..!.. .save|
00001f40  65 64 69 74 62 6f 78 0d  01 22 29 6c 6f 6f 6b 75  |editbox..")looku|
00001f50  70 24 3d a4 77 69 6d 70  5f 67 65 74 69 63 6f 6e  |p$=.wimp_geticon|
00001f60  74 65 78 74 28 65 64 69  74 62 6f 78 25 2c 34 29  |text(editbox%,4)|
00001f70  0d 01 23 21 20 20 20 68  65 6c 70 24 28 63 75 72  |..#!   help$(cur|
00001f80  72 65 6e 74 62 75 74 25  29 3d 6c 6f 6f 6b 75 70  |rentbut%)=lookup|
00001f90  24 0d 01 24 29 6c 6f 6f  6b 75 70 24 3d a4 77 69  |$..$)lookup$=.wi|
00001fa0  6d 70 5f 67 65 74 69 63  6f 6e 74 65 78 74 28 65  |mp_geticontext(e|
00001fb0  64 69 74 62 6f 78 25 2c  36 29 0d 01 25 21 20 20  |ditbox%,6)..%!  |
00001fc0  20 6c 69 6e 6b 24 28 63  75 72 72 65 6e 74 62 75  | link$(currentbu|
00001fd0  74 25 29 3d 6c 6f 6f 6b  75 70 24 0d 01 26 2a 6c  |t%)=lookup$..&*l|
00001fe0  6f 6f 6b 75 70 24 3d a4  77 69 6d 70 5f 67 65 74  |ookup$=.wimp_get|
00001ff0  69 63 6f 6e 74 65 78 74  28 65 64 69 74 62 6f 78  |icontext(editbox|
00002000  25 2c 31 34 29 0d 01 27  20 20 20 20 73 70 72 24  |%,14)..'    spr$|
00002010  28 63 75 72 72 65 6e 74  62 75 74 25 29 3d 6c 6f  |(currentbut%)=lo|
00002020  6f 6b 75 70 24 0d 01 28  2a 6c 6f 6f 6b 75 70 24  |okup$..(*lookup$|
00002030  3d a4 77 69 6d 70 5f 67  65 74 69 63 6f 6e 74 65  |=.wimp_geticonte|
00002040  78 74 28 65 64 69 74 62  6f 78 25 2c 32 31 29 0d  |xt(editbox%,21).|
00002050  01 29 19 20 20 20 63 6f  6e 66 69 67 72 75 6e 24  |.).   configrun$|
00002060  3d 6c 6f 6f 6b 75 70 24  0d 01 2a 2b 6c 6f 6f 6b  |=lookup$..*+look|
00002070  75 70 25 3d a4 77 69 6d  70 5f 67 65 74 69 63 6f  |up%=.wimp_getico|
00002080  6e 73 74 61 74 65 28 65  64 69 74 62 6f 78 25 2c  |nstate(editbox%,|
00002090  32 32 29 0d 01 2b 1e 20  20 20 e7 20 6c 6f 6f 6b  |22)..+.   . look|
000020a0  75 70 25 3d 31 20 8c 20  6f 70 74 31 24 3d 22 31  |up%=1 . opt1$="1|
000020b0  22 0d 01 2c 1e 20 20 20  e7 20 6c 6f 6f 6b 75 70  |"..,.   . lookup|
000020c0  25 3d 30 20 8c 20 6f 70  74 31 24 3d 22 30 22 0d  |%=0 . opt1$="0".|
000020d0  01 2d 2b 6c 6f 6f 6b 75  70 25 3d a4 77 69 6d 70  |.-+lookup%=.wimp|
000020e0  5f 67 65 74 69 63 6f 6e  73 74 61 74 65 28 65 64  |_geticonstate(ed|
000020f0  69 74 62 6f 78 25 2c 32  33 29 0d 01 2e 1e 20 20  |itbox%,23)....  |
00002100  20 e7 20 6c 6f 6f 6b 75  70 25 3d 31 20 8c 20 6f  | . lookup%=1 . o|
00002110  70 74 32 24 3d 22 31 22  0d 01 2f 1e 20 20 20 e7  |pt2$="1"../.   .|
00002120  20 6c 6f 6f 6b 75 70 25  3d 30 20 8c 20 6f 70 74  | lookup%=0 . opt|
00002130  32 24 3d 22 30 22 0d 01  30 13 f4 20 4f 70 65 6e  |2$="0"..0.. Open|
00002140  20 74 68 65 20 66 69 6c  65 0d 01 31 2d 66 69 6c  | the file..1-fil|
00002150  65 25 3d ae 28 22 3c 4f  66 66 69 63 65 24 44 69  |e%=.("<Office$Di|
00002160  72 3e 2e 52 65 73 6f 75  72 63 65 73 2e 43 68 6f  |r>.Resources.Cho|
00002170  69 63 65 73 22 29 0d 01  32 1e f4 20 4e 75 6d 62  |ices")..2.. Numb|
00002180  65 72 20 6f 66 20 62 75  74 74 6f 6e 73 20 6f 6e  |er of buttons on|
00002190  20 62 61 72 0d 01 33 16  6c 6f 6f 6b 75 70 24 3d  | bar..3.lookup$=|
000021a0  c3 20 62 75 74 74 6f 6e  73 25 0d 01 34 13 d5 23  |. buttons%..4..#|
000021b0  66 69 6c 65 25 2c 6c 6f  6f 6b 75 70 24 0d 01 35  |file%,lookup$..5|
000021c0  20 f4 20 53 61 76 65 20  6c 6f 63 61 74 69 6f 6e  | . Save location|
000021d0  20 6f 66 20 63 6f 6e 66  69 67 75 72 65 0d 01 36  | of configure..6|
000021e0  23 d5 23 66 69 6c 65 25  2c 22 43 6f 6e 66 69 67  |#.#file%,"Config|
000021f0  75 72 65 20 6f 72 20 73  68 75 74 64 6f 77 6e 22  |ure or shutdown"|
00002200  0d 01 37 16 d5 23 66 69  6c 65 25 2c 63 6f 6e 66  |..7..#file%,conf|
00002210  69 67 72 75 6e 24 0d 01  38 17 f4 20 53 61 76 65  |igrun$..8.. Save|
00002220  20 64 65 73 63 72 69 70  74 69 6f 6e 73 0d 01 39  | descriptions..9|
00002230  15 e3 20 4a 25 3d 31 20  b8 20 62 75 74 74 6f 6e  |.. J%=1 . button|
00002240  73 25 0d 01 3a 13 20 20  20 79 24 3d 68 65 6c 70  |s%..:.   y$=help|
00002250  24 28 4a 25 29 0d 01 3b  13 20 20 20 78 24 3d 6c  |$(J%)..;.   x$=l|
00002260  69 6e 6b 24 28 4a 25 29  0d 01 3c 12 20 20 20 7a  |ink$(J%)..<.   z|
00002270  24 3d 73 70 72 24 28 4a  25 29 0d 01 3d 1f 20 20  |$=spr$(J%)..=.  |
00002280  20 d5 23 66 69 6c 65 25  2c 79 24 2b 22 2c 22 2b  | .#file%,y$+","+|
00002290  78 24 2b 22 2c 22 2b 7a  24 0d 01 3e 05 ed 0d 01  |x$+","+z$..>....|
000022a0  3f 15 f4 20 2a 2a 2a 20  54 68 65 20 6f 70 74 69  |?.. *** The opti|
000022b0  6f 6e 73 0d 01 40 0f e3  20 4a 25 3d 31 20 b8 20  |ons..@.. J%=1 . |
000022c0  34 30 0d 01 41 0d 63 25  3d b3 28 33 30 30 29 0d  |40..A.c%=.(300).|
000022d0  01 42 12 20 20 20 20 d5  23 66 69 6c 65 25 2c 63  |.B.    .#file%,c|
000022e0  25 0d 01 43 05 ed 0d 01  44 15 20 20 20 20 d5 23  |%..C....D.    .#|
000022f0  66 69 6c 65 25 2c 6f 70  74 31 24 0d 01 45 0f e3  |file%,opt1$..E..|
00002300  20 4a 25 3d 31 20 b8 20  34 30 0d 01 46 0d 63 25  | J%=1 . 40..F.c%|
00002310  3d b3 28 31 30 30 29 0d  01 47 12 20 20 20 20 d5  |=.(100)..G.    .|
00002320  23 66 69 6c 65 25 2c 63  25 0d 01 48 05 ed 0d 01  |#file%,c%..H....|
00002330  49 15 20 20 20 20 d5 23  66 69 6c 65 25 2c 6f 70  |I.    .#file%,op|
00002340  74 32 24 0d 01 4a 0f e3  20 4a 25 3d 31 20 b8 20  |t2$..J.. J%=1 . |
00002350  34 30 0d 01 4b 0c 63 25  3d b3 28 39 35 29 0d 01  |40..K.c%=.(95)..|
00002360  4c 12 20 20 20 20 d5 23  66 69 6c 65 25 2c 63 25  |L.    .#file%,c%|
00002370  0d 01 4d 05 ed 0d 01 4e  0f e3 20 4a 25 3d 31 20  |..M....N.. J%=1 |
00002380  b8 20 34 30 0d 01 4f 0d  63 25 3d b3 28 35 30 30  |. 40..O.c%=.(500|
00002390  29 0d 01 50 12 20 20 20  20 d5 23 66 69 6c 65 25  |)..P.    .#file%|
000023a0  2c 63 25 0d 01 51 05 ed  0d 01 52 2b f4 20 2a 2a  |,c%..Q....R+. **|
000023b0  2a 20 54 68 65 20 6c 61  73 74 20 6c 69 6e 65 20  |* The last line |
000023c0  6d 75 73 74 20 61 6c 77  61 79 73 20 62 65 20 74  |must always be t|
000023d0  65 78 74 0d 01 53 28 d5  23 66 69 6c 65 25 2c 22  |ext..S(.#file%,"|
000023e0  43 6f 70 79 72 69 67 68  74 20 50 65 74 65 72 20  |Copyright Peter |
000023f0  50 72 69 63 65 20 31 39  39 38 22 0d 01 54 0b d9  |Price 1998"..T..|
00002400  23 66 69 6c 65 25 0d 01  55 28 20 20 f4 20 2a 2a  |#file%..U(  . **|
00002410  20 63 6c 6f 73 65 20 74  68 65 20 65 64 69 74 20  | close the edit |
00002420  77 69 6e 64 6f 77 20 6e  65 78 74 2e 2e 2e 0d 01  |window next.....|
00002430  56 1f f2 77 69 6d 70 5f  63 6c 6f 73 65 77 69 6e  |V..wimp_closewin|
00002440  64 6f 77 28 65 64 69 74  62 6f 78 25 29 0d 01 57  |dow(editbox%)..W|
00002450  05 e1 0d 01 58 05 3a 0d  01 59 17 dd 20 a4 72 65  |....X.:..Y.. .re|
00002460  67 69 73 74 65 72 65 64  28 66 73 70 24 29 0d 01  |gistered(fsp$)..|
00002470  5a 25 ea 20 46 25 2c 72  65 67 25 2c 70 72 65 73  |Z%. F%,reg%,pres|
00002480  65 6e 74 25 2c 74 79 70  65 25 2c 66 69 6c 65 6c  |ent%,type%,filel|
00002490  65 6e 25 0d 01 5b 1c ea  20 67 61 70 25 2c 74 65  |en%..[.. gap%,te|
000024a0  73 74 6c 65 6e 25 2c 6e  61 6d 65 6c 65 6e 25 0d  |stlen%,namelen%.|
000024b0  01 5c 0a 72 65 67 25 3d  b9 0d 01 5d 1a f4 20 49  |.\.reg%=...].. I|
000024c0  73 20 74 68 65 20 66 69  6c 65 20 70 72 65 73 65  |s the file prese|
000024d0  6e 74 3f 0d 01 5e 0f e7  20 66 73 70 24 3d 22 22  |nt?..^.. fsp$=""|
000024e0  20 8c 0d 01 5f 0f 20 70  72 65 73 65 6e 74 25 3d  | ..._. present%=|
000024f0  a3 0d 01 60 05 cc 0d 01  61 24 20 c8 99 20 22 4f  |...`....a$ .. "O|
00002500  53 5f 46 69 6c 65 22 2c  31 33 2c 66 73 70 24 20  |S_File",13,fsp$ |
00002510  b8 20 70 72 65 73 65 6e  74 25 0d 01 62 05 cd 0d  |. present%..b...|
00002520  01 63 12 e7 20 70 72 65  73 65 6e 74 25 3d 30 20  |.c.. present%=0 |
00002530  8c 0d 01 64 0b 20 72 65  67 25 3d a3 0d 01 65 05  |...d. reg%=...e.|
00002540  cc 0d 01 66 1c 20 f4 20  43 68 65 63 6b 20 74 79  |...f. . Check ty|
00002550  70 65 20 61 6e 64 20 6c  65 6e 67 74 68 0d 01 67  |pe and length..g|
00002560  22 20 c8 99 20 22 4f 53  5f 46 69 6c 65 22 2c 35  |" .. "OS_File",5|
00002570  2c 66 73 70 24 20 b8 20  2c 2c 74 79 70 65 25 0d  |,fsp$ . ,,type%.|
00002580  01 68 22 20 74 79 70 65  25 3d 28 74 79 70 65 25  |.h" type%=(type%|
00002590  20 80 20 26 46 46 46 30  30 29 20 81 20 26 31 30  | . &FFF00) . &10|
000025a0  30 0d 01 69 27 20 c8 99  20 22 4f 53 5f 46 69 6c  |0..i' .. "OS_Fil|
000025b0  65 22 2c 35 2c 66 73 70  24 20 b8 20 2c 2c 2c 2c  |e",5,fsp$ . ,,,,|
000025c0  66 69 6c 65 6c 65 6e 25  0d 01 6a 0f 20 46 25 3d  |filelen%..j. F%=|
000025d0  ad 28 66 73 70 24 29 0d  01 6b 1c 20 6e 61 6d 65  |.(fsp$)..k. name|
000025e0  6c 65 6e 25 3d 9a 23 46  25 3a 67 61 70 25 3d 9a  |len%=.#F%:gap%=.|
000025f0  23 46 25 0d 01 6c 26 20  74 65 73 74 6c 65 6e 25  |#F%..l& testlen%|
00002600  3d 28 67 61 70 25 2b 31  29 2a 6e 61 6d 65 6c 65  |=(gap%+1)*namele|
00002610  6e 25 2b 32 2b 67 61 70  25 0d 01 6d 30 20 e7 20  |n%+2+gap%..m0 . |
00002620  74 79 70 65 25 3c 3e 26  46 46 44 20 84 20 66 69  |type%<>&FFD . fi|
00002630  6c 65 6c 65 6e 25 3c 3e  74 65 73 74 6c 65 6e 25  |lelen%<>testlen%|
00002640  20 8c 20 72 65 67 25 3d  a3 0d 01 6e 09 20 d9 23  | . reg%=...n. .#|
00002650  46 25 0d 01 6f 05 cd 0d  01 70 09 3d 72 65 67 25  |F%..o....p.=reg%|
00002660  0d 01 71 05 3a 0d 01 72  13 dd 20 a4 64 65 63 6f  |..q.:..r.. .deco|
00002670  64 65 28 66 73 70 24 29  0d 01 73 23 f4 20 45 78  |de(fsp$)..s#. Ex|
00002680  74 72 61 63 74 20 75 73  65 72 27 73 20 6e 61 6d  |tract user's nam|
00002690  65 20 66 72 6f 6d 20 66  69 6c 65 0d 01 74 27 ea  |e from file..t'.|
000026a0  20 4a 25 2c 46 25 2c 63  6f 75 6e 74 25 2c 6c 65  | J%,F%,count%,le|
000026b0  6e 25 2c 67 61 70 25 2c  61 73 63 25 2c 6e 61 6d  |n%,gap%,asc%,nam|
000026c0  65 24 0d 01 75 0e 46 25  3d ad 28 66 73 70 24 29  |e$..u.F%=.(fsp$)|
000026d0  0d 01 76 0d 6c 65 6e 25  3d 9a 23 46 25 0d 01 77  |..v.len%=.#F%..w|
000026e0  0d 67 61 70 25 3d 9a 23  46 25 0d 01 78 15 6e 61  |.gap%=.#F%..x.na|
000026f0  6d 65 24 3d 22 22 3a 63  6f 75 6e 74 25 3d 31 0d  |me$="":count%=1.|
00002700  01 79 05 f5 0d 01 7a 12  20 e3 20 4a 25 3d 31 20  |.y....z. . J%=1 |
00002710  b8 20 67 61 70 25 0d 01  7b 0f 20 20 61 73 63 25  |. gap%..{.  asc%|
00002720  3d 9a 23 46 25 0d 01 7c  06 20 ed 0d 01 7d 0e 20  |=.#F%..|. ...}. |
00002730  61 73 63 25 3d 9a 23 46  25 0d 01 7e 12 20 6e 61  |asc%=.#F%..~. na|
00002740  6d 65 24 2b 3d bd 20 61  73 63 25 0d 01 7f 0e 20  |me$+=. asc%.... |
00002750  63 6f 75 6e 74 25 2b 3d  31 0d 01 80 11 fd 20 63  |count%+=1..... c|
00002760  6f 75 6e 74 25 3e 6c 65  6e 25 0d 01 81 08 d9 23  |ount%>len%.....#|
00002770  46 25 0d 01 82 0a 3d 6e  61 6d 65 24 0d 01 83 05  |F%....=name$....|
00002780  3a 0d 01 84 14 dd 20 f2  75 6e 69 76 65 72 73 61  |:..... .universa|
00002790  6c 6c 6f 61 64 0d 01 85  29 f4 20 4c 6f 61 64 20  |lload...). Load |
000027a0  64 65 66 69 6e 69 74 69  6f 6e 73 20 66 72 6f 6d  |definitions from|
000027b0  20 74 68 65 20 44 61 74  61 20 66 69 6c 65 0d 01  | the Data file..|
000027c0  86 2a 46 25 3d ad 28 22  3c 4f 66 66 69 63 65 24  |.*F%=.("<Office$|
000027d0  44 69 72 3e 2e 52 65 73  6f 75 72 63 65 73 2e 43  |Dir>.Resources.C|
000027e0  68 6f 69 63 65 73 22 29  0d 01 87 1e f4 20 43 72  |hoices")..... Cr|
000027f0  65 61 74 65 20 61 20 73  70 61 63 65 20 69 6e 20  |eate a space in |
00002800  6d 65 6d 6f 72 79 0d 01  88 1c 20 20 20 73 24 3d  |memory....   s$=|
00002810  be 23 46 25 3a 62 75 74  74 6f 6e 73 25 3d bb 20  |.#F%:buttons%=. |
00002820  73 24 0d 01 89 1f 20 20  20 73 24 3d be 23 46 25  |s$....   s$=.#F%|
00002830  3a 63 6f 6e 66 69 67 72  75 6e 68 6c 70 24 3d 73  |:configrunhlp$=s|
00002840  24 0d 01 8a 1c 20 20 20  73 24 3d be 23 46 25 3a  |$....   s$=.#F%:|
00002850  63 6f 6e 66 69 67 72 75  6e 24 3d 73 24 0d 01 8b  |configrun$=s$...|
00002860  08 20 20 20 3a 0d 01 8c  12 20 20 20 de 20 68 65  |.   :....   . he|
00002870  6c 70 24 28 33 30 29 0d  01 8d 12 20 20 20 de 20  |lp$(30)....   . |
00002880  6c 69 6e 6b 24 28 33 30  29 0d 01 8e 11 20 20 20  |link$(30)....   |
00002890  de 20 73 70 72 24 28 33  30 29 0d 01 8f 11 20 20  |. spr$(30)....  |
000028a0  20 de 20 54 65 6d 70 24  28 33 29 0d 01 90 08 20  | . Temp$(3).... |
000028b0  20 20 3a 0d 01 91 15 e3  20 4a 25 3d 31 20 b8 20  |  :..... J%=1 . |
000028c0  62 75 74 74 6f 6e 73 25  0d 01 92 19 20 20 20 73  |buttons%....   s|
000028d0  24 3d be 23 46 25 3a f2  73 70 6c 69 74 28 73 24  |$=.#F%:.split(s$|
000028e0  29 0d 01 93 19 20 20 20  68 65 6c 70 24 28 4a 25  |)....   help$(J%|
000028f0  29 3d 54 65 6d 70 24 28  31 29 0d 01 94 19 20 20  |)=Temp$(1)....  |
00002900  20 6c 69 6e 6b 24 28 4a  25 29 3d 54 65 6d 70 24  | link$(J%)=Temp$|
00002910  28 32 29 0d 01 95 18 20  20 20 73 70 72 24 28 4a  |(2)....   spr$(J|
00002920  25 29 3d 54 65 6d 70 24  28 33 29 0d 01 96 05 ed  |%)=Temp$(3).....|
00002930  0d 01 97 4e f4 20 54 68  65 20 6f 70 74 69 6f 6e  |...N. The option|
00002940  73 20 28 67 65 74 74 69  6e 67 20 72 69 64 20 6f  |s (getting rid o|
00002950  66 20 74 68 65 20 67 75  62 62 69 6e 73 20 73 75  |f the gubbins su|
00002960  72 72 6f 75 6e 64 69 6e  67 20 74 68 65 6d 20 69  |rrounding them i|
00002970  6e 20 74 68 65 20 70 72  6f 63 65 73 73 29 0d 01  |n the process)..|
00002980  98 0f e3 20 4a 25 3d 31  20 b8 20 34 30 0d 01 99  |... J%=1 . 40...|
00002990  14 20 20 67 69 62 65 72  69 73 68 25 3d 9a 23 46  |.  giberish%=.#F|
000029a0  25 0d 01 9a 05 ed 0d 01  9b 17 20 20 20 73 24 3d  |%.........   s$=|
000029b0  be 23 46 25 3a 6f 70 74  31 24 3d 73 24 0d 01 9c  |.#F%:opt1$=s$...|
000029c0  0f e3 20 4a 25 3d 31 20  b8 20 34 30 0d 01 9d 14  |.. J%=1 . 40....|
000029d0  20 20 67 69 62 65 72 69  73 68 25 3d 9a 23 46 25  |  giberish%=.#F%|
000029e0  0d 01 9e 05 ed 0d 01 9f  17 20 20 20 73 24 3d be  |.........   s$=.|
000029f0  23 46 25 3a 6f 70 74 32  24 3d 73 24 0d 01 a0 0d  |#F%:opt2$=s$....|
00002a00  d9 23 46 25 3a 46 25 3d  30 0d 01 a1 05 e1 0d 01  |.#F%:F%=0.......|
00002a10  a2 05 3a 0d 01 a3 2c dd  20 f2 77 69 6d 70 5f 65  |..:...,. .wimp_e|
00002a20  72 72 6f 72 28 74 69 74  6c 65 24 2c 65 72 72 6f  |rror(title$,erro|
00002a30  72 24 2c 62 75 74 74 6f  6e 2c 66 72 6f 6d 29 0d  |r$,button,from).|
00002a40  01 a4 1b ea 20 70 72 65  24 2c 66 6c 61 67 73 25  |.... pre$,flags%|
00002a50  2c 6f 6b 2c 63 61 6e 63  65 6c 0d 01 a5 0b 70 72  |,ok,cancel....pr|
00002a60  65 24 3d 22 22 0d 01 a6  1f e7 20 66 72 6f 6d 3d  |e$=""..... from=|
00002a70  31 20 70 72 65 24 3d 22  45 72 72 6f 72 20 66 72  |1 pre$="Error fr|
00002a80  6f 6d 20 22 0d 01 a7 21  e7 20 66 72 6f 6d 3d 32  |om "...!. from=2|
00002a90  20 70 72 65 24 3d 22 4d  65 73 73 61 67 65 20 66  | pre$="Message f|
00002aa0  72 6f 6d 20 22 0d 01 a8  12 66 72 6f 6d 3d 94 28  |rom "....from=.(|
00002ab0  31 2d 66 72 6f 6d 29 0d  01 a9 1c e7 20 62 75 74  |1-from)..... but|
00002ac0  74 6f 6e 3d 31 20 6f 6b  3d 31 3a 63 61 6e 63 65  |ton=1 ok=1:cance|
00002ad0  6c 3d 30 0d 01 aa 1c e7  20 62 75 74 74 6f 6e 3d  |l=0..... button=|
00002ae0  32 20 6f 6b 3d 30 3a 63  61 6e 63 65 6c 3d 31 0d  |2 ok=0:cancel=1.|
00002af0  01 ab 2e 66 6c 61 67 73  25 3d 6f 6b 2b 28 63 61  |...flags%=ok+(ca|
00002b00  6e 63 65 6c 3c 3c 31 29  2b 28 30 3c 3c 32 29 2b  |ncel<<1)+(0<<2)+|
00002b10  28 30 3c 3c 33 29 2b 28  31 3c 3c 34 29 0d 01 ac  |(0<<3)+(1<<4)...|
00002b20  0d 77 69 6d 70 25 21 30  3d 30 0d 01 ad 15 24 28  |.wimp%!0=0....$(|
00002b30  77 69 6d 70 25 2b 34 29  3d 65 72 72 6f 72 24 0d  |wimp%+4)=error$.|
00002b40  01 ae 31 c8 99 22 57 69  6d 70 5f 52 65 70 6f 72  |..1.."Wimp_Repor|
00002b50  74 45 72 72 6f 72 22 2c  77 69 6d 70 25 2c 66 6c  |tError",wimp%,fl|
00002b60  61 67 73 25 2c 70 72 65  24 2b 74 69 74 6c 65 24  |ags%,pre$+title$|
00002b70  0d 01 af 05 e1 0d 01 b0  31 dd 20 a4 77 69 6d 70  |........1. .wimp|
00002b80  5f 69 6e 69 74 69 61 6c  69 73 65 28 6e 24 2c 77  |_initialise(n$,w|
00002b90  69 6d 70 6d 65 6d 25 2c  69 63 6f 6e 6d 65 6d 25  |impmem%,iconmem%|
00002ba0  2c 76 65 72 25 29 0d 01  b1 0e de 20 77 6d 73 67  |,ver%)..... wmsg|
00002bb0  73 25 20 33 0d 01 b2 0d  21 77 6d 73 67 73 25 3d  |s% 3....!wmsgs%=|
00002bc0  30 0d 01 b3 40 c8 99 22  57 69 6d 70 5f 49 6e 69  |0...@.."Wimp_Ini|
00002bd0  74 69 61 6c 69 73 65 22  2c 76 65 72 25 2c 26 34  |tialise",ver%,&4|
00002be0  42 35 33 34 31 35 34 2c  6e 24 2c 77 6d 73 67 73  |B534154,n$,wmsgs|
00002bf0  25 20 b8 20 77 63 76 65  72 25 2c 77 74 61 73 6b  |% . wcver%,wtask|
00002c00  25 0d 01 b4 1f e7 20 77  69 6d 70 6d 65 6d 25 3c  |%..... wimpmem%<|
00002c10  32 35 36 20 77 69 6d 70  6d 65 6d 25 3d 32 35 36  |256 wimpmem%=256|
00002c20  0d 01 b5 13 de 20 77 66  6f 6e 74 62 75 66 25 20  |..... wfontbuf% |
00002c30  32 35 36 0d 01 b6 17 de  20 77 66 6f 6e 74 62 75  |256..... wfontbu|
00002c40  66 74 65 6d 70 25 20 32  35 36 0d 01 b7 0f e3 20  |ftemp% 256..... |
00002c50  4c 3d 30 20 b8 20 32 35  35 0d 01 b8 13 20 20 77  |L=0 . 255....  w|
00002c60  66 6f 6e 74 62 75 66 25  3f 4c 3d 30 0d 01 b9 07  |fontbuf%?L=0....|
00002c70  ed 20 4c 0d 01 ba 12 de  20 77 6d 6f 75 73 65 62  |. L..... wmouseb|
00002c80  6c 6b 25 20 39 0d 01 bb  14 de 20 77 71 75 69 74  |lk% 9..... wquit|
00002c90  73 65 6e 64 65 72 25 20  34 0d 01 bc 10 de 20 77  |sender% 4..... w|
00002ca0  74 62 6c 6b 25 20 33 32  30 0d 01 bd 11 de 20 77  |tblk% 320..... w|
00002cb0  64 73 63 61 6c 65 25 20  38 30 0d 01 be 12 de 20  |dscale% 80..... |
00002cc0  77 64 74 72 61 6e 73 25  20 33 30 30 0d 01 bf 14  |wdtrans% 300....|
00002cd0  de 20 77 69 6d 70 25 20  77 69 6d 70 6d 65 6d 25  |. wimp% wimpmem%|
00002ce0  0d 01 c0 84 e7 20 77 63  76 65 72 25 3c 76 65 72  |..... wcver%<ver|
00002cf0  25 20 f2 77 69 6d 70 5f  65 72 72 6f 72 28 22 57  |% .wimp_error("W|
00002d00  49 4d 50 22 2c 22 59 6f  75 20 6e 65 65 64 20 52  |IMP","You need R|
00002d10  49 53 43 20 4f 53 20 22  2b c3 28 76 65 72 25 2f  |ISC OS "+.(ver%/|
00002d20  31 30 30 29 2b 22 20 6f  72 20 62 65 74 74 65 72  |100)+" or better|
00002d30  20 74 6f 20 72 75 6e 20  74 68 69 73 20 61 70 70  | to run this app|
00002d40  6c 69 63 61 74 69 6f 6e  2e 22 2c 31 2c 31 29 3a  |lication.",1,1):|
00002d50  c8 99 22 57 69 6d 70 5f  43 6c 6f 73 65 44 6f 77  |.."Wimp_CloseDow|
00002d60  6e 22 3a e0 0d 01 c1 16  de 20 77 69 63 6f 6e 73  |n":...... wicons|
00002d70  25 20 69 63 6f 6e 6d 65  6d 25 0d 01 c2 1e 77 69  |% iconmem%....wi|
00002d80  63 6f 6e 6d 61 78 25 3d  77 69 63 6f 6e 73 25 2b  |conmax%=wicons%+|
00002d90  69 63 6f 6e 6d 65 6d 25  0d 01 c3 0d 77 42 41 4e  |iconmem%....wBAN|
00002da0  4e 45 52 3d a3 0d 01 c4  0a 4e 55 4c 4c 3d a3 0d  |NER=.....NULL=..|
00002db0  01 c5 0f 66 69 6e 69 73  68 65 64 25 3d a3 0d 01  |...finished%=...|
00002dc0  c6 10 77 70 72 69 6e 74  69 6e 67 25 3d a3 0d 01  |..wprinting%=...|
00002dd0  c7 20 77 73 61 76 65 64  72 61 67 25 3d 2d 31 3a  |. wsavedrag%=-1:|
00002de0  77 73 6c 69 64 65 64 72  61 67 25 3d 2d 31 0d 01  |wslidedrag%=-1..|
00002df0  c8 1f de 20 77 64 79 6e  61 6d 69 63 61 72 65 61  |... wdynamicarea|
00002e00  25 28 28 33 30 2a 38 29  2d 31 2c 32 29 0d 01 c9  |%((30*8)-1,2)...|
00002e10  10 77 64 79 6e 61 6d 69  63 73 25 3d 30 0d 01 ca  |.wdynamics%=0...|
00002e20  10 77 73 68 75 74 64 6f  77 6e 25 3d 30 0d 01 cb  |.wshutdown%=0...|
00002e30  14 f2 75 73 65 72 5f 69  6e 69 74 69 61 6c 69 73  |..user_initialis|
00002e40  65 0d 01 cc 16 f2 77 69  6d 70 5f 63 68 65 63 6b  |e.....wimp_check|
00002e50  66 6f 72 6c 6f 61 64 0d  01 cd 0b 3d 77 74 61 73  |forload....=wtas|
00002e60  6b 25 0d 01 ce 10 dd 20  f2 77 69 6d 70 5f 70 6f  |k%..... .wimp_po|
00002e70  6c 6c 0d 01 cf 0d ea 20  72 65 61 73 6f 6e 25 0d  |ll..... reason%.|
00002e80  01 d0 05 f5 0d 01 d1 0f  66 69 6e 69 73 68 65 64  |........finished|
00002e90  25 3d a3 0d 01 d2 05 f5  0d 01 d3 29 c8 99 22 57  |%=.........).."W|
00002ea0  69 6d 70 5f 50 6f 6c 6c  22 2c 30 2c 77 69 6d 70  |imp_Poll",0,wimp|
00002eb0  25 20 b8 20 72 65 61 73  6f 6e 25 2c 77 69 6d 70  |% . reason%,wimp|
00002ec0  25 0d 01 d4 10 c8 8e 20  72 65 61 73 6f 6e 25 20  |%...... reason% |
00002ed0  ca 0d 01 d5 18 c9 20 30  20 3a 20 f2 77 69 6d 70  |...... 0 : .wimp|
00002ee0  5f 70 6f 6c 6c 6e 75 6c  6c 0d 01 d6 20 c9 20 31  |_pollnull... . 1|
00002ef0  20 3a 20 f2 77 69 6d 70  5f 70 6f 6c 6c 72 65 64  | : .wimp_pollred|
00002f00  72 61 77 77 69 6e 64 6f  77 0d 01 d7 1e c9 20 32  |rawwindow..... 2|
00002f10  20 3a 20 f2 77 69 6d 70  5f 70 6f 6c 6c 6f 70 65  | : .wimp_pollope|
00002f20  6e 77 69 6e 64 6f 77 0d  01 d8 1f c9 20 33 20 3a  |nwindow..... 3 :|
00002f30  20 f2 77 69 6d 70 5f 70  6f 6c 6c 63 6c 6f 73 65  | .wimp_pollclose|
00002f40  77 69 6e 64 6f 77 0d 01  d9 26 c9 20 34 20 3a 20  |window...&. 4 : |
00002f50  f2 75 73 65 72 5f 6c 65  61 76 69 6e 67 77 69 6e  |.user_leavingwin|
00002f60  64 6f 77 28 77 69 6d 70  25 21 30 29 0d 01 da 27  |dow(wimp%!0)...'|
00002f70  c9 20 35 20 3a 20 f2 75  73 65 72 5f 65 6e 74 65  |. 5 : .user_ente|
00002f80  72 69 6e 67 77 69 6e 64  6f 77 28 77 69 6d 70 25  |ringwindow(wimp%|
00002f90  21 30 29 0d 01 db 1e c9  20 36 20 3a 20 f2 77 69  |!0)..... 6 : .wi|
00002fa0  6d 70 5f 70 6f 6c 6c 6d  6f 75 73 65 63 6c 69 63  |mp_pollmouseclic|
00002fb0  6b 0d 01 dc 1f c9 20 37  20 3a 20 f2 77 69 6d 70  |k..... 7 : .wimp|
00002fc0  5f 70 6f 6c 6c 73 61 76  65 6d 65 73 73 61 67 65  |_pollsavemessage|
00002fd0  0d 01 dd 1c c9 20 38 20  3a 20 f2 77 69 6d 70 5f  |..... 8 : .wimp_|
00002fe0  70 6f 6c 6c 6b 65 79 70  72 65 73 73 0d 01 de 21  |pollkeypress...!|
00002ff0  c9 20 39 20 3a 20 f2 77  69 6d 70 5f 70 6f 6c 6c  |. 9 : .wimp_poll|
00003000  6d 65 6e 75 73 65 6c 65  63 74 69 6f 6e 0d 01 df  |menuselection...|
00003010  0a c9 20 31 30 20 3a 0d  01 e0 0a c9 20 31 31 20  |.. 10 :..... 11 |
00003020  3a 0d 01 e1 0a c9 20 31  32 20 3a 0d 01 e2 0a c9  |:..... 12 :.....|
00003030  20 31 33 20 3a 0d 01 e3  0a c9 20 31 34 20 3a 0d  | 13 :..... 14 :.|
00003040  01 e4 0a c9 20 31 35 20  3a 0d 01 e5 0a c9 20 31  |.... 15 :..... 1|
00003050  36 20 3a 0d 01 e6 1f c9  20 31 37 2c 31 38 20 3a  |6 :..... 17,18 :|
00003060  20 f2 77 69 6d 70 5f 70  6f 6c 6c 6d 65 73 73 61  | .wimp_pollmessa|
00003070  67 65 0d 01 e7 0a c9 20  31 39 20 3a 0d 01 e8 05  |ge..... 19 :....|
00003080  cb 0d 01 e9 0f fd 20 66  69 6e 69 73 68 65 64 25  |...... finished%|
00003090  0d 01 ea 24 e7 20 77 73  68 75 74 64 6f 77 6e 25  |...$. wshutdown%|
000030a0  3d 31 20 f2 77 69 6d 70  5f 63 6c 6f 73 65 64 6f  |=1 .wimp_closedo|
000030b0  77 6e 3a e1 0d 01 eb 15  fd 20 a4 75 73 65 72 5f  |wn:...... .user_|
000030c0  71 75 69 74 28 30 29 3d  31 0d 01 ec 13 f2 77 69  |quit(0)=1.....wi|
000030d0  6d 70 5f 63 6c 6f 73 65  64 6f 77 6e 0d 01 ed 05  |mp_closedown....|
000030e0  e1 0d 01 ee 17 dd 20 f2  77 69 6d 70 5f 68 6f 75  |...... .wimp_hou|
000030f0  72 67 6c 61 73 73 6f 6e  0d 01 ef 14 c8 99 22 48  |rglasson......"H|
00003100  6f 75 72 67 6c 61 73 73  5f 4f 6e 22 0d 01 f0 05  |ourglass_On"....|
00003110  e1 0d 01 f1 1f dd 20 f2  77 69 6d 70 5f 69 6e 69  |...... .wimp_ini|
00003120  74 6d 65 73 73 61 67 65  73 28 66 69 6c 65 24 29  |tmessages(file$)|
00003130  0d 01 f2 0b ea 20 73 69  7a 65 25 0d 01 f3 2e c8  |..... size%.....|
00003140  99 22 4d 65 73 73 61 67  65 54 72 61 6e 73 5f 46  |."MessageTrans_F|
00003150  69 6c 65 49 6e 66 6f 22  2c 2c 66 69 6c 65 24 20  |ileInfo",,file$ |
00003160  b8 20 2c 2c 73 69 7a 65  25 0d 01 f4 18 de 20 77  |. ,,size%..... w|
00003170  6d 73 67 5f 62 75 66 66  65 72 25 20 73 69 7a 65  |msg_buffer% size|
00003180  25 0d 01 f5 10 de 20 77  6d 73 67 73 25 20 32 35  |%..... wmsgs% 25|
00003190  36 0d 01 f6 16 24 28 77  6d 73 67 73 25 2b 31 36  |6....$(wmsgs%+16|
000031a0  29 3d 66 69 6c 65 24 0d  01 f7 3b c8 99 22 4d 65  |)=file$...;.."Me|
000031b0  73 73 61 67 65 54 72 61  6e 73 5f 4f 70 65 6e 46  |ssageTrans_OpenF|
000031c0  69 6c 65 22 2c 77 6d 73  67 73 25 2c 77 6d 73 67  |ile",wmsgs%,wmsg|
000031d0  73 25 2b 31 36 2c 77 6d  73 67 5f 62 75 66 66 65  |s%+16,wmsg_buffe|
000031e0  72 25 0d 01 f8 13 de 20  77 6d 73 67 5f 6f 75 74  |r%..... wmsg_out|
000031f0  25 20 32 35 36 0d 01 f9  05 e1 0d 01 fa 25 dd 20  |% 256........%. |
00003200  a4 77 69 6d 70 5f 6c 6f  61 64 77 69 6e 64 6f 77  |.wimp_loadwindow|
00003210  28 66 69 6c 65 24 2c 77  69 6e 24 2c 73 70 29 0d  |(file$,win$,sp).|
00003220  01 fb 2d ea 20 6e 61 6d  65 25 2c 77 68 61 6e 25  |..-. name%,whan%|
00003230  2c 69 63 6f 6e 73 25 2c  4c 2c 69 63 25 2c 69 6e  |,icons%,L,ic%,in|
00003240  64 25 2c 73 70 72 25 2c  74 78 74 25 0d 01 fc 0e  |d%,spr%,txt%....|
00003250  de 20 6e 61 6d 65 25 20  31 31 0d 01 fd 0f e3 20  |. name% 11..... |
00003260  4c 3d 30 20 b8 20 32 35  35 0d 01 fe 17 20 20 77  |L=0 . 255....  w|
00003270  66 6f 6e 74 62 75 66 74  65 6d 70 25 3f 4c 3d 30  |fontbuftemp%?L=0|
00003280  0d 01 ff 07 ed 20 4c 0d  02 00 20 c8 99 22 57 69  |..... L... .."Wi|
00003290  6d 70 5f 4f 70 65 6e 54  65 6d 70 6c 61 74 65 22  |mp_OpenTemplate"|
000032a0  2c 2c 66 69 6c 65 24 0d  02 01 0f 24 6e 61 6d 65  |,,file$....$name|
000032b0  25 3d 77 69 6e 24 0d 02  02 54 c8 99 22 57 69 6d  |%=win$...T.."Wim|
000032c0  70 5f 4c 6f 61 64 54 65  6d 70 6c 61 74 65 22 2c  |p_LoadTemplate",|
000032d0  2c 77 69 6d 70 25 2c 77  69 63 6f 6e 73 25 2c 77  |,wimp%,wicons%,w|
000032e0  69 63 6f 6e 6d 61 78 25  2c 77 66 6f 6e 74 62 75  |iconmax%,wfontbu|
000032f0  66 74 65 6d 70 25 2c 6e  61 6d 65 25 2c 30 20 b8  |ftemp%,name%,0 .|
00003300  20 2c 2c 77 69 63 6f 6e  73 25 0d 02 03 0f e3 20  | ,,wicons%..... |
00003310  4c 3d 30 20 b8 20 32 35  35 0d 02 04 26 20 20 e7  |L=0 . 255...&  .|
00003320  20 77 66 6f 6e 74 62 75  66 74 65 6d 70 25 3f 4c  | wfontbuftemp%?L|
00003330  20 77 66 6f 6e 74 62 75  66 25 3f 4c 2b 3d 31 0d  | wfontbuf%?L+=1.|
00003340  02 05 07 ed 20 4c 0d 02  06 0c e7 20 73 70 3d 30  |.... L..... sp=0|
00003350  20 8c 0d 02 07 10 20 20  77 69 6d 70 25 21 36 34  | .....  wimp%!64|
00003360  3d 31 0d 02 08 05 cc 0d  02 09 11 20 20 77 69 6d  |=1.........  wim|
00003370  70 25 21 36 34 3d 73 70  0d 02 0a 15 20 20 69 63  |p%!64=sp....  ic|
00003380  6f 6e 73 25 3d 77 69 6d  70 25 21 38 34 0d 02 0b  |ons%=wimp%!84...|
00003390  12 20 20 e7 20 69 63 6f  6e 73 25 3e 30 20 8c 0d  |.  . icons%>0 ..|
000033a0  02 0c 16 20 20 20 20 e3  20 4c 3d 31 20 b8 20 69  |...    . L=1 . i|
000033b0  63 6f 6e 73 25 0d 02 0d  21 20 20 20 20 20 20 69  |cons%...!      i|
000033c0  63 25 3d 77 69 6d 70 25  2b 28 28 4c 2d 31 29 2a  |c%=wimp%+((L-1)*|
000033d0  33 32 29 2b 38 38 0d 02  0e 20 20 20 20 20 20 20  |32)+88...       |
000033e0  69 6e 64 25 3d 28 28 69  63 25 21 31 36 29 3e 3e  |ind%=((ic%!16)>>|
000033f0  38 29 20 80 20 31 0d 02  0f 20 20 20 20 20 20 20  |8) . 1...       |
00003400  73 70 72 25 3d 28 28 69  63 25 21 31 36 29 3e 3e  |spr%=((ic%!16)>>|
00003410  31 29 20 80 20 31 0d 02  10 1b 20 20 20 20 20 20  |1) . 1....      |
00003420  74 78 74 25 3d 28 69 63  25 21 31 36 29 20 80 20  |txt%=(ic%!16) . |
00003430  31 0d 02 11 26 20 20 20  20 20 20 e7 20 69 6e 64  |1...&      . ind|
00003440  25 3d 31 20 80 20 73 70  72 25 3d 31 20 80 20 74  |%=1 . spr%=1 . t|
00003450  78 74 25 3d 30 20 8c 0d  02 12 23 20 20 20 20 20  |xt%=0 ....#     |
00003460  20 20 20 e7 20 28 69 63  25 21 32 38 29 3c 3e 30  |   . (ic%!28)<>0|
00003470  20 69 63 25 21 32 34 3d  73 70 0d 02 13 0b 20 20  | ic%!24=sp....  |
00003480  20 20 20 20 cd 0d 02 14  0b 20 20 20 20 ed 20 4c  |    .....    . L|
00003490  0d 02 15 07 20 20 cd 0d  02 16 05 cd 0d 02 17 28  |....  .........(|
000034a0  c8 99 22 57 69 6d 70 5f  43 72 65 61 74 65 57 69  |.."Wimp_CreateWi|
000034b0  6e 64 6f 77 22 2c 2c 77  69 6d 70 25 20 b8 20 77  |ndow",,wimp% . w|
000034c0  68 61 6e 25 0d 02 18 1a  c8 99 22 57 69 6d 70 5f  |han%......"Wimp_|
000034d0  43 6c 6f 73 65 54 65 6d  70 6c 61 74 65 22 0d 02  |CloseTemplate"..|
000034e0  19 0a 3d 77 68 61 6e 25  0d 02 1a 24 dd 20 f2 77  |..=whan%...$. .w|
000034f0  69 6d 70 5f 69 63 6f 6e  64 69 73 61 62 6c 65 28  |imp_icondisable(|
00003500  77 68 61 6e 25 2c 69 63  6f 6e 25 29 0d 02 1b 11  |whan%,icon%)....|
00003510  77 69 6d 70 25 21 30 3d  77 68 61 6e 25 0d 02 1c  |wimp%!0=whan%...|
00003520  11 77 69 6d 70 25 21 34  3d 69 63 6f 6e 25 0d 02  |.wimp%!4=icon%..|
00003530  1d 13 77 69 6d 70 25 21  38 3d 28 31 3c 3c 32 32  |..wimp%!8=(1<<22|
00003540  29 0d 02 1e 14 77 69 6d  70 25 21 31 32 3d 28 31  |)....wimp%!12=(1|
00003550  3c 3c 32 32 29 0d 02 1f  20 c8 99 22 57 69 6d 70  |<<22)... .."Wimp|
00003560  5f 53 65 74 49 63 6f 6e  53 74 61 74 65 22 2c 2c  |_SetIconState",,|
00003570  77 69 6d 70 25 0d 02 20  05 e1 0d 02 21 31 dd 20  |wimp%.. ....!1. |
00003580  a4 77 69 6d 70 5f 63 72  65 61 74 65 6d 65 73 73  |.wimp_createmess|
00003590  61 67 65 6d 65 6e 75 28  6d 65 6e 75 24 2c 74 69  |agemenu(menu$,ti|
000035a0  74 6c 65 24 2c 73 69 7a  65 25 29 0d 02 22 11 ea  |tle$,size%).."..|
000035b0  20 6d 24 2c 69 74 65 6d  25 2c 69 24 0d 02 23 11  | m$,item%,i$..#.|
000035c0  e7 20 74 69 74 6c 65 24  3d 22 22 20 8c 0d 02 24  |. title$="" ...$|
000035d0  23 20 20 6d 24 3d a4 77  69 6d 70 5f 6d 65 73 73  |#  m$=.wimp_mess|
000035e0  6c 6f 6f 6b 30 28 6d 65  6e 75 24 2b 22 54 22 29  |look0(menu$+"T")|
000035f0  0d 02 25 2b 20 20 e7 20  6d 24 3d 22 22 20 6d 24  |..%+  . m$="" m$|
00003600  3d a4 77 69 6d 70 5f 6d  65 73 73 6c 6f 6f 6b 30  |=.wimp_messlook0|
00003610  28 6d 65 6e 75 24 2b 22  74 22 29 0d 02 26 14 20  |(menu$+"t")..&. |
00003620  20 e7 20 6d 24 3d 22 22  20 6d 24 3d 22 20 22 0d  | . m$="" m$=" ".|
00003630  02 27 05 cc 0d 02 28 0f  20 20 6d 24 3d 74 69 74  |.'....(.  m$=tit|
00003640  6c 65 24 0d 02 29 05 cd  0d 02 2a 0b 69 74 65 6d  |le$..)....*.item|
00003650  25 3d 31 0d 02 2b 05 f5  0d 02 2c 25 69 24 3d a4  |%=1..+....,%i$=.|
00003660  77 69 6d 70 5f 6d 65 73  73 6c 6f 6f 6b 30 28 6d  |wimp_messlook0(m|
00003670  65 6e 75 24 2b c3 20 69  74 65 6d 25 29 0d 02 2d  |enu$+. item%)..-|
00003680  0e e7 20 69 24 3c 3e 22  22 20 8c 0d 02 2e 10 20  |.. i$<>"" ..... |
00003690  20 6d 24 2b 3d 22 2f 22  2b 69 24 0d 02 2f 0e 20  | m$+="/"+i$../. |
000036a0  20 69 74 65 6d 25 2b 3d  31 0d 02 30 05 cd 0d 02  | item%+=1..0....|
000036b0  31 0b fd 20 69 24 3d 22  22 0d 02 32 16 e7 20 69  |1.. i$=""..2.. i|
000036c0  74 65 6d 25 3d 31 20 6d  24 2b 3d 22 2f 20 22 0d  |tem%=1 m$+="/ ".|
000036d0  02 33 1f 3d a4 77 69 6d  70 5f 63 72 65 61 74 65  |.3.=.wimp_create|
000036e0  6d 65 6e 75 28 6d 24 2c  73 69 7a 65 25 29 0d 02  |menu(m$,size%)..|
000036f0  34 18 dd 20 f2 77 69 6d  70 5f 68 6f 75 72 67 6c  |4.. .wimp_hourgl|
00003700  61 73 73 6f 66 66 0d 02  35 15 c8 99 22 48 6f 75  |assoff..5..."Hou|
00003710  72 67 6c 61 73 73 5f 4f  66 66 22 0d 02 36 05 e1  |rglass_Off"..6..|
00003720  0d 02 37 20 dd 20 f2 77  69 6d 70 5f 63 6c 6f 73  |..7 . .wimp_clos|
00003730  65 77 69 6e 64 6f 77 28  77 69 6e 64 6f 77 25 29  |ewindow(window%)|
00003740  0d 02 38 13 77 69 6d 70  25 21 30 3d 77 69 6e 64  |..8.wimp%!0=wind|
00003750  6f 77 25 0d 02 39 1f c8  99 22 57 69 6d 70 5f 43  |ow%..9..."Wimp_C|
00003760  6c 6f 73 65 57 69 6e 64  6f 77 22 2c 2c 77 69 6d  |loseWindow",,wim|
00003770  70 25 0d 02 3a 1e f2 75  73 65 72 5f 63 6c 6f 73  |p%..:..user_clos|
00003780  65 77 69 6e 64 6f 77 28  77 69 6e 64 6f 77 25 29  |ewindow(window%)|
00003790  0d 02 3b 05 e1 0d 02 3c  27 dd 20 f2 77 69 6d 70  |..;....<'. .wimp|
000037a0  5f 6d 65 6e 75 70 6f 70  75 70 28 6d 68 61 6e 25  |_menupopup(mhan%|
000037b0  2c 62 61 72 25 2c 78 25  2c 79 25 29 0d 02 3d 0d  |,bar%,x%,y%)..=.|
000037c0  c8 8e 20 62 61 72 25 20  ca 0d 02 3e 30 c9 20 31  |.. bar% ...>0. 1|
000037d0  20 20 20 20 3a 20 c8 99  22 57 69 6d 70 5f 43 72  |    : .."Wimp_Cr|
000037e0  65 61 74 65 4d 65 6e 75  22 2c 2c 6d 68 61 6e 25  |eateMenu",,mhan%|
000037f0  2c 78 25 2b 36 34 2c 39  36 0d 02 3f 24 c9 20 32  |,x%+64,96..?$. 2|
00003800  20 20 20 20 3a 20 f2 77  69 6d 70 5f 63 65 6e 74  |    : .wimp_cent|
00003810  72 65 6d 65 6e 75 28 6d  68 61 6e 25 29 0d 02 40  |remenu(mhan%)..@|
00003820  2e 7f 20 3a 20 c8 99 22  57 69 6d 70 5f 43 72 65  |.. : .."Wimp_Cre|
00003830  61 74 65 4d 65 6e 75 22  2c 2c 6d 68 61 6e 25 2c  |ateMenu",,mhan%,|
00003840  78 25 2b 36 34 2c 79 25  2b 32 30 0d 02 41 05 cb  |x%+64,y%+20..A..|
00003850  0d 02 42 1f f2 77 69 6d  70 5f 6d 65 6e 75 6a 75  |..B..wimp_menuju|
00003860  73 74 6f 70 65 6e 65 64  28 6d 68 61 6e 25 29 0d  |stopened(mhan%).|
00003870  02 43 14 77 6c 61 73 74  6d 65 6e 75 25 3d 6d 68  |.C.wlastmenu%=mh|
00003880  61 6e 25 0d 02 44 05 e1  0d 02 45 17 dd 20 f2 77  |an%..D....E.. .w|
00003890  69 6d 70 5f 71 75 69 74  28 74 79 70 65 25 29 0d  |imp_quit(type%).|
000038a0  02 46 0f e7 20 74 79 70  65 25 3d 31 20 8c 0d 02  |.F.. type%=1 ...|
000038b0  47 14 20 20 f2 77 69 6d  70 5f 73 61 76 65 77 69  |G.  .wimp_savewi|
000038c0  6d 70 0d 02 48 26 20 20  c8 99 22 57 69 6d 70 5f  |mp..H&  .."Wimp_|
000038d0  47 65 74 43 61 72 65 74  50 6f 73 69 74 69 6f 6e  |GetCaretPosition|
000038e0  22 2c 2c 77 69 6d 70 25  0d 02 49 13 20 20 77 69  |",,wimp%..I.  wi|
000038f0  6d 70 25 21 32 34 3d 26  31 46 43 0d 02 4a 2f 20  |mp%!24=&1FC..J/ |
00003900  20 c8 99 22 57 69 6d 70  5f 53 65 6e 64 4d 65 73  | .."Wimp_SendMes|
00003910  73 61 67 65 22 2c 38 2c  77 69 6d 70 25 2c 77 71  |sage",8,wimp%,wq|
00003920  75 69 74 73 65 6e 64 65  72 25 0d 02 4b 14 20 20  |uitsender%..K.  |
00003930  f2 77 69 6d 70 5f 6c 6f  61 64 77 69 6d 70 0d 02  |.wimp_loadwimp..|
00003940  4c 23 20 20 f4 20 53 59  53 22 54 61 73 6b 4d 61  |L#  . SYS"TaskMa|
00003950  6e 61 67 65 72 5f 53 68  75 74 64 6f 77 6e 22 2c  |nager_Shutdown",|
00003960  38 0d 02 4d 05 cc 0d 02  4e 11 20 20 66 69 6e 69  |8..M....N.  fini|
00003970  73 68 65 64 25 3d b9 0d  02 4f 05 cd 0d 02 50 05  |shed%=...O....P.|
00003980  e1 0d 02 51 1d dd 20 a4  77 69 6d 70 5f 6d 65 73  |...Q.. .wimp_mes|
00003990  73 6c 6f 6f 6b 30 28 74  6f 6b 65 6e 24 29 0d 02  |slook0(token$)..|
000039a0  52 0c ea 20 76 61 6c 75  65 24 0d 02 53 4f c8 99  |R.. value$..SO..|
000039b0  22 58 4d 65 73 73 61 67  65 54 72 61 6e 73 5f 4c  |"XMessageTrans_L|
000039c0  6f 6f 6b 75 70 22 2c 77  6d 73 67 73 25 2c 74 6f  |ookup",wmsgs%,to|
000039d0  6b 65 6e 24 2c 77 6d 73  67 5f 6f 75 74 25 2c 32  |ken$,wmsg_out%,2|
000039e0  35 36 2c 30 2c 30 2c 30  2c 30 20 b8 20 2c 2c 76  |56,0,0,0,0 . ,,v|
000039f0  61 6c 75 65 24 20 3b 66  25 0d 02 54 14 e7 20 28  |alue$ ;f%..T.. (|
00003a00  66 25 20 80 20 31 29 3d  31 20 3d 22 22 0d 02 55  |f% . 1)=1 =""..U|
00003a10  0b 3d 76 61 6c 75 65 24  0d 02 56 2a dd 20 f2 77  |.=value$..V*. .w|
00003a20  69 6d 70 5f 70 75 74 69  63 6f 6e 74 65 78 74 28  |imp_puticontext(|
00003a30  77 68 61 6e 25 2c 69 63  6f 6e 25 2c 74 65 78 74  |whan%,icon%,text|
00003a40  24 29 0d 02 57 0e ea 20  66 6c 61 67 25 2c 74 24  |$)..W.. flag%,t$|
00003a50  0d 02 58 10 e7 20 77 68  61 6e 25 3d 2d 32 20 e1  |..X.. whan%=-2 .|
00003a60  0d 02 59 11 77 69 6d 70  25 21 30 3d 77 68 61 6e  |..Y.wimp%!0=whan|
00003a70  25 0d 02 5a 11 77 69 6d  70 25 21 34 3d 69 63 6f  |%..Z.wimp%!4=ico|
00003a80  6e 25 0d 02 5b 20 c8 99  22 57 69 6d 70 5f 47 65  |n%..[ .."Wimp_Ge|
00003a90  74 49 63 6f 6e 53 74 61  74 65 22 2c 2c 77 69 6d  |tIconState",,wim|
00003aa0  70 25 0d 02 5c 12 66 6c  61 67 25 3d 77 69 6d 70  |p%..\.flag%=wimp|
00003ab0  25 21 32 34 0d 02 5d 14  66 6c 61 67 25 3d 28 66  |%!24..].flag%=(f|
00003ac0  6c 61 67 25 3e 3e 38 29  0d 02 5e 60 e7 20 28 66  |lag%>>8)..^`. (f|
00003ad0  6c 61 67 25 20 80 20 31  29 20 3d 30 20 f2 77 69  |lag% . 1) =0 .wi|
00003ae0  6d 70 5f 65 72 72 6f 72  28 61 70 70 6e 61 6d 65  |mp_error(appname|
00003af0  24 2b 22 20 6c 69 62 72  61 72 79 22 2c 22 49 63  |$+" library","Ic|
00003b00  6f 6e 20 22 2b c3 20 69  63 6f 6e 25 2b 22 20 69  |on "+. icon%+" i|
00003b10  73 20 6e 6f 74 20 69 6e  64 69 72 65 63 74 65 64  |s not indirected|
00003b20  22 2c 31 2c 31 29 3a e1  0d 02 5f 25 74 24 3d a4  |",1,1):..._%t$=.|
00003b30  77 69 6d 70 5f 67 65 74  69 63 6f 6e 74 65 78 74  |wimp_geticontext|
00003b40  28 77 68 61 6e 25 2c 69  63 6f 6e 25 29 0d 02 60  |(whan%,icon%)..`|
00003b50  10 e7 20 74 24 3d 74 65  78 74 24 20 e1 0d 02 61  |.. t$=text$ ...a|
00003b60  0d 77 69 6d 70 25 21 38  3d 30 0d 02 62 0e 77 69  |.wimp%!8=0..b.wi|
00003b70  6d 70 25 21 31 32 3d 30  0d 02 63 12 24 28 77 69  |mp%!12=0..c.$(wi|
00003b80  6d 70 25 21 32 38 29 3d  22 22 0d 02 64 20 c8 99  |mp%!28)=""..d ..|
00003b90  22 57 69 6d 70 5f 53 65  74 49 63 6f 6e 53 74 61  |"Wimp_SetIconSta|
00003ba0  74 65 22 2c 2c 77 69 6d  70 25 0d 02 65 0d 77 69  |te",,wimp%..e.wi|
00003bb0  6d 70 25 21 38 3d 30 0d  02 66 0e 77 69 6d 70 25  |mp%!8=0..f.wimp%|
00003bc0  21 31 32 3d 30 0d 02 67  15 24 28 77 69 6d 70 25  |!12=0..g.$(wimp%|
00003bd0  21 32 38 29 3d 74 65 78  74 24 0d 02 68 20 c8 99  |!28)=text$..h ..|
00003be0  22 57 69 6d 70 5f 53 65  74 49 63 6f 6e 53 74 61  |"Wimp_SetIconSta|
00003bf0  74 65 22 2c 2c 77 69 6d  70 25 0d 02 69 11 77 69  |te",,wimp%..i.wi|
00003c00  6d 70 25 21 30 3d 77 68  61 6e 25 0d 02 6a 11 77  |mp%!0=whan%..j.w|
00003c10  69 6d 70 25 21 34 3d 69  63 6f 6e 25 0d 02 6b 20  |imp%!4=icon%..k |
00003c20  c8 99 22 57 69 6d 70 5f  47 65 74 49 63 6f 6e 53  |.."Wimp_GetIconS|
00003c30  74 61 74 65 22 2c 2c 77  69 6d 70 25 0d 02 6c 20  |tate",,wimp%..l |
00003c40  6d 69 6e 78 25 3d 77 69  6d 70 25 21 38 3a 6d 69  |minx%=wimp%!8:mi|
00003c50  6e 79 25 3d 77 69 6d 70  25 21 31 32 0d 02 6d 21  |ny%=wimp%!12..m!|
00003c60  6d 61 78 78 25 3d 77 69  6d 70 25 21 31 36 3a 6d  |maxx%=wimp%!16:m|
00003c70  61 78 79 25 3d 77 69 6d  70 25 21 32 30 0d 02 6e  |axy%=wimp%!20..n|
00003c80  36 c8 99 22 57 69 6d 70  5f 46 6f 72 63 65 52 65  |6.."Wimp_ForceRe|
00003c90  64 72 61 77 22 2c 77 68  61 6e 25 2c 6d 69 6e 78  |draw",whan%,minx|
00003ca0  25 2c 6d 69 6e 79 25 2c  6d 61 78 78 25 2c 6d 61  |%,miny%,maxx%,ma|
00003cb0  78 79 25 0d 02 6f 05 e1  0d 02 70 24 dd 20 a4 77  |xy%..o....p$. .w|
00003cc0  69 6d 70 5f 67 65 74 69  63 6f 6e 74 65 78 74 28  |imp_geticontext(|
00003cd0  77 68 61 6e 25 2c 69 63  6f 6e 25 29 0d 02 71 11  |whan%,icon%)..q.|
00003ce0  77 69 6d 70 25 21 30 3d  77 68 61 6e 25 0d 02 72  |wimp%!0=whan%..r|
00003cf0  11 77 69 6d 70 25 21 34  3d 69 63 6f 6e 25 0d 02  |.wimp%!4=icon%..|
00003d00  73 20 c8 99 22 57 69 6d  70 5f 47 65 74 49 63 6f  |s .."Wimp_GetIco|
00003d10  6e 53 74 61 74 65 22 2c  2c 77 69 6d 70 25 0d 02  |nState",,wimp%..|
00003d20  74 10 3d 24 28 77 69 6d  70 25 21 32 38 29 0d 02  |t.=$(wimp%!28)..|
00003d30  75 2c dd 20 f2 77 69 6d  70 5f 6f 70 65 6e 77 69  |u,. .wimp_openwi|
00003d40  6e 64 6f 77 28 77 68 61  6e 25 2c 63 65 6e 74 72  |ndow(whan%,centr|
00003d50  65 25 2c 73 74 61 63 6b  25 29 0d 02 76 24 ea 20  |e%,stack%)..v$. |
00003d60  68 65 69 67 68 74 25 2c  78 25 2c 79 25 2c 64 72  |height%,x%,y%,dr|
00003d70  61 67 25 2c 77 72 69 74  65 25 2c 6f 6b 25 0d 02  |ag%,write%,ok%..|
00003d80  77 11 e7 20 73 74 61 63  6b 25 3d 2d 33 20 8c 0d  |w.. stack%=-3 ..|
00003d90  02 78 12 20 20 21 77 69  6d 70 25 3d 77 68 61 6e  |.x.  !wimp%=whan|
00003da0  25 0d 02 79 24 20 20 c8  99 22 57 69 6d 70 5f 47  |%..y$  .."Wimp_G|
00003db0  65 74 57 69 6e 64 6f 77  53 74 61 74 65 22 2c 2c  |etWindowState",,|
00003dc0  77 69 6d 70 25 0d 02 7a  16 20 20 63 73 74 61 63  |wimp%..z.  cstac|
00003dd0  6b 25 3d 77 69 6d 70 25  21 32 38 0d 02 7b 05 cd  |k%=wimp%!28..{..|
00003de0  0d 02 7c 11 77 69 6d 70  25 21 30 3d 77 68 61 6e  |..|.wimp%!0=whan|
00003df0  25 0d 02 7d 21 c8 99 22  57 69 6d 70 5f 47 65 74  |%..}!.."Wimp_Get|
00003e00  57 69 6e 64 6f 77 49 6e  66 6f 22 2c 2c 77 69 6d  |WindowInfo",,wim|
00003e10  70 25 0d 02 7e 22 e7 20  63 65 6e 74 72 65 25 3d  |p%..~". centre%=|
00003e20  31 20 f2 77 69 6d 70 5f  63 65 6e 74 72 65 77 69  |1 .wimp_centrewi|
00003e30  6e 64 6f 77 0d 02 7f 30  e7 20 63 65 6e 74 72 65  |ndow...0. centre|
00003e40  25 3d 32 20 f2 77 69 6d  70 5f 70 6f 69 6e 74 65  |%=2 .wimp_pointe|
00003e50  72 63 65 6e 74 72 65 77  69 6e 64 6f 77 28 77 68  |rcentrewindow(wh|
00003e60  61 6e 25 29 0d 02 80 18  61 25 3d a4 75 73 65 72  |an%)....a%=.user|
00003e70  5f 70 61 6e 65 28 77 68  61 6e 25 29 0d 02 81 1e  |_pane(whan%)....|
00003e80  e7 20 73 74 61 63 6b 25  3d 2d 33 20 73 74 61 63  |. stack%=-3 stac|
00003e90  6b 25 3d 63 73 74 61 63  6b 25 0d 02 82 13 77 69  |k%=cstack%....wi|
00003ea0  6d 70 25 21 32 38 3d 73  74 61 63 6b 25 0d 02 83  |mp%!28=stack%...|
00003eb0  1e c8 99 22 57 69 6d 70  5f 4f 70 65 6e 57 69 6e  |..."Wimp_OpenWin|
00003ec0  64 6f 77 22 2c 2c 77 69  6d 70 25 0d 02 84 22 c8  |dow",,wimp%...".|
00003ed0  99 22 57 69 6d 70 5f 47  65 74 57 69 6e 64 6f 77  |."Wimp_GetWindow|
00003ee0  53 74 61 74 65 22 2c 2c  77 69 6d 70 25 0d 02 85  |State",,wimp%...|
00003ef0  1c 68 65 69 67 68 74 25  3d 77 69 6d 70 25 21 31  |.height%=wimp%!1|
00003f00  36 2d 77 69 6d 70 25 21  38 0d 02 86 16 79 25 3d  |6-wimp%!8....y%=|
00003f10  77 69 6d 70 25 21 38 2b  68 65 69 67 68 74 25 0d  |wimp%!8+height%.|
00003f20  02 87 0e 78 25 3d 77 69  6d 70 25 21 34 0d 02 88  |...x%=wimp%!4...|
00003f30  28 f2 75 73 65 72 5f 6f  70 65 6e 77 69 6e 64 6f  |(.user_openwindo|
00003f40  77 28 77 68 61 6e 25 2c  78 25 2c 79 25 2c 73 74  |w(whan%,x%,y%,st|
00003f50  61 63 6b 25 29 0d 02 89  25 e7 20 a4 75 73 65 72  |ack%)...%. .user|
00003f60  5f 73 61 76 65 66 69 6c  65 74 79 70 65 28 77 68  |_savefiletype(wh|
00003f70  61 6e 25 29 3c 3e 22 22  20 8c 0d 02 8a 1c 20 20  |an%)<>"" .....  |
00003f80  64 72 61 67 25 3d 30 3a  77 72 69 74 65 25 3d 31  |drag%=0:write%=1|
00003f90  3a 6f 6b 25 3d 32 0d 02  8b 2c 20 20 f2 75 73 65  |:ok%=2...,  .use|
00003fa0  72 5f 73 61 76 65 69 63  6f 6e 28 77 68 61 6e 25  |r_saveicon(whan%|
00003fb0  2c 64 72 61 67 25 2c 77  72 69 74 65 25 2c 6f 6b  |,drag%,write%,ok|
00003fc0  25 29 0d 02 8c 22 20 20  f2 77 69 6d 70 5f 70 75  |%)..."  .wimp_pu|
00003fd0  74 63 61 72 65 74 28 77  68 61 6e 25 2c 77 72 69  |tcaret(whan%,wri|
00003fe0  74 65 25 29 0d 02 8d 05  cd 0d 02 8e 05 e1 0d 02  |te%)............|
00003ff0  8f 29 dd 20 f2 77 69 6d  70 5f 69 63 6f 6e 73 65  |.). .wimp_iconse|
00004000  6c 65 63 74 28 77 68 61  6e 25 2c 69 63 6f 6e 25  |lect(whan%,icon%|
00004010  2c 73 74 61 74 65 29 0d  02 90 08 ea 20 62 25 0d  |,state)..... b%.|
00004020  02 91 11 77 69 6d 70 25  21 30 3d 77 68 61 6e 25  |...wimp%!0=whan%|
00004030  0d 02 92 11 77 69 6d 70  25 21 34 3d 69 63 6f 6e  |....wimp%!4=icon|
00004040  25 0d 02 93 20 c8 99 22  57 69 6d 70 5f 47 65 74  |%... .."Wimp_Get|
00004050  49 63 6f 6e 53 74 61 74  65 22 2c 2c 77 69 6d 70  |IconState",,wimp|
00004060  25 0d 02 94 19 62 25 3d  28 77 69 6d 70 25 21 32  |%....b%=(wimp%!2|
00004070  34 3e 3e 32 31 29 20 80  20 31 0d 02 95 10 e7 20  |4>>21) . 1..... |
00004080  62 25 3d 73 74 61 74 65  20 e1 0d 02 96 17 77 69  |b%=state .....wi|
00004090  6d 70 25 21 38 3d 28 73  74 61 74 65 3c 3c 32 31  |mp%!8=(state<<21|
000040a0  29 0d 02 97 14 77 69 6d  70 25 21 31 32 3d 28 31  |)....wimp%!12=(1|
000040b0  3c 3c 32 31 29 0d 02 98  20 c8 99 22 57 69 6d 70  |<<21)... .."Wimp|
000040c0  5f 53 65 74 49 63 6f 6e  53 74 61 74 65 22 2c 2c  |_SetIconState",,|
000040d0  77 69 6d 70 25 0d 02 99  05 e1 0d 02 9a 25 dd 20  |wimp%........%. |
000040e0  a4 77 69 6d 70 5f 67 65  74 69 63 6f 6e 73 74 61  |.wimp_geticonsta|
000040f0  74 65 28 77 68 61 6e 25  2c 69 63 6f 6e 25 29 0d  |te(whan%,icon%).|
00004100  02 9b 11 77 69 6d 70 25  21 30 3d 77 68 61 6e 25  |...wimp%!0=whan%|
00004110  0d 02 9c 11 77 69 6d 70  25 21 34 3d 69 63 6f 6e  |....wimp%!4=icon|
00004120  25 0d 02 9d 20 c8 99 22  57 69 6d 70 5f 47 65 74  |%... .."Wimp_Get|
00004130  49 63 6f 6e 53 74 61 74  65 22 2c 2c 77 69 6d 70  |IconState",,wimp|
00004140  25 0d 02 9e 17 3d 28 77  69 6d 70 25 21 32 34 3e  |%....=(wimp%!24>|
00004150  3e 32 31 29 20 80 20 31  0d 02 9f 18 dd 20 f2 77  |>21) . 1..... .w|
00004160  69 6d 70 5f 63 68 65 63  6b 66 6f 72 6c 6f 61 64  |imp_checkforload|
00004170  0d 02 a0 28 ea 20 65 6e  76 73 74 72 25 2c 61 24  |...(. envstr%,a$|
00004180  2c 4c 2c 69 25 2c 66 69  6c 65 24 2c 70 24 2c 6f  |,L,i%,file$,p$,o|
00004190  25 2c 66 74 79 70 65 25  0d 02 a1 1b c8 99 22 4f  |%,ftype%......"O|
000041a0  53 5f 47 65 74 45 6e 76  22 20 b8 20 65 6e 76 73  |S_GetEnv" . envs|
000041b0  74 72 25 0d 02 a2 1c 61  24 3d a4 77 69 6d 70 5f  |tr%....a$=.wimp_|
000041c0  73 74 72 69 6e 67 28 65  6e 76 73 74 72 25 29 0d  |string(envstr%).|
000041d0  02 a3 0d e3 20 4c 3d 31  20 b8 20 33 0d 02 a4 0f  |.... L=1 . 3....|
000041e0  69 25 3d a7 61 24 2c 22  20 22 29 0d 02 a5 14 61  |i%=.a$," ")....a|
000041f0  24 3d c2 61 24 2c a9 28  61 24 29 2d 69 25 29 0d  |$=.a$,.(a$)-i%).|
00004200  02 a6 07 ed 20 4c 0d 02  a7 0d e7 20 61 24 3d 22  |.... L..... a$="|
00004210  22 20 e1 0d 02 a8 1f 66  69 6c 65 24 3d a4 77 69  |" .....file$=.wi|
00004220  6d 70 5f 67 65 74 6c 65  61 66 6e 61 6d 65 28 61  |mp_getleafname(a|
00004230  24 29 0d 02 a9 1a 70 24  3d c0 61 24 2c a9 28 61  |$)....p$=.a$,.(a|
00004240  24 29 2d a9 28 66 69 6c  65 24 29 29 0d 02 aa 2e  |$)-.(file$))....|
00004250  c8 99 22 4f 53 5f 46 69  6c 65 22 2c 32 31 2c 66  |.."OS_File",21,f|
00004260  69 6c 65 24 2c 2c 2c 70  24 20 b8 20 6f 25 2c 2c  |ile$,,,p$ . o%,,|
00004270  2c 2c 2c 2c 66 74 79 70  65 25 0d 02 ab 0d e7 20  |,,,,ftype%..... |
00004280  6f 25 3c 3e 31 20 e1 0d  02 ac 2e 69 25 3d a4 75  |o%<>1 .....i%=.u|
00004290  73 65 72 5f 6c 6f 61 64  64 61 74 61 28 61 24 2c  |ser_loaddata(a$,|
000042a0  30 2c 30 2c c3 7e 28 66  74 79 70 65 25 29 2c 2d  |0,0,.~(ftype%),-|
000042b0  31 2c 2d 31 29 0d 02 ad  05 e1 0d 02 ae 14 dd 20  |1,-1).......... |
000042c0  f2 77 69 6d 70 5f 70 6f  6c 6c 6e 75 6c 6c 0d 02  |.wimp_pollnull..|
000042d0  af 17 e7 20 4e 55 4c 4c  3d b9 20 f2 75 73 65 72  |... NULL=. .user|
000042e0  5f 6e 75 6c 6c 0d 02 b0  2a e7 20 77 73 6c 69 64  |_null...*. wslid|
000042f0  65 64 72 61 67 25 3c 3e  2d 31 20 f2 77 69 6d 70  |edrag%<>-1 .wimp|
00004300  5f 64 72 61 67 67 69 6e  67 73 6c 69 64 65 72 0d  |_draggingslider.|
00004310  02 b1 07 ea 20 74 0d 02  b2 11 e7 20 77 42 41 4e  |.... t..... wBAN|
00004320  4e 45 52 3d a3 20 e1 0d  02 b3 20 c8 99 22 4f 53  |NER=. .... .."OS|
00004330  5f 52 65 61 64 4d 6f 6e  6f 74 6f 6e 69 63 54 69  |_ReadMonotonicTi|
00004340  6d 65 22 20 b8 20 74 0d  02 b4 15 e7 20 74 3c 3d  |me" . t..... t<=|
00004350  77 64 65 6c 61 79 6d 61  78 25 20 e1 0d 02 b5 29  |wdelaymax% ....)|
00004360  f2 77 69 6d 70 5f 63 6c  6f 73 65 77 69 6e 64 6f  |.wimp_closewindo|
00004370  77 28 77 62 61 6e 6e 65  72 25 29 3a 77 42 41 4e  |w(wbanner%):wBAN|
00004380  4e 45 52 3d a3 0d 02 b6  05 e1 0d 02 b7 1c dd 20  |NER=........... |
00004390  f2 77 69 6d 70 5f 70 6f  6c 6c 72 65 64 72 61 77  |.wimp_pollredraw|
000043a0  77 69 6e 64 6f 77 0d 02  b8 0a ea 20 66 6c 61 67  |window..... flag|
000043b0  0d 02 b9 27 c8 99 22 57  69 6d 70 5f 52 65 64 72  |...'.."Wimp_Redr|
000043c0  61 77 57 69 6e 64 6f 77  22 2c 2c 77 69 6d 70 25  |awWindow",,wimp%|
000043d0  20 b8 20 66 6c 61 67 0d  02 ba 0b c8 95 20 66 6c  | . flag...... fl|
000043e0  61 67 0d 02 bb 12 f2 77  69 6d 70 5f 73 61 76 65  |ag.....wimp_save|
000043f0  77 69 6d 70 0d 02 bc 41  f2 75 73 65 72 5f 72 65  |wimp...A.user_re|
00004400  64 72 61 77 28 77 69 6d  70 25 21 30 2c 77 69 6d  |draw(wimp%!0,wim|
00004410  70 25 21 32 38 2c 77 69  6d 70 25 21 33 32 2c 77  |p%!28,wimp%!32,w|
00004420  69 6d 70 25 21 33 36 2c  77 69 6d 70 25 21 34 30  |imp%!36,wimp%!40|
00004430  2c a3 2c 30 29 0d 02 bd  12 f2 77 69 6d 70 5f 6c  |,.,0).....wimp_l|
00004440  6f 61 64 77 69 6d 70 0d  02 be 27 c8 99 22 57 69  |oadwimp...'.."Wi|
00004450  6d 70 5f 47 65 74 52 65  63 74 61 6e 67 6c 65 22  |mp_GetRectangle"|
00004460  2c 2c 77 69 6d 70 25 20  b8 20 66 6c 61 67 0d 02  |,,wimp% . flag..|
00004470  bf 05 ce 0d 02 c0 05 e1  0d 02 c1 1a dd 20 f2 77  |............. .w|
00004480  69 6d 70 5f 70 6f 6c 6c  6f 70 65 6e 77 69 6e 64  |imp_pollopenwind|
00004490  6f 77 0d 02 c2 1e ea 20  61 25 2c 77 69 6e 25 2c  |ow..... a%,win%,|
000044a0  64 72 61 67 25 2c 77 72  69 74 65 25 2c 6f 6b 25  |drag%,write%,ok%|
000044b0  0d 02 c3 34 21 77 74 62  6c 6b 25 3d 21 77 69 6d  |...4!wtblk%=!wim|
000044c0  70 25 3a 77 74 62 6c 6b  25 21 34 3d 77 69 6d 70  |p%:wtblk%!4=wimp|
000044d0  25 21 34 3a 77 74 62 6c  6b 25 21 38 3d 77 69 6d  |%!4:wtblk%!8=wim|
000044e0  70 25 21 38 0d 02 c4 3c  77 74 62 6c 6b 25 21 31  |p%!8...<wtblk%!1|
000044f0  32 3d 77 69 6d 70 25 21  31 32 3a 77 74 62 6c 6b  |2=wimp%!12:wtblk|
00004500  25 21 31 36 3d 77 69 6d  70 25 21 31 36 3a 77 74  |%!16=wimp%!16:wt|
00004510  62 6c 6b 25 21 32 30 3d  77 69 6d 70 25 21 32 30  |blk%!20=wimp%!20|
00004520  0d 02 c5 29 77 74 62 6c  6b 25 21 32 34 3d 77 69  |...)wtblk%!24=wi|
00004530  6d 70 25 21 32 34 3a 77  74 62 6c 6b 25 21 32 38  |mp%!24:wtblk%!28|
00004540  3d 77 69 6d 70 25 21 32  38 0d 02 c6 0f 77 69 6e  |=wimp%!28....win|
00004550  25 3d 21 77 69 6d 70 25  0d 02 c7 17 61 25 3d a4  |%=!wimp%....a%=.|
00004560  75 73 65 72 5f 70 61 6e  65 28 77 69 6e 25 29 0d  |user_pane(win%).|
00004570  02 c8 18 e7 20 61 25 3c  3e 2d 31 20 77 69 6d 70  |.... a%<>-1 wimp|
00004580  25 21 32 38 3d 61 25 0d  02 c9 1e c8 99 22 57 69  |%!28=a%......"Wi|
00004590  6d 70 5f 4f 70 65 6e 57  69 6e 64 6f 77 22 2c 2c  |mp_OpenWindow",,|
000045a0  77 69 6d 70 25 0d 02 ca  37 f2 75 73 65 72 5f 6f  |wimp%...7.user_o|
000045b0  70 65 6e 77 69 6e 64 6f  77 28 21 77 69 6d 70 25  |penwindow(!wimp%|
000045c0  2c 77 69 6d 70 25 21 34  2c 77 69 6d 70 25 21 31  |,wimp%!4,wimp%!1|
000045d0  36 2c 77 74 62 6c 6b 25  21 32 38 29 0d 02 cb 14  |6,wtblk%!28)....|
000045e0  e7 20 77 74 62 6c 6b 25  21 32 38 3d 2d 32 20 8c  |. wtblk%!28=-2 .|
000045f0  0d 02 cc 19 20 20 61 25  3d a4 75 73 65 72 5f 70  |....  a%=.user_p|
00004600  61 6e 65 28 77 69 6e 25  29 0d 02 cd 1b 20 20 e7  |ane(win%)....  .|
00004610  20 61 25 3c 3e 2d 31 20  77 74 62 6c 6b 25 21 32  | a%<>-1 wtblk%!2|
00004620  38 3d 61 25 0d 02 ce 21  20 20 c8 99 22 57 69 6d  |8=a%...!  .."Wim|
00004630  70 5f 4f 70 65 6e 57 69  6e 64 6f 77 22 2c 2c 77  |p_OpenWindow",,w|
00004640  74 62 6c 6b 25 0d 02 cf  05 cd 0d 02 d0 24 e7 20  |tblk%........$. |
00004650  a4 75 73 65 72 5f 73 61  76 65 66 69 6c 65 74 79  |.user_savefilety|
00004660  70 65 28 77 69 6e 25 29  3c 3e 22 22 20 8c 0d 02  |pe(win%)<>"" ...|
00004670  d1 24 20 20 e7 20 a4 77  69 6d 70 5f 69 73 77 69  |.$  . .wimp_iswi|
00004680  6e 64 6f 77 6f 70 65 6e  28 77 69 6e 25 29 3d 30  |ndowopen(win%)=0|
00004690  20 8c 0d 02 d2 1e 20 20  20 20 64 72 61 67 25 3d  | .....    drag%=|
000046a0  30 3a 77 72 69 74 65 25  3d 31 3a 6f 6b 25 3d 32  |0:write%=1:ok%=2|
000046b0  0d 02 d3 2d 20 20 20 20  f2 75 73 65 72 5f 73 61  |...-    .user_sa|
000046c0  76 65 69 63 6f 6e 28 77  69 6e 25 2c 64 72 61 67  |veicon(win%,drag|
000046d0  25 2c 77 72 69 74 65 25  2c 6f 6b 25 29 0d 02 d4  |%,write%,ok%)...|
000046e0  23 20 20 20 20 f2 77 69  6d 70 5f 70 75 74 63 61  |#    .wimp_putca|
000046f0  72 65 74 28 77 69 6e 25  2c 77 72 69 74 65 25 29  |ret(win%,write%)|
00004700  0d 02 d5 07 20 20 cd 0d  02 d6 05 cd 0d 02 d7 05  |....  ..........|
00004710  e1 0d 02 d8 1b dd 20 f2  77 69 6d 70 5f 70 6f 6c  |...... .wimp_pol|
00004720  6c 63 6c 6f 73 65 77 69  6e 64 6f 77 0d 02 d9 1f  |lclosewindow....|
00004730  c8 99 22 57 69 6d 70 5f  43 6c 6f 73 65 57 69 6e  |.."Wimp_CloseWin|
00004740  64 6f 77 22 2c 2c 77 69  6d 70 25 0d 02 da 1e f2  |dow",,wimp%.....|
00004750  75 73 65 72 5f 63 6c 6f  73 65 77 69 6e 64 6f 77  |user_closewindow|
00004760  28 77 69 6d 70 25 21 30  29 0d 02 db 05 e1 0d 02  |(wimp%!0).......|
00004770  dc 1a dd 20 f2 77 69 6d  70 5f 70 6f 6c 6c 6d 6f  |... .wimp_pollmo|
00004780  75 73 65 63 6c 69 63 6b  0d 02 dd 2d ea 20 6d 68  |useclick...-. mh|
00004790  61 6e 25 2c 79 2c 78 25  2c 79 25 2c 73 25 2c 64  |an%,y,x%,y%,s%,d|
000047a0  6f 6e 65 25 2c 64 72 61  67 25 2c 77 72 69 74 65  |one%,drag%,write|
000047b0  25 2c 6f 6b 25 0d 02 de  33 e7 20 77 69 6d 70 25  |%,ok%...3. wimp%|
000047c0  21 38 3d 36 34 20 f2 77  69 6d 70 5f 73 74 61 72  |!8=64 .wimp_star|
000047d0  74 64 72 61 67 28 77 69  6d 70 25 21 31 32 2c 77  |tdrag(wimp%!12,w|
000047e0  69 6d 70 25 21 31 36 29  0d 02 df 63 e7 20 a4 75  |imp%!16)...c. .u|
000047f0  73 65 72 5f 73 6c 69 64  65 72 62 61 63 6b 28 77  |ser_sliderback(w|
00004800  69 6d 70 25 21 31 32 2c  77 69 6d 70 25 21 31 36  |imp%!12,wimp%!16|
00004810  29 3c 3e 2d 31 20 f2 77  69 6d 70 5f 63 6c 69 63  |)<>-1 .wimp_clic|
00004820  6b 65 64 73 6c 69 64 65  72 28 77 69 6d 70 25 21  |kedslider(wimp%!|
00004830  31 32 2c 77 69 6d 70 25  21 31 36 2c 21 77 69 6d  |12,wimp%!16,!wim|
00004840  70 25 2c 77 69 6d 70 25  21 34 29 0d 02 e0 26 73  |p%,wimp%!4)...&s|
00004850  25 3d a4 75 73 65 72 5f  73 6c 69 64 65 72 28 77  |%=.user_slider(w|
00004860  69 6d 70 25 21 31 32 2c  77 69 6d 70 25 21 31 36  |imp%!12,wimp%!16|
00004870  29 0d 02 e1 3c e7 20 73  25 3c 3e 2d 31 20 f2 77  |)...<. s%<>-1 .w|
00004880  69 6d 70 5f 63 6c 69 63  6b 65 64 73 6c 69 64 65  |imp_clickedslide|
00004890  72 28 77 69 6d 70 25 21  31 32 2c 73 25 2c 21 77  |r(wimp%!12,s%,!w|
000048a0  69 6d 70 25 2c 77 69 6d  70 25 21 34 29 0d 02 e2  |imp%,wimp%!4)...|
000048b0  0b 64 6f 6e 65 25 3d 30  0d 02 e3 35 e7 20 77 69  |.done%=0...5. wi|
000048c0  6d 70 25 21 38 3c 3e 32  20 80 20 a4 75 73 65 72  |mp%!8<>2 . .user|
000048d0  5f 73 61 76 65 66 69 6c  65 74 79 70 65 28 77 69  |_savefiletype(wi|
000048e0  6d 70 25 21 31 32 29 3c  3e 22 22 20 8c 0d 02 e4  |mp%!12)<>"" ....|
000048f0  1c 20 20 64 72 61 67 25  3d 30 3a 77 72 69 74 65  |.  drag%=0:write|
00004900  25 3d 31 3a 6f 6b 25 3d  32 0d 02 e5 2f 20 20 f2  |%=1:ok%=2.../  .|
00004910  75 73 65 72 5f 73 61 76  65 69 63 6f 6e 28 77 69  |user_saveicon(wi|
00004920  6d 70 25 21 31 32 2c 64  72 61 67 25 2c 77 72 69  |mp%!12,drag%,wri|
00004930  74 65 25 2c 6f 6b 25 29  0d 02 e6 36 20 20 e7 20  |te%,ok%)...6  . |
00004940  77 69 6d 70 25 21 31 36  3d 6f 6b 25 20 f2 77 69  |wimp%!16=ok% .wi|
00004950  6d 70 5f 71 75 69 63 6b  73 61 76 65 28 77 69 6d  |mp_quicksave(wim|
00004960  70 25 21 31 32 29 3a 64  6f 6e 65 25 3d 31 0d 02  |p%!12):done%=1..|
00004970  e7 05 cd 0d 02 e8 0f e7  20 64 6f 6e 65 25 3d 31  |........ done%=1|
00004980  20 e1 0d 02 e9 12 e7 20  77 69 6d 70 25 21 38 3c  | ...... wimp%!8<|
00004990  3e 32 20 8c 0d 02 ea 48  20 20 77 68 61 6e 25 3d  |>2 ....H  whan%=|
000049a0  77 69 6d 70 25 21 31 32  3a 69 63 6f 6e 25 3d 77  |wimp%!12:icon%=w|
000049b0  69 6d 70 25 21 31 36 3a  62 75 74 74 6f 6e 25 3d  |imp%!16:button%=|
000049c0  77 69 6d 70 25 21 38 3a  78 25 3d 21 77 69 6d 70  |wimp%!8:x%=!wimp|
000049d0  25 3a 79 25 3d 77 69 6d  70 25 21 34 0d 02 eb 49  |%:y%=wimp%!4...I|
000049e0  20 20 78 25 3d a4 77 69  6d 70 5f 73 63 72 65 65  |  x%=.wimp_scree|
000049f0  6e 74 6f 77 6f 72 6b 28  77 68 61 6e 25 2c 78 25  |ntowork(whan%,x%|
00004a00  2c 30 29 3a 79 25 3d a4  77 69 6d 70 5f 73 63 72  |,0):y%=.wimp_scr|
00004a10  65 65 6e 74 6f 77 6f 72  6b 28 77 68 61 6e 25 2c  |eentowork(whan%,|
00004a20  79 25 2c 31 29 0d 02 ec  31 20 20 f2 75 73 65 72  |y%,1)...1  .user|
00004a30  5f 6d 6f 75 73 65 63 6c  69 63 6b 28 77 68 61 6e  |_mouseclick(whan|
00004a40  25 2c 69 63 6f 6e 25 2c  62 75 74 74 6f 6e 25 2c  |%,icon%,button%,|
00004a50  78 25 2c 79 25 29 0d 02  ed 05 cd 0d 02 ee 12 e7  |x%,y%)..........|
00004a60  20 77 69 6d 70 25 21 38  3c 3e 32 20 e1 0d 02 ef  | wimp%!8<>2 ....|
00004a70  14 77 69 6e 64 6f 77 25  3d 77 69 6d 70 25 21 31  |.window%=wimp%!1|
00004a80  32 0d 02 f0 27 6d 68 61  6e 25 3d a4 75 73 65 72  |2...'mhan%=.user|
00004a90  5f 6d 65 6e 75 28 77 69  6d 70 25 21 31 32 2c 77  |_menu(wimp%!12,w|
00004aa0  69 6d 70 25 21 31 36 29  0d 02 f1 0f e7 20 6d 68  |imp%!16)..... mh|
00004ab0  61 6e 25 3d 30 20 e1 0d  02 f2 22 c8 99 22 57 69  |an%=0 ....".."Wi|
00004ac0  6d 70 5f 47 65 74 50 6f  69 6e 74 65 72 49 6e 66  |mp_GetPointerInf|
00004ad0  6f 22 2c 2c 77 69 6d 70  25 0d 02 f3 25 79 3d 28  |o",,wimp%...%y=(|
00004ae0  28 a4 77 69 6d 70 5f 6d  65 6e 75 73 69 7a 65 28  |(.wimp_menusize(|
00004af0  6d 68 61 6e 25 29 29 2a  34 34 29 2b 39 36 0d 02  |mhan%))*44)+96..|
00004b00  f4 10 c8 8e 20 77 69 6e  64 6f 77 25 20 ca 0d 02  |.... window% ...|
00004b10  f5 34 c9 20 2d 32 20 20  20 3a 20 c8 99 22 57 69  |.4. -2   : .."Wi|
00004b20  6d 70 5f 43 72 65 61 74  65 4d 65 6e 75 22 2c 2c  |mp_CreateMenu",,|
00004b30  6d 68 61 6e 25 2c 77 69  6d 70 25 21 30 2d 36 34  |mhan%,wimp%!0-64|
00004b40  2c 79 0d 02 f6 62 7f 20  3a 20 78 25 3d 21 77 69  |,y...b. : x%=!wi|
00004b50  6d 70 25 3a 79 25 3d 77  69 6d 70 25 21 34 3a f2  |mp%:y%=wimp%!4:.|
00004b60  75 73 65 72 5f 6d 65 6e  75 6f 70 65 6e 28 6d 68  |user_menuopen(mh|
00004b70  61 6e 25 2c 77 69 6d 70  25 21 31 36 29 3a c8 99  |an%,wimp%!16):..|
00004b80  22 57 69 6d 70 5f 43 72  65 61 74 65 4d 65 6e 75  |"Wimp_CreateMenu|
00004b90  22 2c 2c 6d 68 61 6e 25  2c 78 25 2d 36 34 2c 79  |",,mhan%,x%-64,y|
00004ba0  25 2b 32 30 0d 02 f7 05  cb 0d 02 f8 1f f2 77 69  |%+20..........wi|
00004bb0  6d 70 5f 6d 65 6e 75 6a  75 73 74 6f 70 65 6e 65  |mp_menujustopene|
00004bc0  64 28 6d 68 61 6e 25 29  0d 02 f9 14 77 6c 61 73  |d(mhan%)....wlas|
00004bd0  74 6d 65 6e 75 25 3d 6d  68 61 6e 25 0d 02 fa 05  |tmenu%=mhan%....|
00004be0  e1 0d 02 fb 1b dd 20 f2  77 69 6d 70 5f 70 6f 6c  |...... .wimp_pol|
00004bf0  6c 73 61 76 65 6d 65 73  73 61 67 65 0d 02 fc 29  |lsavemessage...)|
00004c00  e7 20 77 73 61 76 65 64  72 61 67 25 3d 2d 31 20  |. wsavedrag%=-1 |
00004c10  f2 77 69 6d 70 5f 65 6e  64 73 6c 69 64 65 72 64  |.wimp_endsliderd|
00004c20  72 61 67 3a e1 0d 02 fd  18 c8 99 22 44 72 61 67  |rag:......."Drag|
00004c30  41 53 70 72 69 74 65 5f  53 74 6f 70 22 0d 02 fe  |ASprite_Stop"...|
00004c40  18 ea 20 77 69 6e 25 2c  69 63 6f 25 2c 78 25 2c  |.. win%,ico%,x%,|
00004c50  79 25 2c 76 25 0d 02 ff  22 c8 99 22 57 69 6d 70  |y%,v%...".."Wimp|
00004c60  5f 47 65 74 50 6f 69 6e  74 65 72 49 6e 66 6f 22  |_GetPointerInfo"|
00004c70  2c 2c 77 69 6d 70 25 0d  03 00 11 77 69 6e 25 3d  |,,wimp%....win%=|
00004c80  77 69 6d 70 25 21 31 32  0d 03 01 11 69 63 6f 25  |wimp%!12....ico%|
00004c90  3d 77 69 6d 70 25 21 31  36 0d 03 02 0d 78 25 3d  |=wimp%!16....x%=|
00004ca0  21 77 69 6d 70 25 0d 03  03 0e 79 25 3d 77 69 6d  |!wimp%....y%=wim|
00004cb0  70 25 21 34 0d 03 04 42  24 28 77 69 6d 70 25 2b  |p%!4...B$(wimp%+|
00004cc0  34 34 29 3d a4 77 69 6d  70 5f 67 65 74 6c 65 61  |44)=.wimp_getlea|
00004cd0  66 6e 61 6d 65 28 a4 77  69 6d 70 5f 67 65 74 69  |fname(.wimp_geti|
00004ce0  63 6f 6e 74 65 78 74 28  77 73 61 76 65 77 25 2c  |context(wsavew%,|
00004cf0  31 29 29 2b bd 30 0d 03  05 11 77 69 6d 70 25 21  |1))+.0....wimp%!|
00004d00  32 30 3d 77 69 6e 25 0d  03 06 11 77 69 6d 70 25  |20=win%....wimp%|
00004d10  21 32 34 3d 69 63 6f 25  0d 03 07 0f 77 69 6d 70  |!24=ico%....wimp|
00004d20  25 21 32 38 3d 78 25 0d  03 08 0f 77 69 6d 70 25  |%!28=x%....wimp%|
00004d30  21 33 32 3d 79 25 0d 03  09 11 77 69 6d 70 25 21  |!32=y%....wimp%!|
00004d40  33 36 3d 31 30 32 34 0d  03 0a 0d 21 77 69 6d 70  |36=1024....!wimp|
00004d50  25 3d 36 34 0d 03 0b 0e  77 69 6d 70 25 21 31 32  |%=64....wimp%!12|
00004d60  3d 30 0d 03 0c 0e 77 69  6d 70 25 21 31 36 3d 31  |=0....wimp%!16=1|
00004d70  0d 03 0d 2d c8 99 22 4f  53 5f 52 65 61 64 55 6e  |...-.."OS_ReadUn|
00004d80  73 69 67 6e 65 64 22 2c  31 30 2c 22 26 22 2b 77  |signed",10,"&"+w|
00004d90  73 61 76 65 74 24 20 b8  20 2c 2c 76 25 0d 03 0e  |savet$ . ,,v%...|
00004da0  0f 77 69 6d 70 25 21 34  30 3d 76 25 0d 03 0f 33  |.wimp%!40=v%...3|
00004db0  c8 99 22 57 69 6d 70 5f  53 65 6e 64 4d 65 73 73  |.."Wimp_SendMess|
00004dc0  61 67 65 22 2c 31 38 2c  77 69 6d 70 25 2c 77 69  |age",18,wimp%,wi|
00004dd0  6d 70 25 21 32 30 2c 77  69 6d 70 25 21 32 34 0d  |mp%!20,wimp%!24.|
00004de0  03 10 11 77 73 61 76 65  64 72 61 67 25 3d 2d 31  |...wsavedrag%=-1|
00004df0  0d 03 11 05 e1 0d 03 12  18 dd 20 f2 77 69 6d 70  |.......... .wimp|
00004e00  5f 70 6f 6c 6c 6b 65 79  70 72 65 73 73 0d 03 13  |_pollkeypress...|
00004e10  1b ea 20 64 6f 6e 65 2c  64 72 61 67 25 2c 77 72  |.. done,drag%,wr|
00004e20  69 74 65 25 2c 6f 6b 25  0d 03 14 0a 64 6f 6e 65  |ite%,ok%....done|
00004e30  3d 30 0d 03 15 35 e7 20  a4 75 73 65 72 5f 73 61  |=0...5. .user_sa|
00004e40  76 65 66 69 6c 65 74 79  70 65 28 77 69 6d 70 25  |vefiletype(wimp%|
00004e50  21 30 29 3c 3e 22 22 20  80 20 77 69 6d 70 25 21  |!0)<>"" . wimp%!|
00004e60  32 34 3d 31 33 20 8c 0d  03 16 1c 20 20 64 72 61  |24=13 .....  dra|
00004e70  67 25 3d 30 3a 77 72 69  74 65 25 3d 31 3a 6f 6b  |g%=0:write%=1:ok|
00004e80  25 3d 32 0d 03 17 2e 20  20 f2 75 73 65 72 5f 73  |%=2....  .user_s|
00004e90  61 76 65 69 63 6f 6e 28  77 69 6d 70 25 21 30 2c  |aveicon(wimp%!0,|
00004ea0  64 72 61 67 25 2c 77 72  69 74 65 25 2c 6f 6b 25  |drag%,write%,ok%|
00004eb0  29 0d 03 18 36 20 20 e7  20 77 69 6d 70 25 21 34  |)...6  . wimp%!4|
00004ec0  3d 77 72 69 74 65 25 20  f2 77 69 6d 70 5f 71 75  |=write% .wimp_qu|
00004ed0  69 63 6b 73 61 76 65 28  77 69 6d 70 25 21 30 29  |icksave(wimp%!0)|
00004ee0  3a 64 6f 6e 65 3d 31 0d  03 19 05 cd 0d 03 1a 0e  |:done=1.........|
00004ef0  e7 20 64 6f 6e 65 3d 31  20 e1 0d 03 1b 12 f2 77  |. done=1 ......w|
00004f00  69 6d 70 5f 73 61 76 65  77 69 6d 70 0d 03 1c 31  |imp_savewimp...1|
00004f10  64 6f 6e 65 3d a4 75 73  65 72 5f 6b 65 79 70 72  |done=.user_keypr|
00004f20  65 73 73 28 77 69 6d 70  25 21 30 2c 77 69 6d 70  |ess(wimp%!0,wimp|
00004f30  25 21 34 2c 77 69 6d 70  25 21 32 34 29 0d 03 1d  |%!4,wimp%!24)...|
00004f40  12 f2 77 69 6d 70 5f 6c  6f 61 64 77 69 6d 70 0d  |..wimp_loadwimp.|
00004f50  03 1e 29 e7 20 64 6f 6e  65 3d 30 20 c8 99 22 57  |..). done=0 .."W|
00004f60  69 6d 70 5f 50 72 6f 63  65 73 73 4b 65 79 22 2c  |imp_ProcessKey",|
00004f70  77 69 6d 70 25 21 32 34  0d 03 1f 05 e1 0d 03 20  |wimp%!24....... |
00004f80  1d dd 20 f2 77 69 6d 70  5f 70 6f 6c 6c 6d 65 6e  |.. .wimp_pollmen|
00004f90  75 73 65 6c 65 63 74 69  6f 6e 0d 03 21 24 f2 77  |uselection..!$.w|
00004fa0  69 6d 70 5f 67 65 74 6d  65 6e 75 61 6e 64 69 74  |imp_getmenuandit|
00004fb0  65 6d 28 77 6c 61 73 74  6d 65 6e 75 25 29 0d 03  |em(wlastmenu%)..|
00004fc0  22 26 f2 75 73 65 72 5f  6d 65 6e 75 73 65 6c 65  |"&.user_menusele|
00004fd0  63 74 69 6f 6e 28 77 6d  65 6e 75 25 2c 77 69 74  |ction(wmenu%,wit|
00004fe0  65 6d 25 29 0d 03 23 22  c8 99 22 57 69 6d 70 5f  |em%)..#".."Wimp_|
00004ff0  47 65 74 50 6f 69 6e 74  65 72 49 6e 66 6f 22 2c  |GetPointerInfo",|
00005000  2c 77 69 6d 70 25 0d 03  24 12 e7 20 77 69 6d 70  |,wimp%..$.. wimp|
00005010  25 21 38 3c 3e 31 20 e1  0d 03 25 39 c8 99 22 57  |%!8<>1 ...%9.."W|
00005020  69 6d 70 5f 43 72 65 61  74 65 4d 65 6e 75 22 2c  |imp_CreateMenu",|
00005030  2c 77 6c 61 73 74 6d 65  6e 75 25 2c 77 69 6d 70  |,wlastmenu%,wimp|
00005040  25 21 30 2d 36 34 2c 77  69 6d 70 25 21 34 2b 32  |%!0-64,wimp%!4+2|
00005050  30 0d 03 26 05 e1 0d 03  27 17 dd 20 f2 77 69 6d  |0..&....'.. .wim|
00005060  70 5f 70 6f 6c 6c 6d 65  73 73 61 67 65 0d 03 28  |p_pollmessage..(|
00005070  11 c8 8e 20 77 69 6d 70  25 21 31 36 20 ca 0d 03  |... wimp%!16 ...|
00005080  29 1a c9 20 30 20 20 20  20 20 20 3a 20 66 69 6e  |).. 0      : fin|
00005090  69 73 68 65 64 25 3d b9  0d 03 2a 20 c9 20 31 20  |ished%=...* . 1 |
000050a0  20 20 20 20 20 3a 20 f2  77 69 6d 70 5f 64 61 74  |     : .wimp_dat|
000050b0  61 6c 6f 61 64 61 70 70  0d 03 2b 1d c9 20 32 20  |aloadapp..+.. 2 |
000050c0  20 20 20 20 20 3a 20 f2  77 69 6d 70 5f 64 61 74  |     : .wimp_dat|
000050d0  61 73 61 76 65 0d 03 2c  27 c9 20 33 2c 35 20 20  |asave..,'. 3,5  |
000050e0  20 20 3a 20 f2 77 69 6d  70 5f 64 61 74 61 6c 6f  |  : .wimp_datalo|
000050f0  61 64 28 77 69 6d 70 25  21 31 36 29 0d 03 2d 1f  |ad(wimp%!16)..-.|
00005100  c9 20 38 20 20 20 20 20  20 3a 20 f2 77 69 6d 70  |. 8      : .wimp|
00005110  5f 71 75 69 74 69 73 73  75 65 64 0d 03 2e 19 c9  |_quitissued.....|
00005120  20 26 35 30 32 20 20 20  3a 20 f2 77 69 6d 70 5f  | &502   : .wimp_|
00005130  68 65 6c 70 0d 03 2f 1f  c9 20 26 34 30 30 43 31  |help../.. &400C1|
00005140  20 3a 20 f2 75 73 65 72  5f 6d 6f 64 65 63 68 61  | : .user_modecha|
00005150  6e 67 65 0d 03 30 20 c9  20 26 34 30 30 43 30 20  |nge..0 . &400C0 |
00005160  3a 20 f2 77 69 6d 70 5f  6f 70 65 6e 73 75 62 6d  |: .wimp_opensubm|
00005170  65 6e 75 0d 03 31 22 c9  20 26 38 30 31 34 37 20  |enu..1". &80147 |
00005180  3a 20 f2 75 73 65 72 5f  70 72 69 6e 74 65 72 63  |: .user_printerc|
00005190  68 61 6e 67 65 0d 03 32  05 cb 0d 03 33 05 e1 0d  |hange..2....3...|
000051a0  03 34 15 dd 20 f2 77 69  6d 70 5f 63 6c 6f 73 65  |.4.. .wimp_close|
000051b0  64 6f 77 6e 0d 03 35 07  ea 20 4c 0d 03 36 0f e3  |down..5.. L..6..|
000051c0  20 4c 3d 30 20 b8 20 32  35 35 0d 03 37 27 20 20  | L=0 . 255..7'  |
000051d0  e7 20 77 66 6f 6e 74 62  75 66 25 3f 4c 20 c8 99  |. wfontbuf%?L ..|
000051e0  22 46 6f 6e 74 5f 4c 6f  73 65 46 6f 6e 74 22 2c  |"Font_LoseFont",|
000051f0  4c 0d 03 38 07 ed 20 4c  0d 03 39 16 c8 99 22 57  |L..8.. L..9..."W|
00005200  69 6d 70 5f 43 6c 6f 73  65 44 6f 77 6e 22 0d 03  |imp_CloseDown"..|
00005210  3a 05 e1 0d 03 3b 23 dd  20 a4 77 69 6d 70 5f 63  |:....;#. .wimp_c|
00005220  72 65 61 74 65 6d 65 6e  75 28 6d 65 6e 75 24 2c  |reatemenu(menu$,|
00005230  73 69 7a 65 25 29 0d 03  3c 34 ea 20 77 6d 65 6e  |size%)..<4. wmen|
00005240  75 25 2c 6e 75 6d 2c 71  2c 4c 2c 6d 66 6c 61 67  |u%,num,q,L,mflag|
00005250  73 25 2c 61 25 2c 77 69  64 74 68 25 2c 65 78 74  |s%,a%,width%,ext|
00005260  72 61 25 2c 74 69 74 6c  65 24 0d 03 3d 24 6e 75  |ra%,title$..=$nu|
00005270  6d 3d a4 77 69 6d 70 5f  6e 75 6d 62 65 72 6f 66  |m=.wimp_numberof|
00005280  65 6e 74 72 69 65 73 28  6d 65 6e 75 24 29 0d 03  |entries(menu$)..|
00005290  3e 0a 6e 75 6d 2d 3d 31  0d 03 3f 18 e7 20 73 69  |>.num-=1..?.. si|
000052a0  7a 65 25 3c 3d 6e 75 6d  20 73 69 7a 65 25 3d 30  |ze%<=num size%=0|
000052b0  0d 03 40 22 e7 20 73 69  7a 65 25 3d 30 20 de 20  |..@". size%=0 . |
000052c0  77 6d 65 6e 75 25 20 28  6e 75 6d 2a 32 34 29 2b  |wmenu% (num*24)+|
000052d0  32 38 0d 03 41 3f e7 20  73 69 7a 65 25 3e 30 20  |28..A?. size%>0 |
000052e0  65 78 74 72 61 25 3d 73  69 7a 65 25 2d 6e 75 6d  |extra%=size%-num|
000052f0  3a de 20 77 6d 65 6e 75  25 20 28 6e 75 6d 2a 32  |:. wmenu% (num*2|
00005300  34 29 2b 32 38 2b 28 65  78 74 72 61 25 2a 32 34  |4)+28+(extra%*24|
00005310  29 0d 03 42 11 71 3d a7  6d 65 6e 75 24 2c 22 2f  |)..B.q=.menu$,"/|
00005320  22 29 0d 03 43 16 74 69  74 6c 65 24 3d c0 6d 65  |")..C.title$=.me|
00005330  6e 75 24 2c 71 2d 31 29  0d 03 44 25 e7 20 a9 28  |nu$,q-1)..D%. .(|
00005340  74 69 74 6c 65 24 29 3e  31 31 20 74 69 74 6c 65  |title$)>11 title|
00005350  24 3d c0 74 69 74 6c 65  24 2c 31 31 29 0d 03 45  |$=.title$,11)..E|
00005360  12 24 77 6d 65 6e 75 25  3d 74 69 74 6c 65 24 0d  |.$wmenu%=title$.|
00005370  03 46 1c 6d 65 6e 75 24  3d c2 6d 65 6e 75 24 2c  |.F.menu$=.menu$,|
00005380  a9 28 6d 65 6e 75 24 29  2d 71 29 0d 03 47 20 77  |.(menu$)-q)..G w|
00005390  69 64 74 68 25 3d 28 a9  28 c0 6d 65 6e 75 24 2c  |idth%=(.(.menu$,|
000053a0  71 2d 31 29 29 2d 31 29  2a 31 36 0d 03 48 17 77  |q-1))-1)*16..H.w|
000053b0  6d 65 6e 75 25 21 31 32  3d 26 30 30 30 37 30 32  |menu%!12=&000702|
000053c0  30 37 0d 03 49 10 77 6d  65 6e 75 25 21 32 30 3d  |07..I.wmenu%!20=|
000053d0  34 34 0d 03 4a 0f 77 6d  65 6e 75 25 21 32 34 3d  |44..J.wmenu%!24=|
000053e0  30 0d 03 4b 13 77 70 74  72 25 3d 77 6d 65 6e 75  |0..K.wptr%=wmenu|
000053f0  25 2b 32 38 0d 03 4c 0f  e3 20 4c 3d 31 20 b8 20  |%+28..L.. L=1 . |
00005400  6e 75 6d 0d 03 4d 22 f2  77 69 6d 70 5f 64 65 63  |num..M".wimp_dec|
00005410  6f 64 65 6d 65 6e 75 65  6e 74 72 79 28 6d 65 6e  |odemenuentry(men|
00005420  75 24 2c 4c 29 0d 03 4e  23 e7 20 4c 3d 6e 75 6d  |u$,L)..N#. L=num|
00005430  20 6d 66 6c 61 67 73 25  3d 26 38 38 20 8b 20 6d  | mflags%=&88 . m|
00005440  66 6c 61 67 73 25 3d 38  0d 03 4f 12 21 77 70 74  |flags%=8..O.!wpt|
00005450  72 25 3d 6d 66 6c 61 67  73 25 0d 03 50 14 77 70  |r%=mflags%..P.wp|
00005460  74 72 25 21 34 3d 77 73  75 62 70 74 72 25 0d 03  |tr%!4=wsubptr%..|
00005470  51 14 77 70 74 72 25 21  38 3d 26 37 30 30 30 30  |Q.wptr%!8=&70000|
00005480  32 31 0d 03 52 62 e7 20  a9 28 69 74 65 6d 24 29  |21..Rb. .(item$)|
00005490  3e 31 31 20 de 20 74 77  65 6c 76 65 25 20 a9 28  |>11 . twelve% .(|
000054a0  69 74 65 6d 24 29 3a 24  28 74 77 65 6c 76 65 25  |item$):$(twelve%|
000054b0  29 3d 69 74 65 6d 24 3a  77 70 74 72 25 21 38 3d  |)=item$:wptr%!8=|
000054c0  26 37 30 30 30 31 32 31  3a 77 70 74 72 25 21 31  |&7000121:wptr%!1|
000054d0  32 3d 74 77 65 6c 76 65  25 3a 77 70 74 72 25 21  |2=twelve%:wptr%!|
000054e0  31 36 3d 30 0d 03 53 23  e7 20 a9 28 69 74 65 6d  |16=0..S#. .(item|
000054f0  24 29 3c 31 32 20 24 28  77 70 74 72 25 2b 31 32  |$)<12 $(wptr%+12|
00005500  29 3d 69 74 65 6d 24 0d  03 54 16 61 25 3d 28 a9  |)=item$..T.a%=(.|
00005510  28 69 74 65 6d 24 29 2b  31 29 2a 31 36 0d 03 55  |(item$)+1)*16..U|
00005520  19 e7 20 61 25 3e 77 69  64 74 68 25 20 77 69 64  |.. a%>width% wid|
00005530  74 68 25 3d 61 25 0d 03  56 0d 77 70 74 72 25 2b  |th%=a%..V.wptr%+|
00005540  3d 32 34 0d 03 57 07 ed  20 4c 0d 03 58 2d f4 20  |=24..W.. L..X-. |
00005550  6d 69 6e 25 3d 28 46 4e  75 73 65 72 5f 6d 69 6e  |min%=(FNuser_min|
00005560  6d 65 6e 75 77 69 64 74  68 28 77 6d 65 6e 75 25  |menuwidth(wmenu%|
00005570  29 2b 31 29 2a 31 36 0d  03 59 20 f4 20 49 46 20  |)+1)*16..Y . IF |
00005580  6d 69 6e 25 3e 77 69 64  74 68 25 20 77 69 64 74  |min%>width% widt|
00005590  68 25 3d 6d 69 6e 25 0d  03 5a 14 77 6d 65 6e 75  |h%=min%..Z.wmenu|
000055a0  25 21 31 36 3d 77 69 64  74 68 25 0d 03 5b 0b 3d  |%!16=width%..[.=|
000055b0  77 6d 65 6e 75 25 0d 03  5c 21 dd 20 f2 77 69 6d  |wmenu%..\!. .wim|
000055c0  70 5f 6d 65 6e 75 6a 75  73 74 6f 70 65 6e 65 64  |p_menujustopened|
000055d0  28 6d 65 6e 75 25 29 0d  03 5d 16 ea 20 64 72 61  |(menu%)..].. dra|
000055e0  67 25 2c 77 72 69 74 65  25 2c 6f 6b 25 0d 03 5e  |g%,write%,ok%..^|
000055f0  25 e7 20 a4 75 73 65 72  5f 73 61 76 65 66 69 6c  |%. .user_savefil|
00005600  65 74 79 70 65 28 6d 65  6e 75 25 29 3c 3e 22 22  |etype(menu%)<>""|
00005610  20 8c 0d 03 5f 1c 20 20  64 72 61 67 25 3d 30 3a  | ..._.  drag%=0:|
00005620  77 72 69 74 65 25 3d 31  3a 6f 6b 25 3d 32 0d 03  |write%=1:ok%=2..|
00005630  60 2c 20 20 f2 75 73 65  72 5f 73 61 76 65 69 63  |`,  .user_saveic|
00005640  6f 6e 28 6d 65 6e 75 25  2c 64 72 61 67 25 2c 77  |on(menu%,drag%,w|
00005650  72 69 74 65 25 2c 6f 6b  25 29 0d 03 61 22 20 20  |rite%,ok%)..a"  |
00005660  f2 77 69 6d 70 5f 70 75  74 63 61 72 65 74 28 6d  |.wimp_putcaret(m|
00005670  65 6e 75 25 2c 77 72 69  74 65 25 29 0d 03 62 05  |enu%,write%)..b.|
00005680  cd 0d 03 63 05 e1 0d 03  64 1d dd 20 f2 77 69 6d  |...c....d.. .wim|
00005690  70 5f 63 65 6e 74 72 65  6d 65 6e 75 28 6d 68 61  |p_centremenu(mha|
000056a0  6e 25 29 0d 03 65 45 ea  20 78 30 2c 79 30 2c 78  |n%)..eE. x0,y0,x|
000056b0  31 2c 79 31 2c 77 77 69  64 74 68 2c 77 68 65 69  |1,y1,wwidth,whei|
000056c0  67 68 74 2c 58 45 69 67  2c 59 45 69 67 2c 73 78  |ght,XEig,YEig,sx|
000056d0  2c 73 79 2c 73 77 69 64  74 68 2c 73 68 65 69 67  |,sy,swidth,sheig|
000056e0  68 74 2c 78 25 2c 79 25  0d 03 66 11 77 69 6d 70  |ht,x%,y%..f.wimp|
000056f0  25 21 30 3d 6d 68 61 6e  25 0d 03 67 21 c8 99 22  |%!0=mhan%..g!.."|
00005700  57 69 6d 70 5f 47 65 74  57 69 6e 64 6f 77 49 6e  |Wimp_GetWindowIn|
00005710  66 6f 22 2c 2c 77 69 6d  70 25 0d 03 68 19 78 30  |fo",,wimp%..h.x0|
00005720  3d 77 69 6d 70 25 21 34  3a 79 30 3d 77 69 6d 70  |=wimp%!4:y0=wimp|
00005730  25 21 38 0d 03 69 1b 78  31 3d 77 69 6d 70 25 21  |%!8..i.x1=wimp%!|
00005740  31 32 3a 79 31 3d 77 69  6d 70 25 21 31 36 0d 03  |12:y1=wimp%!16..|
00005750  6a 1e 77 77 69 64 74 68  3d 78 31 2d 78 30 3a 77  |j.wwidth=x1-x0:w|
00005760  68 65 69 67 68 74 3d 79  31 2d 79 30 0d 03 6b 29  |height=y1-y0..k)|
00005770  c8 99 22 4f 53 5f 52 65  61 64 4d 6f 64 65 56 61  |.."OS_ReadModeVa|
00005780  72 69 61 62 6c 65 22 2c  2d 31 2c 34 20 b8 20 2c  |riable",-1,4 . ,|
00005790  2c 58 45 69 67 0d 03 6c  29 c8 99 22 4f 53 5f 52  |,XEig..l).."OS_R|
000057a0  65 61 64 4d 6f 64 65 56  61 72 69 61 62 6c 65 22  |eadModeVariable"|
000057b0  2c 2d 31 2c 35 20 b8 20  2c 2c 59 45 69 67 0d 03  |,-1,5 . ,,YEig..|
000057c0  6d 28 c8 99 22 4f 53 5f  52 65 61 64 4d 6f 64 65  |m(.."OS_ReadMode|
000057d0  56 61 72 69 61 62 6c 65  22 2c 2d 31 2c 31 31 20  |Variable",-1,11 |
000057e0  b8 20 2c 2c 73 78 0d 03  6e 28 c8 99 22 4f 53 5f  |. ,,sx..n(.."OS_|
000057f0  52 65 61 64 4d 6f 64 65  56 61 72 69 61 62 6c 65  |ReadModeVariable|
00005800  22 2c 2d 31 2c 31 32 20  b8 20 2c 2c 73 79 0d 03  |",-1,12 . ,,sy..|
00005810  6f 13 73 77 69 64 74 68  3d 73 78 3c 3c 58 45 69  |o.swidth=sx<<XEi|
00005820  67 0d 03 70 14 73 68 65  69 67 68 74 3d 73 79 3c  |g..p.sheight=sy<|
00005830  3c 59 45 69 67 0d 03 71  18 78 25 3d 28 73 77 69  |<YEig..q.x%=(swi|
00005840  64 74 68 2d 77 77 69 64  74 68 29 2f 32 0d 03 72  |dth-wwidth)/2..r|
00005850  24 79 25 3d 28 28 73 68  65 69 67 68 74 2d 77 68  |$y%=((sheight-wh|
00005860  65 69 67 68 74 29 2f 32  29 2b 77 68 65 69 67 68  |eight)/2)+wheigh|
00005870  74 0d 03 73 24 c8 99 22  57 69 6d 70 5f 43 72 65  |t..s$.."Wimp_Cre|
00005880  61 74 65 4d 65 6e 75 22  2c 2c 6d 68 61 6e 25 2c  |ateMenu",,mhan%,|
00005890  78 25 2c 79 25 0d 03 74  05 e1 0d 03 75 14 dd 20  |x%,y%..t....u.. |
000058a0  f2 77 69 6d 70 5f 73 61  76 65 77 69 6d 70 0d 03  |.wimp_savewimp..|
000058b0  76 13 e3 20 4c 3d 30 20  b8 20 33 31 36 20 88 20  |v.. L=0 . 316 . |
000058c0  34 0d 03 77 16 20 20 77  74 62 6c 6b 25 21 4c 3d  |4..w.  wtblk%!L=|
000058d0  77 69 6d 70 25 21 4c 0d  03 78 07 ed 20 4c 0d 03  |wimp%!L..x.. L..|
000058e0  79 05 e1 0d 03 7a 14 dd  20 f2 77 69 6d 70 5f 6c  |y....z.. .wimp_l|
000058f0  6f 61 64 77 69 6d 70 0d  03 7b 13 e3 20 4c 3d 30  |oadwimp..{.. L=0|
00005900  20 b8 20 33 31 36 20 88  20 34 0d 03 7c 16 20 20  | . 316 . 4..|.  |
00005910  77 69 6d 70 25 21 4c 3d  77 74 62 6c 6b 25 21 4c  |wimp%!L=wtblk%!L|
00005920  0d 03 7d 07 ed 20 4c 0d  03 7e 05 e1 0d 03 7f 21  |..}.. L..~.....!|
00005930  dd 20 f2 77 69 6d 70 5f  70 75 74 63 61 72 65 74  |. .wimp_putcaret|
00005940  28 77 68 61 6e 25 2c 69  63 6f 6e 25 29 0d 03 80  |(whan%,icon%)...|
00005950  0f ea 20 78 6f 66 66 2c  79 6f 66 66 0d 03 81 13  |.. xoff,yoff....|
00005960  78 6f 66 66 3d 31 45 36  3a 79 6f 66 66 3d 30 0d  |xoff=1E6:yoff=0.|
00005970  03 82 39 c8 99 22 57 69  6d 70 5f 53 65 74 43 61  |..9.."Wimp_SetCa|
00005980  72 65 74 50 6f 73 69 74  69 6f 6e 22 2c 77 68 61  |retPosition",wha|
00005990  6e 25 2c 69 63 6f 6e 25  2c 78 6f 66 66 2c 79 6f  |n%,icon%,xoff,yo|
000059a0  66 66 2c 2d 31 2c 2d 31  0d 03 83 05 e1 0d 03 84  |ff,-1,-1........|
000059b0  18 dd 20 f2 77 69 6d 70  5f 63 65 6e 74 72 65 77  |.. .wimp_centrew|
000059c0  69 6e 64 6f 77 0d 03 85  3f ea 20 78 30 2c 79 30  |indow...?. x0,y0|
000059d0  2c 78 31 2c 79 31 2c 77  77 69 64 74 68 2c 77 68  |,x1,y1,wwidth,wh|
000059e0  65 69 67 68 74 2c 58 45  69 67 2c 59 45 69 67 2c  |eight,XEig,YEig,|
000059f0  73 78 2c 73 79 2c 73 77  69 64 74 68 2c 73 68 65  |sx,sy,swidth,she|
00005a00  69 67 68 74 0d 03 86 19  78 30 3d 77 69 6d 70 25  |ight....x0=wimp%|
00005a10  21 34 3a 79 30 3d 77 69  6d 70 25 21 38 0d 03 87  |!4:y0=wimp%!8...|
00005a20  1b 78 31 3d 77 69 6d 70  25 21 31 32 3a 79 31 3d  |.x1=wimp%!12:y1=|
00005a30  77 69 6d 70 25 21 31 36  0d 03 88 1e 77 77 69 64  |wimp%!16....wwid|
00005a40  74 68 3d 78 31 2d 78 30  3a 77 68 65 69 67 68 74  |th=x1-x0:wheight|
00005a50  3d 79 31 2d 79 30 0d 03  89 29 c8 99 22 4f 53 5f  |=y1-y0...).."OS_|
00005a60  52 65 61 64 4d 6f 64 65  56 61 72 69 61 62 6c 65  |ReadModeVariable|
00005a70  22 2c 2d 31 2c 34 20 b8  20 2c 2c 58 45 69 67 0d  |",-1,4 . ,,XEig.|
00005a80  03 8a 29 c8 99 22 4f 53  5f 52 65 61 64 4d 6f 64  |..).."OS_ReadMod|
00005a90  65 56 61 72 69 61 62 6c  65 22 2c 2d 31 2c 35 20  |eVariable",-1,5 |
00005aa0  b8 20 2c 2c 59 45 69 67  0d 03 8b 28 c8 99 22 4f  |. ,,YEig...(.."O|
00005ab0  53 5f 52 65 61 64 4d 6f  64 65 56 61 72 69 61 62  |S_ReadModeVariab|
00005ac0  6c 65 22 2c 2d 31 2c 31  31 20 b8 20 2c 2c 73 78  |le",-1,11 . ,,sx|
00005ad0  0d 03 8c 28 c8 99 22 4f  53 5f 52 65 61 64 4d 6f  |...(.."OS_ReadMo|
00005ae0  64 65 56 61 72 69 61 62  6c 65 22 2c 2d 31 2c 31  |deVariable",-1,1|
00005af0  32 20 b8 20 2c 2c 73 79  0d 03 8d 13 73 77 69 64  |2 . ,,sy....swid|
00005b00  74 68 3d 73 78 3c 3c 58  45 69 67 0d 03 8e 14 73  |th=sx<<XEig....s|
00005b10  68 65 69 67 68 74 3d 73  79 3c 3c 59 45 69 67 0d  |height=sy<<YEig.|
00005b20  03 8f 18 78 30 3d 28 73  77 69 64 74 68 2d 77 77  |...x0=(swidth-ww|
00005b30  69 64 74 68 29 2f 32 0d  03 90 1a 79 30 3d 28 73  |idth)/2....y0=(s|
00005b40  68 65 69 67 68 74 2d 77  68 65 69 67 68 74 29 2f  |height-wheight)/|
00005b50  32 0d 03 91 19 77 69 6d  70 25 21 34 3d 78 30 3a  |2....wimp%!4=x0:|
00005b60  77 69 6d 70 25 21 38 3d  79 30 0d 03 92 1e 78 31  |wimp%!8=y0....x1|
00005b70  3d 78 30 2b 77 77 69 64  74 68 3a 79 31 3d 79 30  |=x0+wwidth:y1=y0|
00005b80  2b 77 68 65 69 67 68 74  0d 03 93 1b 77 69 6d 70  |+wheight....wimp|
00005b90  25 21 31 32 3d 78 31 3a  77 69 6d 70 25 21 31 36  |%!12=x1:wimp%!16|
00005ba0  3d 79 31 0d 03 94 05 e1  0d 03 95 26 dd 20 f2 77  |=y1........&. .w|
00005bb0  69 6d 70 5f 70 6f 69 6e  74 65 72 63 65 6e 74 72  |imp_pointercentr|
00005bc0  65 77 69 6e 64 6f 77 28  77 68 61 6e 25 29 0d 03  |ewindow(whan%)..|
00005bd0  96 24 ea 20 6d 78 25 2c  6d 79 25 2c 77 69 64 74  |.$. mx%,my%,widt|
00005be0  68 25 2c 68 65 69 67 68  74 25 2c 78 70 25 2c 79  |h%,height%,xp%,y|
00005bf0  70 25 0d 03 97 22 c8 99  22 57 69 6d 70 5f 47 65  |p%...".."Wimp_Ge|
00005c00  74 50 6f 69 6e 74 65 72  49 6e 66 6f 22 2c 2c 77  |tPointerInfo",,w|
00005c10  69 6d 70 25 0d 03 98 1b  6d 78 25 3d 77 69 6d 70  |imp%....mx%=wimp|
00005c20  25 21 30 3a 6d 79 25 3d  77 69 6d 70 25 21 34 0d  |%!0:my%=wimp%!4.|
00005c30  03 99 11 77 69 6d 70 25  21 30 3d 77 68 61 6e 25  |...wimp%!0=whan%|
00005c40  0d 03 9a 21 c8 99 22 57  69 6d 70 5f 47 65 74 57  |...!.."Wimp_GetW|
00005c50  69 6e 64 6f 77 49 6e 66  6f 22 2c 2c 77 69 6d 70  |indowInfo",,wimp|
00005c60  25 0d 03 9b 34 77 69 64  74 68 25 3d 77 69 6d 70  |%...4width%=wimp|
00005c70  25 21 31 32 2d 77 69 6d  70 25 21 34 3a 68 65 69  |%!12-wimp%!4:hei|
00005c80  67 68 74 25 3d 77 69 6d  70 25 21 31 36 2d 77 69  |ght%=wimp%!16-wi|
00005c90  6d 70 25 21 38 0d 03 9c  26 78 70 25 3d 6d 78 25  |mp%!8...&xp%=mx%|
00005ca0  2d 77 69 64 74 68 25 2f  32 3a 79 70 25 3d 6d 79  |-width%/2:yp%=my|
00005cb0  25 2d 68 65 69 67 68 74  25 2f 32 0d 03 9d 1b 77  |%-height%/2....w|
00005cc0  69 6d 70 25 21 34 3d 78  70 25 3a 77 69 6d 70 25  |imp%!4=xp%:wimp%|
00005cd0  21 38 3d 79 70 25 0d 03  9e 2c 77 69 6d 70 25 21  |!8=yp%...,wimp%!|
00005ce0  31 32 3d 78 70 25 2b 77  69 64 74 68 25 3a 77 69  |12=xp%+width%:wi|
00005cf0  6d 70 25 21 31 36 3d 79  70 25 2b 68 65 69 67 68  |mp%!16=yp%+heigh|
00005d00  74 25 0d 03 9f 05 e1 0d  03 a0 1e dd 20 a4 77 69  |t%.......... .wi|
00005d10  6d 70 5f 67 65 74 6c 65  61 66 6e 61 6d 65 28 74  |mp_getleafname(t|
00005d20  65 78 74 24 29 0d 03 a1  09 ea 20 4c 2c 70 0d 03  |ext$)..... L,p..|
00005d30  a2 07 70 3d 30 0d 03 a3  14 e3 20 4c 3d 31 20 b8  |..p=0..... L=1 .|
00005d40  20 a9 28 74 65 78 74 24  29 0d 03 a4 19 e7 20 c1  | .(text$)..... .|
00005d50  74 65 78 74 24 2c 4c 2c  31 29 3d 22 2e 22 20 70  |text$,L,1)="." p|
00005d60  3d 4c 0d 03 a5 07 ed 20  4c 0d 03 a6 10 e7 20 70  |=L..... L..... p|
00005d70  3d 30 20 3d 74 65 78 74  24 0d 03 a7 17 3d c2 74  |=0 =text$....=.t|
00005d80  65 78 74 24 2c a9 28 74  65 78 74 24 29 2d 70 29  |ext$,.(text$)-p)|
00005d90  0d 03 a8 19 dd 20 a4 77  69 6d 70 5f 73 74 72 69  |..... .wimp_stri|
00005da0  6e 67 28 77 70 74 72 25  29 0d 03 a9 08 ea 20 61  |ng(wptr%)..... a|
00005db0  24 0d 03 aa 10 c8 95 20  3f 77 70 74 72 25 3c 3e  |$...... ?wptr%<>|
00005dc0  30 0d 03 ab 1a 61 24 2b  3d bd 28 3f 77 70 74 72  |0....a$+=.(?wptr|
00005dd0  25 29 3a 77 70 74 72 25  2b 3d 31 0d 03 ac 05 ce  |%):wptr%+=1.....|
00005de0  0d 03 ad 07 3d 61 24 0d  03 ae 1a dd 20 f2 77 69  |....=a$..... .wi|
00005df0  6d 70 5f 64 72 61 67 67  69 6e 67 73 6c 69 64 65  |mp_draggingslide|
00005e00  72 0d 03 af 28 ea 20 6d  69 6e 78 25 2c 6d 69 6e  |r...(. minx%,min|
00005e10  79 25 2c 6d 61 78 78 25  2c 6d 61 78 79 25 2c 6c  |y%,maxx%,maxy%,l|
00005e20  65 6e 25 2c 6c 65 6e 32  25 0d 03 b0 24 21 77 69  |en%,len2%...$!wi|
00005e30  6d 70 25 3d 77 73 6c 69  64 65 77 25 3a 77 69 6d  |mp%=wslidew%:wim|
00005e40  70 25 21 34 3d 77 73 6c  69 64 65 69 25 0d 03 b1  |p%!4=wslidei%...|
00005e50  20 c8 99 22 57 69 6d 70  5f 47 65 74 49 63 6f 6e  | .."Wimp_GetIcon|
00005e60  53 74 61 74 65 22 2c 2c  77 69 6d 70 25 0d 03 b2  |State",,wimp%...|
00005e70  2a 6d 69 6e 78 25 3d 77  69 6d 70 25 21 38 2b 77  |*minx%=wimp%!8+w|
00005e80  6f 78 25 3a 6d 61 78 78  25 3d 77 69 6d 70 25 21  |ox%:maxx%=wimp%!|
00005e90  31 36 2b 77 6f 78 25 0d  03 b3 2b 6d 69 6e 79 25  |16+wox%...+miny%|
00005ea0  3d 77 69 6d 70 25 21 31  32 2b 77 6f 79 25 3a 6d  |=wimp%!12+woy%:m|
00005eb0  61 78 79 25 3d 77 69 6d  70 25 21 32 30 2b 77 6f  |axy%=wimp%!20+wo|
00005ec0  79 25 0d 03 b4 22 c8 99  22 57 69 6d 70 5f 47 65  |y%...".."Wimp_Ge|
00005ed0  74 50 6f 69 6e 74 65 72  49 6e 66 6f 22 2c 2c 77  |tPointerInfo",,w|
00005ee0  69 6d 70 25 0d 03 b5 29  6c 65 6e 25 3d 21 77 69  |imp%...)len%=!wi|
00005ef0  6d 70 25 2d 6d 69 6e 78  25 3a 6c 65 6e 32 25 3d  |mp%-minx%:len2%=|
00005f00  77 69 6d 70 25 21 34 2d  6d 69 6e 79 25 0d 03 b6  |wimp%!4-miny%...|
00005f10  15 e7 20 77 73 68 65 69  25 3e 77 73 77 69 64 25  |.. wshei%>wswid%|
00005f20  20 8c 0d 03 b7 17 20 20  e7 20 6c 65 6e 32 25 3c  | .....  . len2%<|
00005f30  3e 77 6c 65 6e 32 25 20  8c 0d 03 b8 2c 20 20 20  |>wlen2% ....,   |
00005f40  20 f2 77 69 6d 70 5f 62  61 72 28 77 73 6c 69 64  | .wimp_bar(wslid|
00005f50  65 77 25 2c 77 73 6c 69  64 65 69 25 2c 6c 65 6e  |ew%,wslidei%,len|
00005f60  32 25 2c 31 29 0d 03 b9  14 20 20 20 20 77 6c 65  |2%,1)....    wle|
00005f70  6e 32 25 3d 6c 65 6e 32  25 0d 03 ba 5b 20 20 20  |n2%=len2%...[   |
00005f80  20 f2 75 73 65 72 5f 73  6c 69 64 65 72 76 61 6c  | .user_sliderval|
00005f90  75 65 28 77 73 6c 69 64  65 77 25 2c 77 73 6c 69  |ue(wslidew%,wsli|
00005fa0  64 65 69 25 2c a4 77 69  6d 70 5f 63 61 6c 63 73  |dei%,.wimp_calcs|
00005fb0  6c 69 64 65 70 63 65 6e  74 28 77 73 6c 69 64 65  |lidepcent(wslide|
00005fc0  77 25 2c 77 73 6c 69 64  65 69 25 2c 77 73 68 65  |w%,wslidei%,wshe|
00005fd0  69 25 29 29 0d 03 bb 07  20 20 cd 0d 03 bc 05 cc  |i%))....  ......|
00005fe0  0d 03 bd 15 20 20 e7 20  6c 65 6e 25 3c 3e 77 6c  |....  . len%<>wl|
00005ff0  65 6e 25 20 8c 0d 03 be  2b 20 20 20 20 f2 77 69  |en% ....+    .wi|
00006000  6d 70 5f 62 61 72 28 77  73 6c 69 64 65 77 25 2c  |mp_bar(wslidew%,|
00006010  77 73 6c 69 64 65 69 25  2c 6c 65 6e 25 2c 30 29  |wslidei%,len%,0)|
00006020  0d 03 bf 12 20 20 20 20  77 6c 65 6e 25 3d 6c 65  |....    wlen%=le|
00006030  6e 25 0d 03 c0 5b 20 20  20 20 f2 75 73 65 72 5f  |n%...[    .user_|
00006040  73 6c 69 64 65 72 76 61  6c 75 65 28 77 73 6c 69  |slidervalue(wsli|
00006050  64 65 77 25 2c 77 73 6c  69 64 65 69 25 2c a4 77  |dew%,wslidei%,.w|
00006060  69 6d 70 5f 63 61 6c 63  73 6c 69 64 65 70 63 65  |imp_calcslidepce|
00006070  6e 74 28 77 73 6c 69 64  65 77 25 2c 77 73 6c 69  |nt(wslidew%,wsli|
00006080  64 65 69 25 2c 77 73 77  69 64 25 29 29 0d 03 c1  |dei%,wswid%))...|
00006090  07 20 20 cd 0d 03 c2 05  cd 0d 03 c3 05 e1 0d 03  |.  .............|
000060a0  c4 1f dd 20 a4 77 69 6d  70 5f 69 73 77 69 6e 64  |... .wimp_iswind|
000060b0  6f 77 6f 70 65 6e 28 77  68 61 6e 25 29 0d 03 c5  |owopen(whan%)...|
000060c0  10 21 77 69 6d 70 25 3d  77 68 61 6e 25 0d 03 c6  |.!wimp%=whan%...|
000060d0  22 c8 99 22 57 69 6d 70  5f 47 65 74 57 69 6e 64  |".."Wimp_GetWind|
000060e0  6f 77 53 74 61 74 65 22  2c 2c 77 69 6d 70 25 0d  |owState",,wimp%.|
000060f0  03 c7 19 3d 28 77 69 6d  70 25 21 33 32 20 3e 3e  |...=(wimp%!32 >>|
00006100  20 31 36 29 20 80 20 31  0d 03 c8 22 dd 20 f2 77  | 16) . 1...". .w|
00006110  69 6d 70 5f 73 74 61 72  74 64 72 61 67 28 77 68  |imp_startdrag(wh|
00006120  61 6e 25 2c 69 63 6f 6e  25 29 0d 03 c9 27 ea 20  |an%,icon%)...'. |
00006130  6f 78 25 2c 6f 79 25 2c  69 25 2c 77 25 2c 6e 24  |ox%,oy%,i%,w%,n$|
00006140  2c 64 72 61 67 25 2c 77  72 69 74 65 25 2c 6f 6b  |,drag%,write%,ok|
00006150  25 0d 03 ca 25 77 73 61  76 65 74 24 3d a4 75 73  |%...%wsavet$=.us|
00006160  65 72 5f 73 61 76 65 66  69 6c 65 74 79 70 65 28  |er_savefiletype(|
00006170  77 68 61 6e 25 29 0d 03  cb 35 e7 20 77 73 61 76  |whan%)...5. wsav|
00006180  65 74 24 3d 22 22 20 f2  77 69 6d 70 5f 73 74 61  |et$="" .wimp_sta|
00006190  72 74 73 6c 69 64 65 72  64 72 61 67 28 77 68 61  |rtsliderdrag(wha|
000061a0  6e 25 2c 69 63 6f 6e 25  29 3a e1 0d 03 cc 22 77  |n%,icon%):...."w|
000061b0  73 61 76 65 77 25 3d 77  68 61 6e 25 3a 77 73 61  |savew%=whan%:wsa|
000061c0  76 65 64 72 61 67 25 3d  77 68 61 6e 25 0d 03 cd  |vedrag%=whan%...|
000061d0  12 21 77 69 6d 70 25 3d  77 73 61 76 65 77 25 0d  |.!wimp%=wsavew%.|
000061e0  03 ce 22 c8 99 22 57 69  6d 70 5f 47 65 74 57 69  |..".."Wimp_GetWi|
000061f0  6e 64 6f 77 53 74 61 74  65 22 2c 2c 77 69 6d 70  |ndowState",,wimp|
00006200  25 0d 03 cf 18 6f 78 25  3d 77 69 6d 70 25 21 34  |%....ox%=wimp%!4|
00006210  2d 77 69 6d 70 25 21 32  30 0d 03 d0 19 6f 79 25  |-wimp%!20....oy%|
00006220  3d 77 69 6d 70 25 21 31  36 2d 77 69 6d 70 25 21  |=wimp%!16-wimp%!|
00006230  32 34 0d 03 d1 1a 64 72  61 67 25 3d 30 3a 77 72  |24....drag%=0:wr|
00006240  69 74 65 25 3d 31 3a 6f  6b 25 3d 32 0d 03 d2 2c  |ite%=1:ok%=2...,|
00006250  f2 75 73 65 72 5f 73 61  76 65 69 63 6f 6e 28 77  |.user_saveicon(w|
00006260  73 61 76 65 77 25 2c 64  72 61 67 25 2c 77 72 69  |savew%,drag%,wri|
00006270  74 65 25 2c 6f 6b 25 29  0d 03 d3 14 e7 20 64 72  |te%,ok%)..... dr|
00006280  61 67 25 3c 3e 69 63 6f  6e 25 20 e1 0d 03 d4 11  |ag%<>icon% .....|
00006290  77 69 6d 70 25 21 34 3d  64 72 61 67 25 0d 03 d5  |wimp%!4=drag%...|
000062a0  20 c8 99 22 57 69 6d 70  5f 47 65 74 49 63 6f 6e  | .."Wimp_GetIcon|
000062b0  53 74 61 74 65 22 2c 2c  77 69 6d 70 25 0d 03 d6  |State",,wimp%...|
000062c0  18 69 25 3d 28 77 69 6d  70 25 21 32 34 3e 3e 38  |.i%=(wimp%!24>>8|
000062d0  29 20 80 20 31 0d 03 d7  1e e7 20 69 25 3d 30 20  |) . 1..... i%=0 |
000062e0  6e 24 3d 24 28 77 69 6d  70 25 2b 32 38 29 3a 77  |n$=$(wimp%+28):w|
000062f0  25 3d 31 0d 03 d8 25 e7  20 69 25 3d 31 20 6e 24  |%=1...%. i%=1 n$|
00006300  3d 24 28 77 69 6d 70 25  21 32 38 29 3a 77 25 3d  |=$(wimp%!28):w%=|
00006310  77 69 6d 70 25 21 33 32  0d 03 d9 2b 21 77 69 6d  |wimp%!32...+!wim|
00006320  70 25 3d 77 69 6d 70 25  21 38 2b 6f 78 25 3a 77  |p%=wimp%!8+ox%:w|
00006330  69 6d 70 25 21 34 3d 77  69 6d 70 25 21 31 32 2b  |imp%!4=wimp%!12+|
00006340  6f 79 25 0d 03 da 2e 77  69 6d 70 25 21 38 3d 77  |oy%....wimp%!8=w|
00006350  69 6d 70 25 21 31 36 2b  6f 78 25 3a 77 69 6d 70  |imp%!16+ox%:wimp|
00006360  25 21 31 32 3d 77 69 6d  70 25 21 32 30 2b 6f 79  |%!12=wimp%!20+oy|
00006370  25 0d 03 db 2f c8 99 22  44 72 61 67 41 53 70 72  |%.../.."DragASpr|
00006380  69 74 65 5f 53 74 61 72  74 22 2c 25 31 31 30 30  |ite_Start",%1100|
00006390  31 30 31 30 2c 77 25 2c  6e 24 2c 77 69 6d 70 25  |1010,w%,n$,wimp%|
000063a0  0d 03 dc 05 e1 0d 03 dd  2e dd 20 f2 77 69 6d 70  |.......... .wimp|
000063b0  5f 63 6c 69 63 6b 65 64  73 6c 69 64 65 72 28 77  |_clickedslider(w|
000063c0  68 61 6e 25 2c 69 63 6f  6e 25 2c 6d 78 25 2c 6d  |han%,icon%,mx%,m|
000063d0  79 25 29 0d 03 de 4c ea  20 6c 65 6e 25 2c 6d 69  |y%)...L. len%,mi|
000063e0  6e 78 25 2c 6d 69 6e 79  25 2c 6d 61 78 78 25 2c  |nx%,miny%,maxx%,|
000063f0  6d 61 78 79 25 2c 6f 78  25 2c 6f 79 25 2c 6c 65  |maxy%,ox%,oy%,le|
00006400  6e 32 25 2c 6d 69 6e 78  62 25 2c 6d 69 6e 79 62  |n2%,minxb%,minyb|
00006410  25 2c 6d 61 78 78 62 25  2c 6d 61 78 79 62 25 0d  |%,maxxb%,maxyb%.|
00006420  03 df 10 21 77 69 6d 70  25 3d 77 68 61 6e 25 0d  |...!wimp%=whan%.|
00006430  03 e0 22 c8 99 22 57 69  6d 70 5f 47 65 74 57 69  |..".."Wimp_GetWi|
00006440  6e 64 6f 77 53 74 61 74  65 22 2c 2c 77 69 6d 70  |ndowState",,wimp|
00006450  25 0d 03 e1 18 6f 78 25  3d 77 69 6d 70 25 21 34  |%....ox%=wimp%!4|
00006460  2d 77 69 6d 70 25 21 32  30 0d 03 e2 19 6f 79 25  |-wimp%!20....oy%|
00006470  3d 77 69 6d 70 25 21 31  36 2d 77 69 6d 70 25 21  |=wimp%!16-wimp%!|
00006480  32 34 0d 03 e3 1e 21 77  69 6d 70 25 3d 77 68 61  |24....!wimp%=wha|
00006490  6e 25 3a 77 69 6d 70 25  21 34 3d 69 63 6f 6e 25  |n%:wimp%!4=icon%|
000064a0  0d 03 e4 20 c8 99 22 57  69 6d 70 5f 47 65 74 49  |... .."Wimp_GetI|
000064b0  63 6f 6e 53 74 61 74 65  22 2c 2c 77 69 6d 70 25  |conState",,wimp%|
000064c0  0d 03 e5 28 6d 69 6e 78  25 3d 77 69 6d 70 25 21  |...(minx%=wimp%!|
000064d0  38 2b 6f 78 25 3a 6d 61  78 78 25 3d 77 69 6d 70  |8+ox%:maxx%=wimp|
000064e0  25 21 31 36 2b 6f 78 25  0d 03 e6 29 6d 69 6e 79  |%!16+ox%...)miny|
000064f0  25 3d 77 69 6d 70 25 21  31 32 2b 6f 79 25 3a 6d  |%=wimp%!12+oy%:m|
00006500  61 78 79 25 3d 77 69 6d  70 25 21 32 30 2b 6f 79  |axy%=wimp%!20+oy|
00006510  25 0d 03 e7 22 6c 65 6e  25 3d 6d 78 25 2d 6d 69  |%..."len%=mx%-mi|
00006520  6e 78 25 3a 6c 65 6e 32  25 3d 6d 79 25 2d 6d 69  |nx%:len2%=my%-mi|
00006530  6e 79 25 0d 03 e8 36 21  77 69 6d 70 25 3d 77 68  |ny%...6!wimp%=wh|
00006540  61 6e 25 3a 77 69 6d 70  25 21 34 3d a4 75 73 65  |an%:wimp%!4=.use|
00006550  72 5f 73 6c 69 64 65 72  62 61 63 6b 28 77 68 61  |r_sliderback(wha|
00006560  6e 25 2c 69 63 6f 6e 25  29 0d 03 e9 20 c8 99 22  |n%,icon%)... .."|
00006570  57 69 6d 70 5f 47 65 74  49 63 6f 6e 53 74 61 74  |Wimp_GetIconStat|
00006580  65 22 2c 2c 77 69 6d 70  25 0d 03 ea 2a 6d 69 6e  |e",,wimp%...*min|
00006590  78 62 25 3d 77 69 6d 70  25 21 38 2b 6f 78 25 3a  |xb%=wimp%!8+ox%:|
000065a0  6d 61 78 78 62 25 3d 77  69 6d 70 25 21 31 36 2b  |maxxb%=wimp%!16+|
000065b0  6f 78 25 0d 03 eb 2b 6d  69 6e 79 62 25 3d 77 69  |ox%...+minyb%=wi|
000065c0  6d 70 25 21 31 32 2b 6f  79 25 3a 6d 61 78 79 62  |mp%!12+oy%:maxyb|
000065d0  25 3d 77 69 6d 70 25 21  32 30 2b 6f 79 25 0d 03  |%=wimp%!20+oy%..|
000065e0  ec 27 e7 20 28 6d 61 78  79 62 25 2d 6d 69 6e 79  |.'. (maxyb%-miny|
000065f0  62 25 29 3e 28 6d 61 78  78 62 25 2d 6d 69 6e 78  |b%)>(maxxb%-minx|
00006600  62 25 29 20 8c 0d 03 ed  24 20 20 f2 77 69 6d 70  |b%) ....$  .wimp|
00006610  5f 62 61 72 28 77 68 61  6e 25 2c 69 63 6f 6e 25  |_bar(whan%,icon%|
00006620  2c 6c 65 6e 32 25 2c 31  29 0d 03 ee 05 cc 0d 03  |,len2%,1).......|
00006630  ef 23 20 20 f2 77 69 6d  70 5f 62 61 72 28 77 68  |.#  .wimp_bar(wh|
00006640  61 6e 25 2c 69 63 6f 6e  25 2c 6c 65 6e 25 2c 30  |an%,icon%,len%,0|
00006650  29 0d 03 f0 05 cd 0d 03  f1 36 21 77 69 6d 70 25  |)........6!wimp%|
00006660  3d 77 68 61 6e 25 3a 77  69 6d 70 25 21 34 3d a4  |=whan%:wimp%!4=.|
00006670  75 73 65 72 5f 73 6c 69  64 65 72 62 61 63 6b 28  |user_sliderback(|
00006680  77 68 61 6e 25 2c 69 63  6f 6e 25 29 0d 03 f2 20  |whan%,icon%)... |
00006690  c8 99 22 57 69 6d 70 5f  47 65 74 49 63 6f 6e 53  |.."Wimp_GetIconS|
000066a0  74 61 74 65 22 2c 2c 77  69 6d 70 25 0d 03 f3 27  |tate",,wimp%...'|
000066b0  e7 20 28 6d 61 78 79 62  25 2d 6d 69 6e 79 62 25  |. (maxyb%-minyb%|
000066c0  29 3e 28 6d 61 78 78 62  25 2d 6d 69 6e 78 62 25  |)>(maxxb%-minxb%|
000066d0  29 20 8c 0d 03 f4 58 20  20 f2 75 73 65 72 5f 73  |) ....X  .user_s|
000066e0  6c 69 64 65 72 76 61 6c  75 65 28 77 68 61 6e 25  |lidervalue(whan%|
000066f0  2c 69 63 6f 6e 25 2c a4  77 69 6d 70 5f 63 61 6c  |,icon%,.wimp_cal|
00006700  63 73 6c 69 64 65 70 63  65 6e 74 28 77 68 61 6e  |cslidepcent(whan|
00006710  25 2c 69 63 6f 6e 25 2c  77 69 6d 70 25 21 32 30  |%,icon%,wimp%!20|
00006720  2d 77 69 6d 70 25 21 31  32 29 29 0d 03 f5 05 cc  |-wimp%!12)).....|
00006730  0d 03 f6 57 20 20 f2 75  73 65 72 5f 73 6c 69 64  |...W  .user_slid|
00006740  65 72 76 61 6c 75 65 28  77 68 61 6e 25 2c 69 63  |ervalue(whan%,ic|
00006750  6f 6e 25 2c a4 77 69 6d  70 5f 63 61 6c 63 73 6c  |on%,.wimp_calcsl|
00006760  69 64 65 70 63 65 6e 74  28 77 68 61 6e 25 2c 69  |idepcent(whan%,i|
00006770  63 6f 6e 25 2c 77 69 6d  70 25 21 31 36 2d 77 69  |con%,wimp%!16-wi|
00006780  6d 70 25 21 38 29 29 0d  03 f7 05 cd 0d 03 f8 05  |mp%!8)).........|
00006790  e1 0d 03 f9 1c dd 20 f2  77 69 6d 70 5f 71 75 69  |...... .wimp_qui|
000067a0  63 6b 73 61 76 65 28 77  68 61 6e 25 29 0d 03 fa  |cksave(whan%)...|
000067b0  0d ea 20 70 61 74 68 24  2c 51 0d 03 fb 24 70 61  |.. path$,Q...$pa|
000067c0  74 68 24 3d a4 77 69 6d  70 5f 67 65 74 69 63 6f  |th$=.wimp_getico|
000067d0  6e 74 65 78 74 28 77 68  61 6e 25 2c 31 29 0d 03  |ntext(whan%,1)..|
000067e0  fc 13 e7 20 a7 70 61 74  68 24 2c 22 2e 22 29 20  |... .path$,".") |
000067f0  8c 0d 03 fd 21 51 3d a4  75 73 65 72 5f 73 61 76  |....!Q=.user_sav|
00006800  65 64 61 74 61 28 70 61  74 68 24 2c 77 68 61 6e  |edata(path$,whan|
00006810  25 29 0d 03 fe 2c e7 20  51 3d 32 20 8c 20 f2 77  |%)...,. Q=2 . .w|
00006820  69 6d 70 5f 65 72 72 6f  72 28 22 4d 65 73 73 61  |imp_error("Messa|
00006830  67 65 22 2c f6 24 2c 31  2c 30 29 20 3a e1 0d 03  |ge",.$,1,0) :...|
00006840  ff 0b e7 20 51 3d 30 20  e1 0d 04 00 33 ff 22 53  |... Q=0 ....3."S|
00006850  65 74 54 79 70 65 20 22  2b 70 61 74 68 24 2b 22  |etType "+path$+"|
00006860  20 22 2b a4 75 73 65 72  5f 73 61 76 65 66 69 6c  | "+.user_savefil|
00006870  65 74 79 70 65 28 77 68  61 6e 25 29 0d 04 01 05  |etype(whan%)....|
00006880  cc 0d 04 02 5c f2 77 69  6d 70 5f 65 72 72 6f 72  |....\.wimp_error|
00006890  28 22 4d 65 73 73 61 67  65 22 2c 22 54 6f 20 73  |("Message","To s|
000068a0  61 76 65 2c 20 64 72 61  67 20 74 68 65 20 69 63  |ave, drag the ic|
000068b0  6f 6e 20 74 6f 20 61 20  64 69 72 65 63 74 6f 72  |on to a director|
000068c0  79 20 76 69 65 77 65 72  20 6f 72 20 61 70 70 6c  |y viewer or appl|
000068d0  69 63 61 74 69 6f 6e 22  2c 31 2c 30 29 0d 04 03  |ication",1,0)...|
000068e0  05 cd 0d 04 04 05 e1 0d  04 05 2c dd 20 a4 77 69  |..........,. .wi|
000068f0  6d 70 5f 73 63 72 65 65  6e 74 6f 77 6f 72 6b 28  |mp_screentowork(|
00006900  77 68 61 6e 25 2c 63 6f  6f 72 64 25 2c 73 69 64  |whan%,coord%,sid|
00006910  65 25 29 0d 04 06 08 ea  20 66 25 0d 04 07 36 77  |e%)..... f%...6w|
00006920  69 6d 70 25 21 30 3d 77  68 61 6e 25 3a c8 99 22  |imp%!0=whan%:.."|
00006930  58 57 69 6d 70 5f 47 65  74 57 69 6e 64 6f 77 49  |XWimp_GetWindowI|
00006940  6e 66 6f 22 2c 2c 77 69  6d 70 25 20 b8 20 3b 66  |nfo",,wimp% . ;f|
00006950  25 0d 04 08 13 e7 20 28  66 25 20 80 20 31 29 3d  |%..... (f% . 1)=|
00006960  31 20 3d 30 0d 04 09 26  e7 20 73 69 64 65 25 3d  |1 =0...&. side%=|
00006970  30 20 3d 63 6f 6f 72 64  25 2b 77 69 6d 70 25 21  |0 =coord%+wimp%!|
00006980  32 30 2d 77 69 6d 70 25  21 34 0d 04 0a 27 e7 20  |20-wimp%!4...'. |
00006990  73 69 64 65 25 3d 31 20  3d 63 6f 6f 72 64 25 2b  |side%=1 =coord%+|
000069a0  77 69 6d 70 25 21 32 34  2d 77 69 6d 70 25 21 31  |wimp%!24-wimp%!1|
000069b0  36 0d 04 0b 06 3d 30 0d  04 0c 1b dd 20 a4 77 69  |6....=0..... .wi|
000069c0  6d 70 5f 6d 65 6e 75 73  69 7a 65 28 6d 68 61 6e  |mp_menusize(mhan|
000069d0  25 29 0d 04 0d 15 ea 20  77 70 74 72 25 2c 65 2c  |%)..... wptr%,e,|
000069e0  6c 2c 66 6c 61 67 25 0d  04 0e 07 65 3d a3 0d 04  |l,flag%....e=...|
000069f0  0f 11 77 70 74 72 25 3d  6d 68 61 6e 25 2b 34 0d  |..wptr%=mhan%+4.|
00006a00  04 10 07 6c 3d 30 0d 04  11 05 f5 0d 04 12 0d 77  |...l=0.........w|
00006a10  70 74 72 25 2b 3d 32 34  0d 04 13 08 6c 2b 3d 31  |ptr%+=24....l+=1|
00006a20  0d 04 14 11 66 6c 61 67  25 3d 77 70 74 72 25 21  |....flag%=wptr%!|
00006a30  30 0d 04 15 12 66 6c 61  67 25 3d 66 6c 61 67 25  |0....flag%=flag%|
00006a40  3e 3e 37 0d 04 16 17 e7  20 28 66 6c 61 67 25 20  |>>7..... (flag% |
00006a50  80 20 31 29 3d 31 20 65  3d b9 0d 04 17 09 fd 20  |. 1)=1 e=...... |
00006a60  65 3d b9 0d 04 18 06 3d  6c 0d 04 19 19 dd 20 f2  |e=.....=l..... .|
00006a70  77 69 6d 70 5f 65 6e 64  73 6c 69 64 65 72 64 72  |wimp_endsliderdr|
00006a80  61 67 0d 04 1a 12 77 73  6c 69 64 65 64 72 61 67  |ag....wslidedrag|
00006a90  25 3d 2d 31 0d 04 1b 15  e7 20 77 73 68 65 69 25  |%=-1..... wshei%|
00006aa0  3e 77 73 77 69 64 25 20  8c 0d 04 1c 59 20 20 f2  |>wswid% ....Y  .|
00006ab0  75 73 65 72 5f 73 6c 69  64 65 72 76 61 6c 75 65  |user_slidervalue|
00006ac0  28 77 73 6c 69 64 65 77  25 2c 77 73 6c 69 64 65  |(wslidew%,wslide|
00006ad0  69 25 2c a4 77 69 6d 70  5f 63 61 6c 63 73 6c 69  |i%,.wimp_calcsli|
00006ae0  64 65 70 63 65 6e 74 28  77 73 6c 69 64 65 77 25  |depcent(wslidew%|
00006af0  2c 77 73 6c 69 64 65 69  25 2c 77 73 68 65 69 25  |,wslidei%,wshei%|
00006b00  29 29 0d 04 1d 05 cc 0d  04 1e 59 20 20 f2 75 73  |))........Y  .us|
00006b10  65 72 5f 73 6c 69 64 65  72 76 61 6c 75 65 28 77  |er_slidervalue(w|
00006b20  73 6c 69 64 65 77 25 2c  77 73 6c 69 64 65 69 25  |slidew%,wslidei%|
00006b30  2c a4 77 69 6d 70 5f 63  61 6c 63 73 6c 69 64 65  |,.wimp_calcslide|
00006b40  70 63 65 6e 74 28 77 73  6c 69 64 65 77 25 2c 77  |pcent(wslidew%,w|
00006b50  73 6c 69 64 65 69 25 2c  77 73 77 69 64 25 29 29  |slidei%,wswid%))|
00006b60  0d 04 1f 05 cd 0d 04 20  05 e1 0d 04 21 26 dd 20  |....... ....!&. |
00006b70  f2 77 69 6d 70 5f 67 65  74 6d 65 6e 75 61 6e 64  |.wimp_getmenuand|
00006b80  69 74 65 6d 28 77 6c 61  73 74 6d 65 6e 75 25 29  |item(wlastmenu%)|
00006b90  0d 04 22 07 ea 20 71 0d  04 23 39 e7 20 28 77 69  |..".. q..#9. (wi|
00006ba0  6d 70 25 21 34 29 3d 2d  31 20 77 6d 65 6e 75 25  |mp%!4)=-1 wmenu%|
00006bb0  3d 77 6c 61 73 74 6d 65  6e 75 25 3a 77 69 74 65  |=wlastmenu%:wite|
00006bc0  6d 25 3d 28 77 69 6d 70  25 21 30 29 2b 31 3a e1  |m%=(wimp%!0)+1:.|
00006bd0  0d 04 24 07 71 3d 30 0d  04 25 15 77 6d 65 6e 75  |..$.q=0..%.wmenu|
00006be0  25 3d 77 6c 61 73 74 6d  65 6e 75 25 0d 04 26 05  |%=wlastmenu%..&.|
00006bf0  f5 0d 04 27 33 77 6d 65  6e 75 25 3d a4 77 69 6d  |...'3wmenu%=.wim|
00006c00  70 5f 66 69 6e 64 73 75  62 6d 65 6e 75 70 74 72  |p_findsubmenuptr|
00006c10  28 77 6d 65 6e 75 25 2c  28 77 69 6d 70 25 21 71  |(wmenu%,(wimp%!q|
00006c20  29 2b 31 29 0d 04 28 08  71 2b 3d 34 0d 04 29 16  |)+1)..(.q+=4..).|
00006c30  fd 20 28 77 69 6d 70 25  21 28 71 2b 34 29 29 3d  |. (wimp%!(q+4))=|
00006c40  2d 31 0d 04 2a 16 77 69  74 65 6d 25 3d 28 77 69  |-1..*.witem%=(wi|
00006c50  6d 70 25 21 71 29 2b 31  0d 04 2b 05 e1 0d 04 2c  |mp%!q)+1..+....,|
00006c60  17 dd 20 f2 77 69 6d 70  5f 64 61 74 61 6c 6f 61  |.. .wimp_dataloa|
00006c70  64 61 70 70 0d 04 2d 16  e7 20 77 69 6d 70 25 21  |dapp..-.. wimp%!|
00006c80  34 3d 77 74 61 73 6b 25  20 e1 0d 04 2e 0e 77 69  |4=wtask% .....wi|
00006c90  6d 70 25 21 31 36 3d 32  0d 04 2f 0f 77 69 6d 70  |mp%!16=2../.wimp|
00006ca0  25 21 33 36 3d 2d 31 0d  04 30 14 77 69 6d 70 25  |%!36=-1..0.wimp%|
00006cb0  21 31 32 3d 77 69 6d 70  25 21 38 0d 04 31 30 f2  |!12=wimp%!8..10.|
00006cc0  77 69 6d 70 5f 7a 65 72  6f 74 65 72 6d 69 6e 61  |wimp_zerotermina|
00006cd0  74 65 28 77 69 6d 70 25  2b 34 34 2c 22 3c 57 69  |te(wimp%+44,"<Wi|
00006ce0  6d 70 24 53 63 72 61 70  3e 22 29 0d 04 32 32 c8  |mp$Scrap>")..22.|
00006cf0  99 22 57 69 6d 70 5f 53  65 6e 64 4d 65 73 73 61  |."Wimp_SendMessa|
00006d00  67 65 22 2c 31 37 2c 77  69 6d 70 25 2c 77 69 6d  |ge",17,wimp%,wim|
00006d10  70 25 21 34 2c 77 69 6d  70 25 21 32 34 0d 04 33  |p%!4,wimp%!24..3|
00006d20  05 e1 0d 04 34 14 dd 20  f2 77 69 6d 70 5f 64 61  |....4.. .wimp_da|
00006d30  74 61 73 61 76 65 0d 04  35 0e ea 20 70 61 74 68  |tasave..5.. path|
00006d40  24 2c 51 25 0d 04 36 20  70 61 74 68 24 3d a4 77  |$,Q%..6 path$=.w|
00006d50  69 6d 70 5f 73 74 72 69  6e 67 28 77 69 6d 70 25  |imp_string(wimp%|
00006d60  2b 34 34 29 0d 04 37 12  f2 77 69 6d 70 5f 73 61  |+44)..7..wimp_sa|
00006d70  76 65 77 69 6d 70 0d 04  38 24 51 25 3d a4 75 73  |vewimp..8$Q%=.us|
00006d80  65 72 5f 73 61 76 65 64  61 74 61 28 70 61 74 68  |er_savedata(path|
00006d90  24 2c 77 73 61 76 65 77  25 29 0d 04 39 12 f2 77  |$,wsavew%)..9..w|
00006da0  69 6d 70 5f 6c 6f 61 64  77 69 6d 70 0d 04 3a 2d  |imp_loadwimp..:-|
00006db0  e7 20 51 25 3d 32 20 8c  20 f2 77 69 6d 70 5f 65  |. Q%=2 . .wimp_e|
00006dc0  72 72 6f 72 28 22 4d 65  73 73 61 67 65 22 2c f6  |rror("Message",.|
00006dd0  24 2c 31 2c 30 29 20 3a  e1 0d 04 3b 0c e7 20 51  |$,1,0) :...;.. Q|
00006de0  25 3d 30 20 e1 0d 04 3c  21 ff 22 53 65 74 54 79  |%=0 ...<!."SetTy|
00006df0  70 65 20 22 2b 70 61 74  68 24 2b 22 20 22 2b 77  |pe "+path$+" "+w|
00006e00  73 61 76 65 74 24 0d 04  3d 14 77 69 6d 70 25 21  |savet$..=.wimp%!|
00006e10  31 32 3d 77 69 6d 70 25  21 38 0d 04 3e 0e 77 69  |12=wimp%!8..>.wi|
00006e20  6d 70 25 21 31 36 3d 33  0d 04 3f 0e 21 77 69 6d  |mp%!16=3..?.!wim|
00006e30  70 25 3d 32 35 36 0d 04  40 33 c8 99 22 57 69 6d  |p%=256..@3.."Wim|
00006e40  70 5f 53 65 6e 64 4d 65  73 73 61 67 65 22 2c 31  |p_SendMessage",1|
00006e50  38 2c 77 69 6d 70 25 2c  77 69 6d 70 25 21 32 30  |8,wimp%,wimp%!20|
00006e60  2c 77 69 6d 70 25 21 32  34 0d 04 41 3e e7 20 70  |,wimp%!24..A>. p|
00006e70  61 74 68 24 3c 3e 22 3c  57 69 6d 70 24 53 63 72  |ath$<>"<Wimp$Scr|
00006e80  61 70 3e 22 20 f2 77 69  6d 70 5f 70 75 74 69 63  |ap>" .wimp_putic|
00006e90  6f 6e 74 65 78 74 28 77  73 61 76 65 77 25 2c 31  |ontext(wsavew%,1|
00006ea0  2c 70 61 74 68 24 29 0d  04 42 05 e1 0d 04 43 1b  |,path$)..B....C.|
00006eb0  dd 20 f2 77 69 6d 70 5f  64 61 74 61 6c 6f 61 64  |. .wimp_dataload|
00006ec0  28 74 79 70 65 25 29 0d  04 44 26 ea 20 77 68 61  |(type%)..D&. wha|
00006ed0  6e 25 2c 69 63 6f 6e 25  2c 66 74 79 70 65 24 2c  |n%,icon%,ftype$,|
00006ee0  70 61 74 68 24 2c 70 2c  78 25 2c 79 25 0d 04 45  |path$,p,x%,y%..E|
00006ef0  12 77 68 61 6e 25 3d 77  69 6d 70 25 21 32 30 0d  |.whan%=wimp%!20.|
00006f00  04 46 12 69 63 6f 6e 25  3d 77 69 6d 70 25 21 32  |.F.icon%=wimp%!2|
00006f10  34 0d 04 47 17 66 74 79  70 65 24 3d c3 7e 28 77  |4..G.ftype$=.~(w|
00006f20  69 6d 70 25 21 34 30 29  0d 04 48 20 70 61 74 68  |imp%!40)..H path|
00006f30  24 3d a4 77 69 6d 70 5f  73 74 72 69 6e 67 28 77  |$=.wimp_string(w|
00006f40  69 6d 70 25 2b 34 34 29  0d 04 49 12 f2 77 69 6d  |imp%+44)..I..wim|
00006f50  70 5f 73 61 76 65 77 69  6d 70 0d 04 4a 1d e7 20  |p_savewimp..J.. |
00006f60  74 79 70 65 25 3d 35 20  77 68 61 6e 25 3d 30 3a  |type%=5 whan%=0:|
00006f70  69 63 6f 6e 25 3d 30 0d  04 4b 1b 78 25 3d 77 69  |icon%=0..K.x%=wi|
00006f80  6d 70 25 21 32 38 3a 79  25 3d 77 69 6d 70 25 21  |mp%!28:y%=wimp%!|
00006f90  33 32 0d 04 4c 47 78 25  3d a4 77 69 6d 70 5f 73  |32..LGx%=.wimp_s|
00006fa0  63 72 65 65 6e 74 6f 77  6f 72 6b 28 77 68 61 6e  |creentowork(whan|
00006fb0  25 2c 78 25 2c 30 29 3a  79 25 3d a4 77 69 6d 70  |%,x%,0):y%=.wimp|
00006fc0  5f 73 63 72 65 65 6e 74  6f 77 6f 72 6b 28 77 68  |_screentowork(wh|
00006fd0  61 6e 25 2c 79 25 2c 31  29 0d 04 4d 34 70 3d a4  |an%,y%,1)..M4p=.|
00006fe0  75 73 65 72 5f 6c 6f 61  64 64 61 74 61 28 70 61  |user_loaddata(pa|
00006ff0  74 68 24 2c 77 68 61 6e  25 2c 69 63 6f 6e 25 2c  |th$,whan%,icon%,|
00007000  66 74 79 70 65 24 2c 78  25 2c 79 25 29 0d 04 4e  |ftype$,x%,y%)..N|
00007010  12 f2 77 69 6d 70 5f 6c  6f 61 64 77 69 6d 70 0d  |..wimp_loadwimp.|
00007020  04 4f 1b e7 20 70 3d 31  20 f2 77 69 6d 70 5f 64  |.O.. p=1 .wimp_d|
00007030  61 74 61 6c 6f 61 64 61  63 6b 0d 04 50 05 e1 0d  |ataloadack..P...|
00007040  04 51 16 dd 20 f2 77 69  6d 70 5f 71 75 69 74 69  |.Q.. .wimp_quiti|
00007050  73 73 75 65 64 0d 04 52  12 f2 77 69 6d 70 5f 73  |ssued..R..wimp_s|
00007060  61 76 65 77 69 6d 70 0d  04 53 17 e7 20 a4 75 73  |avewimp..S.. .us|
00007070  65 72 5f 71 75 69 74 28  31 29 3d 30 20 8c 0d 04  |er_quit(1)=0 ...|
00007080  54 14 20 20 f2 77 69 6d  70 5f 6c 6f 61 64 77 69  |T.  .wimp_loadwi|
00007090  6d 70 0d 04 55 1a 20 20  77 71 75 69 74 73 65 6e  |mp..U.  wquitsen|
000070a0  64 65 72 25 3d 77 69 6d  70 25 21 34 0d 04 56 16  |der%=wimp%!4..V.|
000070b0  20 20 77 69 6d 70 25 21  31 32 3d 77 69 6d 70 25  |  wimp%!12=wimp%|
000070c0  21 38 0d 04 57 23 20 20  c8 99 22 57 69 6d 70 5f  |!8..W#  .."Wimp_|
000070d0  53 65 6e 64 4d 65 73 73  61 67 65 22 2c 31 39 2c  |SendMessage",19,|
000070e0  77 69 6d 70 25 0d 04 58  05 cc 0d 04 59 12 20 20  |wimp%..X....Y.  |
000070f0  77 73 68 75 74 64 6f 77  6e 25 3d 31 0d 04 5a 05  |wshutdown%=1..Z.|
00007100  cd 0d 04 5b 05 e1 0d 04  5c 10 dd 20 f2 77 69 6d  |...[....\.. .wim|
00007110  70 5f 68 65 6c 70 0d 04  5d 34 ea 20 68 65 6c 70  |p_help..]4. help|
00007120  25 2c 77 68 61 6e 25 2c  69 63 6f 6e 25 2c 72 65  |%,whan%,icon%,re|
00007130  66 25 2c 68 65 6c 70 24  2c 64 65 73 74 25 2c 6d  |f%,help$,dest%,m|
00007140  77 68 61 6e 25 2c 73 75  62 25 0d 04 5e 11 64 65  |whan%,sub%..^.de|
00007150  73 74 25 3d 77 69 6d 70  25 21 34 0d 04 5f 10 72  |st%=wimp%!4.._.r|
00007160  65 66 25 3d 77 69 6d 70  25 21 38 0d 04 60 12 77  |ef%=wimp%!8..`.w|
00007170  68 61 6e 25 3d 77 69 6d  70 25 21 33 32 0d 04 61  |han%=wimp%!32..a|
00007180  12 69 63 6f 6e 25 3d 77  69 6d 70 25 21 33 36 0d  |.icon%=wimp%!36.|
00007190  04 62 0c 68 65 6c 70 24  3d 22 22 0d 04 63 22 c8  |.b.help$=""..c".|
000071a0  99 22 57 69 6d 70 5f 47  65 74 50 6f 69 6e 74 65  |."Wimp_GetPointe|
000071b0  72 49 6e 66 6f 22 2c 2c  77 69 6d 70 25 0d 04 64  |rInfo",,wimp%..d|
000071c0  13 6d 77 68 61 6e 25 3d  77 69 6d 70 25 21 31 32  |.mwhan%=wimp%!12|
000071d0  0d 04 65 2d c8 99 22 57  69 6d 70 5f 47 65 74 4d  |..e-.."Wimp_GetM|
000071e0  65 6e 75 53 74 61 74 65  22 2c 31 2c 77 69 6d 70  |enuState",1,wimp|
000071f0  25 2c 77 68 61 6e 25 2c  69 63 6f 6e 25 0d 04 66  |%,whan%,icon%..f|
00007200  12 e7 20 21 77 69 6d 70  25 3c 3e 2d 31 20 8c 0d  |.. !wimp%<>-1 ..|
00007210  04 67 26 20 20 f2 77 69  6d 70 5f 67 65 74 6d 65  |.g&  .wimp_getme|
00007220  6e 75 61 6e 64 69 74 65  6d 28 77 6c 61 73 74 6d  |nuanditem(wlastm|
00007230  65 6e 75 25 29 0d 04 68  22 20 20 73 75 62 25 3d  |enu%)..h"  sub%=|
00007240  21 28 77 6d 65 6e 75 25  2b 38 2b 28 77 69 74 65  |!(wmenu%+8+(wite|
00007250  6d 25 2a 32 34 29 29 0d  04 69 15 20 20 e7 20 73  |m%*24))..i.  . s|
00007260  75 62 25 3d 6d 77 68 61  6e 25 20 8c 0d 04 6a 16  |ub%=mwhan% ...j.|
00007270  20 20 20 20 f2 77 69 6d  70 5f 73 61 76 65 77 69  |    .wimp_savewi|
00007280  6d 70 0d 04 6b 25 20 20  20 20 68 65 6c 70 24 3d  |mp..k%    help$=|
00007290  a4 75 73 65 72 5f 68 65  6c 70 28 77 68 61 6e 25  |.user_help(whan%|
000072a0  2c 69 63 6f 6e 25 29 0d  04 6c 16 20 20 20 20 f2  |,icon%)..l.    .|
000072b0  77 69 6d 70 5f 6c 6f 61  64 77 69 6d 70 0d 04 6d  |wimp_loadwimp..m|
000072c0  07 20 20 cc 0d 04 6e 16  20 20 20 20 f2 77 69 6d  |.  ...n.    .wim|
000072d0  70 5f 73 61 76 65 77 69  6d 70 0d 04 6f 2b 20 20  |p_savewimp..o+  |
000072e0  20 20 68 65 6c 70 24 3d  a4 75 73 65 72 5f 6d 65  |  help$=.user_me|
000072f0  6e 75 68 65 6c 70 28 77  6d 65 6e 75 25 2c 77 69  |nuhelp(wmenu%,wi|
00007300  74 65 6d 25 29 0d 04 70  16 20 20 20 20 f2 77 69  |tem%)..p.    .wi|
00007310  6d 70 5f 6c 6f 61 64 77  69 6d 70 0d 04 71 07 20  |mp_loadwimp..q. |
00007320  20 cd 0d 04 72 05 cc 0d  04 73 14 20 20 f2 77 69  | ...r....s.  .wi|
00007330  6d 70 5f 73 61 76 65 77  69 6d 70 0d 04 74 23 20  |mp_savewimp..t# |
00007340  20 68 65 6c 70 24 3d a4  75 73 65 72 5f 68 65 6c  | help$=.user_hel|
00007350  70 28 77 68 61 6e 25 2c  69 63 6f 6e 25 29 0d 04  |p(whan%,icon%)..|
00007360  75 14 20 20 f2 77 69 6d  70 5f 6c 6f 61 64 77 69  |u.  .wimp_loadwi|
00007370  6d 70 0d 04 76 05 cd 0d  04 77 14 68 65 6c 70 24  |mp..v....w.help$|
00007380  3d 68 65 6c 70 24 2b 22  7c 4d 22 0d 04 78 1b 21  |=help$+"|M"..x.!|
00007390  77 69 6d 70 25 3d 28 a9  28 68 65 6c 70 24 29 2b  |wimp%=(.(help$)+|
000073a0  32 34 29 80 ac 33 0d 04  79 11 77 69 6d 70 25 21  |24)..3..y.wimp%!|
000073b0  34 3d 64 65 73 74 25 0d  04 7a 11 77 69 6d 70 25  |4=dest%..z.wimp%|
000073c0  21 31 32 3d 72 65 66 25  0d 04 7b 11 77 69 6d 70  |!12=ref%..{.wimp|
000073d0  25 21 31 36 3d 26 35 30  33 0d 04 7c 15 24 28 77  |%!16=&503..|.$(w|
000073e0  69 6d 70 25 2b 32 30 29  3d 68 65 6c 70 24 0d 04  |imp%+20)=help$..|
000073f0  7d 29 c8 99 22 57 69 6d  70 5f 53 65 6e 64 4d 65  |}).."Wimp_SendMe|
00007400  73 73 61 67 65 22 2c 31  37 2c 77 69 6d 70 25 2c  |ssage",17,wimp%,|
00007410  77 69 6d 70 25 21 34 0d  04 7e 05 e1 0d 04 7f 17  |wimp%!4..~......|
00007420  dd 20 f2 77 69 6d 70 5f  6f 70 65 6e 73 75 62 6d  |. .wimp_opensubm|
00007430  65 6e 75 0d 04 80 36 c8  99 22 57 69 6d 70 5f 43  |enu...6.."Wimp_C|
00007440  72 65 61 74 65 53 75 62  4d 65 6e 75 22 2c 2c 77  |reateSubMenu",,w|
00007450  69 6d 70 25 21 32 30 2c  77 69 6d 70 25 21 32 34  |imp%!20,wimp%!24|
00007460  2c 77 69 6d 70 25 21 32  38 0d 04 81 22 f2 77 69  |,wimp%!28...".wi|
00007470  6d 70 5f 6d 65 6e 75 6a  75 73 74 6f 70 65 6e 65  |mp_menujustopene|
00007480  64 28 77 69 6d 70 25 21  32 30 29 0d 04 82 05 e1  |d(wimp%!20).....|
00007490  0d 04 83 22 dd 20 a4 77  69 6d 70 5f 6e 75 6d 62  |...". .wimp_numb|
000074a0  65 72 6f 66 65 6e 74 72  69 65 73 28 6d 65 6e 75  |erofentries(menu|
000074b0  24 29 0d 04 84 0d ea 20  74 6f 74 61 6c 2c 4c 0d  |$)..... total,L.|
000074c0  04 85 0b 74 6f 74 61 6c  3d 31 0d 04 86 14 e3 20  |...total=1..... |
000074d0  4c 3d 31 20 b8 20 a9 28  6d 65 6e 75 24 29 0d 04  |L=1 . .(menu$)..|
000074e0  87 1e e7 20 c1 6d 65 6e  75 24 2c 4c 2c 31 29 3d  |... .menu$,L,1)=|
000074f0  22 2f 22 20 74 6f 74 61  6c 2b 3d 31 0d 04 88 07  |"/" total+=1....|
00007500  ed 20 4c 0d 04 89 0a 3d  74 6f 74 61 6c 0d 04 8a  |. L....=total...|
00007510  24 dd 20 f2 77 69 6d 70  5f 64 65 63 6f 64 65 6d  |$. .wimp_decodem|
00007520  65 6e 75 65 6e 74 72 79  28 6d 65 6e 75 24 2c 6e  |enuentry(menu$,n|
00007530  29 0d 04 8b 10 ea 20 4d  2c 70 2c 6f 6d 65 6e 75  |)..... M,p,omenu|
00007540  24 0d 04 8c 07 4d 3d 30  0d 04 8d 07 70 3d 31 0d  |$....M=0....p=1.|
00007550  04 8e 05 f5 0d 04 8f 1a  e7 20 c1 6d 65 6e 75 24  |......... .menu$|
00007560  2c 4d 2c 31 29 3d 22 2f  22 20 70 2b 3d 31 0d 04  |,M,1)="/" p+=1..|
00007570  90 08 4d 2b 3d 31 0d 04  91 09 fd 20 70 3d 6e 0d  |..M+=1..... p=n.|
00007580  04 92 10 6f 6d 65 6e 75  24 3d 6d 65 6e 75 24 0d  |...omenu$=menu$.|
00007590  04 93 23 6f 6d 65 6e 75  24 3d c2 6f 6d 65 6e 75  |..#omenu$=.omenu|
000075a0  24 2c a9 28 6f 6d 65 6e  75 24 29 2d 28 4d 2d 31  |$,.(omenu$)-(M-1|
000075b0  29 29 0d 04 94 12 70 3d  a7 6f 6d 65 6e 75 24 2c  |))....p=.omenu$,|
000075c0  22 2f 22 29 0d 04 95 1d  e7 20 70 3e 30 20 6f 6d  |"/")..... p>0 om|
000075d0  65 6e 75 24 3d c0 6f 6d  65 6e 75 24 2c 70 2d 31  |enu$=.omenu$,p-1|
000075e0  29 0d 04 96 12 70 3d a7  6f 6d 65 6e 75 24 2c 22  |)....p=.omenu$,"|
000075f0  3e 22 29 0d 04 97 24 e7  20 70 3d 30 20 69 74 65  |>")...$. p=0 ite|
00007600  6d 24 3d 6f 6d 65 6e 75  24 3a 77 73 75 62 70 74  |m$=omenu$:wsubpt|
00007610  72 25 3d 2d 31 3a e1 0d  04 98 16 69 74 65 6d 24  |r%=-1:.....item$|
00007620  3d c0 6f 6d 65 6e 75 24  2c 70 2d 31 29 0d 04 99  |=.omenu$,p-1)...|
00007630  38 f4 20 77 73 75 62 70  74 72 25 3d 46 4e 77 69  |8. wsubptr%=FNwi|
00007640  6d 70 5f 65 76 61 6c 28  52 49 47 48 54 24 28 6f  |mp_eval(RIGHT$(o|
00007650  6d 65 6e 75 24 2c 4c 45  4e 28 6f 6d 65 6e 75 24  |menu$,LEN(omenu$|
00007660  29 2d 70 29 29 0d 04 9a  0f 77 73 75 62 70 74 72  |)-p))....wsubptr|
00007670  25 3d 2d 31 0d 04 9b 05  e1 0d 04 9c 26 dd 20 f2  |%=-1........&. .|
00007680  77 69 6d 70 5f 62 61 72  28 77 68 61 6e 25 2c 69  |wimp_bar(whan%,i|
00007690  63 6f 6e 25 2c 6c 65 6e  25 2c 64 69 72 25 29 0d  |con%,len%,dir%).|
000076a0  04 9d 3c ea 20 6d 69 6e  78 25 2c 6d 69 6e 79 25  |..<. minx%,miny%|
000076b0  2c 6d 61 78 78 25 2c 6d  61 78 79 25 2c 66 6c 61  |,maxx%,maxy%,fla|
000076c0  67 25 2c 64 61 74 61 25  2c 62 6f 72 64 65 72 2c  |g%,data%,border,|
000076d0  66 69 6c 6c 65 64 2c 6f  6c 64 62 0d 04 9e 07 52  |filled,oldb....R|
000076e0  3d a3 0d 04 9f 1f 77 69  6d 70 25 21 30 3d 77 68  |=.....wimp%!0=wh|
000076f0  61 6e 25 3a 77 69 6d 70  25 21 34 3d 69 63 6f 6e  |an%:wimp%!4=icon|
00007700  25 0d 04 a0 20 c8 99 22  57 69 6d 70 5f 47 65 74  |%... .."Wimp_Get|
00007710  49 63 6f 6e 53 74 61 74  65 22 2c 2c 77 69 6d 70  |IconState",,wimp|
00007720  25 0d 04 a1 20 6d 69 6e  78 25 3d 77 69 6d 70 25  |%... minx%=wimp%|
00007730  21 38 3a 6d 69 6e 79 25  3d 77 69 6d 70 25 21 31  |!8:miny%=wimp%!1|
00007740  32 0d 04 a2 21 6d 61 78  78 25 3d 77 69 6d 70 25  |2...!maxx%=wimp%|
00007750  21 31 36 3a 6d 61 78 79  25 3d 77 69 6d 70 25 21  |!16:maxy%=wimp%!|
00007760  32 30 0d 04 a3 21 66 6c  61 67 25 3d 77 69 6d 70  |20...!flag%=wimp|
00007770  25 21 32 34 3a 64 61 74  61 25 3d 77 69 6d 70 25  |%!24:data%=wimp%|
00007780  21 32 38 0d 04 a4 19 66  69 6c 6c 65 64 3d 28 66  |!28....filled=(f|
00007790  6c 61 67 25 3e 3e 35 29  20 80 20 31 0d 04 a5 19  |lag%>>5) . 1....|
000077a0  62 6f 72 64 65 72 3d 28  66 6c 61 67 25 3e 3e 32  |border=(flag%>>2|
000077b0  29 20 80 20 31 0d 04 a6  18 6f 6c 64 62 3d 28 66  |) . 1....oldb=(f|
000077c0  6c 61 67 25 3e 3e 31 31  29 20 80 20 31 0d 04 a7  |lag%>>11) . 1...|
000077d0  13 e7 20 6c 65 6e 25 3c  30 20 6c 65 6e 25 3d 30  |.. len%<0 len%=0|
000077e0  0d 04 a8 19 e7 20 6c 65  6e 25 3d 30 20 80 20 66  |..... len%=0 . f|
000077f0  69 6c 6c 65 64 3d 30 20  e1 0d 04 a9 5d e7 20 6c  |illed=0 ....]. l|
00007800  65 6e 25 3d 30 20 f2 77  69 6d 70 5f 7a 65 72 6f  |en%=0 .wimp_zero|
00007810  6c 65 6e 67 74 68 62 61  72 28 62 6f 72 64 65 72  |lengthbar(border|
00007820  29 3a c8 99 22 57 69 6d  70 5f 46 6f 72 63 65 52  |):.."Wimp_ForceR|
00007830  65 64 72 61 77 22 2c 77  68 61 6e 25 2c 6d 69 6e  |edraw",whan%,min|
00007840  78 25 2c 6d 69 6e 79 25  2c 6d 61 78 78 25 2c 6d  |x%,miny%,maxx%,m|
00007850  61 78 79 25 3a e1 0d 04  aa 1e c8 99 22 57 69 6d  |axy%:......."Wim|
00007860  70 5f 44 65 6c 65 74 65  49 63 6f 6e 22 2c 2c 77  |p_DeleteIcon",,w|
00007870  69 6d 70 25 0d 04 ab 0e  e7 20 64 69 72 25 3d 30  |imp%..... dir%=0|
00007880  20 8c 0d 04 ac 11 20 20  6c 65 6e 25 2b 3d 6d 69  | .....  len%+=mi|
00007890  6e 78 25 0d 04 ad 21 20  20 77 69 6d 70 25 21 34  |nx%...!  wimp%!4|
000078a0  3d 6d 69 6e 78 25 3a 77  69 6d 70 25 21 38 3d 6d  |=minx%:wimp%!8=m|
000078b0  69 6e 79 25 0d 04 ae 22  20 20 77 69 6d 70 25 21  |iny%..."  wimp%!|
000078c0  31 32 3d 6c 65 6e 25 3a  77 69 6d 70 25 21 31 36  |12=len%:wimp%!16|
000078d0  3d 6d 61 78 79 25 0d 04  af 05 cc 0d 04 b0 15 20  |=maxy%......... |
000078e0  20 6c 65 6e 25 3d 6d 69  6e 79 25 2b 6c 65 6e 25  | len%=miny%+len%|
000078f0  0d 04 b1 21 20 20 77 69  6d 70 25 21 34 3d 6d 69  |...!  wimp%!4=mi|
00007900  6e 78 25 3a 77 69 6d 70  25 21 38 3d 6d 69 6e 79  |nx%:wimp%!8=miny|
00007910  25 0d 04 b2 22 20 20 77  69 6d 70 25 21 31 32 3d  |%..."  wimp%!12=|
00007920  6d 61 78 78 25 3a 77 69  6d 70 25 21 31 36 3d 6c  |maxx%:wimp%!16=l|
00007930  65 6e 25 0d 04 b3 05 cd  0d 04 b4 21 77 69 6d 70  |en%........!wimp|
00007940  25 21 32 30 3d 66 6c 61  67 25 3a 77 69 6d 70 25  |%!20=flag%:wimp%|
00007950  21 32 34 3d 64 61 74 61  25 0d 04 b5 1e c8 99 22  |!24=data%......"|
00007960  57 69 6d 70 5f 43 72 65  61 74 65 49 63 6f 6e 22  |Wimp_CreateIcon"|
00007970  2c 2c 77 69 6d 70 25 0d  04 b6 1f 77 69 6d 70 25  |,,wimp%....wimp%|
00007980  21 30 3d 77 68 61 6e 25  3a 77 69 6d 70 25 21 34  |!0=whan%:wimp%!4|
00007990  3d 69 63 6f 6e 25 0d 04  b7 10 e7 20 66 69 6c 6c  |=icon%..... fill|
000079a0  65 64 3d 30 20 8c 0d 04  b8 1c 20 20 77 69 6d 70  |ed=0 .....  wimp|
000079b0  25 21 38 3d 33 32 3a 77  69 6d 70 25 21 31 32 3d  |%!8=32:wimp%!12=|
000079c0  33 32 0d 04 b9 22 20 20  c8 99 22 57 69 6d 70 5f  |32..."  .."Wimp_|
000079d0  53 65 74 49 63 6f 6e 53  74 61 74 65 22 2c 2c 77  |SetIconState",,w|
000079e0  69 6d 70 25 0d 04 ba 10  20 20 e7 20 6f 6c 64 62  |imp%....  . oldb|
000079f0  3d 31 20 8c 0d 04 bb 1c  20 20 20 20 77 69 6d 70  |=1 .....    wimp|
00007a00  25 21 38 3d 34 3a 77 69  6d 70 25 21 31 32 3d 34  |%!8=4:wimp%!12=4|
00007a10  0d 04 bc 24 20 20 20 20  c8 99 22 57 69 6d 70 5f  |...$    .."Wimp_|
00007a20  53 65 74 49 63 6f 6e 53  74 61 74 65 22 2c 2c 77  |SetIconState",,w|
00007a30  69 6d 70 25 0d 04 bd 07  20 20 cd 0d 04 be 05 cd  |imp%....  ......|
00007a40  0d 04 bf 0e e7 20 64 69  72 25 3d 30 20 8c 0d 04  |..... dir%=0 ...|
00007a50  c0 14 20 20 e7 20 6c 65  6e 25 3c 6d 61 78 78 25  |..  . len%<maxx%|
00007a60  20 8c 0d 04 c1 3b 20 20  20 20 c8 99 22 57 69 6d  | ....;    .."Wim|
00007a70  70 5f 46 6f 72 63 65 52  65 64 72 61 77 22 2c 77  |p_ForceRedraw",w|
00007a80  68 61 6e 25 2c 6c 65 6e  25 2d 32 2c 6d 69 6e 79  |han%,len%-2,miny|
00007a90  25 2c 6d 61 78 78 25 2c  6d 61 78 79 25 0d 04 c2  |%,maxx%,maxy%...|
00007aa0  07 20 20 cc 0d 04 c3 3b  20 20 20 20 c8 99 22 57  |.  ....;    .."W|
00007ab0  69 6d 70 5f 46 6f 72 63  65 52 65 64 72 61 77 22  |imp_ForceRedraw"|
00007ac0  2c 77 68 61 6e 25 2c 6d  61 78 78 25 2d 32 2c 6d  |,whan%,maxx%-2,m|
00007ad0  69 6e 79 25 2c 6c 65 6e  25 2c 6d 61 78 79 25 0d  |iny%,len%,maxy%.|
00007ae0  04 c4 07 20 20 cd 0d 04  c5 05 cc 0d 04 c6 14 20  |...  .......... |
00007af0  20 e7 20 6c 65 6e 25 3c  6d 61 78 79 25 20 8c 0d  | . len%<maxy% ..|
00007b00  04 c7 3b 20 20 20 20 c8  99 22 57 69 6d 70 5f 46  |..;    .."Wimp_F|
00007b10  6f 72 63 65 52 65 64 72  61 77 22 2c 77 68 61 6e  |orceRedraw",whan|
00007b20  25 2c 6d 69 6e 78 25 2c  6c 65 6e 25 2d 32 2c 6d  |%,minx%,len%-2,m|
00007b30  61 78 78 25 2c 6d 61 78  79 25 0d 04 c8 07 20 20  |axx%,maxy%....  |
00007b40  cc 0d 04 c9 3b 20 20 20  20 c8 99 22 57 69 6d 70  |....;    .."Wimp|
00007b50  5f 46 6f 72 63 65 52 65  64 72 61 77 22 2c 77 68  |_ForceRedraw",wh|
00007b60  61 6e 25 2c 6d 69 6e 78  25 2c 6d 61 78 79 25 2d  |an%,minx%,maxy%-|
00007b70  32 2c 6d 61 78 78 25 2c  6c 65 6e 25 0d 04 ca 07  |2,maxx%,len%....|
00007b80  20 20 cd 0d 04 cb 05 cd  0d 04 cc 05 e1 0d 04 cd  |  ..............|
00007b90  2a dd 20 a4 77 69 6d 70  5f 63 61 6c 63 73 6c 69  |*. .wimp_calcsli|
00007ba0  64 65 70 63 65 6e 74 28  77 68 61 6e 25 2c 69 63  |depcent(whan%,ic|
00007bb0  6f 6e 25 2c 77 25 29 0d  04 ce 19 ea 20 73 6c 69  |on%,w%)..... sli|
00007bc0  64 65 68 25 2c 73 6c 69  64 65 77 25 2c 70 63 25  |deh%,slidew%,pc%|
00007bd0  0d 04 cf 1e 21 77 69 6d  70 25 3d 77 68 61 6e 25  |....!wimp%=whan%|
00007be0  3a 77 69 6d 70 25 21 34  3d 69 63 6f 6e 25 0d 04  |:wimp%!4=icon%..|
00007bf0  d0 20 c8 99 22 57 69 6d  70 5f 47 65 74 49 63 6f  |. .."Wimp_GetIco|
00007c00  6e 53 74 61 74 65 22 2c  2c 77 69 6d 70 25 0d 04  |nState",,wimp%..|
00007c10  d1 1d 73 6c 69 64 65 68  25 3d 77 69 6d 70 25 21  |..slideh%=wimp%!|
00007c20  32 30 2d 77 69 6d 70 25  21 31 32 0d 04 d2 1c 73  |20-wimp%!12....s|
00007c30  6c 69 64 65 77 25 3d 77  69 6d 70 25 21 31 36 2d  |lidew%=wimp%!16-|
00007c40  77 69 6d 70 25 21 38 0d  04 d3 17 e7 20 73 6c 69  |wimp%!8..... sli|
00007c50  64 65 77 25 3e 73 6c 69  64 65 68 25 20 8c 0d 04  |dew%>slideh% ...|
00007c60  d4 1d 20 20 70 63 25 3d  a8 28 28 73 6c 69 64 65  |..  pc%=.((slide|
00007c70  77 25 2f 77 25 29 2a 31  30 30 29 0d 04 d5 05 cc  |w%/w%)*100).....|
00007c80  0d 04 d6 1d 20 20 70 63  25 3d a8 28 28 73 6c 69  |....  pc%=.((sli|
00007c90  64 65 68 25 2f 77 25 29  2a 31 30 30 29 0d 04 d7  |deh%/w%)*100)...|
00007ca0  05 cd 0d 04 d8 08 3d 70  63 25 0d 04 d9 28 dd 20  |......=pc%...(. |
00007cb0  f2 77 69 6d 70 5f 73 74  61 72 74 73 6c 69 64 65  |.wimp_startslide|
00007cc0  72 64 72 61 67 28 77 68  61 6e 25 2c 69 63 6f 6e  |rdrag(whan%,icon|
00007cd0  25 29 0d 04 da 27 ea 20  6f 78 25 2c 6f 79 25 2c  |%)...'. ox%,oy%,|
00007ce0  62 78 31 25 2c 62 79 31  25 2c 62 78 32 25 2c 62  |bx1%,by1%,bx2%,b|
00007cf0  79 32 25 2c 61 25 2c 62  25 0d 04 db 41 61 25 3d  |y2%,a%,b%...Aa%=|
00007d00  a4 75 73 65 72 5f 73 6c  69 64 65 72 62 61 63 6b  |.user_sliderback|
00007d10  28 77 68 61 6e 25 2c 69  63 6f 6e 25 29 3a 62 25  |(whan%,icon%):b%|
00007d20  3d a4 75 73 65 72 5f 73  6c 69 64 65 72 28 77 68  |=.user_slider(wh|
00007d30  61 6e 25 2c 69 63 6f 6e  25 29 0d 04 dc 15 e7 20  |an%,icon%)..... |
00007d40  61 25 3d 2d 31 20 80 20  62 25 3d 2d 31 20 e1 0d  |a%=-1 . b%=-1 ..|
00007d50  04 dd 14 e7 20 61 25 3d  2d 31 20 69 63 6f 6e 25  |.... a%=-1 icon%|
00007d60  3d 62 25 0d 04 de 10 21  77 69 6d 70 25 3d 77 68  |=b%....!wimp%=wh|
00007d70  61 6e 25 0d 04 df 22 c8  99 22 57 69 6d 70 5f 47  |an%...".."Wimp_G|
00007d80  65 74 57 69 6e 64 6f 77  53 74 61 74 65 22 2c 2c  |etWindowState",,|
00007d90  77 69 6d 70 25 0d 04 e0  18 6f 78 25 3d 77 69 6d  |wimp%....ox%=wim|
00007da0  70 25 21 34 2d 77 69 6d  70 25 21 32 30 0d 04 e1  |p%!4-wimp%!20...|
00007db0  19 6f 79 25 3d 77 69 6d  70 25 21 31 36 2d 77 69  |.oy%=wimp%!16-wi|
00007dc0  6d 70 25 21 32 34 0d 04  e2 36 21 77 69 6d 70 25  |mp%!24...6!wimp%|
00007dd0  3d 77 68 61 6e 25 3a 77  69 6d 70 25 21 34 3d a4  |=whan%:wimp%!4=.|
00007de0  75 73 65 72 5f 73 6c 69  64 65 72 62 61 63 6b 28  |user_sliderback(|
00007df0  77 68 61 6e 25 2c 69 63  6f 6e 25 29 0d 04 e3 20  |whan%,icon%)... |
00007e00  c8 99 22 57 69 6d 70 5f  47 65 74 49 63 6f 6e 53  |.."Wimp_GetIconS|
00007e10  74 61 74 65 22 2c 2c 77  69 6d 70 25 0d 04 e4 26  |tate",,wimp%...&|
00007e20  62 78 31 25 3d 6f 78 25  2b 77 69 6d 70 25 21 38  |bx1%=ox%+wimp%!8|
00007e30  3a 62 79 31 25 3d 6f 79  25 2b 77 69 6d 70 25 21  |:by1%=oy%+wimp%!|
00007e40  31 32 0d 04 e5 27 62 78  32 25 3d 6f 78 25 2b 77  |12...'bx2%=ox%+w|
00007e50  69 6d 70 25 21 31 36 3a  62 79 32 25 3d 6f 79 25  |imp%!16:by2%=oy%|
00007e60  2b 77 69 6d 70 25 21 32  30 0d 04 e6 1e 21 77 69  |+wimp%!20....!wi|
00007e70  6d 70 25 3d 77 68 61 6e  25 3a 77 69 6d 70 25 21  |mp%=whan%:wimp%!|
00007e80  34 3d 69 63 6f 6e 25 0d  04 e7 20 c8 99 22 57 69  |4=icon%... .."Wi|
00007e90  6d 70 5f 47 65 74 49 63  6f 6e 53 74 61 74 65 22  |mp_GetIconState"|
00007ea0  2c 2c 77 69 6d 70 25 0d  04 e8 0d 77 69 6d 70 25  |,,wimp%....wimp%|
00007eb0  21 34 3d 37 0d 04 e9 17  77 69 6d 70 25 21 38 3d  |!4=7....wimp%!8=|
00007ec0  6f 78 25 2b 77 69 6d 70  25 21 38 0d 04 ea 19 77  |ox%+wimp%!8....w|
00007ed0  69 6d 70 25 21 31 32 3d  6f 79 25 2b 77 69 6d 70  |imp%!12=oy%+wimp|
00007ee0  25 21 31 32 0d 04 eb 19  77 69 6d 70 25 21 31 36  |%!12....wimp%!16|
00007ef0  3d 6f 78 25 2b 77 69 6d  70 25 21 31 36 0d 04 ec  |=ox%+wimp%!16...|
00007f00  19 77 69 6d 70 25 21 32  30 3d 6f 79 25 2b 77 69  |.wimp%!20=oy%+wi|
00007f10  6d 70 25 21 32 30 0d 04  ed 11 77 69 6d 70 25 21  |mp%!20....wimp%!|
00007f20  32 34 3d 62 78 31 25 0d  04 ee 11 77 69 6d 70 25  |24=bx1%....wimp%|
00007f30  21 32 38 3d 62 79 31 25  0d 04 ef 11 77 69 6d 70  |!28=by1%....wimp|
00007f40  25 21 33 32 3d 62 78 32  25 0d 04 f0 11 77 69 6d  |%!32=bx2%....wim|
00007f50  70 25 21 33 36 3d 62 79  32 25 0d 04 f1 1b c8 99  |p%!36=by2%......|
00007f60  22 57 69 6d 70 5f 44 72  61 67 42 6f 78 22 2c 2c  |"Wimp_DragBox",,|
00007f70  77 69 6d 70 25 0d 04 f2  58 77 73 6c 69 64 65 64  |wimp%...Xwslided|
00007f80  72 61 67 25 3d 77 68 61  6e 25 3a 77 73 6c 69 64  |rag%=whan%:wslid|
00007f90  65 77 25 3d 77 68 61 6e  25 3a 77 73 6c 69 64 65  |ew%=whan%:wslide|
00007fa0  69 25 3d 69 63 6f 6e 25  3a 77 6f 78 25 3d 6f 78  |i%=icon%:wox%=ox|
00007fb0  25 3a 77 6f 79 25 3d 6f  79 25 3a 77 6c 65 6e 25  |%:woy%=oy%:wlen%|
00007fc0  3d 2d 31 3a 77 6c 65 6e  32 25 3d 2d 31 0d 04 f3  |=-1:wlen2%=-1...|
00007fd0  25 77 73 77 69 64 25 3d  62 78 32 25 2d 62 78 31  |%wswid%=bx2%-bx1|
00007fe0  25 3a 77 73 68 65 69 25  3d 62 79 32 25 2d 62 79  |%:wshei%=by2%-by|
00007ff0  31 25 0d 04 f4 05 e1 0d  04 f5 28 dd 20 a4 77 69  |1%........(. .wi|
00008000  6d 70 5f 66 69 6e 64 73  75 62 6d 65 6e 75 70 74  |mp_findsubmenupt|
00008010  72 28 77 6d 65 6e 75 25  2c 69 74 65 6d 25 29 0d  |r(wmenu%,item%).|
00008020  04 f6 0d ea 20 4d 2c 77  70 74 72 25 0d 04 f7 12  |.... M,wptr%....|
00008030  77 70 74 72 25 3d 77 6d  65 6e 75 25 2b 34 0d 04  |wptr%=wmenu%+4..|
00008040  f8 11 e3 20 4d 3d 31 20  b8 20 69 74 65 6d 25 0d  |... M=1 . item%.|
00008050  04 f9 0d 77 70 74 72 25  2b 3d 32 34 0d 04 fa 07  |...wptr%+=24....|
00008060  ed 20 4d 0d 04 fb 0c 3d  77 70 74 72 25 21 34 0d  |. M....=wptr%!4.|
00008070  04 fc 23 dd 20 f2 77 69  6d 70 5f 7a 65 72 6f 74  |..#. .wimp_zerot|
00008080  65 72 6d 69 6e 61 74 65  28 77 70 74 72 25 2c 74  |erminate(wptr%,t|
00008090  24 29 0d 04 fd 07 ea 20  4c 0d 04 fe 11 e3 20 4c  |$)..... L..... L|
000080a0  3d 31 20 b8 20 a9 28 74  24 29 0d 04 ff 16 3f 77  |=1 . .(t$)....?w|
000080b0  70 74 72 25 3d 97 28 c1  74 24 2c 4c 2c 31 29 29  |ptr%=.(.t$,L,1))|
000080c0  0d 05 00 0c 77 70 74 72  25 2b 3d 31 0d 05 01 07  |....wptr%+=1....|
000080d0  ed 20 4c 0d 05 02 0c 3f  77 70 74 72 25 3d 30 0d  |. L....?wptr%=0.|
000080e0  05 03 05 e1 0d 05 04 17  dd 20 f2 77 69 6d 70 5f  |......... .wimp_|
000080f0  64 61 74 61 6c 6f 61 64  61 63 6b 0d 05 05 1f 77  |dataloadack....w|
00008100  69 6d 70 25 21 31 36 3d  34 3a 77 69 6d 70 25 21  |imp%!16=4:wimp%!|
00008110  31 32 3d 77 69 6d 70 25  21 38 0d 05 06 33 c8 99  |12=wimp%!8...3..|
00008120  22 57 69 6d 70 5f 53 65  6e 64 4d 65 73 73 61 67  |"Wimp_SendMessag|
00008130  65 22 2c 31 37 2c 77 69  6d 70 25 2c 77 69 6d 70  |e",17,wimp%,wimp|
00008140  25 21 32 30 2c 77 69 6d  70 25 21 32 34 0d 05 07  |%!20,wimp%!24...|
00008150  34 e7 20 70 61 74 68 24  3d 22 3c 57 69 6d 70 24  |4. path$="<Wimp$|
00008160  53 63 72 61 70 3e 22 20  ff 22 57 69 70 65 20 22  |Scrap>" ."Wipe "|
00008170  2b 70 61 74 68 24 2b 22  20 7e 43 20 7e 56 20 46  |+path$+" ~C ~V F|
00008180  22 0d 05 08 05 e1 0d 05  09 21 dd 20 f2 77 69 6d  |"........!. .wim|
00008190  70 5f 7a 65 72 6f 6c 65  6e 67 74 68 62 61 72 28  |p_zerolengthbar(|
000081a0  62 6f 72 64 65 72 29 0d  05 0a 19 77 69 6d 70 25  |border)....wimp%|
000081b0  21 38 3d 30 3a 77 69 6d  70 25 21 31 32 3d 33 32  |!8=0:wimp%!12=32|
000081c0  0d 05 0b 20 c8 99 22 57  69 6d 70 5f 53 65 74 49  |... .."Wimp_SetI|
000081d0  63 6f 6e 53 74 61 74 65  22 2c 2c 77 69 6d 70 25  |conState",,wimp%|
000081e0  0d 05 0c 10 e7 20 62 6f  72 64 65 72 3d 31 20 8c  |..... border=1 .|
000081f0  0d 05 0d 1e 77 69 6d 70  25 21 38 3d 32 30 34 38  |....wimp%!8=2048|
00008200  3a 77 69 6d 70 25 21 31  32 3d 32 30 34 38 0d 05  |:wimp%!12=2048..|
00008210  0e 20 c8 99 22 57 69 6d  70 5f 53 65 74 49 63 6f  |. .."Wimp_SetIco|
00008220  6e 53 74 61 74 65 22 2c  2c 77 69 6d 70 25 0d 05  |nState",,wimp%..|
00008230  0f 18 77 69 6d 70 25 21  38 3d 30 3a 77 69 6d 70  |..wimp%!8=0:wimp|
00008240  25 21 31 32 3d 34 0d 05  10 20 c8 99 22 57 69 6d  |%!12=4... .."Wim|
00008250  70 5f 53 65 74 49 63 6f  6e 53 74 61 74 65 22 2c  |p_SetIconState",|
00008260  2c 77 69 6d 70 25 0d 05  11 05 cc 0d 05 12 1b 77  |,wimp%.........w|
00008270  69 6d 70 25 21 38 3d 30  3a 77 69 6d 70 25 21 31  |imp%!8=0:wimp%!1|
00008280  32 3d 32 30 34 38 0d 05  13 20 c8 99 22 57 69 6d  |2=2048... .."Wim|
00008290  70 5f 53 65 74 49 63 6f  6e 53 74 61 74 65 22 2c  |p_SetIconState",|
000082a0  2c 77 69 6d 70 25 0d 05  14 05 cd 0d 05 15 05 e1  |,wimp%..........|
000082b0  0d ff                                             |..|
000082b2