  TYPE
    fst$tape_label_length = 0 .. fsc$max_tape_label_length;

*copyc fsc$max_tape_label_length
