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.