
  PROCEDURE [XREF] pup$build_new_path ALIAS 'puxbunp'
    (    path: pft$path;
         new_name: pft$name;
     VAR new_path: pft$path);

?? PUSH (LISTEXT := ON) ??
*copyc pft$name
*copyc pft$path
?? POP ??
