home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a085 / 1.ddi / INSTALL.PRG < prev    next >
Encoding:
Text File  |  1994-01-12  |  4.2 KB  |  130 lines
  1. *⌐░⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐┤
  2. *⌐ª      Program: INSTALL_9.PRG                                        ⌐ª
  3. *⌐ª     Function: ╩╣╙├ Low-Level File ║»╩²╨┤┼·┤ª└φ╬─╝■║═▒α╝¡           ⌐ª
  4. *⌐ª               CONFIG.SYS  ╬─╝■╡─╙ª╙├╖╢└².                          ⌐ª
  5. *⌐╕⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╝
  6. CLEAR
  7. SET ESCAPE OFF
  8. SET TALK OFF
  9. SET SAFETY OFF
  10. SET SCOREBOARD OFF
  11. SET STATUS OFF
  12. SET CONFIRM ON
  13. SET ECHO OFF
  14. SET SYSMENU OFF
  15. SET CONFIRM OFF
  16. bdrive = "C:"
  17. idrive = "A:"
  18.  
  19. DEFINE WINDOW install FROM 5,10 TO 19,70 ;
  20.        COLOR SCHEME 7 SHADOW ;
  21.        TITLE " ╗╢╙¡╩╣╙├ ABC ░▓╫░│╠╨≥ "
  22. WAIT  " ╜¿┴ó┼·┤ª└φ╬─╝■, ┐¬╩╝ ABC │╠╨≥... " WINDOW NOWAIT
  23.  
  24. IF FILE("ABC.BAT")
  25.    ERASE ABC.BAT
  26. ENDIF
  27.  
  28. * ╜¿┴ó ABC.BAT
  29. fhandle = FCREATE("ABC.BAT")
  30. = FPUTS(fhandle,"ECHO OFF")
  31. = FPUTS(fhandle,"CLS")
  32. = FPUTS(fhandle,SET("DEFAULT"))
  33. = FPUTS(fhandle,"CD"+SYS(2003))
  34. = FPUTS(fhandle,"foxr -t abcmain")
  35. = FCLOSE(fhandle)
  36.  
  37. ACTIVATE WINDOW install
  38. @ 1,6 SAY "╘┌─π╡─╡▒╟░─┐┬╝╓╨, ╥╤╜¿┴ó┴╦┼·┤ª└φ╬─╝■: ABC.BAT. "
  39. @ 2,6 SAY "─π┐╔╥╘╕°╒Γ╕÷╬─╝■╓╪╨┬├ⁿ├√, ╡½└⌐╒╣├√▒╪╨δ╩╟ .BAT,"
  40. @ 3,6 SAY "▓ó╟╥┐╔╥╘░╤╦ⁿ┐╜▒┤╡╜─π╡─┬╖╛╢╡─╚╬╥Γ─┐┬╝╓╨. "
  41. @ 4,6 SAY "╝ⁿ╚δ╬─╝■├√ (╡▒╟░╩╟ ABC) ╘┘░┤ ENTER ╝ⁿ, ╛═┐¬╩╝╓┤"
  42. @ 5,6 SAY "╨╨ ABC  │╠╨≥. "
  43. WAIT " ░┤╚╬╥╗╝ⁿ╥╘╝╠╨° " WINDOW
  44.  
  45. * ╜½ files.lst ╓╨╡─╬─╝■┐╜▒┤╡╜─┐▒Ω┼╠
  46. okay =  .T.
  47. IF okay
  48.    WAIT WINDOW NOWAIT " ░▓╫░╨┬╩²╛▌╬─╝■... "
  49.    fhandle = FOPEN(idrive+"files.lst")
  50.    DO WHILE !FEOF(fhandle)
  51.       thisfile = FGETS(fhandle)
  52.       COPY FILE (idrive+thisfile) TO (bdrive+thisfile)
  53.    ENDDO
  54.    = FCLOSE(fhandle)
  55.    WAIT CLEAR
  56. ENDIF
  57.  
  58. * ╝∞▓Θ CONFIG.SYS ╬─╝■
  59. cfgfile = bdrive+"\CONFIG.SYS"
  60. chg_cfg = .F.
  61. needfiles = 60
  62. IF FILE(cfgfile)
  63.    IF  val(sys(2010)) < needfiles
  64.       CLEAR
  65.       @ 1,6 SAY "╒Γ╥╗╬─╝■: "+cfgfile+" ╥╤┤µ╘┌, ╥¬╘╦╨╨╒Γ╥╗│╠╨≥,"
  66.       @ 2,6 SAY "▒╪╨δ░ⁿ║¼╥╘╧┬┼Σ╓├: "
  67.       @ 3,6 SAY "        FILES = "+ALLTRIM(STR(needfiles))
  68.       @ 4,6 SAY "        BUFFERS = 20"
  69.       @ 5,6 SAY "─π╡▒╟░╡─ CONFIG.SYS file ░ⁿ║¼╡─ FILES ╓╡╠½╨í. "
  70.       @ 6,6 SAY "░┤ <Y> ╜½╬¬─π╨▐╕─╒Γ╥╗╬─╝■, ╖±╘≥─π┐╔╫╘╨╨▒α╝¡"
  71.       @ 7,6 SAY "      : "     GET chg_cfg PICTURE "Y"
  72.       READ
  73.       IF chg_cfg
  74.          WAIT WINDOW NOWAIT ;
  75.             "╓╪╨┬├ⁿ├√─π╡─ "+cfgfile+;
  76.             " ╡╜ "+bdrive+"\EXCONFIG.SYS ▓ó╓╪╨┤... "
  77.          COPY FILE (cfgfile) TO (bdrive+"\EXCONFIG.SYS")
  78.          ERASE (cfgfile)
  79.          fhandle = FOPEN(bdrive+"\EXCONFIG.SYS")
  80.          csize = FSEEK(fhandle,0,2)
  81.          = FSEEK(fhandle,0)
  82.          cnewfile = FCREATE(cfgfile)
  83.          ctext = FREAD(fhandle,csize)
  84.          filespos = ATCLINE("files",ctext)
  85.          IF filespos = 0
  86.             ctext = "FILES = "+ALLTRIM(STR(needfiles))+;
  87.                CHR(13)+CHR(10)+ctext
  88.          ELSE
  89.             cline = MLINE(ctext,filespos)
  90.             ctext = STRTRAN(ctext,cline, ;
  91.                   "FILES = "+ALLTRIM(STR(needfiles)))
  92.          ENDIF
  93.          buffpos = ATCLINE("buffers",ctext)
  94.          IF buffpos = 0
  95.             ctext = "BUFFERS = 20"+CHR(13)+CHR(10)+ctext
  96.          ELSE
  97.             cline = MLINE(ctext,buffpos)
  98.             ctext = STRTRAN(ctext,cline,"BUFFERS = 20")
  99.          ENDIF
  100.          = FWRITE(cnewfile,ctext)
  101.          = FCLOSE(fhandle)
  102.          = FCLOSE(cnewfile)
  103.          CLEAR
  104.          @ 5,6 SAY "╚τ╣√─π╡─ CONFIG.SYS ╬─╝■╥╤╛¡╕─▒Σ, ╘┌┐¬╩╝  ABC.BAT "
  105.          @ 6,6 SAY "│╠╨≥╟░╟δ╓╪╨┬╞⌠╢»─π╡─╝╞╦π╗·╧╡═│! "
  106.       ELSE
  107.          @ 8,6 CLEAR
  108.          @ 9,6 SAY  "╫ó╥Γ: ╘┌╘╦╨╨ ABC │╠╨≥╟░, ─π╡─ CONFIG.SYS ╓╨╡─ FILES"
  109.          @ 10,6 SAY "║═ BUFFERS ▒╪╨δ▒╚╧╓╘┌╡─╕▀! "
  110.       ENDIF
  111.       WAIT " ░┤╚╬╥╗╝ⁿ╥╘╝╠╨° " WINDOW
  112.    ENDIF
  113. ELSE
  114.    WAIT WINDOW NOWAIT "╜¿┴ó CONFIG.SYS ╬─╝■... "
  115.    fhandle = FCREATE(cfgfile)
  116.    = FPUTS(fhandle,"FILES = "+ALLTRIM(STR(needfiles)))
  117.    = FPUTS(fhandle,"BUFFERS = 20")
  118.    = FCLOSE(fhandle)
  119.    CLEAR
  120.    @ 1,6 SAY "╥╗╕÷├√╬¬ "+cfgfile+"  ╡─╬─╝■▒╗╘÷╝╙╡╜─π╡─┤┼┼╠"
  121.    @ 2,6 SAY "╡─╡▒╟░─┐┬╝╧┬, ╦ⁿ░ⁿ║¼╙╨╥╘╧┬╨╨:"
  122.    @ 3,6 SAY "        FILES = "+ALLTRIM(STR(needfiles))
  123.    @ 4,6 SAY "        BUFFERS = 20"
  124.    @ 6,6 SAY "╚τ╣√╞Σ╦ⁿ╡─│╠╨≥╨Φ╥¬╕─▒Σ CONFIG.SYS ╬─╝■, ╟δ▓╗╥¬"
  125.    @ 7,6 SAY "╔╛│²╒Γ┴╜╠⌡╗≥╚í╜╧╨í╡─╓╡. "
  126.    @ 8,6 SAY "╘┌┐¬╩╝  ABC │╠╨≥╟░, ╟δ╓╪╨┬╞⌠╢»─π╡─╝╞╦π╗·"
  127.    WAIT " ░┤╚╬╥╗╝ⁿ╥╘╝╠╨° " WINDOW
  128. ENDIF
  129. QUIT
  130.