procedure eve_section ( direction_to_move ) !kp8 (section)
if direction_to_move = forward
then
	eve_next_screen;
else
	eve_previous_screen;
endif;
if get_info (current_window, eve$kt_beyond_eol) then
	eve_end_of_line;
endif;
endprocedure