W�m%160,indr%2048,q%526,mbuf%257:indr_end%=indr%+2048:finished%=�:minx%=452:miny%=52
5ș"Wimp_Initialise",200,&4B534154,"Makro"�,taskh%
�ș"Wimp_OpenTemplate",,"<Makro$Dir>.Templates":prog_info%=�createwindow("prog_info"):main%=�createwindow("main"):ș"Wimp_CloseTemplate"
(��"Load <Makro$Dir>.Menus "+�~m%:m%!32=prog_info%:m%!56=m%+104:$mbuf%="":$(mbuf%+1)="":m%!144=mbuf%+1:m%!148=mbuf%:m%!152=256
2A!q%=main%:ș"Wimp_GetWindowState",,q%:ș"Wimp_OpenWindow",,q%
<��error
F�
Pș"Wimp_Poll",,q%�reason%
ZȎreason%�
dJ�0:�-8ș"Wimp_GetPointerInfo",,q%:q%!8=4:�q%!16>0� q%!12=main%�insert
n�1:�redraw
x�2:ș"Wimp_OpenWindow",,q%
��6:Ȏq%!12�
��main%:Ȏq%!8�
�=�4:�q%!16>0�insert �!q%=main%:q%!4=1:ș"Wimp_DragBox",,q%
�B�2:wi%=q%!12:ic%=q%!16:� ic%<0 m%!60=&7400021 � m%!60=&7000021
�)�ic%>0 $(mbuf%+1)=$�textaddr(wi%,ic%)
�/�ic%<>0 ș"Wimp_CreateMenu",,m%,!q%-48,q%!4
��1:�q%!16=0 q%!4=1�q%!4=2
�"!q%=main%:ș"Wimp_DragBox",,q%
��
��
�
�9:Ȏ!q%�
�N�1:$�textaddr(wi%,ic%)=$(mbuf%+1):�seticonstate(wi%,ic%,0,0):$(mbuf%+1)=""
��2:finished%=�

�

Wș"Wimp_GetPointerInfo",,q%+256:�q%!264=1ș"Wimp_CreateMenu",,m%,(q%!256)-48,q%!260

�17,18:Ȏq%!16�

"�0:finished%=�

,�10:�desktopsave

6�

@�

J�finished%

T'ș"Wimp_CloseDown",taskh%,&4B534154

^�

hy��redraw:ș"Wimp_RedrawWindow",,q%�more%:ȕmore%:ș"Interface_Render3dWindow",,q%:ș"Wimp_GetRectangle",,q%�more%:�:�

r=��insert:wi%=q%!12:ic%=q%!16:ș"Interface_SlabButton",,q%

|7ș"OS_GSTrans",�textaddr(wi%,ic%),q%+256,256 � ,,c%

�D�a%=q%+256�q%+256+c%-1:ș"OS_Byte",153,0,?a%:ș"Wimp_Poll",,q%:�

�;q%!8=0:q%!12=wi%:q%!16=ic%:ș"Interface_SlabButton",,q%

��

���desktopsave

�Eș"OS_ReadVarVal","Makro$Dir",q%+256,256,0,3�,,e%:?(q%+256+e%)=13

��#q%!20,"Run "+$(q%+256)

��

���seticonstate(wind%,icon%,eor%,clear%):q%!256=wind%:q%!260=icon%:q%!264=eor%:q%!268=clear%:ș"Wimp_SetIconState",,q%+256:�

