$ > BLib.Pathname 1.01 19Sep1992 * v1.00 19Sep1992 JGH: Initial version 1 v1.01 15Mar1995 JGH: Functions named Path_* ((;!Keep Path_Full:!Keep FNPath_Full 2: <" Directory Pathname Functions F" ============================ P: ZJ FNPath_Name - Return pathname with drive number or name if no number d7 FNPath_Full - Returns full pathname with diskname nI The returned pathname can be used to select the directory with *DIR xJ -------------------------------------------------------------------- : ݤ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 "* ------------------------------------ ,: 6ݤPath_Lib @ a$,b$:a$=Path_Name:*DIR % J b$=Path_Name:"DIR "+a$:=b$ T: ^: h3 FNPath_LibFull - Return full library pathname r3 --------------------------------------------- |: ݤ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 0 a$,b$:a$=Path_Name:*DIR & : b$=Path_Full:"DIR "+a$:=b$ D: