eve$check_bad_window;
this_position:=mark (none);
this_buffer := current_buffer;
if eve$x_number_of_windows=2 then
    message (" Already two windows on screen");
else
tex_file := GET_INFO(COMMAND_LINE,"file_name");
temp_file := FILE_PARSE(tex_file, " ", " ", NAME);
error_file := temp_file +'.lis';
UNMAP(EVE$MAIN_WINDOW);                
MAP (eve$top_window,this_buffer);       
eve$set_status_line(eve$top_window);
update (eve$top_window);   
eve_buffer('error_listing');     
eve_include_file(error_file);   
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;