procedure eve_move_by_paragraph
local paragraph_break, eop, the_way;
if current_direction = FORWARD
then
  the_way := 1;
else
  the_way := -1;
endif;
move_horizontal (-current_offset);
move_vertical(the_way);
paragraph_break := 		! Blank line or Runoff command line
                                ! or a line starting with word separator.
   anchor & line_begin &
	(("." & any (eve$x_runoff_characters)) |
	 ((eve$x_null | span (eve$x_word_separators)) & line_end) |
         (span(eve$x_word_separators) & notany(eve$x_word_separators)));
loop
   exitif eve$paragraph_break;
    exitif mark(none) = end_of(current_buffer);
    move_vertical(the_way);
endloop;
eop := mark(none);
position(eop);
endprocedure;