�     >!RunImage
� By  Andrew Timms
� For 32-bit machines
(� (c) BAU June 1993
2:
<	�init
F:
Pȕ � quit%
Z	�poll
d�
nș "Wimp_CloseDown"
x�
�:
�� �error(a$)
��report(a$,1)
�ș "Wimp_CloseDown"
��
��
�:
�� �report(err$,flag%)
�.name$=app$:!block%=255:$(block%+4)=err$+�0
�.� flag% � 16 � name$="Message from "+name$
�9ș "Wimp_ReportError",block%,flag%,name$ � ,errclick%
��
�:

� �init

�app$="ArcUtils":� � �error("Either ArcUtils has suffered an internal error or you have done something silly. Error ref: "+�$+" at line "+Þ+�0)


ei%=&1000

"K� block% 1024,indwsp% 150,name% 11,imenu% 250,indwsp2% 100,indwsp3% 900

,$quit%=�:� indwsp4% 500,smenu% 99

6+ș "Wimp_Initialise",200,&4B534154,app$

@2ș "Wimp_OpenTemplate",,"<Obey$Dir>.Templates"

J$name%="strip"

TAș "Wimp_LoadTemplate",,block%,indwsp%,indwsp%+ei%,-1,name%,0

^+ș "Wimp_CreateWindow",,block% � strip%

h$name%="info"

rCș "Wimp_LoadTemplate",,block%,indwsp2%,indwsp2%+ei%,-1,name%,0

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

�$name%="fileinfo"

�Cș "Wimp_LoadTemplate",,block%,indwsp3%,indwsp3%+ei%,-1,name%,0

�.ș "Wimp_CreateWindow",,block% � fileinfo%

�$name%="fileops"

�Cș "Wimp_LoadTemplate",,block%,indwsp4%,indwsp4%+ei%,-1,name%,0

�-ș "Wimp_CreateWindow",,block% � fileops%

�ș "Wimp_CloseTemplate"

�)�icontext(info%,7,"1.13 (03-Mar-93)")

�2�icontext(info%,6,"Andrew Timms, � BAU 1993.")

�� �tzI:�setupmenu(imenu%)

�� �dDI:�setupmenu(smenu%)

�8ibhand%=�create_icon(-1,0,0,68,68,&3002,"!arcutils")

��
:
5� �create_icon(whan%,ix%,iy%,iw%,ih%,flag%,text$)
!block%=whan%
&block%!4=ix%
0block%!8=iy%
:block%!12=ix%+iw%
Dblock%!16=iy%+ih%
Nblock%!20=flag%
X$(block%+24)=text$
b+ș "Wimp_CreateIcon",,block% � ihandle%
l
=ihandle%
v:
�� �setupmenu(menu%)
�� title$,num%:$menu%=title$
�width%=(�(title$)-2)*16
�-menu%!12=&00070207:menu%!20=44:menu%!24=0
�ptr%=menu%+28:� i%=1 � num%
�� mflags%,subptr%,item$
� !ptr%=mflags%:ptr%!4=subptr%
�$ptr%!8=&7000021:$(ptr%+12)=item$
�a%=(�(item$)+1)*16
�� a%>width% width%=a%
�ptr%+=24:�
�menu%!16=width%
��
:
� �poll
*ș "Wimp_Poll",&9FFB1,block% � reason%
 Ȏ reason% �
