� >ArcFSFiler
) � ArcFSFiler version 0.04 for A.S.P.
& � Written by M.Smith 9th Jan 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# � task 5,block 256,command 256
P $task="TASK"
Z0 ș"Wimp_Initialise",200,!task,"ArcFS Filer"
\ � � �error:� �Dx@
_ �filefind
d quit=�:init=�
x �
�1 ș"Wimp_Poll",%1100101110011,block � reason%
�  � reason%=17 � reason%=18 �
� � block!16=0 � quit=�
� � block!16=5 � �dataopen
�  � block!16=&400C2 �taskinit
� �
� � quit
� ș"Wimp_CloseDown":�
� ��dataopen
� � block!40<>&DDC �
� $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:ș"Wimp_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

6 �

@ ��taskinit

J pointer=block+28

T7 pos=1:� � ?pointer<>��"ArcFS Filer",pos,1) � � �:�

^ pos+=1:pointer+=1:� pos=12

h � ?pointer<>0 � �

r � init=� � init=�:�

|
 quit=�:�

� ��filefind

�� get name of file to load

�ș "OS_GetEnv" � EnvStr$

�� �EnvStr$," -quit ") �

�  I%=�EnvStr$,"""")

�  I%=�EnvStr$,"""",I%+1)

�!  �I%+=1:��EnvStr$,I%,1)<>" "

� � �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:$(block+28)="arcfs#"+�EnvStr$,�(EnvStr$)-J%+1)+":$"+�0

�" ș"Wimp_SendMessage",17,block

� �:�

� �
 ��error
I !block=�:$(block+4)=�$+�0:ș"Wimp_ReportError",block,1,"ArcFS Filer"
 �
�

