PROCEDURE fred$swap_windows
   LOCAL buffer_1,
	 buffer_2;                

   SET (screen_update,off);
   if (eve$x_number_of_windows = 1) then
      MESSAGE ("Only one window on the screen...");
      RETURN;
   endif;
 
   window_1 := CURRENT_WINDOW;
   eve_other_window;
   window_2 := CURRENT_WINDOW;

   buffer_1 := GET_INFO (window_1,"buffer");
   buffer_2 := GET_INFO (window_2,"buffer");

   UNMAP (window_1);    
   UNMAP (window_2); 

   MAP (window_1,buffer_2);
   MAP (window_2,buffer_1);

   eve$set_status_line (window_1);
   eve$set_status_line (window_2);
   SET (screen_update,on);
ENDPROCEDURE