*$� 2:ș "Wimp_OpenWindow",,block%
4%� 3:ș "Wimp_CloseWindow",,block%
>� 6:�click(block%!12)
H� 9:�menuselect
R� 17,18:�receive
\�
f�
p:
z� �click(win%)
�
Ȏ win% �
�� -2:�ibar(block%!8)
�� strip%:�sclick(block%!8)
��
��
�:
�� �menuselect
� sel1%=!block%:sel2%=block%!4
�5ș "Wimp_GetPointerInfo",,block%:button%=block%!8
�Ȏ sel1% �
�� 1:�openwindow(strip%)
�� 2:�openwindow(fileinfo%)
�� 3:Ȏ sel2% �
� 0:�openwindow(fileops%)
� 1:�("Dir $")
�
$� 4:quit%=�
.�
8%� button%=1 �showmenu(imenu%,0,0)
B�
L:
V� �receive
`Ȏ block%!16 �
j� 0:quit%=�
t� 3:�dealwithmess
~� &502:�dohelp
��
��
�:
�� �showmenu(menu%,mx%,my%)
�'ș "Wimp_CreateMenu",,menu%,mx%,my%
��
�:
�� �ibar(button%)
�Ȏ button% �
�� 4:�dismount
�(� 2:�showmenu(imenu%,!block%-64,364)
�� 1:�redrawdesktop
�

�
:
!� �icontext(win%,icon%,text$)
(!block%=win%:block%!4=icon%
2"ș "Wimp_GetIconState",,block%
<G!block%=win%:block%!4=icon%:$block%!28=text$:block%!8=0:block%!12=0
F"ș "Wimp_SetIconState",,block%
P�
Z:
d� �openwindow(window%)
n4!block%=window%:ș "Wimp_GetWindowState",,block%
x ș "Wimp_OpenWindow",,block%
��
�:
�� �dismount
��("Dismount 0")
��
�:
�� �sclick(button%)
�Ȏ button% �
�� 1,4:Ȏ block%!16 �
�� 0:key%=&181
�� 1:key%=&182
�� 2:key%=&183
�� 3:key%=&184
� 4:key%=&185
� 5:key%=&186
� 6:key%=&187
"� 7:key%=&188
,� 8:key%=&189
6� 9:key%=&1CA
@� 10:key%=&1CB
J� 11:key%=&1CC
T�
^�
h,� button%=4 � button%=1 �fakepress(key%)
r�
|:
�� �fakepress(key%)
�ș "Wimp_ProcessKey",key%
��
�:
�� �redrawdesktop
�0ș "Wimp_ForceRedraw",-1,0,0,1000000,1000000
��
�:
�� �dofileinfo
�
done=�
�� block%!20=strip% �
�path$=�getstring(block%+44)
�!type%=block%!40:type$=�~type%
'� type$="1000" � type$="2000" � �sd
'� done=� � � �openwindow(fileinfo%)
J!block%=fileinfo%:block%!4=0:ș "Wimp_GetIconState",,block%:block%!8=0
&?block%!12=0:$block%!28=path$:ș "Wimp_SetIconState",,block%
0J!block%=fileinfo%:block%!4=3:ș "Wimp_GetIconState",,block%:block%!8=0
:?block%!12=0:$block%!28=type$:ș "Wimp_SetIconState",,block%
D�
N:
X� �getstring(ptr%)
b� a$:ȕ ?ptr%<>0
la$+=�(?ptr%):ptr%+=1
v�
�=a$
�:
�	� �sd
��("Dir "+path$)
�
done=�
��
�:
�� �dealwithmess
�/� block%!20=fileops% �fileops � �dofileinfo
��
�:
�� �fileops
�path$=�getstring(block%+44)
3� block%!24=0 � block%!24=1 � block%!24=2 �sd:�
/� block%!24=4 � block%!24=3 � block%!24=8 �
ș "Hourglass_On"
 �("Access "+path$+" RW")
*�("Delete "+path$)
4ș "Hourglass_Off"
>�
H/� block%!24=5 � block%!24=6 � block%!24=7 �
R;�report("Are you sure you want to delete this file?",3)
\� errclick%=1 �
fș "Hourglass_On"
p�("Access "+path$+" RW")
z�("Delete "+path$)
�ș "Hourglass_Off"
��
��
��
��
��
�:
�
� �dohelp
��� block%!32=-2 �sendhelp("This is the ArcUtils icon.|MClick SELECT to dismount the disc currently in drive 0.|MClick ADJUST to redraw the desktop.|MDrag a directory/application here to set it as the CSD.")
��� block%!32=strip% �sendhelp("This is the on-screen function keystrip.|MClick an icon with SELECT or ADJUST, and the computer will think you have|Mpressed the relevant function key, and it will then react accordingly.")
��� block%!32=info% �sendhelp("This is the groovy ArcUtils info box.|MThis program may be added to in the future, and so any suggestions for|Mimprovements will be considered.|MWrite to Andrew Timms, via BAU and voice your thoughts! Bye!")
�(� block%!32=fileinfo% Ȏ block%!36 �
��� 1:�sendhelp("This is the file information window.|MThis icon is simply to show you which bit of information is the pathname|Mof the file you last dragged to the icon bar icon (if you have dragged|Mone!).")
	�� 0:�sendhelp("This is the file information window.|MThis icon displays the pathname of the last file that you dragged|Mto the icon bar icon (if you have dragged one!).")
	�� 2:�sendhelp("This is the file information window.|MThis icon is simply to show you which bit of information is the filetype|Mof the file you last dragged to the icon bar icon (if you have dragged|Mone!).")
	�� 3:�sendhelp("This is the file information window.|MThis icon displays the filetype of the last file that you dragged|Mto the icon bar icon (if you have dragged one!).")
	$7:�sendhelp("This is the file information window.")
	.�
	8'� block%!32=fileops% Ȏ block%!36 �
	Bv� 0,1,2:�sendhelp("This is the filer operations window.|MDrag a directory/application here to set it as the CSD.")
	L�� 3,4,8:�sendhelp("This is the filer operations window.|MDrag a file here and it will be deleted AT ONCE and WITHOUT further|Mprompting.")
	V�� 5,6,7:�sendhelp("This is the filer operations window.|MDrag a file here and it will be deleted if you confirm, by clicking on 'OK',|Min the error box that will appear.")
	`7:�sendhelp("This is the filer operations window.")
	j�
	t�
	~:
	�� �sendhelp(h$)
	�D$(block%+20)=h$+�0:block%!16=&503:block%!12=block%!8:!block%=228
	�,ș "Wimp_SendMessage",17,block%,block%!4
	��
	�:
	�[� ArcUtils,5,&2,info%,Info,0,-1,Keystrip,0,-1,File info,&2,smenu%,Filer ops,&80,-1,Quit
	�3� Filer ops,2,&2,-1,Open window,&80,-1,Set root
�

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 16  f4 20 42 79 20 20 41 6e  |mage..... By  An|
00000020  64 72 65 77 20 54 69 6d  6d 73 0d 00 1e 19 f4 20  |drew Timms..... |
00000030  46 6f 72 20 33 32 2d 62  69 74 20 6d 61 63 68 69  |For 32-bit machi|
00000040  6e 65 73 0d 00 28 17 f4  20 28 63 29 20 42 41 55  |nes..(.. (c) BAU|
00000050  20 4a 75 6e 65 20 31 39  39 33 0d 00 32 05 3a 0d  | June 1993..2.:.|
00000060  00 3c 09 f2 69 6e 69 74  0d 00 46 05 3a 0d 00 50  |.<..init..F.:..P|
00000070  0e c8 95 20 ac 20 71 75  69 74 25 0d 00 5a 09 f2  |... . quit%..Z..|
00000080  70 6f 6c 6c 0d 00 64 05  ce 0d 00 6e 17 c8 99 20  |poll..d....n... |
00000090  22 57 69 6d 70 5f 43 6c  6f 73 65 44 6f 77 6e 22  |"Wimp_CloseDown"|
000000a0  0d 00 78 05 e0 0d 00 82  05 3a 0d 00 8c 10 dd 20  |..x......:..... |
000000b0  f2 65 72 72 6f 72 28 61  24 29 0d 00 96 11 f2 72  |.error(a$).....r|
000000c0  65 70 6f 72 74 28 61 24  2c 31 29 0d 00 a0 17 c8  |eport(a$,1).....|
000000d0  99 20 22 57 69 6d 70 5f  43 6c 6f 73 65 44 6f 77  |. "Wimp_CloseDow|
000000e0  6e 22 0d 00 aa 05 e0 0d  00 b4 05 e1 0d 00 be 05  |n"..............|
000000f0  3a 0d 00 c8 19 dd 20 f2  72 65 70 6f 72 74 28 65  |:..... .report(e|
00000100  72 72 24 2c 66 6c 61 67  25 29 0d 00 d2 2e 6e 61  |rr$,flag%)....na|
00000110  6d 65 24 3d 61 70 70 24  3a 21 62 6c 6f 63 6b 25  |me$=app$:!block%|
00000120  3d 32 35 35 3a 24 28 62  6c 6f 63 6b 25 2b 34 29  |=255:$(block%+4)|
00000130  3d 65 72 72 24 2b bd 30  0d 00 dc 2e e7 20 66 6c  |=err$+.0..... fl|
00000140  61 67 25 20 80 20 31 36  20 8c 20 6e 61 6d 65 24  |ag% . 16 . name$|
00000150  3d 22 4d 65 73 73 61 67  65 20 66 72 6f 6d 20 22  |="Message from "|
00000160  2b 6e 61 6d 65 24 0d 00  e6 39 c8 99 20 22 57 69  |+name$...9.. "Wi|
00000170  6d 70 5f 52 65 70 6f 72  74 45 72 72 6f 72 22 2c  |mp_ReportError",|
00000180  62 6c 6f 63 6b 25 2c 66  6c 61 67 25 2c 6e 61 6d  |block%,flag%,nam|
00000190  65 24 20 b8 20 2c 65 72  72 63 6c 69 63 6b 25 0d  |e$ . ,errclick%.|
000001a0  00 f0 05 e1 0d 00 fa 05  3a 0d 01 04 0b dd 20 f2  |........:..... .|
000001b0  69 6e 69 74 0d 01 0e 93  61 70 70 24 3d 22 41 72  |init....app$="Ar|
000001c0  63 55 74 69 6c 73 22 3a  ee 20 85 20 f2 65 72 72  |cUtils":. . .err|
000001d0  6f 72 28 22 45 69 74 68  65 72 20 41 72 63 55 74  |or("Either ArcUt|
000001e0  69 6c 73 20 68 61 73 20  73 75 66 66 65 72 65 64  |ils has suffered|
000001f0  20 61 6e 20 69 6e 74 65  72 6e 61 6c 20 65 72 72  | an internal err|
00000200  6f 72 20 6f 72 20 79 6f  75 20 68 61 76 65 20 64  |or or you have d|
00000210  6f 6e 65 20 73 6f 6d 65  74 68 69 6e 67 20 73 69  |one something si|
00000220  6c 6c 79 2e 20 45 72 72  6f 72 20 72 65 66 3a 20  |lly. Error ref: |
00000230  22 2b f6 24 2b 22 20 61  74 20 6c 69 6e 65 20 22  |"+.$+" at line "|
00000240  2b c3 9e 2b bd 30 29 0d  01 18 0d 65 69 25 3d 26  |+..+.0)....ei%=&|
00000250  31 30 30 30 0d 01 22 4b  de 20 62 6c 6f 63 6b 25  |1000.."K. block%|
00000260  20 31 30 32 34 2c 69 6e  64 77 73 70 25 20 31 35  | 1024,indwsp% 15|
00000270  30 2c 6e 61 6d 65 25 20  31 31 2c 69 6d 65 6e 75  |0,name% 11,imenu|
00000280  25 20 32 35 30 2c 69 6e  64 77 73 70 32 25 20 31  |% 250,indwsp2% 1|
00000290  30 30 2c 69 6e 64 77 73  70 33 25 20 39 30 30 0d  |00,indwsp3% 900.|
000002a0  01 2c 24 71 75 69 74 25  3d a3 3a de 20 69 6e 64  |.,$quit%=.:. ind|
000002b0  77 73 70 34 25 20 35 30  30 2c 73 6d 65 6e 75 25  |wsp4% 500,smenu%|
000002c0  20 39 39 0d 01 36 2b c8  99 20 22 57 69 6d 70 5f  | 99..6+.. "Wimp_|
000002d0  49 6e 69 74 69 61 6c 69  73 65 22 2c 32 30 30 2c  |Initialise",200,|
000002e0  26 34 42 35 33 34 31 35  34 2c 61 70 70 24 0d 01  |&4B534154,app$..|
000002f0  40 32 c8 99 20 22 57 69  6d 70 5f 4f 70 65 6e 54  |@2.. "Wimp_OpenT|
00000300  65 6d 70 6c 61 74 65 22  2c 2c 22 3c 4f 62 65 79  |emplate",,"<Obey|
00000310  24 44 69 72 3e 2e 54 65  6d 70 6c 61 74 65 73 22  |$Dir>.Templates"|
00000320  0d 01 4a 12 24 6e 61 6d  65 25 3d 22 73 74 72 69  |..J.$name%="stri|
00000330  70 22 0d 01 54 41 c8 99  20 22 57 69 6d 70 5f 4c  |p"..TA.. "Wimp_L|
00000340  6f 61 64 54 65 6d 70 6c  61 74 65 22 2c 2c 62 6c  |oadTemplate",,bl|
00000350  6f 63 6b 25 2c 69 6e 64  77 73 70 25 2c 69 6e 64  |ock%,indwsp%,ind|
00000360  77 73 70 25 2b 65 69 25  2c 2d 31 2c 6e 61 6d 65  |wsp%+ei%,-1,name|
00000370  25 2c 30 0d 01 5e 2b c8  99 20 22 57 69 6d 70 5f  |%,0..^+.. "Wimp_|
00000380  43 72 65 61 74 65 57 69  6e 64 6f 77 22 2c 2c 62  |CreateWindow",,b|
00000390  6c 6f 63 6b 25 20 b8 20  73 74 72 69 70 25 0d 01  |lock% . strip%..|
000003a0  68 11 24 6e 61 6d 65 25  3d 22 69 6e 66 6f 22 0d  |h.$name%="info".|
000003b0  01 72 43 c8 99 20 22 57  69 6d 70 5f 4c 6f 61 64  |.rC.. "Wimp_Load|
000003c0  54 65 6d 70 6c 61 74 65  22 2c 2c 62 6c 6f 63 6b  |Template",,block|
000003d0  25 2c 69 6e 64 77 73 70  32 25 2c 69 6e 64 77 73  |%,indwsp2%,indws|
000003e0  70 32 25 2b 65 69 25 2c  2d 31 2c 6e 61 6d 65 25  |p2%+ei%,-1,name%|
000003f0  2c 30 0d 01 7c 2a c8 99  20 22 57 69 6d 70 5f 43  |,0..|*.. "Wimp_C|
00000400  72 65 61 74 65 57 69 6e  64 6f 77 22 2c 2c 62 6c  |reateWindow",,bl|
00000410  6f 63 6b 25 20 b8 20 69  6e 66 6f 25 0d 01 86 15  |ock% . info%....|
00000420  24 6e 61 6d 65 25 3d 22  66 69 6c 65 69 6e 66 6f  |$name%="fileinfo|
00000430  22 0d 01 90 43 c8 99 20  22 57 69 6d 70 5f 4c 6f  |"...C.. "Wimp_Lo|
00000440  61 64 54 65 6d 70 6c 61  74 65 22 2c 2c 62 6c 6f  |adTemplate",,blo|
00000450  63 6b 25 2c 69 6e 64 77  73 70 33 25 2c 69 6e 64  |ck%,indwsp3%,ind|
00000460  77 73 70 33 25 2b 65 69  25 2c 2d 31 2c 6e 61 6d  |wsp3%+ei%,-1,nam|
00000470  65 25 2c 30 0d 01 9a 2e  c8 99 20 22 57 69 6d 70  |e%,0...... "Wimp|
00000480  5f 43 72 65 61 74 65 57  69 6e 64 6f 77 22 2c 2c  |_CreateWindow",,|
00000490  62 6c 6f 63 6b 25 20 b8  20 66 69 6c 65 69 6e 66  |block% . fileinf|
000004a0  6f 25 0d 01 a4 14 24 6e  61 6d 65 25 3d 22 66 69  |o%....$name%="fi|
000004b0  6c 65 6f 70 73 22 0d 01  ae 43 c8 99 20 22 57 69  |leops"...C.. "Wi|
000004c0  6d 70 5f 4c 6f 61 64 54  65 6d 70 6c 61 74 65 22  |mp_LoadTemplate"|
000004d0  2c 2c 62 6c 6f 63 6b 25  2c 69 6e 64 77 73 70 34  |,,block%,indwsp4|
000004e0  25 2c 69 6e 64 77 73 70  34 25 2b 65 69 25 2c 2d  |%,indwsp4%+ei%,-|
000004f0  31 2c 6e 61 6d 65 25 2c  30 0d 01 b8 2d c8 99 20  |1,name%,0...-.. |
00000500  22 57 69 6d 70 5f 43 72  65 61 74 65 57 69 6e 64  |"Wimp_CreateWind|
00000510  6f 77 22 2c 2c 62 6c 6f  63 6b 25 20 b8 20 66 69  |ow",,block% . fi|
00000520  6c 65 6f 70 73 25 0d 01  c2 1b c8 99 20 22 57 69  |leops%...... "Wi|
00000530  6d 70 5f 43 6c 6f 73 65  54 65 6d 70 6c 61 74 65  |mp_CloseTemplate|
00000540  22 0d 01 cc 29 f2 69 63  6f 6e 74 65 78 74 28 69  |"...).icontext(i|
00000550  6e 66 6f 25 2c 37 2c 22  31 2e 31 33 20 28 30 33  |nfo%,7,"1.13 (03|
00000560  2d 4d 61 72 2d 39 33 29  22 29 0d 01 d6 32 f2 69  |-Mar-93)")...2.i|
00000570  63 6f 6e 74 65 78 74 28  69 6e 66 6f 25 2c 36 2c  |context(info%,6,|
00000580  22 41 6e 64 72 65 77 20  54 69 6d 6d 73 2c 20 a9  |"Andrew Timms, .|
00000590  20 42 41 55 20 31 39 39  33 2e 22 29 0d 01 e0 1d  | BAU 1993.")....|
000005a0  f7 20 8d 74 7a 49 3a f2  73 65 74 75 70 6d 65 6e  |. .tzI:.setupmen|
000005b0  75 28 69 6d 65 6e 75 25  29 0d 01 ea 1d f7 20 8d  |u(imenu%)..... .|
000005c0  64 44 49 3a f2 73 65 74  75 70 6d 65 6e 75 28 73  |dDI:.setupmenu(s|
000005d0  6d 65 6e 75 25 29 0d 01  f4 38 69 62 68 61 6e 64  |menu%)...8ibhand|
000005e0  25 3d a4 63 72 65 61 74  65 5f 69 63 6f 6e 28 2d  |%=.create_icon(-|
000005f0  31 2c 30 2c 30 2c 36 38  2c 36 38 2c 26 33 30 30  |1,0,0,68,68,&300|
00000600  32 2c 22 21 61 72 63 75  74 69 6c 73 22 29 0d 01  |2,"!arcutils")..|
00000610  fe 05 e1 0d 02 08 05 3a  0d 02 12 35 dd 20 a4 63  |.......:...5. .c|
00000620  72 65 61 74 65 5f 69 63  6f 6e 28 77 68 61 6e 25  |reate_icon(whan%|
00000630  2c 69 78 25 2c 69 79 25  2c 69 77 25 2c 69 68 25  |,ix%,iy%,iw%,ih%|
00000640  2c 66 6c 61 67 25 2c 74  65 78 74 24 29 0d 02 1c  |,flag%,text$)...|
00000650  11 21 62 6c 6f 63 6b 25  3d 77 68 61 6e 25 0d 02  |.!block%=whan%..|
00000660  26 10 62 6c 6f 63 6b 25  21 34 3d 69 78 25 0d 02  |&.block%!4=ix%..|
00000670  30 10 62 6c 6f 63 6b 25  21 38 3d 69 79 25 0d 02  |0.block%!8=iy%..|
00000680  3a 15 62 6c 6f 63 6b 25  21 31 32 3d 69 78 25 2b  |:.block%!12=ix%+|
00000690  69 77 25 0d 02 44 15 62  6c 6f 63 6b 25 21 31 36  |iw%..D.block%!16|
000006a0  3d 69 79 25 2b 69 68 25  0d 02 4e 13 62 6c 6f 63  |=iy%+ih%..N.bloc|
000006b0  6b 25 21 32 30 3d 66 6c  61 67 25 0d 02 58 16 24  |k%!20=flag%..X.$|
000006c0  28 62 6c 6f 63 6b 25 2b  32 34 29 3d 74 65 78 74  |(block%+24)=text|
000006d0  24 0d 02 62 2b c8 99 20  22 57 69 6d 70 5f 43 72  |$..b+.. "Wimp_Cr|
000006e0  65 61 74 65 49 63 6f 6e  22 2c 2c 62 6c 6f 63 6b  |eateIcon",,block|
000006f0  25 20 b8 20 69 68 61 6e  64 6c 65 25 0d 02 6c 0d  |% . ihandle%..l.|
00000700  3d 69 68 61 6e 64 6c 65  25 0d 02 76 05 3a 0d 02  |=ihandle%..v.:..|
00000710  80 17 dd 20 f2 73 65 74  75 70 6d 65 6e 75 28 6d  |... .setupmenu(m|
00000720  65 6e 75 25 29 0d 02 8a  1f f3 20 74 69 74 6c 65  |enu%)..... title|
00000730  24 2c 6e 75 6d 25 3a 24  6d 65 6e 75 25 3d 74 69  |$,num%:$menu%=ti|
00000740  74 6c 65 24 0d 02 94 1b  77 69 64 74 68 25 3d 28  |tle$....width%=(|
00000750  a9 28 74 69 74 6c 65 24  29 2d 32 29 2a 31 36 0d  |.(title$)-2)*16.|
00000760  02 9e 2d 6d 65 6e 75 25  21 31 32 3d 26 30 30 30  |..-menu%!12=&000|
00000770  37 30 32 30 37 3a 6d 65  6e 75 25 21 32 30 3d 34  |70207:menu%!20=4|
00000780  34 3a 6d 65 6e 75 25 21  32 34 3d 30 0d 02 a8 1f  |4:menu%!24=0....|
00000790  70 74 72 25 3d 6d 65 6e  75 25 2b 32 38 3a e3 20  |ptr%=menu%+28:. |
000007a0  69 25 3d 31 20 b8 20 6e  75 6d 25 0d 02 b2 1b f3  |i%=1 . num%.....|
000007b0  20 6d 66 6c 61 67 73 25  2c 73 75 62 70 74 72 25  | mflags%,subptr%|
000007c0  2c 69 74 65 6d 24 0d 02  bc 20 21 70 74 72 25 3d  |,item$... !ptr%=|
000007d0  6d 66 6c 61 67 73 25 3a  70 74 72 25 21 34 3d 73  |mflags%:ptr%!4=s|
000007e0  75 62 70 74 72 25 0d 02  c6 24 70 74 72 25 21 38  |ubptr%...$ptr%!8|
000007f0  3d 26 37 30 30 30 30 32  31 3a 24 28 70 74 72 25  |=&7000021:$(ptr%|
00000800  2b 31 32 29 3d 69 74 65  6d 24 0d 02 d0 16 61 25  |+12)=item$....a%|
00000810  3d 28 a9 28 69 74 65 6d  24 29 2b 31 29 2a 31 36  |=(.(item$)+1)*16|
00000820  0d 02 da 19 e7 20 61 25  3e 77 69 64 74 68 25 20  |..... a%>width% |
00000830  77 69 64 74 68 25 3d 61  25 0d 02 e4 0e 70 74 72  |width%=a%....ptr|
00000840  25 2b 3d 32 34 3a ed 0d  02 ee 13 6d 65 6e 75 25  |%+=24:.....menu%|
00000850  21 31 36 3d 77 69 64 74  68 25 0d 02 f8 05 e1 0d  |!16=width%......|
00000860  03 02 05 3a 0d 03 0c 0b  dd 20 f2 70 6f 6c 6c 0d  |...:..... .poll.|
00000870  03 16 2a c8 99 20 22 57  69 6d 70 5f 50 6f 6c 6c  |..*.. "Wimp_Poll|
00000880  22 2c 26 39 46 46 42 31  2c 62 6c 6f 63 6b 25 20  |",&9FFB1,block% |
00000890  b8 20 72 65 61 73 6f 6e  25 0d 03 20 10 c8 8e 20  |. reason%.. ... |
000008a0  72 65 61 73 6f 6e 25 20  ca 0d 03 2a 24 c9 20 32  |reason% ...*$. 2|
000008b0  3a c8 99 20 22 57 69 6d  70 5f 4f 70 65 6e 57 69  |:.. "Wimp_OpenWi|
000008c0  6e 64 6f 77 22 2c 2c 62  6c 6f 63 6b 25 0d 03 34  |ndow",,block%..4|
000008d0  25 c9 20 33 3a c8 99 20  22 57 69 6d 70 5f 43 6c  |%. 3:.. "Wimp_Cl|
000008e0  6f 73 65 57 69 6e 64 6f  77 22 2c 2c 62 6c 6f 63  |oseWindow",,bloc|
000008f0  6b 25 0d 03 3e 19 c9 20  36 3a f2 63 6c 69 63 6b  |k%..>.. 6:.click|
00000900  28 62 6c 6f 63 6b 25 21  31 32 29 0d 03 48 13 c9  |(block%!12)..H..|
00000910  20 39 3a f2 6d 65 6e 75  73 65 6c 65 63 74 0d 03  | 9:.menuselect..|
00000920  52 14 c9 20 31 37 2c 31  38 3a f2 72 65 63 65 69  |R.. 17,18:.recei|
00000930  76 65 0d 03 5c 05 cb 0d  03 66 05 e1 0d 03 70 05  |ve..\....f....p.|
00000940  3a 0d 03 7a 12 dd 20 f2  63 6c 69 63 6b 28 77 69  |:..z.. .click(wi|
00000950  6e 25 29 0d 03 84 0d c8  8e 20 77 69 6e 25 20 ca  |n%)...... win% .|
00000960  0d 03 8e 18 c9 20 2d 32  3a f2 69 62 61 72 28 62  |..... -2:.ibar(b|
00000970  6c 6f 63 6b 25 21 38 29  0d 03 98 1e c9 20 73 74  |lock%!8)..... st|
00000980  72 69 70 25 3a f2 73 63  6c 69 63 6b 28 62 6c 6f  |rip%:.sclick(blo|
00000990  63 6b 25 21 38 29 0d 03  a2 05 cb 0d 03 ac 05 e1  |ck%!8)..........|
000009a0  0d 03 b6 05 3a 0d 03 c0  11 dd 20 f2 6d 65 6e 75  |....:..... .menu|
000009b0  73 65 6c 65 63 74 0d 03  ca 20 73 65 6c 31 25 3d  |select... sel1%=|
000009c0  21 62 6c 6f 63 6b 25 3a  73 65 6c 32 25 3d 62 6c  |!block%:sel2%=bl|
000009d0  6f 63 6b 25 21 34 0d 03  d4 35 c8 99 20 22 57 69  |ock%!4...5.. "Wi|
000009e0  6d 70 5f 47 65 74 50 6f  69 6e 74 65 72 49 6e 66  |mp_GetPointerInf|
000009f0  6f 22 2c 2c 62 6c 6f 63  6b 25 3a 62 75 74 74 6f  |o",,block%:butto|
00000a00  6e 25 3d 62 6c 6f 63 6b  25 21 38 0d 03 de 0e c8  |n%=block%!8.....|
00000a10  8e 20 73 65 6c 31 25 20  ca 0d 03 e8 1b c9 20 31  |. sel1% ...... 1|
00000a20  3a f2 6f 70 65 6e 77 69  6e 64 6f 77 28 73 74 72  |:.openwindow(str|
00000a30  69 70 25 29 0d 03 f2 1e  c9 20 32 3a f2 6f 70 65  |ip%)..... 2:.ope|
00000a40  6e 77 69 6e 64 6f 77 28  66 69 6c 65 69 6e 66 6f  |nwindow(fileinfo|
00000a50  25 29 0d 03 fc 12 c9 20  33 3a c8 8e 20 73 65 6c  |%)..... 3:.. sel|
00000a60  32 25 20 ca 0d 04 06 1d  c9 20 30 3a f2 6f 70 65  |2% ...... 0:.ope|
00000a70  6e 77 69 6e 64 6f 77 28  66 69 6c 65 6f 70 73 25  |nwindow(fileops%|
00000a80  29 0d 04 10 12 c9 20 31  3a ff 28 22 44 69 72 20  |)..... 1:.("Dir |
00000a90  24 22 29 0d 04 1a 05 cb  0d 04 24 0f c9 20 34 3a  |$").......$.. 4:|
00000aa0  71 75 69 74 25 3d b9 0d  04 2e 05 cb 0d 04 38 25  |quit%=........8%|
00000ab0  e7 20 62 75 74 74 6f 6e  25 3d 31 20 f2 73 68 6f  |. button%=1 .sho|
00000ac0  77 6d 65 6e 75 28 69 6d  65 6e 75 25 2c 30 2c 30  |wmenu(imenu%,0,0|
00000ad0  29 0d 04 42 05 e1 0d 04  4c 05 3a 0d 04 56 0e dd  |)..B....L.:..V..|
00000ae0  20 f2 72 65 63 65 69 76  65 0d 04 60 12 c8 8e 20  | .receive..`... |
00000af0  62 6c 6f 63 6b 25 21 31  36 20 ca 0d 04 6a 0f c9  |block%!16 ...j..|
00000b00  20 30 3a 71 75 69 74 25  3d b9 0d 04 74 15 c9 20  | 0:quit%=...t.. |
00000b10  33 3a f2 64 65 61 6c 77  69 74 68 6d 65 73 73 0d  |3:.dealwithmess.|
00000b20  04 7e 12 c9 20 26 35 30  32 3a f2 64 6f 68 65 6c  |.~.. &502:.dohel|
00000b30  70 0d 04 88 05 cb 0d 04  92 05 e1 0d 04 9c 05 3a  |p..............:|
00000b40  0d 04 a6 1e dd 20 f2 73  68 6f 77 6d 65 6e 75 28  |..... .showmenu(|
00000b50  6d 65 6e 75 25 2c 6d 78  25 2c 6d 79 25 29 0d 04  |menu%,mx%,my%)..|
00000b60  b0 27 c8 99 20 22 57 69  6d 70 5f 43 72 65 61 74  |.'.. "Wimp_Creat|
00000b70  65 4d 65 6e 75 22 2c 2c  6d 65 6e 75 25 2c 6d 78  |eMenu",,menu%,mx|
00000b80  25 2c 6d 79 25 0d 04 ba  05 e1 0d 04 c4 05 3a 0d  |%,my%.........:.|
00000b90  04 ce 14 dd 20 f2 69 62  61 72 28 62 75 74 74 6f  |.... .ibar(butto|
00000ba0  6e 25 29 0d 04 d8 10 c8  8e 20 62 75 74 74 6f 6e  |n%)...... button|
00000bb0  25 20 ca 0d 04 e2 11 c9  20 34 3a f2 64 69 73 6d  |% ...... 4:.dism|
00000bc0  6f 75 6e 74 0d 04 ec 28  c9 20 32 3a f2 73 68 6f  |ount...(. 2:.sho|
00000bd0  77 6d 65 6e 75 28 69 6d  65 6e 75 25 2c 21 62 6c  |wmenu(imenu%,!bl|
00000be0  6f 63 6b 25 2d 36 34 2c  33 36 34 29 0d 04 f6 16  |ock%-64,364)....|
00000bf0  c9 20 31 3a f2 72 65 64  72 61 77 64 65 73 6b 74  |. 1:.redrawdeskt|
00000c00  6f 70 0d 05 00 05 cb 0d  05 0a 05 e1 0d 05 14 05  |op..............|
00000c10  3a 0d 05 1e 21 dd 20 f2  69 63 6f 6e 74 65 78 74  |:...!. .icontext|
00000c20  28 77 69 6e 25 2c 69 63  6f 6e 25 2c 74 65 78 74  |(win%,icon%,text|
00000c30  24 29 0d 05 28 1f 21 62  6c 6f 63 6b 25 3d 77 69  |$)..(.!block%=wi|
00000c40  6e 25 3a 62 6c 6f 63 6b  25 21 34 3d 69 63 6f 6e  |n%:block%!4=icon|
00000c50  25 0d 05 32 22 c8 99 20  22 57 69 6d 70 5f 47 65  |%..2".. "Wimp_Ge|
00000c60  74 49 63 6f 6e 53 74 61  74 65 22 2c 2c 62 6c 6f  |tIconState",,blo|
00000c70  63 6b 25 0d 05 3c 47 21  62 6c 6f 63 6b 25 3d 77  |ck%..<G!block%=w|
00000c80  69 6e 25 3a 62 6c 6f 63  6b 25 21 34 3d 69 63 6f  |in%:block%!4=ico|
00000c90  6e 25 3a 24 62 6c 6f 63  6b 25 21 32 38 3d 74 65  |n%:$block%!28=te|
00000ca0  78 74 24 3a 62 6c 6f 63  6b 25 21 38 3d 30 3a 62  |xt$:block%!8=0:b|
00000cb0  6c 6f 63 6b 25 21 31 32  3d 30 0d 05 46 22 c8 99  |lock%!12=0..F"..|
00000cc0  20 22 57 69 6d 70 5f 53  65 74 49 63 6f 6e 53 74  | "Wimp_SetIconSt|
00000cd0  61 74 65 22 2c 2c 62 6c  6f 63 6b 25 0d 05 50 05  |ate",,block%..P.|
00000ce0  e1 0d 05 5a 05 3a 0d 05  64 1a dd 20 f2 6f 70 65  |...Z.:..d.. .ope|
00000cf0  6e 77 69 6e 64 6f 77 28  77 69 6e 64 6f 77 25 29  |nwindow(window%)|
00000d00  0d 05 6e 34 21 62 6c 6f  63 6b 25 3d 77 69 6e 64  |..n4!block%=wind|
00000d10  6f 77 25 3a c8 99 20 22  57 69 6d 70 5f 47 65 74  |ow%:.. "Wimp_Get|
00000d20  57 69 6e 64 6f 77 53 74  61 74 65 22 2c 2c 62 6c  |WindowState",,bl|
00000d30  6f 63 6b 25 0d 05 78 20  c8 99 20 22 57 69 6d 70  |ock%..x .. "Wimp|
00000d40  5f 4f 70 65 6e 57 69 6e  64 6f 77 22 2c 2c 62 6c  |_OpenWindow",,bl|
00000d50  6f 63 6b 25 0d 05 82 05  e1 0d 05 8c 05 3a 0d 05  |ock%.........:..|
00000d60  96 0f dd 20 f2 64 69 73  6d 6f 75 6e 74 0d 05 a0  |... .dismount...|
00000d70  13 ff 28 22 44 69 73 6d  6f 75 6e 74 20 30 22 29  |..("Dismount 0")|
00000d80  0d 05 aa 05 e1 0d 05 b4  05 3a 0d 05 be 16 dd 20  |.........:..... |
00000d90  f2 73 63 6c 69 63 6b 28  62 75 74 74 6f 6e 25 29  |.sclick(button%)|
00000da0  0d 05 c8 10 c8 8e 20 62  75 74 74 6f 6e 25 20 ca  |...... button% .|
00000db0  0d 05 d2 18 c9 20 31 2c  34 3a c8 8e 20 62 6c 6f  |..... 1,4:.. blo|
00000dc0  63 6b 25 21 31 36 20 ca  0d 05 dc 11 c9 20 30 3a  |ck%!16 ...... 0:|
00000dd0  6b 65 79 25 3d 26 31 38  31 0d 05 e6 11 c9 20 31  |key%=&181..... 1|
00000de0  3a 6b 65 79 25 3d 26 31  38 32 0d 05 f0 11 c9 20  |:key%=&182..... |
00000df0  32 3a 6b 65 79 25 3d 26  31 38 33 0d 05 fa 11 c9  |2:key%=&183.....|
00000e00  20 33 3a 6b 65 79 25 3d  26 31 38 34 0d 06 04 11  | 3:key%=&184....|
00000e10  c9 20 34 3a 6b 65 79 25  3d 26 31 38 35 0d 06 0e  |. 4:key%=&185...|
00000e20  11 c9 20 35 3a 6b 65 79  25 3d 26 31 38 36 0d 06  |.. 5:key%=&186..|
00000e30  18 11 c9 20 36 3a 6b 65  79 25 3d 26 31 38 37 0d  |... 6:key%=&187.|
00000e40  06 22 11 c9 20 37 3a 6b  65 79 25 3d 26 31 38 38  |.".. 7:key%=&188|
00000e50  0d 06 2c 11 c9 20 38 3a  6b 65 79 25 3d 26 31 38  |..,.. 8:key%=&18|
00000e60  39 0d 06 36 11 c9 20 39  3a 6b 65 79 25 3d 26 31  |9..6.. 9:key%=&1|
00000e70  43 41 0d 06 40 12 c9 20  31 30 3a 6b 65 79 25 3d  |CA..@.. 10:key%=|
00000e80  26 31 43 42 0d 06 4a 12  c9 20 31 31 3a 6b 65 79  |&1CB..J.. 11:key|
00000e90  25 3d 26 31 43 43 0d 06  54 05 cb 0d 06 5e 05 cb  |%=&1CC..T....^..|
00000ea0  0d 06 68 2c e7 20 62 75  74 74 6f 6e 25 3d 34 20  |..h,. button%=4 |
00000eb0  84 20 62 75 74 74 6f 6e  25 3d 31 20 f2 66 61 6b  |. button%=1 .fak|
00000ec0  65 70 72 65 73 73 28 6b  65 79 25 29 0d 06 72 05  |epress(key%)..r.|
00000ed0  e1 0d 06 7c 05 3a 0d 06  86 16 dd 20 f2 66 61 6b  |...|.:..... .fak|
00000ee0  65 70 72 65 73 73 28 6b  65 79 25 29 0d 06 90 1d  |epress(key%)....|
00000ef0  c8 99 20 22 57 69 6d 70  5f 50 72 6f 63 65 73 73  |.. "Wimp_Process|
00000f00  4b 65 79 22 2c 6b 65 79  25 0d 06 9a 05 e1 0d 06  |Key",key%.......|
00000f10  a4 05 3a 0d 06 ae 14 dd  20 f2 72 65 64 72 61 77  |..:..... .redraw|
00000f20  64 65 73 6b 74 6f 70 0d  06 b8 30 c8 99 20 22 57  |desktop...0.. "W|
00000f30  69 6d 70 5f 46 6f 72 63  65 52 65 64 72 61 77 22  |imp_ForceRedraw"|
00000f40  2c 2d 31 2c 30 2c 30 2c  31 30 30 30 30 30 30 2c  |,-1,0,0,1000000,|
00000f50  31 30 30 30 30 30 30 0d  06 c2 05 e1 0d 06 cc 05  |1000000.........|
00000f60  3a 0d 06 d6 11 dd 20 f2  64 6f 66 69 6c 65 69 6e  |:..... .dofilein|
00000f70  66 6f 0d 06 e0 0a 64 6f  6e 65 3d a3 0d 06 ea 18  |fo....done=.....|
00000f80  e7 20 62 6c 6f 63 6b 25  21 32 30 3d 73 74 72 69  |. block%!20=stri|
00000f90  70 25 20 e1 0d 06 f4 1f  70 61 74 68 24 3d a4 67  |p% .....path$=.g|
00000fa0  65 74 73 74 72 69 6e 67  28 62 6c 6f 63 6b 25 2b  |etstring(block%+|
00000fb0  34 34 29 0d 06 fe 21 74  79 70 65 25 3d 62 6c 6f  |44)...!type%=blo|
00000fc0  63 6b 25 21 34 30 3a 74  79 70 65 24 3d c3 7e 74  |ck%!40:type$=.~t|
00000fd0  79 70 65 25 0d 07 08 27  e7 20 74 79 70 65 24 3d  |ype%...'. type$=|
00000fe0  22 31 30 30 30 22 20 84  20 74 79 70 65 24 3d 22  |"1000" . type$="|
00000ff0  32 30 30 30 22 20 8c 20  f2 73 64 0d 07 12 27 e7  |2000" . .sd...'.|
00001000  20 64 6f 6e 65 3d b9 20  e1 20 8b 20 f2 6f 70 65  | done=. . . .ope|
00001010  6e 77 69 6e 64 6f 77 28  66 69 6c 65 69 6e 66 6f  |nwindow(fileinfo|
00001020  25 29 0d 07 1c 4a 21 62  6c 6f 63 6b 25 3d 66 69  |%)...J!block%=fi|
00001030  6c 65 69 6e 66 6f 25 3a  62 6c 6f 63 6b 25 21 34  |leinfo%:block%!4|
00001040  3d 30 3a c8 99 20 22 57  69 6d 70 5f 47 65 74 49  |=0:.. "Wimp_GetI|
00001050  63 6f 6e 53 74 61 74 65  22 2c 2c 62 6c 6f 63 6b  |conState",,block|
00001060  25 3a 62 6c 6f 63 6b 25  21 38 3d 30 0d 07 26 3f  |%:block%!8=0..&?|
00001070  62 6c 6f 63 6b 25 21 31  32 3d 30 3a 24 62 6c 6f  |block%!12=0:$blo|
00001080  63 6b 25 21 32 38 3d 70  61 74 68 24 3a c8 99 20  |ck%!28=path$:.. |
00001090  22 57 69 6d 70 5f 53 65  74 49 63 6f 6e 53 74 61  |"Wimp_SetIconSta|
000010a0  74 65 22 2c 2c 62 6c 6f  63 6b 25 0d 07 30 4a 21  |te",,block%..0J!|
000010b0  62 6c 6f 63 6b 25 3d 66  69 6c 65 69 6e 66 6f 25  |block%=fileinfo%|
000010c0  3a 62 6c 6f 63 6b 25 21  34 3d 33 3a c8 99 20 22  |:block%!4=3:.. "|
000010d0  57 69 6d 70 5f 47 65 74  49 63 6f 6e 53 74 61 74  |Wimp_GetIconStat|
000010e0  65 22 2c 2c 62 6c 6f 63  6b 25 3a 62 6c 6f 63 6b  |e",,block%:block|
000010f0  25 21 38 3d 30 0d 07 3a  3f 62 6c 6f 63 6b 25 21  |%!8=0..:?block%!|
00001100  31 32 3d 30 3a 24 62 6c  6f 63 6b 25 21 32 38 3d  |12=0:$block%!28=|
00001110  74 79 70 65 24 3a c8 99  20 22 57 69 6d 70 5f 53  |type$:.. "Wimp_S|
00001120  65 74 49 63 6f 6e 53 74  61 74 65 22 2c 2c 62 6c  |etIconState",,bl|
00001130  6f 63 6b 25 0d 07 44 05  e1 0d 07 4e 05 3a 0d 07  |ock%..D....N.:..|
00001140  58 16 dd 20 a4 67 65 74  73 74 72 69 6e 67 28 70  |X.. .getstring(p|
00001150  74 72 25 29 0d 07 62 14  ea 20 61 24 3a c8 95 20  |tr%)..b.. a$:.. |
00001160  3f 70 74 72 25 3c 3e 30  0d 07 6c 18 61 24 2b 3d  |?ptr%<>0..l.a$+=|
00001170  bd 28 3f 70 74 72 25 29  3a 70 74 72 25 2b 3d 31  |.(?ptr%):ptr%+=1|
00001180  0d 07 76 05 ce 0d 07 80  07 3d 61 24 0d 07 8a 05  |..v......=a$....|
00001190  3a 0d 07 94 09 dd 20 f2  73 64 0d 07 9e 13 ff 28  |:..... .sd.....(|
000011a0  22 44 69 72 20 22 2b 70  61 74 68 24 29 0d 07 a8  |"Dir "+path$)...|
000011b0  0a 64 6f 6e 65 3d b9 0d  07 b2 05 e1 0d 07 bc 05  |.done=..........|
000011c0  3a 0d 07 c6 13 dd 20 f2  64 65 61 6c 77 69 74 68  |:..... .dealwith|
000011d0  6d 65 73 73 0d 07 d0 2f  e7 20 62 6c 6f 63 6b 25  |mess.../. block%|
000011e0  21 32 30 3d 66 69 6c 65  6f 70 73 25 20 f2 66 69  |!20=fileops% .fi|
000011f0  6c 65 6f 70 73 20 8b 20  f2 64 6f 66 69 6c 65 69  |leops . .dofilei|
00001200  6e 66 6f 0d 07 da 05 e1  0d 07 e4 05 3a 0d 07 ee  |nfo.........:...|
00001210  0e dd 20 f2 66 69 6c 65  6f 70 73 0d 07 f8 1f 70  |.. .fileops....p|
00001220  61 74 68 24 3d a4 67 65  74 73 74 72 69 6e 67 28  |ath$=.getstring(|
00001230  62 6c 6f 63 6b 25 2b 34  34 29 0d 08 02 33 e7 20  |block%+44)...3. |
00001240  62 6c 6f 63 6b 25 21 32  34 3d 30 20 84 20 62 6c  |block%!24=0 . bl|
00001250  6f 63 6b 25 21 32 34 3d  31 20 84 20 62 6c 6f 63  |ock%!24=1 . bloc|
00001260  6b 25 21 32 34 3d 32 20  f2 73 64 3a e1 0d 08 0c  |k%!24=2 .sd:....|
00001270  2f e7 20 62 6c 6f 63 6b  25 21 32 34 3d 34 20 84  |/. block%!24=4 .|
00001280  20 62 6c 6f 63 6b 25 21  32 34 3d 33 20 84 20 62  | block%!24=3 . b|
00001290  6c 6f 63 6b 25 21 32 34  3d 38 20 8c 0d 08 16 15  |lock%!24=8 .....|
000012a0  c8 99 20 22 48 6f 75 72  67 6c 61 73 73 5f 4f 6e  |.. "Hourglass_On|
000012b0  22 0d 08 20 1c ff 28 22  41 63 63 65 73 73 20 22  |".. ..("Access "|
000012c0  2b 70 61 74 68 24 2b 22  20 52 57 22 29 0d 08 2a  |+path$+" RW")..*|
000012d0  16 ff 28 22 44 65 6c 65  74 65 20 22 2b 70 61 74  |..("Delete "+pat|
000012e0  68 24 29 0d 08 34 16 c8  99 20 22 48 6f 75 72 67  |h$)..4... "Hourg|
000012f0  6c 61 73 73 5f 4f 66 66  22 0d 08 3e 05 cd 0d 08  |lass_Off"..>....|
00001300  48 2f e7 20 62 6c 6f 63  6b 25 21 32 34 3d 35 20  |H/. block%!24=5 |
00001310  84 20 62 6c 6f 63 6b 25  21 32 34 3d 36 20 84 20  |. block%!24=6 . |
00001320  62 6c 6f 63 6b 25 21 32  34 3d 37 20 8c 0d 08 52  |block%!24=7 ...R|
00001330  3b f2 72 65 70 6f 72 74  28 22 41 72 65 20 79 6f  |;.report("Are yo|
00001340  75 20 73 75 72 65 20 79  6f 75 20 77 61 6e 74 20  |u sure you want |
00001350  74 6f 20 64 65 6c 65 74  65 20 74 68 69 73 20 66  |to delete this f|
00001360  69 6c 65 3f 22 2c 33 29  0d 08 5c 13 e7 20 65 72  |ile?",3)..\.. er|
00001370  72 63 6c 69 63 6b 25 3d  31 20 8c 0d 08 66 15 c8  |rclick%=1 ...f..|
00001380  99 20 22 48 6f 75 72 67  6c 61 73 73 5f 4f 6e 22  |. "Hourglass_On"|
00001390  0d 08 70 1c ff 28 22 41  63 63 65 73 73 20 22 2b  |..p..("Access "+|
000013a0  70 61 74 68 24 2b 22 20  52 57 22 29 0d 08 7a 16  |path$+" RW")..z.|
000013b0  ff 28 22 44 65 6c 65 74  65 20 22 2b 70 61 74 68  |.("Delete "+path|
000013c0  24 29 0d 08 84 16 c8 99  20 22 48 6f 75 72 67 6c  |$)...... "Hourgl|
000013d0  61 73 73 5f 4f 66 66 22  0d 08 8e 05 cc 0d 08 98  |ass_Off"........|
000013e0  05 e1 0d 08 a2 05 cd 0d  08 ac 05 cd 0d 08 b6 05  |................|
000013f0  e1 0d 08 c0 05 3a 0d 08  ca 0d dd 20 f2 64 6f 68  |.....:..... .doh|
00001400  65 6c 70 0d 08 d4 d1 e7  20 62 6c 6f 63 6b 25 21  |elp..... block%!|
00001410  33 32 3d 2d 32 20 f2 73  65 6e 64 68 65 6c 70 28  |32=-2 .sendhelp(|
00001420  22 54 68 69 73 20 69 73  20 74 68 65 20 41 72 63  |"This is the Arc|
00001430  55 74 69 6c 73 20 69 63  6f 6e 2e 7c 4d 43 6c 69  |Utils icon.|MCli|
00001440  63 6b 20 53 45 4c 45 43  54 20 74 6f 20 64 69 73  |ck SELECT to dis|
00001450  6d 6f 75 6e 74 20 74 68  65 20 64 69 73 63 20 63  |mount the disc c|
00001460  75 72 72 65 6e 74 6c 79  20 69 6e 20 64 72 69 76  |urrently in driv|
00001470  65 20 30 2e 7c 4d 43 6c  69 63 6b 20 41 44 4a 55  |e 0.|MClick ADJU|
00001480  53 54 20 74 6f 20 72 65  64 72 61 77 20 74 68 65  |ST to redraw the|
00001490  20 64 65 73 6b 74 6f 70  2e 7c 4d 44 72 61 67 20  | desktop.|MDrag |
000014a0  61 20 64 69 72 65 63 74  6f 72 79 2f 61 70 70 6c  |a directory/appl|
000014b0  69 63 61 74 69 6f 6e 20  68 65 72 65 20 74 6f 20  |ication here to |
000014c0  73 65 74 20 69 74 20 61  73 20 74 68 65 20 43 53  |set it as the CS|
000014d0  44 2e 22 29 0d 08 de df  e7 20 62 6c 6f 63 6b 25  |D.")..... block%|
000014e0  21 33 32 3d 73 74 72 69  70 25 20 f2 73 65 6e 64  |!32=strip% .send|
000014f0  68 65 6c 70 28 22 54 68  69 73 20 69 73 20 74 68  |help("This is th|
00001500  65 20 6f 6e 2d 73 63 72  65 65 6e 20 66 75 6e 63  |e on-screen func|
00001510  74 69 6f 6e 20 6b 65 79  73 74 72 69 70 2e 7c 4d  |tion keystrip.|M|
00001520  43 6c 69 63 6b 20 61 6e  20 69 63 6f 6e 20 77 69  |Click an icon wi|
00001530  74 68 20 53 45 4c 45 43  54 20 6f 72 20 41 44 4a  |th SELECT or ADJ|
00001540  55 53 54 2c 20 61 6e 64  20 74 68 65 20 63 6f 6d  |UST, and the com|
00001550  70 75 74 65 72 20 77 69  6c 6c 20 74 68 69 6e 6b  |puter will think|
00001560  20 79 6f 75 20 68 61 76  65 7c 4d 70 72 65 73 73  | you have|Mpress|
00001570  65 64 20 74 68 65 20 72  65 6c 65 76 61 6e 74 20  |ed the relevant |
00001580  66 75 6e 63 74 69 6f 6e  20 6b 65 79 2c 20 61 6e  |function key, an|
00001590  64 20 69 74 20 77 69 6c  6c 20 74 68 65 6e 20 72  |d it will then r|
000015a0  65 61 63 74 20 61 63 63  6f 72 64 69 6e 67 6c 79  |eact accordingly|
000015b0  2e 22 29 0d 08 e8 f0 e7  20 62 6c 6f 63 6b 25 21  |.")..... block%!|
000015c0  33 32 3d 69 6e 66 6f 25  20 f2 73 65 6e 64 68 65  |32=info% .sendhe|
000015d0  6c 70 28 22 54 68 69 73  20 69 73 20 74 68 65 20  |lp("This is the |
000015e0  67 72 6f 6f 76 79 20 41  72 63 55 74 69 6c 73 20  |groovy ArcUtils |
000015f0  69 6e 66 6f 20 62 6f 78  2e 7c 4d 54 68 69 73 20  |info box.|MThis |
00001600  70 72 6f 67 72 61 6d 20  6d 61 79 20 62 65 20 61  |program may be a|
00001610  64 64 65 64 20 74 6f 20  69 6e 20 74 68 65 20 66  |dded to in the f|
00001620  75 74 75 72 65 2c 20 61  6e 64 20 73 6f 20 61 6e  |uture, and so an|
00001630  79 20 73 75 67 67 65 73  74 69 6f 6e 73 20 66 6f  |y suggestions fo|
00001640  72 7c 4d 69 6d 70 72 6f  76 65 6d 65 6e 74 73 20  |r|Mimprovements |
00001650  77 69 6c 6c 20 62 65 20  63 6f 6e 73 69 64 65 72  |will be consider|
00001660  65 64 2e 7c 4d 57 72 69  74 65 20 74 6f 20 41 6e  |ed.|MWrite to An|
00001670  64 72 65 77 20 54 69 6d  6d 73 2c 20 76 69 61 20  |drew Timms, via |
00001680  42 41 55 20 61 6e 64 20  76 6f 69 63 65 20 79 6f  |BAU and voice yo|
00001690  75 72 20 74 68 6f 75 67  68 74 73 21 20 42 79 65  |ur thoughts! Bye|
000016a0  21 22 29 0d 08 f2 28 e7  20 62 6c 6f 63 6b 25 21  |!")...(. block%!|
000016b0  33 32 3d 66 69 6c 65 69  6e 66 6f 25 20 c8 8e 20  |32=fileinfo% .. |
000016c0  62 6c 6f 63 6b 25 21 33  36 20 ca 0d 08 fc d3 c9  |block%!36 ......|
000016d0  20 31 3a f2 73 65 6e 64  68 65 6c 70 28 22 54 68  | 1:.sendhelp("Th|
000016e0  69 73 20 69 73 20 74 68  65 20 66 69 6c 65 20 69  |is is the file i|
000016f0  6e 66 6f 72 6d 61 74 69  6f 6e 20 77 69 6e 64 6f  |nformation windo|
00001700  77 2e 7c 4d 54 68 69 73  20 69 63 6f 6e 20 69 73  |w.|MThis icon is|
00001710  20 73 69 6d 70 6c 79 20  74 6f 20 73 68 6f 77 20  | simply to show |
00001720  79 6f 75 20 77 68 69 63  68 20 62 69 74 20 6f 66  |you which bit of|
00001730  20 69 6e 66 6f 72 6d 61  74 69 6f 6e 20 69 73 20  | information is |
00001740  74 68 65 20 70 61 74 68  6e 61 6d 65 7c 4d 6f 66  |the pathname|Mof|
00001750  20 74 68 65 20 66 69 6c  65 20 79 6f 75 20 6c 61  | the file you la|
00001760  73 74 20 64 72 61 67 67  65 64 20 74 6f 20 74 68  |st dragged to th|
00001770  65 20 69 63 6f 6e 20 62  61 72 20 69 63 6f 6e 20  |e icon bar icon |
00001780  28 69 66 20 79 6f 75 20  68 61 76 65 20 64 72 61  |(if you have dra|
00001790  67 67 65 64 7c 4d 6f 6e  65 21 29 2e 22 29 0d 09  |gged|Mone!).")..|
000017a0  06 ae c9 20 30 3a f2 73  65 6e 64 68 65 6c 70 28  |... 0:.sendhelp(|
000017b0  22 54 68 69 73 20 69 73  20 74 68 65 20 66 69 6c  |"This is the fil|
000017c0  65 20 69 6e 66 6f 72 6d  61 74 69 6f 6e 20 77 69  |e information wi|
000017d0  6e 64 6f 77 2e 7c 4d 54  68 69 73 20 69 63 6f 6e  |ndow.|MThis icon|
000017e0  20 64 69 73 70 6c 61 79  73 20 74 68 65 20 70 61  | displays the pa|
000017f0  74 68 6e 61 6d 65 20 6f  66 20 74 68 65 20 6c 61  |thname of the la|
00001800  73 74 20 66 69 6c 65 20  74 68 61 74 20 79 6f 75  |st file that you|
00001810  20 64 72 61 67 67 65 64  7c 4d 74 6f 20 74 68 65  | dragged|Mto the|
00001820  20 69 63 6f 6e 20 62 61  72 20 69 63 6f 6e 20 28  | icon bar icon (|
00001830  69 66 20 79 6f 75 20 68  61 76 65 20 64 72 61 67  |if you have drag|
00001840  67 65 64 20 6f 6e 65 21  29 2e 22 29 0d 09 10 d3  |ged one!).")....|
00001850  c9 20 32 3a f2 73 65 6e  64 68 65 6c 70 28 22 54  |. 2:.sendhelp("T|
00001860  68 69 73 20 69 73 20 74  68 65 20 66 69 6c 65 20  |his is the file |
00001870  69 6e 66 6f 72 6d 61 74  69 6f 6e 20 77 69 6e 64  |information wind|
00001880  6f 77 2e 7c 4d 54 68 69  73 20 69 63 6f 6e 20 69  |ow.|MThis icon i|
00001890  73 20 73 69 6d 70 6c 79  20 74 6f 20 73 68 6f 77  |s simply to show|
000018a0  20 79 6f 75 20 77 68 69  63 68 20 62 69 74 20 6f  | you which bit o|
000018b0  66 20 69 6e 66 6f 72 6d  61 74 69 6f 6e 20 69 73  |f information is|
000018c0  20 74 68 65 20 66 69 6c  65 74 79 70 65 7c 4d 6f  | the filetype|Mo|
000018d0  66 20 74 68 65 20 66 69  6c 65 20 79 6f 75 20 6c  |f the file you l|
000018e0  61 73 74 20 64 72 61 67  67 65 64 20 74 6f 20 74  |ast dragged to t|
000018f0  68 65 20 69 63 6f 6e 20  62 61 72 20 69 63 6f 6e  |he icon bar icon|
00001900  20 28 69 66 20 79 6f 75  20 68 61 76 65 20 64 72  | (if you have dr|
00001910  61 67 67 65 64 7c 4d 6f  6e 65 21 29 2e 22 29 0d  |agged|Mone!).").|
00001920  09 1a ae c9 20 33 3a f2  73 65 6e 64 68 65 6c 70  |.... 3:.sendhelp|
00001930  28 22 54 68 69 73 20 69  73 20 74 68 65 20 66 69  |("This is the fi|
00001940  6c 65 20 69 6e 66 6f 72  6d 61 74 69 6f 6e 20 77  |le information w|
00001950  69 6e 64 6f 77 2e 7c 4d  54 68 69 73 20 69 63 6f  |indow.|MThis ico|
00001960  6e 20 64 69 73 70 6c 61  79 73 20 74 68 65 20 66  |n displays the f|
00001970  69 6c 65 74 79 70 65 20  6f 66 20 74 68 65 20 6c  |iletype of the l|
00001980  61 73 74 20 66 69 6c 65  20 74 68 61 74 20 79 6f  |ast file that yo|
00001990  75 20 64 72 61 67 67 65  64 7c 4d 74 6f 20 74 68  |u dragged|Mto th|
000019a0  65 20 69 63 6f 6e 20 62  61 72 20 69 63 6f 6e 20  |e icon bar icon |
000019b0  28 69 66 20 79 6f 75 20  68 61 76 65 20 64 72 61  |(if you have dra|
000019c0  67 67 65 64 20 6f 6e 65  21 29 2e 22 29 0d 09 24  |gged one!).")..$|
000019d0  37 7f 3a f2 73 65 6e 64  68 65 6c 70 28 22 54 68  |7.:.sendhelp("Th|
000019e0  69 73 20 69 73 20 74 68  65 20 66 69 6c 65 20 69  |is is the file i|
000019f0  6e 66 6f 72 6d 61 74 69  6f 6e 20 77 69 6e 64 6f  |nformation windo|
00001a00  77 2e 22 29 0d 09 2e 05  cb 0d 09 38 27 e7 20 62  |w.").......8'. b|
00001a10  6c 6f 63 6b 25 21 33 32  3d 66 69 6c 65 6f 70 73  |lock%!32=fileops|
00001a20  25 20 c8 8e 20 62 6c 6f  63 6b 25 21 33 36 20 ca  |% .. block%!36 .|
00001a30  0d 09 42 76 c9 20 30 2c  31 2c 32 3a f2 73 65 6e  |..Bv. 0,1,2:.sen|
00001a40  64 68 65 6c 70 28 22 54  68 69 73 20 69 73 20 74  |dhelp("This is t|
00001a50  68 65 20 66 69 6c 65 72  20 6f 70 65 72 61 74 69  |he filer operati|
00001a60  6f 6e 73 20 77 69 6e 64  6f 77 2e 7c 4d 44 72 61  |ons window.|MDra|
00001a70  67 20 61 20 64 69 72 65  63 74 6f 72 79 2f 61 70  |g a directory/ap|
00001a80  70 6c 69 63 61 74 69 6f  6e 20 68 65 72 65 20 74  |plication here t|
00001a90  6f 20 73 65 74 20 69 74  20 61 73 20 74 68 65 20  |o set it as the |
00001aa0  43 53 44 2e 22 29 0d 09  4c 8e c9 20 33 2c 34 2c  |CSD.")..L.. 3,4,|
00001ab0  38 3a f2 73 65 6e 64 68  65 6c 70 28 22 54 68 69  |8:.sendhelp("Thi|
00001ac0  73 20 69 73 20 74 68 65  20 66 69 6c 65 72 20 6f  |s is the filer o|
00001ad0  70 65 72 61 74 69 6f 6e  73 20 77 69 6e 64 6f 77  |perations window|
00001ae0  2e 7c 4d 44 72 61 67 20  61 20 66 69 6c 65 20 68  |.|MDrag a file h|
00001af0  65 72 65 20 61 6e 64 20  69 74 20 77 69 6c 6c 20  |ere and it will |
00001b00  62 65 20 64 65 6c 65 74  65 64 20 41 54 20 4f 4e  |be deleted AT ON|
00001b10  43 45 20 61 6e 64 20 57  49 54 48 4f 55 54 20 66  |CE and WITHOUT f|
00001b20  75 72 74 68 65 72 7c 4d  70 72 6f 6d 70 74 69 6e  |urther|Mpromptin|
00001b30  67 2e 22 29 0d 09 56 af  c9 20 35 2c 36 2c 37 3a  |g.")..V.. 5,6,7:|
00001b40  f2 73 65 6e 64 68 65 6c  70 28 22 54 68 69 73 20  |.sendhelp("This |
00001b50  69 73 20 74 68 65 20 66  69 6c 65 72 20 6f 70 65  |is the filer ope|
00001b60  72 61 74 69 6f 6e 73 20  77 69 6e 64 6f 77 2e 7c  |rations window.||
00001b70  4d 44 72 61 67 20 61 20  66 69 6c 65 20 68 65 72  |MDrag a file her|
00001b80  65 20 61 6e 64 20 69 74  20 77 69 6c 6c 20 62 65  |e and it will be|
00001b90  20 64 65 6c 65 74 65 64  20 69 66 20 79 6f 75 20  | deleted if you |
00001ba0  63 6f 6e 66 69 72 6d 2c  20 62 79 20 63 6c 69 63  |confirm, by clic|
00001bb0  6b 69 6e 67 20 6f 6e 20  27 4f 4b 27 2c 7c 4d 69  |king on 'OK',|Mi|
00001bc0  6e 20 74 68 65 20 65 72  72 6f 72 20 62 6f 78 20  |n the error box |
00001bd0  74 68 61 74 20 77 69 6c  6c 20 61 70 70 65 61 72  |that will appear|
00001be0  2e 22 29 0d 09 60 37 7f  3a f2 73 65 6e 64 68 65  |.")..`7.:.sendhe|
00001bf0  6c 70 28 22 54 68 69 73  20 69 73 20 74 68 65 20  |lp("This is the |
00001c00  66 69 6c 65 72 20 6f 70  65 72 61 74 69 6f 6e 73  |filer operations|
00001c10  20 77 69 6e 64 6f 77 2e  22 29 0d 09 6a 05 cb 0d  | window.")..j...|
00001c20  09 74 05 e1 0d 09 7e 05  3a 0d 09 88 13 dd 20 f2  |.t....~.:..... .|
00001c30  73 65 6e 64 68 65 6c 70  28 68 24 29 0d 09 92 44  |sendhelp(h$)...D|
00001c40  24 28 62 6c 6f 63 6b 25  2b 32 30 29 3d 68 24 2b  |$(block%+20)=h$+|
00001c50  bd 30 3a 62 6c 6f 63 6b  25 21 31 36 3d 26 35 30  |.0:block%!16=&50|
00001c60  33 3a 62 6c 6f 63 6b 25  21 31 32 3d 62 6c 6f 63  |3:block%!12=bloc|
00001c70  6b 25 21 38 3a 21 62 6c  6f 63 6b 25 3d 32 32 38  |k%!8:!block%=228|
00001c80  0d 09 9c 2c c8 99 20 22  57 69 6d 70 5f 53 65 6e  |...,.. "Wimp_Sen|
00001c90  64 4d 65 73 73 61 67 65  22 2c 31 37 2c 62 6c 6f  |dMessage",17,blo|
00001ca0  63 6b 25 2c 62 6c 6f 63  6b 25 21 34 0d 09 a6 05  |ck%,block%!4....|
00001cb0  e1 0d 09 b0 05 3a 0d 09  ba 5b dc 20 41 72 63 55  |.....:...[. ArcU|
00001cc0  74 69 6c 73 2c 35 2c 26  32 2c 69 6e 66 6f 25 2c  |tils,5,&2,info%,|
00001cd0  49 6e 66 6f 2c 30 2c 2d  31 2c 4b 65 79 73 74 72  |Info,0,-1,Keystr|
00001ce0  69 70 2c 30 2c 2d 31 2c  46 69 6c 65 20 69 6e 66  |ip,0,-1,File inf|
00001cf0  6f 2c 26 32 2c 73 6d 65  6e 75 25 2c 46 69 6c 65  |o,&2,smenu%,File|
00001d00  72 20 6f 70 73 2c 26 38  30 2c 2d 31 2c 51 75 69  |r ops,&80,-1,Qui|
00001d10  74 0d 09 c4 33 dc 20 46  69 6c 65 72 20 6f 70 73  |t...3. Filer ops|
00001d20  2c 32 2c 26 32 2c 2d 31  2c 4f 70 65 6e 20 77 69  |,2,&2,-1,Open wi|
00001d30  6e 64 6f 77 2c 26 38 30  2c 2d 31 2c 53 65 74 20  |ndow,&80,-1,Set |
00001d40  72 6f 6f 74 0d ff                                 |root..|
00001d46