00000000  44 10 9f e5 3c 20 9f e5  34 30 9f e5 04 00 12 e4  |D...< ..40......|
00000010  04 00 03 e4 04 10 51 e2  fb ff ff 5a 00 00 8f e2  |......Q....Z....|
00000020  05 00 00 ef 42 41 53 49  43 20 2d 51 75 69 74 20  |....BASIC -Quit |
00000030  40 30 30 30 30 39 30 30  30 2c 30 30 30 30 43 46  |@00009000,0000CF|
00000040  43 34 00 00 c4 cf 00 00  14 c0 00 00 c4 3f 00 00  |C4...........?..|
00000050  0d 00 0a 79 f2 57 69 6d  70 5f 53 74 61 72 74 28  |...y.Wimp_Start(|
00000060  22 55 6e 6c 6f 63 6b 22  2c 35 35 37 2c 33 31 34  |"Unlock",557,314|
00000070  29 3a f2 55 73 65 72 5f  53 65 74 49 6e 69 74 69  |):.User_SetIniti|
00000080  61 6c 44 61 74 61 3a f2  43 72 65 61 74 65 5f 57  |alData:.Create_W|
00000090  69 6e 64 6f 77 73 3a f2  43 72 65 61 74 65 5f 4d  |indows:.Create_M|
000000a0  65 6e 75 73 3a f2 57 69  6d 70 5f 57 61 69 74 46  |enus:.Wimp_WaitF|
000000b0  6f 72 45 76 65 6e 74 3a  f2 57 69 6d 70 5f 43 6c  |orEvent:.Wimp_Cl|
000000c0  6f 73 65 44 6f 77 6e 3a  e0 0d 00 50 f9 dd f2 55  |oseDown:...P...U|
000000d0  73 65 72 5f 53 65 74 49  6e 69 74 69 61 6c 44 61  |ser_SetInitialDa|
000000e0  74 61 3a de 63 6f 64 65  25 20 31 30 30 30 3a 70  |ta:.code% 1000:p|
000000f0  63 3d 31 35 3a 6c 69 6e  6b 3d 31 34 3a 73 70 3d  |c=15:link=14:sp=|
00000100  31 33 3a e3 61 73 73 65  6d 62 6c 65 70 61 73 73  |13:.assemblepass|
00000110  25 3d 30 20 b8 32 88 32  3a 50 25 3d 63 6f 64 65  |%=0 .2.2:P%=code|
00000120  25 3a 5b 4f 50 54 20 61  73 73 65 6d 62 6c 65 70  |%:[OPT assemblep|
00000130  61 73 73 25 3a 2e 50 72  6f 67 3a 53 54 4d 46 44  |ass%:.Prog:STMFD|
00000140  20 28 73 70 29 21 2c 7b  6c 69 6e 6b 7d 3a 2e 4c  | (sp)!,{link}:.L|
00000150  6f 6f 70 3a 4c 44 52 20  52 36 2c 5b 52 30 5d 3a  |oop:LDR R6,[R0]:|
00000160  4c 44 52 20 52 37 2c 5b  52 32 5d 3a 4c 44 52 20  |LDR R7,[R2]:LDR |
00000170  52 38 2c 5b 52 34 5d 3a  80 20 52 39 2c 52 37 2c  |R8,[R4]:. R9,R7,|
00000180  23 32 35 35 3a 43 4d 50  20 52 39 2c 23 31 33 3a  |#255:CMP R9,#13:|
00000190  42 45 51 20 52 65 73 65  74 31 3a 2e 52 65 73 65  |BEQ Reset1:.Rese|
000001a0  74 31 52 65 74 75 72 6e  3a 80 20 52 31 30 2c 52  |t1Return:. R10,R|
000001b0  38 2c 23 32 35 35 3a 43  4d 50 20 52 31 30 2c 23  |8,#255:CMP R10,#|
000001c0  31 33 0d 01 5e ff 42 45  51 20 52 65 73 65 74 32  |13..^.BEQ Reset2|
000001d0  3a 2e 52 65 73 65 74 32  52 65 74 75 72 6e 3a 82  |:.Reset2Return:.|
000001e0  20 52 36 2c 52 36 2c 52  38 3a 82 20 52 36 2c 52  | R6,R6,R8:. R6,R|
000001f0  36 2c 52 37 3a 53 54 52  20 52 36 2c 5b 52 30 5d  |6,R7:STR R6,[R0]|
00000200  3a 41 44 44 20 52 30 2c  52 30 2c 23 34 3a 41 44  |:ADD R0,R0,#4:AD|
00000210  44 20 52 32 2c 52 32 2c  23 34 3a 41 44 44 20 52  |D R2,R2,#4:ADD R|
00000220  34 2c 52 34 2c 23 34 3a  43 4d 50 20 52 30 2c 52  |4,R4,#4:CMP R0,R|
00000230  31 3a 42 47 54 20 45 6e  64 3a 42 20 4c 6f 6f 70  |1:BGT End:B Loop|
00000240  3a 2e 45 6e 64 3a 4c 44  4d 46 44 20 28 73 70 29  |:.End:LDMFD (sp)|
00000250  21 2c 7b 70 63 7d 3a 2e  52 65 73 65 74 31 3a 4d  |!,{pc}:.Reset1:M|
00000260  4f 56 20 52 32 2c 52 33  3a 4c 44 52 20 52 37 2c  |OV R2,R3:LDR R7,|
00000270  5b 52 32 5d 3a 42 20 52  65 73 65 74 31 52 65 74  |[R2]:B Reset1Ret|
00000280  75 72 6e 3a 2e 52 65 73  65 74 32 3a 4d 4f 56 20  |urn:.Reset2:MOV |
00000290  52 34 2c 52 35 3a 4c 44  52 20 52 38 2c 5b 52 34  |R4,R5:LDR R8,[R4|
000002a0  5d 3a 42 20 52 65 73 65  74 32 52 65 74 75 72 6e  |]:B Reset2Return|
000002b0  3a 5d 3a ed 61 73 73 65  6d 62 6c 65 70 61 73 73  |:]:.assemblepass|
000002c0  25 0d 02 d0 25 c8 99 26  36 2c 31 32 39 2c 30 2c  |%...%..&6,129,0,|
000002d0  26 46 46 20 b8 2c 42 69  74 25 3a e7 42 69 74 25  |&FF .,Bit%:.Bit%|
000002e0  3c 26 41 33 20 8c 0d 02  e4 20 2a 53 45 54 20 41  |<&A3 .... *SET A|
000002f0  6c 69 61 73 24 46 69 6c  65 72 5f 52 75 6e 20 52  |lias$Filer_Run R|
00000300  75 6e 20 25 25 30 0d 02  ee f3 cd 3a 61 72 65 61  |un %%0.....:area|
00000310  73 69 7a 65 25 3d 31 30  32 34 2a 33 32 3a de 61  |size%=1024*32:.a|
00000320  72 65 61 25 20 61 72 65  61 73 69 7a 65 25 2b 38  |rea% areasize%+8|
00000330  3a 61 72 65 61 25 2b 3d  34 3a 70 61 74 68 24 3d  |:area%+=4:path$=|
00000340  a4 57 69 6d 70 5f 52 65  61 64 56 61 72 69 61 62  |.Wimp_ReadVariab|
00000350  6c 65 28 22 55 6e 4c 6f  63 6b 24 46 69 6c 65 22  |le("UnLock$File"|
00000360  29 3a 63 75 72 24 3d a4  57 69 6d 70 5f 52 65 61  |):cur$=.Wimp_Rea|
00000370  64 56 61 72 69 61 62 6c  65 28 22 55 6e 4c 6f 63  |dVariable("UnLoc|
00000380  6b 24 53 6c 6f 74 43 75  72 72 65 6e 74 22 29 3a  |k$SlotCurrent"):|
00000390  6e 65 78 24 3d a4 57 69  6d 70 5f 52 65 61 64 56  |nex$=.Wimp_ReadV|
000003a0  61 72 69 61 62 6c 65 28  22 55 6e 4c 6f 63 6b 24  |ariable("UnLock$|
000003b0  53 6c 6f 74 4e 65 78 74  22 29 3a 63 75 72 25 3d  |SlotNext"):cur%=|
000003c0  a0 28 63 75 72 24 29 3a  6e 65 78 25 3d a0 28 6e  |.(cur$):nex%=.(n|
000003d0  65 78 24 29 3a 66 69 6c  65 74 79 70 65 25 3d 30  |ex$):filetype%=0|
000003e0  3a 70 61 73 73 77 6f 72  64 24 3d 22 22 3a de 70  |:password$="":.p|
000003f0  61 73 73 25 20 32 36 2a  35 0d 03 5c 12 de 70 61  |ass% 26*5..\..pa|
00000400  73 73 32 25 20 32 38 2a  35 3a e1 0d 03 70 fb dd  |ss2% 28*5:...p..|
00000410  f2 43 72 65 61 74 65 5f  57 69 6e 64 6f 77 73 3a  |.Create_Windows:|
00000420  ea 6d 6f 64 65 78 73 68  69 66 74 25 2c 6d 6f 64  |.modexshift%,mod|
00000430  65 79 73 68 69 66 74 25  2c 72 69 67 68 74 73 63  |eyshift%,rightsc|
00000440  72 25 2c 74 6f 70 73 63  72 25 2c 78 31 25 2c 79  |r%,topscr%,x1%,y|
00000450  31 25 2c 78 6f 25 2c 79  6f 25 2c 61 24 2c 77 25  |1%,xo%,yo%,a$,w%|
00000460  2c 6e 25 3a 4d 61 69 6e  5f 57 69 6e 64 6f 77 25  |,n%:Main_Window%|
00000470  3d a4 57 69 6d 70 5f 57  69 6e 64 6f 77 4c 6f 61  |=.Wimp_WindowLoa|
00000480  64 28 22 4d 61 69 6e 22  29 3a 49 6e 66 6f 5f 57  |d("Main"):Info_W|
00000490  69 6e 64 6f 77 25 3d a4  57 69 6d 70 5f 57 69 6e  |indow%=.Wimp_Win|
000004a0  64 6f 77 4c 6f 61 64 28  22 49 6e 66 6f 22 29 3a  |dowLoad("Info"):|
000004b0  61 24 3d 22 54 61 73 6b  22 3a c8 99 26 33 35 2c  |a$="Task":..&35,|
000004c0  2d 31 2c 34 20 b8 2c 2c  6d 6f 64 65 78 73 68 69  |-1,4 .,,modexshi|
000004d0  66 74 25 3a c8 99 26 33  35 2c 2d 31 2c 35 20 b8  |ft%:..&35,-1,5 .|
000004e0  2c 2c 6d 6f 64 65 79 73  68 69 66 74 25 3a c8 99  |,,modeyshift%:..|
000004f0  26 33 35 2c 2d 31 2c 31  31 20 b8 2c 2c 72 69 67  |&35,-1,11 .,,rig|
00000500  68 74 73 63 72 25 0d 03  b6 fc c8 99 26 33 35 2c  |htscr%......&35,|
00000510  2d 31 2c 31 32 20 b8 2c  2c 74 6f 70 73 63 72 25  |-1,12 .,,topscr%|
00000520  3a 72 69 67 68 74 73 63  72 25 3d 72 69 67 68 74  |:rightscr%=right|
00000530  73 63 72 25 3c 3c 6d 6f  64 65 78 73 68 69 66 74  |scr%<<modexshift|
00000540  25 3a 74 6f 70 73 63 72  25 3d 74 6f 70 73 63 72  |%:topscr%=topscr|
00000550  25 3c 3c 6d 6f 64 65 79  73 68 69 66 74 25 3a 78  |%<<modeyshift%:x|
00000560  31 25 3d 35 37 34 3a 61  24 2b 3d 22 57 69 6d 70  |1%=574:a$+="Wimp|
00000570  22 3a 79 31 25 3d 32 31  32 3a 78 6f 25 3d 72 69  |":y1%=212:xo%=ri|
00000580  67 68 74 73 63 72 25 2f  32 2d 78 31 25 2f 32 3a  |ghtscr%/2-x1%/2:|
00000590  79 6f 25 3d 74 6f 70 73  63 72 25 2f 32 2d 79 31  |yo%=topscr%/2-y1|
000005a0  25 2f 32 3a 77 69 6d 70  25 21 30 3d 4d 61 69 6e  |%/2:wimp%!0=Main|
000005b0  5f 57 69 6e 64 6f 77 25  3a 61 24 2b 3d 22 49 6e  |_Window%:a$+="In|
000005c0  69 74 69 6c 69 73 65 22  3a 77 69 6d 70 25 21 34  |itilise":wimp%!4|
000005d0  3d 78 6f 25 3a 77 69 6d  70 25 21 38 3d 79 6f 25  |=xo%:wimp%!8=yo%|
000005e0  3a 77 69 6d 70 25 21 31  32 3d 78 31 25 2b 78 6f  |:wimp%!12=x1%+xo|
000005f0  25 3a 77 69 6d 70 25 21  31 36 3d 79 31 25 2b 79  |%:wimp%!16=y1%+y|
00000600  6f 25 0d 04 2e fb c8 99  26 34 30 30 43 35 2c 2c  |o%......&400C5,,|
00000610  77 69 6d 70 25 3a f2 57  69 6d 70 5f 57 69 6e 64  |wimp%:.Wimp_Wind|
00000620  6f 77 42 72 69 6e 67 54  6f 54 6f 70 28 4d 61 69  |owBringToTop(Mai|
00000630  6e 5f 57 69 6e 64 6f 77  25 29 3a 61 24 2b 3d 22  |n_Window%):a$+="|
00000640  41 70 70 6c 69 63 61 74  69 6f 6e 22 3a f2 57 69  |Application":.Wi|
00000650  6d 70 5f 49 63 6f 6e 50  75 74 54 65 78 74 28 4d  |mp_IconPutText(M|
00000660  61 69 6e 5f 57 69 6e 64  6f 77 25 2c 32 2c 22 2e  |ain_Window%,2,".|
00000670  2e 2e 22 2b c2 70 61 74  68 24 2c 32 34 29 29 3a  |.."+.path$,24)):|
00000680  f2 57 69 6d 70 5f 49 63  6f 6e 50 75 74 54 65 78  |.Wimp_IconPutTex|
00000690  74 28 4d 61 69 6e 5f 57  69 6e 64 6f 77 25 2c 35  |t(Main_Window%,5|
000006a0  2c 22 22 29 3a f2 57 69  6d 70 5f 49 63 6f 6e 43  |,""):.Wimp_IconC|
000006b0  61 72 65 74 28 4d 61 69  6e 5f 57 69 6e 64 6f 77  |aret(Main_Window|
000006c0  25 2c 35 2c 30 29 3a 77  70 61 73 73 32 25 3d 30  |%,5,0):wpass2%=0|
000006d0  3a 77 70 61 73 73 32 25  3d 34 2d 28 70 61 73 73  |:wpass2%=4-(pass|
000006e0  32 25 20 83 34 29 3a 24  28 70 61 73 73 32 25 2b  |2% .4):$(pass2%+|
000006f0  77 70 61 73 73 32 25 29  3d 61 24 3a e1 0d 04 9c  |wpass2%)=a$:....|
00000700  1b dd a4 45 76 65 6e 74  5f 53 61 76 65 28 77 69  |...Event_Save(wi|
00000710  6e 64 6f 77 25 29 3d a3  0d 04 a6 25 dd a4 45 76  |ndow%)=....%..Ev|
00000720  65 6e 74 5f 53 70 72 69  74 65 73 28 77 69 6e 64  |ent_Sprites(wind|
00000730  6f 77 25 29 3d 73 70 72  69 74 65 73 25 0d 04 b0  |ow%)=sprites%...|
00000740  5d dd f2 43 72 65 61 74  65 5f 4d 65 6e 75 73 3a  |]..Create_Menus:|
00000750  6d 65 6e 75 24 3d 22 55  6e 6c 6f 63 6b 5c 49 6e  |menu$="Unlock\In|
00000760  66 6f 3e 49 6e 66 6f 5f  57 69 6e 64 6f 77 25 5c  |fo>Info_Window%\|
00000770  51 75 69 74 22 3a 4d 61  69 6e 5f 4d 65 6e 75 25  |Quit":Main_Menu%|
00000780  3d a4 57 69 6d 70 5f 4d  65 6e 75 43 72 65 61 74  |=.Wimp_MenuCreat|
00000790  65 28 6d 65 6e 75 24 29  3a e1 0d 04 d8 25 dd a4  |e(menu$):....%..|
000007a0  45 76 65 6e 74 5f 4d 65  6e 75 28 77 69 6e 64 6f  |Event_Menu(windo|
000007b0  77 25 29 3a c8 8e 77 69  6e 64 6f 77 25 20 ca 0d  |w%):..window% ..|
000007c0  04 ec 13 c9 42 61 72 5f  57 69 6e 64 6f 77 25 3a  |....Bar_Window%:|
000007d0  3d a3 0d 04 f6 1d c9 4d  61 69 6e 5f 57 69 6e 64  |=......Main_Wind|
000007e0  6f 77 25 3a 3d 4d 61 69  6e 5f 4d 65 6e 75 25 0d  |ow%:=Main_Menu%.|
000007f0  05 00 08 7f 3a 3d a3 0d  05 0a 05 cb 0d 05 14 35  |....:=.........5|
00000800  dd f2 45 76 65 6e 74 5f  57 69 6e 64 6f 77 43 6c  |..Event_WindowCl|
00000810  6f 73 65 28 77 69 6e 64  6f 77 25 2c 62 75 74 74  |ose(window%,butt|
00000820  6f 6e 73 25 29 3a c8 8e  77 69 6e 64 6f 77 25 20  |ons%):..window% |
00000830  ca 0d 05 28 1d c9 4d 61  69 6e 5f 57 69 6e 64 6f  |...(..Main_Windo|
00000840  77 25 3a 66 69 6e 69 73  68 65 64 25 3d b9 0d 05  |w%:finished%=...|
00000850  32 07 cb 3a e1 0d 05 46  39 dd f2 45 76 65 6e 74  |2..:...F9..Event|
00000860  5f 44 72 61 77 28 77 69  6e 64 6f 77 25 2c 78 5f  |_Draw(window%,x_|
00000870  6f 72 69 67 69 6e 25 2c  79 5f 6f 72 69 67 69 6e  |origin%,y_origin|
00000880  25 29 3a c8 8e 77 69 6e  64 6f 77 25 20 ca 0d 05  |%):..window% ...|
00000890  5a 26 c9 4d 61 69 6e 5f  57 69 6e 64 6f 77 25 3a  |Z&.Main_Window%:|
000008a0  f2 55 73 65 72 5f 44 72  61 77 4d 61 69 6e 57 69  |.User_DrawMainWi|
000008b0  6e 64 6f 77 0d 05 64 26  c9 49 6e 66 6f 5f 57 69  |ndow..d&.Info_Wi|
000008c0  6e 64 6f 77 25 3a f2 55  73 65 72 5f 44 72 61 77  |ndow%:.User_Draw|
000008d0  49 6e 66 6f 57 69 6e 64  6f 77 0d 05 6e 07 cb 3a  |InfoWindow..n..:|
000008e0  e1 0d 05 82 1b dd f2 55  73 65 72 5f 44 72 61 77  |.......User_Draw|
000008f0  4d 61 69 6e 57 69 6e 64  6f 77 3a e1 0d 05 96 1b  |MainWindow:.....|
00000900  dd f2 55 73 65 72 5f 44  72 61 77 49 6e 66 6f 57  |..User_DrawInfoW|
00000910  69 6e 64 6f 77 3a e1 0d  05 aa 33 dd f2 45 76 65  |indow:....3..Eve|
00000920  6e 74 5f 4d 6f 75 73 65  43 6c 69 63 6b 28 77 69  |nt_MouseClick(wi|
00000930  6e 64 6f 77 25 2c 69 63  6f 6e 25 2c 62 75 74 74  |ndow%,icon%,butt|
00000940  6f 6e 25 2c 78 25 2c 79  25 29 0d 05 be 27 dd f2  |on%,x%,y%)...'..|
00000950  45 76 65 6e 74 5f 4d 65  6e 75 43 68 6f 69 63 65  |Event_MenuChoice|
00000960  28 6d 65 6e 75 25 29 3a  c8 8e 6d 65 6e 75 25 20  |(menu%):..menu% |
00000970  ca 0d 05 d2 24 c9 4d 61  69 6e 5f 4d 65 6e 75 25  |....$.Main_Menu%|
00000980  3a f2 55 73 65 72 5f 4d  65 6e 75 43 68 6f 69 63  |:.User_MenuChoic|
00000990  65 4d 61 69 6e 0d 05 dc  07 cb 3a e1 0d 05 f0 31  |eMain.....:....1|
000009a0  dd f2 55 73 65 72 5f 4d  65 6e 75 43 68 6f 69 63  |..User_MenuChoic|
000009b0  65 4d 61 69 6e 3a c8 8e  a4 57 69 6d 70 5f 4d 65  |eMain:...Wimp_Me|
000009c0  6e 75 43 68 6f 69 63 65  28 30 29 20 ca 0d 06 04  |nuChoice(0) ....|
000009d0  06 c9 31 0d 06 0e 12 c9  32 3a 66 69 6e 69 73 68  |..1.....2:finish|
000009e0  65 64 25 3d b9 0d 06 18  07 cb 3a e1 0d 06 2c 34  |ed%=......:...,4|
000009f0  dd f2 45 76 65 6e 74 5f  4b 65 79 50 72 65 73 73  |..Event_KeyPress|
00000a00  28 77 69 6e 64 6f 77 25  2c 69 63 6f 6e 25 2c 6b  |(window%,icon%,k|
00000a10  65 79 25 29 3a c8 8e 77  69 6e 64 6f 77 25 20 ca  |ey%):..window% .|
00000a20  0d 06 40 30 c9 4d 61 69  6e 5f 57 69 6e 64 6f 77  |..@0.Main_Window|
00000a30  25 3a f2 55 73 65 72 5f  4b 65 79 50 72 65 73 73  |%:.User_KeyPress|
00000a40  4d 61 69 6e 28 69 63 6f  6e 25 2c 6b 65 79 25 29  |Main(icon%,key%)|
00000a50  0d 06 4a 07 cb 3a e1 0d  06 5e 3e dd f2 55 73 65  |..J..:...^>..Use|
00000a60  72 5f 4b 65 79 50 72 65  73 73 4d 61 69 6e 28 69  |r_KeyPressMain(i|
00000a70  63 6f 6e 25 2c 6b 65 79  25 29 3a ea 74 65 6d 70  |con%,key%):.temp|
00000a80  24 3a e7 6b 65 79 25 3d  31 33 20 80 69 63 6f 6e  |$:.key%=13 .icon|
00000a90  25 3d 35 20 8c 0d 06 7c  35 74 65 6d 70 24 3d a4  |%=5 ...|5temp$=.|
00000aa0  57 69 6d 70 5f 49 63 6f  6e 54 65 78 74 28 4d 61  |Wimp_IconText(Ma|
00000ab0  69 6e 5f 57 69 6e 64 6f  77 25 2c 35 29 3a e7 74  |in_Window%,5):.t|
00000ac0  65 6d 70 24 3c 3e 22 22  20 8c 0d 06 90 2c f2 57  |emp$<>"" ....,.W|
00000ad0  69 6d 70 5f 57 69 6e 64  6f 77 43 6c 6f 73 65 28  |imp_WindowClose(|
00000ae0  4d 61 69 6e 5f 57 69 6e  64 6f 77 25 29 3a f2 45  |Main_Window%):.E|
00000af0  6e 63 72 79 70 74 0d 06  a4 56 cc 3a f2 57 69 6d  |ncrypt...V.:.Wim|
00000b00  70 5f 57 69 6e 64 6f 77  45 72 72 6f 72 42 6f 78  |p_WindowErrorBox|
00000b10  28 22 50 72 6f 74 65 63  74 6f 72 22 2c 22 50 61  |("Protector","Pa|
00000b20  73 73 77 6f 72 64 73 20  6d 75 73 74 20 62 65 20  |sswords must be |
00000b30  61 74 20 6c 65 61 73 74  20 31 20 43 68 61 72 61  |at least 1 Chara|
00000b40  63 74 65 72 20 6c 6f 6e  67 21 22 29 0d 06 b8 05  |cter long!")....|
00000b50  cd 0d 06 c2 07 cd 3a e1  0d 06 d6 27 dd f2 45 76  |......:....'..Ev|
00000b60  65 6e 74 5f 4d 65 6e 75  43 68 6f 69 63 65 28 6d  |ent_MenuChoice(m|
00000b70  65 6e 75 25 29 3a c8 8e  6d 65 6e 75 25 20 ca 0d  |enu%):..menu% ..|
00000b80  06 ea 07 cb 3a e1 0d 06  fe 23 dd f2 45 76 65 6e  |....:....#..Even|
00000b90  74 5f 4c 6f 61 64 46 69  6c 65 28 66 69 6c 65 24  |t_LoadFile(file$|
00000ba0  2c 74 79 70 65 24 29 3a  e1 0d 07 12 25 dd f2 45  |,type$):....%..E|
00000bb0  76 65 6e 74 5f 53 61 76  65 46 69 6c 65 28 66 69  |vent_SaveFile(fi|
00000bc0  6c 65 24 2c 77 69 6e 64  6f 77 25 29 3a e1 0d 07  |le$,window%):...|
00000bd0  26 8c dd f2 45 6e 63 72  79 70 74 3a ea 77 25 2c  |&...Encrypt:.w%,|
00000be0  6e 25 3a c8 99 26 34 30  36 43 30 3a 61 64 64 25  |n%:..&406C0:add%|
00000bf0  3d 30 3a 69 6e 66 69 6c  65 25 3d 8e 28 70 61 74  |=0:infile%=.(pat|
00000c00  68 24 29 3a ea 85 3a ee  85 ea f2 57 69 6d 70 5f  |h$):..:....Wimp_|
00000c10  57 69 6e 64 6f 77 45 72  72 6f 72 42 6f 78 28 22  |WindowErrorBox("|
00000c20  50 72 6f 74 65 63 74 6f  72 22 2c 22 54 65 6d 70  |Protector","Temp|
00000c30  6f 72 79 20 66 69 6c 65  20 63 6f 75 6c 64 20 6e  |ory file could n|
00000c40  6f 74 20 62 65 20 63 72  65 61 74 65 64 22 29 3a  |ot be created"):|
00000c50  ff 22 43 4c 4f 53 45 22  3a e1 0d 07 6c fe 6f 75  |."CLOSE":...l.ou|
00000c60  74 66 69 6c 65 25 3d ae  28 22 3c 57 69 6d 70 24  |tfile%=.("<Wimp$|
00000c70  53 63 72 61 70 3e 22 29  3a f7 85 3a f2 57 69 6d  |Scrap>"):..:.Wim|
00000c80  70 5f 57 69 6e 64 6f 77  43 6c 6f 73 65 28 4d 61  |p_WindowClose(Ma|
00000c90  69 6e 5f 57 69 6e 64 6f  77 25 29 3a e8 23 69 6e  |in_Window%):.#in|
00000ca0  66 69 6c 65 25 2c 74 65  6d 70 24 3a 66 69 6c 65  |file%,temp$:file|
00000cb0  74 79 70 65 25 3d a0 28  74 65 6d 70 24 29 3a 70  |type%=.(temp$):p|
00000cc0  61 73 73 77 6f 72 64 24  3d a4 57 69 6d 70 5f 49  |assword$=.Wimp_I|
00000cd0  63 6f 6e 54 65 78 74 28  4d 61 69 6e 5f 57 69 6e  |conText(Main_Win|
00000ce0  64 6f 77 25 2c 35 29 3a  77 70 61 73 73 25 3d 30  |dow%,5):wpass%=0|
00000cf0  3a 77 70 61 73 73 25 3d  34 2d 28 70 61 73 73 25  |:wpass%=4-(pass%|
00000d00  20 83 34 29 3a 24 28 70  61 73 73 25 2b 77 70 61  | .4):$(pass%+wpa|
00000d10  73 73 25 29 3d 70 61 73  73 77 6f 72 64 24 2b 70  |ss%)=password$+p|
00000d20  61 73 73 77 6f 72 64 24  2b 70 61 73 73 77 6f 72  |assword$+passwor|
00000d30  64 24 2b 70 61 73 73 77  6f 72 64 24 3a 77 25 3d  |d$+password$:w%=|
00000d40  28 a9 28 70 61 73 73 77  6f 72 64 24 29 20 83 34  |(.(password$) .4|
00000d50  29 3a c8 8e 77 25 20 ca  0d 07 da 0b c9 30 3a 6e  |):..w% ......0:n|
00000d60  25 3d 31 0d 07 e4 0d c9  31 2c 33 3a 6e 25 3d 34  |%=1.....1,3:n%=4|
00000d70  0d 07 ee 0b c9 32 3a 6e  25 3d 32 0d 07 f8 b0 cb  |.....2:n%=2.....|
00000d80  3a 70 61 73 73 25 3f 28  77 70 61 73 73 25 2b a9  |:pass%?(wpass%+.|
00000d90  28 70 61 73 73 77 6f 72  64 24 29 2a 6e 25 29 3d  |(password$)*n%)=|
00000da0  31 33 3a f5 3a c8 99 26  43 2c 34 2c 69 6e 66 69  |13:.:..&C,4,infi|
00000db0  6c 65 25 2c 61 72 65 61  25 2c 61 72 65 61 73 69  |le%,area%,areasi|
00000dc0  7a 65 25 20 b8 2c 2c 61  64 64 25 3a 41 25 3d 61  |ze% .,,add%:A%=a|
00000dd0  72 65 61 25 3a 42 25 3d  61 64 64 25 2d 31 3a 43  |rea%:B%=add%-1:C|
00000de0  25 3d 70 61 73 73 25 2b  77 70 61 73 73 25 3a 44  |%=pass%+wpass%:D|
00000df0  25 3d 70 61 73 73 25 2b  77 70 61 73 73 25 3a 45  |%=pass%+wpass%:E|
00000e00  25 3d 70 61 73 73 32 25  2b 77 70 61 73 73 32 25  |%=pass2%+wpass2%|
00000e10  3a 46 25 3d 70 61 73 73  32 25 2b 77 70 61 73 73  |:F%=pass2%+wpass|
00000e20  32 25 3a d6 50 72 6f 67  3a ea 85 0d 08 a2 6d ee  |2%:.Prog:.....m.|
00000e30  85 ea f2 57 69 6d 70 5f  57 69 6e 64 6f 77 45 72  |...Wimp_WindowEr|
00000e40  72 6f 72 42 6f 78 28 22  50 72 6f 74 65 63 74 6f  |rorBox("Protecto|
00000e50  72 22 2c 22 45 72 72 6f  72 20 77 72 69 74 69 6e  |r","Error writin|
00000e60  67 20 74 6f 20 6f 75 74  70 75 74 20 66 69 6c 65  |g to output file|
00000e70  22 29 3a ff 22 43 4c 4f  53 45 22 3a ff 22 57 49  |"):."CLOSE":."WI|
00000e80  50 45 20 46 7e 43 7e 56  20 3c 57 69 6d 70 24 53  |PE F~C~V <Wimp$S|
00000e90  63 72 61 70 3e 22 3a e1  0d 08 ac 9f c8 99 26 43  |crap>":.......&C|
00000ea0  2c 32 2c 6f 75 74 66 69  6c 65 25 2c 61 72 65 61  |,2,outfile%,area|
00000eb0  25 2c 61 64 64 25 2d 61  72 65 61 25 3a f7 85 3a  |%,add%-area%:..:|
00000ec0  fd c5 23 69 6e 66 69 6c  65 25 3a d9 23 6f 75 74  |..#infile%:.#out|
00000ed0  66 69 6c 65 25 3a d9 23  69 6e 66 69 6c 65 25 3a  |file%:.#infile%:|
00000ee0  ff 22 53 45 54 54 59 50  45 20 3c 57 69 6d 70 24  |."SETTYPE <Wimp$|
00000ef0  53 63 72 61 70 3e 20 22  2b c3 7e 28 66 69 6c 65  |Scrap> "+.~(file|
00000f00  74 79 70 65 25 29 3a ff  22 53 45 54 20 4f 62 65  |type%):."SET Obe|
00000f10  79 24 44 69 72 20 3c 55  6e 6c 6f 63 6b 4f 62 65  |y$Dir <UnlockObe|
00000f20  79 24 44 69 72 3e 22 3a  ea 85 3a ee 85 ea f2 52  |y$Dir>":..:....R|
00000f30  65 6d 6f 76 65 3a e1 0d  09 10 15 e7 66 69 6c 65  |emove:......file|
00000f40  74 79 70 65 25 3d 26 66  66 61 20 8c 0d 09 1a 19  |type%=&ffa .....|
00000f50  ff 22 52 4d 52 75 6e 20  3c 57 69 6d 70 24 53 63  |."RMRun <Wimp$Sc|
00000f60  72 61 70 3e 22 0d 09 24  41 cc 3a c8 99 26 34 30  |rap>"..$A.:..&40|
00000f70  30 45 43 2c 2d 31 2c 63  75 72 25 20 b8 63 75 72  |0EC,-1,cur% .cur|
00000f80  25 2c 6e 65 78 32 25 2c  66 72 65 25 3a ff 22 46  |%,nex2%,fre%:."F|
00000f90  69 6c 65 72 5f 52 75 6e  20 3c 57 69 6d 70 24 53  |iler_Run <Wimp$S|
00000fa0  63 72 61 70 3e 22 0d 09  42 12 cd 3a f7 85 3a f2  |crap>"..B..:..:.|
00000fb0  52 65 6d 6f 76 65 3a e1  0d 09 6a 71 dd f2 52 65  |Remove:...jq..Re|
00000fc0  6d 6f 76 65 3a c8 99 26  34 30 36 43 31 3a ff 22  |move:..&406C1:."|
00000fd0  46 69 6c 65 72 5f 52 75  6e 20 3c 55 6e 6c 6f 63  |Filer_Run <Unloc|
00000fe0  6b 24 44 69 72 3e 2e 52  65 6d 6f 76 65 22 3a ff  |k$Dir>.Remove":.|
00000ff0  22 55 4e 53 45 54 20 55  6e 6c 6f 63 6b 4f 62 65  |"UNSET UnlockObe|
00001000  79 24 44 69 72 22 3a ff  22 55 4e 53 45 54 20 55  |y$Dir":."UNSET U|
00001010  6e 6c 6f 63 6b 24 46 69  6c 65 22 3a 66 69 6e 69  |nlock$File":fini|
00001020  73 68 65 64 25 3d b9 3a  e1 0d 09 b0 51 dd f2 57  |shed%=.:....Q..W|
00001030  69 6d 70 5f 57 69 6e 64  6f 77 41 6c 65 72 74 28  |imp_WindowAlert(|
00001040  74 69 74 6c 65 24 2c 6d  65 73 73 61 67 65 24 29  |title$,message$)|
00001050  3a f2 57 69 6d 70 5f 57  69 6e 64 6f 77 41 6c 65  |:.Wimp_WindowAle|
00001060  72 74 42 6f 78 28 74 69  74 6c 65 24 2c 6d 65 73  |rtBox(title$,mes|
00001070  73 61 67 65 24 2c 30 29  3a e1 0d 09 ce 5d dd f2  |sage$,0):....]..|
00001080  57 69 6d 70 5f 57 69 6e  64 6f 77 41 6c 65 72 74  |Wimp_WindowAlert|
00001090  42 6f 78 28 74 69 74 6c  65 24 2c 6d 65 73 73 61  |Box(title$,messa|
000010a0  67 65 24 2c 62 75 74 74  6f 6e 25 29 3a ea 72 65  |ge$,button%):.re|
000010b0  73 70 6f 6e 73 65 25 3a  24 28 77 69 6d 70 25 2b  |sponse%:$(wimp%+|
000010c0  34 29 3d 6d 65 73 73 61  67 65 24 3a c8 8e 62 75  |4)=message$:..bu|
000010d0  74 74 6f 6e 25 20 ca 0d  09 f6 12 c9 32 3a 72 65  |tton% ......2:re|
000010e0  73 70 6f 6e 73 65 25 3d  31 0d 0a 00 13 c9 31 3a  |sponse%=1.....1:|
000010f0  72 65 73 70 6f 6e 73 65  25 3d 31 35 0d 0a 0a 1a  |response%=15....|
00001100  c9 33 3a 72 65 73 70 6f  6e 73 65 25 3d 28 31 3c  |.3:response%=(1<|
00001110  3c 35 29 2b 31 36 0d 0a  14 1a c9 34 3a 72 65 73  |<5)+16.....4:res|
00001120  70 6f 6e 73 65 25 3d 28  31 3c 3c 36 29 2b 31 36  |ponse%=(1<<6)+16|
00001130  0d 0a 1e 12 7f 3a 72 65  73 70 6f 6e 73 65 25 3d  |.....:response%=|
00001140  31 36 0d 0a 28 33 cb 3a  c8 99 26 34 30 30 44 46  |16..(3.:..&400DF|
00001150  2c 77 69 6d 70 25 2c 72  65 73 70 6f 6e 73 65 25  |,wimp%,response%|
00001160  2c 74 69 74 6c 65 24 20  b8 2c 72 65 73 70 6f 6e  |,title$ .,respon|
00001170  73 65 25 3a e1 0d 0a 46  82 dd a4 57 69 6d 70 5f  |se%:...F...Wimp_|
00001180  57 69 6e 64 6f 77 43 61  6e 63 65 6c 28 74 69 74  |WindowCancel(tit|
00001190  6c 65 24 2c 6d 65 73 73  61 67 65 24 29 3a 24 28  |le$,message$):$(|
000011a0  77 69 6d 70 25 2b 34 29  3d 6d 65 73 73 61 67 65  |wimp%+4)=message|
000011b0  24 3a 72 65 73 70 6f 6e  73 65 25 3d 32 33 3a c8  |$:response%=23:.|
000011c0  99 26 34 30 30 44 46 2c  77 69 6d 70 25 2c 72 65  |.&400DF,wimp%,re|
000011d0  73 70 6f 6e 73 65 25 2c  74 69 74 6c 65 24 20 b8  |sponse%,title$ .|
000011e0  2c 72 65 73 70 6f 6e 73  65 25 3a 3d 72 65 73 70  |,response%:=resp|
000011f0  6f 6e 73 65 25 2d 32 0d  0a 78 54 dd f2 57 69 6d  |onse%-2..xT..Wim|
00001200  70 5f 57 69 6e 64 6f 77  45 72 72 6f 72 42 6f 78  |p_WindowErrorBox|
00001210  28 74 69 74 6c 65 24 2c  6d 65 73 73 61 67 65 24  |(title$,message$|
00001220  29 3a f2 57 69 6d 70 5f  57 69 6e 64 6f 77 41 6c  |):.Wimp_WindowAl|
00001230  65 72 74 42 6f 78 28 74  69 74 6c 65 24 2c 6d 65  |ertBox(title$,me|
00001240  73 73 61 67 65 24 2c 32  29 3a e1 0d 0a 96 7b dd  |ssage$,2):....{.|
00001250  a4 57 69 6d 70 5f 57 69  6e 64 6f 77 54 69 74 6c  |.Wimp_WindowTitl|
00001260  65 28 77 69 6e 64 6f 77  25 29 3a 77 69 6d 70 25  |e(window%):wimp%|
00001270  21 30 3d 77 69 6e 64 6f  77 25 3a c8 99 22 57 69  |!0=window%:.."Wi|
00001280  6d 70 5f 47 65 74 57 69  6e 64 49 6e 66 6f 22 2c  |mp_GetWindInfo",|
00001290  2c 77 69 6d 70 25 3a e7  28 28 77 69 6d 70 25 21  |,wimp%:.((wimp%!|
000012a0  36 30 29 80 26 31 30 30  29 3d 30 85 31 2c 22 54  |60).&100)=0.1,"T|
000012b0  69 74 6c 65 20 69 73 6e  27 74 20 69 6e 64 69 72  |itle isn't indir|
000012c0  65 63 74 65 64 22 0d 0a  be 10 3d 24 28 77 69 6d  |ected"....=$(wim|
000012d0  70 25 21 37 36 29 0d 0a  c8 56 dd a4 57 69 6d 70  |p%!76)...V..Wimp|
000012e0  5f 57 69 6e 64 6f 77 4c  6f 61 64 28 77 69 6e 64  |_WindowLoad(wind|
000012f0  6f 77 24 29 3a 3d a4 57  69 6d 70 5f 57 69 6e 64  |ow$):=.Wimp_Wind|
00001300  6f 77 4c 6f 61 64 46 72  6f 6d 28 77 69 6e 64 6f  |owLoadFrom(windo|
00001310  77 24 2c 22 3c 55 6e 6c  6f 63 6b 24 44 69 72 3e  |w$,"<Unlock$Dir>|
00001320  2e 54 65 6d 70 6c 61 74  65 73 22 29 0d 0a dc 9e  |.Templates")....|
00001330  dd a4 57 69 6d 70 5f 57  69 6e 64 6f 77 4c 6f 61  |..Wimp_WindowLoa|
00001340  64 46 72 6f 6d 28 77 69  6e 64 6f 77 24 2c 74 65  |dFrom(window$,te|
00001350  6d 70 6c 61 74 65 24 29  3a ea 63 25 2c 69 25 2c  |mplate$):.c%,i%,|
00001360  6e 25 2c 6a 25 2c 73 70  24 2c 73 70 32 24 3a c8  |n%,j%,sp$,sp2$:.|
00001370  99 26 34 30 30 44 39 2c  2c 74 65 6d 70 6c 61 74  |.&400D9,,templat|
00001380  65 24 3a c8 99 26 34 30  30 44 42 2c 2c 77 69 6d  |e$:..&400DB,,wim|
00001390  70 25 2c 69 63 6f 6e 73  25 2c 69 63 6f 6e 5f 6d  |p%,icons%,icon_m|
000013a0  65 6d 6f 72 79 25 2c 2d  31 2c 77 69 6e 64 6f 77  |emory%,-1,window|
000013b0  24 2c 30 20 b8 2c 2c 69  63 6f 6e 73 25 3a c8 8e  |$,0 .,,icons%:..|
000013c0  73 70 72 69 74 65 73 25  20 ca 0d 0b 0e 18 c9 31  |sprites% ......1|
000013d0  3a 77 69 6d 70 25 21 36  34 3d 73 70 72 69 74 65  |:wimp%!64=sprite|
000013e0  73 25 0d 0b 18 26 7f 3a  77 69 6d 70 25 21 36 34  |s%...&.:wimp%!64|
000013f0  3d a4 45 76 65 6e 74 5f  53 70 72 69 74 65 73 28  |=.Event_Sprites(|
00001400  77 69 6e 64 6f 77 25 29  0d 0b 22 58 cb 3a c8 99  |window%).."X.:..|
00001410  26 34 30 30 43 31 2c 2c  77 69 6d 70 25 20 b8 63  |&400C1,,wimp% .c|
00001420  25 3a c8 99 26 34 30 30  44 41 3a c8 99 26 34 30  |%:..&400DA:..&40|
00001430  30 44 36 2c 63 25 2c 77  69 6d 70 25 2b 34 30 2c  |0D6,c%,wimp%+40,|
00001440  31 2b 32 2b 28 31 3c 3c  38 29 2c 32 2b 28 31 3c  |1+2+(1<<8),2+(1<|
00001450  3c 38 29 3a c8 8e 77 69  6d 70 25 21 34 30 20 ca  |<8):..wimp%!40 .|
00001460  0d 0b 54 07 c9 2d 31 0d  0b 5e 7d 7f 3a 69 25 3d  |..T..-1..^}.:i%=|
00001470  34 30 3a f5 3a 77 69 6d  70 25 21 34 3d 77 69 6d  |40:.:wimp%!4=wim|
00001480  70 25 21 69 25 3a 77 69  6d 70 25 21 30 3d 63 25  |p%!i%:wimp%!0=c%|
00001490  3a c8 99 26 34 30 30 43  45 2c 2c 77 69 6d 70 25  |:..&400CE,,wimp%|
000014a0  3a 73 70 24 3d a4 57 69  6d 70 5f 47 65 74 53 74  |:sp$=.Wimp_GetSt|
000014b0  72 69 6e 67 41 74 41 64  64 72 65 73 73 28 77 69  |ringAtAddress(wi|
000014c0  6d 70 25 21 32 38 29 3a  c8 99 26 34 30 30 43 34  |mp%!28):..&400C4|
000014d0  2c 2c 77 69 6d 70 25 3a  c8 8e 73 70 72 69 74 65  |,,wimp%:..sprite|
000014e0  73 25 20 ca 0d 0b a4 11  c9 31 3a 77 69 6d 70 25  |s% ......1:wimp%|
000014f0  21 33 32 3d 31 0d 0b ae  bd 7f 3a c8 99 26 32 45  |!32=1.....:..&2E|
00001500  2c 26 31 30 38 2c 73 70  72 69 74 65 73 25 20 b8  |,&108,sprites% .|
00001510  2c 2c 2c 6e 25 3a 6a 25  3d 30 3a f5 3a 6a 25 2b  |,,,n%:j%=0:.:j%+|
00001520  3d 31 3a c8 99 26 32 45  2c 26 31 30 44 2c 73 70  |=1:..&2E,&10D,sp|
00001530  72 69 74 65 73 25 2c 70  6f 69 6e 74 65 72 5f 62  |rites%,pointer_b|
00001540  6c 6f 63 6b 25 2c 32 30  2c 6a 25 3a 73 70 32 24  |lock%,20,j%:sp2$|
00001550  3d a4 57 69 6d 70 5f 47  65 74 53 74 72 69 6e 67  |=.Wimp_GetString|
00001560  41 74 41 64 64 72 65 73  73 28 70 6f 69 6e 74 65  |AtAddress(pointe|
00001570  72 5f 62 6c 6f 63 6b 25  29 3a fd 6a 25 3d 6e 25  |r_block%):.j%=n%|
00001580  20 84 73 70 24 3d 73 70  32 24 3a e7 73 70 24 3d  | .sp$=sp2$:.sp$=|
00001590  73 70 32 24 20 8c 77 69  6d 70 25 21 33 32 3d 73  |sp2$ .wimp%!32=s|
000015a0  70 72 69 74 65 73 25 8b  77 69 6d 70 25 21 33 32  |prites%.wimp%!32|
000015b0  3d 31 0d 0b fe 40 cb 3a  77 69 6d 70 25 21 34 3d  |=1...@.:wimp%!4=|
000015c0  63 25 3a c8 99 26 34 30  30 43 32 2c 2c 77 69 6d  |c%:..&400C2,,wim|
000015d0  70 25 2b 34 20 b8 68 61  6e 64 6c 65 25 3a 69 25  |p%+4 .handle%:i%|
000015e0  2b 3d 34 3a fd 28 77 69  6d 70 25 21 69 25 29 3d  |+=4:.(wimp%!i%)=|
000015f0  2d 31 0d 0c 30 09 cb 3a  3d 63 25 0d 0c 44 61 dd  |-1..0..:=c%..Da.|
00001600  f2 57 69 6d 70 5f 57 69  6e 64 6f 77 42 72 69 6e  |.Wimp_WindowBrin|
00001610  67 54 6f 54 6f 70 28 77  69 6e 64 6f 77 25 29 3a  |gToTop(window%):|
00001620  21 77 69 6d 70 25 3d 77  69 6e 64 6f 77 25 3a c8  |!wimp%=window%:.|
00001630  99 26 34 30 30 43 42 2c  2c 77 69 6d 70 25 3a 77  |.&400CB,,wimp%:w|
00001640  69 6d 70 25 21 32 38 3d  2d 31 3a c8 99 26 34 30  |imp%!28=-1:..&40|
00001650  30 43 35 2c 2c 77 69 6d  70 25 3a e1 0d 0c 80 40  |0C5,,wimp%:....@|
00001660  dd f2 57 69 6d 70 5f 57  69 6e 64 6f 77 43 6c 6f  |..Wimp_WindowClo|
00001670  73 65 28 77 69 6e 64 6f  77 25 29 3a 21 77 69 6d  |se(window%):!wim|
00001680  70 25 3d 77 69 6e 64 6f  77 25 3a c8 99 26 34 30  |p%=window%:..&40|
00001690  30 43 36 2c 2c 77 69 6d  70 25 3a e1 0d 0c a8 2f  |0C6,,wimp%:..../|
000016a0  dd f2 57 69 6d 70 5f 57  69 6e 64 6f 77 46 6f 72  |..Wimp_WindowFor|
000016b0  63 65 44 72 61 77 28 77  69 6e 64 6f 77 25 29 3a  |ceDraw(window%):|
000016c0  c8 8e 77 69 6e 64 6f 77  25 20 ca 0d 0c bc 25 c9  |..window% ....%.|
000016d0  2d 31 3a c8 99 26 34 30  30 44 31 2c 2d 31 2c 30  |-1:..&400D1,-1,0|
000016e0  2c 30 2c 32 2a 31 32 38  30 2c 32 2a 31 30 32 34  |,0,2*1280,2*1024|
000016f0  0d 0c c6 29 7f 3a c8 99  26 34 30 30 44 31 2c 77  |...).:..&400D1,w|
00001700  69 6e 64 6f 77 25 2c 30  2c 2d 32 2a 31 30 32 34  |indow%,0,-2*1024|
00001710  2c 32 2a 31 32 38 30 2c  30 0d 0c d0 07 cb 3a e1  |,2*1280,0.....:.|
00001720  0d 0c e4 84 dd f2 57 69  6d 70 5f 57 69 6e 64 6f  |......Wimp_Windo|
00001730  77 4f 70 65 6e 28 77 69  6e 64 6f 77 25 29 3a 21  |wOpen(window%):!|
00001740  77 69 6d 70 25 3d 77 69  6e 64 6f 77 25 3a c8 99  |wimp%=window%:..|
00001750  26 34 30 30 43 42 2c 2c  77 69 6d 70 25 3a c8 99  |&400CB,,wimp%:..|
00001760  26 34 30 30 43 35 2c 2c  77 69 6d 70 25 3a e1 3a  |&400C5,,wimp%:.:|
00001770  f2 57 69 6d 70 5f 57 69  6e 64 6f 77 49 6e 74 65  |.Wimp_WindowInte|
00001780  72 66 61 63 65 3a c8 99  22 57 69 6d 70 5f 42 6f  |rface:.."Wimp_Bo|
00001790  72 64 65 72 57 69 6e 64  6f 77 22 2c 2c 77 69 6d  |rderWindow",,wim|
000017a0  70 25 3a e1 0d 0d 34 9a  dd a4 57 69 6d 70 5f 49  |p%:...4...Wimp_I|
000017b0  63 6f 6e 42 61 72 28 53  70 72 69 74 65 24 29 3a  |conBar(Sprite$):|
000017c0  ea 69 63 6f 6e 25 3a 77  69 6d 70 25 21 30 3d 2d  |.icon%:wimp%!0=-|
000017d0  31 3a 77 69 6d 70 25 21  34 3d 30 3a 77 69 6d 70  |1:wimp%!4=0:wimp|
000017e0  25 21 38 3d 30 3a 77 69  6d 70 25 21 31 32 3d 36  |%!8=0:wimp%!12=6|
000017f0  38 3a 77 69 6d 70 25 21  31 36 3d 36 38 3a 77 69  |8:wimp%!16=68:wi|
00001800  6d 70 25 21 32 30 3d 26  33 30 30 32 3a 24 28 77  |mp%!20=&3002:$(w|
00001810  69 6d 70 25 2b 32 34 29  3d 53 70 72 69 74 65 24  |imp%+24)=Sprite$|
00001820  3a c8 99 26 34 30 30 43  32 2c 2c 77 69 6d 70 25  |:..&400C2,,wimp%|
00001830  20 b8 69 63 6f 6e 25 3a  3d 69 63 6f 6e 25 0d 0d  | .icon%:=icon%..|
00001840  8e 4f dd f2 57 69 6d 70  5f 49 63 6f 6e 43 61 72  |.O..Wimp_IconCar|
00001850  65 74 28 77 69 6e 64 6f  77 25 2c 69 63 6f 6e 25  |et(window%,icon%|
00001860  2c 63 68 61 72 73 25 29  3a c8 99 26 34 30 30 44  |,chars%):..&400D|
00001870  32 2c 77 69 6e 64 6f 77  25 2c 69 63 6f 6e 25 2c  |2,window%,icon%,|
00001880  2c 2c 2d 31 2c 63 68 61  72 73 25 3a e1 0d 0d ac  |,,-1,chars%:....|
00001890  80 dd a4 57 69 6d 70 5f  49 63 6f 6e 54 65 78 74  |...Wimp_IconText|
000018a0  28 77 69 6e 64 6f 77 25  2c 69 63 6f 6e 25 29 3a  |(window%,icon%):|
000018b0  77 69 6d 70 25 21 30 3d  77 69 6e 64 6f 77 25 3a  |wimp%!0=window%:|
000018c0  77 69 6d 70 25 21 34 3d  69 63 6f 6e 25 3a c8 99  |wimp%!4=icon%:..|
000018d0  26 34 30 30 43 45 2c 2c  77 69 6d 70 25 3a e7 28  |&400CE,,wimp%:.(|
000018e0  28 77 69 6d 70 25 21 32  34 29 20 80 26 31 30 30  |(wimp%!24) .&100|
000018f0  29 3d 30 85 31 2c 22 49  63 6f 6e 20 69 73 6e 27  |)=0.1,"Icon isn'|
00001900  74 20 69 6e 64 69 72 65  63 74 65 64 22 0d 0d d4  |t indirected"...|
00001910  10 3d 24 28 77 69 6d 70  25 21 32 38 29 0d 0d de  |.=$(wimp%!28)...|
00001920  86 dd a4 57 69 6d 70 5f  49 63 6f 6e 56 61 6c 69  |...Wimp_IconVali|
00001930  64 61 74 69 6f 6e 28 77  69 6e 64 6f 77 25 2c 69  |dation(window%,i|
00001940  63 6f 6e 25 29 3a 77 69  6d 70 25 21 30 3d 77 69  |con%):wimp%!0=wi|
00001950  6e 64 6f 77 25 3a 77 69  6d 70 25 21 34 3d 69 63  |ndow%:wimp%!4=ic|
00001960  6f 6e 25 3a c8 99 26 34  30 30 43 45 2c 2c 77 69  |on%:..&400CE,,wi|
00001970  6d 70 25 3a e7 28 28 77  69 6d 70 25 21 32 34 29  |mp%:.((wimp%!24)|
00001980  20 80 26 31 30 30 29 3d  30 85 31 2c 22 49 63 6f  | .&100)=0.1,"Ico|
00001990  6e 20 69 73 6e 27 74 20  69 6e 64 69 72 65 63 74  |n isn't indirect|
000019a0  65 64 22 0d 0e 06 10 3d  24 28 77 69 6d 70 25 21  |ed"....=$(wimp%!|
000019b0  33 32 29 0d 0e 10 72 dd  f2 57 69 6d 70 5f 49 63  |32)...r..Wimp_Ic|
000019c0  6f 6e 44 69 73 61 62 6c  65 28 77 69 6e 64 6f 77  |onDisable(window|
000019d0  25 2c 69 63 6f 6e 25 29  3a 77 69 6d 70 25 21 30  |%,icon%):wimp%!0|
000019e0  3d 77 69 6e 64 6f 77 25  3a 77 69 6d 70 25 21 34  |=window%:wimp%!4|
000019f0  3d 69 63 6f 6e 25 3a 77  69 6d 70 25 21 38 3d 31  |=icon%:wimp%!8=1|
00001a00  3c 3c 32 32 3a 77 69 6d  70 25 21 31 32 3d 31 3c  |<<22:wimp%!12=1<|
00001a10  3c 32 32 3a c8 99 26 34  30 30 43 44 2c 2c 77 69  |<22:..&400CD,,wi|
00001a20  6d 70 25 3a e1 0d 0e 42  6d dd f2 57 69 6d 70 5f  |mp%:...Bm..Wimp_|
00001a30  49 63 6f 6e 45 6e 61 62  6c 65 28 77 69 6e 64 6f  |IconEnable(windo|
00001a40  77 25 2c 69 63 6f 6e 25  29 3a 77 69 6d 70 25 21  |w%,icon%):wimp%!|
00001a50  30 3d 77 69 6e 64 6f 77  25 3a 77 69 6d 70 25 21  |0=window%:wimp%!|
00001a60  34 3d 69 63 6f 6e 25 3a  77 69 6d 70 25 21 38 3d  |4=icon%:wimp%!8=|
00001a70  30 3a 77 69 6d 70 25 21  31 32 3d 31 3c 3c 32 32  |0:wimp%!12=1<<22|
00001a80  3a c8 99 26 34 30 30 43  44 2c 2c 77 69 6d 70 25  |:..&400CD,,wimp%|
00001a90  3a e1 0d 0e 74 f6 dd a4  57 69 6d 70 5f 49 63 6f  |:...t...Wimp_Ico|
00001aa0  6e 50 75 74 53 70 72 69  74 65 28 77 69 6e 64 6f  |nPutSprite(windo|
00001ab0  77 25 2c 69 63 6f 6e 25  2c 73 70 72 69 74 65 24  |w%,icon%,sprite$|
00001ac0  29 3a 77 69 6d 70 25 21  30 3d 77 69 6e 64 6f 77  |):wimp%!0=window|
00001ad0  25 3a 77 69 6d 70 25 21  34 3d 69 63 6f 6e 25 3a  |%:wimp%!4=icon%:|
00001ae0  c8 99 26 34 30 30 43 45  2c 2c 77 69 6d 70 25 3a  |..&400CE,,wimp%:|
00001af0  c8 99 26 34 30 30 43 34  2c 2c 77 69 6d 70 25 3a  |..&400C4,,wimp%:|
00001b00  77 69 6d 70 25 21 34 3d  77 69 6d 70 25 21 38 3a  |wimp%!4=wimp%!8:|
00001b10  77 69 6d 70 25 21 38 3d  77 69 6d 70 25 21 31 32  |wimp%!8=wimp%!12|
00001b20  3a 77 69 6d 70 25 21 31  32 3d 77 69 6d 70 25 21  |:wimp%!12=wimp%!|
00001b30  31 36 3a 77 69 6d 70 25  21 31 36 3d 77 69 6d 70  |16:wimp%!16=wimp|
00001b40  25 21 32 30 3a 77 69 6d  70 25 21 32 30 3d 77 69  |%!20:wimp%!20=wi|
00001b50  6d 70 25 21 32 34 3a 24  28 77 69 6d 70 25 2b 32  |mp%!24:$(wimp%+2|
00001b60  34 29 3d 73 70 72 69 74  65 24 3a c8 99 26 34 30  |4)=sprite$:..&40|
00001b70  30 43 32 2c 2c 77 69 6d  70 25 20 b8 69 63 6f 6e  |0C2,,wimp% .icon|
00001b80  25 3a 3d 69 63 6f 6e 25  0d 0e c4 89 dd f2 57 69  |%:=icon%......Wi|
00001b90  6d 70 5f 49 63 6f 6e 50  75 74 54 65 78 74 28 77  |mp_IconPutText(w|
00001ba0  69 6e 64 6f 77 25 2c 69  63 6f 6e 25 2c 74 65 78  |indow%,icon%,tex|
00001bb0  74 24 29 3a 77 69 6d 70  25 21 30 3d 77 69 6e 64  |t$):wimp%!0=wind|
00001bc0  6f 77 25 3a 77 69 6d 70  25 21 34 3d 69 63 6f 6e  |ow%:wimp%!4=icon|
00001bd0  25 3a c8 99 26 34 30 30  43 45 2c 2c 77 69 6d 70  |%:..&400CE,,wimp|
00001be0  25 3a e7 28 28 77 69 6d  70 25 21 32 34 29 20 80  |%:.((wimp%!24) .|
00001bf0  26 31 30 30 29 3d 30 85  31 2c 22 49 63 6f 6e 20  |&100)=0.1,"Icon |
00001c00  69 73 6e 27 74 20 69 6e  64 69 72 65 63 74 65 64  |isn't indirected|
00001c10  22 0d 0e ec 5a 24 28 77  69 6d 70 25 21 32 38 29  |"...Z$(wimp%!28)|
00001c20  3d 74 65 78 74 24 3a 77  69 6d 70 25 21 30 3d 77  |=text$:wimp%!0=w|
00001c30  69 6e 64 6f 77 25 3a 77  69 6d 70 25 21 34 3d 69  |indow%:wimp%!4=i|
00001c40  63 6f 6e 25 3a 77 69 6d  70 25 21 38 3d 30 3a 77  |con%:wimp%!8=0:w|
00001c50  69 6d 70 25 21 31 32 3d  30 3a c8 99 26 34 30 30  |imp%!12=0:..&400|
00001c60  43 44 2c 2c 77 69 6d 70  25 3a e1 0d 0f 1e 3a dd  |CD,,wimp%:....:.|
00001c70  f2 57 69 6d 70 5f 49 63  6f 6e 49 6e 74 65 72 66  |.Wimp_IconInterf|
00001c80  61 63 65 53 74 61 72 74  3a c8 99 22 57 69 6d 70  |aceStart:.."Wimp|
00001c90  5f 42 6f 72 64 65 72 49  63 6f 6e 22 2c 2c 77 69  |_BorderIcon",,wi|
00001ca0  6d 70 25 3a e1 0d 0f 3c  45 dd f2 57 69 6d 70 5f  |mp%:...<E..Wimp_|
00001cb0  49 63 6f 6e 49 6e 74 65  72 66 61 63 65 46 69 6e  |IconInterfaceFin|
00001cc0  69 73 68 3a 77 69 6d 70  25 21 38 3d 30 3a c8 99  |ish:wimp%!8=0:..|
00001cd0  22 57 69 6d 70 5f 42 6f  72 64 65 72 49 63 6f 6e  |"Wimp_BorderIcon|
00001ce0  22 2c 2c 77 69 6d 70 25  3a e1 0d 0f 64 84 dd f2  |",,wimp%:...d...|
00001cf0  57 69 6d 70 5f 4d 65 6e  75 41 64 6a 75 73 74 4f  |Wimp_MenuAdjustO|
00001d00  6e 28 6d 65 6e 75 25 29  3a c8 99 26 34 30 30 43  |n(menu%):..&400C|
00001d10  46 2c 2c 70 6f 69 6e 74  65 72 5f 62 6c 6f 63 6b  |F,,pointer_block|
00001d20  25 3a e7 28 28 70 6f 69  6e 74 65 72 5f 62 6c 6f  |%:.((pointer_blo|
00001d30  63 6b 25 21 38 29 80 31  29 3d 31 20 8c c8 99 26  |ck%!8).1)=1 ...&|
00001d40  34 30 30 44 34 2c 2c 6d  65 6e 75 25 2c 70 6f 69  |400D4,,menu%,poi|
00001d50  6e 74 65 72 5f 62 6c 6f  63 6b 25 21 30 2c 70 6f  |nter_block%!0,po|
00001d60  69 6e 74 65 72 5f 62 6c  6f 63 6b 25 21 34 0d 0f  |inter_block%!4..|
00001d70  82 05 e1 0d 0f 8c 33 dd  a4 57 69 6d 70 5f 4d 65  |......3..Wimp_Me|
00001d80  6e 75 43 68 6f 69 63 65  28 6c 65 76 65 6c 25 29  |nuChoice(level%)|
00001d90  3a 3d 28 77 69 6d 70 25  21 28 34 2a 6c 65 76 65  |:=(wimp%!(4*leve|
00001da0  6c 25 29 29 2b 31 0d 0f  a0 41 dd a4 57 69 6d 70  |l%))+1...A..Wimp|
00001db0  5f 4d 65 6e 75 43 72 65  61 74 65 28 6d 65 6e 75  |_MenuCreate(menu|
00001dc0  24 29 3a e7 6d 65 6e 75  24 3d 22 43 6f 6c 6f 75  |$):.menu$="Colou|
00001dd0  72 73 22 20 8c 3d a4 57  69 6d 70 5f 4d 65 6e 75  |rs" .=.Wimp_Menu|
00001de0  43 6f 6c 6f 75 72 73 0d  0f b4 ed ea 6d 65 6e 75  |Colours.....menu|
00001df0  25 2c 69 6e 64 65 78 25  2c 77 69 64 74 68 25 2c  |%,index%,width%,|
00001e00  6c 65 6e 67 74 68 25 2c  6b 25 2c 73 25 3a de 6d  |length%,k%,s%:.m|
00001e10  65 6e 75 25 20 32 38 2b  a4 57 69 6d 70 5f 4d 65  |enu% 28+.Wimp_Me|
00001e20  6e 75 4e 6f 4f 66 45 6e  74 72 69 65 73 28 6d 65  |nuNoOfEntries(me|
00001e30  6e 75 24 29 2a 32 34 3a  6d 65 6e 75 25 3f 31 32  |nu$)*24:menu%?12|
00001e40  3d 37 3a 6d 65 6e 75 25  3f 31 33 3d 32 3a 6d 65  |=7:menu%?13=2:me|
00001e50  6e 75 25 3f 31 34 3d 37  3a 6d 65 6e 75 25 3f 31  |nu%?14=7:menu%?1|
00001e60  35 3d 30 3a 6d 65 6e 75  25 21 31 36 3d 31 34 30  |5=0:menu%!16=140|
00001e70  3a 6d 65 6e 75 25 21 32  30 3d 34 34 3a 6d 65 6e  |:menu%!20=44:men|
00001e80  75 25 21 32 34 3d 30 3a  69 6e 64 65 78 25 3d 6d  |u%!24=0:index%=m|
00001e90  65 6e 75 25 2b 32 38 3a  24 6d 65 6e 75 25 3d c0  |enu%+28:$menu%=.|
00001ea0  6d 65 6e 75 24 2c a7 6d  65 6e 75 24 2c 22 5c 22  |menu$,.menu$,"\"|
00001eb0  29 2d 31 29 3a 77 69 64  74 68 25 3d a9 28 c0 6d  |)-1):width%=.(.m|
00001ec0  65 6e 75 24 2c a7 6d 65  6e 75 24 2c 22 5c 22 29  |enu$,.menu$,"\")|
00001ed0  2d 31 29 29 0d 0f fa 54  6d 65 6e 75 24 2b 3d 22  |-1))...Tmenu$+="|
00001ee0  5c 22 3a 4d 65 6e 75 5f  4e 6f 4f 66 45 6e 74 72  |\":Menu_NoOfEntr|
00001ef0  69 65 73 25 3d 30 3a c8  95 6d 65 6e 75 24 3c 3e  |ies%=0:..menu$<>|
00001f00  22 22 3a 6d 65 6e 75 24  3d c1 6d 65 6e 75 24 2c  |"":menu$=.menu$,|
00001f10  a7 6d 65 6e 75 24 2c 22  5c 22 29 2b 31 29 3a c8  |.menu$,"\")+1):.|
00001f20  8e 6d 65 6e 75 24 20 ca  0d 10 22 07 c9 22 22 0d  |.menu$ ...".."".|
00001f30  10 2c 63 7f 3a 21 69 6e  64 65 78 25 3d 30 3a 69  |.,c.:!index%=0:i|
00001f40  6e 64 65 78 25 21 34 3d  2d 31 3a 69 6e 64 65 78  |ndex%!4=-1:index|
00001f50  25 21 38 3d 26 37 30 30  30 30 32 31 3a 6c 65 6e  |%!8=&7000021:len|
00001f60  67 74 68 25 3d a7 6d 65  6e 75 24 2c 22 5c 22 29  |gth%=.menu$,"\")|
00001f70  2d 31 3a 6b 25 3d a7 c0  6d 65 6e 75 24 2c 6c 65  |-1:k%=..menu$,le|
00001f80  6e 67 74 68 25 29 2c 22  3e 22 29 3a c8 8e 6b 25  |ngth%),">"):..k%|
00001f90  20 ca 0d 10 5e 06 c9 30  0d 10 68 3c 7f 3a 73 25  | ...^..0..h<.:s%|
00001fa0  3d a0 28 c1 6d 65 6e 75  24 2c 6b 25 2b 31 2c 6c  |=.(.menu$,k%+1,l|
00001fb0  65 6e 67 74 68 25 2d 6b  25 29 29 3a 69 6e 64 65  |ength%-k%)):inde|
00001fc0  78 25 21 34 3d 73 25 3a  6c 65 6e 67 74 68 25 3d  |x%!4=s%:length%=|
00001fd0  6b 25 2d 31 0d 10 90 42  cb 3a 24 28 69 6e 64 65  |k%-1...B.:$(inde|
00001fe0  78 25 2b 31 32 29 3d c0  6d 65 6e 75 24 2c 6c 65  |x%+12)=.menu$,le|
00001ff0  6e 67 74 68 25 29 3a e7  6c 65 6e 67 74 68 25 3e  |ngth%):.length%>|
00002000  77 69 64 74 68 25 20 8c  77 69 64 74 68 25 3d 6c  |width% .width%=l|
00002010  65 6e 67 74 68 25 0d 10  ae 0e 69 6e 64 65 78 25  |ength%....index%|
00002020  2b 3d 32 34 0d 10 b8 40  cb 3a ce 3a 6d 65 6e 75  |+=24...@.:.:menu|
00002030  25 21 31 36 3d 31 36 2a  28 77 69 64 74 68 25 2b  |%!16=16*(width%+|
00002040  31 29 3a 69 6e 64 65 78  25 21 2d 32 34 3d 69 6e  |1):index%!-24=in|
00002050  64 65 78 25 21 2d 32 34  20 84 26 38 30 3a 3d 6d  |dex%!-24 .&80:=m|
00002060  65 6e 75 25 0d 10 e0 34  dd a4 57 69 6d 70 5f 4d  |enu%...4..Wimp_M|
00002070  65 6e 75 43 6f 6c 6f 75  72 73 3a 3d a4 57 69 6d  |enuColours:=.Wim|
00002080  70 5f 4d 65 6e 75 43 72  65 61 74 65 43 6f 6c 6f  |p_MenuCreateColo|
00002090  75 72 73 28 22 20 22 29  0d 10 f4 90 dd a4 57 69  |urs(" ")......Wi|
000020a0  6d 70 5f 4d 65 6e 75 43  72 65 61 74 65 43 6f 6c  |mp_MenuCreateCol|
000020b0  6f 75 72 73 28 74 69 74  6c 65 24 29 3a ea 78 24  |ours(title$):.x$|
000020c0  2c 6d 65 6e 25 2c 6a 25  2c 69 25 3a 78 24 3d 74  |,men%,j%,i%:x$=t|
000020d0  69 74 6c 65 24 2b 22 5c  30 5c 31 5c 32 5c 33 5c  |itle$+"\0\1\2\3\|
000020e0  34 5c 35 5c 36 5c 37 5c  38 5c 39 5c 31 30 5c 31  |4\5\6\7\8\9\10\1|
000020f0  31 5c 31 32 5c 31 33 5c  31 34 5c 31 35 22 3a 6d  |1\12\13\14\15":m|
00002100  65 6e 25 3d a4 57 69 6d  70 5f 4d 65 6e 75 43 72  |en%=.Wimp_MenuCr|
00002110  65 61 74 65 28 78 24 29  3a e3 69 25 3d 30 20 b8  |eate(x$):.i%=0 .|
00002120  31 35 3a c8 8e b9 20 ca  0d 11 30 25 c9 69 25 3c  |15:... ...0%.i%<|
00002130  34 2c 69 25 3d 39 2c 69  25 3d 31 32 2c 69 25 3d  |4,i%=9,i%=12,i%=|
00002140  31 34 2c 69 25 3d 31 35  3a 6a 25 3d 37 0d 11 3a  |14,i%=15:j%=7..:|
00002150  0a 7f 3a 6a 25 3d 30 0d  11 44 42 cb 3a 6d 65 6e  |..:j%=0..DB.:men|
00002160  25 3f 28 33 39 2b 69 25  2a 32 34 29 3d 69 25 2a  |%?(39+i%*24)=i%*|
00002170  31 36 2b 6a 25 3a f2 57  69 6d 70 5f 4d 65 6e 75  |16+j%:.Wimp_Menu|
00002180  43 65 6e 74 72 65 28 6d  65 6e 25 2c 69 25 2b 31  |Centre(men%,i%+1|
00002190  29 3a ed 3a 3d 6d 65 6e  25 0d 11 76 56 dd a4 57  |):.:=men%..vV..W|
000021a0  69 6d 70 5f 4d 65 6e 75  4e 6f 4f 66 45 6e 74 72  |imp_MenuNoOfEntr|
000021b0  69 65 73 28 6d 65 6e 75  24 29 3a ea 6e 25 2c 6a  |ies(menu$):.n%,j|
000021c0  25 3a 6e 25 3d 30 3a 6a  25 3d 30 3a f5 3a 6a 25  |%:n%=0:j%=0:.:j%|
000021d0  3d a7 6d 65 6e 75 24 2c  22 5c 22 2c 6a 25 2b 31  |=.menu$,"\",j%+1|
000021e0  29 3a e7 6a 25 3c 3e 30  20 8c 6e 25 2b 3d 31 0d  |):.j%<>0 .n%+=1.|
000021f0  11 a8 0d fd 6a 25 3d 30  3a 3d 6e 25 0d 11 bc b4  |....j%=0:=n%....|
00002200  dd f2 57 69 6d 70 5f 4d  65 6e 75 42 61 63 6b 47  |..Wimp_MenuBackG|
00002210  72 6f 75 6e 64 43 6f 6c  6f 75 72 28 6d 65 6e 75  |roundColour(menu|
00002220  25 2c 69 74 65 6d 25 2c  63 6f 6c 6f 75 72 25 29  |%,item%,colour%)|
00002230  3a ea 66 6f 72 65 25 2c  69 25 3a 66 6f 72 65 25  |:.fore%,i%:fore%|
00002240  3d 28 6d 65 6e 75 25 3f  28 33 39 2b 28 69 74 65  |=(menu%?(39+(ite|
00002250  6d 25 2d 31 29 2a 32 34  29 29 83 31 36 3a 69 25  |m%-1)*24)).16:i%|
00002260  3d 28 28 6d 65 6e 75 25  3f 28 33 39 2b 28 69 74  |=((menu%?(39+(it|
00002270  65 6d 25 2d 31 29 2a 32  34 29 29 81 31 36 29 83  |em%-1)*24)).16).|
00002280  31 36 3a 6d 65 6e 75 25  3f 28 33 39 2b 28 69 74  |16:menu%?(39+(it|
00002290  65 6d 25 2d 31 29 2a 32  34 29 3d 66 6f 72 65 25  |em%-1)*24)=fore%|
000022a0  2b 31 36 2a 63 6f 6c 6f  75 72 25 2b 69 25 3a e1  |+16*colour%+i%:.|
000022b0  0d 11 f8 5b dd f2 57 69  6d 70 5f 4d 65 6e 75 43  |...[..Wimp_MenuC|
000022c0  65 6e 74 72 65 28 6d 65  6e 75 25 2c 69 74 65 6d  |entre(menu%,item|
000022d0  25 29 3a 6d 65 6e 75 25  21 28 33 36 2b 28 69 74  |%):menu%!(36+(it|
000022e0  65 6d 25 2d 31 29 2a 32  34 29 3d 6d 65 6e 75 25  |em%-1)*24)=menu%|
000022f0  21 28 33 36 2b 28 69 74  65 6d 25 2d 31 29 2a 32  |!(36+(item%-1)*2|
00002300  34 29 84 28 31 3c 3c 33  29 3a e1 0d 12 16 22 dd  |4).(1<<3):....".|
00002310  f2 57 69 6d 70 5f 4d 65  6e 75 43 6c 6f 73 65 3a  |.Wimp_MenuClose:|
00002320  c8 99 26 34 30 30 44 34  2c 2d 31 3a e1 0d 12 34  |..&400D4,-1:...4|
00002330  5d dd f2 57 69 6d 70 5f  4d 65 6e 75 44 69 73 61  |]..Wimp_MenuDisa|
00002340  62 6c 65 28 6d 65 6e 75  25 2c 69 74 65 6d 25 29  |ble(menu%,item%)|
00002350  3a 6d 65 6e 75 25 21 28  33 36 2b 28 69 74 65 6d  |:menu%!(36+(item|
00002360  25 2d 31 29 2a 32 34 29  3d 6d 65 6e 75 25 21 28  |%-1)*24)=menu%!(|
00002370  33 36 2b 28 69 74 65 6d  25 2d 31 29 2a 32 34 29  |36+(item%-1)*24)|
00002380  84 28 31 3c 3c 32 32 29  3a e1 0d 12 52 5c dd f2  |.(1<<22):...R\..|
00002390  57 69 6d 70 5f 4d 65 6e  75 44 6f 74 74 65 64 4c  |Wimp_MenuDottedL|
000023a0  69 6e 65 28 6d 65 6e 75  25 2c 69 74 65 6d 25 29  |ine(menu%,item%)|
000023b0  3a 6d 65 6e 75 25 21 28  32 38 2b 28 69 74 65 6d  |:menu%!(28+(item|
000023c0  25 2d 31 29 2a 32 34 29  3d 28 6d 65 6e 75 25 21  |%-1)*24)=(menu%!|
000023d0  28 32 38 2b 28 69 74 65  6d 25 2d 31 29 2a 32 34  |(28+(item%-1)*24|
000023e0  29 29 84 32 3a e1 0d 12  70 7b dd f2 57 69 6d 70  |)).2:...p{..Wimp|
000023f0  5f 4d 65 6e 75 45 6e 61  62 6c 65 28 6d 65 6e 75  |_MenuEnable(menu|
00002400  25 2c 69 74 65 6d 25 29  3a f2 57 69 6d 70 5f 4d  |%,item%):.Wimp_M|
00002410  65 6e 75 44 69 73 61 62  6c 65 28 6d 65 6e 75 25  |enuDisable(menu%|
00002420  2c 69 74 65 6d 25 29 3a  6d 65 6e 75 25 21 28 33  |,item%):menu%!(3|
00002430  36 2b 28 69 74 65 6d 25  2d 31 29 2a 32 34 29 3d  |6+(item%-1)*24)=|
00002440  6d 65 6e 75 25 21 28 33  36 2b 28 69 74 65 6d 25  |menu%!(36+(item%|
00002450  2d 31 29 2a 32 34 29 82  28 31 3c 3c 32 32 29 3a  |-1)*24).(1<<22):|
00002460  e1 0d 12 98 78 dd f2 57  69 6d 70 5f 4d 65 6e 75  |....x..Wimp_Menu|
00002470  46 6f 72 65 67 72 6f 75  6e 64 43 6f 6c 6f 75 72  |ForegroundColour|
00002480  28 6d 65 6e 75 25 2c 69  74 65 6d 25 2c 63 6f 6c  |(menu%,item%,col|
00002490  6f 75 72 25 29 3a 6d 65  6e 75 25 3f 28 33 39 2b  |our%):menu%?(39+|
000024a0  28 69 74 65 6d 25 2d 31  29 2a 32 34 29 3d 63 6f  |(item%-1)*24)=co|
000024b0  6c 6f 75 72 25 2b 31 36  2a 28 28 6d 65 6e 75 25  |lour%+16*((menu%|
000024c0  3f 28 33 39 2b 28 69 74  65 6d 25 2d 31 29 2a 32  |?(39+(item%-1)*2|
000024d0  34 29 29 81 31 36 29 3a  e1 0d 12 b6 45 dd f2 57  |4)).16):....E..W|
000024e0  69 6d 70 5f 4d 65 6e 75  47 6c 75 65 28 6d 65 6e  |imp_MenuGlue(men|
000024f0  75 31 25 2c 69 74 65 6d  25 2c 6d 65 6e 75 32 25  |u1%,item%,menu2%|
00002500  29 3a 6d 65 6e 75 31 25  21 28 38 2b 69 74 65 6d  |):menu1%!(8+item|
00002510  25 2a 32 34 29 3d 6d 65  6e 75 32 25 3a e1 0d 12  |%*24)=menu2%:...|
00002520  d4 51 dd f2 57 69 6d 70  5f 4d 65 6e 75 49 74 65  |.Q..Wimp_MenuIte|
00002530  6d 28 6d 65 6e 75 25 2c  69 74 65 6d 25 2c 69 74  |m(menu%,item%,it|
00002540  65 6d 24 29 3a 24 28 6d  65 6e 75 25 2b 28 34 30  |em$):$(menu%+(40|
00002550  2b 28 69 74 65 6d 25 2d  31 29 2a 32 34 29 29 3d  |+(item%-1)*24))=|
00002560  c0 69 74 65 6d 24 2c 31  32 29 2b bd 30 3a e1 0d  |.item$,12)+.0:..|
00002570  12 f2 5e dd f2 57 69 6d  70 5f 4d 65 6e 75 4d 65  |..^..Wimp_MenuMe|
00002580  73 73 61 67 65 28 6d 65  6e 75 25 2c 69 74 65 6d  |ssage(menu%,item|
00002590  25 29 3a 6d 65 6e 75 25  21 28 32 38 2b 28 69 74  |%):menu%!(28+(it|
000025a0  65 6d 25 2d 31 29 2a 32  34 29 3d 28 6d 65 6e 75  |em%-1)*24)=(menu|
000025b0  25 21 28 32 38 2b 28 69  74 65 6d 25 2d 31 29 2a  |%!(28+(item%-1)*|
000025c0  32 34 29 29 82 28 31 3c  3c 33 29 3a e1 0d 13 10  |24)).(1<<3):....|
000025d0  4b dd f2 57 69 6d 70 5f  4d 65 6e 75 50 6f 70 55  |K..Wimp_MenuPopU|
000025e0  70 28 4d 65 6e 75 25 2c  78 25 2c 79 25 29 3a 6d  |p(Menu%,x%,y%):m|
000025f0  65 6e 75 25 3d 4d 65 6e  75 25 3a c8 99 26 34 30  |enu%=Menu%:..&40|
00002600  30 44 34 2c 2c 6d 65 6e  75 25 2c 78 25 2d 36 34  |0D4,,menu%,x%-64|
00002610  2c 79 25 2b 32 30 3a e1  0d 13 38 8b dd f2 57 69  |,y%+20:...8...Wi|
00002620  6d 70 5f 4d 65 6e 75 50  6f 70 55 70 42 61 72 28  |mp_MenuPopUpBar(|
00002630  78 25 2c 79 25 29 3a ea  6e 25 3a 6e 25 3d 30 3a  |x%,y%):.n%:n%=0:|
00002640  c8 95 28 28 42 61 72 5f  4d 65 6e 75 25 21 28 32  |..((Bar_Menu%!(2|
00002650  38 2b 6e 25 2a 32 34 29  29 80 25 31 30 30 30 30  |8+n%*24)).%10000|
00002660  30 30 30 29 3d 30 3a 6e  25 2b 3d 31 3a ce 3a c8  |000)=0:n%+=1:.:.|
00002670  99 26 34 30 30 44 34 2c  2c 42 61 72 5f 4d 65 6e  |.&400D4,,Bar_Men|
00002680  75 25 2c 78 25 2d 36 34  2c 39 36 2b 6e 25 2a 34  |u%,x%-64,96+n%*4|
00002690  34 3a 6d 65 6e 75 25 3d  42 61 72 5f 4d 65 6e 75  |4:menu%=Bar_Menu|
000026a0  25 3a e1 0d 13 88 56 dd  f2 57 69 6d 70 5f 4d 65  |%:....V..Wimp_Me|
000026b0  6e 75 54 69 63 6b 28 6d  65 6e 75 25 2c 69 74 65  |nuTick(menu%,ite|
000026c0  6d 25 29 3a 6d 65 6e 75  25 21 28 32 38 2b 28 69  |m%):menu%!(28+(i|
000026d0  74 65 6d 25 2d 31 29 2a  32 34 29 3d 28 6d 65 6e  |tem%-1)*24)=(men|
000026e0  75 25 21 28 32 38 2b 28  69 74 65 6d 25 2d 31 29  |u%!(28+(item%-1)|
000026f0  2a 32 34 29 29 82 31 3a  e1 0d 13 a6 3a dd f2 57  |*24)).1:....:..W|
00002700  69 6d 70 5f 4d 65 6e 75  54 69 74 6c 65 28 6d 65  |imp_MenuTitle(me|
00002710  6e 75 25 2c 74 69 74 6c  65 24 29 3a 24 6d 65 6e  |nu%,title$):$men|
00002720  75 25 3d c0 74 69 74 6c  65 24 2c 31 32 29 2b bd  |u%=.title$,12)+.|
00002730  30 3a e1 0d 13 c4 e2 dd  f2 57 69 6d 70 5f 4d 65  |0:.......Wimp_Me|
00002740  6e 75 57 72 69 74 65 28  6d 65 6e 75 25 2c 69 74  |nuWrite(menu%,it|
00002750  65 6d 25 2c 62 75 66 66  65 72 25 2c 76 61 6c 25  |em%,buffer%,val%|
00002760  2c 42 75 66 66 65 72 4c  65 6e 67 74 68 25 29 3a  |,BufferLength%):|
00002770  6d 65 6e 75 25 21 28 32  38 2b 28 69 74 65 6d 25  |menu%!(28+(item%|
00002780  2d 31 29 2a 32 34 29 3d  28 6d 65 6e 75 25 21 28  |-1)*24)=(menu%!(|
00002790  32 38 2b 28 69 74 65 6d  25 2d 31 29 2a 32 34 29  |28+(item%-1)*24)|
000027a0  29 84 34 3a 6d 65 6e 75  25 21 28 33 36 2b 28 69  |).4:menu%!(36+(i|
000027b0  74 65 6d 25 2d 31 29 2a  32 34 29 3d 6d 65 6e 75  |tem%-1)*24)=menu|
000027c0  25 21 28 33 36 2b 28 69  74 65 6d 25 2d 31 29 2a  |%!(36+(item%-1)*|
000027d0  32 34 29 84 26 31 30 30  3a 6d 65 6e 75 25 21 28  |24).&100:menu%!(|
000027e0  34 30 2b 28 69 74 65 6d  25 2d 31 29 2a 32 34 29  |40+(item%-1)*24)|
000027f0  3d 62 75 66 66 65 72 25  3a 6d 65 6e 75 25 21 28  |=buffer%:menu%!(|
00002800  34 34 2b 28 69 74 65 6d  25 2d 31 29 2a 32 34 29  |44+(item%-1)*24)|
00002810  3d 76 61 6c 25 0d 13 f6  2b 6d 65 6e 75 25 21 28  |=val%...+menu%!(|
00002820  34 38 2b 28 69 74 65 6d  25 2d 31 29 2a 32 34 29  |48+(item%-1)*24)|
00002830  3d 42 75 66 66 65 72 4c  65 6e 67 74 68 25 3a e1  |=BufferLength%:.|
00002840  0d 14 0a 5f dd f2 57 69  6d 70 5f 53 70 72 69 74  |..._..Wimp_Sprit|
00002850  65 73 4c 6f 61 64 3a f2  57 69 6d 70 5f 53 70 72  |esLoad:.Wimp_Spr|
00002860  69 74 65 73 50 61 74 68  4c 6f 61 64 28 22 3c 55  |itesPathLoad("<U|
00002870  6e 6c 6f 63 6b 24 44 69  72 3e 2e 53 70 72 69 74  |nlock$Dir>.Sprit|
00002880  65 73 22 29 3a 64 69 72  65 63 74 5f 73 70 72 69  |es"):direct_spri|
00002890  74 65 73 25 3d 73 70 72  69 74 65 73 25 3a e1 0d  |tes%=sprites%:..|
000028a0  14 32 bb dd f2 57 69 6d  70 5f 53 70 72 69 74 65  |.2...Wimp_Sprite|
000028b0  73 50 61 74 68 4c 6f 61  64 28 70 61 74 68 6e 61  |sPathLoad(pathna|
000028c0  6d 65 24 29 3a ea 53 25  2c 54 25 3a 53 25 3d 8e  |me$):.S%,T%:S%=.|
000028d0  22 3c 55 6e 6c 6f 63 6b  24 44 69 72 3e 2e 53 70  |"<Unlock$Dir>.Sp|
000028e0  72 69 74 65 73 22 3a 54  25 3d a2 23 53 25 2b 31  |rites":T%=.#S%+1|
000028f0  36 3a d9 23 53 25 3a de  73 70 72 69 74 65 73 25  |6:.#S%:.sprites%|
00002900  54 25 2c 73 70 6e 61 6d  65 25 31 32 3a 21 73 70  |T%,spname%12:!sp|
00002910  72 69 74 65 73 25 3d 54  25 3a 73 70 72 69 74 65  |rites%=T%:sprite|
00002920  73 25 21 38 3d 30 3a c8  99 26 32 45 2c 26 31 30  |s%!8=0:..&2E,&10|
00002930  39 2c 73 70 72 69 74 65  73 25 3a c8 99 26 32 45  |9,sprites%:..&2E|
00002940  2c 26 31 30 41 2c 73 70  72 69 74 65 73 25 2c 70  |,&10A,sprites%,p|
00002950  61 74 68 6e 61 6d 65 24  3a e1 0d 14 82 23 dd a4  |athname$:....#..|
00002960  57 69 6d 70 5f 46 69 6c  65 54 79 70 65 28 74 79  |Wimp_FileType(ty|
00002970  70 65 25 29 3a c8 8e 74  79 70 65 25 ca 0d 14 96  |pe%):..type%....|
00002980  11 c9 26 46 46 46 3a 3d  22 54 65 78 74 22 0d 14  |..&FFF:="Text"..|
00002990  a0 11 c9 26 46 46 44 3a  3d 22 44 61 74 61 22 0d  |...&FFD:="Data".|
000029a0  14 aa 12 c9 26 46 46 42  3a 3d 22 42 61 73 69 63  |....&FFB:="Basic|
000029b0  22 0d 14 b4 13 c9 26 46  46 39 3a 3d 22 53 70 72  |".....&FF9:="Spr|
000029c0  69 74 65 22 0d 14 be 14  c9 26 46 45 44 3a 3d 22  |ite".....&FED:="|
000029d0  50 61 6c 65 74 74 65 22  0d 14 c8 15 c9 26 46 45  |Palette".....&FE|
000029e0  43 3a 3d 22 54 65 6d 70  6c 61 74 65 22 0d 14 d2  |C:="Template"...|
000029f0  11 c9 26 41 46 46 3a 3d  22 44 72 61 77 22 0d 14  |..&AFF:="Draw"..|
00002a00  dc 14 c9 26 31 30 30 30  3a 3d 22 46 6f 6c 64 65  |...&1000:="Folde|
00002a10  72 22 0d 14 e6 19 c9 26  32 30 30 30 3a 3d 22 41  |r".....&2000:="A|
00002a20  70 70 6c 69 63 61 74 69  6f 6e 22 0d 14 f0 0f 7f  |pplication".....|
00002a30  3d c3 7e 28 74 79 70 65  25 29 0d 14 fa 05 cb 0d  |=.~(type%)......|
00002a40  15 04 3e dd a4 57 69 6d  70 5f 47 65 74 46 69 6c  |..>..Wimp_GetFil|
00002a50  65 50 61 74 68 4e 61 6d  65 3a 3d a4 57 69 6d 70  |ePathName:=.Wimp|
00002a60  5f 47 65 74 53 74 72 69  6e 67 41 74 41 64 64 72  |_GetStringAtAddr|
00002a70  65 73 73 28 77 69 6d 70  25 2b 34 34 29 0d 15 18  |ess(wimp%+44)...|
00002a80  78 dd a4 57 69 6d 70 5f  46 69 6c 65 4c 6f 61 64  |x..Wimp_FileLoad|
00002a90  28 70 61 74 68 6e 61 6d  65 24 29 3a ea 53 25 2c  |(pathname$):.S%,|
00002aa0  54 25 2c 66 69 6c 65 25  3a 53 25 3d 8e 70 61 74  |T%,file%:S%=.pat|
00002ab0  68 6e 61 6d 65 24 3a 54  25 3d a2 23 53 25 2b 31  |hname$:T%=.#S%+1|
00002ac0  36 3a d9 23 53 25 3a de  66 69 6c 65 25 54 25 3a  |6:.#S%:.file%T%:|
00002ad0  ff 28 22 4c 4f 41 44 22  2b 70 61 74 68 6e 61 6d  |.("LOAD"+pathnam|
00002ae0  65 24 2b 22 22 2b c3 7e  66 69 6c 65 25 29 3a 3d  |e$+""+.~file%):=|
00002af0  66 69 6c 65 25 0d 15 72  6b dd a4 57 69 6d 70 5f  |file%..rk..Wimp_|
00002b00  47 65 74 53 74 72 69 6e  67 41 74 41 64 64 72 65  |GetStringAtAddre|
00002b10  73 73 28 61 72 72 61 79  25 29 3a ea 73 24 3a 73  |ss(array%):.s$:s|
00002b20  24 3d 22 22 3a c8 95 28  3f 61 72 72 61 79 25 3c  |$="":..(?array%<|
00002b30  3e 31 33 29 80 28 3f 61  72 72 61 79 25 3c 3e 30  |>13).(?array%<>0|
00002b40  29 3a 73 24 2b 3d bd 28  3f 61 72 72 61 79 25 29  |):s$+=.(?array%)|
00002b50  3a 61 72 72 61 79 25 2b  3d 31 3a ce 3a 3d 73 24  |:array%+=1:.:=s$|
00002b60  0d 15 9a 2f dd a4 57 69  6d 70 5f 47 65 74 46 69  |.../..Wimp_GetFi|
00002b70  6c 65 46 72 6f 6d 50 61  74 68 6e 61 6d 65 28 66  |leFromPathname(f|
00002b80  24 29 3a c8 8e a7 66 24  2c 22 2e 22 29 20 ca 0d  |$):...f$,".") ..|
00002b90  15 ae 0a c9 30 3a 3d 66  24 0d 15 b8 35 7f 3a 3d  |....0:=f$...5.:=|
00002ba0  a4 57 69 6d 70 5f 47 65  74 46 69 6c 65 46 72 6f  |.Wimp_GetFileFro|
00002bb0  6d 50 61 74 68 6e 61 6d  65 28 c2 66 24 2c a9 28  |mPathname(.f$,.(|
00002bc0  66 24 29 2d a7 66 24 2c  22 2e 22 29 29 29 0d 15  |f$)-.f$,".")))..|
00002bd0  c2 05 cb 0d 15 cc 9d dd  f2 57 69 6d 70 5f 53 65  |.........Wimp_Se|
00002be0  6e 64 54 6f 45 64 69 74  28 66 69 6c 65 24 29 3a  |ndToEdit(file$):|
00002bf0  ea 6e 25 3a 77 69 6d 70  25 21 34 3d 26 36 43 43  |.n%:wimp%!4=&6CC|
00002c00  30 31 43 30 43 3a 77 69  6d 70 25 21 31 36 3d 35  |01C0C:wimp%!16=5|
00002c10  3a 77 69 6d 70 25 21 33  36 3d 30 3a 77 69 6d 70  |:wimp%!36=0:wimp|
00002c20  25 21 34 30 3d 26 46 46  46 3a 24 28 77 69 6d 70  |%!40=&FFF:$(wimp|
00002c30  25 2b 34 34 29 3d 66 69  6c 65 24 2b bd 30 3a 6e  |%+44)=file$+.0:n|
00002c40  25 3d a9 66 69 6c 65 24  2b 34 35 3a e7 6e 25 83  |%=.file$+45:.n%.|
00002c50  34 20 8c 21 77 69 6d 70  25 3d 34 2b 28 6e 25 3e  |4 .!wimp%=4+(n%>|
00002c60  3e 32 29 3c 3c 32 8b 21  77 69 6d 70 25 3d 6e 25  |>2)<<2.!wimp%=n%|
00002c70  0d 16 26 19 c8 99 26 34  30 30 45 37 2c 31 37 2c  |..&...&400E7,17,|
00002c80  77 69 6d 70 25 2c 30 3a  e1 0d 16 3a 73 dd f2 57  |wimp%,0:...:s..W|
00002c90  69 6d 70 5f 53 74 61 72  74 28 54 61 73 6b 4e 61  |imp_Start(TaskNa|
00002ca0  6d 65 24 2c 77 69 6d 70  5f 6d 65 6d 6f 72 79 25  |me$,wimp_memory%|
00002cb0  2c 69 63 6f 6e 25 29 3a  de 77 69 6d 70 25 20 77  |,icon%):.wimp% w|
00002cc0  69 6d 70 5f 6d 65 6d 6f  72 79 25 2c 69 63 6f 6e  |imp_memory%,icon|
00002cd0  73 25 20 69 63 6f 6e 25  3a e7 77 69 6d 70 5f 6d  |s% icon%:.wimp_m|
00002ce0  65 6d 6f 72 79 25 3c 32  35 36 20 8c 77 69 6d 70  |emory%<256 .wimp|
00002cf0  5f 6d 65 6d 6f 72 79 25  3d 32 35 36 0d 16 58 7b  |_memory%=256..X{|
00002d00  69 63 6f 6e 5f 6d 65 6d  6f 72 79 25 3d 69 63 6f  |icon_memory%=ico|
00002d10  6e 73 25 2b 69 63 6f 6e  25 3a 74 61 73 6b 24 3d  |ns%+icon%:task$=|
00002d20  54 61 73 6b 4e 61 6d 65  24 3a 69 6e 64 69 72 65  |TaskName$:indire|
00002d30  63 74 5f 73 70 72 69 74  65 73 25 3d 31 3a 64 69  |ct_sprites%=1:di|
00002d40  72 65 63 74 5f 73 70 72  69 74 65 73 25 3d 31 3a  |rect_sprites%=1:|
00002d50  f2 57 69 6d 70 5f 53 65  74 45 76 65 6e 74 56 61  |.Wimp_SetEventVa|
00002d60  72 69 61 62 6c 65 73 3a  ee 85 f2 57 69 6d 70 5f  |riables:...Wimp_|
00002d70  45 72 72 6f 72 3a e0 0d  16 8a 36 c8 99 26 34 30  |Error:....6..&40|
00002d80  30 43 30 2c 32 30 30 2c  26 34 42 35 33 34 31 35  |0C0,200,&4B53415|
00002d90  34 2c 54 61 73 6b 4e 61  6d 65 24 20 b8 76 65 72  |4,TaskName$ .ver|
00002da0  73 69 6f 6e 25 2c 74 61  73 6b 25 3a e1 0d 16 9e  |sion%,task%:....|
00002db0  84 dd a4 57 69 6d 70 5f  42 41 53 49 43 50 61 72  |...Wimp_BASICPar|
00002dc0  61 6d 65 74 65 72 73 3a  ea 63 6f 6d 24 2c 70 61  |ameters:.com$,pa|
00002dd0  72 61 6d 24 2c 49 25 3a  c8 99 26 31 30 20 b8 63  |ram$,I%:..&10 .c|
00002de0  6f 6d 24 3a 70 61 72 61  6d 73 24 3d 22 22 3a 49  |om$:params$="":I|
00002df0  25 3d a7 63 6f 6d 24 2c  22 20 2d 71 75 69 74 20  |%=.com$," -quit |
00002e00  22 29 3a e7 49 25 20 8c  70 61 72 61 6d 73 24 3d  |"):.I% .params$=|
00002e10  c1 63 6f 6d 24 2c a7 63  6f 6d 24 2c 22 20 22 2c  |.com$,.com$," ",|
00002e20  49 25 2b a9 22 20 2d 71  75 69 74 20 22 29 2b 31  |I%+." -quit ")+1|
00002e30  29 0d 16 da 0c 3d 70 61  72 61 6d 73 24 0d 16 e4  |)....=params$...|
00002e40  f0 dd f2 57 69 6d 70 5f  53 65 74 45 76 65 6e 74  |...Wimp_SetEvent|
00002e50  56 61 72 69 61 62 6c 65  73 3a de 70 6f 69 6e 74  |Variables:.point|
00002e60  65 72 5f 62 6c 6f 63 6b  25 20 32 30 3a 69 6e 74  |er_block% 20:int|
00002e70  65 72 66 61 63 65 25 3d  a3 3a 6e 75 6c 6c 25 3d  |erface%=.:null%=|
00002e80  31 3a 64 72 61 77 25 3d  32 3a 70 6f 69 6e 74 65  |1:draw%=2:pointe|
00002e90  72 5f 6c 65 61 76 69 6e  67 25 3d 31 3c 3c 34 3a  |r_leaving%=1<<4:|
00002ea0  70 6f 69 6e 74 65 72 5f  65 6e 74 65 72 69 6e 67  |pointer_entering|
00002eb0  25 3d 31 3c 3c 35 3a 6d  6f 75 73 65 25 3d 31 3c  |%=1<<5:mouse%=1<|
00002ec0  3c 36 3a 64 72 61 67 25  3d 31 3c 3c 37 3a 6b 65  |<6:drag%=1<<7:ke|
00002ed0  79 25 3d 31 3c 3c 38 3a  6d 65 6e 75 25 3d 31 3c  |y%=1<<8:menu%=1<|
00002ee0  3c 39 3a 73 63 72 6f 6c  6c 25 3d 31 3c 3c 31 30  |<9:scroll%=1<<10|
00002ef0  3a 6c 6f 73 65 5f 63 61  72 65 74 25 3d 31 3c 3c  |:lose_caret%=1<<|
00002f00  31 31 3a 67 61 69 6e 5f  63 61 72 65 74 25 3d 31  |11:gain_caret%=1|
00002f10  3c 3c 31 32 3a 6d 65 73  73 61 67 65 25 3d 28 31  |<<12:message%=(1|
00002f20  3c 3c 31 37 29 2b 28 31  3c 3c 31 38 29 0d 17 2a  |<<17)+(1<<18)..*|
00002f30  ea 72 65 63 6f 72 64 65  72 25 3d 31 3c 3c 31 38  |.recorder%=1<<18|
00002f40  3a 61 63 6b 6e 6f 77 6c  65 64 67 65 25 3d 31 3c  |:acknowledge%=1<|
00002f50  3c 31 39 3a 77 69 6e 64  6f 77 25 3d 30 3a 73 70  |<19:window%=0:sp|
00002f60  72 69 74 65 73 25 3d 31  3a 76 65 72 73 69 6f 6e  |rites%=1:version|
00002f70  25 3d 30 3a 74 61 73 6b  25 3d 30 3a 42 61 72 5f  |%=0:task%=0:Bar_|
00002f80  57 69 6e 64 6f 77 25 3d  2d 32 3a 42 61 72 5f 49  |Window%=-2:Bar_I|
00002f90  63 6f 6e 25 3d 30 3a 42  61 72 5f 4d 65 6e 75 25  |con%=0:Bar_Menu%|
00002fa0  3d 30 3a 78 5f 6f 72 69  67 69 6e 25 3d 30 3a 79  |=0:x_origin%=0:y|
00002fb0  5f 6f 72 69 67 69 6e 25  3d 30 3a 53 61 76 65 57  |_origin%=0:SaveW|
00002fc0  69 6e 64 6f 77 25 3d 2d  33 3a 6d 65 73 73 61 67  |indow%=-3:messag|
00002fd0  65 5f 71 75 69 74 25 3d  30 3a 6d 65 73 73 61 67  |e_quit%=0:messag|
00002fe0  65 5f 73 61 76 65 25 3d  32 3a 6d 65 73 73 61 67  |e_save%=2:messag|
00002ff0  65 5f 6c 6f 61 64 25 3d  33 3a 6d 6f 75 73 65 5f  |e_load%=3:mouse_|
00003000  62 75 74 74 6f 6e 25 3d  32 3a 73 61 76 65 5f 65  |button%=2:save_e|
00003010  76 65 6e 74 25 3d 30 0d  17 66 20 74 6f 70 5f 6c  |vent%=0..f top_l|
00003020  69 6e 65 25 3d 30 3a 62  6f 74 74 6f 6d 5f 6c 69  |ine%=0:bottom_li|
00003030  6e 65 25 3d 30 3a e1 0d  17 7a 1b dd f2 57 69 6d  |ne%=0:...z...Wim|
00003040  70 5f 45 72 72 6f 72 3a  ea 58 24 2c 78 25 3a ee  |p_Error:.X$,x%:.|
00003050  85 87 0d 17 98 cf 78 25  3d 9e 3a 58 24 3d f6 24  |......x%=.:X$=.$|
00003060  2b 22 61 74 6c 69 6e 65  22 2b c3 28 78 25 81 31  |+"atline"+.(x%.1|
00003070  30 29 3a de 45 72 72 6f  72 4d 73 67 25 33 36 3a  |0):.ErrorMsg%36:|
00003080  45 72 72 6f 72 4d 73 67  25 21 30 3d 33 36 3a 45  |ErrorMsg%!0=36:E|
00003090  72 72 6f 72 4d 73 67 25  21 31 32 3d 30 3a 45 72  |rrorMsg%!12=0:Er|
000030a0  72 6f 72 4d 73 67 25 21  31 36 3d 26 38 31 30 38  |rorMsg%!16=&8108|
000030b0  30 3a 45 72 72 6f 72 4d  73 67 25 21 32 30 3d 78  |0:ErrorMsg%!20=x|
000030c0  25 3a 24 28 45 72 72 6f  72 4d 73 67 25 2b 32 34  |%:$(ErrorMsg%+24|
000030d0  29 3d 22 21 52 75 6e 49  6d 61 67 65 22 3a c8 99  |)="!RunImage":..|
000030e0  26 34 30 30 45 37 2c 31  37 2c 45 72 72 6f 72 4d  |&400E7,17,ErrorM|
000030f0  73 67 25 3a f2 57 69 6d  70 5f 57 69 6e 64 6f 77  |sg%:.Wimp_Window|
00003100  41 6c 65 72 74 28 74 61  73 6b 24 2c 58 24 29 3a  |Alert(task$,X$):|
00003110  f2 57 69 6d 70 5f 43 6c  6f 73 65 44 6f 77 6e 3a  |.Wimp_CloseDown:|
00003120  e1 0d 17 f2 2c dd f2 57  69 6d 70 5f 43 6c 6f 73  |....,..Wimp_Clos|
00003130  65 44 6f 77 6e 3a c8 99  26 34 30 30 44 44 2c 74  |eDown:..&400DD,t|
00003140  61 73 6b 25 2c 22 54 41  53 4b 22 3a e1 0d 18 10  |ask%,"TASK":....|
00003150  1d dd f2 57 69 6d 70 5f  51 75 69 74 3a 66 69 6e  |...Wimp_Quit:fin|
00003160  69 73 68 65 64 25 3d b9  3a e1 0d 18 2e 91 dd a4  |ished%=.:.......|
00003170  57 69 6d 70 5f 52 65 61  64 56 61 72 69 61 62 6c  |Wimp_ReadVariabl|
00003180  65 28 56 61 72 69 61 62  6c 65 24 29 3a ea 6c 65  |e(Variable$):.le|
00003190  6e 25 2c 72 65 73 75 6c  74 25 2c 76 61 72 69 61  |n%,result%,varia|
000031a0  62 6c 65 25 3a 24 77 69  6d 70 25 3d 56 61 72 69  |ble%:$wimp%=Vari|
000031b0  61 62 6c 65 24 3a c8 99  26 32 33 2c 77 69 6d 70  |able$:..&23,wimp|
000031c0  25 2c 77 69 6d 70 25 2b  32 35 35 2c 32 35 35 2c  |%,wimp%+255,255,|
000031d0  2c 33 b8 2c 2c 6c 65 6e  25 3a 77 69 6d 70 25 3f  |,3.,,len%:wimp%?|
000031e0  28 6c 65 6e 25 2b 32 35  35 29 3d 31 33 3a 3d 24  |(len%+255)=13:=$|
000031f0  28 77 69 6d 70 25 2b 32  35 35 29 0d 18 6a 6f dd  |(wimp%+255)..jo.|
00003200  f2 57 69 6d 70 5f 57 61  69 74 46 6f 72 45 76 65  |.Wimp_WaitForEve|
00003210  6e 74 3a ea 6d 61 73 6b  25 2c 65 76 65 6e 74 25  |nt:.mask%,event%|
00003220  3a 66 69 6e 69 73 68 65  64 25 3d a3 3a 6d 61 73  |:finished%=.:mas|
00003230  6b 25 3d 25 31 31 31 30  30 30 30 31 31 30 30 31  |k%=%111000011001|
00003240  3a f5 3a c8 99 26 34 30  30 43 37 2c 6d 61 73 6b  |:.:..&400C7,mask|
00003250  25 2c 77 69 6d 70 25 20  b8 65 76 65 6e 74 25 3a  |%,wimp% .event%:|
00003260  c8 8e 65 76 65 6e 74 25  20 ca 0d 18 b0 06 c9 30  |..event% ......0|
00003270  0d 18 ba 1b c9 31 3a f2  57 69 6d 70 5f 50 6f 6c  |.....1:.Wimp_Pol|
00003280  6c 44 72 61 77 57 69 6e  64 6f 77 0d 18 c4 16 c9  |lDrawWindow.....|
00003290  32 3a c8 99 26 34 30 30  43 35 2c 2c 77 69 6d 70  |2:..&400C5,,wimp|
000032a0  25 0d 18 ce 1c c9 33 3a  f2 57 69 6d 70 5f 50 6f  |%.....3:.Wimp_Po|
000032b0  6c 6c 43 6c 6f 73 65 57  69 6e 64 6f 77 0d 18 d8  |llCloseWindow...|
000032c0  06 c9 34 0d 18 e2 06 c9  35 0d 18 ec 1b c9 36 3a  |..4.....5.....6:|
000032d0  f2 57 69 6d 70 5f 50 6f  6c 6c 4d 6f 75 73 65 43  |.Wimp_PollMouseC|
000032e0  6c 69 63 6b 0d 18 f6 1c  c9 37 3a f2 57 69 6d 70  |lick.....7:.Wimp|
000032f0  5f 50 6f 6c 6c 53 61 76  65 4d 65 73 73 61 67 65  |_PollSaveMessage|
00003300  0d 19 00 19 c9 38 3a f2  57 69 6d 70 5f 50 6f 6c  |.....8:.Wimp_Pol|
00003310  6c 4b 65 79 50 72 65 73  73 0d 19 0a 1f c9 39 3a  |lKeyPress.....9:|
00003320  f2 45 76 65 6e 74 5f 4d  65 6e 75 43 68 6f 69 63  |.Event_MenuChoic|
00003330  65 28 6d 65 6e 75 25 29  0d 19 14 07 c9 31 30 0d  |e(menu%).....10.|
00003340  19 1e 07 c9 31 31 0d 19  28 07 c9 31 32 0d 19 32  |....11..(..12..2|
00003350  1d c9 31 37 2c 31 38 3a  f2 57 69 6d 70 5f 50 6f  |..17,18:.Wimp_Po|
00003360  6c 6c 4d 65 73 73 61 67  65 73 0d 19 3c 07 c9 31  |llMessages..<..1|
00003370  39 0d 19 46 12 cb 3a fd  66 69 6e 69 73 68 65 64  |9..F..:.finished|
00003380  25 3a e1 0d 19 64 b6 dd  f2 57 69 6d 70 5f 50 6f  |%:...d...Wimp_Po|
00003390  6c 6c 44 72 61 77 57 69  6e 64 6f 77 3a ea 6d 6f  |llDrawWindow:.mo|
000033a0  72 65 25 3a c8 99 26 34  30 30 43 38 2c 2c 77 69  |re%:..&400C8,,wi|
000033b0  6d 70 25 b8 6d 6f 72 65  25 3a 77 69 6e 64 6f 77  |mp%.more%:window|
000033c0  25 3d 77 69 6d 70 25 21  30 3a 78 5f 6f 72 69 67  |%=wimp%!0:x_orig|
000033d0  69 6e 25 3d 31 36 2b 77  69 6d 70 25 21 34 2d 77  |in%=16+wimp%!4-w|
000033e0  69 6d 70 25 21 32 30 3a  79 5f 6f 72 69 67 69 6e  |imp%!20:y_origin|
000033f0  25 3d 2d 31 36 2b 77 69  6d 70 25 21 31 36 2d 77  |%=-16+wimp%!16-w|
00003400  69 6d 70 25 21 32 34 3a  c8 95 6d 6f 72 65 25 3a  |imp%!24:..more%:|
00003410  e7 69 6e 74 65 72 66 61  63 65 25 20 8c c8 99 22  |.interface% ..."|
00003420  57 69 6d 70 5f 42 6f 72  64 65 72 57 69 6e 64 6f  |Wimp_BorderWindo|
00003430  77 22 2c 2c 77 69 6d 70  25 0d 19 aa 46 f2 45 76  |w",,wimp%...F.Ev|
00003440  65 6e 74 5f 44 72 61 77  28 77 69 6e 64 6f 77 25  |ent_Draw(window%|
00003450  2c 78 5f 6f 72 69 67 69  6e 25 2c 79 5f 6f 72 69  |,x_origin%,y_ori|
00003460  67 69 6e 25 29 3a c8 99  26 34 30 30 43 41 2c 2c  |gin%):..&400CA,,|
00003470  77 69 6d 70 25 b8 6d 6f  72 65 25 3a ce 3a e1 0d  |wimp%.more%:.:..|
00003480  19 d2 92 dd f2 57 69 6d  70 5f 50 6f 6c 6c 43 6c  |.....Wimp_PollCl|
00003490  6f 73 65 57 69 6e 64 6f  77 3a c8 99 26 34 30 30  |oseWindow:..&400|
000034a0  43 46 2c 2c 77 69 6d 70  25 3a 77 69 6e 64 6f 77  |CF,,wimp%:window|
000034b0  25 3d 77 69 6d 70 25 21  31 32 3a 62 75 74 74 6f  |%=wimp%!12:butto|
000034c0  6e 73 25 3d 77 69 6d 70  25 21 38 3a f2 45 76 65  |ns%=wimp%!8:.Eve|
000034d0  6e 74 5f 57 69 6e 64 6f  77 43 6c 6f 73 65 28 77  |nt_WindowClose(w|
000034e0  69 6e 64 6f 77 25 2c 62  75 74 74 6f 6e 73 25 29  |indow%,buttons%)|
000034f0  3a 21 77 69 6d 70 25 3d  77 69 6e 64 6f 77 25 3a  |:!wimp%=window%:|
00003500  c8 99 26 34 30 30 43 36  2c 2c 77 69 6d 70 25 3a  |..&400C6,,wimp%:|
00003510  e1 0d 1a 0e 6b dd f2 57  69 6d 70 5f 50 6f 6c 6c  |....k..Wimp_Poll|
00003520  4d 6f 75 73 65 43 6c 69  63 6b 3a 62 75 74 74 6f  |MouseClick:butto|
00003530  6e 25 3d 77 69 6d 70 25  21 38 3a 77 69 6e 64 6f  |n%=wimp%!8:windo|
00003540  77 25 3d 77 69 6d 70 25  21 31 32 3a 69 63 6f 6e  |w%=wimp%!12:icon|
00003550  25 3d 77 69 6d 70 25 21  31 36 3a 78 25 3d 77 69  |%=wimp%!16:x%=wi|
00003560  6d 70 25 21 30 3a 79 25  3d 77 69 6d 70 25 21 34  |mp%!0:y%=wimp%!4|
00003570  3a c8 8e 62 75 74 74 6f  6e 25 20 ca 0d 1a 2c 1a  |:..button% ...,.|
00003580  c9 32 3a f2 57 69 6d 70  5f 50 6f 6c 6c 4d 65 6e  |.2:.Wimp_PollMen|
00003590  75 50 6f 70 55 70 0d 1a  36 1e 7f 3a c8 8e a4 45  |uPopUp..6..:...E|
000035a0  76 65 6e 74 5f 53 61 76  65 28 77 69 6e 64 6f 77  |vent_Save(window|
000035b0  25 29 20 ca 0d 1a 40 1a  c9 b9 3a f2 57 69 6d 70  |%) ...@...:.Wimp|
000035c0  5f 50 6f 6c 6c 4d 6f 75  73 65 53 61 76 65 0d 1a  |_PollMouseSave..|
000035d0  4a 20 c9 a3 3a f2 57 69  6d 70 5f 50 6f 6c 6c 45  |J ..:.Wimp_PollE|
000035e0  76 65 6e 74 4d 6f 75 73  65 43 6c 69 63 6b 0d 1a  |ventMouseClick..|
000035f0  54 05 cb 0d 1a 5e 07 cb  3a e1 0d 1a 72 3d dd f2  |T....^..:...r=..|
00003600  57 69 6d 70 5f 50 6f 6c  6c 4d 65 6e 75 50 6f 70  |Wimp_PollMenuPop|
00003610  55 70 3a 6d 65 6e 75 25  3d a4 45 76 65 6e 74 5f  |Up:menu%=.Event_|
00003620  4d 65 6e 75 28 77 69 6e  64 6f 77 25 29 3a c8 8e  |Menu(window%):..|
00003630  6d 65 6e 75 25 20 ca 0d  1a 90 06 c9 a3 0d 1a 9a  |menu% ..........|
00003640  11 7f 3a c8 8e 77 69 6e  64 6f 77 25 20 ca 0d 1a  |..:..window% ...|
00003650  ae 5e c9 2d 32 3a 6e 25  3d 30 3a c8 95 28 28 42  |.^.-2:n%=0:..((B|
00003660  61 72 5f 4d 65 6e 75 25  21 28 32 38 2b 6e 25 2a  |ar_Menu%!(28+n%*|
00003670  32 34 29 29 80 25 31 30  30 30 30 30 30 30 29 3d  |24)).%10000000)=|
00003680  30 3a 6e 25 2b 3d 31 3a  ce 3a c8 99 26 34 30 30  |0:n%+=1:.:..&400|
00003690  44 34 2c 2c 42 61 72 5f  4d 65 6e 75 25 2c 78 25  |D4,,Bar_Menu%,x%|
000036a0  2d 36 34 2c 39 36 2b 6e  25 2a 34 34 0d 1a e0 21  |-64,96+n%*44...!|
000036b0  7f 3a c8 99 26 34 30 30  44 34 2c 2c 6d 65 6e 75  |.:..&400D4,,menu|
000036c0  25 2c 78 25 2d 36 34 2c  79 25 2b 32 30 0d 1a ea  |%,x%-64,y%+20...|
000036d0  05 cb 0d 1a f4 07 cb 3a  e1 0d 1b 08 22 dd f2 57  |.......:...."..W|
000036e0  69 6d 70 5f 50 6f 6c 6c  4d 6f 75 73 65 53 61 76  |imp_PollMouseSav|
000036f0  65 3a c8 8e 69 63 6f 6e  25 20 ca 0d 1b 1c 30 c9  |e:..icon% ....0.|
00003700  30 3a e7 62 75 74 74 6f  6e 25 20 80 26 35 30 20  |0:.button% .&50 |
00003710  8c f2 57 69 6d 70 5f 50  6f 6c 6c 44 72 61 67 42  |..Wimp_PollDragB|
00003720  6f 78 28 77 69 6e 64 6f  77 25 29 0d 1b 26 2f c9  |ox(window%)..&/.|
00003730  32 3a e7 62 75 74 74 6f  6e 25 20 80 35 20 8c f2  |2:.button% .5 ..|
00003740  57 69 6d 70 5f 50 6f 6c  6c 53 61 76 65 46 69 6c  |Wimp_PollSaveFil|
00003750  65 28 77 69 6e 64 6f 77  25 29 0d 1b 30 07 cb 3a  |e(window%)..0..:|
00003760  e1 0d 1b 44 46 dd f2 57  69 6d 70 5f 50 6f 6c 6c  |...DF..Wimp_Poll|
00003770  45 76 65 6e 74 4d 6f 75  73 65 43 6c 69 63 6b 3a  |EventMouseClick:|
00003780  e7 69 6e 74 65 72 66 61  63 65 25 20 8c c8 99 22  |.interface% ..."|
00003790  57 69 6d 70 5f 42 6f 72  64 65 72 49 63 6f 6e 22  |Wimp_BorderIcon"|
000037a0  2c 2c 77 69 6d 70 25 0d  1b 58 41 f2 45 76 65 6e  |,,wimp%..XA.Even|
000037b0  74 5f 4d 6f 75 73 65 43  6c 69 63 6b 28 77 69 6e  |t_MouseClick(win|
000037c0  64 6f 77 25 2c 69 63 6f  6e 25 2c 62 75 74 74 6f  |dow%,icon%,butto|
000037d0  6e 25 2c 78 25 2c 79 25  29 3a c8 8e 69 6e 74 65  |n%,x%,y%):..inte|
000037e0  72 66 61 63 65 25 20 ca  0d 1b 6c 61 c9 b9 3a 77  |rface% ...la..:w|
000037f0  69 6d 70 25 21 30 3d 78  25 3a 77 69 6d 70 25 21  |imp%!0=x%:wimp%!|
00003800  34 3d 79 25 3a 77 69 6d  70 25 21 38 3d 30 3a 77  |4=y%:wimp%!8=0:w|
00003810  69 6d 70 25 21 31 32 3d  77 69 6e 64 6f 77 25 3a  |imp%!12=window%:|
00003820  77 69 6d 70 25 21 31 36  3d 69 63 6f 6e 25 3a c8  |wimp%!16=icon%:.|
00003830  99 22 57 69 6d 70 5f 42  6f 72 64 65 72 49 63 6f  |."Wimp_BorderIco|
00003840  6e 22 2c 2c 77 69 6d 70  25 0d 1b 94 07 cb 3a e1  |n",,wimp%.....:.|
00003850  0d 1b a8 73 dd f2 57 69  6d 70 5f 50 6f 6c 6c 53  |...s..Wimp_PollS|
00003860  61 76 65 46 69 6c 65 28  77 69 6e 64 6f 77 25 29  |aveFile(window%)|
00003870  3a ea 66 69 6c 65 24 3a  77 69 6d 70 25 21 30 3d  |:.file$:wimp%!0=|
00003880  77 69 6e 64 6f 77 25 3a  77 69 6d 70 25 21 34 3d  |window%:wimp%!4=|
00003890  31 3a c8 99 26 34 30 30  43 45 2c 2c 77 69 6d 70  |1:..&400CE,,wimp|
000038a0  25 3a 66 69 6c 65 24 3d  24 28 77 69 6d 70 25 21  |%:file$=$(wimp%!|
000038b0  32 38 29 3a c8 8e a7 66  69 6c 65 24 2c 22 2e 22  |28):...file$,"."|
000038c0  29 20 ca 0d 1b da 58 c9  30 3a 24 28 77 69 6d 70  |) ....X.0:$(wimp|
000038d0  25 2b 34 29 3d 22 54 6f  20 73 61 76 65 2c 20 64  |%+4)="To save, d|
000038e0  72 61 67 20 74 68 65 20  69 63 6f 6e 20 74 6f 20  |rag the icon to |
000038f0  61 20 64 69 72 65 63 74  6f 72 79 20 77 69 6e 64  |a directory wind|
00003900  6f 77 22 3a c8 99 26 34  30 30 44 46 2c 77 69 6d  |ow":..&400DF,wim|
00003910  70 25 2c 31 36 2c 74 61  73 6b 24 0d 1b f8 24 7f  |p%,16,task$...$.|
00003920  3a f2 45 76 65 6e 74 5f  53 61 76 65 46 69 6c 65  |:.Event_SaveFile|
00003930  28 66 69 6c 65 24 2c 77  69 6e 64 6f 77 25 29 0d  |(file$,window%).|
00003940  1c 0c 13 cb 3a c8 99 26  34 30 30 44 34 2c 2d 31  |....:..&400D4,-1|
00003950  3a e1 0d 1c 2a d7 dd f2  57 69 6d 70 5f 50 6f 6c  |:...*...Wimp_Pol|
00003960  6c 44 72 61 67 42 6f 78  28 77 69 6e 64 6f 77 25  |lDragBox(window%|
00003970  29 3a ea 78 25 2c 79 25  3a 73 61 76 65 25 3d 77  |):.x%,y%:save%=w|
00003980  69 6e 64 6f 77 25 3a 21  77 69 6d 70 25 3d 77 69  |indow%:!wimp%=wi|
00003990  6e 64 6f 77 25 3a c8 99  26 34 30 30 43 42 2c 2c  |ndow%:..&400CB,,|
000039a0  77 69 6d 70 25 3a 78 25  3d 77 69 6d 70 25 21 34  |wimp%:x%=wimp%!4|
000039b0  2d 77 69 6d 70 25 21 32  30 3a 79 25 3d 77 69 6d  |-wimp%!20:y%=wim|
000039c0  70 25 21 31 36 2d 77 69  6d 70 25 21 32 34 3a 77  |p%!16-wimp%!24:w|
000039d0  69 6d 70 25 21 34 3d 30  3a c8 99 26 34 30 30 43  |imp%!4=0:..&400C|
000039e0  45 2c 2c 77 69 6d 70 25  3a 21 77 69 6d 70 25 3d  |E,,wimp%:!wimp%=|
000039f0  77 69 6e 64 6f 77 25 3a  77 69 6d 70 25 21 34 3d  |window%:wimp%!4=|
00003a00  35 3a 77 69 6d 70 25 21  38 3d 78 25 2b 77 69 6d  |5:wimp%!8=x%+wim|
00003a10  70 25 21 38 3a 77 69 6d  70 25 21 31 32 3d 79 25  |p%!8:wimp%!12=y%|
00003a20  2b 77 69 6d 70 25 21 31  32 0d 1c 98 7b 77 69 6d  |+wimp%!12...{wim|
00003a30  70 25 21 31 36 3d 78 25  2b 77 69 6d 70 25 21 31  |p%!16=x%+wimp%!1|
00003a40  36 3a 77 69 6d 70 25 21  32 30 3d 79 25 2b 77 69  |6:wimp%!20=y%+wi|
00003a50  6d 70 25 21 32 30 3a 77  69 6d 70 25 21 32 34 3d  |mp%!20:wimp%!24=|
00003a60  30 3a 77 69 6d 70 25 21  32 38 3d 30 3a 77 69 6d  |0:wimp%!28=0:wim|
00003a70  70 25 21 33 32 3d 26 37  46 46 46 46 46 46 46 3a  |p%!32=&7FFFFFFF:|
00003a80  77 69 6d 70 25 21 33 36  3d 26 37 46 46 46 46 46  |wimp%!36=&7FFFFF|
00003a90  46 46 3a c8 99 26 34 30  30 44 30 2c 2c 77 69 6d  |FF:..&400D0,,wim|
00003aa0  70 25 3a e1 0d 1c ca 5c  dd f2 57 69 6d 70 5f 50  |p%:....\..Wimp_P|
00003ab0  6f 6c 6c 4b 65 79 50 72  65 73 73 3a 77 69 6e 64  |ollKeyPress:wind|
00003ac0  6f 77 25 3d 77 69 6d 70  25 21 30 3a 69 63 6f 6e  |ow%=wimp%!0:icon|
00003ad0  25 3d 77 69 6d 70 25 21  34 3a 6b 65 79 25 3d 77  |%=wimp%!4:key%=w|
00003ae0  69 6d 70 25 21 32 34 3a  c8 8e a4 45 76 65 6e 74  |imp%!24:...Event|
00003af0  5f 53 61 76 65 28 77 69  6e 64 6f 77 25 29 20 ca  |_Save(window%) .|
00003b00  0d 1c e8 22 c9 b9 3a f2  57 69 6d 70 50 6f 6c 6c  |..."..:.WimpPoll|
00003b10  5f 53 61 76 65 46 69 6c  65 28 77 69 6e 64 6f 77  |_SaveFile(window|
00003b20  25 29 0d 1c f2 2a c9 a3  3a f2 45 76 65 6e 74 5f  |%)...*..:.Event_|
00003b30  4b 65 79 50 72 65 73 73  28 77 69 6e 64 6f 77 25  |KeyPress(window%|
00003b40  2c 69 63 6f 6e 25 2c 6b  65 79 25 29 0d 1c fc 07  |,icon%,key%)....|
00003b50  cb 3a e1 0d 1d 10 fc dd  f2 57 69 6d 70 5f 50 6f  |.:.......Wimp_Po|
00003b60  6c 6c 53 61 76 65 4d 65  73 73 61 67 65 3a ea 66  |llSaveMessage:.f|
00003b70  69 6c 65 24 2c 77 69 6e  64 6f 77 25 2c 69 63 6f  |ile$,window%,ico|
00003b80  6e 25 2c 78 25 2c 79 25  3a c8 99 26 34 30 30 43  |n%,x%,y%:..&400C|
00003b90  46 2c 2c 77 69 6d 70 25  3a 77 69 6e 64 6f 77 25  |F,,wimp%:window%|
00003ba0  3d 77 69 6d 70 25 21 31  32 3a 69 63 6f 6e 25 3d  |=wimp%!12:icon%=|
00003bb0  77 69 6d 70 25 21 31 36  3a 78 25 3d 77 69 6d 70  |wimp%!16:x%=wimp|
00003bc0  25 21 30 3a 79 25 3d 77  69 6d 70 25 21 34 3a 77  |%!0:y%=wimp%!4:w|
00003bd0  69 6d 70 25 21 30 3d 73  61 76 65 25 3a 77 69 6d  |imp%!0=save%:wim|
00003be0  70 25 21 34 3d 31 3a c8  99 26 34 30 30 43 45 2c  |p%!4=1:..&400CE,|
00003bf0  2c 77 69 6d 70 25 3a 66  69 6c 65 24 3d 24 28 77  |,wimp%:file$=$(w|
00003c00  69 6d 70 25 21 32 38 29  3a 66 69 6c 65 24 3d a4  |imp%!28):file$=.|
00003c10  57 69 6d 70 5f 47 65 74  46 69 6c 65 46 72 6f 6d  |Wimp_GetFileFrom|
00003c20  50 61 74 68 6e 61 6d 65  28 66 69 6c 65 24 29 3a  |Pathname(file$):|
00003c30  77 69 6d 70 25 21 32 30  3d 77 69 6e 64 6f 77 25  |wimp%!20=window%|
00003c40  3a 77 69 6d 70 25 21 32  34 3d 69 63 6f 6e 25 0d  |:wimp%!24=icon%.|
00003c50  1d 6a 93 77 69 6d 70 25  21 32 38 3d 78 25 3a 77  |.j.wimp%!28=x%:w|
00003c60  69 6d 70 25 21 33 32 3d  79 25 3a 77 69 6d 70 25  |imp%!32=y%:wimp%|
00003c70  21 33 36 3d 6c 65 6e 67  74 68 25 3a 77 69 6d 70  |!36=length%:wimp|
00003c80  25 21 30 3d 36 34 3a 77  69 6d 70 25 21 31 32 3d  |%!0=64:wimp%!12=|
00003c90  30 3a 77 69 6d 70 25 21  31 36 3d 31 3a 77 69 6d  |0:wimp%!16=1:wim|
00003ca0  70 25 21 34 30 3d 26 46  46 46 3a 24 28 77 69 6d  |p%!40=&FFF:$(wim|
00003cb0  70 25 2b 34 34 29 3d 66  69 6c 65 24 3a c8 99 26  |p%+44)=file$:..&|
00003cc0  34 30 30 45 37 2c 31 37  2c 77 69 6d 70 25 2c 77  |400E7,17,wimp%,w|
00003cd0  69 6d 70 25 21 32 30 2c  77 69 6d 70 25 21 32 34  |imp%!20,wimp%!24|
00003ce0  3a e1 0d 1d c4 54 dd f2  57 69 6d 70 5f 50 6f 6c  |:....T..Wimp_Pol|
00003cf0  6c 4d 65 73 73 61 67 65  73 3a ea 66 69 6c 65 24  |lMessages:.file$|
00003d00  3a 66 69 6c 65 24 3d a4  57 69 6d 70 5f 47 65 74  |:file$=.Wimp_Get|
00003d10  53 74 72 69 6e 67 41 74  41 64 64 72 65 73 73 28  |StringAtAddress(|
00003d20  77 69 6d 70 25 2b 34 34  29 3a c8 8e 77 69 6d 70  |wimp%+44):..wimp|
00003d30  25 21 31 36 20 ca 0d 1d  ec 12 c9 30 3a 66 69 6e  |%!16 ......0:fin|
00003d40  69 73 68 65 64 25 3d b9  0d 1d f6 06 c9 31 0d 1e  |ished%=......1..|
00003d50  00 b7 c9 32 3a 77 69 6d  70 25 21 30 3d 73 61 76  |...2:wimp%!0=sav|
00003d60  65 25 3a 77 69 6d 70 25  21 34 3d 31 3a c8 99 26  |e%:wimp%!4=1:..&|
00003d70  34 30 30 43 45 2c 2c 77  69 6d 70 25 3a 24 28 77  |400CE,,wimp%:$(w|
00003d80  69 6d 70 25 21 32 38 29  3d 66 69 6c 65 24 3a 77  |imp%!28)=file$:w|
00003d90  69 6d 70 25 21 30 3d 73  61 76 65 25 3a 77 69 6d  |imp%!0=save%:wim|
00003da0  70 25 21 34 3d 31 3a 77  69 6d 70 25 21 38 3d 30  |p%!4=1:wimp%!8=0|
00003db0  3a 77 69 6d 70 25 21 31  32 3d 30 3a c8 99 26 34  |:wimp%!12=0:..&4|
00003dc0  30 30 43 44 2c 2c 77 69  6d 70 25 3a c8 99 26 34  |00CD,,wimp%:..&4|
00003dd0  30 30 44 32 2c 73 61 76  65 25 2c 31 2c 2c 2c 2d  |00D2,save%,1,,,-|
00003de0  31 2c a9 66 69 6c 65 24  3a f2 45 76 65 6e 74 5f  |1,.file$:.Event_|
00003df0  53 61 76 65 46 69 6c 65  28 66 69 6c 65 24 2c 73  |SaveFile(file$,s|
00003e00  61 76 65 25 29 0d 1e 46  42 c9 33 3a 74 79 70 65  |ave%)..FB.3:type|
00003e10  24 3d a4 57 69 6d 70 5f  46 69 6c 65 54 79 70 65  |$=.Wimp_FileType|
00003e20  28 77 69 6d 70 25 21 34  30 29 3a f2 45 76 65 6e  |(wimp%!40):.Even|
00003e30  74 5f 4c 6f 61 64 46 69  6c 65 28 66 69 6c 65 24  |t_LoadFile(file$|
00003e40  2c 74 79 70 65 24 29 0d  1e 5a 07 cb 3a e1 0d 1e  |,type$)..Z..:...|
00003e50  6e 6b dd a4 57 69 6d 70  5f 47 65 74 53 74 72 69  |nk..Wimp_GetStri|
00003e60  6e 67 41 74 41 64 64 72  65 73 73 28 61 72 72 61  |ngAtAddress(arra|
00003e70  79 25 29 3a ea 73 24 3a  73 24 3d 22 22 3a c8 95  |y%):.s$:s$="":..|
00003e80  28 3f 61 72 72 61 79 25  3c 3e 31 33 29 80 28 3f  |(?array%<>13).(?|
00003e90  61 72 72 61 79 25 3c 3e  30 29 3a 73 24 2b 3d bd  |array%<>0):s$+=.|
00003ea0  28 3f 61 72 72 61 79 25  29 3a 61 72 72 61 79 25  |(?array%):array%|
00003eb0  2b 3d 31 3a ce 3a 3d 73  24 0d 1e 96 2f dd a4 57  |+=1:.:=s$.../..W|
00003ec0  69 6d 70 5f 47 65 74 46  69 6c 65 46 72 6f 6d 50  |imp_GetFileFromP|
00003ed0  61 74 68 6e 61 6d 65 28  66 24 29 3a c8 8e a7 66  |athname(f$):...f|
00003ee0  24 2c 22 2e 22 29 20 ca  0d 1e aa 0a c9 30 3a 3d  |$,".") ......0:=|
00003ef0  66 24 0d 1e b4 35 7f 3a  3d a4 57 69 6d 70 5f 47  |f$...5.:=.Wimp_G|
00003f00  65 74 46 69 6c 65 46 72  6f 6d 50 61 74 68 6e 61  |etFileFromPathna|
00003f10  6d 65 28 c2 66 24 2c a9  28 66 24 29 2d a7 66 24  |me(.f$,.(f$)-.f$|
00003f20  2c 22 2e 22 29 29 29 0d  1e be 05 cb 0d 1e c8 23  |,".")))........#|
00003f30  dd a4 57 69 6d 70 5f 46  69 6c 65 54 79 70 65 28  |..Wimp_FileType(|
00003f40  74 79 70 65 25 29 3a c8  8e 74 79 70 65 25 ca 0d  |type%):..type%..|
00003f50  1e dc 11 c9 26 46 46 46  3a 3d 22 54 65 78 74 22  |....&FFF:="Text"|
00003f60  0d 1e e6 11 c9 26 46 46  44 3a 3d 22 44 61 74 61  |.....&FFD:="Data|
00003f70  22 0d 1e f0 12 c9 26 46  46 42 3a 3d 22 42 61 73  |".....&FFB:="Bas|
00003f80  69 63 22 0d 1e fa 13 c9  26 46 46 39 3a 3d 22 53  |ic".....&FF9:="S|
00003f90  70 72 69 74 65 22 0d 1f  04 14 c9 26 46 45 44 3a  |prite".....&FED:|
00003fa0  3d 22 50 61 6c 65 74 74  65 22 0d 1f 0e 15 c9 26  |="Palette".....&|
00003fb0  46 45 43 3a 3d 22 54 65  6d 70 6c 61 74 65 22 0d  |FEC:="Template".|
00003fc0  1f 18 11 c9 26 41 46 46  3a 3d 22 44 72 61 77 22  |....&AFF:="Draw"|
00003fd0  0d 1f 22 14 c9 26 31 30  30 30 3a 3d 22 46 6f 6c  |.."..&1000:="Fol|
00003fe0  64 65 72 22 0d 1f 2c 19  c9 26 32 30 30 30 3a 3d  |der"..,..&2000:=|
00003ff0  22 41 70 70 6c 69 63 61  74 69 6f 6e 22 0d 1f 36  |"Application"..6|
00004000  0f 7f 3d c3 7e 28 74 79  70 65 25 29 0d 1f 40 05  |..=.~(type%)..@.|
00004010  cb 0d ff                                          |...|
00004013