00000000  20 20 9f e5 0c 30 4f e2  03 00 82 e0 0f 1c 80 e2  |  ...0O.........|
00000010  04 30 10 e4 04 30 01 e4  04 20 52 e2 fb ff ff 1a  |.0...0... R.....|
00000020  28 c0 4f e2 93 19 00 ea  f0 57 00 00 0d 00 0a 28  |(.O......W.....(|
00000030  f2 57 69 6d 70 5f 53 74  61 72 74 28 22 4f 76 65  |.Wimp_Start("Ove|
00000040  72 57 72 69 74 65 22 2c  31 33 30 32 31 2c 31 31  |rWrite",13021,11|
00000050  34 30 35 29 0d 00 14 18  f2 55 73 65 72 5f 53 65  |405).....User_Se|
00000060  74 49 6e 69 74 69 61 6c  44 61 74 61 0d 00 1e 13  |tInitialData....|
00000070  f2 43 72 65 61 74 65 5f  57 69 6e 64 6f 77 73 0d  |.Create_Windows.|
00000080  00 28 11 f2 43 72 65 61  74 65 5f 4d 65 6e 75 73  |.(..Create_Menus|
00000090  0d 00 32 0d f2 70 6f 73  74 69 6e 69 74 0d 00 3c  |..2..postinit..<|
000000a0  16 f2 57 69 6d 70 5f 57  61 69 74 46 6f 72 45 76  |..Wimp_WaitForEv|
000000b0  65 6e 74 0d 00 46 13 f2  57 69 6d 70 5f 43 6c 6f  |ent..F..Wimp_Clo|
000000c0  73 65 44 6f 77 6e 0d 00  50 05 e0 0d 00 5a 1a dd  |seDown..P....Z..|
000000d0  20 f2 55 73 65 72 5f 53  65 74 49 6e 69 74 69 61  | .User_SetInitia|
000000e0  6c 44 61 74 61 0d 00 64  10 de 20 6d 61 63 72 6f  |lData..d.. macro|
000000f0  24 28 34 30 29 0d 00 6e  13 de 20 6f 6c 64 6d 61  |$(40)..n.. oldma|
00000100  63 72 6f 24 28 34 30 29  0d 00 78 10 de 20 62 6c  |cro$(40)..x.. bl|
00000110  6f 63 6b 25 20 32 35 36  0d 00 82 2c 74 61 73 6b  |ock% 256...,task|
00000120  70 61 74 68 24 3d a4 57  69 6d 70 5f 52 65 61 64  |path$=.Wimp_Read|
00000130  56 61 72 69 61 62 6c 65  28 22 4f 62 65 79 24 44  |Variable("Obey$D|
00000140  69 72 22 29 0d 00 8c 0f  63 75 72 66 69 6c 65 24  |ir")....curfile$|
00000150  3d 22 22 0d 00 96 15 6f  6c 64 66 69 6c 65 24 3d  |=""....oldfile$=|
00000160  22 4d 61 63 72 6f 73 22  0d 00 a0 05 e1 0d 00 aa  |"Macros"........|
00000170  0e dd f2 70 6f 73 74 69  6e 69 74 0d 00 b4 0f ea  |...postinit.....|
00000180  20 65 6e 76 24 2c 43 55  52 25 0d 00 be 18 c8 99  | env$,CUR%......|
00000190  22 4f 53 5f 47 65 74 45  6e 76 22 20 b8 20 65 6e  |"OS_GetEnv" . en|
000001a0  76 24 0d 00 c8 14 43 55  52 25 3d a7 65 6e 76 24  |v$....CUR%=.env$|
000001b0  2c 22 22 22 22 29 0d 00  d2 1b 43 55 52 25 3d a7  |,"""")....CUR%=.|
000001c0  65 6e 76 24 2c 22 22 22  22 2c 43 55 52 25 2b 31  |env$,"""",CUR%+1|
000001d0  29 0d 00 dc 05 f5 0d 00  e6 0b 43 55 52 25 2b 3d  |).........CUR%+=|
000001e0  31 0d 00 f0 18 fd 20 c1  65 6e 76 24 2c 43 55 52  |1..... .env$,CUR|
000001f0  25 2c 31 29 3c 3e 22 20  22 0d 00 fa 15 66 69 6c  |%,1)<>" "....fil|
00000200  65 24 3d c1 65 6e 76 24  2c 43 55 52 25 29 0d 01  |e$=.env$,CUR%)..|
00000210  04 13 e7 20 a7 66 69 6c  65 24 2c 22 2e 22 29 20  |... .file$,".") |
00000220  8c 0d 01 0e 18 6f 6c 64  6d 61 63 72 6f 24 28 29  |.....oldmacro$()|
00000230  3d 6d 61 63 72 6f 24 28  29 0d 01 18 07 ea 20 85  |=macro$()..... .|
00000240  0d 01 22 39 ee 20 85 20  ea 20 f2 4c 6f 61 64 45  |.."9. . . .LoadE|
00000250  72 72 6f 72 41 63 74 69  6f 6e 3a 6d 61 63 72 6f  |rrorAction:macro|
00000260  24 28 29 3d 6f 6c 64 6d  61 63 72 6f 24 28 29 3a  |$()=oldmacro$():|
00000270  ee 20 85 20 87 3a cd 3a  e1 0d 01 2c 10 46 49 4c  |. . .:.:...,.FIL|
00000280  45 25 3d 8e 66 69 6c 65  24 0d 01 36 11 e3 20 43  |E%=.file$..6.. C|
00000290  55 52 25 3d 31 20 b8 20  34 30 0d 01 40 18 e8 23  |UR%=1 . 40..@..#|
000002a0  46 49 4c 45 25 2c 6d 61  63 72 6f 24 28 43 55 52  |FILE%,macro$(CUR|
000002b0  25 29 0d 01 4a 0a ed 20  43 55 52 25 0d 01 54 2b  |%)..J.. CUR%..T+|
000002c0  f2 57 69 6d 70 5f 49 63  6f 6e 50 75 74 54 65 78  |.Wimp_IconPutTex|
000002d0  74 28 53 61 76 65 5f 57  69 6e 64 6f 77 25 2c 31  |t(Save_Window%,1|
000002e0  2c 66 69 6c 65 24 29 0d  01 5e 12 6f 6c 64 66 69  |,file$)..^.oldfi|
000002f0  6c 65 24 3d 66 69 6c 65  24 0d 01 68 0b d9 23 46  |le$=file$..h..#F|
00000300  49 4c 45 25 0d 01 72 12  63 75 72 66 69 6c 65 24  |ILE%..r.curfile$|
00000310  3d 66 69 6c 65 24 0d 01  7c 28 f2 57 69 6d 70 5f  |=file$..|(.Wimp_|
00000320  57 69 6e 64 6f 77 42 72  69 6e 67 54 6f 54 6f 70  |WindowBringToTop|
00000330  28 4d 61 69 6e 5f 57 69  6e 64 6f 77 25 29 0d 01  |(Main_Window%)..|
00000340  86 12 f2 75 70 64 61 74  65 62 75 74 74 6f 6e 73  |...updatebuttons|
00000350  0d 01 90 09 ee 20 85 20  87 0d 01 9a 05 cd 0d 01  |..... . ........|
00000360  a4 05 e1 0d 01 ae 15 dd  20 f2 43 72 65 61 74 65  |........ .Create|
00000370  5f 57 69 6e 64 6f 77 73  0d 01 b8 29 49 6e 66 6f  |_Windows...)Info|
00000380  5f 57 69 6e 64 6f 77 25  3d a4 57 69 6d 70 5f 57  |_Window%=.Wimp_W|
00000390  69 6e 64 6f 77 4c 6f 61  64 28 22 49 6e 66 6f 22  |indowLoad("Info"|
000003a0  29 0d 01 c2 35 45 64 69  74 4d 61 63 72 6f 73 5f  |)...5EditMacros_|
000003b0  57 69 6e 64 6f 77 25 3d  a4 57 69 6d 70 5f 57 69  |Window%=.Wimp_Wi|
000003c0  6e 64 6f 77 4c 6f 61 64  28 22 45 64 69 74 4d 61  |ndowLoad("EditMa|
000003d0  63 72 6f 73 22 29 0d 01  cc 29 4d 61 69 6e 5f 57  |cros")...)Main_W|
000003e0  69 6e 64 6f 77 25 3d a4  57 69 6d 70 5f 57 69 6e  |indow%=.Wimp_Win|
000003f0  64 6f 77 4c 6f 61 64 28  22 4d 61 69 6e 22 29 0d  |dowLoad("Main").|
00000400  01 d6 29 53 61 76 65 5f  57 69 6e 64 6f 77 25 3d  |..)Save_Window%=|
00000410  a4 57 69 6d 70 5f 57 69  6e 64 6f 77 4c 6f 61 64  |.Wimp_WindowLoad|
00000420  28 22 53 61 76 65 22 29  0d 01 e0 29 42 61 72 5f  |("Save")...)Bar_|
00000430  49 63 6f 6e 25 3d a4 57  69 6d 70 5f 49 63 6f 6e  |Icon%=.Wimp_Icon|
00000440  42 61 72 28 22 21 6f 76  65 72 77 72 69 74 65 22  |Bar("!overwrite"|
00000450  29 0d 01 ea 05 e1 0d 01  f4 1a dd 20 a4 45 76 65  |).......... .Eve|
00000460  6e 74 5f 53 61 76 65 28  77 69 6e 64 6f 77 25 29  |nt_Save(window%)|
00000470  0d 01 fe 10 c8 8e 20 77  69 6e 64 6f 77 25 20 ca  |...... window% .|
00000480  0d 02 08 16 c9 20 53 61  76 65 5f 57 69 6e 64 6f  |..... Save_Windo|
00000490  77 25 20 3a 3d b9 0d 02  12 09 7f 20 3a 3d a3 0d  |w% :=...... :=..|
000004a0  02 1c 05 cb 0d 02 26 26  dd 20 a4 45 76 65 6e 74  |......&&. .Event|
000004b0  5f 53 70 72 69 74 65 73  28 77 69 6e 64 6f 77 25  |_Sprites(window%|
000004c0  29 3d 73 70 72 69 74 65  73 25 0d 02 30 13 dd 20  |)=sprites%..0.. |
000004d0  f2 43 72 65 61 74 65 5f  4d 65 6e 75 73 0d 02 3a  |.Create_Menus..:|
000004e0  2c 6d 65 6e 75 24 3d 22  4f 76 65 72 57 72 69 74  |,menu$="OverWrit|
000004f0  65 5c 49 6e 66 6f 3e 49  6e 66 6f 5f 57 69 6e 64  |e\Info>Info_Wind|
00000500  6f 77 25 5c 51 75 69 74  22 0d 02 44 25 42 61 72  |ow%\Quit"..D%Bar|
00000510  5f 4d 65 6e 75 25 3d a4  57 69 6d 70 5f 4d 65 6e  |_Menu%=.Wimp_Men|
00000520  75 43 72 65 61 74 65 28  6d 65 6e 75 24 29 0d 02  |uCreate(menu$)..|
00000530  4e 45 4d 61 69 6e 5f 4d  65 6e 75 25 3d a4 57 69  |NEMain_Menu%=.Wi|
00000540  6d 70 5f 4d 65 6e 75 43  72 65 61 74 65 28 22 4d  |mp_MenuCreate("M|
00000550  61 63 72 6f 73 5c 53 61  76 65 3e 53 61 76 65 5f  |acros\Save>Save_|
00000560  57 69 6e 64 6f 77 25 5c  45 64 69 74 5c 48 61 6c  |Window%\Edit\Hal|
00000570  74 22 29 0d 02 58 23 f2  57 69 6d 70 5f 4d 65 6e  |t")..X#.Wimp_Men|
00000580  75 44 69 73 61 62 6c 65  28 4d 61 69 6e 5f 4d 65  |uDisable(Main_Me|
00000590  6e 75 25 2c 33 29 0d 02  62 05 e1 0d 02 6c 1a dd  |nu%,3)..b....l..|
000005a0  20 a4 45 76 65 6e 74 5f  4d 65 6e 75 28 77 69 6e  | .Event_Menu(win|
000005b0  64 6f 77 25 29 0d 02 76  10 c8 8e 20 77 69 6e 64  |dow%)..v... wind|
000005c0  6f 77 25 20 ca 0d 02 80  24 c9 20 42 61 72 5f 57  |ow% ....$. Bar_W|
000005d0  69 6e 64 6f 77 25 20 20  20 20 20 20 20 20 3a 3d  |indow%        :=|
000005e0  42 61 72 5f 4d 65 6e 75  25 0d 02 8a 25 c9 20 4d  |Bar_Menu%...%. M|
000005f0  61 69 6e 5f 57 69 6e 64  6f 77 25 20 20 20 20 20  |ain_Window%     |
00000600  20 20 3a 3d 4d 61 69 6e  5f 4d 65 6e 75 25 0d 02  |  :=Main_Menu%..|
00000610  94 17 7f 20 20 20 20 20  20 20 20 20 20 20 20 20  |...             |
00000620  20 20 3a 3d a3 0d 02 9e  05 cb 0d 02 a8 2a dd 20  |  :=.........*. |
00000630  f2 45 76 65 6e 74 5f 57  69 6e 64 6f 77 43 6c 6f  |.Event_WindowClo|
00000640  73 65 28 77 69 6e 64 6f  77 25 2c 62 75 74 74 6f  |se(window%,butto|
00000650  6e 73 25 29 0d 02 b2 10  c8 8e 20 77 69 6e 64 6f  |ns%)...... windo|
00000660  77 25 20 ca 0d 02 bc 05  cb 0d 02 c6 05 e1 0d 02  |w% .............|
00000670  d0 2e dd 20 f2 45 76 65  6e 74 5f 44 72 61 77 28  |... .Event_Draw(|
00000680  77 69 6e 64 6f 77 25 2c  78 5f 6f 72 69 67 69 6e  |window%,x_origin|
00000690  25 2c 79 5f 6f 72 69 67  69 6e 25 29 0d 02 da 10  |%,y_origin%)....|
000006a0  c8 8e 20 77 69 6e 64 6f  77 25 20 ca 0d 02 e4 2f  |.. window% ..../|
000006b0  c9 20 49 6e 66 6f 5f 57  69 6e 64 6f 77 25 20 20  |. Info_Window%  |
000006c0  20 20 20 20 20 20 3a f2  55 73 65 72 5f 44 72 61  |      :.User_Dra|
000006d0  77 49 6e 66 6f 57 69 6e  64 6f 77 0d 02 ee 35 c9  |wInfoWindow...5.|
000006e0  20 45 64 69 74 4d 61 63  72 6f 73 5f 57 69 6e 64  | EditMacros_Wind|
000006f0  6f 77 25 20 20 3a f2 55  73 65 72 5f 44 72 61 77  |ow%  :.User_Draw|
00000700  45 64 69 74 4d 61 63 72  6f 73 57 69 6e 64 6f 77  |EditMacrosWindow|
00000710  0d 02 f8 2f c9 20 4d 61  69 6e 5f 57 69 6e 64 6f  |.../. Main_Windo|
00000720  77 25 20 20 20 20 20 20  20 20 3a f2 55 73 65 72  |w%        :.User|
00000730  5f 44 72 61 77 4d 61 69  6e 57 69 6e 64 6f 77 0d  |_DrawMainWindow.|
00000740  03 02 2f c9 20 53 61 76  65 5f 57 69 6e 64 6f 77  |../. Save_Window|
00000750  25 20 20 20 20 20 20 20  20 3a f2 55 73 65 72 5f  |%        :.User_|
00000760  44 72 61 77 53 61 76 65  57 69 6e 64 6f 77 0d 03  |DrawSaveWindow..|
00000770  0c 05 cb 0d 03 16 05 e1  0d 03 20 1a dd 20 f2 55  |.......... .. .U|
00000780  73 65 72 5f 44 72 61 77  49 6e 66 6f 57 69 6e 64  |ser_DrawInfoWind|
00000790  6f 77 0d 03 2a 05 e1 0d  03 34 20 dd 20 f2 55 73  |ow..*....4 . .Us|
000007a0  65 72 5f 44 72 61 77 45  64 69 74 4d 61 63 72 6f  |er_DrawEditMacro|
000007b0  73 57 69 6e 64 6f 77 0d  03 3e 05 e1 0d 03 48 1a  |sWindow..>....H.|
000007c0  dd 20 f2 55 73 65 72 5f  44 72 61 77 4d 61 69 6e  |. .User_DrawMain|
000007d0  57 69 6e 64 6f 77 0d 03  52 05 e1 0d 03 5c 1a dd  |Window..R....\..|
000007e0  20 f2 55 73 65 72 5f 44  72 61 77 53 61 76 65 57  | .User_DrawSaveW|
000007f0  69 6e 64 6f 77 0d 03 66  05 e1 0d 03 70 34 dd 20  |indow..f....p4. |
00000800  f2 45 76 65 6e 74 5f 4d  6f 75 73 65 43 6c 69 63  |.Event_MouseClic|
00000810  6b 28 77 69 6e 64 6f 77  25 2c 69 63 6f 6e 25 2c  |k(window%,icon%,|
00000820  62 75 74 74 6f 6e 25 2c  78 25 2c 79 25 29 0d 03  |button%,x%,y%)..|
00000830  7a 10 c8 8e 20 77 69 6e  64 6f 77 25 20 ca 0d 03  |z... window% ...|
00000840  84 31 c9 20 42 61 72 5f  57 69 6e 64 6f 77 25 20  |.1. Bar_Window% |
00000850  20 20 20 20 20 20 20 3a  f2 55 73 65 72 5f 4d 6f  |       :.User_Mo|
00000860  75 73 65 42 61 72 28 62  75 74 74 6f 6e 25 29 0d  |useBar(button%).|
00000870  03 8e 3f c9 20 45 64 69  74 4d 61 63 72 6f 73 5f  |..?. EditMacros_|
00000880  57 69 6e 64 6f 77 25 20  3a f2 55 73 65 72 5f 4d  |Window% :.User_M|
00000890  6f 75 73 65 45 64 69 74  4d 61 63 72 6f 73 28 20  |ouseEditMacros( |
000008a0  62 75 74 74 6f 6e 25 2c  69 63 6f 6e 25 29 0d 03  |button%,icon%)..|
000008b0  98 39 c9 20 4d 61 69 6e  5f 57 69 6e 64 6f 77 25  |.9. Main_Window%|
000008c0  20 20 20 20 20 20 20 3a  f2 55 73 65 72 5f 4d 6f  |       :.User_Mo|
000008d0  75 73 65 4d 61 69 6e 28  20 62 75 74 74 6f 6e 25  |useMain( button%|
000008e0  2c 69 63 6f 6e 25 29 0d  03 a2 05 cb 0d 03 ac 05  |,icon%).........|
000008f0  e1 0d 03 b6 1d dd 20 f2  55 73 65 72 5f 4d 6f 75  |...... .User_Mou|
00000900  73 65 42 61 72 28 62 75  74 74 6f 6e 25 29 0d 03  |seBar(button%)..|
00000910  c0 10 c8 8e 20 62 75 74  74 6f 6e 25 20 ca 0d 03  |.... button% ...|
00000920  ca 07 c9 20 31 0d 03 d4  25 f2 42 75 74 74 6f 6e  |... 1...%.Button|
00000930  4f 66 66 28 45 64 69 74  4d 61 63 72 6f 73 5f 57  |Off(EditMacros_W|
00000940  69 6e 64 6f 77 25 2c 38  32 29 0d 03 de 2e f2 57  |indow%,82).....W|
00000950  69 6d 70 5f 57 69 6e 64  6f 77 42 72 69 6e 67 54  |imp_WindowBringT|
00000960  6f 54 6f 70 28 45 64 69  74 4d 61 63 72 6f 73 5f  |oTop(EditMacros_|
00000970  57 69 6e 64 6f 77 25 29  0d 03 e8 1e ea 20 43 55  |Window%)..... CU|
00000980  52 25 2c 6d 61 63 72 6f  25 2c 62 75 74 74 25 2c  |R%,macro%,butt%,|
00000990  77 72 69 74 65 25 0d 03  f2 05 f7 0d 03 fc 19 f3  |write%..........|
000009a0  20 6d 61 63 72 6f 25 2c  62 75 74 74 25 2c 77 72  | macro%,butt%,wr|
000009b0  69 74 65 25 0d 04 06 11  e3 20 43 55 52 25 3d 31  |ite%..... CUR%=1|
000009c0  20 b8 20 34 30 0d 04 10  19 f3 20 6d 61 63 72 6f  | . 40..... macro|
000009d0  25 2c 62 75 74 74 25 2c  77 72 69 74 65 25 0d 04  |%,butt%,write%..|
000009e0  1a 3f f2 57 69 6d 70 5f  49 63 6f 6e 50 75 74 54  |.?.Wimp_IconPutT|
000009f0  65 78 74 28 45 64 69 74  4d 61 63 72 6f 73 5f 57  |ext(EditMacros_W|
00000a00  69 6e 64 6f 77 25 2c 77  72 69 74 65 25 2c 6d 61  |indow%,write%,ma|
00000a10  63 72 6f 24 28 6d 61 63  72 6f 25 29 29 0d 04 24  |cro$(macro%))..$|
00000a20  0a ed 20 43 55 52 25 0d  04 2e 23 f2 50 75 74 43  |.. CUR%...#.PutC|
00000a30  61 72 65 74 28 45 64 69  74 4d 61 63 72 6f 73 5f  |aret(EditMacros_|
00000a40  57 69 6e 64 6f 77 25 2c  30 29 0d 04 38 07 c9 20  |Window%,0)..8.. |
00000a50  34 0d 04 42 28 f2 57 69  6d 70 5f 57 69 6e 64 6f  |4..B(.Wimp_Windo|
00000a60  77 42 72 69 6e 67 54 6f  54 6f 70 28 4d 61 69 6e  |wBringToTop(Main|
00000a70  5f 57 69 6e 64 6f 77 25  29 0d 04 4c 05 cb 0d 04  |_Window%)..L....|
00000a80  56 05 e1 0d 04 60 2b dd  20 f2 55 73 65 72 5f 4d  |V....`+. .User_M|
00000a90  6f 75 73 65 45 64 69 74  4d 61 63 72 6f 73 28 20  |ouseEditMacros( |
00000aa0  62 75 74 74 6f 6e 25 2c  69 63 6f 6e 25 29 0d 04  |button%,icon%)..|
00000ab0  6a 0e c8 8e 20 69 63 6f  6e 25 20 ca 0d 04 74 08  |j... icon% ...t.|
00000ac0  c9 20 36 31 0d 04 7e 1e  ea 20 43 55 52 25 2c 6d  |. 61..~.. CUR%,m|
00000ad0  61 63 72 6f 25 2c 62 75  74 74 25 2c 77 72 69 74  |acro%,butt%,writ|
00000ae0  65 25 0d 04 88 05 f7 0d  04 92 19 f3 20 6d 61 63  |e%.......... mac|
00000af0  72 6f 25 2c 62 75 74 74  25 2c 77 72 69 74 65 25  |ro%,butt%,write%|
00000b00  0d 04 9c 11 e3 20 43 55  52 25 3d 31 20 b8 20 34  |..... CUR%=1 . 4|
00000b10  30 0d 04 a6 19 f3 20 6d  61 63 72 6f 25 2c 62 75  |0..... macro%,bu|
00000b20  74 74 25 2c 77 72 69 74  65 25 0d 04 b0 3c 6d 61  |tt%,write%...<ma|
00000b30  63 72 6f 24 28 6d 61 63  72 6f 25 29 3d a4 57 69  |cro$(macro%)=.Wi|
00000b40  6d 70 5f 49 63 6f 6e 54  65 78 74 28 45 64 69 74  |mp_IconText(Edit|
00000b50  4d 61 63 72 6f 73 5f 57  69 6e 64 6f 77 25 2c 77  |Macros_Window%,w|
00000b60  72 69 74 65 25 29 0d 04  ba 0a ed 20 43 55 52 25  |rite%)..... CUR%|
00000b70  0d 04 c4 29 f2 57 69 6d  70 5f 57 69 6e 64 6f 77  |...).Wimp_Window|
00000b80  43 6c 6f 73 65 28 45 64  69 74 4d 61 63 72 6f 73  |Close(EditMacros|
00000b90  5f 57 69 6e 64 6f 77 25  29 0d 04 ce 12 f2 75 70  |_Window%).....up|
00000ba0  64 61 74 65 62 75 74 74  6f 6e 73 0d 04 d8 08 c9  |datebuttons.....|
00000bb0  20 38 31 0d 04 e2 29 f2  57 69 6d 70 5f 57 69 6e  | 81...).Wimp_Win|
00000bc0  64 6f 77 43 6c 6f 73 65  28 45 64 69 74 4d 61 63  |dowClose(EditMac|
00000bd0  72 6f 73 5f 57 69 6e 64  6f 77 25 29 0d 04 ec 05  |ros_Window%)....|
00000be0  7f 0d 04 f6 11 e7 20 69  63 6f 6e 25 3c 3e 38 32  |...... icon%<>82|
00000bf0  20 8c 0d 05 00 0d ea 20  6d 61 63 72 65 66 24 0d  | ...... macref$.|
00000c00  05 0a 24 c8 99 22 57 69  6d 70 5f 47 65 74 43 61  |..$.."Wimp_GetCa|
00000c10  72 65 74 50 6f 73 69 74  69 6f 6e 22 2c 2c 77 69  |retPosition",,wi|
00000c20  6d 70 25 0d 05 14 22 e7  20 77 69 6d 70 25 21 30  |mp%...". wimp%!0|
00000c30  3d 45 64 69 74 4d 61 63  72 6f 73 5f 57 69 6e 64  |=EditMacros_Wind|
00000c40  6f 77 25 20 8c 0d 05 1e  34 6d 61 63 72 65 66 24  |ow% ....4macref$|
00000c50  3d a4 57 69 6d 70 5f 49  63 6f 6e 54 65 78 74 28  |=.Wimp_IconText(|
00000c60  45 64 69 74 4d 61 63 72  6f 73 5f 57 69 6e 64 6f  |EditMacros_Windo|
00000c70  77 25 2c 69 63 6f 6e 25  29 0d 05 28 26 e7 20 a9  |w%,icon%)..(&. .|
00000c80  28 6d 61 63 72 65 66 24  29 3d 31 20 6d 61 63 72  |(macref$)=1 macr|
00000c90  65 66 24 3d 22 30 22 2b  6d 61 63 72 65 66 24 0d  |ef$="0"+macref$.|
00000ca0  05 32 12 50 52 25 3d b9  3a 6e 65 73 74 73 25 3d  |.2.PR%=.:nests%=|
00000cb0  30 0d 05 3c 17 f2 70 72  6f 63 65 73 73 6d 61 63  |0..<..processmac|
00000cc0  72 6f 28 22 7c 4d 22 29  0d 05 46 1a f2 70 72 6f  |ro("|M")..F..pro|
00000cd0  63 65 73 73 6d 61 63 72  6f 28 6d 61 63 72 65 66  |cessmacro(macref|
00000ce0  24 29 0d 05 50 0d f2 6d  65 6e 75 64 65 61 6c 0d  |$)..P..menudeal.|
00000cf0  05 5a 05 cd 0d 05 64 05  cd 0d 05 6e 05 cb 0d 05  |.Z....d....n....|
00000d00  78 05 e1 0d 05 82 25 dd  20 f2 55 73 65 72 5f 4d  |x.....%. .User_M|
00000d10  6f 75 73 65 4d 61 69 6e  28 20 62 75 74 74 6f 6e  |ouseMain( button|
00000d20  25 2c 69 63 6f 6e 25 29  0d 05 8c 19 ea 20 6d 61  |%,icon%)..... ma|
00000d30  63 72 6f 25 2c 62 75 74  74 25 2c 77 72 69 74 65  |cro%,butt%,write|
00000d40  25 0d 05 96 0e c8 8e 20  69 63 6f 6e 25 20 ca 0d  |%...... icon% ..|
00000d50  05 a0 0e c9 20 34 30 3a  50 52 25 3d a3 0d 05 aa  |.... 40:PR%=....|
00000d60  05 7f 0d 05 b4 3f 50 52  25 3d b9 3a 6e 65 73 74  |.....?PR%=.:nest|
00000d70  73 25 3d 30 3a f2 70 72  6f 63 65 73 73 6d 61 63  |s%=0:.processmac|
00000d80  72 6f 28 6d 61 63 72 6f  24 28 69 63 6f 6e 25 2b  |ro(macro$(icon%+|
00000d90  31 29 29 3a f2 6d 65 6e  75 64 65 61 6c 3a cb 3a  |1)):.menudeal:.:|
00000da0  e1 0d 05 be 05 cb 0d 05  c8 05 e1 0d 05 d2 29 dd  |..............).|
00000db0  20 f2 45 76 65 6e 74 5f  4b 65 79 50 72 65 73 73  | .Event_KeyPress|
00000dc0  28 77 69 6e 64 6f 77 25  2c 69 63 6f 6e 25 2c 6b  |(window%,icon%,k|
00000dd0  65 79 25 29 0d 05 dc 10  c8 8e 20 77 69 6e 64 6f  |ey%)...... windo|
00000de0  77 25 20 ca 0d 05 e6 3f  c9 20 45 64 69 74 4d 61  |w% ....?. EditMa|
00000df0  63 72 6f 73 5f 57 69 6e  64 6f 77 25 20 3a f2 55  |cros_Window% :.U|
00000e00  73 65 72 5f 4b 65 79 50  72 65 73 73 45 64 69 74  |ser_KeyPressEdit|
00000e10  4d 61 63 72 6f 73 28 20  69 63 6f 6e 25 2c 6b 65  |Macros( icon%,ke|
00000e20  79 25 29 0d 05 f0 1e 7f  3a c8 99 22 57 69 6d 70  |y%).....:.."Wimp|
00000e30  5f 50 72 6f 63 65 73 73  4b 65 79 22 2c 6b 65 79  |_ProcessKey",key|
00000e40  25 0d 05 fa 05 cb 0d 06  04 05 e1 0d 06 0e 2b dd  |%.............+.|
00000e50  20 f2 55 73 65 72 5f 4b  65 79 50 72 65 73 73 45  | .User_KeyPressE|
00000e60  64 69 74 4d 61 63 72 6f  73 28 20 69 63 6f 6e 25  |ditMacros( icon%|
00000e70  2c 6b 65 79 25 29 0d 06  18 2b e7 20 a4 42 75 74  |,key%)...+. .But|
00000e80  74 6f 6e 53 74 61 74 65  28 45 64 69 74 4d 61 63  |tonState(EditMac|
00000e90  72 6f 73 5f 57 69 6e 64  6f 77 25 2c 38 32 29 20  |ros_Window%,82) |
00000ea0  8c 0d 06 22 12 50 52 25  3d b9 3a 6e 65 73 74 73  |...".PR%=.:nests|
00000eb0  25 3d 30 0d 06 2c 0a ea  20 6b 65 79 24 0d 06 36  |%=0..,.. key$..6|
00000ec0  16 f2 70 72 6f 63 65 73  73 6d 61 63 72 6f 28 22  |..processmacro("|
00000ed0  7c 22 29 0d 06 40 16 f2  70 72 6f 63 65 73 73 6d  ||")..@..processm|
00000ee0  61 63 72 6f 28 22 7c 22  29 0d 06 4a 10 6b 65 79  |acro("|")..J.key|
00000ef0  24 3d c3 28 6b 65 79 25  29 0d 06 54 11 e7 20 a9  |$=.(key%)..T.. .|
00000f00  28 6b 65 79 24 29 3d 31  20 8c 0d 06 5e 16 f2 70  |(key$)=1 ...^..p|
00000f10  72 6f 63 65 73 73 6d 61  63 72 6f 28 22 30 22 29  |rocessmacro("0")|
00000f20  0d 06 68 16 f2 70 72 6f  63 65 73 73 6d 61 63 72  |..h..processmacr|
00000f30  6f 28 22 30 22 29 0d 06  72 17 f2 70 72 6f 63 65  |o("0")..r..proce|
00000f40  73 73 6d 61 63 72 6f 28  6b 65 79 24 29 0d 06 7c  |ssmacro(key$)..||
00000f50  05 cd 0d 06 86 11 e7 20  a9 28 6b 65 79 24 29 3d  |....... .(key$)=|
00000f60  32 20 8c 0d 06 90 16 f2  70 72 6f 63 65 73 73 6d  |2 ......processm|
00000f70  61 63 72 6f 28 22 30 22  29 0d 06 9a 1d f2 70 72  |acro("0").....pr|
00000f80  6f 63 65 73 73 6d 61 63  72 6f 28 c1 6b 65 79 24  |ocessmacro(.key$|
00000f90  2c 31 2c 31 29 29 0d 06  a4 1d f2 70 72 6f 63 65  |,1,1)).....proce|
00000fa0  73 73 6d 61 63 72 6f 28  c1 6b 65 79 24 2c 32 2c  |ssmacro(.key$,2,|
00000fb0  31 29 29 0d 06 ae 05 cd  0d 06 b8 11 e7 20 a9 28  |1)).......... .(|
00000fc0  6b 65 79 24 29 3d 33 20  8c 0d 06 c2 1d f2 70 72  |key$)=3 ......pr|
00000fd0  6f 63 65 73 73 6d 61 63  72 6f 28 c1 6b 65 79 24  |ocessmacro(.key$|
00000fe0  2c 31 2c 31 29 29 0d 06  cc 1d f2 70 72 6f 63 65  |,1,1)).....proce|
00000ff0  73 73 6d 61 63 72 6f 28  c1 6b 65 79 24 2c 32 2c  |ssmacro(.key$,2,|
00001000  31 29 29 0d 06 d6 1d f2  70 72 6f 63 65 73 73 6d  |1)).....processm|
00001010  61 63 72 6f 28 c1 6b 65  79 24 2c 33 2c 31 29 29  |acro(.key$,3,1))|
00001020  0d 06 e0 05 cd 0d 06 ea  0d f2 6d 65 6e 75 64 65  |..........menude|
00001030  61 6c 0d 06 f4 05 e1 0d  06 fe 05 cc 0d 07 08 0d  |al..............|
00001040  c8 8e 20 6b 65 79 25 20  ca 0d 07 12 08 c9 20 31  |.. key% ...... 1|
00001050  33 0d 07 1c 24 f2 42 75  74 74 6f 6e 4f 6e 28 45  |3...$.ButtonOn(E|
00001060  64 69 74 4d 61 63 72 6f  73 5f 57 69 6e 64 6f 77  |ditMacros_Window|
00001070  25 2c 36 31 29 0d 07 26  1e ea 20 43 55 52 25 2c  |%,61)..&.. CUR%,|
00001080  6d 61 63 72 6f 25 2c 62  75 74 74 25 2c 77 72 69  |macro%,butt%,wri|
00001090  74 65 25 0d 07 30 05 f7  0d 07 3a 19 f3 20 6d 61  |te%..0....:.. ma|
000010a0  63 72 6f 25 2c 62 75 74  74 25 2c 77 72 69 74 65  |cro%,butt%,write|
000010b0  25 0d 07 44 11 e3 20 43  55 52 25 3d 31 20 b8 20  |%..D.. CUR%=1 . |
000010c0  34 30 0d 07 4e 19 f3 20  6d 61 63 72 6f 25 2c 62  |40..N.. macro%,b|
000010d0  75 74 74 25 2c 77 72 69  74 65 25 0d 07 58 3c 6d  |utt%,write%..X<m|
000010e0  61 63 72 6f 24 28 6d 61  63 72 6f 25 29 3d a4 57  |acro$(macro%)=.W|
000010f0  69 6d 70 5f 49 63 6f 6e  54 65 78 74 28 45 64 69  |imp_IconText(Edi|
00001100  74 4d 61 63 72 6f 73 5f  57 69 6e 64 6f 77 25 2c  |tMacros_Window%,|
00001110  77 72 69 74 65 25 29 0d  07 62 0a ed 20 43 55 52  |write%)..b.. CUR|
00001120  25 0d 07 6c 29 f2 57 69  6d 70 5f 57 69 6e 64 6f  |%..l).Wimp_Windo|
00001130  77 43 6c 6f 73 65 28 45  64 69 74 4d 61 63 72 6f  |wClose(EditMacro|
00001140  73 5f 57 69 6e 64 6f 77  25 29 0d 07 76 25 f2 42  |s_Window%)..v%.B|
00001150  75 74 74 6f 6e 4f 66 66  28 45 64 69 74 4d 61 63  |uttonOff(EditMac|
00001160  72 6f 73 5f 57 69 6e 64  6f 77 25 2c 36 31 29 0d  |ros_Window%,61).|
00001170  07 80 12 f2 75 70 64 61  74 65 62 75 74 74 6f 6e  |....updatebutton|
00001180  73 0d 07 8a 08 c9 20 32  37 0d 07 94 24 f2 42 75  |s..... 27...$.Bu|
00001190  74 74 6f 6e 4f 6e 28 45  64 69 74 4d 61 63 72 6f  |ttonOn(EditMacro|
000011a0  73 5f 57 69 6e 64 6f 77  25 2c 38 31 29 0d 07 9e  |s_Window%,81)...|
000011b0  29 f2 57 69 6d 70 5f 57  69 6e 64 6f 77 43 6c 6f  |).Wimp_WindowClo|
000011c0  73 65 28 45 64 69 74 4d  61 63 72 6f 73 5f 57 69  |se(EditMacros_Wi|
000011d0  6e 64 6f 77 25 29 0d 07  a8 25 f2 42 75 74 74 6f  |ndow%)...%.Butto|
000011e0  6e 4f 66 66 28 45 64 69  74 4d 61 63 72 6f 73 5f  |nOff(EditMacros_|
000011f0  57 69 6e 64 6f 77 25 2c  38 31 29 0d 07 b2 0d c9  |Window%,81).....|
00001200  20 33 39 34 2c 33 39 38  0d 07 bc 1b ea 20 6d 61  | 394,398..... ma|
00001210  63 72 6f 25 2c 62 75 74  74 6f 6e 25 2c 77 72 69  |cro%,button%,wri|
00001220  74 65 25 0d 07 c6 05 f7  0d 07 d0 05 f5 0d 07 da  |te%.............|
00001230  1b f3 20 6d 61 63 72 6f  25 2c 62 75 74 74 6f 6e  |.. macro%,button|
00001240  25 2c 77 72 69 74 65 25  0d 07 e4 14 e7 20 77 72  |%,write%..... wr|
00001250  69 74 65 25 3d 69 63 6f  6e 25 20 8c 0d 07 ee 1b  |ite%=icon% .....|
00001260  f3 20 6d 61 63 72 6f 25  2c 62 75 74 74 6f 6e 25  |. macro%,button%|
00001270  2c 77 72 69 74 65 25 0d  07 f8 28 f2 50 75 74 43  |,write%...(.PutC|
00001280  61 72 65 74 28 45 64 69  74 4d 61 63 72 6f 73 5f  |aret(EditMacros_|
00001290  57 69 6e 64 6f 77 25 2c  77 72 69 74 65 25 29 0d  |Window%,write%).|
000012a0  08 02 05 e1 0d 08 0c 05  cd 0d 08 16 07 fd 20 a3  |.............. .|
000012b0  0d 08 20 09 c9 20 33 39  39 0d 08 2a 26 ea 20 6d  |.. .. 399..*&. m|
000012c0  61 63 72 6f 25 2c 62 75  74 74 6f 6e 25 2c 77 72  |acro%,button%,wr|
000012d0  69 74 65 25 2c 70 72 65  76 77 72 69 74 65 25 0d  |ite%,prevwrite%.|
000012e0  08 34 05 f7 0d 08 3e 1f  f3 20 6d 61 63 72 6f 25  |.4....>.. macro%|
000012f0  2c 62 75 74 74 6f 6e 25  2c 70 72 65 76 77 72 69  |,button%,prevwri|
00001300  74 65 25 0d 08 48 05 f5  0d 08 52 1b f3 20 6d 61  |te%..H....R.. ma|
00001310  63 72 6f 25 2c 62 75 74  74 6f 6e 25 2c 77 72 69  |cro%,button%,wri|
00001320  74 65 25 0d 08 5c 3d e7  20 77 72 69 74 65 25 3d  |te%..\=. write%=|
00001330  69 63 6f 6e 25 20 f2 50  75 74 43 61 72 65 74 28  |icon% .PutCaret(|
00001340  45 64 69 74 4d 61 63 72  6f 73 5f 57 69 6e 64 6f  |EditMacros_Windo|
00001350  77 25 2c 70 72 65 76 77  72 69 74 65 25 29 3a e1  |w%,prevwrite%):.|
00001360  0d 08 66 15 70 72 65 76  77 72 69 74 65 25 3d 77  |..f.prevwrite%=w|
00001370  72 69 74 65 25 0d 08 70  07 fd 20 a3 0d 08 7a 1e  |rite%..p.. ...z.|
00001380  7f 3a c8 99 22 57 69 6d  70 5f 50 72 6f 63 65 73  |.:.."Wimp_Proces|
00001390  73 4b 65 79 22 2c 6b 65  79 25 0d 08 84 05 cb 0d  |sKey",key%......|
000013a0  08 8e 05 cd 0d 08 98 05  e1 0d 08 a2 1e dd 20 f2  |.............. .|
000013b0  45 76 65 6e 74 5f 4d 65  6e 75 43 68 6f 69 63 65  |Event_MenuChoice|
000013c0  28 6d 65 6e 75 25 29 0d  08 ac 0e c8 8e 20 6d 65  |(menu%)...... me|
000013d0  6e 75 25 20 ca 0d 08 b6  2d c9 20 42 61 72 5f 4d  |nu% ....-. Bar_M|
000013e0  65 6e 75 25 20 20 20 20  20 20 20 20 20 20 3a f2  |enu%          :.|
000013f0  55 73 65 72 5f 4d 65 6e  75 43 68 6f 69 63 65 42  |User_MenuChoiceB|
00001400  61 72 0d 08 c0 2e c9 20  4d 61 69 6e 5f 4d 65 6e  |ar..... Main_Men|
00001410  75 25 20 20 20 20 20 20  20 20 20 3a f2 55 73 65  |u%         :.Use|
00001420  72 5f 4d 65 6e 75 43 68  6f 69 63 65 4d 61 69 6e  |r_MenuChoiceMain|
00001430  0d 08 ca 05 cb 0d 08 d4  1d f2 57 69 6d 70 5f 4d  |..........Wimp_M|
00001440  65 6e 75 41 64 6a 75 73  74 4f 6e 28 6d 65 6e 75  |enuAdjustOn(menu|
00001450  25 29 0d 08 de 05 e1 0d  08 e8 19 dd 20 f2 55 73  |%).......... .Us|
00001460  65 72 5f 4d 65 6e 75 43  68 6f 69 63 65 42 61 72  |er_MenuChoiceBar|
00001470  0d 08 f2 1c c8 8e 20 a4  57 69 6d 70 5f 4d 65 6e  |...... .Wimp_Men|
00001480  75 43 68 6f 69 63 65 28  30 29 20 ca 0d 08 fc 07  |uChoice(0) .....|
00001490  c9 20 31 0d 09 06 19 c9  20 32 3a 50 52 25 3d a3  |. 1..... 2:PR%=.|
000014a0  3a 66 69 6e 69 73 68 65  64 25 3d b9 0d 09 10 05  |:finished%=.....|
000014b0  cb 0d 09 1a 05 e1 0d 09  24 1a dd 20 f2 55 73 65  |........$.. .Use|
000014c0  72 5f 4d 65 6e 75 43 68  6f 69 63 65 4d 61 69 6e  |r_MenuChoiceMain|
000014d0  0d 09 2e 1c c8 8e 20 a4  57 69 6d 70 5f 4d 65 6e  |...... .Wimp_Men|
000014e0  75 43 68 6f 69 63 65 28  30 29 20 ca 0d 09 38 29  |uChoice(0) ...8)|
000014f0  c9 20 31 20 3a f2 57 69  6d 70 5f 50 6f 6c 6c 53  |. 1 :.Wimp_PollS|
00001500  61 76 65 46 69 6c 65 28  53 61 76 65 5f 57 69 6e  |aveFile(Save_Win|
00001510  64 6f 77 25 29 0d 09 42  07 c9 20 32 0d 09 4c 25  |dow%)..B.. 2..L%|
00001520  f2 42 75 74 74 6f 6e 4f  66 66 28 45 64 69 74 4d  |.ButtonOff(EditM|
00001530  61 63 72 6f 73 5f 57 69  6e 64 6f 77 25 2c 38 32  |acros_Window%,82|
00001540  29 0d 09 56 2e f2 57 69  6d 70 5f 57 69 6e 64 6f  |)..V..Wimp_Windo|
00001550  77 42 72 69 6e 67 54 6f  54 6f 70 28 45 64 69 74  |wBringToTop(Edit|
00001560  4d 61 63 72 6f 73 5f 57  69 6e 64 6f 77 25 29 0d  |Macros_Window%).|
00001570  09 60 1e ea 20 43 55 52  25 2c 6d 61 63 72 6f 25  |.`.. CUR%,macro%|
00001580  2c 62 75 74 74 25 2c 77  72 69 74 65 25 0d 09 6a  |,butt%,write%..j|
00001590  05 f7 0d 09 74 19 f3 20  6d 61 63 72 6f 25 2c 62  |....t.. macro%,b|
000015a0  75 74 74 25 2c 77 72 69  74 65 25 0d 09 7e 11 e3  |utt%,write%..~..|
000015b0  20 43 55 52 25 3d 31 20  b8 20 34 30 0d 09 88 19  | CUR%=1 . 40....|
000015c0  f3 20 6d 61 63 72 6f 25  2c 62 75 74 74 25 2c 77  |. macro%,butt%,w|
000015d0  72 69 74 65 25 0d 09 92  3f f2 57 69 6d 70 5f 49  |rite%...?.Wimp_I|
000015e0  63 6f 6e 50 75 74 54 65  78 74 28 45 64 69 74 4d  |conPutText(EditM|
000015f0  61 63 72 6f 73 5f 57 69  6e 64 6f 77 25 2c 77 72  |acros_Window%,wr|
00001600  69 74 65 25 2c 6d 61 63  72 6f 24 28 6d 61 63 72  |ite%,macro$(macr|
00001610  6f 25 29 29 0d 09 9c 0a  ed 20 43 55 52 25 0d 09  |o%))..... CUR%..|
00001620  a6 23 f2 50 75 74 43 61  72 65 74 28 45 64 69 74  |.#.PutCaret(Edit|
00001630  4d 61 63 72 6f 73 5f 57  69 6e 64 6f 77 25 2c 30  |Macros_Window%,0|
00001640  29 0d 09 b0 0d c9 20 33  3a 50 52 25 3d a3 0d 09  |)..... 3:PR%=...|
00001650  ba 05 cb 0d 09 c4 05 e1  0d 09 ce 22 dd 20 f2 45  |...........". .E|
00001660  76 65 6e 74 5f 4c 6f 61  64 46 69 6c 65 28 66 69  |vent_LoadFile(fi|
00001670  6c 65 24 2c 74 79 70 65  24 29 0d 09 d8 0a ea 20  |le$,type$)..... |
00001680  43 55 52 25 0d 09 e2 0e  c8 8e 20 74 79 70 65 24  |CUR%...... type$|
00001690  20 ca 0d 09 ec 0a c9 20  22 37 37 22 0d 09 f6 18  | ...... "77"....|
000016a0  6f 6c 64 6d 61 63 72 6f  24 28 29 3d 6d 61 63 72  |oldmacro$()=macr|
000016b0  6f 24 28 29 0d 0a 00 07  ea 20 85 0d 0a 0a 39 ee  |o$()..... ....9.|
000016c0  20 85 20 ea 20 f2 4c 6f  61 64 45 72 72 6f 72 41  | . . .LoadErrorA|
000016d0  63 74 69 6f 6e 3a 6d 61  63 72 6f 24 28 29 3d 6f  |ction:macro$()=o|
000016e0  6c 64 6d 61 63 72 6f 24  28 29 3a ee 20 85 20 87  |ldmacro$():. . .|
000016f0  3a cd 3a e1 0d 0a 14 10  46 49 4c 45 25 3d 8e 66  |:.:.....FILE%=.f|
00001700  69 6c 65 24 0d 0a 1e 11  e3 20 43 55 52 25 3d 31  |ile$..... CUR%=1|
00001710  20 b8 20 34 30 0d 0a 28  18 e8 23 46 49 4c 45 25  | . 40..(..#FILE%|
00001720  2c 6d 61 63 72 6f 24 28  43 55 52 25 29 0d 0a 32  |,macro$(CUR%)..2|
00001730  0a ed 20 43 55 52 25 0d  0a 3c 2b f2 57 69 6d 70  |.. CUR%..<+.Wimp|
00001740  5f 49 63 6f 6e 50 75 74  54 65 78 74 28 53 61 76  |_IconPutText(Sav|
00001750  65 5f 57 69 6e 64 6f 77  25 2c 31 2c 66 69 6c 65  |e_Window%,1,file|
00001760  24 29 0d 0a 46 12 6f 6c  64 66 69 6c 65 24 3d 66  |$)..F.oldfile$=f|
00001770  69 6c 65 24 0d 0a 50 0b  d9 23 46 49 4c 45 25 0d  |ile$..P..#FILE%.|
00001780  0a 5a 12 63 75 72 66 69  6c 65 24 3d 66 69 6c 65  |.Z.curfile$=file|
00001790  24 0d 0a 64 28 f2 57 69  6d 70 5f 57 69 6e 64 6f  |$..d(.Wimp_Windo|
000017a0  77 42 72 69 6e 67 54 6f  54 6f 70 28 4d 61 69 6e  |wBringToTop(Main|
000017b0  5f 57 69 6e 64 6f 77 25  29 0d 0a 6e 12 f2 75 70  |_Window%)..n..up|
000017c0  64 61 74 65 62 75 74 74  6f 6e 73 0d 0a 78 09 ee  |datebuttons..x..|
000017d0  20 85 20 87 0d 0a 82 05  cb 0d 0a 8c 05 e1 0d 0a  | . .............|
000017e0  96 24 dd 20 f2 45 76 65  6e 74 5f 53 61 76 65 46  |.$. .Event_SaveF|
000017f0  69 6c 65 28 66 69 6c 65  24 2c 77 69 6e 64 6f 77  |ile(file$,window|
00001800  25 29 0d 0a a0 0a ea 20  43 55 52 25 0d 0a aa 07  |%)..... CUR%....|
00001810  ea 20 85 0d 0a b4 32 ee  20 85 20 ea 20 f2 53 61  |. ....2. . . .Sa|
00001820  76 65 45 72 72 6f 72 41  63 74 69 6f 6e 3a ee 20  |veErrorAction:. |
00001830  85 20 87 3a f2 57 69 6d  70 5f 4d 65 6e 75 43 6c  |. .:.Wimp_MenuCl|
00001840  6f 73 65 3a e1 0d 0a be  10 c8 8e 20 77 69 6e 64  |ose:....... wind|
00001850  6f 77 25 20 ca 0d 0a c8  12 c9 20 53 61 76 65 5f  |ow% ...... Save_|
00001860  57 69 6e 64 6f 77 25 0d  0a d2 56 e7 20 a7 66 69  |Window%...V. .fi|
00001870  6c 65 24 2c 22 3c 22 29  20 cb 3a ee 20 85 20 87  |le$,"<") .:. . .|
00001880  3a f2 57 69 6d 70 5f 4d  65 6e 75 43 6c 6f 73 65  |:.Wimp_MenuClose|
00001890  3a f2 57 69 6d 70 5f 49  63 6f 6e 50 75 74 54 65  |:.Wimp_IconPutTe|
000018a0  78 74 28 53 61 76 65 5f  57 69 6e 64 6f 77 25 2c  |xt(Save_Window%,|
000018b0  31 2c 6f 6c 64 66 69 6c  65 24 29 3a e1 0d 0a dc  |1,oldfile$):....|
000018c0  12 46 49 4c 45 25 3d ae  28 66 69 6c 65 24 29 0d  |.FILE%=.(file$).|
000018d0  0a e6 11 e3 20 43 55 52  25 3d 31 20 b8 20 34 30  |.... CUR%=1 . 40|
000018e0  0d 0a f0 18 f1 23 46 49  4c 45 25 2c 6d 61 63 72  |.....#FILE%,macr|
000018f0  6f 24 28 43 55 52 25 29  0d 0a fa 0a ed 20 43 55  |o$(CUR%)..... CU|
00001900  52 25 0d 0b 04 0b d9 23  46 49 4c 45 25 0d 0b 0e  |R%.....#FILE%...|
00001910  1e ff 28 22 53 45 54 54  59 50 45 20 22 2b 66 69  |..("SETTYPE "+fi|
00001920  6c 65 24 2b 22 20 30 37  37 22 29 0d 0b 18 13 f2  |le$+" 077").....|
00001930  57 69 6d 70 5f 4d 65 6e  75 43 6c 6f 73 65 0d 0b  |Wimp_MenuClose..|
00001940  22 12 6f 6c 64 66 69 6c  65 24 3d 66 69 6c 65 24  |".oldfile$=file$|
00001950  0d 0b 2c 05 cb 0d 0b 36  09 ee 20 85 20 87 0d 0b  |..,....6.. . ...|
00001960  40 05 e1 0d 0b 4a 0a dd  f2 48 65 6c 70 0d 0b 54  |@....J...Help..T|
00001970  10 c8 8e 20 77 69 6e 64  6f 77 25 20 ca 0d 0b 5e  |... window% ...^|
00001980  c8 c9 20 2d 32 3a f2 53  65 6e 64 48 65 6c 70 28  |.. -2:.SendHelp(|
00001990  22 54 68 69 73 20 69 73  20 74 68 65 20 4f 76 65  |"This is the Ove|
000019a0  72 57 72 69 74 65 20 61  70 70 6c 69 63 61 74 69  |rWrite applicati|
000019b0  6f 6e 2c 20 61 20 75 74  69 6c 69 74 79 20 67 72  |on, a utility gr|
000019c0  65 61 74 6c 79 20 65 61  73 69 6e 67 20 72 65 70  |eatly easing rep|
000019d0  65 74 69 74 69 76 65 20  6b 65 79 20 61 6e 64 20  |etitive key and |
000019e0  74 65 78 74 20 65 6e 74  72 79 2e 7c 4d 43 6c 69  |text entry.|MCli|
000019f0  63 6b 20 53 45 4c 45 43  54 20 74 6f 20 70 72 6f  |ck SELECT to pro|
00001a00  63 65 73 73 20 61 20 6d  61 63 72 6f 2e 7c 4d 43  |cess a macro.|MC|
00001a10  6c 69 63 6b 20 41 44 4a  55 53 54 20 74 6f 20 65  |lick ADJUST to e|
00001a20  6e 74 65 72 20 6f 72 20  65 64 69 74 20 74 68 65  |nter or edit the|
00001a30  20 6d 61 63 72 6f 20 64  65 66 69 6e 69 74 69 6f  | macro definitio|
00001a40  6e 73 2e 22 29 0d 0b 68  51 c9 20 49 6e 66 6f 5f  |ns.")..hQ. Info_|
00001a50  57 69 6e 64 6f 77 25 3a  f2 53 65 6e 64 48 65 6c  |Window%:.SendHel|
00001a60  70 28 22 54 68 69 73 20  77 69 6e 64 6f 77 20 64  |p("This window d|
00001a70  69 73 70 6c 61 79 73 20  69 6e 66 6f 72 6d 61 74  |isplays informat|
00001a80  69 6f 6e 20 61 62 6f 75  74 20 4f 76 65 72 57 72  |ion about OverWr|
00001a90  69 74 65 2e 22 29 0d 0b  72 12 c9 20 4d 61 69 6e  |ite.")..r.. Main|
00001aa0  5f 57 69 6e 64 6f 77 25  0d 0b 7c 0e c8 8e 20 69  |_Window%..|... i|
00001ab0  63 6f 6e 25 20 ca 0d 0b  86 5b c9 20 2d 31 3a f2  |con% ....[. -1:.|
00001ac0  53 65 6e 64 48 65 6c 70  28 22 54 68 69 73 20 77  |SendHelp("This w|
00001ad0  69 6e 64 6f 77 20 61 6c  6c 6f 77 73 20 79 6f 75  |indow allows you|
00001ae0  20 74 6f 20 65 6e 74 65  72 20 61 6e 79 20 70 72  | to enter any pr|
00001af0  65 64 65 74 65 72 6d 69  6e 65 64 20 6d 61 63 72  |edetermined macr|
00001b00  6f 20 61 74 20 74 68 65  20 63 61 72 65 74 2e 22  |o at the caret."|
00001b10  29 0d 0b 90 41 7f 3a f2  53 65 6e 64 48 65 6c 70  |)...A.:.SendHelp|
00001b20  28 22 43 6c 69 63 6b 20  53 45 4c 45 43 54 20 74  |("Click SELECT t|
00001b30  6f 20 65 6e 74 65 72 20  74 68 69 73 20 6d 61 63  |o enter this mac|
00001b40  72 6f 20 61 74 20 74 68  65 20 63 61 72 65 74 2e  |ro at the caret.|
00001b50  22 29 0d 0b 9a 05 cb 0d  0b a4 18 c9 20 45 64 69  |").......... Edi|
00001b60  74 4d 61 63 72 6f 73 5f  57 69 6e 64 6f 77 25 0d  |tMacros_Window%.|
00001b70  0b ae 0e c8 8e 20 69 63  6f 6e 25 20 ca 0d 0b b8  |..... icon% ....|
00001b80  52 c9 20 2d 31 3a f2 53  65 6e 64 48 65 6c 70 28  |R. -1:.SendHelp(|
00001b90  22 54 68 69 73 20 77 69  6e 64 6f 77 20 65 6e 61  |"This window ena|
00001ba0  62 6c 65 73 20 79 6f 75  20 74 6f 20 65 6e 74 65  |bles you to ente|
00001bb0  72 20 61 6e 64 20 65 64  69 74 20 6d 61 63 72 6f  |r and edit macro|
00001bc0  20 64 65 66 69 6e 69 74  69 6f 6e 73 2e 22 29 0d  | definitions.").|
00001bd0  0b c2 75 c9 20 30 2c 32  33 2c 32 34 2c 32 35 2c  |..u. 0,23,24,25,|
00001be0  32 36 2c 32 37 2c 32 38  2c 32 39 2c 33 30 2c 33  |26,27,28,29,30,3|
00001bf0  31 2c 33 32 2c 33 33 2c  33 34 2c 33 35 2c 33 36  |1,32,33,34,35,36|
00001c00  2c 33 37 2c 33 38 2c 33  39 2c 34 30 2c 34 31 2c  |,37,38,39,40,41,|
00001c10  33 2c 34 2c 35 2c 36 2c  37 2c 38 2c 39 2c 31 30  |3,4,5,6,7,8,9,10|
00001c20  2c 31 31 2c 31 32 2c 31  33 2c 31 34 2c 31 35 2c  |,11,12,13,14,15,|
00001c30  31 36 2c 31 37 2c 31 38  2c 31 39 2c 32 30 2c 32  |16,17,18,19,20,2|
00001c40  31 2c 32 32 0d 0b cc 3c  f2 53 65 6e 64 48 65 6c  |1,22...<.SendHel|
00001c50  70 28 22 43 6c 69 63 6b  20 53 45 4c 45 43 54 20  |p("Click SELECT |
00001c60  74 6f 20 65 64 69 74 20  74 68 69 73 20 6d 61 63  |to edit this mac|
00001c70  72 6f 20 64 65 66 69 6e  69 74 69 6f 6e 2e 22 29  |ro definition.")|
00001c80  0d 0b d6 08 c9 20 38 32  0d 0b e0 21 f2 43 6f 70  |..... 82...!.Cop|
00001c90  79 4d 65 6d 6f 72 79 28  77 69 6d 70 25 2c 62 6c  |yMemory(wimp%,bl|
00001ca0  6f 63 6b 25 2c 32 35 36  29 0d 0b ea 2b e7 20 a4  |ock%,256)...+. .|
00001cb0  42 75 74 74 6f 6e 53 74  61 74 65 28 45 64 69 74  |ButtonState(Edit|
00001cc0  4d 61 63 72 6f 73 5f 57  69 6e 64 6f 77 25 2c 38  |Macros_Window%,8|
00001cd0  32 29 20 8c 0d 0b f4 21  f2 43 6f 70 79 4d 65 6d  |2) ....!.CopyMem|
00001ce0  6f 72 79 28 62 6c 6f 63  6b 25 2c 77 69 6d 70 25  |ory(block%,wimp%|
00001cf0  2c 32 35 36 29 0d 0b fe  55 f2 53 65 6e 64 48 65  |,256)...U.SendHe|
00001d00  6c 70 28 22 43 6c 69 63  6b 20 53 45 4c 45 43 54  |lp("Click SELECT|
00001d10  20 74 6f 20 64 69 73 61  62 6c 65 20 74 68 65 20  | to disable the |
00001d20  65 6e 74 65 72 69 6e 67  20 6f 66 20 6b 65 79 73  |entering of keys|
00001d30  20 69 6e 74 6f 20 6d 61  63 72 6f 20 64 65 66 69  | into macro defi|
00001d40  6e 69 74 69 6f 6e 73 2e  22 29 0d 0c 08 05 cc 0d  |nitions.")......|
00001d50  0c 12 21 f2 43 6f 70 79  4d 65 6d 6f 72 79 28 62  |..!.CopyMemory(b|
00001d60  6c 6f 63 6b 25 2c 77 69  6d 70 25 2c 32 35 36 29  |lock%,wimp%,256)|
00001d70  0d 0c 1c 54 f2 53 65 6e  64 48 65 6c 70 28 22 43  |...T.SendHelp("C|
00001d80  6c 69 63 6b 20 53 45 4c  45 43 54 20 74 6f 20 65  |lick SELECT to e|
00001d90  6e 61 62 6c 65 20 74 68  65 20 65 6e 74 65 72 69  |nable the enteri|
00001da0  6e 67 20 6f 66 20 6b 65  79 73 20 69 6e 74 6f 20  |ng of keys into |
00001db0  6d 61 63 72 6f 20 64 65  66 69 6e 69 74 69 6f 6e  |macro definition|
00001dc0  73 2e 22 29 0d 0c 26 05  cd 0d 0c 30 47 c9 20 36  |s.")..&....0G. 6|
00001dd0  31 3a f2 53 65 6e 64 48  65 6c 70 28 22 43 6c 69  |1:.SendHelp("Cli|
00001de0  63 6b 20 53 45 4c 45 43  54 20 74 6f 20 6d 61 6b  |ck SELECT to mak|
00001df0  65 20 74 68 65 73 65 20  61 6c 74 65 72 61 74 69  |e these alterati|
00001e00  6f 6e 73 20 70 65 72 6d  61 6e 65 6e 74 2e 22 29  |ons permanent.")|
00001e10  0d 0c 3a 3f c9 20 38 31  3a f2 53 65 6e 64 48 65  |..:?. 81:.SendHe|
00001e20  6c 70 28 22 43 6c 69 63  6b 20 53 45 4c 45 43 54  |lp("Click SELECT|
00001e30  20 74 6f 20 63 61 6e 63  65 6c 20 74 68 65 73 65  | to cancel these|
00001e40  20 61 6c 74 65 72 61 74  69 6f 6e 73 2e 22 29 0d  | alterations.").|
00001e50  0c 44 3f 7f 3a f2 53 65  6e 64 48 65 6c 70 28 22  |.D?.:.SendHelp("|
00001e60  43 6c 69 63 6b 20 53 45  4c 45 43 54 20 74 6f 20  |Click SELECT to |
00001e70  69 6e 73 65 72 74 20 61  20 6c 69 6e 6b 20 74 6f  |insert a link to|
00001e80  20 74 68 69 73 20 6d 61  63 72 6f 2e 22 29 0d 0c  | this macro.")..|
00001e90  4e 05 cb 0d 0c 58 12 c9  20 53 61 76 65 5f 57 69  |N....X.. Save_Wi|
00001ea0  6e 64 6f 77 25 0d 0c 62  0e c8 8e 20 69 63 6f 6e  |ndow%..b... icon|
00001eb0  25 20 ca 0d 0c 6c 5d c9  20 30 3a f2 53 65 6e 64  |% ...l]. 0:.Send|
00001ec0  48 65 6c 70 28 22 44 72  61 67 20 74 68 69 73 20  |Help("Drag this |
00001ed0  66 69 6c 65 20 69 63 6f  6e 20 74 6f 20 61 20 64  |file icon to a d|
00001ee0  69 72 65 63 74 6f 72 79  20 64 69 73 70 6c 61 79  |irectory display|
00001ef0  20 74 6f 20 73 61 76 65  20 69 74 20 69 6e 20 74  | to save it in t|
00001f00  68 61 74 20 64 69 72 65  63 74 6f 72 79 2e 22 29  |hat directory.")|
00001f10  0d 0c 76 36 c9 20 31 3a  f2 53 65 6e 64 48 65 6c  |..v6. 1:.SendHel|
00001f20  70 28 22 45 6e 74 65 72  20 74 68 65 20 66 69 6c  |p("Enter the fil|
00001f30  65 6e 61 6d 65 20 69 6e  74 6f 20 74 68 69 73 20  |ename into this |
00001f40  62 6f 78 2e 22 29 0d 0c  80 53 c9 20 32 3a f2 53  |box.")...S. 2:.S|
00001f50  65 6e 64 48 65 6c 70 28  22 43 6c 69 63 6b 20 53  |endHelp("Click S|
00001f60  45 4c 45 43 54 20 74 6f  20 73 61 76 65 20 74 68  |ELECT to save th|
00001f70  65 20 66 69 6c 65 20 76  69 61 20 74 68 65 20 66  |e file via the f|
00001f80  75 6c 6c 20 70 61 74 68  6e 61 6d 65 20 69 6e 64  |ull pathname ind|
00001f90  69 63 61 74 65 64 2e 22  29 0d 0c 8a 54 c9 20 2d  |icated.")...T. -|
00001fa0  31 3a f2 53 65 6e 64 48  65 6c 70 28 22 54 68 69  |1:.SendHelp("Thi|
00001fb0  73 20 77 69 6e 64 6f 77  20 65 6e 61 62 6c 65 73  |s window enables|
00001fc0  20 79 6f 75 20 74 6f 20  73 61 76 65 20 74 68 65  | you to save the|
00001fd0  20 63 75 72 72 65 6e 74  20 6d 61 63 72 6f 20 64  | current macro d|
00001fe0  65 66 69 6e 69 74 69 6f  6e 73 2e 22 29 0d 0c 94  |efinitions.")...|
00001ff0  05 cb 0d 0c 9e 05 cb 0d  0c a8 05 e1 0d 0c b2 12  |................|
00002000  dd f2 44 65 73 6b 42 6f  6f 74 53 61 76 65 0d 0c  |..DeskBootSave..|
00002010  bc 65 e7 20 63 75 72 66  69 6c 65 24 3d 22 22 20  |.e. curfile$="" |
00002020  f2 42 6f 6f 74 46 69 6c  65 49 6e 63 6c 75 64 65  |.BootFileInclude|
00002030  28 22 52 75 6e 20 22 2b  74 61 73 6b 70 61 74 68  |("Run "+taskpath|
00002040  24 29 20 8b f2 42 6f 6f  74 46 69 6c 65 49 6e 63  |$) ..BootFileInc|
00002050  6c 75 64 65 28 22 52 75  6e 20 22 2b 74 61 73 6b  |lude("Run "+task|
00002060  70 61 74 68 24 2b 22 20  22 2b 63 75 72 66 69 6c  |path$+" "+curfil|
00002070  65 24 29 0d 0c c6 05 e1  0d 0c d0 10 dd f2 51 75  |e$)...........Qu|
00002080  69 74 41 63 74 69 6f 6e  0d 0c da 05 e1 0d 0c e4  |itAction........|
00002090  1a dd f2 52 75 6e 46 69  6c 65 28 66 69 6c 65 24  |...RunFile(file$|
000020a0  2c 74 79 70 65 24 29 0d  0c ee 0a ea 20 43 55 52  |,type$)..... CUR|
000020b0  25 0d 0c f8 0e c8 8e 20  74 79 70 65 24 20 ca 0d  |%...... type$ ..|
000020c0  0d 02 0a c9 20 22 37 37  22 0d 0d 0c 10 f2 44 61  |.... "77".....Da|
000020d0  74 61 4c 6f 61 64 41 63  6b 0d 0d 16 18 6f 6c 64  |taLoadAck....old|
000020e0  6d 61 63 72 6f 24 28 29  3d 6d 61 63 72 6f 24 28  |macro$()=macro$(|
000020f0  29 0d 0d 20 07 ea 20 85  0d 0d 2a 39 ee 20 85 20  |).. .. ...*9. . |
00002100  ea 20 f2 4c 6f 61 64 45  72 72 6f 72 41 63 74 69  |. .LoadErrorActi|
00002110  6f 6e 3a 6d 61 63 72 6f  24 28 29 3d 6f 6c 64 6d  |on:macro$()=oldm|
00002120  61 63 72 6f 24 28 29 3a  ee 20 85 20 87 3a cd 3a  |acro$():. . .:.:|
00002130  e1 0d 0d 34 10 46 49 4c  45 25 3d 8e 66 69 6c 65  |...4.FILE%=.file|
00002140  24 0d 0d 3e 11 e3 20 43  55 52 25 3d 31 20 b8 20  |$..>.. CUR%=1 . |
00002150  34 30 0d 0d 48 18 e8 23  46 49 4c 45 25 2c 6d 61  |40..H..#FILE%,ma|
00002160  63 72 6f 24 28 43 55 52  25 29 0d 0d 52 0a ed 20  |cro$(CUR%)..R.. |
00002170  43 55 52 25 0d 0d 5c 2b  f2 57 69 6d 70 5f 49 63  |CUR%..\+.Wimp_Ic|
00002180  6f 6e 50 75 74 54 65 78  74 28 53 61 76 65 5f 57  |onPutText(Save_W|
00002190  69 6e 64 6f 77 25 2c 31  2c 66 69 6c 65 24 29 0d  |indow%,1,file$).|
000021a0  0d 66 12 6f 6c 64 66 69  6c 65 24 3d 66 69 6c 65  |.f.oldfile$=file|
000021b0  24 0d 0d 70 0b d9 23 46  49 4c 45 25 0d 0d 7a 12  |$..p..#FILE%..z.|
000021c0  63 75 72 66 69 6c 65 24  3d 66 69 6c 65 24 0d 0d  |curfile$=file$..|
000021d0  84 28 f2 57 69 6d 70 5f  57 69 6e 64 6f 77 42 72  |.(.Wimp_WindowBr|
000021e0  69 6e 67 54 6f 54 6f 70  28 4d 61 69 6e 5f 57 69  |ingToTop(Main_Wi|
000021f0  6e 64 6f 77 25 29 0d 0d  8e 12 f2 75 70 64 61 74  |ndow%).....updat|
00002200  65 62 75 74 74 6f 6e 73  0d 0d 98 09 ee 20 85 20  |ebuttons..... . |
00002210  87 0d 0d a2 05 cb 0d 0d  ac 05 e1 0d 0d b6 1a dd  |................|
00002220  f2 70 72 6f 63 65 73 73  6d 61 63 72 6f 28 6d 61  |.processmacro(ma|
00002230  63 72 6f 24 29 0d 0d c0  23 f2 57 69 6d 70 5f 4d  |cro$)...#.Wimp_M|
00002240  65 6e 75 44 69 73 61 62  6c 65 28 4d 61 69 6e 5f  |enuDisable(Main_|
00002250  4d 65 6e 75 25 2c 31 29  0d 0d ca 23 f2 57 69 6d  |Menu%,1)...#.Wim|
00002260  70 5f 4d 65 6e 75 44 69  73 61 62 6c 65 28 4d 61  |p_MenuDisable(Ma|
00002270  69 6e 5f 4d 65 6e 75 25  2c 32 29 0d 0d d4 22 f2  |in_Menu%,2)...".|
00002280  57 69 6d 70 5f 4d 65 6e  75 45 6e 61 62 6c 65 28  |Wimp_MenuEnable(|
00002290  4d 61 69 6e 5f 4d 65 6e  75 25 2c 33 29 0d 0d de  |Main_Menu%,3)...|
000022a0  1d ea 20 43 55 52 25 2c  41 24 2c 41 25 2c 42 25  |.. CUR%,A$,A%,B%|
000022b0  2c 43 25 2c 65 76 65 6e  74 25 0d 0d e8 19 e3 20  |,C%,event%..... |
000022c0  43 55 52 25 3d 20 31 20  b8 20 a9 28 6d 61 63 72  |CUR%= 1 . .(macr|
000022d0  6f 24 29 0d 0d f2 64 e7  20 50 52 25 20 80 20 c1  |o$)...d. PR% . .|
000022e0  6d 61 63 72 6f 24 2c 43  55 52 25 2c 31 29 3d 22  |macro$,CUR%,1)="|
000022f0  7c 22 20 80 20 41 25 3d  31 32 34 20 c8 99 22 57  ||" . A%=124 .."W|
00002300  69 6d 70 5f 50 72 6f 63  65 73 73 4b 65 79 22 2c  |imp_ProcessKey",|
00002310  31 32 34 3a c8 99 22 57  69 6d 70 5f 50 6f 6c 6c  |124:.."Wimp_Poll|
00002320  22 2c 31 30 34 38 35 37  34 2c 77 69 6d 70 25 3a  |",1048574,wimp%:|
00002330  43 55 52 25 2b 3d 31 0d  0d fc 67 e7 20 50 52 25  |CUR%+=1...g. PR%|
00002340  20 80 20 c1 6d 61 63 72  6f 24 2c 43 55 52 25 2c  | . .macro$,CUR%,|
00002350  31 29 3d 22 7c 22 20 41  25 3d 97 28 c1 6d 61 63  |1)="|" A%=.(.mac|
00002360  72 6f 24 2c 43 55 52 25  2b 31 2c 31 29 29 3a 42  |ro$,CUR%+1,1)):B|
00002370  25 3d 97 28 c1 6d 61 63  72 6f 24 2c 43 55 52 25  |%=.(.macro$,CUR%|
00002380  2b 32 2c 31 29 29 3a 43  25 3d 97 28 c1 6d 61 63  |+2,1)):C%=.(.mac|
00002390  72 6f 24 2c 43 55 52 25  2b 33 2c 31 29 29 0d 0e  |ro$,CUR%+3,1))..|
000023a0  06 6e e7 20 50 52 25 20  80 20 c1 6d 61 63 72 6f  |.n. PR% . .macro|
000023b0  24 2c 43 55 52 25 2c 31  29 3d 22 7c 22 20 80 20  |$,CUR%,1)="|" . |
000023c0  41 25 3d 37 37 20 80 20  42 25 3e 3d 34 38 20 80  |A%=77 . B%>=48 .|
000023d0  20 42 25 3c 3d 35 37 20  80 20 43 25 3e 3d 34 38  | B%<=57 . C%>=48|
000023e0  20 80 20 43 25 3c 3d 35  37 20 80 20 bb 28 c3 42  | . C%<=57 . .(.B|
000023f0  25 2b c3 43 25 29 3e 3d  31 20 80 20 bb 28 bd 42  |%+.C%)>=1 . .(.B|
00002400  25 2b bd 43 25 29 3c 3d  34 30 20 8c 0d 0e 10 0d  |%+.C%)<=40 .....|
00002410  6e 65 73 74 73 25 2b 3d  31 0d 0e 1a 60 e7 20 50  |nests%+=1...`. P|
00002420  52 25 20 80 20 6e 65 73  74 73 25 3e 3d 34 30 20  |R% . nests%>=40 |
00002430  f2 57 69 6d 70 5f 57 69  6e 64 6f 77 45 72 72 6f  |.Wimp_WindowErro|
00002440  72 42 6f 78 28 22 4f 76  65 72 57 72 69 74 65 22  |rBox("OverWrite"|
00002450  2c 22 54 6f 6f 20 6d 61  6e 79 20 6e 65 73 74 65  |,"Too many neste|
00002460  64 20 6d 61 63 72 6f 20  6c 69 6e 6b 73 22 29 3a  |d macro links"):|
00002470  50 52 25 3d a3 3a cd 3a  e1 0d 0e 24 0b 43 55 52  |PR%=.:.:...$.CUR|
00002480  25 2b 3d 33 0d 0e 2e 25  f2 70 72 6f 63 65 73 73  |%+=3...%.process|
00002490  6d 61 63 72 6f 28 6d 61  63 72 6f 24 28 bb 28 bd  |macro(macro$(.(.|
000024a0  42 25 2b bd 43 25 29 29  29 0d 0e 38 05 cc 0d 0e  |B%+.C%)))..8....|
000024b0  42 57 e7 20 50 52 25 20  80 20 c1 6d 61 63 72 6f  |BW. PR% . .macro|
000024c0  24 2c 43 55 52 25 2c 31  29 3d 22 7c 22 20 80 20  |$,CUR%,1)="|" . |
000024d0  41 25 3e 3d 34 38 20 80  20 41 25 3c 3d 35 37 20  |A%>=48 . A%<=57 |
000024e0  80 20 42 25 3e 3d 34 38  20 80 20 42 25 3c 3d 35  |. B%>=48 . B%<=5|
000024f0  37 20 80 20 43 25 3e 3d  34 38 20 80 20 43 25 3c  |7 . C%>=48 . C%<|
00002500  3d 35 37 20 8c 0d 0e 4c  3a e7 20 50 52 25 20 c8  |=57 ...L:. PR% .|
00002510  99 22 57 69 6d 70 5f 50  72 6f 63 65 73 73 4b 65  |."Wimp_ProcessKe|
00002520  79 22 2c bb 28 c1 6d 61  63 72 6f 24 2c 43 55 52  |y",.(.macro$,CUR|
00002530  25 2b 31 2c 33 29 29 3a  43 55 52 25 2b 3d 33 0d  |%+1,3)):CUR%+=3.|
00002540  0e 56 05 cc 0d 0e 60 3f  e7 20 50 52 25 20 80 20  |.V....`?. PR% . |
00002550  a9 28 6d 61 63 72 6f 24  29 3e 3d 31 20 c8 99 22  |.(macro$)>=1 .."|
00002560  57 69 6d 70 5f 50 72 6f  63 65 73 73 4b 65 79 22  |Wimp_ProcessKey"|
00002570  2c 97 28 c1 6d 61 63 72  6f 24 2c 43 55 52 25 2c  |,.(.macro$,CUR%,|
00002580  31 29 29 0d 0e 6a 05 cd  0d 0e 74 05 cd 0d 0e 7e  |1))..j....t....~|
00002590  2d e7 20 50 52 25 20 c8  99 22 57 69 6d 70 5f 50  |-. PR% .."Wimp_P|
000025a0  6f 6c 6c 22 2c 36 35 34  37 36 38 2c 77 69 6d 70  |oll",654768,wimp|
000025b0  25 20 b8 20 65 76 65 6e  74 25 0d 0e 88 16 e7 20  |% . event%..... |
000025c0  50 52 25 20 c8 95 20 65  76 65 6e 74 25 3c 3e 30  |PR% .. event%<>0|
000025d0  0d 0e 92 0f c8 8e 20 65  76 65 6e 74 25 20 ca 0d  |...... event% ..|
000025e0  0e 9c 1c c9 20 31 3a f2  57 69 6d 70 5f 50 6f 6c  |.... 1:.Wimp_Pol|
000025f0  6c 44 72 61 77 57 69 6e  64 6f 77 0d 0e a6 22 c9  |lDrawWindow...".|
00002600  20 32 3a c8 99 22 57 69  6d 70 5f 4f 70 65 6e 57  | 2:.."Wimp_OpenW|
00002610  69 6e 64 6f 77 22 2c 2c  77 69 6d 70 25 0d 0e b0  |indow",,wimp%...|
00002620  1d c9 20 33 3a f2 57 69  6d 70 5f 50 6f 6c 6c 43  |.. 3:.Wimp_PollC|
00002630  6c 6f 73 65 57 69 6e 64  6f 77 0d 0e ba 07 c9 20  |loseWindow..... |
00002640  36 0d 0e c4 49 62 75 74  74 6f 6e 25 3d 77 69 6d  |6...Ibutton%=wim|
00002650  70 25 21 38 3a 77 69 6e  64 6f 77 25 3d 77 69 6d  |p%!8:window%=wim|
00002660  70 25 21 31 32 3a 69 63  6f 6e 25 3d 77 69 6d 70  |p%!12:icon%=wimp|
00002670  25 21 31 36 3a 78 25 3d  77 69 6d 70 25 21 30 3a  |%!16:x%=wimp%!0:|
00002680  79 25 3d 77 69 6d 70 25  21 34 0d 0e ce 4a e7 20  |y%=wimp%!4...J. |
00002690  77 69 6e 64 6f 77 25 3d  42 61 72 5f 57 69 6e 64  |window%=Bar_Wind|
000026a0  6f 77 25 20 80 20 62 75  74 74 6f 6e 25 3d 34 20  |ow% . button%=4 |
000026b0  f2 57 69 6d 70 5f 57 69  6e 64 6f 77 42 72 69 6e  |.Wimp_WindowBrin|
000026c0  67 54 6f 54 6f 70 28 4d  61 69 6e 5f 57 69 6e 64  |gToTop(Main_Wind|
000026d0  6f 77 25 29 0d 0e d8 23  e7 20 62 75 74 74 6f 6e  |ow%)...#. button|
000026e0  25 3d 32 20 f2 57 69 6d  70 5f 50 6f 6c 6c 4d 65  |%=2 .Wimp_PollMe|
000026f0  6e 75 50 6f 70 55 70 0d  0e e2 20 c9 20 39 3a f2  |nuPopUp... . 9:.|
00002700  45 76 65 6e 74 5f 4d 65  6e 75 43 68 6f 69 63 65  |Event_MenuChoice|
00002710  28 6d 65 6e 75 25 29 0d  0e ec 0b c9 20 31 37 2c  |(menu%)..... 17,|
00002720  31 38 0d 0e f6 1f e7 20  77 69 6d 70 25 21 31 36  |18..... wimp%!16|
00002730  3d 31 30 20 f2 44 65 73  6b 42 6f 6f 74 53 61 76  |=10 .DeskBootSav|
00002740  65 0d 0f 00 15 e7 20 77  69 6d 70 25 21 31 36 3d  |e..... wimp%!16=|
00002750  26 35 30 32 20 8c 0d 0f  0a 14 77 69 6e 64 6f 77  |&502 .....window|
00002760  25 3d 77 69 6d 70 25 21  33 32 0d 0f 14 12 69 63  |%=wimp%!32....ic|
00002770  6f 6e 25 3d 77 69 6d 70  25 21 33 36 0d 0f 1e 2d  |on%=wimp%!36...-|
00002780  21 77 69 6d 70 25 3d 32  35 36 3a 77 69 6d 70 25  |!wimp%=256:wimp%|
00002790  21 31 32 3d 77 69 6d 70  25 21 38 3a 77 69 6d 70  |!12=wimp%!8:wimp|
000027a0  25 21 31 36 3d 26 35 30  33 0d 0f 28 25 c8 99 22  |%!16=&503..(%.."|
000027b0  57 69 6d 70 5f 47 65 74  57 69 6e 64 6f 77 53 74  |Wimp_GetWindowSt|
000027c0  61 74 65 22 2c 2c 77 69  6d 70 25 2b 33 32 0d 0f  |ate",,wimp%+32..|
000027d0  32 24 77 78 25 3d 77 69  6d 70 25 21 32 30 2d 28  |2$wx%=wimp%!20-(|
000027e0  77 69 6d 70 25 21 33 36  2d 77 69 6d 70 25 21 35  |wimp%!36-wimp%!5|
000027f0  32 29 0d 0f 3c 24 77 79  25 3d 77 69 6d 70 25 21  |2)..<$wy%=wimp%!|
00002800  32 34 2d 28 77 69 6d 70  25 21 34 38 2d 77 69 6d  |24-(wimp%!48-wim|
00002810  70 25 21 35 36 29 0d 0f  46 09 f2 48 65 6c 70 0d  |p%!56)..F..Help.|
00002820  0f 50 05 cd 0d 0f 5a 05  cb 0d 0f 64 0d 65 76 65  |.P....Z....d.eve|
00002830  6e 74 25 3d 2d 31 0d 0f  6e 2d e7 20 50 52 25 20  |nt%=-1..n-. PR% |
00002840  c8 99 22 57 69 6d 70 5f  50 6f 6c 6c 22 2c 36 35  |.."Wimp_Poll",65|
00002850  34 37 36 38 2c 77 69 6d  70 25 20 b8 20 65 76 65  |4768,wimp% . eve|
00002860  6e 74 25 0d 0f 78 0b e7  20 50 52 25 20 ce 0d 0f  |nt%..x.. PR% ...|
00002870  82 10 e7 20 50 52 25 20  ed 20 43 55 52 25 0d 0f  |... PR% . CUR%..|
00002880  8c 0d 6e 65 73 74 73 25  2d 3d 31 0d 0f 96 05 e1  |..nests%-=1.....|
00002890  0d 0f a0 13 dd f2 75 70  64 61 74 65 62 75 74 74  |......updatebutt|
000028a0  6f 6e 73 0d 0f aa 19 ea  20 6d 61 63 72 6f 25 2c  |ons..... macro%,|
000028b0  62 75 74 74 25 2c 77 72  69 74 65 25 0d 0f b4 13  |butt%,write%....|
000028c0  e3 20 6d 61 63 72 6f 25  3d 31 20 b8 20 34 30 0d  |. macro%=1 . 40.|
000028d0  0f be aa e7 20 a9 28 c3  6d 61 63 72 6f 25 29 3d  |.... .(.macro%)=|
000028e0  31 20 f2 57 69 6d 70 5f  49 63 6f 6e 50 75 74 54  |1 .Wimp_IconPutT|
000028f0  65 78 74 28 4d 61 69 6e  5f 57 69 6e 64 6f 77 25  |ext(Main_Window%|
00002900  2c 28 6d 61 63 72 6f 25  2d 31 29 2c c3 6d 61 63  |,(macro%-1),.mac|
00002910  72 6f 25 2b 22 2e 20 20  22 2b c0 6d 61 63 72 6f  |ro%+".  "+.macro|
00002920  24 28 6d 61 63 72 6f 25  29 2c 35 29 29 20 8b f2  |$(macro%),5)) ..|
00002930  57 69 6d 70 5f 49 63 6f  6e 50 75 74 54 65 78 74  |Wimp_IconPutText|
00002940  28 4d 61 69 6e 5f 57 69  6e 64 6f 77 25 2c 28 6d  |(Main_Window%,(m|
00002950  61 63 72 6f 25 2d 31 29  2c c3 6d 61 63 72 6f 25  |acro%-1),.macro%|
00002960  2b 22 2e 20 22 2b c0 6d  61 63 72 6f 24 28 6d 61  |+". "+.macro$(ma|
00002970  63 72 6f 25 29 2c 35 29  29 0d 0f c8 0c ed 20 6d  |cro%),5))..... m|
00002980  61 63 72 6f 25 0d 0f d2  05 e1 0d 0f dc 15 dd f2  |acro%...........|
00002990  53 61 76 65 45 72 72 6f  72 41 63 74 69 6f 6e 0d  |SaveErrorAction.|
000029a0  0f e6 0d e7 20 9f 3d 32  32 32 3a e1 0d 0f f0 28  |.... .=222:....(|
000029b0  f2 57 69 6d 70 5f 57 69  6e 64 6f 77 45 72 72 6f  |.Wimp_WindowErro|
000029c0  72 42 6f 78 28 22 4f 76  65 72 57 72 69 74 65 22  |rBox("OverWrite"|
000029d0  2c f6 24 29 0d 0f fa 2e  f2 57 69 6d 70 5f 49 63  |,.$).....Wimp_Ic|
000029e0  6f 6e 50 75 74 54 65 78  74 28 53 61 76 65 5f 57  |onPutText(Save_W|
000029f0  69 6e 64 6f 77 25 2c 31  2c 6f 6c 64 66 69 6c 65  |indow%,1,oldfile|
00002a00  24 29 0d 10 04 0b d9 23  46 49 4c 45 25 0d 10 0e  |$).....#FILE%...|
00002a10  05 e1 0d 10 18 15 dd f2  4c 6f 61 64 45 72 72 6f  |........LoadErro|
00002a20  72 41 63 74 69 6f 6e 0d  10 22 0d e7 20 9f 3d 32  |rAction..".. .=2|
00002a30  32 32 3a e1 0d 10 2c 35  f2 57 69 6d 70 5f 57 69  |22:...,5.Wimp_Wi|
00002a40  6e 64 6f 77 45 72 72 6f  72 42 6f 78 28 22 4f 76  |ndowErrorBox("Ov|
00002a50  65 72 57 72 69 74 65 22  2c 22 45 72 72 6f 72 20  |erWrite","Error |
00002a60  69 6e 20 66 69 6c 65 22  29 0d 10 36 0b d9 23 46  |in file")..6..#F|
00002a70  49 4c 45 25 0d 10 40 05  e1 0d 10 4a 97 dc 20 2d  |ILE%..@....J.. -|
00002a80  31 2c 2d 31 2c 34 31 2c  31 2c 30 2c 30 2c 32 2c  |1,-1,41,1,0,0,2,|
00002a90  31 2c 33 2c 33 2c 32 2c  34 2c 34 2c 33 2c 32 33  |1,3,3,2,4,4,3,23|
00002aa0  2c 35 2c 34 2c 35 2c 36  2c 35 2c 32 34 2c 37 2c  |,5,4,5,6,5,24,7,|
00002ab0  31 32 2c 36 2c 38 2c 31  39 2c 32 35 2c 39 2c 32  |12,6,8,19,25,9,2|
00002ac0  36 2c 37 2c 31 30 2c 33  33 2c 32 36 2c 31 31 2c  |6,7,10,33,26,11,|
00002ad0  36 2c 38 2c 31 32 2c 31  33 2c 32 37 2c 31 33 2c  |6,8,12,13,27,13,|
00002ae0  32 30 2c 39 2c 31 34 2c  32 37 2c 32 38 2c 31 35  |20,9,14,27,28,15|
00002af0  2c 33 34 2c 31 30 2c 31  36 2c 37 2c 32 39 2c 31  |,34,10,16,7,29,1|
00002b00  37 2c 31 34 2c 31 31 2c  31 38 2c 32 31 2c 33 30  |7,14,11,18,21,30|
00002b10  0d 10 54 93 dc 20 31 39  2c 32 38 2c 31 32 2c 32  |..T.. 19,28,12,2|
00002b20  30 2c 33 35 2c 33 31 2c  32 31 2c 38 2c 31 33 2c  |0,35,31,21,8,13,|
00002b30  32 32 2c 31 35 2c 33 32  2c 32 33 2c 32 32 2c 31  |22,15,32,23,22,1|
00002b40  35 2c 32 34 2c 32 39 2c  33 33 2c 32 35 2c 33 36  |5,24,29,33,25,36|
00002b50  2c 31 34 2c 32 36 2c 39  2c 33 34 2c 32 37 2c 31  |,14,26,9,34,27,1|
00002b60  36 2c 31 36 2c 32 38 2c  32 33 2c 33 35 2c 32 39  |6,16,28,23,35,29|
00002b70  2c 33 30 2c 31 37 2c 33  30 2c 33 37 2c 33 36 2c  |,30,17,30,37,36,|
00002b80  33 31 2c 31 30 2c 31 38  2c 33 32 2c 31 37 2c 33  |31,10,18,32,17,3|
00002b90  37 2c 33 33 2c 32 34 2c  31 39 2c 33 34 2c 33 31  |7,33,24,19,34,31|
00002ba0  2c 33 38 0d 10 5e 43 dc  20 33 35 2c 33 38 2c 32  |,38..^C. 35,38,2|
00002bb0  30 2c 33 36 2c 31 31 2c  33 39 2c 33 37 2c 31 38  |0,36,11,39,37,18|
00002bc0  2c 32 31 2c 33 38 2c 32  35 2c 34 30 2c 33 39 2c  |,21,38,25,40,39,|
00002bd0  33 32 2c 32 32 2c 34 30  2c 33 39 2c 34 31 2c 2d  |32,22,40,39,41,-|
00002be0  31 2c 2d 31 2c 30 0d 10  68 0e dd f2 6d 65 6e 75  |1,-1,0..h...menu|
00002bf0  64 65 61 6c 0d 10 72 22  f2 57 69 6d 70 5f 4d 65  |deal..r".Wimp_Me|
00002c00  6e 75 45 6e 61 62 6c 65  28 4d 61 69 6e 5f 4d 65  |nuEnable(Main_Me|
00002c10  6e 75 25 2c 31 29 0d 10  7c 22 f2 57 69 6d 70 5f  |nu%,1)..|".Wimp_|
00002c20  4d 65 6e 75 45 6e 61 62  6c 65 28 4d 61 69 6e 5f  |MenuEnable(Main_|
00002c30  4d 65 6e 75 25 2c 32 29  0d 10 86 23 f2 57 69 6d  |Menu%,2)...#.Wim|
00002c40  70 5f 4d 65 6e 75 44 69  73 61 62 6c 65 28 4d 61  |p_MenuDisable(Ma|
00002c50  69 6e 5f 4d 65 6e 75 25  2c 33 29 0d 10 90 05 e1  |in_Menu%,3).....|
00002c60  0d 10 9a 33 dd 20 f2 57  69 6d 70 5f 57 69 6e 64  |...3. .Wimp_Wind|
00002c70  6f 77 41 6c 65 72 74 42  6f 78 28 74 69 74 6c 65  |owAlertBox(title|
00002c80  24 2c 6d 65 73 73 61 67  65 24 2c 62 75 74 74 6f  |$,message$,butto|
00002c90  6e 25 29 0d 10 a4 0f ea  20 72 65 73 70 6f 6e 73  |n%)..... respons|
00002ca0  65 25 0d 10 ae 17 24 28  77 69 6d 70 25 2b 34 29  |e%....$(wimp%+4)|
00002cb0  3d 6d 65 73 73 61 67 65  24 0d 10 b8 10 c8 8e 20  |=message$...... |
00002cc0  62 75 74 74 6f 6e 25 20  ca 0d 10 c2 17 c9 20 32  |button% ...... 2|
00002cd0  20 20 20 20 3a 72 65 73  70 6f 6e 73 65 25 3d 31  |    :response%=1|
00002ce0  0d 10 cc 18 c9 20 31 20  20 20 20 3a 72 65 73 70  |..... 1    :resp|
00002cf0  6f 6e 73 65 25 3d 31 35  0d 10 d6 1f c9 20 33 20  |onse%=15..... 3 |
00002d00  20 20 20 3a 72 65 73 70  6f 6e 73 65 25 3d 28 31  |   :response%=(1|
00002d10  3c 3c 35 29 2b 31 36 0d  10 e0 1f c9 20 34 20 20  |<<5)+16..... 4  |
00002d20  20 20 3a 72 65 73 70 6f  6e 73 65 25 3d 28 31 3c  |  :response%=(1<|
00002d30  3c 36 29 2b 31 36 0d 10  ea 13 7f 20 3a 72 65 73  |<6)+16..... :res|
00002d40  70 6f 6e 73 65 25 3d 31  36 0d 10 f4 05 cb 0d 10  |ponse%=16.......|
00002d50  fe 3d c8 99 20 22 57 69  6d 70 5f 52 65 70 6f 72  |.=.. "Wimp_Repor|
00002d60  74 45 72 72 6f 72 22 2c  77 69 6d 70 25 2c 72 65  |tError",wimp%,re|
00002d70  73 70 6f 6e 73 65 25 2c  74 69 74 6c 65 24 20 b8  |sponse%,title$ .|
00002d80  20 2c 72 65 73 70 6f 6e  73 65 25 0d 11 08 13 f2  | ,response%.....|
00002d90  57 69 6d 70 5f 4d 65 6e  75 43 6c 6f 73 65 0d 11  |Wimp_MenuClose..|
00002da0  12 05 e1 0d 11 1c 2b dd  20 f2 57 69 6d 70 5f 57  |......+. .Wimp_W|
00002db0  69 6e 64 6f 77 45 72 72  6f 72 42 6f 78 28 74 69  |indowErrorBox(ti|
00002dc0  74 6c 65 24 2c 6d 65 73  73 61 67 65 24 29 0d 11  |tle$,message$)..|
00002dd0  26 2b f2 57 69 6d 70 5f  57 69 6e 64 6f 77 41 6c  |&+.Wimp_WindowAl|
00002de0  65 72 74 42 6f 78 28 74  69 74 6c 65 24 2c 6d 65  |ertBox(title$,me|
00002df0  73 73 61 67 65 24 2c 32  29 0d 11 30 05 e1 0d 11  |ssage$,2)..0....|
00002e00  3a 1f dd 20 a4 57 69 6d  70 5f 57 69 6e 64 6f 77  |:.. .Wimp_Window|
00002e10  4c 6f 61 64 28 77 69 6e  64 6f 77 24 29 0d 11 44  |Load(window$)..D|
00002e20  39 3d a4 57 69 6d 70 5f  57 69 6e 64 6f 77 4c 6f  |9=.Wimp_WindowLo|
00002e30  61 64 46 72 6f 6d 28 77  69 6e 64 6f 77 24 2c 22  |adFrom(window$,"|
00002e40  3c 4f 62 65 79 24 44 69  72 3e 2e 54 65 6d 70 6c  |<Obey$Dir>.Templ|
00002e50  61 74 65 73 22 29 0d 11  4e 2d dd 20 a4 57 69 6d  |ates")..N-. .Wim|
00002e60  70 5f 57 69 6e 64 6f 77  4c 6f 61 64 46 72 6f 6d  |p_WindowLoadFrom|
00002e70  28 77 69 6e 64 6f 77 24  2c 74 65 6d 70 6c 61 74  |(window$,templat|
00002e80  65 24 29 0d 11 58 1a ea  20 63 25 2c 69 25 2c 6e  |e$)..X.. c%,i%,n|
00002e90  25 2c 6a 25 2c 73 70 24  2c 73 70 32 24 0d 11 62  |%,j%,sp$,sp2$..b|
00002ea0  25 c8 99 20 22 57 69 6d  70 5f 4f 70 65 6e 54 65  |%.. "Wimp_OpenTe|
00002eb0  6d 70 6c 61 74 65 22 2c  2c 74 65 6d 70 6c 61 74  |mplate",,templat|
00002ec0  65 24 0d 11 6c 4d c8 99  20 22 57 69 6d 70 5f 4c  |e$..lM.. "Wimp_L|
00002ed0  6f 61 64 54 65 6d 70 6c  61 74 65 22 2c 2c 77 69  |oadTemplate",,wi|
00002ee0  6d 70 25 2c 69 63 6f 6e  73 25 2c 69 63 6f 6e 5f  |mp%,icons%,icon_|
00002ef0  6d 65 6d 6f 72 79 25 2c  2d 31 2c 77 69 6e 64 6f  |memory%,-1,windo|
00002f00  77 24 2c 30 20 b8 20 2c  2c 69 63 6f 6e 73 25 0d  |w$,0 . ,,icons%.|
00002f10  11 76 11 c8 8e 20 73 70  72 69 74 65 73 25 20 ca  |.v... sprites% .|
00002f20  0d 11 80 1d c9 20 31 20  20 20 20 3a 77 69 6d 70  |..... 1    :wimp|
00002f30  25 21 36 34 3d 73 70 72  69 74 65 73 25 0d 11 8a  |%!64=sprites%...|
00002f40  27 7f 20 3a 77 69 6d 70  25 21 36 34 3d a4 45 76  |'. :wimp%!64=.Ev|
00002f50  65 6e 74 5f 53 70 72 69  74 65 73 28 77 69 6e 64  |ent_Sprites(wind|
00002f60  6f 77 25 29 0d 11 94 05  cb 0d 11 9e 26 c8 99 20  |ow%)........&.. |
00002f70  22 57 69 6d 70 5f 43 72  65 61 74 65 57 69 6e 64  |"Wimp_CreateWind|
00002f80  6f 77 22 2c 2c 77 69 6d  70 25 20 b8 20 63 25 0d  |ow",,wimp% . c%.|
00002f90  11 a8 1b c8 99 20 22 57  69 6d 70 5f 43 6c 6f 73  |..... "Wimp_Clos|
00002fa0  65 54 65 6d 70 6c 61 74  65 22 0d 11 b2 37 c8 99  |eTemplate"...7..|
00002fb0  20 22 57 69 6d 70 5f 57  68 69 63 68 49 63 6f 6e  | "Wimp_WhichIcon|
00002fc0  22 2c 63 25 2c 77 69 6d  70 25 2b 34 30 2c 31 2b  |",c%,wimp%+40,1+|
00002fd0  32 2b 28 31 3c 3c 38 29  2c 32 2b 28 31 3c 3c 38  |2+(1<<8),2+(1<<8|
00002fe0  29 0d 11 bc 11 c8 8e 20  77 69 6d 70 25 21 34 30  |)...... wimp%!40|
00002ff0  20 ca 0d 11 c6 08 c9 20  2d 31 0d 11 d0 0c 7f 20  | ...... -1..... |
00003000  3a 69 25 3d 34 30 0d 11  da 05 f5 0d 11 e4 20 77  |:i%=40........ w|
00003010  69 6d 70 25 21 34 3d 77  69 6d 70 25 21 69 25 20  |imp%!4=wimp%!i% |
00003020  3a 77 69 6d 70 25 21 30  3d 63 25 0d 11 ee 21 c8  |:wimp%!0=c%...!.|
00003030  99 20 22 57 69 6d 70 5f  47 65 74 49 63 6f 6e 53  |. "Wimp_GetIconS|
00003040  74 61 74 65 22 2c 2c 77  69 6d 70 25 0d 11 f8 2a  |tate",,wimp%...*|
00003050  73 70 24 3d a4 57 69 6d  70 5f 47 65 74 53 74 72  |sp$=.Wimp_GetStr|
00003060  69 6e 67 41 74 41 64 64  72 65 73 73 28 77 69 6d  |ingAtAddress(wim|
00003070  70 25 21 32 38 29 0d 12  02 1f c8 99 20 22 57 69  |p%!28)...... "Wi|
00003080  6d 70 5f 44 65 6c 65 74  65 49 63 6f 6e 22 2c 2c  |mp_DeleteIcon",,|
00003090  77 69 6d 70 25 0d 12 0c  11 c8 8e 20 73 70 72 69  |wimp%...... spri|
000030a0  74 65 73 25 20 ca 0d 12  16 16 c9 20 31 20 20 20  |tes% ...... 1   |
000030b0  20 3a 77 69 6d 70 25 21  33 32 3d 31 0d 12 20 05  | :wimp%!32=1.. .|
000030c0  7f 0d 12 2a 2a c8 99 20  22 4f 53 5f 53 70 72 69  |...**.. "OS_Spri|
000030d0  74 65 4f 70 22 2c 26 31  30 38 2c 73 70 72 69 74  |teOp",&108,sprit|
000030e0  65 73 25 20 b8 20 2c 2c  2c 6e 25 0d 12 34 08 6a  |es% . ,,,n%..4.j|
000030f0  25 3d 30 0d 12 3e 0c f5  20 3a 6a 25 2b 3d 31 0d  |%=0..>.. :j%+=1.|
00003100  12 48 37 c8 99 20 22 4f  53 5f 53 70 72 69 74 65  |.H7.. "OS_Sprite|
00003110  4f 70 22 2c 26 31 30 44  2c 73 70 72 69 74 65 73  |Op",&10D,sprites|
00003120  25 2c 70 6f 69 6e 74 65  72 5f 62 6c 6f 63 6b 25  |%,pointer_block%|
00003130  2c 32 30 2c 6a 25 0d 12  52 31 73 70 32 24 3d a4  |,20,j%..R1sp2$=.|
00003140  57 69 6d 70 5f 47 65 74  53 74 72 69 6e 67 41 74  |Wimp_GetStringAt|
00003150  41 64 64 72 65 73 73 28  70 6f 69 6e 74 65 72 5f  |Address(pointer_|
00003160  62 6c 6f 63 6b 25 29 0d  12 5c 16 fd 20 6a 25 3d  |block%)..\.. j%=|
00003170  6e 25 20 84 20 73 70 24  3d 73 70 32 24 0d 12 66  |n% . sp$=sp2$..f|
00003180  2d e7 20 73 70 24 3d 73  70 32 24 20 8c 77 69 6d  |-. sp$=sp2$ .wim|
00003190  70 25 21 33 32 3d 73 70  72 69 74 65 73 25 20 8b  |p%!32=sprites% .|
000031a0  77 69 6d 70 25 21 33 32  3d 31 0d 12 70 05 cb 0d  |wimp%!32=1..p...|
000031b0  12 7a 0e 77 69 6d 70 25  21 34 3d 63 25 0d 12 84  |.z.wimp%!4=c%...|
000031c0  2b c8 99 20 22 57 69 6d  70 5f 43 72 65 61 74 65  |+.. "Wimp_Create|
000031d0  49 63 6f 6e 22 2c 2c 77  69 6d 70 25 2b 34 20 b8  |Icon",,wimp%+4 .|
000031e0  20 68 61 6e 64 6c 65 25  0d 12 8e 09 69 25 2b 3d  | handle%....i%+=|
000031f0  34 0d 12 98 13 fd 20 28  77 69 6d 70 25 21 69 25  |4..... (wimp%!i%|
00003200  29 3d 2d 31 0d 12 a2 05  cb 0d 12 ac 07 3d 63 25  |)=-1.........=c%|
00003210  0d 12 b6 25 dd 20 f2 57  69 6d 70 5f 57 69 6e 64  |...%. .Wimp_Wind|
00003220  6f 77 42 72 69 6e 67 54  6f 54 6f 70 28 77 69 6e  |owBringToTop(win|
00003230  64 6f 77 25 29 0d 12 c0  12 21 77 69 6d 70 25 3d  |dow%)....!wimp%=|
00003240  77 69 6e 64 6f 77 25 0d  12 ca 23 c8 99 20 22 57  |window%...#.. "W|
00003250  69 6d 70 5f 47 65 74 57  69 6e 64 6f 77 53 74 61  |imp_GetWindowSta|
00003260  74 65 22 2c 2c 77 69 6d  70 25 0d 12 d4 0f 77 69  |te",,wimp%....wi|
00003270  6d 70 25 21 32 38 3d 2d  31 0d 12 de 1f c8 99 20  |mp%!28=-1...... |
00003280  22 57 69 6d 70 5f 4f 70  65 6e 57 69 6e 64 6f 77  |"Wimp_OpenWindow|
00003290  22 2c 2c 77 69 6d 70 25  0d 12 e8 05 e1 0d 12 f2  |",,wimp%........|
000032a0  20 dd 20 f2 57 69 6d 70  5f 57 69 6e 64 6f 77 43  | . .Wimp_WindowC|
000032b0  6c 6f 73 65 28 77 69 6e  64 6f 77 25 29 0d 12 fc  |lose(window%)...|
000032c0  12 21 77 69 6d 70 25 3d  77 69 6e 64 6f 77 25 0d  |.!wimp%=window%.|
000032d0  13 06 20 c8 99 20 22 57  69 6d 70 5f 43 6c 6f 73  |.. .. "Wimp_Clos|
000032e0  65 57 69 6e 64 6f 77 22  2c 2c 77 69 6d 70 25 0d  |eWindow",,wimp%.|
000032f0  13 10 05 e1 0d 13 1a 1c  dd 20 a4 57 69 6d 70 5f  |......... .Wimp_|
00003300  49 63 6f 6e 42 61 72 28  53 70 72 69 74 65 24 29  |IconBar(Sprite$)|
00003310  0d 13 24 0b ea 20 69 63  6f 6e 25 0d 13 2e 0e 77  |..$.. icon%....w|
00003320  69 6d 70 25 21 30 3d 2d  31 0d 13 38 1c 77 69 6d  |imp%!0=-1..8.wim|
00003330  70 25 21 34 3d 30 20 20  20 20 20 3a 77 69 6d 70  |p%!4=0     :wimp|
00003340  25 21 38 3d 30 0d 13 42  1c 77 69 6d 70 25 21 31  |%!8=0..B.wimp%!1|
00003350  32 3d 36 38 20 3a 77 69  6d 70 25 21 31 36 3d 36  |2=68 :wimp%!16=6|
00003360  38 0d 13 4c 12 77 69 6d  70 25 21 32 30 3d 26 33  |8..L.wimp%!20=&3|
00003370  30 30 32 0d 13 56 17 24  28 77 69 6d 70 25 2b 32  |002..V.$(wimp%+2|
00003380  34 29 3d 53 70 72 69 74  65 24 0d 13 60 27 c8 99  |4)=Sprite$..`'..|
00003390  20 22 57 69 6d 70 5f 43  72 65 61 74 65 49 63 6f  | "Wimp_CreateIco|
000033a0  6e 22 2c 2c 77 69 6d 70  25 20 b8 20 69 63 6f 6e  |n",,wimp% . icon|
000033b0  25 0d 13 6a 0a 3d 69 63  6f 6e 25 0d 13 74 2b dd  |%..j.=icon%..t+.|
000033c0  20 f2 57 69 6d 70 5f 49  63 6f 6e 43 61 72 65 74  | .Wimp_IconCaret|
000033d0  28 77 69 6e 64 6f 77 25  2c 69 63 6f 6e 25 2c 63  |(window%,icon%,c|
000033e0  68 61 72 73 25 29 0d 13  7e 38 c8 99 20 22 57 69  |hars%)..~8.. "Wi|
000033f0  6d 70 5f 53 65 74 43 61  72 65 74 50 6f 73 69 74  |mp_SetCaretPosit|
00003400  69 6f 6e 22 2c 77 69 6e  64 6f 77 25 2c 69 63 6f  |ion",window%,ico|
00003410  6e 25 2c 2c 2c 2d 31 2c  63 68 61 72 73 25 0d 13  |n%,,,-1,chars%..|
00003420  88 05 e1 0d 13 92 23 dd  20 a4 57 69 6d 70 5f 49  |......#. .Wimp_I|
00003430  63 6f 6e 54 65 78 74 28  77 69 6e 64 6f 77 25 2c  |conText(window%,|
00003440  69 63 6f 6e 25 29 0d 13  9c 22 77 69 6d 70 25 21  |icon%)..."wimp%!|
00003450  30 3d 77 69 6e 64 6f 77  25 20 3a 77 69 6d 70 25  |0=window% :wimp%|
00003460  21 34 3d 69 63 6f 6e 25  0d 13 a6 21 c8 99 20 22  |!4=icon%...!.. "|
00003470  57 69 6d 70 5f 47 65 74  49 63 6f 6e 53 74 61 74  |Wimp_GetIconStat|
00003480  65 22 2c 2c 77 69 6d 70  25 0d 13 b0 36 e7 20 28  |e",,wimp%...6. (|
00003490  28 77 69 6d 70 25 21 32  34 29 20 80 20 26 31 30  |(wimp%!24) . &10|
000034a0  30 29 3d 30 20 3d 24 28  77 69 6d 70 25 2b 32 38  |0)=0 =$(wimp%+28|
000034b0  29 20 8b 3d 24 28 77 69  6d 70 25 21 32 38 29 0d  |) .=$(wimp%!28).|
000034c0  13 ba 2c dd 20 f2 57 69  6d 70 5f 49 63 6f 6e 50  |..,. .Wimp_IconP|
000034d0  75 74 54 65 78 74 28 77  69 6e 64 6f 77 25 2c 69  |utText(window%,i|
000034e0  63 6f 6e 25 2c 74 65 78  74 24 29 0d 13 c4 22 77  |con%,text$)..."w|
000034f0  69 6d 70 25 21 30 3d 77  69 6e 64 6f 77 25 20 3a  |imp%!0=window% :|
00003500  77 69 6d 70 25 21 34 3d  69 63 6f 6e 25 0d 13 ce  |wimp%!4=icon%...|
00003510  21 c8 99 20 22 57 69 6d  70 5f 47 65 74 49 63 6f  |!.. "Wimp_GetIco|
00003520  6e 53 74 61 74 65 22 2c  2c 77 69 6d 70 25 0d 13  |nState",,wimp%..|
00003530  d8 37 e7 20 28 28 77 69  6d 70 25 21 32 34 29 20  |.7. ((wimp%!24) |
00003540  80 20 26 31 30 30 29 3d  30 20 85 20 31 2c 22 49  |. &100)=0 . 1,"I|
00003550  63 6f 6e 20 69 73 6e 27  74 20 69 6e 64 69 72 65  |con isn't indire|
00003560  63 74 65 64 22 0d 13 e2  15 24 28 77 69 6d 70 25  |cted"....$(wimp%|
00003570  21 32 38 29 3d 74 65 78  74 24 0d 13 ec 22 77 69  |!28)=text$..."wi|
00003580  6d 70 25 21 30 3d 77 69  6e 64 6f 77 25 20 3a 77  |mp%!0=window% :w|
00003590  69 6d 70 25 21 34 3d 69  63 6f 6e 25 0d 13 f6 19  |imp%!4=icon%....|
000035a0  77 69 6d 70 25 21 38 3d  30 20 3a 77 69 6d 70 25  |wimp%!8=0 :wimp%|
000035b0  21 31 32 3d 30 0d 14 00  21 c8 99 20 22 57 69 6d  |!12=0...!.. "Wim|
000035c0  70 5f 53 65 74 49 63 6f  6e 53 74 61 74 65 22 2c  |p_SetIconState",|
000035d0  2c 77 69 6d 70 25 0d 14  0a 05 e1 0d 14 14 1f dd  |,wimp%..........|
000035e0  20 f2 57 69 6d 70 5f 4d  65 6e 75 41 64 6a 75 73  | .Wimp_MenuAdjus|
000035f0  74 4f 6e 28 6d 65 6e 75  25 29 0d 14 1e 2c c8 99  |tOn(menu%)...,..|
00003600  20 22 57 69 6d 70 5f 47  65 74 50 6f 69 6e 74 65  | "Wimp_GetPointe|
00003610  72 49 6e 66 6f 22 2c 2c  70 6f 69 6e 74 65 72 5f  |rInfo",,pointer_|
00003620  62 6c 6f 63 6b 25 0d 14  28 5d e7 20 28 28 70 6f  |block%..(]. ((po|
00003630  69 6e 74 65 72 5f 62 6c  6f 63 6b 25 21 38 29 80  |inter_block%!8).|
00003640  31 29 3d 31 20 8c c8 99  20 22 57 69 6d 70 5f 43  |1)=1 ... "Wimp_C|
00003650  72 65 61 74 65 4d 65 6e  75 22 2c 2c 6d 65 6e 75  |reateMenu",,menu|
00003660  25 2c 70 6f 69 6e 74 65  72 5f 62 6c 6f 63 6b 25  |%,pointer_block%|
00003670  21 30 2c 70 6f 69 6e 74  65 72 5f 62 6c 6f 63 6b  |!0,pointer_block|
00003680  25 21 34 0d 14 32 05 e1  0d 14 3c 1e dd 20 a4 57  |%!4..2....<.. .W|
00003690  69 6d 70 5f 4d 65 6e 75  43 68 6f 69 63 65 28 6c  |imp_MenuChoice(l|
000036a0  65 76 65 6c 25 29 0d 14  46 19 3d 28 77 69 6d 70  |evel%)..F.=(wimp|
000036b0  25 21 28 34 2a 6c 65 76  65 6c 25 29 29 2b 31 0d  |%!(4*level%))+1.|
000036c0  14 50 1d dd 20 a4 57 69  6d 70 5f 4d 65 6e 75 43  |.P.. .Wimp_MenuC|
000036d0  72 65 61 74 65 28 6d 65  6e 75 24 29 0d 14 5a 29  |reate(menu$)..Z)|
000036e0  e7 20 6d 65 6e 75 24 3d  22 43 6f 6c 6f 75 72 73  |. menu$="Colours|
000036f0  22 20 8c 3d a4 57 69 6d  70 5f 4d 65 6e 75 43 6f  |" .=.Wimp_MenuCo|
00003700  6c 6f 75 72 73 0d 14 64  27 ea 20 6d 65 6e 75 25  |lours..d'. menu%|
00003710  2c 69 6e 64 65 78 25 2c  77 69 64 74 68 25 2c 6c  |,index%,width%,l|
00003720  65 6e 67 74 68 25 2c 6b  25 2c 73 25 0d 14 6e 2e  |ength%,k%,s%..n.|
00003730  de 20 6d 65 6e 75 25 20  32 38 2b a4 57 69 6d 70  |. menu% 28+.Wimp|
00003740  5f 4d 65 6e 75 4e 6f 4f  66 45 6e 74 72 69 65 73  |_MenuNoOfEntries|
00003750  28 6d 65 6e 75 24 29 2a  32 34 0d 14 78 35 6d 65  |(menu$)*24..x5me|
00003760  6e 75 25 3f 31 32 3d 37  20 20 20 3a 6d 65 6e 75  |nu%?12=7   :menu|
00003770  25 3f 31 33 3d 32 20 20  3a 6d 65 6e 75 25 3f 31  |%?13=2  :menu%?1|
00003780  34 3d 37 20 3a 6d 65 6e  75 25 3f 31 35 3d 30 0d  |4=7 :menu%?15=0.|
00003790  14 82 29 6d 65 6e 75 25  21 31 36 3d 31 34 30 20  |..)menu%!16=140 |
000037a0  3a 6d 65 6e 75 25 21 32  30 3d 34 34 20 3a 6d 65  |:menu%!20=44 :me|
000037b0  6e 75 25 21 32 34 3d 30  0d 14 8c 13 69 6e 64 65  |nu%!24=0....inde|
000037c0  78 25 3d 6d 65 6e 75 25  2b 32 38 0d 14 96 20 24  |x%=menu%+28... $|
000037d0  6d 65 6e 75 25 3d c0 6d  65 6e 75 24 2c a7 6d 65  |menu%=.menu$,.me|
000037e0  6e 75 24 2c 22 5c 22 29  2d 31 29 0d 14 a0 23 77  |nu$,"\")-1)...#w|
000037f0  69 64 74 68 25 3d a9 28  c0 6d 65 6e 75 24 2c a7  |idth%=.(.menu$,.|
00003800  6d 65 6e 75 24 2c 22 5c  22 29 2d 31 29 29 0d 14  |menu$,"\")-1))..|
00003810  aa 23 6d 65 6e 75 24 2b  3d 22 5c 22 20 3a 4d 65  |.#menu$+="\" :Me|
00003820  6e 75 5f 4e 6f 4f 66 45  6e 74 72 69 65 73 25 3d  |nu_NoOfEntries%=|
00003830  30 0d 14 b4 10 c8 95 20  6d 65 6e 75 24 3c 3e 22  |0...... menu$<>"|
00003840  22 0d 14 be 1f 6d 65 6e  75 24 3d c1 6d 65 6e 75  |"....menu$=.menu|
00003850  24 2c a7 6d 65 6e 75 24  2c 22 5c 22 29 2b 31 29  |$,.menu$,"\")+1)|
00003860  0d 14 c8 0e c8 8e 20 6d  65 6e 75 24 20 ca 0d 14  |...... menu$ ...|
00003870  d2 08 c9 20 22 22 0d 14  dc 05 7f 0d 14 e6 2d 21  |... ""........-!|
00003880  69 6e 64 65 78 25 3d 30  20 3a 69 6e 64 65 78 25  |index%=0 :index%|
00003890  21 34 3d 2d 31 20 3a 69  6e 64 65 78 25 21 38 3d  |!4=-1 :index%!8=|
000038a0  26 37 30 30 30 30 32 31  0d 14 f0 19 6c 65 6e 67  |&7000021....leng|
000038b0  74 68 25 3d a7 6d 65 6e  75 24 2c 22 5c 22 29 2d  |th%=.menu$,"\")-|
000038c0  31 0d 14 fa 1c 6b 25 3d  a7 c0 6d 65 6e 75 24 2c  |1....k%=..menu$,|
000038d0  6c 65 6e 67 74 68 25 29  2c 22 3e 22 29 0d 15 04  |length%),">")...|
000038e0  0b c8 8e 20 6b 25 20 ca  0d 15 0e 07 c9 20 30 0d  |... k% ...... 0.|
000038f0  15 18 05 7f 0d 15 22 21  73 25 3d a0 28 c1 6d 65  |......"!s%=.(.me|
00003900  6e 75 24 2c 6b 25 2b 31  2c 6c 65 6e 67 74 68 25  |nu$,k%+1,length%|
00003910  2d 6b 25 29 29 0d 15 2c  0f 69 6e 64 65 78 25 21  |-k%))..,.index%!|
00003920  34 3d 73 25 0d 15 36 10  6c 65 6e 67 74 68 25 3d  |4=s%..6.length%=|
00003930  6b 25 2d 31 0d 15 40 05  cb 0d 15 4a 20 24 28 69  |k%-1..@....J $(i|
00003940  6e 64 65 78 25 2b 31 32  29 3d c0 6d 65 6e 75 24  |ndex%+12)=.menu$|
00003950  2c 6c 65 6e 67 74 68 25  29 0d 15 54 24 e7 20 6c  |,length%)..T$. l|
00003960  65 6e 67 74 68 25 3e 77  69 64 74 68 25 20 8c 77  |ength%>width% .w|
00003970  69 64 74 68 25 3d 6c 65  6e 67 74 68 25 0d 15 5e  |idth%=length%..^|
00003980  0e 69 6e 64 65 78 25 2b  3d 32 34 0d 15 68 05 cb  |.index%+=24..h..|
00003990  0d 15 72 05 ce 0d 15 7c  1a 6d 65 6e 75 25 21 31  |..r....|.menu%!1|
000039a0  36 3d 31 36 2a 28 77 69  64 74 68 25 2b 31 29 0d  |6=16*(width%+1).|
000039b0  15 86 27 69 6e 64 65 78  25 21 2d 32 34 3d 69 6e  |..'index%!-24=in|
000039c0  64 65 78 25 21 2d 32 34  20 84 20 26 38 30 20 3a  |dex%!-24 . &80 :|
000039d0  3d 6d 65 6e 75 25 0d 15  90 17 dd 20 a4 57 69 6d  |=menu%..... .Wim|
000039e0  70 5f 4d 65 6e 75 43 6f  6c 6f 75 72 73 0d 15 9a  |p_MenuColours...|
000039f0  21 3d a4 57 69 6d 70 5f  4d 65 6e 75 43 72 65 61  |!=.Wimp_MenuCrea|
00003a00  74 65 43 6f 6c 6f 75 72  73 28 22 20 22 29 0d 15  |teColours(" ")..|
00003a10  a4 25 dd 20 a4 57 69 6d  70 5f 4d 65 6e 75 43 72  |.%. .Wimp_MenuCr|
00003a20  65 61 74 65 43 6f 6c 6f  75 72 73 28 74 69 74 6c  |eateColours(titl|
00003a30  65 24 29 0d 15 ae 13 ea  20 78 24 2c 6d 65 6e 25  |e$)..... x$,men%|
00003a40  2c 6a 25 2c 69 25 0d 15  b8 36 78 24 3d 74 69 74  |,j%,i%...6x$=tit|
00003a50  6c 65 24 2b 22 5c 30 5c  31 5c 32 5c 33 5c 34 5c  |le$+"\0\1\2\3\4\|
00003a60  35 5c 36 5c 37 5c 38 5c  39 5c 31 30 5c 31 31 5c  |5\6\7\8\9\10\11\|
00003a70  31 32 5c 31 33 5c 31 34  5c 31 35 22 0d 15 c2 1d  |12\13\14\15"....|
00003a80  6d 65 6e 25 3d a4 57 69  6d 70 5f 4d 65 6e 75 43  |men%=.Wimp_MenuC|
00003a90  72 65 61 74 65 28 78 24  29 0d 15 cc 0f e3 20 69  |reate(x$)..... i|
00003aa0  25 3d 30 20 b8 20 31 35  0d 15 d6 0a c8 8e 20 b9  |%=0 . 15...... .|
00003ab0  20 ca 0d 15 e0 27 c9 20  69 25 3c 34 2c 69 25 3d  | ....'. i%<4,i%=|
00003ac0  39 2c 69 25 3d 31 32 2c  69 25 3d 31 34 2c 69 25  |9,i%=12,i%=14,i%|
00003ad0  3d 31 35 20 3a 6a 25 3d  37 0d 15 ea 0b 7f 20 3a  |=15 :j%=7..... :|
00003ae0  6a 25 3d 30 0d 15 f4 05  cb 0d 15 fe 1c 6d 65 6e  |j%=0.........men|
00003af0  25 3f 28 33 39 2b 69 25  2a 32 34 29 3d 69 25 2a  |%?(39+i%*24)=i%*|
00003b00  31 36 2b 6a 25 0d 16 08  1f f2 57 69 6d 70 5f 4d  |16+j%.....Wimp_M|
00003b10  65 6e 75 43 65 6e 74 72  65 28 6d 65 6e 25 2c 69  |enuCentre(men%,i|
00003b20  25 2b 31 29 0d 16 12 05  ed 0d 16 1c 09 3d 6d 65  |%+1).........=me|
00003b30  6e 25 0d 16 26 22 dd 20  a4 57 69 6d 70 5f 4d 65  |n%..&". .Wimp_Me|
00003b40  6e 75 4e 6f 4f 66 45 6e  74 72 69 65 73 28 6d 65  |nuNoOfEntries(me|
00003b50  6e 75 24 29 0d 16 30 18  ea 20 6e 25 20 2c 6a 25  |nu$)..0.. n% ,j%|
00003b60  20 3a 6e 25 3d 30 20 3a  6a 25 3d 30 0d 16 3a 05  | :n%=0 :j%=0..:.|
00003b70  f5 0d 16 44 17 6a 25 3d  a7 6d 65 6e 75 24 2c 22  |...D.j%=.menu$,"|
00003b80  5c 22 2c 6a 25 2b 31 29  0d 16 4e 12 e7 20 6a 25  |\",j%+1)..N.. j%|
00003b90  3c 3e 30 20 8c 6e 25 2b  3d 31 0d 16 58 0a fd 20  |<>0 .n%+=1..X.. |
00003ba0  6a 25 3d 30 0d 16 62 07  3d 6e 25 0d 16 6c 23 dd  |j%=0..b.=n%..l#.|
00003bb0  20 f2 57 69 6d 70 5f 4d  65 6e 75 43 65 6e 74 72  | .Wimp_MenuCentr|
00003bc0  65 28 6d 65 6e 75 25 2c  69 74 65 6d 25 29 0d 16  |e(menu%,item%)..|
00003bd0  76 3a 6d 65 6e 75 25 21  28 33 36 2b 28 69 74 65  |v:menu%!(36+(ite|
00003be0  6d 25 2d 31 29 2a 32 34  29 3d 6d 65 6e 75 25 21  |m%-1)*24)=menu%!|
00003bf0  28 33 36 2b 28 69 74 65  6d 25 2d 31 29 2a 32 34  |(36+(item%-1)*24|
00003c00  29 84 28 31 3c 3c 33 29  0d 16 80 05 e1 0d 16 8a  |).(1<<3)........|
00003c10  15 dd 20 f2 57 69 6d 70  5f 4d 65 6e 75 43 6c 6f  |.. .Wimp_MenuClo|
00003c20  73 65 0d 16 94 1b c8 99  20 22 57 69 6d 70 5f 43  |se...... "Wimp_C|
00003c30  72 65 61 74 65 4d 65 6e  75 22 2c 2d 31 0d 16 9e  |reateMenu",-1...|
00003c40  05 e1 0d 16 a8 24 dd 20  f2 57 69 6d 70 5f 4d 65  |.....$. .Wimp_Me|
00003c50  6e 75 44 69 73 61 62 6c  65 28 6d 65 6e 75 25 2c  |nuDisable(menu%,|
00003c60  69 74 65 6d 25 29 0d 16  b2 3b 6d 65 6e 75 25 21  |item%)...;menu%!|
00003c70  28 33 36 2b 28 69 74 65  6d 25 2d 31 29 2a 32 34  |(36+(item%-1)*24|
00003c80  29 3d 6d 65 6e 75 25 21  28 33 36 2b 28 69 74 65  |)=menu%!(36+(ite|
00003c90  6d 25 2d 31 29 2a 32 34  29 84 28 31 3c 3c 32 32  |m%-1)*24).(1<<22|
00003ca0  29 0d 16 bc 05 e1 0d 16  c6 23 dd 20 f2 57 69 6d  |)........#. .Wim|
00003cb0  70 5f 4d 65 6e 75 45 6e  61 62 6c 65 28 6d 65 6e  |p_MenuEnable(men|
00003cc0  75 25 2c 69 74 65 6d 25  29 0d 16 d0 22 f2 57 69  |u%,item%)...".Wi|
00003cd0  6d 70 5f 4d 65 6e 75 44  69 73 61 62 6c 65 28 6d  |mp_MenuDisable(m|
00003ce0  65 6e 75 25 2c 69 74 65  6d 25 29 0d 16 da 3b 6d  |enu%,item%)...;m|
00003cf0  65 6e 75 25 21 28 33 36  2b 28 69 74 65 6d 25 2d  |enu%!(36+(item%-|
00003d00  31 29 2a 32 34 29 3d 6d  65 6e 75 25 21 28 33 36  |1)*24)=menu%!(36|
00003d10  2b 28 69 74 65 6d 25 2d  31 29 2a 32 34 29 82 28  |+(item%-1)*24).(|
00003d20  31 3c 3c 32 32 29 0d 16  e4 05 e1 0d 16 ee 26 dd  |1<<22)........&.|
00003d30  20 a4 57 69 6d 70 5f 47  65 74 53 74 72 69 6e 67  | .Wimp_GetString|
00003d40  41 74 41 64 64 72 65 73  73 28 61 72 72 61 79 25  |AtAddress(array%|
00003d50  29 0d 16 f8 0d ea 73 24  3a 73 24 3d 22 22 0d 17  |).....s$:s$=""..|
00003d60  02 3b c8 95 28 3f 61 72  72 61 79 25 3c 3e 31 33  |.;..(?array%<>13|
00003d70  29 80 28 3f 61 72 72 61  79 25 3c 3e 30 29 3a 73  |).(?array%<>0):s|
00003d80  24 2b 3d bd 28 3f 61 72  72 61 79 25 29 3a 61 72  |$+=.(?array%):ar|
00003d90  72 61 79 25 2b 3d 31 3a  ce 0d 17 0c 07 3d 73 24  |ray%+=1:.....=s$|
00003da0  0d 17 16 2f dd 20 f2 57  69 6d 70 5f 53 74 61 72  |.../. .Wimp_Star|
00003db0  74 28 54 61 73 6b 4e 61  6d 65 24 2c 77 69 6d 70  |t(TaskName$,wimp|
00003dc0  5f 6d 65 6d 6f 72 79 25  2c 69 63 6f 6e 25 29 0d  |_memory%,icon%).|
00003dd0  17 20 25 de 20 77 69 6d  70 25 20 77 69 6d 70 5f  |. %. wimp% wimp_|
00003de0  6d 65 6d 6f 72 79 25 2c  69 63 6f 6e 73 25 20 69  |memory%,icons% i|
00003df0  63 6f 6e 25 0d 17 2a 28  e7 20 77 69 6d 70 5f 6d  |con%..*(. wimp_m|
00003e00  65 6d 6f 72 79 25 3c 32  35 36 20 8c 77 69 6d 70  |emory%<256 .wimp|
00003e10  5f 6d 65 6d 6f 72 79 25  3d 32 35 36 0d 17 34 1d  |_memory%=256..4.|
00003e20  69 63 6f 6e 5f 6d 65 6d  6f 72 79 25 3d 69 63 6f  |icon_memory%=ico|
00003e30  6e 73 25 2b 69 63 6f 6e  25 0d 17 3e 13 74 61 73  |ns%+icon%..>.tas|
00003e40  6b 24 3d 54 61 73 6b 4e  61 6d 65 24 0d 17 48 2a  |k$=TaskName$..H*|
00003e50  69 6e 64 69 72 65 63 74  5f 73 70 72 69 74 65 73  |indirect_sprites|
00003e60  25 3d 31 20 3a 64 69 72  65 63 74 5f 73 70 72 69  |%=1 :direct_spri|
00003e70  74 65 73 25 3d 31 0d 17  52 1b f2 57 69 6d 70 5f  |tes%=1..R..Wimp_|
00003e80  53 65 74 45 76 65 6e 74  56 61 72 69 61 62 6c 65  |SetEventVariable|
00003e90  73 0d 17 5c 15 ee 20 85  20 f2 57 69 6d 70 5f 45  |s..\.. . .Wimp_E|
00003ea0  72 72 6f 72 3a e0 0d 17  66 40 c8 99 22 57 69 6d  |rror:...f@.."Wim|
00003eb0  70 5f 49 6e 69 74 69 61  6c 69 73 65 22 2c 32 30  |p_Initialise",20|
00003ec0  30 2c 26 34 42 35 33 34  31 35 34 2c 54 61 73 6b  |0,&4B534154,Task|
00003ed0  4e 61 6d 65 24 20 b8 20  76 65 72 73 69 6f 6e 25  |Name$ . version%|
00003ee0  2c 74 61 73 6b 25 0d 17  70 05 e1 0d 17 7a 1d dd  |,task%..p....z..|
00003ef0  20 f2 57 69 6d 70 5f 53  65 74 45 76 65 6e 74 56  | .Wimp_SetEventV|
00003f00  61 72 69 61 62 6c 65 73  0d 17 84 17 de 20 70 6f  |ariables..... po|
00003f10  69 6e 74 65 72 5f 62 6c  6f 63 6b 25 20 32 30 0d  |inter_block% 20.|
00003f20  17 8e 10 69 6e 74 65 72  66 61 63 65 25 3d a3 0d  |...interface%=..|
00003f30  17 98 2c 6e 75 6c 6c 25  3d 31 20 20 3a 64 72 61  |..,null%=1  :dra|
00003f40  77 25 3d 32 20 3a 70 6f  69 6e 74 65 72 5f 6c 65  |w%=2 :pointer_le|
00003f50  61 76 69 6e 67 25 3d 31  3c 3c 34 0d 17 a2 31 70  |aving%=1<<4...1p|
00003f60  6f 69 6e 74 65 72 5f 65  6e 74 65 72 69 6e 67 25  |ointer_entering%|
00003f70  3d 31 3c 3c 35 3a 6d 6f  75 73 65 25 3d 31 3c 3c  |=1<<5:mouse%=1<<|
00003f80  36 3a 64 72 61 67 25 3d  31 3c 3c 37 0d 17 ac 26  |6:drag%=1<<7...&|
00003f90  6b 65 79 25 3d 31 3c 3c  38 3a 6d 65 6e 75 25 3d  |key%=1<<8:menu%=|
00003fa0  31 3c 3c 39 3a 73 63 72  6f 6c 6c 25 3d 31 3c 3c  |1<<9:scroll%=1<<|
00003fb0  31 30 0d 17 b6 40 6c 6f  73 65 5f 63 61 72 65 74  |10...@lose_caret|
00003fc0  25 3d 31 3c 3c 31 31 3a  67 61 69 6e 5f 63 61 72  |%=1<<11:gain_car|
00003fd0  65 74 25 3d 31 3c 3c 31  32 3a 6d 65 73 73 61 67  |et%=1<<12:messag|
00003fe0  65 25 3d 28 31 3c 3c 31  37 29 2b 28 31 3c 3c 31  |e%=(1<<17)+(1<<1|
00003ff0  38 29 0d 17 c0 30 72 65  63 6f 72 64 65 72 25 3d  |8)...0recorder%=|
00004000  31 3c 3c 31 38 3a 61 63  6b 6e 6f 77 6c 65 64 67  |1<<18:acknowledg|
00004010  65 25 3d 31 3c 3c 31 39  3a 77 69 6e 64 6f 77 25  |e%=1<<19:window%|
00004020  3d 30 0d 17 ca 21 73 70  72 69 74 65 73 25 3d 31  |=0...!sprites%=1|
00004030  3a 76 65 72 73 69 6f 6e  25 3d 30 3a 74 61 73 6b  |:version%=0:task|
00004040  25 3d 30 0d 17 d4 2a 42  61 72 5f 57 69 6e 64 6f  |%=0...*Bar_Windo|
00004050  77 25 3d 2d 32 3a 42 61  72 5f 49 63 6f 6e 25 3d  |w%=-2:Bar_Icon%=|
00004060  30 3a 42 61 72 5f 4d 65  6e 75 25 3d 30 0d 17 de  |0:Bar_Menu%=0...|
00004070  2a 78 5f 6f 72 69 67 69  6e 25 3d 30 3a 79 5f 6f  |*x_origin%=0:y_o|
00004080  72 69 67 69 6e 25 3d 30  3a 53 61 76 65 57 69 6e  |rigin%=0:SaveWin|
00004090  64 6f 77 25 3d 2d 33 0d  17 e8 33 6d 65 73 73 61  |dow%=-3...3messa|
000040a0  67 65 5f 71 75 69 74 25  3d 30 3a 6d 65 73 73 61  |ge_quit%=0:messa|
000040b0  67 65 5f 73 61 76 65 25  3d 32 3a 6d 65 73 73 61  |ge_save%=2:messa|
000040c0  67 65 5f 6c 6f 61 64 25  3d 33 0d 17 f2 21 6d 6f  |ge_load%=3...!mo|
000040d0  75 73 65 5f 62 75 74 74  6f 6e 25 3d 32 3a 73 61  |use_button%=2:sa|
000040e0  76 65 5f 65 76 65 6e 74  25 3d 30 0d 17 fc 1f 74  |ve_event%=0....t|
000040f0  6f 70 5f 6c 69 6e 65 25  3d 30 20 3a 62 6f 74 74  |op_line%=0 :bott|
00004100  6f 6d 5f 6c 69 6e 65 25  3d 30 0d 18 06 05 e1 0d  |om_line%=0......|
00004110  18 10 11 dd 20 f2 57 69  6d 70 5f 45 72 72 6f 72  |.... .Wimp_Error|
00004120  0d 18 1a 0a ea 58 24 2c  78 25 0d 18 24 09 ee 20  |.....X$,x%..$.. |
00004130  85 20 87 0d 18 2e 08 78  25 3d 9e 0d 18 38 1b 58  |. .....x%=...8.X|
00004140  24 3d f6 24 2b 22 61 74  6c 69 6e 65 22 2b c3 28  |$=.$+"atline"+.(|
00004150  78 25 81 31 30 29 0d 18  42 10 de 45 72 72 6f 72  |x%.10)..B..Error|
00004160  4d 73 67 25 33 36 0d 18  4c 45 45 72 72 6f 72 4d  |Msg%36..LEErrorM|
00004170  73 67 25 21 30 3d 33 36  3a 45 72 72 6f 72 4d 73  |sg%!0=36:ErrorMs|
00004180  67 25 21 31 32 3d 30 3a  45 72 72 6f 72 4d 73 67  |g%!12=0:ErrorMsg|
00004190  25 21 31 36 3d 26 38 31  30 38 30 3a 45 72 72 6f  |%!16=&81080:Erro|
000041a0  72 4d 73 67 25 21 32 30  3d 78 25 0d 18 56 1f 24  |rMsg%!20=x%..V.$|
000041b0  28 45 72 72 6f 72 4d 73  67 25 2b 32 34 29 3d 22  |(ErrorMsg%+24)="|
000041c0  21 52 75 6e 49 6d 61 67  65 22 0d 18 60 25 c8 99  |!RunImage"..`%..|
000041d0  22 57 69 6d 70 5f 53 65  6e 64 4d 65 73 73 61 67  |"Wimp_SendMessag|
000041e0  65 22 2c 31 37 2c 45 72  72 6f 72 4d 73 67 25 0d  |e",17,ErrorMsg%.|
000041f0  18 6a 61 f2 57 69 6d 70  5f 57 69 6e 64 6f 77 45  |.ja.Wimp_WindowE|
00004200  72 72 6f 72 42 6f 78 28  74 61 73 6b 24 2c 74 61  |rrorBox(task$,ta|
00004210  73 6b 24 2b 22 20 68 61  73 20 73 75 66 66 65 72  |sk$+" has suffer|
00004220  65 64 20 61 20 66 61 74  61 6c 20 69 6e 74 65 72  |ed a fatal inter|
00004230  6e 61 6c 20 65 72 72 6f  72 2c 20 61 6e 64 20 69  |nal error, and i|
00004240  73 20 6e 6f 77 20 71 75  69 74 74 69 6e 67 22 29  |s now quitting")|
00004250  0d 18 74 13 f2 57 69 6d  70 5f 43 6c 6f 73 65 44  |..t..Wimp_CloseD|
00004260  6f 77 6e 0d 18 7e 05 e1  0d 18 88 15 dd 20 f2 57  |own..~....... .W|
00004270  69 6d 70 5f 43 6c 6f 73  65 44 6f 77 6e 0d 18 92  |imp_CloseDown...|
00004280  23 c8 99 22 57 69 6d 70  5f 43 6c 6f 73 65 44 6f  |#.."Wimp_CloseDo|
00004290  77 6e 22 2c 74 61 73 6b  25 2c 22 54 41 53 4b 22  |wn",task%,"TASK"|
000042a0  0d 18 9c 0f f2 51 75 69  74 41 63 74 69 6f 6e 0d  |.....QuitAction.|
000042b0  18 a6 05 e1 0d 18 b0 23  dd 20 a4 57 69 6d 70 5f  |.......#. .Wimp_|
000042c0  52 65 61 64 56 61 72 69  61 62 6c 65 28 56 61 72  |ReadVariable(Var|
000042d0  69 61 62 6c 65 24 29 0d  18 ba 1b ea 6c 65 6e 25  |iable$).....len%|
000042e0  2c 72 65 73 75 6c 74 25  2c 76 61 72 69 61 62 6c  |,result%,variabl|
000042f0  65 25 0d 18 c4 14 24 77  69 6d 70 25 3d 56 61 72  |e%....$wimp%=Var|
00004300  69 61 62 6c 65 24 0d 18  ce 33 c8 99 22 4f 53 5f  |iable$...3.."OS_|
00004310  52 65 61 64 56 61 72 56  61 6c 22 2c 77 69 6d 70  |ReadVarVal",wimp|
00004320  25 2c 77 69 6d 70 25 2b  32 35 35 2c 32 35 35 2c  |%,wimp%+255,255,|
00004330  2c 33 b8 2c 2c 6c 65 6e  25 0d 18 d8 17 77 69 6d  |,3.,,len%....wim|
00004340  70 25 3f 28 6c 65 6e 25  2b 32 35 35 29 3d 31 33  |p%?(len%+255)=13|
00004350  0d 18 e2 11 3d 24 28 77  69 6d 70 25 2b 32 35 35  |....=$(wimp%+255|
00004360  29 0d 18 ec 18 dd 20 f2  57 69 6d 70 5f 57 61 69  |)..... .Wimp_Wai|
00004370  74 46 6f 72 45 76 65 6e  74 0d 18 f6 12 ea 20 6d  |tForEvent..... m|
00004380  61 73 6b 25 2c 65 76 65  6e 74 25 0d 19 00 0f 66  |ask%,event%....f|
00004390  69 6e 69 73 68 65 64 25  3d a3 0d 19 0a 17 6d 61  |inished%=.....ma|
000043a0  73 6b 25 3d 25 31 31 31  30 30 30 30 31 31 30 30  |sk%=%11100001100|
000043b0  31 0d 19 14 05 f5 0d 19  1e 26 c8 99 22 57 69 6d  |1........&.."Wim|
000043c0  70 5f 50 6f 6c 6c 22 2c  6d 61 73 6b 25 2c 77 69  |p_Poll",mask%,wi|
000043d0  6d 70 25 20 b8 20 65 76  65 6e 74 25 0d 19 28 0f  |mp% . event%..(.|
000043e0  c8 8e 20 65 76 65 6e 74  25 20 ca 0d 19 32 06 c9  |.. event% ...2..|
000043f0  30 0d 19 3c 1c c9 31 20  3a f2 57 69 6d 70 5f 50  |0..<..1 :.Wimp_P|
00004400  6f 6c 6c 44 72 61 77 57  69 6e 64 6f 77 0d 19 46  |ollDrawWindow..F|
00004410  23 c9 32 20 3a c8 99 20  22 57 69 6d 70 5f 4f 70  |#.2 :.. "Wimp_Op|
00004420  65 6e 57 69 6e 64 6f 77  22 2c 2c 77 69 6d 70 25  |enWindow",,wimp%|
00004430  0d 19 50 1d c9 33 20 3a  f2 57 69 6d 70 5f 50 6f  |..P..3 :.Wimp_Po|
00004440  6c 6c 43 6c 6f 73 65 57  69 6e 64 6f 77 0d 19 5a  |llCloseWindow..Z|
00004450  06 c9 34 0d 19 64 06 c9  35 0d 19 6e 1c c9 36 20  |..4..d..5..n..6 |
00004460  3a f2 57 69 6d 70 5f 50  6f 6c 6c 4d 6f 75 73 65  |:.Wimp_PollMouse|
00004470  43 6c 69 63 6b 0d 19 78  1d c9 37 20 3a f2 57 69  |Click..x..7 :.Wi|
00004480  6d 70 5f 50 6f 6c 6c 53  61 76 65 4d 65 73 73 61  |mp_PollSaveMessa|
00004490  67 65 0d 19 82 1a c9 38  20 3a f2 57 69 6d 70 5f  |ge.....8 :.Wimp_|
000044a0  50 6f 6c 6c 4b 65 79 50  72 65 73 73 0d 19 8c 20  |PollKeyPress... |
000044b0  c9 39 20 3a f2 45 76 65  6e 74 5f 4d 65 6e 75 43  |.9 :.Event_MenuC|
000044c0  68 6f 69 63 65 28 6d 65  6e 75 25 29 0d 19 96 07  |hoice(menu%)....|
000044d0  c9 31 30 0d 19 a0 07 c9  31 31 0d 19 aa 07 c9 31  |.10.....11.....1|
000044e0  32 0d 19 b4 1d c9 31 37  2c 31 38 3a f2 57 69 6d  |2.....17,18:.Wim|
000044f0  70 5f 50 6f 6c 6c 4d 65  73 73 61 67 65 73 0d 19  |p_PollMessages..|
00004500  be 07 c9 31 39 0d 19 c8  05 cb 0d 19 d2 0f fd 20  |...19.......... |
00004510  66 69 6e 69 73 68 65 64  25 0d 19 dc 05 e1 0d 19  |finished%.......|
00004520  e6 1a dd 20 f2 57 69 6d  70 5f 50 6f 6c 6c 44 72  |... .Wimp_PollDr|
00004530  61 77 57 69 6e 64 6f 77  0d 19 f0 0b ea 20 6d 6f  |awWindow..... mo|
00004540  72 65 25 0d 19 fa 26 c8  99 22 57 69 6d 70 5f 52  |re%...&.."Wimp_R|
00004550  65 64 72 61 77 57 69 6e  64 6f 77 22 2c 2c 77 69  |edrawWindow",,wi|
00004560  6d 70 25 b8 6d 6f 72 65  25 0d 1a 04 13 77 69 6e  |mp%.more%....win|
00004570  64 6f 77 25 3d 77 69 6d  70 25 21 30 0d 1a 0e 41  |dow%=wimp%!0...A|
00004580  78 5f 6f 72 69 67 69 6e  25 3d 31 36 2b 77 69 6d  |x_origin%=16+wim|
00004590  70 25 21 34 2d 77 69 6d  70 25 21 32 30 3a 79 5f  |p%!4-wimp%!20:y_|
000045a0  6f 72 69 67 69 6e 25 3d  2d 31 36 2b 77 69 6d 70  |origin%=-16+wimp|
000045b0  25 21 31 36 2d 77 69 6d  70 25 21 32 34 0d 1a 18  |%!16-wimp%!24...|
000045c0  0b c8 95 6d 6f 72 65 25  0d 1a 22 2e e7 20 69 6e  |...more%..".. in|
000045d0  74 65 72 66 61 63 65 25  20 8c c8 99 22 57 69 6d  |terface% ..."Wim|
000045e0  70 5f 42 6f 72 64 65 72  57 69 6e 64 6f 77 22 2c  |p_BorderWindow",|
000045f0  2c 77 69 6d 70 25 0d 1a  2c 2c f2 45 76 65 6e 74  |,wimp%..,,.Event|
00004600  5f 44 72 61 77 28 77 69  6e 64 6f 77 25 2c 78 5f  |_Draw(window%,x_|
00004610  6f 72 69 67 69 6e 25 2c  79 5f 6f 72 69 67 69 6e  |origin%,y_origin|
00004620  25 29 0d 1a 36 26 c8 99  22 57 69 6d 70 5f 47 65  |%)..6&.."Wimp_Ge|
00004630  74 52 65 63 74 61 6e 67  6c 65 22 2c 2c 77 69 6d  |tRectangle",,wim|
00004640  70 25 b8 6d 6f 72 65 25  0d 1a 40 05 ce 0d 1a 4a  |p%.more%..@....J|
00004650  05 e1 0d 1a 54 1b dd 20  f2 57 69 6d 70 5f 50 6f  |....T.. .Wimp_Po|
00004660  6c 6c 43 6c 6f 73 65 57  69 6e 64 6f 77 0d 1a 5e  |llCloseWindow..^|
00004670  23 c8 99 20 22 57 69 6d  70 5f 47 65 74 50 6f 69  |#.. "Wimp_GetPoi|
00004680  6e 74 65 72 49 6e 66 6f  22 2c 2c 77 69 6d 70 25  |nterInfo",,wimp%|
00004690  0d 1a 68 26 77 69 6e 64  6f 77 25 3d 77 69 6d 70  |..h&window%=wimp|
000046a0  25 21 31 32 20 3a 62 75  74 74 6f 6e 73 25 3d 77  |%!12 :buttons%=w|
000046b0  69 6d 70 25 21 38 0d 1a  72 28 f2 45 76 65 6e 74  |imp%!8..r(.Event|
000046c0  5f 57 69 6e 64 6f 77 43  6c 6f 73 65 28 77 69 6e  |_WindowClose(win|
000046d0  64 6f 77 25 2c 62 75 74  74 6f 6e 73 25 29 0d 1a  |dow%,buttons%)..|
000046e0  7c 30 21 77 69 6d 70 25  3d 77 69 6e 64 6f 77 25  ||0!wimp%=window%|
000046f0  20 3a c8 99 20 22 57 69  6d 70 5f 43 6c 6f 73 65  | :.. "Wimp_Close|
00004700  57 69 6e 64 6f 77 22 2c  2c 77 69 6d 70 25 0d 1a  |Window",,wimp%..|
00004710  86 05 e1 0d 1a 90 1a dd  20 f2 57 69 6d 70 5f 50  |........ .Wimp_P|
00004720  6f 6c 6c 4d 6f 75 73 65  43 6c 69 63 6b 0d 1a 9a  |ollMouseClick...|
00004730  49 62 75 74 74 6f 6e 25  3d 77 69 6d 70 25 21 38  |Ibutton%=wimp%!8|
00004740  3a 77 69 6e 64 6f 77 25  3d 77 69 6d 70 25 21 31  |:window%=wimp%!1|
00004750  32 3a 69 63 6f 6e 25 3d  77 69 6d 70 25 21 31 36  |2:icon%=wimp%!16|
00004760  3a 78 25 3d 77 69 6d 70  25 21 30 3a 79 25 3d 77  |:x%=wimp%!0:y%=w|
00004770  69 6d 70 25 21 34 0d 1a  a4 10 c8 8e 20 62 75 74  |imp%!4...... but|
00004780  74 6f 6e 25 20 ca 0d 1a  ae 1e c9 32 20 20 20 20  |ton% ......2    |
00004790  3a f2 57 69 6d 70 5f 50  6f 6c 6c 4d 65 6e 75 50  |:.Wimp_PollMenuP|
000047a0  6f 70 55 70 0d 1a b8 1f  7f 3a c8 8e 20 a4 45 76  |opUp.....:.. .Ev|
000047b0  65 6e 74 5f 53 61 76 65  28 77 69 6e 64 6f 77 25  |ent_Save(window%|
000047c0  29 20 ca 0d 1a c2 1c c9  20 b9 20 3a f2 57 69 6d  |) ...... . :.Wim|
000047d0  70 5f 50 6f 6c 6c 4d 6f  75 73 65 53 61 76 65 0d  |p_PollMouseSave.|
000047e0  1a cc 21 c9 20 a3 3a f2  57 69 6d 70 5f 50 6f 6c  |..!. .:.Wimp_Pol|
000047f0  6c 45 76 65 6e 74 4d 6f  75 73 65 43 6c 69 63 6b  |lEventMouseClick|
00004800  0d 1a d6 05 cb 0d 1a e0  05 cb 0d 1a ea 05 e1 0d  |................|
00004810  1a f4 19 dd 20 f2 57 69  6d 70 5f 50 6f 6c 6c 4d  |.... .Wimp_PollM|
00004820  65 6e 75 50 6f 70 55 70  0d 1a fe 1e 6d 65 6e 75  |enuPopUp....menu|
00004830  25 3d a4 45 76 65 6e 74  5f 4d 65 6e 75 28 77 69  |%=.Event_Menu(wi|
00004840  6e 64 6f 77 25 29 0d 1b  08 0f c8 8e 20 6d 65 6e  |ndow%)...... men|
00004850  75 25 20 20 ca 0d 1b 12  07 c9 20 a3 0d 1b 1c 05  |u%  ...... .....|
00004860  7f 0d 1b 26 10 c8 8e 20  77 69 6e 64 6f 77 25 20  |...&... window% |
00004870  ca 0d 1b 30 10 c9 20 2d  32 20 20 20 3a 6e 25 3d  |...0.. -2   :n%=|
00004880  30 0d 1b 3a 2b c8 95 20  28 28 42 61 72 5f 4d 65  |0..:+.. ((Bar_Me|
00004890  6e 75 25 21 28 32 38 2b  6e 25 2a 32 34 29 29 80  |nu%!(28+n%*24)).|
000048a0  25 31 30 30 30 30 30 30  30 29 3d 30 0d 1b 44 09  |%10000000)=0..D.|
000048b0  6e 25 2b 3d 31 0d 1b 4e  05 ce 0d 1b 58 09 6e 25  |n%+=1..N....X.n%|
000048c0  2b 3d 31 0d 1b 62 32 c8  99 20 22 57 69 6d 70 5f  |+=1..b2.. "Wimp_|
000048d0  43 72 65 61 74 65 4d 65  6e 75 22 2c 2c 42 61 72  |CreateMenu",,Bar|
000048e0  5f 4d 65 6e 75 25 2c 78  25 2d 36 34 2c 39 36 2b  |_Menu%,x%-64,96+|
000048f0  6e 25 2a 34 34 0d 1b 6c  2d 7f 20 3a c8 99 22 57  |n%*44..l-. :.."W|
00004900  69 6d 70 5f 43 72 65 61  74 65 4d 65 6e 75 22 2c  |imp_CreateMenu",|
00004910  2c 6d 65 6e 75 25 2c 78  25 2d 36 34 2c 79 25 2b  |,menu%,x%-64,y%+|
00004920  32 30 0d 1b 76 05 cb 0d  1b 80 05 cb 0d 1b 8a 05  |20..v...........|
00004930  e1 0d 1b 94 19 dd 20 f2  57 69 6d 70 5f 50 6f 6c  |...... .Wimp_Pol|
00004940  6c 4d 6f 75 73 65 53 61  76 65 0d 1b 9e 0e c8 8e  |lMouseSave......|
00004950  20 69 63 6f 6e 25 20 ca  0d 1b a8 34 c9 20 30 20  | icon% ....4. 0 |
00004960  3a e7 20 62 75 74 74 6f  6e 25 20 80 20 26 35 30  |:. button% . &50|
00004970  20 8c f2 57 69 6d 70 5f  50 6f 6c 6c 44 72 61 67  | ..Wimp_PollDrag|
00004980  42 6f 78 28 77 69 6e 64  6f 77 25 29 0d 1b b2 33  |Box(window%)...3|
00004990  c9 20 32 20 3a e7 20 62  75 74 74 6f 6e 25 20 80  |. 2 :. button% .|
000049a0  20 35 20 8c f2 57 69 6d  70 5f 50 6f 6c 6c 53 61  | 5 ..Wimp_PollSa|
000049b0  76 65 46 69 6c 65 28 77  69 6e 64 6f 77 25 29 0d  |veFile(window%).|
000049c0  1b bc 05 cb 0d 1b c6 05  e1 0d 1b d0 1f dd 20 f2  |.............. .|
000049d0  57 69 6d 70 5f 50 6f 6c  6c 45 76 65 6e 74 4d 6f  |Wimp_PollEventMo|
000049e0  75 73 65 43 6c 69 63 6b  0d 1b da 2c e7 20 69 6e  |useClick...,. in|
000049f0  74 65 72 66 61 63 65 25  20 8c c8 99 22 57 69 6d  |terface% ..."Wim|
00004a00  70 5f 42 6f 72 64 65 72  49 63 6f 6e 22 2c 2c 77  |p_BorderIcon",,w|
00004a10  69 6d 70 25 0d 1b e4 32  f2 45 76 65 6e 74 5f 4d  |imp%...2.Event_M|
00004a20  6f 75 73 65 43 6c 69 63  6b 28 77 69 6e 64 6f 77  |ouseClick(window|
00004a30  25 2c 69 63 6f 6e 25 2c  62 75 74 74 6f 6e 25 2c  |%,icon%,button%,|
00004a40  78 25 2c 79 25 29 0d 1b  ee 14 c8 8e 20 20 69 6e  |x%,y%)......  in|
00004a50  74 65 72 66 61 63 65 25  20 ca 0d 1b f8 07 c9 20  |terface% ...... |
00004a60  b9 0d 1c 02 24 77 69 6d  70 25 21 30 3d 78 25 3a  |....$wimp%!0=x%:|
00004a70  77 69 6d 70 25 21 34 3d  79 25 20 3a 77 69 6d 70  |wimp%!4=y% :wimp|
00004a80  25 21 38 3d 30 0d 1c 0c  24 77 69 6d 70 25 21 31  |%!8=0...$wimp%!1|
00004a90  32 3d 77 69 6e 64 6f 77  25 20 3a 77 69 6d 70 25  |2=window% :wimp%|
00004aa0  21 31 36 3d 69 63 6f 6e  25 0d 1c 16 1e c8 99 22  |!16=icon%......"|
00004ab0  57 69 6d 70 5f 42 6f 72  64 65 72 49 63 6f 6e 22  |Wimp_BorderIcon"|
00004ac0  2c 2c 77 69 6d 70 25 0d  1c 20 05 cb 0d 1c 2a 05  |,,wimp%.. ....*.|
00004ad0  e1 0d 1c 34 21 dd 20 f2  57 69 6d 70 5f 50 6f 6c  |...4!. .Wimp_Pol|
00004ae0  6c 53 61 76 65 46 69 6c  65 28 77 69 6e 64 6f 77  |lSaveFile(window|
00004af0  25 29 0d 1c 3e 0a ea 66  69 6c 65 24 0d 1c 48 3d  |%)..>..file$..H=|
00004b00  77 69 6d 70 25 21 30 3d  77 69 6e 64 6f 77 25 20  |wimp%!0=window% |
00004b10  3a 77 69 6d 70 25 21 34  3d 31 20 3a c8 99 20 22  |:wimp%!4=1 :.. "|
00004b20  57 69 6d 70 5f 47 65 74  49 63 6f 6e 53 74 61 74  |Wimp_GetIconStat|
00004b30  65 22 2c 2c 77 69 6d 70  25 0d 1c 52 15 66 69 6c  |e",,wimp%..R.fil|
00004b40  65 24 3d 24 28 77 69 6d  70 25 21 32 38 29 0d 1c  |e$=$(wimp%!28)..|
00004b50  5c 14 c8 8e 20 a7 66 69  6c 65 24 2c 22 2e 22 29  |\... .file$,".")|
00004b60  20 ca 0d 1c 66 07 c9 20  30 0d 1c 70 43 24 28 77  | ...f.. 0..pC$(w|
00004b70  69 6d 70 25 2b 34 29 3d  22 54 6f 20 73 61 76 65  |imp%+4)="To save|
00004b80  2c 20 64 72 61 67 20 74  68 65 20 66 69 6c 65 20  |, drag the file |
00004b90  69 63 6f 6e 20 74 6f 20  61 20 64 69 72 65 63 74  |icon to a direct|
00004ba0  6f 72 79 20 64 69 73 70  6c 61 79 22 0d 1c 7a 28  |ory display"..z(|
00004bb0  c8 99 20 22 57 69 6d 70  5f 52 65 70 6f 72 74 45  |.. "Wimp_ReportE|
00004bc0  72 72 6f 72 22 2c 77 69  6d 70 25 2c 31 36 2c 74  |rror",wimp%,16,t|
00004bd0  61 73 6b 24 0d 1c 84 05  7f 0d 1c 8e 22 f2 45 76  |ask$........".Ev|
00004be0  65 6e 74 5f 53 61 76 65  46 69 6c 65 28 66 69 6c  |ent_SaveFile(fil|
00004bf0  65 24 2c 77 69 6e 64 6f  77 25 29 0d 1c 98 05 cb  |e$,window%).....|
00004c00  0d 1c a2 1a c8 99 22 57  69 6d 70 5f 43 72 65 61  |......"Wimp_Crea|
00004c10  74 65 4d 65 6e 75 22 2c  2d 31 0d 1c ac 05 e1 0d  |teMenu",-1......|
00004c20  1c b6 20 dd 20 f2 57 69  6d 70 5f 50 6f 6c 6c 44  |.. . .Wimp_PollD|
00004c30  72 61 67 42 6f 78 28 77  69 6e 64 6f 77 25 29 0d  |ragBox(window%).|
00004c40  1c c0 0a ea 78 25 2c 79  25 0d 1c ca 11 73 61 76  |....x%,y%....sav|
00004c50  65 25 3d 77 69 6e 64 6f  77 25 0d 1c d4 12 21 77  |e%=window%....!w|
00004c60  69 6d 70 25 3d 77 69 6e  64 6f 77 25 0d 1c de 22  |imp%=window%..."|
00004c70  c8 99 22 57 69 6d 70 5f  47 65 74 57 69 6e 64 6f  |.."Wimp_GetWindo|
00004c80  77 53 74 61 74 65 22 2c  2c 77 69 6d 70 25 0d 1c  |wState",,wimp%..|
00004c90  e8 2c 78 25 3d 77 69 6d  70 25 21 34 2d 77 69 6d  |.,x%=wimp%!4-wim|
00004ca0  70 25 21 32 30 3a 79 25  3d 77 69 6d 70 25 21 31  |p%!20:y%=wimp%!1|
00004cb0  36 2d 77 69 6d 70 25 21  32 34 0d 1c f2 0d 77 69  |6-wimp%!24....wi|
00004cc0  6d 70 25 21 34 3d 30 0d  1c fc 20 c8 99 22 57 69  |mp%!4=0... .."Wi|
00004cd0  6d 70 5f 47 65 74 49 63  6f 6e 53 74 61 74 65 22  |mp_GetIconState"|
00004ce0  2c 2c 77 69 6d 70 25 0d  1d 06 12 21 77 69 6d 70  |,,wimp%....!wimp|
00004cf0  25 3d 77 69 6e 64 6f 77  25 0d 1d 10 0d 77 69 6d  |%=window%....wim|
00004d00  70 25 21 34 3d 35 0d 1d  1a 2b 77 69 6d 70 25 21  |p%!4=5...+wimp%!|
00004d10  38 3d 78 25 2b 77 69 6d  70 25 21 38 3a 77 69 6d  |8=x%+wimp%!8:wim|
00004d20  70 25 21 31 32 3d 79 25  2b 77 69 6d 70 25 21 31  |p%!12=y%+wimp%!1|
00004d30  32 0d 1d 24 2d 77 69 6d  70 25 21 31 36 3d 78 25  |2..$-wimp%!16=x%|
00004d40  2b 77 69 6d 70 25 21 31  36 3a 77 69 6d 70 25 21  |+wimp%!16:wimp%!|
00004d50  32 30 3d 79 25 2b 77 69  6d 70 25 21 32 30 0d 1d  |20=y%+wimp%!20..|
00004d60  2e 19 77 69 6d 70 25 21  32 34 3d 30 3a 77 69 6d  |..wimp%!24=0:wim|
00004d70  70 25 21 32 38 3d 30 0d  1d 38 29 77 69 6d 70 25  |p%!28=0..8)wimp%|
00004d80  21 33 32 3d 26 37 46 46  46 46 46 46 46 3a 77 69  |!32=&7FFFFFFF:wi|
00004d90  6d 70 25 21 33 36 3d 26  37 46 46 46 46 46 46 46  |mp%!36=&7FFFFFFF|
00004da0  0d 1d 42 1b c8 99 22 57  69 6d 70 5f 44 72 61 67  |..B..."Wimp_Drag|
00004db0  42 6f 78 22 2c 2c 77 69  6d 70 25 0d 1d 4c 05 e1  |Box",,wimp%..L..|
00004dc0  0d 1d 56 18 dd 20 f2 57  69 6d 70 5f 50 6f 6c 6c  |..V.. .Wimp_Poll|
00004dd0  4b 65 79 50 72 65 73 73  0d 1d 60 2f 77 69 6e 64  |KeyPress..`/wind|
00004de0  6f 77 25 3d 77 69 6d 70  25 21 30 3a 69 63 6f 6e  |ow%=wimp%!0:icon|
00004df0  25 3d 77 69 6d 70 25 21  34 3a 6b 65 79 25 3d 77  |%=wimp%!4:key%=w|
00004e00  69 6d 70 25 21 32 34 0d  1d 6a 65 e7 20 a4 45 76  |imp%!24..je. .Ev|
00004e10  65 6e 74 5f 53 61 76 65  28 77 69 6e 64 6f 77 25  |ent_Save(window%|
00004e20  29 20 80 20 6b 65 79 25  3d 31 33 20 f2 57 69 6d  |) . key%=13 .Wim|
00004e30  70 5f 50 6f 6c 6c 53 61  76 65 46 69 6c 65 28 77  |p_PollSaveFile(w|
00004e40  69 6e 64 6f 77 25 29 20  8b f2 45 76 65 6e 74 5f  |indow%) ..Event_|
00004e50  4b 65 79 50 72 65 73 73  28 77 69 6e 64 6f 77 25  |KeyPress(window%|
00004e60  2c 69 63 6f 6e 25 2c 6b  65 79 25 29 0d 1d 74 05  |,icon%,key%)..t.|
00004e70  e1 0d 1d 7e 1b dd 20 f2  57 69 6d 70 5f 50 6f 6c  |...~.. .Wimp_Pol|
00004e80  6c 53 61 76 65 4d 65 73  73 61 67 65 0d 1d 88 1e  |lSaveMessage....|
00004e90  ea 66 69 6c 65 24 2c 77  69 6e 64 6f 77 25 2c 69  |.file$,window%,i|
00004ea0  63 6f 6e 25 2c 78 25 2c  79 25 0d 1d 92 22 c8 99  |con%,x%,y%..."..|
00004eb0  22 57 69 6d 70 5f 47 65  74 50 6f 69 6e 74 65 72  |"Wimp_GetPointer|
00004ec0  49 6e 66 6f 22 2c 2c 77  69 6d 70 25 0d 1d 9c 39  |Info",,wimp%...9|
00004ed0  77 69 6e 64 6f 77 25 3d  77 69 6d 70 25 21 31 32  |window%=wimp%!12|
00004ee0  3a 69 63 6f 6e 25 3d 77  69 6d 70 25 21 31 36 3a  |:icon%=wimp%!16:|
00004ef0  78 25 3d 77 69 6d 70 25  21 30 3a 79 25 3d 77 69  |x%=wimp%!0:y%=wi|
00004f00  6d 70 25 21 34 0d 1d a6  3b 77 69 6d 70 25 21 30  |mp%!4...;wimp%!0|
00004f10  3d 73 61 76 65 25 20 3a  77 69 6d 70 25 21 34 3d  |=save% :wimp%!4=|
00004f20  31 20 3a c8 99 20 22 57  69 6d 70 5f 47 65 74 49  |1 :.. "Wimp_GetI|
00004f30  63 6f 6e 53 74 61 74 65  22 2c 2c 77 69 6d 70 25  |conState",,wimp%|
00004f40  0d 1d b0 15 66 69 6c 65  24 3d 24 28 77 69 6d 70  |....file$=$(wimp|
00004f50  25 21 32 38 29 0d 1d ba  2a 66 69 6c 65 24 3d a4  |%!28)...*file$=.|
00004f60  57 69 6d 70 5f 47 65 74  46 69 6c 65 46 72 6f 6d  |Wimp_GetFileFrom|
00004f70  50 61 74 68 6e 61 6d 65  28 66 69 6c 65 24 29 0d  |Pathname(file$).|
00004f80  1d c4 14 77 69 6d 70 25  21 32 30 3d 77 69 6e 64  |...wimp%!20=wind|
00004f90  6f 77 25 0d 1d ce 12 77  69 6d 70 25 21 32 34 3d  |ow%....wimp%!24=|
00004fa0  69 63 6f 6e 25 0d 1d d8  1b 77 69 6d 70 25 21 32  |icon%....wimp%!2|
00004fb0  38 3d 78 25 3a 77 69 6d  70 25 21 33 32 3d 79 25  |8=x%:wimp%!32=y%|
00004fc0  0d 1d e2 14 77 69 6d 70  25 21 33 36 3d 6c 65 6e  |....wimp%!36=len|
00004fd0  67 74 68 25 0d 1d ec 0e  77 69 6d 70 25 21 30 3d  |gth%....wimp%!0=|
00004fe0  36 34 0d 1d f6 0e 77 69  6d 70 25 21 31 32 3d 30  |64....wimp%!12=0|
00004ff0  0d 1e 00 0e 77 69 6d 70  25 21 31 36 3d 31 0d 1e  |....wimp%!16=1..|
00005000  0a 11 77 69 6d 70 25 21  34 30 3d 26 46 46 46 0d  |..wimp%!40=&FFF.|
00005010  1e 14 15 24 28 77 69 6d  70 25 2b 34 34 29 3d 66  |...$(wimp%+44)=f|
00005020  69 6c 65 24 0d 1e 1e 33  c8 99 22 57 69 6d 70 5f  |ile$...3.."Wimp_|
00005030  53 65 6e 64 4d 65 73 73  61 67 65 22 2c 31 37 2c  |SendMessage",17,|
00005040  77 69 6d 70 25 2c 77 69  6d 70 25 21 32 30 2c 77  |wimp%,wimp%!20,w|
00005050  69 6d 70 25 21 32 34 0d  1e 28 05 e1 0d 1e 32 18  |imp%!24..(....2.|
00005060  dd 20 f2 57 69 6d 70 5f  50 6f 6c 6c 4d 65 73 73  |. .Wimp_PollMess|
00005070  61 67 65 73 0d 1e 3c 0b  ea 20 66 69 6c 65 24 0d  |ages..<.. file$.|
00005080  1e 46 2c 66 69 6c 65 24  3d a4 57 69 6d 70 5f 47  |.F,file$=.Wimp_G|
00005090  65 74 53 74 72 69 6e 67  41 74 41 64 64 72 65 73  |etStringAtAddres|
000050a0  73 28 77 69 6d 70 25 2b  34 34 29 0d 1e 50 11 c8  |s(wimp%+44)..P..|
000050b0  8e 20 77 69 6d 70 25 21  31 36 20 ca 0d 1e 5a 14  |. wimp%!16 ...Z.|
000050c0  c9 20 30 20 3a 66 69 6e  69 73 68 65 64 25 3d b9  |. 0 :finished%=.|
000050d0  0d 1e 64 07 c9 20 31 0d  1e 6e 07 c9 20 32 0d 1e  |..d.. 1..n.. 2..|
000050e0  78 3b 77 69 6d 70 25 21  30 3d 73 61 76 65 25 20  |x;wimp%!0=save% |
000050f0  3a 77 69 6d 70 25 21 34  3d 31 20 3a c8 99 20 22  |:wimp%!4=1 :.. "|
00005100  57 69 6d 70 5f 47 65 74  49 63 6f 6e 53 74 61 74  |Wimp_GetIconStat|
00005110  65 22 2c 2c 77 69 6d 70  25 0d 1e 82 15 24 28 77  |e",,wimp%....$(w|
00005120  69 6d 70 25 21 32 38 29  3d 66 69 6c 65 24 0d 1e  |imp%!28)=file$..|
00005130  8c 33 77 69 6d 70 25 21  30 3d 73 61 76 65 25 20  |.3wimp%!0=save% |
00005140  3a 77 69 6d 70 25 21 34  3d 31 20 3a 77 69 6d 70  |:wimp%!4=1 :wimp|
00005150  25 21 38 3d 30 20 3a 77  69 6d 70 25 21 31 32 3d  |%!8=0 :wimp%!12=|
00005160  30 0d 1e 96 21 c8 99 20  22 57 69 6d 70 5f 53 65  |0...!.. "Wimp_Se|
00005170  74 49 63 6f 6e 53 74 61  74 65 22 2c 2c 77 69 6d  |tIconState",,wim|
00005180  70 25 0d 1e a0 32 c8 99  20 22 57 69 6d 70 5f 53  |p%...2.. "Wimp_S|
00005190  65 74 43 61 72 65 74 50  6f 73 69 74 69 6f 6e 22  |etCaretPosition"|
000051a0  2c 73 61 76 65 25 2c 31  2c 2c 2c 2d 31 2c a9 66  |,save%,1,,,-1,.f|
000051b0  69 6c 65 24 0d 1e aa 20  f2 45 76 65 6e 74 5f 53  |ile$... .Event_S|
000051c0  61 76 65 46 69 6c 65 28  66 69 6c 65 24 2c 73 61  |aveFile(file$,sa|
000051d0  76 65 25 29 0d 1e b4 07  c9 20 33 0d 1e be 34 74  |ve%)..... 3...4t|
000051e0  79 70 65 24 3d c3 7e 28  77 69 6d 70 25 21 34 30  |ype$=.~(wimp%!40|
000051f0  29 20 3a f2 45 76 65 6e  74 5f 4c 6f 61 64 46 69  |) :.Event_LoadFi|
00005200  6c 65 28 66 69 6c 65 24  2c 74 79 70 65 24 29 0d  |le(file$,type$).|
00005210  1e c8 07 c9 20 35 0d 1e  d2 16 74 79 70 65 24 3d  |.... 5....type$=|
00005220  c3 7e 28 77 69 6d 70 25  21 34 30 29 0d 1e dc 19  |.~(wimp%!40)....|
00005230  f2 52 75 6e 46 69 6c 65  28 66 69 6c 65 24 2c 74  |.RunFile(file$,t|
00005240  79 70 65 24 29 0d 1e e6  16 c9 20 31 30 3a f2 44  |ype$)..... 10:.D|
00005250  65 73 6b 42 6f 6f 74 53  61 76 65 0d 1e f0 0a c9  |eskBootSave.....|
00005260  20 26 35 30 32 0d 1e fa  13 ea 20 77 69 6e 64 6f  | &502..... windo|
00005270  77 25 2c 69 63 6f 6e 25  0d 1f 04 14 77 69 6e 64  |w%,icon%....wind|
00005280  6f 77 25 3d 77 69 6d 70  25 21 33 32 0d 1f 0e 12  |ow%=wimp%!32....|
00005290  69 63 6f 6e 25 3d 77 69  6d 70 25 21 33 36 0d 1f  |icon%=wimp%!36..|
000052a0  18 2d 21 77 69 6d 70 25  3d 32 35 36 3a 77 69 6d  |.-!wimp%=256:wim|
000052b0  70 25 21 31 32 3d 77 69  6d 70 25 21 38 3a 77 69  |p%!12=wimp%!8:wi|
000052c0  6d 70 25 21 31 36 3d 26  35 30 33 0d 1f 22 25 c8  |mp%!16=&503.."%.|
000052d0  99 22 57 69 6d 70 5f 47  65 74 57 69 6e 64 6f 77  |."Wimp_GetWindow|
000052e0  53 74 61 74 65 22 2c 2c  77 69 6d 70 25 2b 33 32  |State",,wimp%+32|
000052f0  0d 1f 2c 24 77 78 25 3d  77 69 6d 70 25 21 32 30  |..,$wx%=wimp%!20|
00005300  2d 28 77 69 6d 70 25 21  33 36 2d 77 69 6d 70 25  |-(wimp%!36-wimp%|
00005310  21 35 32 29 0d 1f 36 24  77 79 25 3d 77 69 6d 70  |!52)..6$wy%=wimp|
00005320  25 21 32 34 2d 28 77 69  6d 70 25 21 34 38 2d 77  |%!24-(wimp%!48-w|
00005330  69 6d 70 25 21 35 36 29  0d 1f 40 09 f2 48 65 6c  |imp%!56)..@..Hel|
00005340  70 0d 1f 4a 05 cb 0d 1f  54 05 e1 0d 1f 5e 23 dd  |p..J....T....^#.|
00005350  20 a4 57 69 6d 70 5f 47  65 74 46 69 6c 65 46 72  | .Wimp_GetFileFr|
00005360  6f 6d 50 61 74 68 6e 61  6d 65 28 66 24 29 0d 1f  |omPathname(f$)..|
00005370  68 11 c8 8e 20 a7 66 24  2c 22 2e 22 29 20 ca 0d  |h... .f$,".") ..|
00005380  1f 72 0f c9 20 30 20 20  20 20 3a 3d 66 24 0d 1f  |.r.. 0    :=f$..|
00005390  7c 36 7f 20 3a 3d a4 57  69 6d 70 5f 47 65 74 46  ||6. :=.Wimp_GetF|
000053a0  69 6c 65 46 72 6f 6d 50  61 74 68 6e 61 6d 65 28  |ileFromPathname(|
000053b0  c2 66 24 2c a9 28 66 24  29 2d a7 66 24 2c 22 2e  |.f$,.(f$)-.f$,".|
000053c0  22 29 29 29 0d 1f 86 05  cb 0d 1f 90 18 dd f2 53  |")))...........S|
000053d0  65 6e 64 48 65 6c 70 28  6d 65 73 73 61 67 65 24  |endHelp(message$|
000053e0  29 0d 1f 9a 18 24 28 77  69 6d 70 25 2b 32 30 29  |)....$(wimp%+20)|
000053f0  3d 6d 65 73 73 61 67 65  24 0d 1f a4 29 c8 99 22  |=message$...).."|
00005400  57 69 6d 70 5f 53 65 6e  64 4d 65 73 73 61 67 65  |Wimp_SendMessage|
00005410  22 2c 31 37 2c 77 69 6d  70 25 2c 77 69 6d 70 25  |",17,wimp%,wimp%|
00005420  21 34 0d 1f ae 05 e1 0d  1f b8 1c dd f2 42 6f 6f  |!4...........Boo|
00005430  74 46 69 6c 65 49 6e 63  6c 75 64 65 28 74 65 78  |tFileInclude(tex|
00005440  74 24 29 0d 1f c2 16 d5  23 28 77 69 6d 70 25 21  |t$).....#(wimp%!|
00005450  32 30 29 2c 74 65 78 74  24 0d 1f cc 05 e1 0d 1f  |20),text$.......|
00005460  d6 11 dd f2 44 61 74 61  4c 6f 61 64 41 63 6b 0d  |....DataLoadAck.|
00005470  1f e0 14 77 69 6d 70 25  21 31 32 3d 77 69 6d 70  |...wimp%!12=wimp|
00005480  25 21 38 0d 1f ea 19 77  69 6d 70 25 21 31 36 3d  |%!8....wimp%!16=|
00005490  34 3a 21 77 69 6d 70 25  3d 32 35 36 0d 1f f4 33  |4:!wimp%=256...3|
000054a0  c8 99 22 57 69 6d 70 5f  53 65 6e 64 4d 65 73 73  |.."Wimp_SendMess|
000054b0  61 67 65 22 2c 31 38 2c  77 69 6d 70 25 2c 77 69  |age",18,wimp%,wi|
000054c0  6d 70 25 21 32 30 2c 77  69 6d 70 25 21 32 34 0d  |mp%!20,wimp%!24.|
000054d0  1f fe 05 e1 0d 20 08 1d  dd f2 42 75 74 74 6f 6e  |..... ....Button|
000054e0  4f 6e 28 77 69 6e 64 6f  77 25 2c 69 63 6f 6e 25  |On(window%,icon%|
000054f0  29 0d 20 12 20 21 77 69  6d 70 25 3d 77 69 6e 64  |). . !wimp%=wind|
00005500  6f 77 25 3a 77 69 6d 70  25 21 34 3d 69 63 6f 6e  |ow%:wimp%!4=icon|
00005510  25 0d 20 1c 20 77 69 6d  70 25 21 38 3d 31 3c 3c  |%. . wimp%!8=1<<|
00005520  32 31 3a 77 69 6d 70 25  21 31 32 3d 31 3c 3c 32  |21:wimp%!12=1<<2|
00005530  31 0d 20 26 20 c8 99 22  57 69 6d 70 5f 53 65 74  |1. & .."Wimp_Set|
00005540  49 63 6f 6e 53 74 61 74  65 22 2c 2c 77 69 6d 70  |IconState",,wimp|
00005550  25 0d 20 30 05 e1 0d 20  3a 1e dd f2 42 75 74 74  |%. 0... :...Butt|
00005560  6f 6e 4f 66 66 28 77 69  6e 64 6f 77 25 2c 69 63  |onOff(window%,ic|
00005570  6f 6e 25 29 0d 20 44 20  21 77 69 6d 70 25 3d 77  |on%). D !wimp%=w|
00005580  69 6e 64 6f 77 25 3a 77  69 6d 70 25 21 34 3d 69  |indow%:wimp%!4=i|
00005590  63 6f 6e 25 0d 20 4e 20  77 69 6d 70 25 21 38 3d  |con%. N wimp%!8=|
000055a0  30 3c 3c 32 31 3a 77 69  6d 70 25 21 31 32 3d 31  |0<<21:wimp%!12=1|
000055b0  3c 3c 32 31 0d 20 58 20  c8 99 22 57 69 6d 70 5f  |<<21. X .."Wimp_|
000055c0  53 65 74 49 63 6f 6e 53  74 61 74 65 22 2c 2c 77  |SetIconState",,w|
000055d0  69 6d 70 25 0d 20 62 05  e1 0d 20 6c 20 dd a4 42  |imp%. b... l ..B|
000055e0  75 74 74 6f 6e 53 74 61  74 65 28 77 69 6e 64 6f  |uttonState(windo|
000055f0  77 25 2c 69 63 6f 6e 25  29 0d 20 76 0c ea 20 73  |w%,icon%). v.. s|
00005600  74 61 74 65 25 0d 20 80  20 21 77 69 6d 70 25 3d  |tate%. . !wimp%=|
00005610  77 69 6e 64 6f 77 25 3a  77 69 6d 70 25 21 34 3d  |window%:wimp%!4=|
00005620  69 63 6f 6e 25 0d 20 8a  20 c8 99 22 57 69 6d 70  |icon%. . .."Wimp|
00005630  5f 47 65 74 49 63 6f 6e  53 74 61 74 65 22 2c 2c  |_GetIconState",,|
00005640  77 69 6d 70 25 0d 20 94  34 e7 20 77 69 6d 70 25  |wimp%. .4. wimp%|
00005650  3f 32 36 3e 3d 30 20 80  20 77 69 6d 70 25 3f 32  |?26>=0 . wimp%?2|
00005660  36 3c 3d 33 31 20 8c 73  74 61 74 65 25 3d a3 20  |6<=31 .state%=. |
00005670  8b 73 74 61 74 65 25 3d  b9 0d 20 9e 0b 3d 73 74  |.state%=.. ..=st|
00005680  61 74 65 25 0d 20 a8 1d  dd f2 50 75 74 43 61 72  |ate%. ....PutCar|
00005690  65 74 28 77 69 6e 64 6f  77 25 2c 69 63 6f 6e 25  |et(window%,icon%|
000056a0  29 0d 20 b2 43 f2 57 69  6d 70 5f 49 63 6f 6e 43  |). .C.Wimp_IconC|
000056b0  61 72 65 74 28 77 69 6e  64 6f 77 25 2c 69 63 6f  |aret(window%,ico|
000056c0  6e 25 2c a9 28 a4 57 69  6d 70 5f 49 63 6f 6e 54  |n%,.(.Wimp_IconT|
000056d0  65 78 74 28 77 69 6e 64  6f 77 25 2c 69 63 6f 6e  |ext(window%,icon|
000056e0  25 29 29 29 0d 20 bc 05  e1 0d 20 c6 2c dd f2 43  |%))). .... .,..C|
000056f0  6f 70 79 4d 65 6d 6f 72  79 28 73 6f 75 72 63 65  |opyMemory(source|
00005700  25 2c 64 65 73 74 69 6e  61 74 69 6f 6e 25 2c 73  |%,destination%,s|
00005710  69 7a 65 25 29 0d 20 d0  0b ea 20 6c 6f 6f 70 25  |ize%). ... loop%|
00005720  0d 20 da 19 e3 20 6c 6f  6f 70 25 3d 30 20 b8 20  |. ... loop%=0 . |
00005730  28 73 69 7a 65 25 2d 31  29 0d 20 e4 24 64 65 73  |(size%-1). .$des|
00005740  74 69 6e 61 74 69 6f 6e  25 21 6c 6f 6f 70 25 3d  |tination%!loop%=|
00005750  73 6f 75 72 63 65 25 21  6c 6f 6f 70 25 0d 20 ee  |source%!loop%. .|
00005760  0b ed 20 6c 6f 6f 70 25  0d 20 f8 05 e1 0d ff 00  |.. loop%. ......|
00005770  00 00 00 00 2c 0f 00 00  0c 10 1f e5 0c 10 81 e0  |....,...........|
00005780  14 10 0f e5 18 d0 4f e2  00 40 2d e9 20 00 1f e5  |......O..@-. ...|
00005790  43 10 8f e2 09 20 a0 e3  d4 00 00 ef 24 00 9f e5  |C.... ......$...|
000057a0  34 10 1f e5 01 00 80 e0  34 10 8f e2 09 20 a0 e3  |4.......4.... ..|
000057b0  d4 00 00 ef 2c 00 a0 e3  23 00 cf e5 08 00 8f e2  |....,...#.......|
000057c0  05 00 00 ef 00 80 bd e8  43 57 00 00 2a 42 61 73  |........CW..*Bas|
000057d0  69 63 20 2d 71 75 69 74  20 20 40 00 00 00 00 00  |ic -quit  @.....|
000057e0  00 00 00 00 00 00 00 00  00 00 00 00 00 00 00 00  |................|
000057f0