home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a075 / 1.img / TOOLKIT1.EXE / SST202.PRG < prev    next >
Encoding:
Text File  |  1989-08-08  |  710 b   |  36 lines
  1. *********************
  2.  
  3. FUNCTION Unprotect
  4.  
  5.    PARAMETERS _file
  6.  
  7.    IF PCOUNT() != 1
  8.       RETURN(.F.)
  9.    ELSEIF TYPE("_file") != "C"
  10.       RETURN(.F.)
  11.    ENDIF
  12.  
  13.    _file = TRIM(LTRIM(UPPER(_file)))
  14.  
  15.    PRIVATE _val, _fhandle
  16.  
  17.    IF !FILE(_file)
  18.       RETURN(.F.)
  19.    ELSE
  20.       _fhandle = FOPEN(_file, 2)
  21.       _val = "  "
  22.       FREAD(_fhandle, @_val, 2)
  23.       IF ASC(_val) = 26
  24.          FSEEK(_fhandle, 0)
  25.          _val = IF(FILE(STRTRAN(_file, ".DBF", "") + ".DBT"), I2BIN(131), I2BIN(3))
  26.          FWRITE(_fhandle, _val)
  27.          FCLOSE(_fhandle)
  28.          RETURN((FERROR() = 0))
  29.       ELSE
  30.          FCLOSE(_fhandle)
  31.          RETURN(.F.)
  32.       ENDIF
  33.    ENDIF
  34.  
  35. * End of File
  36.