� >!RunImage
� !RunImage for !ArcFSInfo
4� Provides information windows for ArcFS objects
( 
2� � �Error:� �t`@
<indlength%=1024
FM� block% 256,windef% 2048,indic% indlength%,wblock% 32,temp% 30,menu% 100
P'quit%=�:mask%=%10000001100100110011
Z#WimpVer=200:Title$="ArcFS Info"
dwinhandle%=-1:count%=0
nWinX%=384:WinY%=248
x 
��Initialise
�
�SetUp
� 
��
�dataload%=�
�8� count%>0 � pollmask%=(mask% � 1) � pollmask%=mask%
�-ș "Wimp_Poll",pollmask%,block% � reason%
� 
�Ȏ reason% �
�� 2:�OpenWindow
�� 3:�CloseWindow
�� 6:�MouseClick
�� 9:�MenuSelect

� 17,18:�Message

�

 

")� � dataload% � (count%>0) � �display

,� quit%

6 

@ș "Wimp_CloseDown"

J�

T 

^ 

h��Initialise

r1ș "Wimp_Initialise",WimpVer,&4B534154,Title$

|�

� 

� 

�� �SetUp

�7ș "Wimp_OpenTemplate",,"<ArcFSInfo$Dir>.Templates"

� 

�^ș "Wimp_LoadTemplate",,windef%,indic%,indic%+indlength%,-1,"Info********",0 � ,,newindic%

�1ș "Wimp_CreateWindow",,windef% � infohandle%

�#� Load template for info window

� 

�_ș "Wimp_LoadTemplate",,windef%,newindic%,indic%+indlength%,-1,"FileInfo****",0 � ,,indend%

� 

�ind%=newindic%

��
 
Ȏ �$ind%,4) �
� "ObPa":path%=ind%
&� "ObTy":type%=ind%
0� "CoTy":comptype%=ind%
:� "Full":fulllen%=ind%
D� "Comp":complen%=ind%
N� "100%":ratio%=ind%
X� "Lwr/":access%=ind%
b� "Arch":arcname%=ind%
l� "Load":addr%=ind%
v� "DSta":date%=ind%
��
� 
�ind%+=�($ind%)+1
� 
�� ind%>=newindic%+&BE
�ș"Wimp_CloseTemplate"
� 
�>!block%=-1:block%!4=0:block%!8=0:block%!12=68:block%!16=68
�-block%!20=&3002:$(block%+24)="!arcfsinfo"
�+ș"Wimp_CreateIcon",,block% � ichandle%
��
� 
� 
� �Message
Ȏ block%!16 �
� 0:quit%=�
 � 3:dataload%=�
*+� count%=0 � �Dragfile � �DragMultifile
4�
>�
H 
R 
\� �OpenWindow
f!WinX%=block%!4:WinY%=block%!8
p ș "Wimp_OpenWindow",,block%
z�
� 
� 
�� �CloseWindow
�� !block%=winhandle% �
�"ș "Wimp_DeleteWindow",,block%
�winhandle%=-1
��
�!ș "Wimp_CloseWindow",,block%
��
��
� 
� 
�� �Dragfile
 
� block%!12<>0 � �
)� Check Message originated from Filer
$ 
.object$=""
8pointer%=block%+44
B� byte%=?pointer%
L3� byte%>31 � object$=object$+�byte%:pointer%+=1
V� byte%<32
`!� Get pathname into 'object$'
j1� �object$,6)<>"arcfs#" � block%!40<>&DDC � �
t3� Only interested if ArcFS pathname or archive.
~ 
�� �object$,6)<>"arcfs#" �
�+ș"OS_File",17,object$ � ,,la%,ea%,,at%
�:ș"ArcFS_GetArcName",,object$ � ,,,,,,arcname$ ;flags%
�� (flags% � 2)=2 �
�2ș"XArcFS_OpenArc",,object$ � R0,,,,,,arcname$
�
� R0<>0 �
Ĥș"Wimp_ReportError",�0+�0+�0+�0+"This archive has a name that has been seen before. Forget the old one?",&13,"ArcFS Info - Archive '"+arcname$+"'" � ,response%
�� response%=2 � �
�%ș"ArcFS_CloseArc",,,,,,,arcname$
�+ș"ArcFS_OpenArc",,object$,,,,,arcname$
��
��
"object$="arcfs#"+arcname$+":$"

<ș"ArcFS_ObjectInfo",,"$",,,,,arcname$ � ,ct%,,,fl%,,cl%
� Read Object infomation

ft%=&4000
(A� If we have an archive then open (if necessary), set object$
2�
<ft%=block%!40
F!� Get filetype from block%!40
Prș"ArcFS_ObjectInfo",,�object$,�(object$)-�object$,":")),,,,,�object$,�(object$)-6) � ,ct%,la%,ea%,fl%,at%,cl%
Z� Read Object infomation
d�
n 
xȎ ft% �
� 
�� &3000,-1
�type$="Untyped"
�
�CompType
�windef%!84=18
�;address$=�"0000000"+�~la%,8)+"    "+�"0000000"+�~ea%,8)
�
date$="-"
�?� Do type, compression and address strings for untyped file
� 
�� &1000
�type$="Directory"
�comptype$="-"
�address$="-"
windef%!84=17
�GetTime
!� Do type icons for directory
" 
,� &2000
6type$="Application"
@comptype$="-"
Jaddress$="-"
Twindef%!84=17
^�GetTime
h#� Do type icons for application
r 
|� &4000
�type$="Archive"
�comptype$="-"
�address$="-"
�windef%!84=17
��GetTime
�� Do type icons for archive
� 
�
�Lș "XOS_ReadVarVal","File$Type_"+�"00"+�~ft%,3),temp%,8,0,3 � ,,typelen%
�type$=""
�4� A%=temp% � temp%+typelen%-1:type$=type$+�?A%:�
�'type$=type$+" ("+�"00"+�~ft%,3)+")"
�
�CompType
address$="-"
windef%!84=17
�GetTime
&"� Do type icons for typed file
0 
:�
D 
Naccess$=""
X'� (at% � 8)=8 � access$=access$+"L"
b� ft%<>&1000 � ft%<>&2000 �
l'� (at% � 2)=2 � access$=access$+"W"
v'� (at% � 1)=1 � access$=access$+"R"
�access$=access$+"/"
�)� (at% � 32)=32 � access$=access$+"w"
�)� (at% � 16)=16 � access$=access$+"r"
��
�access$=access$+"/"
��
� 
�Dș "ArcFS_NamedArcInfo",,,,,,,�object$,�(object$)-6) � ,arcpath$
�� Get pathname of archive
� 
�"block%!12=block%!8:block%!16=4
�+ș"Wimp_SendMessage",17,block%,block%!4
�#� Acknowledge data load message
 
count%=1
�
  
* 
4� �display
>� winhandle%<>-1 �
H!wblock%=winhandle%
R#ș "Wimp_DeleteWindow",,wblock%
\winhandle%=-1
f�
p-� Remove window if one is being displayed
z 
�:� �(object$)>30 � $path%=�object$,30) � $path%=object$
�*� Put pathname in icon (max. 30 chrs.)
� 
�=� count%>1 � $type%=type$+" ("+�count%+")" � $type%=type$
�� Icon for file type
� 
�$addr%=address$
�%� Address icon (for untyped file)
� 
�$comptype%=comptype$
�� Compression icon
� 
�$date%=date$
	� Date icon
	 
	$access%=access$
	$� Set access icon
	. 
	8+ș "OS_ConvertFileSize",fl%,fulllen%,12
	B� Put full length in icon
	L 
	V+ș "OS_ConvertFileSize",cl%,complen%,12
	`#� Put compressed length in icon
	j 
	t>� cl%=fl% � $ratio%="100%" � $ratio%=�(�(cl%/fl%*100))+"%"
	~ � Work out compression ratio
	� 
	�C� �(arcpath$)>30 � $arcname%=�arcpath$,30) � $arcname%=arcpath$
	�� Set archive pathname icon
	� 
	�0ș "Wimp_CreateWindow",,windef% � winhandle%
	�� Create Window
	� 
	�!wblock%=winhandle%
	�#wblock%!4=WinX%:wblock%!8=WinY%
	�-wblock%!12=WinX%+512:wblock%!16=WinY%+528
	�wblock%!20=0:wblock%!24=0
	�wblock%!28=-1
!ș "Wimp_OpenWindow",,wblock%

� Open Window
 
count%=0
(� Reset count
2 
<�
F 
P 
Z� �CompType
dȎ ct% �
n� &82:comptype$="Store"
x� &83:comptype$="Pack"
�/� &88:comptype$="Crunch "+�((at%>>8) � &FF)
�� &89:comptype$="Squash 13"
�1� &FF:comptype$="Compress "+�((at%>>8) � &FF)
�:comptype$="Unknown"
��
��
� 
� 
�� �Error
�6ș"Wimp_ReportError",�0+�0+�0+�0+�$,1,"ArcFS Info"
��
� 
� 
� �GetTime
!wblock%=ea%:wblock%?4=la%
Wș"OS_ConvertDateAndTime",wblock%,temp%,21,"%24:%MI:%SE %DY %M3 %CE%YR" � ,tempend%
"date$=""
,.� A%=temp% � tempend%-1:date$=date$+�?A%:�
6�
@ 
J 
T� �DragMultifile
^ 
h� block%!12<>0 � �
r)� Check Message originated from Filer
| 
�newobject$=""
�pointer%=block%+44
�� byte%=?pointer%
�9� byte%>31 � newobject$=newobject$+�byte%:pointer%+=1
�� byte%<32
�$� Get pathname into 'newobject$'
�4� �newobject$,6)<>"arcfs#" � block%!40<>&DDC � �
�3� Only interested if ArcFS pathname or archive.
� 
� � �newobject$,6)<>"arcfs#" �
� 
�=ș"ArcFS_GetArcName",,newobject$ � ,,,,,,arcname$ ;flags%
�� (flags% � 2)=2 �
5ș"XArcFS_OpenArc",,newobject$ � R0,,,,,,arcname$

� R0<>0 �
�ș"Wimp_ReportError",�0+�0+�0+�0+"This archive has a name that has been seen before. Forget the old one?",&13,"ArcFS Info - Archive '"+arcname$+"'" � ,response%
&� response%=2 � �
0%ș"ArcFS_CloseArc",,,,,,,arcname$
:.ș"ArcFS_OpenArc",,newobject$,,,,,arcname$
D�
N�
X 
b;ș"ArcFS_ObjectInfo",,"$",,,,,arcname$ � ,,,,fla%,,cla%
l� Read Object infomation
vfl%+=fla%:cl%+=cla%
�.� Add full and compressed lengths to total
� 
�object$="arcfs#<many>:$"
�npos%=0
�� pos%=npos%
�npos%=�arcpath$,".",pos%+1)
�
� npos%=0
�%arcpath$=�arcpath$,pos%)+"<many>"
� 
��
�npos%=0
�� pos%=npos%
�npos%=�object$,".",pos%+1)


� npos%=0

#object$=�object$,pos%)+"<many>"

 

 wș"ArcFS_ObjectInfo",,�newobject$,�(newobject$)-�newobject$,":")),,,,,�newobject$,�(newobject$)-6) � ,,,,fla%,,cla%

*fl%+=fla%:cl%+=cla%

4.� Add full and compressed lengths to total

>�

H 

Rtype$="Selection"

\comptype$="-"

faccess$="-"

p
date$="-"

zaddress$="-"

�windef%!84=17

� 

�"block%!12=block%!8:block%!16=4

�+ș"Wimp_SendMessage",17,block%,block%!4

�#� Acknowledge data load message

� 

�
count%+=1

��

� 

� 

�� �MouseClick

�� block%!12<>-2 � �

�� block%!8<>2 � �
+� Only interested if menu click on icon
 
$menu%="ArcFSInfo"
$menu%?12=7:menu%?13=2
.menu%?14=7:menu%?15=0
8menu%!16=128
Bmenu%!20=44
Lmenu%!24=0
VImenu%!28=0:menu%!32=infohandle%:menu%!36=1+(7<<24):$(menu%+40)="Info"
`Bmenu%!52=&80:menu%!56=-1:menu%!60=1+(7<<24):$(menu%+64)="Quit"
j-ș"Wimp_CreateMenu",,menu%,!block%-64,184
t�
~ 
� 
�� �MenuSelect
�� !block%=1 � quit%=�
��
�

