 PROCEDURE [INLINE] fdp$find_display_name (display_name: ost$name;
        p_display_definitions: ^array [1 .. * ] OF fdt$display_definition;
        active_number: fdt$number_object_displays;
    VAR p_display_definition: ^fdt$display_definition;
    VAR name_exists: boolean);

    VAR
      n: fdt$display_index;

    name_exists := FALSE;
    /find_display/
    FOR n := 1 TO active_number DO
      p_display_definition := ^p_display_definitions^ [n];
      IF p_display_definition^.name = display_name THEN
        name_exists := TRUE;
        EXIT /find_display/;
      IFEND;
    FOREND /find_display/;
  PROCEND fdp$find_display_name;

?? PUSH (LISTEXT := ON) ??
*copyc fdt$display_index
*copyc ost$name
*copyc fdt$display_definition
*copyc fdt$number_object_displays
?? POP ??
