FoxPro/Visual FoxPro - archivos de bajo nivel 2

Aqui va el codigo

LPARAMETERS arch
LOCAL dir_archivo, renglon, ar_ren
ar_ren=arch
dir_archivo=0
renglon=SPACE(0)
IF FILE(arch)
rta=MESSAGEBOX("El archivo ya existe, si no acepta renombrarlo será sobreescrito, desea renombrarlo con extencion .old",68,"Archivo existente")
IF rta=6
RENAME (ar_ren) TO SUBSTR(ar_ren,1,RAT(".",ar_ren))+"old"
ENDIF
ELSE
dir_archivo= FCREATE(arch,0) && Crea archivo

IF dir_archivo < 0 && Comprobar si hay error al abrir el archivo
mensaje="Imposible abrir o crear archivo deseado, verifique que no esté siendo utilizado por otra aplicación o la unidad este protegida contra escritura"
MESSAGEBOX(mensaje,64,"Error de Escritura de bajo nivel")
ELSE && Si no hay error, escribir en archivo
SELECT corri_int
GO TOP
DO WHILE !EOF()
SCATTER MEMVAR
renglon=LEFT(col1,7)+CHR(9)
renglon=renglon+LEFT(col2,7)+CHR(9)
renglon=renglon+LEFT(col3,7)+CHR(9)
renglon=renglon+LEFT(col4,7)+CHR(9)
renglon=renglon+LEFT(col5,7)+CHR(9)
renglon=renglon+LEFT(col6,7)+CHR(9)
renglon=renglon+LEFT(col7,7)+CHR(9)
renglon=renglon+LEFT(col8,7)+CHR(9)
=FPUTS(dir_archivo,(renglon))
SELECT corri_int
SKIP 1
ENDDO
ENDIF
=FCLOSE(dir_archivo) && Cerrar archivo
ENDIF
RETURN