�           >!RunImage
� Program   SizeFrame
� Version   1.00
(� Author    Mark Moxon
2:
< ț "<SizeFrame$Dir>.WimpLib"
F	�init
PG� �library_version<50 � � 255,"Out of date version of Wimp Library"
Z0icon%=�icon_bar_icon(block%,"!sizeframe",-1)
d�
n& ș "Wimp_Poll",0,block% � reason%
x Ȏ reason% �
�&  � 2:ș "Wimp_OpenWindow",,block%
�'  � 3:ș "Wimp_CloseWindow",,block%
�  � 6:�mouse_click
�  � 8:�key_pressed
�  � 9:�menu_selection
�%  � 17,18:� block%!16=0 � quit%=�
� �
�� quit%
�'ș "Wimp_CloseDown",task%,&4B534154
��
�:
�� �init
�� � �error

quit%=�

H� block% &1000,eblock% &100,menu% &1000,ind% 500,ind2% 500,tname% 32

task_name$="SizeFrame"

":ș "Wimp_Initialise",200,&4B534154,task_name$ � ,task%

,7ș "Wimp_OpenTemplate",,"<SizeFrame$Dir>.Templates"

6$(tname%)="progInfo"+�(0)

@<ș "Wimp_LoadTemplate",,block%,ind%,ind%+499,-1,tname%,0

J*ș "Wimp_CreateWindow",,block% � info%

T$(tname%)="frameSizer"+�(0)

^>ș "Wimp_LoadTemplate",,block%,ind2%,ind2%+499,-1,tname%,0

h*ș "Wimp_CreateWindow",,block% � main%

rș "Wimp_CloseTemplate"

|-�init_menu(menu%,width%,end%,"SizeFrame")

�9�st_menu_item(menu%,width%,end%,"Info",0,0,0,0,info%)

�5�st_menu_item(menu%,width%,end%,"Quit",0,0,0,1,0)

��

�:

�� �error

�i� �wimperror(eblock%,�,�$+" (internal error code "+�(�)+")",task_name$,0,1)=2 � ș "Wimp_CloseDown":�

��

�:

�� �mouse_click

�
Ȏ � �

�2 � block%!8=2 � block%!12=-2 � block%!16=icon%

�  mx%=!block%

�&  �display_bar_menu(menu%,2,0,mx%)
3 � block%!8<>2 � block%!12=-2 � block%!16=icon%
  !block%=main%
%  ș "Wimp_GetWindowInfo",,block%
&  block%!28=-1
0"  ș "Wimp_OpenWindow",,block%
:  �caret(0)
D�
N�
X:
b� �key_pressed
lȎ block%!24 �
v � 13,&18E
�  Ȏ block%!4 �
�   � 0:�caret(1)
�   � 1:�caret(2)
�   � 2:�caret(0)
�  �
�  �calculate
� � &18F
�  Ȏ block%!4 �
�   � 0:�caret(2)
�   � 1:�caret(0)
�   � 2:�caret(1)
�  �
�  �calculate
 
$  ș "Wimp_ProcessKey",block%!24
�
 �
*:
4� �menu_selection
5� !block%=1 � quit%=�
>$ș "Wimp_GetPointerInfo",,block%
?adjust%=block%!8 � 1
R2� adjust%=1 � �display_bar_menu(menu%,2,0,mx%)
\�
f:
p� �caret(i%)
zl%=�(�get_icon(i%))
�/ș "Wimp_SetCaretPosition",main%,i%,,,-1,l%
��
�:
�� �get_icon(i%)
�!block%=main%:block%!4=i%
�"ș "Wimp_GetIconState",,block%
�=$(block%!28)
�:
�� �calculate
�!block%=main%:block%!4=0
�"ș "Wimp_GetIconState",,block%
�fwidth=�($(block%!28))
�!block%=main%:block%!4=1
"ș "Wimp_GetIconState",,block%
swidth=�($(block%!28))
!block%=main%:block%!4=2
$"ș "Wimp_GetIconState",,block%
.sheight=�($(block%!28))
8� swidth<>0 �
B$ fheight=(fwidth*sheight)/swidth
L height$=��(fheight),5)
V�
` height$="Undefined"
j�
t!block%=main%:block%!4=3
~"ș "Wimp_GetIconState",,block%
�$(block%!28)=height$
�!block%=main%:block%!4=3
�block%!8=0:block%!12=0
�"ș "Wimp_SetIconState",,block%
��
�

00000000  0d 00 0a 1a f4 20 20 20  20 20 20 20 20 20 20 20  |.....           |
00000010  3e 21 52 75 6e 49 6d 61  67 65 0d 00 14 19 f4 20  |>!RunImage..... |
00000020  50 72 6f 67 72 61 6d 20  20 20 53 69 7a 65 46 72  |Program   SizeFr|
00000030  61 6d 65 0d 00 1e 14 f4  20 56 65 72 73 69 6f 6e  |ame..... Version|
00000040  20 20 20 31 2e 30 30 0d  00 28 1a f4 20 41 75 74  |   1.00..(.. Aut|
00000050  68 6f 72 20 20 20 20 4d  61 72 6b 20 4d 6f 78 6f  |hor    Mark Moxo|
00000060  6e 0d 00 32 05 3a 0d 00  3c 20 c8 9b 20 22 3c 53  |n..2.:..< .. "<S|
00000070  69 7a 65 46 72 61 6d 65  24 44 69 72 3e 2e 57 69  |izeFrame$Dir>.Wi|
00000080  6d 70 4c 69 62 22 0d 00  46 09 f2 69 6e 69 74 0d  |mpLib"..F..init.|
00000090  00 50 47 e7 20 a4 6c 69  62 72 61 72 79 5f 76 65  |.PG. .library_ve|
000000a0  72 73 69 6f 6e 3c 35 30  20 8c 20 85 20 32 35 35  |rsion<50 . . 255|
000000b0  2c 22 4f 75 74 20 6f 66  20 64 61 74 65 20 76 65  |,"Out of date ve|
000000c0  72 73 69 6f 6e 20 6f 66  20 57 69 6d 70 20 4c 69  |rsion of Wimp Li|
000000d0  62 72 61 72 79 22 0d 00  5a 30 69 63 6f 6e 25 3d  |brary"..Z0icon%=|
000000e0  a4 69 63 6f 6e 5f 62 61  72 5f 69 63 6f 6e 28 62  |.icon_bar_icon(b|
000000f0  6c 6f 63 6b 25 2c 22 21  73 69 7a 65 66 72 61 6d  |lock%,"!sizefram|
00000100  65 22 2c 2d 31 29 0d 00  64 05 f5 0d 00 6e 26 20  |e",-1)..d....n& |
00000110  c8 99 20 22 57 69 6d 70  5f 50 6f 6c 6c 22 2c 30  |.. "Wimp_Poll",0|
00000120  2c 62 6c 6f 63 6b 25 20  b8 20 72 65 61 73 6f 6e  |,block% . reason|
00000130  25 0d 00 78 11 20 c8 8e  20 72 65 61 73 6f 6e 25  |%..x. .. reason%|
00000140  20 ca 0d 00 82 26 20 20  c9 20 32 3a c8 99 20 22  | ....&  . 2:.. "|
00000150  57 69 6d 70 5f 4f 70 65  6e 57 69 6e 64 6f 77 22  |Wimp_OpenWindow"|
00000160  2c 2c 62 6c 6f 63 6b 25  0d 00 8c 27 20 20 c9 20  |,,block%...'  . |
00000170  33 3a c8 99 20 22 57 69  6d 70 5f 43 6c 6f 73 65  |3:.. "Wimp_Close|
00000180  57 69 6e 64 6f 77 22 2c  2c 62 6c 6f 63 6b 25 0d  |Window",,block%.|
00000190  00 96 16 20 20 c9 20 36  3a f2 6d 6f 75 73 65 5f  |...  . 6:.mouse_|
000001a0  63 6c 69 63 6b 0d 00 a0  16 20 20 c9 20 38 3a f2  |click....  . 8:.|
000001b0  6b 65 79 5f 70 72 65 73  73 65 64 0d 00 aa 19 20  |key_pressed.... |
000001c0  20 c9 20 39 3a f2 6d 65  6e 75 5f 73 65 6c 65 63  | . 9:.menu_selec|
000001d0  74 69 6f 6e 0d 00 b4 25  20 20 c9 20 31 37 2c 31  |tion...%  . 17,1|
000001e0  38 3a e7 20 62 6c 6f 63  6b 25 21 31 36 3d 30 20  |8:. block%!16=0 |
000001f0  8c 20 71 75 69 74 25 3d  b9 0d 00 be 06 20 cb 0d  |. quit%=..... ..|
00000200  00 c8 0b fd 20 71 75 69  74 25 0d 00 d2 27 c8 99  |.... quit%...'..|
00000210  20 22 57 69 6d 70 5f 43  6c 6f 73 65 44 6f 77 6e  | "Wimp_CloseDown|
00000220  22 2c 74 61 73 6b 25 2c  26 34 42 35 33 34 31 35  |",task%,&4B53415|
00000230  34 0d 00 dc 05 e0 0d 00  e6 05 3a 0d 00 f0 0b dd  |4.........:.....|
00000240  20 f2 69 6e 69 74 0d 00  fa 0e ee 20 85 20 f2 65  | .init..... . .e|
00000250  72 72 6f 72 0d 01 04 0b  71 75 69 74 25 3d a3 0d  |rror....quit%=..|
00000260  01 0e 48 de 20 62 6c 6f  63 6b 25 20 26 31 30 30  |..H. block% &100|
00000270  30 2c 65 62 6c 6f 63 6b  25 20 26 31 30 30 2c 6d  |0,eblock% &100,m|
00000280  65 6e 75 25 20 26 31 30  30 30 2c 69 6e 64 25 20  |enu% &1000,ind% |
00000290  35 30 30 2c 69 6e 64 32  25 20 35 30 30 2c 74 6e  |500,ind2% 500,tn|
000002a0  61 6d 65 25 20 33 32 0d  01 18 1a 74 61 73 6b 5f  |ame% 32....task_|
000002b0  6e 61 6d 65 24 3d 22 53  69 7a 65 46 72 61 6d 65  |name$="SizeFrame|
000002c0  22 0d 01 22 3a c8 99 20  22 57 69 6d 70 5f 49 6e  |"..":.. "Wimp_In|
000002d0  69 74 69 61 6c 69 73 65  22 2c 32 30 30 2c 26 34  |itialise",200,&4|
000002e0  42 35 33 34 31 35 34 2c  74 61 73 6b 5f 6e 61 6d  |B534154,task_nam|
000002f0  65 24 20 b8 20 2c 74 61  73 6b 25 0d 01 2c 37 c8  |e$ . ,task%..,7.|
00000300  99 20 22 57 69 6d 70 5f  4f 70 65 6e 54 65 6d 70  |. "Wimp_OpenTemp|
00000310  6c 61 74 65 22 2c 2c 22  3c 53 69 7a 65 46 72 61  |late",,"<SizeFra|
00000320  6d 65 24 44 69 72 3e 2e  54 65 6d 70 6c 61 74 65  |me$Dir>.Template|
00000330  73 22 0d 01 36 1d 24 28  74 6e 61 6d 65 25 29 3d  |s"..6.$(tname%)=|
00000340  22 70 72 6f 67 49 6e 66  6f 22 2b bd 28 30 29 0d  |"progInfo"+.(0).|
00000350  01 40 3c c8 99 20 22 57  69 6d 70 5f 4c 6f 61 64  |.@<.. "Wimp_Load|
00000360  54 65 6d 70 6c 61 74 65  22 2c 2c 62 6c 6f 63 6b  |Template",,block|
00000370  25 2c 69 6e 64 25 2c 69  6e 64 25 2b 34 39 39 2c  |%,ind%,ind%+499,|
00000380  2d 31 2c 74 6e 61 6d 65  25 2c 30 0d 01 4a 2a c8  |-1,tname%,0..J*.|
00000390  99 20 22 57 69 6d 70 5f  43 72 65 61 74 65 57 69  |. "Wimp_CreateWi|
000003a0  6e 64 6f 77 22 2c 2c 62  6c 6f 63 6b 25 20 b8 20  |ndow",,block% . |
000003b0  69 6e 66 6f 25 0d 01 54  1f 24 28 74 6e 61 6d 65  |info%..T.$(tname|
000003c0  25 29 3d 22 66 72 61 6d  65 53 69 7a 65 72 22 2b  |%)="frameSizer"+|
000003d0  bd 28 30 29 0d 01 5e 3e  c8 99 20 22 57 69 6d 70  |.(0)..^>.. "Wimp|
000003e0  5f 4c 6f 61 64 54 65 6d  70 6c 61 74 65 22 2c 2c  |_LoadTemplate",,|
000003f0  62 6c 6f 63 6b 25 2c 69  6e 64 32 25 2c 69 6e 64  |block%,ind2%,ind|
00000400  32 25 2b 34 39 39 2c 2d  31 2c 74 6e 61 6d 65 25  |2%+499,-1,tname%|
00000410  2c 30 0d 01 68 2a c8 99  20 22 57 69 6d 70 5f 43  |,0..h*.. "Wimp_C|
00000420  72 65 61 74 65 57 69 6e  64 6f 77 22 2c 2c 62 6c  |reateWindow",,bl|
00000430  6f 63 6b 25 20 b8 20 6d  61 69 6e 25 0d 01 72 1b  |ock% . main%..r.|
00000440  c8 99 20 22 57 69 6d 70  5f 43 6c 6f 73 65 54 65  |.. "Wimp_CloseTe|
00000450  6d 70 6c 61 74 65 22 0d  01 7c 2d f2 69 6e 69 74  |mplate"..|-.init|
00000460  5f 6d 65 6e 75 28 6d 65  6e 75 25 2c 77 69 64 74  |_menu(menu%,widt|
00000470  68 25 2c 65 6e 64 25 2c  22 53 69 7a 65 46 72 61  |h%,end%,"SizeFra|
00000480  6d 65 22 29 0d 01 86 39  f2 73 74 5f 6d 65 6e 75  |me")...9.st_menu|
00000490  5f 69 74 65 6d 28 6d 65  6e 75 25 2c 77 69 64 74  |_item(menu%,widt|
000004a0  68 25 2c 65 6e 64 25 2c  22 49 6e 66 6f 22 2c 30  |h%,end%,"Info",0|
000004b0  2c 30 2c 30 2c 30 2c 69  6e 66 6f 25 29 0d 01 90  |,0,0,0,info%)...|
000004c0  35 f2 73 74 5f 6d 65 6e  75 5f 69 74 65 6d 28 6d  |5.st_menu_item(m|
000004d0  65 6e 75 25 2c 77 69 64  74 68 25 2c 65 6e 64 25  |enu%,width%,end%|
000004e0  2c 22 51 75 69 74 22 2c  30 2c 30 2c 30 2c 31 2c  |,"Quit",0,0,0,1,|
000004f0  30 29 0d 01 9a 05 e1 0d  01 a4 05 3a 0d 01 ae 0c  |0).........:....|
00000500  dd 20 f2 65 72 72 6f 72  0d 01 b8 69 e7 20 a4 77  |. .error...i. .w|
00000510  69 6d 70 65 72 72 6f 72  28 65 62 6c 6f 63 6b 25  |imperror(eblock%|
00000520  2c 9f 2c f6 24 2b 22 20  28 69 6e 74 65 72 6e 61  |,.,.$+" (interna|
00000530  6c 20 65 72 72 6f 72 20  63 6f 64 65 20 22 2b c3  |l error code "+.|
00000540  28 9e 29 2b 22 29 22 2c  74 61 73 6b 5f 6e 61 6d  |(.)+")",task_nam|
00000550  65 24 2c 30 2c 31 29 3d  32 20 8c 20 c8 99 20 22  |e$,0,1)=2 . .. "|
00000560  57 69 6d 70 5f 43 6c 6f  73 65 44 6f 77 6e 22 3a  |Wimp_CloseDown":|
00000570  e0 0d 01 c2 05 e1 0d 01  cc 05 3a 0d 01 d6 12 dd  |..........:.....|
00000580  20 f2 6d 6f 75 73 65 5f  63 6c 69 63 6b 0d 01 e0  | .mouse_click...|
00000590  0a c8 8e 20 b9 20 ca 0d  01 ea 32 20 c9 20 62 6c  |... . ....2 . bl|
000005a0  6f 63 6b 25 21 38 3d 32  20 80 20 62 6c 6f 63 6b  |ock%!8=2 . block|
000005b0  25 21 31 32 3d 2d 32 20  80 20 62 6c 6f 63 6b 25  |%!12=-2 . block%|
000005c0  21 31 36 3d 69 63 6f 6e  25 0d 01 f4 11 20 20 6d  |!16=icon%....  m|
000005d0  78 25 3d 21 62 6c 6f 63  6b 25 0d 01 fe 26 20 20  |x%=!block%...&  |
000005e0  f2 64 69 73 70 6c 61 79  5f 62 61 72 5f 6d 65 6e  |.display_bar_men|
000005f0  75 28 6d 65 6e 75 25 2c  32 2c 30 2c 6d 78 25 29  |u(menu%,2,0,mx%)|
00000600  0d 02 08 33 20 c9 20 62  6c 6f 63 6b 25 21 38 3c  |...3 . block%!8<|
00000610  3e 32 20 80 20 62 6c 6f  63 6b 25 21 31 32 3d 2d  |>2 . block%!12=-|
00000620  32 20 80 20 62 6c 6f 63  6b 25 21 31 36 3d 69 63  |2 . block%!16=ic|
00000630  6f 6e 25 0d 02 12 13 20  20 21 62 6c 6f 63 6b 25  |on%....  !block%|
00000640  3d 6d 61 69 6e 25 0d 02  1c 25 20 20 c8 99 20 22  |=main%...%  .. "|
00000650  57 69 6d 70 5f 47 65 74  57 69 6e 64 6f 77 49 6e  |Wimp_GetWindowIn|
00000660  66 6f 22 2c 2c 62 6c 6f  63 6b 25 0d 02 26 12 20  |fo",,block%..&. |
00000670  20 62 6c 6f 63 6b 25 21  32 38 3d 2d 31 0d 02 30  | block%!28=-1..0|
00000680  22 20 20 c8 99 20 22 57  69 6d 70 5f 4f 70 65 6e  |"  .. "Wimp_Open|
00000690  57 69 6e 64 6f 77 22 2c  2c 62 6c 6f 63 6b 25 0d  |Window",,block%.|
000006a0  02 3a 0f 20 20 f2 63 61  72 65 74 28 30 29 0d 02  |.:.  .caret(0)..|
000006b0  44 05 cb 0d 02 4e 05 e1  0d 02 58 05 3a 0d 02 62  |D....N....X.:..b|
000006c0  12 dd 20 f2 6b 65 79 5f  70 72 65 73 73 65 64 0d  |.. .key_pressed.|
000006d0  02 6c 12 c8 8e 20 62 6c  6f 63 6b 25 21 32 34 20  |.l... block%!24 |
000006e0  ca 0d 02 76 0e 20 c9 20  31 33 2c 26 31 38 45 0d  |...v. . 13,&18E.|
000006f0  02 80 13 20 20 c8 8e 20  62 6c 6f 63 6b 25 21 34  |...  .. block%!4|
00000700  20 ca 0d 02 8a 14 20 20  20 c9 20 30 3a f2 63 61  | .....   . 0:.ca|
00000710  72 65 74 28 31 29 0d 02  94 14 20 20 20 c9 20 31  |ret(1)....   . 1|
00000720  3a f2 63 61 72 65 74 28  32 29 0d 02 9e 14 20 20  |:.caret(2)....  |
00000730  20 c9 20 32 3a f2 63 61  72 65 74 28 30 29 0d 02  | . 2:.caret(0)..|
00000740  a8 07 20 20 cb 0d 02 b2  10 20 20 f2 63 61 6c 63  |..  .....  .calc|
00000750  75 6c 61 74 65 0d 02 bc  0b 20 c9 20 26 31 38 46  |ulate.... . &18F|
00000760  0d 02 c6 13 20 20 c8 8e  20 62 6c 6f 63 6b 25 21  |....  .. block%!|
00000770  34 20 ca 0d 02 d0 14 20  20 20 c9 20 30 3a f2 63  |4 .....   . 0:.c|
00000780  61 72 65 74 28 32 29 0d  02 da 14 20 20 20 c9 20  |aret(2)....   . |
00000790  31 3a f2 63 61 72 65 74  28 30 29 0d 02 e4 14 20  |1:.caret(0).... |
000007a0  20 20 c9 20 32 3a f2 63  61 72 65 74 28 31 29 0d  |  . 2:.caret(1).|
000007b0  02 ee 07 20 20 cb 0d 02  f8 10 20 20 f2 63 61 6c  |...  .....  .cal|
000007c0  63 75 6c 61 74 65 0d 03  02 06 20 7f 0d 03 0c 24  |culate.... ....$|
000007d0  20 20 c8 99 20 22 57 69  6d 70 5f 50 72 6f 63 65  |  .. "Wimp_Proce|
000007e0  73 73 4b 65 79 22 2c 62  6c 6f 63 6b 25 21 32 34  |ssKey",block%!24|
000007f0  0d 03 16 05 cb 0d 03 20  05 e1 0d 03 2a 05 3a 0d  |....... ....*.:.|
00000800  03 34 15 dd 20 f2 6d 65  6e 75 5f 73 65 6c 65 63  |.4.. .menu_selec|
00000810  74 69 6f 6e 0d 03 35 19  e7 20 21 62 6c 6f 63 6b  |tion..5.. !block|
00000820  25 3d 31 20 8c 20 71 75  69 74 25 3d b9 0d 03 3e  |%=1 . quit%=...>|
00000830  24 c8 99 20 22 57 69 6d  70 5f 47 65 74 50 6f 69  |$.. "Wimp_GetPoi|
00000840  6e 74 65 72 49 6e 66 6f  22 2c 2c 62 6c 6f 63 6b  |nterInfo",,block|
00000850  25 0d 03 3f 18 61 64 6a  75 73 74 25 3d 62 6c 6f  |%..?.adjust%=blo|
00000860  63 6b 25 21 38 20 80 20  31 0d 03 52 32 e7 20 61  |ck%!8 . 1..R2. a|
00000870  64 6a 75 73 74 25 3d 31  20 8c 20 f2 64 69 73 70  |djust%=1 . .disp|
00000880  6c 61 79 5f 62 61 72 5f  6d 65 6e 75 28 6d 65 6e  |lay_bar_menu(men|
00000890  75 25 2c 32 2c 30 2c 6d  78 25 29 0d 03 5c 05 e1  |u%,2,0,mx%)..\..|
000008a0  0d 03 66 05 3a 0d 03 70  10 dd 20 f2 63 61 72 65  |..f.:..p.. .care|
000008b0  74 28 69 25 29 0d 03 7a  17 6c 25 3d a9 28 a4 67  |t(i%)..z.l%=.(.g|
000008c0  65 74 5f 69 63 6f 6e 28  69 25 29 29 0d 03 84 2f  |et_icon(i%)).../|
000008d0  c8 99 20 22 57 69 6d 70  5f 53 65 74 43 61 72 65  |.. "Wimp_SetCare|
000008e0  74 50 6f 73 69 74 69 6f  6e 22 2c 6d 61 69 6e 25  |tPosition",main%|
000008f0  2c 69 25 2c 2c 2c 2d 31  2c 6c 25 0d 03 8e 05 e1  |,i%,,,-1,l%.....|
00000900  0d 03 98 05 3a 0d 03 a2  13 dd 20 a4 67 65 74 5f  |....:..... .get_|
00000910  69 63 6f 6e 28 69 25 29  0d 03 ac 1d 21 62 6c 6f  |icon(i%)....!blo|
00000920  63 6b 25 3d 6d 61 69 6e  25 3a 62 6c 6f 63 6b 25  |ck%=main%:block%|
00000930  21 34 3d 69 25 0d 03 b6  22 c8 99 20 22 57 69 6d  |!4=i%...".. "Wim|
00000940  70 5f 47 65 74 49 63 6f  6e 53 74 61 74 65 22 2c  |p_GetIconState",|
00000950  2c 62 6c 6f 63 6b 25 0d  03 c0 11 3d 24 28 62 6c  |,block%....=$(bl|
00000960  6f 63 6b 25 21 32 38 29  0d 03 ca 05 3a 0d 03 d4  |ock%!28)....:...|
00000970  10 dd 20 f2 63 61 6c 63  75 6c 61 74 65 0d 03 de  |.. .calculate...|
00000980  1c 21 62 6c 6f 63 6b 25  3d 6d 61 69 6e 25 3a 62  |.!block%=main%:b|
00000990  6c 6f 63 6b 25 21 34 3d  30 0d 03 e8 22 c8 99 20  |lock%!4=0...".. |
000009a0  22 57 69 6d 70 5f 47 65  74 49 63 6f 6e 53 74 61  |"Wimp_GetIconSta|
000009b0  74 65 22 2c 2c 62 6c 6f  63 6b 25 0d 03 f2 1a 66  |te",,block%....f|
000009c0  77 69 64 74 68 3d bb 28  24 28 62 6c 6f 63 6b 25  |width=.($(block%|
000009d0  21 32 38 29 29 0d 03 fc  1c 21 62 6c 6f 63 6b 25  |!28))....!block%|
000009e0  3d 6d 61 69 6e 25 3a 62  6c 6f 63 6b 25 21 34 3d  |=main%:block%!4=|
000009f0  31 0d 04 06 22 c8 99 20  22 57 69 6d 70 5f 47 65  |1...".. "Wimp_Ge|
00000a00  74 49 63 6f 6e 53 74 61  74 65 22 2c 2c 62 6c 6f  |tIconState",,blo|
00000a10  63 6b 25 0d 04 10 1a 73  77 69 64 74 68 3d bb 28  |ck%....swidth=.(|
00000a20  24 28 62 6c 6f 63 6b 25  21 32 38 29 29 0d 04 1a  |$(block%!28))...|
00000a30  1c 21 62 6c 6f 63 6b 25  3d 6d 61 69 6e 25 3a 62  |.!block%=main%:b|
00000a40  6c 6f 63 6b 25 21 34 3d  32 0d 04 24 22 c8 99 20  |lock%!4=2..$".. |
00000a50  22 57 69 6d 70 5f 47 65  74 49 63 6f 6e 53 74 61  |"Wimp_GetIconSta|
00000a60  74 65 22 2c 2c 62 6c 6f  63 6b 25 0d 04 2e 1b 73  |te",,block%....s|
00000a70  68 65 69 67 68 74 3d bb  28 24 28 62 6c 6f 63 6b  |height=.($(block|
00000a80  25 21 32 38 29 29 0d 04  38 11 e7 20 73 77 69 64  |%!28))..8.. swid|
00000a90  74 68 3c 3e 30 20 8c 0d  04 42 24 20 66 68 65 69  |th<>0 ...B$ fhei|
00000aa0  67 68 74 3d 28 66 77 69  64 74 68 2a 73 68 65 69  |ght=(fwidth*shei|
00000ab0  67 68 74 29 2f 73 77 69  64 74 68 0d 04 4c 1b 20  |ght)/swidth..L. |
00000ac0  68 65 69 67 68 74 24 3d  c0 c3 28 66 68 65 69 67  |height$=..(fheig|
00000ad0  68 74 29 2c 35 29 0d 04  56 05 cc 0d 04 60 18 20  |ht),5)..V....`. |
00000ae0  68 65 69 67 68 74 24 3d  22 55 6e 64 65 66 69 6e  |height$="Undefin|
00000af0  65 64 22 0d 04 6a 05 cd  0d 04 74 1c 21 62 6c 6f  |ed"..j....t.!blo|
00000b00  63 6b 25 3d 6d 61 69 6e  25 3a 62 6c 6f 63 6b 25  |ck%=main%:block%|
00000b10  21 34 3d 33 0d 04 7e 22  c8 99 20 22 57 69 6d 70  |!4=3..~".. "Wimp|
00000b20  5f 47 65 74 49 63 6f 6e  53 74 61 74 65 22 2c 2c  |_GetIconState",,|
00000b30  62 6c 6f 63 6b 25 0d 04  88 18 24 28 62 6c 6f 63  |block%....$(bloc|
00000b40  6b 25 21 32 38 29 3d 68  65 69 67 68 74 24 0d 04  |k%!28)=height$..|
00000b50  92 1c 21 62 6c 6f 63 6b  25 3d 6d 61 69 6e 25 3a  |..!block%=main%:|
00000b60  62 6c 6f 63 6b 25 21 34  3d 33 0d 04 9c 1a 62 6c  |block%!4=3....bl|
00000b70  6f 63 6b 25 21 38 3d 30  3a 62 6c 6f 63 6b 25 21  |ock%!8=0:block%!|
00000b80  31 32 3d 30 0d 04 a6 22  c8 99 20 22 57 69 6d 70  |12=0...".. "Wimp|
00000b90  5f 53 65 74 49 63 6f 6e  53 74 61 74 65 22 2c 2c  |_SetIconState",,|
00000ba0  62 6c 6f 63 6b 25 0d 04  b0 05 e1 0d ff           |block%.......|
00000bad