procedure eve_expand_window

local topn,bottomn,response;

response := read_line("Number to add to top line: ");
topn := INT(response);
response := read_line("Number to add to bottom line: ");
bottomn := INT(response);

if (topn = 0) AND (bottomn = 0) then
	message("No adjustment; check your input");
	return;
endif;

adjust_window(current_window,topn,bottomn);
refresh;
endprocedure;