! > TreeCopy 1.57 15-Jan-2007 F}&87:23;2,53;0;0;0:A$=C+" ":11"TreeCopy 1.57"'1114,"=")':A=&FFD1:B=&FFDD:C=&FFF1:D=&FFDA:X%31,C%127:Y%=X%256:*FX1 dG%=(-P-2500)&FFFF00:B%G%:G%=G%-256:Q%=B%+G%:Q$="":S$="":D$="":f%=1:h%=1:i%=1:a%=1:M%=1:R%=1:n%=:I%=0:A$,6)="-quit ":Q$=A$,7,A$-7):A$="" (A$,2)="-d":n%=:A$=A$,A$," ")+1) CA$<>""S$=""A$,1)<>"-":I%=A$," "):S$=A$,I%-1):A$=A$,I%+1) CA$<>""D$=""A$,1)<>"-":I%=A$," "):D$=A$,I%-1):A$=A$,I%+1) .S$<>""D$<>"":I%=A$,1)="~":I%:A$=A$,2) %S$<>""D$<>"":A$,1)="C":h%=I% %S$<>""D$<>"":A$,1)="P":f%=I% %S$<>""D$<>"":A$,1)="R":i%=I% %S$<>""D$<>"":A$,1)="E":a%=I% %S$<>""D$<>"":A$,1)="A":M%=I% %S$<>""D$<>"":A$,1)="S":R%=I% $" ACDEFPRSU",A$,1)):A$=A$,2) [A$="-? "::"Syntax: TreeCopy (fs:)src (fs:)dest CPREAS (-dest) (-quit (*)name)":q: A$="":"Caution - This program does not check"'"for circular pathnames - Eg Copying"'"$.FRED into $.FRED.JIM will repeatedly"'"create $.FRED.JIM.JIM.JIM.JIM...etc."''"Buffer length: &";~G% ,7S$<>"":I%=S$,":"):I%>1:K$=S$,I%-1):G$=S$,I%+1) 6#:-1:Q$=13:"FX1,"+ß:q @S$<>"":I%<2:K$="":G$=S$ JFS$=""::K$=E("Source filing system: "):K$:G$=E("Source dir: ") T8j%=(A("^")=2):F=4:e%=(A(G$+".$")):e%=2e%=A(G$) ^"e%=0:G$" does not exist.":q h'e%<>2:G$" is not a directory.":q r*f%>0:'"Pause to change disks";:f%=D |7D$<>"":I%=D$,":"):I%>1:L$=D$,I%-1):d$=D$,I%+1) D$<>"":I%<2:L$="":d$=D$ AD$="":':L$=E("Dest. filing system: "):d$=E("Dest. dir: ") L$="":L$=K$ M$="":J$="":E$="":K%=F:B:N%=F:E$=d$:N%>4E$,"$")+E$,"%")+E$,"&")+E$,":")+E$,"@")=0:"Dest. dir must be an absolute pathname, ie it must contain one of $,%,&,@ or :":q K%=N%:K$="":L$="" K%<>N%K%=8:M$="Mount" K%<>N%N%=8:J$="Mount" WK%=N%f%(K%=8K%=16):M$="Mount "+H:J$=M$:J$:G$,1)<>"$"G$,1)<>":":G$="$."+G$ N%>4:L(E$)*DIR$ h%>0:I:"Confirm";:h%=D (i%>0:i%=:K%>4'"Recurse";:i%=D: K%=5:_%=&FFFFFF3B_%= 2a%>0:a%=:N%=4"Expand into DFS dirs";:a%=D !a%E$,2)=".$":E$=E$,E$-2) Go%=:R$=E$+".":H$="":I$="":K%<>N%:A("^")=2:H$="DIR ":R$="":O$=B 0AK%=N%K%>4j%f%:A("%")=2:H$="LIB ":I$="%.":R$="%.":O$=G :H$<>"":H$+E$ DC::N$="":j%:N$=B NMM%=:R%=:F=4:"Do all DFS dirs";:M%=D:M%:'"Put in subdirs";:R%=D: XR%:T$="."T$="/" b_F:" Dir. ";G$:"DIR "+G$:E$=E$+".":Z%=0:H%=B%:k%=:?H%=0:F$="":O%=0:S%=0:L%=33:M%:*DIR ! I:"FX1,"+ß:q U:k%Z%=0:S::q q:n%:B Q$="":Q$=13: Q$,1)="*":Q$:Q$=13: Q$ S:H$<>"":B:H$+O$ F<>K%:C N$<>"":"DIR "+N$   (ݤE(A$):A$;:""B$:B$,1)="*":B$ B$,1)<>"*":=B$ * ݤI:I:11::;:<128::= 4_=195(Z%&C)=4:". Overwrite";:q%=D:q%:H%=P%+F%:==195(Z%&C)=4:"ACCESS "+d$::= >". Skip";:m%=D:m%Z%=0: HZ%=0m%:F$=C$:T%=A%:= R (Z%&C)=4::m%:H%=P%+F%:= \)(Z%&C)=12m%::H%=B%:?H%=0:F$="":J zF$="":=<128-1 7J:J$="":(Z%&100)=0:Z%=0:#`%:B:#U%:C:F:: #J$="":Z%=0:#U%:C:#`%:F:: (Z%&100)=0:Z%=0:#`%: Z%=0:#U%:C:F:: U:Z%=0:O: (Z%&C)=0?B%=0:Z%=Z%+12 &(Z%&C)=0::B:Z%=Z%+4:H%=B%:P: (Z%&C)=4:M:Z%<8: )(Z%&C)=8:C:Z%=Z%+4:H%=B%:F:f%: (Z%3)<>1:Z%=0:?H%=0: )(Z%&C)=12:Q:Z%=0:F$="":H%=B%:?H%=0  *O:F$<>"":C$=F$:A%=A(C$):F$="":A: $0Z%<>0:l%=0: BM%:A%=3:C$="":A: L7O%=0:L%=L%+1:L%=34L%=":"L%="*"L%="|":L%=L%+1 VL%="a":L%="{" `&L%<127:"DIR "+L%A%=3:A:*DIR $ j ~IK:?(C%+?C%+1)=13:C$=$(C%+1):C$,1)=" ":C$=C$,C$-1):C$,1)<>" " 3A%=A(C$):A%=2i%:(S%*2);:A%=2:"Dir. "; #A%<1A%>2:" not recognised": M%L%<>"$":L%,46 C$;:h%:笤J:: A: DA:V%=X%!2:W%=X%!6:F%=X%!10(A%=1):F%>G%-32:F$=C$:T%=A%:Z%=1: DK%=5:$(C%+8)=C$:G(&14,&12002000,&40000000):C%?2=0:X%!15=C%!10 LJ%=X%!14:$(H%+1)=K(C$):P%=H%+2+$(H%+1):P%+F%+32>Q%:F$=C$:T%=A%:Z%=2: "A%=3Q%=B%+G%:k%=:Z%=2:11:  #A%=3:N:O%=!Q%:Q%=Q%+4:S%=S%-1 6!P%=V%:P%!4=W%:P%!8=F%:P%!12=J%:P%=P%+16:A%<>3:I (XA%=1:"LOAD "+C$+" "+~P%A%=2:"DIR "+C$:Q%=Q%-4:!Q%=O%:O%=0:G$=G$+"."+C$:S%=S%+1 <?H%=A%:H%=P%+F%:?H%=0: PݤK(F$):K%>4:=F$ ZM%L%<>"$":=L%+T$+F$=F$ nHN:G$=G$,G$-1):G$,1)=".":G$=G$,G$-1):j%:"DIR ^""DIR "+G$  7B:f%I:"Insert dest. and press SPACE";:<65: L$<>"":L$ *J$<>"":J$:E$<>"":"DIR "+E$,E$-1) 6(J$<>""E$<>"")(K$+L$=""j%):"DIR "+E$,E$-1)  6C:f%:"Insert source and press SPACE";:<65: K$<>"":K$ M$<>"":M$:"DIR "+G$ %M$<>""(K$+L$=""j%):"DIR "+G$  M:?H%=0:Z%=Z%+4: [A%=?H%:C$=$(H%+1):P%=H%+2+C$:V%=!P%:W%=P%!4:F%=P%!8:J%=P%!12:P%=P%+16:A%=3:T:H%=P%: ,A%=2:R:H%=P%: 6'H:E$;C$;:I$="":d$=E$+C$d$=I$+C$ @C"SAVE "+d$+" "+~P%+"+"+~F%+" "+~W%+" "+~V%:D:H%=P%+F%:: TD:N%<4: UK%=4:J%=(J%1)((J%8)4) VN%=4:J%=J%8 ^ N%=8:J$ hH$="":$C%=E$+C$$C%=I$+C$ r7!X%=C%:X%!2=V%:X%!6=W%:X%!14=J%_%:A%=1:B:N%<>5: K%<>16K%<>5: $(C%+11)=$(C%+1):C%!7=J%_%:C%?10=?C%:G(&14,&13002000,&05000000):$(C%+18)=$(C%+10):C%!7=J%_%:C%!10=0:C%!12=J%_%:C%?12=0:C%?16=0:C%?17=0:G(&14,&13002000,&40000000): -H:a%C$,2,1)="/":C$=C$,1)+"."+C$,3) .N%=4:C$=C$,7-2*(C$,2,1)=".")):J%=J%&33 4M%R%o%<>C$C$,2,1)=".":L(E$+C$,1)):o%=C$ K%=4:J%=J%&33  5T:E$=E$,E$-1):E$,1)=".":H$<>"":H$+I$+"^"  "R:I$="":L(E$+C$)L(I$+C$) &!D:E$=E$+C$:H$<>"":H$+I$+C$ 0E$=E$+".": DnQ:C$=K(F$):U$=F$:A%=A(U$):V%=X%!2:W%=X%!6:F%=X%!10:J%=X%!14:U%=0:`%=U$:`%=0:"No input available.": bQg%=(Q%-B%-32)&FFFF00:E(4,`%,g%):#`%:B:P:Z%=Z%&100:H:I$="":d$=E$d$=I$ l'E$;C$;:d$=d$+C$:$C%=d$:!X%=C%:X%!2=V%:X%!6=W%:X%!10=0:X%!14=F%:A%=7:A%=(B)&FF:U%=d$:U%=0:U%=d$:U%=0:'"No output available.":C: UE(2,U%,g%):d%=g%:b%=g%::#U%:C:F:Z%=Z%&FF:`%=U$:#`%=d%:d%+g%>F%:b%=F%-d% pE(4,`%,b%):#`%::B:Z%=Z%&100:U%=d$:#U%=d%:P:E(2,U%,b%)::d%=#U%:#U%:d%>=F%:D:C:Z%=Z%&FF:F:: -E(A%,c%,b%):?X%=c%:X%!1=B%:X%!5=b%:A: (L(F$):F>4:A(F$)<>2:"CDIR "+F$  (ݤA(F$):!X%=C%:$C%=F$:A%=5:=(B)&FF F:I:"Reading...";:  P:I:"Writing...";: *I:>0: 4 HXݤD:A%:"? (Y/N)";:A%=&DF:A%=89A%=78:5,8);:A%=89:"Yes ";:="No ";:= p{ݤJ:A%:"? (Y/N/A)";:A%=&DF:A%=89A%=78A%=65:7,127);:A%=89:"Yes ";:=A%=78:"No ";:="All ";:h%=:= ݤF:A%,E%,Y%:=(&FFDA)&FF ݤB:A%,n$,p$:A%=6:X%!1=B%:A:?(B%+2+?B%+?(B%+?B%+1))=13:n$=$(B%+2+?B%):"DIR ^":n$=n$,n$+" "," ")-1):p$=n$+"."+p$:n$="$"n$="&":p$=p$,p$-1):"DIR "+p$:X%!1=B%:A:?(B%+1+?B%)=13:n$=$(B%+1):n$<>"":=":"+n$+"."+p$ $SX%!1=B%:A%=5:A:?(B%+1+?B%)=13:n$=$(B%+1):n$=n$,n$+" "," ")-1):=":"+n$+"."+p$ 82ݤG:a$,b$:a$=B:"DIR %":b$=B:"DIR "+a$:=b$ `/ݤH:A%=6:X%!1=B%:A:?(B%+1+?B%)=13:=$(B%+1) ~@G(A%,D%,E%):X%,Y%:X%=C%:Y%=X%256:!X%=D%:X%!4=E%:&FFF1: rݤC:A$,A%:X%=1:p%=((&FFF4)&FF00)256:X%-1:p%=32:>&FFFF:ș"GetModuleFileName",0,X%,255:A$=$$X%:P$=A$:=V$ p%=32:A$=$&100 wA$=0:>&7FFF:P$=$&8100:ș"OS_GetEnv"A$,,A%:ș"OS_WriteEnv","",A%:A$=A$,1+A$+" "," ",1+A$," "))):A$=0:A$=P$ 0A$=0:?(P-3):A$=$&600A$=0:A$=$(-&300) 3A%=A$+" "," "):P$=A$,A%-1):P$<>"":=A$,A%+1) bY%=X%256:A%=9:?X%=0:X%!1=X%+16:X%!16=0:&FFD1:A%=X%+16:!A%?A%+A%?2<>8:A%?(A%+1)=13:=$(A%+1) ="" B(C) {H {h H {h * pq{r]srpqs {۠{L `{{`{{H Ϋ{ {h`p{{{p`Q%=PAGE OLD RUN BASIC "