home *** CD-ROM | disk | FTP | other *** search
/ Chip 1997 April (Special) / Chip-Special_1997-04_cd.bin / spea / vega / vev1295 / vev12951.exe / rar / INSTALL.DAT < prev    next >
Text File  |  1996-01-15  |  31KB  |  917 lines
  1. @DefineProject
  2.  @Name = "V7-VEGA VIDEO"
  3.  @Version ="Release 1295"
  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-VEGA VIDEO"
  144. @QString @Checkfile = "ASCAN2.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, 6, 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 || 'T' [= @Group) @Else
  378. @Display @Cls
  379. @If(@L==2)
  380.  Es wurde nichts ausgewählt!
  381. @Else
  382.  Nothing was selected!
  383. @Endif
  384. @Pause
  385. @EndDisplay
  386. @Goto NOCHMAL
  387. @Endif
  388.  
  389. ENVIRON:
  390. @GetOutDrive @If(@Pl==1) @LocalWindow(24, 39) @ElseIf(@Pl==3) @DlgCtrlSize(0, 5, 20, 12, 35) @Endif
  391. @If(@L==2) Auf welchem Laufwerk wollen Sie die
  392.  @Name Software installieren?
  393. @If(@Pl==1) Mit den Tasten @UP und @DN können Sie ein Laufwerk auswählen.
  394.  Drücken Sie anschließend @RET. @Endif // @Pl
  395. @Else
  396.  On which disk drive do you want to install
  397.  the @Name software?
  398. @If(@Pl==1) Use the keys @UP and @DN to select a drive. Press @RET to continue. @Endif // @Pl
  399. @Endif // @L
  400. @EndOutDrive
  401.  
  402. @GetSubDir
  403. @If(@L==2) In welchem Verzeichnis wollen Sie die
  404.  @Name Software installieren?
  405. @Else
  406.  In which directory do you want to install
  407.  the @Name software?
  408. @Endif // @L
  409. @If(@Pl==1) @LocalWindow(16, 39) @ElseIf(@Pl==3) @DlgCtrlSize(0, 6, 0, 7, 50) @Endif
  410. @EndSubDir
  411.  
  412. @If(@Exists("@OutDrive:@SubDir"))
  413. @ClearOption(0)
  414. @ClearOption(1)
  415. @GetOption
  416. @If(@Pl==1) @LocalWindow(16, 39) @ElseIf(@Pl==3) @DlgCtrlSize(0, 6, 20, 8, 26) @Endif
  417. @If(@L==2)
  418.  Verzeichnis @OutDrive:@SubDir existiert bereits.
  419.  Wollen Sie die Installation in diesem Verzeichnis fortsetzen?
  420.  
  421. @If(@Pl==1) Wählen Sie JA oder NEIN mit den Tasten @UP und @DN.
  422.  Drücken Sie anschließend @RET. @Endif // @Pl
  423. @Else
  424.  Directory @OutDrive:@SubDir already exists.
  425.  Do you want to continue installing in this directory?
  426.  
  427. @If(@Pl==1) Use the keys @UP and @DN to select YES or NO.
  428.  Press @RET to continue. @Endif // @Pl
  429. @Endif // @L
  430. @Option 1 = "@Y"
  431. @Option 0 = "@N"
  432. @EndOption
  433. @If (0 [= @Option) @Goto ENVIRON @Endif
  434. @Endif // @Exists
  435.  
  436.  
  437. @If('D' [= @Group || 'T' [= @Group)
  438. @If('D' [= @Group)
  439.  @ClearOption(11)
  440.  @ClearOption(12)
  441. @GetOption @If(@Pl==1) @LocalWindow (13, 39) @ElseIf(@Pl==3) @DlgCtrlSize(0, 5, 0, 7, 25) @Endif
  442. @t131 AutoCAD 
  443.  @t132
  444. @If(@Pl==1)@t133 @Endif
  445. @Option 12 = "AutoCAD Release 12"
  446. @Option 11 = "AutoCAD Release 11"
  447. @EndOption
  448. @Endif /* 'D' */
  449.  
  450. @If(11 [= @Option)
  451. aqu11:
  452. @If('B' [! @Group)
  453. @GetOutDrive @If(@Pl==1) @LocalWindow (15, 39) @ElseIf(@Pl==3) @DlgCtrlSize(0, 5, 0, 12, 15) @Endif
  454. @t141
  455. @t142
  456. @If(@Pl==1)@t011
  457. @t012 @Endif
  458. @EndOutDrive
  459.  
  460. @GetSubdir
  461. @t143
  462. @t142
  463. @If(@Pl==1) @LocalWindow (13, 39) @ElseIf(@Pl==3) @DlgCtrlSize(0, 6, 0, 7, 50) @Endif
  464. @If(@Pl==1) @Prompt = "@t091 ([─┘] = @SubDir)? " @Endif
  465. @EndSubdir
  466.  
  467. @Endif /* !'B' */
  468.  
  469. @ELSEIF (12 [= @Option)
  470. acad12:
  471. @GetOutDrive @acad12drv @If(@Pl==1) @LocalWindow (15, 39) @ElseIf(@Pl==3) @DlgCtrlSize(0, 5, 0, 12, 15) @Endif
  472. @t041 AutoCAD Rel.12 @t042
  473. @If(@Pl==1)@t011
  474. @t012 @Endif
  475. @EndOutDrive
  476.  
  477. @GetSubdir @acad12dir @Default = "\\ACAD\\"
  478. @t051 AutoCAD Rel.12 @t042
  479. @If(@Pl==1) @LocalWindow (13, 39) @ElseIf(@Pl==3) @DlgCtrlSize(0, 4, 0, 5, 50) @Endif
  480. @If(@Pl==1) @Prompt = "@t091 ([─┘] = @acad12dir)? " @Endif
  481. @EndSubdir
  482.  
  483. @If(@Exists "@acad12drv:@acad12dir") @Else
  484.  @ClearOption(0)
  485.  @GetOption @If(@PL==1) @Checkbox @LocalWindow (13, 39) @ElseIf(@Pl==3) @DlgCtrlSize(0, 4, 0, 6, 8) @Endif
  486. @t081 @acad12drv:@acad12dir @t061
  487.  
  488. @If(@Pl==1)@t021
  489. @t022
  490. @t023
  491.  @Option 0 = "" @ElseIf(@Pl==3) @Option 1 = "@N" @Option 0 = "@Y" @Endif
  492.  @EndOption
  493.  @If(0 [! @Option) @Goto acad12 @Endif
  494. @Endif
  495.  
  496. aqu12:
  497. @If('B' [! @Group)
  498. @GetOutDrive @If(@Pl==1) @LocalWindow (15, 39) @ElseIf(@Pl==3) @DlgCtrlSize(0, 5, 0, 12, 15) @Endif
  499. @t144
  500. @t145
  501. @If(@Pl==1)@t011
  502. @t012 @Endif
  503. @EndOutDrive
  504.  
  505. @GetSubdir
  506. @t146
  507. @t145
  508. @If(@Pl==1) @LocalWindow (13, 39) @ElseIf(@Pl==3) @DlgCtrlSize(0, 4, 0, 5, 50) @Endif
  509. @If(@Pl==1) @Prompt = "@t091 ([─┘] = @SubDir)? " @Endif
  510. @EndSubdir
  511. @Endif /* !'B' */
  512.  
  513. @ELSE /* Kein AutoCAD, nur AutoShade / 3DStudio */
  514. aqush3ds:
  515. @If('B' [! @Group)
  516. @GetOutDrive @If(@Pl==1) @LocalWindow (15, 39) @ElseIf(@Pl==3) @DlgCtrlSize(0, 5, 0, 12, 15) @Endif
  517. @t141
  518. @t147
  519. @If(@Pl==1)@t011
  520. @t012 @Endif
  521. @EndOutDrive
  522.  
  523. @GetSubdir
  524. @t143
  525. @t147
  526. @If(@Pl==1) @LocalWindow (13, 39) @ElseIf(@Pl==3) @DlgCtrlSize(0, 4, 0, 5, 50) @Endif
  527. @If(@Pl==1) @Prompt = "@t091 ([─┘] = @SubDir)? " @Endif
  528. @EndSubdir
  529. @Endif /* !'B' */
  530. @ENDIF /* 11,12 */
  531.  
  532. @GetOption @If(@Pl==1) @LocalWindow (13, 39) @ElseIf(@Pl==3) @DlgCtrlSize(0, 3, 0, 10, 10) @Endif
  533. @t148
  534. @If(@Pl==1)@t133 @Endif
  535.  @Option 220 = "6X9"
  536.  @Option 230 = "8X16"
  537.  @Option 240 = "9X15"
  538.  @Option 250 = "12X20"
  539.  @Option 260 = "12X24"
  540.  @Option 270 = "15X25"
  541.  @Option 280 = "16X30"
  542. @EndOption
  543. @Endif /* 'D' || 'T' */
  544.  
  545. @If('M'[= @Group)
  546. ustatp:
  547. @GetOutDrive @ustapdrv @If(@Pl==1) @LocalWindow (15, 39) @ElseIf(@Pl==3) @DlgCtrlSize(0, 5, 0, 12, 15) @Endif
  548. @t041 MicroStation 4.0x @t042
  549. @If(@Pl==1)@t011
  550. @t012 @Endif
  551. @EndOutDrive
  552.  
  553. @GetSubdir @ustapdir @Default = "\\USTATION\\"
  554. @t051 MicroStation 4.0x @t042
  555. @If(@Pl==1) @LocalWindow (13, 39) @ElseIf(@Pl==3) @DlgCtrlSize(0, 4, 0, 5, 50) @Endif
  556. @If(@Pl==1) @Prompt = "@t091 ([─┘] = @ustapdir)? " @Endif
  557. @EndSubdir
  558.  
  559. @If(@Exists "@ustapdrv:@ustapdir") @Else
  560.  @ClearOption(0)
  561.  @GetOption @If(@PL==1) @Checkbox @LocalWindow (13, 39) @ElseIf(@Pl==3) @DlgCtrlSize(0, 4, 0, 6, 8) @Endif
  562. @t081 @ustapdrv:@ustapdir @t061
  563.  
  564. @If(@Pl==1)@t021
  565. @t022
  566. @t023
  567.  @Option 0 = "" @ElseIf(@Pl==3) @Option 1 = "@N" @Option 0 = "@Y" @Endif
  568.  @EndOption
  569.  @If(0 [! @Option) @Goto ustatp @Endif
  570. @Endif
  571. @Endif /* 'M' */
  572.  
  573. @If('U'[= @Group)
  574. ustat5p:
  575. @GetOutDrive @usta5drv @If(@Pl==1) @LocalWindow (15, 39) @ElseIf(@Pl==3) @DlgCtrlSize(0, 5, 0, 12, 15) @Endif
  576. @t041 MicroStation 5.0 @t042
  577. @If(@Pl==1)@t011
  578. @t012 @Endif
  579. @EndOutDrive
  580.  
  581. @GetSubdir @usta5dir @Default = "\\USTATION\\"
  582. @t051 MicroStation 5.0 @t042
  583. @If(@Pl==1) @LocalWindow (13, 39) @ElseIf(@Pl==3) @DlgCtrlSize(0, 4, 0, 5, 50) @Endif
  584. @If(@Pl==1) @Prompt = "@t091 ([─┘] = @usta5dir)? " @Endif
  585. @EndSubdir
  586.  
  587. @If(@Exists "@usta5drv:@usta5dir") @Else
  588.  @ClearOption(0)
  589.  @GetOption @If(@PL==1) @Checkbox @LocalWindow (13, 39) @ElseIf(@Pl==3) @DlgCtrlSize(0, 4, 0, 6, 8) @Endif
  590. @t081 @usta5drv:@usta5dir @t061
  591.  
  592. @If(@Pl==1)@t021
  593. @t022
  594. @t023
  595.  @Option 0 = "" @ElseIf(@Pl==3) @Option 1 = "@N" @Option 0 = "@Y" @Endif
  596.  @EndOption
  597.  @If(0 [! @Option) @Goto ustat5p @Endif
  598. @Endif
  599. @Endif /* 'U' */
  600.  
  601.  
  602. @If(@Pl==3 && 'W' [= @Group)
  603. // Video for Windows installieren/aktualisieren?
  604. @If(@OS==3 || @OS==2)
  605. @If(@Exists("@WinSysDrive:@WinSysDir\\MSVIDEO.DLL"))
  606. @If(@FileDate("@WinSysDrive:@WinSysDir\\MSVIDEO.DLL") < @StrToDate("1995/3/16"))
  607. @GetOption
  608. @DlgCtrlSize(0, 10, 20, 12, 26)
  609. @If(@L==2)
  610. Eine ältere Version von MS Video for Windows
  611. ist bereits installiert. Diese Version sollte
  612. aktualisiert werden.
  613.  
  614. Wollen Sie die neueste Version von
  615. MS Video for Windows 1.1 installieren?
  616. @Else // @L
  617. An older version of MS Video for Windows
  618. is already installed. This version should
  619. be updated.
  620.  
  621. Do you want to install the latest version
  622. of MS Video for Windows 1.1?
  623. @Endif // @L
  624. @Option 1 = "@Y"
  625. @Option 0 = "@N"
  626. @EndOption
  627. @If(1 [= @Option) @SetGroup(V) @Endif
  628. @Endif // @FileDate, @StrToDate
  629. @Else // @Exists
  630.  @SetGroup(V)
  631. @Endif // @Exists
  632. @Endif // @OS
  633. @Endif // @Pl
  634.  
  635.  
  636. @DefineDisk
  637.     @Label = "Utilities & MCI Drivers, Disk 1 of 2"
  638.  
  639. @If(@L==2)
  640.  @F   README.GER @O README      @Group bw
  641.  @F  MAILBOX.GER @O MAILBOX.TXT @Group bw
  642. @If(@OS!=4) @F     DPMS.GER @O DPMS.DOC    @Group s @Endif
  643. @Else
  644.  @F   README.ENG @O README      @Group bw
  645.  @F  MAILBOX.ENG @O MAILBOX.TXT @Group bw
  646. @If(@OS!=4) @F     DPMS.ENG @O DPMS.DOC    @Group s @Endif
  647. @Endif // @L
  648.  
  649.  @F  BIOS.TXT @Group b
  650. @If(@Pl==1) @F  SHOW.EXE @Group bws   @Endif
  651. @If(@Pl==3) @F WSHOW.EXE @Group bws   @Endif
  652.  
  653.         @BeginLib V7VVIDEO.LIF
  654. // Utilities:
  655.  @F   ALANSI.SYS @Group b
  656.  @F    VDIAG.EXE @Group b
  657.  @F   ASCAN2.EXE @Group b
  658.  @F    VMODE.EXE @Group b
  659.         @EndLib
  660. @EndDisk
  661.  
  662. @If('B' [= @Group)
  663.  @Write ("@OutDrive:\\@SubDir\\setgdc.bat", "wt", "SET GDC=@OutDrive:@SubDir\n")
  664. @Endif
  665.  
  666. @If(@Pl==1)
  667.  @Write ("@OutDrive:\\@SubDir\\init.bat", "wt", "@@echo off\n")
  668.  @If('B' [= @Group)
  669.   @Write ("@OutDrive:\\@SubDir\\init.bat", "at", "call setgdc.bat\n")
  670. //  @Write ("@OutDrive:\\@SubDir\\init.bat", "at", "v7hfreq t\n")
  671. @If(@OS!=2)
  672. //  @Write ("@OutDrive:\\@SubDir\\init.bat", "at", "sptune\n")
  673. @Endif // @OS
  674.  @Endif // 'B'
  675. @Endif // @Pl
  676.  
  677. @If('U' [= @Group || 'M' [= @Group)
  678. @Write ("@OutDrive:\\@SubDir\\MSPEAPM.BAT", "wt", "@@echo off\n")
  679. @If(@L==2)
  680. @Write ("@OutDrive:\\@SubDir\\MSPEAPM.BAT", "at", "rem Für S3-EINSCHIRMLÖSUNG:\n")
  681. @Write ("@OutDrive:\\@SubDir\\MSPEAPM.BAT", "at", "SET MSPEAPM=-c10 -v0\n")
  682. @Write ("@OutDrive:\\@SubDir\\MSPEAPM.BAT", "at", "rem (-v0 steht für die gewünschte oder mögliche Auflösung)\n")
  683. @Else // 2
  684. @Write ("@OutDrive:\\@SubDir\\MSPEAPM.BAT", "at", "rem For S3 SINGLE SCREEN:\n")
  685. @Write ("@OutDrive:\\@SubDir\\MSPEAPM.BAT", "at", "SET MSPEAPM=-c10 -v0\n")
  686. @Write ("@OutDrive:\\@SubDir\\MSPEAPM.BAT", "at", "rem (-v0 signifies the desired or possible resolution)\n")
  687. @Endif // 2
  688. @Endif // 'U' || 'M'
  689.  
  690. @If('D' [= @Group || 'T' [= @Group)
  691. @If(11 [= @Option)
  692.   @Write("@OutDrive:\\@SubDir\\V7ACAD.BAT", "wt", "SET DSPADI=@OutDrive:@SubDir\\RCP_S3.EXP\n")
  693. @Endif
  694. @If(11 [= @Option && 'T' [= @Group)
  695.   @Write("@OutDrive:\\@SubDir\\V7ACAD.BAT", "at", "SET RCPADI=@OutDrive:@SubDir\\RCP_S3.EXP\n")
  696.   @Write("@OutDrive:\\@SubDir\\V7ACAD.BAT", "at", "SET RDPADI=@OutDrive:@SubDir\\RCP_S3.EXP\n")
  697. @Endif
  698. @If(12 [= @Option)
  699.   @Write("@OutDrive:\\@SubDir\\V7ACAD.BAT", "wt", "SET ACADDRV=@acad12drv:@acad12dir\\DRV\n")
  700. @Endif
  701. @If(12 [= @Option && 'T' [= @Group)
  702.   @Write("@OutDrive:\\@SubDir\\V7ACAD.BAT", "at", "SET DSPADI=@acad12drv:@acad12dir\\DRV\\RCP_S3.EXP\n")
  703.   @Write("@OutDrive:\\@SubDir\\V7ACAD.BAT", "at", "SET RCPADI=@acad12drv:@acad12dir\\DRV\\RCP_S3.EXP\n")
  704.   @Write("@OutDrive:\\@SubDir\\V7ACAD.BAT", "at", "SET RDPADI=@acad12drv:@acad12dir\\DRV\\RCP_S3.EXP\n")
  705. @Endif
  706. @If(11 [! @Option && 12 [! @Option && 'T' [= @Group)
  707.   @Write("@OutDrive:\\@SubDir\\V7ACAD.BAT", "wt", "SET DSPADI=@OutDrive:@SubDir\\RCP_S3.EXP\n")
  708.   @Write("@OutDrive:\\@SubDir\\V7ACAD.BAT", "at", "SET RCPADI=@OutDrive:@SubDir\\RCP_S3.EXP\n")
  709.   @Write("@OutDrive:\\@SubDir\\V7ACAD.BAT", "at", "SET RDPADI=@OutDrive:@SubDir\\RCP_S3.EXP\n")
  710. @Endif
  711. @If(220 [= @Option) @Write("@OutDrive:\\@SubDir\\V7ACAD.BAT", "at", "SET AQUILA_FONT=@OutDrive:@SubDir\\FONTS\\6X9.FNT\n")   @Endif
  712. @If(230 [= @Option) @Write("@OutDrive:\\@SubDir\\V7ACAD.BAT", "at", "SET AQUILA_FONT=@OutDrive:@SubDir\\FONTS\\8X16.FNT\n")  @Endif
  713. @If(240 [= @Option) @Write("@OutDrive:\\@SubDir\\V7ACAD.BAT", "at", "SET AQUILA_FONT=@OutDrive:@SubDir\\FONTS\\9X15.FNT\n")  @Endif
  714. @If(250 [= @Option) @Write("@OutDrive:\\@SubDir\\V7ACAD.BAT", "at", "SET AQUILA_FONT=@OutDrive:@SubDir\\FONTS\\12X20.FNT\n") @Endif
  715. @If(260 [= @Option) @Write("@OutDrive:\\@SubDir\\V7ACAD.BAT", "at", "SET AQUILA_FONT=@OutDrive:@SubDir\\FONTS\\12X24.FNT\n") @Endif
  716. @If(270 [= @Option) @Write("@OutDrive:\\@SubDir\\V7ACAD.BAT", "at", "SET AQUILA_FONT=@OutDrive:@SubDir\\FONTS\\15X25.FNT\n") @Endif
  717. @If(280 [= @Option) @Write("@OutDrive:\\@SubDir\\V7ACAD.BAT", "at", "SET AQUILA_FONT=@OutDrive:@SubDir\\FONTS\\16X30.FNT\n") @Endif
  718. @Endif /* 'D' || 'T' */
  719.  
  720. @If(@Pl==3 && ('W' [= @Group || 'V' [= @Group))
  721.  @If("@StartupDir" != "\\")
  722.   @ChDrive @InDrive
  723.   @ChDir("..\\util2")
  724.   @Chain("Utilities & MCI Drivers, Disk 2 of 2", "..\\util2\\INSTALL.DAT")
  725.  @Else
  726.   @Chain("Utilities & MCI Drivers, Disk 2 of 2")
  727.  @Endif
  728. @Endif // @Pl, 'W' || 'V'
  729.  
  730.  
  731. NACHV7SETUP:
  732.  
  733. @Display @Cls
  734. @If(@L==2)
  735.  Nun wird die Datei README geöffnet.
  736.  Sie enthält die neuesten Informationen
  737.  zur @Name.
  738.  
  739.  Um die Installation fortzusetzen, beenden
  740.  Sie README mit der Taste [Esc].
  741. @Else // @L
  742.  Now the file README will be opened.
  743.  It contains the latest information
  744.  on @Name.
  745.  
  746.  To continue the installation, terminate
  747.  README with the key [Esc].
  748. @Endif // @L
  749. @Pause
  750. @EndDisplay
  751.  
  752. @ChDrive @OutDrive
  753. @ChDir ("@SubDir")
  754. @If(@Exists("@OutDrive:@SubDir\\README"))
  755.  @If(@Pl==1)
  756.   @If (@System "show readme") @Endif
  757.  @ElseIf(@Pl==3)
  758.   @WinExec("@OutDrive:@SubDir\\WSHOW README.", 1, (-1))
  759.  @Endif // @Pl
  760. @Endif // @Exists
  761. @ChDrive @InDrive
  762.  
  763. @If('B' [= @Group)
  764. //@ChangeLine("V7HFREQ", "", "@BootDrive:\\AUTOEXEC.BAT")
  765. //@ChangeLine("V7HFREQ", "", "@BootDrive:\\AUTOEXEC.BAT")
  766. //@ChangeLine("V7HFREQ", "", "@BootDrive:\\AUTOEXEC.BAT")
  767.  
  768. @SetAutoexec @Overwrite
  769.  @SetReplace("GDC", "@OutDrive:@SubDir")
  770. /*
  771. @If(@OS==4)
  772.  @Verbatim "@OutDrive:@SubDir\\V7HFREQ t w"
  773. @Else // @OS
  774.  @Verbatim "@OutDrive:@SubDir\\V7HFREQ t"
  775. @Endif // @OS
  776. /**/
  777. @EndAutoexec
  778. @Endif // 'B'
  779.  
  780. // Create SPEA Group and Items #2
  781. @If( @Pl==3 && (@OS==3 || @OS==4) && 'W' [= @Group )
  782. @DefineVars
  783. @QString @PM5 = "[CreateGroup(SPEA/V7)]"
  784. @QString @PM6 = "[AddItem(@OutDrive:\\@SubDir\\MEDIASTA.EXE, MediaStation,,0)]"
  785. @If(@OS!=4)
  786.  @QString @PM7 = "[AddItem(@OutDrive:\\@SubDir\\SPENERGY.EXE, SPEAenergy,,0)]"
  787. @Else
  788.  @QString @PM7 = ""
  789. @Endif
  790. @QString @PM8 = "[ShowGroup(SPEA/V7,1)]"
  791. @EndVars
  792. @ProgramManager("@PM5@PM6@PM7@PM8")
  793. @Endif // @Pl && @OS && 'W'
  794.  
  795.  
  796. @If(@Pl==3 && (@OS==3 || @OS==4) && 'W' [= @Group)
  797.  @GetOption @If(@PL==1) @Checkbox @LocalWindow (13, 39) @ElseIf(@Pl==3) @DlgCtrlSize(0, 6, 0, 8, 8) @Endif
  798. @If(@L==2)
  799. Zur Vervollständigung der Installation
  800. muß Ihr Computer neu gestartet werden.
  801. Wollen Sie jetzt neustarten?
  802. @Else
  803. Your computer must be rebooted
  804. to complete the installation.
  805. Do you want to reboot now?
  806. @Endif // @L
  807. @If(@Pl==1)@t021
  808. @t022
  809. @t023
  810.  @Option 0 = "" @ElseIf(@Pl==3) @Option 0 = "@Y" @Option 1 = "@N" @Endif
  811.  @EndOption
  812. @DefineVars @If(0 [= @Option) @Integer @WinExit = 1 @Else @Integer @WinExit = 0 @Endif @EndVars
  813. @Endif // @Pl && @OS && 'W'
  814.  
  815.  
  816. @If(@Pl==1)
  817. @If('W' [= @Group)
  818.  
  819. @Display
  820. @If(@L==2)
  821.  Die Installation von
  822.     @Drivers @and @Utilities @for Windows 3.1x / Windows 95
  823.  wird unter Windows durchgeführt:
  824.  
  825.  
  826.  1. Starten Sie Windows
  827.  
  828.  2. Starten Sie das Installationsprogramm für Windows mit dem Befehl:
  829.     Datei | Ausführen: @InDrive:\@If("@StartupDir" != "\\")SPEAINST@Else@!SETUP@Endif.EXE
  830.  
  831.  3. Wählen Sie "@Drivers @and @Utilities @for Windows 3.1x / Windows 95"
  832. @Else // @L
  833.  The installation of
  834.     @Drivers @and @Utilities @for Windows 3.1x / Windows 95
  835.  must be carried out under Windows:
  836.  
  837.  
  838.  1. Start Windows
  839.  
  840.  2. Start the installation programm for Windows with the command:
  841.     File | Run: @InDrive:\@If("@StartupDir" != "\\")SPEAINST@Else@!SETUP@Endif.EXE
  842.  
  843.  3. Select "@Drivers @and @Utilities @for Windows 3.1x / Windows 95"
  844. @Endif // @L
  845. @Pause
  846. @EndDisplay
  847. @Endif // 'W'
  848. @Endif // @Pl
  849.  
  850.  
  851. @Finish
  852. @If(@Pl==3 && (@OS==3 || @OS==4) && 'W' [= @Group)
  853. @If(@WinExit==1)
  854. @If("@StartupDir" == "\\")
  855. @If(@L==2)
  856. Ihr Computer wird jetzt neu gestartet.
  857. Bitte nehmen Sie die Diskette aus Laufwerk @InDrive.
  858. @Else
  859. Your computer will now be rebooted.
  860. Please remove the disk from drive @Indrive.
  861. @Endif
  862. @Pause
  863. @Endif // @StartupDir
  864. @WindowsExit(-1)
  865. @Endif // @WinExit
  866. @Endif // @Pl && @OS && 'W'
  867.  
  868. @If(@Pl==3 && @OS==2 && 'W' [= @Group)
  869. @WindowsExit(-1)
  870. @Endif // @Pl && @OS && 'W'
  871.  
  872. /*
  873. @If(@Pl==1)
  874. @If(@OS==2) @Else
  875. @If('B' [= @Group)
  876.  @Cls
  877.  @If(@L==2)
  878.     INSTALL startet nun das Programm SPEAtune.
  879.     
  880.     Mit diesem Programm haben Sie die Möglichkeit, die @B
  881.     optimal an Ihren Monitor anzupassen. Die gewählten Einstellungen
  882.     können abgespeichert werden und bleiben auch nach einem Neustart
  883.     des Rechners erhalten.
  884.     Nähere Informationen entnehmen Sie bitte der Datei README sowie der
  885.     Online-Hilfe von SPEAtune.
  886.     
  887.     Achtung:
  888.     Wenn Sie die genauen Daten Ihres Monitors nicht kennen, verlassen
  889.     Sie SPEAtune mit der Taste [Esc].
  890.  
  891.  @Pause
  892.  @Else
  893.     INSTALL will now start the program SPEAtune.
  894.     
  895.     This program allows you to adapt the @B accurately
  896.     to your monitor. The selected settings can be memorized and will
  897.     be present after a system reset.
  898.     
  899.     For further information, please refer to the file README and to
  900.     the SPEAtune online-help.
  901.     
  902.     Attention:
  903.     If you do not know the exact specifications of your monitor,
  904.     press [Esc] to quit SPEAtune.
  905.  
  906.  @Pause
  907.  @Endif
  908. @ChDrive @OutDrive
  909. @ChDir ("@SubDir")
  910. @Endif // 'B'
  911. @Endif // @OS
  912. @Endif // @Pl
  913. /**/
  914.  
  915. @If(@Pl==1) @Execute("@GetENV("COMSPEC")", "/E:1024 /CINIT.BAT") @Endif
  916. @EndFinish
  917.