FoxPro/Visual FoxPro - Elemento de un string

Amigos:
Tengo el siguiente problema por resolver:
tengo un string xx = "000000" (seis ceros)
Y de acuerdo a ciertas condiciones deseo cambiar el enesimo elemento por "1". Por ejemplo:
el tercer elemento cambiarlo por "1" de modo que el string queda: "001000"
y posteriormente segun alguna condicion volver a cambiar el string ultimo:
por jemplo el sexto por "1" de modo que el string queda: "001001"

Agradecere vuetra ayuda,
TITO

STORE '000000' TO gcString1
STORE '1' TO gcString2

STUFF(gcString1, 3,1, gcString2) && Reemplazar