home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p044 / 1.img / MSTATION.INF < prev    next >
Encoding:
INI File  |  1993-10-28  |  27.0 KB  |  862 lines
  1. DefineVariables
  2.   Number [SizeOfBase]
  3.   Number [SizeOfMin]
  4.   Number [SizeOfBaseMDL]
  5.   Number [SizeOfAll]
  6.   Number [SizeOfFullUstn]
  7.   Number [SizeOfMech]
  8.   Number [SizeOfModel]
  9.   Number [SizeOfArch]
  10.   Number [SizeOfCivil]
  11.   Number [SizeOfMap]
  12.   Number [SizeOfFullMech]
  13.   Number [SizeOfFullModel]
  14.   Number [SizeOfFullArch]
  15.   Number [SizeOfFullCivil]
  16.   Number [SizeOfFullMap]
  17.   Number [SizeOfOnlyMech]
  18.   Number [SizeOfOnlyModel]
  19.   Number [SizeOfOnlyArch]
  20.   Number [SizeOfOnlyCivil]
  21.   Number [SizeOfOnlyMap]
  22.   Number [InstalledLearn]
  23.   Number [InstalledMech]
  24.   Number [InstalledMap]
  25.   Number [InstalledCivil]
  26.   Number [InstalledArch]
  27.   Number [SetWindows]
  28.   Number [xnumber10]
  29.   Number [xnumber11]
  30.   Number [xnumber12]
  31.   Number [xnumber13]
  32.   Number [xnumber14]
  33.   Number [xnumber15]
  34.   Number [xnumber16]
  35.   Number [xnumber17]
  36.   Number [xnumber18]
  37.   Number [xnumber19]
  38.   Number [xnumber20]
  39.   Number [insideget]
  40.   Number [JustSetWin]
  41.   Number [UnAttended]
  42.   Text   [FileString]
  43.   Text   [InstallType]
  44.   Text   [FileName]
  45. EndDefineVariables
  46.  
  47. [insideget] := 0
  48. [UnAttended] := 0
  49. [JustSetWin] := 0
  50. SetAllowExit off
  51. SetCheckmarks Off
  52. LetButton <Esc> Do ourExitProc
  53. ;;SetCompletionStatusTo Finished
  54. ;;DetermineInstallationDirectory
  55. ;;goto [Point30]
  56.  
  57. SetCompletionStatusTo Unfinished
  58.  
  59. If commandline contains /s:
  60. TextBox
  61. Welcome to the MicroStation Installation Program
  62.  
  63. The program is performing an unattended
  64. installation of MicroStation files.
  65.  
  66. You need take no further action until the 
  67. installation is complete.
  68. EndTextBox
  69. if [CommandLine1] contains /s:
  70.    [FileName] := SubstringOf [CommandLine1] from 4 to End
  71.    GoTo [Point10]
  72. endif
  73. if [CommandLine2] contains /s:
  74.    [FileName] := SubstringOf [CommandLine2] from 4 to End
  75.    GoTo [Point10]
  76. endif
  77. if [CommandLine3] contains /s:
  78.    [FileName] := SubstringOf [CommandLine3] from 4 to End
  79.    GoTo [Point10]
  80. endif
  81. if [CommandLine4] contains /s:
  82.    [FileName] := SubstringOf [CommandLine4] from 4 to End
  83.    GoTo [Point10]
  84. endif
  85. if [CommandLine5] contains /s:
  86.    [FileName] := SubstringOf [CommandLine5] from 4 to End
  87.    GoTo [Point10]
  88. endif
  89. if [CommandLine6] contains /s:
  90.    [FileName] := SubstringOf [CommandLine6] from 4 to End
  91.    GoTo [Point10]
  92. endif
  93. if [CommandLine7] contains /s:
  94.    [FileName] := SubstringOf [CommandLine7] from 4 to End
  95.    GoTo [Point10]
  96. endif
  97. if [CommandLine8] contains /s:
  98.    [FileName] := SubstringOf [CommandLine8] from 4 to End
  99.    GoTo [Point10]
  100. endif
  101. if [CommandLine9] contains /s:
  102.    [FileName] := SubstringOf [CommandLine9] from 4 to End
  103.    GoTo [Point10]
  104. endif
  105. [Point10]
  106. if FileExists [FileName]
  107. Else
  108.    SetCompletionStatusTo Unfinished
  109.    Goto [Point30]
  110. EndIf
  111. ExamineTextFile [FileName]
  112. [String4] := SettingFor DestPath
  113. [InstallType] := SettingFor InstallType
  114. [String1] := SettingFor Name
  115. [String2] := SettingFor Organization
  116. [String3] := SettingFor Serial
  117. ForgetTextFile
  118. TextBox @xy(Center,18)
  119. Installing to directory [String4],
  120. installation type : [InstallType]
  121. endTextBox
  122. [InstallationDirectory] := [string4]
  123.  
  124. if [InstallType] = complete
  125.    do doinstallall
  126. Endif
  127. if [InstallType] = fullnomde
  128.    do doinstallfull
  129. Endif
  130. if [InstallType] = minmde
  131.    do dominimalmde
  132. Endif
  133. if [InstallType] = minimum
  134.    do dominimal
  135. Endif
  136. if [InstallType] = absmin
  137.    do doabsmin
  138. Endif
  139. [Number1] := quesize
  140. if [Number1] = 0
  141.    Popup "Invalid option in definition file."
  142.    SetCompletionStatusTo UnFinished
  143.    goto [Point30]
  144. endif
  145. [Number1] := FreeSpaceOnDrive InstallationDrive
  146. [Number2] := QueSize
  147. if [Number1] < [Number2]
  148.    popup "Insufficient space on specified drive..."
  149.    SetCompletionStatusTo UnFinished
  150.    goto [Point30]
  151. endif
  152. [UnAttended] := 1
  153. goto [Point27]
  154. Endif
  155. Dialog
  156. Welcome to the MicroStation Installation Program
  157.  
  158. This program installs MicroStation on your system.
  159. Press arrows to select options, the space bar to include
  160. in installation list (where applicable), then press Enter
  161. or Return to execute them. To exit this program, press <Esc>
  162. EndDialog
  163. TextBox
  164. Please wait while your system is examined...
  165. The installation program's specifications of disk space 
  166. occupied by MicroStation files are estimates; the space
  167. actually used on your hard disk depends upon how it is
  168. formatted.
  169. EndTextBox
  170. [SizeOfMin] := SizeOfGroup 1
  171. [SizeOfMin] := [SizeOfMin] + SizeOfGroup 2
  172. [SizeOfMin] := [SizeOfMin] + SizeOfGroup 9
  173. [SizeOfMin] := [SizeOfMin] / 1024
  174. [SizeOfBase] := SizeOfGroup  1
  175. [SizeOfBase] := [SizeOfBase] +sizeofgroup 2
  176. [SizeOfBase] := [SizeOfBase] +sizeofgroup 20
  177. [SizeOfBase] := [SizeOfBase] +sizeofgroup 9
  178. [SizeOfBase] := [SizeOfBase]/1024
  179. [SizeOfBaseMDL] := sizeofgroup 1
  180. [SizeOfBaseMDL] := [SizeOfBaseMDL] +sizeofgroup 2
  181. [SizeOfBaseMDL] := [SizeOfBaseMDL] +sizeofgroup 20
  182. [SizeOfBaseMDL] := [SizeOfBaseMDL] +sizeofgroup 6
  183. [SizeOfBaseMDL] := [SizeOfBaseMDL] +sizeofgroup 9
  184. [SizeOfBaseMDL] := [SizeOfBaseMDL]/1024
  185. [SizeOfAll] := sizeofgroup 1
  186. [SizeOfAll] := [SizeOfAll] +sizeofgroup 2
  187. [SizeOfAll] := [SizeOfAll] +sizeofgroup 20
  188. [SizeOfAll] := [SizeOfAll] +sizeofgroup 21
  189. [SizeOfAll] := [SizeOfAll] +sizeofgroup 22
  190. [SizeOfAll] := [SizeOfAll] +sizeofgroup 10
  191. [SizeOfAll] := [SizeOfAll] +sizeofgroup 4
  192. [SizeOfAll] := [SizeOfAll] +sizeofgroup 41
  193. [SizeOfAll] := [SizeOfAll] +sizeofgroup 5
  194. [SizeOfAll] := [SizeOfAll] +sizeofgroup 6
  195. [SizeOfAll] := [SizeOfAll] +sizeofgroup 7
  196. ;;[SizeOfAll] := [SizeOfAll] +sizeofgroup 8
  197. [SizeOfAll] := [SizeOfAll] +sizeofgroup 11
  198. [SizeOfAll] := [SizeOfAll] +sizeofgroup 12
  199. [SizeOfAll] := [SizeOfAll] +sizeofgroup 13
  200. [SizeOfAll] := [SizeOfAll] +sizeofgroup 14
  201. [SizeOfAll] := [SizeOfAll] +sizeofgroup 9
  202. [SizeOfMech] := [SizeOfAll] + SizeOfGroup 94
  203. [SizeOfModel] := [SizeOfAll] + SizeOfGroup 96
  204. [SizeOfArch] := [SizeOfAll] + SizeOfGroup 91
  205. [SizeOfCivil] := [SizeOfAll] + SizeOfGroup 92
  206. [SizeOfMap] :=  [SizeOfAll] + SizeOfGroup 93
  207. [SizeOfAll] := [SizeOfAll] +sizeofgroup 91
  208. [SizeOfAll] := [SizeOfAll] +sizeofgroup 92
  209. [SizeOfAll] := [SizeOfAll] +sizeofgroup 93
  210. [SizeOfAll] := [SizeOfAll] +sizeofgroup 94
  211. [SizeOfAll] := [SizeOfAll] +sizeofgroup 96
  212. [SizeOfAll] := [SizeOfAll] +sizeofgroup 97
  213. [SizeOfAll] := [SizeOfAll]/1024
  214. [SizeOfMech] := [SizeOfMech] / 1024
  215. [SizeOfModel] := [SizeOfModel] / 1024
  216. [SizeOfArch] := [SizeOfArch] / 1024
  217. [SizeOfCivil] := [SizeOfCivil] / 1024
  218. [SizeOfMap] := [SizeOfMap] / 1024
  219. [SizeOfFullUstn] := sizeofgroup 1
  220. [SizeOfFullUstn] := [SizeOfFullUstn] +sizeofgroup 2
  221. [SizeOfFullUstn] := [SizeOfFullUstn] +sizeofgroup 20
  222. [SizeOfFullUstn] := [SizeOfFullUstn] +sizeofgroup 21
  223. [SizeOfFullUstn] := [SizeOfFullUstn] +sizeofgroup 22
  224. [SizeOfFullUstn] := [SizeOfFullUstn] +sizeofgroup 10
  225. [SizeOfFullUstn] := [SizeOfFullUstn] +sizeofgroup 4
  226. [SizeOfFullUstn] := [SizeOfFullUstn] +sizeofgroup 41
  227. [SizeOfFullUstn] := [SizeOfFullUstn] +sizeofgroup 5
  228. [SizeOfFullUstn] := [SizeOfFullUstn] +sizeofgroup 11
  229. [SizeOfFullUstn] := [SizeOfFullUstn] +sizeofgroup 12
  230. [SizeOfFullUstn] := [SizeOfFullUstn] +sizeofgroup 13
  231. [SizeOfFullUstn] := [SizeOfFullUstn] +sizeofgroup 14
  232. ;;[SizeOfFullUstn] := [SizeOfFullUstn] +sizeofgroup 7
  233. ;;[SizeOfFullUstn] := [SizeOfFullUstn] +sizeofgroup 8
  234. [SizeOfFullUstn] := [SizeOfFullUstn] +sizeofgroup 9
  235. [SizeOfFullMech] := [SizeOfFullUstn] + SizeOfGroup 94
  236. [SizeOfFullModel] := [SizeOfFullUstn] + SizeOfGroup 96
  237. [SizeOfFullArch] := [SizeOfFullUstn] + SizeOfGroup 91
  238. [SizeOfFullCivil] := [SizeOfFullUstn] + SizeOfGroup 92
  239. [SizeOfFullMap] :=  [SizeOfFullUstn] + SizeOfGroup 93
  240. [SizeOfFullUstn] := [SizeOfFullUstn] +sizeofgroup 91
  241. [SizeOfFullUstn] := [SizeOfFullUstn] +sizeofgroup 92
  242. [SizeOfFullUstn] := [SizeOfFullUstn] +sizeofgroup 93
  243. [SizeOfFullUstn] := [SizeOfFullUstn] +sizeofgroup 94
  244. [SizeOfFullUstn] := [SizeOfFullUstn] +sizeofgroup 96
  245. [SizeOfFullUstn] := [SizeOfFullUstn] +sizeofgroup 97
  246. [SizeOfFullUstn] := [SizeOfFullUstn]/1024
  247. [SizeOfFullMech] := [SizeOfFullMech] / 1024
  248. [SizeOfFullModel] := [SizeOfFullModel] / 1024
  249. [SizeOfFullArch] := [SizeOfFullArch] / 1024
  250. [SizeOfFullCivil] := [SizeOfFullCivil] / 1024
  251. [SizeOfFullMap] := [SizeOfFullMap] / 1024
  252. [SizeOfOnlyMech] := SizeOfGroup 94
  253. [SizeOfOnlyModel] := SizeOfGroup 96
  254. [SizeOfOnlyArch] := SizeOfGroup 91
  255. [SizeOfOnlyCivil] := SizeOfGroup 92
  256. [SizeOfOnlyMap] := SizeOfGroup 93
  257. Dialog PressAKey @xy(CENTER,20)
  258. MicroStation Installation Program
  259. (c)  1993  Bentley  Systems, Inc.
  260. EndDialog
  261. [Point1]
  262. ClearScreen
  263. SetTopLineAttrTo WhiteOnBlue
  264. SetBottomLineAttrTo BlueOnLightGray
  265. SetTopLineTo "MicroStation Installation Program"
  266. SetBottomLineTo "  Arrows - Select   <Enter> - Execute   <Esc> - Quit  "
  267. UnQueAllFiles
  268. [Number1] := [SizeOfAll]/1024
  269. [Number2] := [SizeOfFullUstn]/1024
  270. [Number3] := SizeofGroup 1 + SizeOfGroup 2 + SizeofGroup 9
  271. [Number3] := [Number3] + [Number3] / 10
  272. [Number3] := [Number3]  /1048576
  273. [Number1] := [Number1] + [Number1]/10
  274. [Number2] := [Number2] + [Number2]/10
  275. GetMenuChoice UseHeader "Select type of installation"
  276. Minimum
  277.   ;This type of installation is recommended only if disk space
  278.   ;is VERY limited. It does not include any examples or on-line
  279.   ;help. It takes approximately [Number3] MB of hard disk space.
  280. MicroStation without MDE
  281.   ;This option installs all the MicroStation files and no 
  282.   ;MicroStation Development Environment files. The files 
  283.   ;occupy about [Number2] MB of hard disk space.
  284. Complete (all files)
  285.   ;Complete installation includes all files. The files occupy 
  286.   ;approximately [Number1] MB of hard disk space.
  287. Custom (selected groups of files)
  288.   ;A custom installation installs one or more of these groups of files:
  289.   ;For MicroStation: System, Database, Help, and Workspaces.
  290.   ;For MDE: Base, Examples and Workbench.
  291. endGetMenuChoice
  292. Incase choice is
  293.  =1: do doabsmin
  294.  =2: do doinstallfull
  295.  =3: do doinstallall
  296.  =4: do docustom
  297. endincase
  298. if queSize = 0
  299.    if [JustSetWin] = 1
  300.      Dialog [InstallationDirectory]
  301.     Where is MicroStation currently located?
  302.      EndDialog
  303.      if DirectoryExists [InstallationDirectory]
  304.     SetCompletionStatusTo Finished
  305.     Goto [Point30]
  306.      EndIf
  307.      PopUp "Directory does not exist..."
  308.      Goto [Point1]
  309.    EndIf
  310. EndIf
  311. ;;getquedfiles
  312. ;;SetCompletionStatusTo Finished
  313. procedure doinstallall
  314.   quefilegroup 1 2 20 21
  315.   quefilegroup 22 4 41 5 6 97
  316.   quefilegroup 7 91 92 93 94 96
  317.   quefilegroup 9 10 11 12 13 14
  318.   [InstalledLearn] := 1
  319.   [InstalledMech] := 1
  320.   [InstalledMap] := 1
  321.   [InstalledCivil] := 1
  322.   [InstalledArch] := 1
  323. endprocedure
  324. procedure doinstallfull
  325.   quefilegroup 1 2 20 21 22
  326.   quefilegroup 4 41 5 9 97
  327.   quefilegroup 10 91 92 93 94 96
  328.   quefilegroup 11 12 13 14
  329.   [InstalledLearn] := 1
  330.   [InstalledMech] := 1
  331.   [InstalledMap] := 1
  332.   [InstalledCivil] := 1
  333.   [InstalledArch] := 1
  334. endprocedure
  335. procedure dominimal
  336.   quefilegroup 1 2 20 9
  337.   [InstalledLearn] := 0
  338.   [InstalledMech] := 0
  339.   [InstalledMap] := 0
  340.   [InstalledCivil] := 0
  341.   [InstalledArch] := 0
  342. endprocedure
  343. procedure dominimalmde
  344.   quefilegroup 1 2 20 6 9
  345.   [InstalledLearn] := 0
  346.   [InstalledMech] := 0
  347.   [InstalledMap] := 0
  348.   [InstalledCivil] := 0
  349.   [InstalledArch] := 0
  350. endprocedure
  351. procedure doabsmin
  352.   quefilegroup 1 2 9
  353.   [InstalledLearn] := 0
  354.   [InstalledMech] := 0
  355.   [InstalledMap] := 0
  356.   [InstalledCivil] := 0
  357.   [InstalledArch] := 0
  358. endprocedure
  359. procedure docustom
  360. SetBottomLineTo "  <Space> - Mark   <Enter> - Execute   <Esc> - Quit  "
  361. [Point11]
  362. UnQueAllFiles
  363. [InstalledLearn] := 0
  364. [InstalledMech] := 0
  365. [InstalledMap] := 0
  366. [InstalledCivil] := 0
  367. [InstalledArch] := 0
  368. [Number1] := SizeOfGroup 20 / 1024
  369. [Number2] := SizeofGroup 4 / 1024
  370. [Number3] := SizeOfGroup 22 / 1024
  371. [Number4] := SizeOfGroup 5 / 1024
  372. [Number5] := SizeOfGroup 6 / 1024
  373. [Number6] := SizeOfGroup 7 / 1024
  374. [Number7] := SizeOfGroup 10 / 1024
  375. [Number8] := SizeOfGroup 11 / 1024
  376. [Number9] := SizeOfGroup 12 / 1024
  377. [xnumber10] := SizeOfGroup 13 / 1024
  378. [xnumber11] := SizeOfGroup 14 / 1024
  379. [xnumber12] := [SizeOfOnlyArch] / 1024
  380. [xnumber13] := [SizeOfOnlyModel] / 1024
  381. [xnumber14] := [SizeOfOnlyCivil] / 1024
  382. [xnumber15] := [SizeOfOnlyMech] / 1024
  383. [xnumber16] := [SizeOfOnlyMap] / 1024
  384. [xnumber17] := SizeOfGroup 21 / 1024
  385. [xnumber19] := Sizeofgroup 41 / 1024
  386. [xnumber20] := Sizeofgroup 97 / 1024
  387. [Number1] := [Number1] + [Number1] / 10
  388. [Number2] := [Number2] + [Number2] / 10
  389. [Number3] := [Number3] + [Number3] / 10
  390. [Number4] := [Number4] + [Number4] / 10
  391. [Number5] := [Number5] + [Number5] / 10
  392. [Number6] := [Number6] + [Number6] / 10
  393. [Number7] := [Number7] + [Number7] / 10
  394. [Number8] := [Number8] + [Number8] / 10
  395. [Number9] := [Number9] + [Number9] / 10
  396. [xNumber10] := [xNumber10] + [xNumber10] / 10
  397. [xNumber11] := [xNumber11] + [xNumber11] / 10
  398. [xNumber12] := [xNumber12] + [xNumber12] / 10
  399. [xNumber13] := [xNumber13] + [xNumber13] / 10
  400. [xNumber14] := [xNumber14] + [xNumber14] / 10
  401. [xNumber15] := [xNumber15] + [xNumber15] / 10
  402. [xNumber16] := [xNumber16] + [xNumber16] / 10
  403. [xNumber17] := [xNumber17] + [xNumber17] / 10
  404. [xNumber18] := [SizeOfMin] + [SizeOfMin] / 10
  405. [xNumber19] := [xNumber19] + [xNumber19] / 10
  406. [xNumber20] := [xNumber20] + [xNumber20] / 10
  407. GetMenuChoice AllowMultiple UseHeader "Files to be Installed"
  408.   Install MicroStation system files [xNumber18] Kilobytes
  409.     ; These files are required for MicroStation.
  410.   Install help and documentation files [Number2] Kilobytes
  411.     ; These files contain on-line documentation.
  412.   Install help files in Windows format [xNumber19] Kilobytes
  413.     ; These files contain on-line documentation to use with
  414.     ; Windows Connection.
  415.   Install rendering palettes and materials [Number3] Kilobytes
  416.     ; These files contain material tables for rendering.
  417.   Install utility programs and files [Number4] Kilobytes
  418.     ; These files contain utilities to use with MicroStation.
  419.   Install MDE programming tools [number5] Kilobytes
  420.     ; These files are necessary for MDE development, but do not include
  421.     ; sample files.
  422.   Install MDE examples  [Number6] Kilobytes
  423.     ; These files contain sample MDE programs.
  424.   Install Oracle Database files  [Number7] Kilobytes
  425.     ; These files contain the Oracle Database files and examples.
  426.   Install Xbase Database(dBASE IV) files  [Number8] Kilobytes
  427.     ; These files contain the Xbase Database files and examples for
  428.     ; dBASE IV compatibility. 
  429.   Install Xbase Database(dBASE III+) files  [Number9] Kilobytes
  430.     ; These files contain the Xbase Database files and examples for
  431.     ; dBASE III+ compatibility. 
  432.   Install Xbase Database(FoxBase) files  [xnumber10] Kilobytes
  433.     ; These files contain the Xbase Database files and examples for
  434.     ; FoxBase compatibility. 
  435.   Install RIS Database files  [xnumber11] Kilobytes
  436.     ; These files contain the RIS Database files and examples for
  437.     ; RIS compatibility. 
  438.   Install Modeling files [xnumber13] Kilobytes
  439.     ; These files contain 3D sample Modeling drawings.
  440.   Install learning and sample design files [xnumber20] Kilobytes
  441.     ; These files contain example designs and files necessary to
  442.     ; work through the lessons in the User's Guide.
  443.   Install Architectural Workspace [xnumber12] Kilobytes
  444.     ; These files contain architectural examples and interface.
  445.   Install Civil Engineering Workspace [xnumber14] kilobytes
  446.     ; These files contain civil engineering examples and interface.
  447.   Install Mechanical Drafting Workspace [xnumber15] Kilobytes
  448.     ; These files contain mechanical drafting examples and interface.
  449.   Install Mapping Workspace [xnumber16] Kilobytes
  450.     ; These files contain mapping examples and interface.
  451.   Install Menu Design files [xnumber17] Kilobytes
  452.     ; These files contain drawings for tablet menus design.
  453. endGetMenuChoice
  454. incase choice is 
  455.   =1: quefilegroup 1 2 9 20
  456.   =2: quefilegroup 4
  457.   =3: quefilegroup 41
  458.   =4: quefilegroup 22
  459.   =5: quefilegroup 5
  460.   =6: quefilegroup 6
  461.   =7: quefilegroup 7
  462.   =8: quefilegroup 10
  463.   =9: quefilegroup 11
  464.   =10: quefilegroup 12
  465.   =11: quefilegroup 13
  466.   =12: quefilegroup 14
  467.   =13: quefilegroup 96
  468.   =14: quefilegroup 97
  469.        [InstalledLearn] := 2
  470.   =15: quefilegroup 91
  471.        [InstalledArch] := 2
  472.   =16: quefilegroup 92
  473.        [InstalledCivil] := 2
  474.   =17: quefilegroup 94
  475.        [InstalledMech] := 2
  476.   =18: quefilegroup 93
  477.        [InstalledMap] := 2
  478.   =19: quefilegroup 21
  479. endincase
  480. SetBottomLineTo "  Arrows - Select   <Enter> - Execute   <Esc> - Quit  "
  481. [Number2] := QueSize
  482. If [number2] = 0
  483.   If [JustSetWin] = 0
  484.      Goto [Point1]
  485.   EndIf
  486. Endif
  487. endprocedure
  488. [Point2]
  489. [Number1] := QueSize + QueSize / 10
  490. if commandline contains -bernoulli
  491.    determineinstallationdrive [Number1] RequireFixed BernoulliAsFixed
  492. else
  493.    determineinstallationdrive [Number1] RequireFixed
  494. endif
  495. [number1] := FreeSpaceOnDrive InstallationDrive
  496. [number2] := QueSize
  497. [number2] := [number2] + [number2] / 10
  498. GetMenuChoice UseHeader "Please confirm..."
  499.   Proceed with installation
  500.     ; You have selected drive InstallationDrive ([Number1] Bytes free)
  501.     ; for installation totaling [Number2] Bytes.
  502.   Change installation options
  503.     ; You have selected drive InstallationDrive ([Number1] Bytes free)
  504.     ; for installation totaling [Number2] Bytes.
  505.   Change target drive
  506.     ; You have selected drive InstallationDrive ([Number1] Bytes free)
  507.     ; for installation totaling [Number2] Bytes.
  508. EndGetMenuChoice
  509. InCase Choice is
  510.   =2: goto [Point1]
  511.   =3: goto [Point2]
  512. endInCase
  513. [Point3]
  514. determineinstallationdirectory RequireFixed
  515. [point41]
  516. if DirectoryExists [InstallationDirectory]
  517.    if DirectoryIsEmpty [InstallationDirectory]
  518.    else
  519.       GetMenuChoice UseHeader "Installation Directory Exists"
  520.      Select new directory
  521.         ; Do this if you want to preserve the old version.
  522.      Delete this directory and install from scratch
  523.         ; Do this if you want to replace all files.
  524.      Delete everything but license information
  525.         ; Do this if you want to delete everything but
  526.         ; licensing information, workspaces and design files.
  527.      Install over files in this directory
  528.         ; Do this if you are adding components to MicroStation.
  529.       endGetMenuChoice
  530.       incase choice is
  531.      =1: GoTo [Point3]
  532.      =2: Dialog [YesOrNo1] WhiteOnRed
  533.         You are about to delete the entire MicroStation
  534.         directory. Please confirm that you want to do this.
  535.          EndDialog
  536.          if [YesOrNo1] = NoCharacter
  537.         goto [point41]
  538.          endif
  539.          Run [InstallFromDirectory]\cleanup.exe [InstallationDirectory] -wt245158906 Quietly NoPrompt SwapOut
  540.      =3: Dialog [YesOrNo1] WhiteOnRed
  541.         You are about to delete most of the MicroStation
  542.         directory. Please confirm that you want to do this.
  543.          EndDialog
  544.          if [YesOrNo1] = NoCharacter
  545.         goto [point41]
  546.          endif
  547.          Run [InstallFromDirectory]\cleanup.exe [InstallationDirectory] -wt245158906 partially Quietly NoPrompt SwapOut
  548.        endincase
  549.    endif
  550. endif
  551. [Point20]
  552.  
  553.   If FileExists [InstallationDirectory]\License\ms50.lic
  554.      Goto [Point38]
  555.   EndIf
  556. SetBottomLineTo "  Please type in information, then press Control-Enter  "
  557.   Dialog Multiple UseHEader "Please supply registration information."
  558.   "Your     name:                                                       "
  559.   "Organization :                                                       "
  560.   "Serial number:                                                       "
  561.   InputVariable [String1] @xy(16,1) 50
  562.   InputVariable [String2] @xy(16,2) 50
  563.   InputVariable [String3] @xy(16,3) 50
  564.   EndDialog
  565. SetBottomLineTo "  Arrows - Select   <Enter> - Execute   <Esc> - Quit  "
  566.   if [String1] = BlankString
  567.      Goto [Point20]
  568.   EndIf
  569.   if [String2] = BlankString
  570.      Goto [Point20]
  571.   EndIf
  572.   if [String3] = BlankString
  573.      Goto [Point20]
  574.   EndIf
  575.   
  576.   Dialog [YesorNo1]
  577.   You entered the following information:
  578.   
  579.   Name:          [String1]
  580.   Organization:  [String2]
  581.   Serial Number: [String3]
  582.   
  583.   Is this information correct ?
  584.   endDialog
  585.   if [YesOrNo1] = NoCharacter
  586.      Goto [Point20]
  587.   EndIf
  588.  
  589. [Point27]
  590.  
  591.   CreateDirectoryIfNecessary [InstallationDirectory]
  592.   CreateDirectoryIfNecessary [InstallationDirectory]\license
  593.   ModifyTextFile [InstallationDirectory]\license\ms50.lic quietly
  594.      InsertAtLine End "[String3],0,"[String1]","[String2]""
  595.   EndModifyTextFile
  596. [Point38]
  597.  
  598. if [InstalledLearn] = 0
  599. UnQueFiles
  600.    learning.ucf
  601.    learning.pcf
  602. endUnQueFiles
  603. endif
  604. if [InstalledArch] = 0
  605. UnQueFiles
  606.    arch.ucf
  607.    archacad.ucf
  608.    arch.pcf
  609. endUnQueFiles
  610. endif
  611. if [InstalledMech] = 0
  612. UnQueFiles
  613.    mechdrft.ucf
  614.    mechnew.ucf
  615.    mechdrft.pcf
  616. endUnQueFiles
  617. endif
  618. if [InstalledCivil] = 0
  619. UnQueFiles
  620.    civil.ucf
  621.    civil.pcf
  622. endUnQueFiles
  623. endif
  624. if [InstalledMap] = 0
  625. UnQueFiles
  626.    mapping.ucf
  627.    maprev.ucf
  628.    mapping.pcf
  629. endUnQueFiles
  630. endif
  631. QueFiles to [installationdirectory]
  632.    README.TXT
  633. endQueFiles
  634.  
  635. CreateDirectoryIfNecessary [installationdirectory]
  636. setBottomLineTo " Any key interrupts the installation process... "
  637. if [InstalledLearn] = 2
  638. QueFiles
  639.    learning.ucf
  640.    learning.pcf
  641. endQueFiles
  642. endif
  643. if [InstalledArch] = 2
  644. QueFiles to [installationdirectory]\config\user
  645.    arch.ucf
  646.    archacad.ucf
  647. endQueFiles
  648. QueFiles to [installationdirectory]\config\project
  649.    arch.pcf
  650. endQueFiles
  651. endif
  652. if [InstalledMech] = 2
  653. QueFiles to [installationdirectory]\config\user
  654.    mechdrft.ucf
  655.    mechnew.ucf
  656. endQueFiles
  657. QueFiles to [installationdirectory]\config\project
  658.    mechdrft.pcf
  659. endQueFiles
  660. endif
  661. if [InstalledCivil] = 2
  662. QueFiles to [installationdirectory]\config\user
  663.    civil.ucf
  664. endQueFiles
  665. QueFiles to [installationdirectory]\config\project
  666.    civil.pcf
  667. endQueFiles
  668. endif
  669. if [InstalledMap] = 2
  670. QueFiles to [installationdirectory]\config\user
  671.    mapping.ucf
  672.    maprev.ucf
  673. endQueFiles
  674. QueFiles to [installationdirectory]\config\project
  675.    mapping.pcf
  676. endQueFiles
  677. endif
  678. SetAllowExit On
  679. [insideget] := 1
  680. getquedfiles ShowJustOne
  681. [insideget] := 0
  682. SetAllowExit Off
  683. setBottomLineTo ""
  684. [Number1] := quesize
  685. If [Number1] = 0
  686.    SetCompletionStatusTo Finished
  687. else
  688.    SetCompletionStatusTo UnFinished
  689.    Goto [Point30]
  690. Endif
  691. CreateDirectoryIfNecessary [installationdirectory]\config\appl
  692. if DirectoryExists [installationdirectory]\database\ris
  693.    CreateDirectoryIfNecessary [installationdirectory]\database\ris\examples\tables
  694. endif
  695. CreateDirectoryIfNecessary [installationdirectory]\license
  696. CreateDirectoryIfNecessary [installationdirectory]\material
  697. CreateDirectoryIfNecessary [installationdirectory]\material\bump
  698. CreateDirectoryIfNecessary [installationdirectory]\material\pattern
  699. if DirectoryExists [installationdirectory]\mdl
  700.    CreateDirectoryIfNecessary [installationdirectory]\mdl\objects
  701. endif
  702. if DirectoryExists [installationdirectory]\database\oracle
  703.    CreateDirectoryIfNecessary [installationdirectory]\database\oracle\examples\forms
  704. endif
  705. CreateDirectoryIfNecessary [installationdirectory]\wsui\default
  706. CreateDirectoryIfNecessary [installationdirectory]\out
  707. CreateDirectoryIfNecessary [installationdirectory]\out\plot
  708. CreateDirectoryIfNecessary [installationdirectory]\out\cgm
  709. CreateDirectoryIfNecessary [installationdirectory]\out\iges
  710. CreateDirectoryIfNecessary [installationdirectory]\out\image
  711. CreateDirectoryIfNecessary [installationdirectory]\out\tag
  712. CreateDirectoryIfNecessary [installationdirectory]\out\dwgordxf
  713. CreateDirectoryIfNecessary [installationdirectory]\out\dgn
  714. CreateDirectoryIfNecessary [installationdirectory]\tagcfg
  715. CreateDirectoryIfNecessary [installationdirectory]\tmp
  716. CreateDirectoryIfNecessary [Installationdirectory]\dgn
  717. CreateDirectoryIfNecessary [Installationdirectory]\dgn\default
  718. [Point30]
  719. If [UnAttended] = 1
  720.    SoLong
  721. EndIf
  722. If completionstatus = Finished
  723.   ChangeDirectoryTo [InstallationDirectory]
  724.   if DirectoryExists [InstallationDirectory]\winconn
  725.   If [JustSetWin] = 1
  726.      Goto [Point32]
  727.   EndIf
  728.  
  729.   Dialog [YesOrNo1]
  730.   Would you like to set up Windows Connection ?
  731.  
  732.   This option will force Windows to create a group for MicroStation
  733.   Windows Connection the next time you start Windows. (If you are
  734.   running Windows now, you will need to quit and restart it.) You
  735.   should not, however, do this if this is a network server 
  736.   installation or you do not have Windows installed.
  737.   EndDialog
  738.   if [YesOrNo1] = YesCharacter
  739.     [SetWindows] := 0
  740.   else
  741.     [SetWindows] := 1
  742.   endif
  743.  
  744. [Point35]
  745.   if [SetWindows] = 1
  746.      GoTo [Point40]
  747.   EndIf
  748. [point32]
  749.  
  750.   if FileExists [WindowsDirectory]\win.ini
  751.   else
  752.      Dialog [YesOrNo1] WhiteOnRed
  753.      Cannot locate WINDOWS directory.
  754.      Do you have Windows installed ?
  755.      EndDialog
  756.      if [YesOrNo1] = NoCharacter
  757.     [SetWindows] := 1
  758.     Goto [Point40]
  759.      EndIf
  760.      do askForWinDir
  761.      goto [Point35]
  762.   EndIf
  763.   if FileExists [WindowsDirectory]\system.ini
  764.   else
  765.      Dialog [YesOrNo1] WhiteOnRed
  766.      Cannot locate WINDOWS directory.
  767.      Do you have Windows installed ?
  768.      EndDialog
  769.      if [YesOrNo1] = NoCharacter
  770.     [SetWindows] := 1
  771.     Goto [Point40]
  772.      EndIf
  773.      do askForWinDir
  774.      goto [Point35]
  775.   EndIf
  776.  
  777. procedure askForWinDir
  778.   Dialog [Dir1] 63
  779.      Please supply the path to Windows directory:
  780.   EndDialog
  781.   [WindowsDirectory] := [Dir1]
  782. endprocedure
  783.  
  784.   [String1] := [WindowsDirectory]
  785.   [Number1] := LengthOf [String1]
  786.   [String2] := SubstringOf [String1] from End to End
  787.   [Number1] := [number1] - 1
  788.  
  789.   if [String2] = "\"
  790.      [String1] := SubstringOf [String1] from Beginning to [Number1]
  791.   Endif
  792.  
  793.   Run [installationDirectory]\connect.exe [String1] > [installationDirectory]\connect.txt UseSecond Quietly SwapOut
  794.   If FileExists [installationdirectory]\connect.txt
  795.      ExamineTextFile [installationDirectory]\connect.txt
  796.      [String1] := Line 1
  797.      [String2] := Line 2
  798.      [String3] := Line 3
  799.      ForgetTextFile
  800.      Dialog 
  801.      Establishing Windows Connection:
  802.      [String1]
  803.      [String2]
  804.      [String3]
  805.      endDialog
  806.  
  807.      DeleteFiles from [installationDirectory] Quietly
  808.        connect.txt
  809.      endDeleteFiles
  810.   else
  811.      Popup "Cannot modify WIN.INI and/or SYSTEM.INI"
  812.   EndIf
  813.  
  814.   Dialog [YesOrNo1]
  815.     Would you like to configure Windows Connection?
  816.     You must configure Windows Connection before
  817.     you run it the first time. However, you may not
  818.     want to configure if this is a network server 
  819.     installation, unless you would like to provide
  820.     all local systems with the same default
  821.     configuration.
  822.   EndDialog
  823.   if [YesOrNo1] = YesCharacter
  824.     ChangeDirectoryTo [InstallationDirectory]
  825.     Run [InstallationDirectory]\usconfig.exe -windows NoPrompt SwapOut
  826.   endif
  827.   endif
  828. [Point40]
  829.   Dialog [YesOrNo1]
  830.     Would you like to configure MicroStation for DOS?
  831.     You will need to configure MicroStation before
  832.     you run it the first time. However, you may not
  833.     want to configure if this is a network server
  834.     installation, unless you would like to provide
  835.     all local systems with the same default
  836.     configuration.
  837.   EndDialog
  838.   if [YesOrNo1] = YesCharacter
  839.     ChangeDirectoryTo [InstallationDirectory]
  840.     Run [InstallationDirectory]\usconfig.exe -dos NoPrompt SwapOut
  841.   endif
  842.   Dialog
  843.   MicroStation installation completed.
  844.   EndDialog
  845. else
  846.   Dialog
  847.   MicroStation was not completely installed.
  848.   You should run the installation program again.
  849.   EndDialog
  850. Endif
  851.  
  852. procedure ourExitProc
  853.    if [Insideget] = 0
  854.       Dialog [YesOrNo1] WhiteOnRed
  855.      Do you want to terminate the installation ?
  856.       EndDialog
  857.       if [YesOrNo1] = YesCharacter
  858.      Solong
  859.       EndIf
  860.    Endif
  861. endprocedure
  862.