
  TYPE
    pft$p_archive_array = ^pft$archive_array;

*copyc pft$archive_array
