
  TYPE
    pft$p_archive = ^pft$physical_archive;

*copyc pft$physical_archive
