!                                                                       Page 76
! Split current window into two windows, both pointing to the same buffer.
! Move to lower window.  Don't do anything if there are already 2 windows.

procedure eve_two_windows

local this_position,		! Marker for current cursor position
      this_buffer;		! Current buffer

eve$check_bad_window;
this_position := mark (none);	! ensure VAXTPU knows current position
this_buffer := current_buffer;
if eve$x_number_of_windows >= 2 then
    message ("Already two windows on screen");
else
    unmap (eve$main_window);
    map (eve$top_window, this_buffer);
    eve$set_status_line (eve$top_window);
    update (eve$top_window);
    map (eve$bottom_window, this_buffer);
    eve$set_status_line (eve$bottom_window);
    update (eve$bottom_window);
    eve$x_number_of_windows := 2;
    eve$x_this_window := eve$bottom_window;
endif;

endprocedure;