� >ArcFSFiler
 � ArcFSFiler version 0.11
' � Written by M.Smith 22nd Feb 1991
(0 � This Application is in the PUBLIC DOMAIN.
2l � It may be freely copied providing it remains as a complete application and is not altered in any way.
< FSnumber=56
F arcname$=""
P *CloseArchive
Z *arcfs:NoEncryption
dZ � task 5,block 256,command 256,menu 124,encrypt 100,garble 52,password 32,passvalid 6
n DES=0:gble=0
x $task="TASK"
�0 ș"Wimp_Initialise",200,!task,"ArcFS Filer"
�� !block=256:block!4=0:block!8=0:block!12=0:block!16=&401:block!20=FSnumber:block!24=0:$(block+28)="arcfs"+�0:ș"Wimp_SendMessage",17,block
�$ � � �error:quit=�:init=�:� �t~@
� �filefind
�
 �init
� quit=�:init=�
� �
�1 ș"Wimp_Poll",%1100000110011,block � reason%
� Ȏ reason% �
� � 17,18
� � block!16=0 � quit=�
� � block!16=3 � �dataload
� � block!16=5 � �dataopen

  � block!16=&400C2 �taskinit

 � 6

 �click

" � 9

, �menuselect

6 �

@ � quit

J ș"Wimp_CloseDown":�

T ��dataopen

^ � block!40<>&DDC �

h
 �openarc

r �

| ��openarc

� $command="OpenArchive "

�d com1=command+12:leaf%=com1:com2=block+44:� ?com1=?com2:� ?com1=�"." � ?com1=�":" � leaf%=com1+1

�' com1+=1:com2+=1:� ?com2=0:?com1=13

�= block!12=block!8:ș"XWimp_SendMessage",17,block,block!20

�: ș"Hourglass_On":ș"OS_CLI",command:ș"Hourglass_Off"

�p !block=256:block!4=0:block!8=0:block!12=0:block!16=&401:block!20=FSnumber:block!24=0:$(block+28)="arcfs"+�0

�" ș"Wimp_SendMessage",17,block

�J block!4=0:block!8=0:block!16=&400:$(block+28)="arcfs#"+$leaf%+":$"+�0

�" ș"Wimp_SendMessage",17,block

� arcname$=$leaf%

� ��taskinit

� pointer=block+28

�7 pos=1:� � ?pointer<>��"ArcFS Filer",pos,1) � � �:�
 pos+=1:pointer+=1:� pos=12
 � ?pointer<>0 � �
 � init=� � init=�:�
&
 quit=�:�
0 ��filefind
:� get name of file to load
Dș "OS_GetEnv" � EnvStr$
N� �EnvStr$," -quit ") �
X  I%=�EnvStr$,"""")
b  I%=�EnvStr$,"""",I%+1)
l!  �I%+=1:��EnvStr$,I%,1)<>" "
v � �EnvStr$,I%)<>"" �
�D ș"Hourglass_On":�"OpenArchive "+�EnvStr$,I%):ș"Hourglass_Off"
�E I%=�EnvStr$,":"):I%-=(I%=0):� J%=I%:I%=�EnvStr$,".",I%)+1:� I%=1
�� !block=256:block!4=0:block!8=0:block!12=0:block!16=&400:block!20=FSnumber:block!24=0:arcname$=�EnvStr$,�(EnvStr$)-J%+1):$(block+28)="arcfs#"+arcname$+":$"+�0
�" ș"Wimp_SendMessage",17,block
� �:�
� �
� ��error
�I !block=�:$(block+4)=�$+�0:ș"Wimp_ReportError",block,1,"ArcFS Filer"
� �
� ݤquit(Q$)
�n !block=0:$(block+4)="Are you sure you want to "+Q$+"?"+�0:ș"Wimp_ReportError",block,19,"ArcFS" � ,select
� =(select=1)
� ��init
 !block=-2
