home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a075 / 1.img / TOOLKIT1.EXE / SST110.PRG < prev    next >
Encoding:
Text File  |  1989-08-11  |  1.5 KB  |  59 lines
  1. ********************
  2.  
  3. PROCEDURE Chk_config
  4.  
  5.    PARAMETERS _ifquit, _consize, _bufsize, _drive, _row, _col
  6.    
  7.    DO CASE
  8.    CASE PCOUNT() = 0
  9.       _ifquit = .T.
  10.       _consize = 20
  11.       _bufsize = 8
  12.       _drive = "C:"
  13.       _row   = 0
  14.       _col   = 0
  15.    CASE PCOUNT() = 1
  16.       _consize = 20
  17.       _bufsize = 8
  18.       _drive = "C:"
  19.       _row   = 0
  20.       _col   = 0
  21.    CASE PCOUNT() = 2
  22.       _bufsize = 8
  23.       _drive = "C:"
  24.       _row   = 0
  25.       _col   = 0
  26.    CASE PCOUNT() = 3
  27.       _drive = "C:"
  28.       _row   = 0
  29.       _col   = 0
  30.    ENDCASE
  31.  
  32.    IF EMPTY(_drive)
  33.       _drive = "C:"
  34.    ENDIF
  35.  
  36.    IF THE_CHECK(_ifquit) < _consize .OR. THE_BUFF(_ifquit) < _bufsize
  37.       @ _row, _col   CLEAR
  38.       @ _row+1, _col SAY "Not enough FILES/BUFFERS are opened by your CONFIG.SYS file. "
  39.       @ _row+2, _col SAY "                    All Files Closed."
  40.       @ _row+4, _col SAY "Shall I Modify CONFIG.SYS? "
  41.       IF PROMPT()
  42.          MODI_CON(LTRIM(TRIM(TRANSFORM(_consize, "99"))), LTRIM(TRIM(TRANSFORM(_bufsize, "99"))), _drive)
  43.          IF _ifquit
  44.             @ _row+3, _col CLEAR
  45.             @ _row+3, _col SAY "CONFIG.SYS has been re-written!!"
  46.             @ _row+5, _col SAY "Please re-boot your computer..."
  47.             QUIT
  48.          ENDIF
  49.       ELSE
  50.          IF _ifquit
  51.             @ _row+3, _col CLEAR
  52.             @ _row+3, _col SAY "CONFIG.SYS is un-changed!!"
  53.             QUIT
  54.          ENDIF
  55.       ENDIF
  56.    ENDIF
  57.  
  58. * End of File
  59.