
  TYPE
    pft$p_path = ^pft$path;

*copyc pft$path
