//*****************************************************************************
// Name         : INSTALL.DAT
// Project      : POWER: Installation miro WINDOWS-BASIC-DISK
// Function     : Scriptfile for KDC-wINSTALL
// Author       : KF / miro Computer Products AG, 
//                Carl-Miele-Str. 4, D-38112 Braunschweig
// created      : 25.02.94
// changed      : KF 26.04.95
// revision......when...................who.....->.where.and.what..............
// $Log:$
//*****************************************************************************

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

@DefineProject
  @Name       = "miro·win - High speed drivers for Windows"
  @Version    = "2.10"
  @OutDrive   = @WindowsDrive
  @SubDir     = "@WindowsDir"
  @InDiskBell = 1
@EndProject


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

@DefineVars
  @QString @mName     = "miroWIN Disk"
  @Integer @Red       = @RGB (255,0,0)
  @Integer @Green     = @RGB (0,255,0)
  @Integer @Blue      = @RGB (0,0,255)
  @Integer @Black     = @RGB (0,0,0)
  @Integer @White     = @RGB (255,255,255)
  @Integer @UnInstall = @False
  @Integer @OldLang   = 0
  @Integer @Delay     = 0
  @Integer @d         = 5
  @Integer @fflag     = 0
  @Integer @x         = 0
  @Integer @y         = 10
  @Integer @l         = 10
  @Integer @isnotdel  = @FALSE
  @QString @merke     = ""
  @If (@DirExists ("@WindowsDrive:@WindowsDir\\SYSTEM"))
    @Dir @wSysDir     = "@SubDir\\SYSTEM"
  @Else
    @Dir @wSysDir     = "@SubDir"
  @EndIf
  @If (@DriveRemote (@InDrive))
    @Integer @IsFloppy = 0
  @ElseIf (@Removable (@InDrive))
    @Integer @IsFloppy = 1
  @Else
    @Integer @IsFloppy = 0
  @EndIf
  @QString @msvid     = ""
  @QString @msvidx    = ""
  @Integer @i         = 1
@EndVars


//*** input language from user ************************************************

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

