home *** CD-ROM | disk | FTP | other *** search
/ Media Gallery 1996 January / MG_0196.ISO / spea / install / merp64 / util / install.dat < prev    next >
Text File  |  1995-11-20  |  36KB  |  1,052 lines
  1. @DefineProject
  2.  @Name = "V7-MERCURY P-64"
  3.  @Version ="Release 0795.4"
  4.  @OutDrive = C
  5. @If(@StrLen("@GetEnv("GDC")") > 0)
  6.     @SubDir = "@GetEnv("GDC")"
  7. @Else
  8.     @SubDir = "\\SPEA\\GDC"
  9. @Endif // @StrLen, @GetEnv
  10.  @Requires @HardDisk
  11.  @Immediate = 1
  12. @EndProject
  13. @DefineVars @QString @NextName = "@Name" @EndVars
  14.  
  15. @If(@Platform==1)
  16.  @ScrHead(1, M, 0, 63, "$062@Name  $063@Version")
  17. @ElseIf(@Platform==3)
  18.  @BackgroundMode(3, @RGB(0,0,127), @RGB(0,0,127))
  19. // @ScrHead("@Name  @Version")
  20. @Endif // @Platform
  21.  
  22. @If(@Platform == 1)
  23.  @FileAttr("C:\\odd33ver.tpl", "r-s-h-")
  24.  @Delete("C:\\odd33ver.tpl")
  25.  @FileAttr("C:\\odd33set.tpl", "r-s-h-")
  26.  @Delete("C:\\odd33set.tpl")
  27.  @FileAttr("D:\\odd33ver.tpl", "r-s-h-")
  28.  @Delete("D:\\odd33ver.tpl")
  29.  @FileAttr("D:\\odd33set.tpl", "r-s-h-")
  30.  @Delete("D:\\odd33set.tpl")
  31.  @FileAttr("E:\\odd33ver.tpl", "r-s-h-")
  32.  @Delete("E:\\odd33ver.tpl")
  33.  @FileAttr("E:\\odd33set.tpl", "r-s-h-")
  34.  @Delete("E:\\odd33set.tpl")
  35.  @FileAttr("F:\\odd33ver.tpl", "r-s-h-")
  36.  @Delete("F:\\odd33ver.tpl")
  37.  @FileAttr("F:\\odd33set.tpl", "r-s-h-")
  38.  @Delete("F:\\odd33set.tpl")
  39.  @FileAttr("G:\\odd33ver.tpl", "r-s-h-")
  40.  @Delete("G:\\odd33ver.tpl")
  41.  @FileAttr("G:\\odd33set.tpl", "r-s-h-")
  42.  @Delete("G:\\odd33set.tpl")
  43.  @System ("getos.bat do it really")
  44.  
  45.  @If(@Exists("C:\\odd33ver.tpl") && @Exists("C:\\odd33set.tpl"))
  46.   @DefineVars @QString @TmpStr = "C:" @EndVars
  47.   @Goto DETECTOS2
  48.  
  49.  @ElseIf(@Exists("D:\\odd33ver.tpl") && @Exists("D:\\odd33set.tpl"))
  50.   @DefineVars @QString @TmpStr = "D:" @EndVars
  51.   @Goto DETECTOS2
  52.  
  53.  @ElseIf(@Exists("E:\\odd33ver.tpl") && @Exists("E:\\odd33set.tpl"))
  54.   @DefineVars @QString @TmpStr = "E:" @EndVars
  55.   @Goto DETECTOS2
  56.  
  57.  @ElseIf(@Exists("F:\\odd33ver.tpl") && @Exists("F:\\odd33set.tpl"))
  58.   @DefineVars @QString @TmpStr = "F:" @EndVars
  59.   @Goto DETECTOS2
  60.  
  61.  @ElseIf(@Exists("G:\\odd33ver.tpl") && @Exists("G:\\odd33set.tpl"))
  62.   @DefineVars @QString @TmpStr = "G:" @EndVars
  63.   @Goto DETECTOS2
  64.  
  65.  @Else // @Exists
  66.   @FlushOptions
  67.   @GetOption @Cls
  68.    @If(@L==2)
  69.  Bitte geben Sie das Betriebssystem an, das gerade aktiv ist.
  70.    @Else // @L
  71.  Please specify the operating system which is currently active.
  72.    @Endif // @L
  73. @Option 1000 = "DOS"
  74. @Option 2000 = "OS/2"
  75. @Option 3000 = "Windows 3.1x"
  76. @Option 4000 = "Windows 95"
  77.   @EndOption
  78.  
  79. @If     (1000 [= @Option) @DefineVars @Integer @OS = 1 @EndVars
  80. @ElseIf (2000 [= @Option) @DefineVars @Integer @OS = 2 @EndVars
  81. @ElseIf (3000 [= @Option) @DefineVars @Integer @OS = 3 @EndVars
  82. @ElseIf (4000 [= @Option) @DefineVars @Integer @OS = 4 @EndVars @Endif
  83.   @Goto OSDETECTED
  84.  @Endif // @Exists
  85.  
  86. DETECTOS2:
  87.  @If(@StrInFile("Operating System/2", "@TmpStr\\odd33ver.tpl") == 1)
  88.   @DefineVars @Integer @OS = 2 @EndVars
  89.  @ElseIf(@StrInFile("Windows 95", "@TmpStr\\odd33ver.tpl") == 1)
  90.   @DefineVars @Integer @OS = 4 @EndVars
  91.  @ElseIf(@StrInFile("Windows NT", "@TmpStr\\odd33ver.tpl") == 1)
  92.   @DefineVars @Integer @OS = 4 @EndVars
  93.  @ElseIf(@StrInFile("DOS", "@TmpStr\\odd33ver.tpl") == 1)
  94.   @If(@StrInFile("windir", "@TmpStr\\odd33set.tpl") == 1)
  95.    @DefineVars @Integer @OS = 3 @EndVars
  96.   @Else
  97.    @DefineVars @Integer @OS = 1 @EndVars
  98.   @Endif
  99.  @Else
  100.   @DefineVars @Integer @OS = 0 @EndVars
  101.  @Endif // @StrInFile
  102.  @Delete("@TmpStr\\odd33ver.tpl")
  103.  @Delete("@TmpStr\\odd33set.tpl")
  104. @ElseIf(@Platform == 3)
  105.  @If(@Chicago == 1)
  106.   @DefineVars @Integer @OS = 4 @EndVars
  107.  @Else // ! @Chicago
  108.   @If(@OS2Info == 1)
  109.    @DefineVars @Integer @OS = 2 @EndVars
  110.   @Else
  111.    @DefineVars @Integer @OS = 3 @EndVars
  112.   @Endif // @OS2Info
  113.  @Endif // @Chicago
  114. @Endif // @Platform
  115. @DefineVars @Integer @Pl = @Platform @EndVars
  116. OSDETECTED:
  117.  
  118. @If(@Pl==1 && @OS==3)
  119. @Display @Cls
  120. @If(@L==2)
  121.  Das Installationsprogramm kann nicht in einem DOS-Fenster
  122.  oder DOS-Vollbild unter Windows 3.1x ausgeführt werden.
  123.  
  124.  Bitte starten Sie das Installationsprogramm mit dem Befehl:
  125.  
  126.  Datei | Ausführen: @InDrive:\SETUP.EXE
  127. @Else // @L
  128.  The installation programm cannot be executed in a DOS window
  129.  or DOS full-screen under Windows 3.1x.
  130.  
  131.  Please start the installation program with the command:
  132.  
  133.  File | Run: @InDrive:\SETUP.EXE
  134. @Endif // @L
  135.  
  136. @Pause
  137. @EndDisplay
  138. @Exit
  139. @Endif // @Pl && @OS
  140.  
  141.  
  142. @DefineVars
  143. @QString @B = "V7-MERCURY P-64"
  144. @QString @Checkfile = "S3TEST.EXE"
  145.  
  146. @If(@Platform==1)
  147.  @QString @UP  = "[]"
  148.  @QString @DN  = "[]"
  149.  @QString @RET = "[─┘]"
  150. @ElseIf(@Platform==3)
  151.  @If(@L==2)
  152.   @QString @UP  = "AUF"
  153.   @QString @DN  = "AB"
  154.   @QString @RET = "RETURN"
  155.  @Else // @L
  156.   @QString @UP  = "UP"
  157.   @QString @DN  = "DOWN"
  158.   @QString @RET = "ENTER"
  159.  @Endif // @L  
  160. @Endif // @Platform
  161.  
  162.  @Drive @acad12drv = C
  163.  @Dir @acad12dir = "\\ACAD"
  164.  @Drive @ustapdrv = C
  165.  @Dir @ustapdir = "\\USTATION"
  166.  @Drive @usta5drv = C
  167.  @Dir @usta5dir = "\\USTATION"
  168.  @QString @d8 = "\n\n\n\n\n\n\n\n"
  169. @If (@L==1) 
  170. @QString @t011 = " Use the keys [] and [] to select a drive. Press [─┘] to continue."
  171. @QString @t012 = " "
  172. @QString @t021 = " Use the SPACE BAR to select YES or NO."
  173. @QString @t022 = " Press [─┘] to continue and create this directory (if YES)"
  174. @QString @t023 = " or to modify the last input (if NO)."
  175. @QString @t033 = " "
  176. @QString @t041 = " On which disk drive is"
  177. @QString @t042 = "installed at present?"
  178. @QString @t051 = " In which directory is"
  179. @QString @t061 = "does not exist. Do you want to create it?"
  180. @QString @t081 = " Directory"
  181. @QString @t091 = " Which directory"
  182. @QString @t101 = "already exists."
  183. @QString @t102 = " Do you want to continue installing in this directory?"
  184. @QString @t111 = " Use the SPACE BAR to select YES or NO. Press [─┘] to continue."
  185. @QString @t133 = " Use the keys [] and [] to select. Press [─┘] to continue."
  186. @QString @t121 = " On which disk drive do you want to install the \"@B Utilities\" ?"
  187. @QString @t131 = " For which version of"
  188. @QString @t132 = "do you want to install @B drivers?"
  189. @QString @t141 = " On which disk drive do you want to install the @B driver"
  190. @QString @t142 = " and the font files for AutoCAD release 11 ?"
  191. @QString @t143 = " In which directory do you want to install the @B driver"
  192. @QString @t144 = " On which disk drive do you want to install the font files"
  193. @QString @t145 = " for AutoCAD Release 12 ?"
  194. @QString @t146 = " In which directory do you want to install the font files"
  195. @QString @t147 = " and the font files for AutoShade / 3DStudio ?"
  196. @QString @t148 = " Which font size do you want to use in AutoCAD und AutoShade ?"
  197. @QString @t171 = "        Select the applications for which you want to install drivers."
  198. @QString @t172 = "        ATTENTION: If this installation program is being executed for"
  199. @QString @t173 = "                   the FIRST TIME, also select \"@B Utilities\"."
  200. @QString @t174 = "         Use the []  and []  keys to move the cursor up and down."
  201. @QString @t175 = "         Use the SPACE BAR  to activate or deactivate installation of"
  202. @QString @t176 = "         the driver at the cursor position. Press [─┘] when finished."
  203. @QString @t201 = " Please enter the directory in which you want the \"@B Utilities\""
  204. @QString @t202 = " to be installed. The standard name of the directory is: @SubDir"
  205. @QString @t203 = " "
  206. @QString @t204 = "Do you want to continue"
  207. @QString @t205 = " installing the \"@B Utilities\" in this directory?"
  208. @QString @t251 = " On which disk drive did you install the \"@B Utilities\" ?"
  209. @QString @t252 = " In which directory did you install the \"@B Utilities\" ?"
  210. @QString @t253 = "does not contain the \"@B Utilities\"."
  211. @QString @t254 = "does not exist."
  212. @QString @t300 = " Cannot find the \"@B Utilities\" in directory"
  213. @QString @t301 = " If the \"@B Utilities\" are not installed, press [Esc]."
  214. @QString @Y = "YES"
  215. @QString @N = "NO "
  216. @QString @Drivers = "Drivers"
  217. @QString @for = "for"
  218. @QString @and = "and"
  219. @QString @Utilities = "utilities"
  220. @Endif 
  221. @If (@L==2) 
  222. @QString @t011 = " Mit den Tasten [] und [] können Sie ein Laufwerk auswählen."
  223. @QString @t012 = " Bestätigen Sie mit [─┘]."
  224. @QString @t021 = " Wählen Sie JA oder NEIN mit der LEERTASTE."
  225. @QString @t022 = " Drücken Sie [─┘] zur Fortsetzung (Verzeichnis wird erzeugt, wenn JA)"
  226. @QString @t023 = " oder zur Änderung der letzten Eingabe (wenn NEIN)."
  227. @QString @t033 = " "
  228. @QString @t041 = " Auf welchem Laufwerk ist"
  229. @QString @t042 = "derzeit installiert?"
  230. @QString @t051 = " In welchem Verzeichnis ist"
  231. @QString @t061 = "existiert nicht. Wollen Sie es erzeugen ?"
  232. @QString @t071 = " Die Installation von"
  233. @QString @t072 = "wurde erfolgreich vorbereitet."
  234. @QString @t081 = " Verzeichnis"
  235. @QString @t091 = " Welches Verzeichnis"
  236. @QString @t101 = "existiert bereits."
  237. @QString @t102 = " Wollen Sie die Installation in diesem Verzeichnis fortsetzen?"
  238. @QString @t111 = " Wählen Sie JA / NEIN mit der Leertaste. Drücken Sie anschließend [─┘]."
  239. @QString @t133 = " Benutzen Sie die Tasten [] und [] zur Auswahl. Bestätigen Sie mit [─┘]."
  240. @QString @t121 = " Auf welchem Laufwerk wollen Sie die \"@B Utilities\"\n installieren?"
  241. @QString @t131 = " Für welche Version von"
  242. @QString @t132 = "wollen Sie @B Treiber installieren?"
  243. @QString @t141 = " Auf welches Laufwerk wollen Sie den @B Treiber und die"
  244. @QString @t142 = " Schriftfontdateien für AutoCAD Release 11 installieren?"
  245. @QString @t143 = " In welches Verzeichnis wollen Sie den @B Treiber und die"
  246. @QString @t144 = " Auf welches Laufwerk wollen Sie die Schriftfontdateien"
  247. @QString @t145 = " für AutoCAD Release 12 installieren?"
  248. @QString @t146 = " In welches Verzeichnis wollen Sie die Schriftfontdateien"
  249. @QString @t147 = " Schriftfontdateien für AutoShade / 3DStudio installieren?"
  250. @QString @t148 = " Welche Schriftfontgröße wollen Sie in AutoCAD und AutoShade nutzen?"
  251. @QString @t171 = "    Wählen Sie die Anwendungen, für die Treiber installiert werden sollen."
  252. @QString @t172 = "    ACHTUNG:   Wenn dieses Installationsprogramm zum ERSTEN MAL ausgeführt"
  253. @QString @t173 = "               wird, wählen Sie zusätzlich \"@B Utilities\"."
  254. @QString @t174 = "       Mit den Tasten [] und [] können Sie den Auswahlbalken bewegen."
  255. @QString @t175 = "       Mit der LEERTASTE können Sie den invers dargestellten Treiber"
  256. @QString @t176 = "       zur Installation aktivieren/deaktivieren. Fortsetzung mit [─┘]."
  257. @QString @t201 = "      Bitte geben Sie das Verzeichnis an, in dem die"
  258. @QString @t202 = "      \"@B Utilities\" installiert werden sollen."
  259. @QString @t203 = "      Das Standardverzeichnis hierfür lautet: @SubDir"
  260. @QString @t204 = "Wollen Sie die Installation"
  261. @QString @t205 = " der \"@B Utilities\" in diesem Verzeichnis fortsetzen?"
  262. @QString @t251 = " Auf welchem Laufwerk haben Sie die \"@B Utilities\" installiert ?"
  263. @QString @t252 = " In welchem Verzeichnis haben Sie die \"@B Utilities\" installiert ?"
  264. @QString @t253 = "enthält nicht die \"@B Utilities\"."
  265. @QString @t254 = "existiert nicht."
  266. @QString @t300 = " Kann die \"@B Utilities\" nicht finden im Verzeichnis"
  267. @QString @t301 = " Wenn die \"@B Utilities\" nicht installiert sind, drücken Sie [Esc]."
  268. @QString @Y = " JA "
  269. @QString @N = "NEIN"
  270. @QString @Drivers = "Treiber"
  271. @QString @for = "für"
  272. @QString @and = "und"
  273. @QString @Utilities = "Dienstprogramme"
  274. @Endif 
  275. @EndVars
  276.  
  277.  
  278. @If (@Com(1) == 744 || @Com(2) == 744 || @Com(3) == 744 || @Com(4) == 744)
  279.  @If (@L == 2)
  280. @Display @Cls
  281.  
  282.      Warnung:  INSTALL hat einen möglichen Adressenkonflikt in Ihrem
  283.      System bei Adresse 2E8h festgestellt (diese Adresse ist allgemein
  284.      als COM4 reserviert). Wenn in Ihrem System ein Modem, Fax/Modem
  285.      oder eine Soundkarte in Betrieb ist, kann eine Inkompatibilität
  286.      mit der @B vorliegen.
  287.  
  288.      (Einige Peripheriegeräte verwenden diese im allgemeinen unbenutzte
  289.      Adresse, obwohl die AT-Busspezifikation sie für Graphiksubsysteme
  290.      vorsieht.)
  291.  
  292.      Es wird empfohlen, INSTALL jetzt abzubrechen und das betrefffende
  293.      Peripheriegerät auf eine andere Adresse umzukonfigurieren, z.B.
  294.      COM1 oder COM2. Dies kann durch Jumper oder Schalter auf dem Gerät
  295.      erfolgen, oder mit Hilfe eines Dienstprogrammes.
  296.  
  297.    @Pause
  298.    @Cls
  299.  
  300.      Wenn Sie INSTALL nicht abbrechen, können Sie zwar fortfahren, aber
  301.      Sie werden nicht die besonderen Vorteile Ihrer @B nutzen
  302.      können, bis dieser Konflikt beseitigt ist. Möglicherweise treten
  303.      Bild-Darstellungsprobleme unter WINDOWS auf und Auflösungen von
  304.      mehr als 640x480 in 16 Farben laufen nicht korrekt.
  305.  
  306.  
  307.    @Pause
  308. @EndDisplay
  309.  
  310.  @Else /* @L */
  311.  
  312. @Display @Cls
  313.  
  314.      Warning:  INSTALL has detected a potential address conflict in 
  315.      your system at address space 2E8H (generally this space is 
  316.      reserved as COM4).  If you are running a modem, fax/modem 
  317.      or sound card in your system, there may be an incompatibility 
  318.      with the @B .
  319.      
  320.      (Some communication peripherals try and utilize this generally
  321.      unused space, however the AT Bus specification reserves this space
  322.      for graphics subsystems.)
  323.      
  324.      It is recommened that you exit the INSTALL program now and 
  325.      reconfigure the other communciation device for another address 
  326.      such as COM1 or COM2.  This can be done through jumpers or 
  327.      switches on the device, or through a software utility.
  328.  
  329.  
  330.    @Pause
  331.    @Cls
  332.  
  333.  
  334.  
  335.      If you do not exit INSTALL, you can continue but you will not be 
  336.      able to take full advantage of the advanced features of your 
  337.      @B until this conflict is removed.  Probably, you will
  338.      have display problems running Windows and you will not be able
  339.      to properly run resolutions beyond 640x480 in 16 colors.
  340.  
  341.      
  342.  
  343.     @Pause
  344. @EndDisplay
  345.  
  346.  @Endif /* @L */
  347. @EndIf /* @Com */
  348.  
  349. NOCHMAL:
  350. @FlushGroups()
  351. @MaxListSize(8)
  352. @If(@Pl==1) @SetGroup(B) @Endif
  353. @If(@Pl==3) @SetGroup(W) @Endif
  354. @GetGroups @Checkbox @If(@Pl==1) @LocalWindow (12, 39) @Cls @Endif @If(@Pl==3) @DlgCtrlSize(0, 4, 0, 10, 60) @Endif @If(@L==2)
  355.  Welche Teile der @Name Software wollen Sie installieren? @Else
  356.  Which parts of the @Name software do you want to install? @Endif // @L
  357. @d8
  358.  
  359.  
  360.  
  361. @If(@L==2) Mit den Tasten @UP und @DN können Sie den Auswahlbalken bewegen.
  362.  Mit der LEERTASTE können Sie die aktuelle Zeile aktivieren oder
  363.  deaktivieren. Betätigen Sie die Taste @RET zur Fortsetzung.
  364. @Else Use the @UP and @DN keys to move the selection bar.
  365.  Use the SPACE key to activate or deactivate the current line.
  366.  Press the @RET key to continue. @Endif // @L
  367. @Set W = "@Drivers @and @Utilities @for Windows 3.1x / Windows 95 "
  368. @Set B = "@Utilities @for DOS"
  369. @Set D = "S3 @Drivers @for AutoCAD 11/386 & 12"
  370. @Set T = "S3 @Drivers @for AutoShade 2.1, 3DStudio 1.0/2.0    "
  371. @Set M = "SPEA BigMicro @Drivers @for MicroStation 4.0x "
  372. @Set U = "SPEA BigMicro @Drivers @for MicroStation 5.0 "
  373. @EndGroups
  374. @BarOffset(0)
  375.  
  376.  
  377. @If('W' [= @Group || 'B' [= @Group || 'D' [= @Group
  378.  || 'T' [= @Group || 'M' [= @Group || 'U' [= @Group) @Else
  379. @Display @Cls
  380. @If(@L==2)
  381.  Es wurde nichts ausgewählt!
  382. @Else
  383.  Nothing was selected!
  384. @Endif
  385. @Pause
  386. @EndDisplay
  387. @Goto NOCHMAL
  388. @Endif
  389.  
  390. ENVIRON:
  391. @GetOutDrive @If(@Pl==1) @LocalWindow(24, 39) @ElseIf(@Pl==3) @DlgCtrlSize(0, 5, 20, 12, 35) @Endif
  392. @If(@L==2) Auf welchem Laufwerk wollen Sie die
  393.  @Name installieren?
  394. @If(@Pl==1) Mit den Tasten @UP und @DN können Sie ein Laufwerk auswählen.
  395.  Drücken Sie anschließend @RET. @Endif // @Pl
  396. @Else
  397.  On which disk drive do you want to install
  398.  the @Name ?
  399. @If(@Pl==1) Use the keys @UP and @DN to select a drive. Press @RET to continue. @Endif // @Pl
  400. @Endif // @L
  401. @EndOutDrive
  402.  
  403. @GetSubDir
  404. @If(@L==2) In welchem Verzeichnis wollen Sie die
  405.  @Name installieren?
  406. @Else
  407.  In which directory do you want to install
  408.  the @Name ?
  409. @Endif // @L
  410. @If(@Pl==1) @LocalWindow(16, 39) @ElseIf(@Pl==3) @DlgCtrlSize(0, 6, 0, 7, 50) @Endif
  411. @EndSubDir
  412.  
  413. @If(@Exists("@OutDrive:@SubDir"))
  414. @ClearOption(0)
  415. @ClearOption(1)
  416. @GetOption
  417. @If(@Pl==1) @LocalWindow(16, 39) @ElseIf(@Pl==3) @DlgCtrlSize(0, 6, 20, 8, 26) @Endif
  418. @If(@L==2)
  419.  Verzeichnis @OutDrive:@SubDir existiert bereits.
  420.  Wollen Sie die Installation in diesem Verzeichnis fortsetzen?
  421.  
  422. @If(@Pl==1) Wählen Sie JA oder NEIN mit den Tasten @UP und @DN.
  423.  Drücken Sie anschließend @RET. @Endif // @Pl
  424. @Else
  425.  Directory @OutDrive:@SubDir already exists.
  426.  Do you want to continue installing in this directory?
  427.  
  428. @If(@Pl==1) Use the keys @UP and @DN to select YES or NO.
  429.  Press @RET to continue. @Endif // @Pl
  430. @Endif // @L
  431. @Option 1 = "@Y"
  432. @Option 0 = "@N"
  433. @EndOption
  434. @If (0 [= @Option) @Goto ENVIRON @Endif
  435. @Endif // @Exists
  436.  
  437.  
  438. @If('D' [= @Group || 'T' [= @Group)
  439. @If('D' [= @Group)
  440.  @ClearOption(11)
  441.  @ClearOption(12)
  442. @GetOption @If(@Pl==1) @LocalWindow (13, 39) @ElseIf(@Pl==3) @DlgCtrlSize(0, 5, 0, 7, 25) @Endif
  443. @t131 AutoCAD 
  444.  @t132
  445. @If(@Pl==1)@t133 @Endif
  446. @Option 12 = "AutoCAD Release 12"
  447. @Option 11 = "AutoCAD Release 11"
  448. @EndOption
  449. @Endif /* 'D' */
  450.  
  451. @If(11 [= @Option)
  452. aqu11:
  453. @If('B' [! @Group)
  454. @GetOutDrive @If(@Pl==1) @LocalWindow (15, 39) @ElseIf(@Pl==3) @DlgCtrlSize(0, 5, 0, 12, 15) @Endif
  455. @t141
  456. @t142
  457. @If(@Pl==1)@t011
  458. @t012 @Endif
  459. @EndOutDrive
  460.  
  461. @GetSubdir
  462. @t143
  463. @t142
  464. @If(@Pl==1) @LocalWindow (13, 39) @ElseIf(@Pl==3) @DlgCtrlSize(0, 6, 0, 7, 50) @Endif
  465. @If(@Pl==1) @Prompt = "@t091 ([─┘] = @SubDir)? " @Endif
  466. @EndSubdir
  467.  
  468. @Endif /* !'B' */
  469.  
  470. @ELSEIF (12 [= @Option)
  471. acad12:
  472. @GetOutDrive @acad12drv @If(@Pl==1) @LocalWindow (15, 39) @ElseIf(@Pl==3) @DlgCtrlSize(0, 5, 0, 12, 15) @Endif
  473. @t041 AutoCAD Rel.12 @t042
  474. @If(@Pl==1)@t011
  475. @t012 @Endif
  476. @EndOutDrive
  477.  
  478. @GetSubdir @acad12dir @Default = "\\ACAD\\"
  479. @t051 AutoCAD Rel.12 @t042
  480. @If(@Pl==1) @LocalWindow (13, 39) @ElseIf(@Pl==3) @DlgCtrlSize(0, 4, 0, 5, 50) @Endif
  481. @If(@Pl==1) @Prompt = "@t091 ([─┘] = @acad12dir)? " @Endif
  482. @EndSubdir
  483.  
  484. @If(@Exists "@acad12drv:@acad12dir") @Else
  485.  @ClearOption(0)
  486.  @GetOption @If(@PL==1) @Checkbox @LocalWindow (13, 39) @ElseIf(@Pl==3) @DlgCtrlSize(0, 4, 0, 6, 8) @Endif
  487. @t081 @acad12drv:@acad12dir @t061
  488.  
  489. @If(@Pl==1)@t021
  490. @t022
  491. @t023
  492.  @Option 0 = "" @ElseIf(@Pl==3) @Option 1 = "@N" @Option 0 = "@Y" @Endif
  493.  @EndOption
  494.  @If(0 [! @Option) @Goto acad12 @Endif
  495. @Endif
  496.  
  497. aqu12:
  498. @If('B' [! @Group)
  499. @GetOutDrive @If(@Pl==1) @LocalWindow (15, 39) @ElseIf(@Pl==3) @DlgCtrlSize(0, 5, 0, 12, 15) @Endif
  500. @t144
  501. @t145
  502. @If(@Pl==1)@t011
  503. @t012 @Endif
  504. @EndOutDrive
  505.  
  506. @GetSubdir
  507. @t146
  508. @t145
  509. @If(@Pl==1) @LocalWindow (13, 39) @ElseIf(@Pl==3) @DlgCtrlSize(0, 4, 0, 5, 50) @Endif
  510. @If(@Pl==1) @Prompt = "@t091 ([─┘] = @SubDir)? " @Endif
  511. @EndSubdir
  512. @Endif /* !'B' */
  513.  
  514. @ELSE /* Kein AutoCAD, nur AutoShade / 3DStudio */
  515. aqush3ds:
  516. @If('B' [! @Group)
  517. @GetOutDrive @If(@Pl==1) @LocalWindow (15, 39) @ElseIf(@Pl==3) @DlgCtrlSize(0, 5, 0, 12, 15) @Endif
  518. @t141
  519. @t147
  520. @If(@Pl==1)@t011
  521. @t012 @Endif
  522. @EndOutDrive
  523.  
  524. @GetSubdir
  525. @t143
  526. @t147
  527. @If(@Pl==1) @LocalWindow (13, 39) @ElseIf(@Pl==3) @DlgCtrlSize(0, 4, 0, 5, 50) @Endif
  528. @If(@Pl==1) @Prompt = "@t091 ([─┘] = @SubDir)? " @Endif
  529. @EndSubdir
  530. @Endif /* !'B' */
  531. @ENDIF /* 11,12 */
  532.  
  533. @GetOption @If(@Pl==1) @LocalWindow (13, 39) @ElseIf(@Pl==3) @DlgCtrlSize(0, 3, 0, 10, 10) @Endif
  534. @t148
  535. @If(@Pl==1)@t133 @Endif
  536.  @Option 220 = "6X9"
  537.  @Option 230 = "8X16"
  538.  @Option 240 = "9X15"
  539.  @Option 250 = "12X20"
  540.  @Option 260 = "12X24"
  541.  @Option 270 = "15X25"
  542.  @Option 280 = "16X30"
  543. @EndOption
  544. @Endif /* 'D' || 'T' */
  545.  
  546. @If('M'[= @Group)
  547. ustatp:
  548. @GetOutDrive @ustapdrv @If(@Pl==1) @LocalWindow (15, 39) @ElseIf(@Pl==3) @DlgCtrlSize(0, 5, 0, 12, 15) @Endif
  549. @t041 MicroStation 4.0x @t042
  550. @If(@Pl==1)@t011
  551. @t012 @Endif
  552. @EndOutDrive
  553.  
  554. @GetSubdir @ustapdir @Default = "\\USTATION\\"
  555. @t051 MicroStation 4.0x @t042
  556. @If(@Pl==1) @LocalWindow (13, 39) @ElseIf(@Pl==3) @DlgCtrlSize(0, 4, 0, 5, 50) @Endif
  557. @If(@Pl==1) @Prompt = "@t091 ([─┘] = @ustapdir)? " @Endif
  558. @EndSubdir
  559.  
  560. @If(@Exists "@ustapdrv:@ustapdir") @Else
  561.  @ClearOption(0)
  562.  @GetOption @If(@PL==1) @Checkbox @LocalWindow (13, 39) @ElseIf(@Pl==3) @DlgCtrlSize(0, 4, 0, 6, 8) @Endif
  563. @t081 @ustapdrv:@ustapdir @t061
  564.  
  565. @If(@Pl==1)@t021
  566. @t022
  567. @t023
  568.  @Option 0 = "" @ElseIf(@Pl==3) @Option 1 = "@N" @Option 0 = "@Y" @Endif
  569.  @EndOption
  570.  @If(0 [! @Option) @Goto ustatp @Endif
  571. @Endif
  572. @Endif /* 'M' */
  573.  
  574. @If('U'[= @Group)
  575. ustat5p:
  576. @GetOutDrive @usta5drv @If(@Pl==1) @LocalWindow (15, 39) @ElseIf(@Pl==3) @DlgCtrlSize(0, 5, 0, 12, 15) @Endif
  577. @t041 MicroStation 5.0 @t042
  578. @If(@Pl==1)@t011
  579. @t012 @Endif
  580. @EndOutDrive
  581.  
  582. @GetSubdir @usta5dir @Default = "\\USTATION\\"
  583. @t051 MicroStation 5.0 @t042
  584. @If(@Pl==1) @LocalWindow (13, 39) @ElseIf(@Pl==3) @DlgCtrlSize(0, 4, 0, 5, 50) @Endif
  585. @If(@Pl==1) @Prompt = "@t091 ([─┘] = @usta5dir)? " @Endif
  586. @EndSubdir
  587.  
  588. @If(@Exists "@usta5drv:@usta5dir") @Else
  589.  @ClearOption(0)
  590.  @GetOption @If(@PL==1) @Checkbox @LocalWindow (13, 39) @ElseIf(@Pl==3) @DlgCtrlSize(0, 4, 0, 6, 8) @Endif
  591. @t081 @usta5drv:@usta5dir @t061
  592.  
  593. @If(@Pl==1)@t021
  594. @t022
  595. @t023
  596.  @Option 0 = "" @ElseIf(@Pl==3) @Option 1 = "@N" @Option 0 = "@Y" @Endif
  597.  @EndOption
  598.  @If(0 [! @Option) @Goto ustat5p @Endif
  599. @Endif
  600. @Endif /* 'U' */
  601.  
  602.  
  603. /*
  604. @If(@Pl==3 && 'W' [= @Group)
  605. // Video for Windows installieren/aktualisieren?
  606. @If(@OS==3 || @OS==2)
  607. @If(@Exists("@WinSysDrive:@WinSysDir\\MSVIDEO.DLL"))
  608. @If(@FileDate("@WinSysDrive:@WinSysDir\\MSVIDEO.DLL") < @StrToDate("1995/3/16"))
  609. @GetOption
  610. @DlgCtrlSize(0, 10, 20, 12, 26)
  611. @If(@L==2)
  612. Eine ältere Version von MS Video for Windows
  613. ist bereits installiert. Diese Version sollte
  614. aktualisiert werden.
  615.  
  616. Wollen Sie die neueste Version von
  617. MS Video for Windows 1.1 installieren?
  618. @Else // @L
  619. An older version of MS Video for Windows
  620. is already installed. This version should
  621. be updated.
  622.  
  623. Do you want to install the latest version
  624. of MS Video for Windows 1.1?
  625. @Endif // @L
  626. @Option 1 = "@Y"
  627. @Option 0 = "@N"
  628. @EndOption
  629. @If(1 [= @Option) @SetGroup(V) @Endif
  630. @Endif // @FileDate, @StrToDate
  631. @Else // @Exists
  632.  @SetGroup(V)
  633. @Endif // @Exists
  634. @Endif // @OS
  635. @Endif // @Pl && 'W'
  636. /**/
  637.  
  638.  
  639. @DefineDisk
  640.     @Label = "Utilities & Various DOS Drivers"
  641.  
  642. @If(@L==2)
  643.  @F   README.GER @O README      @Group bw
  644.  @F  MAILBOX.GER @O MAILBOX.DOC @Group bw
  645. @If(@OS!=4) @F     DPMS.GER @O DPMS.DOC    @Group s @Endif
  646. @Else
  647.  @F   README.ENG @O README      @Group bw
  648.  @F  MAILBOX.ENG @O MAILBOX.DOC @Group bw
  649. @If(@OS!=4) @F     DPMS.ENG @O DPMS.DOC    @Group s @Endif
  650. @Endif // @L
  651.  
  652.  @F  BIOS.TXT @Group b
  653. @If(@Pl==1) @F  SHOW.EXE @Group bws   @Endif
  654. @If(@Pl==3) @F WSHOW.EXE @Group bws   @Endif
  655.  
  656.     @BeginLib V7MERP64.LIF
  657. /* Utilities: */
  658.       @File V7MEPVBE.EXE @Group b
  659.       @File   S3TEST.EXE @Group b
  660.       @File    SMODE.EXE @Group b
  661.       @File  V7HFREQ.COM @Group b
  662.       @File     EFIX.EXE @Group b
  663.  
  664. @If(@OS==4)
  665.  @F   S3TEST.PIF @Group b
  666.  @F   SPTUNE.PIF @Group b
  667. @Endif // @OS
  668.  
  669.       @File   SPTUNE.EXE @Group b
  670. @If(@L==2)
  671.       @File   SPTUNE.GHP          @Out   SPTUNE.HLP @Group b
  672.       @File   SPTUNE.GER          @Out   SPTUNE.TCO @Group b
  673. @Else
  674.       @File   SPTUNE.EHP          @Out   SPTUNE.HLP @Group b
  675.       @File   SPTUNE.ENG          @Out   SPTUNE.TCO @Group b
  676. @Endif
  677.       @File  BIT6X15.FNT @Out fonts\\BIT6X15.FNT  @Group b
  678.       @File COU15X25.FNT @Out fonts\\COU15X25.FNT @Group b
  679.       @File  COU9X16.FNT @Out fonts\\COU9X16.FNT  @Group b
  680.       @File     SANS.CHR @Out fonts\\SANS.CHR     @Group b
  681.  
  682.  
  683. // Aquila-Treiber für AutoCAD 11 , AutoShade, 3D Studio:
  684. @F     ACAD.ENG @O ACAD.DOC @Group dt
  685. @F   RCP_S3.EXP @Option 11 @Group d
  686. @F      IBM.LGO @Option 11 @Group d
  687. @F       HP.LGO @Option 11 @Group d
  688. @F   NEWS3I.LGO @Option 11 @Group d
  689. @F   AQUILA.LGO @Option 11 @Group d
  690. // Aquila-Treiber für AutoCAD 12 , AutoShade, 3D Studio:
  691. @F   RCP_S3.EXP @O @acad12drv:@acad12dir\\drv\\RCP_S3.EXP  @Option 12 @Group d
  692. @F      IBM.LGO @O @acad12drv:@acad12dir\\drv\\IBM.LGO     @Option 12 @Group d
  693. @F       HP.LGO @O @acad12drv:@acad12dir\\drv\\HP.LGO      @Option 12 @Group d
  694. @F   NEWS3I.LGO @O @acad12drv:@acad12dir\\drv\\NEWS3I.LGO  @Option 12 @Group d
  695. @F   AQUILA.LGO @O @acad12drv:@acad12dir\\drv\\AQUILA.LGO  @Option 12 @Group d
  696. // Aquila-Treiber nur für AutoShade, 3D Studio:
  697.        @If('D' [! @Group)
  698. @F   RCP_S3.EXP @Group t
  699. @F      IBM.LGO @Group t
  700. @F       HP.LGO @Group t
  701. @F   NEWS3I.LGO @Group t
  702. @F   AQUILA.LGO @Group t
  703.        @Endif
  704. // Fonts für AutoCAD, AutoShade:
  705. @F    12x20.FNT @O fonts\\12x20.FNT    @Group dt
  706. @F    12X24.FNT @O fonts\\12x24.FNT    @Group dt
  707. @F    15X25.FNT @O fonts\\15x25.FNT    @Group dt
  708. @F    16X30.FNT @O fonts\\16x30.FNT    @Group dt
  709. @F      6X9.FNT @O fonts\\6x9.FNT      @Group dt
  710. @F     8X16.FNT @O fonts\\8x16.FNT     @Group dt
  711. @F     9X15.FNT @O fonts\\9x15.FNT     @Group dt
  712.  
  713. /* MicroStation Protected Mode: */
  714. @If(@L==2) @File BIGMICRO.GER @Out BIGMICRO.DOC @Group mu @Else @File BIGMICRO.ENG @Out BIGMICRO.DOC @Group mu @Endif
  715.       @File    VMODE.EXE @Group mu
  716. // MicroStation 4.0x:
  717.       @File  MSPEAS3.EXP @Out @ustapdrv:@ustapdir\\drivers\\MSPEAS3.EXP @Group m
  718.       @File   MSSPEA.MA  @Out @ustapdrv:@ustapdir\\drivers\\MSSPEA.MA   @Group m
  719.       @File   MSSPEA.MGL @Out @ustapdrv:@ustapdir\\drivers\\MSSPEA.MGL  @Group m
  720. // MicroStation 5.0:
  721.       @File  MSPEAS3.MGL @Out @usta5drv:@usta5dir\\drivers\\MSPEAS3.MGL @Group u
  722.       @File  MSPEAS3.MA  @Out @usta5drv:@usta5dir\\drivers\\MSPEAS3.MA  @Group u
  723.       @File  MSPEAS3.DLM @Out @usta5drv:@usta5dir\\drivers\\MSPEAS3.DLM @Group u
  724.      @EndLib
  725.  
  726. @If(@OS==3)
  727.  @BeginLib SPENERGY.LIF
  728.   @F SPENERGY.EXE @O @WindowsDrive:@WindowsDir\\SPENERGY.EXE @Group w
  729. @If(@L==2)
  730.   @F SPENERGY.GER @O @WindowsDrive:@WindowsDir\\SPENERGY.TCO @Group w
  731.   @F   DPMS_D.HLP @O @WindowsDrive:@WindowsDir\\SPENERGY.HLP @Group w
  732. @Else
  733.   @F SPENERGY.ENG @O @WindowsDrive:@WindowsDir\\SPENERGY.TCO @Group w
  734.   @F   DPMS_E.HLP @O @WindowsDrive:@WindowsDir\\SPENERGY.HLP @Group w
  735. @Endif // @L
  736. /*
  737.   @F SPENERGY.EXE @Group w
  738. @If(@L==2)
  739.   @F SPENERGY.GER @O SPENERGY.TCO @Group w
  740.   @F   DPMS_D.HLP @O SPENERGY.HLP @Group w
  741. @Else
  742.   @F SPENERGY.ENG @O SPENERGY.TCO @Group w
  743.   @F   DPMS_E.HLP @O SPENERGY.HLP @Group w
  744. @Endif // @L
  745. /**/
  746.   @F   V7DPMS.DLL @O @WinSysDrive:@WinSysDir\\V7DPMS.DLL @Group w
  747.  @EndLib
  748.  
  749.  @If("@StartupDir" != "\\")
  750.   @If(@L==2)
  751.    @F support\\SUPPORT.GER @O @OutDrive:@SubDir\\SUPPORT.HLP @Group w
  752.   @Else // @L
  753.    @F support\\SUPPORT.ENG @O @OutDrive:@SubDir\\SUPPORT.HLP @Group w
  754.   @Endif // @L
  755.   @F support\\SUPPORT.ICO @O @OutDrive:@SubDir\\SUPPORT.ICO @Group w
  756.  @Endif // @StartupDir
  757.  
  758. @Endif // @OS
  759. @EndDisk
  760.  
  761.  
  762. @If('B' [= @Group)
  763.  @Write ("@OutDrive:\\@SubDir\\setgdc.bat", "wt", "SET GDC=@OutDrive:@SubDir\n")
  764. @Endif
  765.  
  766. @If(@Pl==1)
  767.  @Write ("@OutDrive:\\@SubDir\\init.bat", "wt", "@@echo off\n")
  768.  @If('B' [= @Group)
  769.   @Write ("@OutDrive:\\@SubDir\\init.bat", "at", "call setgdc.bat\n")
  770.   @Write ("@OutDrive:\\@SubDir\\init.bat", "at", "v7hfreq t\n")
  771. @If(@OS!=2)
  772.   @Write ("@OutDrive:\\@SubDir\\init.bat", "at", "sptune\n")
  773. @Endif // @OS
  774.  @Endif // 'B'
  775. @Endif // @Pl
  776.  
  777. @If('U' [= @Group || 'M' [= @Group)
  778. @Write ("@OutDrive:\\@SubDir\\MSPEAPM.BAT", "wt", "@@echo off\n")
  779. @If(@L==2)
  780. @Write ("@OutDrive:\\@SubDir\\MSPEAPM.BAT", "at", "rem Für S3-EINSCHIRMLÖSUNG:\n")
  781. @Write ("@OutDrive:\\@SubDir\\MSPEAPM.BAT", "at", "SET MSPEAPM=-c10 -v0\n")
  782. @Write ("@OutDrive:\\@SubDir\\MSPEAPM.BAT", "at", "rem (-v0 steht für die gewünschte oder mögliche Auflösung)\n")
  783. @Else // 2
  784. @Write ("@OutDrive:\\@SubDir\\MSPEAPM.BAT", "at", "rem For S3 SINGLE SCREEN:\n")
  785. @Write ("@OutDrive:\\@SubDir\\MSPEAPM.BAT", "at", "SET MSPEAPM=-c10 -v0\n")
  786. @Write ("@OutDrive:\\@SubDir\\MSPEAPM.BAT", "at", "rem (-v0 signifies the desired or possible resolution)\n")
  787. @Endif // 2
  788. @Endif // 'U' || 'M'
  789.  
  790. @If('D' [= @Group || 'T' [= @Group)
  791. @If(11 [= @Option)
  792.   @Write("@OutDrive:\\@SubDir\\V7ACAD.BAT", "wt", "SET DSPADI=@OutDrive:@SubDir\\RCP_S3.EXP\n")
  793. @Endif
  794. @If(11 [= @Option && 'T' [= @Group)
  795.   @Write("@OutDrive:\\@SubDir\\V7ACAD.BAT", "at", "SET RCPADI=@OutDrive:@SubDir\\RCP_S3.EXP\n")
  796.   @Write("@OutDrive:\\@SubDir\\V7ACAD.BAT", "at", "SET RDPADI=@OutDrive:@SubDir\\RCP_S3.EXP\n")
  797. @Endif
  798. @If(12 [= @Option)
  799.   @Write("@OutDrive:\\@SubDir\\V7ACAD.BAT", "wt", "SET ACADDRV=@acad12drv:@acad12dir\\DRV\n")
  800. @Endif
  801. @If(12 [= @Option && 'T' [= @Group)
  802.   @Write("@OutDrive:\\@SubDir\\V7ACAD.BAT", "at", "SET DSPADI=@acad12drv:@acad12dir\\DRV\\RCP_S3.EXP\n")
  803.   @Write("@OutDrive:\\@SubDir\\V7ACAD.BAT", "at", "SET RCPADI=@acad12drv:@acad12dir\\DRV\\RCP_S3.EXP\n")
  804.   @Write("@OutDrive:\\@SubDir\\V7ACAD.BAT", "at", "SET RDPADI=@acad12drv:@acad12dir\\DRV\\RCP_S3.EXP\n")
  805. @Endif
  806. @If(11 [! @Option && 12 [! @Option && 'T' [= @Group)
  807.   @Write("@OutDrive:\\@SubDir\\V7ACAD.BAT", "wt", "SET DSPADI=@OutDrive:@SubDir\\RCP_S3.EXP\n")
  808.   @Write("@OutDrive:\\@SubDir\\V7ACAD.BAT", "at", "SET RCPADI=@OutDrive:@SubDir\\RCP_S3.EXP\n")
  809.   @Write("@OutDrive:\\@SubDir\\V7ACAD.BAT", "at", "SET RDPADI=@OutDrive:@SubDir\\RCP_S3.EXP\n")
  810. @Endif
  811. @If(220 [= @Option) @Write("@OutDrive:\\@SubDir\\V7ACAD.BAT", "at", "SET AQUILA_FONT=@OutDrive:@SubDir\\FONTS\\6X9.FNT\n")   @Endif
  812. @If(230 [= @Option) @Write("@OutDrive:\\@SubDir\\V7ACAD.BAT", "at", "SET AQUILA_FONT=@OutDrive:@SubDir\\FONTS\\8X16.FNT\n")  @Endif
  813. @If(240 [= @Option) @Write("@OutDrive:\\@SubDir\\V7ACAD.BAT", "at", "SET AQUILA_FONT=@OutDrive:@SubDir\\FONTS\\9X15.FNT\n")  @Endif
  814. @If(250 [= @Option) @Write("@OutDrive:\\@SubDir\\V7ACAD.BAT", "at", "SET AQUILA_FONT=@OutDrive:@SubDir\\FONTS\\12X20.FNT\n") @Endif
  815. @If(260 [= @Option) @Write("@OutDrive:\\@SubDir\\V7ACAD.BAT", "at", "SET AQUILA_FONT=@OutDrive:@SubDir\\FONTS\\12X24.FNT\n") @Endif
  816. @If(270 [= @Option) @Write("@OutDrive:\\@SubDir\\V7ACAD.BAT", "at", "SET AQUILA_FONT=@OutDrive:@SubDir\\FONTS\\15X25.FNT\n") @Endif
  817. @If(280 [= @Option) @Write("@OutDrive:\\@SubDir\\V7ACAD.BAT", "at", "SET AQUILA_FONT=@OutDrive:@SubDir\\FONTS\\16X30.FNT\n") @Endif
  818. @Endif /* 'D' || 'T' */
  819.  
  820.  
  821. /*
  822. // Create SPEA Group and Items #0
  823. @If(@OS==2 && 'W' [= @Group)
  824. @DefineVars
  825. @QString @PM1 = "[CreateGroup(SPEA)]"
  826. //@QString @PM2 = "[AddItem(@OutDrive:@SubDir\\SPENERGY.EXE, SPEAenergy,,0)]"
  827. @QString @PM2 = "[AddItem(@WindowsDrive:@WindowsDir\\SPENERGY.EXE, SPEAenergy,,0)]"
  828. @EndVars
  829. @ProgramManager("@PM1@PM2")
  830. @Endif // @OS && 'W'
  831. /**/
  832.  
  833. // Create SPEA Group and Items #1
  834. @If(@OS==3  && 'W' [= @Group)
  835. @DefineVars
  836. @QString @PM1 = "[ShowGroup(SPEA/V7,2)]"
  837. @QString @PM2 = "[CreateGroup(SPEA/V7)]"
  838. @QString @PM3 = "[ReplaceItem(SPEAenergy)]"
  839. @If("@StartupDir" != "\\")
  840.  @QString @PM31 = "[ReplaceItem(Support Info)]"
  841. @Else // @StartupDir
  842.  @QString @PM31 = ""
  843. @Endif // @StartupDir
  844. @EndVars
  845. @ProgramManager("@PM1@PM2@PM3@PM31")
  846. @Endif // @OS && 'W'
  847.  
  848. @ChDrive @InDrive
  849.  
  850. @If(@Pl==3 && 'W' [= @Group)
  851.  @If(@OS==3 || @OS==2)
  852.   @If("@StartupDir" != "\\")
  853.    @ChDir("..\\win31")
  854.    @Chain("Drivers for Windows 3.1x", "..\\win31\\INSTALL.DAT")
  855.   @Else
  856.    @Chain("Drivers for Windows 3.1x")
  857.   @Endif
  858.  @ElseIf(@OS==4)
  859.   @If("@StartupDir" != "\\")
  860.    @ChDir("..\\win95")
  861.    @Chain("Drivers for Windows 95", "..\\win95\\INSTALL.DAT")
  862.   @Else
  863.    @Chain("Drivers for Windows 95")
  864.   @Endif
  865.  @Endif // @OS
  866. @Endif // @Pl && 'W'
  867.  
  868.  
  869. NACHV7SETUP:
  870.  
  871. @Display @Cls
  872. @If(@L==2)
  873. @If(@Pl==3 && 'W' [= @Group)
  874.  Nach Beendigung von V7SETUP@Else Nun@Endif wird die Datei
  875.  README geöffnet. Sie enthält die neuesten
  876.  Informationen zur @Name.
  877.  
  878.  Um die Installation fortzusetzen, beenden Sie
  879.  README mit der Taste [Esc].
  880. @Else // @L
  881. @If(@Pl==3 && 'W' [= @Group)
  882.  After the end of V7SETUP@Else Now@Endif, the file README
  883.  will be opened. It contains the latest
  884.  information on @Name.
  885.  
  886.  To continue the installation, terminate README
  887.  with the key [Esc].
  888. @Endif // @L
  889. @Pause
  890. @EndDisplay
  891.  
  892. @ChDrive @OutDrive
  893. @ChDir ("@SubDir")
  894. @If(@Exists("@OutDrive:@SubDir\\README"))
  895.  @If(@Pl==1)
  896.   @If (@System "show readme") @Endif
  897.  @ElseIf(@Pl==3)
  898.   @WinExec("@OutDrive:@SubDir\\WSHOW README.", 1, (-1))
  899.  @Endif // @Pl
  900. @Endif // @Exists
  901.  
  902. @If('B' [= @Group)
  903. @ChangeLine("V7HFREQ", "", "@BootDrive:\\AUTOEXEC.BAT")
  904. @ChangeLine("V7HFREQ", "", "@BootDrive:\\AUTOEXEC.BAT")
  905. @ChangeLine("V7HFREQ", "", "@BootDrive:\\AUTOEXEC.BAT")
  906.  
  907. @SetAutoexec @Overwrite
  908.  @SetReplace("GDC", "@OutDrive:@SubDir")
  909. @If(@OS==4)
  910.  @Verbatim "@OutDrive:@SubDir\\V7HFREQ t w"
  911. @Else // @OS
  912.  @Verbatim "@OutDrive:@SubDir\\V7HFREQ t"
  913. @Endif // @OS
  914. @EndAutoexec
  915. @Endif // 'B'
  916.  
  917. // Create SPEA Group and Items #2
  918. @If(@OS==3 && 'W' [= @Group)
  919. @DefineVars
  920. @QString @PM5 = "[CreateGroup(SPEA/V7)]"
  921. @QString @PM6 = "[AddItem(@WindowsDrive:@WindowsDir\\SPENERGY.EXE, SPEAenergy,,0)]"
  922. @If("@StartupDir" != "\\")
  923.  @QString @PM61 = "[AddItem(@WindowsDrive:@WindowsDir\\WINHELP.EXE @OutDrive:@SubDir\\SUPPORT.HLP, Support Info, @OutDrive:@SubDir\\SUPPORT.ICO, 0)]"
  924. @Else // @StartupDir
  925.  @QString @PM61 = ""
  926. @Endif // @StartupDir
  927. @QString @PM7 = "[ShowGroup(SPEA/V7,1)]"
  928. @EndVars
  929. @ProgramManager("@PM5@PM6@PM61@PM7")
  930. @Endif // @OS && 'W'
  931.  
  932.  
  933. @If(@Pl==3 && (@OS==3 || @OS==4) && 'W' [= @Group)
  934.  @GetOption @If(@PL==1) @Checkbox @LocalWindow (13, 39) @ElseIf(@Pl==3) @DlgCtrlSize(0, 6, 0, 8, 8) @Endif
  935. @If(@L==2)
  936. Zur Vervollständigung der Installation
  937. muß Ihr Computer neu gestartet werden.
  938. Wollen Sie jetzt neustarten?
  939. @Else
  940. Your computer must be rebooted
  941. to complete the installation.
  942. Do you want to reboot now?
  943. @Endif // @L
  944. @If(@Pl==1)@t021
  945. @t022
  946. @t023
  947.  @Option 0 = "" @ElseIf(@Pl==3) @Option 0 = "@Y" @Option 1 = "@N" @Endif
  948.  @EndOption
  949. @DefineVars @If(0 [= @Option) @Integer @WinExit = 1 @Else @Integer @WinExit = 0 @Endif @EndVars
  950. @Endif // @Pl && @OS && 'W'
  951.  
  952.  
  953. @If(@Pl==1)
  954. @If('W' [= @Group)
  955.  
  956. @Display
  957. @If(@L==2)
  958.  Die Installation von
  959.     @Drivers @and @Utilities @for Windows 3.1x / Windows 95
  960.  wird unter Windows durchgeführt:
  961.  
  962.  
  963.  1. Starten Sie Windows
  964.  
  965.  2. Starten Sie das Installationsprogramm für Windows mit dem Befehl:
  966.     Datei | Ausführen: @InDrive:\@If("@StartupDir" != "\\")SPEAINST@Else@!SETUP@Endif.EXE
  967.  
  968.  3. Wählen Sie "@Drivers @and @Utilities @for Windows 3.1x / Windows 95"
  969. @Else // @L
  970.  The installation of
  971.     @Drivers @and @Utilities @for Windows 3.1x / Windows 95
  972.  must be carried out under Windows:
  973.  
  974.  
  975.  1. Start Windows
  976.  
  977.  2. Start the installation programm for Windows with the command:
  978.     File | Run: @InDrive:\@If("@StartupDir" != "\\")SPEAINST@Else@!SETUP@Endif.EXE
  979.  
  980.  3. Select "@Drivers @and @Utilities @for Windows 3.1x / Windows 95"
  981. @Endif // @L
  982. @Pause
  983. @EndDisplay
  984. @Endif // 'W'
  985. @Endif // @Pl
  986.  
  987.  
  988. @Finish
  989. @If(@Pl==3 && (@OS==3 || @OS==4) && 'W' [= @Group)
  990. @If(@WinExit==1)
  991. @If("@StartupDir" == "\\")
  992. @If(@L==2)
  993. Ihr Computer wird jetzt neu gestartet.
  994. Bitte nehmen Sie die Diskette aus Laufwerk @InDrive.
  995. @Else
  996. Your computer will now be rebooted.
  997. Please remove the disk from drive @Indrive.
  998. @Endif
  999. @Pause
  1000. @Endif // @StartupDir
  1001. @WindowsExit(-1)
  1002. @Endif // @WinExit
  1003. @Endif // @Pl && @OS && 'W'
  1004.  
  1005. @If(@Pl==3 && @OS==2 && 'W' [= @Group)
  1006. @WindowsExit(-1)
  1007. @Endif // @Pl && @OS && 'W'
  1008.  
  1009. @If(@Pl==1)
  1010. @If(@OS==2) @Else
  1011. @If('B' [= @Group)
  1012.  @Cls
  1013.  @If(@L==2)
  1014.     INSTALL startet nun das Programm SPEAtune.
  1015.     
  1016.     Mit diesem Programm haben Sie die Möglichkeit, die @B
  1017.     optimal an Ihren Monitor anzupassen. Die gewählten Einstellungen
  1018.     können abgespeichert werden und bleiben auch nach einem Neustart
  1019.     des Rechners erhalten.
  1020.     Nähere Informationen entnehmen Sie bitte der Datei README sowie der
  1021.     Online-Hilfe von SPEAtune.
  1022.     
  1023.     Achtung:
  1024.     Wenn Sie die genauen Daten Ihres Monitors nicht kennen, verlassen
  1025.     Sie SPEAtune mit der Taste [Esc].
  1026.  
  1027.  @Pause
  1028.  @Else
  1029.     INSTALL will now start the program SPEAtune.
  1030.     
  1031.     This program allows you to adapt the @B accurately
  1032.     to your monitor. The selected settings can be memorized and will
  1033.     be present after a system reset.
  1034.     
  1035.     For further information, please refer to the file README and to
  1036.     the SPEAtune online-help.
  1037.     
  1038.     Attention:
  1039.     If you do not know the exact specifications of your monitor,
  1040.     press [Esc] to quit SPEAtune.
  1041.  
  1042.  @Pause
  1043.  @Endif
  1044. @ChDrive @OutDrive
  1045. @ChDir ("@SubDir")
  1046. @Endif // 'B'
  1047. @Endif // @OS
  1048. @Endif // @Pl
  1049.  
  1050. @If(@Pl==1) @Execute("@GetENV("COMSPEC")", "/E:1024 /CINIT.BAT") @Endif
  1051. @EndFinish
  1052.