
  TYPE
    dft$entry_type = (dfc$free_entry, dfc$valid_entry);

  CONST
    { The free char MUST be a blank to allow for rapid assignment
    dfc$free_entry_char = ' ',
    dfc$assigned_entry_char = 'A',
    dfc$pad_entry_char = 'P';
