
  TYPE
    pft$relative_cell_pointer = REL (pft$catalog_file) ^cell;

*copyc pft$catalog_file
