home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p115 / 10.ddi / GCD4 / INSTALL / INSTALL.DAT < prev   
Encoding:
Text File  |  1989-11-14  |  4.3 KB  |  181 lines
  1. echo off
  2. -- 11/14/89 SJO UPL 4.00 Release
  3. -- 01/30/89 SJO UPL 3.20 Release
  4. -- 06/16/87 SJO UPL 3.10 Release
  5. clrwin
  6.  
  7. --  Rev 4.00 UPL load and installation process data file
  8.  
  9. -------- Begin macro definitions -------------------------------------------
  10. macro DISPLAY_TITLE
  11.    setwin
  12.    setatt 15 1
  13.    clrwin
  14.    title  " User Programming Language 4.00 Installation Procedure "
  15. endmac
  16. ----------------------------------------
  17. macro ERROR_WINDOW
  18.   setwin 3 3 75 19
  19.   setatt 0 0
  20.   clrwin
  21.   setwin 2 2 74 18  
  22.   setatt 1 7
  23.   clrwin
  24.   setatt 7 0
  25. endmac
  26. -------- Begin execution -------------------------------------------------
  27. DISPLAY_TITLE
  28.  
  29. ------- Copy UPL Diskette -------- 
  30. :disk_u
  31. echo
  32. setatt 12 1
  33. center "IMPORTANT!"
  34. setatt 15 1
  35. echo                                                                         
  36. center "Welcome to  the UPL Compiler module of microCADDS Geometric Construction"
  37. center "and Detailing  Version 4.00.   This  program will  walk you  through the"
  38. center "installation of  UPL on your hard disk.  To successfully install UPL you"
  39. center "will need a minimum of one megabyte of space on your hard disk.         "
  40. echo 
  41. echo
  42. setatt 10 1
  43. center " Do you wish to install UPL [Y/N]?                                   "
  44. setatt 15 1
  45. getsel "YyNn"
  46. clrwin
  47. if select N goto cleanup
  48. if select n goto cleanup
  49. if infile \DMANTMP "A:\" goto overwrite_attempt
  50. if infile \DMANTMP "B:\" goto overwrite_attempt
  51. goto diskU_copy
  52.  
  53. :overwrite_attempt
  54. ERROR_WINDOW
  55. ECHO 
  56. echo
  57. center "WARNING: You are attempting to overwrite your UPL             "
  58. center "Master Diskette.  Your current drive and path are:            "
  59. echo
  60. type DMANTMP
  61. echo
  62. center "Please review your Installation Procedure and try again.      "
  63. echo
  64. pause
  65. goto end
  66.  
  67.  
  68. :diskU_copy
  69. set gcdormd=\
  70. if exist \MD4\*.* set gcdormd=\MD4
  71. if exist \GCD4\*.* set gcdormd=\GCD4
  72.  
  73. ------- GCD4 \ MD4 Installation ------------------------------------------------
  74. clrwin
  75. echo
  76. echo
  77. echo
  78. center "Copying UPL.EXE to {gcdormd} directory."
  79.  
  80. copy {LOAD}:\GCD4\upl.exe {gcdormd} >\error.fil
  81. if infile \error.fil "Insufficient disk space" goto disk_full
  82.  
  83. setatt 10 1
  84. echo
  85. echo 
  86. center "Do you want to copy the UPL sample programs [Y/N]?"
  87. setatt 15 1
  88. getsel "YyNn"
  89. if select N goto upl_complete
  90. if select n goto upl_complete
  91. clrwin
  92. echo
  93. echo
  94. echo
  95. center "Copying UPL sample programs to {gcdormd}\UPL directory."
  96. if not exist {gcdormd}\UPL\*.* md {gcdormd}\UPL
  97. copy {LOAD}:\GCD4\UPL {gcdormd}\UPL >\error.fil
  98. if infile \error.fil "Insufficient disk space" goto disk_full
  99. goto upl_complete
  100.  
  101. :upl_complete
  102.  
  103. :codes
  104. -- see if internal or dealer box, add codes to \CVOPTION.FIL
  105.  
  106. ------------------------------------------------------------------------
  107. :internal
  108. -- Prime internal, Option number is: 5620 - UPL 4.0 Release
  109. echo "989898 33173 36756 37769 39557 40079 198" >&TMP1
  110. SUBR ADOPTION &TMP1 &TMP2
  111. if not infile &TMP2 Error goto success
  112. goto dealer
  113.  
  114. ------------------------------------------------------------------------
  115. :dealer
  116. -- Dealer, Option number is: 5620 - UPL 4.0 Release
  117. echo "999999 37269 40852 37789 39068 40343 249" >&TMP1
  118. SUBR ADOPTION &TMP1 &TMP2
  119. if not infile &TMP2 Error goto success
  120. goto no_can_do
  121.  
  122. ------------------------------------------------------------------------
  123. :no_can_do
  124. -- For Customers only.
  125. --echo
  126. --echo
  127. --center "Codes not added (not supposed to!)"
  128. --echo 
  129. --pause
  130. goto complete
  131.  
  132. :success
  133. -- For Dealers and Prime Internal only.
  134. echo
  135. echo
  136. center "Codes added!"
  137. echo 
  138. pause
  139.  
  140. :complete
  141. --------------------------------------
  142. clrwin
  143. echo
  144. echo
  145. echo
  146. setatt 15 1
  147. center " User Programming Language Installation complete!!!!! "
  148. echo
  149. center " Please remove diskette and store in a safe place. "
  150. echo 
  151. pause
  152. echo
  153.  
  154. --------------------------------------
  155. goto cleanup
  156.  
  157. :disk_full
  158. ERROR_WINDOW
  159. echo
  160. echo
  161. echo 
  162. center "*** FATAL ERROR ***"
  163. echo 
  164. center "*** HARD DISK FULL ***"
  165. echo 
  166. center "Please backup and delete all unneccesary files from hard disk  "
  167. center "and try again.  UPL requires at least 1 Megabyte of disk space."
  168. echo 
  169. pause
  170.  
  171. :cleanup
  172. -- if not called from GCD/MD4 installation, delete dat file
  173. if not "%1" == FL del >nul \install.dat
  174. del >nul \error.fil
  175. del >nul \cvoption.new
  176. del >nul \&tmp1
  177. del >nul \&tmp2
  178.  
  179. :end
  180. exit
  181.