$ > BLib.Pathname 1.01 19Sep1992 * v1.00 19Sep1992 JGH: Initial version 1 v1.01 15Mar1995 JGH: Functions named Path_* (: 2" Directory Pathname Functions <" ============================ F: PJ FNPath_Name - Return pathname with drive number or name if no number Z7 FNPath_Full - Returns full pathname with diskname dI The returned pathname can be used to select the directory with *DIR nJ -------------------------------------------------------------------- x: ݤPath_Name:A%=6 ݤPath_Full:A%=&106 n$,p$::X%!1=name%: &FFD1 *?(name%+2+?name%+?(name%+?name%+1))=13 n$=$(name%+2+?name%):*DIR ^ n$=n$,n$+" "," ")-1) p$=n$+"."+p$:n$="$"n$="&" p$=p$,p$-1):"DIR "+p$ VA%=6:X%!1=name%: &FFD1:?(name%+1+?name%)=13:n$=$(name%+1):n$<>"":=":"+n$+"."+p$ X%!1=name%:A%=5: &FFD1 &?(name%+1+?name%)=13:n$=$(name%+1) )n$=n$,n$+" "," ")-1):=":"+n$+"."+p$ : : * FNPath_Lib - Return library pathname * ------------------------------------ ": ,ݤPath_Lib 6 a$,b$:a$=Path_Name:*DIR % @ b$=Path_Name:"DIR "+a$:=b$ J: T: ^3 FNPath_LibFull - Return full library pathname h3 --------------------------------------------- r: |ݤPath_LibFull  a$,b$:a$=Path_Name:*DIR %  b$=Path_Full:"DIR "+a$:=b$ : : & FNPath_URD - Return URD pathname & -------------------------------- : ݤPath_URD  a$,b$:a$=Path_Name:*DIR &  b$=Path_Name:"DIR "+a$:=b$ : : / FNPath_URDFull - Return full URD pathname / ----------------------------------------- : ݤPath_URDFull & a$,b$:a$=Path_Name:*DIR & 0 b$=Path_Full:"DIR "+a$:=b$ ::