" > TreeCopy 1.61b 22-Jun-2016 L&87:=F:23;2,53;0;0;0:A$=C+" ":13"TreeCopy 1.61b"'1314,"="):*FX1 3o%31,C%127:X%=o%:Y%=X%256:::Q$=13:=B: lQ$="":S$="":D$="":i%=1:m%=1:n%=1:k%=1:l%=1:Q%=1:g%=1:p%=:q%=:A$>1:i%=:m%=:n%=:l%=:k%=:Q%=:g%= 0I%=0:A$,6)="-quit ":Q$=A$,7,A$-7):A$="" "(A$,2)="-d":p%=:A$=A$,A$," ")+1) ,*A$,4)="-deb":q%=:A$=A$,A$," ")+1) 6CA$:S$=""A$,1)<>"-":I%=A$+" "," "):S$=A$,I%-1):A$=A$,I%) @CA$:D$=""A$,1)<>"-":I%=A$+" "," "):D$=A$,I%-1):A$=A$,I%) J)S$:D$:I%=A$,1)="~":I%:A$=A$,2) T S$:D$:A$,1)="A":Q%=I% ^ S$:D$:A$,1)="C":m%=I% h S$:D$:A$,1)="E":k%=I% r S$:D$:A$,1)="F":l%=I% | S$:D$:A$,1)="P":i%=I%  S$:D$:A$,1)="R":n%=I%  S$:D$:A$,1)="S":g%=I% ]A$="-? "::"Syntax: TreeCopy (fs:)src (fs:)dest"'" ACEFPRS (-dest) (-quit (*)name)":q eA$=A$,2):A$="":M%=((--2200)-256)+2560*(q%>&FFFF):J%M%:S%=J%+M%:10"Buffer length: &";~M% ̢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$ JS$=""::I$=E("Source filing system: "):I$:G$=E("Source dir: ")I$ ;K%=H:M$="@.",A("@")=2):w%=A("^")=2:A("$")<>2:K%=4 3K%=4:G$=58:G$=2:N%=(A(G$+".$"))N%=A(G$) 0a%=N%=1:N%=0:K%>4:G$" does not exist.":q :*i%>0:'"Pause to change disks";:i%=D D4D$:I%=D$,":"):I%>1:K$=D$,I%-1):d$=D$,I%+1) ND$:I%<2:K$="":d$=D$ XAD$="":':K$=E("Dest. filing system: "):d$=E("Dest. dir: ") bK$="":K$=I$ lL$="":J$="":E$="":G:L%=H:E$=d$:L%>4E$,"$")+E$,"%")+E$,"&")+E$,":")+E$,"@")=0:"Dest. dir must be an absolute pathname, must contain one of $,%,&,@ or :":q 3K%<>L%:G$=58:G$,3)=46:G$,3)=E$,3):i%= K%=L%:I$="":K$="" K%<>L%K%=8:L$="Mount" K%<>L%L%=8:J$="Mount" WK%=L%i%(K%=8K%=16):L$="Mount "+I:J$=L$:J$:G$,1)<>"$"G$,1)<>":":G$="$."+G$ !L%>4:a%:M(E$)L%=4:*DIR$  m%>0:E:"Confirm";:m%=D: 'n%>0:n%=:K%>4"Recurse";:n%=D: 'l%>0:"Force overwriting";:l%=D: K%=5:r%=&FFFFFF3Br%= 4k%>0:k%=:L%=4"Expand into DFS dirs";:k%=D: !k%E$,2)=".$":E$=E$,E$-2) yv%=:U$=E$+".":V$="":H$="":F:T$="":Q%>0:Q%=:H=4:"Do all DFS dirs";:Q%=D::Q%:g%>1:"Put in subdirs";:g%=D: >g%:P$="."P$="/" H*a%:'"Dir. ";G$:"DIR "+G$:E$=E$+"." \@N$="":Z%=0:G%=J%:s%=:?G%=0:F$="":R%=0:V%=0:O%=33:Q%:*DIR ! fJ:"FX1,"+ß:q p,X%=o%:Y%=X%256:a%:N:F$=G$:N$=E$:L:q U:s%Z%=0::q q:p%:G =B:Q$="":Q$=13: Q$,1)="*":Q$:Q$=13: Q$ (ݤE(A$):A$;:""B$:B$,1)="*":B$ B$,1)<>"*":=B$ $.ݤJ:=195:(Z%&C)=4:l%:"ACCESS "+d$:= 8E:11::<128::= B=198:(Z%12)=12:#U% L=198:p%:F V=198::= `\=195(Z%&C)=4:". Overwrite";:笤G(1):G%=P%+F%:==195(Z%&C)=4:"ACCESS "+d$::= j!<128:<>17:" at line ";; t". Skip";:t%=D:t%Z%=0: ~Z%=0t%:F$=C$:T%=A%:=  (Z%&C)=4::t%:G%=P%+F%:= )(Z%&C)=12t%::G%=J%:?G%=0:F$="":J F$="":=<128-1 J:(Z%&100):#U%:F#j%  Z%=0: dU:Z%=0:Q: n(Z%&C)=0?J%=0:Z%=Z%+12 x#(Z%&C)=0::R:Z%=Z%+4:G%=J%: (Z%&C)=4:O:Z%<8: &(Z%&C)=8:N:Z%=Z%+4:G%=J%:i%: (Z%3)<>1:Z%=0:?G%=0: )(Z%&C)=12:L:Z%=0:F$="":G%=J%:?G%=0  *Q:F$:C$=F$:A%=A(M$+C$):F$="":A: @X%!1=C%: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: 7R%=0:O%=O%+1:O%=34O%=":"O%="*"O%="|":O%=O%+1 O%="a":O%="{" 4O%<127:"DIR "+O%A%=3:C$="":X%!10=0:A:*DIR $  "BK:?(C%+?C%+1)=13:C$=$(C%+1)+" ":C$=C$,C$," ")-1):C$=46: 6A%=A(M$+C$):A%=2n%: @ E:A%=2:"Dir. ";"File "; JG$;:G$:46 TQ%O%<>"$":O%,46 ^C$; hm%:笤G(0):: rA%=((A%-1)1)+1:A: 3A:N%=A%:X%!10+2+C$>M%-48:F$=C$:T%=A%:Z%=1: *N%<>3:CM$:A%=A("@"):C:F%=0F%=0 C$(G%+1)=K(C$):P%=G%+2+$(G%+1):P%+F%+48>S%:F$=C$:T%=N%:Z%=2: "N%=3S%=J%+M%:s%=:Z%=2:11: #N%=3:P:R%=!S%:S%=S%+4:V%=V%-1 V!P%=d%:P%!4=e%:P%!8=F%:P%!12=H%:P%!15=W%:P%!18=_%:P%!20=`%:P%=P%+24:N%<>3:EF%=0 [N%=1:"LOAD "+M$+C$+" "+~P%N%=2:"DIR "+C$:S%=S%-4:!S%=R%:R%=0:G$=G$+"."+C$:V%=V%+1 ?G%=N%:G%=P%+F%:?G%=0: ݤK(F$):K%>4:=F$ &Q%O%<>"$":=O%+P$+F$=F$ :HP:G$=G$,G$-1):G$,1)=".":G$=G$,G$-1):w%:"DIR ^""DIR "+G$ N b7G:i%E:"Insert dest. and press SPACE";:<65: l K$:K$ v)J$:J$:E$:a%:"DIR "+E$,E$-1) ;(J$<>""E$<>"")(I$+K$=""w%):a%:"DIR "+E$,E$-1)  9F:i%:E:"Insert source and press SPACE";:<65:  I$:I$ L$:L$:a%:"DIR "+G$ *L$<>""(I$+K$=""w%):a%:"DIR "+G$  O:?G%=0:Z%=Z%+4: A%=?G%:C$=$(G%+1):P%=G%+2+C$:d%=!P%:e%=P%!4:F%=P%!8:H%=P%!12:W%=P%!15:_%=P%!18:`%=P%!20:P%=P%+24:A%=3:C$="@":B:T:G%=P%: A%=2:S:G%=P%:  /I:"Save ";E$;C$;:H$="":d$=E$+C$d$=H$+C$ *H"SAVE "+d$+" "+~P%+"+"+~F%+" "+~e%+" "+~d%:A%=1:B:G%=P%+F%:: >C:d%=X%!2:e%=X%!6:F%=X%!10(A%=1):X%!17=0:X%!20=X%!15:K%=5:$(C%+8)=C$:H(&14,&12000A00+256*C$,&40000000):C%?3=0:X%!15=C%!10:X%!17=C%!12:X%!20=C%!5:X%!22=C%!7 fUH%=X%!14:K%=16:!X%=C%:$C%=M$,2+(C$=""))+C$:A%=&FD:&FFDD:X%!17=X%!6:X%!21=X%!10 p W%=X%!17:_%=X%!20:`%=X%!22: B:L%<4:  L%=8:J$ .C$<>"@":A$=E$+C$ A$=E$,E$-1):A$="": $C%=A$:!X%=C%:X%!2=d%:X%!6=e%:X%!14=H%r%:A%=1+3*(A%<>1)*(L%=5):&FFDD:L%=16:A%=&FD:&FFDD:X%!6=W%:X%!9=_%:X%!11=`%:A%=&FC:&FFDD:  L%<>5: K%<>16K%<>5: $(C%+10)=A$:C%!7=H%:C%?10=?C%:H(&14,&13000C00+256*$(C%+10),&05000000):H%=(H%&FFFF00)256:$(C%+18)=A$:C%!8=_%:C%!10=`%:C%!14=(W%&FFFFFF)*256:C%?13=H%:C%?14=H%256:H(&14,&13001400+256*$(C%+18),&40000000): -I:k%C$,2,1)="/":C$=C$,1)+"."+C$,3) /K%=4:H%=(H%3)(H%4)15:H%=H%((H%7)*16) ,L%=4:C$=C$,7-2*(C$,2,1)=".")):H%=H%8 L%<>16:(H%5)=5:H%=H%-5 4Q%g%v%<>C$C$,2,1)=".":M(E$+C$,1)):v%=C$ $ 8$T:E$=E$,E$-1):E$,1)=".": `GBPB"; ;A%=A(M$+R$):f%=(S%-J%-48)&FFFF00:f%>X%!10:f%=X%!102 C:N$:E$=N$:C$="":H$="" 3U%=0:j%=(M$+R$):j%=0:"No input available.": 8D(4,j%,f%):#j%:R:Z%=Z%&100:I:H$="":d$=E$d$=H$ y'"Copy "E$;C$;:d$=d$+C$:$C%=d$:!X%=C%:A%=5:A%=(&FFDD)&FF:l%=0:A%:X%?148:'"Entry locked. Overwrite";:笤G(1): $A%:X%!14=(L%>4)&33:A%=4:&FFDD 9X%!2=d%:X%!6=e%:X%!10=0:X%!14=F%:X%?17:X%!14=&400000 dA%=7:&FFDD:X%?14=(L%>4)&33:A%=4:&FFDD:U%=d$:U%=0:U%=d$:U%=0:'"No output available.":F: RD(2,U%,f%):h%=f%:b%=f%::#U%:N:Z%=Z%&FF:j%=R$:#j%=h%:h%+f%>F%:b%=F%-h% oD(4,j%,b%):#j%::R:Z%=Z%&100:U%=d$:#U%=h%:D(2,U%,b%)::h%=#U%:#U%:h%>=F%:A%=1:B:N:Z%=Z%&FF:: P1D(A%,c%,b%):?X%=c%:X%!1=J%:X%!5=b%:&FFD1: dAM(F$):H>4:A("$")=2:A(F$)<>2:"CDIR "+F$+" 255",L%=5) n ,ݤA(F$):!X%=C%:$C%=F$:A%=5:=(&FFDD)&FF N:F:E:"Reading...";: R:G:E:"Writing...";: E:>0:  XݤD:A%:"? (Y/N)";:A%=&DF:A%=89A%=78:5,8);:A%=89:"Yes ";:="No ";:= mݤG(B%):A%:"? (Y/N/A)";:A%=&DF:A%=89A%=78A%=65:7,127);:A%=89:"Yes ";:=A%=78:"No ";:= ."All ";:B%=0:m%=B%=1:l%=B%=3:t%= = ,ݤH:A%,E%,Y%:=(&FFDA)&FF 3ݤI:A%=6:X%!1=J%:&FFD1:?(J%+1+?J%)=13:=$(J%+1) @H(A%,D%,E%):X%,Y%:X%=C%:Y%=X%256:!X%=D%:X%!4=E%:&FFF1: `ݤC:>&FFFF:O$=$&8100:ș16A$,,A%:ș72,"",A%:A$=A$,1+A$+" "," ",1+A$," "))):A$=0:A$=O$ 0A$=0:?(P-3):A$=$&600A$=0:A$=$(-&300) &[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) D :=A$ -ݤF:A%=130:((&FFF4)&FFFF00)=&FFFF00:= ?&FFF7<>&6C=&B800:= =&C000:=&800:=&8000 4A%=0P-+34:A%!&C000=A%!::=&C000:=&F800: ݤB:<:=&F800=  4{  "  Z{A{LQ%=PA.:CH."* BASIC Y{M{n{檤`G{G{`` Z{,z0ȱV[{` ee  { {V[{쩏 `