
  TYPE
    pft$p_directory_array = ^pft$directory_array;

*copyc pft$directory_array
