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

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

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


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

@DefineVars
  @QString @mName     = "Install 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
  @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
@EndVars


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

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

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 (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 = "Die Installation 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 = "Alle installierte Software wieder entfernen"
    @QString @M20 = "Wählen Sie mit der Maus die Software aus, die Sie installieren wollen:" 
    @QString @M22 = "Windows 3.1 Treiber Software"
    @QString @M23 = "zusätzliche miroWINTOOLS"
    @QString @M24 = "miro-Hintergrundbild"
    @QString @M30 = "Software entfernen:"
  @Else
    @QString @M00 = "The installation 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 = "Only uninstall all software"
    @QString @M20 = "Select with your mouse the software you want to install:"
    @QString @M22 = "Windows 3.1 driver software"
    @QString @M23 = "additional miroWINTOOLS"
    @QString @M24 = "miro wallpaper"
    @QString @M30 = "Uninstall software:"
  @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


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

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

@M10

  @Option 103 = "miroCRYSTAL 10SD" 
  @Option 104 = "miroCRYSTAL 10SD (2MB)" 
  @Option 210 = "@M12"
@EndOption


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

@If (210 [! @Option) // uninstall
  @SetOption (200)
  @GetOption
    @CheckBox
    @DlgCtrlSize (0,4,0,8,50)
    @BackGroundMode (3,@Blue, @Blue)
    @Cls
  
@M20

    @Option 200 = "@M22"
    @Option 201 = "@M23"
    @Option 202 = "@M24"
  @EndOption
@EndIf


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

@If (210 [= @Option) // uninstall
  @FlushKeyboard
  @Display
@M30

- @OutDrive:@wSysDir\OEMC10SD.*
- @OutDrive:@wSysDir\1SD*.DRV
- @OutDrive:@wSysDir\OCTO.MON       
- @OutDrive:@wSysDir\OCTOVGA.*
- @OutDrive:@wSysDir\VDDOCTO.386
- @OutDrive:@SubDir\CRYS10SD.BMP
  @Pause
  @EndDisplay

  @Delete ("@OutDrive:@wSysDir\\OEMC10SD.*")
  @Delete ("@OutDrive:@wSysDir\\1SD?????.DRV")
  @Delete ("@OutDrive:@wSysDir\\OCTO.MON")
  @Delete ("@OutDrive:@wSysDir\\OCTOVGA.*")
  @Delete ("@OutDrive:@wSysDir\\VDDOCTO.386")
  @Delete ("@OutDrive:@SubDir\\CRYS10SD.BMP")

  @FlushKeyboard
  @Display
@M30

- @OutDrive:@SubDir\MINFO.TXT
- @OutDrive:@SubDir\MWINTOOL.INI
- @OutDrive:@SubDir\MSUP*.*
- @OutDrive:@SubDir\MONSEL.*
- @OutDrive:@SubDir\VIRTDLL.DLL
- @OutDrive:@SubDir\MIROSCOP.EXE
- @OutDrive:@SubDir\MIROHOOK.DLL
- @OutDrive:@SubDir\MSCOPE*.HLP
- @OutDrive:@SubDir\MPWRSAVE.SCR
- @OutDrive:@SubDir\TWIN*.*
- @OutDrive:@SubDir\MTINT*.*
- @OutDrive:@SubDir\MSIZE*.*
  @Pause
  @EndDisplay

  @Delete ("@OutDrive:@SubDir\\MINFO.TXT")
  @Delete ("@OutDrive:@SubDir\\MWINTOOL.INI")
  @Delete ("@OutDrive:@SubDir\\MSUP*.*")
  @Delete ("@OutDrive:@SubDir\\MONSEL.*")
  @Delete ("@OutDrive:@SubDir\\VIRTDLL.DLL")
  @Delete ("@OutDrive:@SubDir\\MIROSCOP.EXE")
  @Delete ("@OutDrive:@SubDir\\MIROHOOK.DLL")
  @Delete ("@OutDrive:@SubDir\\MSCOPE*.HLP")
  @Delete ("@OutDrive:@SubDir\\MPWRSAVE.SCR")
  @Delete ("@OutDrive:@SubDir\\TWIN*.*")
  @Delete ("@OutDrive:@SubDir\\MTINT*.*")
  @Delete ("@OutDrive:@SubDir\\MSIZE*.*")

  @Delete ("@OutDrive:@wSysDir\\MIROLOGO.RLE")
  @Delete ("@OutDrive:@SubDir\\*.MIR")

  @WinExec ("PROGMAN.EXE", 1) 
@Display // ???
  @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 
CLd: @If (@SystemDate - @Delay <= @d) @Goto CLd @EndIf 
  @ProgramManager ("[DeleteItem (miro HOTKEY)]") 
  @Delay = @SystemDate 
//CLe: @If (@SystemDate - @Delay <= @d) @Goto CLe @EndIf 
//  @ProgramManager ("[DeleteItem (miro FONTCOMPILER)]")
//  @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 
CLh: @If (@SystemDate - @Delay <= @d) @Goto CLh @EndIf 
  @ProgramManager ("[DeleteItem (miro TWINFACE)]")
  @Delay = @SystemDate 
CLi: @If (@SystemDate - @Delay <= @d) @Goto CLi @EndIf 
  @ProgramManager ("[DeleteItem (Information)]")
  @Delay = @SystemDate 
CLj: @If (@SystemDate - @Delay <= @d) @Goto CLj @EndIf 
@EndDisplay

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


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

@If (200 [= @Option    // copy if Windows drivers
    || 201 [= @Option) // or miro windows tools
  @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 OEMC10SD.DEU  @Size 10000  @Out @wSysDir\\*.INF @Option 103 @Group D
      @File OEMC10SD.ENG  @Size 10000  @Out @wSysDir\\*.INF @Option 103 @Group E
      @File OEMC10D2.DEU @Size 10000  @Out @wSysDir\\OEMC10SD.INF @Option 104 @Group D
      @File OEMC10D2.ENG @Size 10000  @Out @wSysDir\\OEMC10SD.INF @Option 104 @Group E

      @File 1SD12_04.DRV @Size 250000 @Out @wSysDir\\*.* @Option 103 
      @File 1SD10_08.DRV @Size 250000 @Out @wSysDir\\*.* @Option 103 
      @File 1SD08_16.DRV @Size 250000 @Out @wSysDir\\1SD08_15.* @Option 103 
      @File 1SD08_16.DRV @Size 250000 @Out @wSysDir\\*.* @Option 103 
      @File 1SD06_16.DRV @Size 250000 @Out @wSysDir\\1SD06_15.* @Option 103 
      @File 1SD06_16.DRV @Size 250000 @Out @wSysDir\\*.* @Option 103 
      @File 1SD06_24.DRV @Size 110000 @Out @wSysDir\\*.* @Option 103 

      @File 1SD12_04.DRV @Size 250000 @Out @wSysDir\\*.* @Option 104 
      @File 1SD12_08.DRV @Size 250000 @Out @wSysDir\\*.* @Option 104 
      @File 1SD08_16.DRV @Size 250000 @Out @wSysDir\\1SD08_15.* @Option 104 
      @File 1SD08_16.DRV @Size 250000 @Out @wSysDir\\*.* @Option 104 
      @File 1SD06_16.DRV @Size 250000 @Out @wSysDir\\1SD06_15.* @Option 104 
      @File 1SD06_16.DRV @Size 250000 @Out @wSysDir\\*.* @Option 104 
      @File 1SD06_24.DRV @Size 110000 @Out @wSysDir\\*.* @Option 104 

      @File OCTO.MON     @Size 65000  @Out @wSysDir\\*.* 
      @File OCTOVGA.2GR  @Size 5000   @Out @wSysDir\\*.* 
      @File OCTOVGA.3GR  @Size 15000  @Out @wSysDir\\*.* 
      @File VDDOCTO.386  @Size 40000  @Out @wSysDir\\*.* 
      @File VGALOGO.LGO  @Size 2000   @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 8000   @Out @wSysDir\\*.* 
      @File EGA80WOA.FON @Size 8000   @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\\*.* 
    @EndLib
  @EndDisk
@EndIf

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

@If (200 [= @Option    // copy if Windows drivers
    || 201 [= @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 MSUPVIRT.EXE @Size 20000  @Out *.*   
      @File VIRTDLL.DLL  @Size 10000  @Out *.*   
      @File MSUPVIR.DEU  @Size 10000  @Out *.HLP @Group D
      @File MSUPVIR.ENG  @Size 10000  @Out *.HLP @Group E
      @File MSUPHOT.EXE  @Size 20000  @Out *.*   
      @File MSUPSCRD.DLL @Size 3000   @Out *.*   

      @File MPWRSAVE.SCR @Size 35000  @Out *.*
      @File MTINT.EXE    @Size 90000  @Out *.*
      @File MTINT.DEU    @Size 40000  @Out *.HLP @Group D
      @File MTINT.ENG    @Size 35000  @Out *.HLP @Group E
      @File MTINTRUN.EXE @Size 55000  @Out *.*
    @EndLib
  @EndDisk
@EndIf

@If (201 [= @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 *********************************************

@If (200 [= @Option) // Windows drivers
  @SetINI ("boot.description", "displayinf2",, "system.ini")
  @SetINI ("mboot.description", "displayinf2",, "system.ini")
  @SetINI ("928.drv", "2in1",, "system.ini")
  @SetINI ("928.drv", "Mon_Data", "@OutDrive:@wSysDir\\octo.mon", "system.ini")
  @If (@fflag == 1)
    @SetINI ("mboot.description", "f_flag", "ON", "system.ini")
  @Else
    @SetINI ("mboot.description", "f_flag",, "system.ini")
  @EndIf

  @If (103 [= @Option || 104 [= @Option)
    @SetINI ("boot.description", "displayinf", "OEMC10SD.INF", "system.ini")
    @SetINI ("mboot.description", "displayinf", "OEMC10SD.INF", "system.ini")
  @EndIf
  @SetINI ("mboot.description", "boardfam","SESAM", "system.ini")
@EndIf

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

  @If (103 [= @Option || 104 [= @Option)
    @SetINI ("Desktop", "Wallpaper", "crys10sd.bmp", "win.ini")
  @EndIf
@EndIf


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

@If (200 [= @Option || 201 [= @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\\OEMC10SD.*")
@EndIf


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

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

  @If (200 [= @Option || 201 [= @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 
Lg: @If (@SystemDate - @Delay <= @d) @Goto Lg @EndIf 
    @ProgramManager ("[ReplaceItem (miro HOTKEY)]") 
    @Delay = @SystemDate 
Lh: @If (@SystemDate - @Delay <= @d) @Goto Lh @EndIf 
    @ProgramManager ("[AddItem (@OutDrive:@SubDir\\MSUPHOT.EXE, miro HOTKEY)]")
    @Delay = @SystemDate 
Li: @If (@SystemDate - @Delay <= @d) @Goto Li @EndIf 

    @If (201 [= @Option) // miro windows tools
//      @ProgramManager ("[ReplaceItem (miro FONTCOMPILER)]")
//      @Delay = @SystemDate 
//Lj: @If (@SystemDate - @Delay <= @d) @Goto Lj @EndIf 
//      @ProgramManager ("[AddItem (@OutDrive:@SubDir\\MFONTCOM.EXE, miro FONTCOMPILER)]")
//      @Delay = @SystemDate 
//Lk: @If (@SystemDate - @Delay <= @d) @Goto Lk @EndIf 
      @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 ("[DeleteItem (miro TWINFACE)]")
    @Delay = @SystemDate 
Lq: @If (@SystemDate - @Delay <= @d) @Goto Lq @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 *********************************************************************

