?? TITLE := '    clp$new_page_procedure', EJECT ??

*copyc clp$right_justify_string

  PROCEDURE clp$new_page_procedure
    (VAR display_control: clt$display_control;
         new_page_number: integer;
     VAR status: ost$status);

    CONST
      max_page_chars = 10;

    VAR
      ignore_status: ost$status,
      str: ost$string,
      page_and_number: string (max_page_chars),
      page_number_length: integer;

    clp$reset_for_next_display_page (display_control, status);
    IF NOT status.normal THEN
      RETURN;
    IFEND;
    IF display_control.page_width < clc$narrow_page_width THEN
      clv$page_width := clc$narrow_page_width;
    ELSE
      clv$page_width := display_control.page_width;
    IFEND;
    clv$wide := clv$page_width >= clc$wide_page_width;
    clp$convert_integer_to_string (new_page_number, 10, FALSE, str,
          ignore_status);
    IF NOT clv$titles_built THEN
      clp$build_standard_title (clv$wide, clv$command_name, clv$wide_title,
            clv$narrow_title1, clv$narrow_title2, display_control, status);
      IF NOT status.normal THEN
        RETURN;
      IFEND;
      clv$titles_built := TRUE;
    IFEND;
    page_and_number := '';
    STRINGREP (page_and_number, page_number_length, 'PAGE', new_page_number);
    IF display_control.include_format_effectors THEN
      clp$right_justify_string (page_and_number);
    IFEND;


    IF clv$wide THEN
      clv$wide_title (123, 10) := page_and_number;
      clp$put_display (display_control, clv$wide_title, clc$trim, status);
    ELSE
      clv$narrow_title1 (70, 10) := page_and_number;
      clp$put_display (display_control, clv$narrow_title1, clc$trim, status);
      IF NOT status.normal THEN
        RETURN;
      IFEND;
      clp$put_display (display_control, clv$narrow_title2, clc$trim, status);
    IFEND;
    IF NOT status.normal THEN
      RETURN;
    IFEND;

    put_subtitle (display_control, status);
    IF NOT status.normal THEN
      RETURN;
    IFEND;
    clp$new_display_line (display_control, 1, status);

  PROCEND clp$new_page_procedure;
