procedure eve_page
local formfeed,
	pagedelim,
	found_range;
formfeed := ASCII(12);
pagedelim := LINE_BEGIN & formfeed;
found_range := search(pagedelim,current_direction);
if found_range = 0
then
	message("No page delimiter (FF) found");
else
	position(beginning_of(found_range));
	if current_direction = FORWARD
	then move_vertical(1);
	else move_vertical(-1);
	endif;
endif;
endprocedure;