" > TreeCopy 1.63a 20-Oct-2018 L&87:=F:23;2,53;0;0;0:A$=C+" ":13"TreeCopy 1.63a"'1314,"="):*FX1 3p%31,F%127:X%=p%:Y%=X%256:::Q$=13:=B: "{Q$="":S$="":D$="":i%=1:n%=1:o%=1:k%=1:l%=1:Q%=1:g%=1:m%=:y%=:q%=:v%=:A$>1:i%=:n%=:o%=:l%=:k%=:Q%=:g%=:m%= @0I%=0:A$,6)="-quit ":Q$=A$,7,A$-7):A$="" J*A$,4)="-deb":v%=:A$=A$,A$," ")+1) T(A$,2)="-d":q%=:A$=A$,A$," ")+1) ^CA$:S$=""A$,1)<>"-":I%=A$+" "," "):S$=A$,I%-1):A$=A$,I%) hCA$:D$=""A$,1)<>"-":I%=A$+" "," "):D$=A$,I%-1):A$=A$,I%) r)S$:D$:I%=A$,1)="~":I%:A$=A$,2) | S$:D$:A$,1)="A":Q%=I%  S$:D$:A$,1)="C":n%=I%  S$:D$:A$,1)="E":k%=I%  S$:D$:A$,1)="F":l%=I%  S$:D$:A$,1)="P":i%=I%  S$:D$:A$,1)="R":o%=I%  S$:D$:A$,1)="S":g%=I%  S$:D$:A$,1)="U":m%=I%  S$:D$:A$,1)="V":y%=I% _A$="-? "::"Syntax: TreeCopy (fs:)src (fs:)dest"'" ACEFPRSUV (-dest) (-quit (*)name)":q eA$=A$,2):A$="":N%=((--2200)-256)+2560*(v%>&FFFF):K%N%:S%=K%+N%:10"Buffer length: &";~N% S$=0:'"Caution - This program does not check"'"for circular pathnames - Eg Copying"'"$.FRED into $.FRED.JIM will repeatedly"'"create $.FRED.JIM.JIM...etc." 4S$:I%=S$,":"):I%>1:I$=S$,I%-1):G$=S$,I%+1) *::-1:Q$=13:=B:"FX1,"+ß:q &S$:I%<2:I$="":G$=S$ 0JS$=""::I$=E("Source filing system: "):I$:G$=E("Source dir: ")I$ :;L%=I:M$="@.",A("@")=2):x%=A("^")=2:A("$")<>2:L%=4 N3L%=4:G$=58:G$=2:J%=(A(G$+".$"))J%=A(G$) X0e%=J%=1:J%=0:L%>4:G$" does not exist.":q v*i%>0:'"Pause to change disks";:i%=D 4D$:I%=D$,":"):I%>1:K$=D$,I%-1):d$=D$,I%+1) D$:I%<2:K$="":d$=D$ AD$="":':K$=E("Dest. filing system: "):d$=E("Dest. dir: ") K$="":K$=I$ L$="":J$="":E$="":E:M%=I:E$=d$:M%>4E$,"$")+E$,"%")+E$,"&")+E$,":")+E$,"@")=0:"Dest. dir must be an absolute pathname, must contain one of $,%,&,@ or :":q 3L%<>M%:G$=58:G$,3)=46:G$,3)=E$,3):i%= L%=M%:I$="":K$="" L%<>M%L%=8:L$="Mount" L%<>M%M%=8:J$="Mount" WL%=M%i%(L%=8L%=16):L$="Mount "+J:J$=L$:J$:G$,1)<>"$"G$,1)<>":":G$="$."+G$ !M%>4:e%:M(E$)M%=4:*DIR$  n%>0:G:"Confirm";:n%=D: 'o%>0:o%=:L%>4"Recurse";:o%=D:  'l%>0:"Force overwriting";:l%=D: L%=5:r%=&FFFFFF3Br%=  4k%>0:k%=:M%=4"Expand into DFS dirs";:k%=D: *!k%E$,2)=".$":E$=E$,E$-2) 4yw%=:U$=E$+".":V$="":H$="":D:T$="":Q%>0:Q%=:I=4:"Do all DFS dirs";:Q%=D::Q%:g%>1:"Put in subdirs";:g%=D: zg%:P$="."P$="/" *e%:'"Dir. ";G$:"DIR "+G$:E$=E$+"." @N$="":Z%=0:H%=K%:s%=:?H%=0:F$="":R%=0:_%=0:O%=33:Q%:*DIR ! K:"FX1,"+ß:q ,X%=p%:Y%=X%256:e%:N:F$=G$:N$=E$:L:q U:s%Z%=0::q q:q%:E =B:Q$="":Q$=13: Q$,1)="*":Q$:Q$=13: Q$ B(ݤE(A$):A$;:""B$:B$,1)="*":B$ LB$,1)<>"*":=B$ `.ݤK:=195:(Z%&C)=4:l%:"ACCESS "+d$:= tG:11::<128::= ~=198:(Z%12)=12:#W% =198:q%:D =198::= \=195(Z%&C)=4:". Overwrite";:笤G(1):H%=P%+C%:==195(Z%&C)=4:"ACCESS "+d$::= !<128:<>17:" at line ";; ". Skip";:t%=D:t%Z%=0: Z%=0t%:F$=C$:T%=A%:=  (Z%&C)=4::t%:H%=P%+C%:= )(Z%&C)=12t%::H%=K%:?H%=0:F$="":J F$="":=<128-1 J:(Z%&100):#W%:D#j% ( Z%=0: U:Z%=0:Q: (Z%&C)=0?K%=0:Z%=Z%+12 !(Z%&C)=0:R:Z%=Z%+4:H%=K%: (Z%&C)=4:O:Z%<8: &(Z%&C)=8:N:Z%=Z%+4:H%=K%:i%: (Z%3)<>1:Z%=0:?H%=0: )(Z%&C)=12:L:Z%=0:F$="":H%=K%:?H%=0  *Q:F$:C$=F$:A%=A(M$+C$):F$="":A: @X%!1=F%:X%!5=1:X%!9=R%:A%=8:&FFD1:u%=X%!5:R%=X%!9:u%=0:K "u%<>0Z%<>0:u%=0: , Q%:A%=3:C$="":X%!10=0:A: 67R%=0:O%=O%+1:O%=34O%=":"O%="*"O%="|":O%=O%+1 @O%="a":O%="{" J4O%<127:"DIR "+O%A%=3:C$="":X%!10=0:A:*DIR $ T hBK:?(F%+?F%+1)=13:C$=$(F%+1)+" ":C$=C$,C$," ")-1):C$=46: |A%=A(M$+C$):A%=2o%:  G:A%=2:"Dir. ";"File "; G$;:G$:46 Q%O%<>"$":O%,46 C$;:n%:笤G(0):: A%=((A%-1)1)+1:A: 4A:J%=A%:J%<>3:CM$:A%=A("@"):C:C%=0C%=0  H: &C%+2+C$>N%-48:F$=C$:T%=J%:Z%=1: C$(H%+1)=L(C$):P%=H%+2+$(H%+1):P%+C%+48>S%:F$=C$:T%=J%:Z%=2: "J%=3S%=K%+N%:s%=:Z%=2:11: &#J%=3:P:R%=!S%:S%=S%+4:_%=_%-1 :V!P%=U%:P%!4=V%:P%!8=C%:P%!12=G%:P%!15=`%:P%!18=a%:P%!20=d%:P%=P%+24:J%<>3:GC%=0 N[J%=1:"LOAD "+M$+C$+" "+~P%J%=2:"DIR "+C$:S%=S%-4:!S%=R%:R%=0:G$=G$+"."+C$:_%=_%+1 b"?H%=J%:H%=P%+C%:?H%=0:m%:Z%=3 l ݤL(F$):L%>4:=F$ Q%O%<>"$":=O%+P$+F$=F$ HP:G$=G$,G$-1):G$,1)=".":G$=G$,G$-1):x%:"DIR ^""DIR "+G$  7E:i%G:"Insert dest. and press SPACE";:<65:  K$:K$ )J$:J$:E$:e%:"DIR "+E$,E$-1) ;(J$<>""E$<>"")(I$+K$=""x%):e%:"DIR "+E$,E$-1)  9D:i%:G:"Insert source and press SPACE";:<65:  I$:I$ L$:L$:e%:"DIR "+G$  *L$<>""(I$+K$=""x%):e%:"DIR "+G$ * >O:?H%=0:Z%=Z%+4: RA%=?H%:C$=$(H%+1):P%=H%+2+C$:U%=!P%:V%=P%!4:C%=P%!8:G%=P%!12:`%=P%!15:a%=P%!18:d%=P%!20:P%=P%+24:A%=3:C$="@":B:T:H%=P%: zA%=2:S:H%=P%: /I:"Save ";E$;C$;:H$="":d$=E$+C$d$=H$+C$ H"SAVE "+d$+" "+~P%+"+"+~C%+" "+~V%+" "+~U%:A%=1:B:H%=P%+C%:: C:U%=X%!2:V%=X%!6:C%=X%!10(A%=1):X%!17=0:X%!20=X%!15:L%=5:$(F%+8)=C$:H(&14,&12000A00+256*C$,&40000000):F%?3=0:X%!15=F%!10:X%!17=F%!12:X%!20=F%!5:X%!22=F%!7 UG%=X%!14:L%=16:!X%=F%:$F%=M$,2+(C$=""))+C$:A%=&FD:&FFDD:X%!17=X%!6:X%!21=X%!10  `%=X%!17:a%=X%!20:d%=X%!22: B:M%<4:  M%=8:J$ "A$=E$+C$:C$="@":A$=A$,A$-2) $F%=A$:!X%=F%:X%!2=U%:X%!6=V%:X%!14=G%r%:A%=1+3*(A%<>1)*(M%=5):&FFDD:M%=16:A%=&FD:&FFDD:X%!6=`%:X%!9=a%:X%!11=d%:A%=&FC:&FFDD: $ M%<>5: .L%<>16L%<>5: 8F%!7=G%:$(F%+10)=A$:H(&14,&13000C00+256*A$,&05000000):G%=(G%&FFFF00)256:F%!8=a%:F%!10=d%:F%!13=G%:F%!15=`%:$(F%+18)=A$:H(&14,&13001400+256*A$,&40000000): ݤH:m%=0J%=2C$="":= 16:(G%5)=5:G%=G%-5 F4Q%g%w%<>C$C$,2,1)=".":M(E$+C$,1)):w%=C$ P d$T:E$=E$,E$-1):E$,1)=".": X%!10:f%=X%!102 C:N$:E$=N$:C$="":H$="" H: 3W%=0:j%=(M$+R$):j%=0:"No input available.": 8F(4,j%,f%):#j%:R:Z%=Z%&100:I:H$="":d$=E$d$=H$ z'"Copy ";E$;C$;:d$=d$+C$:$F%=d$:!X%=F%:A%=5:A%=(&FFDD)&FF:l%=0:A%:X%?148:'"Entry locked. Overwrite";:笤G(1): $A%:X%!14=(M%>4)&33:A%=4:&FFDD 9X%!2=U%:X%!6=V%:X%!10=0:X%!14=C%:X%?17:X%!14=&400000 NA%=7:&FFDD:X%?14=(M%>4)&33:A%=4:&FFDD:(X%!10>C%)X%!10=0:W%=d$W%=d$ 6'W%=0:'"No output available.":D: @RF(2,W%,f%):h%=f%:b%=f%::#W%:N:Z%=Z%&FF:j%=R$:#j%=h%:h%+f%>C%:b%=C%-h% ^mF(4,j%,b%):#j%:R:Z%=Z%&100:W%=d$:#W%=h%:F(2,W%,b%)::h%=#W%:#W%:h%>=C%:A%=1:B:N:Z%=Z%&FF:: 1F(A%,c%,b%):?X%=c%:X%!1=K%:X%!5=b%:&FFD1: 3M(F$):I>4:A("$")=2:A(F$)<>2:"CDIR "+F$  8ݤA(F$):?X%=F%:X%?1=F%256:$F%=F$:A%=5:=(&FFDD)&FF N:D:G:"Reading...";: R:E:G:"Writing...";: G::  XݤD:A%:"? (Y/N)";:A%=&DF:A%=89A%=78:5,8);:A%=89:"Yes ";:="No ";:= 0mݤG(B%):A%:"? (Y/N/A)";:A%=&DF:A%=89A%=78A%=65:7,127);:A%=89:"Yes ";:=A%=78:"No ";:= X."All ";:B%=0:n%=B%=1:l%=B%=3:t%= b= vݤI:A%,E%,Y%:=(&FFDA)&FF *3ݤJ:A%=6:X%!1=K%:&FFD1:?(K%+1+?K%)=13:=$(K%+1) H@H(A%,D%,E%):X%,Y%:X%=F%:Y%=X%256:!X%=D%:X%!4=E%:&FFF1: \OݤC:A%=(>&FFFF)&900:A%=((>&9FFF)A%)((&1400-)(A%=0)):?(P-3)A%=&B00 peA$=$(-&E00+A%):A%=0:O$=A$:ș16A$,,A%:ș72,"",A%:A$=A$,1+A$+" "," ",1+A$," "))):A$=0:A$=O$ z[Y%=-10:A$=" "+A$:A$=A$,2):A$<>32:Y%:A$=34:A%=A$,"""",2)+1Y%:A%=A$+" "," ") ?Y%:O$=A$,1-(A$=34),A%-1+2*(A$=34)):O$<>"":A$=A$,A%+1) :=A$ ݤF:=&B800>&FFFF:= 5A%=130:((&FFF4)&FFFF00)=&FFFF00?&FFF7<>&6C:= =&C000:=&800:=&8000 4A%=0P-+34:A%!&C000=A%!::=&C000:=&F800: "ݤB:<:=&800:?&801=-1:== I}{ O{*"ȑ " g{[{LQ%=PA.:CH."*BASIC {{{{a{a{`|{`` g{,z0ȱZ{02 ee  { {Z{{꩏ `2