
  TYPE
    fst$archive_information = record
      archive_entry: pft$archive_array_entry,
      amd: ^pft$amd,
    recend;

*copyc pft$amd
*copyc pft$archive_array_entry
