00000000  0d 00 0a 11 f4 20 3e 20  21 52 75 6e 49 6d 61 67  |..... > !RunImag|
00000010  65 0d 00 14 1a 4e 61 6d  65 24 20 20 20 20 3d 20  |e....Name$    = |
00000020  22 50 73 65 75 64 6f 41  70 70 22 0d 00 1e 2d 50  |"PseudoApp"...-P|
00000030  75 72 70 6f 73 65 24 20  3d 20 22 50 73 65 75 64  |urpose$ = "Pseud|
00000040  6f 20 41 70 70 6c 69 63  61 74 69 6f 6e 20 47 65  |o Application Ge|
00000050  6e 65 72 61 74 6f 72 22  0d 00 28 28 56 65 72 73  |nerator"..((Vers|
00000060  69 6f 6e 24 20 3d 20 22  31 2e 30 30 20 28 32 33  |ion$ = "1.00 (23|
00000070  20 4e 6f 76 65 6d 62 65  72 20 31 39 39 30 29 22  | November 1990)"|
00000080  0d 00 32 25 41 75 74 68  6f 72 24 20 20 3d 20 22  |..2%Author$  = "|
00000090  28 43 29 31 39 39 30 20  44 75 63 6f 20 46 65 6e  |(C)1990 Duco Fen|
000000a0  6e 65 6d 61 22 0d 00 3c  05 3a 0d 00 46 05 3a 0d  |nema"..<.:..F.:.|
000000b0  00 50 0e f2 77 69 6d 70  5f 69 6e 69 74 0d 00 5a  |.P..wimp_init..Z|
000000c0  13 ee 20 85 20 f2 6d 6f  61 6e 28 9f 2c f6 24 29  |.. . .moan(.,.$)|
000000d0  0d 00 64 0f f2 6d 61 6b  65 5f 73 70 61 63 65 0d  |..d..make_space.|
000000e0  00 6e 0e f2 63 6f 6e 73  74 61 6e 74 73 0d 00 78  |.n..constants..x|
000000f0  0e f2 76 61 72 69 61 62  6c 65 73 0d 00 82 11 f2  |..variables.....|
00000100  72 65 61 64 5f 73 70 72  69 74 65 73 0d 00 8c 13  |read_sprites....|
00000110  f2 72 65 61 64 5f 74 65  6d 70 6c 61 74 65 73 0d  |.read_templates.|
00000120  00 96 0f f2 6d 61 6b 65  5f 6d 65 6e 75 73 0d 00  |....make_menus..|
00000130  a0 09 f2 69 6e 69 74 0d  00 aa 0c f2 69 63 6f 6e  |...init.....icon|
00000140  62 61 72 0d 00 b4 14 ee  20 85 20 f2 65 72 72 6f  |bar..... . .erro|
00000150  72 28 9f 2c f6 24 29 0d  00 be 11 f2 70 65 72 66  |r(.,.$).....perf|
00000160  6f 72 6d 5f 70 6f 6c 6c  0d 00 c8 05 e0 0d 00 d2  |orm_poll........|
00000170  05 3a 0d 00 dc 05 3a 0d  00 e6 05 3a 0d 00 f0 35  |.:....:....:...5|
00000180  f4 20 20 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |.  -------------|
00000190  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
000001b0  2d 0d 00 fa 35 f4 20 20  7c 20 20 54 68 65 73 65  |-...5.  |  These|
000001c0  20 61 72 65 20 74 6f 20  73 74 61 72 74 20 61 6e  | are to start an|
000001d0  64 20 73 74 6f 70 20 74  68 65 20 27 77 69 6d 70  |d stop the 'wimp|
000001e0  69 6e 67 27 20 7c 0d 01  04 35 f4 20 20 2d 2d 2d  |ing' |...5.  ---|
000001f0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00000210  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 0d 01 0e 05 3a  |-----------....:|
00000220  0d 01 18 0f dd f2 77 69  6d 70 5f 69 6e 69 74 0d  |......wimp_init.|
00000230  01 22 37 c8 99 20 22 57  69 6d 70 5f 49 6e 69 74  |."7.. "Wimp_Init|
00000240  69 61 6c 69 73 65 22 2c  32 30 30 2c 26 34 42 35  |ialise",200,&4B5|
00000250  33 34 31 35 34 2c 4e 61  6d 65 24 20 b8 20 76 65  |34154,Name$ . ve|
00000260  72 73 69 6f 6e 25 0d 01  2c 05 e1 0d 01 36 05 3a  |rsion%..,....6.:|
00000270  0d 01 40 0c dd f2 66 69  6e 69 73 68 0d 01 4a 17  |..@...finish..J.|
00000280  c8 99 20 22 57 69 6d 70  5f 43 6c 6f 73 65 44 6f  |.. "Wimp_CloseDo|
00000290  77 6e 22 0d 01 54 05 e0  0d 01 5e 05 e1 0d 01 68  |wn"..T....^....h|
000002a0  05 3a 0d 01 72 31 f4 20  20 2d 2d 2d 2d 2d 2d 2d  |.:..r1.  -------|
000002b0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
000002d0  2d 2d 2d 0d 01 7c 31 f4  20 20 7c 20 20 54 68 65  |---..|1.  |  The|
000002e0  73 65 20 68 61 76 65 20  74 6f 20 64 6f 20 77 69  |se have to do wi|
000002f0  74 68 20 65 72 72 6f 72  20 68 61 6e 64 6c 69 6e  |th error handlin|
00000300  67 20 20 7c 0d 01 86 31  f4 20 20 2d 2d 2d 2d 2d  |g  |...1.  -----|
00000310  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00000330  2d 2d 2d 2d 2d 0d 01 90  05 3a 0d 01 9a 37 f4 20  |-----....:...7. |
00000340  20 2d 2d 2d 72 65 63 6f  76 65 72 61 62 6c 65 20  | ---recoverable |
00000350  70 72 6f 67 72 61 6d 20  65 72 72 6f 72 73 20 67  |program errors g|
00000360  6f 20 74 68 72 6f 75 67  68 20 68 65 72 65 2d 2d  |o through here--|
00000370  2d 0d 01 a4 18 dd f2 65  72 72 6f 72 28 65 72 72  |-......error(err|
00000380  25 2c 65 72 72 6f 72 24  29 0d 01 ae 14 21 65 72  |%,error$)....!er|
00000390  72 6f 72 5f 62 75 66 25  3d 65 72 72 25 0d 01 b8  |ror_buf%=err%...|
000003a0  4b 24 28 65 72 72 6f 72  5f 62 75 66 25 2b 34 29  |K$(error_buf%+4)|
000003b0  3d 22 49 6e 74 65 72 6e  61 6c 20 65 72 72 6f 72  |="Internal error|
000003c0  20 74 79 70 65 20 22 2b  c3 28 9e 29 2b 22 2f 22  | type "+.(.)+"/"|
000003d0  2b c3 28 65 72 72 25 29  2b 22 20 22 2b 65 72 72  |+.(err%)+" "+err|
000003e0  6f 72 24 2b bd 28 30 29  0d 01 c2 2c c8 99 20 22  |or$+.(0)...,.. "|
000003f0  57 69 6d 70 5f 52 65 70  6f 72 74 45 72 72 6f 72  |Wimp_ReportError|
00000400  22 2c 65 72 72 6f 72 5f  62 75 66 25 2c 31 2c 4e  |",error_buf%,1,N|
00000410  61 6d 65 24 0d 01 cc 05  e1 0d 01 d6 05 3a 0d 01  |ame$.........:..|
00000420  e0 3a f4 20 20 2d 2d 2d  62 75 74 20 65 72 72 6f  |.:.  ---but erro|
00000430  72 73 20 74 68 72 6f 75  67 68 20 68 65 72 65 20  |rs through here |
00000440  74 65 72 6d 69 6e 61 74  65 20 74 68 65 20 70 72  |terminate the pr|
00000450  6f 67 72 61 6d 2d 2d 2d  0d 01 ea 17 dd f2 6d 6f  |ogram---......mo|
00000460  61 6e 28 65 72 72 25 2c  65 72 72 6f 72 24 29 0d  |an(err%,error$).|
00000470  01 f4 14 21 65 72 72 6f  72 5f 62 75 66 25 3d 65  |...!error_buf%=e|
00000480  72 72 25 0d 01 fe 51 24  28 65 72 72 6f 72 5f 62  |rr%...Q$(error_b|
00000490  75 66 25 2b 34 29 3d 22  46 61 74 61 6c 20 69 6e  |uf%+4)="Fatal in|
000004a0  74 65 72 6e 61 6c 20 65  72 72 6f 72 20 74 79 70  |ternal error typ|
000004b0  65 20 22 2b c3 28 9e 29  2b 22 2f 22 2b c3 28 65  |e "+.(.)+"/"+.(e|
000004c0  72 72 25 29 2b 22 20 22  2b 65 72 72 6f 72 24 2b  |rr%)+" "+error$+|
000004d0  bd 28 30 29 0d 02 08 2c  c8 99 20 22 57 69 6d 70  |.(0)...,.. "Wimp|
000004e0  5f 52 65 70 6f 72 74 45  72 72 6f 72 22 2c 65 72  |_ReportError",er|
000004f0  72 6f 72 5f 62 75 66 25  2c 31 2c 4e 61 6d 65 24  |ror_buf%,1,Name$|
00000500  0d 02 12 0b f2 66 69 6e  69 73 68 0d 02 1c 05 e1  |.....finish.....|
00000510  0d 02 26 05 3a 0d 02 30  28 f4 20 20 2d 2d 2d 2d  |..&.:..0(.  ----|
00000520  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00000530  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 0d 02 3a  |-------------..:|
00000540  28 f4 20 20 7c 20 20 41  6c 6c 20 64 65 63 6c 61  |(.  |  All decla|
00000550  72 61 74 69 6f 6e 73 20  62 65 6c 6f 77 20 68 65  |rations below he|
00000560  72 65 20 20 7c 0d 02 44  28 f4 20 20 2d 2d 2d 2d  |re  |..D(.  ----|
00000570  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00000580  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 0d 02 4e  |-------------..N|
00000590  05 3a 0d 02 58 10 dd f2  6d 61 6b 65 5f 73 70 61  |.:..X...make_spa|
000005a0  63 65 0d 02 62 27 f4 20  20 2d 2d 2d 46 69 72 73  |ce..b'.  ---Firs|
000005b0  74 20 73 65 74 20 74 68  65 20 62 75 66 66 65 72  |t set the buffer|
000005c0  20 73 69 7a 65 73 2d 2d  2d 0d 02 6c 31 f4 20 20  | sizes---..l1.  |
000005d0  2d 2d 2d 74 68 65 73 65  20 61 72 65 20 75 73 65  |---these are use|
000005e0  64 20 66 6f 72 20 74 68  65 20 57 69 6d 70 20 62  |d for the Wimp b|
000005f0  75 73 69 6e 65 73 73 2d  2d 2d 0d 02 76 1d 69 63  |usiness---..v.ic|
00000600  6f 6e 5f 62 75 66 5f 73  69 7a 65 25 20 20 20 20  |on_buf_size%    |
00000610  20 3d 20 26 31 30 30 0d  02 80 1d 6d 65 6e 75 5f  | = &100....menu_|
00000620  62 75 66 5f 73 69 7a 65  25 20 20 20 20 20 3d 20  |buf_size%     = |
00000630  26 31 30 30 0d 02 8a 1d  69 6e 64 69 72 65 63 74  |&100....indirect|
00000640  5f 62 75 66 5f 73 69 7a  65 25 20 3d 20 26 31 30  |_buf_size% = &10|
00000650  30 0d 02 94 1d 65 72 72  6f 72 5f 62 75 66 5f 73  |0....error_buf_s|
00000660  69 7a 65 25 20 20 20 20  3d 20 26 31 30 30 0d 02  |ize%    = &100..|
00000670  9e 1d 74 65 78 74 5f 62  75 66 5f 73 69 7a 65 25  |..text_buf_size%|
00000680  20 20 20 20 20 3d 20 26  31 30 30 0d 02 a8 1e 53  |     = &100....S|
00000690  70 72 69 74 65 73 5f 73  69 7a 65 25 20 20 20 20  |prites_size%    |
000006a0  20 20 3d 20 26 32 30 30  30 0d 02 b2 18 f4 20 20  |  = &2000.....  |
000006b0  2d 2d 2d 43 72 65 61 74  65 20 74 68 65 6d 2d 2d  |---Create them--|
000006c0  2d 0d 02 bc 19 de 20 66  61 63 74 6f 72 73 25 20  |-..... factors% |
000006d0  20 20 20 20 20 20 20 20  31 36 0d 02 c6 19 de 20  |        16..... |
000006e0  70 69 78 74 72 61 6e 73  25 20 20 20 20 20 20 20  |pixtrans%       |
000006f0  20 31 36 0d 02 d0 19 de  20 62 61 72 5f 69 63 6f  | 16..... bar_ico|
00000700  6e 25 20 20 20 20 20 20  20 20 35 30 0d 02 da 19  |n%        50....|
00000710  de 20 50 6f 69 6e 74 65  72 49 6e 66 6f 25 20 20  |. PointerInfo%  |
00000720  20 20 20 32 30 0d 02 e4  1b de 20 71 25 20 20 20  |   20..... q%   |
00000730  20 20 20 20 20 20 20 20  20 20 20 20 26 34 30 30  |            &400|
00000740  0d 02 ee 1b de 20 7a 25  20 20 20 20 20 20 20 20  |..... z%        |
00000750  20 20 20 20 20 20 20 26  31 30 30 0d 02 f8 25 de  |       &100...%.|
00000760  20 69 63 6f 6e 5f 62 75  66 25 20 20 20 20 20 20  | icon_buf%      |
00000770  20 20 69 63 6f 6e 5f 62  75 66 5f 73 69 7a 65 25  |  icon_buf_size%|
00000780  0d 03 02 25 de 20 6d 65  6e 75 5f 62 75 66 25 20  |...%. menu_buf% |
00000790  20 20 20 20 20 20 20 6d  65 6e 75 5f 62 75 66 5f  |       menu_buf_|
000007a0  73 69 7a 65 25 0d 03 0c  26 de 20 65 72 72 6f 72  |size%...&. error|
000007b0  5f 62 75 66 25 20 20 20  20 20 20 20 65 72 72 6f  |_buf%       erro|
000007c0  72 5f 62 75 66 5f 73 69  7a 65 25 0d 03 16 25 de  |r_buf_size%...%.|
000007d0  20 74 65 78 74 5f 62 75  66 25 20 20 20 20 20 20  | text_buf%      |
000007e0  20 20 74 65 78 74 5f 62  75 66 5f 73 69 7a 65 25  |  text_buf_size%|
000007f0  0d 03 20 29 de 20 69 6e  64 69 72 65 63 74 5f 62  |.. ). indirect_b|
00000800  75 66 25 20 20 20 20 69  6e 64 69 72 65 63 74 5f  |uf%    indirect_|
00000810  62 75 66 5f 73 69 7a 65  25 0d 03 2a 24 de 20 53  |buf_size%..*$. S|
00000820  70 72 69 74 65 73 25 20  20 20 20 20 20 20 20 20  |prites%         |
00000830  53 70 72 69 74 65 73 5f  73 69 7a 65 25 0d 03 34  |Sprites_size%..4|
00000840  1b de 20 46 69 6c 65 25  20 20 20 20 20 20 20 20  |.. File%        |
00000850  20 20 20 20 26 32 30 30  0d 03 3e 1b de 20 4f 75  |    &200..>.. Ou|
00000860  72 44 69 72 25 20 20 20  20 20 20 20 20 20 20 26  |rDir%          &|
00000870  32 30 30 0d 03 48 1b de  20 50 72 6f 67 44 69 72  |200..H.. ProgDir|
00000880  25 20 20 20 20 20 20 20  20 20 26 32 30 30 0d 03  |%         &200..|
00000890  52 19 de 20 45 6e 74 65  72 41 74 25 20 20 20 20  |R.. EnterAt%    |
000008a0  20 20 20 20 20 33 30 0d  03 5c 2c f4 20 20 2d 2d  |     30..\,.  --|
000008b0  2d 4e 6f 77 20 73 65 74  20 75 70 20 73 6f 6d 65  |-Now set up some|
000008c0  20 69 6e 66 6f 20 61 62  6f 75 74 20 74 68 65 6d  | info about them|
000008d0  2d 2d 2d 0d 03 66 26 69  6e 64 69 72 65 63 74 5f  |---..f&indirect_|
000008e0  62 75 66 5f 66 72 65 65  25 20 3d 20 69 6e 64 69  |buf_free% = indi|
000008f0  72 65 63 74 5f 62 75 66  25 0d 03 70 39 69 6e 64  |rect_buf%..p9ind|
00000900  69 72 65 63 74 5f 62 75  66 5f 65 6e 64 25 20 20  |irect_buf_end%  |
00000910  3d 20 69 6e 64 69 72 65  63 74 5f 62 75 66 25 2b  |= indirect_buf%+|
00000920  69 6e 64 69 72 65 63 74  5f 62 75 66 5f 73 69 7a  |indirect_buf_siz|
00000930  65 25 0d 03 7a 22 6d 65  6e 75 5f 62 75 66 5f 66  |e%..z"menu_buf_f|
00000940  72 65 65 25 20 20 20 20  20 3d 20 6d 65 6e 75 5f  |ree%     = menu_|
00000950  62 75 66 25 0d 03 84 31  6d 65 6e 75 5f 62 75 66  |buf%...1menu_buf|
00000960  5f 65 6e 64 25 20 20 20  20 20 20 3d 20 6d 65 6e  |_end%      = men|
00000970  75 5f 62 75 66 25 2b 6d  65 6e 75 5f 62 75 66 5f  |u_buf%+menu_buf_|
00000980  73 69 7a 65 25 0d 03 8e  05 e1 0d 03 98 05 3a 0d  |size%.........:.|
00000990  03 a2 0f dd f2 63 6f 6e  73 74 61 6e 74 73 0d 03  |.....constants..|
000009a0  ac 23 f4 20 20 2d 2d 2d  77 69 6d 70 5f 70 6f 6c  |.#.  ---wimp_pol|
000009b0  6c 20 72 65 61 73 6f 6e  20 63 6f 64 65 73 2d 2d  |l reason codes--|
000009c0  2d 0d 03 b6 1c 4f 70 65  6e 5f 57 69 6e 64 6f 77  |-....Open_Window|
000009d0  25 20 20 20 20 20 20 20  20 20 3d 20 32 0d 03 c0  |%         = 2...|
000009e0  1c 43 6c 6f 73 65 5f 57  69 6e 64 6f 77 25 20 20  |.Close_Window%  |
000009f0  20 20 20 20 20 20 3d 20  33 0d 03 ca 1c 4d 6f 75  |      = 3....Mou|
00000a00  73 65 5f 43 6c 69 63 6b  25 20 20 20 20 20 20 20  |se_Click%       |
00000a10  20 20 3d 20 36 0d 03 d4  1c 55 73 65 72 5f 44 72  |  = 6....User_Dr|
00000a20  61 67 25 20 20 20 20 20  20 20 20 20 20 20 3d 20  |ag%           = |
00000a30  37 0d 03 de 1c 4d 65 6e  75 5f 53 65 6c 65 63 74  |7....Menu_Select|
00000a40  69 6f 6e 25 20 20 20 20  20 20 3d 20 39 0d 03 e8  |ion%      = 9...|
00000a50  1d 4d 65 73 73 61 67 65  25 20 20 20 20 20 20 20  |.Message%       |
00000a60  20 20 20 20 20 20 3d 20  31 37 0d 03 f2 1d 4d 65  |      = 17....Me|
00000a70  73 73 61 67 65 5f 52 65  63 6f 72 64 65 64 25 20  |ssage_Recorded% |
00000a80  20 20 20 3d 20 31 38 0d  03 fc 1a f4 20 20 2d 2d  |   = 18.....  --|
00000a90  2d 6d 65 73 73 61 67 65  20 63 6f 64 65 73 2d 2d  |-message codes--|
00000aa0  2d 0d 04 06 1c 51 75 69  74 25 20 20 20 20 20 20  |-....Quit%      |
00000ab0  20 20 20 20 20 20 20 20  20 20 3d 20 30 0d 04 10  |          = 0...|
00000ac0  1c 44 61 74 61 53 61 76  65 25 20 20 20 20 20 20  |.DataSave%      |
00000ad0  20 20 20 20 20 20 3d 20  31 0d 04 1a 1c 44 61 74  |      = 1....Dat|
00000ae0  61 53 61 76 65 41 63 6b  25 20 20 20 20 20 20 20  |aSaveAck%       |
00000af0  20 20 3d 20 32 0d 04 24  1c 44 61 74 61 4c 6f 61  |  = 2..$.DataLoa|
00000b00  64 25 20 20 20 20 20 20  20 20 20 20 20 20 3d 20  |d%            = |
00000b10  33 0d 04 2e 1c 44 61 74  61 4c 6f 61 64 41 63 6b  |3....DataLoadAck|
00000b20  25 20 20 20 20 20 20 20  20 20 3d 20 34 0d 04 38  |%         = 4..8|
00000b30  14 f4 20 20 2d 2d 2d 63  6f 6c 6f 75 72 73 2d 2d  |..  ---colours--|
00000b40  2d 0d 04 42 1c 4d 54 69  74 6c 65 46 67 25 20 20  |-..B.MTitleFg%  |
00000b50  20 20 20 20 20 20 20 20  20 20 3d 20 37 0d 04 4c  |          = 7..L|
00000b60  1c 4d 54 69 74 6c 65 42  67 25 20 20 20 20 20 20  |.MTitleBg%      |
00000b70  20 20 20 20 20 20 3d 20  32 0d 04 56 1c 4d 57 6f  |      = 2..V.MWo|
00000b80  72 6b 46 67 25 20 20 20  20 20 20 20 20 20 20 20  |rkFg%           |
00000b90  20 20 3d 20 37 0d 04 60  1c 4d 57 6f 72 6b 42 67  |  = 7..`.MWorkBg|
00000ba0  25 20 20 20 20 20 20 20  20 20 20 20 20 20 3d 20  |%             = |
00000bb0  30 0d 04 6a 1c 4d 49 63  6f 6e 46 67 25 20 20 20  |0..j.MIconFg%   |
00000bc0  20 20 20 20 20 20 20 20  20 20 3d 20 37 0d 04 74  |          = 7..t|
00000bd0  1c 4d 49 63 6f 6e 42 67  25 20 20 20 20 20 20 20  |.MIconBg%       |
00000be0  20 20 20 20 20 20 3d 20  30 0d 04 7e 05 e1 0d 04  |      = 0..~....|
00000bf0  88 05 3a 0d 04 92 0f dd  f2 76 61 72 69 61 62 6c  |..:......variabl|
00000c00  65 73 0d 04 9c 33 f4 20  20 2d 2d 2d 6f 6e 6c 79  |es...3.  ---only|
00000c10  20 73 69 6d 70 6c 65 20  76 61 72 69 61 62 6c 65  | simple variable|
00000c20  20 64 65 63 6c 61 72 61  74 69 6f 6e 73 20 68 65  | declarations he|
00000c30  72 65 2d 2d 2d 0d 04 a6  12 70 6f 6c 6c 5f 6d 61  |re---....poll_ma|
00000c40  73 6b 25 20 3d 20 31 0d  04 b0 05 e1 0d 04 ba 05  |sk% = 1.........|
00000c50  3a 0d 04 c4 24 f4 20 20  2d 2d 2d 2d 2d 2d 2d 2d  |:...$.  --------|
00000c60  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00000c70  2d 2d 2d 2d 2d 0d 04 ce  24 f4 20 20 7c 20 20 4e  |-----...$.  |  N|
00000c80  6f 77 20 72 65 61 64 20  69 6e 20 6f 75 72 20 73  |ow read in our s|
00000c90  70 72 69 74 65 73 20 20  7c 0d 04 d8 24 f4 20 20  |prites  |...$.  |
00000ca0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00000cb0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 0d 04 e2  |-------------...|
00000cc0  05 3a 0d 04 ec 12 dd f2  72 65 61 64 5f 73 70 72  |.:......read_spr|
00000cd0  69 74 65 73 0d 04 f6 22  53 25 3d 8e 22 3c 50 73  |ites..."S%=."<Ps|
00000ce0  65 75 64 6f 41 70 70 24  44 69 72 3e 2e 21 53 70  |eudoApp$Dir>.!Sp|
00000cf0  72 69 74 65 73 22 0d 05  00 1c 73 70 72 69 74 65  |rites"....sprite|
00000d00  5f 62 75 66 5f 73 69 7a  65 25 3d a2 23 53 25 2b  |_buf_size%=.#S%+|
00000d10  31 36 0d 05 0a 08 d9 23  53 25 0d 05 14 22 de 20  |16.....#S%...". |
00000d20  73 70 72 69 74 65 5f 62  75 66 25 20 73 70 72 69  |sprite_buf% spri|
00000d30  74 65 5f 62 75 66 5f 73  69 7a 65 25 0d 05 1e 24  |te_buf_size%...$|
00000d40  73 70 72 69 74 65 5f 62  75 66 25 21 30 20 3d 20  |sprite_buf%!0 = |
00000d50  73 70 72 69 74 65 5f 62  75 66 5f 73 69 7a 65 25  |sprite_buf_size%|
00000d60  0d 05 28 16 73 70 72 69  74 65 5f 62 75 66 25 21  |..(.sprite_buf%!|
00000d70  38 20 3d 20 31 36 0d 05  32 25 c8 99 20 22 4f 53  |8 = 16..2%.. "OS|
00000d80  5f 53 70 72 69 74 65 4f  70 22 2c 26 31 30 39 2c  |_SpriteOp",&109,|
00000d90  73 70 72 69 74 65 5f 62  75 66 25 0d 05 3c 40 c8  |sprite_buf%..<@.|
00000da0  99 20 22 4f 53 5f 53 70  72 69 74 65 4f 70 22 2c  |. "OS_SpriteOp",|
00000db0  26 31 30 41 2c 73 70 72  69 74 65 5f 62 75 66 25  |&10A,sprite_buf%|
00000dc0  2c 22 3c 50 73 65 75 64  6f 41 70 70 24 44 69 72  |,"<PseudoApp$Dir|
00000dd0  3e 2e 21 53 70 72 69 74  65 73 22 0d 05 46 05 e1  |>.!Sprites"..F..|
00000de0  0d 05 50 05 3a 0d 05 5a  29 f4 20 20 2d 2d 2d 2d  |..P.:..Z).  ----|
00000df0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00000e00  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 0d 05  |--------------..|
00000e10  64 29 f4 20 20 7c 20 20  43 72 65 61 74 65 20 74  |d).  |  Create t|
00000e20  68 65 20 6e 65 63 65 73  73 61 72 79 20 77 69 6e  |he necessary win|
00000e30  64 6f 77 73 20 20 7c 0d  05 6e 29 f4 20 20 2d 2d  |dows  |..n).  --|
00000e40  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00000e60  0d 05 78 05 3a 0d 05 82  14 dd f2 72 65 61 64 5f  |..x.:......read_|
00000e70  74 65 6d 70 6c 61 74 65  73 0d 05 8c 37 c8 99 20  |templates...7.. |
00000e80  22 57 69 6d 70 5f 4f 70  65 6e 54 65 6d 70 6c 61  |"Wimp_OpenTempla|
00000e90  74 65 22 2c 2c 22 3c 50  73 65 75 64 6f 41 70 70  |te",,"<PseudoApp|
00000ea0  24 44 69 72 3e 2e 54 65  6d 70 6c 61 74 65 73 22  |$Dir>.Templates"|
00000eb0  0d 05 96 26 70 72 6f 67  69 6e 66 6f 5f 69 6e 64  |...&proginfo_ind|
00000ec0  25 20 3d 20 69 6e 64 69  72 65 63 74 5f 62 75 66  |% = indirect_buf|
00000ed0  5f 66 72 65 65 25 0d 05  a0 33 70 72 6f 67 69 6e  |_free%...3progin|
00000ee0  66 6f 5f 77 69 6e 25 20  3d 20 a4 77 69 6e 64 6f  |fo_win% = .windo|
00000ef0  77 28 22 70 72 6f 67 69  6e 66 6f 22 2c 73 70 72  |w("proginfo",spr|
00000f00  69 74 65 5f 62 75 66 25  29 0d 05 aa 29 20 20 f2  |ite_buf%)...)  .|
00000f10  53 65 74 49 63 6f 6e 54  65 78 74 28 70 72 6f 67  |SetIconText(prog|
00000f20  69 6e 66 6f 5f 77 69 6e  25 2c 30 2c 4e 61 6d 65  |info_win%,0,Name|
00000f30  24 29 0d 05 b4 2c 20 20  f2 53 65 74 49 63 6f 6e  |$)...,  .SetIcon|
00000f40  54 65 78 74 28 70 72 6f  67 69 6e 66 6f 5f 77 69  |Text(proginfo_wi|
00000f50  6e 25 2c 31 2c 50 75 72  70 6f 73 65 24 29 0d 05  |n%,1,Purpose$)..|
00000f60  be 2b 20 20 f2 53 65 74  49 63 6f 6e 54 65 78 74  |.+  .SetIconText|
00000f70  28 70 72 6f 67 69 6e 66  6f 5f 77 69 6e 25 2c 32  |(proginfo_win%,2|
00000f80  2c 41 75 74 68 6f 72 24  29 0d 05 c8 2c 20 20 f2  |,Author$)...,  .|
00000f90  53 65 74 49 63 6f 6e 54  65 78 74 28 70 72 6f 67  |SetIconText(prog|
00000fa0  69 6e 66 6f 5f 77 69 6e  25 2c 33 2c 56 65 72 73  |info_win%,3,Vers|
00000fb0  69 6f 6e 24 29 0d 05 d2  26 73 61 76 65 61 73 5f  |ion$)...&saveas_|
00000fc0  69 6e 64 31 25 20 20 3d  20 69 6e 64 69 72 65 63  |ind1%  = indirec|
00000fd0  74 5f 62 75 66 5f 66 72  65 65 25 0d 05 dc 31 73  |t_buf_free%...1s|
00000fe0  61 76 65 61 73 5f 77 69  6e 31 25 20 20 3d 20 a4  |aveas_win1%  = .|
00000ff0  77 69 6e 64 6f 77 28 22  73 61 76 65 61 73 22 2c  |window("saveas",|
00001000  73 70 72 69 74 65 5f 62  75 66 25 29 0d 05 e6 32  |sprite_buf%)...2|
00001010  20 20 f2 53 65 74 49 63  6f 6e 53 70 72 69 74 65  |  .SetIconSprite|
00001020  28 73 61 76 65 61 73 5f  77 69 6e 31 25 2c 30 2c  |(saveas_win1%,0,|
00001030  22 61 70 70 6c 69 63 61  74 69 6f 6e 22 29 0d 05  |"application")..|
00001040  f0 26 73 61 76 65 61 73  5f 69 6e 64 32 25 20 20  |.&saveas_ind2%  |
00001050  3d 20 69 6e 64 69 72 65  63 74 5f 62 75 66 5f 66  |= indirect_buf_f|
00001060  72 65 65 25 0d 05 fa 2e  73 61 76 65 61 73 5f 77  |ree%....saveas_w|
00001070  69 6e 32 25 20 20 3d 20  a4 77 69 6e 64 6f 77 28  |in2%  = .window(|
00001080  22 73 61 76 65 61 73 22  2c 53 70 72 69 74 65 73  |"saveas",Sprites|
00001090  25 29 0d 06 04 27 20 20  f2 53 65 74 49 63 6f 6e  |%)...'  .SetIcon|
000010a0  53 70 72 69 74 65 28 73  61 76 65 61 73 5f 77 69  |Sprite(saveas_wi|
000010b0  6e 32 25 2c 30 2c 22 22  29 0d 06 0e 1b c8 99 20  |n2%,0,"")...... |
000010c0  22 57 69 6d 70 5f 43 6c  6f 73 65 54 65 6d 70 6c  |"Wimp_CloseTempl|
000010d0  61 74 65 22 0d 06 18 05  e1 0d 06 22 05 3a 0d 06  |ate".......".:..|
000010e0  2c 14 dd a4 77 69 6e 64  6f 77 28 77 24 2c 73 70  |,...window(w$,sp|
000010f0  25 29 0d 06 36 0d ea 20  68 61 6e 64 6c 65 25 0d  |%)..6.. handle%.|
00001100  06 40 6d c8 99 20 22 57  69 6d 70 5f 4c 6f 61 64  |.@m.. "Wimp_Load|
00001110  54 65 6d 70 6c 61 74 65  22 2c 2c 71 25 2c 69 6e  |Template",,q%,in|
00001120  64 69 72 65 63 74 5f 62  75 66 5f 66 72 65 65 25  |direct_buf_free%|
00001130  2c 69 6e 64 69 72 65 63  74 5f 62 75 66 5f 65 6e  |,indirect_buf_en|
00001140  64 25 2c 2d 31 2c 77 24  2c 30 20 b8 20 2c 2c 69  |d%,-1,w$,0 . ,,i|
00001150  6e 64 69 72 65 63 74 5f  62 75 66 5f 66 72 65 65  |ndirect_buf_free|
00001160  25 2c 2c 2c 2c 68 61 6e  64 6c 65 25 0d 06 4a 0f  |%,,,,handle%..J.|
00001170  e7 68 61 6e 64 6c 65 25  3d 30 8c 0d 06 54 21 20  |.handle%=0...T! |
00001180  20 f4 20 20 2d 2d 2d 63  6c 6f 73 65 20 61 6e 64  | .  ---close and|
00001190  20 63 6f 6d 70 6c 61 69  6e 2d 2d 2d 0d 06 5e 1d  | complain---..^.|
000011a0  20 20 c8 99 20 22 57 69  6d 70 5f 43 6c 6f 73 65  |  .. "Wimp_Close|
000011b0  54 65 6d 70 6c 61 74 65  22 0d 06 68 31 20 20 f2  |Template"..h1  .|
000011c0  6d 6f 61 6e 28 26 33 30  30 30 31 2c 22 54 65 6d  |moan(&30001,"Tem|
000011d0  70 6c 61 74 65 20 27 22  2b 77 24 2b 22 27 20 6e  |plate '"+w$+"' n|
000011e0  6f 74 20 66 6f 75 6e 64  22 29 0d 06 72 05 cc 0d  |ot found")..r...|
000011f0  06 7c 2f 20 20 f4 20 20  2d 2d 2d 61 64 6a 75 73  |.|/  .  ---adjus|
00001200  74 20 74 68 65 20 73 70  72 69 74 65 20 62 75 66  |t the sprite buf|
00001210  66 65 72 20 70 6f 69 6e  74 65 72 2d 2d 2d 0d 06  |fer pointer---..|
00001220  86 0f 20 20 71 25 21 36  34 3d 73 70 25 0d 06 90  |..  q%!64=sp%...|
00001230  2a 20 20 c8 99 20 22 57  69 6d 70 5f 43 72 65 61  |*  .. "Wimp_Crea|
00001240  74 65 57 69 6e 64 6f 77  22 2c 2c 71 25 20 b8 20  |teWindow",,q% . |
00001250  68 61 6e 64 6c 65 25 0d  06 9a 07 20 20 cd 0d 06  |handle%....  ...|
00001260  a4 0c 3d 68 61 6e 64 6c  65 25 0d 06 ae 05 3a 0d  |..=handle%....:.|
00001270  06 b8 1b f4 20 20 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |....  ----------|
00001280  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 0d 06 c2 1b f4 20  |----------..... |
00001290  20 7c 20 20 41 6e 64 20  74 68 65 20 6d 65 6e 75  | |  And the menu|
000012a0  27 73 20 20 7c 0d 06 cc  1b f4 20 20 2d 2d 2d 2d  |'s  |.....  ----|
000012b0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
000012c0  0d 06 d6 05 3a 0d 06 e0  10 dd f2 6d 61 6b 65 5f  |....:......make_|
000012d0  6d 65 6e 75 73 0d 06 ea  40 62 61 72 5f 6d 65 6e  |menus...@bar_men|
000012e0  25 20 20 20 20 20 20 20  3d 20 a4 6d 65 6e 75 28  |%       = .menu(|
000012f0  22 23 22 2b 4e 61 6d 65  24 2b 22 3b 49 6e 66 6f  |"#"+Name$+";Info|
00001300  3e 70 72 6f 67 69 6e 66  6f 5f 77 69 6e 25 3b 51  |>proginfo_win%;Q|
00001310  75 69 74 22 29 0d 06 f4  05 e1 0d 06 fe 05 3a 0d  |uit").........:.|
00001320  07 08 11 dd a4 6d 65 6e  75 28 6d 65 6e 75 24 29  |.....menu(menu$)|
00001330  0d 07 12 43 e7 6d 65 6e  75 5f 62 75 66 5f 66 72  |...C.menu_buf_fr|
00001340  65 65 25 2b 32 38 3e 6d  65 6e 75 5f 62 75 66 5f  |ee%+28>menu_buf_|
00001350  65 6e 64 25 8c f2 6d 6f  61 6e 28 26 33 30 30 30  |end%..moan(&3000|
00001360  32 2c 22 4d 65 6e 75 20  61 72 65 61 20 66 75 6c  |2,"Menu area ful|
00001370  6c 22 29 0d 07 1c 0a ea  6d 25 2c 69 25 0d 07 26  |l").....m%,i%..&|
00001380  1c 6d 65 6e 75 5f 70 74  72 25 3d 6d 65 6e 75 5f  |.menu_ptr%=menu_|
00001390  62 75 66 5f 66 72 65 65  25 0d 07 30 08 69 25 3d  |buf_free%..0.i%=|
000013a0  30 0d 07 3a 3a e7 c0 6d  65 6e 75 24 2c 31 29 3d  |0..::..menu$,1)=|
000013b0  22 23 22 8c 69 25 3d 31  3a 6d 65 6e 75 74 69 74  |"#".i%=1:menutit|
000013c0  6c 65 24 3d a4 70 61 72  28 22 3b 22 29 8b 6d 65  |le$=.par(";").me|
000013d0  6e 75 74 69 74 6c 65 24  3d 22 22 0d 07 44 19 24  |nutitle$=""..D.$|
000013e0  6d 65 6e 75 5f 70 74 72  25 3d 6d 65 6e 75 74 69  |menu_ptr%=menuti|
000013f0  74 6c 65 24 0d 07 4e 1a  6d 65 6e 75 5f 70 74 72  |tle$..N.menu_ptr|
00001400  25 3f 31 32 3d 4d 54 69  74 6c 65 46 67 25 0d 07  |%?12=MTitleFg%..|
00001410  58 1a 6d 65 6e 75 5f 70  74 72 25 3f 31 33 3d 4d  |X.menu_ptr%?13=M|
00001420  54 69 74 6c 65 42 67 25  0d 07 62 19 6d 65 6e 75  |TitleBg%..b.menu|
00001430  5f 70 74 72 25 3f 31 34  3d 4d 57 6f 72 6b 46 67  |_ptr%?14=MWorkFg|
00001440  25 0d 07 6c 19 6d 65 6e  75 5f 70 74 72 25 3f 31  |%..l.menu_ptr%?1|
00001450  35 3d 4d 57 6f 72 6b 42  67 25 0d 07 76 17 6d 65  |5=MWorkBg%..v.me|
00001460  6e 75 5f 70 74 72 25 21  31 36 3d 31 39 36 2d 32  |nu_ptr%!16=196-2|
00001470  34 0d 07 80 13 6d 65 6e  75 5f 70 74 72 25 21 32  |4....menu_ptr%!2|
00001480  30 3d 34 34 0d 07 8a 12  6d 65 6e 75 5f 70 74 72  |0=44....menu_ptr|
00001490  25 21 32 34 3d 30 0d 07  94 11 6d 65 6e 75 5f 70  |%!24=0....menu_p|
000014a0  74 72 25 2b 3d 32 38 0d  07 9e 17 6d 61 78 78 25  |tr%+=28....maxx%|
000014b0  3d a9 6d 65 6e 75 74 69  74 6c 65 24 2d 33 0d 07  |=.menutitle$-3..|
000014c0  a8 2f f5 69 74 65 6d 24  3d a4 70 61 72 28 22 3b  |./.item$=.par(";|
000014d0  22 29 3a f2 6d 65 6e 75  69 74 65 6d 28 69 74 65  |"):.menuitem(ite|
000014e0  6d 24 29 3a fd 69 74 65  6d 24 3d 22 22 0d 07 b2  |m$):.item$=""...|
000014f0  29 6d 25 3d 6d 65 6e 75  5f 62 75 66 5f 66 72 65  |)m%=menu_buf_fre|
00001500  65 25 3a 6d 25 21 31 36  3d 28 6d 61 78 78 25 2a  |e%:m%!16=(maxx%*|
00001510  38 2b 36 29 2a 32 0d 07  bc 1c 6d 65 6e 75 5f 62  |8+6)*2....menu_b|
00001520  75 66 5f 66 72 65 65 25  3d 6d 65 6e 75 5f 70 74  |uf_free%=menu_pt|
00001530  72 25 0d 07 c6 07 3d 6d  25 0d 07 d0 05 3a 0d 07  |r%....=m%....:..|
00001540  da 15 dd f2 6d 65 6e 75  69 74 65 6d 28 74 65 78  |....menuitem(tex|
00001550  74 24 29 0d 07 e4 31 e7  74 65 78 74 24 3d 22 22  |t$)...1.text$=""|
00001560  8c 6d 65 6e 75 5f 70 74  72 25 21 2d 32 34 3d 28  |.menu_ptr%!-24=(|
00001570  6d 65 6e 75 5f 70 74 72  25 21 2d 32 34 29 84 26  |menu_ptr%!-24).&|
00001580  38 30 3a e1 0d 07 ee 3e  e7 6d 65 6e 75 5f 70 74  |80:....>.menu_pt|
00001590  72 25 2b 32 34 3e 6d 65  6e 75 5f 62 75 66 5f 65  |r%+24>menu_buf_e|
000015a0  6e 64 25 8c f2 6d 6f 61  6e 28 26 33 30 30 30 32  |nd%..moan(&30002|
000015b0  2c 22 4d 65 6e 75 20 61  72 65 61 20 66 75 6c 6c  |,"Menu area full|
000015c0  22 29 0d 07 f8 0f ea 69  25 2c 66 6c 67 25 2c 56  |").....i%,flg%,V|
000015d0  25 0d 08 02 0c 66 6c 67  25 3d 26 30 30 0d 08 0c  |%....flg%=&00...|
000015e0  29 f4 20 20 2d 2d 2d 73  75 62 20 6d 65 6e 75 20  |).  ---sub menu |
000015f0  6f 72 20 77 69 6e 64 6f  77 20 61 74 74 61 63 68  |or window attach|
00001600  65 64 3f 2d 2d 2d 0d 08  16 12 69 25 3d a7 74 65  |ed?---....i%=.te|
00001610  78 74 24 2c 22 3e 22 29  0d 08 20 33 e7 c2 74 65  |xt$,">").. 3..te|
00001620  78 74 24 2c 31 29 3d 22  23 22 8c 74 65 78 74 24  |xt$,1)="#".text$|
00001630  3d c0 74 65 78 74 24 2c  a9 74 65 78 74 24 2d 31  |=.text$,.text$-1|
00001640  29 3a 66 6c 67 25 2b 3d  26 30 32 0d 08 2a 3d e7  |):flg%+=&02..*=.|
00001650  69 25 3e 30 8c 73 75 62  70 74 72 25 3d a0 c1 74  |i%>0.subptr%=..t|
00001660  65 78 74 24 2c 69 25 2b  31 29 3a 74 65 78 74 24  |ext$,i%+1):text$|
00001670  3d c0 74 65 78 74 24 2c  69 25 2d 31 29 8b 73 75  |=.text$,i%-1).su|
00001680  62 70 74 72 25 3d 2d 31  0d 08 34 14 6d 65 6e 75  |bptr%=-1..4.menu|
00001690  5f 70 74 72 25 21 30 3d  66 6c 67 25 0d 08 3e 17  |_ptr%!0=flg%..>.|
000016a0  6d 65 6e 75 5f 70 74 72  25 21 34 3d 73 75 62 70  |menu_ptr%!4=subp|
000016b0  74 72 25 0d 08 48 19 6d  65 6e 75 5f 70 74 72 25  |tr%..H.menu_ptr%|
000016c0  21 38 3d 26 30 37 30 30  30 30 32 31 0d 08 52 1e  |!8=&07000021..R.|
000016d0  f4 20 20 2d 2d 2d 69 73  20 69 74 20 69 6e 64 69  |.  ---is it indi|
000016e0  72 65 63 74 65 64 3f 2d  2d 2d 0d 08 5c 13 e7 c0  |rected?---..\...|
000016f0  74 65 78 74 24 2c 31 29  3d 22 24 22 8c 0d 08 66  |text$,1)="$"...f|
00001700  15 20 20 21 6d 65 6e 75  5f 70 74 72 25 2b 3d 26  |.  !menu_ptr%+=&|
00001710  30 34 0d 08 70 17 20 20  6d 65 6e 75 5f 70 74 72  |04..p.  menu_ptr|
00001720  25 21 38 2b 3d 26 31 30  38 0d 08 7a 14 20 20 69  |%!8+=&108..z.  i|
00001730  25 3d a7 74 65 78 74 24  2c 22 28 22 29 0d 08 84  |%=.text$,"(")...|
00001740  35 20 20 e7 69 25 3e 30  8c 4c 25 3d bb c1 74 65  |5  .i%>0.L%=..te|
00001750  78 74 24 2c 69 25 2b 31  29 3a 74 65 78 74 24 3d  |xt$,i%+1):text$=|
00001760  c0 74 65 78 74 24 2c 69  25 2d 31 29 8b 4c 25 3d  |.text$,i%-1).L%=|
00001770  31 32 0d 08 8e 0b 20 20  56 25 3d 2d 31 0d 08 98  |12....  V%=-1...|
00001780  1d 20 20 6d 65 6e 75 5f  70 74 72 25 21 31 32 3d  |.  menu_ptr%!12=|
00001790  a0 c1 74 65 78 74 24 2c  32 29 0d 08 a2 15 20 20  |..text$,2)....  |
000017a0  6d 65 6e 75 5f 70 74 72  25 21 31 36 3d 2d 31 0d  |menu_ptr%!16=-1.|
000017b0  08 ac 15 20 20 6d 65 6e  75 5f 70 74 72 25 21 32  |...  menu_ptr%!2|
000017c0  30 3d 4c 25 0d 08 b6 14  20 20 74 65 78 74 24 3d  |0=L%....  text$=|
000017d0  c4 4c 25 2c 22 20 22 29  0d 08 c0 18 20 20 e7 6d  |.L%," ")....  .m|
000017e0  61 78 78 25 3c 32 30 8c  6d 61 78 78 25 3d 32 30  |axx%<20.maxx%=20|
000017f0  0d 08 ca 05 cc 0d 08 d4  29 20 20 f4 20 20 2d 2d  |........)  .  --|
00001800  2d 67 69 76 65 20 77 61  72 6e 69 6e 67 20 77 68  |-give warning wh|
00001810  65 6e 20 6f 70 65 6e 69  6e 67 3f 2d 2d 2d 0d 08  |en opening?---..|
00001820  de 15 20 20 e7 c0 74 65  78 74 24 2c 31 29 3d 22  |..  ..text$,1)="|
00001830  21 22 8c 0d 08 e8 1e 20  20 20 20 74 65 78 74 24  |!".....    text$|
00001840  3d c2 74 65 78 74 24 2c  a9 74 65 78 74 24 2d 31  |=.text$,.text$-1|
00001850  29 0d 08 f2 17 20 20 20  20 21 6d 65 6e 75 5f 70  |)....    !menu_p|
00001860  74 72 25 2b 3d 26 30 38  0d 08 fc 07 20 20 cd 0d  |tr%+=&08....  ..|
00001870  09 06 12 20 20 e7 a9 74  65 78 74 24 3c 3d 31 32  |...  ..text$<=12|
00001880  8c 0d 09 10 1d 20 20 20  20 24 28 6d 65 6e 75 5f  |.....    $(menu_|
00001890  70 74 72 25 2b 31 32 29  3d 74 65 78 74 24 0d 09  |ptr%+12)=text$..|
000018a0  1a 07 20 20 cc 0d 09 24  29 20 20 20 20 49 25 3d  |..  ...$)    I%=|
000018b0  a4 77 6f 72 6b 73 70 61  63 65 28 a9 74 65 78 74  |.workspace(.text|
000018c0  24 2b 31 29 3a 24 49 25  3d 74 65 78 74 24 0d 09  |$+1):$I%=text$..|
000018d0  2e 3c 20 20 20 6d 65 6e  75 5f 70 74 72 25 21 31  |.<   menu_ptr%!1|
000018e0  32 3d 49 25 3a 6d 65 6e  75 5f 70 74 72 25 21 31  |2=I%:menu_ptr%!1|
000018f0  36 3d 2d 31 3a 6d 65 6e  75 5f 70 74 72 25 21 32  |6=-1:menu_ptr%!2|
00001900  30 3d a9 74 65 78 74 24  2b 31 0d 09 38 23 20 20  |0=.text$+1..8#  |
00001910  20 6d 65 6e 75 5f 70 74  72 25 21 38 3d 6d 65 6e  | menu_ptr%!8=men|
00001920  75 5f 70 74 72 25 21 38  84 26 31 30 30 0d 09 42  |u_ptr%!8.&100..B|
00001930  07 20 20 cd 0d 09 4c 20  20 20 e7 a9 74 65 78 74  |.  ...L   ..text|
00001940  24 3e 6d 61 78 78 25 8c  6d 61 78 78 25 3d a9 74  |$>maxx%.maxx%=.t|
00001950  65 78 74 24 0d 09 56 05  cd 0d 09 60 11 6d 65 6e  |ext$..V....`.men|
00001960  75 5f 70 74 72 25 2b 3d  32 34 0d 09 6a 05 e1 0d  |u_ptr%+=24..j...|
00001970  09 74 05 3a 0d 09 7e 0f  dd a4 70 61 72 28 73 65  |.t.:..~...par(se|
00001980  70 24 29 0d 09 88 25 69  31 25 3d 69 25 2b 31 3a  |p$)...%i1%=i%+1:|
00001990  69 25 3d a7 6d 65 6e 75  24 2b 73 65 70 24 2c 73  |i%=.menu$+sep$,s|
000019a0  65 70 24 2c 69 31 25 29  0d 09 92 17 3d c1 6d 65  |ep$,i1%)....=.me|
000019b0  6e 75 24 2c 69 31 25 2c  69 25 2d 69 31 25 29 0d  |nu$,i1%,i%-i1%).|
000019c0  09 9c 05 3a 0d 09 a6 16  dd a4 77 6f 72 6b 73 70  |...:......worksp|
000019d0  61 63 65 28 73 6c 6f 74  25 29 0d 09 b0 55 e7 69  |ace(slot%)...U.i|
000019e0  6e 64 69 72 65 63 74 5f  62 75 66 5f 66 72 65 65  |ndirect_buf_free|
000019f0  25 2b 73 6c 6f 74 25 3e  69 6e 64 69 72 65 63 74  |%+slot%>indirect|
00001a00  5f 62 75 66 5f 65 6e 64  25 8c f2 6d 6f 61 6e 28  |_buf_end%..moan(|
00001a10  26 33 30 30 30 33 2c 22  49 6e 64 69 72 65 63 74  |&30003,"Indirect|
00001a20  69 6f 6e 20 61 72 65 61  20 66 75 6c 6c 22 29 0d  |ion area full").|
00001a30  09 ba 1d 69 6e 64 69 72  65 63 74 5f 62 75 66 5f  |...indirect_buf_|
00001a40  66 72 65 65 25 2b 3d 73  6c 6f 74 25 0d 09 c4 1d  |free%+=slot%....|
00001a50  3d 69 6e 64 69 72 65 63  74 5f 62 75 66 5f 66 72  |=indirect_buf_fr|
00001a60  65 65 25 2d 73 6c 6f 74  25 0d 09 ce 05 3a 0d 09  |ee%-slot%....:..|
00001a70  d8 29 f4 20 20 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |.).  -----------|
00001a80  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00001a90  2d 2d 2d 2d 2d 2d 2d 0d  09 e2 29 f4 20 20 7c 20  |-------...).  | |
00001aa0  20 4e 6f 77 20 73 65 74  75 70 20 61 6c 6c 20 74  | Now setup all t|
00001ab0  68 65 20 6c 6f 6f 73 65  20 65 6e 64 73 20 20 7c  |he loose ends  ||
00001ac0  0d 09 ec 29 f4 20 20 2d  2d 2d 2d 2d 2d 2d 2d 2d  |...).  ---------|
00001ad0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00001ae0  2d 2d 2d 2d 2d 2d 2d 2d  2d 0d 09 f6 05 3a 0d 0a  |---------....:..|
00001af0  00 0a dd f2 69 6e 69 74  0d 0a 0a 12 f2 72 65 61  |....init.....rea|
00001b00  64 5f 6d 6f 64 65 69 6e  66 6f 0d 0a 14 0d 24 46  |d_modeinfo....$F|
00001b10  69 6c 65 25 3d 22 22 0d  0a 1e 0c 4c 65 61 66 24  |ile%=""....Leaf$|
00001b20  3d 22 22 0d 0a 28 0b 53  69 7a 65 25 3d 30 0d 0a  |=""..(.Size%=0..|
00001b30  32 1c 53 70 72 69 74 65  73 25 21 30 3d 53 70 72  |2.Sprites%!0=Spr|
00001b40  69 74 65 73 5f 73 69 7a  65 25 0d 0a 3c 11 53 70  |ites_size%..<.Sp|
00001b50  72 69 74 65 73 25 21 38  3d 31 36 0d 0a 46 05 e1  |rites%!8=16..F..|
00001b60  0d 0a 50 05 3a 0d 0a 5a  4c f4 20 20 2d 2d 2d 2d  |..P.:..ZL.  ----|
00001b70  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00001bb0  2d 0d 0a 64 4c f4 20 20  7c 20 20 49 66 20 65 76  |-..dL.  |  If ev|
00001bc0  65 72 79 74 68 69 6e 67  20 68 61 73 20 67 6f 6e  |erything has gon|
00001bd0  65 20 6f 6b 20 75 6e 74  69 6c 20 6e 6f 77 20 74  |e ok until now t|
00001be0  68 65 6e 20 6c 65 74 73  20 73 65 65 20 69 74 20  |hen lets see it |
00001bf0  64 6f 77 6e 20 74 68 65  72 65 20 20 7c 0d 0a 6e  |down there  |..n|
00001c00  4c f4 20 20 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |L.  ------------|
00001c10  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00001c40  2d 2d 2d 2d 2d 2d 2d 2d  2d 0d 0a 78 05 3a 0d 0a  |---------..x.:..|
00001c50  82 0d dd f2 69 63 6f 6e  62 61 72 0d 0a 8c 15 62  |....iconbar....b|
00001c60  61 72 5f 69 63 6f 6e 25  21 30 20 20 3d 20 2d 31  |ar_icon%!0  = -1|
00001c70  0d 0a 96 14 62 61 72 5f  69 63 6f 6e 25 21 34 20  |....bar_icon%!4 |
00001c80  20 3d 20 30 0d 0a a0 14  62 61 72 5f 69 63 6f 6e  | = 0....bar_icon|
00001c90  25 21 38 20 20 3d 20 30  0d 0a aa 15 62 61 72 5f  |%!8  = 0....bar_|
00001ca0  69 63 6f 6e 25 21 31 32  20 3d 20 36 38 0d 0a b4  |icon%!12 = 68...|
00001cb0  15 62 61 72 5f 69 63 6f  6e 25 21 31 36 20 3d 20  |.bar_icon%!16 = |
00001cc0  36 38 0d 0a be 61 62 61  72 5f 69 63 6f 6e 25 21  |68...abar_icon%!|
00001cd0  32 30 20 3d 20 26 32 31  30 32 20 20 20 20 20 20  |20 = &2102      |
00001ce0  20 20 20 20 20 20 20 20  20 20 20 20 3a 20 f4 20  |            : . |
00001cf0  62 75 74 74 6f 6e 20 74  79 70 65 20 32 2c 69 63  |button type 2,ic|
00001d00  6f 6e 20 64 61 74 61 20  69 6e 64 69 72 65 63 74  |on data indirect|
00001d10  65 64 2c 73 70 72 69 74  65 20 6f 6e 6c 79 20 69  |ed,sprite only i|
00001d20  63 6f 6e 0d 0a c8 39 24  28 62 61 72 5f 69 63 6f  |con...9$(bar_ico|
00001d30  6e 25 2b 33 36 29 20 3d  20 22 21 50 73 65 75 64  |n%+36) = "!Pseud|
00001d40  6f 41 70 70 22 20 20 20  20 20 20 20 20 3a 20 f4  |oApp"        : .|
00001d50  20 73 70 72 69 74 65 20  6e 61 61 6d 0d 0a d2 46  | sprite naam...F|
00001d60  62 61 72 5f 69 63 6f 6e  25 21 32 34 20 3d 20 62  |bar_icon%!24 = b|
00001d70  61 72 5f 69 63 6f 6e 25  2b 33 36 20 20 20 20 20  |ar_icon%+36     |
00001d80  20 20 20 20 20 20 3a 20  f4 20 70 6f 69 6e 74 65  |      : . pointe|
00001d90  72 20 6e 61 61 72 20 73  70 72 69 74 65 20 6e 61  |r naar sprite na|
00001da0  61 6d 0d 0a dc 48 62 61  72 5f 69 63 6f 6e 25 21  |am...Hbar_icon%!|
00001db0  32 38 20 3d 20 73 70 72  69 74 65 5f 62 75 66 25  |28 = sprite_buf%|
00001dc0  20 20 20 20 20 20 20 20  20 20 20 20 3a 20 f4 20  |            : . |
00001dd0  70 6f 69 6e 74 65 72 20  6e 61 61 72 20 73 70 72  |pointer naar spr|
00001de0  69 74 65 20 62 75 66 66  65 72 0d 0a e6 3e 62 61  |ite buffer...>ba|
00001df0  72 5f 69 63 6f 6e 25 21  33 32 20 3d 20 a9 28 24  |r_icon%!32 = .($|
00001e00  28 62 61 72 5f 69 63 6f  6e 25 2b 33 36 29 29 2b  |(bar_icon%+36))+|
00001e10  31 20 3a 20 f4 20 6c 65  6e 67 74 65 20 73 70 72  |1 : . lengte spr|
00001e20  69 74 65 20 6e 61 61 6d  0d 0a f0 31 c8 99 20 22  |ite naam...1.. "|
00001e30  57 69 6d 70 5f 43 72 65  61 74 65 49 63 6f 6e 22  |Wimp_CreateIcon"|
00001e40  2c 2c 62 61 72 5f 69 63  6f 6e 25 20 b8 20 69 63  |,,bar_icon% . ic|
00001e50  6f 6e 68 61 6e 64 6c 65  25 0d 0a fa 05 e1 0d 0b  |onhandle%.......|
00001e60  04 05 3a 0d 0b 0e 1c f4  20 20 2d 2d 2d 2d 2d 2d  |..:.....  ------|
00001e70  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 0d  |---------------.|
00001e80  0b 18 1c f4 20 20 7c 20  20 41 6e 64 20 67 65 74  |....  |  And get|
00001e90  20 74 6f 20 77 6f 72 6b  20 20 7c 0d 0b 22 1c f4  | to work  |.."..|
00001ea0  20 20 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |  --------------|
00001eb0  2d 2d 2d 2d 2d 2d 2d 0d  0b 2c 05 3a 0d 0b 36 12  |-------..,.:..6.|
00001ec0  dd f2 70 65 72 66 6f 72  6d 5f 70 6f 6c 6c 0d 0b  |..perform_poll..|
00001ed0  40 05 f5 0d 0b 4a 2c 20  20 c8 99 20 22 57 69 6d  |@....J,  .. "Wim|
00001ee0  70 5f 50 6f 6c 6c 22 2c  70 6f 6c 6c 5f 6d 61 73  |p_Poll",poll_mas|
00001ef0  6b 25 2c 71 25 20 b8 20  72 65 61 73 6f 6e 25 0d  |k%,q% . reason%.|
00001f00  0b 54 12 20 20 c8 8e 20  72 65 61 73 6f 6e 25 20  |.T.  .. reason% |
00001f10  ca 0d 0b 5e 14 20 20 c9  20 4f 70 65 6e 5f 57 69  |...^.  . Open_Wi|
00001f20  6e 64 6f 77 25 0d 0b 68  17 20 20 20 20 f2 6f 70  |ndow%..h.    .op|
00001f30  65 6e 77 69 6e 64 6f 77  28 71 25 29 0d 0b 72 15  |enwindow(q%)..r.|
00001f40  20 20 c9 20 43 6c 6f 73  65 5f 57 69 6e 64 6f 77  |  . Close_Window|
00001f50  25 0d 0b 7c 18 20 20 20  20 f2 63 6c 6f 73 65 77  |%..|.    .closew|
00001f60  69 6e 64 6f 77 28 71 25  29 0d 0b 86 14 20 20 c9  |indow(q%)....  .|
00001f70  20 4d 6f 75 73 65 5f 43  6c 69 63 6b 25 0d 0b 90  | Mouse_Click%...|
00001f80  12 20 20 20 20 f2 6d 6f  75 73 65 28 71 25 29 0d  |.    .mouse(q%).|
00001f90  0b 9a 12 20 20 c9 20 55  73 65 72 5f 44 72 61 67  |...  . User_Drag|
00001fa0  25 0d 0b a4 12 20 20 20  20 f2 64 72 61 67 73 28  |%....    .drags(|
00001fb0  71 25 29 0d 0b ae 17 20  20 c9 20 4d 65 6e 75 5f  |q%)....  . Menu_|
00001fc0  53 65 6c 65 63 74 69 6f  6e 25 0d 0b b8 13 20 20  |Selection%....  |
00001fd0  20 20 f2 73 65 6c 65 63  74 28 71 25 29 0d 0b c2  |  .select(q%)...|
00001fe0  22 20 20 c9 20 4d 65 73  73 61 67 65 25 2c 4d 65  |"  . Message%,Me|
00001ff0  73 73 61 67 65 5f 52 65  63 6f 72 64 65 64 25 0d  |ssage_Recorded%.|
00002000  0b cc 14 20 20 20 20 f2  72 65 63 65 69 76 65 28  |...    .receive(|
00002010  71 25 29 0d 0b d6 07 20  20 cb 0d 0b e0 06 fd a3  |q%)....  .......|
00002020  0d 0b ea 05 e1 0d 0b f4  05 3a 0d 0b fe 45 f4 20  |.........:...E. |
00002030  20 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  | ---------------|
00002040  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00002060  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 0d  |---------------.|
00002070  0c 08 45 f4 20 20 7c 20  20 42 65 6c 6f 77 20 68  |..E.  |  Below h|
00002080  65 72 65 20 61 72 65 20  74 68 65 20 6d 61 69 6e  |ere are the main|
00002090  20 72 6f 75 74 69 6e 65  73 20 63 61 6c 6c 65 64  | routines called|
000020a0  20 62 79 20 74 68 65 20  70 6f 6c 6c 20 6c 6f 6f  | by the poll loo|
000020b0  70 20 20 7c 0d 0c 12 45  f4 20 20 2d 2d 2d 2d 2d  |p  |...E.  -----|
000020c0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
000020f0  2d 2d 2d 2d 2d 2d 2d 2d  2d 0d 0c 1c 05 3a 0d 0c  |---------....:..|
00002100  26 14 dd f2 6f 70 65 6e  77 69 6e 64 6f 77 28 71  |&...openwindow(q|
00002110  25 29 0d 0c 30 1c c8 99  20 22 57 69 6d 70 5f 4f  |%)..0... "Wimp_O|
00002120  70 65 6e 57 69 6e 64 6f  77 22 2c 2c 71 25 0d 0c  |penWindow",,q%..|
00002130  3a 05 e1 0d 0c 44 05 3a  0d 0c 4e 15 dd f2 63 6c  |:....D.:..N...cl|
00002140  6f 73 65 77 69 6e 64 6f  77 28 71 25 29 0d 0c 58  |osewindow(q%)..X|
00002150  1d c8 99 20 22 57 69 6d  70 5f 43 6c 6f 73 65 57  |... "Wimp_CloseW|
00002160  69 6e 64 6f 77 22 2c 2c  71 25 0d 0c 62 05 e1 0d  |indow",,q%..b...|
00002170  0c 6c 05 3a 0d 0c 76 0f  dd f2 6d 6f 75 73 65 28  |.l.:..v...mouse(|
00002180  71 25 29 0d 0c 80 13 4d  6f 75 73 65 58 25 20 20  |q%)....MouseX%  |
00002190  3d 20 71 25 21 30 0d 0c  8a 13 4d 6f 75 73 65 59  |= q%!0....MouseY|
000021a0  25 20 20 3d 20 71 25 21  34 0d 0c 94 13 42 75 74  |%  = q%!4....But|
000021b0  74 6f 6e 73 25 20 3d 20  71 25 21 38 0d 0c 9e 14  |tons% = q%!8....|
000021c0  57 69 6e 64 6f 77 25 20  20 3d 20 71 25 21 31 32  |Window%  = q%!12|
000021d0  0d 0c a8 14 49 63 6f 6e  25 20 20 20 20 3d 20 71  |....Icon%    = q|
000021e0  25 21 31 36 0d 0c b2 11  c8 8e 20 42 75 74 74 6f  |%!16...... Butto|
000021f0  6e 73 25 20 ca 0d 0c bc  09 c9 20 26 30 32 0d 0c  |ns% ...... &02..|
00002200  c6 1a 20 20 f4 20 20 2d  2d 2d 4d 65 6e 75 20 62  |..  .  ---Menu b|
00002210  75 74 74 6f 6e 2d 2d 2d  0d 0c d0 12 20 20 c8 8e  |utton---....  ..|
00002220  20 57 69 6e 64 6f 77 25  20 ca 0d 0c da 0a 20 20  | Window% .....  |
00002230  c9 20 2d 32 0d 0c e4 2a  20 20 20 20 f2 6d 65 6e  |. -2...*    .men|
00002240  75 28 62 61 72 5f 6d 65  6e 25 2c 4d 6f 75 73 65  |u(bar_men%,Mouse|
00002250  58 25 2d 36 34 2c 39 36  2b 32 2a 34 34 29 0d 0c  |X%-64,96+2*44)..|
00002260  ee 07 20 20 cb 0d 0c f8  0d c9 20 26 31 30 2c 26  |..  ...... &10,&|
00002270  34 30 0d 0d 02 28 20 20  f4 20 20 2d 2d 2d 41 64  |40...(  .  ---Ad|
00002280  6a 75 73 74 20 61 6e 64  20 53 65 6c 65 63 74 20  |just and Select |
00002290  62 75 74 74 6f 6e 73 2d  2d 2d 0d 0d 0c 12 20 20  |buttons---....  |
000022a0  c8 8e 20 57 69 6e 64 6f  77 25 20 ca 0d 0d 16 21  |.. Window% ....!|
000022b0  20 20 c9 20 73 61 76 65  61 73 5f 77 69 6e 31 25  |  . saveas_win1%|
000022c0  2c 73 61 76 65 61 73 5f  77 69 6e 32 25 0d 0d 20  |,saveas_win2%.. |
000022d0  1d 20 20 20 20 e7 20 49  63 6f 6e 25 3d 30 20 8c  |.    . Icon%=0 .|
000022e0  20 f2 44 72 61 67 49 63  6f 6e 0d 0d 2a 07 20 20  | .DragIcon..*.  |
000022f0  cb 0d 0d 34 05 cb 0d 0d  3e 05 e1 0d 0d 48 05 3a  |...4....>....H.:|
00002300  0d 0d 52 0f dd f2 64 72  61 67 73 28 71 25 29 0d  |..R...drags(q%).|
00002310  0d 5c 10 f2 70 6f 69 6e  74 65 72 69 6e 66 6f 0d  |.\..pointerinfo.|
00002320  0d 66 0b 7a 25 21 31 32  3d 30 0d 0d 70 13 7a 25  |.f.z%!12=0..p.z%|
00002330  21 31 36 3d 44 61 74 61  53 61 76 65 25 0d 0d 7a  |!16=DataSave%..z|
00002340  11 7a 25 21 32 30 3d 57  69 6e 64 6f 77 25 0d 0d  |.z%!20=Window%..|
00002350  84 0f 7a 25 21 32 34 3d  49 63 6f 6e 25 0d 0d 8e  |..z%!24=Icon%...|
00002360  11 7a 25 21 32 38 3d 4d  6f 75 73 65 58 25 0d 0d  |.z%!28=MouseX%..|
00002370  98 11 7a 25 21 33 32 3d  4d 6f 75 73 65 59 25 0d  |..z%!32=MouseY%.|
00002380  0d a2 0b 7a 25 21 33 36  3d 30 0d 0d ac 0f 7a 25  |...z%!36=0....z%|
00002390  21 34 30 3d 26 32 30 30  30 0d 0d b6 21 24 28 7a  |!40=&2000...!$(z|
000023a0  25 2b 34 34 29 3d 24 a4  47 65 74 4c 65 61 66 4e  |%+44)=$.GetLeafN|
000023b0  61 6d 65 28 46 69 6c 65  25 29 0d 0d c0 1a 7a 25  |ame(File%)....z%|
000023c0  21 30 3d 28 34 38 2b a9  24 28 7a 25 2b 34 34 29  |!0=(48+.$(z%+44)|
000023d0  29 80 ac 33 0d 0d ca 17  7a 25 3f 28 34 34 2b a9  |)..3....z%?(44+.|
000023e0  24 28 7a 25 2b 34 34 29  29 3d 30 0d 0d d4 2d c8  |$(z%+44))=0...-.|
000023f0  99 20 22 57 69 6d 70 5f  53 65 6e 64 4d 65 73 73  |. "Wimp_SendMess|
00002400  61 67 65 22 2c 31 37 2c  7a 25 2c 57 69 6e 64 6f  |age",17,z%,Windo|
00002410  77 25 2c 49 63 6f 6e 25  0d 0d de 0f 4d 79 52 65  |w%,Icon%....MyRe|
00002420  66 25 3d 7a 25 21 38 0d  0d e8 05 e1 0d 0d f2 05  |f%=z%!8.........|
00002430  3a 0d 0d fc 10 dd f2 73  65 6c 65 63 74 28 71 25  |:......select(q%|
00002440  29 0d 0e 06 10 f2 70 6f  69 6e 74 65 72 69 6e 66  |).....pointerinf|
00002450  6f 0d 0e 10 0f c8 8e 20  4d 65 6e 75 48 25 20 ca  |o...... MenuH% .|
00002460  0d 0e 1a 0e c9 20 62 61  72 5f 6d 65 6e 25 0d 0e  |..... bar_men%..|
00002470  24 31 20 20 c8 99 20 22  57 69 6d 70 5f 44 65 63  |$1  .. "Wimp_Dec|
00002480  6f 64 65 4d 65 6e 75 22  2c 2c 62 61 72 5f 6d 65  |odeMenu",,bar_me|
00002490  6e 25 2c 71 25 2c 74 65  78 74 5f 62 75 66 25 0d  |n%,q%,text_buf%.|
000024a0  0e 2e 22 20 20 e7 20 24  74 65 78 74 5f 62 75 66  |.."  . $text_buf|
000024b0  25 3d 22 51 75 69 74 22  20 8c f2 66 69 6e 69 73  |%="Quit" ..finis|
000024c0  68 0d 0e 38 1b 20 20 e7  28 42 75 74 74 6f 6e 73  |h..8.  .(Buttons|
000024d0  25 80 31 29 8c f2 72 65  6d 65 6e 75 0d 0e 42 05  |%.1)..remenu..B.|
000024e0  cb 0d 0e 4c 05 e1 0d 0e  56 05 3b 0d 0e 60 11 dd  |...L....V.;..`..|
000024f0  f2 72 65 63 65 69 76 65  28 71 25 29 0d 0e 6a 0e  |.receive(q%)..j.|
00002500  c8 8e 20 71 25 21 31 36  20 ca 0d 0e 74 0b c9 20  |.. q%!16 ...t.. |
00002510  51 75 69 74 25 0d 0e 7e  0d 20 20 f2 66 69 6e 69  |Quit%..~.  .fini|
00002520  73 68 0d 0e 88 0f c9 20  44 61 74 61 4c 6f 61 64  |sh..... DataLoad|
00002530  25 0d 0e 92 0f 20 20 f2  64 61 74 61 6c 6f 61 64  |%....  .dataload|
00002540  0d 0e 9c 12 c9 20 44 61  74 61 53 61 76 65 41 63  |..... DataSaveAc|
00002550  6b 25 0d 0e a6 11 20 20  f2 53 61 76 65 50 73 65  |k%....  .SavePse|
00002560  75 64 6f 0d 0e b0 0a c9  20 26 35 30 32 0d 0e ba  |udo..... &502...|
00002570  0f 20 20 f2 47 69 76 65  48 65 6c 70 0d 0e c4 05  |.  .GiveHelp....|
00002580  cb 0d 0e ce 05 e1 0d 0e  d8 05 3a 0d 0e e2 49 f4  |..........:...I.|
00002590  20 20 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |  --------------|
000025a0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
000025d0  2d 2d 2d 2d 0d 0e ec 49  f4 20 20 7c 20 20 41 6e  |----...I.  |  An|
000025e0  64 20 74 68 65 73 65 20  73 65 63 6f 6e 64 61 72  |d these secondar|
000025f0  79 20 72 6f 75 74 69 6e  65 73 20 61 72 65 20 63  |y routines are c|
00002600  61 6c 6c 65 64 20 62 79  20 74 68 65 20 6d 61 69  |alled by the mai|
00002610  6e 20 72 6f 75 74 69 6e  65 73 20 20 7c 0d 0e f6  |n routines  |...|
00002620  49 f4 20 20 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |I.  ------------|
00002630  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00002660  2d 2d 2d 2d 2d 2d 0d 0f  00 05 3a 0d 0f 0a 14 dd  |------....:.....|
00002670  f2 6d 65 6e 75 28 6d 25  2c 78 25 2c 79 25 29 0d  |.menu(m%,x%,y%).|
00002680  0f 14 0d 14 0d 14 25 3d  6d 25 0d 0f 1e 0d 4d 65  |......%=m%....Me|
00002690  6e 75 58 25 3d 78 25 0d  0f 28 0d 4d 65 6e 75 59  |nuX%=x%..(.MenuY|
000026a0  25 3d 79 25 0d 0f 32 22  c8 99 20 22 57 69 6d 70  |%=y%..2".. "Wimp|
000026b0  5f 43 72 65 61 74 65 4d  65 6e 75 22 2c 2c 6d 25  |_CreateMenu",,m%|
000026c0  2c 78 25 2c 79 25 0d 0f  3c 05 e1 0d 0f 46 05 3a  |,x%,y%..<....F.:|
000026d0  0d 0f 50 0c dd f2 72 65  6d 65 6e 75 0d 0f 5a 2e  |..P...remenu..Z.|
000026e0  c8 99 20 22 57 69 6d 70  5f 43 72 65 61 74 65 4d  |.. "Wimp_CreateM|
000026f0  65 6e 75 22 2c 2c 22 2c  2c 22 25 2c 4d 65 6e 75  |enu",,",,"%,Menu|
00002700  58 25 2c 4d 65 6e 75 59  25 0d 0f 64 05 e1 0d 0f  |X%,MenuY%..d....|
00002710  6e 05 3a 0d 0f 78 11 dd  f2 70 6f 69 6e 74 65 72  |n.:..x...pointer|
00002720  69 6e 66 6f 0d 0f 82 2a  c8 99 20 22 57 69 6d 70  |info...*.. "Wimp|
00002730  5f 47 65 74 50 6f 69 6e  74 65 72 49 6e 66 6f 22  |_GetPointerInfo"|
00002740  2c 2c 50 6f 69 6e 74 65  72 49 6e 66 6f 25 0d 0f  |,,PointerInfo%..|
00002750  8c 1d 4d 6f 75 73 65 58  25 20 20 3d 20 50 6f 69  |..MouseX%  = Poi|
00002760  6e 74 65 72 49 6e 66 6f  25 21 30 0d 0f 96 1d 4d  |nterInfo%!0....M|
00002770  6f 75 73 65 59 25 20 20  3d 20 50 6f 69 6e 74 65  |ouseY%  = Pointe|
00002780  72 49 6e 66 6f 25 21 34  0d 0f a0 1d 42 75 74 74  |rInfo%!4....Butt|
00002790  6f 6e 73 25 20 3d 20 50  6f 69 6e 74 65 72 49 6e  |ons% = PointerIn|
000027a0  66 6f 25 21 38 0d 0f aa  1e 57 69 6e 64 6f 77 25  |fo%!8....Window%|
000027b0  20 20 3d 20 50 6f 69 6e  74 65 72 49 6e 66 6f 25  |  = PointerInfo%|
000027c0  21 31 32 0d 0f b4 1e 49  63 6f 6e 25 20 20 20 20  |!12....Icon%    |
000027d0  3d 20 50 6f 69 6e 74 65  72 49 6e 66 6f 25 21 31  |= PointerInfo%!1|
000027e0  36 0d 0f be 05 e1 0d 0f  c8 05 3a 0d 0f d2 0e dd  |6.........:.....|
000027f0  f2 64 61 74 61 6c 6f 61  64 0d 0f dc 10 f2 70 6f  |.dataload.....po|
00002800  69 6e 74 65 72 69 6e 66  6f 0d 0f e6 12 f2 73 74  |interinfo.....st|
00002810  72 69 6e 67 28 71 25 2b  34 34 29 0d 0f f0 0e c8  |ring(q%+44).....|
00002820  8e 20 71 25 21 34 30 20  ca 0d 0f fa 0b c9 20 26  |. q%!40 ...... &|
00002830  32 30 30 30 0d 10 04 14  20 20 f2 73 74 72 69 6e  |2000....  .strin|
00002840  67 28 71 25 2b 34 34 29  0d 10 0e 1a 20 20 f2 43  |g(q%+44)....  .C|
00002850  72 65 61 74 65 50 73 65  75 64 6f 28 71 25 2b 34  |reatePseudo(q%+4|
00002860  34 29 0d 10 18 05 cb 0d  10 22 10 f2 44 61 74 61  |4)......."..Data|
00002870  4c 6f 61 64 41 63 6b 0d  10 2c 05 e1 0d 10 36 05  |LoadAck..,....6.|
00002880  3a 0d 10 40 19 dd f2 43  72 65 61 74 65 50 73 65  |:..@...CreatePse|
00002890  75 64 6f 28 70 61 74 68  25 29 0d 10 4a 11 24 46  |udo(path%)..J.$F|
000028a0  69 6c 65 25 3d 24 70 61  74 68 25 0d 10 54 29 4c  |ile%=$path%..T)L|
000028b0  65 61 66 24 3d a4 6c 6f  77 73 74 72 69 6e 67 28  |eaf$=.lowstring(|
000028c0  a4 47 65 74 4c 65 61 66  4e 61 6d 65 28 46 69 6c  |.GetLeafName(Fil|
000028d0  65 25 29 29 0d 10 5e 30  53 69 7a 65 25 3d a4 46  |e%))..^0Size%=.F|
000028e0  69 6c 65 52 65 61 64 53  69 7a 65 28 24 46 69 6c  |ileReadSize($Fil|
000028f0  65 25 2b 22 2e 21 53 70  72 69 74 65 73 22 2c 26  |e%+".!Sprites",&|
00002900  46 46 39 29 0d 10 68 0f  e7 20 53 69 7a 65 25 3e  |FF9)..h.. Size%>|
00002910  30 20 8c 0d 10 72 21 20  20 e7 20 53 69 7a 65 25  |0 ...r!  . Size%|
00002920  3c 3d 53 70 72 69 74 65  73 5f 73 69 7a 65 25 2d  |<=Sprites_size%-|
00002930  31 36 20 8c 0d 10 7c 26  20 20 20 20 c8 99 20 22  |16 ...|&    .. "|
00002940  4f 53 5f 53 70 72 69 74  65 4f 70 22 2c 26 31 30  |OS_SpriteOp",&10|
00002950  39 2c 53 70 72 69 74 65  73 25 0d 10 86 39 20 20  |9,Sprites%...9  |
00002960  20 20 c8 99 20 22 4f 53  5f 53 70 72 69 74 65 4f  |  .. "OS_SpriteO|
00002970  70 22 2c 26 31 30 41 2c  53 70 72 69 74 65 73 25  |p",&10A,Sprites%|
00002980  2c 24 46 69 6c 65 25 2b  22 2e 21 53 70 72 69 74  |,$File%+".!Sprit|
00002990  65 73 22 0d 10 90 32 20  20 20 20 c8 99 20 22 4f  |es"...2    .. "O|
000029a0  53 5f 53 70 72 69 74 65  4f 70 22 2c 26 31 30 38  |S_SpriteOp",&108|
000029b0  2c 53 70 72 69 74 65 73  25 20 b8 20 2c 2c 2c 63  |,Sprites% . ,,,c|
000029c0  6f 75 6e 74 25 0d 10 9a  11 20 20 20 20 73 70 72  |ount%....    spr|
000029d0  69 74 65 25 3d 31 0d 10  a4 1a 20 20 20 20 c8 95  |ite%=1....    ..|
000029e0  20 73 70 72 69 74 65 25  3c 3d 63 6f 75 6e 74 25  | sprite%<=count%|
000029f0  0d 10 ae 45 20 20 20 20  20 20 c8 99 20 22 4f 53  |...E      .. "OS|
00002a00  5f 53 70 72 69 74 65 4f  70 22 2c 26 31 30 44 2c  |_SpriteOp",&10D,|
00002a10  53 70 72 69 74 65 73 25  2c 7a 25 2c 26 31 30 30  |Sprites%,z%,&100|
00002a20  2c 73 70 72 69 74 65 25  20 b8 20 2c 2c 2c 6c 65  |,sprite% . ,,,le|
00002a30  6e 67 68 74 25 0d 10 b8  15 20 20 20 20 20 20 f2  |nght%....      .|
00002a40  73 74 72 69 6e 67 28 7a  25 29 0d 10 c2 2b 20 20  |string(z%)...+  |
00002a50  20 20 20 20 e7 20 ac 28  24 7a 25 3d 4c 65 61 66  |    . .($z%=Leaf|
00002a60  24 20 84 20 24 7a 25 3d  22 73 6d 22 2b 4c 65 61  |$ . $z%="sm"+Lea|
00002a70  66 24 29 20 8c 0d 10 cc  2d 20 20 20 20 20 20 20  |f$) ....-       |
00002a80  20 c8 99 20 22 4f 53 5f  53 70 72 69 74 65 4f 70  | .. "OS_SpriteOp|
00002a90  22 2c 26 31 31 39 2c 53  70 72 69 74 65 73 25 2c  |",&119,Sprites%,|
00002aa0  7a 25 0d 10 d6 15 20 20  20 20 20 20 20 20 63 6f  |z%....        co|
00002ab0  75 6e 74 25 2d 3d 31 0d  10 e0 0b 20 20 20 20 20  |unt%-=1....     |
00002ac0  20 cc 0d 10 ea 16 20 20  20 20 20 20 20 20 73 70  | .....        sp|
00002ad0  72 69 74 65 25 2b 3d 31  0d 10 f4 0b 20 20 20 20  |rite%+=1....    |
00002ae0  20 20 cd 0d 10 fe 09 20  20 20 20 ce 0d 11 08 31  |  .....    ....1|
00002af0  20 20 20 20 c8 99 20 22  4f 53 5f 53 70 72 69 74  |    .. "OS_Sprit|
00002b00  65 4f 70 22 2c 26 31 30  38 2c 53 70 72 69 74 65  |eOp",&108,Sprite|
00002b10  73 25 20 b8 20 2c 2c 2c  53 69 7a 65 25 0d 11 12  |s% . ,,,Size%...|
00002b20  07 20 20 cc 0d 11 1c 21  20 20 20 20 85 20 31 2c  |.  ....!    . 1,|
00002b30  22 53 70 72 69 74 65 20  66 69 6c 65 20 74 6f 6f  |"Sprite file too|
00002b40  20 62 69 67 22 0d 11 26  07 20 20 cd 0d 11 30 05  | big"..&.  ...0.|
00002b50  cd 0d 11 3a 0a f2 50 6f  70 55 70 0d 11 44 05 e1  |...:..PopUp..D..|
00002b60  0d 11 4e 05 3a 0d 11 58  10 dd f2 53 61 76 65 50  |..N.:..X...SaveP|
00002b70  73 65 75 64 6f 0d 11 62  3d e7 20 71 25 21 31 32  |seudo..b=. q%!12|
00002b80  3c 3e 4d 79 52 65 66 25  20 8c 20 85 20 22 55 6e  |<>MyRef% . . "Un|
00002b90  65 78 70 65 63 74 65 64  20 44 61 74 61 53 61 76  |expected DataSav|
00002ba0  65 20 70 61 63 6b 65 74  20 72 65 63 65 69 76 65  |e packet receive|
00002bb0  64 22 0d 11 6c 25 e3 20  49 25 3d 30 20 b8 20 71  |d"..l%. I%=0 . q|
00002bc0  25 21 30 2d 31 20 88 20  34 3a 7a 25 21 49 25 3d  |%!0-1 . 4:z%!I%=|
00002bd0  71 25 21 49 25 3a ed 0d  11 76 12 f2 73 74 72 69  |q%!I%:...v..stri|
00002be0  6e 67 28 7a 25 2b 34 34  29 0d 11 80 20 e7 20 24  |ng(z%+44)... . $|
00002bf0  28 7a 25 2b 34 34 29 3c  3e 22 3c 57 69 6d 70 24  |(z%+44)<>"<Wimp$|
00002c00  53 63 72 61 70 3e 22 20  8c 0d 11 8a 10 20 20 7a  |Scrap>" .....  z|
00002c10  25 21 31 32 3d 7a 25 21  38 0d 11 94 0c 20 20 7a  |%!12=z%!8....  z|
00002c20  25 21 38 3d 30 0d 11 9e  15 20 20 7a 25 21 31 36  |%!8=0....  z%!16|
00002c30  3d 44 61 74 61 4c 6f 61  64 25 0d 11 a8 2c 20 20  |=DataLoad%...,  |
00002c40  c8 99 20 22 57 69 6d 70  5f 53 65 6e 64 4d 65 73  |.. "Wimp_SendMes|
00002c50  73 61 67 65 22 2c 4d 65  73 73 61 67 65 25 2c 7a  |sage",Message%,z|
00002c60  25 2c 7a 25 21 34 0d 11  b2 05 cd 0d 11 bc 18 e7  |%,z%!4..........|
00002c70  20 24 28 7a 25 2b 34 34  29 3c 3e 24 46 69 6c 65  | $(z%+44)<>$File|
00002c80  25 20 8c 0d 11 c6 1d 20  20 c8 99 20 22 4f 53 5f  |% .....  .. "OS_|
00002c90  46 69 6c 65 22 2c 38 2c  24 28 7a 25 2b 34 34 29  |File",8,$(z%+44)|
00002ca0  0d 11 d0 39 20 20 f4 20  20 2d 2d 2d 43 72 65 61  |...9  .  ---Crea|
00002cb0  74 65 20 61 20 53 70 72  69 74 65 73 20 66 69 6c  |te a Sprites fil|
00002cc0  65 20 69 66 20 74 68 65  72 65 20 61 72 65 20 73  |e if there are s|
00002cd0  70 72 69 74 65 73 2d 2d  2d 0d 11 da 11 20 20 e7  |prites---....  .|
00002ce0  20 53 69 7a 65 25 3e 30  20 8c 0d 11 e4 3b 20 20  | Size%>0 ....;  |
00002cf0  20 20 c8 99 20 22 4f 53  5f 53 70 72 69 74 65 4f  |  .. "OS_SpriteO|
00002d00  70 22 2c 26 31 30 43 2c  53 70 72 69 74 65 73 25  |p",&10C,Sprites%|
00002d10  2c 24 28 7a 25 2b 34 34  29 2b 22 2e 21 53 70 72  |,$(z%+44)+".!Spr|
00002d20  69 74 65 73 22 0d 11 ee  23 20 20 20 20 f4 20 20  |ites"...#    .  |
00002d30  2d 2d 2d 43 72 65 61 74  65 20 61 20 42 6f 6f 74  |---Create a Boot|
00002d40  20 66 69 6c 65 2d 2d 2d  0d 11 f8 1f 20 20 20 20  | file---....    |
00002d50  43 25 3d ae 28 24 28 7a  25 2b 34 34 29 2b 22 2e  |C%=.($(z%+44)+".|
00002d60  21 42 6f 6f 74 22 29 0d  12 02 32 20 20 20 20 d5  |!Boot")...2    .|
00002d70  23 43 25 2c 22 7c 20 42  6f 6f 74 20 66 69 6c 65  |#C%,"| Boot file|
00002d80  20 66 6f 72 20 22 2b 4c  65 61 66 24 2b 22 20 62  | for "+Leaf$+" b|
00002d90  79 20 22 2b 4e 61 6d 65  24 0d 12 0c 10 20 20 20  |y "+Name$....   |
00002da0  20 d5 23 43 25 2c 22 7c  22 0d 12 16 2e 20 20 20  | .#C%,"|"....   |
00002db0  20 d5 23 43 25 2c 22 49  63 6f 6e 53 70 72 69 74  | .#C%,"IconSprit|
00002dc0  65 73 20 3c 4f 62 65 79  24 44 69 72 3e 2e 21 53  |es <Obey$Dir>.!S|
00002dd0  70 72 69 74 65 73 22 0d  12 20 0c 20 20 20 20 d9  |prites".. .    .|
00002de0  23 43 25 0d 12 2a 2e 20  20 20 20 c8 99 20 22 4f  |#C%..*.    .. "O|
00002df0  53 5f 46 69 6c 65 22 2c  31 38 2c 24 28 7a 25 2b  |S_File",18,$(z%+|
00002e00  34 34 29 2b 22 2e 21 42  6f 6f 74 22 2c 26 46 45  |44)+".!Boot",&FE|
00002e10  42 0d 12 34 22 20 20 20  20 f4 20 20 2d 2d 2d 43  |B..4"    .  ---C|
00002e20  72 65 61 74 65 20 61 20  52 75 6e 20 66 69 6c 65  |reate a Run file|
00002e30  2d 2d 2d 0d 12 3e 1e 20  20 20 20 43 25 3d ae 28  |---..>.    C%=.(|
00002e40  24 28 7a 25 2b 34 34 29  2b 22 2e 21 52 75 6e 22  |$(z%+44)+".!Run"|
00002e50  29 0d 12 48 31 20 20 20  20 d5 23 43 25 2c 22 7c  |)..H1    .#C%,"||
00002e60  20 52 75 6e 20 66 69 6c  65 20 66 6f 72 20 22 2b  | Run file for "+|
00002e70  4c 65 61 66 24 2b 22 20  62 79 20 22 2b 4e 61 6d  |Leaf$+" by "+Nam|
00002e80  65 24 0d 12 52 10 20 20  20 20 d5 23 43 25 2c 22  |e$..R.    .#C%,"|
00002e90  7c 22 0d 12 5c 2e 20 20  20 20 d5 23 43 25 2c 22  ||"..\.    .#C%,"|
00002ea0  49 63 6f 6e 53 70 72 69  74 65 73 20 3c 4f 62 65  |IconSprites <Obe|
00002eb0  79 24 44 69 72 3e 2e 21  53 70 72 69 74 65 73 22  |y$Dir>.!Sprites"|
00002ec0  0d 12 66 10 20 20 20 20  d5 23 43 25 2c 22 7c 22  |..f.    .#C%,"|"|
00002ed0  0d 12 70 1a 20 20 20 20  d5 23 43 25 2c 22 52 75  |..p.    .#C%,"Ru|
00002ee0  6e 20 22 2b 24 46 69 6c  65 25 0d 12 7a 0c 20 20  |n "+$File%..z.  |
00002ef0  20 20 d9 23 43 25 0d 12  84 2d 20 20 20 20 c8 99  |  .#C%...-    ..|
00002f00  20 22 4f 53 5f 46 69 6c  65 22 2c 31 38 2c 24 28  | "OS_File",18,$(|
00002f10  7a 25 2b 34 34 29 2b 22  2e 21 52 75 6e 22 2c 26  |z%+44)+".!Run",&|
00002f20  46 45 42 0d 12 8e 19 20  20 20 20 71 25 21 30 3d  |FEB....    q%!0=|
00002f30  73 61 76 65 61 73 5f 77  69 6e 32 25 0d 12 98 07  |saveas_win2%....|
00002f40  20 20 cc 0d 12 a2 22 20  20 20 20 f4 20 20 2d 2d  |  ...."    .  --|
00002f50  2d 43 72 65 61 74 65 20  61 20 52 75 6e 20 66 69  |-Create a Run fi|
00002f60  6c 65 2d 2d 2d 0d 12 ac  1e 20 20 20 20 43 25 3d  |le---....    C%=|
00002f70  ae 28 24 28 7a 25 2b 34  34 29 2b 22 2e 21 52 75  |.($(z%+44)+".!Ru|
00002f80  6e 22 29 0d 12 b6 31 20  20 20 20 d5 23 43 25 2c  |n")...1    .#C%,|
00002f90  22 7c 20 52 75 6e 20 66  69 6c 65 20 66 6f 72 20  |"| Run file for |
00002fa0  22 2b 4c 65 61 66 24 2b  22 20 62 79 20 22 2b 4e  |"+Leaf$+" by "+N|
00002fb0  61 6d 65 24 0d 12 c0 10  20 20 20 20 d5 23 43 25  |ame$....    .#C%|
00002fc0  2c 22 7c 22 0d 12 ca 1a  20 20 20 20 d5 23 43 25  |,"|"....    .#C%|
00002fd0  2c 22 52 75 6e 20 22 2b  24 46 69 6c 65 25 0d 12  |,"Run "+$File%..|
00002fe0  d4 0c 20 20 20 20 d9 23  43 25 0d 12 de 2d 20 20  |..    .#C%...-  |
00002ff0  20 20 c8 99 20 22 4f 53  5f 46 69 6c 65 22 2c 31  |  .. "OS_File",1|
00003000  38 2c 24 28 7a 25 2b 34  34 29 2b 22 2e 21 52 75  |8,$(z%+44)+".!Ru|
00003010  6e 22 2c 26 46 45 42 0d  12 e8 19 20 20 20 20 71  |n",&FEB....    q|
00003020  25 21 30 3d 73 61 76 65  61 73 5f 77 69 6e 31 25  |%!0=saveas_win1%|
00003030  0d 12 f2 07 20 20 cd 0d  12 fc 16 20 20 f2 63 6c  |....  .....  .cl|
00003040  6f 73 65 77 69 6e 64 6f  77 28 71 25 29 0d 13 06  |osewindow(q%)...|
00003050  05 cd 0d 13 10 05 e1 0d  13 1a 05 3a 0d 13 24 0b  |...........:..$.|
00003060  dd f2 50 6f 70 55 70 0d  13 2e 0d ea 20 64 78 25  |..PopUp..... dx%|
00003070  2c 64 79 25 0d 13 38 0f  e7 20 53 69 7a 65 25 3e  |,dy%..8.. Size%>|
00003080  30 20 8c 0d 13 42 2a 20  20 f2 53 65 74 49 63 6f  |0 ...B*  .SetIco|
00003090  6e 53 70 72 69 74 65 28  73 61 76 65 61 73 5f 77  |nSprite(saveas_w|
000030a0  69 6e 32 25 2c 30 2c 4c  65 61 66 24 29 0d 13 4c  |in2%,0,Leaf$)..L|
000030b0  17 20 20 7a 25 21 30 3d  73 61 76 65 61 73 5f 77  |.  z%!0=saveas_w|
000030c0  69 6e 32 25 0d 13 56 05  cc 0d 13 60 32 20 20 f2  |in2%..V....`2  .|
000030d0  53 65 74 49 63 6f 6e 53  70 72 69 74 65 28 73 61  |SetIconSprite(sa|
000030e0  76 65 61 73 5f 77 69 6e  31 25 2c 30 2c 22 41 70  |veas_win1%,0,"Ap|
000030f0  70 6c 69 63 61 74 69 6f  6e 22 29 0d 13 6a 17 20  |plication")..j. |
00003100  20 7a 25 21 30 3d 73 61  76 65 61 73 5f 77 69 6e  | z%!0=saveas_win|
00003110  31 25 0d 13 74 05 cd 0d  13 7e 1e f2 53 65 74 49  |1%..t....~..SetI|
00003120  63 6f 6e 54 65 78 74 28  7a 25 21 30 2c 31 2c 4c  |conText(z%!0,1,L|
00003130  65 61 66 24 29 0d 13 88  20 c8 99 20 22 57 69 6d  |eaf$)... .. "Wim|
00003140  70 5f 47 65 74 57 69 6e  64 6f 77 53 74 61 74 65  |p_GetWindowState|
00003150  22 2c 2c 7a 25 0d 13 92  12 64 78 25 3d 7a 25 21  |",,z%....dx%=z%!|
00003160  31 32 2d 7a 25 21 34 0d  13 9c 12 64 79 25 3d 7a  |12-z%!4....dy%=z|
00003170  25 21 31 36 2d 7a 25 21  38 0d 13 a6 16 7a 25 21  |%!16-z%!8....z%!|
00003180  34 3d 4d 6f 75 73 65 58  25 2d 64 78 25 81 32 0d  |4=MouseX%-dx%.2.|
00003190  13 b0 0c 7a 25 21 38 3d  31 34 38 0d 13 ba 12 7a  |...z%!8=148....z|
000031a0  25 21 31 32 3d 7a 25 21  34 2b 64 78 25 0d 13 c4  |%!12=z%!4+dx%...|
000031b0  12 7a 25 21 31 36 3d 7a  25 21 38 2b 64 79 25 0d  |.z%!16=z%!8+dy%.|
000031c0  13 ce 0c 7a 25 21 32 38  3d 2d 31 0d 13 d8 13 f2  |...z%!28=-1.....|
000031d0  6f 70 65 6e 77 69 6e 64  6f 77 28 7a 25 29 0d 13  |openwindow(z%)..|
000031e0  e2 05 e1 0d 13 ec 05 3a  0d 13 f6 11 dd f2 44 61  |.......:......Da|
000031f0  74 61 4c 6f 61 64 41 63  6b 0d 14 00 0e 71 25 21  |taLoadAck....q%!|
00003200  31 32 3d 71 25 21 38 0d  14 0a 16 71 25 21 31 36  |12=q%!8....q%!16|
00003210  3d 44 61 74 61 4c 6f 61  64 41 63 6b 25 0d 14 14  |=DataLoadAck%...|
00003220  25 c8 99 20 22 57 69 6d  70 5f 53 65 6e 64 4d 65  |%.. "Wimp_SendMe|
00003230  73 73 61 67 65 22 2c 4d  65 73 73 61 67 65 25 2c  |ssage",Message%,|
00003240  71 25 0d 14 1e 05 e1 0d  14 28 05 3a 0d 14 32 12  |q%.......(.:..2.|
00003250  dd f2 73 74 72 69 6e 67  28 70 74 72 25 29 0d 14  |..string(ptr%)..|
00003260  3c 15 c8 95 3f 70 74 72  25 3a 70 74 72 25 2b 3d  |<...?ptr%:ptr%+=|
00003270  31 3a ce 0d 14 46 0c 3f  70 74 72 25 3d 31 33 0d  |1:...F.?ptr%=13.|
00003280  14 50 05 e1 0d 14 5a 05  3a 0d 14 64 15 dd a4 6c  |.P....Z.:..d...l|
00003290  6f 77 73 74 72 69 6e 67  28 70 74 72 25 29 0d 14  |owstring(ptr%)..|
000032a0  6e 08 ea 20 61 24 0d 14  78 09 61 24 3d 22 22 0d  |n.. a$..x.a$="".|
000032b0  14 82 10 c8 95 20 3f 70  74 72 25 3c 3e 31 33 0d  |..... ?ptr%<>13.|
000032c0  14 8c 25 e7 20 3f 70 74  72 25 3e 3d 97 28 22 41  |..%. ?ptr%>=.("A|
000032d0  22 29 20 80 20 3f 70 74  72 25 3c 3d 97 28 22 5a  |") . ?ptr%<=.("Z|
000032e0  22 29 20 8c 0d 14 96 16  20 20 61 24 2b 3d bd 28  |") .....  a$+=.(|
000032f0  3f 70 74 72 25 84 26 32  30 29 0d 14 a0 05 cc 0d  |?ptr%.&20)......|
00003300  14 aa 12 20 20 61 24 2b  3d bd 28 3f 70 74 72 25  |...  a$+=.(?ptr%|
00003310  29 0d 14 b4 05 cd 0d 14  be 0b 70 74 72 25 2b 3d  |).........ptr%+=|
00003320  31 0d 14 c8 05 ce 0d 14  d2 07 3d 61 24 0d 14 dc  |1.........=a$...|
00003330  05 3a 0d 14 e6 16 dd f2  53 74 72 69 70 4c 65 61  |.:......StripLea|
00003340  66 28 6e 61 6d 65 25 29  0d 14 f0 0c ea 20 6c 65  |f(name%)..... le|
00003350  61 66 25 2c 0d 14 fa 31  f5 6c 65 61 66 25 3d 6e  |af%,...1.leaf%=n|
00003360  61 6d 65 25 3a 6e 61 6d  65 25 2b 3d a7 24 6e 61  |ame%:name%+=.$na|
00003370  6d 65 25 2c 22 3a 22 29  3a fd 6c 65 61 66 25 3d  |me%,":"):.leaf%=|
00003380  6e 61 6d 65 25 0d 15 04  31 f5 6c 65 61 66 25 3d  |name%...1.leaf%=|
00003390  6e 61 6d 65 25 3a 6e 61  6d 65 25 2b 3d a7 24 6e  |name%:name%+=.$n|
000033a0  61 6d 65 25 2c 22 2e 22  29 3a fd 6c 65 61 66 25  |ame%,"."):.leaf%|
000033b0  3d 6e 61 6d 65 25 0d 15  0e 11 3f 28 6c 65 61 66  |=name%....?(leaf|
000033c0  25 2d 31 29 3d 31 33 0d  15 18 05 e1 0d 15 22 05  |%-1)=13.......".|
000033d0  3a 0d 15 2c 18 dd a4 47  65 74 4c 65 61 66 4e 61  |:..,...GetLeafNa|
000033e0  6d 65 28 6e 61 6d 65 25  29 0d 15 36 0b ea 20 6c  |me(name%)..6.. l|
000033f0  65 61 66 25 0d 15 40 31  f5 6c 65 61 66 25 3d 6e  |eaf%..@1.leaf%=n|
00003400  61 6d 65 25 3a 6e 61 6d  65 25 2b 3d a7 24 6e 61  |ame%:name%+=.$na|
00003410  6d 65 25 2c 22 3a 22 29  3a fd 6c 65 61 66 25 3d  |me%,":"):.leaf%=|
00003420  6e 61 6d 65 25 0d 15 4a  31 f5 6c 65 61 66 25 3d  |name%..J1.leaf%=|
00003430  6e 61 6d 65 25 3a 6e 61  6d 65 25 2b 3d a7 24 6e  |name%:name%+=.$n|
00003440  61 6d 65 25 2c 22 2e 22  29 3a fd 6c 65 61 66 25  |ame%,"."):.leaf%|
00003450  3d 6e 61 6d 65 25 0d 15  54 0a 3d 6c 65 61 66 25  |=name%..T.=leaf%|
00003460  0d 15 5e 05 3a 0d 15 68  0e dd f2 47 69 76 65 48  |..^.:..h...GiveH|
00003470  65 6c 70 0d 15 72 0e c8  8e 20 71 25 21 33 32 20  |elp..r... q%!32 |
00003480  ca 0d 15 7c 08 c9 20 2d  32 0d 15 86 f4 20 20 f2  |...|.. -2....  .|
00003490  53 65 6e 64 48 65 6c 70  28 22 54 68 69 73 20 69  |SendHelp("This i|
000034a0  73 20 74 68 65 20 50 73  65 75 64 6f 41 70 70 20  |s the PseudoApp |
000034b0  49 63 6f 6e 2e 7c 4d 59  6f 75 20 63 61 6e 20 63  |Icon.|MYou can c|
000034c0  72 65 61 74 65 20 61 20  70 73 65 75 64 6f 20 61  |reate a pseudo a|
000034d0  70 70 6c 69 63 61 74 69  6f 6e 20 62 79 20 64 72  |pplication by dr|
000034e0  61 67 67 69 6e 67 20 61  20 61 70 70 6c 69 63 61  |agging a applica|
000034f0  74 69 6f 6e 20 6f 6e 20  74 68 69 73 20 69 63 6f  |tion on this ico|
00003500  6e 2e 7c 4d 41 6e 64 20  74 68 65 6e 20 64 72 61  |n.|MAnd then dra|
00003510  67 67 69 6e 67 20 74 68  65 20 73 75 70 6c 69 65  |gging the suplie|
00003520  64 20 69 63 6f 6e 20 74  6f 20 74 68 65 20 64 69  |d icon to the di|
00003530  72 65 63 74 6f 72 79 20  6f 66 20 79 6f 75 72 20  |rectory of your |
00003540  63 68 6f 69 63 65 2e 7c  4d 52 65 61 64 20 74 68  |choice.|MRead th|
00003550  65 20 68 65 6c 70 20 73  75 70 70 6c 69 65 64 20  |e help supplied |
00003560  77 69 74 68 20 50 73 65  75 64 6f 41 70 70 20 66  |with PseudoApp f|
00003570  6f 72 20 64 65 74 61 69  6c 73 2e 22 29 0d 15 90  |or details.")...|
00003580  05 cb 0d 15 9a 05 e1 0d  15 a4 05 3a 0d 15 ae 12  |...........:....|
00003590  dd f2 53 65 6e 64 48 65  6c 70 28 68 24 29 0d 15  |..SendHelp(h$)..|
000035a0  b8 1a 71 25 21 30 3d 28  28 32 30 2b a9 68 24 2b  |..q%!0=((20+.h$+|
000035b0  31 29 2b 33 29 80 ac 33  0d 15 c2 0e 71 25 21 31  |1)+3)..3....q%!1|
000035c0  32 3d 71 25 21 38 0d 15  cc 0e 71 25 21 31 36 3d  |2=q%!8....q%!16=|
000035d0  26 35 30 33 0d 15 d6 0f  24 28 71 25 2b 32 30 29  |&503....$(q%+20)|
000035e0  3d 68 24 0d 15 e0 11 71  25 3f 28 32 30 2b a9 68  |=h$....q%?(20+.h|
000035f0  24 29 3d 30 0d 15 ea 24  c8 99 20 22 57 69 6d 70  |$)=0...$.. "Wimp|
00003600  5f 53 65 6e 64 4d 65 73  73 61 67 65 22 2c 31 37  |_SendMessage",17|
00003610  2c 71 25 2c 71 25 21 34  0d 15 f4 05 e1 0d 15 fe  |,q%,q%!4........|
00003620  05 3a 0d 16 08 0e dd f2  44 72 61 67 49 63 6f 6e  |.:......DragIcon|
00003630  0d 16 12 11 71 25 21 34  30 3d 57 69 6e 64 6f 77  |....q%!40=Window|
00003640  25 0d 16 1c 23 c8 99 20  22 57 69 6d 70 5f 47 65  |%...#.. "Wimp_Ge|
00003650  74 57 69 6e 64 6f 77 53  74 61 74 65 22 2c 2c 71  |tWindowState",,q|
00003660  25 2b 34 30 0d 16 26 11  71 25 21 38 30 3d 57 69  |%+40..&.q%!80=Wi|
00003670  6e 64 6f 77 25 0d 16 30  0f 71 25 21 38 34 3d 49  |ndow%..0.q%!84=I|
00003680  63 6f 6e 25 0d 16 3a 21  c8 99 20 22 57 69 6d 70  |con%..:!.. "Wimp|
00003690  5f 47 65 74 49 63 6f 6e  53 74 61 74 65 22 2c 2c  |_GetIconState",,|
000036a0  71 25 2b 38 30 0d 16 44  37 f4 20 20 2d 2d 2d 63  |q%+80..D7.  ---c|
000036b0  61 6c 63 75 6c 61 74 65  20 77 6f 72 6b 20 61 72  |alculate work ar|
000036c0  65 61 20 6f 72 69 67 69  6e 20 69 6e 20 73 63 72  |ea origin in scr|
000036d0  65 65 6e 20 63 6f 6f 64  73 2d 2d 2d 0d 16 4e 16  |een coods---..N.|
000036e0  71 25 21 31 32 30 3d 71  25 21 34 34 2d 71 25 21  |q%!120=q%!44-q%!|
000036f0  36 30 0d 16 58 16 71 25  21 31 32 34 3d 71 25 21  |60..X.q%!124=q%!|
00003700  35 36 2d 71 25 21 36 34  0d 16 62 11 71 25 21 30  |56-q%!64..b.q%!0|
00003710  20 3d 57 69 6e 64 6f 77  25 0d 16 6c 29 f4 20 20  | =Window%..l).  |
00003720  2d 2d 2d 64 72 61 67 20  66 69 78 65 64 20 73 69  |---drag fixed si|
00003730  7a 65 20 72 6f 74 61 74  69 6e 67 20 62 6f 78 2d  |ze rotating box-|
00003740  2d 2d 0d 16 76 0b 71 25  21 34 20 3d 35 0d 16 80  |--..v.q%!4 =5...|
00003750  34 f4 20 20 2d 2d 2d 69  6e 69 74 69 61 6c 20 70  |4.  ---initial p|
00003760  6f 73 69 74 69 6f 6e 20  6f 66 20 62 6f 78 20 69  |osition of box i|
00003770  6e 20 73 63 72 65 65 6e  20 63 6f 6f 64 73 2d 2d  |n screen coods--|
00003780  2d 0d 16 8a 16 71 25 21  38 20 3d 71 25 21 31 32  |-....q%!8 =q%!12|
00003790  30 2b 71 25 21 38 38 0d  16 94 16 71 25 21 31 32  |0+q%!88....q%!12|
000037a0  3d 71 25 21 31 32 34 2b  71 25 21 39 32 0d 16 9e  |=q%!124+q%!92...|
000037b0  16 71 25 21 31 36 3d 71  25 21 31 32 30 2b 71 25  |.q%!16=q%!120+q%|
000037c0  21 39 36 0d 16 a8 17 71  25 21 32 30 3d 71 25 21  |!96....q%!20=q%!|
000037d0  31 32 34 2b 71 25 21 31  30 30 0d 16 b2 3c f4 20  |124+q%!100...<. |
000037e0  20 2d 2d 2d 70 61 72 65  6e 74 20 62 6f 78 20 69  | ---parent box i|
000037f0  6e 20 73 63 72 65 65 6e  20 63 6f 6f 64 73 2c 20  |n screen coods, |
00003800  63 6f 76 65 72 73 20 77  68 6f 6c 65 20 73 63 72  |covers whole scr|
00003810  65 65 6e 2d 2d 2d 0d 16  bc 0b 71 25 21 32 34 3d  |een---....q%!24=|
00003820  30 0d 16 c6 0b 71 25 21  32 38 3d 30 0d 16 d0 0e  |0....q%!28=0....|
00003830  71 25 21 33 32 3d 58 73  73 25 0d 16 da 0e 71 25  |q%!32=Xss%....q%|
00003840  21 33 36 3d 59 73 73 25  0d 16 e4 19 c8 99 20 22  |!36=Yss%...... "|
00003850  57 69 6d 70 5f 44 72 61  67 42 6f 78 22 2c 2c 71  |Wimp_DragBox",,q|
00003860  25 0d 16 ee 05 e1 0d 16  f8 05 3a 0d 17 02 13 dd  |%.........:.....|
00003870  f2 72 65 61 64 5f 6d 6f  64 65 69 6e 66 6f 0d 17  |.read_modeinfo..|
00003880  0c 3c f4 20 20 2d 2d 2d  72 65 61 64 20 73 63 61  |.<.  ---read sca|
00003890  6c 65 20 66 61 63 74 6f  72 73 20 61 6e 64 20 63  |le factors and c|
000038a0  6f 6c 6f 75 72 20 74 72  61 6e 73 6c 61 74 69 6f  |olour translatio|
000038b0  6e 20 74 61 62 6c 65 2d  2d 2d 0d 17 16 4e c8 99  |n table---...N..|
000038c0  20 22 57 69 6d 70 5f 52  65 61 64 50 69 78 54 72  | "Wimp_ReadPixTr|
000038d0  61 6e 73 22 2c 26 31 30  30 2c 73 70 72 69 74 65  |ans",&100,sprite|
000038e0  5f 62 75 66 25 2c 22 21  50 73 65 75 64 6f 41 70  |_buf%,"!PseudoAp|
000038f0  70 22 2c 2c 2c 2c 66 61  63 74 6f 72 73 25 2c 70  |p",,,,factors%,p|
00003900  69 78 74 72 61 6e 73 25  0d 17 20 45 f4 20 20 2d  |ixtrans%.. E.  -|
00003910  2d 2d 72 65 61 64 20 77  69 6e 64 6f 77 6c 69 6d  |--read windowlim|
00003920  69 74 73 20 61 6e 64 20  65 69 67 66 61 63 74 6f  |its and eigfacto|
00003930  72 73 20 66 6f 72 20 63  75 72 72 65 6e 74 20 73  |rs for current s|
00003940  63 72 65 65 6e 20 6d 6f  64 65 2d 2d 2d 0d 17 2a  |creen mode---..*|
00003950  2b c8 99 20 22 4f 53 5f  52 65 61 64 4d 6f 64 65  |+.. "OS_ReadMode|
00003960  56 61 72 69 61 62 6c 65  22 2c 2d 31 2c 34 20 20  |Variable",-1,4  |
00003970  b8 20 2c 2c 58 65 66 25  0d 17 34 2b c8 99 20 22  |. ,,Xef%..4+.. "|
00003980  4f 53 5f 52 65 61 64 4d  6f 64 65 56 61 72 69 61  |OS_ReadModeVaria|
00003990  62 6c 65 22 2c 2d 31 2c  35 20 20 b8 20 2c 2c 59  |ble",-1,5  . ,,Y|
000039a0  65 66 25 0d 17 3e 2b c8  99 20 22 4f 53 5f 52 65  |ef%..>+.. "OS_Re|
000039b0  61 64 4d 6f 64 65 56 61  72 69 61 62 6c 65 22 2c  |adModeVariable",|
000039c0  2d 31 2c 31 31 20 b8 20  2c 2c 58 77 6c 25 0d 17  |-1,11 . ,,Xwl%..|
000039d0  48 2b c8 99 20 22 4f 53  5f 52 65 61 64 4d 6f 64  |H+.. "OS_ReadMod|
000039e0  65 56 61 72 69 61 62 6c  65 22 2c 2d 31 2c 31 32  |eVariable",-1,12|
000039f0  20 b8 20 2c 2c 59 77 6c  25 0d 17 52 3c f4 20 20  | . ,,Ywl%..R<.  |
00003a00  2d 2d 2d 6e 6f 77 20 63  61 6c 63 75 6c 61 74 65  |---now calculate|
00003a10  20 68 6f 77 20 62 69 67  20 74 68 65 20 73 63 72  | how big the scr|
00003a20  65 65 6e 20 69 73 20 69  6e 20 4f 53 20 75 6e 69  |een is in OS uni|
00003a30  74 73 2d 2d 2d 0d 17 5c  17 58 73 73 25 3d 28 58  |ts---..\.Xss%=(X|
00003a40  77 6c 25 2b 31 29 3c 3c  58 65 66 25 0d 17 66 17  |wl%+1)<<Xef%..f.|
00003a50  59 73 73 25 3d 28 59 77  6c 25 2b 31 29 3c 3c 59  |Yss%=(Ywl%+1)<<Y|
00003a60  65 66 25 0d 17 70 05 e1  0d 17 7a 05 3a 0d 17 84  |ef%..p....z.:...|
00003a70  23 dd a4 46 69 6c 65 52  65 61 64 53 69 7a 65 28  |#..FileReadSize(|
00003a80  70 61 74 68 24 2c 66 69  6c 65 74 79 70 65 25 29  |path$,filetype%)|
00003a90  0d 17 8e 0c ea 20 66 6f  75 6e 64 25 0d 17 98 38  |..... found%...8|
00003aa0  c8 99 20 22 4f 53 5f 46  69 6c 65 22 2c 35 2c 70  |.. "OS_File",5,p|
00003ab0  61 74 68 24 20 b8 20 66  6f 75 6e 64 25 2c 2c 6c  |ath$ . found%,,l|
00003ac0  6f 61 64 61 64 64 72 65  73 73 25 2c 2c 6c 65 6e  |oadaddress%,,len|
00003ad0  67 68 74 25 0d 17 a2 13  e7 20 66 6f 75 6e 64 25  |ght%..... found%|
00003ae0  3d 30 20 8c 20 3d 30 0d  17 ac 37 e7 20 28 6c 6f  |=0 . =0...7. (lo|
00003af0  61 64 61 64 64 72 65 73  73 25 3e 3e 38 29 20 3c  |adaddress%>>8) <|
00003b00  3e 20 28 26 46 46 46 46  46 30 30 30 20 84 20 66  |> (&FFFFF000 . f|
00003b10  69 6c 65 74 79 70 65 25  29 20 8c 20 3d 30 0d 17  |iletype%) . =0..|
00003b20  b6 0c 3d 6c 65 6e 67 68  74 25 0d 17 c0 05 3a 0d  |..=lenght%....:.|
00003b30  17 ca 2b f4 20 20 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |..+.  ----------|
00003b40  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00003b50  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 0d 17 d4 2b f4 20  |----------...+. |
00003b60  20 7c 20 20 54 68 69 6e  67 73 20 77 69 74 68 20  | |  Things with |
00003b70  49 63 6f 6e 73 20 61 72  65 20 64 6f 6e 65 20 68  |Icons are done h|
00003b80  65 72 65 20 7c 0d 17 de  2b f4 20 20 2d 2d 2d 2d  |ere |...+.  ----|
00003b90  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00003bb0  0d 17 e8 05 3a 0d 17 f2  1b dd f2 53 65 74 49 63  |....:......SetIc|
00003bc0  6f 6e 54 65 78 74 28 77  25 2c 69 25 2c 74 24 29  |onText(w%,i%,t$)|
00003bd0  0d 17 fc 12 69 63 6f 6e  5f 62 75 66 25 21 30 3d  |....icon_buf%!0=|
00003be0  77 25 0d 18 06 12 69 63  6f 6e 5f 62 75 66 25 21  |w%....icon_buf%!|
00003bf0  34 3d 69 25 0d 18 10 25  c8 99 20 22 57 69 6d 70  |4=i%...%.. "Wimp|
00003c00  5f 47 65 74 49 63 6f 6e  53 74 61 74 65 22 2c 2c  |_GetIconState",,|
00003c10  69 63 6f 6e 5f 62 75 66  25 0d 18 1a 3f e7 20 28  |icon_buf%...?. (|
00003c20  69 63 6f 6e 5f 62 75 66  25 21 32 34 20 80 20 26  |icon_buf%!24 . &|
00003c30  31 30 30 29 20 8c 20 24  69 63 6f 6e 5f 62 75 66  |100) . $icon_buf|
00003c40  25 21 32 38 3d c0 74 24  2c 69 63 6f 6e 5f 62 75  |%!28=.t$,icon_bu|
00003c50  66 25 21 33 36 2d 31 29  0d 18 24 05 e1 0d 18 2e  |f%!36-1)..$.....|
00003c60  05 3a 0d 18 38 1d dd f2  53 65 74 49 63 6f 6e 53  |.:..8...SetIconS|
00003c70  70 72 69 74 65 28 77 25  2c 69 25 2c 73 24 29 0d  |prite(w%,i%,s$).|
00003c80  18 42 12 69 63 6f 6e 5f  62 75 66 25 21 30 3d 77  |.B.icon_buf%!0=w|
00003c90  25 0d 18 4c 12 69 63 6f  6e 5f 62 75 66 25 21 34  |%..L.icon_buf%!4|
00003ca0  3d 69 25 0d 18 56 25 c8  99 20 22 57 69 6d 70 5f  |=i%..V%.. "Wimp_|
00003cb0  47 65 74 49 63 6f 6e 53  74 61 74 65 22 2c 2c 69  |GetIconState",,i|
00003cc0  63 6f 6e 5f 62 75 66 25  0d 18 60 22 e7 20 28 69  |con_buf%..`". (i|
00003cd0  63 6f 6e 5f 62 75 66 25  21 32 34 20 80 20 26 31  |con_buf%!24 . &1|
00003ce0  30 33 29 3d 26 31 30 33  20 8c 0d 18 6a 1a 20 20  |03)=&103 ...j.  |
00003cf0  24 69 63 6f 6e 5f 62 75  66 25 21 33 32 3d 22 53  |$icon_buf%!32="S|
00003d00  22 2b 73 24 0d 18 74 05  cd 0d 18 7e 05 e1 0d ff  |"+s$..t....~....|
00003d10