> AddExten 1 Test program to add extensions to leafnames : (!sfx$="adfs::4.Library.suffix" 2: <* ctrl% 31,name% 31:X%=ctrl%:Y%=X%256 F?A%=f_info(sfx$):A%<>1:"Suffix file '"sfx$"' not found": P9 sfx% X%!10:sfx%?(X%!10)=13:"Load "+sfx$+" "+~sfx% Zpath$="":f_scan d n: xf_scan: idx%,f$,n% 3:f$=f_scan(idx%):idx%=X%!9:n%=f$:n%:object n%=0: : &object: type%:type%=f_info(f$) path$;".";f$ &path$;".";fn_sfx(f$,X%!3 &FFF) ' type%=2:down(f$):f_scan:up(f$)  : .down(f$):path$=path$+"."+f$:"DIR "+f$: 4up(f$):path$=path$, path$- f$-1):"DIR ^": : 1ݤs(f$): f$,1)=" " :f$=f$,2):f$,1)<>" " f$=f$,f$+" "," ")-1):=f$ : Fݤf_info(A$):A%=5:$name%=A$:?X%=name%:X%?1=name%256:=(&FFDD)&FF ": ,Fݤf_scan(ptr%):X%!1=name%:X%!5=1:X%!9=ptr%:A%=8:&FFD1:X%!5=1:="" 6#A%=name%:A%?(1+?A%)=13:=$(A%+1) @: Jݤuc(A$): B$:A$="":="" T5B$=B$+(A$((A$<"@")&DF)):A$=A$,2):A$="":=B$ ^ݤlc(A$): B$:A$="":="" h5B$=B$+(A$((A$<"_")&20)):A$=A$,2):A$="":=B$ r: |1ݤfn_sfx(n$,t%):e%,f%,xt$:n$<10sfx%=0:=n$ 0A%=0:e%=A%:A%=n$,"/",e%+1):A%=0:e%<8:=n$ 8xt$=lc(n$,e%+1)):sptr%=sfx%::f%=$sptr%,xt$)=xt$ *sptr%?3=44:f%=f%t%=("&"+$(sptr%+4)) BA%=sptr%:sptr%=sptr%+1+$sptr%:?sptr%=13 f%:f%:xt$=$A%,3) *n$,1)<="_":n$,1)<>"/":xt$=uc(xt$) =n$,e%-1)+"/"+xt$ :