  TYPE
    fst$tape_label_locator = record
      case label_found: boolean of
      = FALSE =
        ,
      = TRUE =
        label_block: ^SEQ ( * ),
        label_block_descriptor: ^fst$tape_label_block_descriptor,
        label_index: fst$tape_label_count,
      casend,
    recend;

*copyc fst$tape_label_block_descriptor
*copyc fst$tape_label_count
