  TYPE
    fst$tape_label_count = 0 .. fsc$max_tape_labels;

*copyc fsc$max_tape_labels
