 Ї > Archive 1.16 
AЇ  FS-Archiver Version 1.16LH. Copyright Acorn Computers 1985 9Єinitialize:Ї Date fetch problem fixed JGH 12/03/2002 c Єfs(net%):X%=&70:Y%=0:A%=0:R%=║osargs% А &FF:ч R%<>net% М ё"Net filing system not present"'':р ( spaces%=5 2J title$="File server directory archiver":ё╜12'''title$'─йtitle$,"*")'' < ю Е Ў:ё" at ";Ю:р FD ё"Archives currently selected directory"'"and sub-directories"' Z   Єpreservecontext dq ё'"Select filing System for archive"К40)"(A=Adfs, D=Disc)"'" :";:їdfile$=╛:¤з"AaDd",dfile$):f%=з"Aa",dfile$) n7 ч f% М dfile%=adfs%:ё"Adfs" Л dfile%=disc%:ё"Disc" x\ ю Е Ў:ё" at "Ю:юЕ З:Єfs(dfile%):Єrestore_disc:┘#0:Єfs(net%):┘#0:X%=дhomecontext(csd%):р В ї М   ё'"Pathname of"; Ц1   ч дcommand("directory to archive.",╣) М ¤0 а   $top%=$var%+"." к4   ч дunpriv($var%) М ё'"Insufficient access":¤0 ┤ ¤╣ ╛, $path%=$var%:length%=й$path%:Єsortdates ╚C ч $path%<>"":new%=дopen(path%,&40):csd%=дnewcontext(new%,csd%) ╥ off%=дoffset ▄@ $string%="DFS drive":ч dfile%=adfs% М $string%="A"+$string% ц ї Ё"   ч дcommand($string%,г) М ¤0 ·(   ч dfile%=disc% М ¤ з"0123",$var%)0   ч dfile%=adfs% М ¤ з"0145AaBbEeFf",$var%); ч з"AaBbEeFf",$var%) М T%=(Ч$var% А &5F)-&11:$var%=╜T% d_drive%=╗($var%)"P Єfs(dfile%):ч dfile%=adfs% М Єoscli("DIR :"+$var%) Л Єoscli("Dr. :"+$var%) ,Y X%=&70:Y%=0:A%=0:R%=║osargs% А &FF:ч R%<>dfile% М ё"Filing sytem not present":х НDd@6> ч дcompact Л ё'"Please use a compacted ADFS disc.":х Нd\@@@ ч дcommand("Name of archive file ",г) М НD@A Л $init%=$var%T* h%=дgraber(init%):ч h% Л:sin%=0:хНd\@Y ╤=0^5 Єfs(net%):ё'"Beginning archive ..."':q%=дarchiveh& ё'"Directory "$path%" archived."'r= Єfs(dfile%):X%=дw_buffer(wbuff%):Єrestore_disc:Єfs(net%)| X%=дhomecontext(csd%)Ж ч q% Л ё"Errors detected"'Р A%=229:X%=0:Y%=0:╓osbyte%Ърд:о▌ дarchive╕" ъ nodata%,complete%,index%,c%┬ complete%=╣:index%=0╠' ч дreadname(index%) М Єerror(0):=г╓# nodata%=cb%!5:ч nodata% М НTpBрI ч off%=г Л $name%=дlcase($name%):ч $name%>=$offname% М off%=г Л НTfBъ type%=дexamine(name%,cb1%)яS  days%=cb1%?15А31:months%=cb1%?16А15:years%=1981+(cb1%?16Б16)+((cb%?15А&E0)Б2)Ё
 ЄnameЇC ч type%<>directory Л ч дheader(path%,name%) Л nodata%=0:х НTfB■+ ч type%=file М Єcopydata(name%):х НTfB# Єdown_a_dir(name%):c%=дarchive Єup_a_dir ч c% Л complete%=г& index%=index%+10 ч nodata% Л НdLA:=complete%D:N▌Єdown_a_dir(name%)X
 ъnew%b spaces%=spaces%+3l6 ч й $path% М path%?length%=Ч".":length%=length%+1v	 i%=0А їК   path%?length%=name%?i%Ф    i%=i%+1:length%=length%+1Ю' ¤name%?(i%-1)=&D:length%=length%-1и6 new%=дopen(name%,&40):csd%=дnewcontext(new%,csd%)▓с╝:╞▌Єup_a_dir╨ spaces%=spaces%-3┌ oldlength%=й$path%ф: ї:length%=length%-1:¤(length%?path%=Ч".") Д length%=0ю path%?length%=&0D°= newlength%=0:ч length% М blength%=length%+1 Л blength%=0 ї&   name%?newlength%=path%?blength%2   newlength%=newlength%+1:blength%=blength%+1  ¤blength%=oldlength%* name%?newlength%=&0D4\ csd%=дhomecontext(csd%):ч $path%="" Л new%=дopen(path%,&40):csd%=дnewcontext(new%,csd%)>сH:R▌дreadname(index%)\ ъ i%,q%f cb%!1=name%p" cb%!5=1: Ї read one file onlyz cb%!9=index%Д X%=cb%:Y%=X% Б &100О	 A%=8Ш( q%=дcall(osgbpb%): Ї read filenamesв ч cb%!5 М Нd^Cм	 i%=1╢ ї└0   ч (i%?name%=Ч" ") Д (i%=11) М i%?name%=&D╩   i%=i%+1╘ ¤i%=12:$name%=$(name%+1)▐=q%ш:Є▌Єpreservecontext№r ?buffer%=6:X%=buffer%:Y%=X% Б &100:A%=&13:╓ osword%:urd%=buffer%?1:csd%=buffer%?2:lib%=buffer%?3:source%=csd%с.:8▌дnewcontext(new%,csd%)B< ?buffer%=7:buffer%?1=urd%:buffer%?2=new%:buffer%?3=lib%L- X%=buffer%:Y%=X% Б &100:A%=&13:╓ osword%V4 ч csd%<>source% ч csd%<>lib% чcsd%<>urd% ┘#csd%` csd%=new%j	=csd%t:~▌дhomecontext(csd%)И? ?buffer%=7:buffer%?1=urd%:buffer%?2=source%:buffer%?3=lib%Т- X%=buffer%:Y%=X% Б &100:A%=&13:╓ osword%Ь( ч csd%<>source%:┘#csd%:csd%=source%ж	=csd%░:║▌дexamine(n%,block%)─ !block%=n%╬4 X%=block%:Y%=X% Б &100:A%=5:r%=║(osfile%) А &FFЎ=r% :
▌дopen(n%,a%) X%=n%:Y%=X% Б &100
 A%=a%($ ч дcall(osfind%) М Єerror(0):=г2=?tempa<:F▌Єclose(h%)P, Y%=h%:A%=0:ч дcall(osfind%) М Єerror(0)Zсd:n
▌Єnamex ёКspaces%);ВS ч r%=directory М ёКspaces%-5)"Dir. "$name%:days%=std%:months%=stm%:years%=sty%М: ч r%<>file Л ч дrange_dates Л ёКspaces%)$name%;:ЄsizeЦса:к
▌Єsize┤ A%=5:X%=cb%:Y%=X% Б &100╛ !cb%=name%╚ q%=дcall(osfile%)╥ @%=&A0A▄A ч ▒<25 М ёК30)дh0(cb%!&A,6); Л ёК(▒+6)-(▒+6)Г5)дh0(cb%!&A,6)цC ё"         "+дd0(days%,2)+"/"+дd0(months%,2)+"/"+дd0(years%,4)ЁсЄ#▌дd0(A%,N%)=┬"00000000"+├A%,N%)є#▌дh0(A%,N%)=┬"0000000"+├~A%,N%)·:▌дunpriv($string%)- !buffer%=&04003000:$(buffer%+7)=$string%- X%=buffer%:Y%=X% Б &100:A%=&14:╓ osword%"=(buffer%?&F=Ч"P"),:6▌дdfs_size(d_drive%)J╕ ч dfile%<>adfs% Л X%=buffer%:Y%=X% Б &100:A%=&71:╓ osword%:size_left%=!buffer%:ч size_left%>&10000 М size_left%=size_left%-&10000:=size_left% Л ё"Not enough room on ADFS disc.":=0T# ч м дr_sector(d_drive%,1,1):=0^Й dfs_start%=?(buffer%+&F):dfs_start%=(?(buffer%+&E) А &3)*&100+dfs_start%:dfs_start%=dfs_start%*&100:ч dfs_start%=0 М dfs_start%=&200h} dfs_length%=?(buffer%+&C):dfs_length%=?(buffer%+&D)*&100+dfs_length%:dfs_length%=(?(buffer%+&E) А &30)*&1000+dfs_length%r/ d_sz%=buffer%?7:d_sz%=buffer%?6*&100+d_sz%|л size_left%=d_sz%*&100-(dfs_length%+dfs_start%):size_left%=(size_left% Б &100*&100):ч size_left%<&480 М ё"Not enough room on DFS disc.":=0 Л size_left%=size_left%-&480Ж) sin%=(dfs_length%+dfs_start%) Б &100Р ч ?(buffer%+&C)sin%=sin%+1Ъ=size_left%д:о▌Єsortdates╕ error%=╣┬ ї╠2   ё'"Start date (dd/mm/yyyy)"'" :";:ш""start$╓<   ч Чstart$=-1 М std$="01":stm$="01":sty$="1981":х НTHGр5   std$=└start$,зstart$,"/")-1):ч й std$>2 М НT\Gъ/   start$=┴start$,зstart$,"/")+1,й(start$))Ї5   stm$=└start$,зstart$,"/")-1):ч й stm$>2 М НT\G■?   sty$=┴start$,зstart$,"/")+1,й(start$)):ч й sty$>4 М НT\G-   std%=╗(std$):stm%=╗(stm$):sty%=╗(sty$)>   ч sty%<100 М sty%=1900+sty%:ч sty%<1980 М sty%=sty%+100C   ч std%<1 Д std%>31 Д stm%<1 Д stm%>12 Д sty%<1981 Л error%=г ¤error%=г& :0 error%=╣: їD.   ё'"End date (dd/mm/yyyy)"'" :";:ш""end$N:   ч Чend$=-1 М edd$="31":edm$="12":edy$="2108":х Нt@GX1   edd$=└end$,зend$,"/")-1):ч й edd$>2 М НtTGb'   end$=┴end$,зend$,"/")+1,й(end$))l1   edm$=└end$,зend$,"/")-1):ч й edm$>2 М НtTGv9   edy$=┴end$,зend$,"/")+1,й(end$)):ч й edy$>4 М НtTGА-   edd%=╗(edd$):edm%=╗(edm$):edy%=╗(edy$)Е>   ч edy%<100 М edy%=1900+edy%:ч edy%<1980 М edy%=edy%+100КC   ч edd%<1 Д edd%>31 Д edm%<1 Д edm%>12 Д edy%<1981 Л error%=гФ ¤error%=гЮ :и ч edy%<sty% М НtxF▓% ч edy%=sty% М ч edm%<stm% М НtxF╝1 ч edy%=sty% А edm%=stm% М ч edd%<std% М НtxF╞с╨:┌▌Єinitmcф у pass%=0 ╕ 2 И 2ю P%=space%° [ OPT pass%( .trap sta tempa:stx tempx:sty tempy0 lda brkvec:sta copy:lda brkvec+1:sta copy+1% tsx:stx sp:lda #0:sta error_flag $ lda# (brkcode А &FF):sta brkvec*& lda# (brkcode /&100):sta brkvec+14/ lda tempa:ldx tempx:ldy tempy:jsr indirect> sta tempa:\ return AH= .restore lda copy:sta brkvec:lda copy+1:sta brkvec+1:rtsR \\. .brkcode ldy#0:lda (&FD),Y:sta error_flagf ldx sp:txs:inyp9 .loop lda (&FD),Y:beq exit:sta errmsg,Y:iny:bne loopz+ .exit lda #13:sta errmsg,Y:jmp restoreД .indirect jmp (go)О ]Ш эвсм:╢▌Єinitialize└e osfind%=&FFCE:osgbpb%=&FFD1:osargs%=&FFDA:osfile%=&FFDD:osword%=&FFF1:osbyte%=&FFF4:oscli%=&FFF7╩ file=1:directory=2╘ sin%=0▐ @%=3:я15ш brkvec=&202:oldbrk=!brkvec№ sp=&70:go=&71:copy=&73	@ tempa=copy+2:tempx=tempa+1:tempy=tempx+1:error_flag=tempy+1	D net%=5:adfs%=8:disc%=4:seq%=1:size_left%=0:to_write%=0:fsize%=0	$ Ї size%=&1000	.И ▐ cb% 30,cb1% 30,name%50,errmsg 30,path% &100,space% &100,var% &100,top% &30,string% &100,n% &100,init% 50,offname% &80,buffer% 256	8/ ▐ Z%-1:size%=У-Z%-&B00:size%=size% А &FF00	B ▐ wbuff% size%	G C%=cb%	L2 days%=0:months%=0:years%=0:split%=г:source%=0	V Єinitmc	jс	t:	~▌Єoscli($string%)	Г X%=string%:Y%=X%Б &100	Т  ч дcall(oscli%) М Єerror(0)	Ьс	ж:	░▌дcall(addr)	║( ?go=addr:go?1=(addr А &FF00) Б &100	─ ╓ trap	╬=?error_flag<>0	╪▌Єerror(trap%)	т' ч ?error_flag=trap% Л ё$(errmsg+1)	ьс	Ў:
 ▌дerror

 ч ?error_flag=0 М =г
# ч ?error_flag>&A8 =?error_flag
8 ?cb%=10:X%=cb%:Y%=X% Б &100:A%=&13:╓ osword%:=cb%?1
(:
2▌дcommand(string$,atype%)
< ъ fflag%,A$:fflag%=╣
F$ $var%="":ё'string$'" :";:шЖ""A$
P( ч ┬A$,1)=" " М A$=└A$,йA$-1):х НDPJ
Z" ч ЧA$=Ч" " М A$=┴A$,2):х НDZJ
d $var%=A$
n< ч └$var%,1)="*" М Єoscli($var%):Єpreservecontext:х НDFJ
x/ ч й $var% М fflag%=г Л ч atype% М fflag%=г
} Єfs(currentfs%)
В=fflag%
М:
Ц▌дheader(path%,name%)
Ы
 ъ lb%
а ч дrange_dates М =╣
к
 ъ i% 
┤F ч й $path%+й$name%>=200 М ё"String too long - Unable to copy.":=г
╣, lb%=й$name%:ч й$path%:lb%=lb%+1+й$path%
╛) ч size_left%<(lb%+19) М Єsplit_it(╣)
╥@ ч й $path%:уi%=0 ╕ й $path%-1:Єbput(path%?i%):э:Єbput(Ч".")
▄' уi%=0 ╕ й $name%:Єbput(name%?i%):э
ц Єbput(type%):Єbput(seq%)
Ё  уi%=2 ╕ 18:Єbput(cb1%?i%):э
·# size_left%=size_left%-(lb%+19)=╣:▌Єfs(f%)" ч f%=4 М $string%="Disc", ч f%=5 М $string%="Net"6 ч f%=8 М $string%="Adfs"; currentfs%=f%@' X%=string%:Y%=string%Б&100:╓oscli%JсT:Ъ:д▌Єcopydata(name%)о% ч дrange_dates М ё"dates exit":с╕ from%=дopen(name%,&40)┬( ч from% Л ё"Unble to copy "$name%:с╠ fsize%=cb1%!10╓$ ч дheader(path%,name%) Л х НTRL█ їрM  ч size_left%-2<fsize%:Єtranz(size_left%-2,from%):Л:Єtranz(fsize%,from%)■8 ч size_left%=2:Єsplit_it(╣):X%=дheader(path%,name%) ¤fsize%=0 Єclose(from%)с&:0 : ▌ Єtranz(tamount%,from%)D їN7 ч size%-bp%>=tamount%:Єgetput(tamount%,from%):¤1:сXЕ tamount%=tamount%-(size%-bp%):Єgetput(size%-bp%,from%):ч дw_buffer(wbuff%):Л:ё "Unable to ensure buffer, archive aborted":Е HERE]& ч tamount%<0:ё"overflow error ":рb ¤ tamount%=0g сl v ▌Єgetput(amount%,nethandle%)А< cb%?0=nethandle%:cb%!1=wbuff%+bp%:cb%!5=amount%:cb%!9=0Е%ч bp%+amount%>size%:ё"aborting":рЖ!ч bp%+amount%<0:ё"aborting":рК' X%=cb%:Y%=X% Б &100:A%=4:╓ osgbpb%Ф bp%=bp%+amount%Ю Ї PUT TO DISCи" size_left%=size_left%-amount%╝ fsize%=fsize%-amount%╞с╨:┌▌Єsplit_it(split1%)ф2 ч split1% М Єbput(type%):Єbput(seq%):split%=гю< ч м дw_buffer(wbuff%):ё"Unable to ensure buffer":Е HEREЁ Єfs(dfile%)є Єrestore_discЇ seq%=seq%+1°4 $string%="DFS":ч dfile%=adfs% М $string%="ADFS" ї2   ч дcommand("New "+$string%+" drive",г) М ¤0(   ч dfile%=disc% М ¤ з"0123",$var%) 0   ч dfile%=adfs% М ¤ з"0145AaBbEeFf",$var%)*; ч з"AaBbEeFf",$var%) М T%=(Ч$var% А &5F)-&11:$var%=╜T%4Y ч dfile%=disc% М ё''"Please insert disc and press RETURN";:ї:resp$=╛:¤Чresp$=&0D:ё''> d_drive%=╗($var%)HB ч dfile%=adfs% М Єoscli("DIR :"+$var%) Л Єoscli("Dr. "+$var%)R" r%=дgraber(init%):ч r% Л НTBMW Єfs(net%)pсz:Д▌дrange_datesШ( ч(years%<sty%) Д (years%>edy%) М =╣вF ч years%=sty% ч (months%<stm% Д (months%=stm% А days%<std%)) М =╣мF ч years%=edy% ч (months%>edm% Д (months%=edm% А days%>edd%)) М =╣╢ =г╩:$:.▌дoffset8
ъ off%BЄoscli(".")LDч дcommand("First object to archive",╣) М НDLN Л $offname%=$var%V4ч $offname%="" Д $offname%="." М off%=г Л off%=╣`(ч off% М $offname%=дlcase($offname%)j	=off%t:~▌дlcase($string%)Иъ chr%,X%ТуX%=0 ╕ й($string%)-1Ьchr%=string%?X%ж[ч (chr%<Ч"A") Д (chr%>Ч"z") Д ((chr%>Ч"Z")А(chr%<Ч"a")) М э Л string%?X%=(chr% А &5F):э░=$string%║:─▌дcompact╬ъ compact%:compact%=╣╪ч dfile%=disc% М =compact%тЄfs(adfs%)ь8?cb%=0:cb%!1=buffer%:cb%!5=&1000008:cb%?9=1:cb%?&A=0Ў(X%=cb%:Y%=X% Б &100:A%=&72:╓ osword%  ч buffer%?&FE=3 Л compact%=г
=compact% ▌ дr_sector(D%,S%,N%) =дsector(&53)( ▌ дw_sector(D%,S%,N%)2 =дsector(&4B)< ▌ дsector(W%)FC ?C%=D%:C%!1=buffer%:C%?5=3:C%?7=S%Б10:C%?8=S% Г 10:C%?9=&20+N%P C%?6=W%Z^ A%=&7F:X%=C%:Y%=X% Б &100:╓osword%:ч C%?10 ё "Disc error ";~C%?10" Writing "N%" at "S%:=0d =╣n x ▌ дgraber(n%)}< ч дexamine(init%,cb1%) М ё'$init%+" already exists.":=0В* grab%=(дdfs_size(d_drive%)) А &FFFF00З ч grab%=0:=0Иh%=дopen(n%,&80)Й( ч dfile%=adfs%:adfshandle%=h%:хНdpOМ ч h%<>0:┘#h%:Л=0Ц# ч м дr_sector(d_drive%,1,1):=0а. new_sin%=buffer%?&F+(buffer%?&E А 3)*&100кE ч sin%<>new_sin%:ё "Please use a blank or compacted DFS disc":=0╛: E%=buffer%?&E:E%=(E% А &CF) Д ((grab% Б &1000) А &30)╚ buffer%?&E=E%╥ buffer%?&D=(grab% Б &100)▄ buffer%?&C=(grab% А &FF)ц# ч м дw_sector(d_drive%,1,1):=0Ё saved_size%=0· bp%=0:fsin%=sin% =size_left%  ▌ Єrestore_disc Єfs(dfile%)# ч dfile%=adfs%:┘#adfshandle%:с" ч sin%=0:с," ч м дr_sector(d_drive%,1,1):с6. new_sin%=buffer%?&F+(buffer%?&E А 3)*&100@ ч new_sin%<>sin%:сJ@ E%=buffer%?&E:E%=(E% А &CF) Д ((saved_size% Б &1000) А &30)T buffer%?&E=E%^$ buffer%?&D=(saved_size% Б &100)h# buffer%?&C=(saved_size% А &FF)r# ч м дw_sector(d_drive%,1,1):=0| сЖ Р ▌ Єbput(TA%)ХH ч size%-bp%<>0 Л:ч дw_buffer(wbuff%) Л ё"Unable to ensure buffer":ЕЪwbuff%?bp%=TA%:bp%=bp%+1:сд о ▌ дw_buffer(buffer%)п; Єfs(dfile%):ч dfile%=adfs%:Єadwrite(buffer%,bp%):хНdCP░" Q%=((bp%-1) Б 256)+1:F%=fsin%╡ ї╢ T%=10-(F% Г 10)╕c ч T%>Q% ¤ 1:Л ч дw_sector(d_drive%,F%,T%):Q%=Q%-T%:F%=F%+T%:buffer%=buffer%+&100*T%:¤0:Л:¤1:=0┬. ч Q%=0:Л ч м дw_sector(d_drive%,F%,Q%):=0├ fsin%=F%+Q%╟  saved_size%=saved_size%+bp%╚ Єfs(net%)╠
 bp%=0╓ =╣█ И ▌ Єadwrite(from%,amount%)Т7 ?cb%=adfshandle%:cb%!1=from%:cb%!5=amount%:cb%!9=0Ь X%=cb%:Y%=X%Б256:A%=2ж ╓ osgbpb%░ с