Chip 1997 April (Special)/Chip-Special_1997-04_cd.bin/miro/vid40sve/vid40sve.arj/INSTALL.DAT

Text File | 1995-07-27 | 47KB | 1,039 lines

//*****************************************************************************
// Name         : INSTALL.DAT
// Project      : Installation miro CAD-BASIC-DISK (RIZZO-FAMILY)
// Function     : Scriptfile for KDC-INSTALL
// Author       : KF / miro Computer Products AG,
//                Carl-Miele-Str. 4, D-38112 Braunschweig
// created      : 28.02.95
// changed      : KF 29.03.95
// revision......when...................who.....->.where.and.what..............
// $Log:$
//*****************************************************************************

//*** project header block ****************************************************

@DefineProject
  @Name       = "miro∙win - High speed drivers for CAD"
  @Version    = "1.02"
  @Subdir     = "\\"
  @OutDrive   = @BootDrive
  @InDiskBell = 1
@EndProject


//*** define variables ********************************************************

@DefineVars
  @QString @mName     = "CAD basis disk"
  @Integer @UnInstall = @False
  @Integer @OldLang   = 0
@EndVars


//*** input language by user **************************************************

@SetGroup (E)
@OldLang = 1
@SetLang (1)

INPUTLANG:
@GetGroups
@LocalWindow (11,39)
@Cls
@MoveCStr (0,0,63, "╔════════════════════════════════════════════════════════════════════════════╗")
@MoveCStr (1,0,63, "║                                                                            ║")
@MoveCStr (2,0,63, "╚════════════════════════════════════════════════════════════════════════════╝")
@MoveCStr (18,0,63, "╔════════════════════════════════════════════════════════════════════════════╗")
@MoveCStr (19,0,63, "║                                                                            ║")
@MoveCStr (20,0,63, "║                                                                            ║")
@MoveCStr (21,0,63, "║                                                                            ║")
@MoveCStr (22,0,63, "╚════════════════════════════════════════════════════════════════════════════╝")