�[ݤtextaddr(wind%,icon%):q%!256=wind%:q%!260=icon%:ș"Wimp_GetIconState",,q%+256:=q%!284

�ݤcreatewindow(temp$):ș"Wimp_LoadTemplate",,q%,indr%,indr_end%,-1,temp$,0�,,indr%:�temp$="main"q%?68=minx%�256:q%?69=minx%�256:q%?70=miny%�256:q%?71=miny%�256

�*ș"Wimp_CreateWindow",,q%�hand%:=hand%

�6��error:flg%=3:q%!8=0:ș"Interface_SlabButton",,q%

�{!q%=�:$(q%+4)=�$+" (IEC "+Þ+")"+�0:ș"Wimp_ReportError",q%,flg%,"Makro"�,b%:�b%=2ș"Wimp_CloseDown",taskh%,&4B534154:�
�
�

00000000  0d 00 0a 57 de 6d 25 31  36 30 2c 69 6e 64 72 25  |...W.m%160,indr%|
00000010  32 30 34 38 2c 71 25 35  32 36 2c 6d 62 75 66 25  |2048,q%526,mbuf%|
00000020  32 35 37 3a 69 6e 64 72  5f 65 6e 64 25 3d 69 6e  |257:indr_end%=in|
00000030  64 72 25 2b 32 30 34 38  3a 66 69 6e 69 73 68 65  |dr%+2048:finishe|
00000040  64 25 3d a3 3a 6d 69 6e  78 25 3d 34 35 32 3a 6d  |d%=.:minx%=452:m|
00000050  69 6e 79 25 3d 35 32 0d  00 14 35 c8 99 22 57 69  |iny%=52...5.."Wi|
00000060  6d 70 5f 49 6e 69 74 69  61 6c 69 73 65 22 2c 32  |mp_Initialise",2|
00000070  30 30 2c 26 34 42 35 33  34 31 35 34 2c 22 4d 61  |00,&4B534154,"Ma|
00000080  6b 72 6f 22 b8 2c 74 61  73 6b 68 25 0d 00 1e 8b  |kro".,taskh%....|
00000090  c8 99 22 57 69 6d 70 5f  4f 70 65 6e 54 65 6d 70  |.."Wimp_OpenTemp|
000000a0  6c 61 74 65 22 2c 2c 22  3c 4d 61 6b 72 6f 24 44  |late",,"<Makro$D|
000000b0  69 72 3e 2e 54 65 6d 70  6c 61 74 65 73 22 3a 70  |ir>.Templates":p|
000000c0  72 6f 67 5f 69 6e 66 6f  25 3d a4 63 72 65 61 74  |rog_info%=.creat|
000000d0  65 77 69 6e 64 6f 77 28  22 70 72 6f 67 5f 69 6e  |ewindow("prog_in|
000000e0  66 6f 22 29 3a 6d 61 69  6e 25 3d a4 63 72 65 61  |fo"):main%=.crea|
000000f0  74 65 77 69 6e 64 6f 77  28 22 6d 61 69 6e 22 29  |tewindow("main")|
00000100  3a c8 99 22 57 69 6d 70  5f 43 6c 6f 73 65 54 65  |:.."Wimp_CloseTe|
00000110  6d 70 6c 61 74 65 22 0d  00 28 80 ff 22 4c 6f 61  |mplate"..(.."Loa|
00000120  64 20 3c 4d 61 6b 72 6f  24 44 69 72 3e 2e 4d 65  |d <Makro$Dir>.Me|
00000130  6e 75 73 20 22 2b c3 7e  6d 25 3a 6d 25 21 33 32  |nus "+.~m%:m%!32|
00000140  3d 70 72 6f 67 5f 69 6e  66 6f 25 3a 6d 25 21 35  |=prog_info%:m%!5|
00000150  36 3d 6d 25 2b 31 30 34  3a 24 6d 62 75 66 25 3d  |6=m%+104:$mbuf%=|
00000160  22 22 3a 24 28 6d 62 75  66 25 2b 31 29 3d 22 22  |"":$(mbuf%+1)=""|
00000170  3a 6d 25 21 31 34 34 3d  6d 62 75 66 25 2b 31 3a  |:m%!144=mbuf%+1:|
00000180  6d 25 21 31 34 38 3d 6d  62 75 66 25 3a 6d 25 21  |m%!148=mbuf%:m%!|
00000190  31 35 32 3d 32 35 36 0d  00 32 41 21 71 25 3d 6d  |152=256..2A!q%=m|
000001a0  61 69 6e 25 3a c8 99 22  57 69 6d 70 5f 47 65 74  |ain%:.."Wimp_Get|
000001b0  57 69 6e 64 6f 77 53 74  61 74 65 22 2c 2c 71 25  |WindowState",,q%|
000001c0  3a c8 99 22 57 69 6d 70  5f 4f 70 65 6e 57 69 6e  |:.."Wimp_OpenWin|
000001d0  64 6f 77 22 2c 2c 71 25  0d 00 3c 0c ee 85 f2 65  |dow",,q%..<....e|
000001e0  72 72 6f 72 0d 00 46 05  f5 0d 00 50 1d c8 99 22  |rror..F....P..."|
000001f0  57 69 6d 70 5f 50 6f 6c  6c 22 2c 2c 71 25 b8 72  |Wimp_Poll",,q%.r|
00000200  65 61 73 6f 6e 25 0d 00  5a 0e c8 8e 72 65 61 73  |eason%..Z...reas|
00000210  6f 6e 25 ca 0d 00 64 4a  c9 30 3a e7 a6 2d 38 c8  |on%...dJ.0:..-8.|
00000220  99 22 57 69 6d 70 5f 47  65 74 50 6f 69 6e 74 65  |."Wimp_GetPointe|
00000230  72 49 6e 66 6f 22 2c 2c  71 25 3a 71 25 21 38 3d  |rInfo",,q%:q%!8=|
00000240  34 3a e7 71 25 21 31 36  3e 30 80 20 71 25 21 31  |4:.q%!16>0. q%!1|
00000250  32 3d 6d 61 69 6e 25 f2  69 6e 73 65 72 74 0d 00  |2=main%.insert..|
00000260  6e 0e c9 31 3a f2 72 65  64 72 61 77 0d 00 78 1e  |n..1:.redraw..x.|
00000270  c9 32 3a c8 99 22 57 69  6d 70 5f 4f 70 65 6e 57  |.2:.."Wimp_OpenW|
00000280  69 6e 64 6f 77 22 2c 2c  71 25 0d 00 82 0f c9 36  |indow",,q%.....6|
00000290  3a c8 8e 71 25 21 31 32  ca 0d 00 8c 12 c9 6d 61  |:..q%!12......ma|
000002a0  69 6e 25 3a c8 8e 71 25  21 38 ca 0d 00 96 3d c9  |in%:..q%!8....=.|
000002b0  34 3a e7 71 25 21 31 36  3e 30 f2 69 6e 73 65 72  |4:.q%!16>0.inser|
000002c0  74 20 8b 21 71 25 3d 6d  61 69 6e 25 3a 71 25 21  |t .!q%=main%:q%!|
000002d0  34 3d 31 3a c8 99 22 57  69 6d 70 5f 44 72 61 67  |4=1:.."Wimp_Drag|
000002e0  42 6f 78 22 2c 2c 71 25  0d 00 a0 42 c9 32 3a 77  |Box",,q%...B.2:w|
000002f0  69 25 3d 71 25 21 31 32  3a 69 63 25 3d 71 25 21  |i%=q%!12:ic%=q%!|
00000300  31 36 3a e7 20 69 63 25  3c 30 20 6d 25 21 36 30  |16:. ic%<0 m%!60|
00000310  3d 26 37 34 30 30 30 32  31 20 8b 20 6d 25 21 36  |=&7400021 . m%!6|
00000320  30 3d 26 37 30 30 30 30  32 31 0d 00 aa 29 e7 69  |0=&7000021...).i|
00000330  63 25 3e 30 20 24 28 6d  62 75 66 25 2b 31 29 3d  |c%>0 $(mbuf%+1)=|
00000340  24 a4 74 65 78 74 61 64  64 72 28 77 69 25 2c 69  |$.textaddr(wi%,i|
00000350  63 25 29 0d 00 b4 2f e7  69 63 25 3c 3e 30 20 c8  |c%).../.ic%<>0 .|
00000360  99 22 57 69 6d 70 5f 43  72 65 61 74 65 4d 65 6e  |."Wimp_CreateMen|
00000370  75 22 2c 2c 6d 25 2c 21  71 25 2d 34 38 2c 71 25  |u",,m%,!q%-48,q%|
00000380  21 34 0d 00 be 1d c9 31  3a e7 71 25 21 31 36 3d  |!4.....1:.q%!16=|
00000390  30 20 71 25 21 34 3d 31  8b 71 25 21 34 3d 32 0d  |0 q%!4=1.q%!4=2.|
000003a0  00 c8 22 21 71 25 3d 6d  61 69 6e 25 3a c8 99 22  |.."!q%=main%:.."|
000003b0  57 69 6d 70 5f 44 72 61  67 42 6f 78 22 2c 2c 71  |Wimp_DragBox",,q|
000003c0  25 0d 00 d2 05 cb 0d 00  dc 05 cb 0d 00 e6 0d c9  |%...............|
000003d0  39 3a c8 8e 21 71 25 ca  0d 00 f0 4e c9 31 3a 24  |9:..!q%....N.1:$|
000003e0  a4 74 65 78 74 61 64 64  72 28 77 69 25 2c 69 63  |.textaddr(wi%,ic|
000003f0  25 29 3d 24 28 6d 62 75  66 25 2b 31 29 3a f2 73  |%)=$(mbuf%+1):.s|
00000400  65 74 69 63 6f 6e 73 74  61 74 65 28 77 69 25 2c  |eticonstate(wi%,|
00000410  69 63 25 2c 30 2c 30 29  3a 24 28 6d 62 75 66 25  |ic%,0,0):$(mbuf%|
00000420  2b 31 29 3d 22 22 0d 00  fa 12 c9 32 3a 66 69 6e  |+1)="".....2:fin|
00000430  69 73 68 65 64 25 3d b9  0d 01 04 05 cb 0d 01 0e  |ished%=.........|
00000440  57 c8 99 22 57 69 6d 70  5f 47 65 74 50 6f 69 6e  |W.."Wimp_GetPoin|
00000450  74 65 72 49 6e 66 6f 22  2c 2c 71 25 2b 32 35 36  |terInfo",,q%+256|
00000460  3a e7 71 25 21 32 36 34  3d 31 c8 99 22 57 69 6d  |:.q%!264=1.."Wim|
00000470  70 5f 43 72 65 61 74 65  4d 65 6e 75 22 2c 2c 6d  |p_CreateMenu",,m|
00000480  25 2c 28 71 25 21 32 35  36 29 2d 34 38 2c 71 25  |%,(q%!256)-48,q%|
00000490  21 32 36 30 0d 01 18 13  c9 31 37 2c 31 38 3a c8  |!260.....17,18:.|
000004a0  8e 71 25 21 31 36 ca 0d  01 22 12 c9 30 3a 66 69  |.q%!16..."..0:fi|
000004b0  6e 69 73 68 65 64 25 3d  b9 0d 01 2c 14 c9 31 30  |nished%=...,..10|
000004c0  3a f2 64 65 73 6b 74 6f  70 73 61 76 65 0d 01 36  |:.desktopsave..6|
000004d0  05 cb 0d 01 40 05 cb 0d  01 4a 0e fd 66 69 6e 69  |....@....J..fini|
000004e0  73 68 65 64 25 0d 01 54  27 c8 99 22 57 69 6d 70  |shed%..T'.."Wimp|
000004f0  5f 43 6c 6f 73 65 44 6f  77 6e 22 2c 74 61 73 6b  |_CloseDown",task|
00000500  68 25 2c 26 34 42 35 33  34 31 35 34 0d 01 5e 05  |h%,&4B534154..^.|
00000510  e0 0d 01 68 79 dd f2 72  65 64 72 61 77 3a c8 99  |...hy..redraw:..|
00000520  22 57 69 6d 70 5f 52 65  64 72 61 77 57 69 6e 64  |"Wimp_RedrawWind|
00000530  6f 77 22 2c 2c 71 25 b8  6d 6f 72 65 25 3a c8 95  |ow",,q%.more%:..|
00000540  6d 6f 72 65 25 3a c8 99  22 49 6e 74 65 72 66 61  |more%:.."Interfa|
00000550  63 65 5f 52 65 6e 64 65  72 33 64 57 69 6e 64 6f  |ce_Render3dWindo|
00000560  77 22 2c 2c 71 25 3a c8  99 22 57 69 6d 70 5f 47  |w",,q%:.."Wimp_G|
00000570  65 74 52 65 63 74 61 6e  67 6c 65 22 2c 2c 71 25  |etRectangle",,q%|
00000580  b8 6d 6f 72 65 25 3a ce  3a e1 0d 01 72 3d dd f2  |.more%:.:...r=..|
00000590  69 6e 73 65 72 74 3a 77  69 25 3d 71 25 21 31 32  |insert:wi%=q%!12|
000005a0  3a 69 63 25 3d 71 25 21  31 36 3a c8 99 22 49 6e  |:ic%=q%!16:.."In|
000005b0  74 65 72 66 61 63 65 5f  53 6c 61 62 42 75 74 74  |terface_SlabButt|
000005c0  6f 6e 22 2c 2c 71 25 0d  01 7c 37 c8 99 22 4f 53  |on",,q%..|7.."OS|
000005d0  5f 47 53 54 72 61 6e 73  22 2c a4 74 65 78 74 61  |_GSTrans",.texta|
000005e0  64 64 72 28 77 69 25 2c  69 63 25 29 2c 71 25 2b  |ddr(wi%,ic%),q%+|
000005f0  32 35 36 2c 32 35 36 20  b8 20 2c 2c 63 25 0d 01  |256,256 . ,,c%..|
00000600  86 44 e3 61 25 3d 71 25  2b 32 35 36 b8 71 25 2b  |.D.a%=q%+256.q%+|
00000610  32 35 36 2b 63 25 2d 31  3a c8 99 22 4f 53 5f 42  |256+c%-1:.."OS_B|
00000620  79 74 65 22 2c 31 35 33  2c 30 2c 3f 61 25 3a c8  |yte",153,0,?a%:.|
00000630  99 22 57 69 6d 70 5f 50  6f 6c 6c 22 2c 2c 71 25  |."Wimp_Poll",,q%|
00000640  3a ed 0d 01 90 3b 71 25  21 38 3d 30 3a 71 25 21  |:....;q%!8=0:q%!|
00000650  31 32 3d 77 69 25 3a 71  25 21 31 36 3d 69 63 25  |12=wi%:q%!16=ic%|
00000660  3a c8 99 22 49 6e 74 65  72 66 61 63 65 5f 53 6c  |:.."Interface_Sl|
00000670  61 62 42 75 74 74 6f 6e  22 2c 2c 71 25 0d 01 9a  |abButton",,q%...|
00000680  05 e1 0d 01 a4 11 dd f2  64 65 73 6b 74 6f 70 73  |........desktops|
00000690  61 76 65 0d 01 ae 45 c8  99 22 4f 53 5f 52 65 61  |ave...E.."OS_Rea|
000006a0  64 56 61 72 56 61 6c 22  2c 22 4d 61 6b 72 6f 24  |dVarVal","Makro$|
000006b0  44 69 72 22 2c 71 25 2b  32 35 36 2c 32 35 36 2c  |Dir",q%+256,256,|
000006c0  30 2c 33 b8 2c 2c 65 25  3a 3f 28 71 25 2b 32 35  |0,3.,,e%:?(q%+25|
000006d0  36 2b 65 25 29 3d 31 33  0d 01 b8 1c d5 23 71 25  |6+e%)=13.....#q%|
000006e0  21 32 30 2c 22 52 75 6e  20 22 2b 24 28 71 25 2b  |!20,"Run "+$(q%+|
000006f0  32 35 36 29 0d 01 c2 05  e1 0d 01 cc 7f dd f2 73  |256)...........s|
00000700  65 74 69 63 6f 6e 73 74  61 74 65 28 77 69 6e 64  |eticonstate(wind|
00000710  25 2c 69 63 6f 6e 25 2c  65 6f 72 25 2c 63 6c 65  |%,icon%,eor%,cle|
00000720  61 72 25 29 3a 71 25 21  32 35 36 3d 77 69 6e 64  |ar%):q%!256=wind|
00000730  25 3a 71 25 21 32 36 30  3d 69 63 6f 6e 25 3a 71  |%:q%!260=icon%:q|
00000740  25 21 32 36 34 3d 65 6f  72 25 3a 71 25 21 32 36  |%!264=eor%:q%!26|
00000750  38 3d 63 6c 65 61 72 25  3a c8 99 22 57 69 6d 70  |8=clear%:.."Wimp|
00000760  5f 53 65 74 49 63 6f 6e  53 74 61 74 65 22 2c 2c  |_SetIconState",,|
00000770  71 25 2b 32 35 36 3a e1  0d 01 d6 5b dd a4 74 65  |q%+256:....[..te|
00000780  78 74 61 64 64 72 28 77  69 6e 64 25 2c 69 63 6f  |xtaddr(wind%,ico|
00000790  6e 25 29 3a 71 25 21 32  35 36 3d 77 69 6e 64 25  |n%):q%!256=wind%|
000007a0  3a 71 25 21 32 36 30 3d  69 63 6f 6e 25 3a c8 99  |:q%!260=icon%:..|
000007b0  22 57 69 6d 70 5f 47 65  74 49 63 6f 6e 53 74 61  |"Wimp_GetIconSta|
000007c0  74 65 22 2c 2c 71 25 2b  32 35 36 3a 3d 71 25 21  |te",,q%+256:=q%!|
000007d0  32 38 34 0d 01 e0 a3 dd  a4 63 72 65 61 74 65 77  |284......createw|
000007e0  69 6e 64 6f 77 28 74 65  6d 70 24 29 3a c8 99 22  |indow(temp$):.."|
000007f0  57 69 6d 70 5f 4c 6f 61  64 54 65 6d 70 6c 61 74  |Wimp_LoadTemplat|
00000800  65 22 2c 2c 71 25 2c 69  6e 64 72 25 2c 69 6e 64  |e",,q%,indr%,ind|
00000810  72 5f 65 6e 64 25 2c 2d  31 2c 74 65 6d 70 24 2c  |r_end%,-1,temp$,|
00000820  30 b8 2c 2c 69 6e 64 72  25 3a e7 74 65 6d 70 24  |0.,,indr%:.temp$|
00000830  3d 22 6d 61 69 6e 22 71  25 3f 36 38 3d 6d 69 6e  |="main"q%?68=min|
00000840  78 25 83 32 35 36 3a 71  25 3f 36 39 3d 6d 69 6e  |x%.256:q%?69=min|
00000850  78 25 81 32 35 36 3a 71  25 3f 37 30 3d 6d 69 6e  |x%.256:q%?70=min|
00000860  79 25 83 32 35 36 3a 71  25 3f 37 31 3d 6d 69 6e  |y%.256:q%?71=min|
00000870  79 25 81 32 35 36 0d 01  ea 2a c8 99 22 57 69 6d  |y%.256...*.."Wim|
00000880  70 5f 43 72 65 61 74 65  57 69 6e 64 6f 77 22 2c  |p_CreateWindow",|
00000890  2c 71 25 b8 68 61 6e 64  25 3a 3d 68 61 6e 64 25  |,q%.hand%:=hand%|
000008a0  0d 01 f4 36 dd f2 65 72  72 6f 72 3a 66 6c 67 25  |...6..error:flg%|
000008b0  3d 33 3a 71 25 21 38 3d  30 3a c8 99 22 49 6e 74  |=3:q%!8=0:.."Int|
000008c0  65 72 66 61 63 65 5f 53  6c 61 62 42 75 74 74 6f  |erface_SlabButto|
000008d0  6e 22 2c 2c 71 25 0d 01  fe 7b 21 71 25 3d 9f 3a  |n",,q%...{!q%=.:|
000008e0  24 28 71 25 2b 34 29 3d  f6 24 2b 22 20 28 49 45  |$(q%+4)=.$+" (IE|
000008f0  43 20 22 2b c3 9e 2b 22  29 22 2b bd 30 3a c8 99  |C "+..+")"+.0:..|
00000900  22 57 69 6d 70 5f 52 65  70 6f 72 74 45 72 72 6f  |"Wimp_ReportErro|
00000910  72 22 2c 71 25 2c 66 6c  67 25 2c 22 4d 61 6b 72  |r",q%,flg%,"Makr|
00000920  6f 22 b8 2c 62 25 3a e7  62 25 3d 32 c8 99 22 57  |o".,b%:.b%=2.."W|
00000930  69 6d 70 5f 43 6c 6f 73  65 44 6f 77 6e 22 2c 74  |imp_CloseDown",t|
00000940  61 73 6b 68 25 2c 26 34  42 35 33 34 31 35 34 3a  |askh%,&4B534154:|
00000950  e0 0d 02 08 05 e1 0d ff                           |........|
00000958