
  TYPE
    fst$archive_information_list = array [1 .. * ] of fst$archive_information;

*copyc fst$archive_information
