PROCEDURE fred$adjust_window
   LOCAL asize, 
	top_window_buffer,              
	bottom_window_buffer,              
	this_window,
	wind;

   if eve$x_number_of_windows = 2 then
      if CURRENT_WINDOW = eve$top_window then
         wind := 1;
      else
         wind := 2;
      endif;
      top_window_buffer := GET_INFO (eve$top_window,"buffer");
      bottom_window_buffer := GET_INFO (eve$bottom_window,"buffer");
      loop
      	 asize := READ_LINE ("Enter the number of lines to adjust by: ");
	 asize := INT (asize);
	 exitif ((eve$top_window_length - asize) > 3) and
	           ((eve$bottom_window_length + asize) > 3);
	    MESSAGE ("Illegal adjustment...");
      endloop;
message('ltop: '+str(eve$top_window_length));
message('lbottom: '+str(eve$bottom_window_length));
      if this_window = eve$top_window then
         eve$top_window_length := eve$top_window_length + asize;
         eve$bottom_window_length := eve$bottom_window_length - asize;
      else
         eve$top_window_length := eve$top_window_length - asize;
         eve$bottom_window_length := eve$bottom_window_length + asize;
      endif;
message('ntop: '+str(eve$top_window_length));
message('nbottom: '+str(eve$bottom_window_length));
      DELETE (eve$top_window);
      DELETE (eve$bottom_window);
      eve$top_window := CREATE_WINDOW (1,eve$top_window_length,on);
      eve$bottom_window := CREATE_WINDOW (eve$top_window_length+1,
					      eve$bottom_window_length,on);
      MAP (eve$top_window,top_window_buffer);
      eve$set_status_line (eve$top_window);
      MAP (eve$bottom_window,bottom_window_buffer);
      eve$set_status_line (eve$bottom_window);
      if wind = 1 then
         POSITION (eve$top_window);
      else
         POSITION (eve$bottom_window);
      endif;
   else                                                 
      MESSAGE ("Only one window...adjustment not allowed");
   endif;
ENDPROCEDURE;