
  TYPE
    pft$p_archive_list = ^pft$archive_list;

*copyc pft$archive_list
