
  PROCEDURE [XREF] pup$sort_cycle_array ALIAS 'puxsca'
    (VAR sorted_cycle_array: pft$cycle_array);

?? PUSH (LISTEXT := ON) ??
*copyc pft$cycle_array
?? POP ??
