
  TYPE
    fst$cycle_reference = record
      case specification: fst$cycle_specification of
      = fsc$cycle_omitted, fsc$high_cycle, fsc$low_cycle, fsc$next_cycle =
        ,
      = fsc$cycle_number =
        cycle_number: fst$cycle_number,
      casend,
    recend;

*copyc fst$cycle_number
*copyc fst$cycle_specification