@If ('D' [= @Group)
@MoveCStr (1,1,63, " miro∙win Installation - High speed drivers for CAD")
@MoveCStr (4,1,31, "Willkommen bei der miro∙win Installation Version @Version")
//@MoveCStr (5,1,31, "")
@MoveCStr (7,1,31, "Sprachauswahl:")
@Set D = "Deutsch"
@Set E = "English"
@MoveCStr (19,2,63, "<\x18\x19>     : Auswahlmarke bewegen")
@MoveCStr (20,2,63, "<\x11\xD9>     : Sprache akzeptieren und fortfahren")
@MoveCStr (21,2,63, "<ESC>    : Installation abbrechen")
@Else
@MoveCStr (1,1,63, " miro∙win installation - High speed drivers for CAD")
@MoveCStr (4,1,31, "Welcome to the miro∙win installation version @Version")
//@MoveCStr (5,1,31, "")
@MoveCStr (7,1,31, "Language selection:")
@Set E = "English"
@Set D = "Deutsch"
@MoveCStr (19,2,63, "<\x18\x19>     : move selection bar")
@MoveCStr (20,2,63, "<\x11\xD9>     : take selected language and continue")
@MoveCStr (21,2,63, "<ESC>    : abort installation")
@EndIf
@EndGroups

@If ('D' [= @Group && @OldLang != 0)
  @FlushGroups ()
  @SetGroup (D)
  @OldLang = 0
  @SetLang (0)
//@Goto INPUTLANG
@ElseIf ('E' [= @Group && @OldLang != 1)
  @FlushGroups ()
  @SetGroup (E)
  @OldLang = 1
  @SetLang (1)
//@Goto INPUTLANG
@EndIf


//*** define language dependant strings ***************************************

@DefineVars
@If ('D' [= @Group)

@QString @M00 = " miro∙win Installation - High speed drivers for CAD"

@QString @M10 = "<\x18\x19>        : Auswahlmarke bewegen"
@QString @M11 = "<ESC        : Installation abbrechen"
@QString @M12 = "<Leertaste> : Punkt auswählen / deaktivieren"
@QString @M13 = "<\x11\xD9>        : Board akzeptieren und fortfahren"
@QString @M14 = "<\x11\xD9>        : alle ausgewählten Punkte akzeptieren und fortfahren"
@QString @M15 = "<\x11\xD9>        : Laufwerk akzeptieren und fortfahren"

@QString @M20 = "<\x1B\x1A>     : Cursor bewegen"
@QString @M21 = "<Einfg>  : Einfüge- und Überschreibmodus wechseln"
@QString @M22 = "<Entf>   : Zeichen unter Cursor löschen "
@QString @M23 = "<\x11\xC4>     : Zeichen links vom Cursor löschen"
@QString @M24 = "<\x11\xD9>     : Verzeichnis akzeptieren und fortfahren"
@QString @M25 = "<ESC>    : Installation abbrechen"

@QString @M30 = "Wählen Sie das Board aus, welches Sie installieren wollen:"
@QString @M31 = "Wählen Sie die Treiber aus, die Sie installieren wollen:"
@QString @M32 = "Installierte Software komplett entfernen"

@QString @M40 = "für AutoCAD Rel. 12 (miroGTI 12)"
@QString @M41 = "für AutoCAD Rel. 9 - 10 (miroADI)"
@QString @M42 = "für Autodesk 3D Studio"
@QString @M43 = "für Autodesk Animator Pro"
@QString @M44 = "für MicroStation PC"
@QString @M45 = "für AutoCAD für Windows Rel. 12 (miroGTI 12 Win)"
@QString @M46 = "für AutoCAD Rel. 11 (miroGTI 12)"
@QString @M47 = "für AutoCAD Rel. 13 (miroGTI 12)"
@QString @M48 = "für AutoCAD für Windows Rel. 13 (miroGTI 13 Win)"

@QString @M140 = "nur System-Software"
@QString @M141 = "nur System-Software (für Zweischirmbetrieb)"

@QString @M50 = "Software entfernen:"

@QString @M60 = "Geben Sie das Verzeichnis für alle System-Software an:"
@QString @M61 = "Geben Sie das Verzeichnis Ihrer AutoCAD Rel. 12 Installation an:"
@QString @M62 = "Geben Sie das Verzeichnis Ihrer Autodesk Animator pro Installation an:"
@QString @M63 = "Geben Sie das Verzeichnis Ihrer MicroStation PC Installation an:"
@QString @M64 = "Geben Sie das Verzeichnis Ihrer Windows 3.1 Installation an:"
@QString @M65 = "Geben Sie das Verzeichnis Ihrer AutoCAD für Windows Rel. 12 Installation an:"
@QString @M66 = "Geben Sie das Verzeichnis Ihrer AutoCAD Rel. 13 Installation an:"

@QString @M70 = "Geben Sie das Laufwerk für"
@QString @M71 = "alle System-Software an:"
@QString @M72 = ""
@QString @M73 = "Geben Sie das Laufwerk"
@QString @M74 = "Ihrer AutoCAD Rel. 12"
@QString @M75 = "Installation an:"
@QString @M76 = "Geben Sie das Laufwerk"
@QString @M77 = "Ihrer Autodesk Animator pro"
@QString @M78 = "Installation an:"
@QString @M80 = "Geben Sie das Laufwerk Ihrer"
@QString @M81 = "MicroStation PC Installation"
@QString @M82 = "an:"
@QString @M83 = "Geben Sie das Laufwerk Ihrer"
@QString @M84 = "Windows 3.1 Installation an:"
@QString @M85 = ""
@QString @M86 = "Geben Sie das Laufwerk Ihrer"
@QString @M87 = "AutoCAD für Windows Rel. 12"
@QString @M88 = "Installation an:"
@QString @M89 = "Geben Sie das Laufwerk"
@QString @M90 = "Ihrer AutoCAD Rel. 13"
@QString @M91 = "Installation an:"

@Else

@QString @M00 = " miro∙win installation - High speed drivers for CAD"

@QString @M10 = "<\x18\x19>     : move selection bar"
@QString @M11 = "<ESC>    : abort installation"
@QString @M12 = "<Space>  : toggle item"
@QString @M13 = "<\x11\xD9>     : take selected board and continue"
@QString @M14 = "<\x11\xD9>     : take all selected items and continue"
@QString @M15 = "<\x11\xD9>     : take selected drive and continue"

@QString @M20 = "<\x1B\x1A>     : move cursor"
@QString @M21 = "<Insert> : toggle insert / overwrite mode"
@QString @M22 = "<Delete> : delete char"
@QString @M23 = "<\x11\xC4>     : delete char left"
@QString @M24 = "<\x11\xD9>     : take selected directory and continue"
@QString @M25 = "<ESC>    : abort installation"

@QString @M30 = "Select the board you want to install:"
@QString @M31 = "Select the miro drivers you want to install:"
@QString @M32 = "Completely remove installed software"

@QString @M40 = "for AutoCAD Rel. 12 (miroGTI 12)"
@QString @M41 = "for AutoCAD 9 - 10 (miroADI)"
@QString @M42 = "for Autodesk 3D Studio"
@QString @M43 = "for Autodesk Animator Pro"
@QString @M44 = "for MicroStation PC"
@QString @M45 = "for AutoCAD for Windows Rel. 12 (miroGTI 12 Win)"
@QString @M46 = "for AutoCAD Rel. 11 (miroGTI 12)"
@QString @M47 = "for AutoCAD Rel. 13 (miroGTI 12)"
@QString @M48 = "for AutoCAD for Windows Rel. 13 (miroGTI 13 Win)"

@QString @M140 = "only system software"
@QString @M141 = "only system software (for dual-screen configuration)"

@QString @M50 = "Uninstall software:"

@QString @M60 = "Enter the directory for all system software:"
@QString @M61 = "Enter the directory of your AutoCAD Rel. 12 installation:"
@QString @M62 = "Enter the directory of your Autodesk Animator pro installation:"
@QString @M63 = "Enter the directory of your MicroStation PC installation:"
@QString @M64 = "Enter the directory of your Windows 3.1 installation:"
@QString @M65 = "Enter the directory of your AutoCAD for Windows Rel. 12 installation:"
@QString @M66 = "Enter the directory of your AutoCAD Rel. 13 installation:"

@QString @M70 = "Enter the drive for"
@QString @M71 = "all system software:"
@QString @M72 = ""
@QString @M73 = "Enter the drive of"
@QString @M74 = "your AutoCAD Rel. 12"
@QString @M75 = "installation:"
@QString @M76 = "Enter the drive of your"
@QString @M77 = "Autodesk Animator pro"
@QString @M78 = "installation:"
@QString @M80 = "Enter the drive of your"
@QString @M81 = "MicroStation PC installation:"
@QString @M82 = ""
@QString @M83 = "Enter the drive of your"
@QString @M84 = "Windows 3.1 installation:"
@QString @M85 = ""
@QString @M86 = "Enter the drive of your"
@QString @M87 = "AutoCAD for Windows Rel. 12 "
@QString @M88 = "installation:"
@QString @M89 = "Enter the drive of"
@QString @M90 = "your AutoCAD Rel. 13"
@QString @M91 = "installation:"
@EndIf
@EndVars


//*** input board type by user ************************************************

@GetOption
@LocalWindow (11,39)
@Cls
@MoveCStr (0,0,63, "╔════════════════════════════════════════════════════════════════════════════╗")
@MoveCStr (1,0,63, "║                                                                            ║")
@MoveCStr (2,0,63, "╚════════════════════════════════════════════════════════════════════════════╝")
@MoveCStr (1,1,63, "@M00")
@MoveCStr (4,1,31, "@M30")
  @Option 103 = "miroVIDEO 40SV ergo (4MB)"
  @Option 101 = "miroVIDEO 20SV (2MB)"
  @Option 102 = "miroVIDEO 20SD (2MB)"
@MoveCStr (18,0,63, "╔════════════════════════════════════════════════════════════════════════════╗")
@MoveCStr (19,0,63, "║                                                                            ║")
@MoveCStr (20,0,63, "║                                                                            ║")
@MoveCStr (21,0,63, "║                                                                            ║")
@MoveCStr (22,0,63, "╚════════════════════════════════════════════════════════════════════════════╝")
@MoveCStr (19,2,63, "@M10")
@MoveCStr (20,2,63, "@M13")
@MoveCStr (21,2,63, "@M11")
@EndOption

//*** input items to install by user ******************************************

ITEMSELECT:

@GetOption
@CheckBox
@LocalWindow (11,39)
@Cls
@MoveCStr (0,0,63, "╔════════════════════════════════════════════════════════════════════════════╗")
@MoveCStr (1,0,63, "║                                                                            ║")
@MoveCStr (2,0,63, "╚════════════════════════════════════════════════════════════════════════════╝")
@MoveCStr (1,1,63, "@M00")
@MoveCStr (3,1,31, "@M31")
  @Option 207 = "@M47"
  @Option 200 = "@M40"
  @Option 206 = "@M46"
//  @Option 201 = "@M41"
  @Option 202 = "@M42"
  @Option 203 = "@M43"
  @Option 204 = "@M44"
  @Option 208 = "@M48"
  @Option 205 = "@M45"
  @Option 220 = "@M140"
  @Option 210 = "@M32"
@MoveCStr (17,0,63, "╔════════════════════════════════════════════════════════════════════════════╗")
@MoveCStr (18,0,63, "║                                                                            ║")
@MoveCStr (19,0,63, "║                                                                            ║")
@MoveCStr (20,0,63, "║                                                                            ║")
@MoveCStr (21,0,63, "║                                                                            ║")
@MoveCStr (22,0,63, "╚════════════════════════════════════════════════════════════════════════════╝")
@MoveCStr (18,2,63, "@M10")
@MoveCStr (19,2,63, "@M12")
@MoveCStr (20,2,63, "@M14")
@MoveCStr (21,2,63, "@M11")
@EndOption


//*** no selection ************************************************************
@If ((200 [! @Option) && (201 [! @Option) && (202 [! @Option)
        && (203 [! @Option) && (204 [! @Option) && (205 [! @Option)
        && (206 [! @Option)
        && (207 [! @Option)
        && (208 [! @Option)
        && (220 [! @Option)
        && (210 [! @Option)
    )
  @Goto ITEMSELECT
@EndIf

//*** define default directories **********************************************

@If (!@UnInstall)
  @DefineVars
    @Dir @SysDir        = "\\MIRO"

    @Drive @GtiDrv      = C
    @Dir @GtiDir        = "\\ACAD"
    @Drive @Gti13Drv    = C
    @Dir @Gti13Dir      = "\\ACADR13"
    @Drive @AniproDrv   = C
    @Dir @AniproDir     = "\\ANI"
    @Drive @MstDrv      = C
    @Dir @MstDir        = "\\USTATION"
    @Drive @MwinDrv     = C
    @Dir @MwinDir       = "\\WINDOWS"
    @Drive @WinGtiDrv   = C
    @Dir @WinGtiDir     = "\\ACADWIN"
  @EndVars
@EndIf


//*** input SYSTEM directory by user ******************************************

@If ((200 [= @Option || 201 [= @Option || 202 [= @Option
    || 203 [= @Option || 204 [= @Option || 220 [= @Option
    || 207 [= @Option || 206 [= @Option || 210 [= @Option) && !@UnInstall)
@GetOutDrive
@LocalWindow (11,39)
@Cls
@MoveCStr (0,0,63, "╔════════════════════════════════════════════════════════════════════════════╗")
@MoveCStr (1,0,63, "║                                                                            ║")
@MoveCStr (2,0,63, "╚════════════════════════════════════════════════════════════════════════════╝")
@MoveCStr (1,1,63, "@M00")
@MoveCStr (5,1,31, "@M70")
@MoveCStr (6,1,31, "@M71")
@MoveCStr (7,1,31, "@M72")
@Suppress A
@Suppress B
@MoveCStr (18,0,63, "╔════════════════════════════════════════════════════════════════════════════╗")
@MoveCStr (19,0,63, "║                                                                            ║")
@MoveCStr (20,0,63, "║                                                                            ║")
@MoveCStr (21,0,63, "║                                                                            ║")
@MoveCStr (22,0,63, "╚════════════════════════════════════════════════════════════════════════════╝")
@MoveCStr (19,2,63, "@M10")
@MoveCStr (20,2,63, "@M15")
@MoveCStr (21,2,63, "@M11")
@EndOutDrive

@GetSubDir @SysDir
@LocalWindow (6,39)
@Cls
@MoveCStr (0,0,63, "╔════════════════════════════════════════════════════════════════════════════╗")
@MoveCStr (1,0,63, "║                                                                            ║")
@MoveCStr (2,0,63, "╚════════════════════════════════════════════════════════════════════════════╝")
@MoveCStr (1,1,63, "@M00")
@Prompt = "@M60"
@MoveCStr (15,0,63, "╔════════════════════════════════════════════════════════════════════════════╗")
@MoveCStr (16,0,63, "║                                                                            ║")
@MoveCStr (17,0,63, "║                                                                            ║")
@MoveCStr (18,0,63, "║                                                                            ║")
@MoveCStr (19,0,63, "║                                                                            ║")
@MoveCStr (20,0,63, "║                                                                            ║")
@MoveCStr (21,0,63, "║                                                                            ║")
@MoveCStr (22,0,63, "╚════════════════════════════════════════════════════════════════════════════╝")
@MoveCStr (16,2,63, "@M20")
@MoveCStr (17,2,63, "@M21")
@MoveCStr (18,2,63, "@M22")
@MoveCStr (19,2,63, "@M23")
@MoveCStr (20,2,63, "@M24")
@MoveCStr (21,2,63, "@M25")
@EndSubDir
@EndIf


//*** input ACAD 12 directory by user *****************************************

@If ((200 [= @Option || 210 [= @Option) && !@UnInstall)
@GetOutDrive @GtiDrv
@LocalWindow (11,39)
@Cls
@MoveCStr (0,0,63, "╔════════════════════════════════════════════════════════════════════════════╗")
@MoveCStr (1,0,63, "║                                                                            ║")
@MoveCStr (2,0,63, "╚════════════════════════════════════════════════════════════════════════════╝")
@MoveCStr (1,1,63, "@M00")
@MoveCStr (5,1,31, "@M73")
@MoveCStr (6,1,31, "@M74")
@MoveCStr (7,1,31, "@M75")
@Suppress A
@Suppress B
@MoveCStr (18,0,63, "╔════════════════════════════════════════════════════════════════════════════╗")
@MoveCStr (19,0,63, "║                                                                            ║")
@MoveCStr (20,0,63, "║                                                                            ║")
@MoveCStr (21,0,63, "║                                                                            ║")
@MoveCStr (22,0,63, "╚════════════════════════════════════════════════════════════════════════════╝")
@MoveCStr (19,2,63, "@M10")
@MoveCStr (20,2,63, "@M15")
@MoveCStr (21,2,63, "@M11")
@EndOutDrive

@GetSubDir @GtiDir
@LocalWindow (6,39)
@Cls
@MoveCStr (0,0,63, "╔════════════════════════════════════════════════════════════════════════════╗")
@MoveCStr (1,0,63, "║                                                                            ║")
@MoveCStr (2,0,63, "╚════════════════════════════════════════════════════════════════════════════╝")
@MoveCStr (1,1,63, "@M00")
@Prompt = "@M61"
@MoveCStr (15,0,63, "╔════════════════════════════════════════════════════════════════════════════╗")
@MoveCStr (16,0,63, "║                                                                            ║")
@MoveCStr (17,0,63, "║                                                                            ║")
@MoveCStr (18,0,63, "║                                                                            ║")
@MoveCStr (19,0,63, "║                                                                            ║")
@MoveCStr (20,0,63, "║                                                                            ║")
@MoveCStr (21,0,63, "║                                                                            ║")
@MoveCStr (22,0,63, "╚════════════════════════════════════════════════════════════════════════════╝")
@MoveCStr (16,2,63, "@M20")
@MoveCStr (17,2,63, "@M21")
@MoveCStr (18,2,63, "@M22")
@MoveCStr (19,2,63, "@M23")
@MoveCStr (20,2,63, "@M24")
@MoveCStr (21,2,63, "@M25")
@EndSubDir
@EndIf


//*** input ACAD 13 directory by user *****************************************

@If ((207 [= @Option || 208 [= @Option || 210 [= @Option) && !@UnInstall)
@GetOutDrive @Gti13Drv
@LocalWindow (11,39)
@Cls
@MoveCStr (0,0,63, "╔════════════════════════════════════════════════════════════════════════════╗")
@MoveCStr (1,0,63, "║                                                                            ║")
@MoveCStr (2,0,63, "╚════════════════════════════════════════════════════════════════════════════╝")
@MoveCStr (1,1,63, "@M00")
@MoveCStr (5,1,31, "@M89")
@MoveCStr (6,1,31, "@M90")
@MoveCStr (7,1,31, "@M91")
@Suppress A
@Suppress B
@MoveCStr (18,0,63, "╔════════════════════════════════════════════════════════════════════════════╗")
@MoveCStr (19,0,63, "║                                                                            ║")
@MoveCStr (20,0,63, "║                                                                            ║")
@MoveCStr (21,0,63, "║                                                                            ║")
@MoveCStr (22,0,63, "╚════════════════════════════════════════════════════════════════════════════╝")
@MoveCStr (19,2,63, "@M10")
@MoveCStr (20,2,63, "@M15")
@MoveCStr (21,2,63, "@M11")
@EndOutDrive

@GetSubDir @Gti13Dir
@LocalWindow (6,39)
@Cls
@MoveCStr (0,0,63, "╔════════════════════════════════════════════════════════════════════════════╗")
@MoveCStr (1,0,63, "║                                                                            ║")
@MoveCStr (2,0,63, "╚════════════════════════════════════════════════════════════════════════════╝")
@MoveCStr (1,1,63, "@M00")
@Prompt = "@M66"
@MoveCStr (15,0,63, "╔════════════════════════════════════════════════════════════════════════════╗")
@MoveCStr (16,0,63, "║                                                                            ║")
@MoveCStr (17,0,63, "║                                                                            ║")
@MoveCStr (18,0,63, "║                                                                            ║")
@MoveCStr (19,0,63, "║                                                                            ║")
@MoveCStr (20,0,63, "║                                                                            ║")
@MoveCStr (21,0,63, "║                                                                            ║")
@MoveCStr (22,0,63, "╚════════════════════════════════════════════════════════════════════════════╝")
@MoveCStr (16,2,63, "@M20")
@MoveCStr (17,2,63, "@M21")
@MoveCStr (18,2,63, "@M22")
@MoveCStr (19,2,63, "@M23")
@MoveCStr (20,2,63, "@M24")
@MoveCStr (21,2,63, "@M25")
@EndSubDir
@EndIf


//*** input ANIMATOR PRO directory by user ************************************

@If ((203 [= @Option || 210 [= @Option) && !@UnInstall)
@GetOutDrive @AniproDrv
@LocalWindow (11,39)
@Cls
@MoveCStr (0,0,63, "╔════════════════════════════════════════════════════════════════════════════╗")
@MoveCStr (1,0,63, "║                                                                            ║")
@MoveCStr (2,0,63, "╚════════════════════════════════════════════════════════════════════════════╝")
@MoveCStr (1,1,63, "@M00")
@MoveCStr (5,1,31, "@M76")
@MoveCStr (6,1,31, "@M77")
@MoveCStr (7,1,31, "@M78")
@Suppress A
@Suppress B
@MoveCStr (18,0,63, "╔════════════════════════════════════════════════════════════════════════════╗")
@MoveCStr (19,0,63, "║                                                                            ║")
@MoveCStr (20,0,63, "║                                                                            ║")
@MoveCStr (21,0,63, "║                                                                            ║")
@MoveCStr (22,0,63, "╚════════════════════════════════════════════════════════════════════════════╝")
@MoveCStr (19,2,63, "@M10")
@MoveCStr (20,2,63, "@M15")
@MoveCStr (21,2,63, "@M11")
@EndOutDrive

@GetSubDir @AniproDir
@LocalWindow (6,39)
@Cls
@MoveCStr (0,0,63, "╔════════════════════════════════════════════════════════════════════════════╗")
@MoveCStr (1,0,63, "║                                                                            ║")
@MoveCStr (2,0,63, "╚════════════════════════════════════════════════════════════════════════════╝")
@MoveCStr (1,1,63, "@M00")
@Prompt = "@M62"
@MoveCStr (15,0,63, "╔════════════════════════════════════════════════════════════════════════════╗")
@MoveCStr (16,0,63, "║                                                                            ║")
@MoveCStr (17,0,63, "║                                                                            ║")
@MoveCStr (18,0,63, "║                                                                            ║")
@MoveCStr (19,0,63, "║                                                                            ║")
@MoveCStr (20,0,63, "║                                                                            ║")
@MoveCStr (21,0,63, "║                                                                            ║")
@MoveCStr (22,0,63, "╚════════════════════════════════════════════════════════════════════════════╝")
@MoveCStr (16,2,63, "@M20")
@MoveCStr (17,2,63, "@M21")
@MoveCStr (18,2,63, "@M22")
@MoveCStr (19,2,63, "@M23")
@MoveCStr (20,2,63, "@M24")
@MoveCStr (21,2,63, "@M25")
@EndSubDir
@EndIf


//*** input MICROSTATION directory by user ************************************

@If ((204 [= @Option || 210 [= @Option) && !@UnInstall)
@GetOutDrive @MstDrv
@LocalWindow (11,39)
@Cls
@MoveCStr (0,0,63, "╔════════════════════════════════════════════════════════════════════════════╗")
@MoveCStr (1,0,63, "║                                                                            ║")
@MoveCStr (2,0,63, "╚════════════════════════════════════════════════════════════════════════════╝")
@MoveCStr (1,1,63, "@M00")
@MoveCStr (5,1,31, "@M80")
@MoveCStr (6,1,31, "@M81")
@MoveCStr (7,1,31, "@M82")
@Suppress A
@Suppress B
@MoveCStr (18,0,63, "╔════════════════════════════════════════════════════════════════════════════╗")
@MoveCStr (19,0,63, "║                                                                            ║")
@MoveCStr (20,0,63, "║                                                                            ║")
@MoveCStr (21,0,63, "║                                                                            ║")
@MoveCStr (22,0,63, "╚════════════════════════════════════════════════════════════════════════════╝")
@MoveCStr (19,2,63, "@M10")
@MoveCStr (20,2,63, "@M15")
@MoveCStr (21,2,63, "@M11")
@EndOutDrive

@GetSubDir @MstDir
@LocalWindow (6,39)
@Cls
@MoveCStr (0,0,63, "╔════════════════════════════════════════════════════════════════════════════╗")
@MoveCStr (1,0,63, "║                                                                            ║")
@MoveCStr (2,0,63, "╚════════════════════════════════════════════════════════════════════════════╝")
@MoveCStr (1,1,63, "@M00")
@Prompt = "@M63"
@MoveCStr (15,0,63, "╔════════════════════════════════════════════════════════════════════════════╗")
@MoveCStr (16,0,63, "║                                                                            ║")
@MoveCStr (17,0,63, "║                                                                            ║")
@MoveCStr (18,0,63, "║                                                                            ║")
@MoveCStr (19,0,63, "║                                                                            ║")
@MoveCStr (20,0,63, "║                                                                            ║")
@MoveCStr (21,0,63, "║                                                                            ║")
@MoveCStr (22,0,63, "╚════════════════════════════════════════════════════════════════════════════╝")
@MoveCStr (16,2,63, "@M20")
@MoveCStr (17,2,63, "@M21")
@MoveCStr (18,2,63, "@M22")
@MoveCStr (19,2,63, "@M23")
@MoveCStr (20,2,63, "@M24")
@MoveCStr (21,2,63, "@M25")
@EndSubDir
@EndIf


//*** input Windows directory by user *****************************************

@If ((205 [= @Option || 210 [= @Option) && !@UnInstall)
@GetOutDrive @MwinDrv
@LocalWindow (11,39)
@Cls
@MoveCStr (0,0,63, "╔════════════════════════════════════════════════════════════════════════════╗")
@MoveCStr (1,0,63, "║                                                                            ║")
@MoveCStr (2,0,63, "╚════════════════════════════════════════════════════════════════════════════╝")
@MoveCStr (1,1,63, "@M00")
@MoveCStr (5,1,31, "@M83")
@MoveCStr (6,1,31, "@M84")
@MoveCStr (7,1,31, "@M85")
@Suppress A
@Suppress B
@MoveCStr (18,0,63, "╔════════════════════════════════════════════════════════════════════════════╗")
@MoveCStr (19,0,63, "║                                                                            ║")
@MoveCStr (20,0,63, "║                                                                            ║")
@MoveCStr (21,0,63, "║                                                                            ║")
@MoveCStr (22,0,63, "╚════════════════════════════════════════════════════════════════════════════╝")
@MoveCStr (19,2,63, "@M10")
@MoveCStr (20,2,63, "@M15")
@MoveCStr (21,2,63, "@M11")
@EndOutDrive

@GetSubDir @MwinDir
@LocalWindow (6,39)
@Cls
@MoveCStr (0,0,63, "╔════════════════════════════════════════════════════════════════════════════╗")
@MoveCStr (1,0,63, "║                                                                            ║")
@MoveCStr (2,0,63, "╚════════════════════════════════════════════════════════════════════════════╝")
@MoveCStr (1,1,63, "@M00")
@Prompt = "@M64"
@MoveCStr (15,0,63, "╔════════════════════════════════════════════════════════════════════════════╗")
@MoveCStr (16,0,63, "║                                                                            ║")
@MoveCStr (17,0,63, "║                                                                            ║")
@MoveCStr (18,0,63, "║                                                                            ║")
@MoveCStr (19,0,63, "║                                                                            ║")
@MoveCStr (20,0,63, "║                                                                            ║")
@MoveCStr (21,0,63, "║                                                                            ║")
@MoveCStr (22,0,63, "╚════════════════════════════════════════════════════════════════════════════╝")
@MoveCStr (16,2,63, "@M20")
@MoveCStr (17,2,63, "@M21")
@MoveCStr (18,2,63, "@M22")
@MoveCStr (19,2,63, "@M23")
@MoveCStr (20,2,63, "@M24")
@MoveCStr (21,2,63, "@M25")
@EndSubDir
@EndIf

//*** input AcadWin directory by user *****************************************

@If ((205 [= @Option || 210 [= @Option) && !@UnInstall)
@GetOutDrive @WinGtiDrv
@LocalWindow (11,39)
@Cls
@MoveCStr (0,0,63, "╔════════════════════════════════════════════════════════════════════════════╗")
@MoveCStr (1,0,63, "║                                                                            ║")
@MoveCStr (2,0,63, "╚════════════════════════════════════════════════════════════════════════════╝")
@MoveCStr (1,1,63, "@M00")
@MoveCStr (5,1,31, "@M86")
@MoveCStr (6,1,31, "@M87")
@MoveCStr (7,1,31, "@M88")
@Suppress A
@Suppress B
@MoveCStr (18,0,63, "╔════════════════════════════════════════════════════════════════════════════╗")
@MoveCStr (19,0,63, "║                                                                            ║")
@MoveCStr (20,0,63, "║                                                                            ║")
@MoveCStr (21,0,63, "║                                                                            ║")
@MoveCStr (22,0,63, "╚════════════════════════════════════════════════════════════════════════════╝")
@MoveCStr (19,2,63, "@M10")
@MoveCStr (20,2,63, "@M15")
@MoveCStr (21,2,63, "@M11")
@EndOutDrive

@GetSubDir @WinGtiDir
@LocalWindow (6,39)
@Cls
@MoveCStr (0,0,63, "╔════════════════════════════════════════════════════════════════════════════╗")
@MoveCStr (1,0,63, "║                                                                            ║")
@MoveCStr (2,0,63, "╚════════════════════════════════════════════════════════════════════════════╝")
@MoveCStr (1,1,63, "@M00")
@Prompt = "@M65"
@MoveCStr (15,0,63, "╔════════════════════════════════════════════════════════════════════════════╗")
@MoveCStr (16,0,63, "║                                                                            ║")
@MoveCStr (17,0,63, "║                                                                            ║")
@MoveCStr (18,0,63, "║                                                                            ║")
@MoveCStr (19,0,63, "║                                                                            ║")
@MoveCStr (20,0,63, "║                                                                            ║")
@MoveCStr (21,0,63, "║                                                                            ║")
@MoveCStr (22,0,63, "╚════════════════════════════════════════════════════════════════════════════╝")
@MoveCStr (16,2,63, "@M20")
@MoveCStr (17,2,63, "@M21")
@MoveCStr (18,2,63, "@M22")
@MoveCStr (19,2,63, "@M23")
@MoveCStr (20,2,63, "@M24")
@MoveCStr (21,2,63, "@M25")
@EndSubDir
@EndIf


//*** define default directories (2) ******************************************

//@If (!@UnInstall)
//  @DefineVars
//  @EndVars
//@EndIf


//*** Uninstall software ******************************************************

@If (210 [= @Option)
  @Display
@M50

- @OutDrive:@SysDir\DRIVERS\CAD\*.*
- @OutDrive:@SysDir\FONT\*.*
- @OutDrive:@SysDir\COMMON\MONSELD.*
- @OutDrive:@SysDir\COMMON\MIROMAT.EXE
- @GtiDrv:@GtiDir\DRV\RCGTI12.EXP
- @Gti13Drv:@Gti13Dir\DOS\DRV\RCGTI12.EXP
- @Gti13Drv:@Gti13Dir\WIN\DSMIRO13.*
- @Gti13Drv:@Gti13Dir\WIN\MIROUT13.DLL
- @GtiDrv:@GtiDir\DRV\RCGTI.EXP
- @AniproDrv:@AniproDir\RESOURCE\OCTOANI.DRV
- @MwinDrv:@MwinDir\DL_CLIEN.DLL
- @MwinDrv:@MwinDir\DL_SERV.DLL
- @MwinDrv:@MwinDir\DL_SRES.EXE
- @WinGtiDrv:@WinGtiDir\DSMIRO.*
- @MstDrv:@MstDir\DRIVERS\MGL_US5?.*
- @MstDrv:@MstDir\DRIVERS\MGL_US4?.*
- @MstDrv:@MstDir\DRIVERS\MGL_US??.*
- @OutDrive:@SysDir\COMMON\README.EXE
- @OutDrive:@SysDir\COMMON\README.CAD

  @FlushKeyboard ()
  @Pause
  @EndDisplay

  @Delete ("@OutDrive:@SysDir\\DRIVERS\\CAD\\*.*")
  @Delete ("@OutDrive:@SysDir\\FONT\\*.*")
  @Delete ("@OutDrive:@SysDir\\COMMON\\MONSELD.*")
  @Delete ("@OutDrive:@SysDir\\COMMON\\MIROMAT.EXE")
  @Delete ("@OutDrive:@SysDir\\COMMON\\SMALLF.FON")
  @Delete ("@OutDrive:@SysDir\\COMMON\\MEWEL.INI")
  @Delete ("@OutDrive:@SysDir\\COMMON\\SUPPORT.EXE")
  @Delete ("@OutDrive:@SysDir\\COMMON\\README.EXE")
  @Delete ("@OutDrive:@SysDir\\COMMON\\README.CAD")
  @Delete ("@OutDrive:@SysDir\\COMMON\\STEP3.BAT")
  @Delete ("@OutDrive:@SysDir\\COMMON\\STEP4.BAT")
  @Delete ("@GtiDrv:@GtiDir\\DRV\\RCGTI12.EXP")
  @Delete ("@Gti13Drv:@Gti13Dir\\DOS\\DRV\\RCGTI12.EXP")
  @Delete ("@Gti13Drv:@Gti13Dir\\WIN\\DRV\\DSMIRO13.*")
  @Delete ("@Gti13Drv:@Gti13Dir\\WIN\\DSMIRO13.*")
  @Delete ("@Gti13Drv:@Gti13Dir\\WIN\\MIROUT13.*")
  @Delete ("@GtiDrv:@GtiDir\\DRV\\RCGTI.EXP")
  @Delete ("@AniproDrv:@AniproDir\\RESOURCE\\OCTOANI.DRV")
  @Delete ("@MwinDrv:@MwinDir\\DL_CLIEN.DLL")
  @Delete ("@MwinDrv:@MwinDir\\DL_SERV.DLL")
  @Delete ("@MwinDrv:@MwinDir\\DL_SRES.EXE")
  @Delete ("@WinGtiDrv:@WinGtiDir\\DSMIRO.DLL")
  @Delete ("@WinGtiDrv:@WinGtiDir\\DSMIRO.HLP")
  @Delete ("@MstDrv:@MstDir\\DRIVERS\\MGL_US5?.EXP")
  @Delete ("@MstDrv:@MstDir\\DRIVERS\\MGL_US5?.MA")
  @Delete ("@MstDrv:@MstDir\\DRIVERS\\MGL_US5?.MGL")
  @Delete ("@MstDrv:@MstDir\\DRIVERS\\MGL_US4?.EXP")
  @Delete ("@MstDrv:@MstDir\\DRIVERS\\MGL_US4?.MA")
  @Delete ("@MstDrv:@MstDir\\DRIVERS\\MGL_US4?.MGL")
  @Delete ("@MstDrv:@MstDir\\DRIVERS\\MGL_US??.*")

  @ClearOption (210)
  @UnInstall = @True
  @Goto ITEMSELECT
@EndIf


//*** files to be copied ******************************************************

@If (200 [= @Option || 201 [= @Option || 202 [= @Option || 206 [= @Option
    || 203 [= @Option || 204 [= @Option || 205 [= @Option || 207 [= @Option
    || 208 [= @Option || 220 [= @Option)

@MkDir ("@OutDrive:@SysDir")
@MkDir ("@OutDrive:@SysDir\\COMMON")
@MkDir ("@OutDrive:@SysDir\\TIMING")
@MkDir ("@OutDrive:@SysDir\\DRIVERS")
@MkDir ("@OutDrive:@SysDir\\DRIVERS\\CAD")
@MkDir ("@OutDrive:@SysDir\\FONT")
@If ('D' [= @Group)
  @Copy ("@InDrive:\\README.DEU","@OutDrive:@SysDir\\DRIVERS\\CAD\\README.")
  @Copy ("@InDrive:\\README.DEU","@OutDrive:@SysDir\\COMMON\\README.CAD")
@Else
  @Copy ("@InDrive:\\README.ENG","@OutDrive:@SysDir\\DRIVERS\\CAD\\README.")
  @Copy ("@InDrive:\\README.ENG","@OutDrive:@SysDir\\COMMON\\README.CAD")
@EndIf

@DefineDisk
  @Label = "CAD basis disk # 1/1"
  @BeginLib DRIVERS.RED
    @If (200 [= @Option || 206 [= @Option || 207 [= @Option)
      @File RCGTI12.EXP  @Size 350000 @Out @Gti13Drv:@Gti13Dir\\DOS\\DRV\\*.* @Option 207
      @File RCGTI12.EXP  @Size 350000 @Out @GtiDrv:@GtiDir\\DRV\\*.* @Option 200
      @File RCGTI12.EXP  @Size 350000 @Out @OutDrive:@SysDir\\DRIVERS\\CAD\\*.* @Option 206
      @File RCGTI.TXT    @Size 6000   @Out @OutDrive:@SysDir\\DRIVERS\\CAD\\*.*
      @File RCGTI.BMP    @Size 30000  @Out @OutDrive:@SysDir\\DRIVERS\\CAD\\*.*

      @File F8500808.RSC @Size 4000   @Out @OutDrive:@SysDir\\DRIVERS\\CAD\\*.*
      @File F8500814.RSC @Size 5000   @Out @OutDrive:@SysDir\\DRIVERS\\CAD\\*.*
      @File F8500816.RSC @Size 6000   @Out @OutDrive:@SysDir\\DRIVERS\\CAD\\*.*
      @File F8501224.RSC @Size 14000  @Out @OutDrive:@SysDir\\DRIVERS\\CAD\\*.*
      @File F8501632.RSC @Size 18000  @Out @OutDrive:@SysDir\\DRIVERS\\CAD\\*.*
      @File F8520816.RSC @Size 6000   @Out @OutDrive:@SysDir\\DRIVERS\\CAD\\*.*
      @File F8521224.RSC @Size 14000  @Out @OutDrive:@SysDir\\DRIVERS\\CAD\\*.*
      @File F8600816.RSC @Size 6000   @Out @OutDrive:@SysDir\\DRIVERS\\CAD\\*.*
      @File F8601224.RSC @Size 14000  @Out @OutDrive:@SysDir\\DRIVERS\\CAD\\*.*
      @File F8630816.RSC @Size 6000   @Out @OutDrive:@SysDir\\DRIVERS\\CAD\\*.*
      @File F8631224.RSC @Size 14000  @Out @OutDrive:@SysDir\\DRIVERS\\CAD\\*.*
      @File F8650816.RSC @Size 6000   @Out @OutDrive:@SysDir\\DRIVERS\\CAD\\*.*
      @File F8651224.RSC @Size 14000  @Out @OutDrive:@SysDir\\DRIVERS\\CAD\\*.*
      @File F8660816.RSC @Size 14000  @Out @OutDrive:@SysDir\\DRIVERS\\CAD\\*.*
      @File F8661224.RSC @Size 14000  @Out @OutDrive:@SysDir\\DRIVERS\\CAD\\*.*

      @If (200 [= @Option || 207 [= @Option)
        @File MIROMENU.DCL @Size 110000 @Out @OutDrive:@SysDir\\DRIVERS\\CAD\\*.*
        @File MIROMENU.EXP @Size 210000 @Out @OutDrive:@SysDir\\DRIVERS\\CAD\\*.*
        @File MIROMENU.HLP @Size 75000  @Out @OutDrive:@SysDir\\DRIVERS\\CAD\\*.*
        @File MIROMENU.SLB @Size 90000  @Out @OutDrive:@SysDir\\DRIVERS\\CAD\\*.*
        @File MIROMENU.TXT @Size 20000  @Out @OutDrive:@SysDir\\DRIVERS\\CAD\\*.*
        @File MIROME13.ARX @Size 38000  @Out @OutDrive:@SysDir\\DRIVERS\\CAD\\*.* @Option 207
      @EndIf
    @EndIf

    @File TRIOANI.DRV  @Size 45000  @Out @AniproDrv:@AniproDir\\RESOURCE\\*.*   @Option 203

    @File TRIO3DS.EXP  @Size 180000 @Out @OutDrive:@SysDir\\DRIVERS\\CAD\\*.*   @Option 202

    @File MGL_US41.EXP @Size 100000 @Out @MstDrv:@MstDir\\DRIVERS\\*.* @Option 204
    @File MGL_US41.MA  @Size 3000   @Out @MstDrv:@MstDir\\DRIVERS\\*.* @Option 204
    @File MGL_US41.MGL @Size 50     @Out @MstDrv:@MstDir\\DRIVERS\\*.* @Option 204
    @File MGL_US51.DLM @Size 160000 @Out @MstDrv:@MstDir\\DRIVERS\\*.* @Option 204
    @File MGL_US51.MA  @Size 2000   @Out @MstDrv:@MstDir\\DRIVERS\\*.* @Option 204
    @File MGL_US51.MGL @Size 50     @Out @MstDrv:@MstDir\\DRIVERS\\*.* @Option 204

    @File DL_CLIEN.DLL @Size 21000  @Out @MwinDrv:@MwinDir\\*.*       @Option 205
    @File DL_SERV.DLL  @Size 290000 @Out @MwinDrv:@MwinDir\\*.*       @Option 205
    @File DL_SRES.EXE  @Size 7000   @Out @MwinDrv:@MwinDir\\*.*       @Option 205
    @File DSMIRO.DLL   @Size 75000  @Out @WinGtiDrv:@WinGtiDir\\*.*   @Option 205
    @File DSMIRO.DEU   @Size 1500   @Out @WinGtiDrv:@WinGtiDir\\*.INI @Option 205 @Group D
    @File DSMIRO.ENG   @Size 1500   @Out @WinGtiDrv:@WinGtiDir\\*.INI @Option 205 @Group E

    @File DSMIRO13.DLL @Size 257000 @Out @Gti13Drv:@Gti13Dir\\WIN\\*.*   @Option 208
    @File DSMIRO13.DEU @Size 5000   @Out @Gti13Drv:@Gti13Dir\\WIN\\*.INI @Option 208 @Group D
    @File DSMIRO13.ENG @Size 5000   @Out @Gti13Drv:@Gti13Dir\\WIN\\*.INI @Option 208 @Group E
    @File MIROUT13.DLL @Size 6000   @Out @Gti13Drv:@Gti13Dir\\WIN\\*.*   @Option 208
  @EndLib
@EndDisk

@DefineDisk
  @Label = "CAD basis disk # 1/1"
  @BeginLib SYSTEM.RED
    @If (200 [= @Option || 201 [= @Option || 202 [= @Option
          || 203 [= @Option || 204 [= @Option || 206 [= @Option
          || 207 [= @Option || 220 [= @Option)
      @File MONITOR.INI  @Size 40000  @Out @OutDrive:@SysDir\\TIMING\\*.*
      @File TIMING.INI   @Size 60000  @Out @OutDrive:@SysDir\\TIMING\\*.*
      @File CARD0214.INI @Size 15000  @Out @OutDrive:@SysDir\\TIMING\\*.*
      @File CARD0015.INI @Size 15000  @Out @OutDrive:@SysDir\\TIMING\\*.*
      @File CARD0016.INI @Size 30000  @Out @OutDrive:@SysDir\\TIMING\\*.*
      @File MONSELD.EXE  @Size 330000 @Out @OutDrive:@SysDir\\COMMON\\*.*
      @File MONSELD.INI  @Size 5000   @Out @OutDrive:@SysDir\\COMMON\\*.*
      @File MIROHW.INI   @Size 5000   @Out @OutDrive:@SysDir\\COMMON\\*.*
      @File MEWEL.INI    @Size 1500   @Out @OutDrive:@SysDir\\COMMON\\*.*
      @File SMALLF.FON   @Size 22000  @Out @OutDrive:@SysDir\\COMMON\\*.*
      @File MIROMAT.EXE  @Size 200000 @Out @OutDrive:@SysDir\\COMMON\\*.*
      @File FONT.RSC     @Size 45000  @Out @OutDrive:@SysDir\\FONT\\*.*
    @EndIf

    @File SUPPORT.EXE  @Size 12000  @Out @OutDrive:@SysDir\\COMMON\\*.*
    @File README.EXE   @Size 12000  @Out @OutDrive:@SysDir\\COMMON\\*.*
  @EndLib
@EndDisk

@EndIf


//*** old software to be deleted **********************************************

@If (200 [= @Option || 201 [= @Option || 202 [= @Option
    || 203 [= @Option || 204 [= @Option || 205 [= @Option || 206 [= @Option
    || 220 [= @Option || 207 [= @Option || 208 [= @Option
    || 210 [= @Option)
  @If (200 [= @Option)
  @EndIf
@EndIf


//*** create a MSYSTEM.INI for the monitor select program **********************

@If (200 [= @Option || 201 [= @Option || 207 [= @Option
    || 202 [= @Option || 203 [= @Option || 204 [= @Option || 206 [= @Option
    || 220 [= @Option)
  @MkDir ("@OutDrive:@SysDir")
  @MkDir ("@OutDrive:@SysDir\\COMMON")
  @Write ("@OutDrive:@SysDir\\COMMON\\MSYSTEM.INI", "wt", "[mboot.description]\n")

  @If (101 [= @Option)
    @Write (, "at", "displayinf=OEMV20SV.INF\n")
  @EndIf
  @If (102 [= @Option)
    @Write (, "at", "displayinf=OEMV20SD.INF\n")
  @EndIf
  @If (103 [= @Option)
    @Write (, "at", "displayinf=OEMV40E.INF\n")
  @EndIf

  @If ('D' [= @Group)
    @Write (, "at", "language=Deutsch\n")
  @Else
    @Write (, "at", "language=English\n")
  @EndIf

  @Write (, "at", "[BOARDINSTALLNAMES]\n")
  @Write (, "at", "0x0214=miroVIDEO 20SD\n")
  @Write (, "at", "0x0015=miroVIDEO 20SV\n")
  @Write (, "at", "0x0016=miroVIDEO 40SV ergo\n")

@EndIf

//*** create a INSTALL.INI for the TIMING system **********************

@If (200 [= @Option || 201 [= @Option || 207 [= @Option
    || 202 [= @Option || 203 [= @Option || 204 [= @Option || 206 [= @Option
    || 220 [= @Option)
  @MkDir ("@OutDrive:@SysDir\\TIMING")
  @Write ("@OutDrive:@SysDir\\TIMING\\INSTALL.INI", "wt", "[CARD1]\n")

  //Timing system
  @If (103 [= @Option) //VIDEO 40SV ergo
    @Write (, "at", "card_name=miroVIDEO 40SV ergo\n")
    @Write (, "at", "card_file=CARD0016.INI\n")
  @EndIf
  @If (102 [= @Option) //VIDEO 20SD
    @Write (, "at", "card_name=miroVIDEO 20SD\n")
    @Write (, "at", "card_file=CARD0214.INI\n")
  @EndIf
  @If (101 [= @Option) //VIDEO 20SV
    @Write (, "at", "card_name=miroVIDEO 20SV\n")
    @Write (, "at", "card_file=CARD0015.INI\n")
  @EndIf
  @Write (, "at", "monitor=64kHz multi frequency monitor\n")
  @Write (, "at", "miromode=0x0\n")
  @Write (, "at", "linaddr_window=0x000A0000\n")
  @Write (, "at", "powersave=0\n")
  //for default
  @Write (, "at", "\n")
  @Write (, "at", "[CARD2]\n")
  @Write (, "at", "monitor=64kHz multi frequency monitor\n")
  @Write (, "at", "card_file=CARDFFFF.INI\n")
  @Write (, "at", "card_name=Not Installed\n")
@EndIf


//*** create STEP3 batch ******************************************************

@If (200 [= @Option || 201 [= @Option || 207 [= @Option
    || 202 [= @Option || 203 [= @Option || 204 [= @Option || 206 [= @Option
    || 205 [= @Option || 208 [= @Option || 220 [= @Option)
  @MkDir ("@OutDrive:@SysDir")
  @MkDir ("@OutDrive:@SysDir\\COMMON")
  @Write ("@OutDrive:@SysDir\\COMMON\\STEP3.BAT", "wt", "@@ECHO OFF\n")
  @If (200 [= @Option || 201 [= @Option || 207 [= @Option
    || 202 [= @Option || 203 [= @Option || 204 [= @Option || 206 [= @Option
    || 220 [= @Option)
    @Write (, "at", "SET MIROPATH=@OutDrive:@SysDir\n")
  @EndIf
  @If (200 [= @Option || 206 [= @Option || 207 [= @Option)
    @Write (, "at", "SET GTI=@OutDrive:@SysDir\\DRIVERS\\CAD\n")
  @EndIf
  @If (202 [= @Option)
    @Write (, "at", "SET RCPADI=@OutDrive:@SysDir\\DRIVERS\\CAD\\TRIO3DS.EXP\n")
  @EndIf
  @If (206 [= @Option)
    @Write (, "at", "SET RDPADI=@OutDrive:@SysDir\\DRIVERS\\CAD\\RCGTI12.EXP\n")
    @Write (, "at", "SET DSPADI=@OutDrive:@SysDir\\DRIVERS\\CAD\\RCGTI12.EXP\n")
  @EndIf
  @If (200 [= @Option || 201 [= @Option || 207 [= @Option
    || 202 [= @Option || 203 [= @Option || 204 [= @Option || 206 [= @Option
    || 220 [= @Option)
    @Write (, "at", "@OutDrive:@SysDir\\COMMON\\SUPPORT.EXE @BootDrive:\\AUTOEXEC.BAT")
  @EndIf
  @Write (, "at", "\n")
  @Write (, "at", "DEL @OutDrive:@SysDir\\COMMON\\SUPPORT.EXE\n")
  @If (200 [= @Option || 201 [= @Option || 207 [= @Option
    || 202 [= @Option || 203 [= @Option || 204 [= @Option || 206 [= @Option
    || 220 [= @Option)
    @Write (, "at", "@OutDrive:@SysDir\\COMMON\\MONSELD.EXE\n")
  @EndIf
  @Write (, "at", "@OutDrive:@SysDir\\COMMON\\README.EXE @OutDrive:@SysDir\\COMMON\\README.CAD\n")
  @Write (, "at", "@OutDrive:@SysDir\\COMMON\\STEP4.BAT\n")


//*** create STEP4 batch ******************************************************

  @Write ("@OutDrive:@SysDir\\COMMON\\STEP4.BAT", "wt", "@@ECHO OFF\n")
  @Write (, "at", "DEL @OutDrive:@SysDir\\COMMON\\STEP3.BAT\n")
@EndIf


//*** set MIROPATH env-variable in AUTOEXEC.BAT ***********************************

@If (200 [= @Option || 201 [= @Option || 207 [= @Option
    || 202 [= @Option || 203 [= @Option || 204 [= @Option || 206 [= @Option
    || 220 [= @Option)
  @SetAutoExec
    @Overwrite
    @SetReplace ("MIROPATH", "@OutDrive:@SysDir")
    @If (200 [= @Option || 206 [= @Option || 207 [= @Option)
      @SetReplace ("GTI", "@OutDrive:@SysDir\\DRIVERS\\CAD")
    @EndIf
    @If (202 [= @Option)
      @SetReplace ("RCPADI", "@OutDrive:@SysDir\\DRIVERS\\CAD\\TRIO3DS.EXP")
    @EndIf
    @If (206 [= @Option)
      @SetReplace ("RDPADI", "@OutDrive:@SysDir\\DRIVERS\\CAD\\RCGTI12.EXP")
      @SetReplace ("DSPADI", "@OutDrive:@SysDir\\DRIVERS\\CAD\\RCGTI12.EXP")
    @EndIf
  @EndAutoExec
@ElseIf (@UnInstall)
  @SetAutoExec
    @Overwrite
    @SetReplace ("OCTO", "")
    @SetReplace ("MIROPATH", "")
    @SetReplace ("GTI", "")
    @SetReplace ("RCPADI", "")
    @SetReplace ("RDPADI", "")
    @SetReplace ("DSPADI", "")
  @EndAutoExec
@EndIf


//*** project trailer block ***************************************************

@Finish
  @If (200 [= @Option || 201 [= @Option || 207 [= @Option
      || 202 [= @Option || 203 [= @Option || 204 [= @Option || 206 [= @Option
      || 205 [= @Option || 208 [= @Option || 220 [= @Option)
    @ChDrive (@OutDrive)
    @ChDir ("@SysDir\\COMMON")
    @FlushKeyboard ()
    @ReturnValue (4711)
  @Else
    @ChDrive (@BootDrive)
    @ChDir ("\\")
  @EndIf
@EndFinish


//*** eof *********************************************************************