
  PROCEDURE [XREF] clp$build_standard_title
    (    wide: boolean;
         command_name: string (osc$max_name_size);
     VAR wide_title: string (clc$wide_page_width);
     VAR narrow_title1: string (clc$narrow_page_width);
     VAR narrow_title2: string (clc$narrow_page_width);
     VAR display_control: clt$display_control;
     VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??
*copyc clc$page_widths
*copyc clt$display_control
*copyc ost$name
*copyc ost$status
?? POP ??
