home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a085 / 1.ddi / EXP16_6.PRG < prev    next >
Encoding:
Text File  |  1993-11-23  |  3.9 KB  |  121 lines
  1. *⌐░⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐┤ 
  2. *⌐ª      Program: EXP16_6.PRG                                          ⌐ª
  3. *⌐ª     Function: ╩╣╙├ Low-Level File ║»╩²╝∞▓Θ╧╡═│┼Σ╓├╬─╝■ CONFIG.SYS  ⌐ª
  4. *⌐ª               ╡─╙ª╙├╖╢└².                                          ⌐ª
  5. *⌐ª   Creat data: 93.10                                                ⌐ª
  6. *⌐╕⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╝
  7. SET TALK OFF
  8. PUBLIC mdrive
  9. STORE "C:" TO mdrive
  10. DEFINE WINDOW win1 FROM  3, 2 TO  9,77 FLOAT SHADOW COLOR SCHEME 7
  11. DEFINE WINDOW win2 FROM 10, 2 TO 14,77 FLOAT SHADOW COLOR SCHEME 7
  12. DEFINE WINDOW win3 FROM  2, 0 TO 23,79  ;
  13.        TITLE  "  ╧╡ ═│ ▓╬ ╩² ╔Φ ╓├  " FLOAT  COLOR SCHEME 5
  14. DEFINE WINDOW win4 FROM 20, 40 TO 22,70  FLOAT SHADOW COLOR SCHEME 7
  15. SET CURSOR OFF
  16. DO win1 WITH "╝∞ ▓Θ ╧╡ ═│ ┼Σ ╓├ ╬─ ╝■ CONFIG.SYS ╓╨ FILES ║═ BUFFERS "+;
  17.              "╡─ ╔Φ ╢¿ ╓╡"
  18. DO WHILE .NOT. FILE(mdrive + "\CONFIG.SYS")
  19.    STORE " " TO mdrive
  20.    ACTIVATE WINDOW win1
  21.    CLEAR
  22.    SET CURSOR ON
  23.    @  1, 2 SAY " ╬▐ ╖¿ ╒╥ ╡╜ ╧╡ ═│ ┼Σ ╓├ ╬─ ╝■ CONFIG.SYS "
  24.    @  2, 2 SAY " ╟δ ╩Σ ╚δ ┤┼ ┼╠ ┤· ║┼ ╗≥ ░┤ [ESC] ╝ⁿ ═╦ │÷ "
  25.    @  3, 2 SAY " ╧╡ ═│ ┼Σ ╓├ ╬─ ╝■  CONFIG.SYS ╦∙ ╘┌ ╡─ ┤┼ ┼╠: " ;
  26.    GET mdrive PICTURE "!"
  27.    READ
  28.    IF mdrive = SPACE(1)
  29.       DO win1 WITH "CLOSE"
  30.       RETURN
  31.    ENDIF
  32.    STORE mdrive + ":" TO mdrive
  33. ENDDO
  34. DO win1 WITH "CLOSE"
  35. config = FOPEN(mdrive + "\CONFIG.SYS")
  36.  
  37. IF config<0
  38.    IF FERROR()<>0
  39.       DO CASE
  40.          CASE FERROR()=2
  41.               WAIT " ╒╥▓╗╡╜┤╦╬─╝■! "  WINDOW
  42.          CASE FERROR()=4
  43.               WAIT " ┤≥┐¬╬─╝■╠½╢α!! "  WINDOW
  44.          CASE FERROR()=5
  45.               WAIT " ├ⁿ┴ε╓┤╨╨╖╜╩╜┤φ╬≤! "  WINDOW
  46.          CASE FERROR()=6
  47.               WAIT " ╬─╝■├√┤φ! "  WINDOW
  48.          CASE FERROR()=8
  49.               WAIT " │¼╣²─┌┤µ╖╢╬º! "  WINDOW
  50.          CASE FERROR()=25
  51.               WAIT " ╝∞╦≈┤φ╬≤! "  WINDOW
  52.          CASE FERROR()=29
  53.               WAIT " ┤┼┼╠╬▐╩ú╙α┐╒╝Σ! "  WINDOW
  54.          CASE FERROR()=31
  55.               WAIT " ╞Σ╦ⁿ╥╗░π┤φ╬≤! "  WINDOW
  56.       ENDCASE
  57.    ENDIF
  58.    RETURN
  59. ENDIF
  60.  
  61. STORE 0 TO fileset, bufferset
  62. STORE .t. TO win3
  63. DO WHILE win3 .AND. ferror() = 0
  64.    inputline = fgets(config)
  65.    DO CASE
  66.    CASE "FILES" $ UPPER(inputline)
  67.       STORE VAL(LTRIM(SUBSTR(inputline,AT("=",inputline)+1))) TO fileset
  68.    CASE "BUFFERS" $ UPPER(inputline)
  69.       STORE VAL(LTRIM(SUBSTR(inputline,AT("=",inputline)+1))) TO bufferset
  70.    ENDCASE
  71.    IF FILESET # 0 .AND. bufferset # 0
  72.       STORE .F. TO win3
  73.    ENDIF
  74. ENDDO
  75. = FCLOSE(config)
  76.  
  77. DO win1 WITH "CLOSE"
  78. ACTIVATE WINDOW win3
  79. @  3, 4 SAY "  CONFIG.SYS FILES  = " + LTRIM(STR(fileset,4))
  80. @  4, 4 SAY "CONFIG.SYS BUFFERS  = " + LTRIM(STR(bufferset,4))
  81. @  5, 4 SAY "        ╧╘╩╛╞≈└α╨═  = " + SYS(2006)
  82. @  6, 4 SAY "       FOXPRO ░µ▒╛  = " + SUBSTR(VERSION(1),1,37)
  83. @  7,28 SAY  SUBSTR(VERSION(1),38)
  84. @  8, 4 SAY "    ╡▒╟░╩╣╙├╡──┐┬╝  = " + CURDIR()
  85. @  9, 4 SAY "FOXABLE BASE MEMORY = " + LTRIM(SYS(12))
  86. @ 10, 4 SAY "  FOXABLE MEM W/EMS = " + LTRIM(SYS(1001))
  87. @ 11, 4 SAY "   ┐╔╩╣╙├╡─┤┼┼╠┐╒╝Σ = " +;
  88.             LTRIM(transform(diskspace(),"999,999,999"))
  89. @ 12, 4 SAY "     ╞┴─╗╗¡├µ╡─│▀┤τ = " + STR(SROWS(),2) + " X" +;
  90.             TRIM(str(SCOLS(),3))
  91. @ 14, 4 SAY PADC(" ╫ó: 'Foxable' ▒φ╩╛─▄╬¬ FoxPro ╦∙╩╣╙├. ",WCOLS())
  92.  
  93. DO win4
  94.  
  95. SET CURSOR ON
  96. DEACTIVATE WINDOW win3
  97.  
  98. PROCEDURE win1
  99. PARAMETER message1, message2, message3
  100. IF message1 = "CLOSE"
  101.    DEACTIVATE WINDOW win1
  102. ELSE
  103.    ACTIVATE WINDOW win1
  104.    CLEAR
  105.    @  1, 4 SAY SPACE(1) + LEFT(message1 + SPACE(71),71) + SPACE(1)
  106.    @  2, 4 SAY SPACE(1) ;
  107.       + LEFT(IIF(parameters() < 2, SPACE(71), message2) +;
  108.         SPACE(71),71) + SPACE(1)
  109.    @  3, 2 SAY SPACE(1) ;
  110.       + LEFT(IIF(parameters() < 3, SPACE(71), message3) +;
  111.         SPACE(71),71) + SPACE(1)
  112.    WAIT "     ╟δ ░┤ ╚╬ ╥╗ ╝ⁿ ╝╠ ╨°  "
  113. ENDIF
  114. RETURN
  115.  
  116. PROCEDURE win4
  117. ACTIVATE WINDOW win4
  118. WAIT "     ╟δ ░┤ ╚╬ ╥╗ ╝ⁿ ╝╠ ╨°  "
  119. DEACTIVATE WINDOW win4
  120. RETURN
  121.