
  TYPE
    oct$open_file_list = record
      name: amt$local_file_name,
      identifier: amt$file_identifier,
      kind: oct$file_type,

      current_module: 1 .. llc$max_modules_in_library + 1,
      directory: ^array [1 .. * ] of oct$module_description,

      entry_point_dictionary: ^llt$entry_point_dictionary,

      link: ^oct$open_file_list,
    recend;


*copyc amt$file_identifier
*copyc amt$local_file_name
*copyc llt$entry_point_dictionary
*copyc llt$module_dictionary
*copyc oct$file_type
*copyc oct$module_description



