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

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

@DefineProject
  @Name       = "miroωwin - High speed drivers for CAD"
  @Version    = "1.10"
  @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 (0)

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 (1)
//@Goto INPUTLANG
@ElseIf ('E' [= @Group && @OldLang != 1)
  @FlushGroups ()
  @SetGroup (E)
  @OldLang = 1
  @SetLang (0)
//@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 auswhlen / deaktivieren"
@QString @M13 = "<\x11\xD9>        : Board akzeptieren und fortfahren"
@QString @M14 = "<\x11\xD9>        : alle ausgewhlten Punkte akzeptieren und fortfahren"
@QString @M15 = "<\x11\xD9>        : Laufwerk akzeptieren und fortfahren"

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

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

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

@QString @M140 = "nur System-Software"

@QString @M50 = "Software entfernen:"

@QString @M60 = "Geben Sie das Verzeichnis fr 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 fr Windows Rel. 12 Installation an:"
@QString @M66 = "Geben Sie das Verzeichnis Ihrer AutoCAD Rel. 13 Installation an:"

@QString @M70 = "Geben Sie das Laufwerk fr"
@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 fr 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 @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 100 = "miroCRYSTAL 22SD" 
  @Option 101 = "miroCRYSTAL 12SD" 
@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)
        && (207 [! @Option)
        && (208 [! @Option)
        && (206 [! @Option)
        && (220 [! @Option)
        && (210 [! @Option)
    )
  @Goto ITEMSELECT
@EndIf

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

@If (!@UnInstall)
  @DefineVars
    @If (100 [= @Option)
      @Dir @SysDir      = "\\CRYS22SD"
    @ElseIf (101 [= @Option)
      @Dir @SysDir      = "\\CRYS12SD"
    @EndIf

    @Drive @GtiDrv      = C
    @Dir @GtiDir        = "\\ACAD"
    @Drive @Gti13Drv    = C
    @Dir @Gti13Dir      = "\\ACAD"
    @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
    @Drive @AdiDrv      = @OutDrive
    @Dir @AdiDir        = "@SysDir"
    @Drive @3dsDrv      = @OutDrive
    @Dir @3dsDir        = "@SysDir"
  @EndVars
@EndIf

/*
@Display
  systemdir @OutDrive @SysDir
  gtidir    @GtiDrv @GtiDir
  adidir    @AdiDrv @AdiDir
  3dsdir    @3dsDrv @3dsDir
  aniprodir @AniproDrv @AniproDir
  mstdir    @MstDrv @MstDir
  windir    @MwinDrv @MwinDir
  wingtidir @WinGtiDrv @WinGtiDir
  @Pause
@EndDisplay
*/


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

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

- @OutDrive:@SysDir\*.*  
- @GtiDrv:@GtiDir\DRV\RCGTI12.EXP
- @Gti13Drv:@Gti13Dir\DOS\DRV\RCGTI12.EXP
- @Gti13Drv:@Gti13Dir\WIN\DRV\DSMIRO13.DLL
- @Gti13Drv:@Gti13Dir\WIN\DRV\DSMIRO13.TXT
- @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.DLL
- @WinGtiDrv:@WinGtiDir\DSMIRO.HLP
- @MstDrv:@MstDir\DRIVERS\MGL_US??.EXP
- @MstDrv:@MstDir\DRIVERS\MGL_US??.MA
- @MstDrv:@MstDir\DRIVERS\MGL_US??.MGL
- @MstDrv:@MstDir\DRIVERS\MGL_US??.DLM

  @FlushKeyboard ()
  @Pause
  @EndDisplay

  @Delete ("@OutDrive:@SysDir\\*.*")
  @Delete ("@GtiDrv:@GtiDir\\DRV\\RCGTI12.EXP")
  @Delete ("@Gti13Drv:@Gti13Dir\\DOS\\DRV\\RCGTI12.EXP")
  @Delete ("@Gti13Drv:@Gti13Dir\\WIN\\DRV\\DSMIRO13.DLL")
  @Delete ("@Gti13Drv:@Gti13Dir\\WIN\\DRV\\DSMIRO13.TXT")
  @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_US??.EXP")
  @Delete ("@MstDrv:@MstDir\\DRIVERS\\MGL_US??.MA")
  @Delete ("@MstDrv:@MstDir\\DRIVERS\\MGL_US??.MGL")
  @Delete ("@MstDrv:@MstDir\\DRIVERS\\MGL_US??.DLM")

  @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")
@If ('D' [= @Group)
  @Copy ("@InDrive:\\README.DEU","@OutDrive:@SysDir\\README.")
@Else
  @Copy ("@InDrive:\\README.ENG","@OutDrive:@SysDir\\README.")
@EndIf

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

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

      @If (200 [= @Option || 207 [= @Option)
        @File MIROMENU.DCL @Size 70000  @Out @OutDrive:@SysDir\\*.* 
        @File MIROMENU.EXP @Size 200000 @Out @OutDrive:@SysDir\\*.* 
        @File MIROMENU.HLP @Size 60000  @Out @OutDrive:@SysDir\\*.* 
        @File MIROMENU.SLB @Size 75000  @Out @OutDrive:@SysDir\\*.* 
        @File MIROMENU.TXT @Size 11000  @Out @OutDrive:@SysDir\\*.* 
      @EndIf
    @EndIf

    @File OCTOADI.EXE  @Size 40000  @Out @AdiDrv:@AdiDir\\*.*   @Option 201
    @File RMADI.EXE    @Size 7100   @Out @AdiDrv:@AdiDir\\*.*   @Option 201 

    @File OCTOANI.DRV  @Size 29000  @Out @AniproDrv:@AniproDir\\RESOURCE\\*.*   @Option 203 

    @File OCTO3DS.EXP  @Size 163000 @Out @3dsDrv:@3dsDir\\*.*         @Option 202 

    @File MGL_US41.EXP @Size 71000  @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 120000 @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 
    @If (151 [= @Option || 152 [= @Option)
      @File MGL_US42.EXP @Size 71000  @Out @MstDrv:@MstDir\\DRIVERS\\*.* @Option 204 
      @File MGL_US42.MA  @Size 2500   @Out @MstDrv:@MstDir\\DRIVERS\\*.* @Option 204 
      @File MGL_US42.MGL @Size 50     @Out @MstDrv:@MstDir\\DRIVERS\\*.* @Option 204 
      @File MGL_US52.DLM @Size 120000 @Out @MstDrv:@MstDir\\DRIVERS\\*.* @Option 204 
      @File MGL_US52.MA  @Size 2000   @Out @MstDrv:@MstDir\\DRIVERS\\*.* @Option 204 
      @File MGL_US52.MGL @Size 50     @Out @MstDrv:@MstDir\\DRIVERS\\*.* @Option 204 
    @EndIf

    @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 72000  @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 155000 @Out @Gti13Drv:@Gti13Dir\\WIN\\DRV\\*.*   @Option 208 
    @File DSMIRO13.DEU @Size 5000   @Out @Gti13Drv:@Gti13Dir\\WIN\\DRV\\*.TXT @Option 208 
    @File DSMIRO13.ENG @Size 5000   @Out @Gti13Drv:@Gti13Dir\\WIN\\DRV\\*.TXT @Option 208 

    @If (200 [= @Option || 201 [= @Option || 202 [= @Option 
          || 203 [= @Option || 204 [= @Option || 206 [= @Option 
          || 207 [= @Option || 220 [= @Option)
      @File SUPPORT.EXE  @Size 15000  @Out @OutDrive:@SysDir\\*.* 
      @File OCTO.RSC     @Size 45000  @Out @OutDrive:@SysDir\\*.* 
      @File OCTO.MON     @Size 130000 @Out @OutDrive:@SysDir\\*.*
      @File TESTPIC.EXE  @Size 122000 @Out @OutDrive:@SysDir\\*.*
      @File MONSEL.EXE   @Size 340000 @Out @OutDrive:@SysDir\\*.*
      @File MEWEL.INI    @Size 1500   @Out @OutDrive:@SysDir\\*.*
      @File MWINTOOL.DEU @Size 4000   @Out @OutDrive:@SysDir\\*.INI @Group D
      @File MWINTOOL.ENG @Size 4000   @Out @OutDrive:@SysDir\\*.INI @Group E
      @File SMALLF.FON   @Size 22000  @Out @OutDrive:@SysDir\\*.*
      @File README.EXE   @Size 12000  @Out @OutDrive:@SysDir\\*.*
      @File MIROMODE.EXE @Size 40000  @Out @OutDrive:@SysDir\\*.*
      @File MIROPCI.COM  @Size 6000   @Out @OutDrive:@SysDir\\*.*
      @File ADJUST.EXE   @Size 340000 @Out @OutDrive:@SysDir\\*.*

    @EndIf
  @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)
    @Delete ("@GtiDrv:@GtiDir\\DRV\\RCGTI.EXP")
  @EndIf
  @If (204 [= @Option)
    @Delete ("@MstDrv:@MstDir\\DRIVERS\\MGL_US5?.EXP")
    @Delete ("@MstDrv:@MstDir\\DRIVERS\\MGL_US5?.MA")
    @Delete ("@MstDrv:@MstDir\\DRIVERS\\MGL_US5?.MGL")
  @EndIf
@EndIf


//*** create a SYSTEM.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")
  @Write ("@OutDrive:@SysDir\\SYSTEM.INI", "wt", "[mboot.description]\n")

  @If (100 [= @Option)
    @Write (, "at", "displayinf=C22SD\n")
  @EndIf
  @If (101 [= @Option)
    @Write (, "at", "displayinf=C12SD\n")
  @EndIf

  @Write (, "at", "Mon_Data=@OutDrive:@SysDir\\OCTO.MON\n")
  @Write (, "at", "boardfam=SESAM\n")
@EndIf


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

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


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

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


//*** set OCTO 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 ("OCTO", "@OutDrive:@SysDir")
    @If (200 [= @Option || 206 [= @Option || 207 [= @Option)
      @SetReplace ("GTI", "@OutDrive:@SysDir")
    @EndIf
    @If (202 [= @Option)
      @SetReplace ("RCPADI", "@OutDrive:@SysDir\\OCTO3DS.EXP")
    @EndIf
    @If (206 [= @Option)
      @SetReplace ("RDPADI", "@OutDrive:@SysDir\\RCGTI12.EXP")
      @SetReplace ("DSPADI", "@OutDrive:@SysDir\\RCGTI12.EXP")
    @EndIf
  @EndAutoExec
@ElseIf (@UnInstall)
  @SetAutoExec
    @Overwrite
    @SetReplace ("OCTO", "")
    @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 
      || 220 [= @Option)
    @ChDrive (@OutDrive)
    @ChDir ("@SysDir")
    @FlushKeyboard ()
    @ReturnValue (4711)
  @Else
    @ChDrive (@BootDrive)
    @ChDir ("\\")
  @EndIf
@EndFinish


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