procedure eve_move_by_sentence
local endsentence, quotes, quote_space, quote_end;
quotes := any("""'");
quote_end := quotes & line_end;
quote_space := quotes & " ";
endsentence := 
  any(".?!") & (line_end | ' ' | quote_space | quote_end );
where := search(endsentence, current_direction);
if where = 0
 then message("No end of sentence found.");
 else
  message("End of sentence found.");
  where := end_of(where);
  position(where);
endif;
endprocedure