FoxPro/Visual FoxPro - Como quito los números en una cadena de caracteres

¿Como quito los números en una cadena de caracteres (letras,simbolos y numeros )en foxpro?
por ejemplo tengo una cadena "6fd4j%k(r3"
quiero dejarla "fdj%k(r"
que filtro aplico???
Gracias por sus respuestas

LOCAL lcCadena, lcChar,lnInd, lcCadenaSalida
lcCadena= "6fd4j%k(r3"
lcChar = ""
lnInd = 0
lcCadenaSalida = ""
FOR lnInd = 1 TO LEN(ALLTRIM(lcCadena)
lcChar = SUBSTR(lcCadena,lnInd,1)
IF ISALPHA(lcChar)
lcCadenaSalida = lcCadenaSalida + lcChar
ENDIF
*!* O PUEDES USAR

*!* IF !ISDIGIT(lcChar)
*!* lcCadenaSalida = lcCadenaSalida + lcChar
*!* ENDIF

next

RETUR lcCadenaSalida

*--- Eliminar numeros de una cadena
PUBLIC cadena, nuevo, caracter
cadena = '6fd4j%k(r3'
STORE '' TO caracter, nuevo
FOR I = 1 TO LEN(ALLT(cadena))
caracter = SUBSTR(cadena,I,1)
IF !ISDIGIT(caracter)
nuevo = nuevo + caracter
ENDIF
ENDFOR

Espero te sirva!!!!!! Saludos

cadena = '6fd4j%k(r3'
for i=1 to 10
cadena = strtran(cadena,allt(str(i-1)),"")
endfor