  TYPE
    fst$tape_label_classification = record
      case valid_label: boolean of
      = TRUE =
        character_set: amt$internal_code,
        label_kind: fst$ansi_label_kind,
        label_number: fst$ansi_label_number,
        label_identifier: fst$ansi_label_identifier,
      = FALSE =
        ,
      casend,
    recend;

*copyc amt$internal_code
*copyc fst$ansi_label_kind
*copyc fst$ansi_label_identifier
*copyc fst$ansi_label_number
