

  PROCEDURE [XREF] cmp$display_type_elements (element_type: cmt$element_type;
        display_option : cmt$display_option;
        element_count: integer;
        lc_element : ^array [1 .. * ] of cmt$element_definition;
    VAR display_control: clt$display_control;
    VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??
*copyc cmt$display_option
*copyc cmt$element_definition
*copyc CMT$ELEMENT_TYPE
*copyc CLT$DISPLAY_CONTROL
*copyc OST$STATUS
?? POP ??
