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