                                                                                                              
  PROCEDURE [XREF] pup$sort_cycle_array_version_2                                                             
    (VAR sorted_cycle_array: pft$cycle_array_version_2);                                                      
                                                                                                              
?? PUSH (LISTEXT := ON) ??                                                                                    
*copyc pft$cycle_array_version_2                                                                              
?? POP ??                                                                                                     
