home *** CD-ROM | disk | FTP | other *** search
/ Media Gallery 1996 January / MG_0196.ISO / spea / install / vegaplus / util / install.dat < prev    next >
Text File  |  1995-11-20  |  31KB  |  925 lines
  1. @DefineProject
  2.  @Name = "V7-VEGA PLUS"
  3.  @Version ="Release 0295.7"
  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")
  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 || @OS==4 && "@P4"!="dospart"))
  119. @Display @Cls
  120. @If(@L==2)
  121.  Bitte starten Sie das Installationsprogramm mit dem Befehl:
  122.  
  123. @If("@StartupDir"=="\\")
  124.  Datei | Ausführen: @InDrive:\SETUP.EXE (unter Windows)
  125.  @InDrive:\>INSTALL.BAT                 (unter DOS)
  126. @Else // @StartupDir
  127.  Datei | Ausführen: @InDrive:@StartupDir\SETUP.EXE (unter Windows)
  128.  @InDrive:@StartupDir>INSTALL.BAT                  (unter DOS)
  129. @Endif // @StartupDir
  130. @Else // @L
  131.  Please start the installation program with the command:
  132.  
  133. @If("@StartupDir"=="\\")
  134.  File | Run: @InDrive:\SETUP.EXE (under Windows)
  135.  @InDrive:\>INSTALL.BAT          (under DOS)
  136. @Else // @StartupDir
  137.  File | Run: @InDrive:@StartupDir\SETUP.EXE (under Windows)
  138.  @InDrive:@StartupDir>INSTALL.BAT           (under DOS)
  139. @Endif // @StartupDir
  140. @Endif // @L
  141. @Pause
  142. @EndDisplay
  143. @Exit
  144. @Endif // @Pl, @OS, @P4
  145.  
  146. @If("@P4" == "dospart") @Chain("Utilities & DOS Drivers", "DOSPART.DAT") @Endif
  147.  
  148. @DefineVars
  149. @QString @B = "V7-VEGA PLUS"
  150. @QString @Checkfile = "ASCAN2.EXE"
  151.  
  152. @If(@Platform==1)
  153.  @QString @UP  = "[]"
  154.  @QString @DN  = "[]"
  155.  @QString @RET = "[─┘]"
  156. @ElseIf(@Platform==3)
  157.  @If(@L==2)
  158.   @QString @UP  = "AUF"
  159.   @QString @DN  = "AB"
  160.   @QString @RET = "RETURN"
  161.  @Else // @L
  162.   @QString @UP  = "UP"
  163.   @QString @DN  = "DOWN"
  164.   @QString @RET = "ENTER"
  165.  @Endif // @L  
  166. @Endif // @Platform
  167.  
  168.  @Drive @acad12drv = C
  169.  @Dir @acad12dir = "\\ACAD"
  170.  @Drive @ustapdrv = C
  171.  @Dir @ustapdir = "\\USTATION"
  172.  @Drive @usta5drv = C
  173.  @Dir @usta5dir = "\\USTATION"
  174.  @Drive @ckdrv = C
  175.  @Dir @ckdir = "\\CADKEY"
  176.  @Drive @cvandrv = C
  177.  @Dir @cvandir = "\\CADVANCE"
  178.  @Drive @datadrv = C
  179.  @Dir @datadir = "\\MTEC"
  180.  @Drive @gendrv = C
  181.  @Dir @gendir = "\\CADD6"
  182.  @Drive @ustardrv = C
  183.  @Dir @ustardir = "\\USTATION"
  184.  @Drive @lotusdrv = C
  185.  @Dir @lotusdir = "\\123"
  186.  @Drive @symdrv = C
  187.  @Dir @symdir = "\\SYM"
  188.  @Drive @worddrv = C
  189.  @Dir @worddir = "\\WORD"
  190.  @Drive @versadrv = C
  191.  @Dir @versa53dir = "\\VCAD53"
  192.  @Dir @versa54dir = "\\VCAD"
  193.  @Dir @versa386dir = "\\VCAD386"
  194.  @Drive @wpdrv = C
  195.  @Dir @wpdir = "\\WP"
  196.  @QString @d8 = "\n\n\n\n\n\n\n\n"
  197. @If (@L==1) 
  198. @QString @t011 = " Use the keys [] and [] to select a drive. Press [─┘] to continue."
  199. @QString @t012 = " "
  200. @QString @t021 = " Use the SPACE BAR to select YES or NO."
  201. @QString @t022 = " Press [─┘] to continue and create this directory (if YES)"
  202. @QString @t023 = " or to modify the last input (if NO)."
  203. @QString @t033 = " "
  204. @QString @t041 = " On which disk drive is"
  205. @QString @t042 = "installed at present?"
  206. @QString @t051 = " In which directory is"
  207. @QString @t061 = "does not exist. Do you want to create it?"
  208. @QString @t081 = " Directory"
  209. @QString @t091 = " Which directory"
  210. @QString @t101 = "already exists."
  211. @QString @t102 = " Do you want to continue installing in this directory?"
  212. @QString @t111 = " Use the SPACE BAR to select YES or NO. Press [─┘] to continue."
  213. @QString @t133 = " Use the keys [] and [] to select. Press [─┘] to continue."
  214. @QString @t121 = " On which disk drive do you want to install the \"@B Utilities\" ?"
  215. @QString @t131 = " For which version of"
  216. @QString @t132 = "do you want to install @B drivers?"
  217. @QString @t141 = " On which disk drive do you want to install the @B driver"
  218. @QString @t142 = " and the font files for AutoCAD release 11 ?"
  219. @QString @t143 = " In which directory do you want to install the @B driver"
  220. @QString @t144 = " On which disk drive do you want to install the font files"
  221. @QString @t145 = " for AutoCAD Release 12 ?"
  222. @QString @t146 = " In which directory do you want to install the font files"
  223. @QString @t147 = " and the font files for AutoShade / 3DStudio ?"
  224. @QString @t148 = " Which font size do you want to use in AutoCAD und AutoShade ?"
  225. @QString @t171 = "        Select the applications for which you want to install drivers."
  226. @QString @t172 = "        ATTENTION: If this installation program is being executed for"
  227. @QString @t173 = "                   the FIRST TIME, also select \"@B Utilities\"."
  228. @QString @t174 = "         Use the []  and []  keys to move the cursor up and down."
  229. @QString @t175 = "         Use the SPACE BAR  to activate or deactivate installation of"
  230. @QString @t176 = "         the driver at the cursor position. Press [─┘] when finished."
  231. @QString @t201 = " Please enter the directory in which you want the \"@B Utilities\""
  232. @QString @t202 = " to be installed. The standard name of the directory is: @SubDir"
  233. @QString @t203 = " "
  234. @QString @t204 = "Do you want to continue"
  235. @QString @t205 = " installing the \"@B Utilities\" in this directory?"
  236. @QString @t251 = " On which disk drive did you install the \"@B Utilities\" ?"
  237. @QString @t252 = " In which directory did you install the \"@B Utilities\" ?"
  238. @QString @t253 = "does not contain the \"@B Utilities\"."
  239. @QString @t254 = "does not exist."
  240. @QString @t300 = " Cannot find the \"@B Utilities\" in directory"
  241. @QString @t301 = " If the \"@B Utilities\" are not installed, press [Esc]."
  242. @QString @Y = "YES"
  243. @QString @N = "NO "
  244. @QString @Drivers = "Drivers"
  245. @QString @for = "for"
  246. @QString @and = "and"
  247. @QString @Utilities = "utilities"
  248. @Endif 
  249. @If (@L==2) 
  250. @QString @t011 = " Mit den Tasten [] und [] können Sie ein Laufwerk auswählen."
  251. @QString @t012 = " Bestätigen Sie mit [─┘]."
  252. @QString @t021 = " Wählen Sie JA oder NEIN mit der LEERTASTE."
  253. @QString @t022 = " Drücken Sie [─┘] zur Fortsetzung (Verzeichnis wird erzeugt, wenn JA)"
  254. @QString @t023 = " oder zur Änderung der letzten Eingabe (wenn NEIN)."
  255. @QString @t033 = " "
  256. @QString @t041 = " Auf welchem Laufwerk ist"
  257. @QString @t042 = "derzeit installiert?"
  258. @QString @t051 = " In welchem Verzeichnis ist"
  259. @QString @t061 = "existiert nicht. Wollen Sie es erzeugen ?"
  260. @QString @t071 = " Die Installation von"
  261. @QString @t072 = "wurde erfolgreich vorbereitet."
  262. @QString @t081 = " Verzeichnis"
  263. @QString @t091 = " Welches Verzeichnis"
  264. @QString @t101 = "existiert bereits."
  265. @QString @t102 = " Wollen Sie die Installation in diesem Verzeichnis fortsetzen?"
  266. @QString @t111 = " Wählen Sie JA / NEIN mit der Leertaste. Drücken Sie anschließend [─┘]."
  267. @QString @t133 = " Benutzen Sie die Tasten [] und [] zur Auswahl. Bestätigen Sie mit [─┘]."
  268. @QString @t121 = " Auf welchem Laufwerk wollen Sie die \"@B Utilities\"\n installieren?"
  269. @QString @t131 = " Für welche Version von"
  270. @QString @t132 = "wollen Sie @B Treiber installieren?"
  271. @QString @t141 = " Auf welches Laufwerk wollen Sie den @B Treiber und die"
  272. @QString @t142 = " Schriftfontdateien für AutoCAD Release 11 installieren?"
  273. @QString @t143 = " In welches Verzeichnis wollen Sie den @B Treiber und die"
  274. @QString @t144 = " Auf welches Laufwerk wollen Sie die Schriftfontdateien"
  275. @QString @t145 = " für AutoCAD Release 12 installieren?"
  276. @QString @t146 = " In welches Verzeichnis wollen Sie die Schriftfontdateien"
  277. @QString @t147 = " Schriftfontdateien für AutoShade / 3DStudio installieren?"
  278. @QString @t148 = " Welche Schriftfontgröße wollen Sie in AutoCAD und AutoShade nutzen?"
  279. @QString @t171 = "    Wählen Sie die Anwendungen, für die Treiber installiert werden sollen."
  280. @QString @t172 = "    ACHTUNG:   Wenn dieses Installationsprogramm zum ERSTEN MAL ausgeführt"
  281. @QString @t173 = "               wird, wählen Sie zusätzlich \"@B Utilities\"."
  282. @QString @t174 = "       Mit den Tasten [] und [] können Sie den Auswahlbalken bewegen."
  283. @QString @t175 = "       Mit der LEERTASTE können Sie den invers dargestellten Treiber"
  284. @QString @t176 = "       zur Installation aktivieren/deaktivieren. Fortsetzung mit [─┘]."
  285. @QString @t201 = "      Bitte geben Sie das Verzeichnis an, in dem die"
  286. @QString @t202 = "      \"@B Utilities\" installiert werden sollen."
  287. @QString @t203 = "      Das Standardverzeichnis hierfür lautet: @SubDir"
  288. @QString @t204 = "Wollen Sie die Installation"
  289. @QString @t205 = " der \"@B Utilities\" in diesem Verzeichnis fortsetzen?"
  290. @QString @t251 = " Auf welchem Laufwerk haben Sie die \"@B Utilities\" installiert ?"
  291. @QString @t252 = " In welchem Verzeichnis haben Sie die \"@B Utilities\" installiert ?"
  292. @QString @t253 = "enthält nicht die \"@B Utilities\"."
  293. @QString @t254 = "existiert nicht."
  294. @QString @t300 = " Kann die \"@B Utilities\" nicht finden im Verzeichnis"
  295. @QString @t301 = " Wenn die \"@B Utilities\" nicht installiert sind, drücken Sie [Esc]."
  296. @QString @Y = " JA "
  297. @QString @N = "NEIN"
  298. @QString @Drivers = "Treiber"
  299. @QString @for = "für"
  300. @QString @and = "und"
  301. @QString @Utilities = "Dienstprogramme"
  302. @Endif 
  303. @EndVars
  304.  
  305.  
  306. NOCHMAL:
  307. @FlushGroups()
  308. @MaxListSize(8)
  309. @If(@Pl==1) @SetGroup(B) @Endif
  310. @If(@Pl==3) @SetGroup(W) @Endif
  311. /*
  312. @GetGroups @Checkbox @If(@Pl==1) @LocalWindow (12, 39) @Cls @Endif @If(@Pl==3) @DlgCtrlSize(0, 4, 0, 8, 60) @Endif @If(@L==2)
  313.  Welche Teile der @Name Software wollen Sie installieren? @Else
  314.  Which parts of the @Name software do you want to install? @Endif // @L
  315. @d8
  316.  
  317.  
  318.  
  319. @If(@L==2) Mit den Tasten @UP und @DN können Sie den Auswahlbalken bewegen.
  320.  Mit der LEERTASTE können Sie die aktuelle Zeile aktivieren oder
  321.  deaktivieren. Betätigen Sie die Taste @RET zur Fortsetzung.
  322. @Else Use the @UP and @DN keys to move the selection bar.
  323.  Use the SPACE key to activate or deactivate the current line.
  324.  Press the @RET key to continue. @Endif // @L
  325. @Set W = "@Drivers @and @Utilities @for Windows 3.1x / Windows 95 "
  326. @Set B = "@Utilities @for DOS"
  327. //@Set D = "S3 @Drivers @for AutoCAD 11/386 & 12"
  328. //@Set T = "S3 @Drivers @for AutoShade 2.1, 3DStudio 1.0/2.0    "
  329. //@Set M = "SPEA BigMicro @Drivers @for MicroStation 4.0x "
  330. //@Set U = "SPEA BigMicro @Drivers @for MicroStation 5.0 "
  331. @EndGroups
  332. /**/
  333. @BarOffset(0)
  334.  
  335.  
  336. @If('W' [= @Group || 'B' [= @Group || 'D' [= @Group || 'T' [= @Group) @Else
  337. @Display @Cls
  338. @If(@L==2)
  339.  Es wurde nichts ausgewählt!
  340. @Else
  341.  Nothing was selected!
  342. @Endif
  343. @Pause
  344. @EndDisplay
  345. @Goto NOCHMAL
  346. @Endif
  347.  
  348. ENVIRON:
  349. @GetOutDrive @If(@Pl==1) @LocalWindow(24, 39) @ElseIf(@Pl==3) @DlgCtrlSize(0, 5, 20, 12, 35) @Endif
  350. @If(@L==2) Auf welchem Laufwerk wollen Sie die
  351.  @Name Software installieren?
  352. @If(@Pl==1) Mit den Tasten @UP und @DN können Sie ein Laufwerk auswählen.
  353.  Drücken Sie anschließend @RET. @Endif // @Pl
  354. @Else
  355.  On which disk drive do you want to install
  356.  the @Name software?
  357. @If(@Pl==1) Use the keys @UP and @DN to select a drive. Press @RET to continue. @Endif // @Pl
  358. @Endif // @L
  359. @EndOutDrive
  360.  
  361. @GetSubDir
  362. @If(@L==2) In welchem Verzeichnis wollen Sie die
  363.  @Name Software installieren?
  364. @Else
  365.  In which directory do you want to install
  366.  the @Name software?
  367. @Endif // @L
  368. @If(@Pl==1) @LocalWindow(16, 39) @ElseIf(@Pl==3) @DlgCtrlSize(0, 6, 0, 7, 50) @Endif
  369. @EndSubDir
  370.  
  371. @If(@Exists("@OutDrive:@SubDir"))
  372. @ClearOption(0)
  373. @ClearOption(1)
  374. @GetOption
  375. @If(@Pl==1) @LocalWindow(16, 39) @ElseIf(@Pl==3) @DlgCtrlSize(0, 6, 20, 8, 26) @Endif
  376. @If(@L==2)
  377.  Verzeichnis @OutDrive:@SubDir existiert bereits.
  378.  Wollen Sie die Installation in diesem Verzeichnis fortsetzen?
  379.  
  380. @If(@Pl==1) Wählen Sie JA oder NEIN mit den Tasten @UP und @DN.
  381.  Drücken Sie anschließend @RET. @Endif // @Pl
  382. @Else
  383.  Directory @OutDrive:@SubDir already exists.
  384.  Do you want to continue installing in this directory?
  385.  
  386. @If(@Pl==1) Use the keys @UP and @DN to select YES or NO.
  387.  Press @RET to continue. @Endif // @Pl
  388. @Endif // @L
  389. @Option 1 = "@Y"
  390. @Option 0 = "@N"
  391. @EndOption
  392. @If (0 [= @Option) @Goto ENVIRON @Endif
  393. @Endif // @Exists
  394.  
  395.  
  396. @If('D' [= @Group || 'T' [= @Group)
  397. @If('D' [= @Group)
  398.  @ClearOption(11)
  399.  @ClearOption(12)
  400. @GetOption @If(@Pl==1) @LocalWindow (13, 39) @ElseIf(@Pl==3) @DlgCtrlSize(0, 5, 0, 7, 25) @Endif
  401. @t131 AutoCAD 
  402.  @t132
  403. @If(@Pl==1)@t133 @Endif
  404. @Option 12 = "AutoCAD Release 12"
  405. @Option 11 = "AutoCAD Release 11"
  406. @EndOption
  407. @Endif /* 'D' */
  408.  
  409. @If(11 [= @Option)
  410. aqu11:
  411. @If('B' [! @Group)
  412. @GetOutDrive @If(@Pl==1) @LocalWindow (15, 39) @ElseIf(@Pl==3) @DlgCtrlSize(0, 5, 0, 12, 15) @Endif
  413. @t141
  414. @t142
  415. @If(@Pl==1)@t011
  416. @t012 @Endif
  417. @EndOutDrive
  418.  
  419. @GetSubdir
  420. @t143
  421. @t142
  422. @If(@Pl==1) @LocalWindow (13, 39) @ElseIf(@Pl==3) @DlgCtrlSize(0, 6, 0, 7, 50) @Endif
  423. @If(@Pl==1) @Prompt = "@t091 ([─┘] = @SubDir)? " @Endif
  424. @EndSubdir
  425.  
  426. @Endif /* !'B' */
  427.  
  428. @ELSEIF (12 [= @Option)
  429. acad12:
  430. @GetOutDrive @acad12drv @If(@Pl==1) @LocalWindow (15, 39) @ElseIf(@Pl==3) @DlgCtrlSize(0, 5, 0, 12, 15) @Endif
  431. @t041 AutoCAD Rel.12 @t042
  432. @If(@Pl==1)@t011
  433. @t012 @Endif
  434. @EndOutDrive
  435.  
  436. @GetSubdir @acad12dir @Default = "\\ACAD\\"
  437. @t051 AutoCAD Rel.12 @t042
  438. @If(@Pl==1) @LocalWindow (13, 39) @ElseIf(@Pl==3) @DlgCtrlSize(0, 4, 0, 5, 50) @Endif
  439. @If(@Pl==1) @Prompt = "@t091 ([─┘] = @acad12dir)? " @Endif
  440. @EndSubdir
  441.  
  442. @If(@Exists "@acad12drv:@acad12dir") @Else
  443.  @ClearOption(0)
  444.  @GetOption @If(@PL==1) @Checkbox @LocalWindow (13, 39) @ElseIf(@Pl==3) @DlgCtrlSize(0, 4, 0, 6, 8) @Endif
  445. @t081 @acad12drv:@acad12dir @t061
  446.  
  447. @If(@Pl==1)@t021
  448. @t022
  449. @t023
  450.  @Option 0 = "" @ElseIf(@Pl==3) @Option 1 = "@N" @Option 0 = "@Y" @Endif
  451.  @EndOption
  452.  @If(0 [! @Option) @Goto acad12 @Endif
  453. @Endif
  454.  
  455. aqu12:
  456. @If('B' [! @Group)
  457. @GetOutDrive @If(@Pl==1) @LocalWindow (15, 39) @ElseIf(@Pl==3) @DlgCtrlSize(0, 5, 0, 12, 15) @Endif
  458. @t144
  459. @t145
  460. @If(@Pl==1)@t011
  461. @t012 @Endif
  462. @EndOutDrive
  463.  
  464. @GetSubdir
  465. @t146
  466. @t145
  467. @If(@Pl==1) @LocalWindow (13, 39) @ElseIf(@Pl==3) @DlgCtrlSize(0, 4, 0, 5, 50) @Endif
  468. @If(@Pl==1) @Prompt = "@t091 ([─┘] = @SubDir)? " @Endif
  469. @EndSubdir
  470. @Endif /* !'B' */
  471.  
  472. @ELSE /* Kein AutoCAD, nur AutoShade / 3DStudio */
  473. aqush3ds:
  474. @If('B' [! @Group)
  475. @GetOutDrive @If(@Pl==1) @LocalWindow (15, 39) @ElseIf(@Pl==3) @DlgCtrlSize(0, 5, 0, 12, 15) @Endif
  476. @t141
  477. @t147
  478. @If(@Pl==1)@t011
  479. @t012 @Endif
  480. @EndOutDrive
  481.  
  482. @GetSubdir
  483. @t143
  484. @t147
  485. @If(@Pl==1) @LocalWindow (13, 39) @ElseIf(@Pl==3) @DlgCtrlSize(0, 4, 0, 5, 50) @Endif
  486. @If(@Pl==1) @Prompt = "@t091 ([─┘] = @SubDir)? " @Endif
  487. @EndSubdir
  488. @Endif /* !'B' */
  489. @ENDIF /* 11,12 */
  490.  
  491. @GetOption @If(@Pl==1) @LocalWindow (13, 39) @ElseIf(@Pl==3) @DlgCtrlSize(0, 3, 0, 10, 10) @Endif
  492. @t148
  493. @If(@Pl==1)@t133 @Endif
  494.  @Option 220 = "6X9"
  495.  @Option 230 = "8X16"
  496.  @Option 240 = "9X15"
  497.  @Option 250 = "12X20"
  498.  @Option 260 = "12X24"
  499.  @Option 270 = "15X25"
  500.  @Option 280 = "16X30"
  501. @EndOption
  502. @Endif /* 'D' || 'T' */
  503.  
  504. @If('M'[= @Group)
  505. ustatp:
  506. @GetOutDrive @ustapdrv @If(@Pl==1) @LocalWindow (15, 39) @ElseIf(@Pl==3) @DlgCtrlSize(0, 5, 0, 12, 15) @Endif
  507. @t041 MicroStation 4.0x @t042
  508. @If(@Pl==1)@t011
  509. @t012 @Endif
  510. @EndOutDrive
  511.  
  512. @GetSubdir @ustapdir @Default = "\\USTATION\\"
  513. @t051 MicroStation 4.0x @t042
  514. @If(@Pl==1) @LocalWindow (13, 39) @ElseIf(@Pl==3) @DlgCtrlSize(0, 4, 0, 5, 50) @Endif
  515. @If(@Pl==1) @Prompt = "@t091 ([─┘] = @ustapdir)? " @Endif
  516. @EndSubdir
  517.  
  518. @If(@Exists "@ustapdrv:@ustapdir") @Else
  519.  @ClearOption(0)
  520.  @GetOption @If(@PL==1) @Checkbox @LocalWindow (13, 39) @ElseIf(@Pl==3) @DlgCtrlSize(0, 4, 0, 6, 8) @Endif
  521. @t081 @ustapdrv:@ustapdir @t061
  522.  
  523. @If(@Pl==1)@t021
  524. @t022
  525. @t023
  526.  @Option 0 = "" @ElseIf(@Pl==3) @Option 1 = "@N" @Option 0 = "@Y" @Endif
  527.  @EndOption
  528.  @If(0 [! @Option) @Goto ustatp @Endif
  529. @Endif
  530. @Endif /* 'M' */
  531.  
  532. @If('U'[= @Group)
  533. ustat5p:
  534. @GetOutDrive @usta5drv @If(@Pl==1) @LocalWindow (15, 39) @ElseIf(@Pl==3) @DlgCtrlSize(0, 5, 0, 12, 15) @Endif
  535. @t041 MicroStation 5.0 @t042
  536. @If(@Pl==1)@t011
  537. @t012 @Endif
  538. @EndOutDrive
  539.  
  540. @GetSubdir @usta5dir @Default = "\\USTATION\\"
  541. @t051 MicroStation 5.0 @t042
  542. @If(@Pl==1) @LocalWindow (13, 39) @ElseIf(@Pl==3) @DlgCtrlSize(0, 4, 0, 5, 50) @Endif
  543. @If(@Pl==1) @Prompt = "@t091 ([─┘] = @usta5dir)? " @Endif
  544. @EndSubdir
  545.  
  546. @If(@Exists "@usta5drv:@usta5dir") @Else
  547.  @ClearOption(0)
  548.  @GetOption @If(@PL==1) @Checkbox @LocalWindow (13, 39) @ElseIf(@Pl==3) @DlgCtrlSize(0, 4, 0, 6, 8) @Endif
  549. @t081 @usta5drv:@usta5dir @t061
  550.  
  551. @If(@Pl==1)@t021
  552. @t022
  553. @t023
  554.  @Option 0 = "" @ElseIf(@Pl==3) @Option 1 = "@N" @Option 0 = "@Y" @Endif
  555.  @EndOption
  556.  @If(0 [! @Option) @Goto ustat5p @Endif
  557. @Endif
  558. @Endif /* 'U' */
  559.  
  560.  
  561. /*
  562. @If(@Pl==3 && 'W' [= @Group)
  563. // Video for Windows installieren/aktualisieren?
  564. @If(@OS==3 || @OS==2)
  565. @If(@Exists("@WinSysDrive:@WinSysDir\\MSVIDEO.DLL"))
  566. @If(@FileDate("@WinSysDrive:@WinSysDir\\MSVIDEO.DLL") < @StrToDate("1995/3/16"))
  567. @GetOption
  568. @DlgCtrlSize(0, 10, 20, 12, 26)
  569. @If(@L==2)
  570. Eine ältere Version von MS Video for Windows
  571. ist bereits installiert. Diese Version sollte
  572. aktualisiert werden.
  573.  
  574. Wollen Sie die neueste Version von
  575. MS Video for Windows 1.1 installieren?
  576. @Else // @L
  577. An older version of MS Video for Windows
  578. is already installed. This version should
  579. be updated.
  580.  
  581. Do you want to install the latest version
  582. of MS Video for Windows 1.1?
  583. @Endif // @L
  584. @Option 1 = "@Y"
  585. @Option 0 = "@N"
  586. @EndOption
  587. @If(1 [= @Option) @SetGroup(V) @Endif
  588. @Endif // @FileDate, @StrToDate
  589. @Else // @Exists
  590.  @SetGroup(V)
  591. @Endif // @Exists
  592. @Endif // @OS
  593. @Endif // @Pl && 'W'
  594. /**/
  595.  
  596.  
  597. @DefineDisk
  598.     @Label = "Utilities & DOS Drivers"
  599.  
  600. @If(@L==2)
  601.  @F   README.GER @O README      @Group bw
  602.  @F  MAILBOX.GER @O MAILBOX.DOC @Group bw
  603. @If(@OS!=4) @F     DPMS.GER @O DPMS.DOC    @Group s @Endif
  604. @Else
  605.  @F   README.ENG @O README      @Group bw
  606.  @F  MAILBOX.ENG @O MAILBOX.DOC @Group bw
  607. @If(@OS!=4) @F     DPMS.ENG @O DPMS.DOC    @Group s @Endif
  608. @Endif // @L
  609.  
  610.  @F  BIOS.TXT @Group b
  611. @If(@Pl==1) @F  SHOW.EXE @Group bws   @Endif
  612. @If(@Pl==3) @F WSHOW.EXE @Group bws   @Endif
  613.  
  614.  
  615. @If(@OS==3)
  616.  @BeginLib SPENERGY.LIF
  617.   @F SPENERGY.EXE @O @WindowsDrive:@WindowsDir\\SPENERGY.EXE @Group w
  618. @If(@L==2)
  619.   @F SPENERGY.GER @O @WindowsDrive:@WindowsDir\\SPENERGY.TCO @Group w
  620.   @F   DPMS_D.HLP @O @WindowsDrive:@WindowsDir\\SPENERGY.HLP @Group w
  621. @Else
  622.   @F SPENERGY.ENG @O @WindowsDrive:@WindowsDir\\SPENERGY.TCO @Group w
  623.   @F   DPMS_E.HLP @O @WindowsDrive:@WindowsDir\\SPENERGY.HLP @Group w
  624. @Endif // @L
  625. /*
  626.   @F SPENERGY.EXE @Group w
  627. @If(@L==2)
  628.   @F SPENERGY.GER @O SPENERGY.TCO @Group w
  629.   @F   DPMS_D.HLP @O SPENERGY.HLP @Group w
  630. @Else
  631.   @F SPENERGY.ENG @O SPENERGY.TCO @Group w
  632.   @F   DPMS_E.HLP @O SPENERGY.HLP @Group w
  633. @Endif // @L
  634. /**/
  635.   @F   V7DPMS.DLL @O @WinSysDrive:@WinSysDir\\V7DPMS.DLL @Group w
  636.  @EndLib
  637. @Endif // @OS
  638. @EndDisk
  639.  
  640.  
  641. @If('B' [= @Group)
  642.  @Write ("@OutDrive:\\@SubDir\\setgdc.bat", "wt", "SET GDC=@OutDrive:@SubDir\n")
  643. @Endif
  644.  
  645. @If(@Pl==1)
  646.  @Write ("@OutDrive:\\@SubDir\\init.bat", "wt", "@@echo off\n")
  647.  @If('B' [= @Group)
  648.   @Write ("@OutDrive:\\@SubDir\\init.bat", "at", "call setgdc.bat\n")
  649. //  @Write ("@OutDrive:\\@SubDir\\init.bat", "at", "v7hfreq t\n")
  650. @If(@OS!=2)
  651. //  @Write ("@OutDrive:\\@SubDir\\init.bat", "at", "sptune\n")
  652. @Endif // @OS
  653.  @Endif // 'B'
  654. @Endif // @Pl
  655.  
  656. @If('U' [= @Group || 'M' [= @Group)
  657. @Write ("@OutDrive:\\@SubDir\\MSPEAPM.BAT", "wt", "@@echo off\n")
  658. @If(@L==2)
  659. @Write ("@OutDrive:\\@SubDir\\MSPEAPM.BAT", "at", "rem Für S3-EINSCHIRMLÖSUNG:\n")
  660. @Write ("@OutDrive:\\@SubDir\\MSPEAPM.BAT", "at", "SET MSPEAPM=-c10 -v0\n")
  661. @Write ("@OutDrive:\\@SubDir\\MSPEAPM.BAT", "at", "rem (-v0 steht für die gewünschte oder mögliche Auflösung)\n")
  662. @Else // 2
  663. @Write ("@OutDrive:\\@SubDir\\MSPEAPM.BAT", "at", "rem For S3 SINGLE SCREEN:\n")
  664. @Write ("@OutDrive:\\@SubDir\\MSPEAPM.BAT", "at", "SET MSPEAPM=-c10 -v0\n")
  665. @Write ("@OutDrive:\\@SubDir\\MSPEAPM.BAT", "at", "rem (-v0 signifies the desired or possible resolution)\n")
  666. @Endif // 2
  667. @Endif // 'U' || 'M'
  668.  
  669. @If('D' [= @Group || 'T' [= @Group)
  670. @If(11 [= @Option)
  671.   @Write("@OutDrive:\\@SubDir\\V7ACAD.BAT", "wt", "SET DSPADI=@OutDrive:@SubDir\\RCP_S3.EXP\n")
  672. @Endif
  673. @If(11 [= @Option && 'T' [= @Group)
  674.   @Write("@OutDrive:\\@SubDir\\V7ACAD.BAT", "at", "SET RCPADI=@OutDrive:@SubDir\\RCP_S3.EXP\n")
  675.   @Write("@OutDrive:\\@SubDir\\V7ACAD.BAT", "at", "SET RDPADI=@OutDrive:@SubDir\\RCP_S3.EXP\n")
  676. @Endif
  677. @If(12 [= @Option)
  678.   @Write("@OutDrive:\\@SubDir\\V7ACAD.BAT", "wt", "SET ACADDRV=@acad12drv:@acad12dir\\DRV\n")
  679. @Endif
  680. @If(12 [= @Option && 'T' [= @Group)
  681.   @Write("@OutDrive:\\@SubDir\\V7ACAD.BAT", "at", "SET DSPADI=@acad12drv:@acad12dir\\DRV\\RCP_S3.EXP\n")
  682.   @Write("@OutDrive:\\@SubDir\\V7ACAD.BAT", "at", "SET RCPADI=@acad12drv:@acad12dir\\DRV\\RCP_S3.EXP\n")
  683.   @Write("@OutDrive:\\@SubDir\\V7ACAD.BAT", "at", "SET RDPADI=@acad12drv:@acad12dir\\DRV\\RCP_S3.EXP\n")
  684. @Endif
  685. @If(11 [! @Option && 12 [! @Option && 'T' [= @Group)
  686.   @Write("@OutDrive:\\@SubDir\\V7ACAD.BAT", "wt", "SET DSPADI=@OutDrive:@SubDir\\RCP_S3.EXP\n")
  687.   @Write("@OutDrive:\\@SubDir\\V7ACAD.BAT", "at", "SET RCPADI=@OutDrive:@SubDir\\RCP_S3.EXP\n")
  688.   @Write("@OutDrive:\\@SubDir\\V7ACAD.BAT", "at", "SET RDPADI=@OutDrive:@SubDir\\RCP_S3.EXP\n")
  689. @Endif
  690. @If(220 [= @Option) @Write("@OutDrive:\\@SubDir\\V7ACAD.BAT", "at", "SET AQUILA_FONT=@OutDrive:@SubDir\\FONTS\\6X9.FNT\n")   @Endif
  691. @If(230 [= @Option) @Write("@OutDrive:\\@SubDir\\V7ACAD.BAT", "at", "SET AQUILA_FONT=@OutDrive:@SubDir\\FONTS\\8X16.FNT\n")  @Endif
  692. @If(240 [= @Option) @Write("@OutDrive:\\@SubDir\\V7ACAD.BAT", "at", "SET AQUILA_FONT=@OutDrive:@SubDir\\FONTS\\9X15.FNT\n")  @Endif
  693. @If(250 [= @Option) @Write("@OutDrive:\\@SubDir\\V7ACAD.BAT", "at", "SET AQUILA_FONT=@OutDrive:@SubDir\\FONTS\\12X20.FNT\n") @Endif
  694. @If(260 [= @Option) @Write("@OutDrive:\\@SubDir\\V7ACAD.BAT", "at", "SET AQUILA_FONT=@OutDrive:@SubDir\\FONTS\\12X24.FNT\n") @Endif
  695. @If(270 [= @Option) @Write("@OutDrive:\\@SubDir\\V7ACAD.BAT", "at", "SET AQUILA_FONT=@OutDrive:@SubDir\\FONTS\\15X25.FNT\n") @Endif
  696. @If(280 [= @Option) @Write("@OutDrive:\\@SubDir\\V7ACAD.BAT", "at", "SET AQUILA_FONT=@OutDrive:@SubDir\\FONTS\\16X30.FNT\n") @Endif
  697. @Endif /* 'D' || 'T' */
  698.  
  699.  
  700. /*
  701. // Create SPEA Group and Items #0
  702. @If(@OS==2 && 'W' [= @Group)
  703. @DefineVars
  704. @QString @PM1 = "[CreateGroup(SPEA)]"
  705. //@QString @PM2 = "[AddItem(@OutDrive:@SubDir\\SPENERGY.EXE, SPEAenergy,,0)]"
  706. @QString @PM2 = "[AddItem(@WindowsDrive:@WindowsDir\\SPENERGY.EXE, SPEAenergy,,0)]"
  707. @EndVars
  708. @ProgramManager("@PM1@PM2")
  709. @Endif // @OS && 'W'
  710. /**/
  711.  
  712. // Create SPEA Group and Items #1
  713. @If(@OS==3  && 'W' [= @Group)
  714. @DefineVars
  715. @QString @PM1 = "[ShowGroup(SPEA/V7,2)]"
  716. @QString @PM2 = "[CreateGroup(SPEA/V7)]"
  717. @QString @PM3 = "[ReplaceItem(SPEAenergy)]"
  718. @EndVars
  719. @ProgramManager("@PM1@PM2@PM3")
  720. @Endif // @OS && 'W'
  721.  
  722. @ChDrive @InDrive
  723.  
  724. @If(@Pl==3 && 'W' [= @Group)
  725.  @If(@OS==3 || @OS==2)
  726.   @If("@StartupDir" != "\\")
  727.    @ChDir("..\\win31")
  728.    @Chain("Drivers for Windows 3.1x", "..\\win31\\INSTALL.DAT")
  729.   @Else
  730.    @Chain("Drivers for Windows 3.1x")
  731.   @Endif
  732.  @ElseIf(@OS==4)
  733.   @If("@StartupDir" != "\\")
  734.    @ChDir("..\\win95")
  735.    @Chain("Drivers for Windows 95", "..\\win95\\INSTALL.DAT")
  736.   @Else
  737.    @Chain("Drivers for Windows 95")
  738.   @Endif
  739.  @Endif // @OS
  740. @Endif // @Pl && 'W'
  741.  
  742.  
  743. NACHV7SETUP:
  744.  
  745. @Display @Cls
  746. @If(@L==2)
  747.  Nach Beendigung von V7SETUP wird die Datei
  748.  README geöffnet.
  749.  Sie enthält die neuesten Informationen
  750.  zur @B.
  751.  
  752.  Um die Installation fortzusetzen, beenden Sie
  753.  README mit der Taste [Esc].
  754. @Else // @L
  755.  After termination of V7SETUP, the file README
  756.  will be opened.
  757.  It contains the latest information
  758.  about @B.
  759.  
  760.  To continue the installation, terminate README
  761.  with the key [Esc].
  762. @Endif // @L
  763. @Pause
  764. @EndDisplay
  765.  
  766. @ChDrive @OutDrive
  767. @ChDir ("@SubDir")
  768. @If(@Exists("@OutDrive:@SubDir\\README"))
  769.  @If(@Pl==1)
  770.   @If (@System "show readme") @Endif
  771.  @ElseIf(@Pl==3)
  772.   @WinExec("@OutDrive:@SubDir\\WSHOW README.", 1, (-1))
  773.  @Endif // @Pl
  774. @Endif // @Exists
  775.  
  776. @If('B' [= @Group)
  777. //@ChangeLine("V7HFREQ", "", "@BootDrive:\\AUTOEXEC.BAT")
  778. //@ChangeLine("V7HFREQ", "", "@BootDrive:\\AUTOEXEC.BAT")
  779. //@ChangeLine("V7HFREQ", "", "@BootDrive:\\AUTOEXEC.BAT")
  780.  
  781. @SetAutoexec @Overwrite
  782.  @SetReplace("GDC", "@OutDrive:@SubDir")
  783. /*
  784. @If(@OS==4)
  785.  @Verbatim "@OutDrive:@SubDir\\V7HFREQ t w"
  786. @Else // @OS
  787.  @Verbatim "@OutDrive:@SubDir\\V7HFREQ t"
  788. @Endif // @OS
  789. /**/
  790. @EndAutoexec
  791. @Endif // 'B'
  792.  
  793. // Create SPEA Group and Items #2
  794. @If(@OS==3 && 'W' [= @Group)
  795. @DefineVars
  796. @QString @PM5 = "[CreateGroup(SPEA/V7)]"
  797. @QString @PM6 = "[AddItem(@WindowsDrive:@WindowsDir\\SPENERGY.EXE, SPEAenergy,,0)]"
  798. @QString @PM7 = "[ShowGroup(SPEA/V7,1)]"
  799. @EndVars
  800. @ProgramManager("@PM5@PM6@PM7")
  801. @Endif // @OS && 'W'
  802.  
  803.  
  804. @If(@Pl==3 && (@OS==3 || @OS==4) && 'W' [= @Group)
  805.  @GetOption @If(@PL==1) @Checkbox @LocalWindow (13, 39) @ElseIf(@Pl==3) @DlgCtrlSize(0, 6, 0, 8, 8) @Endif
  806. @If(@L==2)
  807. Zur Vervollständigung der Installation
  808. muß Ihr Computer neu gestartet werden.
  809. Wollen Sie jetzt neustarten?
  810. @Else
  811. Your computer must be rebooted
  812. to complete the installation.
  813. Do you want to reboot now?
  814. @Endif // @L
  815. @If(@Pl==1)@t021
  816. @t022
  817. @t023
  818.  @Option 0 = "" @ElseIf(@Pl==3) @Option 0 = "@Y" @Option 1 = "@N" @Endif
  819.  @EndOption
  820. @DefineVars @If(0 [= @Option) @Integer @WinExit = 1 @Else @Integer @WinExit = 0 @Endif @EndVars
  821. @Endif // @Pl && @OS && 'W'
  822.  
  823.  
  824. @If(@Pl==1)
  825. @If('W' [= @Group)
  826.  
  827. @Display
  828. @If(@L==2)
  829.  Die Installation von
  830.     @Drivers @and @Utilities @for Windows 3.1x / Windows 95
  831.  wird unter Windows durchgeführt:
  832.  
  833.  
  834.  1. Starten Sie Windows
  835.  
  836.  2. Starten Sie das Installationsprogramm für Windows mit dem Befehl:
  837.     Datei | Ausführen: @InDrive:\@If("@StartupDir" != "\\")SPEAINST@Else@!SETUP@Endif.EXE
  838.  
  839.  3. Wählen Sie "@Drivers @and @Utilities @for Windows 3.1x / Windows 95"
  840. @Else // @L
  841.  The installation of
  842.     @Drivers @and @Utilities @for Windows 3.1x / Windows 95
  843.  must be carried out under Windows:
  844.  
  845.  
  846.  1. Start Windows
  847.  
  848.  2. Start the installation programm for Windows with the command:
  849.     File | Run: @InDrive:\@If("@StartupDir" != "\\")SPEAINST@Else@!SETUP@Endif.EXE
  850.  
  851.  3. Select "@Drivers @and @Utilities @for Windows 3.1x / Windows 95"
  852. @Endif // @L
  853. @Pause
  854. @EndDisplay
  855. @Endif // 'W'
  856. @Endif // @Pl
  857.  
  858.  
  859. @Finish
  860. @If(@Pl==3 && (@OS==3 || @OS==4) && 'W' [= @Group)
  861. @If(@WinExit==1)
  862. @If("@StartupDir" == "\\")
  863. @If(@L==2)
  864. Ihr Computer wird jetzt neu gestartet.
  865. Bitte nehmen Sie die Diskette aus Laufwerk @InDrive.
  866. @Else
  867. Your computer will now be rebooted.
  868. Please remove the disk from drive @Indrive.
  869. @Endif
  870. @Pause
  871. @Endif // @StartupDir
  872. @WindowsExit(-1)
  873. @Endif // @WinExit
  874. @Endif // @Pl && @OS && 'W'
  875.  
  876. @If(@Pl==3 && @OS==2 && 'W' [= @Group)
  877. @WindowsExit(-1)
  878. @Endif // @Pl && @OS && 'W'
  879.  
  880. /*
  881. @If(@Pl==1)
  882. @If(@OS==2) @Else
  883. @If('B' [= @Group)
  884.  @Cls
  885.  @If(@L==2)
  886.     INSTALL startet nun das Programm SPEAtune.
  887.     
  888.     Mit diesem Programm haben Sie die Möglichkeit, die @B
  889.     optimal an Ihren Monitor anzupassen. Die gewählten Einstellungen
  890.     können abgespeichert werden und bleiben auch nach einem Neustart
  891.     des Rechners erhalten.
  892.     Nähere Informationen entnehmen Sie bitte der Datei README sowie der
  893.     Online-Hilfe von SPEAtune.
  894.     
  895.     Achtung:
  896.     Wenn Sie die genauen Daten Ihres Monitors nicht kennen, verlassen
  897.     Sie SPEAtune mit der Taste [Esc].
  898.  
  899.  @Pause
  900.  @Else
  901.     INSTALL will now start the program SPEAtune.
  902.     
  903.     This program allows you to adapt the @B accurately
  904.     to your monitor. The selected settings can be memorized and will
  905.     be present after a system reset.
  906.     
  907.     For further information, please refer to the file README and to
  908.     the SPEAtune online-help.
  909.     
  910.     Attention:
  911.     If you do not know the exact specifications of your monitor,
  912.     press [Esc] to quit SPEAtune.
  913.  
  914.  @Pause
  915.  @Endif
  916. @ChDrive @OutDrive
  917. @ChDir ("@SubDir")
  918. @Endif // 'B'
  919. @Endif // @OS
  920. @Endif // @Pl
  921. /**/
  922.  
  923. @If(@Pl==1) @Execute("@GetENV("COMSPEC")", "/E:1024 /CINIT.BAT") @Endif
  924. @EndFinish
  925.