
  TYPE
    pft$object_list_locator = record
      object_count: pft$object_count,
      relative_cell_pointer: pft$relative_cell_pointer,
      sorted_object_count: pft$object_count,
      free_sorted_object_count: pft$object_count,
    recend;

*copyc pft$object_count
*copyc pft$relative_cell_pointer
