
  TYPE
    pft$directory_array_entry = record
      name: pft$name,
      name_type: pft$name_type,
      info_offset: pft$info_offset,
    recend;

*copyc pft$info_offset
*copyc pft$name
*copyc pft$name_type
