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