Try using SCATTER MEMO TO laArray in a SCAN-ENDSCAN loop. This gives each of the fields into an array which then can be directed to a file:

lcOutput = ""
SCAN FOR !DELETED()
   SCATTER MEMO TO laArray
   FOR lnNdx=1 TO ALEN(laArray,1)
      lcOutput = lcOutput + laArray[lnNdx] + CHR(9)
   ENDFOR
   lcOutput = lcOutput +CHR(10) + CHR(13)
ENDSCAN
FILETOSTR(lcOutput, "MyFile.txt")