FoxPro/Visual FoxPro - escribir en archivo txt

Hola amigos de LWP queria pedirles un poco de ayuda.

Necesito guardar ciertos datos en un archivo de texto de momento lo hago asi

SELECT DETALLE
SCAN
IF FILE('c:\archivo.txt') = .T.
cArchivo2 = FOPEN('C:\archivo.txt',2)
opc = 1
ELSE
cArchivo2 = FCREATE('C:\archivo.txt',0)
opc = 2
ENDIF

strCadena = "Lo que quiero guardar, linea n"

IF opc = 1
**Es la parte que no se como hacer
ELSE
FWRITE(cArchivo2,strCadena)
ENDIF
FCLOSE(cArchivo2)

ENDSCAN

Como hacer para que si ya existe el archivo, no lo sobre escriba, sino que se agregue al final y quede algo asi:

linea 1
linea 2
linea 3

De ante mano muchas gracias

Para escribir al final tienes varias opciones. Las que más uso.

1) con Strtofile()
lcFile="c:\carpeta\archivo.txt"
lcCadena="Datos al final del archivo"
Strtofile( lcCadena+chr(13) , lcFile ,1)


2) con Fopen
if file(lcFile)
lnHand=fopen(lcFile,2)
else
lnHand=fcreate(lcfile)
endif
=fseek(lnHand,0,2)
=fputs(lnHand , lcCadena )
=fclose(lnHand)

Para intercalar, dependerá del tipo de archivo. Si tiene etiquetas (tags) como para identificar le punto de intercalado o utilizas un numeral. Generalmente se mete el contenido en un array y se sobreescribe todo el archivo.
lnIntercal=5
lcIntercalado = "Texto que se necesita intercalar"
local array laLines(1)
lnLines=0
lnHand = fopen(lcFile,2)
do while !feof(lnHand)
lnLines = lnLines + 1
dimension lalines(lnLines)
lalines[lnLines] = fgets(lnHand, 8192)
enddo
=fclose(lnHand)
lcString = ""
for i= 1 to lnInterCal
lcString = lcString + lalines[i] + Chr(13)
next
lcString = lcString + lcIntercalado + chr(13)
for i =lnIntercal+1 to lnLInes
lcSTring = lcString + laLines[i] + chr(13)
next
StrTofile(lcString + chr(13) , lcFile, 0 )