0 block!4=0:block!8=0:block!12=68:block!16=68
( block!20=&3002:$(block+24)="!arcfs"
  ș"Wimp_CreateIcon",,block
* �
4 ��click
>A � (block!8 � 5)<>0 �opendirectory � � (block!8 � 2)<>0 �menu
H �
R ��opendirectory
\ � arcname$="" �
f !block=256:block!4=0:block!8=0:block!12=0:block!16=&400:block!20=FSnumber:block!24=0:$(block+28)="arcfs#"+arcname$+":$"+�0
p" ș"Wimp_SendMessage",17,block
z �
� ��menu
�� $menu="ArcFS":menu?12=7:menu?13=2:menu?14=7:menu?15=0:menu!16=176:menu!20=44:menu!24=0:menu!28=0:menu!32=encrypt:menu!36=1+(7<<24):$(menu+40)="Encryption":menu!52=0:menu!56=-1:menu!60=1+(7<<24):$(menu+64)="Close arc":menu!76=0
�r menu!80=-1:menu!84=1+(7<<24):$(menu+88)="Kill":menu!100=&80:menu!104=-1:menu!108=1+(7<<24):$(menu+112)="Quit"
�� $encrypt="Encryption":encrypt?12=7:encrypt?13=2:encrypt?14=7:encrypt?15=0:encrypt!16=160:encrypt!20=44:encrypt!24=0:encrypt!28=((gble=1) � (DES=1))+1:encrypt!32=-1:encrypt!36=1+(7<<24):$(encrypt+40)="None":encrypt!52=gble
�� encrypt!56=garble:encrypt!60=1+(7<<24):$(encrypt+64)="Garble":encrypt!76=&80+DES:encrypt!80=garble:encrypt!84=1+(7<<24)+(1<<22):$(encrypt+88)="DES"
�� $garble="PassWord":garble?12=7:garble?13=2:garble?14=7:garble?15=0:garble!16=152:garble!20=44:garble!24=0:garble!28=&84:garble!32=-1:garble!36=1+(1<<8)+(7<<24):garble!40=password:garble!44=passvalid:garble!48=32
�! $passvalid="D*":$password=""
�, ș"Wimp_CreateMenu",,menu,!block-72,272
� �
� ��menuselect
� Ȏ !block �
� � 0
�5 � block!4=0 � DES=0:gble=0:�"arcfs:NoEncryption"
 � block!4=1 � block!8=0 �
Q P$=�string(password):� P$<>"" � DES=0:gble=1:�"arcfs:Garble "+P$ � �nullpass
, � A%=password � password+28 � 4:!A%=0:�
$ �
. � block!4=2 � block!8=0 �
8N P$=�string(password):� P$<>"" � DES=1:gble=0:�"arcfs:DES "+P$ � �nullpass
B, � A%=password � password+28 � 4:!A%=0:�
L �
V � 1
`p !block=256:block!4=0:block!8=0:block!12=0:block!16=&401:block!20=FSnumber:block!24=0:$(block+28)="arcfs"+�0
j" ș"Wimp_SendMessage",17,block
t *CloseArchive
~ arcname$=""
� � 2
� � �quit("Kill ArcFS") �
�p !block=256:block!4=0:block!8=0:block!12=0:block!16=&401:block!20=FSnumber:block!24=0:$(block+28)="arcfs"+�0
�" ș"Wimp_SendMessage",17,block
� *CloseArchive
� *RMKill ArcFS
� quit=�
� �
� � 3
�" � �quit("Quit ArcFS Filer") �
� quit=�
� �
 �

 �
 ��dataload

 �openarc
( �
2 ݤstring(address)
< � ?address<32 � =""
F	 � A$
P- � A$+=�?address:address+=1:� ?address<32
Z =A$
d ��nullpass
no !block=0:$(block+4)="You can't have a zero length password!"+�0:ș"Wimp_ReportError",block,1,"ArcFS Filer"
x �
�

00000000  0d 00 0a 12 20 f4 20 3e  41 72 63 46 53 46 69 6c  |.... . >ArcFSFil|
00000010  65 72 0d 00 14 1e 20 f4  20 41 72 63 46 53 46 69  |er.... . ArcFSFi|
00000020  6c 65 72 20 76 65 72 73  69 6f 6e 20 30 2e 31 31  |ler version 0.11|
00000030  0d 00 1e 27 20 f4 20 57  72 69 74 74 65 6e 20 62  |...' . Written b|
00000040  79 20 4d 2e 53 6d 69 74  68 20 32 32 6e 64 20 46  |y M.Smith 22nd F|
00000050  65 62 20 31 39 39 31 0d  00 28 30 20 f4 20 54 68  |eb 1991..(0 . Th|
00000060  69 73 20 41 70 70 6c 69  63 61 74 69 6f 6e 20 69  |is Application i|
00000070  73 20 69 6e 20 74 68 65  20 50 55 42 4c 49 43 20  |s in the PUBLIC |
00000080  44 4f 4d 41 49 4e 2e 0d  00 32 6c 20 f4 20 49 74  |DOMAIN...2l . It|
00000090  20 6d 61 79 20 62 65 20  66 72 65 65 6c 79 20 63  | may be freely c|
000000a0  6f 70 69 65 64 20 70 72  6f 76 69 64 69 6e 67 20  |opied providing |
000000b0  69 74 20 72 65 6d 61 69  6e 73 20 61 73 20 61 20  |it remains as a |
000000c0  63 6f 6d 70 6c 65 74 65  20 61 70 70 6c 69 63 61  |complete applica|
000000d0  74 69 6f 6e 20 61 6e 64  20 69 73 20 6e 6f 74 20  |tion and is not |
000000e0  61 6c 74 65 72 65 64 20  69 6e 20 61 6e 79 20 77  |altered in any w|
000000f0  61 79 2e 0d 00 3c 10 20  46 53 6e 75 6d 62 65 72  |ay...<. FSnumber|
00000100  3d 35 36 0d 00 46 10 20  61 72 63 6e 61 6d 65 24  |=56..F. arcname$|
00000110  3d 22 22 0d 00 50 12 20  2a 43 6c 6f 73 65 41 72  |=""..P. *CloseAr|
00000120  63 68 69 76 65 0d 00 5a  18 20 2a 61 72 63 66 73  |chive..Z. *arcfs|
00000130  3a 4e 6f 45 6e 63 72 79  70 74 69 6f 6e 0d 00 64  |:NoEncryption..d|
00000140  5a 20 de 20 74 61 73 6b  20 35 2c 62 6c 6f 63 6b  |Z . task 5,block|
00000150  20 32 35 36 2c 63 6f 6d  6d 61 6e 64 20 32 35 36  | 256,command 256|
00000160  2c 6d 65 6e 75 20 31 32  34 2c 65 6e 63 72 79 70  |,menu 124,encryp|
00000170  74 20 31 30 30 2c 67 61  72 62 6c 65 20 35 32 2c  |t 100,garble 52,|
00000180  70 61 73 73 77 6f 72 64  20 33 32 2c 70 61 73 73  |password 32,pass|
00000190  76 61 6c 69 64 20 36 0d  00 6e 11 20 44 45 53 3d  |valid 6..n. DES=|
000001a0  30 3a 67 62 6c 65 3d 30  0d 00 78 11 20 24 74 61  |0:gble=0..x. $ta|
000001b0  73 6b 3d 22 54 41 53 4b  22 0d 00 82 30 20 c8 99  |sk="TASK"...0 ..|
000001c0  22 57 69 6d 70 5f 49 6e  69 74 69 61 6c 69 73 65  |"Wimp_Initialise|
000001d0  22 2c 32 30 30 2c 21 74  61 73 6b 2c 22 41 72 63  |",200,!task,"Arc|
000001e0  46 53 20 46 69 6c 65 72  22 0d 00 8c 8e 20 21 62  |FS Filer".... !b|
000001f0  6c 6f 63 6b 3d 32 35 36  3a 62 6c 6f 63 6b 21 34  |lock=256:block!4|
00000200  3d 30 3a 62 6c 6f 63 6b  21 38 3d 30 3a 62 6c 6f  |=0:block!8=0:blo|
00000210  63 6b 21 31 32 3d 30 3a  62 6c 6f 63 6b 21 31 36  |ck!12=0:block!16|
00000220  3d 26 34 30 31 3a 62 6c  6f 63 6b 21 32 30 3d 46  |=&401:block!20=F|
00000230  53 6e 75 6d 62 65 72 3a  62 6c 6f 63 6b 21 32 34  |Snumber:block!24|
00000240  3d 30 3a 24 28 62 6c 6f  63 6b 2b 32 38 29 3d 22  |=0:$(block+28)="|
00000250  61 72 63 66 73 22 2b bd  30 3a c8 99 22 57 69 6d  |arcfs"+.0:.."Wim|
00000260  70 5f 53 65 6e 64 4d 65  73 73 61 67 65 22 2c 31  |p_SendMessage",1|
00000270  37 2c 62 6c 6f 63 6b 0d  00 96 24 20 ee 20 85 20  |7,block...$ . . |
00000280  f2 65 72 72 6f 72 3a 71  75 69 74 3d a3 3a 69 6e  |.error:quit=.:in|
00000290  69 74 3d a3 3a e5 20 8d  74 7e 40 0d 00 a0 0e 20  |it=.:. .t~@.... |
000002a0  f2 66 69 6c 65 66 69 6e  64 0d 00 aa 0a 20 f2 69  |.filefind.... .i|
000002b0  6e 69 74 0d 00 b4 12 20  71 75 69 74 3d a3 3a 69  |nit.... quit=.:i|
000002c0  6e 69 74 3d b9 0d 00 be  06 20 f5 0d 00 c8 31 20  |nit=..... ....1 |
000002d0  c8 99 22 57 69 6d 70 5f  50 6f 6c 6c 22 2c 25 31  |.."Wimp_Poll",%1|
000002e0  31 30 30 30 30 30 31 31  30 30 31 31 2c 62 6c 6f  |100000110011,blo|
000002f0  63 6b 20 b8 20 72 65 61  73 6f 6e 25 0d 00 d2 11  |ck . reason%....|
00000300  20 c8 8e 20 72 65 61 73  6f 6e 25 20 ca 0d 00 dc  | .. reason% ....|
00000310  0c 20 c9 20 31 37 2c 31  38 0d 00 e6 1a 20 e7 20  |. . 17,18.... . |
00000320  62 6c 6f 63 6b 21 31 36  3d 30 20 8c 20 71 75 69  |block!16=0 . qui|
00000330  74 3d b9 0d 00 f0 1d 20  e7 20 62 6c 6f 63 6b 21  |t=..... . block!|
00000340  31 36 3d 33 20 8c 20 f2  64 61 74 61 6c 6f 61 64  |16=3 . .dataload|
00000350  0d 00 fa 1d 20 e7 20 62  6c 6f 63 6b 21 31 36 3d  |.... . block!16=|
00000360  35 20 8c 20 f2 64 61 74  61 6f 70 65 6e 0d 01 04  |5 . .dataopen...|
00000370  20 20 e7 20 62 6c 6f 63  6b 21 31 36 3d 26 34 30  |  . block!16=&40|
00000380  30 43 32 20 f2 74 61 73  6b 69 6e 69 74 0d 01 0e  |0C2 .taskinit...|
00000390  08 20 c9 20 36 0d 01 18  0b 20 f2 63 6c 69 63 6b  |. . 6.... .click|
000003a0  0d 01 22 08 20 c9 20 39  0d 01 2c 10 20 f2 6d 65  |..". . 9..,. .me|
000003b0  6e 75 73 65 6c 65 63 74  0d 01 36 06 20 cb 0d 01  |nuselect..6. ...|
000003c0  40 0b 20 fd 20 71 75 69  74 0d 01 4a 19 20 c8 99  |@. . quit..J. ..|
000003d0  22 57 69 6d 70 5f 43 6c  6f 73 65 44 6f 77 6e 22  |"Wimp_CloseDown"|
000003e0  3a e0 0d 01 54 0f 20 dd  f2 64 61 74 61 6f 70 65  |:...T. ..dataope|
000003f0  6e 0d 01 5e 17 20 e7 20  62 6c 6f 63 6b 21 34 30  |n..^. . block!40|
00000400  3c 3e 26 44 44 43 20 e1  0d 01 68 0d 20 f2 6f 70  |<>&DDC ...h. .op|
00000410  65 6e 61 72 63 0d 01 72  06 20 e1 0d 01 7c 0e 20  |enarc..r. ...|. |
00000420  dd f2 6f 70 65 6e 61 72  63 0d 01 86 1c 20 24 63  |..openarc.... $c|
00000430  6f 6d 6d 61 6e 64 3d 22  4f 70 65 6e 41 72 63 68  |ommand="OpenArch|
00000440  69 76 65 20 22 0d 01 90  64 20 63 6f 6d 31 3d 63  |ive "...d com1=c|
00000450  6f 6d 6d 61 6e 64 2b 31  32 3a 6c 65 61 66 25 3d  |ommand+12:leaf%=|
00000460  63 6f 6d 31 3a 63 6f 6d  32 3d 62 6c 6f 63 6b 2b  |com1:com2=block+|
00000470  34 34 3a f5 20 3f 63 6f  6d 31 3d 3f 63 6f 6d 32  |44:. ?com1=?com2|
00000480  3a e7 20 3f 63 6f 6d 31  3d 97 22 2e 22 20 84 20  |:. ?com1=."." . |
00000490  3f 63 6f 6d 31 3d 97 22  3a 22 20 8c 20 6c 65 61  |?com1=.":" . lea|
000004a0  66 25 3d 63 6f 6d 31 2b  31 0d 01 9a 27 20 63 6f  |f%=com1+1...' co|
000004b0  6d 31 2b 3d 31 3a 63 6f  6d 32 2b 3d 31 3a fd 20  |m1+=1:com2+=1:. |
000004c0  3f 63 6f 6d 32 3d 30 3a  3f 63 6f 6d 31 3d 31 33  |?com2=0:?com1=13|
000004d0  0d 01 a4 3d 20 62 6c 6f  63 6b 21 31 32 3d 62 6c  |...= block!12=bl|
000004e0  6f 63 6b 21 38 3a c8 99  22 58 57 69 6d 70 5f 53  |ock!8:.."XWimp_S|
000004f0  65 6e 64 4d 65 73 73 61  67 65 22 2c 31 37 2c 62  |endMessage",17,b|
00000500  6c 6f 63 6b 2c 62 6c 6f  63 6b 21 32 30 0d 01 ae  |lock,block!20...|
00000510  3a 20 c8 99 22 48 6f 75  72 67 6c 61 73 73 5f 4f  |: .."Hourglass_O|
00000520  6e 22 3a c8 99 22 4f 53  5f 43 4c 49 22 2c 63 6f  |n":.."OS_CLI",co|
00000530  6d 6d 61 6e 64 3a c8 99  22 48 6f 75 72 67 6c 61  |mmand:.."Hourgla|
00000540  73 73 5f 4f 66 66 22 0d  01 b8 70 20 21 62 6c 6f  |ss_Off"...p !blo|
00000550  63 6b 3d 32 35 36 3a 62  6c 6f 63 6b 21 34 3d 30  |ck=256:block!4=0|
00000560  3a 62 6c 6f 63 6b 21 38  3d 30 3a 62 6c 6f 63 6b  |:block!8=0:block|
00000570  21 31 32 3d 30 3a 62 6c  6f 63 6b 21 31 36 3d 26  |!12=0:block!16=&|
00000580  34 30 31 3a 62 6c 6f 63  6b 21 32 30 3d 46 53 6e  |401:block!20=FSn|
00000590  75 6d 62 65 72 3a 62 6c  6f 63 6b 21 32 34 3d 30  |umber:block!24=0|
000005a0  3a 24 28 62 6c 6f 63 6b  2b 32 38 29 3d 22 61 72  |:$(block+28)="ar|
000005b0  63 66 73 22 2b bd 30 0d  01 c2 22 20 c8 99 22 57  |cfs"+.0..." .."W|
000005c0  69 6d 70 5f 53 65 6e 64  4d 65 73 73 61 67 65 22  |imp_SendMessage"|
000005d0  2c 31 37 2c 62 6c 6f 63  6b 0d 01 cc 4a 20 62 6c  |,17,block...J bl|
000005e0  6f 63 6b 21 34 3d 30 3a  62 6c 6f 63 6b 21 38 3d  |ock!4=0:block!8=|
000005f0  30 3a 62 6c 6f 63 6b 21  31 36 3d 26 34 30 30 3a  |0:block!16=&400:|
00000600  24 28 62 6c 6f 63 6b 2b  32 38 29 3d 22 61 72 63  |$(block+28)="arc|
00000610  66 73 23 22 2b 24 6c 65  61 66 25 2b 22 3a 24 22  |fs#"+$leaf%+":$"|
00000620  2b bd 30 0d 01 d6 22 20  c8 99 22 57 69 6d 70 5f  |+.0..." .."Wimp_|
00000630  53 65 6e 64 4d 65 73 73  61 67 65 22 2c 31 37 2c  |SendMessage",17,|
00000640  62 6c 6f 63 6b 0d 01 e0  14 20 61 72 63 6e 61 6d  |block.... arcnam|
00000650  65 24 3d 24 6c 65 61 66  25 0d 01 ea 0f 20 dd f2  |e$=$leaf%.... ..|
00000660  74 61 73 6b 69 6e 69 74  0d 01 f4 15 20 70 6f 69  |taskinit.... poi|
00000670  6e 74 65 72 3d 62 6c 6f  63 6b 2b 32 38 0d 01 fe  |nter=block+28...|
00000680  37 20 70 6f 73 3d 31 3a  f5 20 e7 20 3f 70 6f 69  |7 pos=1:. . ?poi|
00000690  6e 74 65 72 3c 3e 97 c1  22 41 72 63 46 53 20 46  |nter<>.."ArcFS F|
000006a0  69 6c 65 72 22 2c 70 6f  73 2c 31 29 20 8c 20 fd  |iler",pos,1) . .|
000006b0  20 b9 3a e1 0d 02 08 1f  20 70 6f 73 2b 3d 31 3a  | .:..... pos+=1:|
000006c0  70 6f 69 6e 74 65 72 2b  3d 31 3a fd 20 70 6f 73  |pointer+=1:. pos|
000006d0  3d 31 32 0d 02 12 16 20  e7 20 3f 70 6f 69 6e 74  |=12.... . ?point|
000006e0  65 72 3c 3e 30 20 8c 20  e1 0d 02 1c 18 20 e7 20  |er<>0 . ..... . |
000006f0  69 6e 69 74 3d b9 20 8c  20 69 6e 69 74 3d a3 3a  |init=. . init=.:|
00000700  e1 0d 02 26 0d 20 71 75  69 74 3d b9 3a e1 0d 02  |...&. quit=.:...|
00000710  30 0f 20 dd f2 66 69 6c  65 66 69 6e 64 0d 02 3a  |0. ..filefind..:|
00000720  1e f4 20 67 65 74 20 6e  61 6d 65 20 6f 66 20 66  |.. get name of f|
00000730  69 6c 65 20 74 6f 20 6c  6f 61 64 0d 02 44 1c c8  |ile to load..D..|
00000740  99 20 22 4f 53 5f 47 65  74 45 6e 76 22 20 b8 20  |. "OS_GetEnv" . |
00000750  45 6e 76 53 74 72 24 0d  02 4e 1b e7 20 a7 45 6e  |EnvStr$..N.. .En|
00000760  76 53 74 72 24 2c 22 20  2d 71 75 69 74 20 22 29  |vStr$," -quit ")|
00000770  20 8c 0d 02 58 17 20 20  49 25 3d a7 45 6e 76 53  | ...X.  I%=.EnvS|
00000780  74 72 24 2c 22 22 22 22  29 0d 02 62 1c 20 20 49  |tr$,"""")..b.  I|
00000790  25 3d a7 45 6e 76 53 74  72 24 2c 22 22 22 22 2c  |%=.EnvStr$,"""",|
000007a0  49 25 2b 31 29 0d 02 6c  21 20 20 f5 49 25 2b 3d  |I%+1)..l!  .I%+=|
000007b0  31 3a fd c1 45 6e 76 53  74 72 24 2c 49 25 2c 31  |1:..EnvStr$,I%,1|
000007c0  29 3c 3e 22 20 22 0d 02  76 19 20 e7 20 c1 45 6e  |)<>" "..v. . .En|
000007d0  76 53 74 72 24 2c 49 25  29 3c 3e 22 22 20 8c 0d  |vStr$,I%)<>"" ..|
000007e0  02 80 44 20 c8 99 22 48  6f 75 72 67 6c 61 73 73  |..D .."Hourglass|
000007f0  5f 4f 6e 22 3a ff 22 4f  70 65 6e 41 72 63 68 69  |_On":."OpenArchi|
00000800  76 65 20 22 2b c1 45 6e  76 53 74 72 24 2c 49 25  |ve "+.EnvStr$,I%|
00000810  29 3a c8 99 22 48 6f 75  72 67 6c 61 73 73 5f 4f  |):.."Hourglass_O|
00000820  66 66 22 0d 02 8a 45 20  49 25 3d a7 45 6e 76 53  |ff"...E I%=.EnvS|
00000830  74 72 24 2c 22 3a 22 29  3a 49 25 2d 3d 28 49 25  |tr$,":"):I%-=(I%|
00000840  3d 30 29 3a f5 20 4a 25  3d 49 25 3a 49 25 3d a7  |=0):. J%=I%:I%=.|
00000850  45 6e 76 53 74 72 24 2c  22 2e 22 2c 49 25 29 2b  |EnvStr$,".",I%)+|
00000860  31 3a fd 20 49 25 3d 31  0d 02 94 a2 20 21 62 6c  |1:. I%=1.... !bl|
00000870  6f 63 6b 3d 32 35 36 3a  62 6c 6f 63 6b 21 34 3d  |ock=256:block!4=|
00000880  30 3a 62 6c 6f 63 6b 21  38 3d 30 3a 62 6c 6f 63  |0:block!8=0:bloc|
00000890  6b 21 31 32 3d 30 3a 62  6c 6f 63 6b 21 31 36 3d  |k!12=0:block!16=|
000008a0  26 34 30 30 3a 62 6c 6f  63 6b 21 32 30 3d 46 53  |&400:block!20=FS|
000008b0  6e 75 6d 62 65 72 3a 62  6c 6f 63 6b 21 32 34 3d  |number:block!24=|
000008c0  30 3a 61 72 63 6e 61 6d  65 24 3d c2 45 6e 76 53  |0:arcname$=.EnvS|
000008d0  74 72 24 2c a9 28 45 6e  76 53 74 72 24 29 2d 4a  |tr$,.(EnvStr$)-J|
000008e0  25 2b 31 29 3a 24 28 62  6c 6f 63 6b 2b 32 38 29  |%+1):$(block+28)|
000008f0  3d 22 61 72 63 66 73 23  22 2b 61 72 63 6e 61 6d  |="arcfs#"+arcnam|
00000900  65 24 2b 22 3a 24 22 2b  bd 30 0d 02 9e 22 20 c8  |e$+":$"+.0..." .|
00000910  99 22 57 69 6d 70 5f 53  65 6e 64 4d 65 73 73 61  |."Wimp_SendMessa|
00000920  67 65 22 2c 31 37 2c 62  6c 6f 63 6b 0d 02 a8 08  |ge",17,block....|
00000930  20 cd 3a cd 0d 02 b2 06  20 e1 0d 02 bc 0c 20 dd  | .:..... ..... .|
00000940  f2 65 72 72 6f 72 0d 02  c6 49 20 21 62 6c 6f 63  |.error...I !bloc|
00000950  6b 3d 9f 3a 24 28 62 6c  6f 63 6b 2b 34 29 3d f6  |k=.:$(block+4)=.|
00000960  24 2b bd 30 3a c8 99 22  57 69 6d 70 5f 52 65 70  |$+.0:.."Wimp_Rep|
00000970  6f 72 74 45 72 72 6f 72  22 2c 62 6c 6f 63 6b 2c  |ortError",block,|
00000980  31 2c 22 41 72 63 46 53  20 46 69 6c 65 72 22 0d  |1,"ArcFS Filer".|
00000990  02 d0 06 20 e1 0d 02 da  0f 20 dd a4 71 75 69 74  |... ..... ..quit|
000009a0  28 51 24 29 0d 02 e4 6e  20 21 62 6c 6f 63 6b 3d  |(Q$)...n !block=|
000009b0  30 3a 24 28 62 6c 6f 63  6b 2b 34 29 3d 22 41 72  |0:$(block+4)="Ar|
000009c0  65 20 79 6f 75 20 73 75  72 65 20 79 6f 75 20 77  |e you sure you w|
000009d0  61 6e 74 20 74 6f 20 22  2b 51 24 2b 22 3f 22 2b  |ant to "+Q$+"?"+|
000009e0  bd 30 3a c8 99 22 57 69  6d 70 5f 52 65 70 6f 72  |.0:.."Wimp_Repor|
000009f0  74 45 72 72 6f 72 22 2c  62 6c 6f 63 6b 2c 31 39  |tError",block,19|
00000a00  2c 22 41 72 63 46 53 22  20 b8 20 2c 73 65 6c 65  |,"ArcFS" . ,sele|
00000a10  63 74 0d 02 ee 10 20 3d  28 73 65 6c 65 63 74 3d  |ct.... =(select=|
00000a20  31 29 0d 02 f8 0b 20 dd  f2 69 6e 69 74 0d 03 02  |1).... ..init...|
00000a30  0e 20 21 62 6c 6f 63 6b  3d 2d 32 0d 03 0c 30 20  |. !block=-2...0 |
00000a40  62 6c 6f 63 6b 21 34 3d  30 3a 62 6c 6f 63 6b 21  |block!4=0:block!|
00000a50  38 3d 30 3a 62 6c 6f 63  6b 21 31 32 3d 36 38 3a  |8=0:block!12=68:|
00000a60  62 6c 6f 63 6b 21 31 36  3d 36 38 0d 03 16 28 20  |block!16=68...( |
00000a70  62 6c 6f 63 6b 21 32 30  3d 26 33 30 30 32 3a 24  |block!20=&3002:$|
00000a80  28 62 6c 6f 63 6b 2b 32  34 29 3d 22 21 61 72 63  |(block+24)="!arc|
00000a90  66 73 22 0d 03 20 1f 20  c8 99 22 57 69 6d 70 5f  |fs".. . .."Wimp_|
00000aa0  43 72 65 61 74 65 49 63  6f 6e 22 2c 2c 62 6c 6f  |CreateIcon",,blo|
00000ab0  63 6b 0d 03 2a 06 20 e1  0d 03 34 0c 20 dd f2 63  |ck..*. ...4. ..c|
00000ac0  6c 69 63 6b 0d 03 3e 41  20 e7 20 28 62 6c 6f 63  |lick..>A . (bloc|
00000ad0  6b 21 38 20 80 20 35 29  3c 3e 30 20 f2 6f 70 65  |k!8 . 5)<>0 .ope|
00000ae0  6e 64 69 72 65 63 74 6f  72 79 20 8b 20 e7 20 28  |ndirectory . . (|
00000af0  62 6c 6f 63 6b 21 38 20  80 20 32 29 3c 3e 30 20  |block!8 . 2)<>0 |
00000b00  f2 6d 65 6e 75 0d 03 48  06 20 e1 0d 03 52 14 20  |.menu..H. ...R. |
00000b10  dd f2 6f 70 65 6e 64 69  72 65 63 74 6f 72 79 0d  |..opendirectory.|
00000b20  03 5c 14 20 e7 20 61 72  63 6e 61 6d 65 24 3d 22  |.\. . arcname$="|
00000b30  22 20 e1 0d 03 66 7f 20  21 62 6c 6f 63 6b 3d 32  |" ...f. !block=2|
00000b40  35 36 3a 62 6c 6f 63 6b  21 34 3d 30 3a 62 6c 6f  |56:block!4=0:blo|
00000b50  63 6b 21 38 3d 30 3a 62  6c 6f 63 6b 21 31 32 3d  |ck!8=0:block!12=|
00000b60  30 3a 62 6c 6f 63 6b 21  31 36 3d 26 34 30 30 3a  |0:block!16=&400:|
00000b70  62 6c 6f 63 6b 21 32 30  3d 46 53 6e 75 6d 62 65  |block!20=FSnumbe|
00000b80  72 3a 62 6c 6f 63 6b 21  32 34 3d 30 3a 24 28 62  |r:block!24=0:$(b|
00000b90  6c 6f 63 6b 2b 32 38 29  3d 22 61 72 63 66 73 23  |lock+28)="arcfs#|
00000ba0  22 2b 61 72 63 6e 61 6d  65 24 2b 22 3a 24 22 2b  |"+arcname$+":$"+|
00000bb0  bd 30 0d 03 70 22 20 c8  99 22 57 69 6d 70 5f 53  |.0..p" .."Wimp_S|
00000bc0  65 6e 64 4d 65 73 73 61  67 65 22 2c 31 37 2c 62  |endMessage",17,b|
00000bd0  6c 6f 63 6b 0d 03 7a 06  20 e1 0d 03 84 0b 20 dd  |lock..z. ..... .|
00000be0  f2 6d 65 6e 75 0d 03 8e  e7 20 24 6d 65 6e 75 3d  |.menu.... $menu=|
00000bf0  22 41 72 63 46 53 22 3a  6d 65 6e 75 3f 31 32 3d  |"ArcFS":menu?12=|
00000c00  37 3a 6d 65 6e 75 3f 31  33 3d 32 3a 6d 65 6e 75  |7:menu?13=2:menu|
00000c10  3f 31 34 3d 37 3a 6d 65  6e 75 3f 31 35 3d 30 3a  |?14=7:menu?15=0:|
00000c20  6d 65 6e 75 21 31 36 3d  31 37 36 3a 6d 65 6e 75  |menu!16=176:menu|
00000c30  21 32 30 3d 34 34 3a 6d  65 6e 75 21 32 34 3d 30  |!20=44:menu!24=0|
00000c40  3a 6d 65 6e 75 21 32 38  3d 30 3a 6d 65 6e 75 21  |:menu!28=0:menu!|
00000c50  33 32 3d 65 6e 63 72 79  70 74 3a 6d 65 6e 75 21  |32=encrypt:menu!|
00000c60  33 36 3d 31 2b 28 37 3c  3c 32 34 29 3a 24 28 6d  |36=1+(7<<24):$(m|
00000c70  65 6e 75 2b 34 30 29 3d  22 45 6e 63 72 79 70 74  |enu+40)="Encrypt|
00000c80  69 6f 6e 22 3a 6d 65 6e  75 21 35 32 3d 30 3a 6d  |ion":menu!52=0:m|
00000c90  65 6e 75 21 35 36 3d 2d  31 3a 6d 65 6e 75 21 36  |enu!56=-1:menu!6|
00000ca0  30 3d 31 2b 28 37 3c 3c  32 34 29 3a 24 28 6d 65  |0=1+(7<<24):$(me|
00000cb0  6e 75 2b 36 34 29 3d 22  43 6c 6f 73 65 20 61 72  |nu+64)="Close ar|
00000cc0  63 22 3a 6d 65 6e 75 21  37 36 3d 30 0d 03 98 72  |c":menu!76=0...r|
00000cd0  20 6d 65 6e 75 21 38 30  3d 2d 31 3a 6d 65 6e 75  | menu!80=-1:menu|
00000ce0  21 38 34 3d 31 2b 28 37  3c 3c 32 34 29 3a 24 28  |!84=1+(7<<24):$(|
00000cf0  6d 65 6e 75 2b 38 38 29  3d 22 4b 69 6c 6c 22 3a  |menu+88)="Kill":|
00000d00  6d 65 6e 75 21 31 30 30  3d 26 38 30 3a 6d 65 6e  |menu!100=&80:men|
00000d10  75 21 31 30 34 3d 2d 31  3a 6d 65 6e 75 21 31 30  |u!104=-1:menu!10|
00000d20  38 3d 31 2b 28 37 3c 3c  32 34 29 3a 24 28 6d 65  |8=1+(7<<24):$(me|
00000d30  6e 75 2b 31 31 32 29 3d  22 51 75 69 74 22 0d 03  |nu+112)="Quit"..|
00000d40  a2 e2 20 24 65 6e 63 72  79 70 74 3d 22 45 6e 63  |.. $encrypt="Enc|
00000d50  72 79 70 74 69 6f 6e 22  3a 65 6e 63 72 79 70 74  |ryption":encrypt|
00000d60  3f 31 32 3d 37 3a 65 6e  63 72 79 70 74 3f 31 33  |?12=7:encrypt?13|
00000d70  3d 32 3a 65 6e 63 72 79  70 74 3f 31 34 3d 37 3a  |=2:encrypt?14=7:|
00000d80  65 6e 63 72 79 70 74 3f  31 35 3d 30 3a 65 6e 63  |encrypt?15=0:enc|
00000d90  72 79 70 74 21 31 36 3d  31 36 30 3a 65 6e 63 72  |rypt!16=160:encr|
00000da0  79 70 74 21 32 30 3d 34  34 3a 65 6e 63 72 79 70  |ypt!20=44:encryp|
00000db0  74 21 32 34 3d 30 3a 65  6e 63 72 79 70 74 21 32  |t!24=0:encrypt!2|
00000dc0  38 3d 28 28 67 62 6c 65  3d 31 29 20 84 20 28 44  |8=((gble=1) . (D|
00000dd0  45 53 3d 31 29 29 2b 31  3a 65 6e 63 72 79 70 74  |ES=1))+1:encrypt|
00000de0  21 33 32 3d 2d 31 3a 65  6e 63 72 79 70 74 21 33  |!32=-1:encrypt!3|
00000df0  36 3d 31 2b 28 37 3c 3c  32 34 29 3a 24 28 65 6e  |6=1+(7<<24):$(en|
00000e00  63 72 79 70 74 2b 34 30  29 3d 22 4e 6f 6e 65 22  |crypt+40)="None"|
00000e10  3a 65 6e 63 72 79 70 74  21 35 32 3d 67 62 6c 65  |:encrypt!52=gble|
00000e20  0d 03 ac 98 20 65 6e 63  72 79 70 74 21 35 36 3d  |.... encrypt!56=|
00000e30  67 61 72 62 6c 65 3a 65  6e 63 72 79 70 74 21 36  |garble:encrypt!6|
00000e40  30 3d 31 2b 28 37 3c 3c  32 34 29 3a 24 28 65 6e  |0=1+(7<<24):$(en|
00000e50  63 72 79 70 74 2b 36 34  29 3d 22 47 61 72 62 6c  |crypt+64)="Garbl|
00000e60  65 22 3a 65 6e 63 72 79  70 74 21 37 36 3d 26 38  |e":encrypt!76=&8|
00000e70  30 2b 44 45 53 3a 65 6e  63 72 79 70 74 21 38 30  |0+DES:encrypt!80|
00000e80  3d 67 61 72 62 6c 65 3a  65 6e 63 72 79 70 74 21  |=garble:encrypt!|
00000e90  38 34 3d 31 2b 28 37 3c  3c 32 34 29 2b 28 31 3c  |84=1+(7<<24)+(1<|
00000ea0  3c 32 32 29 3a 24 28 65  6e 63 72 79 70 74 2b 38  |<22):$(encrypt+8|
00000eb0  38 29 3d 22 44 45 53 22  0d 03 b6 d8 20 24 67 61  |8)="DES".... $ga|
00000ec0  72 62 6c 65 3d 22 50 61  73 73 57 6f 72 64 22 3a  |rble="PassWord":|
00000ed0  67 61 72 62 6c 65 3f 31  32 3d 37 3a 67 61 72 62  |garble?12=7:garb|
00000ee0  6c 65 3f 31 33 3d 32 3a  67 61 72 62 6c 65 3f 31  |le?13=2:garble?1|
00000ef0  34 3d 37 3a 67 61 72 62  6c 65 3f 31 35 3d 30 3a  |4=7:garble?15=0:|
00000f00  67 61 72 62 6c 65 21 31  36 3d 31 35 32 3a 67 61  |garble!16=152:ga|
00000f10  72 62 6c 65 21 32 30 3d  34 34 3a 67 61 72 62 6c  |rble!20=44:garbl|
00000f20  65 21 32 34 3d 30 3a 67  61 72 62 6c 65 21 32 38  |e!24=0:garble!28|
00000f30  3d 26 38 34 3a 67 61 72  62 6c 65 21 33 32 3d 2d  |=&84:garble!32=-|
00000f40  31 3a 67 61 72 62 6c 65  21 33 36 3d 31 2b 28 31  |1:garble!36=1+(1|
00000f50  3c 3c 38 29 2b 28 37 3c  3c 32 34 29 3a 67 61 72  |<<8)+(7<<24):gar|
00000f60  62 6c 65 21 34 30 3d 70  61 73 73 77 6f 72 64 3a  |ble!40=password:|
00000f70  67 61 72 62 6c 65 21 34  34 3d 70 61 73 73 76 61  |garble!44=passva|
00000f80  6c 69 64 3a 67 61 72 62  6c 65 21 34 38 3d 33 32  |lid:garble!48=32|
00000f90  0d 03 c0 21 20 24 70 61  73 73 76 61 6c 69 64 3d  |...! $passvalid=|
00000fa0  22 44 2a 22 3a 24 70 61  73 73 77 6f 72 64 3d 22  |"D*":$password="|
00000fb0  22 0d 03 ca 2c 20 c8 99  22 57 69 6d 70 5f 43 72  |"..., .."Wimp_Cr|
00000fc0  65 61 74 65 4d 65 6e 75  22 2c 2c 6d 65 6e 75 2c  |eateMenu",,menu,|
00000fd0  21 62 6c 6f 63 6b 2d 37  32 2c 32 37 32 0d 03 d4  |!block-72,272...|
00000fe0  06 20 e1 0d 03 de 11 20  dd f2 6d 65 6e 75 73 65  |. ..... ..menuse|
00000ff0  6c 65 63 74 0d 03 e8 10  20 c8 8e 20 21 62 6c 6f  |lect.... .. !blo|
00001000  63 6b 20 ca 0d 03 f2 08  20 c9 20 30 0d 03 fc 35  |ck ..... . 0...5|
00001010  20 e7 20 62 6c 6f 63 6b  21 34 3d 30 20 8c 20 44  | . block!4=0 . D|
00001020  45 53 3d 30 3a 67 62 6c  65 3d 30 3a ff 22 61 72  |ES=0:gble=0:."ar|
00001030  63 66 73 3a 4e 6f 45 6e  63 72 79 70 74 69 6f 6e  |cfs:NoEncryption|
00001040  22 0d 04 06 1e 20 e7 20  62 6c 6f 63 6b 21 34 3d  |".... . block!4=|
00001050  31 20 80 20 62 6c 6f 63  6b 21 38 3d 30 20 8c 0d  |1 . block!8=0 ..|
00001060  04 10 51 20 50 24 3d a4  73 74 72 69 6e 67 28 70  |..Q P$=.string(p|
00001070  61 73 73 77 6f 72 64 29  3a e7 20 50 24 3c 3e 22  |assword):. P$<>"|
00001080  22 20 8c 20 44 45 53 3d  30 3a 67 62 6c 65 3d 31  |" . DES=0:gble=1|
00001090  3a ff 22 61 72 63 66 73  3a 47 61 72 62 6c 65 20  |:."arcfs:Garble |
000010a0  22 2b 50 24 20 8b 20 f2  6e 75 6c 6c 70 61 73 73  |"+P$ . .nullpass|
000010b0  0d 04 1a 2c 20 e3 20 41  25 3d 70 61 73 73 77 6f  |..., . A%=passwo|
000010c0  72 64 20 b8 20 70 61 73  73 77 6f 72 64 2b 32 38  |rd . password+28|
000010d0  20 88 20 34 3a 21 41 25  3d 30 3a ed 0d 04 24 06  | . 4:!A%=0:...$.|
000010e0  20 cd 0d 04 2e 1e 20 e7  20 62 6c 6f 63 6b 21 34  | ..... . block!4|
000010f0  3d 32 20 80 20 62 6c 6f  63 6b 21 38 3d 30 20 8c  |=2 . block!8=0 .|
00001100  0d 04 38 4e 20 50 24 3d  a4 73 74 72 69 6e 67 28  |..8N P$=.string(|
00001110  70 61 73 73 77 6f 72 64  29 3a e7 20 50 24 3c 3e  |password):. P$<>|
00001120  22 22 20 8c 20 44 45 53  3d 31 3a 67 62 6c 65 3d  |"" . DES=1:gble=|
00001130  30 3a ff 22 61 72 63 66  73 3a 44 45 53 20 22 2b  |0:."arcfs:DES "+|
00001140  50 24 20 8b 20 f2 6e 75  6c 6c 70 61 73 73 0d 04  |P$ . .nullpass..|
00001150  42 2c 20 e3 20 41 25 3d  70 61 73 73 77 6f 72 64  |B, . A%=password|
00001160  20 b8 20 70 61 73 73 77  6f 72 64 2b 32 38 20 88  | . password+28 .|
00001170  20 34 3a 21 41 25 3d 30  3a ed 0d 04 4c 06 20 cd  | 4:!A%=0:...L. .|
00001180  0d 04 56 08 20 c9 20 31  0d 04 60 70 20 21 62 6c  |..V. . 1..`p !bl|
00001190  6f 63 6b 3d 32 35 36 3a  62 6c 6f 63 6b 21 34 3d  |ock=256:block!4=|
000011a0  30 3a 62 6c 6f 63 6b 21  38 3d 30 3a 62 6c 6f 63  |0:block!8=0:bloc|
000011b0  6b 21 31 32 3d 30 3a 62  6c 6f 63 6b 21 31 36 3d  |k!12=0:block!16=|
000011c0  26 34 30 31 3a 62 6c 6f  63 6b 21 32 30 3d 46 53  |&401:block!20=FS|
000011d0  6e 75 6d 62 65 72 3a 62  6c 6f 63 6b 21 32 34 3d  |number:block!24=|
000011e0  30 3a 24 28 62 6c 6f 63  6b 2b 32 38 29 3d 22 61  |0:$(block+28)="a|
000011f0  72 63 66 73 22 2b bd 30  0d 04 6a 22 20 c8 99 22  |rcfs"+.0..j" .."|
00001200  57 69 6d 70 5f 53 65 6e  64 4d 65 73 73 61 67 65  |Wimp_SendMessage|
00001210  22 2c 31 37 2c 62 6c 6f  63 6b 0d 04 74 12 20 2a  |",17,block..t. *|
00001220  43 6c 6f 73 65 41 72 63  68 69 76 65 0d 04 7e 10  |CloseArchive..~.|
00001230  20 61 72 63 6e 61 6d 65  24 3d 22 22 0d 04 88 08  | arcname$=""....|
00001240  20 c9 20 32 0d 04 92 1c  20 e7 20 a4 71 75 69 74  | . 2.... . .quit|
00001250  28 22 4b 69 6c 6c 20 41  72 63 46 53 22 29 20 8c  |("Kill ArcFS") .|
00001260  0d 04 9c 70 20 21 62 6c  6f 63 6b 3d 32 35 36 3a  |...p !block=256:|
00001270  62 6c 6f 63 6b 21 34 3d  30 3a 62 6c 6f 63 6b 21  |block!4=0:block!|
00001280  38 3d 30 3a 62 6c 6f 63  6b 21 31 32 3d 30 3a 62  |8=0:block!12=0:b|
00001290  6c 6f 63 6b 21 31 36 3d  26 34 30 31 3a 62 6c 6f  |lock!16=&401:blo|
000012a0  63 6b 21 32 30 3d 46 53  6e 75 6d 62 65 72 3a 62  |ck!20=FSnumber:b|
000012b0  6c 6f 63 6b 21 32 34 3d  30 3a 24 28 62 6c 6f 63  |lock!24=0:$(bloc|
000012c0  6b 2b 32 38 29 3d 22 61  72 63 66 73 22 2b bd 30  |k+28)="arcfs"+.0|
000012d0  0d 04 a6 22 20 c8 99 22  57 69 6d 70 5f 53 65 6e  |..." .."Wimp_Sen|
000012e0  64 4d 65 73 73 61 67 65  22 2c 31 37 2c 62 6c 6f  |dMessage",17,blo|
000012f0  63 6b 0d 04 b0 12 20 2a  43 6c 6f 73 65 41 72 63  |ck.... *CloseArc|
00001300  68 69 76 65 0d 04 ba 12  20 2a 52 4d 4b 69 6c 6c  |hive.... *RMKill|
00001310  20 41 72 63 46 53 0d 04  c4 0b 20 71 75 69 74 3d  | ArcFS.... quit=|
00001320  b9 0d 04 ce 06 20 cd 0d  04 d8 08 20 c9 20 33 0d  |..... ..... . 3.|
00001330  04 e2 22 20 e7 20 a4 71  75 69 74 28 22 51 75 69  |.." . .quit("Qui|
00001340  74 20 41 72 63 46 53 20  46 69 6c 65 72 22 29 20  |t ArcFS Filer") |
00001350  8c 0d 04 ec 0b 20 71 75  69 74 3d b9 0d 04 f6 06  |..... quit=.....|
00001360  20 cd 0d 05 00 06 20 cb  0d 05 0a 06 20 e1 0d 05  | ..... ..... ...|
00001370  14 0f 20 dd f2 64 61 74  61 6c 6f 61 64 0d 05 1e  |.. ..dataload...|
00001380  0d 20 f2 6f 70 65 6e 61  72 63 0d 05 28 06 20 e1  |. .openarc..(. .|
00001390  0d 05 32 16 20 dd a4 73  74 72 69 6e 67 28 61 64  |..2. ..string(ad|
000013a0  64 72 65 73 73 29 0d 05  3c 18 20 e7 20 3f 61 64  |dress)..<. . ?ad|
000013b0  64 72 65 73 73 3c 33 32  20 8c 20 3d 22 22 0d 05  |dress<32 . =""..|
000013c0  46 09 20 ea 20 41 24 0d  05 50 2d 20 f5 20 41 24  |F. . A$..P- . A$|
000013d0  2b 3d bd 3f 61 64 64 72  65 73 73 3a 61 64 64 72  |+=.?address:addr|
000013e0  65 73 73 2b 3d 31 3a fd  20 3f 61 64 64 72 65 73  |ess+=1:. ?addres|
000013f0  73 3c 33 32 0d 05 5a 08  20 3d 41 24 0d 05 64 0f  |s<32..Z. =A$..d.|
00001400  20 dd f2 6e 75 6c 6c 70  61 73 73 0d 05 6e 6f 20  | ..nullpass..no |
00001410  21 62 6c 6f 63 6b 3d 30  3a 24 28 62 6c 6f 63 6b  |!block=0:$(block|
00001420  2b 34 29 3d 22 59 6f 75  20 63 61 6e 27 74 20 68  |+4)="You can't h|
00001430  61 76 65 20 61 20 7a 65  72 6f 20 6c 65 6e 67 74  |ave a zero lengt|
00001440  68 20 70 61 73 73 77 6f  72 64 21 22 2b bd 30 3a  |h password!"+.0:|
00001450  c8 99 22 57 69 6d 70 5f  52 65 70 6f 72 74 45 72  |.."Wimp_ReportEr|
00001460  72 6f 72 22 2c 62 6c 6f  63 6b 2c 31 2c 22 41 72  |ror",block,1,"Ar|
00001470  63 46 53 20 46 69 6c 65  72 22 0d 05 78 06 20 e1  |cFS Filer"..x. .|
00001480  0d ff                                             |..|
00001482