PARAMETERS FN BUFFER=" " HANDLE=FOPEN(FN,2) IF HANDLE>-1 FREAD(HANDLE,@BUFFER,1) FBYTE=ASC(BUFFER) FSEEK(HANDLE,0,0) IF FBYTE=3 FWRITE(HANDLE,CHR(26),1) ENDIF FCLOSE(HANDLE) ENDIF RETURN .T.