00000000  0d 00 0a 12 20 f4 20 3e  41 72 63 46 53 46 69 6c  |.... . >ArcFSFil|
00000010  65 72 0d 00 14 29 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 30 34  |ler version 0.04|
00000030  20 66 6f 72 20 41 2e 53  2e 50 2e 0d 00 1e 26 20  | for A.S.P....& |
00000040  f4 20 57 72 69 74 74 65  6e 20 62 79 20 4d 2e 53  |. Written by M.S|
00000050  6d 69 74 68 20 39 74 68  20 4a 61 6e 20 31 39 39  |mith 9th Jan 199|
00000060  31 0d 00 28 30 20 f4 20  54 68 69 73 20 41 70 70  |1..(0 . This App|
00000070  6c 69 63 61 74 69 6f 6e  20 69 73 20 69 6e 20 74  |lication is in t|
00000080  68 65 20 50 55 42 4c 49  43 20 44 4f 4d 41 49 4e  |he PUBLIC DOMAIN|
00000090  2e 0d 00 32 6c 20 f4 20  49 74 20 6d 61 79 20 62  |...2l . It may b|
000000a0  65 20 66 72 65 65 6c 79  20 63 6f 70 69 65 64 20  |e freely copied |
000000b0  70 72 6f 76 69 64 69 6e  67 20 69 74 20 72 65 6d  |providing it rem|
000000c0  61 69 6e 73 20 61 73 20  61 20 63 6f 6d 70 6c 65  |ains as a comple|
000000d0  74 65 20 61 70 70 6c 69  63 61 74 69 6f 6e 20 61  |te application a|
000000e0  6e 64 20 69 73 20 6e 6f  74 20 61 6c 74 65 72 65  |nd is not altere|
000000f0  64 20 69 6e 20 61 6e 79  20 77 61 79 2e 0d 00 3c  |d in any way...<|
00000100  10 20 46 53 6e 75 6d 62  65 72 3d 35 36 0d 00 46  |. FSnumber=56..F|
00000110  23 20 de 20 74 61 73 6b  20 35 2c 62 6c 6f 63 6b  |# . task 5,block|
00000120  20 32 35 36 2c 63 6f 6d  6d 61 6e 64 20 32 35 36  | 256,command 256|
00000130  0d 00 50 11 20 24 74 61  73 6b 3d 22 54 41 53 4b  |..P. $task="TASK|
00000140  22 0d 00 5a 30 20 c8 99  22 57 69 6d 70 5f 49 6e  |"..Z0 .."Wimp_In|
00000150  69 74 69 61 6c 69 73 65  22 2c 32 30 30 2c 21 74  |itialise",200,!t|
00000160  61 73 6b 2c 22 41 72 63  46 53 20 46 69 6c 65 72  |ask,"ArcFS Filer|
00000170  22 0d 00 5c 16 20 ee 20  85 20 f2 65 72 72 6f 72  |"..\. . . .error|
00000180  3a e5 20 8d 44 78 40 0d  00 5f 0e 20 f2 66 69 6c  |:. .Dx@.._. .fil|
00000190  65 66 69 6e 64 0d 00 64  12 20 71 75 69 74 3d a3  |efind..d. quit=.|
000001a0  3a 69 6e 69 74 3d b9 0d  00 78 06 20 f5 0d 00 82  |:init=...x. ....|
000001b0  31 20 c8 99 22 57 69 6d  70 5f 50 6f 6c 6c 22 2c  |1 .."Wimp_Poll",|
000001c0  25 31 31 30 30 31 30 31  31 31 30 30 31 31 2c 62  |%1100101110011,b|
000001d0  6c 6f 63 6b 20 b8 20 72  65 61 73 6f 6e 25 0d 00  |lock . reason%..|
000001e0  8c 20 20 e7 20 72 65 61  73 6f 6e 25 3d 31 37 20  |.  . reason%=17 |
000001f0  84 20 72 65 61 73 6f 6e  25 3d 31 38 20 8c 0d 00  |. reason%=18 ...|
00000200  96 1a 20 e7 20 62 6c 6f  63 6b 21 31 36 3d 30 20  |.. . block!16=0 |
00000210  8c 20 71 75 69 74 3d b9  0d 00 a0 1d 20 e7 20 62  |. quit=..... . b|
00000220  6c 6f 63 6b 21 31 36 3d  35 20 8c 20 f2 64 61 74  |lock!16=5 . .dat|
00000230  61 6f 70 65 6e 0d 00 aa  20 20 e7 20 62 6c 6f 63  |aopen...  . bloc|
00000240  6b 21 31 36 3d 26 34 30  30 43 32 20 f2 74 61 73  |k!16=&400C2 .tas|
00000250  6b 69 6e 69 74 0d 00 b4  06 20 cd 0d 00 be 0b 20  |kinit.... ..... |
00000260  fd 20 71 75 69 74 0d 00  c8 19 20 c8 99 22 57 69  |. quit.... .."Wi|
00000270  6d 70 5f 43 6c 6f 73 65  44 6f 77 6e 22 3a e0 0d  |mp_CloseDown":..|
00000280  00 d2 0f 20 dd f2 64 61  74 61 6f 70 65 6e 0d 00  |... ..dataopen..|
00000290  dc 17 20 e7 20 62 6c 6f  63 6b 21 34 30 3c 3e 26  |.. . block!40<>&|
000002a0  44 44 43 20 e1 0d 00 e6  1c 20 24 63 6f 6d 6d 61  |DDC ..... $comma|
000002b0  6e 64 3d 22 4f 70 65 6e  41 72 63 68 69 76 65 20  |nd="OpenArchive |
000002c0  22 0d 00 f0 64 20 63 6f  6d 31 3d 63 6f 6d 6d 61  |"...d com1=comma|
000002d0  6e 64 2b 31 32 3a 6c 65  61 66 25 3d 63 6f 6d 31  |nd+12:leaf%=com1|
000002e0  3a 63 6f 6d 32 3d 62 6c  6f 63 6b 2b 34 34 3a f5  |:com2=block+44:.|
000002f0  20 3f 63 6f 6d 31 3d 3f  63 6f 6d 32 3a e7 20 3f  | ?com1=?com2:. ?|
00000300  63 6f 6d 31 3d 97 22 2e  22 20 84 20 3f 63 6f 6d  |com1=."." . ?com|
00000310  31 3d 97 22 3a 22 20 8c  20 6c 65 61 66 25 3d 63  |1=.":" . leaf%=c|
00000320  6f 6d 31 2b 31 0d 00 f5  27 20 63 6f 6d 31 2b 3d  |om1+1...' com1+=|
00000330  31 3a 63 6f 6d 32 2b 3d  31 3a fd 20 3f 63 6f 6d  |1:com2+=1:. ?com|
00000340  32 3d 30 3a 3f 63 6f 6d  31 3d 31 33 0d 00 fa 3c  |2=0:?com1=13...<|
00000350  20 62 6c 6f 63 6b 21 31  32 3d 62 6c 6f 63 6b 21  | block!12=block!|
00000360  38 3a c8 99 22 57 69 6d  70 5f 53 65 6e 64 4d 65  |8:.."Wimp_SendMe|
00000370  73 73 61 67 65 22 2c 31  37 2c 62 6c 6f 63 6b 2c  |ssage",17,block,|
00000380  62 6c 6f 63 6b 21 32 30  0d 01 04 3a 20 c8 99 22  |block!20...: .."|
00000390  48 6f 75 72 67 6c 61 73  73 5f 4f 6e 22 3a c8 99  |Hourglass_On":..|
000003a0  22 4f 53 5f 43 4c 49 22  2c 63 6f 6d 6d 61 6e 64  |"OS_CLI",command|
000003b0  3a c8 99 22 48 6f 75 72  67 6c 61 73 73 5f 4f 66  |:.."Hourglass_Of|
000003c0  66 22 0d 01 0e 70 20 21  62 6c 6f 63 6b 3d 32 35  |f"...p !block=25|
000003d0  36 3a 62 6c 6f 63 6b 21  34 3d 30 3a 62 6c 6f 63  |6:block!4=0:bloc|
000003e0  6b 21 38 3d 30 3a 62 6c  6f 63 6b 21 31 32 3d 30  |k!8=0:block!12=0|
000003f0  3a 62 6c 6f 63 6b 21 31  36 3d 26 34 30 31 3a 62  |:block!16=&401:b|
00000400  6c 6f 63 6b 21 32 30 3d  46 53 6e 75 6d 62 65 72  |lock!20=FSnumber|
00000410  3a 62 6c 6f 63 6b 21 32  34 3d 30 3a 24 28 62 6c  |:block!24=0:$(bl|
00000420  6f 63 6b 2b 32 38 29 3d  22 61 72 63 66 73 22 2b  |ock+28)="arcfs"+|
00000430  bd 30 0d 01 18 22 20 c8  99 22 57 69 6d 70 5f 53  |.0..." .."Wimp_S|
00000440  65 6e 64 4d 65 73 73 61  67 65 22 2c 31 37 2c 62  |endMessage",17,b|
00000450  6c 6f 63 6b 0d 01 22 4a  20 62 6c 6f 63 6b 21 34  |lock.."J block!4|
00000460  3d 30 3a 62 6c 6f 63 6b  21 38 3d 30 3a 62 6c 6f  |=0:block!8=0:blo|
00000470  63 6b 21 31 36 3d 26 34  30 30 3a 24 28 62 6c 6f  |ck!16=&400:$(blo|
00000480  63 6b 2b 32 38 29 3d 22  61 72 63 66 73 23 22 2b  |ck+28)="arcfs#"+|
00000490  24 6c 65 61 66 25 2b 22  3a 24 22 2b bd 30 0d 01  |$leaf%+":$"+.0..|
000004a0  2c 22 20 c8 99 22 57 69  6d 70 5f 53 65 6e 64 4d  |," .."Wimp_SendM|
000004b0  65 73 73 61 67 65 22 2c  31 37 2c 62 6c 6f 63 6b  |essage",17,block|
000004c0  0d 01 36 06 20 e1 0d 01  40 0f 20 dd f2 74 61 73  |..6. ...@. ..tas|
000004d0  6b 69 6e 69 74 0d 01 4a  15 20 70 6f 69 6e 74 65  |kinit..J. pointe|
000004e0  72 3d 62 6c 6f 63 6b 2b  32 38 0d 01 54 37 20 70  |r=block+28..T7 p|
000004f0  6f 73 3d 31 3a f5 20 e7  20 3f 70 6f 69 6e 74 65  |os=1:. . ?pointe|
00000500  72 3c 3e 97 c1 22 41 72  63 46 53 20 46 69 6c 65  |r<>.."ArcFS File|
00000510  72 22 2c 70 6f 73 2c 31  29 20 8c 20 fd 20 b9 3a  |r",pos,1) . . .:|
00000520  e1 0d 01 5e 1f 20 70 6f  73 2b 3d 31 3a 70 6f 69  |...^. pos+=1:poi|
00000530  6e 74 65 72 2b 3d 31 3a  fd 20 70 6f 73 3d 31 32  |nter+=1:. pos=12|
00000540  0d 01 68 16 20 e7 20 3f  70 6f 69 6e 74 65 72 3c  |..h. . ?pointer<|
00000550  3e 30 20 8c 20 e1 0d 01  72 18 20 e7 20 69 6e 69  |>0 . ...r. . ini|
00000560  74 3d b9 20 8c 20 69 6e  69 74 3d a3 3a e1 0d 01  |t=. . init=.:...|
00000570  7c 0d 20 71 75 69 74 3d  b9 3a e1 0d 01 86 0f 20  ||. quit=.:..... |
00000580  dd f2 66 69 6c 65 66 69  6e 64 0d 01 90 1e f4 20  |..filefind..... |
00000590  67 65 74 20 6e 61 6d 65  20 6f 66 20 66 69 6c 65  |get name of file|
000005a0  20 74 6f 20 6c 6f 61 64  0d 01 9a 1c c8 99 20 22  | to load...... "|
000005b0  4f 53 5f 47 65 74 45 6e  76 22 20 b8 20 45 6e 76  |OS_GetEnv" . Env|
000005c0  53 74 72 24 0d 01 a4 1b  e7 20 a7 45 6e 76 53 74  |Str$..... .EnvSt|
000005d0  72 24 2c 22 20 2d 71 75  69 74 20 22 29 20 8c 0d  |r$," -quit ") ..|
000005e0  01 ae 17 20 20 49 25 3d  a7 45 6e 76 53 74 72 24  |...  I%=.EnvStr$|
000005f0  2c 22 22 22 22 29 0d 01  b8 1c 20 20 49 25 3d a7  |,"""")....  I%=.|
00000600  45 6e 76 53 74 72 24 2c  22 22 22 22 2c 49 25 2b  |EnvStr$,"""",I%+|
00000610  31 29 0d 01 c2 21 20 20  f5 49 25 2b 3d 31 3a fd  |1)...!  .I%+=1:.|
00000620  c1 45 6e 76 53 74 72 24  2c 49 25 2c 31 29 3c 3e  |.EnvStr$,I%,1)<>|
00000630  22 20 22 0d 01 cc 19 20  e7 20 c1 45 6e 76 53 74  |" ".... . .EnvSt|
00000640  72 24 2c 49 25 29 3c 3e  22 22 20 8c 0d 01 d6 44  |r$,I%)<>"" ....D|
00000650  20 c8 99 22 48 6f 75 72  67 6c 61 73 73 5f 4f 6e  | .."Hourglass_On|
00000660  22 3a ff 22 4f 70 65 6e  41 72 63 68 69 76 65 20  |":."OpenArchive |
00000670  22 2b c1 45 6e 76 53 74  72 24 2c 49 25 29 3a c8  |"+.EnvStr$,I%):.|
00000680  99 22 48 6f 75 72 67 6c  61 73 73 5f 4f 66 66 22  |."Hourglass_Off"|
00000690  0d 01 d8 45 20 49 25 3d  a7 45 6e 76 53 74 72 24  |...E I%=.EnvStr$|
000006a0  2c 22 3a 22 29 3a 49 25  2d 3d 28 49 25 3d 30 29  |,":"):I%-=(I%=0)|
000006b0  3a f5 20 4a 25 3d 49 25  3a 49 25 3d a7 45 6e 76  |:. J%=I%:I%=.Env|
000006c0  53 74 72 24 2c 22 2e 22  2c 49 25 29 2b 31 3a fd  |Str$,".",I%)+1:.|
000006d0  20 49 25 3d 31 0d 01 e0  90 20 21 62 6c 6f 63 6b  | I%=1.... !block|
000006e0  3d 32 35 36 3a 62 6c 6f  63 6b 21 34 3d 30 3a 62  |=256:block!4=0:b|
000006f0  6c 6f 63 6b 21 38 3d 30  3a 62 6c 6f 63 6b 21 31  |lock!8=0:block!1|
00000700  32 3d 30 3a 62 6c 6f 63  6b 21 31 36 3d 26 34 30  |2=0:block!16=&40|
00000710  30 3a 62 6c 6f 63 6b 21  32 30 3d 46 53 6e 75 6d  |0:block!20=FSnum|
00000720  62 65 72 3a 62 6c 6f 63  6b 21 32 34 3d 30 3a 24  |ber:block!24=0:$|
00000730  28 62 6c 6f 63 6b 2b 32  38 29 3d 22 61 72 63 66  |(block+28)="arcf|
00000740  73 23 22 2b c2 45 6e 76  53 74 72 24 2c a9 28 45  |s#"+.EnvStr$,.(E|
00000750  6e 76 53 74 72 24 29 2d  4a 25 2b 31 29 2b 22 3a  |nvStr$)-J%+1)+":|
00000760  24 22 2b bd 30 0d 01 ea  22 20 c8 99 22 57 69 6d  |$"+.0..." .."Wim|
00000770  70 5f 53 65 6e 64 4d 65  73 73 61 67 65 22 2c 31  |p_SendMessage",1|
00000780  37 2c 62 6c 6f 63 6b 0d  01 f4 08 20 cd 3a cd 0d  |7,block.... .:..|
00000790  01 fe 06 20 e1 0d 02 08  0c 20 dd f2 65 72 72 6f  |... ..... ..erro|
000007a0  72 0d 02 12 49 20 21 62  6c 6f 63 6b 3d 9f 3a 24  |r...I !block=.:$|
000007b0  28 62 6c 6f 63 6b 2b 34  29 3d f6 24 2b bd 30 3a  |(block+4)=.$+.0:|
000007c0  c8 99 22 57 69 6d 70 5f  52 65 70 6f 72 74 45 72  |.."Wimp_ReportEr|
000007d0  72 6f 72 22 2c 62 6c 6f  63 6b 2c 31 2c 22 41 72  |ror",block,1,"Ar|
000007e0  63 46 53 20 46 69 6c 65  72 22 0d 02 1c 06 20 e1  |cFS Filer".... .|
000007f0  0d ff                                             |..|
000007f2