  CONST
    fsc$erroneous_tape_label_block = 1,
    fsc$non_tape_label_block = 2,
    fsc$normal_tape_label_block = 3,
    fsc$null_tape_label_block = 4,
    fsc$tapemark_tape_label_block = 5;

  TYPE
    fst$tape_label_block_type = 1 .. fsc$max_tape_label_block_type;

*copyc fsc$max_tape_label_block_type
