Duda con IF Found()Foxpro

Tengo un problema al hace la búsqueda en una tabla que solo tiene 2 campos, quiero que cuando presione una letra la ventana busque la palabra que comience con esa letra, este es el código que tengo.

procedure _vcoc
******************
se le 9
set order to 2
go top
if !empty(_rcoc)
seek _rcoc
if found()
@ 12,61 say left(ltrim(rtrim(des_op_con)),7) pict "@!" color "n+/w"
_rtc2 = cod_contab
else
on key label enter keyboard chr(27)
define window _wbuscar from 10,20 to 20,60 title 'Listado de Oper. Contables'
go top
browse fields cod_op_con :h="Código",des_op_con :h="Descripci¢n" ;
noedit noappend nodelete nomenu window _wbuscar color w+/g
release window _wbuscar
_rcoc = cod_op_con
_rtc2 = cod_contab
@ 12,61 say left(ltrim(rtrim(des_op_con)),7) pict "@!" color "n+/w"
on key label enter
endif
else
on key label enter keyboard chr(27)
define window _wbuscar from 10,20 to 20,60 title 'Listado de Oper. Contables'
go top
browse fields cod_op_con :h="Código",des_op_con :h="Descripci¢n" ;
noedit noappend nodelete nomenu window _wbuscar color w+/g
release window _wbuscar
_rcoc = cod_op_con
_rtc2 = cod_contab
@ 12,61 say left(ltrim(rtrim(des_op_con)),7) pict "@!" color "n+/w"
on key label enter
endif
_rc02 = _rtc2
show gets