FoxPro/Visual FoxPro - Cómo hago????

Espero alguien pueda darme una pista
Cómo hago para que un programita ordene alfabeticamente, busque y compare la mayor cantidad de letras coincidentes (aproximadamante el 80% del nombre completo de una persona) de un campo llamado "NOMBRES". Propuse letra1=SUBSTR(NOMBRES,K,1), y letra2=SUBSTR(WNOMBRES,J,1) este ultimo es el registro temporal.
Mas información al correo, confirmar recepción Gracias.

Este ejemplo hace una busqueda incremental dentro de una tabla. a traves de unformulario, una cuadricula y una caja de texto.

LOCAL LC, LNRECNO, LCCAMPO,GRI001,TEX001
LCCAMPO="LIBMATERIA.MATNOM" &&Campo con nombres
GRI001="THISFORM.GRID1.SETFOCUS" &&Cuadricula
TEX001="THISFORM.TXTMATNOM.SETFOCUS" &&caja de texto donde ingreso el nombre a buscar

LC= UPPER(ALLTRIM(THIS.VALUE))
LNRECNO=RECNO()
IF UPPER(ALLTRIM(&LCCAMPO)) >= LC
IF UPPER(ALLTRIM(&LCCAMPO)) < LC
IF LNRECNO <= RECC()
GO RECNO()
ELSE
GO BOTT
ENDIF
RETURN
ENDIF

IF NOT EMPTY(ORDER())
SEEK LC
ELSE
GO TOP
LOCATE REST FOR UPPER(ALLTRIM(&LCCAMPO))=LC WHILE UPPER(ALLTRIM(&LCCAMPO)) <= LC NOOPTIMIZE
ENDIF
ELSE
LOCATE REST FOR UPPER(ALLTRIM(&LCCAMPO))=LC WHILE UPPER(ALLTRIM(&LCCAMPO)) <= LC NOOPTIMIZE
ENDIF

IF LNRECNO # RECNO()
&GRI001
&TEX001
ENDIF
RETURN
ENDIF

Ojala te sirva.

Atte ROD