
  TYPE
    pft$cycle_selector = record
      case cycle_option: pft$cycle_options of
      = pfc$lowest_cycle =
        ,
      = pfc$highest_cycle =
        ,
      = pfc$specific_cycle =
        cycle_number: fst$cycle_number,
      casend,
    recend;

*copyc pfc$maximum_cycle_number
*copyc pfc$minimum_cycle_number
*copyc fst$cycle_number
*copyc pft$cycle_options
