procedure eve_fndnxt

eve$find(eve$x_target, 0);

endprocedure;