INPUTLANG:
@GetGroups
  @DlgCtrlSize (0,8,20,12,35)
  @BackGroundMode (2,,)
  @Cls 
  @If ('D' [= @Group)

Willkommen bei der miro·win Installation Version @Version

Sprachauswahl:

  @Set D = "Deutsch"
  @Set E = "English"

  @Else

Welcome to the miro·win installation version @Version

Language selection:

  @Set E = "English"
  @Set D = "Deutsch"

  @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 = "Das @mName unterstützt keine" 
    @QString @M01 = "Version von Windows vor 3.1 !"
    @QString @M10 = "Wählen Sie das Board aus, welches Sie installieren wollen:" 
    @QString @M12 = "Installierte Software komplett entfernen"
    @QString @M20 = "Wählen Sie mit der Maus die Software aus, die Sie installieren wollen:" 
    @QString @M21 = "miro-Treiber für Video for Windows"
    @QString @M22 = "Windows 3.1 Treiber Software"
    @QString @M23 = "zusätzliche miroWINTOOLS"
    @QString @M24 = "miro-Hintergrundbild"
    @QString @M30 = "Software entfernen:"
    @QString @M31 = "Die installierte Software ist aktiv und kann nicht gelöscht werden."
    @QString @M32 = "Drücken Sie OK, um mit der Installation fortzufahren."
    @QString @M33 = "Für eine vollständige Video-Unterstützung müssen Sie "
    @QString @M34 = "zuerst Video for Windows 11D oder eine spätere Version "
    @QString @M35 = "installieren. "
    @QString @M36 = "Wollen Sie trotzdem fortfahren?"
    @QString @M50 = "miroMAGIC 40PV video"
    @QString @M300 = "Der installierte miroVIDEO DC1 Treiber ist weiterhin aktiv." 
    @QString @M301 = "Sie können den miroMAGIC 40PV video Aufnahme-Treiber über "
    @QString @M302 = "das Fenster miroVIDEO DC1 Hardware-Einstellungen aktivieren."
    @QString @M303 = "Dem bisher aktiven Aufnahmegerät wird Gerätenummer "
    @QString @M304 = ""
    @QString @M305 = "zugewiesen."

  @Else
    @QString @M00 = "The @mName does not support"
    @QString @M01 = "any version of Windows prior to 3.1 !"
    @QString @M10 = "Select with your mouse the board you want to install:" 
    @QString @M12 = "Completely remove installed software"
    @QString @M20 = "Select with your mouse the software you want to install:"
    @QString @M21 = "miro driver for Video for Windows"
    @QString @M22 = "Windows 3.1 driver software"
    @QString @M23 = "additional miroWINTOOLS"
    @QString @M24 = "miro wallpaper"
    @QString @M30 = "Uninstall software:"
    @QString @M31 = "The installed software is active and can therfore not be deleted."
    @QString @M32 = "Press OK to proceed with the installation"
    @QString @M33 = "For a complete video support you have to install"
    @QString @M34 = "Video for Windows 11D or higher first. "
    @QString @M35 = ""
    @QString @M36 = "Do you want to proceed?"
    @QString @M50 = "miroCRYSTAL 40PV video"
    @QString @M300 = "The installed miroVIDEO DC1 driver continues to be active." 
    @QString @M301 = "To activate the miroMAGIC 40PV video capture driver, go to "
    @QString @M302 = "the miroVIDEO DC1 Hardware Setup window."
    @QString @M303 = "Device number "
    @QString @M304 = " is assigned to the Video Capture Device"
    @QString @M305 = "that has been active until now."

  @EndIf
@EndVars

  
//*** check windows version ***************************************************

@If (@WindowsMajor < 3 || @WindowsMajor == 3 && @WindowsMinor < 1)
  @FlushKeyboard
  @Display
  @BackGroundMode (3, @Red, @Red)
  @Cls
@M00
@M01
  @Pause
  @Abort
  @EndDisplay
@Endif


//***Video for Windows Message ************************************************

@If (!@Exists("@OutDrive:@wSysDir\\UDH.DLL"))
  @FlushKeyboard
  @Display
@M33
@M34
@M35

@M36
  @Pause
  @EndDisplay
@EndIf

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

BOARDSELECT:
@GetOption
  @DlgCtrlSize (0,4,0,10,50)
  @BackGroundMode (3,@Blue, @Blue)
  @Cls

@M10

  @Option 100 = "@M50" 
  @Option 101 = "miroCRYSTAL 20PV avi" 
  @Option 210 = "@M12"
@EndOption


//*** input items to install from user ****************************************

@If (210 [! @Option) // uninstall
  @SetOption (200)
  @If (100 [= @Option) // miroCRYSTAL 40PV
    @SetOption (204)
  @EndIf
  @GetOption
    @CheckBox
    @DlgCtrlSize (0,4,0,10,50)
    @BackGroundMode (3,@Blue, @Blue)
    @Cls
  
@M20

    @Option 200 = "@M22"
    @If (100 [= @Option) // miroCRYSTAL 40PV
      @Option 204 = "@M21"
    @EndIf
    @Option 203 = "@M23"
    @Option 202 = "@M24"
  @EndOption
@EndIf


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

@If (210 [= @Option) // uninstall
@If (   (@StrFind(@GetINI ("boot", "display.drv", "system.ini"),"C20PV") > -1)
    ||  (@StrFind(@GetINI ("boot", "display.drv", "system.ini"),"c20pv") > -1)
    ||  (@StrFind(@GetINI ("boot", "display.drv", "system.ini"),"C40PV") > -1)
    ||  (@StrFind(@GetINI ("boot", "display.drv", "system.ini"),"c40pv") > -1)
    )
  @FlushKeyboard
  @Display
@M31
@M32
  @Pause
  @EndDisplay
  @ClearOption (210)
  @UnInstall = @True
  @Goto BOARDSELECT

@Else
  @FlushKeyboard
  @Display
@M30
  @Pause
  @EndDisplay

  @Delete ("@OutDrive:@wSysDir\\OEMC20PV.*")
  @Delete ("@OutDrive:@wSysDir\\OEMC40PV.*")
  @Delete ("@OutDrive:@wSysDir\\OEMC10SD.*")
  @Delete ("@OutDrive:@wSysDir\\OEMC20SD.*")
  @Delete ("@OutDrive:@wSysDir\\OEMC20SV.*")
  @Delete ("@OutDrive:@wSysDir\\OEMC40SV.*")
  @Delete ("@OutDrive:@wSysDir\\OEMMAG40.*")
  @Delete ("@OutDrive:@wSysDir\\OEMMAG20.*")
  @Delete ("@OutDrive:@wSysDir\\OEMC20TW.*")
  @Delete ("@OutDrive:@wSysDir\\OEMBIBO?.*")
  @Delete ("@OutDrive:@wSysDir\\OEMMAGS4.*")
  @Delete ("@OutDrive:@wSysDir\\OEMRAIN.*")
  @Delete ("@OutDrive:@wSysDir\\OEMCR8S.*")
  @Delete ("@OutDrive:@wSysDir\\OEMCR16S.*")
  @Delete ("@OutDrive:@wSysDir\\OEMCR24S.*")
  @Delete ("@OutDrive:@wSysDir\\OEMCR32S.*")
  @Delete ("@OutDrive:@wSysDir\\C20PV*.DRV")
  @Delete ("@OutDrive:@wSysDir\\C40PV*.DRV")
  @Delete ("@OutDrive:@wSysDir\\1SD*.DRV")
  @Delete ("@OutDrive:@wSysDir\\C20SD*.DRV")
  @Delete ("@OutDrive:@wSysDir\\C20SV*.DRV")
  @Delete ("@OutDrive:@wSysDir\\C40SV*.DRV")
  @Delete ("@OutDrive:@wSysDir\\M20*.DRV")
  @Delete ("@OutDrive:@wSysDir\\M40*.DRV")
  @Delete ("@OutDrive:@wSysDir\\TW10*.DRV")
  @Delete ("@OutDrive:@wSysDir\\TW20*.DRV")
  @Delete ("@OutDrive:@wSysDir\\TWIN.DRV")
  @Delete ("@OutDrive:@wSysDir\\MAGS4*.DRV")
  @Delete ("@OutDrive:@wSysDir\\RAIN*.DRV")
  @Delete ("@OutDrive:@wSysDir\\C8S*.DRV")
  @Delete ("@OutDrive:@wSysDir\\CR16S*.DRV")
  @Delete ("@OutDrive:@wSysDir\\CR24S*.DRV")
  @Delete ("@OutDrive:@wSysDir\\CR32S*.DRV")
  @Delete ("@OutDrive:@wSysDir\\OCTO.MON")
  @Delete ("@OutDrive:@wSysDir\\OCTOVGA.*")
//  @Delete ("@OutDrive:@wSysDir\\VDDP9100.386")
  @Delete ("@OutDrive:@wSysDir\\P9100*.*")
  @Delete ("@OutDrive:@wSysDir\\P91INIT.DLL")
  @Delete ("@OutDrive:@SubDir\\P9X00RES.DAT")
  @Delete ("@OutDrive:@SubDir\\P9X00RES.INI")
  @Delete ("@OutDrive:@SubDir\\CRYS20PV.BMP")
  @Delete ("@OutDrive:@SubDir\\CRYS40PV.BMP")
  @Delete ("@OutDrive:@SubDir\\MINFO.TXT")
  @Delete ("@OutDrive:@SubDir\\MWINTOOL.INI")
  @Delete ("@OutDrive:@SubDir\\MSUP*.*")
  @Delete ("@OutDrive:@SubDir\\MONSEL.*")
  @Delete ("@OutDrive:@SubDir\\MIROSCOP.EXE")
  @Delete ("@OutDrive:@SubDir\\MIROHOOK.DLL")
  @Delete ("@OutDrive:@SubDir\\MSCOPE*.HLP")
  @Delete ("@OutDrive:@SubDir\\MSIZE*.*")
  @Delete ("@OutDrive:@SubDir\\WSIZER.*")
  @Delete ("@OutDrive:@SubDir\\WADJUST.*")
  @Delete ("@OutDrive:@SubDir\\MFONTCOM.EXE")
  @Delete ("@OutDrive:@SubDir\\VIRTDLL.DLL")
  @Delete ("@OutDrive:@SubDir\\MPWRSAVE.SCR")
  @Delete ("@OutDrive:@SubDir\\TWIN*.*")
  @Delete ("@OutDrive:@wSysDir\\OCTOVGA.*")
  @Delete ("@OutDrive:@wSysDir\\MIROCAP.*")
  @Delete ("@OutDrive:@wSysDir\\MIROVIXL.*")
  @Delete ("@OutDrive:@wSysDir\\MIROMCI.DRV")
  @Delete ("@OutDrive:@wSysDir\\MDI.DLL")


  @WinExec ("PROGMAN.EXE", 1) 
@Display // ???
  @Delay = @SystemDate 
CL: @If (@SystemDate - @Delay <= @d) @Goto CL @EndIf 
  @ProgramManager ("[ShowGroup (miroWINTOOLS, 2)]")
  @Delay = @SystemDate 
CLa: @If (@SystemDate - @Delay <= @d) @Goto CLa @EndIf 
  @ProgramManager ("[DeleteItem (miro SUPERSCREEN)]")
  @Delay = @SystemDate 
CLb: @If (@SystemDate - @Delay <= @d) @Goto CLb @EndIf 
  @ProgramManager ("[DeleteItem (miro MONITOR SELECT)]")
  @Delay = @SystemDate 
CLc: @If (@SystemDate - @Delay <= @d) @Goto CLc @EndIf 
  @ProgramManager ("[DeleteItem (miroTINT CONTROL)]")
  @Delay = @SystemDate 
CLf: @If (@SystemDate - @Delay <= @d) @Goto CLf @EndIf 
  @ProgramManager ("[DeleteItem (miroSCOPE)]")
  @Delay = @SystemDate 
CLg: @If (@SystemDate - @Delay <= @d) @Goto CLg @EndIf 
  @ProgramManager ("[DeleteItem (miroSIZE CALIBRATION)]")
  @Delay = @SystemDate 
CLi: @If (@SystemDate - @Delay <= @d) @Goto CLi @EndIf 
  @ProgramManager ("[DeleteItem (Information)]")
  @Delay = @SystemDate 
CLd: @If (@SystemDate - @Delay <= @d) @Goto CLd @EndIf 
  @ProgramManager ("[DeleteItem (miro HOTKEY)]") 
  @Delay = @SystemDate 
CLk: @If (@SystemDate - @Delay <= @d) @Goto CLk @EndIf 
  @ProgramManager ("[DeleteItem (miro PINBOARD)]") 
  @Delay = @SystemDate 
CLl: @If (@SystemDate - @Delay <= @d) @Goto CLl @EndIf 
  @ProgramManager ("[DeleteItem (miroSCREEN-Adjust)]") 
  @Delay = @SystemDate 
CLe: @If (@SystemDate - @Delay <= @d) @Goto CLe @EndIf 
  @ProgramManager ("[DeleteItem (miro FONTCOMPILER)]")
  @Delay = @SystemDate 
CLh: @If (@SystemDate - @Delay <= @d) @Goto CLh @EndIf 
  @ProgramManager ("[DeleteItem (miro TWINFACE)]")
  @Delay = @SystemDate 
CLj: @If (@SystemDate - @Delay <= @d) @Goto CLj @EndIf 
  @ProgramManager ("[DeleteGroup (miroWINTOOLS)]")
  @Delay = @SystemDate 
CLm: @If (@SystemDate - @Delay <= @d) @Goto CLm @EndIf 
@EndDisplay

  @If ("@GetINI ("mboot.description","boardfam","system.ini")" != "")
    @isnotdel = @TRUE
  @EndIf
  @SetINI ("boot.description", "displayinf",, "system.ini")
  @SetINI ("boot.description", "displayinf2",, "system.ini")
  @SetINI ("mboot.description", "displayinf2",, "system.ini")
  @SetINI ("mboot.description", "displayinf",, "system.ini")
  @SetINI ("mboot.description", "left",, "system.ini")
  @SetINI ("mboot.description", "right",, "system.ini")
  @SetINI ("mboot.description", "mboot",, "system.ini")
  @SetINI ("mboot.description", "boardfam",, "system.ini")
  @SetINI ("mboot.description", "f_flag",, "system.ini")
  @SetINI ("mboot.description", "resolution",, "system.ini")
  @SetINI ("mboot.description", "resolutions",, "system.ini")
  @SetINI ("mboot.description", "resolutions2",, "system.ini")
  @SetINI ("mboot.description", "BusType",, "system.ini")
  @SetINI ("mboot.description", "dpi",, "system.ini")
  @SetINI ("mboot.description", "Screen_Size_X",, "system.ini")
  @SetINI ("mboot.description", "Screen_Size_Y",, "system.ini")
  @SetINI ("mboot.description", "Pixel_Size",, "system.ini")
  @SetINI ("mboot.description", "BoardDesc",, "system.ini")
  @SetINI ("mboot.description", "MonDesc",, "system.ini")
  @SetINI ("mboot.description", "bootdrive",, "system.ini")

  @SetINI ("P9100.drv", "DacType",, "system.ini")
  @SetINI ("P9100.drv", "MemSize",, "system.ini")
  @SetINI ("P9100.drv", "TmgFileName",, "system.ini")
  @SetINI ("P9100.drv", "ClockType",, "system.ini")
  @SetINI ("P9100.drv", "MemClkInDecaKHz",, "system.ini")
  @SetINI ("P9100.drv", "wBase",, "system.ini")
  @SetINI ("P9100.drv", "CfgBA",, "system.ini")
  @SetINI ("P9100.drv", "Cursors",, "system.ini")
  @SetINI ("P9100.drv", "Palette",, "system.ini")
  @SetINI ("P9100.drv", "DevBits",, "system.ini")
  @SetINI ("P9100.drv", "BoardType",, "system.ini")
  @SetINI ("P9100.drv", "MemAddr",, "system.ini")
  @SetINI ("P9100.drv", "CursorUpdate",, "system.ini")
  @SetINI ("P9100.drv", "Cursor",, "system.ini")
  @SetINI ("P9100.drv", "Speed",, "system.ini")
  @SetINI ("P9100.drv", "DefMode",, "system.ini")
  @SetINI ("P9100.drv", "IBM525PLL",, "system.ini")
  @SetINI ("P9100.drv", "Font",, "system.ini")
  @SetINI ("P9100.drv", "FontSize",, "system.ini")
  @SetINI ("P9100.drv", "Resolution",, "system.ini")
  @SetINI ("P9100.drv", "BusType",, "system.ini")

  @SetINI ("928.drv", "dpi",, "system.ini")
  @SetINI ("928.drv", "Virtual_Size_X",, "system.ini")
  @SetINI ("928.drv", "Virtual_Size_Y",, "system.ini")
  @SetINI ("928.drv", "Screen_Size_X",, "system.ini")
  @SetINI ("928.drv", "Screen_Size_Y",, "system.ini")
  @SetINI ("928.drv", "Memory_Size_X",, "system.ini")
  @SetINI ("928.drv", "Memory_Size_Y",, "system.ini")
  @SetINI ("928.drv", "Pixel_Size",, "system.ini")
  @SetINI ("928.drv", "polygon-support",, "system.ini")
  @SetINI ("928.drv", "TV",, "system.ini")
  @SetINI ("928.drv", "2in1",, "system.ini")
  @SetINI ("928.drv", "15BPP",, "system.ini")
  @SetINI ("928.drv", "notaus",, "system.ini")
  @SetINI ("928.drv", "DRAM",, "system.ini")
  @SetINI ("928.drv", "VXPBlt",, "system.ini")
  @SetINI ("928.drv", "FIFO",, "system.ini")
  @SetINI ("928.drv", "Mon_Data",, "system.ini")
  @SetINI ("928.drv", "Mon_Path",, "system.ini")
  @SetINI ("928.drv", "MonDesc",, "system.ini")
  @SetINI ("928.drv", "BoardDesc",, "system.ini")
  @SetINI ("928.drv", "CardID",, "system.ini")
  @SetINI ("928.drv", "CardSubID",, "system.ini")
  @SetINI ("928.drv", "Font",, "system.ini")
  @SetINI ("928.drv", "RAM",, "system.ini")
  @SetINI ("928.drv", "PhysBoardNr",, "system.ini")
  @SetINI ("928.drv", "SysColors",, "system.ini")

  @SetINI ("twinleft.drv", "dpi",, "system.ini")
  @SetINI ("twinleft.drv", "Virtual_Size_X",, "system.ini")
  @SetINI ("twinleft.drv", "Virtual_Size_Y",, "system.ini")
  @SetINI ("twinleft.drv", "Screen_Size_X",, "system.ini")
  @SetINI ("twinleft.drv", "Screen_Size_Y",, "system.ini")
  @SetINI ("twinleft.drv", "Memory_Size_X",, "system.ini")
  @SetINI ("twinleft.drv", "Memory_Size_Y",, "system.ini")
  @SetINI ("twinleft.drv", "Pixel_Size",, "system.ini")
  @SetINI ("twinleft.drv", "polygon-support",, "system.ini")
  @SetINI ("twinleft.drv", "TV",, "system.ini")
  @SetINI ("twinleft.drv", "2in1",, "system.ini")
  @SetINI ("twinleft.drv", "15BPP",, "system.ini")
  @SetINI ("twinleft.drv", "notaus",, "system.ini")
  @SetINI ("twinleft.drv", "DRAM",, "system.ini")
  @SetINI ("twinleft.drv", "VXPBlt",, "system.ini")
  @SetINI ("twinleft.drv", "FIFO",, "system.ini")
  @SetINI ("twinleft.drv", "Mon_Data",, "system.ini")
  @SetINI ("twinleft.drv", "Mon_Path",, "system.ini")
  @SetINI ("twinleft.drv", "MonDesc",, "system.ini")
  @SetINI ("twinleft.drv", "BoardDesc",, "system.ini")
  @SetINI ("twinleft.drv", "CardID",, "system.ini")
  @SetINI ("twinleft.drv", "CardSubID",, "system.ini")
  @SetINI ("twinleft.drv", "Font",, "system.ini")
  @SetINI ("twinleft.drv", "RAM",, "system.ini")
  @SetINI ("twinleft.drv", "PhysBoardNr",, "system.ini")
  @SetINI ("twinleft.drv", "SysColors",, "system.ini")

  @SetINI ("twinright.drv", "dpi",, "system.ini")
  @SetINI ("twinright.drv", "Virtual_Size_X",, "system.ini")
  @SetINI ("twinright.drv", "Virtual_Size_Y",, "system.ini")
  @SetINI ("twinright.drv", "Screen_Size_X",, "system.ini")
  @SetINI ("twinright.drv", "Screen_Size_Y",, "system.ini")
  @SetINI ("twinright.drv", "Memory_Size_X",, "system.ini")
  @SetINI ("twinright.drv", "Memory_Size_Y",, "system.ini")
  @SetINI ("twinright.drv", "Pixel_Size",, "system.ini")
  @SetINI ("twinright.drv", "polygon-support",, "system.ini")
  @SetINI ("twinright.drv", "TV",, "system.ini")
  @SetINI ("twinright.drv", "2in1",, "system.ini")
  @SetINI ("twinright.drv", "15BPP",, "system.ini")
  @SetINI ("twinright.drv", "notaus",, "system.ini")
  @SetINI ("twinright.drv", "DRAM",, "system.ini")
  @SetINI ("twinright.drv", "VXPBlt",, "system.ini")
  @SetINI ("twinright.drv", "FIFO",, "system.ini")
  @SetINI ("twinright.drv", "Mon_Data",, "system.ini")
  @SetINI ("twinright.drv", "Mon_Path",, "system.ini")
  @SetINI ("twinright.drv", "MonDesc",, "system.ini")
  @SetINI ("twinright.drv", "BoardDesc",, "system.ini")
  @SetINI ("twinright.drv", "CardID",, "system.ini")
  @SetINI ("twinright.drv", "CardSubID",, "system.ini")
  @SetINI ("twinright.drv", "Font",, "system.ini")
  @SetINI ("twinright.drv", "RAM",, "system.ini")
  @SetINI ("twinright.drv", "PhysBoardNr",, "system.ini")
  @SetINI ("twinright.drv", "SysColors",, "system.ini")

  @SetINI ("2in1.drv", "driverx1",, "system.ini")
  @SetINI ("2in1.drv", "driverx2",, "system.ini")
  @SetINI ("2in1.drv", "display1",, "system.ini")
  @SetINI ("2in1.drv", "display2",, "system.ini")

  @SetINI ("miroSCOPE", "Sensibility",, "win.ini")
  @SetINI ("miroSCOPE", "Zoom Factor",, "win.ini")
  @SetINI ("miroSCOPE", "Hotkey Number",, "win.ini")
  @SetINI ("miroSCOPE", "Window dimensions",, "win.ini")

  @SetINI ("miroTWINFACE", "top",, "win.ini")
  @SetINI ("miroTWINFACE", "run",, "win.ini")
  @SetINI ("miroTWINFACE", "align",, "win.ini")

  @SetINI ("miroVIRTUAL", "top",, "win.ini")
  @SetINI ("miroVIRTUAL", "run",, "win.ini")
  @SetINI ("miroVIRTUAL", "align",, "win.ini")

  @SetINI ("TintControl", "SIP_MONTEMP",, "win.ini")
  @SetINI ("TintControl", "SIP_COLOR",, "win.ini")
  @SetINI ("TintControl", "CLUT",, "win.ini")
  @SetINI ("TintControl", "CLUT1",, "win.ini")
  @SetINI ("TintControl", "CLUT2",, "win.ini")

  @SetINI ("miroSIZE CALIBRATION", "DP100mmX",, "win.ini")
  @SetINI ("miroSIZE CALIBRATION", "DP100mmY",, "win.ini")
  @SetINI ("miroSIZE CALIBRATION", "HiResMonitorX",, "win.ini")
  @SetINI ("miroSIZE CALIBRATION", "HiResMonitorY",, "win.ini")

  @SetINI ("Screensaver.miroPOWERSAVE", "VESAMonitors",, "control.ini")
  @SetINI ("Screensaver.miroPOWERSAVE", "ResumeAfterPOWERDOWN",, "control.ini")
  @SetINI ("Screensaver.miroPOWERSAVE", "TEST_VESAMonitors",, "control.ini")
  @SetINI ("Screensaver.miroPOWERSAVE", "StandbyTime",, "control.ini")
  @SetINI ("Screensaver.miroPOWERSAVE", "SuspendTime",, "control.ini")

  @SetINI ("mdi.dll", "Interrupt",, "system.ini")

  @SetINI ("s3_24.drv", "FontSize",, "system.ini")
  @SetINI ("s3_24.drv", "WidthXHeight",, "system.ini")

  @SetINI ("v631p.drv","FontSize",, "system.ini")
  @SetINI ("v631p.drv","EnableHwCursor",, "system.ini")
  @SetINI ("v631p.drv","WidthXHeight",, "system.ini")
  @SetINI ("avga800.drv","FontSize",, "system.ini")
  @SetINI ("avga800.drv","EnableHwCursor",, "system.ini")
  @SetINI ("avga800.drv","WidthXHeight",, "system.ini")
  @SetINI ("al314p.drv","FontSize",, "system.ini")
  @SetINI ("al314p.drv","EnableHwCursor",, "system.ini")
  @SetINI ("al314p.drv","WidthXHeight",, "system.ini")
  @SetINI ("avga1280.drv","FontSize",, "system.ini")
  @SetINI ("avga1280.drv","EnableHwCursor",, "system.ini")
  @SetINI ("avga1280.drv","WidthXHeight",, "system.ini")
  @SetINI ("al3164p.drv","FontSize",, "system.ini")
  @SetINI ("al3164p.drv","EnableHwCursor",, "system.ini")
  @SetINI ("al3164p.drv","WidthXHeight",, "system.ini")
  @SetINI ("al3164ps.drv","FontSize",, "system.ini")
  @SetINI ("al3164ps.drv","EnableHwCursor",, "system.ini")
  @SetINI ("al3164ps.drv","WidthXHeight",, "system.ini")
  @SetINI ("al16m.drv","FontSize",, "system.ini")
  @SetINI ("al16m.drv","EnableHwCursor",, "system.ini")
  @SetINI ("al16m.drv","WidthXHeight",, "system.ini")
  @SetINI ("v631f8s.drv","FontSize",, "system.ini")
  @SetINI ("v631f8s.drv","EnableHwCursor",, "system.ini")
  @SetINI ("v631f8s.drv","WidthXHeight",, "system.ini")

  @If (@isnotdel == @TRUE)
    @isnotdel = @FALSE

    //del msvideo in drivers section
    @i = 1
    @msvid = @GetINI ("drivers", "msvideo", "system.ini")
    @If ("@msvid" == "mirocap.drv")
      @SetINI ("drivers", "msvideo",, "system.ini")
      @SetINI ("Userinstallable.drivers", "msvideo",, "control.ini")
    @Else 
DELMSVIDEO:
      @msvid = @GetINI ("drivers", "msvideo@i", "system.ini")
      @If ("@msvid" == "mirocap.drv")
        @SetINI ("drivers", "msvideo@i",, "system.ini")
        @SetINI ("Userinstallable.drivers", "msvideo@i",, "control.ini")
      @Else 
        @i = (@i + 1)
        @If (@i == 10)
        @Else
          @Goto DELMSVIDEO
        @EndIf
      @EndIf
    @EndIf

    @If (   "@GetINI ("drivers","DCI","system.ini")" != ""
        &&  "@GetINI ("drivers","DCIDCI","system.ini")" != ""
        )
      @SetINI ("drivers", "DCI", "@GetINI ("drivers","DCIDCI","system.ini")", "system.ini")
      @SetINI ("drivers", "DCIDCI",, "system.ini")
    @Else
      @SetINI ("drivers", "DCI",, "system.ini")
    @EndIf
    @If (   "@GetINI ("drivers","DCI","system.ini")" != ""
        &&  "@GetINI ("drivers","MIRODCI","system.ini")" != ""
        )
      @SetINI ("drivers", "DCI", "@GetINI ("drivers","MIRODCI","system.ini")", "system.ini")
      @SetINI ("drivers", "MIRODCI",, "system.ini")
    @Else
      @SetINI ("drivers", "DCI",, "system.ini")
    @EndIf
    @If (   "@GetINI ("drivers","VIDC.VIXL","system.ini")" != ""
        &&  "@GetINI ("drivers","MIROVIDC.VIXL","system.ini")" != ""
        )
      @SetINI ("drivers", "VIDC.VIXL", "@GetINI ("drivers","MIROVIDC.VIXL","system.ini")", "system.ini")
      @SetINI ("drivers", "MIROVIDC.VIXL",, "system.ini")
    @Else
      @SetINI ("drivers", "VIDC.VIXL",, "system.ini")
    @EndIf

    @merke = @GetINI ("MCI", "overlay", "system.ini")
    @If ("@merke" == "MIROMCI.DRV")
      @SetINI ("MCI", "overlay",, "system.ini")
    @EndIf

    //del PINBOARD of the SESAM or OCTO installation
    @merke = @GetINI("Windows", "run","win.ini")
    @If (@StrFind("@merke", "@OutDrive:@SubDir\\WSIZER.EXE") > -1)
      @merke = @StrDel("@merke", @StrFind("@merke", "@OutDrive:@SubDir\\WSIZER.EXE"),@StrLen("@OutDrive:@SubDir\\WSIZER.EXE "))
      @SetINI ("Windows", "run", "@merke", "win.ini")
    @EndIf
  @EndIf

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


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

@If (200 [= @Option    // copy if Windows drivers
    || 201 [= @Option  // 
    || 203 [= @Option  // or miro windows tools
    || 204 [= @Option) // 
  @If ('D' [= @Group)
    @Copy ("@InDrive:\\README.DEU","@OutDrive:@SubDir\\MINFO.TXT")
  @Else
    @Copy ("@InDrive:\\README.ENG","@OutDrive:@SubDir\\MINFO.TXT")
  @EndIf
@EndIf

@If (200 [= @Option) // Windows drivers
  @DefineDisk
    @Label = "Install disk # 1/1"
    @BeginLib DRIVERS.RED
      @File OEMC20PV.DEU  @Size 10000  @Out @wSysDir\\*.INF @Option 101 @Group D
      @File OEMC20PV.ENG  @Size 10000  @Out @wSysDir\\*.INF @Option 101 @Group E
      @File OEMC40PV.DEU  @Size 10000  @Out @wSysDir\\*.INF @Option 100 @Group D
      @File OEMC40PV.ENG  @Size 10000  @Out @wSysDir\\*.INF @Option 100 @Group E

      @File C20PV.DAT    @Size 30000  @Out P9X00RES.* @Option 101 
      @File P9100_08.DRV @Size 140000 @Out @wSysDir\\C20PV_08.* @Option 101 
      @File P9100_16.DRV @Size 140000 @Out @wSysDir\\C20PV_16.* @Option 101 
      @File P9100_32.DRV @Size 140000 @Out @wSysDir\\C20PV_32.* @Option 101
       
      @File C40PV.DAT    @Size 30000  @Out P9X00RES.* @Option 100
      @File P9100_08.DRV @Size 140000 @Out @wSysDir\\C40PV_08.* @Option 100
      @File P9100_16.DRV @Size 140000 @Out @wSysDir\\C40PV_16.* @Option 100 
      @File P9100_24.DRV @Size 140000 @Out @wSysDir\\C40PV_24.* @Option 100
      @File P9100_32.DRV @Size 140000 @Out @wSysDir\\C40PV_32.* @Option 100

      @File VCPDCI.DRV   @Size 33000  @Out @wSysDir\\*.* 
      @File P91INIT.DLL  @Size 23000  @Out @wSysDir\\*.* 
      @File P9100VGA.2GR @Size 5000   @Out @wSysDir\\*.* 
      @File P9100VGA.3GR @Size 17000  @Out @wSysDir\\*.* 
      @File VDDP9100.386 @Size 107000 @Out @wSysDir\\*.* 
      @File VGALOGO.LGO  @Size 10000  @Out @wSysDir\\*.* 

      @File 8514FIX.FON  @Size 12000  @Out @wSysDir\\*.* 
      @File 8514OEM.FON  @Size 12000  @Out @wSysDir\\*.* 
      @File 8514SYS.FON  @Size 12000  @Out @wSysDir\\*.* 
      @File CGA40850.FON @Size 6000   @Out @wSysDir\\*.* 
      @File CGA40WOA.FON @Size 6000   @Out @wSysDir\\*.* 
      @File CGA80850.FON @Size 6000   @Out @wSysDir\\*.* 
      @File CGA80WOA.FON @Size 6000   @Out @wSysDir\\*.* 
      @File COURE.FON    @Size 25000  @Out @wSysDir\\*.* 
      @File COURF.FON    @Size 30000  @Out @wSysDir\\*.* 
      @File EGA40850.FON @Size 8000   @Out @wSysDir\\*.* 
      @File EGA40WOA.FON @Size 8000   @Out @wSysDir\\*.* 
      @File EGA80850.FON @Size 9000   @Out @wSysDir\\*.* 
      @File EGA80WOA.FON @Size 9000   @Out @wSysDir\\*.* 
      @File MODERN.FON   @Size 8000   @Out @wSysDir\\*.* 
      @File ROMAN.FON    @Size 15000  @Out @wSysDir\\*.* 
      @File SCRIPT.FON   @Size 12000  @Out @wSysDir\\*.* 
      @File SERIFE.FON   @Size 60000  @Out @wSysDir\\*.* 
      @File SERIFF.FON   @Size 82000  @Out @wSysDir\\*.* 
      @File SMALLE.FON   @Size 26000  @Out @wSysDir\\*.* 
      @File SMALLF.FON   @Size 22000  @Out @wSysDir\\*.* 
      @File SSERIFE.FON  @Size 65000  @Out @wSysDir\\*.* 
      @File SSERIFF.FON  @Size 90000  @Out @wSysDir\\*.* 
      @File SYMBOLE.FON  @Size 60000  @Out @wSysDir\\*.* 
      @File SYMBOLF.FON  @Size 80000  @Out @wSysDir\\*.* 
      @File VGAFIX.FON   @Size 6000   @Out @wSysDir\\*.* 
      @File VGAOEM.FON   @Size 6000   @Out @wSysDir\\*.* 
      @File VGASYS.FON   @Size 6000   @Out @wSysDir\\*.* 
      @File TIMES.FON    @Size 3000   @Out @wSysDir\\*.* 
    @EndLib
  @EndDisk
@EndIf

@If (204 [= @Option) // video 
  @DefineDisk
    @Label = "Install disk # 1/1"
    @BeginLib DRIVERS.RED
      @File MDI.DLL      @Size 45000  @Out @wSysDir\\*.*   @Group D
      @File MDI.ENG      @Size 45000  @Out @wSysDir\\*.DLL @Group E
      @File MIROCAP.DRV  @Size 10000  @Out @wSysDir\\*.*   @Group D 
      @File MIROCAP.ENG  @Size 10000  @Out @wSysDir\\*.DRV @Group E
      @File MIROVIXL.DRV @Size 35000  @Out @wSysDir\\*.*   @Group D 
      @File MIROVIXL.ENG @Size 35000  @Out @wSysDir\\*.DRV @Group E
      @File MIROMCI.DRV  @Size 17000  @Out @wSysDir\\*.* 
      @File DRICON.EXE   @Size 22000  @Out *.* 
      @File COPRO.INI    @Size  2000  @Out *.* 
    @EndLib
  @EndDisk
@EndIf

@If (202 [= @Option) // miro wallpaper
  @DefineDisk
    @Label = "Install disk # 1/1"
    @BeginLib DRIVERS.RED
      @File CRYSTAL.BMP  @Size 80000  @Out CRYS20PV.* @Option 101
      @File CRYSTAL.BMP  @Size 80000  @Out CRYS40PV.* @Option 100
    @EndLib
  @EndDisk
@EndIf


@If (200 [= @Option    // copy if Windows drivers
    || 203 [= @Option) // or miro windows tools
  @DefineDisk
    @Label = "Install disk # 1/1"
    @BeginLib MWINTOOL.RED
      @File MWINTOOL.DEU @Size 15000  @Out *.INI @Group D
      @File MWINTOOL.ENG @Size 15000  @Out *.INI @Group E
      @File MONSEL.EXE   @Size 100000 @Out *.*
      @File MONSEL.DEU   @Size 34000  @Out *.HLP @Group D
      @File MONSEL.ENG   @Size 33000  @Out *.HLP @Group E
      @File MSUPSCRN.EXE @Size 90000  @Out *.*
      @File MSUP.DEU     @Size 26000  @Out *.HLP @Group D
      @File MSUP.ENG     @Size 25000  @Out *.HLP @Group E
      @File MTINT.EXE    @Size 93000  @Out *.*
      @File MTINTDEU.INI @Size 2000   @Out MTINT.INI @Group D
      @File MTINTENG.INI @Size 2000   @Out MTINT.INI @Group E
      @File MTINTDEU.HLP @Size 42000  @Out MTINT.HLP @Group D
      @File MTINTENG.HLP @Size 42000  @Out MTINT.HLP @Group E
    @EndLib
  @EndDisk
@EndIf

@If (203 [= @Option) // miro windows tools
  @DefineDisk
    @Label = "Install disk # 1/1"
    @BeginLib MWINTOOL.RED
      @File MIROSCOP.EXE @Size 100000 @Out *.*
      @File MIROHOOK.DLL @Size 5000   @Out *.*
      @File MSCOPE.DEU   @Size 55000  @Out *0.HLP @Group D
      @File MSCOPE.ENG   @Size 55000  @Out *0.HLP @Group E
      @File MSIZER.EXE   @Size 35000  @Out *.*
    @EndLib
  @EndDisk
@EndIf


//*** set variables in .INI files *********************************************

@SetINI ("mboot.description", "boardfam","POWER", "system.ini")
@If (200 [= @Option) // Windows drivers
  @SetINI ("mboot.description", "displayinf2",, "system.ini")
  @SetINI ("mboot.description", "mboot","1", "system.ini")
  @SetINI ("mboot.description", "left",, "system.ini")
  @SetINI ("mboot.description", "right",, "system.ini")

  @If (100 [= @Option)
    @SetINI ("mboot.description", "displayinf", "OEMC40PV.INF", "system.ini")
    @SetINI ("P9100.drv", "DacType","IBMRGB525", "system.ini")
    @SetINI ("P9100.drv", "MemSize","4", "system.ini")
    @SetINI ("mboot.description", "BoardDesc","@M50", "system.ini")
  @EndIf
  @If (101 [= @Option)
    @SetINI ("mboot.description", "displayinf", "OEMC20PV.INF", "system.ini")
    @SetINI ("P9100.drv", "DacType","BT485", "system.ini")
    @SetINI ("P9100.drv", "MemSize","2", "system.ini")
    @SetINI ("mboot.description", "BoardDesc","miroCRYSTAL 20PV avi", "system.ini")
  @EndIf

  @SetINI ("P9100.drv", "TmgFileName","P9X00RES.INI", "system.ini")
  @SetINI ("P9100.drv", "ClockType","ICD2061a", "system.ini")
  @SetINI ("P9100.drv", "MemClkInDecaKHz","4444", "system.ini")
  @SetINI ("P9100.drv", "wBase","80", "system.ini")
  @SetINI ("P9100.drv", "CfgBA","9100", "system.ini")
  @SetINI ("P9100.drv", "Cursors","32", "system.ini")
  @SetINI ("P9100.drv", "Palette","Standard", "system.ini")
  @SetINI ("P9100.drv", "DevBits","Off", "system.ini")
  @SetINI ("P9100.drv", "BoardType","VesaHigh", "system.ini")
  @SetINI ("P9100.drv", "MemAddr","C000", "system.ini")
  @SetINI ("P9100.drv", "CursorUpdate","Off", "system.ini")
//  @SetINI ("P9100.drv", "Cursor","Power", "system.ini")
  @SetINI ("P9100.drv", "Speed","33.00mHz", "system.ini")
  @SetINI ("P9100.drv", "DefMode","640x480x8", "system.ini")
  @SetINI ("P9100.drv", "IBM525PLL","ON", "system.ini")
  @SetINI ("P9100.drv", "BusType","DETECT", "system.ini")

@EndIf

@If (200 [= @Option    // copy if Windows drivers
    || 203 [= @Option) // or miro windows tools
  @If (100 [= @Option)
    @SetINI ("TintControl", "CLUT", " ", "win.ini")
    @SetINI ("TintControl", "CLUT1", " ", "win.ini")
    @SetINI ("TintControl", "CLUT2",, "win.ini")
  @EndIf
  @If (101 [= @Option)
    @SetINI ("TintControl", "CLUT", " ", "win.ini")
    @SetINI ("TintControl", "CLUT1", " ", "win.ini")
    @SetINI ("TintControl", "CLUT2",, "win.ini")
  @EndIf
@EndIf

@If (200 [= @Option || 201 [= @Option)
  @If (   ("@GetINI ("drivers","DCI","system.ini")" != "")
      &&  ("@GetINI ("drivers","DCI","system.ini")" != "VCPDCI")
      &&  ("@GetINI ("drivers","MIRODCI","system.ini")" == "")
      )
    @SetINI ("drivers", "MIRODCI","@GetINI ("drivers","DCI","system.ini")", "system.ini")
  @EndIf
  @SetINI ("drivers", "DCI","VCPDCI", "system.ini")
@EndIf

@If (202 [= @Option) // miro wallpaper
  @SetINI ("Desktop", "TileWallpaper", "1", "win.ini")

  @If (100 [= @Option)
    @SetINI ("Desktop", "Wallpaper", "crys40pv.bmp", "win.ini")
  @EndIf
  @If (101 [= @Option)
    @SetINI ("Desktop", "Wallpaper", "crys20pv.bmp", "win.ini")
  @EndIf
@EndIf

@If (204 [= @Option) // VIDEO
  //set run for driver configuration
  @SetINI ("miro.dricon", "driver", "mirocap.drv", "win.ini")
  @SetINI ("MCI", "overlay","MIROMCI.DRV", "system.ini")

  @merke = @GetINI("Windows", "run", "win.ini")
  @If (@StrFind("@merke", "DRICON") < 0)
    @SetINI ("Windows", "run", "@merke DRICON", "win.ini" )
  @EndIf

  @If (   ("@GetINI ("drivers","VIDC.VIXL","system.ini")" != "")
      &&  ("@GetINI ("drivers","VIDC.VIXL","system.ini")" != "MIROVIXL.DRV")
      &&  ("@GetINI ("drivers","MIROVIDC.VIXL","system.ini")" == "")
      )
    @SetINI ("drivers", "MIROVIDC.VIXL","@GetINI ("drivers","VIDC.VIXL","system.ini")", "system.ini")
  @EndIf
  @SetINI ("drivers", "VIDC.VIXL","MIROVIXL.DRV", "system.ini")

  //set msvideo in the drivers section
  @i = 1
  @msvid = @GetINI ("drivers", "msvideo", "system.ini")
  @If (("@msvid" == "") || ("@msvid" == "mirocap.drv"))
    @SetINI ("drivers", "msvideo","mirocap.drv", "system.ini")
    @SetINI ("Userinstallable.drivers", "msvideo","mirocap.drv", "control.ini")
  @Else
    @If (("@msvid" == "videodc1.drv") || ("@msvid" == "VIDEODC1.DRV"))
      @msvid = @GetINI ("drivers", "msvideo9", "system.ini")
      @SetINI ("drivers", "msvideo9","mirocap.drv", "system.ini")
      @SetINI ("Userinstallable.drivers", "msvideo9","mirocap.drv", "control.ini")
      @SetOption (300)
      @SetINI ("miro.dricon", "driver1", "videodc1.drv", "win.ini")
    @Else
      @SetINI ("drivers", "msvideo","mirocap.drv", "system.ini")
      @SetINI ("Userinstallable.drivers", "msvideo","mirocap.drv", "control.ini")
      @SetOption (301)
    @Endif
MSVIDEOCOUNT:
    @msvidx = @GetINI ("drivers", "msvideo@i", "system.ini")
    @If ("@msvidx" == "")
      @SetINI ("drivers", "msvideo@i","@msvid", "system.ini")
    @ElseIf (("@msvid" == "") || ("@msvid" == "mirocap.drv"))
      //msvideo==VIDEODC1
    @Else 
      @i = (@i + 1)
      @If (@i == 9)
        @i = (8888)
        @Goto MSVIDEOCOUNT
      @ElseIf (@i == 8900)
      @Else
        @Goto MSVIDEOCOUNT
      @EndIf
    @EndIf
  @EndIf


  @If ('D' [= @Group)
    @SetINI ("drivers.desc", "MIROCAP.DRV","miroMAGIC 40PV video Aufnahme", "control.ini")
    @SetINI ("drivers.desc", "MIROVIXL.DRV","miroVIDEO-XL Codec", "control.ini")
    @SetINI ("drivers.desc", "MIROMCI.DRV","[MCI] miroMAGIC 40PV video! Overlay Driver", "control.ini")
  @ElseIf ('E' [= @Group)
    @SetINI ("drivers.desc", "MIROCAP.DRV","miroCRYSTAL 40PV video capture", "control.ini")
    @SetINI ("drivers.desc", "MIROVIXL.DRV","miroVIDEO-XL Codec", "control.ini")
    @SetINI ("drivers.desc", "MIROMCI.DRV","[MCI] miroCRYSTAL 40PV video! Overlay Driver", "control.ini")
  @EndIf

@EndIf

  @If (300 [= @Option) // miro windows tools
    @FlushKeyboard
    @Display
  @M300
  @M301
  @M302
    @Pause
    @EndDisplay
  @EndIf
  @If (301 [= @Option) // miro windows tools
    @FlushKeyboard
    @Display
  @M303 @i @M304
  @M305
    @Pause
    @EndDisplay
  @EndIf

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

@If (200 [= @Option || 203 [= @Option)
  @Delete ("@OutDrive:@wSysDir\\MIROLOGO.RLE")
  @Delete ("@OutDrive:@SubDir\\*.MIR")
  @Delete ("@OutDrive:@SubDir\\MSUP?.HLP")
  @Delete ("@OutDrive:@SubDir\\MSUPVIR?.HLP")
  @Delete ("@OutDrive:@SubDir\\MSCOPE1.HLP")
  @Delete ("@OutDrive:@SubDir\\MSCOPE2.HLP")
  @Delete ("@OutDrive:@SubDir\\MSCOPE3.HLP")
  @Delete ("@OutDrive:@SubDir\\MSCOPE4.HLP")
@EndIf

@If (200 [= @Option && @DirExists ("@OutDrive:@SubDir\\SYSTEM"))
  @Delete ("@OutDrive:@SubDir\\OEMC40PV.*")
  @Delete ("@OutDrive:@SubDir\\OEMC20PV.*")
@EndIf

//del PINBOARD of the SESAM or OCTO installation
@merke = @GetINI("Windows", "run","win.ini")
@If (@StrFind("@merke", "@OutDrive:@SubDir\\WSIZER.EXE") > -1)
  @merke = @StrDel("@merke", @StrFind("@merke", "@OutDrive:@SubDir\\WSIZER.EXE"),@StrLen("@OutDrive:@SubDir\\WSIZER.EXE "))
  @SetINI ("Windows", "run", "@merke", "win.ini")
@EndIf

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

@Finish
  @BackGroundMode (3,@Blue, @Blue)
  @WinExec ("PROGMAN.EXE", 1) 

  @If (200 [= @Option || 203 [= @Option)
    @ProgramManager ("[CreateGroup (miroWINTOOLS, MWINTOOL.GRP)]")
    @Delay = @SystemDate 
La: @If (@SystemDate - @Delay <= @d) @Goto La @EndIf 
    @ProgramManager ("[ReplaceItem (miro SUPERSCREEN)]")
    @Delay = @SystemDate 
Lb: @If (@SystemDate - @Delay <= @d) @Goto Lb @EndIf 
    @ProgramManager ("[AddItem (@OutDrive:@SubDir\\MSUPSCRN.EXE, miro SUPERSCREEN)]")
    @Delay = @SystemDate 
Lc: @If (@SystemDate - @Delay <= @d) @Goto Lc @EndIf 
    @ProgramManager ("[ReplaceItem (miro MONITOR SELECT)]")
    @Delay = @SystemDate 
Ld: @If (@SystemDate - @Delay <= @d) @Goto Ld @EndIf 
    @ProgramManager ("[AddItem (@OutDrive:@SubDir\\MONSEL.EXE, miro MONITOR SELECT)]")
    @Delay = @SystemDate 
Le: @If (@SystemDate - @Delay <= @d) @Goto Le @EndIf 
    @ProgramManager ("[ReplaceItem (miroTINT CONTROL)]")
    @Delay = @SystemDate 
Lf: @If (@SystemDate - @Delay <= @d) @Goto Lf @EndIf 
    @ProgramManager ("[AddItem (@OutDrive:@SubDir\\MTINT.EXE, miroTINT CONTROL)]")
    @Delay = @SystemDate 
Li: @If (@SystemDate - @Delay <= @d) @Goto Li @EndIf 

    @If (203 [= @Option) // miro windows tools
      @ProgramManager ("[ReplaceItem (miroSCOPE)]")
      @Delay = @SystemDate 
Ll: @If (@SystemDate - @Delay <= @d) @Goto Ll @EndIf 
      @ProgramManager ("[AddItem (@OutDrive:@SubDir\\MIROSCOP.EXE, miroSCOPE)]")
      @Delay = @SystemDate 
Lm: @If (@SystemDate - @Delay <= @d) @Goto Lm @EndIf 
      @ProgramManager ("[ReplaceItem (miroSIZE CALIBRATION)]")
      @Delay = @SystemDate 
Ln: @If (@SystemDate - @Delay <= @d) @Goto Ln @EndIf 
      @ProgramManager ("[AddItem (@OutDrive:@SubDir\\MSIZER.EXE, miroSIZE CALIBRATION)]")
      @Delay = @SystemDate 
Lo: @If (@SystemDate - @Delay <= @d) @Goto Lo @EndIf 
    @EndIf

    @ProgramManager ("[ReplaceItem (Information)]")
    @Delay = @SystemDate 
Lr: @If (@SystemDate - @Delay <= @d) @Goto Lr @EndIf 
    @ProgramManager ("[AddItem (NOTEPAD minfo.txt, Information, MONSEL.EXE, 1)]")
    @Delay = @SystemDate 
Ls: @If (@SystemDate - @Delay <= @d) @Goto Ls @EndIf 
    @ProgramManager ("[ShowGroup (miroWINTOOLS, 1)]")
    @Delay = @SystemDate 
Lt: @If (@SystemDate - @Delay <= @d) @Goto Lt @EndIf 
  @EndIf


  @ChDrive (@WindowsDrive)
  @ChDir ("@WindowsDir")
  @If (200 [= @Option) // Windows drivers
    @ReturnValue (4711)
    @WinExec ("@OutDrive:@SubDir\\MONSEL.EXE", 1) 
  @EndIf
@EndFinish


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

