PROCEDURE FINDHELP
local x, pat;
pat := line_begin & any("0987654321");
x := search(pat,forward);
if x <> 0 
 then position(x);
 move_horizontal(1);
endif
endprocedure