
  CONST
    clc$same_display_line = -1,
    clc$next_display_line = 0;

  TYPE
    clt$new_display_line_skip = clc$same_display_line .. amc$file_byte_limit;

  TYPE
    clt$new_display_page_procedure = ^procedure
           (VAR display_control {input,
                 {output} : clt$display_control;
                new_page_number: integer;
            VAR status: ost$status);

  TYPE
    clt$trim_display_text_option = (clc$no_trim, clc$trim);

  TYPE
    clt$display_control = record
      page_format: amt$page_format,
      page_length: amt$page_length,
      page_width: amt$page_width,
      page_number: integer,
      line_number: integer,
      column_number: amt$page_width,
      file_id: amt$file_identifier,
      device_class: rmt$device_class,
      new_page_procedure: clt$new_display_page_procedure,
      data_in_line: boolean,
      include_format_effectors: boolean,
      new_line_started: boolean,
      new_page_proc_called: boolean,
      line: ost$string,
      put_partial_line: boolean,
    recend;

*copyc amt$file_byte_address
*copyc amt$file_identifier
*copyc amt$page_format
*copyc amt$page_length
*copyc amt$page_width
*copyc amt$term_option
*copyc ost$status
*copyc rmt$device_class
