
  PROCEDURE [XREF] pup$sort_directory
    (    unsorted_directory: pft$directory_array;
     VAR sorted_directory: pft$directory_array);

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