procedure eve_end_of_line		!kp2 (move to end of line)
if current_direction = forward
then
	if mark(none) <> end_of (current_buffer)
	then
 	    if eve$on_end_of_line
	    then
		move_vertical(1)
	    endif;		 	! move back
	    if mark(none) <> end_of(current_buffer)
	    then
		move_horizontal(length(current_line)-current_offset); ! goto EOL
	    endif;
	endif
else
	move_horizontal(( - current_offset)+(-1))
endif;
endprocedure			! end of EOL
procedure eve$on_end_of_line		!support routine for end_of_line
if (current_character = eve$kt_null)
then
	eve$on_end_of_line := 1
else
	eve$on_end_of_line := 0
endif;
endprocedure