home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a075 / 1.img / TOOLKIT1.EXE / SST163.PRG < prev    next >
Encoding:
Text File  |  1989-08-08  |  770 b   |  37 lines
  1. ********************
  2.  
  3. FUNCTION The_check
  4.  
  5.    PARAMETERS _quit
  6.  
  7.    IF TYPE("scrsys") = "U"
  8.       scrsys = .T.
  9.    ENDIF
  10.  
  11.    IF EMPTY(PCOUNT())
  12.       _quit = .F.
  13.    ENDIF
  14.  
  15.    PRIVATE _tqa1, _tqb1, _tqd1, _tqe1
  16.  
  17.    IF !FILE(IF(scrsys, "C", "A") + ":\CONFIG.SYS")
  18.       ? "There is no system Configuration file"
  19.       INKEY(2)
  20.       IF _quit
  21.          QUIT
  22.       ELSE
  23.          RETURN(0)
  24.       ENDIF
  25.    ENDIF
  26.    _tqa1 = UPPER(MEMOREAD(IF(scrsys, "C", "A") + ":\CONFIG.SYS"))
  27.    IF EMPTY(AT("FILE", _tqa1))
  28.       RETURN(7)
  29.    ELSE
  30.       _tqb1 = SUBSTR(_tqa1, AT("FILE", _tqa1))
  31.       _tqd1 = SUBSTR(_tqb1, 1, AT(CHR(10), _tqb1) - 1)
  32.       _tqe1 = LTRIM(TRIM(SUBSTR(_tqd1, AT("=", _tqd1)+1)))
  33.       RETURN(VAL(_tqe1))
  34.    ENDIF
  35.  
  36. * End of File
  37.