Cadena de Texto

NoStress!!!
13 de Febrero del 2003
Bueno, partiendo de una Cadena de Texto, que puede ser en un tabla, o una variable, estoy tratando de apartar las letras y numeros en cadenas nuevas. Estoy usando las funciones substr, y otras, pero no obtengo resultado. Si alguien puede ayudarme, de la manera posible, estaria muy agradecido.
Esperando, su respuesta, me despido.
NO STRESS!!!

osvaldo
13 de Febrero del 2003
***
cad = "Panama 2003 Puente del Mundo"
cadena_numero = ""
cadena_letras = ""

IF len(cad) > 0
FOR i = 1 to len(cad)
valor = subst(cad,i,1)
IF isdigit(valor)
cadena_numero = cadena_numero + valor
ELSE
cadena_letras = cadena_letras + valor
ENDIF
ENDFOR
ELSE
WAIT wind "la cadena esta vacia..."
ENDIF