;


! Move to next Page marker ...ie the <FF> character...
! 	...from the EDT interface...
!
procedure eve_page
	LOCAL	 dir ,	next_page ;

	on_error
		if error = tpu$_strnotfound  then
		    if dir = REVERSE  then
			position(beginning_of(current_buffer))
		    else
			position(end_of(current_buffer))
		    endif;
		endif;
		return
	endon_error

	dir := current_direction;
	if dir = FORWARD  then
	    move_horizontal(1)
	else
	    move_horizontal(-1)
	endif;

	next_page := search(ascii(12),dir);
	position(beginning_of(next_page));

endprocedure