home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a085 / 1.ddi / EXP16_5.PRG < prev    next >
Encoding:
Text File  |  1994-01-12  |  2.2 KB  |  97 lines
  1. *⌐░⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐┤
  2. *⌐ª      Program: EXP16_5.PRG                                          ⌐ª
  3. *⌐ª     Function: ╩╣╙├ Low-level File ║»╩²╨▐╕─ CONFIG.SYS ╬─╝■╡─╖╢└².  ⌐ª
  4. *⌐ª   DBF & File: CONFIG.SYS   CONFIG.SBK   CONFIG.SY2                 ⌐ª
  5. *⌐╕⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╝
  6. SET TALK OFF
  7. SET ESCAPE OFF
  8. SET SYSMENU OFF
  9. SET SAFETY OFF
  10.  
  11. * CONFIG.SYS ╝∞▓Θ: ╓╗╘┌╡▒╟░─┐┬╝╧┬╝∞▓Θ CONFIG.SYS ╩╟╖±┤µ╘┌,
  12. * ╚⌠╖╟╘┌╕∙─┐┬╝╧┬╓┤╨╨┤╦│╠╨≥, C:\CONFIG.SYS ▓╗╗ß▒╗╨▐╕°╕─.
  13.  
  14. mchange = .F.
  15.  
  16. IF !FILE("config.sys")
  17.    mhandle = FCREATE("config.sys")
  18.    newconf = .T.
  19. ELSE
  20.    COPY FILE config.sys TO config.sbk
  21.    mhandle = FOPEN("config.sbk")
  22.    mhandle2= FCREATE("config.sy2")
  23.    newconf = .F.
  24. ENDIF
  25.  
  26. IF mhandle = -1
  27.    WAIT   "╬▐╖¿┤≥┐¬╗≥╜¿┴ó CONFIG.SYS, ╖┼╞·"  WINDOW
  28.    CLOSE ALL
  29.    RETURN
  30. ENDIF
  31.  
  32. mbuff = .F.
  33. mfile = .F.
  34. IF !newconf
  35.    DO WHILE !FEOF(mhandle)
  36.       MLINE = FGETS(mhandle)
  37.  
  38.       DO CASE
  39.       CASE 'BUFFER' $ UPPER(MLINE)
  40.          val_pos = AT('=',MLINE)
  41.          VAL     = VAL(ALLTRIM(SUBSTR(MLINE,(val_pos+1))))
  42.          * ╚τ╣√ BUFFERS<35, ╘≥╓╪╨┬╔Φ╬¬ 35
  43.          IF VAL < 35
  44.             mchange = .T.
  45.             MLINE   = 'BUFFERS=35'
  46.          ENDIF
  47.          mbuff = .T.
  48.  
  49.       CASE 'FILE' $ UPPER(MLINE)
  50.          val_pos = AT('=',MLINE)
  51.          VAL     = VAL(ALLTRIM(SUBSTR(MLINE,(val_pos+1))))
  52.  
  53.          IF VAL < 50
  54.             * ╚τ╣√ FILES<50, ╘≥╓╪╨┬╔Φ╬¬ 50
  55.             mchange = .T.
  56.             MLINE   = 'FILES=50'
  57.          ENDIF
  58.          mfile = .T.
  59.       ENDCASE
  60.       =FPUTS(mhandle2,MLINE)
  61.    ENDDO
  62. ELSE
  63.    MLINE   = 'FILES=50'
  64.    =FPUTS(mhandle,MLINE)
  65.    MLINE   = 'BUFFERS=35'
  66.    =FPUTS(mhandle,MLINE)
  67.    mbuff = .T.
  68.    mfile = .T.
  69. ENDIF
  70.  
  71. IF !mfile
  72.    MLINE   = 'FILES=50'
  73.    =FPUTS(mhandle2,MLINE)
  74.    mchange = .T.
  75. ENDIF
  76.  
  77. IF !mbuff
  78.    MLINE   = 'BUFFERS=35'
  79.    =FPUTS(mhandle2,MLINE)
  80.    mchange = .T.
  81. ENDIF
  82.  
  83. =FCLOSE(mhandle)
  84.  
  85. IF !newconf
  86.    =FCLOSE(mhandle2)
  87. ENDIF
  88.  
  89. IF mchange .AND. !newconf
  90.    DELETE FILE config.sys
  91.    RENAME config.sy2 TO config.sys
  92. ELSE
  93.    DELETE FILE config.sy2
  94.    DELETE FILE config.sbk
  95. ENDIF
  96. RETURN
  97.