FoxPro/Visual FoxPro - replace

Hola programadores tengo en mi tabla estos codigo L010, L042 etc, necesito reemplazar los codigos que empiezen con L por 1 pero que sigan manteniendo los numeros que siguen por ejm debe de quedar asi 1010, 1042 tengo este codigo pero me borra todo

replace codigo with left("1",1) for codigo="L"

el campo código es caracter .. ?

prueba asi

replace tu_campo with '1' + substr(tu_campo,2) For SubStr(tu_campo,1,1) == 'L'

Gracias a todos