FoxPro/Visual FoxPro - Tengo un_a duda =(

HOla gracias por leer esta nota...................

tengo un problemita, tengo qe hacer un programa que calcule el factorial de un numero en en vfpro,
ese no es problema por que eso ya lo tengo, pero si me falta que cada uno de los resultados que se tenga antes de obtener el numero del factorial final, se debe de almacenar cada uno de estos en un archivo de texto decir
2
6
12
16
etc....
pero uso
archivo=fopen(archivo.txt,2)
fwrite(archivo,variable_factorial)
fclose(archivo)
pero
1.- no escribe nada
2.-y si lo escribe solo lo pone en una linea la cadena y no hace un salto de linea..
3.-fclose no cierra nada..
ojala me puedan ayudar gracias...a todos(as)
ATTe. su servidor marti_n

Te envio el codigo de un programa que abre dos ficheros y encripta uno de ellos ...es un ejemplo de uso del fopen y demas familia ... si quieres forzar el que ponga un fin de linea usa fputs , escribe un fin delinea automaticamente , creo recordar ....

** Intento de encriptacion y posterior desencriptacion
clave='34512367'
if file('c:\impresos.rtf')
cuenta=0
fichero=fopen('c:\impresos.rtf',0)
completo=fseek(fichero,0,2)
comienzo=fseek(fichero,0)
fichero2=fcreate('c:\imprencr.rtf',0)
do while cuenta<=completo
destino=''
cuenta=cuenta+200
if cuenta<=completo
cadena=fread(fichero,200)
else
cadena=fread(fichero,completo-(cuenta-200))
cuenta=completo+1
endif
y=0
for x=1 to len(cadena)
if substr(cadena,x,1)#' '
k=val(substr(clave,round(mod(x,len(clave)),0),1))
y=y+1
if y>3
y=0
endif
letra=substr(cadena,x,1)
destino=destino+substr(stuff(cadena,x,1,chr(asc(letra)+(y+k))),x,1)
else
destino=destino+substr(cadena,x,1)
endif
next x
=fwrite(fichero2,destino)
loop
enddo
=fclose(fichero)
=fclose(fichero2)
else
wait window 'El fichero no existe'
endif