
  PROCEDURE [XREF] clp$build_path_subtitle
    (VAR path_name {input,output} : fst$file_reference;
         length: 1 .. fsc$max_path_size;
         width: amt$page_width;
     VAR count: 0 .. fsc$max_path_elements;
     VAR display_array: clt$path_display_chunks);

?? PUSH (LISTEXT := ON) ??
*copyc clt$path_display_chunks
*copyc amt$page_format
*copyc amt$page_length
*copyc amt$page_width
*copyc fsc$max_path_elements
*copyc fsc$max_path_size
*copyc fst$file_reference
?? POP ??