00000000  0d 00 0a 10 f4 20 3e 21  52 75 6e 49 6d 61 67 65  |..... >!RunImage|
00000010  0d 00 14 1e f4 20 21 52  75 6e 49 6d 61 67 65 20  |..... !RunImage |
00000020  66 6f 72 20 21 41 72 63  46 53 49 6e 66 6f 0d 00  |for !ArcFSInfo..|
00000030  1e 34 f4 20 50 72 6f 76  69 64 65 73 20 69 6e 66  |.4. Provides inf|
00000040  6f 72 6d 61 74 69 6f 6e  20 77 69 6e 64 6f 77 73  |ormation windows|
00000050  20 66 6f 72 20 41 72 63  46 53 20 6f 62 6a 65 63  | for ArcFS objec|
00000060  74 73 0d 00 28 05 20 0d  00 32 15 ee 20 85 20 f2  |ts..(. ..2.. . .|
00000070  45 72 72 6f 72 3a e5 20  8d 74 60 40 0d 00 3c 13  |Error:. .t`@..<.|
00000080  69 6e 64 6c 65 6e 67 74  68 25 3d 31 30 32 34 0d  |indlength%=1024.|
00000090  00 46 4d de 20 62 6c 6f  63 6b 25 20 32 35 36 2c  |.FM. block% 256,|
000000a0  77 69 6e 64 65 66 25 20  32 30 34 38 2c 69 6e 64  |windef% 2048,ind|
000000b0  69 63 25 20 69 6e 64 6c  65 6e 67 74 68 25 2c 77  |ic% indlength%,w|
000000c0  62 6c 6f 63 6b 25 20 33  32 2c 74 65 6d 70 25 20  |block% 32,temp% |
000000d0  33 30 2c 6d 65 6e 75 25  20 31 30 30 0d 00 50 27  |30,menu% 100..P'|
000000e0  71 75 69 74 25 3d a3 3a  6d 61 73 6b 25 3d 25 31  |quit%=.:mask%=%1|
000000f0  30 30 30 30 30 30 31 31  30 30 31 30 30 31 31 30  |0000001100100110|
00000100  30 31 31 0d 00 5a 23 57  69 6d 70 56 65 72 3d 32  |011..Z#WimpVer=2|
00000110  30 30 3a 54 69 74 6c 65  24 3d 22 41 72 63 46 53  |00:Title$="ArcFS|
00000120  20 49 6e 66 6f 22 0d 00  64 1a 77 69 6e 68 61 6e  | Info"..d.winhan|
00000130  64 6c 65 25 3d 2d 31 3a  63 6f 75 6e 74 25 3d 30  |dle%=-1:count%=0|
00000140  0d 00 6e 17 57 69 6e 58  25 3d 33 38 34 3a 57 69  |..n.WinX%=384:Wi|
00000150  6e 59 25 3d 32 34 38 0d  00 78 05 20 0d 00 82 0f  |nY%=248..x. ....|
00000160  f2 49 6e 69 74 69 61 6c  69 73 65 0d 00 8c 0a f2  |.Initialise.....|
00000170  53 65 74 55 70 0d 00 96  05 20 0d 00 a0 05 f5 0d  |SetUp.... ......|
00000180  00 aa 0f 64 61 74 61 6c  6f 61 64 25 3d a3 0d 00  |...dataload%=...|
00000190  b4 38 e7 20 63 6f 75 6e  74 25 3e 30 20 8c 20 70  |.8. count%>0 . p|
000001a0  6f 6c 6c 6d 61 73 6b 25  3d 28 6d 61 73 6b 25 20  |ollmask%=(mask% |
000001b0  82 20 31 29 20 8b 20 70  6f 6c 6c 6d 61 73 6b 25  |. 1) . pollmask%|
000001c0  3d 6d 61 73 6b 25 0d 00  be 2d c8 99 20 22 57 69  |=mask%...-.. "Wi|
000001d0  6d 70 5f 50 6f 6c 6c 22  2c 70 6f 6c 6c 6d 61 73  |mp_Poll",pollmas|
000001e0  6b 25 2c 62 6c 6f 63 6b  25 20 b8 20 72 65 61 73  |k%,block% . reas|
000001f0  6f 6e 25 0d 00 c8 05 20  0d 00 d2 10 c8 8e 20 72  |on%.... ...... r|
00000200  65 61 73 6f 6e 25 20 ca  0d 00 dc 13 c9 20 32 3a  |eason% ...... 2:|
00000210  f2 4f 70 65 6e 57 69 6e  64 6f 77 0d 00 e6 14 c9  |.OpenWindow.....|
00000220  20 33 3a f2 43 6c 6f 73  65 57 69 6e 64 6f 77 0d  | 3:.CloseWindow.|
00000230  00 f0 13 c9 20 36 3a f2  4d 6f 75 73 65 43 6c 69  |.... 6:.MouseCli|
00000240  63 6b 0d 00 fa 13 c9 20  39 3a f2 4d 65 6e 75 53  |ck..... 9:.MenuS|
00000250  65 6c 65 63 74 0d 01 04  14 c9 20 31 37 2c 31 38  |elect..... 17,18|
00000260  3a f2 4d 65 73 73 61 67  65 0d 01 0e 05 cb 0d 01  |:.Message.......|
00000270  18 05 20 0d 01 22 29 e7  20 ac 20 64 61 74 61 6c  |.. .."). . datal|
00000280  6f 61 64 25 20 80 20 28  63 6f 75 6e 74 25 3e 30  |oad% . (count%>0|
00000290  29 20 8c 20 f2 64 69 73  70 6c 61 79 0d 01 2c 0b  |) . .display..,.|
000002a0  fd 20 71 75 69 74 25 0d  01 36 05 20 0d 01 40 17  |. quit%..6. ..@.|
000002b0  c8 99 20 22 57 69 6d 70  5f 43 6c 6f 73 65 44 6f  |.. "Wimp_CloseDo|
000002c0  77 6e 22 0d 01 4a 05 e0  0d 01 54 05 20 0d 01 5e  |wn"..J....T. ..^|
000002d0  05 20 0d 01 68 10 dd f2  49 6e 69 74 69 61 6c 69  |. ..h...Initiali|
000002e0  73 65 0d 01 72 31 c8 99  20 22 57 69 6d 70 5f 49  |se..r1.. "Wimp_I|
000002f0  6e 69 74 69 61 6c 69 73  65 22 2c 57 69 6d 70 56  |nitialise",WimpV|
00000300  65 72 2c 26 34 42 35 33  34 31 35 34 2c 54 69 74  |er,&4B534154,Tit|
00000310  6c 65 24 0d 01 7c 05 e1  0d 01 86 05 20 0d 01 90  |le$..|...... ...|
00000320  05 20 0d 01 9a 0c dd 20  f2 53 65 74 55 70 0d 01  |. ..... .SetUp..|
00000330  a4 37 c8 99 20 22 57 69  6d 70 5f 4f 70 65 6e 54  |.7.. "Wimp_OpenT|
00000340  65 6d 70 6c 61 74 65 22  2c 2c 22 3c 41 72 63 46  |emplate",,"<ArcF|
00000350  53 49 6e 66 6f 24 44 69  72 3e 2e 54 65 6d 70 6c  |SInfo$Dir>.Templ|
00000360  61 74 65 73 22 0d 01 ae  05 20 0d 01 b8 5e c8 99  |ates".... ...^..|
00000370  20 22 57 69 6d 70 5f 4c  6f 61 64 54 65 6d 70 6c  | "Wimp_LoadTempl|
00000380  61 74 65 22 2c 2c 77 69  6e 64 65 66 25 2c 69 6e  |ate",,windef%,in|
00000390  64 69 63 25 2c 69 6e 64  69 63 25 2b 69 6e 64 6c  |dic%,indic%+indl|
000003a0  65 6e 67 74 68 25 2c 2d  31 2c 22 49 6e 66 6f 2a  |ength%,-1,"Info*|
000003b0  2a 2a 2a 2a 2a 2a 2a 22  2c 30 20 b8 20 2c 2c 6e  |*******",0 . ,,n|
000003c0  65 77 69 6e 64 69 63 25  0d 01 c2 31 c8 99 20 22  |ewindic%...1.. "|
000003d0  57 69 6d 70 5f 43 72 65  61 74 65 57 69 6e 64 6f  |Wimp_CreateWindo|
000003e0  77 22 2c 2c 77 69 6e 64  65 66 25 20 b8 20 69 6e  |w",,windef% . in|
000003f0  66 6f 68 61 6e 64 6c 65  25 0d 01 cc 23 f4 20 4c  |fohandle%...#. L|
00000400  6f 61 64 20 74 65 6d 70  6c 61 74 65 20 66 6f 72  |oad template for|
00000410  20 69 6e 66 6f 20 77 69  6e 64 6f 77 0d 01 d6 05  | info window....|
00000420  20 0d 01 e0 5f c8 99 20  22 57 69 6d 70 5f 4c 6f  | ..._.. "Wimp_Lo|
00000430  61 64 54 65 6d 70 6c 61  74 65 22 2c 2c 77 69 6e  |adTemplate",,win|
00000440  64 65 66 25 2c 6e 65 77  69 6e 64 69 63 25 2c 69  |def%,newindic%,i|
00000450  6e 64 69 63 25 2b 69 6e  64 6c 65 6e 67 74 68 25  |ndic%+indlength%|
00000460  2c 2d 31 2c 22 46 69 6c  65 49 6e 66 6f 2a 2a 2a  |,-1,"FileInfo***|
00000470  2a 22 2c 30 20 b8 20 2c  2c 69 6e 64 65 6e 64 25  |*",0 . ,,indend%|
00000480  0d 01 ea 05 20 0d 01 f4  12 69 6e 64 25 3d 6e 65  |.... ....ind%=ne|
00000490  77 69 6e 64 69 63 25 0d  01 fe 05 f5 0d 02 08 05  |windic%.........|
000004a0  20 0d 02 12 12 c8 8e 20  c0 24 69 6e 64 25 2c 34  | ...... .$ind%,4|
000004b0  29 20 ca 0d 02 1c 17 c9  20 22 4f 62 50 61 22 3a  |) ...... "ObPa":|
000004c0  70 61 74 68 25 3d 69 6e  64 25 0d 02 26 17 c9 20  |path%=ind%..&.. |
000004d0  22 4f 62 54 79 22 3a 74  79 70 65 25 3d 69 6e 64  |"ObTy":type%=ind|
000004e0  25 0d 02 30 1b c9 20 22  43 6f 54 79 22 3a 63 6f  |%..0.. "CoTy":co|
000004f0  6d 70 74 79 70 65 25 3d  69 6e 64 25 0d 02 3a 1a  |mptype%=ind%..:.|
00000500  c9 20 22 46 75 6c 6c 22  3a 66 75 6c 6c 6c 65 6e  |. "Full":fulllen|
00000510  25 3d 69 6e 64 25 0d 02  44 1a c9 20 22 43 6f 6d  |%=ind%..D.. "Com|
00000520  70 22 3a 63 6f 6d 70 6c  65 6e 25 3d 69 6e 64 25  |p":complen%=ind%|
00000530  0d 02 4e 18 c9 20 22 31  30 30 25 22 3a 72 61 74  |..N.. "100%":rat|
00000540  69 6f 25 3d 69 6e 64 25  0d 02 58 19 c9 20 22 4c  |io%=ind%..X.. "L|
00000550  77 72 2f 22 3a 61 63 63  65 73 73 25 3d 69 6e 64  |wr/":access%=ind|
00000560  25 0d 02 62 1a c9 20 22  41 72 63 68 22 3a 61 72  |%..b.. "Arch":ar|
00000570  63 6e 61 6d 65 25 3d 69  6e 64 25 0d 02 6c 17 c9  |cname%=ind%..l..|
00000580  20 22 4c 6f 61 64 22 3a  61 64 64 72 25 3d 69 6e  | "Load":addr%=in|
00000590  64 25 0d 02 76 17 c9 20  22 44 53 74 61 22 3a 64  |d%..v.. "DSta":d|
000005a0  61 74 65 25 3d 69 6e 64  25 0d 02 80 05 cb 0d 02  |ate%=ind%.......|
000005b0  8a 05 20 0d 02 94 14 69  6e 64 25 2b 3d a9 28 24  |.. ....ind%+=.($|
000005c0  69 6e 64 25 29 2b 31 0d  02 9e 05 20 0d 02 a8 19  |ind%)+1.... ....|
000005d0  fd 20 69 6e 64 25 3e 3d  6e 65 77 69 6e 64 69 63  |. ind%>=newindic|
000005e0  25 2b 26 42 45 0d 02 b2  1a c8 99 22 57 69 6d 70  |%+&BE......"Wimp|
000005f0  5f 43 6c 6f 73 65 54 65  6d 70 6c 61 74 65 22 0d  |_CloseTemplate".|
00000600  02 bc 05 20 0d 02 c6 3e  21 62 6c 6f 63 6b 25 3d  |... ...>!block%=|
00000610  2d 31 3a 62 6c 6f 63 6b  25 21 34 3d 30 3a 62 6c  |-1:block%!4=0:bl|
00000620  6f 63 6b 25 21 38 3d 30  3a 62 6c 6f 63 6b 25 21  |ock%!8=0:block%!|
00000630  31 32 3d 36 38 3a 62 6c  6f 63 6b 25 21 31 36 3d  |12=68:block%!16=|
00000640  36 38 0d 02 d0 2d 62 6c  6f 63 6b 25 21 32 30 3d  |68...-block%!20=|
00000650  26 33 30 30 32 3a 24 28  62 6c 6f 63 6b 25 2b 32  |&3002:$(block%+2|
00000660  34 29 3d 22 21 61 72 63  66 73 69 6e 66 6f 22 0d  |4)="!arcfsinfo".|
00000670  02 da 2b c8 99 22 57 69  6d 70 5f 43 72 65 61 74  |..+.."Wimp_Creat|
00000680  65 49 63 6f 6e 22 2c 2c  62 6c 6f 63 6b 25 20 b8  |eIcon",,block% .|
00000690  20 69 63 68 61 6e 64 6c  65 25 0d 02 e4 05 e1 0d  | ichandle%......|
000006a0  02 ee 05 20 0d 02 f8 05  20 0d 03 02 0e dd 20 f2  |... .... ..... .|
000006b0  4d 65 73 73 61 67 65 0d  03 0c 12 c8 8e 20 62 6c  |Message...... bl|
000006c0  6f 63 6b 25 21 31 36 20  ca 0d 03 16 0f c9 20 30  |ock%!16 ...... 0|
000006d0  3a 71 75 69 74 25 3d b9  0d 03 20 13 c9 20 33 3a  |:quit%=... .. 3:|
000006e0  64 61 74 61 6c 6f 61 64  25 3d b9 0d 03 2a 2b e7  |dataload%=...*+.|
000006f0  20 63 6f 75 6e 74 25 3d  30 20 8c 20 f2 44 72 61  | count%=0 . .Dra|
00000700  67 66 69 6c 65 20 8b 20  f2 44 72 61 67 4d 75 6c  |gfile . .DragMul|
00000710  74 69 66 69 6c 65 0d 03  34 05 cb 0d 03 3e 05 e1  |tifile..4....>..|
00000720  0d 03 48 05 20 0d 03 52  05 20 0d 03 5c 11 dd 20  |..H. ..R. ..\.. |
00000730  f2 4f 70 65 6e 57 69 6e  64 6f 77 0d 03 66 21 57  |.OpenWindow..f!W|
00000740  69 6e 58 25 3d 62 6c 6f  63 6b 25 21 34 3a 57 69  |inX%=block%!4:Wi|
00000750  6e 59 25 3d 62 6c 6f 63  6b 25 21 38 0d 03 70 20  |nY%=block%!8..p |
00000760  c8 99 20 22 57 69 6d 70  5f 4f 70 65 6e 57 69 6e  |.. "Wimp_OpenWin|
00000770  64 6f 77 22 2c 2c 62 6c  6f 63 6b 25 0d 03 7a 05  |dow",,block%..z.|
00000780  e1 0d 03 84 05 20 0d 03  8e 05 20 0d 03 98 12 dd  |..... .... .....|
00000790  20 f2 43 6c 6f 73 65 57  69 6e 64 6f 77 0d 03 a2  | .CloseWindow...|
000007a0  1a e7 20 21 62 6c 6f 63  6b 25 3d 77 69 6e 68 61  |.. !block%=winha|
000007b0  6e 64 6c 65 25 20 8c 0d  03 ac 22 c8 99 20 22 57  |ndle% ....".. "W|
000007c0  69 6d 70 5f 44 65 6c 65  74 65 57 69 6e 64 6f 77  |imp_DeleteWindow|
000007d0  22 2c 2c 62 6c 6f 63 6b  25 0d 03 b6 11 77 69 6e  |",,block%....win|
000007e0  68 61 6e 64 6c 65 25 3d  2d 31 0d 03 c0 05 cc 0d  |handle%=-1......|
000007f0  03 ca 21 c8 99 20 22 57  69 6d 70 5f 43 6c 6f 73  |..!.. "Wimp_Clos|
00000800  65 57 69 6e 64 6f 77 22  2c 2c 62 6c 6f 63 6b 25  |eWindow",,block%|
00000810  0d 03 d4 05 cd 0d 03 de  05 e1 0d 03 e8 05 20 0d  |.............. .|
00000820  03 f2 05 20 0d 03 fc 0f  dd 20 f2 44 72 61 67 66  |... ..... .Dragf|
00000830  69 6c 65 0d 04 06 05 20  0d 04 10 16 e7 20 62 6c  |ile.... ..... bl|
00000840  6f 63 6b 25 21 31 32 3c  3e 30 20 8c 20 e1 0d 04  |ock%!12<>0 . ...|
00000850  1a 29 f4 20 43 68 65 63  6b 20 4d 65 73 73 61 67  |.). Check Messag|
00000860  65 20 6f 72 69 67 69 6e  61 74 65 64 20 66 72 6f  |e originated fro|
00000870  6d 20 46 69 6c 65 72 0d  04 24 05 20 0d 04 2e 0e  |m Filer..$. ....|
00000880  6f 62 6a 65 63 74 24 3d  22 22 0d 04 38 16 70 6f  |object$=""..8.po|
00000890  69 6e 74 65 72 25 3d 62  6c 6f 63 6b 25 2b 34 34  |inter%=block%+44|
000008a0  0d 04 42 15 f5 20 62 79  74 65 25 3d 3f 70 6f 69  |..B.. byte%=?poi|
000008b0  6e 74 65 72 25 0d 04 4c  33 e7 20 62 79 74 65 25  |nter%..L3. byte%|
000008c0  3e 33 31 20 8c 20 6f 62  6a 65 63 74 24 3d 6f 62  |>31 . object$=ob|
000008d0  6a 65 63 74 24 2b bd 62  79 74 65 25 3a 70 6f 69  |ject$+.byte%:poi|
000008e0  6e 74 65 72 25 2b 3d 31  0d 04 56 0e fd 20 62 79  |nter%+=1..V.. by|
000008f0  74 65 25 3c 33 32 0d 04  60 21 f4 20 47 65 74 20  |te%<32..`!. Get |
00000900  70 61 74 68 6e 61 6d 65  20 69 6e 74 6f 20 27 6f  |pathname into 'o|
00000910  62 6a 65 63 74 24 27 0d  04 6a 31 e7 20 c0 6f 62  |bject$'..j1. .ob|
00000920  6a 65 63 74 24 2c 36 29  3c 3e 22 61 72 63 66 73  |ject$,6)<>"arcfs|
00000930  23 22 20 80 20 62 6c 6f  63 6b 25 21 34 30 3c 3e  |#" . block%!40<>|
00000940  26 44 44 43 20 8c 20 e1  0d 04 74 33 f4 20 4f 6e  |&DDC . ...t3. On|
00000950  6c 79 20 69 6e 74 65 72  65 73 74 65 64 20 69 66  |ly interested if|
00000960  20 41 72 63 46 53 20 70  61 74 68 6e 61 6d 65 20  | ArcFS pathname |
00000970  6f 72 20 61 72 63 68 69  76 65 2e 0d 04 7e 05 20  |or archive...~. |
00000980  0d 04 88 1d e7 20 c0 6f  62 6a 65 63 74 24 2c 36  |..... .object$,6|
00000990  29 3c 3e 22 61 72 63 66  73 23 22 20 8c 0d 04 92  |)<>"arcfs#" ....|
000009a0  2b c8 99 22 4f 53 5f 46  69 6c 65 22 2c 31 37 2c  |+.."OS_File",17,|
000009b0  6f 62 6a 65 63 74 24 20  b8 20 2c 2c 6c 61 25 2c  |object$ . ,,la%,|
000009c0  65 61 25 2c 2c 61 74 25  0d 04 9c 3a c8 99 22 41  |ea%,,at%...:.."A|
000009d0  72 63 46 53 5f 47 65 74  41 72 63 4e 61 6d 65 22  |rcFS_GetArcName"|
000009e0  2c 2c 6f 62 6a 65 63 74  24 20 b8 20 2c 2c 2c 2c  |,,object$ . ,,,,|
000009f0  2c 2c 61 72 63 6e 61 6d  65 24 20 3b 66 6c 61 67  |,,arcname$ ;flag|
00000a00  73 25 0d 04 a6 16 e7 20  28 66 6c 61 67 73 25 20  |s%..... (flags% |
00000a10  80 20 32 29 3d 32 20 8c  0d 04 b0 32 c8 99 22 58  |. 2)=2 ....2.."X|
00000a20  41 72 63 46 53 5f 4f 70  65 6e 41 72 63 22 2c 2c  |ArcFS_OpenArc",,|
00000a30  6f 62 6a 65 63 74 24 20  b8 20 52 30 2c 2c 2c 2c  |object$ . R0,,,,|
00000a40  2c 2c 61 72 63 6e 61 6d  65 24 0d 04 ba 0d e7 20  |,,arcname$..... |
00000a50  52 30 3c 3e 30 20 8c 0d  04 c4 a4 c8 99 22 57 69  |R0<>0 ......."Wi|
00000a60  6d 70 5f 52 65 70 6f 72  74 45 72 72 6f 72 22 2c  |mp_ReportError",|
00000a70  bd 30 2b bd 30 2b bd 30  2b bd 30 2b 22 54 68 69  |.0+.0+.0+.0+"Thi|
00000a80  73 20 61 72 63 68 69 76  65 20 68 61 73 20 61 20  |s archive has a |
00000a90  6e 61 6d 65 20 74 68 61  74 20 68 61 73 20 62 65  |name that has be|
00000aa0  65 6e 20 73 65 65 6e 20  62 65 66 6f 72 65 2e 20  |en seen before. |
00000ab0  46 6f 72 67 65 74 20 74  68 65 20 6f 6c 64 20 6f  |Forget the old o|
00000ac0  6e 65 3f 22 2c 26 31 33  2c 22 41 72 63 46 53 20  |ne?",&13,"ArcFS |
00000ad0  49 6e 66 6f 20 2d 20 41  72 63 68 69 76 65 20 27  |Info - Archive '|
00000ae0  22 2b 61 72 63 6e 61 6d  65 24 2b 22 27 22 20 b8  |"+arcname$+"'" .|
00000af0  20 2c 72 65 73 70 6f 6e  73 65 25 0d 04 ce 15 e7  | ,response%.....|
00000b00  20 72 65 73 70 6f 6e 73  65 25 3d 32 20 8c 20 e1  | response%=2 . .|
00000b10  0d 04 d8 25 c8 99 22 41  72 63 46 53 5f 43 6c 6f  |...%.."ArcFS_Clo|
00000b20  73 65 41 72 63 22 2c 2c  2c 2c 2c 2c 2c 61 72 63  |seArc",,,,,,,arc|
00000b30  6e 61 6d 65 24 0d 04 e2  2b c8 99 22 41 72 63 46  |name$...+.."ArcF|
00000b40  53 5f 4f 70 65 6e 41 72  63 22 2c 2c 6f 62 6a 65  |S_OpenArc",,obje|
00000b50  63 74 24 2c 2c 2c 2c 2c  61 72 63 6e 61 6d 65 24  |ct$,,,,,arcname$|
00000b60  0d 04 ec 05 cd 0d 04 f6  05 cd 0d 05 00 22 6f 62  |............."ob|
00000b70  6a 65 63 74 24 3d 22 61  72 63 66 73 23 22 2b 61  |ject$="arcfs#"+a|
00000b80  72 63 6e 61 6d 65 24 2b  22 3a 24 22 0d 05 0a 3c  |rcname$+":$"...<|
00000b90  c8 99 22 41 72 63 46 53  5f 4f 62 6a 65 63 74 49  |.."ArcFS_ObjectI|
00000ba0  6e 66 6f 22 2c 2c 22 24  22 2c 2c 2c 2c 2c 61 72  |nfo",,"$",,,,,ar|
00000bb0  63 6e 61 6d 65 24 20 b8  20 2c 63 74 25 2c 2c 2c  |cname$ . ,ct%,,,|
00000bc0  66 6c 25 2c 2c 63 6c 25  0d 05 14 1c f4 20 52 65  |fl%,,cl%..... Re|
00000bd0  61 64 20 4f 62 6a 65 63  74 20 69 6e 66 6f 6d 61  |ad Object infoma|
00000be0  74 69 6f 6e 0d 05 1e 0d  66 74 25 3d 26 34 30 30  |tion....ft%=&400|
00000bf0  30 0d 05 28 41 f4 20 49  66 20 77 65 20 68 61 76  |0..(A. If we hav|
00000c00  65 20 61 6e 20 61 72 63  68 69 76 65 20 74 68 65  |e an archive the|
00000c10  6e 20 6f 70 65 6e 20 28  69 66 20 6e 65 63 65 73  |n open (if neces|
00000c20  73 61 72 79 29 2c 20 73  65 74 20 6f 62 6a 65 63  |sary), set objec|
00000c30  74 24 0d 05 32 05 cc 0d  05 3c 11 66 74 25 3d 62  |t$..2....<.ft%=b|
00000c40  6c 6f 63 6b 25 21 34 30  0d 05 46 21 f4 20 47 65  |lock%!40..F!. Ge|
00000c50  74 20 66 69 6c 65 74 79  70 65 20 66 72 6f 6d 20  |t filetype from |
00000c60  62 6c 6f 63 6b 25 21 34  30 0d 05 50 72 c8 99 22  |block%!40..Pr.."|
00000c70  41 72 63 46 53 5f 4f 62  6a 65 63 74 49 6e 66 6f  |ArcFS_ObjectInfo|
00000c80  22 2c 2c c2 6f 62 6a 65  63 74 24 2c a9 28 6f 62  |",,.object$,.(ob|
00000c90  6a 65 63 74 24 29 2d a7  6f 62 6a 65 63 74 24 2c  |ject$)-.object$,|
00000ca0  22 3a 22 29 29 2c 2c 2c  2c 2c c2 6f 62 6a 65 63  |":")),,,,,.objec|
00000cb0  74 24 2c a9 28 6f 62 6a  65 63 74 24 29 2d 36 29  |t$,.(object$)-6)|
00000cc0  20 b8 20 2c 63 74 25 2c  6c 61 25 2c 65 61 25 2c  | . ,ct%,la%,ea%,|
00000cd0  66 6c 25 2c 61 74 25 2c  63 6c 25 0d 05 5a 1c f4  |fl%,at%,cl%..Z..|
00000ce0  20 52 65 61 64 20 4f 62  6a 65 63 74 20 69 6e 66  | Read Object inf|
00000cf0  6f 6d 61 74 69 6f 6e 0d  05 64 05 cd 0d 05 6e 05  |omation..d....n.|
00000d00  20 0d 05 78 0c c8 8e 20  66 74 25 20 ca 0d 05 82  | ..x... ft% ....|
00000d10  05 20 0d 05 8c 0e c9 20  26 33 30 30 30 2c 2d 31  |. ..... &3000,-1|
00000d20  0d 05 96 13 74 79 70 65  24 3d 22 55 6e 74 79 70  |....type$="Untyp|
00000d30  65 64 22 0d 05 a0 0d f2  43 6f 6d 70 54 79 70 65  |ed".....CompType|
00000d40  0d 05 aa 11 77 69 6e 64  65 66 25 21 38 34 3d 31  |....windef%!84=1|
00000d50  38 0d 05 b4 3b 61 64 64  72 65 73 73 24 3d c2 22  |8...;address$=."|
00000d60  30 30 30 30 30 30 30 22  2b c3 7e 6c 61 25 2c 38  |0000000"+.~la%,8|
00000d70  29 2b 22 20 20 20 20 22  2b c2 22 30 30 30 30 30  |)+"    "+."00000|
00000d80  30 30 22 2b c3 7e 65 61  25 2c 38 29 0d 05 be 0d  |00"+.~ea%,8)....|
00000d90  64 61 74 65 24 3d 22 2d  22 0d 05 c8 3f f4 20 44  |date$="-"...?. D|
00000da0  6f 20 74 79 70 65 2c 20  63 6f 6d 70 72 65 73 73  |o type, compress|
00000db0  69 6f 6e 20 61 6e 64 20  61 64 64 72 65 73 73 20  |ion and address |
00000dc0  73 74 72 69 6e 67 73 20  66 6f 72 20 75 6e 74 79  |strings for unty|
00000dd0  70 65 64 20 66 69 6c 65  0d 05 d2 05 20 0d 05 dc  |ped file.... ...|
00000de0  0b c9 20 26 31 30 30 30  0d 05 e6 15 74 79 70 65  |.. &1000....type|
00000df0  24 3d 22 44 69 72 65 63  74 6f 72 79 22 0d 05 f0  |$="Directory"...|
00000e00  11 63 6f 6d 70 74 79 70  65 24 3d 22 2d 22 0d 05  |.comptype$="-"..|
00000e10  fa 10 61 64 64 72 65 73  73 24 3d 22 2d 22 0d 06  |..address$="-"..|
00000e20  04 11 77 69 6e 64 65 66  25 21 38 34 3d 31 37 0d  |..windef%!84=17.|
00000e30  06 0e 0c f2 47 65 74 54  69 6d 65 0d 06 18 21 f4  |....GetTime...!.|
00000e40  20 44 6f 20 74 79 70 65  20 69 63 6f 6e 73 20 66  | Do type icons f|
00000e50  6f 72 20 64 69 72 65 63  74 6f 72 79 0d 06 22 05  |or directory..".|
00000e60  20 0d 06 2c 0b c9 20 26  32 30 30 30 0d 06 36 17  | ..,.. &2000..6.|
00000e70  74 79 70 65 24 3d 22 41  70 70 6c 69 63 61 74 69  |type$="Applicati|
00000e80  6f 6e 22 0d 06 40 11 63  6f 6d 70 74 79 70 65 24  |on"..@.comptype$|
00000e90  3d 22 2d 22 0d 06 4a 10  61 64 64 72 65 73 73 24  |="-"..J.address$|
00000ea0  3d 22 2d 22 0d 06 54 11  77 69 6e 64 65 66 25 21  |="-"..T.windef%!|
00000eb0  38 34 3d 31 37 0d 06 5e  0c f2 47 65 74 54 69 6d  |84=17..^..GetTim|
00000ec0  65 0d 06 68 23 f4 20 44  6f 20 74 79 70 65 20 69  |e..h#. Do type i|
00000ed0  63 6f 6e 73 20 66 6f 72  20 61 70 70 6c 69 63 61  |cons for applica|
00000ee0  74 69 6f 6e 0d 06 72 05  20 0d 06 7c 0b c9 20 26  |tion..r. ..|.. &|
00000ef0  34 30 30 30 0d 06 86 13  74 79 70 65 24 3d 22 41  |4000....type$="A|
00000f00  72 63 68 69 76 65 22 0d  06 90 11 63 6f 6d 70 74  |rchive"....compt|
00000f10  79 70 65 24 3d 22 2d 22  0d 06 9a 10 61 64 64 72  |ype$="-"....addr|
00000f20  65 73 73 24 3d 22 2d 22  0d 06 a4 11 77 69 6e 64  |ess$="-"....wind|
00000f30  65 66 25 21 38 34 3d 31  37 0d 06 ae 0c f2 47 65  |ef%!84=17.....Ge|
00000f40  74 54 69 6d 65 0d 06 b8  1f f4 20 44 6f 20 74 79  |tTime..... Do ty|
00000f50  70 65 20 69 63 6f 6e 73  20 66 6f 72 20 61 72 63  |pe icons for arc|
00000f60  68 69 76 65 0d 06 c2 05  20 0d 06 cc 05 7f 0d 06  |hive.... .......|
00000f70  d6 4c c8 99 20 22 58 4f  53 5f 52 65 61 64 56 61  |.L.. "XOS_ReadVa|
00000f80  72 56 61 6c 22 2c 22 46  69 6c 65 24 54 79 70 65  |rVal","File$Type|
00000f90  5f 22 2b c2 22 30 30 22  2b c3 7e 66 74 25 2c 33  |_"+."00"+.~ft%,3|
00000fa0  29 2c 74 65 6d 70 25 2c  38 2c 30 2c 33 20 b8 20  |),temp%,8,0,3 . |
00000fb0  2c 2c 74 79 70 65 6c 65  6e 25 0d 06 e0 0c 74 79  |,,typelen%....ty|
00000fc0  70 65 24 3d 22 22 0d 06  ea 34 e3 20 41 25 3d 74  |pe$=""...4. A%=t|
00000fd0  65 6d 70 25 20 b8 20 74  65 6d 70 25 2b 74 79 70  |emp% . temp%+typ|
00000fe0  65 6c 65 6e 25 2d 31 3a  74 79 70 65 24 3d 74 79  |elen%-1:type$=ty|
00000ff0  70 65 24 2b bd 3f 41 25  3a ed 0d 06 f4 27 74 79  |pe$+.?A%:....'ty|
00001000  70 65 24 3d 74 79 70 65  24 2b 22 20 28 22 2b c2  |pe$=type$+" ("+.|
00001010  22 30 30 22 2b c3 7e 66  74 25 2c 33 29 2b 22 29  |"00"+.~ft%,3)+")|
00001020  22 0d 06 fe 0d f2 43 6f  6d 70 54 79 70 65 0d 07  |".....CompType..|
00001030  08 10 61 64 64 72 65 73  73 24 3d 22 2d 22 0d 07  |..address$="-"..|
00001040  12 11 77 69 6e 64 65 66  25 21 38 34 3d 31 37 0d  |..windef%!84=17.|
00001050  07 1c 0c f2 47 65 74 54  69 6d 65 0d 07 26 22 f4  |....GetTime..&".|
00001060  20 44 6f 20 74 79 70 65  20 69 63 6f 6e 73 20 66  | Do type icons f|
00001070  6f 72 20 74 79 70 65 64  20 66 69 6c 65 0d 07 30  |or typed file..0|
00001080  05 20 0d 07 3a 05 cb 0d  07 44 05 20 0d 07 4e 0e  |. ..:....D. ..N.|
00001090  61 63 63 65 73 73 24 3d  22 22 0d 07 58 27 e7 20  |access$=""..X'. |
000010a0  28 61 74 25 20 80 20 38  29 3d 38 20 8c 20 61 63  |(at% . 8)=8 . ac|
000010b0  63 65 73 73 24 3d 61 63  63 65 73 73 24 2b 22 4c  |cess$=access$+"L|
000010c0  22 0d 07 62 1f e7 20 66  74 25 3c 3e 26 31 30 30  |"..b.. ft%<>&100|
000010d0  30 20 80 20 66 74 25 3c  3e 26 32 30 30 30 20 8c  |0 . ft%<>&2000 .|
000010e0  0d 07 6c 27 e7 20 28 61  74 25 20 80 20 32 29 3d  |..l'. (at% . 2)=|
000010f0  32 20 8c 20 61 63 63 65  73 73 24 3d 61 63 63 65  |2 . access$=acce|
00001100  73 73 24 2b 22 57 22 0d  07 76 27 e7 20 28 61 74  |ss$+"W"..v'. (at|
00001110  25 20 80 20 31 29 3d 31  20 8c 20 61 63 63 65 73  |% . 1)=1 . acces|
00001120  73 24 3d 61 63 63 65 73  73 24 2b 22 52 22 0d 07  |s$=access$+"R"..|
00001130  80 17 61 63 63 65 73 73  24 3d 61 63 63 65 73 73  |..access$=access|
00001140  24 2b 22 2f 22 0d 07 8a  29 e7 20 28 61 74 25 20  |$+"/"...). (at% |
00001150  80 20 33 32 29 3d 33 32  20 8c 20 61 63 63 65 73  |. 32)=32 . acces|
00001160  73 24 3d 61 63 63 65 73  73 24 2b 22 77 22 0d 07  |s$=access$+"w"..|
00001170  94 29 e7 20 28 61 74 25  20 80 20 31 36 29 3d 31  |.). (at% . 16)=1|
00001180  36 20 8c 20 61 63 63 65  73 73 24 3d 61 63 63 65  |6 . access$=acce|
00001190  73 73 24 2b 22 72 22 0d  07 9e 05 cc 0d 07 a8 17  |ss$+"r".........|
000011a0  61 63 63 65 73 73 24 3d  61 63 63 65 73 73 24 2b  |access$=access$+|
000011b0  22 2f 22 0d 07 b2 05 cd  0d 07 bc 05 20 0d 07 c6  |"/"......... ...|
000011c0  44 c8 99 20 22 41 72 63  46 53 5f 4e 61 6d 65 64  |D.. "ArcFS_Named|
000011d0  41 72 63 49 6e 66 6f 22  2c 2c 2c 2c 2c 2c 2c c2  |ArcInfo",,,,,,,.|
000011e0  6f 62 6a 65 63 74 24 2c  a9 28 6f 62 6a 65 63 74  |object$,.(object|
000011f0  24 29 2d 36 29 20 b8 20  2c 61 72 63 70 61 74 68  |$)-6) . ,arcpath|
00001200  24 0d 07 d0 1d f4 20 47  65 74 20 70 61 74 68 6e  |$..... Get pathn|
00001210  61 6d 65 20 6f 66 20 61  72 63 68 69 76 65 0d 07  |ame of archive..|
00001220  da 05 20 0d 07 e4 22 62  6c 6f 63 6b 25 21 31 32  |.. ..."block%!12|
00001230  3d 62 6c 6f 63 6b 25 21  38 3a 62 6c 6f 63 6b 25  |=block%!8:block%|
00001240  21 31 36 3d 34 0d 07 ee  2b c8 99 22 57 69 6d 70  |!16=4...+.."Wimp|
00001250  5f 53 65 6e 64 4d 65 73  73 61 67 65 22 2c 31 37  |_SendMessage",17|
00001260  2c 62 6c 6f 63 6b 25 2c  62 6c 6f 63 6b 25 21 34  |,block%,block%!4|
00001270  0d 07 f8 23 f4 20 41 63  6b 6e 6f 77 6c 65 64 67  |...#. Acknowledg|
00001280  65 20 64 61 74 61 20 6c  6f 61 64 20 6d 65 73 73  |e data load mess|
00001290  61 67 65 0d 08 02 05 20  0d 08 0c 0c 63 6f 75 6e  |age.... ....coun|
000012a0  74 25 3d 31 0d 08 16 05  e1 0d 08 20 05 20 0d 08  |t%=1....... . ..|
000012b0  2a 05 20 0d 08 34 0e dd  20 f2 64 69 73 70 6c 61  |*. ..4.. .displa|
000012c0  79 0d 08 3e 16 e7 20 77  69 6e 68 61 6e 64 6c 65  |y..>.. winhandle|
000012d0  25 3c 3e 2d 31 20 8c 0d  08 48 17 21 77 62 6c 6f  |%<>-1 ...H.!wblo|
000012e0  63 6b 25 3d 77 69 6e 68  61 6e 64 6c 65 25 0d 08  |ck%=winhandle%..|
000012f0  52 23 c8 99 20 22 57 69  6d 70 5f 44 65 6c 65 74  |R#.. "Wimp_Delet|
00001300  65 57 69 6e 64 6f 77 22  2c 2c 77 62 6c 6f 63 6b  |eWindow",,wblock|
00001310  25 0d 08 5c 11 77 69 6e  68 61 6e 64 6c 65 25 3d  |%..\.winhandle%=|
00001320  2d 31 0d 08 66 05 cd 0d  08 70 2d f4 20 52 65 6d  |-1..f....p-. Rem|
00001330  6f 76 65 20 77 69 6e 64  6f 77 20 69 66 20 6f 6e  |ove window if on|
00001340  65 20 69 73 20 62 65 69  6e 67 20 64 69 73 70 6c  |e is being displ|
00001350  61 79 65 64 0d 08 7a 05  20 0d 08 84 3a e7 20 a9  |ayed..z. ...:. .|
00001360  28 6f 62 6a 65 63 74 24  29 3e 33 30 20 8c 20 24  |(object$)>30 . $|
00001370  70 61 74 68 25 3d c2 6f  62 6a 65 63 74 24 2c 33  |path%=.object$,3|
00001380  30 29 20 8b 20 24 70 61  74 68 25 3d 6f 62 6a 65  |0) . $path%=obje|
00001390  63 74 24 0d 08 8e 2a f4  20 50 75 74 20 70 61 74  |ct$...*. Put pat|
000013a0  68 6e 61 6d 65 20 69 6e  20 69 63 6f 6e 20 28 6d  |hname in icon (m|
000013b0  61 78 2e 20 33 30 20 63  68 72 73 2e 29 0d 08 98  |ax. 30 chrs.)...|
000013c0  05 20 0d 08 a2 3d e7 20  63 6f 75 6e 74 25 3e 31  |. ...=. count%>1|
000013d0  20 8c 20 24 74 79 70 65  25 3d 74 79 70 65 24 2b  | . $type%=type$+|
000013e0  22 20 28 22 2b c3 63 6f  75 6e 74 25 2b 22 29 22  |" ("+.count%+")"|
000013f0  20 8b 20 24 74 79 70 65  25 3d 74 79 70 65 24 0d  | . $type%=type$.|
00001400  08 ac 18 f4 20 49 63 6f  6e 20 66 6f 72 20 66 69  |.... Icon for fi|
00001410  6c 65 20 74 79 70 65 0d  08 b6 05 20 0d 08 c0 13  |le type.... ....|
00001420  24 61 64 64 72 25 3d 61  64 64 72 65 73 73 24 0d  |$addr%=address$.|
00001430  08 ca 25 f4 20 41 64 64  72 65 73 73 20 69 63 6f  |..%. Address ico|
00001440  6e 20 28 66 6f 72 20 75  6e 74 79 70 65 64 20 66  |n (for untyped f|
00001450  69 6c 65 29 0d 08 d4 05  20 0d 08 de 18 24 63 6f  |ile).... ....$co|
00001460  6d 70 74 79 70 65 25 3d  63 6f 6d 70 74 79 70 65  |mptype%=comptype|
00001470  24 0d 08 e8 16 f4 20 43  6f 6d 70 72 65 73 73 69  |$..... Compressi|
00001480  6f 6e 20 69 63 6f 6e 0d  08 f2 05 20 0d 08 fc 10  |on icon.... ....|
00001490  24 64 61 74 65 25 3d 64  61 74 65 24 0d 09 06 0f  |$date%=date$....|
000014a0  f4 20 44 61 74 65 20 69  63 6f 6e 0d 09 10 05 20  |. Date icon.... |
000014b0  0d 09 1a 14 24 61 63 63  65 73 73 25 3d 61 63 63  |....$access%=acc|
000014c0  65 73 73 24 0d 09 24 15  f4 20 53 65 74 20 61 63  |ess$..$.. Set ac|
000014d0  63 65 73 73 20 69 63 6f  6e 0d 09 2e 05 20 0d 09  |cess icon.... ..|
000014e0  38 2b c8 99 20 22 4f 53  5f 43 6f 6e 76 65 72 74  |8+.. "OS_Convert|
000014f0  46 69 6c 65 53 69 7a 65  22 2c 66 6c 25 2c 66 75  |FileSize",fl%,fu|
00001500  6c 6c 6c 65 6e 25 2c 31  32 0d 09 42 1d f4 20 50  |lllen%,12..B.. P|
00001510  75 74 20 66 75 6c 6c 20  6c 65 6e 67 74 68 20 69  |ut full length i|
00001520  6e 20 69 63 6f 6e 0d 09  4c 05 20 0d 09 56 2b c8  |n icon..L. ..V+.|
00001530  99 20 22 4f 53 5f 43 6f  6e 76 65 72 74 46 69 6c  |. "OS_ConvertFil|
00001540  65 53 69 7a 65 22 2c 63  6c 25 2c 63 6f 6d 70 6c  |eSize",cl%,compl|
00001550  65 6e 25 2c 31 32 0d 09  60 23 f4 20 50 75 74 20  |en%,12..`#. Put |
00001560  63 6f 6d 70 72 65 73 73  65 64 20 6c 65 6e 67 74  |compressed lengt|
00001570  68 20 69 6e 20 69 63 6f  6e 0d 09 6a 05 20 0d 09  |h in icon..j. ..|
00001580  74 3e e7 20 63 6c 25 3d  66 6c 25 20 8c 20 24 72  |t>. cl%=fl% . $r|
00001590  61 74 69 6f 25 3d 22 31  30 30 25 22 20 8b 20 24  |atio%="100%" . $|
000015a0  72 61 74 69 6f 25 3d c3  28 a8 28 63 6c 25 2f 66  |ratio%=.(.(cl%/f|
000015b0  6c 25 2a 31 30 30 29 29  2b 22 25 22 0d 09 7e 20  |l%*100))+"%"..~ |
000015c0  f4 20 57 6f 72 6b 20 6f  75 74 20 63 6f 6d 70 72  |. Work out compr|
000015d0  65 73 73 69 6f 6e 20 72  61 74 69 6f 0d 09 88 05  |ession ratio....|
000015e0  20 0d 09 92 43 e7 20 a9  28 61 72 63 70 61 74 68  | ...C. .(arcpath|
000015f0  24 29 3e 33 30 20 8c 20  24 61 72 63 6e 61 6d 65  |$)>30 . $arcname|
00001600  25 3d c2 61 72 63 70 61  74 68 24 2c 33 30 29 20  |%=.arcpath$,30) |
00001610  8b 20 24 61 72 63 6e 61  6d 65 25 3d 61 72 63 70  |. $arcname%=arcp|
00001620  61 74 68 24 0d 09 9c 1f  f4 20 53 65 74 20 61 72  |ath$..... Set ar|
00001630  63 68 69 76 65 20 70 61  74 68 6e 61 6d 65 20 69  |chive pathname i|
00001640  63 6f 6e 0d 09 a6 05 20  0d 09 b0 30 c8 99 20 22  |con.... ...0.. "|
00001650  57 69 6d 70 5f 43 72 65  61 74 65 57 69 6e 64 6f  |Wimp_CreateWindo|
00001660  77 22 2c 2c 77 69 6e 64  65 66 25 20 b8 20 77 69  |w",,windef% . wi|
00001670  6e 68 61 6e 64 6c 65 25  0d 09 ba 13 f4 20 43 72  |nhandle%..... Cr|
00001680  65 61 74 65 20 57 69 6e  64 6f 77 0d 09 c4 05 20  |eate Window.... |
00001690  0d 09 ce 17 21 77 62 6c  6f 63 6b 25 3d 77 69 6e  |....!wblock%=win|
000016a0  68 61 6e 64 6c 65 25 0d  09 d8 23 77 62 6c 6f 63  |handle%...#wbloc|
000016b0  6b 25 21 34 3d 57 69 6e  58 25 3a 77 62 6c 6f 63  |k%!4=WinX%:wbloc|
000016c0  6b 25 21 38 3d 57 69 6e  59 25 0d 09 e2 2d 77 62  |k%!8=WinY%...-wb|
000016d0  6c 6f 63 6b 25 21 31 32  3d 57 69 6e 58 25 2b 35  |lock%!12=WinX%+5|
000016e0  31 32 3a 77 62 6c 6f 63  6b 25 21 31 36 3d 57 69  |12:wblock%!16=Wi|
000016f0  6e 59 25 2b 35 32 38 0d  09 ec 1d 77 62 6c 6f 63  |nY%+528....wbloc|
00001700  6b 25 21 32 30 3d 30 3a  77 62 6c 6f 63 6b 25 21  |k%!20=0:wblock%!|
00001710  32 34 3d 30 0d 09 f6 11  77 62 6c 6f 63 6b 25 21  |24=0....wblock%!|
00001720  32 38 3d 2d 31 0d 0a 00  21 c8 99 20 22 57 69 6d  |28=-1...!.. "Wim|
00001730  70 5f 4f 70 65 6e 57 69  6e 64 6f 77 22 2c 2c 77  |p_OpenWindow",,w|
00001740  62 6c 6f 63 6b 25 0d 0a  0a 11 f4 20 4f 70 65 6e  |block%..... Open|
00001750  20 57 69 6e 64 6f 77 0d  0a 14 05 20 0d 0a 1e 0c  | Window.... ....|
00001760  63 6f 75 6e 74 25 3d 30  0d 0a 28 11 f4 20 52 65  |count%=0..(.. Re|
00001770  73 65 74 20 63 6f 75 6e  74 0d 0a 32 05 20 0d 0a  |set count..2. ..|
00001780  3c 05 e1 0d 0a 46 05 20  0d 0a 50 05 20 0d 0a 5a  |<....F. ..P. ..Z|
00001790  0f dd 20 f2 43 6f 6d 70  54 79 70 65 0d 0a 64 0c  |.. .CompType..d.|
000017a0  c8 8e 20 63 74 25 20 ca  0d 0a 6e 1b c9 20 26 38  |.. ct% ...n.. &8|
000017b0  32 3a 63 6f 6d 70 74 79  70 65 24 3d 22 53 74 6f  |2:comptype$="Sto|
000017c0  72 65 22 0d 0a 78 1a c9  20 26 38 33 3a 63 6f 6d  |re"..x.. &83:com|
000017d0  70 74 79 70 65 24 3d 22  50 61 63 6b 22 0d 0a 82  |ptype$="Pack"...|
000017e0  2f c9 20 26 38 38 3a 63  6f 6d 70 74 79 70 65 24  |/. &88:comptype$|
000017f0  3d 22 43 72 75 6e 63 68  20 22 2b c3 28 28 61 74  |="Crunch "+.((at|
00001800  25 3e 3e 38 29 20 80 20  26 46 46 29 0d 0a 8c 1f  |%>>8) . &FF)....|
00001810  c9 20 26 38 39 3a 63 6f  6d 70 74 79 70 65 24 3d  |. &89:comptype$=|
00001820  22 53 71 75 61 73 68 20  31 33 22 0d 0a 96 31 c9  |"Squash 13"...1.|
00001830  20 26 46 46 3a 63 6f 6d  70 74 79 70 65 24 3d 22  | &FF:comptype$="|
00001840  43 6f 6d 70 72 65 73 73  20 22 2b c3 28 28 61 74  |Compress "+.((at|
00001850  25 3e 3e 38 29 20 80 20  26 46 46 29 0d 0a a0 19  |%>>8) . &FF)....|
00001860  7f 3a 63 6f 6d 70 74 79  70 65 24 3d 22 55 6e 6b  |.:comptype$="Unk|
00001870  6e 6f 77 6e 22 0d 0a aa  05 cb 0d 0a b4 05 e1 0d  |nown"...........|
00001880  0a be 05 20 0d 0a c8 05  20 0d 0a d2 0c dd 20 f2  |... .... ..... .|
00001890  45 72 72 6f 72 0d 0a dc  36 c8 99 22 57 69 6d 70  |Error...6.."Wimp|
000018a0  5f 52 65 70 6f 72 74 45  72 72 6f 72 22 2c bd 30  |_ReportError",.0|
000018b0  2b bd 30 2b bd 30 2b bd  30 2b f6 24 2c 31 2c 22  |+.0+.0+.0+.$,1,"|
000018c0  41 72 63 46 53 20 49 6e  66 6f 22 0d 0a e6 05 e1  |ArcFS Info".....|
000018d0  0d 0a f0 05 20 0d 0a fa  05 20 0d 0b 04 0e dd 20  |.... .... ..... |
000018e0  f2 47 65 74 54 69 6d 65  0d 0b 0e 1e 21 77 62 6c  |.GetTime....!wbl|
000018f0  6f 63 6b 25 3d 65 61 25  3a 77 62 6c 6f 63 6b 25  |ock%=ea%:wblock%|
00001900  3f 34 3d 6c 61 25 0d 0b  18 57 c8 99 22 4f 53 5f  |?4=la%...W.."OS_|
00001910  43 6f 6e 76 65 72 74 44  61 74 65 41 6e 64 54 69  |ConvertDateAndTi|
00001920  6d 65 22 2c 77 62 6c 6f  63 6b 25 2c 74 65 6d 70  |me",wblock%,temp|
00001930  25 2c 32 31 2c 22 25 32  34 3a 25 4d 49 3a 25 53  |%,21,"%24:%MI:%S|
00001940  45 20 25 44 59 20 25 4d  33 20 25 43 45 25 59 52  |E %DY %M3 %CE%YR|
00001950  22 20 b8 20 2c 74 65 6d  70 65 6e 64 25 0d 0b 22  |" . ,tempend%.."|
00001960  0c 64 61 74 65 24 3d 22  22 0d 0b 2c 2e e3 20 41  |.date$=""..,.. A|
00001970  25 3d 74 65 6d 70 25 20  b8 20 74 65 6d 70 65 6e  |%=temp% . tempen|
00001980  64 25 2d 31 3a 64 61 74  65 24 3d 64 61 74 65 24  |d%-1:date$=date$|
00001990  2b bd 3f 41 25 3a ed 0d  0b 36 05 e1 0d 0b 40 05  |+.?A%:...6....@.|
000019a0  20 0d 0b 4a 05 20 0d 0b  54 14 dd 20 f2 44 72 61  | ..J. ..T.. .Dra|
000019b0  67 4d 75 6c 74 69 66 69  6c 65 0d 0b 5e 05 20 0d  |gMultifile..^. .|
000019c0  0b 68 16 e7 20 62 6c 6f  63 6b 25 21 31 32 3c 3e  |.h.. block%!12<>|
000019d0  30 20 8c 20 e1 0d 0b 72  29 f4 20 43 68 65 63 6b  |0 . ...r). Check|
000019e0  20 4d 65 73 73 61 67 65  20 6f 72 69 67 69 6e 61  | Message origina|
000019f0  74 65 64 20 66 72 6f 6d  20 46 69 6c 65 72 0d 0b  |ted from Filer..|
00001a00  7c 05 20 0d 0b 86 11 6e  65 77 6f 62 6a 65 63 74  ||. ....newobject|
00001a10  24 3d 22 22 0d 0b 90 16  70 6f 69 6e 74 65 72 25  |$=""....pointer%|
00001a20  3d 62 6c 6f 63 6b 25 2b  34 34 0d 0b 9a 15 f5 20  |=block%+44..... |
00001a30  62 79 74 65 25 3d 3f 70  6f 69 6e 74 65 72 25 0d  |byte%=?pointer%.|
00001a40  0b a4 39 e7 20 62 79 74  65 25 3e 33 31 20 8c 20  |..9. byte%>31 . |
00001a50  6e 65 77 6f 62 6a 65 63  74 24 3d 6e 65 77 6f 62  |newobject$=newob|
00001a60  6a 65 63 74 24 2b bd 62  79 74 65 25 3a 70 6f 69  |ject$+.byte%:poi|
00001a70  6e 74 65 72 25 2b 3d 31  0d 0b ae 0e fd 20 62 79  |nter%+=1..... by|
00001a80  74 65 25 3c 33 32 0d 0b  b8 24 f4 20 47 65 74 20  |te%<32...$. Get |
00001a90  70 61 74 68 6e 61 6d 65  20 69 6e 74 6f 20 27 6e  |pathname into 'n|
00001aa0  65 77 6f 62 6a 65 63 74  24 27 0d 0b c2 34 e7 20  |ewobject$'...4. |
00001ab0  c0 6e 65 77 6f 62 6a 65  63 74 24 2c 36 29 3c 3e  |.newobject$,6)<>|
00001ac0  22 61 72 63 66 73 23 22  20 80 20 62 6c 6f 63 6b  |"arcfs#" . block|
00001ad0  25 21 34 30 3c 3e 26 44  44 43 20 8c 20 e1 0d 0b  |%!40<>&DDC . ...|
00001ae0  cc 33 f4 20 4f 6e 6c 79  20 69 6e 74 65 72 65 73  |.3. Only interes|
00001af0  74 65 64 20 69 66 20 41  72 63 46 53 20 70 61 74  |ted if ArcFS pat|
00001b00  68 6e 61 6d 65 20 6f 72  20 61 72 63 68 69 76 65  |hname or archive|
00001b10  2e 0d 0b d6 05 20 0d 0b  e0 20 e7 20 c0 6e 65 77  |..... ... . .new|
00001b20  6f 62 6a 65 63 74 24 2c  36 29 3c 3e 22 61 72 63  |object$,6)<>"arc|
00001b30  66 73 23 22 20 8c 0d 0b  ea 05 20 0d 0b f4 3d c8  |fs#" ..... ...=.|
00001b40  99 22 41 72 63 46 53 5f  47 65 74 41 72 63 4e 61  |."ArcFS_GetArcNa|
00001b50  6d 65 22 2c 2c 6e 65 77  6f 62 6a 65 63 74 24 20  |me",,newobject$ |
00001b60  b8 20 2c 2c 2c 2c 2c 2c  61 72 63 6e 61 6d 65 24  |. ,,,,,,arcname$|
00001b70  20 3b 66 6c 61 67 73 25  0d 0b fe 16 e7 20 28 66  | ;flags%..... (f|
00001b80  6c 61 67 73 25 20 80 20  32 29 3d 32 20 8c 0d 0c  |lags% . 2)=2 ...|
00001b90  08 35 c8 99 22 58 41 72  63 46 53 5f 4f 70 65 6e  |.5.."XArcFS_Open|
00001ba0  41 72 63 22 2c 2c 6e 65  77 6f 62 6a 65 63 74 24  |Arc",,newobject$|
00001bb0  20 b8 20 52 30 2c 2c 2c  2c 2c 2c 61 72 63 6e 61  | . R0,,,,,,arcna|
00001bc0  6d 65 24 0d 0c 12 0d e7  20 52 30 3c 3e 30 20 8c  |me$..... R0<>0 .|
00001bd0  0d 0c 1c a4 c8 99 22 57  69 6d 70 5f 52 65 70 6f  |......"Wimp_Repo|
00001be0  72 74 45 72 72 6f 72 22  2c bd 30 2b bd 30 2b bd  |rtError",.0+.0+.|
00001bf0  30 2b bd 30 2b 22 54 68  69 73 20 61 72 63 68 69  |0+.0+"This archi|
00001c00  76 65 20 68 61 73 20 61  20 6e 61 6d 65 20 74 68  |ve has a name th|
00001c10  61 74 20 68 61 73 20 62  65 65 6e 20 73 65 65 6e  |at has been seen|
00001c20  20 62 65 66 6f 72 65 2e  20 46 6f 72 67 65 74 20  | before. Forget |
00001c30  74 68 65 20 6f 6c 64 20  6f 6e 65 3f 22 2c 26 31  |the old one?",&1|
00001c40  33 2c 22 41 72 63 46 53  20 49 6e 66 6f 20 2d 20  |3,"ArcFS Info - |
00001c50  41 72 63 68 69 76 65 20  27 22 2b 61 72 63 6e 61  |Archive '"+arcna|
00001c60  6d 65 24 2b 22 27 22 20  b8 20 2c 72 65 73 70 6f  |me$+"'" . ,respo|
00001c70  6e 73 65 25 0d 0c 26 15  e7 20 72 65 73 70 6f 6e  |nse%..&.. respon|
00001c80  73 65 25 3d 32 20 8c 20  e1 0d 0c 30 25 c8 99 22  |se%=2 . ...0%.."|
00001c90  41 72 63 46 53 5f 43 6c  6f 73 65 41 72 63 22 2c  |ArcFS_CloseArc",|
00001ca0  2c 2c 2c 2c 2c 2c 61 72  63 6e 61 6d 65 24 0d 0c  |,,,,,,arcname$..|
00001cb0  3a 2e c8 99 22 41 72 63  46 53 5f 4f 70 65 6e 41  |:..."ArcFS_OpenA|
00001cc0  72 63 22 2c 2c 6e 65 77  6f 62 6a 65 63 74 24 2c  |rc",,newobject$,|
00001cd0  2c 2c 2c 2c 61 72 63 6e  61 6d 65 24 0d 0c 44 05  |,,,,arcname$..D.|
00001ce0  cd 0d 0c 4e 05 cd 0d 0c  58 05 20 0d 0c 62 3b c8  |...N....X. ..b;.|
00001cf0  99 22 41 72 63 46 53 5f  4f 62 6a 65 63 74 49 6e  |."ArcFS_ObjectIn|
00001d00  66 6f 22 2c 2c 22 24 22  2c 2c 2c 2c 2c 61 72 63  |fo",,"$",,,,,arc|
00001d10  6e 61 6d 65 24 20 b8 20  2c 2c 2c 2c 66 6c 61 25  |name$ . ,,,,fla%|
00001d20  2c 2c 63 6c 61 25 0d 0c  6c 1c f4 20 52 65 61 64  |,,cla%..l.. Read|
00001d30  20 4f 62 6a 65 63 74 20  69 6e 66 6f 6d 61 74 69  | Object infomati|
00001d40  6f 6e 0d 0c 76 17 66 6c  25 2b 3d 66 6c 61 25 3a  |on..v.fl%+=fla%:|
00001d50  63 6c 25 2b 3d 63 6c 61  25 0d 0c 80 2e f4 20 41  |cl%+=cla%..... A|
00001d60  64 64 20 66 75 6c 6c 20  61 6e 64 20 63 6f 6d 70  |dd full and comp|
00001d70  72 65 73 73 65 64 20 6c  65 6e 67 74 68 73 20 74  |ressed lengths t|
00001d80  6f 20 74 6f 74 61 6c 0d  0c 8a 05 20 0d 0c 94 1c  |o total.... ....|
00001d90  6f 62 6a 65 63 74 24 3d  22 61 72 63 66 73 23 3c  |object$="arcfs#<|
00001da0  6d 61 6e 79 3e 3a 24 22  0d 0c 9e 0b 6e 70 6f 73  |many>:$"....npos|
00001db0  25 3d 30 0d 0c a8 10 f5  20 70 6f 73 25 3d 6e 70  |%=0..... pos%=np|
00001dc0  6f 73 25 0d 0c b2 1f 6e  70 6f 73 25 3d a7 61 72  |os%....npos%=.ar|
00001dd0  63 70 61 74 68 24 2c 22  2e 22 2c 70 6f 73 25 2b  |cpath$,".",pos%+|
00001de0  31 29 0d 0c bc 0d fd 20  6e 70 6f 73 25 3d 30 0d  |1)..... npos%=0.|
00001df0  0c c6 25 61 72 63 70 61  74 68 24 3d c0 61 72 63  |..%arcpath$=.arc|
00001e00  70 61 74 68 24 2c 70 6f  73 25 29 2b 22 3c 6d 61  |path$,pos%)+"<ma|
00001e10  6e 79 3e 22 0d 0c d0 05  20 0d 0c da 05 cc 0d 0c  |ny>".... .......|
00001e20  e4 0b 6e 70 6f 73 25 3d  30 0d 0c ee 10 f5 20 70  |..npos%=0..... p|
00001e30  6f 73 25 3d 6e 70 6f 73  25 0d 0c f8 1e 6e 70 6f  |os%=npos%....npo|
00001e40  73 25 3d a7 6f 62 6a 65  63 74 24 2c 22 2e 22 2c  |s%=.object$,".",|
00001e50  70 6f 73 25 2b 31 29 0d  0d 02 0d fd 20 6e 70 6f  |pos%+1)..... npo|
00001e60  73 25 3d 30 0d 0d 0c 23  6f 62 6a 65 63 74 24 3d  |s%=0...#object$=|
00001e70  c0 6f 62 6a 65 63 74 24  2c 70 6f 73 25 29 2b 22  |.object$,pos%)+"|
00001e80  3c 6d 61 6e 79 3e 22 0d  0d 16 05 20 0d 0d 20 77  |<many>".... .. w|
00001e90  c8 99 22 41 72 63 46 53  5f 4f 62 6a 65 63 74 49  |.."ArcFS_ObjectI|
00001ea0  6e 66 6f 22 2c 2c c2 6e  65 77 6f 62 6a 65 63 74  |nfo",,.newobject|
00001eb0  24 2c a9 28 6e 65 77 6f  62 6a 65 63 74 24 29 2d  |$,.(newobject$)-|
00001ec0  a7 6e 65 77 6f 62 6a 65  63 74 24 2c 22 3a 22 29  |.newobject$,":")|
00001ed0  29 2c 2c 2c 2c 2c c2 6e  65 77 6f 62 6a 65 63 74  |),,,,,.newobject|
00001ee0  24 2c a9 28 6e 65 77 6f  62 6a 65 63 74 24 29 2d  |$,.(newobject$)-|
00001ef0  36 29 20 b8 20 2c 2c 2c  2c 66 6c 61 25 2c 2c 63  |6) . ,,,,fla%,,c|
00001f00  6c 61 25 0d 0d 2a 17 66  6c 25 2b 3d 66 6c 61 25  |la%..*.fl%+=fla%|
00001f10  3a 63 6c 25 2b 3d 63 6c  61 25 0d 0d 34 2e f4 20  |:cl%+=cla%..4.. |
00001f20  41 64 64 20 66 75 6c 6c  20 61 6e 64 20 63 6f 6d  |Add full and com|
00001f30  70 72 65 73 73 65 64 20  6c 65 6e 67 74 68 73 20  |pressed lengths |
00001f40  74 6f 20 74 6f 74 61 6c  0d 0d 3e 05 cd 0d 0d 48  |to total..>....H|
00001f50  05 20 0d 0d 52 15 74 79  70 65 24 3d 22 53 65 6c  |. ..R.type$="Sel|
00001f60  65 63 74 69 6f 6e 22 0d  0d 5c 11 63 6f 6d 70 74  |ection"..\.compt|
00001f70  79 70 65 24 3d 22 2d 22  0d 0d 66 0f 61 63 63 65  |ype$="-"..f.acce|
00001f80  73 73 24 3d 22 2d 22 0d  0d 70 0d 64 61 74 65 24  |ss$="-"..p.date$|
00001f90  3d 22 2d 22 0d 0d 7a 10  61 64 64 72 65 73 73 24  |="-"..z.address$|
00001fa0  3d 22 2d 22 0d 0d 84 11  77 69 6e 64 65 66 25 21  |="-"....windef%!|
00001fb0  38 34 3d 31 37 0d 0d 8e  05 20 0d 0d 98 22 62 6c  |84=17.... ..."bl|
00001fc0  6f 63 6b 25 21 31 32 3d  62 6c 6f 63 6b 25 21 38  |ock%!12=block%!8|
00001fd0  3a 62 6c 6f 63 6b 25 21  31 36 3d 34 0d 0d a2 2b  |:block%!16=4...+|
00001fe0  c8 99 22 57 69 6d 70 5f  53 65 6e 64 4d 65 73 73  |.."Wimp_SendMess|
00001ff0  61 67 65 22 2c 31 37 2c  62 6c 6f 63 6b 25 2c 62  |age",17,block%,b|
00002000  6c 6f 63 6b 25 21 34 0d  0d ac 23 f4 20 41 63 6b  |lock%!4...#. Ack|
00002010  6e 6f 77 6c 65 64 67 65  20 64 61 74 61 20 6c 6f  |nowledge data lo|
00002020  61 64 20 6d 65 73 73 61  67 65 0d 0d b6 05 20 0d  |ad message.... .|
00002030  0d c0 0d 63 6f 75 6e 74  25 2b 3d 31 0d 0d ca 05  |...count%+=1....|
00002040  e1 0d 0d d4 05 20 0d 0d  de 05 20 0d 0d e8 11 dd  |..... .... .....|
00002050  20 f2 4d 6f 75 73 65 43  6c 69 63 6b 0d 0d f2 17  | .MouseClick....|
00002060  e7 20 62 6c 6f 63 6b 25  21 31 32 3c 3e 2d 32 20  |. block%!12<>-2 |
00002070  8c 20 e1 0d 0d fc 15 e7  20 62 6c 6f 63 6b 25 21  |. ...... block%!|
00002080  38 3c 3e 32 20 8c 20 e1  0d 0e 06 2b f4 20 4f 6e  |8<>2 . ....+. On|
00002090  6c 79 20 69 6e 74 65 72  65 73 74 65 64 20 69 66  |ly interested if|
000020a0  20 6d 65 6e 75 20 63 6c  69 63 6b 20 6f 6e 20 69  | menu click on i|
000020b0  63 6f 6e 0d 0e 10 05 20  0d 0e 1a 16 24 6d 65 6e  |con.... ....$men|
000020c0  75 25 3d 22 41 72 63 46  53 49 6e 66 6f 22 0d 0e  |u%="ArcFSInfo"..|
000020d0  24 19 6d 65 6e 75 25 3f  31 32 3d 37 3a 6d 65 6e  |$.menu%?12=7:men|
000020e0  75 25 3f 31 33 3d 32 0d  0e 2e 19 6d 65 6e 75 25  |u%?13=2....menu%|
000020f0  3f 31 34 3d 37 3a 6d 65  6e 75 25 3f 31 35 3d 30  |?14=7:menu%?15=0|
00002100  0d 0e 38 10 6d 65 6e 75  25 21 31 36 3d 31 32 38  |..8.menu%!16=128|
00002110  0d 0e 42 0f 6d 65 6e 75  25 21 32 30 3d 34 34 0d  |..B.menu%!20=44.|
00002120  0e 4c 0e 6d 65 6e 75 25  21 32 34 3d 30 0d 0e 56  |.L.menu%!24=0..V|
00002130  49 6d 65 6e 75 25 21 32  38 3d 30 3a 6d 65 6e 75  |Imenu%!28=0:menu|
00002140  25 21 33 32 3d 69 6e 66  6f 68 61 6e 64 6c 65 25  |%!32=infohandle%|
00002150  3a 6d 65 6e 75 25 21 33  36 3d 31 2b 28 37 3c 3c  |:menu%!36=1+(7<<|
00002160  32 34 29 3a 24 28 6d 65  6e 75 25 2b 34 30 29 3d  |24):$(menu%+40)=|
00002170  22 49 6e 66 6f 22 0d 0e  60 42 6d 65 6e 75 25 21  |"Info"..`Bmenu%!|
00002180  35 32 3d 26 38 30 3a 6d  65 6e 75 25 21 35 36 3d  |52=&80:menu%!56=|
00002190  2d 31 3a 6d 65 6e 75 25  21 36 30 3d 31 2b 28 37  |-1:menu%!60=1+(7|
000021a0  3c 3c 32 34 29 3a 24 28  6d 65 6e 75 25 2b 36 34  |<<24):$(menu%+64|
000021b0  29 3d 22 51 75 69 74 22  0d 0e 6a 2d c8 99 22 57  |)="Quit"..j-.."W|
000021c0  69 6d 70 5f 43 72 65 61  74 65 4d 65 6e 75 22 2c  |imp_CreateMenu",|
000021d0  2c 6d 65 6e 75 25 2c 21  62 6c 6f 63 6b 25 2d 36  |,menu%,!block%-6|
000021e0  34 2c 31 38 34 0d 0e 74  05 e1 0d 0e 7e 05 20 0d  |4,184..t....~. .|
000021f0  0e 88 05 20 0d 0e 92 11  dd 20 f2 4d 65 6e 75 53  |... ..... .MenuS|
00002200  65 6c 65 63 74 0d 0e 9c  19 e7 20 21 62 6c 6f 63  |elect..... !bloc|
00002210  6b 25 3d 31 20 8c 20 71  75 69 74 25 3d b9 0d 0e  |k%=1 . quit%=...|
00002220  a6 05 e1 0d ff                                    |.....|
00002225