home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Media Gallery 1996 January
/
MG_0196.ISO
/
spea
/
install
/
floppy.dat
< prev
next >
Wrap
Text File
|
1995-11-17
|
35KB
|
1,508 lines
//////////////////////////// INSTALLATIONSDISKETTEN ///////////////////////////
@If(9999 [! @Option)
@DefineVars
@Integer @DiskDriveOK = 0
// @Integer @BreakCount = 0
// @Integer @SpaceFound = 0
@Integer @Number = 1
@Integer @Total = 1
@Integer @G = 0
@QString @Source = ""
// @QString @Head = ""
// @QString @Tail = ""
@QString @Line = ""
@QString @LabelLine1 = ""
@QString @LabelLine2 = ""
@QString @LabelLine3 = ""
@QString @LabelLine4 = ""
@QString @LabelLine5 = ""
@QString @LabelLine6 = ""
@If(@L==2)
@QString @Copying = "Kopiere Dateien auf Diskette:"
@QString @Wait = "Bitte warten ..."
@Else // @L
@QString @Copying = "Copying files to floppy disk:"
@QString @Wait = "Please wait ..."
@Endif // @L
@Integer @P = 0
@EndVars
@SetOption(9999)
@Endif // !9999
FLOPPYSTART:
///////////////////////////////////////////////////////////////////////////////
// SHOWTIME PLUS ////////////////////////////////
@If(101 [= @Option)
@If('B' [= @Group) // DOS, Utils, Win
@Total = 3
@If(10001 [! @Option)
@Number = 1
@Source = "INSTALL\\STPLUS\\UTIL1"
@SetOption(10001)
@Goto INSERTDISK
@Endif // 10001
@If(10002 [! @Option)
@Number = 2
@Source = "INSTALL\\STPLUS\\UTIL2"
@SetOption(10002)
@Goto INSERTDISK
@Endif // 10002
@If(10003 [! @Option)
@Number = 3
@Source = "INSTALL\\STPLUS\\WIN"
@SetOption(10003)
@Goto INSERTDISK
@Endif // 10003
@Goto ASKFORMORE
@Endif // 'B'
@If('N' [= @Group) // Windows NT
@Total = 1
@If(10001 [! @Option)
@Number = 1
@Source = "INSTALL\\STPLUS\\NT"
@SetOption(10001)
@Goto INSERTDISK
@Endif // 10001
@Goto ASKFORMORE
@Endif // 'N'
@If('O' [= @Group) // OS/2
@Total = 1
@If(10001 [! @Option)
@Number = 1
@Source = "INSTALL\\STPLUS\\OS2"
@SetOption(10001)
@Goto INSERTDISK
@Endif // 10001
@Goto ASKFORMORE
@Endif // 'O'
@Endif // SHOWTIME PLUS /////////////////////////
// V7-STORM PRO /////////////////////////////////
@If(102 [= @Option)
@If('B' [= @Group) // DOS, Utils, Windows
@Total = 3
@If(10001 [! @Option)
@Number = 1
@Source = "INSTALL\\STORMPRO\\UTIL"
@SetOption(10001)
@Goto INSERTDISK
@Endif // 10001
@If(10002 [! @Option)
@Number = 2
@Source = "INSTALL\\STORMPRO\\WIN31"
@SetOption(10002)
@Goto INSERTDISK
@Endif // 10002
@If(10003 [! @Option)
@Number = 3
@Source = "INSTALL\\STORMPRO\\WIN95"
@SetOption(10003)
@Goto INSERTDISK
@Endif // 10003
@Goto ASKFORMORE
@Endif // 'B'
@If('A' [= @Group) // BigFocus
@Total = 2
@If(10001 [! @Option)
@Number = 1
@Source = "INSTALL\\BIGFOCUS\\STORMPRO\\DISK1"
@SetOption(10001)
@Goto INSERTDISK
@Endif // 10001
@If(10002 [! @Option)
@Number = 2
@Source = "INSTALL\\BIGFOCUS\\STORMPRO\\DISK2"
@SetOption(10002)
@Goto INSERTDISK
@Endif // 10002
@Goto ASKFORMORE
@Endif // 'A'
@If('N' [= @Group) // Windows NT
@Total = 1
@If(10001 [! @Option)
@Number = 1
@Source = "INSTALL\\STORMPRO\\NT35"
@SetOption(10001)
@Goto INSERTDISK
@Endif // 10001
@Goto ASKFORMORE
@Endif // 'N'
@If('O' [= @Group) // OS/2
// Sonderfall, kommt zu INSTALL.DAT
@Endif // 'O'
@Endif // V7-STORM PRO //////////////////////////
// V7-MERCURY P-64 V ////////////////////////////
@If(118 [= @Option)
@If('B' [= @Group) // DOS, Utils, Windows
@Total = 4
@If(10001 [! @Option)
@Number = 1
@Source = "INSTALL\\MERP64V\\UTIL1"
@SetOption(10001)
@Goto INSERTDISK
@Endif // 10001
@If(10002 [! @Option)
@Number = 2
@Source = "INSTALL\\MERP64V\\UTIL2"
@SetOption(10002)
@Goto INSERTDISK
@Endif // 10002
@If(10003 [! @Option)
@Number = 3
@Source = "INSTALL\\MERP64V\\WIN31"
@SetOption(10003)
@Goto INSERTDISK
@Endif // 10003
@If(10004 [! @Option)
@Number = 4
@Source = "INSTALL\\MERP64V\\WIN95"
@SetOption(10004)
@Goto INSERTDISK
@Endif // 10004
@Goto ASKFORMORE
@Endif // 'B'
@If('A' [= @Group) // BigFocus
@Total = 2
@If(10001 [! @Option)
@Number = 1
@Source = "INSTALL\\BIGFOCUS\\MERP64V\\DISK1"
@SetOption(10001)
@Goto INSERTDISK
@Endif // 10001
@If(10002 [! @Option)
@Number = 2
@Source = "INSTALL\\BIGFOCUS\\MERP64V\\DISK2"
@SetOption(10002)
@Goto INSERTDISK
@Endif // 10002
@Goto ASKFORMORE
@Endif // 'A'
@If('N' [= @Group) // Windows NT
@Total = 1
@If(10001 [! @Option)
@Number = 1
@Source = "INSTALL\\NTMMFGL"
@SetOption(10001)
@Goto INSERTDISK
@Endif // 10001
@Goto ASKFORMORE
@Endif // 'N'
@If('O' [= @Group) // OS/2
@Total = 1
@If(10001 [! @Option)
@Number = 1
@Source = "INSTALL\\MERP64V\\OS2"
@SetOption(10001)
@Goto INSERTDISK
@Endif // 10001
@Goto ASKFORMORE
@Endif // 'O'
@Endif // V7-MERCURY P-64 V /////////////////////
// V7-MERCURY P-64 //////////////////////////////
@If(103 [= @Option)
@If('B' [= @Group) // DOS, Utils, Windows
@Total = 3
@If(10001 [! @Option)
@Number = 1
@Source = "INSTALL\\MERP64\\UTIL"
@SetOption(10001)
@Goto INSERTDISK
@Endif // 10001
@If(10002 [! @Option)
@Number = 2
@Source = "INSTALL\\MERP64\\WIN31"
@SetOption(10002)
@Goto INSERTDISK
@Endif // 10002
@If(10003 [! @Option)
@Number = 3
@Source = "INSTALL\\MERP64\\WIN95"
@SetOption(10003)
@Goto INSERTDISK
@Endif // 10003
@Goto ASKFORMORE
@Endif // 'B'
@If('A' [= @Group) // BigFocus
@Total = 2
@If(10001 [! @Option)
@Number = 1
@Source = "INSTALL\\BIGFOCUS\\MERMIP64\\DISK1"
@SetOption(10001)
@Goto INSERTDISK
@Endif // 10001
@If(10002 [! @Option)
@Number = 2
@Source = "INSTALL\\BIGFOCUS\\MERMIP64\\DISK2"
@SetOption(10002)
@Goto INSERTDISK
@Endif // 10002
@Goto ASKFORMORE
@Endif // 'A'
@If('N' [= @Group) // Windows NT
@Total = 1
@If(10001 [! @Option)
@Number = 1
@Source = "INSTALL\\NT"
@SetOption(10001)
@Goto INSERTDISK
@Endif // 10001
@Goto ASKFORMORE
@Endif // 'N'
@If('O' [= @Group) // OS/2
@Total = 1
@If(10001 [! @Option)
@Number = 1
@Source = "INSTALL\\MERP64\\OS2"
@SetOption(10001)
@Goto INSERTDISK
@Endif // 10001
@Goto ASKFORMORE
@Endif // 'O'
@Endif // V7-MERCURY P-64 ///////////////////////
// V7-MERCURY ///////////////////////////////////
@If(104 [= @Option)
@If('W' [= @Group) // Windows
@Total = 2
@If(10001 [! @Option)
@Number = 1
@Source = "INSTALL\\MERCURY\\WIN31"
@SetOption(10001)
@Goto INSERTDISK
@Endif // 10001
@If(10002 [! @Option)
@Number = 2
@Source = "INSTALL\\MERCURY\\WIN95"
@SetOption(10002)
@Goto INSERTDISK
@Endif // 10002
@Goto ASKFORMORE
@Endif // 'W'
@If('B' [= @Group) // DOS
@Total = 1
@If(10001 [! @Option)
@Number = 1
@Source = "INSTALL\\MERCURY\\UTIL"
@SetOption(10001)
@Goto INSERTDISK
@Endif // 10001
@Goto ASKFORMORE
@Endif // 'B'
@If('A' [= @Group) // BigFocus
@Total = 2
@If(10001 [! @Option)
@Number = 1
@Source = "INSTALL\\BIGFOCUS\\MERMIP64\\DISK1"
@SetOption(10001)
@Goto INSERTDISK
@Endif // 10001
@If(10002 [! @Option)
@Number = 2
@Source = "INSTALL\\BIGFOCUS\\MERMIP64\\DISK2"
@SetOption(10002)
@Goto INSERTDISK
@Endif // 10002
@Goto ASKFORMORE
@Endif // 'A'
@If('N' [= @Group) // Windows NT
@Total = 1
@If(10001 [! @Option)
@Number = 1
@Source = "INSTALL\\NT"
@SetOption(10001)
@Goto INSERTDISK
@Endif // 10001
@Goto ASKFORMORE
@Endif // 'N'
@If('O' [= @Group) // OS/2
@Total = 1
@If(10001 [! @Option)
@Number = 1
@Source = "INSTALL\\MERCURY\\OS2"
@SetOption(10001)
@Goto INSERTDISK
@Endif // 10001
@Goto ASKFORMORE
@Endif // 'O'
@Endif // V7-MERCURY ////////////////////////////
// V7-MERCURY PRO ///////////////////////////////
@If(105 [= @Option)
@If('W' [= @Group) // Windows
@Total = 2
@If(10001 [! @Option)
@Number = 1
@Source = "INSTALL\\MERPRO\\WIN31"
@SetOption(10001)
@Goto INSERTDISK
@Endif // 10001
@If(10002 [! @Option)
@Number = 2
@Source = "INSTALL\\MERPRO\\WIN95"
@SetOption(10002)
@Goto INSERTDISK
@Endif // 10002
@Goto ASKFORMORE
@Endif // 'W'
@If('B' [= @Group) // DOS
@Total = 1
@If(10001 [! @Option)
@Number = 1
@Source = "INSTALL\\MERPRO\\UTIL"
@SetOption(10001)
@Goto INSERTDISK
@Endif // 10001
@Goto ASKFORMORE
@Endif // 'B'
@If('A' [= @Group) // BigFocus
@Total = 2
@If(10001 [! @Option)
@Number = 1
@Source = "INSTALL\\BIGFOCUS\\MERMIP64\\DISK1"
@SetOption(10001)
@Goto INSERTDISK
@Endif // 10001
@If(10002 [! @Option)
@Number = 2
@Source = "INSTALL\\BIGFOCUS\\MERMIP64\\DISK2"
@SetOption(10002)
@Goto INSERTDISK
@Endif // 10002
@Goto ASKFORMORE
@Endif // 'A'
@If('N' [= @Group) // Windows NT
@Total = 1
@If(10001 [! @Option)
@Number = 1
@Source = "INSTALL\\NT"
@SetOption(10001)
@Goto INSERTDISK
@Endif // 10001
@Goto ASKFORMORE
@Endif // 'N'
@If('O' [= @Group) // OS/2
@Total = 1
@If(10001 [! @Option)
@Number = 1
@Source = "INSTALL\\MERPRO\\OS2"
@SetOption(10001)
@Goto INSERTDISK
@Endif // 10001
@Goto ASKFORMORE
@Endif // 'O'
@Endif // V7-MERCURY PRO ////////////////////////
// V7-MERCURY Lite //////////////////////////////
@If(106 [= @Option)
@If('W' [= @Group) // Windows
@Total = 2
@If(10001 [! @Option)
@Number = 1
@Source = "INSTALL\\MERLITE\\WIN31"
@SetOption(10001)
@Goto INSERTDISK
@Endif // 10001
@If(10002 [! @Option)
@Number = 2
@Source = "INSTALL\\MERLITE\\WIN95"
@SetOption(10002)
@Goto INSERTDISK
@Endif // 10002
@Goto ASKFORMORE
@Endif // 'W'
@If('B' [= @Group) // DOS
@Total = 1
@If(10001 [! @Option)
@Number = 1
@Source = "INSTALL\\MERLITE\\UTIL"
@SetOption(10001)
@Goto INSERTDISK
@Endif // 10001
@Goto ASKFORMORE
@Endif // 'B'
@If('N' [= @Group) // Windows NT
@Total = 1
@If(10001 [! @Option)
@Number = 1
@Source = "INSTALL\\NT"
@SetOption(10001)
@Goto INSERTDISK
@Endif // 10001
@Goto ASKFORMORE
@Endif // 'N'
@If('O' [= @Group) // OS/2
@Total = 1
@If(10001 [! @Option)
@Number = 1
@Source = "INSTALL\\MERLITE\\OS2"
@SetOption(10001)
@Goto INSERTDISK
@Endif // 10001
@Goto ASKFORMORE
@Endif // 'O'
@Endif // V7-MERCURY Lite ///////////////////////
// V7-MIRAGE P-64 V /////////////////////////////
@If(114 [= @Option)
@If('B' [= @Group) // DOS, Utils, Windows
@Total = 4
@If(10001 [! @Option)
@Number = 1
@Source = "INSTALL\\MIRP64V\\UTIL1"
@SetOption(10001)
@Goto INSERTDISK
@Endif // 10001
@If(10002 [! @Option)
@Number = 2
@Source = "INSTALL\\MIRP64V\\UTIL2"
@SetOption(10002)
@Goto INSERTDISK
@Endif // 10002
@If(10003 [! @Option)
@Number = 3
@Source = "INSTALL\\MIRP64V\\WIN31"
@SetOption(10003)
@Goto INSERTDISK
@Endif // 10003
@If(10004 [! @Option)
@Number = 4
@Source = "INSTALL\\MIRP64V\\WIN95"
@SetOption(10004)
@Goto INSERTDISK
@Endif // 10004
@Goto ASKFORMORE
@Endif // 'B'
@If('A' [= @Group) // BigFocus
@Total = 2
@If(10001 [! @Option)
@Number = 1
@Source = "INSTALL\\BIGFOCUS\\MERMIP64\\DISK1"
@SetOption(10001)
@Goto INSERTDISK
@Endif // 10001
@If(10002 [! @Option)
@Number = 2
@Source = "INSTALL\\BIGFOCUS\\MERMIP64\\DISK2"
@SetOption(10002)
@Goto INSERTDISK
@Endif // 10002
@Goto ASKFORMORE
@Endif // 'A'
@If('N' [= @Group) // Windows NT
@Total = 1
@If(10001 [! @Option)
@Number = 1
@Source = "INSTALL\\NTMMFGL"
@SetOption(10001)
@Goto INSERTDISK
@Endif // 10001
@Goto ASKFORMORE
@Endif // 'N'
@If('O' [= @Group) // OS/2
@Total = 1
@If(10001 [! @Option)
@Number = 1
@Source = "INSTALL\\MIRP64V\\OS2"
@SetOption(10001)
@Goto INSERTDISK
@Endif // 10001
@Goto ASKFORMORE
@Endif // 'O'
@Endif // V7-MIRAGE P-64 V //////////////////////
// V7-MIRAGE VIDEO //////////////////////////////
@If(121 [= @Option)
@If('B' [= @Group) // DOS, Utils, Windows
@Total = 4
@If(10001 [! @Option)
@Number = 1
@Source = "INSTALL\\MIRV\\UTIL1"
@SetOption(10001)
@Goto INSERTDISK
@Endif // 10001
@If(10002 [! @Option)
@Number = 2
@Source = "INSTALL\\MIRV\\UTIL2"
@SetOption(10002)
@Goto INSERTDISK
@Endif // 10002
@If(10003 [! @Option)
@Number = 3
@Source = "INSTALL\\MIRV\\WIN31"
@SetOption(10003)
@Goto INSERTDISK
@Endif // 10003
@If(10004 [! @Option)
@Number = 4
@Source = "INSTALL\\MIRV\\WIN95"
@SetOption(10004)
@Goto INSERTDISK
@Endif // 10004
@Goto ASKFORMORE
@Endif // 'B'
@If('A' [= @Group) // BigFocus
@Total = 2
@If(10001 [! @Option)
@Number = 1
@Source = "INSTALL\\BIGFOCUS\\MERMIP64\\DISK1"
@SetOption(10001)
@Goto INSERTDISK
@Endif // 10001
@If(10002 [! @Option)
@Number = 2
@Source = "INSTALL\\BIGFOCUS\\MERMIP64\\DISK2"
@SetOption(10002)
@Goto INSERTDISK
@Endif // 10002
@Goto ASKFORMORE
@Endif // 'A'
@If('N' [= @Group) // Windows NT
@Total = 1
@If(10001 [! @Option)
@Number = 1
@Source = "INSTALL\\NTMMFGL"
@SetOption(10001)
@Goto INSERTDISK
@Endif // 10001
@Goto ASKFORMORE
@Endif // 'N'
@If('O' [= @Group) // OS/2
@Total = 1
@If(10001 [! @Option)
@Number = 1
@Source = "INSTALL\\MIRV\\OS2"
@SetOption(10001)
@Goto INSERTDISK
@Endif // 10001
@Goto ASKFORMORE
@Endif // 'O'
@Endif // V7-MIRAGE VIDEO ///////////////////////
// V7-MIRAGE P-64 ///////////////////////////////
@If(107 [= @Option)
@If('B' [= @Group) // DOS, Utils, Windows
@Total = 3
@If(10001 [! @Option)
@Number = 1
@Source = "INSTALL\\MIRP64\\UTIL"
@SetOption(10001)
@Goto INSERTDISK
@Endif // 10001
@If(10002 [! @Option)
@Number = 2
@Source = "INSTALL\\MIRP64\\WIN31"
@SetOption(10002)
@Goto INSERTDISK
@Endif // 10002
@If(10003 [! @Option)
@Number = 3
@Source = "INSTALL\\MIRP64\\WIN95"
@SetOption(10003)
@Goto INSERTDISK
@Endif // 10003
@Goto ASKFORMORE
@Endif // 'B'
@If('A' [= @Group) // BigFocus
@Total = 2
@If(10001 [! @Option)
@Number = 1
@Source = "INSTALL\\BIGFOCUS\\MERMIP64\\DISK1"
@SetOption(10001)
@Goto INSERTDISK
@Endif // 10001
@If(10002 [! @Option)
@Number = 2
@Source = "INSTALL\\BIGFOCUS\\MERMIP64\\DISK2"
@SetOption(10002)
@Goto INSERTDISK
@Endif // 10002
@Goto ASKFORMORE
@Endif // 'A'
@If('N' [= @Group) // Windows NT
@Total = 1
@If(10001 [! @Option)
@Number = 1
@Source = "INSTALL\\NT"
@SetOption(10001)
@Goto INSERTDISK
@Endif // 10001
@Goto ASKFORMORE
@Endif // 'N'
@If('O' [= @Group) // OS/2
@Total = 1
@If(10001 [! @Option)
@Number = 1
@Source = "INSTALL\\MIRP64\\OS2"
@SetOption(10001)
@Goto INSERTDISK
@Endif // 10001
@Goto ASKFORMORE
@Endif // 'O'
@Endif // V7-MIRAGE P-64 ////////////////////////
// V7-MIRAGE P-32 ///////////////////////////////
@If(108 [= @Option)
@If('W' [= @Group) // Windows
@Total = 2
@If(10001 [! @Option)
@Number = 1
@Source = "INSTALL\\MIRP32\\WIN31"
@SetOption(10001)
@Goto INSERTDISK
@Endif // 10001
@If(10002 [! @Option)
@Number = 2
@Source = "INSTALL\\MIRP32\\WIN95"
@SetOption(10002)
@Goto INSERTDISK
@Endif // 10002
@Goto ASKFORMORE
@Endif // 'W'
@If('B' [= @Group) // DOS
@Total = 1
@If(10001 [! @Option)
@Number = 1
@Source = "INSTALL\\MIRP32\\UTIL"
@SetOption(10001)
@Goto INSERTDISK
@Endif // 10001
@Goto ASKFORMORE
@Endif // 'B'
@If('N' [= @Group) // Windows NT
@Total = 1
@If(10001 [! @Option)
@Number = 1
@Source = "INSTALL\\NT"
@SetOption(10001)
@Goto INSERTDISK
@Endif // 10001
@Goto ASKFORMORE
@Endif // 'N'
@If('O' [= @Group) // OS/2
@Total = 1
@If(10001 [! @Option)
@Number = 1
@Source = "INSTALL\\MIRP32\\OS2"
@SetOption(10001)
@Goto INSERTDISK
@Endif // 10001
@Goto ASKFORMORE
@Endif // 'O'
@Endif // V7-MIRAGE P-32 ////////////////////////
// V7-MIRAGE ////////////////////////////////////
@If(109 [= @Option)
@If('W' [= @Group) // Windows
@Total = 2
@If(10001 [! @Option)
@Number = 1
@Source = "INSTALL\\MIRAGE\\WIN31"
@SetOption(10001)
@Goto INSERTDISK
@Endif // 10001
@If(10002 [! @Option)
@Number = 2
@Source = "INSTALL\\MIRAGE\\WIN95"
@SetOption(10002)
@Goto INSERTDISK
@Endif // 10002
@Goto ASKFORMORE
@Endif // 'W'
@If('B' [= @Group) // DOS
@Total = 1
@If(10001 [! @Option)
@Number = 1
@Source = "INSTALL\\MIRAGE\\UTIL"
@SetOption(10001)
@Goto INSERTDISK
@Endif // 10001
@Goto ASKFORMORE
@Endif // 'B'
@If('N' [= @Group) // Windows NT
@Total = 1
@If(10001 [! @Option)
@Number = 1
@Source = "INSTALL\\NT"
@SetOption(10001)
@Goto INSERTDISK
@Endif // 10001
@Goto ASKFORMORE
@Endif // 'N'
@If('O' [= @Group) // OS/2
@Total = 1
@If(10001 [! @Option)
@Number = 1
@Source = "INSTALL\\MIRAGE\\OS2"
@SetOption(10001)
@Goto INSERTDISK
@Endif // 10001
@Goto ASKFORMORE
@Endif // 'O'
@Endif // V7-MIRAGE P-32 ////////////////////////
// V7-VEGA PRO //////////////////////////////////
@If(110 [= @Option)
@If('W' [= @Group) // Windows
@Total = 2
@If(10001 [! @Option)
@Number = 1
@Source = "INSTALL\\VEGAPRO\\WIN31"
@SetOption(10001)
@Goto INSERTDISK
@Endif // 10001
@If(10002 [! @Option)
@Number = 2
@Source = "INSTALL\\VEGAPRO\\WIN95"
@SetOption(10002)
@Goto INSERTDISK
@Endif // 10002
@Goto ASKFORMORE
@Endif // 'W'
@If('B' [= @Group) // DOS
@Total = 1
@If(10001 [! @Option)
@Number = 1
@Source = "INSTALL\\VEGAPRO\\UTIL"
@SetOption(10001)
@Goto INSERTDISK
@Endif // 10001
@Goto ASKFORMORE
@Endif // 'B'
@If('O' [= @Group) // OS/2
@Total = 1
@If(10001 [! @Option)
@Number = 1
@Source = "INSTALL\\VEGAPRO\\OS2"
@SetOption(10001)
@Goto INSERTDISK
@Endif // 10001
@Goto ASKFORMORE
@Endif // 'O'
@Endif // V7-VEGA PRO ///////////////////////////
// V7-VEGA PLUS /////////////////////////////////
@If(111 [= @Option)
@If('W' [= @Group) // Windows
@Total = 2
@If(10001 [! @Option)
@Number = 1
@Source = "INSTALL\\VEGAPLUS\\WIN31"
@SetOption(10001)
@Goto INSERTDISK
@Endif // 10001
@If(10002 [! @Option)
@Number = 2
@Source = "INSTALL\\VEGAPLUS\\WIN95"
@SetOption(10002)
@Goto INSERTDISK
@Endif // 10002
@Goto ASKFORMORE
@Endif // 'W'
@If('B' [= @Group) // DOS
@Total = 1
@If(10001 [! @Option)
@Number = 1
@Source = "INSTALL\\VEGAPLUS\\UTIL"
@SetOption(10001)
@Goto INSERTDISK
@Endif // 10001
@Goto ASKFORMORE
@Endif // 'B'
@If('N' [= @Group) // Windows NT
@Total = 1
@If(10001 [! @Option)
@Number = 1
@Source = "INSTALL\\VNT"
@SetOption(10001)
@Goto INSERTDISK
@Endif // 10001
@Goto ASKFORMORE
@Endif // 'N'
@If('O' [= @Group) // OS/2
@Total = 1
@If(10001 [! @Option)
@Number = 1
@Source = "INSTALL\\VEGAPLUS\\OS2"
@SetOption(10001)
@Goto INSERTDISK
@Endif // 10001
@Goto ASKFORMORE
@Endif // 'O'
@Endif // V7-VEGA PLUS //////////////////////////
// V7-VEGA VIDEO ////////////////////////////////
@If(112 [= @Option)
@If('B' [= @Group) // DOS, Utils, Windows
@Total = 4
@If(10001 [! @Option)
@Number = 1
@Source = "INSTALL\\VEGAV\\UTIL1"
@SetOption(10001)
@Goto INSERTDISK
@Endif // 10001
@If(10002 [! @Option)
@Number = 2
@Source = "INSTALL\\VEGAV\\UTIL2"
@SetOption(10002)
@Goto INSERTDISK
@Endif // 10002
@If(10003 [! @Option)
@Number = 3
@Source = "INSTALL\\VEGAV\\WIN31"
@SetOption(10003)
@Goto INSERTDISK
@Endif // 10003
@If(10004 [! @Option)
@Number = 4
@Source = "INSTALL\\VEGAV\\WIN95"
@SetOption(10004)
@Goto INSERTDISK
@Endif // 10004
@Goto ASKFORMORE
@Endif // 'B'
@If('N' [= @Group) // Windows NT
@Total = 1
@If(10001 [! @Option)
@Number = 1
@Source = "INSTALL\\VNT"
@SetOption(10001)
@Goto INSERTDISK
@Endif // 10001
@Goto ASKFORMORE
@Endif // 'N'
@If('O' [= @Group) // OS/2
@Total = 1
@If(10001 [! @Option)
@Number = 1
@Source = "INSTALL\\VEGAV\\OS2"
@SetOption(10001)
@Goto INSERTDISK
@Endif // 10001
@Goto ASKFORMORE
@Endif // 'O'
@Endif // V7-VEGA VIDEO /////////////////////////
// MEDIA XTC ////////////////////////////////////
@If(120 [= @Option)
@If('W' [= @Group)
@Total = 3
@If(10001 [! @Option)
@Number = 1
@Source = "INSTALL\\MEDIAXTC\\WIN31\\DISK1"
@SetOption(10001)
@Goto INSERTDISK
@Endif // 10001
@If(10002 [! @Option)
@Number = 2
@Source = "INSTALL\\MEDIAXTC\\WIN31\\DISK2"
@SetOption(10002)
@Goto INSERTDISK
@Endif // 10002
@If(10003 [! @Option)
@Number = 3
@Source = "INSTALL\\MEDIAXTC\\WIN95\\DRV"
@SetOption(10003)
@Goto INSERTDISK
@Endif // 10003
@Goto ASKFORMORE
@Endif // 'W'
@If('A' [= @Group)
@Total = 2
@If(10001 [! @Option)
@Number = 1
@Source = "INSTALL\\MEDIAXTC\\WIN95\\APP\\DISK1"
@SetOption(10001)
@Goto INSERTDISK
@Endif // 10001
@If(10002 [! @Option)
@Number = 2
@Source = "INSTALL\\MEDIAXTC\\WIN95\\APP\\DISK2"
@SetOption(10002)
@Goto INSERTDISK
@Endif // 10002
@Goto ASKFORMORE
@Endif // 'A'
@Endif // MEDIA XTC /////////////////////////////
// V7-media fx //////////////////////////////////
@If(113 [= @Option)
@If('W' [= @Group)
@Total = 3
@If(10001 [! @Option)
@Number = 1
@If(1131 [= @Option)
@Source = "INSTALL\\MEDIAFX\\WIN31\\TYPE1\\DISK1"
@Elseif(1132 [= @Option)
@Source = "INSTALL\\MEDIAFX\\WIN31\\TYPE2\\DISK1"
@Endif // 113?
@SetOption(10001)
@Goto INSERTDISK
@Endif // 10001
@If(10002 [! @Option)
@Number = 2
@If(1131 [= @Option)
@Source = "INSTALL\\MEDIAFX\\WIN31\\TYPE1\\DISK2"
@Elseif(1132 [= @Option)
@Source = "INSTALL\\MEDIAFX\\WIN31\\TYPE2\\DISK2"
@Endif // 113?
@SetOption(10002)
@Goto INSERTDISK
@Endif // 10002
@If(10003 [! @Option)
@Number = 3
@Source = "INSTALL\\MEDIAFX\\WIN95\\DRV"
@SetOption(10003)
@Goto INSERTDISK
@Endif // 10003
@Goto ASKFORMORE
@Endif // 'W'
@If('A' [= @Group)
@Total = 2
@If(10001 [! @Option)
@Number = 1
@Source = "INSTALL\\MEDIAFX\\WIN95\\APP\\DISK1"
@SetOption(10001)
@Goto INSERTDISK
@Endif // 10001
@If(10002 [! @Option)
@Number = 2
@Source = "INSTALL\\MEDIAFX\\WIN95\\APP\\DISK2"
@SetOption(10002)
@Goto INSERTDISK
@Endif // 10002
@Goto ASKFORMORE
@Endif // 'A'
@If('N' [= @Group)
@Total = 1
@If(10001 [! @Option)
@Number = 1
@Source = "INSTALL\\MEDIAFX\\TYPE2\\NT"
@SetOption(10001)
@Goto INSERTDISK
@Endif // 10001
@Goto ASKFORMORE
@Endif // 'N'
@If('O' [= @Group)
@Total = 1
@If(10001 [! @Option)
@Number = 1
@Source = "INSTALL\\MEDIAFX\\TYPE2\\OS2"
@SetOption(10001)
@Goto INSERTDISK
@Endif // 10001
@Goto ASKFORMORE
@Endif // 'O'
@Endif // V7-media fx ///////////////////////////
// Crunch It ////////////////////////////////////
@If(115 [= @Option)
@Total = 2
@If(10001 [! @Option)
@Number = 1
@Source = "INSTALL\\CRUNCHIT\\DISK1"
@SetOption(10001)
@Goto INSERTDISK
@Endif // 10001
@If(10002 [! @Option)
@Number = 2
@Source = "INSTALL\\CRUNCHIT\\DISK2"
@SetOption(10002)
@Goto INSERTDISK
@Endif // 10002
@Goto ASKFORMORE
@Endif // Crunch It /////////////////////////////
// Play It //////////////////////////////////////
@If(116 [= @Option)
@Total = 3
@If(10001 [! @Option)
@Number = 1
@Source = "INSTALL\\PLAYIT\\DISK1"
@SetOption(10001)
@Goto INSERTDISK
@Endif // 10001
@If(10002 [! @Option)
@Number = 2
@Source = "INSTALL\\PLAYIT\\DISK2"
@SetOption(10002)
@Goto INSERTDISK
@Endif // 10002
@If(10003 [! @Option)
@Number = 3
@Source = "INSTALL\\PLAYIT\\DISK3"
@SetOption(10003)
@Goto INSERTDISK
@Endif // 10003
@Goto ASKFORMORE
@Endif // Play It ///////////////////////////////
// BigFocus 13/WIN //////////////////////////////
@If('E' [= @Group)
@Total = 1
@If(10001 [! @Option)
@Number = 1
@Source = "PRODUKTE\\SOFTWARE\\BF13WIN"
@SetOption(10001)
@Goto INSERTDISK
@Endif // 10001
@Goto ASKFORMORE
@Endif // BigFocus 13/WIN ///////////////////////
// 3D-Win ///////////////////////////////////////
@If('F' [= @Group)
@Total = 2
@If(10001 [! @Option)
@Number = 1
@Source = "PRODUKTE\\SOFTWARE\\WIN3D\\DISK1"
@SetOption(10001)
@Goto INSERTDISK
@Endif // 10001
@If(10002 [! @Option)
@Number = 2
@Source = "PRODUKTE\\SOFTWARE\\WIN3D\\DISK2"
@SetOption(10002)
@Goto INSERTDISK
@Endif // 10002
@Goto ASKFORMORE
@Endif // 3D-Win ////////////////////////////////
// EXECUTION: /////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////
INSERTDISK:
@If(10000 [! @Option)
@Display @Cls
@If(@L==2)
Zur Erstellung von Installationsdisketten werden LEERE, FORMATIERTE
Disketten mit 1.44 MByte Speicherkapazität benötigt.
Bitte legen Sie diese Disketten bereit, bevor Sie fortfahren.
Anzahl benötigter Disketten: @Total
@Else
For the creation of installation floppy disks, BLANK and FORMATTED
floppy disks with 1.44 MByte disk space are required.
Please provide these floppy disks before you continue.
Number of disks required: @Total
@Endif // @L
@d8
@Pause
@EndDisplay
@SetOption(10000)
@Endif // 10000
@ScrHead(1, L, 0, 63, "$062@Name Installation $063@Version")
@Display
@If(@L==2)
Diskette Nr. @Number
Bitte legen Sie eine leere, formatierte, NICHT SCHREIBGESCHÜTZTE
Diskette mit 1.44 MB Speicherkapazität in Ihr Diskettenlaufwerk ein.
@Else
Disk no. @Number
Please insert a blank and formatted NON WRITE-PROTECTED floppy disk
with 1.44 MB disk space into your floppy disk drive.
@Endif // @L
@Pause
@EndDisplay
// suppress non removable, network and CD ROM drives
SELECTDRIVE:
@If(@DiskDriveOK==0)
@GetOutDrive @DiskDrive @LocalWindow(15, 39) @Suppress(0, 2) @Suppress(0, 4) @Suppress(0, 16)
@If(@L==2)
Welches Laufwerk ist Ihr 1.44 MB Diskettenlaufwerk?
Benutzen Sie die Tasten [] und [] zur Auswahl. Bestätigen Sie mit [─┘].
@Else
Which drive is your 1.44 MB disk drive?
Use the keys [] and [] to select. Press [─┘] to continue.
@Endif // @L
@EndOutDrive
@Endif // @DiskDriveOK
@If ( @Removable(@DiskDrive) )
OTHERDISK:
@If (@DiskFree(@DiskDrive) < 1457664) // 1
@If (@DiskFree(@DiskDrive) >= 0) // 2
@Display
@If(@L==2)
Diskette Nr. @Number
Die Diskette in Laufwerk @DiskDrive enthält Dateien und/oder Verzeichnisse,
als defekt markierte Bereiche oder hat ein anderes Diskettenformat.
Bitte legen Sie eine leere, intakte Diskette mit 1.44 MB Speicher-
kapazität ein.
@Else
Disk no. @Number
The disk in drive @DiskDrive contains files and/or directories, areas
marked as bad or has a different disk format.
Please insert a blank and intact disk with 1.44 MB disk space.
@Endif // @L
@Pause
@EndDisplay
@Elseif (@DiskFree(@DiskDrive) < 0) // 2
@Display
@If(@L==2)
Diskette Nr. @Number
In Laufwerk @DiskDrive ist keine Diskette eingelegt,
oder die Diskette in Laufwerk @DiskDrive ist nicht formatiert.
Bitte legen Sie eine formatierte, leere, intakte Diskette mit
1.44 MByte Speicherkapazität ein.
@Else
Disk no. @Number
No floppy disk inserted in drive @DiskDrive, or the floppy disk in
drive @DiskDrive is not formatted.
Please insert a formatted, blank and intact disk with 1.44 MByte
disk space.
@Endif // @L
@Pause
@EndDisplay
@Endif // @DiskFree, 2
@Goto OTHERDISK
@Else // @DiskFree, 1
@DiskDriveOK = 1
@Endif // @DiskFree, 1
@Else // @Removable
@Display
@If(@L==2)
Laufwerk @DiskDrive scheint kein Diskettenlaufwerk zu sein.
@Else
Drive @DiskDrive does not appear to be a floppy disk drive.
@Endif // @L
@Pause
@EndDisplay
@Goto SELECTDRIVE
@Endif // @Removable
///////////////// Diskette schreibgeschützt? /////////////////////////////////
@If(@CannotOpen(@DiskDrive))
@Display
@If(@L==2)
Die Diskette in Laufwerk @DiskDrive ist schreibgeschützt.
Bitte entfernen Sie den Schreibschutz.
@Else
The floppy disk in drive @DiskDrive is write-protected.
Please remove the write protection.
@Endif // @L
@Pause
@EndDisplay
@Goto OTHERDISK
@Endif // @CannotOpen
@Delete("@DiskDrive:\\ODD33FIL.TPL")
//////////////////////////////////////////////////////////////////////////////
// Erzeuge Zeilen aus DISK.ID ////////////////////////////////////////////////
@LabelLine1 = "@GetLine(1, "@InDrive:@SPEAdir\\@Source\\DISK.ID")"
@Line = "@GetLine(3, "@InDrive:@SPEAdir\\@Source\\DISK.ID")"
@If(@StrRFind("@Line", "Disk") >= 2) // 1
@LabelLine2 = "@StrHead("@Line", @StrFind("@Line", "Disk") - 2)"
@Else // @StrRFind, 1
@If(@StrRFind("@Line", "Disk") >= 0)
@LabelLine2 = ""
@Else
@LabelLine2 = "@Line"
@Endif
@Endif // @StrRFind, 1
@LabelLine3 = "@GetLine(2, "@InDrive:@SPEAdir\\@Source\\DISK.ID")"
@If(@StrRFind("@Line", "Disk") >= 2) // 2
@LabelLine4 = "@StrTail("@Line", @StrLen("@Line") - @StrFind("@Line", "Disk"))"
@Else // @StrRFind, 2
@If(@StrRFind("@Line", "Disk") >= 0)
@LabelLine4 = "@Line"
@Else
@LabelLine4 = ""
@Endif
@Endif // @StrRFind, 2
@LabelLine5 = "@GetLine(4, "@InDrive:@SPEAdir\\@Source\\DISK.ID")"
@LabelLine6 = "@GetLine(5, "@InDrive:@SPEAdir\\@Source\\DISK.ID")"
@ScrHead(10, L, 0, 63,
"$062@Name Installation $063@Version", "",
"$058@Copying", "",
" @LabelLine1",
" @LabelLine2",
" @LabelLine3",
" @LabelLine4", "",
"@Wait")
@Copy("@InDrive:@SPEAdir\\@Source\\*.*", "@DiskDrive:\\*.*")
//@If(@Exists("L.DAT"))
@If("@GetENV("SPEAFLOPPY1")" != "" && "@GetENV("SPEAFLOPPY2")" != "")
@ScrHead(1, L, 0, 63, "$062@Name Installation $063@Version")
@Display @Cls
@If(@L==2)
Dateien erfolgreich auf Diskette @Number übertragen.
Bitte versehen Sie diese Diskette mit der Aufschrift:
@Else // @L
Successfully transferred files on disk @Number.
Please supply the following inscription to this disk:
@Endif // @L
@LabelLine1
@LabelLine2
@LabelLine3
@LabelLine4
@LabelLine5
@LabelLine6
@Pause
@EndDisplay
@Chain("Disk 1", "@GetENV("SPEAFLOPPY1")")
@Else // @Exists L.DAT, @GetENV
@P = 0
ASKPRINT:
@If(@L==2)
@ScrHead(15, L, 0, 63,
"$062@Name Installation $063@Version", "",
"$058Dateien erfolgreich auf Diskette @Number übertragen.",
"Bitte versehen Sie diese Diskette mit der Aufschrift:", "",
" $059@LabelLine1",
" @LabelLine2",
" @LabelLine3",
" @LabelLine4",
" @LabelLine5",
" @LabelLine6", "",
"$058Wenn ein Drucker an LPT1 angeschlossen ist, können Sie diese",
"Aufschrift jetzt ausdrucken. Anzahl gedruckter Etiketten: @P"
"Wollen Sie die Aufschrift ausdrucken ($059D$058rucken/$059W$058eiter)?")
@G = @Getch
@If(@G==68 || @G==100) // 'D', 'd'
@Goto DOPRINT
@ElseIf(@G==87 || @G==119 || @G==13) // 'W', 'w', RETURN
@Goto COPYINGDONE
@Else // @G
@Goto ASKPRINT
@Endif // @G
@Else // @L
@ScrHead(15, L, 0, 63,
"$062@Name Installation $063@Version", "",
"$058Successfully transferred files onto disk @Number.",
"Please supply the following inscription to this disk:", "",
" $059@LabelLine1",
" @LabelLine2",
" @LabelLine3",
" @LabelLine4",
" @LabelLine5",
" @LabelLine6", "",
"$058If you have a printer connected with LPT1 you can now print",
"out this inscription. Number of labels printed: @P"
"Do you want to print a label ($059P$058rint/$059C$058ontinue)?")
@G = @Getch
@If(@G==80 || @G==112) // 'P', 'p'
@Goto DOPRINT
@ElseIf(@G==67 || @G==99 || @G==13) // 'C', 'c', ENTER
@Goto COPYINGDONE
@Else // @G
@Goto ASKPRINT
@Endif // @G
@Endif // @L
DOPRINT:
// Längliche Zeilen umbrechen! ///////////////////////////////////////////////
// max. = 26
/*
BREAKLINE1:
@BreakCount = 0
@If(@StrLen("@LabelLine1") > 26)
@SpaceFound = @StrRFind("@LabelLine1", " ")
@Head = "@StrHead("@LabelLine1", @SpaceFound - 1)"
@Tail = "@StrTail("@LabelLine1", @SpaceFound + 1)"
@LabelLine1 = "@Head\n@Tail"
@BreakCount = (@BreakCount + 1)
@If(@BreakCount < 5) @Goto BREAKLINE1 @Endif
@Endif // @StrLen
BREAKLINE2:
@BreakCount = 0
@If(@StrLen("@LabelLine2") > 26)
@SpaceFound = @StrRFind("@LabelLine2", " ")
@Head = "@StrHead("@LabelLine2", @SpaceFound - 1)"
@Tail = "@StrTail("@LabelLine2", @SpaceFound + 1)"
@LabelLine2 = "@Head\n@Tail"
@BreakCount = (@BreakCount + 1)
@If(@BreakCount < 5) @Goto BREAKLINE2 @Endif
@Endif // @StrLen
BREAKLINE3:
@BreakCount = 0
@If(@StrLen("@LabelLine3") > 26)
@SpaceFound = @StrRFind("@LabelLine3", " ")
@Head = "@StrHead("@LabelLine3", @SpaceFound - 1)"
@Tail = "@StrTail("@LabelLine3", @SpaceFound + 1)"
@LabelLine3 = "@Head\n@Tail"
@BreakCount = (@BreakCount + 1)
@If(@BreakCount < 5) @Goto BREAKLINE3 @Endif
@Endif // @StrLen
BREAKLINE4:
@BreakCount = 0
@If(@StrLen("@LabelLine4") > 26)
@SpaceFound = @StrRFind("@LabelLine4", " ")
@Head = "@StrHead("@LabelLine4", @SpaceFound - 1)"
@Tail = "@StrTail("@LabelLine4", @SpaceFound + 1)"
@LabelLine4 = "@Head\n@Tail"
@BreakCount = (@BreakCount + 1)
@If(@BreakCount < 5) @Goto BREAKLINE4 @Endif
@Endif // @StrLen
BREAKLINE5:
@BreakCount = 0
@If(@StrLen("@LabelLine5") > 26)
@SpaceFound = @StrRFind("@LabelLine5", " ")
@Head = "@StrHead("@LabelLine5", @SpaceFound - 1)"
@Tail = "@StrTail("@LabelLine5", @SpaceFound + 1)"
@LabelLine5 = "@Head\n@Tail"
@BreakCount = (@BreakCount + 1)
@If(@BreakCount < 5) @Goto BREAKLINE5 @Endif
@Endif // @StrLen
BREAKLINE6:
@BreakCount = 0
@If(@StrLen("@LabelLine6") > 26)
@SpaceFound = @StrRFind("@LabelLine6", " ")
@Head = "@StrHead("@LabelLine6", @SpaceFound - 1)"
@Tail = "@StrTail("@LabelLine6", @SpaceFound + 1)"
@LabelLine6 = "@Head\n@Tail"
@BreakCount = (@BreakCount + 1)
@If(@BreakCount < 5) @Goto BREAKLINE6 @Endif
@Endif // @StrLen
/**/
//////////////////////////////////////////////////////////////////////////////
@If(@StrLen("@LabelLine1") > 0) @System("echo @LabelLine1 >lpt1") @Else @System("echo. >lpt1") @Endif
@If(@StrLen("@LabelLine2") > 0) @System("echo @LabelLine2 >lpt1") @Else @System("echo. >lpt1") @Endif
@If(@StrLen("@LabelLine3") > 0) @System("echo @LabelLine3 >lpt1") @Else @System("echo. >lpt1") @Endif
@If(@StrLen("@LabelLine4") > 0) @System("echo @LabelLine4 >lpt1") @Else @System("echo. >lpt1") @Endif
@If(@StrLen("@LabelLine5") > 0) @System("echo @LabelLine5 >lpt1") @Else @System("echo. >lpt1") @Endif
@If(@StrLen("@LabelLine6") > 0) @System("echo @LabelLine6 >lpt1") @Else @System("echo. >lpt1") @Endif
@P = (@P + 1)
@Goto ASKPRINT
@Endif // @Exists L.DAT, @GetENV
COPYINGDONE:
@Goto FLOPPYSTART
ASKFORMORE:
@ScrHead(1, L, 0, 63, "$062@Name Installation $063@Version")
@SetOption(0)
@GetOption @Checkbox @LocalWindow(15, 39)
@If(@L==2)
Wollen Sie weitere Disketten erzeugen?
@t111
@Else // @L
Do you want to create more disks?
@t111
@Endif // @L
@Option 0 = ""
@EndOption
@If(0 [= @Option)
@ClearOption(10000)
@ClearOption(10001)
@ClearOption(10002)
@ClearOption(10003)
@ClearOption(10004)
@ClearOption(10005)
@ClearOption(10006)
@ClearOption(10007)
@ClearOption(10008)
@ClearOption(10009)
@FlushGroups()
@SetGroup(V)
@Chain("Disk 1", "INSTALL2.DAT")
@Endif // 0