
  TYPE
    fst$tape_file_set_pos_choices = (fsc$tape_beginning_of_set,
          fsc$tape_current_file, fsc$tape_end_of_set,
          fsc$tape_file_identifier_pos, fsc$tape_file_sequence_pos,
          fsc$tape_next_file);

