�     >!RunImage
� By  Mark Moxon
� For 32-bit machines
(� (c) BAU April 1993
2:
<!version$="1.00 (15 Feb 1993)"
Fdir$="<Tools$Dir>"
Pț dir$+".WimpLib"
Z:
d
�setup
n+sprites%=�load_sprites(dir$+".Sprites")
x!�templates(dir$+".Templates")
�$spname%="-tool"
�6bar%=�icon_bar_changeable(block%,spname%,sprites%)
�:
�bmenu_length%=2
�,�create_menu(bmenu%,width%,end%,"Tools")
�9�menu_item(bmenu%,width%,end%,"Info",0,0,0,0,0,info%)
�6�menu_item(bmenu%,width%,end%,"Quit",0,0,0,0,1,-1)
�:
��
�
 �poll
�� quit%
�:
�$block%="TASK"

%ș "Wimp_CloseDown",task%,!block%

�

:

":

,� �setup

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

@7quit%=�       : � True if application is to be quit

J3� block%  &1000 : � Block returned by Wimp_Poll

T*� bmenu%  &200  : � Main icon bar menu

^H� spname% 20    : � Buffer for sprite name of changeable icon on bar

h;� ind1%   500   : � Workspace for Info indirected icons

r9� decode% &100  : � Block to decode menu choices into

|4state%=0          : � State of the icon bar icon

�task_name$="Tools"

�info1$=task_name$

�#info2$="Automatic Tool Sprites"

�info3$="Mark Moxon"

�info4$=version$

�$block%="TASK"

�@ș "Wimp_Initialise",200,!block%,task_name$ � version%,task%

��

�:

�:

�� �templates(file$)

�� tempname% 11

�!ș "Wimp_OpenTemplate",,file$
$tempname%="progInfo"
Aș "Wimp_LoadTemplate",,block%,ind1%,ind1%+499,-1,tempname%,0
*ș "Wimp_CreateWindow",,block% � info%
&!block%=info%
0Ablock%!4=1:ș "Wimp_GetIconState",,block%:$(block%!28)=info1$
:Ablock%!4=2:ș "Wimp_GetIconState",,block%:$(block%!28)=info2$
DAblock%!4=3:ș "Wimp_GetIconState",,block%:$(block%!28)=info3$
NAblock%!4=4:ș "Wimp_GetIconState",,block%:$(block%!28)=info4$
Xș "Wimp_CloseTemplate"
b�
l:
v:
�� �poll
�$ș "Wimp_Poll",,block% � reason%
�Ȏ reason% �
�' � 2 : ș "Wimp_OpenWindow",,block%
�( � 3 : ș "Wimp_CloseWindow",,block%
� � 6 : �mouse_click
� � 9 : �menu_selection
� � 17,18 : �user_message
��
��
�:
�:
�� �mouse_click
� block%!12=-2 �
 � block%!8=2 �
5  �display_bar_menu(bmenu%,bmenu_length%,!block%)
  �
*  �alter_icon
4 �
>�
H�
R:
\:
f� �menu_selection
p� !block%=1 � quit%=�
z�
�:
�:
�� �alter_icon
�<� state%=0 � ic$="-icon":state%=1 � ic$="-tool":state%=0
�-�change_icon(block%,-1,bar%,ic$,sprites%)
��
�:
�:
�� �user_message
�Ȏ block%!16 �
� � 0 : quit%=�
�P � 3 : � block%!40<>&1000 � block%!40<>&2000 � �spr(�zero_string(block%+44))
��
�
:
:
$� �spr(file$)
.(� state%=0 � �("ToolSprites "+file$)
8(� state%=1 � �("IconSprites "+file$)
Bș "Wimp_SetMode",�
L�
�

00000000  0d 00 0a 14 f4 20 20 20  20 20 3e 21 52 75 6e 49  |.....     >!RunI|
00000010  6d 61 67 65 0d 00 14 14  f4 20 42 79 20 20 4d 61  |mage..... By  Ma|
00000020  72 6b 20 4d 6f 78 6f 6e  0d 00 1e 19 f4 20 46 6f  |rk Moxon..... Fo|
00000030  72 20 33 32 2d 62 69 74  20 6d 61 63 68 69 6e 65  |r 32-bit machine|
00000040  73 0d 00 28 18 f4 20 28  63 29 20 42 41 55 20 41  |s..(.. (c) BAU A|
00000050  70 72 69 6c 20 31 39 39  33 0d 00 32 05 3a 0d 00  |pril 1993..2.:..|
00000060  3c 21 76 65 72 73 69 6f  6e 24 3d 22 31 2e 30 30  |<!version$="1.00|
00000070  20 28 31 35 20 46 65 62  20 31 39 39 33 29 22 0d  | (15 Feb 1993)".|
00000080  00 46 16 64 69 72 24 3d  22 3c 54 6f 6f 6c 73 24  |.F.dir$="<Tools$|
00000090  44 69 72 3e 22 0d 00 50  16 c8 9b 20 64 69 72 24  |Dir>"..P... dir$|
000000a0  2b 22 2e 57 69 6d 70 4c  69 62 22 0d 00 5a 05 3a  |+".WimpLib"..Z.:|
000000b0  0d 00 64 0a f2 73 65 74  75 70 0d 00 6e 2b 73 70  |..d..setup..n+sp|
000000c0  72 69 74 65 73 25 3d a4  6c 6f 61 64 5f 73 70 72  |rites%=.load_spr|
000000d0  69 74 65 73 28 64 69 72  24 2b 22 2e 53 70 72 69  |ites(dir$+".Spri|
000000e0  74 65 73 22 29 0d 00 78  21 f2 74 65 6d 70 6c 61  |tes")..x!.templa|
000000f0  74 65 73 28 64 69 72 24  2b 22 2e 54 65 6d 70 6c  |tes(dir$+".Templ|
00000100  61 74 65 73 22 29 0d 00  82 14 24 73 70 6e 61 6d  |ates")....$spnam|
00000110  65 25 3d 22 2d 74 6f 6f  6c 22 0d 00 8c 36 62 61  |e%="-tool"...6ba|
00000120  72 25 3d a4 69 63 6f 6e  5f 62 61 72 5f 63 68 61  |r%=.icon_bar_cha|
00000130  6e 67 65 61 62 6c 65 28  62 6c 6f 63 6b 25 2c 73  |ngeable(block%,s|
00000140  70 6e 61 6d 65 25 2c 73  70 72 69 74 65 73 25 29  |pname%,sprites%)|
00000150  0d 00 96 05 3a 0d 00 a0  13 62 6d 65 6e 75 5f 6c  |....:....bmenu_l|
00000160  65 6e 67 74 68 25 3d 32  0d 00 aa 2c f2 63 72 65  |ength%=2...,.cre|
00000170  61 74 65 5f 6d 65 6e 75  28 62 6d 65 6e 75 25 2c  |ate_menu(bmenu%,|
00000180  77 69 64 74 68 25 2c 65  6e 64 25 2c 22 54 6f 6f  |width%,end%,"Too|
00000190  6c 73 22 29 0d 00 b4 39  f2 6d 65 6e 75 5f 69 74  |ls")...9.menu_it|
000001a0  65 6d 28 62 6d 65 6e 75  25 2c 77 69 64 74 68 25  |em(bmenu%,width%|
000001b0  2c 65 6e 64 25 2c 22 49  6e 66 6f 22 2c 30 2c 30  |,end%,"Info",0,0|
000001c0  2c 30 2c 30 2c 30 2c 69  6e 66 6f 25 29 0d 00 be  |,0,0,0,info%)...|
000001d0  36 f2 6d 65 6e 75 5f 69  74 65 6d 28 62 6d 65 6e  |6.menu_item(bmen|
000001e0  75 25 2c 77 69 64 74 68  25 2c 65 6e 64 25 2c 22  |u%,width%,end%,"|
000001f0  51 75 69 74 22 2c 30 2c  30 2c 30 2c 30 2c 31 2c  |Quit",0,0,0,0,1,|
00000200  2d 31 29 0d 00 c8 05 3a  0d 00 d2 05 f5 0d 00 dc  |-1)....:........|
00000210  0a 20 f2 70 6f 6c 6c 0d  00 e6 0b fd 20 71 75 69  |. .poll..... qui|
00000220  74 25 0d 00 f0 05 3a 0d  00 fa 12 24 62 6c 6f 63  |t%....:....$bloc|
00000230  6b 25 3d 22 54 41 53 4b  22 0d 01 04 25 c8 99 20  |k%="TASK"...%.. |
00000240  22 57 69 6d 70 5f 43 6c  6f 73 65 44 6f 77 6e 22  |"Wimp_CloseDown"|
00000250  2c 74 61 73 6b 25 2c 21  62 6c 6f 63 6b 25 0d 01  |,task%,!block%..|
00000260  0e 05 e0 0d 01 18 05 3a  0d 01 22 05 3a 0d 01 2c  |.......:..".:..,|
00000270  0c dd 20 f2 73 65 74 75  70 0d 01 36 6c ee 20 85  |.. .setup..6l. .|
00000280  20 e7 20 a4 77 69 6d 70  65 72 72 6f 72 28 62 6c  | . .wimperror(bl|
00000290  6f 63 6b 25 2c 9f 2c f6  24 2b 22 20 28 69 6e 74  |ock%,.,.$+" (int|
000002a0  65 72 6e 61 6c 20 65 72  72 6f 72 20 63 6f 64 65  |ernal error code|
000002b0  20 22 2b c3 28 9e 29 2b  22 29 22 2c 74 61 73 6b  | "+.(.)+")",task|
000002c0  5f 6e 61 6d 65 24 2c 30  2c 31 29 3d 32 20 8c 20  |_name$,0,1)=2 . |
000002d0  c8 99 20 22 57 69 6d 70  5f 43 6c 6f 73 65 44 6f  |.. "Wimp_CloseDo|
000002e0  77 6e 22 3a e0 0d 01 40  37 71 75 69 74 25 3d a3  |wn":...@7quit%=.|
000002f0  20 20 20 20 20 20 20 3a  20 f4 20 54 72 75 65 20  |       : . True |
00000300  69 66 20 61 70 70 6c 69  63 61 74 69 6f 6e 20 69  |if application i|
00000310  73 20 74 6f 20 62 65 20  71 75 69 74 0d 01 4a 33  |s to be quit..J3|
00000320  de 20 62 6c 6f 63 6b 25  20 20 26 31 30 30 30 20  |. block%  &1000 |
00000330  3a 20 f4 20 42 6c 6f 63  6b 20 72 65 74 75 72 6e  |: . Block return|
00000340  65 64 20 62 79 20 57 69  6d 70 5f 50 6f 6c 6c 0d  |ed by Wimp_Poll.|
00000350  01 54 2a de 20 62 6d 65  6e 75 25 20 20 26 32 30  |.T*. bmenu%  &20|
00000360  30 20 20 3a 20 f4 20 4d  61 69 6e 20 69 63 6f 6e  |0  : . Main icon|
00000370  20 62 61 72 20 6d 65 6e  75 0d 01 5e 48 de 20 73  | bar menu..^H. s|
00000380  70 6e 61 6d 65 25 20 32  30 20 20 20 20 3a 20 f4  |pname% 20    : .|
00000390  20 42 75 66 66 65 72 20  66 6f 72 20 73 70 72 69  | Buffer for spri|
000003a0  74 65 20 6e 61 6d 65 20  6f 66 20 63 68 61 6e 67  |te name of chang|
000003b0  65 61 62 6c 65 20 69 63  6f 6e 20 6f 6e 20 62 61  |eable icon on ba|
000003c0  72 0d 01 68 3b de 20 69  6e 64 31 25 20 20 20 35  |r..h;. ind1%   5|
000003d0  30 30 20 20 20 3a 20 f4  20 57 6f 72 6b 73 70 61  |00   : . Workspa|
000003e0  63 65 20 66 6f 72 20 49  6e 66 6f 20 69 6e 64 69  |ce for Info indi|
000003f0  72 65 63 74 65 64 20 69  63 6f 6e 73 0d 01 72 39  |rected icons..r9|
00000400  de 20 64 65 63 6f 64 65  25 20 26 31 30 30 20 20  |. decode% &100  |
00000410  3a 20 f4 20 42 6c 6f 63  6b 20 74 6f 20 64 65 63  |: . Block to dec|
00000420  6f 64 65 20 6d 65 6e 75  20 63 68 6f 69 63 65 73  |ode menu choices|
00000430  20 69 6e 74 6f 0d 01 7c  34 73 74 61 74 65 25 3d  | into..|4state%=|
00000440  30 20 20 20 20 20 20 20  20 20 20 3a 20 f4 20 53  |0          : . S|
00000450  74 61 74 65 20 6f 66 20  74 68 65 20 69 63 6f 6e  |tate of the icon|
00000460  20 62 61 72 20 69 63 6f  6e 0d 01 86 16 74 61 73  | bar icon....tas|
00000470  6b 5f 6e 61 6d 65 24 3d  22 54 6f 6f 6c 73 22 0d  |k_name$="Tools".|
00000480  01 90 15 69 6e 66 6f 31  24 3d 74 61 73 6b 5f 6e  |...info1$=task_n|
00000490  61 6d 65 24 0d 01 9a 23  69 6e 66 6f 32 24 3d 22  |ame$...#info2$="|
000004a0  41 75 74 6f 6d 61 74 69  63 20 54 6f 6f 6c 20 53  |Automatic Tool S|
000004b0  70 72 69 74 65 73 22 0d  01 a4 17 69 6e 66 6f 33  |prites"....info3|
000004c0  24 3d 22 4d 61 72 6b 20  4d 6f 78 6f 6e 22 0d 01  |$="Mark Moxon"..|
000004d0  ae 13 69 6e 66 6f 34 24  3d 76 65 72 73 69 6f 6e  |..info4$=version|
000004e0  24 0d 01 b8 12 24 62 6c  6f 63 6b 25 3d 22 54 41  |$....$block%="TA|
000004f0  53 4b 22 0d 01 c2 40 c8  99 20 22 57 69 6d 70 5f  |SK"...@.. "Wimp_|
00000500  49 6e 69 74 69 61 6c 69  73 65 22 2c 32 30 30 2c  |Initialise",200,|
00000510  21 62 6c 6f 63 6b 25 2c  74 61 73 6b 5f 6e 61 6d  |!block%,task_nam|
00000520  65 24 20 b8 20 76 65 72  73 69 6f 6e 25 2c 74 61  |e$ . version%,ta|
00000530  73 6b 25 0d 01 cc 05 e1  0d 01 d6 05 3a 0d 01 e0  |sk%.........:...|
00000540  05 3a 0d 01 ea 17 dd 20  f2 74 65 6d 70 6c 61 74  |.:..... .templat|
00000550  65 73 28 66 69 6c 65 24  29 0d 01 f4 12 de 20 74  |es(file$)..... t|
00000560  65 6d 70 6e 61 6d 65 25  20 31 31 0d 01 fe 21 c8  |empname% 11...!.|
00000570  99 20 22 57 69 6d 70 5f  4f 70 65 6e 54 65 6d 70  |. "Wimp_OpenTemp|
00000580  6c 61 74 65 22 2c 2c 66  69 6c 65 24 0d 02 08 19  |late",,file$....|
00000590  24 74 65 6d 70 6e 61 6d  65 25 3d 22 70 72 6f 67  |$tempname%="prog|
000005a0  49 6e 66 6f 22 0d 02 12  41 c8 99 20 22 57 69 6d  |Info"...A.. "Wim|
000005b0  70 5f 4c 6f 61 64 54 65  6d 70 6c 61 74 65 22 2c  |p_LoadTemplate",|
000005c0  2c 62 6c 6f 63 6b 25 2c  69 6e 64 31 25 2c 69 6e  |,block%,ind1%,in|
000005d0  64 31 25 2b 34 39 39 2c  2d 31 2c 74 65 6d 70 6e  |d1%+499,-1,tempn|
000005e0  61 6d 65 25 2c 30 0d 02  1c 2a c8 99 20 22 57 69  |ame%,0...*.. "Wi|
000005f0  6d 70 5f 43 72 65 61 74  65 57 69 6e 64 6f 77 22  |mp_CreateWindow"|
00000600  2c 2c 62 6c 6f 63 6b 25  20 b8 20 69 6e 66 6f 25  |,,block% . info%|
00000610  0d 02 26 11 21 62 6c 6f  63 6b 25 3d 69 6e 66 6f  |..&.!block%=info|
00000620  25 0d 02 30 41 62 6c 6f  63 6b 25 21 34 3d 31 3a  |%..0Ablock%!4=1:|
00000630  c8 99 20 22 57 69 6d 70  5f 47 65 74 49 63 6f 6e  |.. "Wimp_GetIcon|
00000640  53 74 61 74 65 22 2c 2c  62 6c 6f 63 6b 25 3a 24  |State",,block%:$|
00000650  28 62 6c 6f 63 6b 25 21  32 38 29 3d 69 6e 66 6f  |(block%!28)=info|
00000660  31 24 0d 02 3a 41 62 6c  6f 63 6b 25 21 34 3d 32  |1$..:Ablock%!4=2|
00000670  3a c8 99 20 22 57 69 6d  70 5f 47 65 74 49 63 6f  |:.. "Wimp_GetIco|
00000680  6e 53 74 61 74 65 22 2c  2c 62 6c 6f 63 6b 25 3a  |nState",,block%:|
00000690  24 28 62 6c 6f 63 6b 25  21 32 38 29 3d 69 6e 66  |$(block%!28)=inf|
000006a0  6f 32 24 0d 02 44 41 62  6c 6f 63 6b 25 21 34 3d  |o2$..DAblock%!4=|
000006b0  33 3a c8 99 20 22 57 69  6d 70 5f 47 65 74 49 63  |3:.. "Wimp_GetIc|
000006c0  6f 6e 53 74 61 74 65 22  2c 2c 62 6c 6f 63 6b 25  |onState",,block%|
000006d0  3a 24 28 62 6c 6f 63 6b  25 21 32 38 29 3d 69 6e  |:$(block%!28)=in|
000006e0  66 6f 33 24 0d 02 4e 41  62 6c 6f 63 6b 25 21 34  |fo3$..NAblock%!4|
000006f0  3d 34 3a c8 99 20 22 57  69 6d 70 5f 47 65 74 49  |=4:.. "Wimp_GetI|
00000700  63 6f 6e 53 74 61 74 65  22 2c 2c 62 6c 6f 63 6b  |conState",,block|
00000710  25 3a 24 28 62 6c 6f 63  6b 25 21 32 38 29 3d 69  |%:$(block%!28)=i|
00000720  6e 66 6f 34 24 0d 02 58  1b c8 99 20 22 57 69 6d  |nfo4$..X... "Wim|
00000730  70 5f 43 6c 6f 73 65 54  65 6d 70 6c 61 74 65 22  |p_CloseTemplate"|
00000740  0d 02 62 05 e1 0d 02 6c  05 3a 0d 02 76 05 3a 0d  |..b....l.:..v.:.|
00000750  02 80 0b dd 20 f2 70 6f  6c 6c 0d 02 8a 24 c8 99  |.... .poll...$..|
00000760  20 22 57 69 6d 70 5f 50  6f 6c 6c 22 2c 2c 62 6c  | "Wimp_Poll",,bl|
00000770  6f 63 6b 25 20 b8 20 72  65 61 73 6f 6e 25 0d 02  |ock% . reason%..|
00000780  94 10 c8 8e 20 72 65 61  73 6f 6e 25 20 ca 0d 02  |.... reason% ...|
00000790  9e 27 20 c9 20 32 20 3a  20 c8 99 20 22 57 69 6d  |.' . 2 : .. "Wim|
000007a0  70 5f 4f 70 65 6e 57 69  6e 64 6f 77 22 2c 2c 62  |p_OpenWindow",,b|
000007b0  6c 6f 63 6b 25 0d 02 a8  28 20 c9 20 33 20 3a 20  |lock%...( . 3 : |
000007c0  c8 99 20 22 57 69 6d 70  5f 43 6c 6f 73 65 57 69  |.. "Wimp_CloseWi|
000007d0  6e 64 6f 77 22 2c 2c 62  6c 6f 63 6b 25 0d 02 b2  |ndow",,block%...|
000007e0  17 20 c9 20 36 20 3a 20  f2 6d 6f 75 73 65 5f 63  |. . 6 : .mouse_c|
000007f0  6c 69 63 6b 0d 02 bc 1a  20 c9 20 39 20 3a 20 f2  |lick.... . 9 : .|
00000800  6d 65 6e 75 5f 73 65 6c  65 63 74 69 6f 6e 0d 02  |menu_selection..|
00000810  c6 1c 20 c9 20 31 37 2c  31 38 20 3a 20 f2 75 73  |.. . 17,18 : .us|
00000820  65 72 5f 6d 65 73 73 61  67 65 0d 02 d0 05 cb 0d  |er_message......|
00000830  02 da 05 e1 0d 02 e4 05  3a 0d 02 ee 05 3a 0d 02  |........:....:..|
00000840  f8 12 dd 20 f2 6d 6f 75  73 65 5f 63 6c 69 63 6b  |... .mouse_click|
00000850  0d 03 02 14 e7 20 62 6c  6f 63 6b 25 21 31 32 3d  |..... block%!12=|
00000860  2d 32 20 8c 0d 03 0c 13  20 e7 20 62 6c 6f 63 6b  |-2 ..... . block|
00000870  25 21 38 3d 32 20 8c 0d  03 16 35 20 20 f2 64 69  |%!8=2 ....5  .di|
00000880  73 70 6c 61 79 5f 62 61  72 5f 6d 65 6e 75 28 62  |splay_bar_menu(b|
00000890  6d 65 6e 75 25 2c 62 6d  65 6e 75 5f 6c 65 6e 67  |menu%,bmenu_leng|
000008a0  74 68 25 2c 21 62 6c 6f  63 6b 25 29 0d 03 20 06  |th%,!block%).. .|
000008b0  20 cc 0d 03 2a 11 20 20  f2 61 6c 74 65 72 5f 69  | ...*.  .alter_i|
000008c0  63 6f 6e 0d 03 34 06 20  cd 0d 03 3e 05 cd 0d 03  |con..4. ...>....|
000008d0  48 05 e1 0d 03 52 05 3a  0d 03 5c 05 3a 0d 03 66  |H....R.:..\.:..f|
000008e0  15 dd 20 f2 6d 65 6e 75  5f 73 65 6c 65 63 74 69  |.. .menu_selecti|
000008f0  6f 6e 0d 03 70 19 e7 20  21 62 6c 6f 63 6b 25 3d  |on..p.. !block%=|
00000900  31 20 8c 20 71 75 69 74  25 3d b9 0d 03 7a 05 e1  |1 . quit%=...z..|
00000910  0d 03 84 05 3a 0d 03 8e  05 3a 0d 03 98 11 dd 20  |....:....:..... |
00000920  f2 61 6c 74 65 72 5f 69  63 6f 6e 0d 03 a2 3c e7  |.alter_icon...<.|
00000930  20 73 74 61 74 65 25 3d  30 20 8c 20 69 63 24 3d  | state%=0 . ic$=|
00000940  22 2d 69 63 6f 6e 22 3a  73 74 61 74 65 25 3d 31  |"-icon":state%=1|
00000950  20 8b 20 69 63 24 3d 22  2d 74 6f 6f 6c 22 3a 73  | . ic$="-tool":s|
00000960  74 61 74 65 25 3d 30 0d  03 ac 2d f2 63 68 61 6e  |tate%=0...-.chan|
00000970  67 65 5f 69 63 6f 6e 28  62 6c 6f 63 6b 25 2c 2d  |ge_icon(block%,-|
00000980  31 2c 62 61 72 25 2c 69  63 24 2c 73 70 72 69 74  |1,bar%,ic$,sprit|
00000990  65 73 25 29 0d 03 b6 05  e1 0d 03 c0 05 3a 0d 03  |es%).........:..|
000009a0  ca 05 3a 0d 03 d4 13 dd  20 f2 75 73 65 72 5f 6d  |..:..... .user_m|
000009b0  65 73 73 61 67 65 0d 03  de 12 c8 8e 20 62 6c 6f  |essage...... blo|
000009c0  63 6b 25 21 31 36 20 ca  0d 03 e8 12 20 c9 20 30  |ck%!16 ..... . 0|
000009d0  20 3a 20 71 75 69 74 25  3d b9 0d 03 f2 50 20 c9  | : quit%=....P .|
000009e0  20 33 20 3a 20 e7 20 62  6c 6f 63 6b 25 21 34 30  | 3 : . block%!40|
000009f0  3c 3e 26 31 30 30 30 20  80 20 62 6c 6f 63 6b 25  |<>&1000 . block%|
00000a00  21 34 30 3c 3e 26 32 30  30 30 20 8c 20 f2 73 70  |!40<>&2000 . .sp|
00000a10  72 28 a4 7a 65 72 6f 5f  73 74 72 69 6e 67 28 62  |r(.zero_string(b|
00000a20  6c 6f 63 6b 25 2b 34 34  29 29 0d 03 fc 05 cb 0d  |lock%+44))......|
00000a30  04 06 05 e1 0d 04 10 05  3a 0d 04 1a 05 3a 0d 04  |........:....:..|
00000a40  24 11 dd 20 f2 73 70 72  28 66 69 6c 65 24 29 0d  |$.. .spr(file$).|
00000a50  04 2e 28 e7 20 73 74 61  74 65 25 3d 30 20 8c 20  |..(. state%=0 . |
00000a60  ff 28 22 54 6f 6f 6c 53  70 72 69 74 65 73 20 22  |.("ToolSprites "|
00000a70  2b 66 69 6c 65 24 29 0d  04 38 28 e7 20 73 74 61  |+file$)..8(. sta|
00000a80  74 65 25 3d 31 20 8c 20  ff 28 22 49 63 6f 6e 53  |te%=1 . .("IconS|
00000a90  70 72 69 74 65 73 20 22  2b 66 69 6c 65 24 29 0d  |prites "+file$).|
00000aa0  04 42 17 c8 99 20 22 57  69 6d 70 5f 53 65 74 4d  |.B... "Wimp_SetM|
00000ab0  6f 64 65 22 2c eb 0d 04  4c 05 e1 0d ff           |ode",...L....|
00000abd