  TYPE
    fst$tape_label_identifier = record
      case location_method: fst$tape_label_location_method of
      = fsc$tape_label_locate_by_index =
        label_index: fst$tape_label_count,
      = fsc$tape_label_locate_by_kind =
        label_kind: fst$ansi_label_kind,
      = fsc$tape_label_locate_by_ident =
        label_identifier: fst$ansi_label_identifier,
        label_number: fst$ansi_label_number,
      casend,
    recend;

*copyc fst$ansi_label_identifier
*copyc fst$ansi_label_kind
*copyc fst$ansi_label_number
*copyc fst$tape_label_count
*copyc fst$tape_label_location_method
