
  PROCEDURE [XREF] ifp$get_page_length_width (terminal_path_handle: fmt$path_handle;
    VAR page_length_width: array [1 .. 2] of ift$terminal_attribute;
    VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??
*copyc fmt$path_handle
*copyc ife$error_codes
*copyc ift$terminal_attributes
*copyc ost$status
?? POP ??
