FoxPro/Visual FoxPro - programa para separar nombres

alguien tiene un programa que me pueda ayudar a separar nombres ejemplo:
en un campo esta el texto: "MARIA DEL CARMEN"
pero yo lo quiero separar asi : campo1 = "MARIA" y en el campo2 que aparezca el resto "DEL CARMEN"

Te envio el siguiente codigo que se me acaba de ocurrir tu ya lo mejoras de acuerdo a tu necesidad espero te sirva ... me avisas

Ronal

*******estructura de base1.dbf******
** nombre c 25
** campo1 c 25
** campo2 c 25

use base1
do whil !eof()
scat memv
=separa(m.nombre)
gathe memv
skip
enddo

func separa
para xnombre
xnombre=allt(xnombre)
ubicar=0
store space(1) to xnom1,xnom2
for i=1 to len(xnombre)
let=subs(xnombre,i,1)
if let<>space(1)
xnom1=xnom1+let
else
ubicar=i
exit
endif
endfor
xnom2=subs(xnombre,ubicar)
m.campo1=xnom1
m.campo2=xnom2

Excelente ayuda!!! Gracias

No se que tanto te urja, pero si me esperas te lo envio la siguiente semana, es que lo tengo pero no lo puedo sacar ya que la maquina no funciona.

Prueba este procedimiento creando antes las dos variables

store space(20) to nombre1
store space(20) to nombre2
do separar with "MARIA JOSE"
? nombre1
? nombre2

procedure separar
parameters cadena
espacio=atc(" ",alltrim(cadena)) && busca un espacio en blanco dentro de la cadena
if espacio<>0
nombre1=left(alltrim(cadena),espacio-1)
nombre2=right(alltrim(cadena),len(alltrim(cadena))-espacio)
else
nombre1=alltrim(cadena)
nombre2=space(20)
endif
return