
?? PUSH (LISTEXT := ON) ??
*copyc dpp$put_next_line
*copyc dpv$system_core_display
*copyc ost$status
?? POP ??

  PROCEDURE [INLINE] display_to_console
    (    display_line: string ( * <= 255));

    VAR
      length: integer,
      working_string: string (256),
      status: ost$status;

    STRINGREP (working_string, length, ' ', display_line);
    dpp$put_next_line (dpv$system_core_display, working_string (1, length),
          status);
  PROCEND display_to_console;
?? SKIP := 5 ??

  PROCEDURE [INLINE] display_boolean_to_console
    (    descriptor: string ( * <= 128);
         value: boolean);

    VAR
      total_length: integer,
      working_string: string (150);

    STRINGREP (working_string, total_length, descriptor, ' ', value);
    display_to_console (working_string (1, total_length));

  PROCEND display_boolean_to_console;

  PROCEDURE [INLINE] display_integer_to_console
    (    descriptor: string ( * <= 127);
         number: integer);

    VAR
      descriptor_length: integer,
      number_length: integer,
      total_length: integer,
      working_string: string (150);

    working_string := descriptor;
    descriptor_length := STRLENGTH (descriptor);
    STRINGREP (working_string ((descriptor_length + 2), * ), number_length,
          number);
    total_length := number_length + descriptor_length + 2;
    display_to_console (working_string (1, total_length));
  PROCEND display_integer_to_console;
?? SKIP := 5 ??

  PROCEDURE [INLINE] display_pva_to_console
    (    descriptor: string ( * <= 127);
         pva: ^cell);

    VAR
      descriptor_length: integer,
      length: integer,
      working_string: string (150);

    STRINGREP (working_string, length, descriptor, ' ', pva);
    display_to_console (working_string (1, length));
  PROCEND display_pva_to_console;
