escribir en un archivo txt

buenas que tal, tengo una consulta para hacerles,
tengo el siguiente archivo piloto.txt con el siguiente contenido:

1111222233333333444444555555
1111555544444444777777999999
1111888899999999555555222222

lo que ncesito es reemplazar el contenido de los 4 primeros caracteres por
0000
Quedando como resultado

0000222233333333444444555555
0000555544444444777777999999
0000888899999999555555222222

Estube mirando la funcion STRTOFILE( ), pero no se como utilizarla.
Al archivo lo abro de la siguiente manera:
FOPEN('piloto.txt',2)
Se que lo puedo hacer pasandola a una tabla, pero me gustaria hacerlo con
las funcion STRTOFILE( ).
Desde ya muchas gracias.