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")