procedure eve_erase_to_eol
local blank_line;
blank_line := anchor & line_begin & eve$x_null & line_end;
eve$x_restoring_line := 1;
if current_offset = 0 then
    if search(blank_line,forward) <> 0 then
	eve_erase_line;
    else
        eve$x_restore_text := erase_line;
        aaw_openline;
    endif;                          
else
    ! Erase_character stops deleting at the end of the line
    eve$x_restore_text := erase_character (length (current_line));
endif;
endprocedure;