DECLARE INTEGER _flushall IN MSVCRT ? _flushall() Or: Function FlushBuffersOfT CLOSE ALL CLEAR ALL LOCAL aFileSet[1,5], nNumFiles, nFile, nFH, cChar, lResource, cResource lResource = SET('RESOURCE') = 'ON' cResource = SET('RESOURCE',1) SET RESOURCE OFF nNumFiles = ADIR(aFileSet,FULLPATH(CURDIR()) + '*.??T') FOR nFile = 1 TO nNumFiles IF aFileSet[nFile,2] > 0 nFH = FOPEN(FULLPATH(CURDIR()) + aFileSet[nFile,1],2) && buffered write =FSEEK(nFH,-1,2) && before EOF cChar = FREAD(nFH,1) && read a char =FSEEK(nFH,-1,2) && before EOF =FWRITE(nFH,cChar) && write a char =FFLUSH(nFH) && flush buffer =FCLOSE(nFH) && close ENDIF ENDFOR DECLARE INTEGER _flushall IN MSVCRT IF lResource SET RESOURCE TO (cResource) SET RESOURCE ON ENDIF RETURN _flushall()This is off the top of my head again, so watch it.