home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p115 / 5.ddi / GCD4 / MEMORY.DAT < prev    next >
Encoding:
Text File  |  1989-11-14  |  1.5 KB  |  71 lines
  1. echo off
  2. clrwin
  3. -- 09/28/89 SJO Created
  4. -- GCD Rev 4.00 Memory Configurator
  5.  
  6. macro DISPLAY_TITLE
  7.    setwin
  8.    setatt 15 1
  9.    clrwin
  10.    title  "╗ microCADDS Geometric Construction and Detailing ╔"
  11.    center "╚        Revision 4.00 Memory Configurator        ╝"
  12. endmac
  13. macro BOTTOM_WINDOW
  14.   setwin 3 10 78 21
  15.   setatt 0 0
  16.   clrwin
  17.   setwin 2 9 77 20
  18.   setatt 15 2
  19.   clrwin
  20.   setatt  1 2
  21. endmac
  22. ------ Display title and create window ------
  23. DISPLAY_TITLE
  24. echo
  25. echo 
  26. center "The GCD Rev 4.00 Memory Configurator will allow you to limit    "
  27. center "the amount of expanded memory available to GCD to leave room for"
  28. center "display lists or exapanded memory virtual disks.  GCD supports  "
  29. center "the Virtual Control Program Interface (VCPI) and will work in   "
  30. center "harmony only with other VCPI programs.                          "
  31. echo
  32.  
  33. setatt 10 1
  34. center "Do you wish to continue [Y/N]?"
  35. setatt 15 1
  36. getsel "YyNn"
  37. clrwin
  38. if select N exit
  39. if select n exit
  40.  
  41. :new_numbers
  42. DISPLAY_TITLE
  43. echo 
  44. echo
  45. echo
  46. center "GCD's default configuration is to use all available VCPI memory."
  47. echo
  48. getvar "          Please enter the new MAXVCPI value:    " V1 8
  49. echo
  50.  
  51. if {V1}@ == @ goto new_numbers
  52.  
  53. center "The new value is {V1}"
  54. echo
  55. center "Is this correct [Y/N]?"
  56. getsel "YyNn"
  57. if select N goto new_numbers
  58. if select n goto new_numbers
  59. clrwin
  60. echo
  61. echo
  62. echo
  63. center "Configuring....."
  64. cfig386 -clear gcd.exe -maxvcpi {V1} -intmap 8 >log
  65. echo 
  66. echo
  67. center "Configuration Complete!"
  68. BOTTOM_WINDOW
  69. type log
  70. :exit
  71.