
  TYPE
    fst$cycle_number = 1 .. fsc$maximum_cycle_number;

*copyc fsc$maximum_cycle_number
