Programming with VisualAge for Java/IBMVJAVA.ISO/vajos2/install.dat

Text File | 1997-07-07 | 434KB | 12,260 lines

//////////////////////////////////////////////////////////////
//
// IBM(R) VisualAge(TM) for Java, Version 1
//  - Licensed Material - Program-Property of IBM
// (C) Copyright IBM Corp. 1997 - All Rights Reserved.
//
//
//
//File: InitPro1 /////////////////////////////////////////////
//
//CIDVars: N/A
//
//Globals changed: All
//
//This file must be the first file in install.dat


@DefineProject
  @Name = "VisualAge for Java"
  @Version = "1.0"
  @OutDrive = C
  @Subdir = "\\IBMVJava"

  @Immediate = 1
  @ShowName(,,,,,,)    //Temporarily disable the background name

  @Requires @HardDisk
  @AssumeHardDisk = 1

@EndProject

//----------------------------------------------------

@DefineProto
   @Void @InitProdStrings(@Void)
@EndProto

//---------------------------------------------------

@DefineVars
   @QString @qProductName = "@Name"
   @QString @qProductPlatform = "for Windows"
   @QString @qProductVersion = "@Version"
@EndVars

   // Make platform-specific settings
   @If (@Platform==2)
      @qProductPlatform = "for OS/2"
   @Endif
   @qProductName = "@qProductName @qProductPlatform"

  // Reset the variables to match the values in disk.id
  @Name = "VisualAge Install"
  @Version = "0.0"

//---------------------------------------------------

@DefineFunc @Void @InitProdStrings(@Void)

      @qInstallType1 = ""
      @qInstallType2 = ""
      @qInstallType3 = ""
      @qInstallType4 = ""
      @qInstallType5 = ""
      @qInstallType6 = ""

      @qInstallTypeHelp1 = ""
      @qInstallTypeHelp2 = ""
      @qInstallTypeHelp3 = ""
      @qInstallTypeHelp4 = ""
      @qInstallTypeHelp5 = ""
      @qInstallTypeHelp6 = ""

      @qFeature01 = ""
      @qFeature02 = ""
      @qFeature03 = ""
      @qFeature04 = ""
      @qFeature05 = ""
      @qFeature06 = ""
      @qFeature07 = ""
      @qFeature08 = ""
      @qFeature09 = ""
      @qFeature10 = ""
      @qFeature11 = ""
      @qFeature12 = ""
      @qFeature13 = ""
      @qFeature14 = ""
      @qFeature15 = ""
      @qFeature16 = ""

      @qFeature01Help = ""
      @qFeature02Help = ""
      @qFeature03Help = ""
      @qFeature04Help = ""
      @qFeature05Help = ""
      @qFeature06Help = ""
      @qFeature07Help = ""
      @qFeature08Help = ""
      @qFeature09Help = ""
      @qFeature10Help = ""
      @qFeature11Help = ""
      @qFeature12Help = ""
      @qFeature13Help = ""
      @qFeature14Help = ""
      @qFeature15Help = ""
      @qFeature16Help = ""

      // Path Names
      @qProduct1 = ""
      @qProduct2 = ""
      @qProduct3 = ""
      @qProduct4 = ""
      @qProduct5 = ""
      @qProduct6 = ""
      @qProduct7 = ""
      @qProduct8 = ""
      @qProduct9 = ""
      @qProduct10 = ""

   @If (@iProductClass == @iEnterPrise)
      @qInstallType1 = "Typical"
      @qInstallType2 = "Compact"
      @qInstallType3 = "Custom"
      //   @qInstallType5 = "Team ENVY Server"

      @qInstallTypeHelp1 = "The program will be installed with the most common options."
      @qInstallTypeHelp2 = "The program will be installed with the minimum required options."
      @qInstallTypeHelp3 = "You may choose the options to install."
      //      @qInstallTypeHelp5 = "Install Team ENVY Server component only."

      @qFeature01 = "Enterprise Access Builders"
      @qFeature02 = "Java Development Kit Help"
      //   @qFeature06 = "Team ENVY Server"
      //   @qFeature16 = "REQUIRED BASE, including IDE (hidden)"

      @qFeature01Help = ""
      @qFeature02Help = ""
      @qFeature16Help = "Required Components (will not be deselectable)"

      // Path Names
      @qProduct1 = "Install Path"
   //   @qProduct8 = "Team ENVY Server"

   @ElseIf (@iProductClass == @iProfessional)
      @qInstallType1 = "Typical"
      @qInstallType2 = "Compact"
      @qInstallType3 = "Custom"

      @qInstallTypeHelp1 = "The program will be installed with the most common options."
      @qInstallTypeHelp2 = "The program will be installed with the minimum required options."
      @qInstallTypeHelp3 = "You may choose the options to install."

      @qFeature01 = "Java Development Kit Help"
      //   @qFeature06 = "Team ENVY Server"
      //   @qFeature16 = "REQUIRED BASE, including IDE (hidden)"

      @qFeature01Help = ""
      //    @qFeature16Help = "Required Components (will not be deselectable)"

      // Path Names
      @qProduct1 = "Install Path"
      //   @qProduct8 = "Team ENVY Server"

   @ElseIf  (@iProductClass == @iEntry)
      @qInstallType1 = "Typical"

      @qInstallTypeHelp1 = "The program will be installed with the most common options."

      //   @qFeature16 = "REQUIRED BASE, including IDE (hidden)"

      @qFeature16Help = "Required Components (will not be deselectable)"

      // Path Names
      @qProduct1 = "Install Path"
   @EndIf


   //copyright info
//   @qCopyrightText1 = "VisualAge for JAVA(TM) Version 1.0"
//   @qCopyrightText2 = "(c) Copyright IBM Corp. 1991, 1997"
//   @qCopyrightText3 = "Licensed Material - Property of IBM - //All Rights Reserved."
//   @qCopyrightText4 = "(R) IBM is a registered trademark of //International Business Machines Corporation."
//   @qCopyrightText5 = "* Windows is a registered trademark //of Microsoft Corporation."
//   @qCopyrightText6 = "(TM) VisualAge is a trademark of //International Business Machines Corporation."
//   @qCopyrightText7 = "**Java and all Java-based trademarks //and logos are trademarks or registered trademarks of Sun //Microsystems, Inc. in the U.S. and other countries."
//   @qCopyrightText8 = "Includes materials (c) Copyright Sun //Microsystems, Inc. 1994, 1997 - All rights reserved."

   @qCopyrightText1 = ""
   @qCopyrightText2 = ""
   @qCopyrightText3 = ""
   @qCopyrightText4 = ""
   @qCopyrightText5 = ""
   @qCopyrightText6 = ""
   @qCopyrightText7 = ""
   @qCopyrightText8 = ""

   //alternate(welcome) copyright info
//   @qWelcomeCopyright1 = "IBM(R) @qProductName(TM) Programming Environment"
//   @qWelcomeCopyright2 = "IBM @qProductName, (c) Copyright IBM Corp. 1991-1996 - All Rights Reserved"
   @qWelcomeCopyright1 = ""
   @qWelcomeCopyright2 = ""

   // Overwrite the entries in varstrng.dat
   @qGetInstDirHeader = "Please enter the full path of the install directory for the product."
   @qAskRebootTitle = "Install Complete"
   @qRebuildIfNewerRBText = "Reinstall the product"
   @qRebuildDialogHelp2 = "Replace missing files with the original installation files."
   @qRebuildRBText = "Reinstall the product"
   @qInstallActionHelp4 = "Replace missing files with the original installation files, or recreate the product desktop folder and environment."
   @qUninstallRBText = "Uninstall the product"
   @qRebuildDialogTitle = "@qProductName - Reinstall"
   @qRebuildAllRBText = ""

   //Install.txt question
   @qAskReadInstallTxtTitle = "Have you read install.txt?"
   @qAskReadInstallTxtQu = "Have you read the install.txt information, and is your TCP/IP configured and operational as per its information?"

   @Return()
@EndFunc
/////////////////////////////////////////////////////////////
// IBM(R) VisualAge(TM) for Java, Version 1
//  - Licensed Material - Program-Property of IBM
// (C) Copyright IBM Corp. 1997 - All Rights Reserved.
/////////////////////////////////////////////////////////////
//
//
//
//File: InitPro2 /////////////////////////////////////
//
//CIDVars: N/A
//
//Globals changed: All
//

@DefineProto
   @Void @InitProd(@Void)
   @Void @InstallExitPre(@Void)
   @Void @InstallExitPost(@Void)
   @Void @UninstallExitPre(@Void)
   @Void @UninstallExitPost(@Void)
   @Void @CopyFilesExitPre(@Void)
   @Void @CopyFilesExitPost(@Void)
   @Void @AskShowReadmeART(@Void)
   @Void @WelcomeUpgradeMode(@In @Integer @SystemLevel,
                  @In @Integer @InstallLevel)
@EndProto

//----------------------------------------------------
@DefineFunc @Void @InitProd(@Void)  // POST INITIALIZATION

   //If uninstall.cmd is run, there won't be any red files in the directory,
   //so the ProductClass is meaningless
   @If (!@UninstallMode)
      @If (!@Exists(@GroupQRedFile))
         @iProductClass = @iEntry
      @ElseIf (!@Exists(@GroupERedFile))
         @iProductClass = @iProfessional
      @Else
         @iProductClass = @iEnterprise
      @EndIf
   @EndIf

   @iJavaInstall = @True

   //Set the strings
   @InitProdStrings()

   //Set the bitmaps
   @If (@Platform == @OS2)   //These bitmaps aren't in the windows exe
      @qDialogBmp10 = "IVJ10"
      @iDialogBmpID10 = 212
      @qDialogBmp8 = "IVJ8"
      @iDialogBmpID8 = 232
   @EndIf

   @iHPFSonly = @True

   @InitProdStrings()

   //Set the prereqs
   @iPrereqOS = @OS2
   @iPrereqNTVer = @WinNTv40
   @iMinPrereqNTVer = @WinNTv35
   @iPrereqWin95Ver = @Win95
   @iPrereqOS2Ver = @OS2v4
   @iMinPrereqOS2Ver = @OS2v3
   @iPrereqCPU = 486
   @iMinPrereqCPU = 486
   @iPrereqRAM = 48
   @iMinPrereqRAM = 31
   @iPrereqResWidth = 800
   @iMinPrereqResWidth = 640
   @iPrereqResHeight = 600
   @iPrereqColours = 256
   @iMinPrereqColours = 16

   @If (@iProductClass != @iEnterprise)
      @iPrereqRAM = 31
      @iMinPrereqRAM = 31
   @EndIf

   //Library file Names
   @If(@Platform==@OS2)
         @DataRED = "tim.os2"
   @Else
         @DataRED = "tim.win"
   @Endif

// This is the name of the environment variable to set in SetEnv.Bat or
// SetEnv.Cmd
   @qMainProdVar = "IVJ10MAIN"


   // Turn off @IfNewer for the general case
   @IfNewerMode = @False

   // To hide the envvar choice dialog
   @iDisplayEnvvarChoice = @False

   // Don't show license display
   @iBypassLicense = @True
   @If (@iJavaInstall)
      @iBypassReadme = @True
   @EndIf

   // JAVA has only 1 install path.  IF this changes, remove this setting!
   @iSingleDriveEntry = @True

   @qProductINIPointerApp = "IVJ10"     //the name of the app in os2.ini
   @qProductINIPointerKey = "IVJ_INI" //the name of the key in os2.ini
   @qProductINIBase       = "IVJ10"   //the base name of ini file

   //Change the name of "install.sys"
   @lInstallSys = "ivj10.ins"

   //Error file
   @qErrFile = "ivjinst.err"

   //BITMAPFILES
   @qCopyFileBMPFile = ""
   @qSetDeskBMPFile = ""
   @qSetEnvBMPFile = ""
   @qSetODBCBMPFile = ""
   @qSetPVarBMPFile = ""

   @qBackGroundBMPFile = "vaBack1._b_"
   @qProdLogoBMPFile = "vaLogo._b_"
   @qBackgroundBMPFile2 = ""
   @qBBoardBMPFile8 = "Bbrd15._b_"
   @qBBoardBMPFile9 = "Bbrd15._b_"
   @qBBoardBMPFile10 = "Bbrd15._b_"
   @qBBoardBMPFile11 = "Bbrd15._b_"
   @qBBoardBMPFile12 = "Bbrd15._b_"
   @qBBoardBMPFile13 = "Bbrd15._b_"
   @qBBoardBMPFile14 = "Bbrd15._b_"
   @qBBoardBMPFile15 = "Bbrd15._b_"
   @qBBoardBMPFile16 = "Bbrd15._b_"

   @If (@iProductClass == @iEnterPrise)
      @qBackGroundBMPFile2 = "vaBack2._b_"
      @qWaitMsgBMPFile1 = "msgENV._b_"
      @qWaitMsgBMPFile2 = "vaMsgHtm._b_"
      @qWaitMsgBMPFile3 = "vaMsgIde._b_"
      @qWaitMsgBMPFile4 = "vaByeEnv._b_"
      @qWaitMsgBMPFile5 = "vaByeFil._b_"
      @qBBoardBMPFile1 = "Bbrd1ep._b_"
      @qBBoardBMPFile2 = "Bbrd8ep._b_"
      @qBBoardBMPFile3 = "Bbrd9ep._b_"
      @qBBoardBMPFile4 = "Bbrd10ep._b_"
      @qBBoardBMPFile5 = "Bbrd11ep._b_"
      @qBBoardBMPFile6 = "Bbrd13ep._b_"
      @qBBoardBMPFile7 = "Bbrd14ep._b_"
   @ElseIf (@iProductClass == @iProfessional)
      @qBackGroundBMPFile2 = "vaBack2._b_"
      @qWaitMsgBMPFile1 = "msgENV._b_"
      @qWaitMsgBMPFile2 = "vaMsgHtm._b_"
      @qWaitMsgBMPFile3 = ""
      @qWaitMsgBMPFile4 = "vaByeEnv._b_"
      @qWaitMsgBMPFile5 = "vaByeFil._b_"
      @qBBoardBMPFile1 = "Bbrd1p._b_"
      @qBBoardBMPFile2 = "Bbrd5p._b_"
      @qBBoardBMPFile3 = "Bbrd6p._b_"
      @qBBoardBMPFile4 = "Bbrd7p._b_"
      @qBBoardBMPFile5 = "Bbrd8p._b_"
      @qBBoardBMPFile6 = "Bbrd9p._b_"
      @qBBoardBMPFile7 = ""
   @ElseIf (@iProductClass == @iEntry)
      @qBackGroundBMPFile2 = "vaBack2._b_"
      @qWaitMsgBMPFile1 = "msgENV._b_"
      @qWaitMsgBMPFile2 = ""
      @qWaitMsgBMPFile3 = ""
      @qWaitMsgBMPFile4 = "vaByeEnv._b_"
      @qWaitMsgBMPFile5 = "vaByeFil._b_"
      @qBBoardBMPFile1 = "Bbrd2p._b_"
      @qBBoardBMPFile2 = "Bbrd8p._b_"
      @qBBoardBMPFile3 = "Bbrd9p._b_"
      @qBBoardBMPFile4 = ""
      @qBBoardBMPFile5 = ""
      @qBBoardBMPFile6 = ""
      @qBBoardBMPFile7 = ""
   @EndIf



   //Install Type information
   @iInstallType = 1

   // @iInstallTypeCustom needs to match the custom type
   @If (@iProductClass == @iEntry)
      @iInstallTypeCustom = 0
   @ElseIf (@iProductClass == @iProfessional)
      @iInstallTypeCustom = 3
   @Else
      @iInstallTypeCustom = 3
   @EndIf

   @qCustomFeatures = "@qInstallType1Features"

   @If (@iProductClass != @iEntry)
      // NETQ is an external install
      @iGroupQExternalInstall = @True
   //   @qGroupQExternalInstall = "@qTempPath\\NETQ"
      @qGroupQExternalInstall = "@qInstallPath1\\eab\\ntq\\install"
   @EndIf

  // InstallType Custom Features definitions
   @If (@iProductClass == @iEnterPrise)
      @qInstallType1Features = "01 02 16"
      @qInstallType2Features = "16"
      @qInstallType3Features = "01 02 16"
   @ElseIf (@iProductClass == @iProfessional)
      @qInstallType1Features = "01 16"
      @qInstallType2Features = "16"
      @qInstallType3Features = "01 16"
   @ElseIf (@iProductClass == @iEntry)
      @qInstallType1Features = "16"
      @qInstallType2Features = ""
      @qInstallType3Features = ""
   @EndIf

   @qInstallType4Features = ""
   @qInstallType5Features = ""
   @qInstallType6Features = ""

   // Custom Feature Group definitions
   @qFeature01GroupString = ""
   @qFeature02GroupString = ""
   @qFeature03GroupString = ""
   @qFeature04GroupString = ""
   @qFeature05GroupString = ""
   @qFeature06GroupString = ""
   @qFeature07GroupString = ""
   @qFeature08GroupString = ""
   @qFeature09GroupString = ""
   @qFeature10GroupString = ""
   @qFeature11GroupString = ""
   @qFeature12GroupString = ""
   @qFeature13GroupString = ""
   @qFeature14GroupString = ""
   @qFeature15GroupString = ""
   @qFeature16GroupString = ""

   @If (@iProductClass == @iEnterPrise)
      @qFeature01GroupString = "A B E X"
      @qFeature02GroupString = "G J Q"
      @qFeature16GroupString = "A C G I Q"
      //Z IS A TEMPORARY GROUP UNTIL R32 IS FIXED!!!!!
//      @qFeature01GroupString = "A B E X Z"
   @ElseIf (@iProductClass == @iProfessional)
      @qFeature01GroupString = "G J Q"
      @qFeature16GroupString = "A C G I Q"
   @ElseIf (@iProductClass == @iEntry)
      @qFeature16GroupString = "A I"
   @EndIf

   // Option to Groups definitions
   @qOption1Groups = ""
   @qOption2Groups = ""
   @qOption3Groups = ""
   @qOption4Groups = ""
   @qOption5Groups = ""
   @qOption6Groups = ""
   @qOption7Groups = ""
   @qOption8Groups = ""
   @qOption9Groups = ""
   @qOption10Groups = ""

   @If (@iProductClass == @iEnterprise)
      @qOption1Groups = "A B C E G I J X"
      @qOption2Groups = ""
      // R32
      //@qOption1Groups = "A B C E G I J Z"
      //@qOption2Groups = "X"
   @ElseIf (@iProductClass == @iProfessional)
      @qOption1Groups = "A C G I J"
   @ElseIf (@iProductClass == @iEntry)
      @qOption1Groups = "A I"
   @EndIf


   @If (@iProductClass == @iEnterPrise)
   // Fill in this information until @LibInfo works better
   //last done 970604 at 1912
      @iGroupSizeA = @Eval(1435278 + 965154)  //include the uninstall
      @iGroupSizeB = 6433469
      @iGroupSizeC = @Eval(5089070 + 30000000) //add 10MB for NETQ,20 for ide
      @iGroupSizeE = 5747266
      @iGroupSizeI = 57209483
      @iGroupSizeJ = 13634371
//Q group is NetQ's install
//      @iGroupSizeQ = 6625612
      @iGroupSizeX = 6978210
      @iTotalSize = 127492301

      @iGroupFilesA = 15
      @iGroupFilesB = 23
      @iGroupFilesC = @Eval(389 + 25)    //add for NETQ
      @iGroupFilesE = 83
      @iGroupFilesI = 759
      @iGroupFilesJ = 1931
//      @iGroupFilesQ = 15
      @iGroupFilesX = 18
      @iTotalFiles = 3233

   @ElseIf (@iProductClass == @iProfessional)
   // Fill in this information until @LibInfo works better
   //last done 970604 at 1912
      @iGroupSizeA = @Eval(1435278 + 965158)  //include the uninstall
      @iGroupSizeB = 0
      @iGroupSizeC = @Eval(1510710 + 30000000) //add 10MB for NETQ
      @iGroupSizeE = 0
      @iGroupSizeI = 56979163
      @iGroupSizeJ = 11118956
//Q group is NetQ's install
//      @iGroupSizeQ = 6625612
      @iGroupSizeX = 0
      @iTotalSize = 102009265

      @iGroupFilesA = 15
      @iGroupFilesB = 23
      @iGroupFilesC = 389
      @iGroupFilesE = 83
      @iGroupFilesI = 759
      @iGroupFilesJ = 1931
//      @iGroupFilesQ = 15
      @iGroupFilesX = 18
      @iTotalFiles = 3233

   @ElseIf (@iProductClass == @iEntry)
      @iGroupSizeA = @Eval(1435278 + 808)  //include the uninstall
      @iGroupSizeI = 52087880
      @iTotalSize = 53523966

      @iGroupFilesA = 15
      @iGroupFilesI = 759
      @iTotalFiles = 3233
   @EndIf

   @Return()
@EndFunc

//------------------------------------------------------

@DefineFunc @Void @InstallExitPre(@Void)

   @If (@iProductInstalled && !@UninstallMode)
      @If (@Platform == @Windows)

      @Else
         @qTMP5 = @GetOS2ProductINIString(@qInstallKey,"Product Type")
         @If (!@StrCmp(@qTMP5,"Entry"))
            @iTMP5 = @iEntry
         @ElseIf (!@StrCmp(@qTMP5,"Professional"))
            @iTMP5 = @iProfessional
         @ElseIf (!@StrCmp(@qTMP5,"Enterprise"))
            @iTMP5 = @iEnterprise
         @Else
            @MsgBox("Install has detected an installation of VisualAge for Java, but was unable to determine the product type (Entry, Professional, or Enterprise)")
            @ErrorExit("Exiting.@qcrlf",@iAbort)
         @EndIf
      @EndIf

      @If (@iTMP5 > @iProductClass)
         @If (@iProductClass == @iEntry)
            @qTMP6 = "Entry"
         @ElseIf (@iProductClass == @iProfessional)
            @qTMP6 = "Professional"
         @Else
            @qTMP6 = "Enterprise"
         @EndIf
         @MsgBox("Install has detected that VisualAge for Java @qTMP5 Edition has been installed on your system.  You are attempting to install VisualAge for Java @qTMP6 Edition.  You must uninstall the current installation before you can proceed.")
         //@ErrorExit("Exiting.@qcrlf",@iAbort)
         @Abort()
      @ElseIf (@iTMP5 < @iProductClass)
         @WelcomeUpgradeMode(@iTMP5, @iProductClass)
         @DetermineInstallSysFilename()
         @SetInstallPathsFromFile(@qInstallSysFilename)
      @EndIf
   @EndIf

   @Return()
@EndFunc

//------------------------------------------------------

@DefineFunc @Void @UnInstallExitPre(@Void)

   @If (@Exists("@qInstallPath1\\eab\\ntq\\install\\ivj10tnq.cmd"))
      @Copy("@qInstallPath1\\eab\\ntq\\install\\ivj10tnq.cmd","@qTempPath\\ivj10tnq.cmd")
   @EndIf

   @Return()
@EndFunc

// Assumptions:
// 1) Netq is group Q
// 2) The Netq install was installed to @qGroupQExternalInstall
// 3) Netqics.rsp is a template response file for netq's install that was
//    copied with the netq group

//------------------------------------------

@DefineFunc @Void @InstallExitPost(@Void)

   //Write out productclass
   @If (@iProductClass == @iEntry)
      @SetRegProdValue("Product Type","Entry")
   @ElseIf (@iProductClass == @iProfessional)
      @SetRegProdValue("Product Type","Professional")
   @Else
      @SetRegProdValue("Product Type","Enterprise")
   @EndIf

   //   " ..." always causes script error
   //   @If (@RebuildIfnewerMode)
   //
   //   @EndIf
   //   @If (@iProductClass == @iEntry)
   //      @Return()
   //   @EndIf

   @If (@AddMode)
      @qOldGroupsSet = @CustomFeaturestoGroups(@qOldFeatures)
   @EndIf

   @If (@RebuildDesktopMode||@RebuildIfNewerMode)
//      @Goto laSetHelpEnvVars
   @Elseif (@StrFind(@qGroupsSet,"Q") >= 0)   //NetQ/help to be installed
        @LoadBMPProdLogo(@qProdlogoBMPFile)
        @LoadBMPMsg(@qWaitMsgBMPFile2)


//      @MsgBox("About to install HTML Search Engine.  This may take a few minutes.")
      //NetQ not previously installed
      @If (!(@AddMode && (@StrFind(@qOldGroupsSet,"Q") >= 0)))
         @If (@Exists("@qGroupQExternalInstall\\netqics.rsp"))  //sanity check
            //create NetQ response file
            @iTMP1 = @ReadLine("@qGroupQExternalInstall\\netqics.rsp",@qTMP1,2048,0)  //read first line of NetQ/ICS response file
            //          @Display "Read in: @qTMP1" @Pause @EndDisplay
            @Write("@qGroupQExternalInstall\\netqrsp.tmp","wt","@qTMP1\n")  //write first line out to temp file

laConfigureRsp:
            //read next line in NetQ/ICS response file
            @iTMP1 = @ReadLine("@qGroupQExternalInstall\\netqics.rsp",@qTMP1,2048)
            //          @Display "Read in: @qTMP1" @Pause @EndDisplay
            @if (@iTMP1 == -1)  //end of file
               @Goto laFinishConfigRsp
            @Else
               @if (@StrFind("@qTMP1","Path1") >= 0)
                  @qTMP1 = @StrHead(@qInstallPath1,1)
                  //Pick a directory for netq
                  @If (@Exists("@qTMP1:\\NETQOS2)"))
                      //@display @qtmp1 :\netq exists @pause @enddisplay
                     //Check if it's a directory - if so install there, if not, delete the file
                     //Directory is the 2^4 bit
                     @If (!(@FileAttr("@qTMP1:\\NETQOS2") & 0x10))
                        @Delete("@qTMP1:\\NETQOS2")
                     @EndIf
                  @EndIf
                  @Write(,,"Path1=@qTMP1:\\NETQOS2\n")
                  @qNetQTMP="@qTMP1:\\NETQOS2"
               @Else
                  @Write(,,"@qTMP1\n")  //write out what was read in
               @Endif
            @Endif

            @Goto laConfigureRsp
            //Netq response file configured

laFinishConfigRsp:
            @Delete("@qGroupQExternalInstall\\netqics.rsp")
            @Rename("@qGroupQExternalInstall\\netqrsp.tmp","netqics.rsp")


            //             ...

            //install NetQ, which is in @qGroupQExternalInstall
            //          @Display "Installing NetQ" @Pause @EndDisplay
            //drive where Temp is
            @qTMP1 = @StrHead(@qGroupQExternalInstall,1)
            //get rest of path (without drive letter)
            @qTMP2 = @StrDel(@qGroupQExternalInstall,0,2)

            @Delete("@qTempPath\\netq.err")
            @if (@RebuildMode)
               @iRetVal = @OS2Exec("@qGroupQExternalInstall\\install.exe","-f @qGroupQExternalInstall\\install.dat @@@!@qGroupQExternalInstall\\netqics.rsp -REBUILD", "@qGroupQExternalInstall",1,3,"","",0,0,0,0,-1,0)

            @Elseif (@UpdateMode)
               @iRetVal = @OS2Exec("@qGroupQExternalInstall\\install.exe","-f @qGroupQExternalInstall\\install.dat @@@!@qGroupQExternalInstall\\netqics.rsp -UPDATE", "@qGroupQExternalInstall",1,3,"","",0,0,0,0,-1,0)

            @Else
               @iRetVal = @OS2Exec("@qGroupQExternalInstall\\install.exe","-f @qGroupQExternalInstall\\install.dat @@@!@qGroupQExternalInstall\\netqics.rsp", "@qGroupQExternalInstall",1,3,"","",0,0,0,0,-1,0)

            @Endif
            @If (@Exists("@qTempPath\\netq.err"))
               @MsgBox("An error occured while installing the NetQuestion Search Server.  When the install is complete, please consult the release notes for more details.")
            @EndIf

         @EndIf   //exists template file
      @EndIf      //not addmode and already installed

      @qNetQTMP = @GetExtInstallDirectory("NetQuestion","1.1","NETQ","NETQ11")
      @qTMP5=@GetEnv("COMSPEC")
      @If (!@IsNull(@qNetQTMP))
         //@Delete("@qInstallPath1\\eab\\ntq\\install\\netq_err.log")
         //@OS2Exec("@qTMP5", "/c @qGroupQExternalInstall\\ivj10inq.cmd @qNetQTMP @qInstallPath1", "@qGroupQExternalInstall",0,0,"","",0,0,0,0,-1,0)
         //@If (@Exists("@qInstallPath1\\eab\\ntq\\install\\netq_err.log"))
         //   @MsgBox("An error occured while configuring the NetQuestion Search Server.  When the install is complete, please consult the release notes for more details.")
         //@Endif
      @EndIf

   @Endif

laSetHelpEnvVars:
   @if (@StrFind(@qGroupsSet,"Q") >= 0)   //NetQ/help installed
      @CreateNextProdVarsItem("VAJHELP","file:///@qInstallPath1\\ide\\doc",@lString,"HLP",@qMethod)
      @CreateNextProdVarsItem("HTML_DOC_ROOT","@qInstallPath1\\eab\\doc",@lString,"HLP","")
      @CreateNextProdVarsItem("NETQ_DAEMON","1",@lString,"HLP",@qMethod)
      @CreateNextProdVarsItem("ICS_DAEMON","1",@lString,"HLP",@qMethod)
   @Else   //Netq help not installed
      @CreateNextProdVarsItem("VAJHELP","0",@lString,"HLP",@qMethod)
      @CreateNextProdVarsItem("NETQ_DAEMON","0",@lString,"HLP",@qMethod)
      @CreateNextProdVarsItem("ICS_DAEMON","0",@lString,"HLP",@qMethod)
   @Endif
   @CreateNextProdVarsItem("HELP","@qInstallPath1\\eab\\help",@lString,"HLP",@qMethod)
   @CreateNextProdVarsItem("HTML_HOSTNAME","localhost:49213",@lString,"HLP",@qMethod)
   @CreateNextProdVarsItem("ZIPPED_WEB","0",@lString,"HLP",@qMethod)



laLaunchIDE:
   //Only launch IDE if EAB has been installed, but not if previously installed
   @If ((@StrFind(@qGroupsSet,"E") >= 0) &&
        (!(@AddMode && (@StrFind(@qOldGroupsSet,"E") >= 0))))
//      @MsgBox("Launching Integrated Development Environment for initialization.  This may take a few minutes.")
   //      @SetEnv("BEGINLIBPATH","@qInstallPath1\\ide\\program")

      @LoadBMPBillBoard()
      @LoadBMPMSG(@qWaitmsgBMPFile3)

      @OS2Exec("@qInstallPath1\\ide\\program\\ide.exe","-nosplash","@qInstallPath1\\ide\\program",1,3,"","",0,0,0,0,-1,0)
   @EndIf

   @EraseBMP(3)
   @LoadBMPBackground(@qBackgroundBMPFile)
   @LoadBMPProdLogo(@qProdLogoBMPFile)

   @If (!@RebuildIfnewerMode)
      //Readme and ART
      @AskShowReadmeART()
   @EndIf
   @Return()
@EndFunc


//----------------------------------------
@DefineFunc @Void @UnInstallExitPost(@Void)

   //   @If (@iProductClass == @iEntry)
   //      @Return()
   //   @EndIf
   //first thing to do is to unregister Java from NetQ
   @qTMP1 = @GetExtInstallDirectory("NetQuestion","1.1","NETQ","NETQ11")
   @ShowAll("@@UninstalExitPost","Netq path:@qTMP1")
   @if (@StrCmp(@qTMP1,"") != 0)
      @qTMP2 = @StrHead(@qTMP1,1)   //drive where NetQ is
      @qTMP3 = @StrDel(@qTMP1,0,2)  //get rest of path (without drive letter and :)
      @ShowAll("@@UninstalExitPost","@qTempPath\\IBMVJAVA\\termnetq.cmd")
      //THIS PLACES TOO MUCH KNOWLEDGE INSIDE THIS SCRIPT-@qTEMPPATH\\IBMVJAVA should be hidden
       //      @System("call @qTempPath\\IBMVJAVA\\termnetq.cmd @qTMP1",2,-1)
      @qTMP5=@GetEnv("COMSPEC")
      //      @iRetVal = @OS2Exec("@qTMP5", "/c @qTempPath\\IBMVJAVA\\termnetq.cmd @qTMP1", "@qTempPath\\IBMVJAVA",0,0,"","",0,0,0,0,-1,0)
      @OS2Exec("@qTMP5", "/c @qTempPath\\ivj10tnq.cmd @qTMP1", "@qTempPath",0,0,"","",0,0,0,0,-1,0)

      @Write("@qTempPath\\IBMVJAVA\\ivjunin.log","wt","termnetq returned\n")
      //    call NetQ's uninstall
      //      @System("call @qTMP1\\install\\uninstal.cmd @qTMP2 @qTMP3\\install",2,-1)
      @iRetVal = @OS2Exec("@qTMP5", "/c @qTMP1\\install\\uninstal.cmd @qTMP2 @qTMP3\\install", "@qTMP1\\install",0,0,"","",0,0,0,0,-1,0)
      @Write("@qTempPath\\IBMVJAVA\\ivjunin.log","wt","uninstal returned\n")
   @Endif
   @Return()
@EndFunc

//----------------------------------------
@DefineFunc @Void @CopyFilesExitPre(@Void)

   @If (@iProductClass == @iEntry)
      @NumberOfDisks = ((@NumberOfDisks) + (1))
   @EndIf

   @If (@iProductClass!=@iEntry)

      @If (@StrFind("@qGroupsSet","J") >= 0)
         @iTMP3 = @StrFind("@qGroupsSet","C")
         @If (@iTMP3 >= 0)   //sanity check, should always be >= 0
            @qGroupsSet = "@StrDel(@qGroupsSet,@iTMP3,1)"
         @EndIf
      @EndIf

      //Need to set Groupq here, because otherwise it will be set
      // to c:\visage\...
      @qGroupQExternalInstall = "@qInstallPath1\\eab\\ntq\\install"

      //WORKAROUND FOR R32 CRASH
      //@qInstallpath2 = "@qInstallpath1\\ide\\_update"

   @EndIf
   // @EraseBMP(2)
   // @EraseBMP(1)
   @LoadBMPBillboard()
   @LoadBMPBackground(@qBackgroundBMPFile2)

   @Return()
@EndFunc

//----------------------------------------
@DefineFunc @Void @CopyFilesExitPost(@Void)

   //WORKAROUND FOR R32 CRASH
   //@MkDir("@qInstallPath1\\ide\\_update")
   //@System("XCopy /e/s @qInstallpath1\\$\\* @qInstallPath1\\ide\\_update\*")
   //@DeleteTree(@qInstallPath2, 99999, "--DANGER--")
   //@RmDir(@qInstallPath2)

   @ShowAll("@@CopyFilesExitPost","Workaround successful?")

   //Quote for spaces
   //   @qInstallPath1NoQuotes=@qInstallPath1
   //   @If (@StrFind(@qInstallPath1," ") >= 0)
   //      // *-Workaround for string assignment problems
   //      @qInstallPath1="\"@qInstallPath1\"*"
   //      @iTMP1=@StrRFind(@qInstallPath1,"*")
   //      @qInstallPath1=@StrDel(@qInstallPath1,@iTMP1,1)
   //   @EndIf

   @Return()
@EndFunc

//------------------------------------------

@DefineFunc @Void @AskShowReadmeART(@Void)

   @If (!@CIDBypass("N"))
      //ART will only show up if this is the first time
      @iTMP1 = @Exists("@qInstallPath1\\@qReadmeFile")
      @iTMP2 = (@Exists("@qInstallPath1\\ART\\artexe.exe") && (!@RebuildMode && !@RebuildDesktopMode && !@AddMode))
      @iTMP3 = @Exists("@qInstallPath1\\@qReadmeFile")
      @iTMP4 = (@Exists("@qInstallPath1\\ART\\artexe.exe") && (!@RebuildMode && !@RebuildDesktopMode && !@AddMode))
      @If (@iTMP1 || @iTMP2)
         @Dialog2CB("Install Complete", @qInstallTypeBitmap,
            @iInstallTypeBitmapID,
            "You can now view the Readme file and register online.",
            "",
            "I want to view the Readme file",
            "I want to register online",
            @iTMP1,@iTMP2,
            @iTMP3,@iTMP4,
            "",@qNext,"", "","")
      @EndIf

      @If (@iTMP1 && @Exists("@qInstallPath1\\@qReadmeFile"))
         @OS2Exec("e.exe","@qInstallPath1\\@qReadmeFile","",1,3,"","",0,0,0,0,-1,0)
      @EndIf
      @iBypassReadme = @True

      @If (@iTMP2 && @Exists("@qInstallPath1\\ART\\artexe.exe"))
         @OS2Exec("@qInstallPath1\\art\\artexe.exe", "-d\"@qInstallPath1\\art",
          "@qInstallPath1\\art", 1,3,"","",0,0,0,0,-1,0)
      @EndIf
   @EndIf

   @Return()
@EndFunc

//-------------------------------------------

@DefineFunc @Void @WelcomeUpgradeMode(@In @Integer @SystemLevel,
                  @In @Integer @InstallLevel)

   @If (!@CIDBypass(@qForceWelcome))

      @If ((@SystemLevel == @iEntry) && (@InstallLevel == @iProfessional))
         @qWelcomeUpgradeText1 = "@qWelcomeUpgrade1EntryToPro"
         @qWelcomeUpgradeText3 = "@qWelcomeUpgrade3EntryToPro"
      @ElseIf ((@SystemLevel == @iEntry) && (@InstallLevel == @iEnterprise))
         @qWelcomeUpgradeText1 = "@qWelcomeUpgrade1EntryToEnterp"
         @qWelcomeUpgradeText3 = "@qWelcomeUpgrade3EntryToEnterp"
      @ElseIf ((@SystemLevel == @iProfessional) && (@InstallLevel == @iEnterprise))
         @qWelcomeUpgradeText1 = "@qWelcomeUpgrade1ProToEnterp"
         @qWelcomeUpgradeText3 = "@qWelcomeUpgrade3ProToEnterp"
      @Else
         //Error
         @Return()
      @EndIf


laWelcomeUpgrade:
      @iDialogRes = @DialogText(@qWelcomeTitle,@qWelcomeBitmap,
              @iWelcomeBitmapID, @qWelcomeUpgradeText1,
              @qWelcomeText2, @qWelcomeUpgradeText3,
              "",@qWelcomeCopyright1,
              @qWelcomeCopyright2,"",@qNext,@qCancel,
              "","")

      @If (@iDialogRes == 2)
         @iDialogRes = @iNext

      @ElseIf (@iDialogRes == 3)
         @ConfirmCancel()
         @Goto laWelcomeUpgrade

      @Else
         @ErrorExit(@qWelcomeError1,@iAbort)
      @EndIf
   @Else
      @iDialogRes = @iNext
   @EndIf

   //If we make it through this screen, we're doing an upgrade
   @iJavaUpgradeMode = @TRUE
   @IfNewerMode = @TRUE
   @Return()
@EndFunc
//
//
//
//File: InitVar /////////////////////////////////////
//
//CIDVars: TBD
//
//Globals changed: **ALL**
//
//
//

//----------------------------------------------------------

@DefineVars

   //Operating Systems
   @Integer @OS2      = 2    //Value returned by @Platform
   @Integer @Windows  = 3    //Value returned by @Platform

   @QString @qCRLF =""       //Carriage-return, line-feed

   @QString @qMnemonic = ""  //The mnemonic for dialog controls

   @QString @qSystemRoot = ""
   @QString @qTMP1 = ""
   @Integer @iTMP1 = 0

   @QString @qRedFileExt = ""  // the extension for group red files


@EndVars

////////////////////////////////////////
// Operating system-specific settings //
////////////////////////////////////////

   @If (@Platform == @Windows)
      @qCRLF       = "
"
      @qMnemonic   = "&"
      @qSystemRoot = @GetEnv("Windir")
      @qRedFileExt = "Win"

   @Else
      @qCRLF       = "\n"
      @qMnemonic   = "~"
      @qTMP1       = @GetEnv("Comspec")
      //Find the last '\' in the comspec, and delete everything after it
      @iTMP1       = @StrRFind("@qTMP1","\\")
      @qSystemRoot = @StrHead("@qTMP1",@iTMP1)
      @qRedFileExt = "OS2"

   @EndIf

@DefineVars

   @QString @qCompanyName = "IBM"

   @Integer @iTMP2 = 0
   @Integer @iTMP3 = 0
   @Integer @iTMP4 = 0
   @Integer @iTMP5 = 0
   @Integer @iTMP6 = 0

   @QString @qTMP2 = ""
   @QString @qTMP3 = ""
   @QString @qTMP4 = ""
   @QString @qTMP5 = ""
   @QString @qTMP6 = ""
   @QString @qNetQTMP = ""

   @Integer @iTMPBMP1 = 0
   @Integer @iTMPBMP2 = 0
   @Integer @iTMPBMP3 = 0
   @Integer @iTMPBMP4 = 0
   @Integer @iTMPBMP5 = 0
   @Integer @iTMPBMP6 = 0

   @QString @qTMPBMP1 = ""
   @QString @qTMPBMP2 = ""
   @QString @qTMPBMP3 = ""
   @QString @qTMPBMP4 = ""
   @QString @qTMPBMP5 = ""
   @QString @qTMPBMP6 = ""

   @Drive @dTMP1 = C
   @Drive @dTMP2 = C
   @Drive @dTMP3 = C
   @Drive @dTMP4 = C
   @Drive @dTMP5 = C
   @Drive @dTMP6 = C

   @Integer @iProductClass = 0
   @Integer @iEntry        = 1
   @Integer @iProfessional = 2
   @Integer @iEnterprise   = 3

   //INI file literals headers
   @QString @qSectionResponseFile = "ResponseFile"
   @QString @lRegistry    = "Registry"
   @QString @lKey         = "Key"
   @QString @lName        = "Name"
   @QString @lValue       = "Value"
   @QString @lDataType    = "DataType"
   @QString @lType        = "Type"
   @QString @lIcon        = "Icon"
   @QString @lTitle       = "Title"
   @QString @lFolder      = "Folder"
   @QString @lExePath     = "ExePath"
   @QString @lIconPath    = "IconPath"
   @QString @lIconNumber  = "IconNumber"
   @QString @lParameters  = "Parameters"
   @QString @lWorkingDir  = "WorkingDir"
   @QString @lOS2ObjectID = "OS2ObjectID"
   @QString @lOS2ProgType = "OS2ProgType"
   @QString @lOption1     = "Option1"
   @QString @lOption2     = "Option2"
   @QString @lEnvironmentVars = "EnvironmentVars"
   @QString @lProductInfo = "ProductInfo"
   @QString @lMethod      = "Method"
   @QString @lComponent   = "Component"
   @QString @lGroup       = "Group"
   @QString @lFeature     = "Feature"
   @QString @lProductVars = "ProductVars"
   @QString @lString      = "String"
   @QString @lExpandString = "ExpandString"
   @QString @lBinary      = "Binary"
   @QString @lDWORD       = "DWORD"
   @QString @lMultiString = "MultiString"
   @QString @lIfOS2       = "#IfOS2"
   @QString @lIfWin       = "#IfWin"
   @QString @lEndif       = "#Endif"

   @QString @lInstallOptions = "InstallOptions"
   @QString @lCustom         = "Custom"
   @QString @lInstallPath    = "InstallPath"
   @QString @l1              = "1"
   @QString @l2              = "2"
   @QString @l3              = "3"
   @QString @l4              = "4"
   @QString @l5              = "5"
   @QString @l6              = "6"
   @QString @l7              = "7"
   @QString @l8              = "8"
   @QString @l9              = "9"
   @QString @l10             = "10"
   @QString @l11             = "11"
   @QString @l12             = "12"

   @QString @lInstallType = "InstallType"
   @QString @lY           = "Y"
   @QString @lN           = "N"
   @QString @lYes         = "Yes"
   @QString @lNo          = "No"

   @QString @lInstallSys  = "Install.sys"
   @QString @lOldValue    = "OldValue"
   @QString @lDirectory   = "Directory"
   @QString @lEnvVarLoc   = "EnvVarLoc"
   @QString @lLanguage    = "Language"
   @QString @lFixPak      = "FixPak"
   @QString @lDisplayName = "DisplayName"
   @QString @lUninstallString = "UninstallString"

   @QString @lBytes = "Bytes"

   @QString @qDialogBmp10   = "Vaibm10"
   @Integer @iDialogBmpID10 = 211
   @QString @qDialogBmp8    = "Vaibm8"
   @Integer @iDialogBmpID8  = 231


   //These will be reset in setdisp!
   @QString @qDialogBmp    = @qDialogBmp10  // Bmp for dialog
   @Integer @iDialogBmpID  = @iDialogBmpID10
   @QString @qLogoBmp      = "VaLogo"    // Bmp for logo

   //CID flags and codes
   @Integer @iAbort        = 5000            // CID abort code
   @Integer @iResponseFile = @FALSE

   @QString @qOverwriteAutoexec = "Y"
   @QString @qOverwriteConfig = "Y"
   @QString @qOverwriteProduct = "Y"
   @QString @qReboot = "N"


   @Integer @iHPFSonly = 0
   @Integer @iAlreadyRunInstallPre = @False

   //Red files
   @Integer @iMultipleRedFiles = @TRUE

   @QString @UninstallRedFile = "Uninstal.@qRedFileExt"
   @QString @GroupARedFile = "Agroup.@qRedFileExt"
   @QString @GroupBRedFile = "Bgroup.@qRedFileExt"
   @QString @GroupCRedFile = "Cgroup.@qRedFileExt"
   @QString @GroupDRedFile = "Dgroup.@qRedFileExt"
   @QString @GroupERedFile = "Egroup.@qRedFileExt"
   @QString @GroupFRedFile = "Fgroup.@qRedFileExt"
   @QString @GroupGRedFile = "Ggroup.@qRedFileExt"
   @QString @GroupHRedFile = "Hgroup.@qRedFileExt"
   @QString @GroupIRedFile = "Igroup.@qRedFileExt"
   @QString @GroupJRedFile = "Jgroup.@qRedFileExt"
   @QString @GroupKRedFile = "Kgroup.@qRedFileExt"
   @QString @GroupLRedFile = "Lgroup.@qRedFileExt"
   @QString @GroupMRedFile = "Mgroup.@qRedFileExt"
   @QString @GroupNRedFile = "Ngroup.@qRedFileExt"
   @QString @GroupORedFile = "Ogroup.@qRedFileExt"
   @QString @GroupPRedFile = "Pgroup.@qRedFileExt"
   @QString @GroupQRedFile = "Qgroup.@qRedFileExt"
   @QString @GroupRRedFile = "Rgroup.@qRedFileExt"
   @QString @GroupSRedFile = "Sgroup.@qRedFileExt"
   @QString @GroupTRedFile = "Tgroup.@qRedFileExt"
   @QString @GroupURedFile = "Ugroup.@qRedFileExt"
   @QString @GroupVRedFile = "Vgroup.@qRedFileExt"
   @QString @GroupWRedFile = "Wgroup.@qRedFileExt"
   @QString @GroupXRedFile = "Xgroup.@qRedFileExt"
   @QString @GroupYRedFile = "Ygroup.@qRedFileExt"
   @QString @GroupZRedFile = "Zgroup.@qRedFileExt"



   //Special files
   @QString @qDefaultsFilename   = "@StartupDrive:\\@StartupDir\\INSTALL.INI"
   @Integer @iDefaultsFilepos    = 0
   @QString @qResponseFilename   = ""
   @QString @qInstallSysFilename = ""
   @Integer @iInstallSysFilepos  = 0
   @QString @qErrFile = ""

   @QString @qConfirmHelpFile = "confirm._t_"
   @QString @qChkExistHelpFile = "ChkExist._t_"
   @QString @qDlgDriveHelpFile = "DlgDrive._t_"
   @QString @qDlgInUseHelpFile = "DlgInUse._t_"
   @QString @qDlgSpaceHelpFile = "DlgSpace._t_"
   @QString @qInstTypeHelpFile = "InstType._t_"
   @QString @qInstPathHelpFile = "InstPath._t_"
   @QString @qCustomHelpFile = "custom._t_"
   @QString @qGoodbyeHelpFile = "Goodbye._t_"
   @QString @qWelcomeHelpFile = "Help._t_"
   @QString @qRebootHelpFile = "Reboot._t_"
   @QString @qReqtsHelpFile = "Reqts._t_"
   @QString @qSetEnvHelpFile = "SetEnv._t_"
   @QString @qUninstalHelpFile = "Uninstal._t_"
   @QString @qDetInstDirHelpFile = "DetDir._t_"
   @QString @qGetProductDirHelpFile = "GetDir._t_"
   @QString @qInstallActionsHelpFile = "Actions._t_"
   @QString @qRebuildHelpFile = "Rebuild._t_"
   @QString @qRebuildConfirmPathsHelpFile = "rconfirm._t_"

   @QString @qPrereqsFile = "Prereqs._t_"
   @QString @qPreviewFile = "Preview._t_"
   @QString @qLicenseFile = "License._t_"

   @QString @qCopyFileBMPFile = "copyfile._b_"
   @QString @qSetDeskBMPFile = "setdesk._b_"
   @QString @qSetEnvBMPFile = "setenv._b_"
   @QString @qSetODBCBMPFile = "setodbc._b_"
   @QString @qSetPVarBMPFile = "setpvar._b_"

   @QString @qBackGroundBMPFile = ""
   @QString @qBackGroundBMPFile2 = ""
   @QString @qProdLogoBMPFile = ""
   @QString @qWaitMsgBMPFile1 = ""
   @QString @qWaitMsgBMPFile2 = ""
   @QString @qWaitMsgBMPFile3 = ""
   @QString @qWaitMsgBMPFile4 = ""
   @QString @qWaitMsgBMPFile5 = ""
   @QString @qWaitMsgBMPFile6 = ""
   @QString @qBBoardBMPFile1 = ""
   @QString @qBBoardBMPFile2 = ""
   @QString @qBBoardBMPFile3 = ""
   @QString @qBBoardBMPFile4 = ""
   @QString @qBBoardBMPFile5 = ""
   @QString @qBBoardBMPFile6 = ""
   @QString @qBBoardBMPFile7 = ""
   @QString @qBBoardBMPFile8 = ""
   @QString @qBBoardBMPFile9 = ""
   @QString @qBBoardBMPFile10 = ""
   @QString @qBBoardBMPFile11 = ""
   @QString @qBBoardBMPFile12 = ""
   @QString @qBBoardBMPFile13 = ""
   @QString @qBBoardBMPFile14 = ""
   @QString @qBBoardBMPFile15 = ""
   @QString @qBBoardBMPFile16 = ""

   @QString @qReadmeFile     = "ReadMe.txt"

   //Function return values
   @Integer @Success = @TRUE
   @Integer @Failure = @FALSE

   //Function return variables
   @QString @qRetVal = ""

   //Dialog return code vars
   @Integer @iRetVal = 0     // in Dialog.dat
   @Integer @iDialogRes = 0  // in all functions
   @Integer @iFuncRes = 0    // in the main script

   //System variables
   @QString @qTempPath = "@GetEnv("TEMP")"

   //OS version
   @Integer @OS2v3     = 300
   @Integer @OS2v4     = 400
   @Integer @Win95     = 400
   @Integer @Windows95 = 2     //Value returned by @Subplatform
   @Integer @Win97     = 0
   @Integer @WindowsNT = 3     //Value returned by @Subplatform
   @Integer @WinNTv35  = 351
   @Integer @WinNTv40  = 400
   @Integer @OS        = 0

   //Dialog return codes
   @Integer @iNext   = 110
   @Integer @iBack   = 100
   @Integer @iCancel = 120
   @Integer @iOK     = 100
   @Integer @iHelp   = 130

   //Other return values
   @Integer @iSuccess                = 1
   @Integer @iFiledone               = 2
   @Integer @iSuccessSectionDone     = 3
   @Integer @iEOF                    = -1
   @Integer @iNoItem                 = -2
   @Integer @iNoItemSectionDone      = 4
   @Integer @iErrorIncompleteRegItem = -3



   //Library file Names
   @QString @DataRED

   @Integer @InstallSize = 0

   //Install path information
   @QString @qExtInstallPath1 = ""
   @QString @qInstallPath1 = "@OutDrive:\\@Subdir"
   @QString @qInstallPath2 = "@OutDrive:\\@Subdir"
   @QString @qInstallPath3 = "@OutDrive:\\@Subdir"
   @QString @qInstallPath4 = "@OutDrive:\\@Subdir"
   @QString @qInstallPath5 = "@OutDrive:\\@Subdir"
   @QString @qInstallPath6 = "@OutDrive:\\@Subdir"
   @QString @qInstallPath7 = "@OutDrive:\\@Subdir"
   @QString @qInstallPath8 = "@OutDrive:\\@Subdir"
   @QString @qInstallPath9 = "@OutDrive:\\@Subdir"
   @QString @qInstallPath10 = "@OutDrive:\\@Subdir"
   @QString @qInstallPath1TMP = ""

   @QString @qInstallPath1NoQuotes = ""
   @QString @qInstallPath2NoQuotes = ""
   @QString @qInstallPath3NoQuotes = ""
   @QString @qInstallPath4NoQuotes = ""
   @QString @qInstallPath5NoQuotes = ""
   @QString @qInstallPath6NoQuotes = ""
   @QString @qInstallPath7NoQuotes = ""
   @QString @qInstallPath8NoQuotes = ""
   @QString @qInstallPath9NoQuotes = ""
   @QString @qInstallPath10NoQuotes = ""
   @QString @qInstallPath1TMPNoQuotes = ""

   @QString @qWelcomeBitmap = "@qDialogBmp"
   @Integer @iWelcomeBitmapID = @iDialogBmpID

   @QString @qWelcomeCopyright1 = ""
   @QString @qWelcomeCopyright2 = ""

   @QString @qCopyrightText1 = ""
   @QString @qCopyrightText2 = ""
   @QString @qCopyrightText3 = ""
   @QString @qCopyrightText4 = ""
   @QString @qCopyrightText5 = ""
   @QString @qCopyrightText6 = ""
   @QString @qCopyrightText7 = ""
   @QString @qCopyrightText8 = ""


   @QString @qCopyrightBitmap = "@qDialogBmp"
   @Integer @iCopyrightBitmapID = @iDialogBmpID

   @QString @qAskRebootBitMap = @qDialogBmp
   @Integer @iAskRebootBitmapID = @iDialogBmpID

   @Integer @iAskReboot = 2

   @Integer @iSingleDriveEntry = @False
   @QString @qGetInstDirDriveList1 = ""
   @QString @qGetInstDirDriveList2 = ""
   @QString @qGetInstDirDriveList3 = ""
   @Integer @iDriveList1Count = 0
   @Integer @iDriveList2Count = 0
   @Integer @iDriveList3Count = 0

   @Integer @iGetInstDirPathOK = 0
   @Integer @iGetInstDirBadPath = 1
   @Integer @iGetInstDirBadDrive = 2
   @Integer @iGetInstDirNoRoot = 3
   @Integer @iGetInstDirInvalidCharacterInPath = 4
   @Integer @iGetInstDirDriveNotHPFS = 5
   @Integer @iGetInstDirLongPath = 6
   @QString @qInvalidPath = ""
   @Drive @dInvalidDrive = A
   @Integer @iCheckPathResult = 0

   @QString @qGetInstDirBitmap = "vaibm"
   @Integer @iGetInstDirBitmapID = 201

   @Drive @dGetInstDirDriveLetter = A

   @QString @qProduct1 = ""
   @QString @qProduct2 = ""
   @QString @qProduct3 = ""
   @QString @qProduct4 = ""
   @QString @qProduct5 = ""
   @QString @qProduct6 = ""
   @QString @qProduct7 = ""
   @QString @qProduct8 = ""
   @QString @qProduct9 = ""
   @QString @qProduct10 = ""
   @QString @qProduct1Text = ""
   @QString @qProduct2Text = ""
   @QString @qProduct3Text = ""
   @QString @qProduct4Text = ""
   @QString @qProduct5Text = ""
   @QString @qProduct6Text = ""
   @QString @qProduct7Text = ""
   @QString @qProduct8Text = ""
   @QString @qProduct9Text = ""
   @QString @qProduct10Text = ""


   @Integer @iCustom    = 1
   @QString @qCustomBitmap = "@qDialogBmp"
   @Integer @iCustomBitmapID = @iDialogBmpID



   //Not used with new initprod, can be removed
   @QString @qCustomDesc1 = "CB Desc 1"
   @QString @qCustomDesc2 = ""
   @QString @qCustomDesc3 = ""
   @QString @qCustomDesc4 = ""
   @QString @qCustomDesc5 = ""
   @QString @qCustomDesc6 = ""
   @QString @qCustomDesc7 = ""
   @QString @qCustomDesc8 = ""
   @QString @qCustomDesc9 = ""
   @QString @qCustomDesc10 = ""
   @QString @qCustomDesc11 = ""
   @QString @qCustomDesc12 = ""


   @QString @qFeature01            = ""
   @QString @qFeature02            = ""
   @QString @qFeature03            = ""
   @QString @qFeature04            = ""
   @QString @qFeature05            = ""
   @QString @qFeature06            = ""
   @QString @qFeature07            = ""
   @QString @qFeature08            = ""
   @QString @qFeature09            = ""
   @QString @qFeature10            = ""
   @QString @qFeature11            = ""
   @QString @qFeature12            = ""
   @QString @qFeature13            = ""
   @QString @qFeature14            = ""
   @QString @qFeature15            = ""
   @QString @qFeature16            = ""

   @QString @qFeature01Help        = ""
   @QString @qFeature02Help        = ""
   @QString @qFeature03Help        = ""
   @QString @qFeature04Help        = ""
   @QString @qFeature05Help        = ""
   @QString @qFeature06Help        = ""
   @QString @qFeature07Help        = ""
   @QString @qFeature08Help        = ""
   @QString @qFeature09Help        = ""
   @QString @qFeature10Help        = ""
   @QString @qFeature11Help        = ""
   @QString @qFeature12Help        = ""
   @QString @qFeature13Help        = ""
   @QString @qFeature14Help        = ""
   @QString @qFeature15Help        = ""
   @QString @qFeature16Help        = ""

   @QString @qCustomHelp1 = "Help for CB 1 goes here"
   @QString @qCustomHelp2 = ""
   @QString @qCustomHelp3 = ""
   @QString @qCustomHelp4 = ""
   @QString @qCustomHelp5 = ""
   @QString @qCustomHelp6 = ""
   @QString @qCustomHelp7 = ""
   @QString @qCustomHelp8 = ""
   @QString @qCustomHelp9 = ""
   @QString @qCustomHelp10 = ""
   @QString @qCustomHelp11 = ""
   @QString @qCustomHelp12 = ""

   //Text messages - CustomSelect function
   @Integer @iCustom1 = 1
   @Integer @iCustom2 = 0
   @Integer @iCustom3 = 0
   @Integer @iCustom4 = 0
   @Integer @iCustom5 = 0
   @Integer @iCustom6 = 0
   @Integer @iCustom7 = 0
   @Integer @iCustom8 = 0
   @Integer @iCustom9 = 0
   @Integer @iCustom10 = 0
   @Integer @iCustom11 = 0
   @Integer @iCustom12 = 0
   @Integer @iCustom13 = 0
   @Integer @iCustom14 = 0
   @Integer @iCustom15 = 0
   @Integer @iCustom16 = 0

   //Not used with new initprod, can be removed
   @QString @qCustomGroups1 = ""
   @QString @qCustomGroups2 = ""
   @QString @qCustomGroups3 = ""
   @QString @qCustomGroups4 = ""
   @QString @qCustomGroups5 = ""
   @QString @qCustomGroups6 = ""
   @QString @qCustomGroups7 = ""
   @QString @qCustomGroups8 = ""
   @QString @qCustomGroups9 = ""
   @QString @qCustomGroups10 = ""
   @QString @qCustomGroups11 = ""
   @QString @qCustomGroups12 = ""

   // Gray out features?
   @Integer @iCustom1Enable = 1
   @Integer @iCustom2Enable = 1
   @Integer @iCustom3Enable = 1
   @Integer @iCustom4Enable = 1
   @Integer @iCustom5Enable = 1
   @Integer @iCustom6Enable = 1
   @Integer @iCustom7Enable = 1
   @Integer @iCustom8Enable = 1
   @Integer @iCustom9Enable = 1
   @Integer @iCustom10Enable = 1
   @Integer @iCustom11Enable = 1
   @Integer @iCustom12Enable = 1
   @Integer @iCustom13Enable = 1
   @Integer @iCustom14Enable = 1
   @Integer @iCustom15Enable = 1
   @Integer @iCustom16Enable = 1

   //features and groups string
   @QString @qGroupsString = ""
   @QString @qFeature01GroupString = ""
   @QString @qFeature02GroupString = ""
   @QString @qFeature03GroupString = ""
   @QString @qFeature04GroupString = ""
   @QString @qFeature05GroupString = ""
   @QString @qFeature06GroupString = ""
   @QString @qFeature07GroupString = ""
   @QString @qFeature08GroupString = ""
   @QString @qFeature09GroupString = ""
   @QString @qFeature10GroupString = ""
   @QString @qFeature11GroupString = ""
   @QString @qFeature12GroupString = ""
   @QString @qFeature13GroupString = ""
   @QString @qFeature14GroupString = ""
   @QString @qFeature15GroupString = ""
   @QString @qFeature16GroupString = ""

   //Install type variables
   @QString @qInstallTypeSelection = ""
   @QString @qCustomSelections = ""

   //Marks which features have been selected
   @QString @qCustomFeatures = ""
   //Used during add to mark the features which were previously on the system
   @QString @qOldFeatures    = ""

   @QString @qGroupsSet      = ""
   @QString @qOldGroupsSet   = ""

   //Install Type Groups
   @QString @qInstallTypeGroups1 = ""
   @QString @qInstallTypeGroups2 = ""
   @QString @qInstallTypeGroups3 = ""
   @QString @qInstallTypeGroups4 = ""
   @QString @qInstallTypeGroups5 = ""
   @QString @qInstallTypeGroups6 = ""

   //InstallType Custom Features
   @QString @qInstallType1Features = ""
   @QString @qInstallType2Features = ""
   @QString @qInstallType3Features = ""
   @QString @qInstallType4Features = ""
   @QString @qInstallType5Features = ""
   @QString @qInstallType6Features = ""

   //Text messages - GetInstallType function
   @QString @qInstallTypeBitmap = "@qDialogBmp"
   @Integer @iInstallTypeBitmapID = @iDialogBmpID
   @QString @qInstallTypeText2 = ""
   @QString @qInstallTypeText3 = ""
   @QString @qInstallType1Desc = ""
   @QString @qInstallType2Desc = ""
   @QString @qInstallType3Desc = ""
   @QString @qInstallType4Desc = ""
   @QString @qInstallType5Desc = ""
   @QString @qInstallType6Desc = ""
   @QString @qInstallTypeText5 = ""
   @QString @qInstallTypeText6 = ""
   @QString @qInstallTypeHelp1 = ""
   @QString @qInstallTypeHelp2 = ""
   @QString @qInstallTypeHelp3 = ""
   @QString @qInstallTypeHelp4 = ""
   @QString @qInstallTypeHelp5 = ""
   @QString @qInstallTypeHelp6 = ""

   //Install Type information
   @Integer @iInstallType    = 1
   @QString @qInstallType1   = "Full"
   @QString @qInstallType2   = ""
   @QString @qInstallType3   = ""
   @QString @qInstallType4   = ""
   @QString @qInstallType5   = ""
   @QString @qInstallType6   = ""
   @Integer @iInstallTypeCustom = 0
   @QString @qInstallTypeCustom = ""


   @QString @qConfirmBitmap = @qDialogBmp
   @Integer @iConfirmBitmapID = @iDialogBmpID



   //Reading mode
   @Integer @iCondlReadMode = @False
   //Variables for reading/writing icons,registry,envvars
   @QString @qKey         = ""
   @QString @qName        = ""
   @QString @qValue       = ""
   @QString @qDataType    = ""
   @QString @qType        = ""
   @QString @qTitle       = ""
   @QString @qFolder      = ""
   @QString @qExePath     = ""
   @QString @qIconPath    = ""
   @QString @qIconNumber  = ""
   @QString @qParameters  = ""
   @QString @qWorkingDir  = ""
   @QString @qOS2ObjectID = ""
   @QString @qOS2ProgType = ""
   @QString @qOption1     = ""
   @QString @qOption2     = ""
   @QString @qMethod      = ""
   @QString @qOldValue    = ""
   @QString @qComponent   = ""
   @QString @qGroup       = ""
   @QString @qItemFeature = ""

   //Variables for local storage (within functions)
   @QString @qReadStr
   @QString @qToken1
   @QString @qToken2
   @Integer @iReturnVal
   @Integer @iDoLoop
   @Integer @iIndex
   @Integer @iSectionDone

   //Byte variables for comparisons
   @Byte @bBeginSection   = @Eval('[')
   @Byte @bBlank          = @Eval(' ')


   //Screen resolution
   @Integer @XRes     = @WinScreenCaps(8)
   @Integer @YRes     = @WinScreenCaps(10)
//   @Integer @NColours = @WinScreenCaps(24) //the call is not currently working

   //Testing variable
   @QString @qInputLine
   @Integer @RetVal

   //Variables for funcs.dat
   @Integer @Index = 0
   @Integer @Button100 = 0
   @Integer @Button110 = 0
   @qString @EditBox1000 = ""
   @qString @TempStr = ""
   @qString @qTempStr = ""
   @qString @qTempStr1 = ""
   @qString @qTempStr2 = ""
   @qString @qTempStr3 = ""
   @qString @qTempStr4 = ""
   @qString @qTempStr5 = ""
   @qString @qTempStr6 = ""

   //Variables for debug.dat and cmdline.dat
   @Integer @DebugMode = @False
   @Integer @AutorunMode = @False
   @Integer @ShowAllToggle = @False
   @Integer @Error = @False
   @Integer @TabSpace = 0
   @QString @CurFuncName = "System"

   @Integer @iBypassODBC = @False
   @Integer @iBypassLicense = @False
   @Integer @iBypassReadme = @False

   //CID force variables
   @QString @qForceCopyright         = "N"
   @QString @qForceWelcome           = "N"
   @QString @qForceLicense           = "N"
   @QString @qForceCheckPrereqs      = "N"
   @QString @qForceCheckExisting     = "N"
   @QString @qForceGetInstallType    = "N"
   @QString @qForceCustom            = "N"
   @QString @qForceGetInstallPath    = "N"
   @QString @qForceCheckFreeSpace    = "N"
   @QString @qForceCheckInUse        = "N"
   @QString @qForceConfirmInstall    = "N"
   @QString @qForceSetDesktop        = "N"
   @QString @qForceSetEnvironment    = "N"
   @QString @qForceRegisterProduct   = "N"
   @QString @qForceRegisterUninstall = "N"
   @QString @qForceRegisterART       = "N"
   @QString @qForceReboot            = "N"
   @QString @qForceReadme            = "N"
   @QString @qForceDetInstDir        = "N"
   @QString @qForceInstallActions    = "N"
   @QString @qForceRebuild           = "N"
   @QString @qForceRebuildConfirm    = "N"
   @QString @qForceUninstall         = "N"

   //Variables for chkreqs.dat
//   @QString @qCheckReqsBitmap = "bang"
   @QString @qCheckReqsBitmap = ""
//   @Integer @iCheckReqsBitmapID = 7004   //bang
   @Integer @iCheckReqsBitmapID = 0
   @QString @qTargetSystemPlatform = ""
   @QString @qCheckSysReqsOSVer = ""
   @Integer @iPrereqOS = @Windows
   @Integer @iPrereqNTVer = @WinNTv40
   @Integer @iMinPrereqNTVer = @WinNTv35
   @Integer @iPrereqWin95Ver = @Win95
   @Integer @iPrereqOS2Ver = @OS2v4
   @Integer @iMinPrereqOS2Ver = @OS2v3
   @Integer @iPrereqCPU = 586
   @Integer @iMinPrereqCPU = 486
   @Integer @iPrereqRAM = 32
   @Integer @iMinPrereqRAM = 16
   @Integer @iPrereqResWidth = 800
   @Integer @iMinPrereqResWidth = 800
   @Integer @iPrereqResHeight = 600
   @Integer @iPrereqColours = 256
   @Integer @iMinPrereqColours = 16

   //SetDesktop info
   @QString @qFolderName = @qProductName
   @QString @qExtFolderName = @qProductName
   @QString @qInstallFolderID  = ""

   @QString @qFolderType       = "Folder"
   @QString @qProgramType      = "Program"
   @QString @qCommandType      = "Command"
   @QString @qTextFileType     = "TextFile"
   @QString @qLinkToFolderType = "LinkToFolder"
   @QString @qDoubleQuotes = "\"\""
   @QString @qREXXScriptFile = "kdinst.cmd"

   //RegProd and regunin info
   @QString @qInstallKey = "Install"
   @QString @qLanguage = "ENG"
   @QString @qFixPakLevel = "0"
   @QString @qRegEnvVarsNotSet = "0"
   @QString @qRegSetForAllUsers = "1"
   @QString @qRegSetForCurrentUser = "2"
   @QString @qUninstallCmdLine = "install\\uninstal.bat"

   @Integer @iKeyHandle = 0
   @Integer @iDisposition = 0
   @Integer @iRegString = 1
   @Integer @iRegExpandString = 2
   @Integer @iRegBinary = 3
   @Integer @iRegDWord = 4
   @Integer @iRegMultiString = 7
   @Integer @iRegKeyAllAccess = 0xf003f

   @QString @qProductINI = ""   //the name of the os2 product ini file
   @QString @qExtProductINI = ""  //the name of another os2 product ini file
   @QString @lProductINIVar = ""
   @QString @qProductINIPointerApp = ""  //the name of the app in os2.ini
   @QString @qProductINIPointerKey = ""  //the name of the key in os2.ini
   @QString @qProductINIBase       = ""  //the base name of ini file

   //setenv info
   @Integer @iDisplayEnvvarChoice = @True
   @QString @qEnvVarLoc = @qRegSetForCurrentUser
   @QString @qExtEnvVarLoc = @qRegSetForCurrentUser

   @QString @qSetEnvBitmap = @qDialogBmp
   @Integer @iSetEnvBitmapID = @iDialogBmpID
   @QString @qSetEnvReplaceVar = "="
   @QString @qSetProdReplaceVar = "="
   @Integer @iSetEnvRBSelected = 2
   @Integer @iRegValueType = 0
   @Integer @iSetEnvForAllUsers = @FALSE
   @Integer @iEnvVarKeyHandle = @HKeyCurrentUser

   @Integer @iSetEnvVarMaxLength = 255


   @Integer @iVarWritten = @False
   @Integer @iPos = 0

   @QString @qUninstallBitmap = @qDialogBmp
   @Integer @iUninstallBitmapID = @iDialogBmpID

   @QString @qSubKeyName = ""
   @Integer @UninstallMode = @False
   @Integer @iReturn = 0
   @Integer @iProductInstalled = @True
   @Integer @iExtProductInstalled = @False
   @QString @qEnvVarSetting = ""
//   @QString @qAskRemoveDirBitmap = "bang"
   @QString @qAskRemoveDirBitmap = ""
//   @Integer @iAskRemoveDirBitmapID = 7004   //bang
   @Integer @iAskRemoveDirBitmapID = 0

   //Special files used for Environment variable related
   //operations during installation
   @QString @qMainProdVar = "VACPPMAIN"
   @QString @qSetEnvBatFile = "SETENV.BAT"
   @QString @qAutoexecBatFile = "@BootDrive:\\AUTOEXEC.BAT"
   @QString @qConfigSysFile = "@BootDrive:\\CONFIG.SYS"
   @QString @qBackupAutoexecBatFile = ""
   @QString @qBackupConfigSysFile = ""
   @QString @qTempTextFile = "#IBM#._#_"

   @Integer @iMakeConfigSysBackup = @True
   @Integer @iMakeAutoexecBatBackup = @True


   @QString @qProdVarSetting = ""
   @Integer @iDataType = 0
   @QString @qAppendProdVar = "Append"

   //Special JAVA variable
   @Integer @iJavaUpgradeMode = @False
   @Integer @iJavaInstall = @True

   //Variables for Actions.dat
   @Integer @AddMode = @False
   @Integer @DeleteMode = @False
   @Integer @UpdateMode = @False
   @Integer @RebuildMode = @False
   @QString @qDetInstDirTitle = "@qProductName"
   @QString @qDetInstDirBitmap = @qDialogBmp
   @Integer @iDetInstDirBitmapID = @iDialogBmpID

   @Integer @iDetInstDirRBSelected = 1

   @QString @qProdInfoRemovedBitmap = @qDialogBmp
   @Integer @iProdInfoRemovedBitmapID = @iDialogBmpID

   @QString @qGetProductDirBitmap = @qDialogBmp
   @Integer @iGetProductDirBitmapID = @iDialogBmpID

   @QString @qInstallActionsBitmap = @qDialogBmp
   @Integer @iInstallActionsBitmapID = @iDialogBmpID

   @Integer @iInstallActionRBSelected = 3


   //Variables for chkfree.dat
   @QString @qDrives = ""
   @Integer @iNumDrives = 0
   @Drive @dCurrentDrive = A
   @QString @qCurrentDrive = ""
   @QString @qSetGroups = ""
   @QString @qOptionGroups = ""
   @QString @qDriveOptions = ""
   @Integer @iSpaceRequired = 0
   @Integer @iSpaceAvailable = 0
//   @QString @qCheckFreeSpaceBitmap = "bang"
   @QString @qCheckFreeSpaceBitmap = ""
//   @Integer @iCheckFreeSpaceBitmapID = 7004  //bang
   @Integer @iCheckFreeSpaceBitmapID = 0

   //Variables for Rebuild.dat
   @QString @qRebuildDialogBitmap = @qDialogBmp
   @Integer @iRebuildDialogBitmapID = @iDialogBmpID
   @Integer @iRebuildRBSelected = 1
   @Integer @RebuildDesktopMode = @False
   @Integer @RebuildIfNewerMode = @False
   @Integer @RebuildAllMode = @False
   @Integer @RebuildOnlyMode = @False

   @QString @qConfirmPathsBitmap = @qDialogBmp
   @Integer @iConfirmPathsBitmapID = @iDialogBmpID


   // External Install variables
   @Integer @iGroupAExternalInstall = @False
   @Integer @iGroupBExternalInstall = @False
   @Integer @iGroupCExternalInstall = @False
   @Integer @iGroupDExternalInstall = @False
   @Integer @iGroupEExternalInstall = @False
   @Integer @iGroupFExternalInstall = @False
   @Integer @iGroupGExternalInstall = @False
   @Integer @iGroupHExternalInstall = @False
   @Integer @iGroupIExternalInstall = @False
   @Integer @iGroupJExternalInstall = @False
   @Integer @iGroupKExternalInstall = @False
   @Integer @iGroupLExternalInstall = @False
   @Integer @iGroupMExternalInstall = @False
   @Integer @iGroupNExternalInstall = @False
   @Integer @iGroupOExternalInstall = @False
   @Integer @iGroupPExternalInstall = @False
   @Integer @iGroupQExternalInstall = @False
   @Integer @iGroupRExternalInstall = @False
   @Integer @iGroupSExternalInstall = @False
   @Integer @iGroupTExternalInstall = @False
   @Integer @iGroupUExternalInstall = @False
   @Integer @iGroupVExternalInstall = @False
   @Integer @iGroupWExternalInstall = @False
   @Integer @iGroupXExternalInstall = @False
   @Integer @iGroupYExternalInstall = @False
   @Integer @iGroupZExternalInstall = @False

   @QString @qGroupAExternalInstall = ""
   @QString @qGroupBExternalInstall = ""
   @QString @qGroupCExternalInstall = ""
   @QString @qGroupDExternalInstall = ""
   @QString @qGroupEExternalInstall = ""
   @QString @qGroupFExternalInstall = ""
   @QString @qGroupGExternalInstall = ""
   @QString @qGroupHExternalInstall = ""
   @QString @qGroupIExternalInstall = ""
   @QString @qGroupJExternalInstall = ""
   @QString @qGroupKExternalInstall = ""
   @QString @qGroupLExternalInstall = ""
   @QString @qGroupMExternalInstall = ""
   @QString @qGroupNExternalInstall = ""
   @QString @qGroupOExternalInstall = ""
   @QString @qGroupPExternalInstall = ""
   @QString @qGroupQExternalInstall = ""
   @QString @qGroupRExternalInstall = ""
   @QString @qGroupSExternalInstall = ""
   @QString @qGroupTExternalInstall = ""
   @QString @qGroupUExternalInstall = ""
   @QString @qGroupVExternalInstall = ""
   @QString @qGroupWExternalInstall = ""
   @QString @qGroupXExternalInstall = ""
   @QString @qGroupYExternalInstall = ""
   @QString @qGroupZExternalInstall = ""

   @Integer @iOption1ExternalInstall = @False
   @Integer @iOption2ExternalInstall = @True
   @Integer @iOption3ExternalInstall = @False
   @Integer @iOption4ExternalInstall = @True
   @Integer @iOption5ExternalInstall = @False
   @Integer @iOption6ExternalInstall = @False
   @Integer @iOption7ExternalInstall = @False
   @Integer @iOption8ExternalInstall = @False
   @Integer @iOption9ExternalInstall = @False
   @Integer @iOption10ExternalInstall = @False

   @QString @AgroupRspFileName = "Agroup.rsp"
   @QString @BgroupRspFileName = "Bgroup.rsp"
   @QString @CgroupRspFileName = "Cgroup.rsp"
   @QString @DgroupRspFileName = "Dgroup.rsp"
   @QString @EgroupRspFileName = "Egroup.rsp"
   @QString @FgroupRspFileName = "Fgroup.rsp"
   @QString @GgroupRspFileName = "Ggroup.rsp"
   @QString @HgroupRspFileName = "Hgroup.rsp"
   @QString @IgroupRspFileName = "Igroup.rsp"
   @QString @JgroupRspFileName = "Jgroup.rsp"
   @QString @KgroupRspFileName = "Kgroup.rsp"
   @QString @LgroupRspFileName = "Lgroup.rsp"
   @QString @MgroupRspFileName = "Mgroup.rsp"
   @QString @NgroupRspFileName = "Ngroup.rsp"
   @QString @OgroupRspFileName = "Ogroup.rsp"
   @QString @PgroupRspFileName = "Pgroup.rsp"
   @QString @QgroupRspFileName = "Qgroup.rsp"
   @QString @RgroupRspFileName = "Rgroup.rsp"
   @QString @SgroupRspFileName = "Sgroup.rsp"
   @QString @TgroupRspFileName = "Tgroup.rsp"
   @QString @UgroupRspFileName = "Ugroup.rsp"
   @QString @VgroupRspFileName = "Vgroup.rsp"
   @QString @WgroupRspFileName = "Wgroup.rsp"
   @QString @XgroupRspFileName = "Xgroup.rsp"
   @QString @YgroupRspFileName = "Ygroup.rsp"
   @QString @ZgroupRspFileName = "Zgroup.rsp"
   @QString @qRspFileWriteError = "Error writing to the response file"

   @QString @Option1RspFileName = "Option1.rsp"
   @QString @Option2RspFileName = "Option2.rsp"
   @QString @Option3RspFileName = "Option3.rsp"
   @QString @Option4RspFileName = "Option4.rsp"
   @QString @Option5RspFileName = "Option5.rsp"
   @QString @Option6RspFileName = "Option6.rsp"
   @QString @Option7RspFileName = "Option7.rsp"
   @QString @Option8RspFileName = "Option8.rsp"
   @QString @Option9RspFileName = "Option9.rsp"
   @QString @Option10RspFileName = "Option10.rsp"

   // Information about install drives
   @QString @qDrive1Drive = ""
   @QString @qDrive2Drive = ""
   @QString @qDrive3Drive = ""
   @QString @qDrive4Drive = ""
   @QString @qDrive5Drive = ""
   @QString @qDrive6Drive = ""
   @QString @qDrive7Drive = ""
   @QString @qDrive8Drive = ""
   @QString @qDrive9Drive = ""
   @QString @qDrive10Drive = ""

   @Integer @iDrive1SpaceReq = 0
   @Integer @iDrive2SpaceReq = 0
   @Integer @iDrive3SpaceReq = 0
   @Integer @iDrive4SpaceReq = 0
   @Integer @iDrive5SpaceReq = 0
   @Integer @iDrive6SpaceReq = 0
   @Integer @iDrive7SpaceReq = 0
   @Integer @iDrive8SpaceReq = 0
   @Integer @iDrive9SpaceReq = 0
   @Integer @iDrive10SpaceReq = 0

   // Options to Features mapping
   @QString @qOption1Groups = ""
   @QString @qOption2Groups = ""
   @QString @qOption3Groups = ""
   @QString @qOption4Groups = ""
   @QString @qOption5Groups = ""
   @QString @qOption6Groups = ""
   @QString @qOption7Groups = ""
   @QString @qOption8Groups = ""
   @QString @qOption9Groups = ""
   @QString @qOption10Groups = ""

   //Buffers for Group sizes and number of files
   @Integer @iGroupSizeA = 0
   @Integer @iGroupSizeB = 0
   @Integer @iGroupSizeC = 0
   @Integer @iGroupSizeD = 0
   @Integer @iGroupSizeE = 0
   @Integer @iGroupSizeF = 0
   @Integer @iGroupSizeG = 0
   @Integer @iGroupSizeH = 0
   @Integer @iGroupSizeI = 0
   @Integer @iGroupSizeJ = 0
   @Integer @iGroupSizeK = 0
   @Integer @iGroupSizeL = 0
   @Integer @iGroupSizeM = 0
   @Integer @iGroupSizeN = 0
   @Integer @iGroupSizeO = 0
   @Integer @iGroupSizeP = 0
   @Integer @iGroupSizeQ = 0
   @Integer @iGroupSizeR = 0
   @Integer @iGroupSizeS = 0
   @Integer @iGroupSizeT = 0
   @Integer @iGroupSizeU = 0
   @Integer @iGroupSizeV = 0
   @Integer @iGroupSizeW = 0
   @Integer @iGroupSizeX = 0
   @Integer @iGroupSizeY = 0
   @Integer @iGroupSizeZ = 0

   @Integer @iGroupFilesA = 0
   @Integer @iGroupFilesB = 0
   @Integer @iGroupFilesC = 0
   @Integer @iGroupFilesD = 0
   @Integer @iGroupFilesE = 0
   @Integer @iGroupFilesF = 0
   @Integer @iGroupFilesG = 0
   @Integer @iGroupFilesH = 0
   @Integer @iGroupFilesI = 0
   @Integer @iGroupFilesJ = 0
   @Integer @iGroupFilesK = 0
   @Integer @iGroupFilesL = 0
   @Integer @iGroupFilesM = 0
   @Integer @iGroupFilesN = 0
   @Integer @iGroupFilesO = 0
   @Integer @iGroupFilesP = 0
   @Integer @iGroupFilesQ = 0
   @Integer @iGroupFilesR = 0
   @Integer @iGroupFilesS = 0
   @Integer @iGroupFilesT = 0
   @Integer @iGroupFilesU = 0
   @Integer @iGroupFilesV = 0
   @Integer @iGroupFilesW = 0
   @Integer @iGroupFilesX = 0
   @Integer @iGroupFilesY = 0
   @Integer @iGroupFilesZ = 0

   @Integer @iNoGroupsSet = @True
   @Integer @iTotalSize = 0
   @Integer @iTotalFiles = 0

   //Magic variables for disabling radio buttons
   @Integer @iRB1Disabled = 0
   @Integer @iRB2Disabled = 0
   @Integer @iRB3Disabled = 0
   @Integer @iRB4Disabled = 0
   @Integer @iRB5Disabled = 0
   @Integer @iRB6Disabled = 0


   //Temporary variables
   @Integer @TempInt = 0
   @Integer @TempInt2 = 0
   @QString @Line = ""

   //variables for AUTORUN
   @QString @qTeamEnvyFile = "TeamEnvy._t_"
   @QString @qAutorunHelpFile = "BrwsHelp._t_"
   @QString @qAutorunName = "VisualAge CD Autoplay"
   @QString @qAutorunText1 = "Click on any button to execute that function."
   @QString @qAutorunText2 = " "
   @QString @qAutorunPreview = "@qMnemonic@!Preview"
   @QString @qAutorunExplore = "@qMnemonic@!Explore CD"
   @QString @qAutorunReadme = "@qMnemonic@!View Readme"
   @QString @qAutorunInstall = "@qMnemonic@!Install Product"
   @QString @qAutorunServer = "Install Product - @qMnemonic@!Server"
   @QString @qAutorunBrowseHelp = "@qMnemonic@!Browse Help"
   @QString @qAutorunExit = "E@qMnemonic@!xit"
@EndVars
@DefineVars
   @QString @lQuestion    = "Question"
   @QString @lMessage     = "Message"


   @QString @qErrorText1   = "ERROR_EXIT: " // debug display of error exits
   @QString @qCancelText1  = "Do you really want to CANCEL the current installation ? "
   @QString @qCancelText2  = "User Cancelled"
   @QString @qCancelTitle  = "Confirm Cancel"
   @QString @qDisplayHelpError = "Sorry, no help file: "
   @QString @qErrorInvalidReturn = "DEBUG INTERNAL: Invalid Main/Function return value"


   //Dialog button strings
   @QString @qNext    = "@qMnemonic@!Next >"
   @QString @qBack    = "< @qMnemonic@!Back"
   @QString @qCancel  = "@qMnemonic@!Cancel"
   @QString @qInstall = "@qMnemonic@!Install >"
   @QString @qOK      = "@qMnemonic@!OK"
   @QString @qHelp    = "@qMnemonic@!Help"
   @QString @qYes     = "@qMnemonic@!Yes"
   @QString @qNo      = "@qMnemonic@!No"
   @QString @qPreview = "@qMnemonic@!Preview"
   @QString @qAbort   = "Abort"
   @QString @qReenter = "@qMnemonic@!Re-enter"
   @QString @AnotherDrive = "Another Drive"
   @QString @qPreReqs = "Pre@qMnemonic@!Reqs"
   @QString @qExit    = "Exit"
   @QString @qPrev    = "@qMnemonic@!Prev"
   @QString @qMessage = "Message"
   @QString @qFinish  = "@qMnemonic@!Finish"
   @QString @qUninstall = "@qMnemonic@!Uninstall"
   @QString @qAccept = "@qMnemonic@!Accept"
   @QString @qDoNotAccept = "Do @qMnemonic@!Not Accept"
   @QString @qRebuild = "@qMnemonic@!Rebuild"


   @QString @qWarningTitle = "WARNING!"
   @QString @qCheckPrereqsError = "System prerequisite not met. "
   @QString @qContinueORNot = "Would you like to continue?"
   @QString @qCheckSysReqsCPU1 = "Required CPU:"
   @QString @qCheckSysReqsCPU2 = "CPU on target system:"
   @QString @qCheckSysReqsRAM1 = "Required RAM (in MegaBytes):"
   @QString @qCheckSysReqsRAM2 = "RAM on target system (in MegaBytes):"
   @QString @qCheckSysReqsRes1 = "Required screen resolution:"
   @QString @qCheckSysReqsRes2 = "Screen resolution on target system:"
   @QString @qCheckSysReqsColours1 = "Required number of colours:"
   @QString @qCheckSysReqsColours2 = "Number of colours on target system:"
   @QString @qPrereqOSWin95 = "Required platform is Windows95."
   @QString @qPrereqOSWin95NTv35 = "Required platform is Windows95 or Windows NT version 3.5."
   @QString @qPrereqOSWin95NTv40 = "Required platform is Windows95 or Windows NT version 4.0."
   @QString @qPrereqOSNTv35 = "Required platform is Windows NT version 3.5."
   @QString @qPrereqOSNTv40 = "Required platform is Windows NT version 4.0."
   @QString @qPrereqOSOS2v3 = "Required platform is OS/2 Warp version 3.0."
   @QString @qPrereqOSOS2v4 = "Required platform is OS/2 Warp version 4.0."
   @QString @qPrereqOSError = "Platform cannot be determined."
   @QString @qDOSTargetPlatform = "The platform on the target system is DOS version @OSMajor.@OSMinor. "
   @QString @qOS2TargetPlatform = "The platform on the target system is OS2 version @Eval(@OSMajor/10).0. "
   @QString @qWinNTTargetPlatform = "The platform on the target system is Windows NT version @WinMajor.@WinMinor. "
   @QString @qWin95TargetPlatform = "The platform on the target system is Windows 95"
   @QString @qWindowsTargetPlatform = "The platform on the target system is Windows version @WinMajor.@WinMinor. "

   //Text messages - DisplayWelcome function
   @QString @qWelcomeTitle = "@qProductName Installation"
   @QString @qWelcomeText1 = "Welcome to the installation of @qProductName."
//   @QString @qWelcomeText2 = "Before installing this product, you should exit this program, close all running applications on your computer, and run CHKDSK or SCANDISK to ensure your hard disk integrity."
   @QString @qWelcomeText2 = "Before installing this product, you should close all running applications on your computer."
   @QString @qWelcomeText3 = "For a preview of the product feature list, press 'Preview'.  To view the hardware and software pre-requisites of @qProductName, press 'PreReqs'."
   @QString @qWelcomeText4 = "To continue the installation, press 'Next'."
   @QString @qWelcomeText5 = ""
   @QString @qWelcomeText6 = ""
   @QString @qWelcomeError1 = "DEBUG INTERNAL: Welcome: Unexpected return value from Dialog6s"

   @QString @qWelcomeUpgrade1EntryToPro ="Install has detected that @qProductName Entry Edition has been installed on your system. You are currently installing @qProductName Professional Edition."
   @QString @qWelcomeUpgrade3EntryToPro = "To upgrade your installation from Entry to Professional Edition, press Next."
   @QString @qWelcomeUpgrade1EntryToEnterp = "Install has detected that @qProductName Entry Edition has been installed on your system. You are currently installing @qProductName Enterprise Edition."
   @QString @qWelcomeUpgrade3EntryToEnterp = "To upgrade your installation from Entry to Enterprise Edition, press Next."
   @QString @qWelcomeUpgrade1ProToEnterp = "Install has detected that @qProductName Professional Edition has been installed on your system. You are currently installing @qProductName Enterprise Edition."
   @QString @qWelcomeUpgrade3ProToEnterp = "To upgrade your installation from Professional to Enterprise Edition, press Next."

   @QString @qWelcomeUpgradeText1 = "@qWelcomeUpgrade1EntryToPro"
   @QString @qWelcomeUpgradeText3 = "@qWelcomeUpgrade3EntryToPro"

   //Text messages - DisplayCopyright function
   @QString @qCopyrightTitle = "@qProductName Copyright Notices"
   @QString @qCopyrightError1 = "DEBUG INTERNAL: Copyright: Unexpected return value from Dialog6s"

   //Text message - DisplayLicense function
   @QString @qLicenseTitle = "License Agreement"
   @QString @qLicenseAgreement = "The license agreement should go here."
   @QString @qLicenseDialogError = "DisplayLicense() - Unknown dialog result"
   @QString @qLicenseText1 = "Please read the following evaluation license.  ONCE YOU HAVE READ THE EVALUATION LICENSE:"

   @QString @qLicenseText2 = "IF YOU ACCEPT THESE TERMS AND CONDITIONS then push 'ACCEPT' to continue the installation."
   @QString @qLicenseText3 = "IF YOU DO NOT ACCEPT THESE TERMS AND CONDITIONS then push 'DO NOT ACCEPT' and the installation will exit."

   //Text messages - AskReboot function
   @QString @qAskRebootTitle = "Setup Complete"

   @QString @qAskRebootStringText1 = "You must reboot the computer to use the product.\n
Click Finish to complete the installation"
   @QString @qAskRebootStringText2 = ""
   @QString @qAskRebootStringText3 = ""
   @QString @qAskRebootRadioButton1Text = "Yes, I want to reboot my computer now"
   @QString @qAskRebootRadioButton2Text = "No, I will reboot my computer later"
   @QString @qAskRebootHelp1 = "Your system will be rebooted for you when install is finished."
   @QString @qAskRebootHelp2 = "You must manually reboot your system."
   @QString @qAskRebootPushButton1Text = @qFinish

   @QString @qAskRebootErrorMsg1 = "DEBUG INTERNAL: AskReboot: Invalid Radio Button"
   @QString @qAskRebootErrorMsg2 = "DEBUG INTERNAL: AskReboot: Invalid Push Button"
   @QString @qAskRebootErrorMsg3 = "DEBUG INTERNAL: AskReboot: Invalid iAskRebootRBResult"

   //Text messages - DoResponse function
   @QString @qDoResponseError1 = "DoResponse() - Filename required"
   @QString @qDoResponseError2 = "StringResponse() - Illegal call"
   @QString @qDoResponseError3 = "IntegerResponse() - Negative integer result"
   @QString @qDoResponseError4 = "DoResponse() - File not found: "

   //Text messages - GetInstallDrive function
//   @QString @qGetInstDrText = "Select the drive to install onto"
//   @QString @qGetInstDrPrompt = "Select the Install Drive"
   @QString @qGetInstDirError1 = " is invalid.  Please enter the full path where the product is to be installed.
Ex:  @OutDrive:\\@Subdir"
   @QString @qGetInstDirError1Title = "Error: Invalid path"
   @QString @qGetInstDirError2 = ": is an invalid drive.  The product cannot be installed on a removeable, non-existent, or unmounted network drive."
   @QString @qGetInstDirError2Title = "Error: Invalid drive"
   @QString @qGetInstDirError3 = ":\\ is invalid.  The product cannot be installed to the root directory."
   @QString @qGetInstDirError3Title = "Error: Root directory"
   @QString @qGetInstDirError4 = " is invalid.  The character ':' is not allowed in path names."
   @QString @qGetInstDirError4Title = "Error: Bad character"
   @QString @qGetInstDirError5Title = "Error: Invalid drive"
   @QString @qGetInstDirError5 = ": does not support long file names. This product must be installed on a file system which supports long file names."
   @QString @qGetInstDirError6Title = "Error: Long path"
   @QString @qGetInstDirError6 = "@qCRLF The install path must contain fewer than 28 characters."

   @QString @qGetInstDirErrorLogo = "bang"
   @QString @qGetInstDirCIDError = "The response file contains an invalid path entry."
   @QString @qGetInstDirSelectAnotherDrive = "Select another drive?"
   @QString @qGetInstDirDialogResultError = "Unknown dialog result"

   @QString @qCheckPathResultError = "Unknown CheckPath() result."

   //Text messages - GetInstallDir function
   @QString @qGetInstDirTitle = "Select the install directory"
   @QString @qGetInstDirHeader = "Please enter the full path of the install directories for the product."
   @QString @qGetInstDirDriveBox = ""
   @QString @qGetInstDirFreespace = "MB"
   @QString @qGetInstDirDriveList = ""


   //Text messages - CustomSelect function
   @QString @qCustomTitle = "Custom Feature Selection"
   @QString @qCustomText1 = "Please select the Custom Features to be installed"
   @QString @qCustomText2 = "Custom Text 2"

   @QString @qCustomError1 = "DEBUG INTERNAL: CustomSelect: Unexpected return value from Dialog12c"
   @QString @qCustomError2 = "DEBUG INTERNAL: CustomSelect: iDialogRes changing values"
   @QString @qCustomError3 = "DEBUG INTERNAL: CustomSelect: Illegal value for iCustomSelect"
   @QString @qCustomError4 = "DEBUG INTERNAL: CustomSelect: Illegal value for RadioButton Event"


   @QString @qInstallTypeTitle = "Install Type Selection"
   @QString @qInstallTypeText1 = "Please select the install type:"

   @QString @qInstallTypeError1 = "DEBUG INTERNAL: InstallType: Unexpected return value from Dialog3r"
   @QString @qInstallTypeError2 = "DEBUG INTERNAL: InstallType: iDialogRes changing values"
   @QString @qInstallTypeError3 = "DEBUG INTERNAL: InstallType: Illegal value for iInstallType"
   @QString @qInstallTypeError4 = "DEBUG INTERNAL: InstallType: Illegal value for RadioButton Event"
   @QString @qInstallTypeReqKB = "Total KB required: "

   //Text messages - GetInstallOptions function
//   @QString @qGetInstOpText = "Please select the options you would like installed"

   //Text messages - ConfirmInstall function
   @QString @qConfirmTitle  = "Confirm Installation"
   @QString @qConfirmText1  = "You are about to install.  Press Install to continue."
   @QString @qConfirmText2  = ""
   @QString @qConfirmText3  = "Install Type:"
   @QString @qConfirmText4  = "Install Directory:"
   @QString @qConfirmText5  = ""
   @QString @qConfirmText6  = ""
   @QString @qConfirmError1 = "DEBUG INTERNAL: Confirm: invalid dialog return code"
   @QString @qConfirmPaths    = "Install Paths:"
   @QString @qConfirmSpace    = "Space Required:"
   @QString @qConfirmType     = "Install Type:"
   @QString @qConfirmFeatures = "Selected Features:"

   @QString @qConfirmUpdateText1 = "You are about to update the files.  Press Install to continue."

   //Text messages - DisplayReadme function
//   @QString @qDisReadmeTitle = "Display readme"
//   @QString @qDisReadmeText  = "Do you want to view the readme file now?"
//

   //Text messages = DisplayGoodbye function
//   @QString @qDisGbyeSuccess = "@qProductName has been sucessfully installed to "
//   @QString @qDisGbyeTitle   = "Goodbye"

   //Text messages - icon reading
   @QString @qIconErrorDuplicateTitle       = "GetNextIconItem: Duplicate keyword '@lTitle' found in install.ini file"
   @QString @qIconErrorDuplicateFolder      = "GetNextIconItem: Duplicate keyword '@lFolder' found in install.ini file"
   @QString @qIconErrorDuplicateType        = "GetNextIconItem: Duplicate keyword '@lType' found in install.ini file"
   @QString @qIconErrorDuplicateExePath     = "GetNextIconItem: Duplicate keyword '@lExePath' found in install.ini file"
   @QString @qIconErrorDuplicateIconPath    = "GetNextIconItem: Duplicate keyword '@lIconPath' found in install.ini file"
   @QString @qIconErrorDuplicateIconNumber  = "GetNextIconItem: Duplicate keyword '@lIconNumber' found in install.ini file"
   @QString @qIconErrorDuplicateParameters  = "GetNextIconItem: Duplicate keyword '@lParameters' found in install.ini file"
   @QString @qIconErrorDuplicateWorkingDir  = "GetNextIconItem: Duplicate keyword '@lWorkingDir' found in install.ini file"
   @QString @qIconErrorDuplicateOS2ObjectID = "GetNextIconItem: Duplicate keyword '@lOS2ObjectID' found in install.ini file"
   @QString @qIconErrorDuplicateOS2ProgType = "GetNextIconItem: Duplicate keyword '@lOS2ProgType' found in install.ini file"
   @QString @qIconErrorDuplicateOption1     = "GetNextIconItem: Duplicate keyword '@lOption1'found in install.ini file"
   @QString @qIconErrorDuplicateOption2     = "GetNextIconItem: Duplicate keyword '@lOption2' found in install.ini file"
   @QString @qIconErrorDuplicateFeature     = "GetNextIconItem: Duplicate keyword '@lFeature' found in install.ini file"
   @QString @qIconErrorUnknownKeyword       = "GetNextIconItem: unknown keyword found in install.ini file"
   @QString @qIconErrorIncompleteItem       = "GetNextIconItem: incomplete icon item found in install.ini file"
   @QString @qIconErrorFileNotExist         = "DoIcon: file does not exist"

   //Text messages - envvar reading
   @QString @qEnvVarsErrorDuplicateName     = "GetNextEnvVarsItem: Duplicate keyword '@lName' found in install.ini file"
   @QString @qEnvVarsErrorDuplicateValue    = "GetNextEnvVarsItem: Duplicate keyword '@lValue'found in install.ini file"
   @QString @qEnvVarsErrorDuplicateMethod   = "GetNextEnvVarsItem: Duplicate keyword '@lMethod' found in install.ini file"
   @QString @qEnvVarsErrorDuplicateOldValue = "GetNextEnvVarsItem: Duplicate keyword '@lOldValue' found in install.ini file"
   @QString @qEnvVarsErrorDuplicateFeature = "GetNextEnvVarsItem: Duplicate keyword '@lFeature' found in install.ini file"
   @QString @qEnvVarsErrorUnknownKeyword    = "GetNextEnvVarsItem: unknown keyword found in install.ini file"
   @QString @qEnvVarsErrorIncompleteItem    = "GetNextEnvVarsItem: incomplete environment variable item found in install.ini file"
   @QString @qEnvVarsErrorFileNotExist      = "DoEnvVars: file does not exist"


   //Text messages - prodvar reading
   @QString @qProdVarsErrorDuplicateName     = "GetNextProdVarsItem: Duplicate keyword '@lName' found in install.ini file"
   @QString @qProdVarsErrorDuplicateValue    = "GetNextProdVarsItem: Duplicate keyword '@lValue'found in install.ini file"
   @QString @qProdVarsErrorDuplicateComponent = "GetNextProdVarsItem: Duplicate keyword '@lComponent' found in install.ini file"
   @QString @qProdVarsErrorDuplicateMethod   = "GetNextProdVarsItem: Duplicate keyword '@lMethod' found in install.ini file"
   @QString @qProdVarsErrorDuplicateOldValue = "GetNextProdVarsItem: Duplicate keyword '@lOldValue' found in install.ini file"
   @QString @qProdVarsErrorDuplicateFeature  = "GetNextProdVarsItem: Duplicate keyword '@lFeature' found in install.ini file"
   @QString @qProdVarsErrorUnknownKeyword     = "GetNextProdVarsItem: unknown keyword found in install.ini file"
   @QString @qProdVarsErrorIncompleteItem    = "GetNextProdVarsItem: incomplete environment variable item found in install.ini file"
   @QString @qProdVarsErrorFileNotExist      = "DoProdVars: file does not exist"

   //Text messages - utils
   @QString @qCueSectionErrorFileNotExist   = "CueSection: file does not exist"
   @QString @qCueSectionErrorSectionNull    = "CueSection: @@Section parameter is NULL"

   //Text messages - Ask
   @QString @qAskErrorShouldNotBeCalled     = "Ask: This function should not be called during a CID install"
   @QString @qAskErrorPushButtonNotSpecified= "Ask: Only one pushbutton label specified"

   //Text messages - Install.sys functions
   @QString @qInstallSysErrorWrite1 = "CreateInstallSys: cannot write to Install.sys"
   @QString @qInstallSysErrorWrite2 = "WritelnInstallSys: cannot write to Install.sys"
   @QString @qInstallSysErrorWrite3 = "AddSectionInstallSys: cannot write to Install.sys"
   @QString @qInstallSysErrorWrite4 = "AddNewline: cannot write to Install.sys"

   //Text messages - Readinfo
   @QString @qReadInfoErrorBadFilename = "ReadInfo: Internal Error: ReadInfo() cannot currently be used to read from this file.  Please modify ReadInfo for your purposes."

   //Text message - ReadConditional
   @QString @qErrorReadConditionalCondlNotExpected = "ReadConditional: Conditional expression found within a conditional block."
   @QString @qErrorReadConditionalEndCondlNotExpected = "ReadConditional: #Endif found outside of a conditional block."

   @QString @qInvalidOSError = "Invalid operating system. Please check system prerequisites."
   @QString @qInvalidDesktopItemType = "Invalid DeskTopItem Type"
   @QString @qInvalidInstallPath = "Invalid InstallPath"
   @QString @qCommandTypeError = "Cannot find System Command Processor."

   @QString @qRegCreateProdKeyError = "Cannot create the @qProductName product key in the Windows registry."
   @QString @qRegSetProdValueError = "Cannot create the product information value in the Windows registry."
   @QString @qRegWriteProdInfoError = "Cannot write product information data to the Windows registry."
   @QString @qRegCloseProdKeyError = "Cannot close the product key in the Windows registry."
   @QString @qRegCreateUninstallKeyError = "Cannot create the uninstall key in the Windows registry."
   @QString @qRegSetDisplayNameError = "Cannot create the DisplayName value in the Windows registry."
   @QString @qRegSetUninstallStringError = "Cannot create the UninstallString value in the Windows registry."
   @QString @qRegWriteUninstallInfoError = "Cannot write uninstall data to the Windows registry."
   @QString @qRegCloseUninstallKeyError = "Cannot close the uninstall key in the Windows registry."


   @QString @qSetEnvMessage = ""
   @QString @qSetEnvTypeHelpText = ""
   @QString @qSetEnvRBText2 = ""
   @QString @qSetEnvRBText3 = ""
   @QString @qSetEnvText = "Set environment variables"
//   @QString @qSetEnvTypeHelp3 = "Set environment variables for all users"
   @QString @qSetEnvTypeHelp3 = ""
//   @QString @qSetEnvTypeHelp2a = "Set environment variables for current user only"
   @QString @qSetEnvTypeHelp2a = ""
//   @QString @qSetEnvTypeHelp2  = "Set environment variables."
   @QString @qSetEnvTypeHelp2  = ""
//   @QString @qSetEnvTypeHelp1 = "Do not set any environment variables"
   @QString @qSetEnvTypeHelp1 = ""
   @QString @qSetForAllUsersText = "Set for all users"
   @QString @qSetForCurrentUserText = "Set only for current user"
   @QString @qBypassRBText = "Bypass"

   @QString @qSetBypassMessageNT = "You may set environment variables in the Windows NT registry or bypass this step."
   @QString @qSetBypassMessageWin95 = "You may set environment variables in Autoexec.bat or bypass this step."
   @QString @qSetBypassMessageOS2 = "You may set environment variables in Config.sys or bypass this step."
   @QString @qSetEnvBackupMessage = "Your configuration files will be backed up."
   @QString @qSetEnvBatMessage = "Even if you bypass this step, you can always run the 'SetEnv.bat' program to set environment variables for a C command line window."
   @QString @qSetEnvTitle = "Setup Environment Variables"

   @QString @qRegSetValueError = "Error Setting the Environment Variable value."
   @QString @qSetForAllUsersORNot = "Would you like to set the Environment variables for all users?"
   @QString @qSetEnvTypeError1 = "DEBUG INTERNAL: SetEnvironment: Illegal value for RadioButton Event"
   @QString @qRegOpenProdKeyError = "Cannot open the product key in the windows registry."
   @QString @qRegOpenEnvVarKeyError = "Cannot open the environment key in the Windows registry."

   @QString @qSetEnvVarMaxLengthWarning = " has exceeded the maximum length of @iSetEnvVarMaxLength characters.  You will have to fix this manually in "

   //Uninstall variables
   @QString @qUninstallTitle = "Uninstall"
   @QString @qUninstallText1 = "Press Uninstall to uninstall @qProductName."
   @QString @qUninstallText2 = "Uninstalling this product will delete everything from the product directory so it is recommended that you save anything you wish to keep that currently resides in this directory to a different directory."
   @QString @qUninstallText3 = "@qProductName has been successfully uninstalled."
   @QString @qUninstallOS2IDError = "UNINSTAL.DAT: Cannot get Product folder ID."

   @QString @qRemoveDirText1 = "Uninstall will now remove the directory"
   @QString @qRemoveDirText2 = "Everything from this directory will be removed."
   @QString @qRemoveDirText3 = "Would you like to remove this directory?"


   @QString @qAutoexecBatBackupMade = "@qAutoexecBatFile has been backed-up as "
   @QString @qConfigSysBackupMade = "@qConfigSysFile has been backed-up as "

   //Registry messages
   @QString @qRegDeleteProdVersionError = "Error deleting product version info in the Windows registry."
   @QString @qRegDeleteProdKeyError = "Error deleting product info key in the Windows registry."
   @QString @qRegDeleteProdSubKeyError = "Error deleting product info subkey in the Windows registry."
   @QString @qRegOpenCompanyKeyError = "Error opening company key in windows registry."
   @QString @qRegDeleteCompanyKeyError = "Error deleting company key in the Windows registry."
   @QString @qRegDeleteUninKeyError = "Error deleting product uninstall key in the Windows registry."
   @QString @qErrorProductNotInstalled =  "@qProductName has not been installed or cannot be found."
   @QString @qErrorAdminOnlyUninstall = "Only an Administrator may uninstall this product."
   @QString @qErrorInstallSysNotFound = "Cannot find the install information file:@qCRLF"
   @QString @qErrorInstallSysMustRemove = "If the directory listed is correct, you must select \"Remove product information\" from the previous screen, and then reinstall."
   @QString @qRegQueryValueError = "Error getting the value for"

   //odbc text messages
   @QString @qRegCreateODBCKeyError = "Error Creating the ODBC key in the Windows registry."
   @QString @qRegODBCKeyWriteError  = "Error Writing the ODBC key to the Windows registry."
   @QString @qRegODBCKeyCloseError  = "Error Closing the ODBC key in the Windows registry."
   @QString @qRegSetODBCValueError  = "Error Setting the ODBC value in the Windows registry."

   //Variables for SetPVars
   @QString @qRegCreateProdVarKeyError = "Error creating or opening the product variable key."
   @QString @qInvalidDataType = "Invalid data type specified for the product variable"

//   @QString @qDetInstDirText1 = "@qProductName has been detected on your system. You can either choose to enter the location of the product directory or remove @qProductName."
//   @QString @qDetInstDirText1 = "Either @qProductName has been detected on the system but the installation information is incomplete, or a command-line action has been specified and @qProductName has not been installed."
   @QString @qDetInstDirText1 = "Either @qProductName has NOT been installed on the system, or the installation information is incomplete."
   @QString @qDetInstDirText2 = ""
   @QString @qDetInstDirHelpText = ""
   @QString @qEnterInstDirRBText  = "Rebuild current installation"
   @QString @qRemoveProdRBText = "Remove product information and folder"

   @QString @qDetInstDirHelp1 = "Rebuild current installation. The environment and folder will be reset, and the product files will be recopied."
   @QString @qDetInstDirHelp2 = "Remove existing product information and folder.  The product files will not be deleted."
   @QString @qProdInfoRemovedTitle = "Product Information Removed"

   @QString @qProdInfoRemovedText = "@qProductName product information has been successfully removed."

   @QString @qGetProductDirTitle = "@qProductName"

   @QString @qGetProductDirText1 = "Please enter the product directory for @qProductName."
   @QString @qInstallActionsTitle = "@qProductName - Install Actions"

   @QString @qInstallActionsText1 = "Please select an option."
   @QString @qInstallActionsText2 = ""
   @QString @qInstallActionHelpText = ""
   @QString @qAddRBText = "Add features to your installation"
   @QString @qDeleteRBText = ""
   @QString @qUpdateRBText = "Update to a newer service level"
   @QString @qRebuildRBText = "Rebuild your installation"
   @QString @qUninstallRBText = "Uninstall the entire product"

   @QString @qInstallActionHelp1 = "Remove installed feature(s)."
   @QString @qInstallActionHelp2 = ""
   @QString @qInstallActionHelp3 = "Update product files."
   @QString @qInstallActionHelp4 = "Rebuild the product folder and environment, and reinstall the files."
   @QString @qInstallActionHelp5 = "Remove the product folder and environment, and delete the files."

   @QString @qErrorInvalidDriveNumber = "Invalid Number of Drives"
   @QString @qInsufficientSpaceText = ""
   @QString @qInsufficientSpaceText1 = "There is insufficient space available on drive"
   @QString @qInsufficientSpaceText2 = "Space Required:"
   @QString @qInsufficientSpaceText3 = "Space Available:"

   @QString @qRebuildDialogTitle = "@qProductName - Rebuild"
   @QString @qRebuildDialogText1 = "Please select a rebuild option."
   @QString @qRebuildDialogText2 = ""
   @QString @qRebuildDialogHelpText = ""
   @QString @qRebuildDesktopRBText = "Rebuild desktop folder and environment"
   @QString @qRebuildIfNewerRBText = "Partial product refresh: desktop and new files only"
   @QString @qRebuildAllRBText = "Complete product refresh"
   @QString @qRebuildDialogHelp1 = "Rebuild the desktop folder and environment."
   @QString @qRebuildDialogHelp2 = "Rebuild the desktop folder and environment, and reinstall all missing files, and files with a newer date."
   @QString @qRebuildDialogHelp3 = "Rebuild the desktop folder and environment, and reinstall all files."
   @QString @qErrorInvalidRebuildMode = "Invalid rebuild mode."
   @QString @qConfirmPathsTitle = "Confirm Install Paths"

   @QString @qConfirmPathsText1 = "Please confirm that the following product installation paths are correct. If they are not, please make the appropriate corrections."

   // Update text strings
   @QString @qProceedWithUpdateTitle = "Proceed with Update?"
   @QString @qProceedWithUpdateText1 = "The service level of the version of @qProductName you are applying is the same as the service level of the version of @qProductName on your system.  Do you wish to proceed?"
   @QString @qUpdateErrorOlderVersion = "The service level of the version of @qProductName you are applying is older than the version on your system. You cannot proceed."
   @QString @ProceedWithUpdateBadReturn = "ProceedWithUpdate: Unexpected return code from Ask"
   @QString @GetCurrentFixpakLevelCantOpenKey = "GetCurrentFixpakLevel: Fixpak level cannot be determined"

   // Add text strings
   @QString @qAddErrorOlderVersion = "The service level of the version of @qProductName you are applying is older than the version on your system. You cannot proceed."
   @QString @qAddErrorNewerVersion = "You cannot add new features until you update the features already installed.  Please select update from the previous dialog."
   @QString @qErrorReadingCustomFeatures = "Cannot retrieve previously set custom features from install information file. You must uninstall and reinstall this product."

   //Settemp message
   @QString @qSetTempError = "Cannot determine temporary directory. Please set the environment variable TEMP or TMP to a writeable directory and restart the install. "

   @QString @qSetTempError2_1 = "The directory pointed to by the TEMP environment variable does not exist.  Please create this directory, or reset the environment variable to a valid writeable directory, and restart the install.@qcrlf"
   @QString @qSetTempError2_2 = "The directory pointed to by the TMP environment variable does not exist.  Please create this directory, or reset the environment variable to a valid writeable directory, and restart the install.@qcrlf"

   @QString @qSetTempError3_1 = "The TEMP environment variable points to a file, not a directory.  Please reset this variable to a valid directory, and restart the install."
   @QString @qSetTempError3_2 = "The TMP environment variable points to a file, not a directory.  Please reset this variable to a valid directory, and restart the install."

   @QString @qSetTempError5_1 = "Could not create the file @qTempTextFile in the TEMP directory.  Please verify that the TEMP environment variable points to a valid writeable directory, and restart the install."
   @QString @qSetTempError5_2 = "Could not create the file @qTempTextFile in the TMP directory.  Please verify that the TMP environment variable points to a valid writeable directory, and restart the install."

   @Qstring @qSetTempError4_1 = "Could not delete the file or directory @qTempTextFile from the TEMP directory.  Please verify that the TEMP environment variable points to a valid writeable directory, delete the file or directory @qTempTextFile, and restart the install.@qcrlf"
   @Qstring @qSetTempError4_2 = "Could not delete the file or directory @qTempTextFile from the TMP directory.  Please verify that the TMP environment variable points to a valid writeable directory, delete the file or directory @qTempTextFile, and restart the install.@qcrlf"

   //Java message
   @QString @qAskReadInstallTxtTitle = ""
   @QString @qAskReadInstallTxtQu = ""

@EndVars
//
//
//
//File: Dialog /////////////////////////////////////
//
//CIDVars: None
//
//Globals changed: None
//
//@DefineProto
//   //SEE BELOW
//@EndProto
//
//
//
// Parameters:
//  All parameters to dialog box wrapper functions are in the same order,
//  but may not all be present
//          @In @QString @DialogTitle
//          @In @QString @Bitmap1Title
//          @In @QSTring @ST1Text, @In @QString @ST2Text, ...
//          @In @QString @RB1Text, @In @QString @RB2Text, ...
//          @In @QString @CB1Text, @In @QString @CB2Text, ...
//          @In @QString @PB1Text, @In @QString @PB2Text, ...
//          @InOut @Integer @RBSelected
//          @InOut @Integer @CB1Selected, @CB2Selected, ...
//          @InOut @QString @EF1, @InOut @QString @EF2, ...
//  The dialogs take parameters for each of their controls.  If a null string is
//  passed as a parameter, that control will be hidden in the DlgInitEvent handler.
//
// Return values:
//  The dialog functions return the button number (from 1 to n) of the button pressed,
//  where n is the number of buttons in the dialog. This is the button number
//  corresponding to the order of the strings passed in as button text, not the
//  resource id number.
//
//  The final parameter of dialogs with radio buttons, checkboxes, and edit fields is
//  both an input and an output parameter - as input it specifies the default value
//  of the field, as output it specifies the value which was specified in the dialog.
//  -For edit fields, the value is the text string which was in the field.
//  -For radio buttons, the value is the number of the radio button (based on the text
//  strings passed in.
//  -For check boxes, there is an input/output parameter for every checkbox, with the
//  value @TRUE or @FALSE.
//

@DefineProto

   //Small, message-type dialogs
   @Integer @MsgBox(@In @QString @ST1Text)

   @Integer @Message(@In @QString @DialogTitle,
            @In @QString @Bitmap1Title,  @In @Integer @Bitmap1ID,
            @In @QString @ST1Text,
            @In @QString @PB1Text, @In @QString @PB2Text)

   @Integer @Ask(@In @QString @DialogTitle,
            @In @QString @Bitmap1Title, @In @Integer @Bitmap1ID,
            @In @QString @ST1Text,
            @In @QString @PB1Text, @In @QString @PB2Text)

   @Integer @Dialog1s1p(@In @QString @DialogTitle,
            @In @QString @ST1Text,
            @In @QString @PB1Text)

   @Integer @Dialog1s2p(@In @QString @DialogTitle,
            @In @QString @ST1Text,
            @In @QString @PB1Text, @In @QString @PB2Text)

   @Integer @Dialog1b1s1p(@In @QString @DialogTitle,
            @In @QString @Bitmap1Title, @In @Integer @Bitmap1ID,
            @In @QString @ST1Text,
            @In @QString @PB1Text)

   @Integer @Dialog1b1s2p(@In @QString @DialogTitle,
            @In @QString @Bitmap1Title, @In @Integer @Bitmap1ID,
            @In @QString @ST1Text,
            @In @QString @PB1Text, @In @QString @PB2Text)

   //Large dialogs
   @Void @EventHandler @DialogTextInit(@Void)

   @Integer @DialogText(@In @QString @DialogTitle,
            @In @QString @Bitmap1Title, @In @Integer @Bitmap1ID,
            @In @QString @ST1Text, @In @QString @ST2Text, @In @QString @ST3Text,
            @In @QString @ST4Text, @In @QString @ST5Text, @In @QString @ST6Text,
            @In @QString @PB1Text, @In @QString @PB2Text, @In @QString @PB3Text,
            @In @QString @PB4Text, @In @QString @PB5Text)

   @Void @EventHandler @DialogBitmapInit(@Void)

   @Integer @DialogBitmap(@In @QString @DialogTitle,
            @In @QString @Bitmap1Title, @In @Integer @Bitmap1ID,
            @In @QString @PB1Text, @In @QString @PB2Text, @In @QString @PB3Text,
            @In @QString @PB4Text, @In @QString @PB5Text)

   //Sets magic variables @iRB1-6Disabled
   @Void @DialogRadioDisableRB(@In @Integer @RB1, @In @Integer @RB2,
            @In @Integer @RB3, @In @Integer @RB4,
            @In @Integer @RB5, @In @Integer @RB6)

   //Uses magic variables @iRB1-6Disabled
   @Void @EventHandler @DialogRadioInit(@Void)

   @Integer @DialogRadio(@In @QString @DialogTitle,
            @In @QString @Bitmap1Title, @In @Integer @Bitmap1ID,
            @In @QString @ST1Text, @In @QString @ST2Text, @In @QString @ST3Text,
            @In @QString @RB1Text, @In @QString @RB2Text, @In @QString @RB3Text,
            @In @QString @RB4Text, @In @QString @RB5Text, @In @QString @RB6Text,
            @In @QString @PB1Text, @In @QString @PB2Text, @In @QString @PB3Text,
            @In @QString @PB4Text, @In @QString @PB5Text,
            @InOut @Integer @RBSelected)

   @Void @EventHandler @DialogEditInit(@Void)

   @Integer @DialogEdit(@In @QString @DialogTitle,
            @In @QString @Bitmap1Title, @In @Integer @Bitmap1ID,
            @In @QString @ST1Text, @In @QString @ST2Text, @In @QString @ST3Text,
            @In @QString @ST4Text, @In @QString @ST5Text, @In @QString @ST6Text,
            @In @QString @ST7Text, @In @QString @ST8Text, @In @QString @ST9Text,
            @In @QString @ST10Text, @In @QString @ST11Text, @In @QString @ST12Text,
            @In @QString @PB1Text, @In @QString @PB2Text, @In @QString @PB3Text,
            @In @QString @PB4Text, @In @QString @PB5Text,
            @InOut @QString @EF1, @InOut @QString @EF2, @InOut @QString @EF3,
            @InOut @QString @EF4, @InOut @QString @EF5, @InOut @QString @EF6,
            @InOut @QString @EF7, @InOut @QString @EF8, @InOut @QString @EF9,
            @InOut @QString @EF10, @In @QString @RE1)

   @Void @EventHandler @Dialog1EditInit(@Void)

   @Integer @Dialog1Edit(@In @QString @DialogTitle,
            @In @QString @Bitmap1Title, @In @Integer @Bitmap1ID,
            @In @QString @ST1Text, @In @QString @ST2Text,
            @In @QString @ST3Text, @In @QString @ST4Text,
            @In @QString @ST5Text,
            @In @QString @PB1Text, @In @QString @PB2Text, @In @QString @PB3Text,
            @In @QString @PB4Text, @In @QString @PB5Text,
            @InOut @QString @EF1)

   @Void @EventHandler @DialogCheckInit(@Void)

   @Integer @DialogCheck(@In @QString @DialogTitle,
            @In @QString @Bitmap1Title, @In @Integer @Bitmap1ID,
            @In @QString @ST1Text, @In @QString @ST2Text,
            @In @QString @CB1Text, @In @QString @CB2Text, @In @QString @CB3Text,
            @In @QString @CB4Text, @In @QString @CB5Text, @In @QString @CB6Text,
            @In @QString @CB7Text, @In @QString @CB8Text, @In @QString @CB9Text,
            @In @QString @CB10Text, @In @QString @CB11Text, @In @QString @CB12Text,
            @In @QString @CB13Text, @In @QString @CB14Text, @In @QString @CB15Text,
            @In @QString @CB16Text,
            @InOut @Integer @CB1Selected, @InOut @Integer @CB2Selected,
            @InOut @Integer @CB3Selected, @InOut @Integer @CB4Selected,
            @InOut @Integer @CB5Selected, @InOut @Integer @CB6Selected,
            @InOut @Integer @CB7Selected, @InOut @Integer @CB8Selected,
            @InOut @Integer @CB9Selected, @InOut @Integer @CB10Selected,
            @InOut @Integer @CB11Selected, @InOut @Integer @CB12Selected,
            @InOut @Integer @CB13Selected, @InOut @Integer @CB14Selected,
            @InOut @Integer @CB15Selected, @InOut @Integer @CB16Selected,
            @InOut @Integer @CB1Enabled, @InOut @Integer @CB2Enabled,
            @InOut @Integer @CB3Enabled, @InOut @Integer @CB4Enabled,
            @InOut @Integer @CB5Enabled, @InOut @Integer @CB6Enabled,
            @InOut @Integer @CB7Enabled, @InOut @Integer @CB8Enabled,
            @InOut @Integer @CB9Enabled, @InOut @Integer @CB10Enabled,
            @InOut @Integer @CB11Enabled, @InOut @Integer @CB12Enabled,
            @InOut @Integer @CB13Enabled, @InOut @Integer @CB14Enabled,
            @InOut @Integer @CB15Enabled, @InOut @Integer @CB16Selected,
            @In @QString @PB1Text, @In @QString @PB2Text, @In @QString @PB3Text,
            @In @QString @PB4Text, @In @QString @PB5Text)

   @Void @EventHandler @Dialog2CBInit(@Void)

   @Integer @Dialog2CB(@In @QString @DialogTitle,
            @In @QString @Bitmap1Title, @In @Integer @Bitmap1ID,
            @In @QString @ST1Text, @In @QString @ST2Text,
            @In @QString @CB1Text, @In @QString @CB2Text,
            @InOut @Integer @CB1Selected, @InOut @Integer @CB2Selected,
            @InOut @Integer @CB1Enabled, @InOut @Integer @CB2Enabled,
            @In @QString @PB1Text, @In @QString @PB2Text, @In @QString @PB3Text,
            @In @QString @PB4Text, @In @QString @PB5Text)

   @Void @EventHandler @DialogReadOnlyInit(@Void)

   @Integer @DialogReadOnly(@In @QString @DialogTitle,
            @In @QString @ST1Text, @In @QString @ST2Text,
            @In @QString @RE1,
            @In @QString @PB1Text, @In @QString @PB2Text, @In @QString @PB3Text,
            @In @QString @PB4Text, @In @QString @PB5Text)

   @Void @EventHandler @DialogReadOnlyBmpInit(@Void)

   @Integer @DialogReadOnlyBmp(@In @QString @DialogTitle,
            @In @QString @Bitmap1Title, @In @Integer @Bitmap1ID,
            @In @QString @ST1Text, @In @QString @ST2Text,
            @In @QString @RE1,
            @In @QString @PB1Text, @In @QString @PB2Text, @In @QString @PB3Text,
            @In @QString @PB4Text, @In @QString @PB5Text)

@EndProto


//----------------------------------------------------------

//----------------------------------------------------------
@DefineFunc @Integer @MsgBox(@In @QString @ST1Text)

   @If (@CIDBypass(@qNo))
      @If (!@ShowallToggle)
         @Return(1)  //There is only one button to push in the dialog
      @EndIf
   @EndIf

   @Return (@Dialog1s1p(@lMessage, @ST1Text, @qOK))
@EndFunc

//----------------------------------------------------------
@DefineFunc @Integer @Message(@In @QString @DialogTitle,
            @In @QString @Bitmap1Title,  @In @Integer @Bitmap1ID,
            @In @QString @ST1Text,
            @In @QString @PB1Text, @In @QString @PB2Text)


   @If (@CIDBypass(@qNo))
      @If (!@ShowallToggle)
         @Return(0)  //No buttons have been pushed
      @EndIf
   @EndIf

   @If (@StrCmp(@DialogTitle, "") == 0)
      @DialogTitle = @lMessage
   @EndIf
   @If (@StrCmp(@Bitmap1Title, "") ==0)
      @If (@StrCmp(@PB2Text, "") == 0)
         @If (@StrCmp(@PB1Text, "") == 0)
            @PB1Text = @qOK
         @EndIf
         @Return (@Dialog1s1p(@DialogTitle,@St1Text,@PB1Text))
      @Else
         @Return (@Dialog1s2p(@DialogTitle,@St1Text,@PB1Text,@PB2Text))
      @EndIf
   @Else
      @If (@StrCmp(@PB2Text, "") == 0)
         @If (@StrCmp(@PB1Text, "") == 0)
            @PB1Text = @qOK
         @EndIf
         @Return (@Dialog1b1s1p(@DialogTitle,@Bitmap1Title,@Bitmap1ID,@St1Text,@PB1Text))
      @Else
         @Return (@Dialog1b1s2p(@DialogTitle,@Bitmap1Title,@Bitmap1ID,@St1Text,@PB1Text,@PB2Text))
      @EndIf
   @EndIf
   @Return(0)
@EndFunc

//------------------------------------------------------------
@DefineFunc @Integer @Ask(@In @QString @DialogTitle,
            @In @QString @Bitmap1Title, @In @Integer @Bitmap1ID,
            @In @QString @ST1Text,
            @In @QString @PB1Text, @In @QString @PB2Text)


   @If (@CIDBypass(@qNo))
         @ErrorExit(@qAskErrorShouldNotBeCalled,@iAbort)
   @EndIf

   @If (@StrCmp(@DialogTitle, "") == 0)
      @DialogTitle = @lQuestion
   @EndIf
   @If (@StrCmp(@Bitmap1Title, "") ==0)
      @If ((@StrCmp(@PB1Text,"") == 0) &&  (@StrCmp(@PB2Text, "") == 0))
         @PB1Text = @lYes
         @PB2Text = @lNo
      @ElseIf ((@StrCmp(@PB1Text,"") == 0) ||  (@StrCmp(@PB2Text, "") == 0))
         @ErrorExit(@qAskErrorPushButtonNotSpecified,@iAbort)
      @EndIf

      @Return (@Dialog1s2p(@DialogTitle,@St1Text,@PB1Text,@PB2Text))
   @Else
      @If ((@StrCmp(@PB1Text,"") == 0) &&  (@StrCmp(@PB2Text, "") == 0))
         @PB1Text = @lYes
         @PB2Text = @lNo
      @ElseIf ((@StrCmp(@PB1Text,"") == 0) ||  (@StrCmp(@PB2Text, "") == 0))
         @ErrorExit(@qAskErrorPushButtonNotSpecified,@iAbort)
      @EndIf
      @Return (@Dialog1b1s2p(@DialogTitle,@Bitmap1Title,@Bitmap1ID,@St1Text,@PB1Text,@PB2Text))
   @EndIf
   @Return(0)   //This return statement is just because the language needs one
                //on the last line of a function
@EndFunc

//----------------------------------------------------------
@DefineFunc @Integer @Dialog1s1p(@In @QString @DialogTitle,
                                   @In @QString @ST1Text,
                                   @In @QString @PB1Text)


   @BeginWinDialog("Dialog1s1p","@DialogTitle", 10001)

      @StaticText(310, "@ST1Text")

      @Button(100, "@PB1Text")

   @ExecuteDialog

      @iRetVal = 1

   @EndWinDialog



   @Return (@iRetVal)
@EndFunc

//----------------------------------------------------------
@DefineFunc @Integer @Dialog1s2p(@In @QString @DialogTitle,
                                   @In @QString @ST1Text,
                                   @In @QString @PB1Text,
                                   @In @QString @PB2Text)

   @BeginWinDialog("Dialog1s2p","@DialogTitle", 11002)

      @StaticText(310, "@ST1Text")

      @Button(100, "@PB1Text")
      @Button(110, "@PB2Text")

   @ExecuteDialog

      @If (@Button(100))
         @iRetVal = 1
      @Else
         @iRetVal = 2
      @EndIf

   @EndWinDialog



   @Return (@iRetVal)
@EndFunc


//----------------------------------------------------------

@DefineFunc @Integer @Dialog1b1s1p(@In @QString @DialogTitle,
            @In @QString @Bitmap1Title, @In @Integer @Bitmap1ID,
            @In @QString @ST1Text,
            @In @QString @PB1Text)

   @BeginWinDialog("Dialog1b1s1p",@DialogTitle,10011)

      @Bitmap(200, "@Bitmap1Title", @Bitmap1ID)

      @StaticText(310, "@ST1Text")

      @Button(100, "@PB1Text")

   @ExecuteDialog

      @iRetVal = 1

   @EndWinDialog

   @Return (@iRetVal)
@EndFunc

//----------------------------------------------------------

@DefineFunc @Integer @Dialog1b1s2p(@In @QString @DialogTitle,
            @In @QString @Bitmap1Title, @In @Integer @Bitmap1ID,
            @In @QString @ST1Text,
            @In @QString @PB1Text, @In @QString @PB2Text)

   @BeginWinDialog("Dialog1b1s2p","@DialogTitle",11012)

      @Bitmap(200, "@Bitmap1Title", @Bitmap1ID)

      @StaticText(310, "@ST1Text")

      @Button(100, "@PB1Text")
      @Button(110, "@PB2Text")

   @ExecuteDialog

      @If (@Button(100))
         @iRetVal = 1
      @Else
         @iRetVal = 2
      @EndIf

   @EndWinDialog


   @Return (@iRetVal)
@EndFunc



//----------------------------------------------------------
@DefineFunc @Void @EventHandler @DialogTextInit(@Void)

   @DlgCtrlShow(500,!((@StrCmp(@ST5Text, "") == 0) &&
                      (@StrCmp(@ST6Text, "") == 0)))
   @DlgCtrlShow(100,(@StrCmp(@PB1Text, "") != 0))
   @DlgCtrlShow(110,(@StrCmp(@PB2Text, "") != 0))
   @DlgCtrlShow(120,(@StrCmp(@PB3Text, "") != 0))
   @DlgCtrlShow(130,(@StrCmp(@PB4Text, "") != 0))
   @DlgCtrlShow(140,(@StrCmp(@PB5Text, "") != 0))

   @Return()
@EndFunc

//----------------------------------------------------------
@DefineFunc @Integer @DialogText(@In @QString @DialogTitle,
            @In @QString @Bitmap1Title, @In @Integer @Bitmap1ID,
            @In @QString @ST1Text, @In @QString @ST2Text, @In @QString @ST3Text,
            @In @QString @ST4Text, @In @QString @ST5Text, @In @QString @ST6Text,
            @In @QString @PB1Text, @In @QString @PB2Text, @In @QString @PB3Text,
            @In @QString @PB4Text, @In @QString @PB5Text)

   @MapEventToFunc(@DlgInitEvent, @DialogTextInit)
   @EnableEventMap(@DlgInitEvent)

   @BeginWinDialog("DialogText","@DialogTitle",8000)
      @StaticText(310, "@ST1Text@qCRLF@qCRLF@ST2Text@qCRLF@qCRLF@ST3Text@qCRLF@qCRLF@ST4Text")

      @StaticText(510, "@ST5Text@qCRLF@qCRLF@ST6Text")

      @Button(100, "@PB1Text")
      @Button(110, "@PB2Text")
      @Button(120, "@PB3Text")
      @Button(130, "@PB4Text")
      @Button(140, "@PB5Text")

      @Bitmap(200, "@Bitmap1Title", @Bitmap1ID)

   @ExecuteDialog
      @If (@Button(100))
         @iRetVal = 1
      @ElseIf (@Button(110))
         @iRetVal = 2
      @ElseIf (@Button(120))
         @iRetVal = 3
      @ElseIf (@Button(130))
         @iRetVal = 4
      @ElseIf (@Button(140))
         @iRetVal = 5
      @Else
         @iRetVal = 6
      @EndIf

   @EndWinDialog

   @DisableEventMap(@DlgInitEvent)

   @Return (@iRetVal)
@EndFunc

//----------------------------------------------------------
@DefineFunc @Void @EventHandler @DialogBitmapInit(@Void)

   @DlgCtrlShow(100,(@StrCmp(@PB1Text, "") != 0))
   @DlgCtrlShow(110,(@StrCmp(@PB2Text, "") != 0))
   @DlgCtrlShow(120,(@StrCmp(@PB3Text, "") != 0))
   @DlgCtrlShow(130,(@StrCmp(@PB4Text, "") != 0))
   @DlgCtrlShow(140,(@StrCmp(@PB5Text, "") != 0))

   @Return()
@EndFunc

@DefineFunc @Integer @DialogBitmap(@In @QString @DialogTitle,
            @In @QString @Bitmap1Title, @In @Integer @Bitmap1ID,
            @In @QString @PB1Text, @In @QString @PB2Text, @In @QString @PB3Text,
            @In @QString @PB4Text, @In @QString @PB5Text)


   @MapEventToFunc(@DlgInitEvent, @DialogBitmapInit)
   @EnableEventMap(@DlgInitEvent)
   @BeginWinDialog("ProdLogo","@DialogTitle",8900)

      @Button(100, "@PB1Text")
      @Button(110, "@PB2Text")
      @Button(120, "@PB3Text")
      @Button(130, "@PB4Text")
      @Button(140, "@PB5Text")

      @Bitmap(200, "@Bitmap1Title", @Bitmap1ID)

   @ExecuteDialog
      @If (@Button(100))
         @iRetVal = 1
      @ElseIf (@Button(110))
         @iRetVal = 2
      @ElseIf (@Button(120))
         @iRetVal = 3
      @ElseIf (@Button(130))
         @iRetVal = 4
      @ElseIf (@Button(140))
         @iRetVal = 5
      @Else
         @iRetVal = 6
      @EndIf
   @EndWinDialog

   @DisableEventMap(@DlgInitEvent)

   @Return (@iRetVal)
@EndFunc

//----------------------------------------------------------
@DefineFunc @Void @DialogRadioDisableRB(@In @Integer @RB1, @In @Integer @RB2,
            @In @Integer @RB3, @In @Integer @RB4,
            @In @Integer @RB5, @In @Integer @RB6)

   @iRB1Disabled = @RB1
   @iRB2Disabled = @RB2
   @iRB3Disabled = @RB3
   @iRB4Disabled = @RB4
   @iRB5Disabled = @RB5
   @iRB6Disabled = @RB6

   @Return()
@EndFunc

//----------------------------------------------------------
@DefineFunc @Void @EventHandler @DialogRadioInit(@Void)

   @DlgCtrlShow(500,!((@StrCmp(@ST2Text, "") == 0) &&
                      (@StrCmp(@ST3Text, "") == 0)))
   @DlgCtrlShow(1410,(@StrCmp(@RB1Text, "") != 0))
   @DlgCtrlShow(1420,(@StrCmp(@RB2Text, "") != 0))
   @DlgCtrlShow(1430,(@StrCmp(@RB3Text, "") != 0))
   @DlgCtrlShow(1440,(@StrCmp(@RB4Text, "") != 0))
   @DlgCtrlShow(1450,(@StrCmp(@RB5Text, "") != 0))
   @DlgCtrlShow(1460,(@StrCmp(@RB6Text, "") != 0))
   @DlgCtrlShow(100,(@StrCmp(@PB1Text, "") != 0))
   @DlgCtrlShow(110,(@StrCmp(@PB2Text, "") != 0))
   @DlgCtrlShow(120,(@StrCmp(@PB3Text, "") != 0))
   @DlgCtrlShow(130,(@StrCmp(@PB4Text, "") != 0))
   @DlgCtrlShow(140,(@StrCmp(@PB5Text, "") != 0))

   @DlgCtrlEnable(1410,!@iRB1Disabled)
   @DlgCtrlEnable(1420,!@iRB2Disabled)
   @DlgCtrlEnable(1430,!@iRB3Disabled)
   @DlgCtrlEnable(1440,!@iRB4Disabled)
   @DlgCtrlEnable(1450,!@iRB5Disabled)
   @DlgCtrlEnable(1460,!@iRB6Disabled)

   @Return()
@EndFunc


//----------------------------------------------------------
@DefineFunc @Integer @DialogRadio(@In @QString @DialogTitle,
            @In @QString @Bitmap1Title, @In @Integer @Bitmap1ID,
            @In @QString @ST1Text, @In @QString @ST2Text, @In @QString @ST3Text,
            @In @QString @RB1Text, @In @QString @RB2Text, @In @QString @RB3Text,
            @In @QString @RB4Text, @In @QString @RB5Text, @In @QString @RB6Text,
            @In @QString @PB1Text, @In @QString @PB2Text, @In @QString @PB3Text,
            @In @QString @PB4Text, @In @QString @PB5Text,
            @InOut @Integer @RBSelected)

   @MapEventToFunc(@DlgInitEvent, @DialogRadioInit)
   @EnableEventMap(@DlgInitEvent)

   @BeginWinDialog("DialogRadio","@DialogTitle",8100)

      @StaticText(310, "@ST1Text")
      @StaticText(510, "@ST2Text@qCRLF@qCRLF@ST3Text")

      @RBRange(1410,1460)
      @RB(1410,"@RB1Text",@Eval(@RBSelected == 1))
      @RB(1420,"@RB2Text",@Eval(@RBSelected == 2))
      @RB(1430,"@RB3Text",@Eval(@RBSelected == 3))
      @RB(1440,"@RB4Text",@Eval(@RBSelected == 4))
      @RB(1450,"@RB5Text",@Eval(@RBSelected == 5))
      @RB(1460,"@RB6Text",@Eval(@RBSelected == 6))

      @Button(100, "@PB1Text")
      @Button(110, "@PB2Text")
      @Button(120, "@PB3Text")
      @Button(130, "@PB4Text")
      @Button(140, "@PB5Text")

      @Bitmap(200, "@Bitmap1Title", @Bitmap1ID)


   @ExecuteDialog

      @RBSelected = @RBRange(1410)
      @If (@RBSelected == 1410)
         @RBSelected = 1
      @ElseIf (@RBSelected == 1420)
         @RBSelected = 2
      @ElseIf (@RBSelected == 1430)
         @RBSelected = 3
      @ElseIf (@RBSelected == 1440)
         @RBSelected = 4
      @ElseIf (@RBSelected == 1450)
         @RBSelected = 5
      @Else
        @RBSelected = 6
      @EndIf

      @If (@Button(100))
         @iRetVal = 1
      @ElseIf (@Button(110))
         @iRetVal = 2
      @ElseIf (@Button(120))
         @iRetVal = 3
      @ElseIf (@Button(130))
         @iRetVal = 4
      @ElseIf (@Button(140))
         @iRetVal = 5
      @Else
         @iRetVal = 6
      @EndIf

   @EndWinDialog

   @DisableEventMap(@DlgInitEvent)
   @Return (@iRetVal)
@EndFunc



//----------------------------------------------------------
@DefineFunc @Void @EventHandler @DialogEditInit(@Void)

   @DlgCtrlShow(500,(@StrCmp(@ST12Text, "") != 0))

   //hide the static text controls - necessary?
   @DlgCtrlShow(410,(@StrCmp(@ST2Text, "") != 0))
   @DlgCtrlShow(420,(@StrCmp(@ST3Text, "") != 0))
   @DlgCtrlShow(430,(@StrCmp(@ST4Text, "") != 0))
   @DlgCtrlShow(440,(@StrCmp(@ST5Text, "") != 0))
   @DlgCtrlShow(450,(@StrCmp(@ST6Text, "") != 0))
   @DlgCtrlShow(460,(@StrCmp(@ST7Text, "") != 0))
   @DlgCtrlShow(470,(@StrCmp(@ST8Text, "") != 0))
   @DlgCtrlShow(480,(@StrCmp(@ST9Text, "") != 0))
   @DlgCtrlShow(490,(@StrCmp(@ST10Text, "") != 0))
   @DlgCtrlShow(800,(@StrCmp(@ST11Text, "") != 0))

   //hide the edit fields
   @DlgCtrlShow(1410,(@StrCmp(@ST2Text, "") != 0))
   @DlgCtrlShow(1420,(@StrCmp(@ST3Text, "") != 0))
   @DlgCtrlShow(1430,(@StrCmp(@ST4Text, "") != 0))
   @DlgCtrlShow(1440,(@StrCmp(@ST5Text, "") != 0))
   @DlgCtrlShow(1450,(@StrCmp(@ST6Text, "") != 0))
   @DlgCtrlShow(1460,(@StrCmp(@ST7Text, "") != 0))
   @DlgCtrlShow(1470,(@StrCmp(@ST8Text, "") != 0))
   @DlgCtrlShow(1480,(@StrCmp(@ST9Text, "") != 0))
   @DlgCtrlShow(1490,(@StrCmp(@ST10Text, "") != 0))
   @DlgCtrlShow(1800,(@StrCmp(@ST11Text, "") != 0))

   //hide the read-only edit field
   @DlgCtrlShow(1610,(@StrCmp(@RE1,"") != 0))

   @DlgCtrlShow(100,(@StrCmp(@PB1Text, "") != 0))
   @DlgCtrlShow(110,(@StrCmp(@PB2Text, "") != 0))
   @DlgCtrlShow(120,(@StrCmp(@PB3Text, "") != 0))
   @DlgCtrlShow(130,(@StrCmp(@PB4Text, "") != 0))
   @DlgCtrlShow(140,(@StrCmp(@PB5Text, "") != 0))

   @Return()
@EndFunc


//----------------------------------------------------------
@DefineFunc @Integer @DialogEdit(@In @QString @DialogTitle,
            @In @QString @Bitmap1Title, @In @Integer @Bitmap1ID,
            @In @QString @ST1Text, @In @QString @ST2Text, @In @QString @ST3Text,
            @In @QString @ST4Text, @In @QString @ST5Text, @In @QString @ST6Text,
            @In @QString @ST7Text, @In @QString @ST8Text, @In @QString @ST9Text,
            @In @QString @ST10Text, @In @QString @ST11Text, @In @QString @ST12Text,
            @In @QString @PB1Text, @In @QString @PB2Text, @In @QString @PB3Text,
            @In @QString @PB4Text, @In @QString @PB5Text,
            @InOut @QString @EF1, @InOut @QString @EF2, @InOut @QString @EF3,
            @InOut @QString @EF4, @InOut @QString @EF5, @InOut @QString @EF6,
            @InOut @QString @EF7, @InOut @QString @EF8, @InOut @QString @EF9,
            @InOut @QString @EF10, @In @QString @RE1)

   @MapEventToFunc(@DlgInitEvent, @DialogEditInit)
   @EnableEventMap(@DlgInitEvent)

   @BeginWinDialog("DialogEdit","@DialogTitle",8400)
      @Bitmap(200, "@Bitmap1Title", @Bitmap1ID)

      @StaticText(310, "@ST1Text")
      @StaticText(410, "@ST2Text")
      @StaticText(420, "@ST3Text")
      @StaticText(430, "@ST4Text")
      @StaticText(440, "@ST5Text")
      @StaticText(450, "@ST6Text")
      @StaticText(460, "@ST7Text")
      @StaticText(470, "@ST8Text")
      @StaticText(480, "@ST9Text")
      @StaticText(490, "@ST10Text")
      @StaticText(800, "@ST11Text")
      @StaticText(510, "@ST12Text")

      @EditBox(1410, "@EF1")
      @EditBox(1420, "@EF2")
      @EditBox(1430, "@EF3")
      @EditBox(1440, "@EF4")
      @EditBox(1450, "@EF5")
      @EditBox(1460, "@EF6")
      @EditBox(1470, "@EF7")
      @EditBox(1480, "@EF8")
      @EditBox(1490, "@EF9")
      @EditBox(1800, "@EF10")

//      @EditBox(1610, "@RE1")
      @StaticText(1610, "@RE1")

      @Button(100, "@PB1Text")
      @Button(110, "@PB2Text")
      @Button(120, "@PB3Text")
      @Button(130, "@PB4Text")
      @Button(140, "@PB5Text")

   @ExecuteDialog

      @EF1 = "@EditBox(1410)"
      @EF2 = "@EditBox(1420)"
      @EF3 = "@EditBox(1430)"
      @EF4 = "@EditBox(1440)"
      @EF5 = "@EditBox(1450)"
      @EF6 = "@EditBox(1460)"
      @EF7 = "@EditBox(1470)"
      @EF8 = "@EditBox(1480)"
      @EF9 = "@EditBox(1490)"
      @EF10 = "@EditBox(1800)"

      @If (@Button(100))
         @iRetVal = 1
      @ElseIf (@Button(110))
         @iRetVal = 2
      @ElseIf (@Button(120))
         @iRetVal = 3
      @ElseIf (@Button(130))
         @iRetVal = 4
      @ElseIf (@Button(140))
         @iRetVal = 5
      @Else
         @iRetVal = 6
      @EndIf

   @EndWinDialog

   @DisableEventMap(@DlgInitEvent)

   @Return (@iRetVal)
@EndFunc

//----------------------------------------------------------
@DefineFunc @Void @EventHandler @Dialog1EditInit(@Void)

//   @DlgCtrlShow(500,((@StrCmp(@ST2Text, "") != 0) || (@StrCmp(@ST3Text, "") != 0) || (@StrCmp(@ST4Text, "") != 0) || (@StrCmp(@ST5Text, "") != 0)))

   @DlgCtrlShow(100,(@StrCmp(@PB1Text, "") != 0))
   @DlgCtrlShow(110,(@StrCmp(@PB2Text, "") != 0))
   @DlgCtrlShow(120,(@StrCmp(@PB3Text, "") != 0))
   @DlgCtrlShow(130,(@StrCmp(@PB4Text, "") != 0))
   @DlgCtrlShow(140,(@StrCmp(@PB5Text, "") != 0))

   @Return()


@EndFunc
//----------------------------------------------------------
@DefineFunc @Integer @Dialog1Edit(@In @QString @DialogTitle,
            @In @QString @Bitmap1Title, @In @Integer @Bitmap1ID,
            @In @QString @ST1Text, @In @QString @ST2Text,
            @In @QString @ST3Text, @In @QString @ST4Text,
            @In @QString @ST5Text,
            @In @QString @PB1Text, @In @QString @PB2Text, @In @QString @PB3Text,
            @In @QString @PB4Text, @In @QString @PB5Text,
            @InOut @QString @EF1)

   @MapEventToFunc(@DlgInitEvent, @Dialog1EditInit)
   @EnableEventMap(@DlgInitEvent)

   @BeginWinDialog("DialogDirJava","@DialogTitle",8700)
      @Bitmap(200, "@Bitmap1Title", @Bitmap1ID)

      @StaticText(310, "@ST1Text")
      @StaticText(510, "@ST2Text")
      @StaticText(520, "@ST3Text")
      @StaticText(530, "@ST4Text")
      @StaticText(540, "@ST5Text")

      @EditBox(1410, "@EF1")

      @Button(100, "@PB1Text")
      @Button(110, "@PB2Text")
      @Button(120, "@PB3Text")
      @Button(130, "@PB4Text")
      @Button(140, "@PB5Text")

   @ExecuteDialog

      @EF1 = "@EditBox(1410)"

      @If (@Button(100))
         @iRetVal = 1
      @ElseIf (@Button(110))
         @iRetVal = 2
      @ElseIf (@Button(120))
         @iRetVal = 3
      @ElseIf (@Button(130))
         @iRetVal = 4
      @ElseIf (@Button(140))
         @iRetVal = 5
      @Else
         @iRetVal = 6
      @EndIf

   @EndWinDialog

   @DisableEventMap(@DlgInitEvent)

   @Return (@iRetVal)

@EndFunc

//----------------------------------------------------------
@DefineFunc @Void @EventHandler @DialogCheckInit(@Void)

   @DlgCtrlShow(500,(@StrCmp(@ST2Text, "") != 0))

   @DlgCtrlShow(1000,(@StrCmp(@CB1Text, "") != 0))
   @DlgCtrlShow(1001,(@StrCmp(@CB2Text, "") != 0))
   @DlgCtrlShow(1002,(@StrCmp(@CB3Text, "") != 0))
   @DlgCtrlShow(1003,(@StrCmp(@CB4Text, "") != 0))
   @DlgCtrlShow(1004,(@StrCmp(@CB5Text, "") != 0))
   @DlgCtrlShow(1005,(@StrCmp(@CB6Text, "") != 0))
   @DlgCtrlShow(1006,(@StrCmp(@CB7Text, "") != 0))
   @DlgCtrlShow(1007,(@StrCmp(@CB8Text, "") != 0))
   @DlgCtrlShow(1008,(@StrCmp(@CB9Text, "") != 0))
   @DlgCtrlShow(1009,(@StrCmp(@CB10Text, "") != 0))
   @DlgCtrlShow(1010,(@StrCmp(@CB11Text, "") != 0))
   @DlgCtrlShow(1011,(@StrCmp(@CB12Text, "") != 0))
   @DlgCtrlShow(1012,(@StrCmp(@CB13Text, "") != 0))
   @DlgCtrlShow(1013,(@StrCmp(@CB14Text, "") != 0))
   @DlgCtrlShow(1014,(@StrCmp(@CB15Text, "") != 0))
   @DlgCtrlShow(1015,(@StrCmp(@CB16Text, "") != 0))
   @DlgCtrlEnable(110, (@CB1Selected || @CB2Selected || @CB3Selected || @CB4Selected || @CB5Selected || @CB6Selected || @CB7Selected || @CB8Selected || @CB9Selected || @CB10Selected || @CB11Selected || @CB12Selected || @CB13Selected || @CB14Selected || @CB15Selected || @CB16Selected))

   @DlgCtrlEnable(1000,@CB1Enabled)
   @DlgCtrlEnable(1001,@CB2Enabled)
   @DlgCtrlEnable(1002,@CB3Enabled)
   @DlgCtrlEnable(1003,@CB4Enabled)
   @DlgCtrlEnable(1004,@CB5Enabled)
   @DlgCtrlEnable(1005,@CB6Enabled)
   @DlgCtrlEnable(1006,@CB7Enabled)
   @DlgCtrlEnable(1007,@CB8Enabled)
   @DlgCtrlEnable(1008,@CB9Enabled)
   @DlgCtrlEnable(1009,@CB10Enabled)
   @DlgCtrlEnable(1010,@CB11Enabled)
   @DlgCtrlEnable(1011,@CB12Enabled)
   @DlgCtrlEnable(1012,@CB13Enabled)
   @DlgCtrlEnable(1013,@CB14Enabled)
   @DlgCtrlEnable(1014,@CB15Enabled)
   @DlgCtrlEnable(1015,@CB16Enabled)

   @DlgCtrlShow(100,(@StrCmp(@PB1Text, "") != 0))
   @DlgCtrlShow(110,(@StrCmp(@PB2Text, "") != 0))
   @DlgCtrlShow(120,(@StrCmp(@PB3Text, "") != 0))
   @DlgCtrlShow(130,(@StrCmp(@PB4Text, "") != 0))
   @DlgCtrlShow(140,(@StrCmp(@PB5Text, "") != 0))

   @Return()
@EndFunc

//----------------------------------------------------------
@DefineFunc @Integer @DialogCheck(@In @QString @DialogTitle,
            @In @QString @Bitmap1Title, @In @Integer @Bitmap1ID,
            @In @QString @ST1Text, @In @QString @ST2Text,
            @In @QString @CB1Text, @In @QString @CB2Text, @In @QString @CB3Text,
            @In @QString @CB4Text, @In @QString @CB5Text, @In @QString @CB6Text,
            @In @QString @CB7Text, @In @QString @CB8Text, @In @QString @CB9Text,
            @In @QString @CB10Text, @In @QString @CB11Text, @In @QString @CB12Text,
            @In @QString @CB13Text, @In @QString @CB14Text, @In @QString @CB15Text,
            @In @QString @CB16Text,
            @InOut @Integer @CB1Selected, @InOut @Integer @CB2Selected,
            @InOut @Integer @CB3Selected, @InOut @Integer @CB4Selected,
            @InOut @Integer @CB5Selected, @InOut @Integer @CB6Selected,
            @InOut @Integer @CB7Selected, @InOut @Integer @CB8Selected,
            @InOut @Integer @CB9Selected, @InOut @Integer @CB10Selected,
            @InOut @Integer @CB11Selected, @InOut @Integer @CB12Selected,
            @InOut @Integer @CB13Selected, @InOut @Integer @CB14Selected,
            @InOut @Integer @CB15Selected, @InOut @Integer @CB16Selected,
            @InOut @Integer @CB1Enabled, @InOut @Integer @CB2Enabled,
            @InOut @Integer @CB3Enabled, @InOut @Integer @CB4Enabled,
            @InOut @Integer @CB5Enabled, @InOut @Integer @CB6Enabled,
            @InOut @Integer @CB7Enabled, @InOut @Integer @CB8Enabled,
            @InOut @Integer @CB9Enabled, @InOut @Integer @CB10Enabled,
            @InOut @Integer @CB11Enabled, @InOut @Integer @CB12Enabled,
            @InOut @Integer @CB13Enabled, @InOut @Integer @CB14Enabled,
            @InOut @Integer @CB15Enabled, @InOut @Integer @CB16Enabled,
            @In @QString @PB1Text, @In @QString @PB2Text, @In @QString @PB3Text,
            @In @QString @PB4Text, @In @QString @PB5Text)

   @MapEventToFunc(@DlgInitEvent, @DialogCheckInit)
   @EnableEventMap(@DlgInitEvent)

   @BeginWinDialog("DialogCheck","@DialogTitle",8200)
      @StaticText(310, "@ST1Text")
      @StaticText(510, "@ST2Text")

      @CB(1000, "@CB1Text", @CB1Selected)
      @CB(1001, "@CB2Text", @CB2Selected)
      @CB(1002, "@CB3Text", @CB3Selected)
      @CB(1003, "@CB4Text", @CB4Selected)
      @CB(1004, "@CB5Text", @CB5Selected)
      @CB(1005, "@CB6Text", @CB6Selected)
      @CB(1006, "@CB7Text", @CB7Selected)
      @CB(1007, "@CB8Text", @CB8Selected)
      @CB(1008, "@CB9Text", @CB9Selected)
      @CB(1009, "@CB10Text", @CB10Selected)
      @CB(1010, "@CB11Text", @CB11Selected)
      @CB(1011, "@CB12Text", @CB12Selected)
      @CB(1012, "@CB13Text", @CB13Selected)
      @CB(1013, "@CB14Text", @CB14Selected)
      @CB(1014, "@CB15Text", @CB15Selected)
      @CB(1015, "@CB16Text", @CB16Selected)

      @Button(100, "@PB1Text")
      @Button(110, "@PB2Text")
      @Button(120, "@PB3Text")
      @Button(130, "@PB4Text")
      @Button(140, "@PB5Text")

      @Bitmap(200, "@Bitmap1Title", @Bitmap1ID)

   @ExecuteDialog

      @If (@CB(1000)) @CB1Selected = @TRUE @Else @CB1Selected = @FALSE @Endif
      @If (@CB(1001)) @CB2Selected = @TRUE @Else @CB2Selected = @FALSE @Endif
      @If (@CB(1002)) @CB3Selected = @TRUE @Else @CB3Selected = @FALSE @Endif
      @If (@CB(1003)) @CB4Selected = @TRUE @Else @CB4Selected = @FALSE @Endif
      @If (@CB(1004)) @CB5Selected = @TRUE @Else @CB5Selected = @FALSE @Endif
      @If (@CB(1005)) @CB6Selected = @TRUE @Else @CB6Selected = @FALSE @Endif
      @If (@CB(1006)) @CB7Selected = @TRUE @Else @CB7Selected = @FALSE @Endif
      @If (@CB(1007)) @CB8Selected = @TRUE @Else @CB8Selected = @FALSE @Endif
      @If (@CB(1008)) @CB9Selected = @TRUE @Else @CB9Selected = @FALSE @Endif
      @If (@CB(1009)) @CB10Selected = @TRUE @Else @CB10Selected = @FALSE @Endif
      @If (@CB(1010)) @CB11Selected = @TRUE @Else @CB11Selected = @FALSE @Endif
      @If (@CB(1011)) @CB12Selected = @TRUE @Else @CB12Selected = @FALSE @Endif
      @If (@CB(1012)) @CB13Selected = @TRUE @Else @CB13Selected = @FALSE @Endif
      @If (@CB(1013)) @CB14Selected = @TRUE @Else @CB14Selected = @FALSE @Endif
      @If (@CB(1014)) @CB15Selected = @TRUE @Else @CB15Selected = @FALSE @Endif
      @If (@CB(1015)) @CB16Selected = @TRUE @Else @CB16Selected = @FALSE @Endif

      @If (@Button(100))
         @iRetVal = 1
      @ElseIf (@Button(110))
         @iRetVal = 2
      @ElseIf (@Button(120))
         @iRetVal = 3
      @ElseIf (@Button(130))
         @iRetVal = 4
      @ElseIf (@Button(140))
         @iRetVal = 5
      @Else
         @iRetVal = 6
      @EndIf

   @EndWinDialog

   @DisableEventMap(@DlgInitEvent)

   @Return (@iRetVal)

@EndFunc

//----------------------------------------------------------

@DefineFunc @Void @EventHandler @Dialog2CBInit(@Void)

   @DlgCtrlShow(500,(@StrCmp(@ST2Text, "") != 0))

   @DlgCtrlShow(1000,(@StrCmp(@CB1Text, "") != 0))
   @DlgCtrlShow(1001,(@StrCmp(@CB2Text, "") != 0))

//   @DlgCtrlEnable(110, (@CB1Selected || @CB2Selected))

   @DlgCtrlEnable(1000,@CB1Enabled)
   @DlgCtrlEnable(1001,@CB2Enabled)

   @DlgCtrlShow(100,(@StrCmp(@PB1Text, "") != 0))
   @DlgCtrlShow(110,(@StrCmp(@PB2Text, "") != 0))
   @DlgCtrlShow(120,(@StrCmp(@PB3Text, "") != 0))
   @DlgCtrlShow(130,(@StrCmp(@PB4Text, "") != 0))
   @DlgCtrlShow(140,(@StrCmp(@PB5Text, "") != 0))

   @Return()
@EndFunc

//----------------------------------------------------------

@DefineFunc @Integer @Dialog2CB(@In @QString @DialogTitle,
            @In @QString @Bitmap1Title, @In @Integer @Bitmap1ID,
            @In @QString @ST1Text, @In @QString @ST2Text,
            @In @QString @CB1Text, @In @QString @CB2Text,
            @InOut @Integer @CB1Selected, @InOut @Integer @CB2Selected,
            @InOut @Integer @CB1Enabled, @InOut @Integer @CB2Enabled,
            @In @QString @PB1Text, @In @QString @PB2Text, @In @QString @PB3Text,
            @In @QString @PB4Text, @In @QString @PB5Text)

   @MapEventToFunc(@DlgInitEvent, @Dialog2CBInit)
   @EnableEventMap(@DlgInitEvent)

   @BeginWinDialog("Dialog2CB","@DialogTitle",8800)
      @StaticText(310, "@ST1Text")
      @StaticText(510, "@ST2Text")

      @CB(1000, "@CB1Text", @CB1Selected)
      @CB(1001, "@CB2Text", @CB2Selected)

      @Button(100, "@PB1Text")
      @Button(110, "@PB2Text")
      @Button(120, "@PB3Text")
      @Button(130, "@PB4Text")
      @Button(140, "@PB5Text")

      @Bitmap(200, "@Bitmap1Title", @Bitmap1ID)

   @ExecuteDialog

      @If (@CB(1000)) @CB1Selected = @TRUE @Else @CB1Selected = @FALSE @Endif
      @If (@CB(1001)) @CB2Selected = @TRUE @Else @CB2Selected = @FALSE @Endif

      @If (@Button(100))
         @iRetVal = 1
      @ElseIf (@Button(110))
         @iRetVal = 2
      @ElseIf (@Button(120))
         @iRetVal = 3
      @ElseIf (@Button(130))
         @iRetVal = 4
      @ElseIf (@Button(140))
         @iRetVal = 5
      @Else
         @iRetVal = 6
      @EndIf

   @EndWinDialog

   @DisableEventMap(@DlgInitEvent)

   @Return (@iRetVal)

@EndFunc

//----------------------------------------------------------
@DefineFunc @Void @EventHandler @DialogReadOnlyInit(@Void)

   @DlgCtrlShow(100,(@StrCmp(@PB1Text, "") != 0))
   @DlgCtrlShow(110,(@StrCmp(@PB2Text, "") != 0))
   @DlgCtrlShow(120,(@StrCmp(@PB3Text, "") != 0))
   @DlgCtrlShow(130,(@StrCmp(@PB4Text, "") != 0))
   @DlgCtrlShow(140,(@StrCmp(@PB5Text, "") != 0))

   @Return()
@EndFunc

//----------------------------------------------------------
@DefineFunc @Integer @DialogReadOnly(@In @QString @DialogTitle,
            @In @QString @ST1Text, @In @QString @ST2Text,
            @In @QString @RE1,
            @In @QString @PB1Text, @In @QString @PB2Text, @In @QString @PB3Text,
            @In @QString @PB4Text, @In @QString @PB5Text)

   @MapEventToFunc(@DlgInitEvent, @DialogReadOnlyInit)
   @EnableEventMap(@DlgInitEvent)

   @BeginWinDialog("DialogReadOnly","@DialogTitle",8300)
      @StaticText(310, "@ST1Text@qCRLF@qCRLF@ST2Text")

      @EditBox(410, "@RE1")

      @Button(100, "@PB1Text")
      @Button(110, "@PB2Text")
      @Button(120, "@PB3Text")
      @Button(130, "@PB4Text")
      @Button(140, "@PB5Text")

   @ExecuteDialog
      @If (@Button(100))
         @iRetVal = 1
      @ElseIf (@Button(110))
         @iRetVal = 2
      @ElseIf (@Button(120))
         @iRetVal = 3
      @ElseIf (@Button(130))
         @iRetVal = 4
      @ElseIf (@Button(150))
         @iRetVal = 5
      @Else
         @iRetVal = 6
      @EndIf

   @EndWinDialog

   @DisableEventMap(@DlgInitEvent)

   @Return (@iRetVal)
@EndFunc

//----------------------------------------------------------
@DefineFunc @Void @EventHandler @DialogReadOnlyBmpInit(@Void)

   @DlgCtrlShow(500,(@StrCmp(@ST2Text, "") != 0))
   @DlgCtrlShow(100,(@StrCmp(@PB1Text, "") != 0))
   @DlgCtrlShow(110,(@StrCmp(@PB2Text, "") != 0))
   @DlgCtrlShow(120,(@StrCmp(@PB3Text, "") != 0))
   @DlgCtrlShow(130,(@StrCmp(@PB4Text, "") != 0))
   @DlgCtrlShow(140,(@StrCmp(@PB5Text, "") != 0))

   @Return()
@EndFunc

//----------------------------------------------------------
@DefineFunc @Integer @DialogReadOnlyBmp(@In @QString @DialogTitle,
            @In @QString @Bitmap1Title, @In @Integer @Bitmap1ID,
            @In @QString @ST1Text, @In @QString @ST2Text,
            @In @QString @RE1,
            @In @QString @PB1Text, @In @QString @PB2Text, @In @QString @PB3Text,
            @In @QString @PB4Text, @In @QString @PB5Text)

   @MapEventToFunc(@DlgInitEvent, @DialogReadOnlyBmpInit)
   @EnableEventMap(@DlgInitEvent)

   @BeginWinDialog("DialogReadOnlyBmp","@DialogTitle",8600)

      @Bitmap(200, "@Bitmap1Title", @Bitmap1ID)

      @StaticText(310, "@ST1Text")

      @EditBox(410, "@RE1")

      @StaticText(510, "@ST2Text")

      @Button(100, "@PB1Text")
      @Button(110, "@PB2Text")
      @Button(120, "@PB3Text")
      @Button(130, "@PB4Text")
      @Button(140, "@PB5Text")

   @ExecuteDialog
      @If (@Button(100))
         @iRetVal = 1
      @ElseIf (@Button(110))
         @iRetVal = 2
      @ElseIf (@Button(120))
         @iRetVal = 3
      @ElseIf (@Button(130))
         @iRetVal = 4
      @ElseIf (@Button(150))
         @iRetVal = 5
      @Else
         @iRetVal = 6
      @EndIf

   @EndWinDialog

   @DisableEventMap(@DlgInitEvent)

   @Return (@iRetVal)
@EndFunc


//
//
//
//File: SetDisp /////////////////////////////////////
//
//CIDVars: TBD
//
//Globals changed: none
//
@DefineProto
   @Integer @SetDisplay(@Void)
@EndProto
//
//

//----------------------------------------------------------
@DefineFunc @Integer @SetDisplay(@Void)  // sets background text, bitmaps, colour
   //the defaults are mostly ok for show name, except for font size and colour
   //@ShowName(1,,"Helvetica",20,,,@RGB(255,0,0))
   //@ShowName(1,@qProductName,"Arial",3,,,@RGB(255,0,0))

   @If ((@Platform == @OS2) && (@WinScreenCaps(8) < 1000))
      @qDialogBmp = @qDialogBmp8
      @iDialogBmpID = @iDialogBmpID8
   @Else
      @qDialogBmp = @qDialogBmp10
      @iDialogBmpID = @iDialogBmpID10
   @EndIf

   @qWelcomeBitmap = @qDialogBmp
   @iWelcomeBitmapID = @iDialogBmpID
   @qCopyrightBitmap = @qDialogBmp
   @iCopyrightBitmapID = @iDialogBmpID
   @qAskRebootBitMap = @qDialogBmp
   @iAskRebootBitmapID = @iDialogBmpID
   @qCustomBitmap = @qDialogBmp
   @iCustomBitmapID = @iDialogBmpID
   @qInstallTypeBitmap = @qDialogBmp
   @iInstallTypeBitmapID = @iDialogBmpID
   @qConfirmBitmap = @qDialogBmp
   @iConfirmBitmapID = @iDialogBmpID
   @qSetEnvBitmap = @qDialogBmp
   @iSetEnvBitmapID = @iDialogBmpID
   @qUninstallBitmap = @qDialogBmp
   @iUninstallBitmapID = @iDialogBmpID
   @qDetInstDirBitmap = @qDialogBmp
   @iDetInstDirBitmapID = @iDialogBmpID
   @qGetProductDirBitmap = @qDialogBmp
   @iGetProductDirBitmapID = @iDialogBmpID
   @qInstallActionsBitmap = @qDialogBmp
   @iInstallActionsBitmapID = @iDialogBmpID
   @qRebuildDialogBitmap = @qDialogBmp
   @iRebuildDialogBitmapID = @iDialogBmpID
   @qConfirmPathsBitmap = @qDialogBmp
   @iConfirmPathsBitmapID = @iDialogBmpID
   @qProdInfoRemovedBitmap = @qDialogBmp
   @iProdInfoRemovedBitmapID = @iDialogBmpID
   @qGetInstDirBitmap = @qDialogBmp
   @iGetInstDirBitmapID = @iDialogBmpID
   @iDialogRes = @iNext
   @Return(@iDialogRes)
@EndFunc
//
//
//
//File: cmdline.dat /////////////////////////////////
//
//CIDVars: TBD
//
//Globals changed: @DebugMode, @ShowAllToggle, @iResponseFile
//   @AddMode,@uninstallMode, @UpdateMode, @DeleteMode, @RebuildMode,
//
@DefineProto
   @Void @ProcessCmdLine(@Void)
@EndProto
//
//

//----------------------------------------------------------
@DefineFunc @Void @ProcessCmdLine(@Void)
   @TempInt = 0

loop:
   @TempStr = "@StrToken(@CommandLine, @TempInt)"
   @If(@StrLen(@TempStr) > 0)
      @If(@StrCmp(@StrUpr(@TempStr), "-DEBUG") == 0)
         @DebugMode = @True
//      @ElseIf(@StrCmp(@StrUpr(@TempStr), "-SHOWALL") == 0)
         @ShowAllToggle = @True
      @ElseIf(@StrCmp(@StrUpr(@TempStr), "-AUTOPLAY") == 0)
         @AutorunMode = @True
      @ElseIf(@StrCmp(@StrUpr(@TempStr), "-UNINSTALL") == 0)
         @AddMode = @False
         @DeleteMode = @False
         @UpdateMode = @False
         @RebuildMode = @False
         @UninstallMode = @True
      @ElseIf(@StrCmp(@StrUpr(@TempStr), "-REBUILD") == 0)
         @UninstallMode = @False
         @AddMode = @False
         @DeleteMode = @False
         @UpdateMode = @False
         @RebuildMode = @True
      @ElseIf(@StrCmp(@StrUpr(@TempStr), "-UPDATE") == 0)
         @UninstallMode = @False
         @AddMode = @False
         @DeleteMode = @False
         @RebuildMode = @False
         @UpdateMode = @True
      @ElseIf(@StrCmp(@StrUpr(@TempStr), "-ADD") == 0)
         @UninstallMode = @False
         @DeleteMode = @False
         @UpdateMode = @False
         @RebuildMode = @False
         @AddMode = @True
      @ElseIf(@StrCmp(@StrHead(@TempStr, 1), "@@") == 0)
         @qTempStr2 = @StrTail(@TempStr, (@StrLen(@TempStr) - 1))
         @iResponseFile = @True

         @If(@StrLen(@qTempStr2) == 0)
            @qTempStr2 = "@qDefaultsFilename"
         @EndIf

         @If((@StrFind(@qTempStr2, "\\") == -1) && (@StrFind(@qTempStr2, ":") == -1))
            @qTempStr2 = "@StartUpDrive:@StartUpDir\\@qTempStr2"
         @EndIf

         @If(!@Exists("@qTempStr2"))
            @MsgBox("ERROR: Response file \"@qTempStr2\" not found!")
            @ErrorExit("CMDLINE.DAT: Response file not found!", @iAbort)
         @EndIf
      @EndIf
      @TempInt = (@TempInt + 1)
      @Goto loop
   @EndIf
   @If(@iResponseFile)
      @ShowAll("@@ProcessCmdLine","CID Response filename = @qTempStr2")
      @DoResponse(@qTempStr2)
   @EndIf
   @Return()
@EndFunc
@DefineProto
   @Integer @DialogAutoplay(@In @QString @BitmapTitle,@In @QString @DialogTitle,
            @In @QString @ST1Text, @In @QString @ST2Text,
            @In @QString @PB1Text, @In @QString @PB2Text, @In @QString @PB3Text,
            @In @QString @PB4Text, @In @QString @PB5Text, @In @QString @PB6Text,
            @In @QString @PB7Text)
   @Integer @DisplayAutorun(@Void)
@EndProto

//File: Autorun /////////////////////////////////////
//
//CIDVars: none
//
//Globals changed: none
//

@DefineFunc @Integer @DisplayAutorun(@Void)

laAutorun:
   @iDialogRes = @DialogAutoplay(@qDialogBmp,@qAutorunName,
                                 @qAutorunText1,@qAutorunText2,
                                 @qAutorunPreview,@qAutorunExplore,@qAutorunReadme,
                                 @qAutorunInstall,@qAutorunServer,@qAutorunBrowseHelp,
                                 @qAutorunExit)

   @If (@iDialogRes == 1)
      @DisplayHelp(@qPreviewFile)
      @Goto laAutorun

   @ElseIf (@iDialogRes == 2)
      @If (@ShowAllToggle)
         @MsgBox("Autorun: Ensure EXPLORER is replaced for OS/2")
      @Endif
      @WinExec("explorer @StartupDrive:",5)
      @Goto laAutorun

   @ElseIf (@iDialogRes == 3)
      @If (@ShowAllToggle)
         @MsgBox("Autorun: Ensure NOTEPAD is replaced for OS/2")
      @Endif
      @WinExec("notepad @StartupDrive:@qReadmeFile",1)
      @Goto laAutorun

   @ElseIf (@iDialogRes == 4)
      @iFuncRes = @iNext

   @ElseIf (@iDialogRes == 5)
      @DisplayHelp(@qTeamEnvyFile)
      @Goto laAutorun

   @ElseIf (@iDialogRes == 6)
      @DisplayHelp(@qAutorunHelpFile)
      @Goto laAutorun

   @ElseIf (@iDialogRes == 7)
      @iFuncRes = @Dialog1s2p(@qCancelTitle, @qCancelText1, @qYes, @qNo)
      @If (@iFuncRes == 1)
         @ReturnValue(0)
         @Exit
      @Else
         @Goto laAutorun
      @Endif

   @Else
      @MsgBox("ERROR DEBUG INTERNAL: unknown function in Autoplay menu")
      @Exit
   @EndIf

   @Return(@iFuncRes)
@EndFunc
@DefineFunc @Integer @DialogAutoplay(@In @QString @BitmapTitle,
                                     @In @QString @DialogTitle,
                                     @In @QString @ST1Text,
                                     @In @QString @ST2Text,
                                     @In @QString @PB1Text,
                                     @In @QString @PB2Text,
                                     @In @QString @PB3Text,
                                     @In @QString @PB4Text,
                                     @In @QString @PB5Text,
                                     @In @QString @PB6Text,
                                     @In @QString @PB7Text)

  @BeginWinDialog("Autoplay","@DialogTitle",9041)

      @Bitmap(200, "@BitmapTitle")

      @StaticText(310, "@ST1Text")
      @StaticText(410, "@ST2Text")

      @Button(100, "@PB1Text")
      @Button(110, "@PB2Text")
      @Button(120, "@PB3Text")
      @Button(130, "@PB4Text")
      @Button(140, "@PB5Text")
      @Button(150, "@PB6Text")
      @Button(160, "@PB7Text")

   @ExecuteDialog

      @If (@Button(100))
         @iRetVal = 1
      @ElseIf (@Button(110))
         @iRetVal = 2
      @ElseIf (@Button(120))
         @iRetVal = 3
      @ElseIf (@Button(130))
         @iRetVal = 4
      @ElseIf (@Button(140))
         @iRetVal = 5
      @ElseIf (@Button(150))
         @iRetVal = 6
      @Else
         @iRetVal = 7
      @Endif

   @EndWinDialog

   @Return (@iRetVal)
@EndFunc
//
//
//
//File: Copyright /////////////////////////////////////
//
//CIDVars: none
//
//Globals changed: none
//
@DefineProto
   @Integer @DisplayCopyright(@Void)
@EndProto
//
//


//----------------------------------------------------------
@DefineFunc @Integer @DisplayCopyright(@Void)
laDisplayCopyright:

@iDialogRes = @iNext
//@ShowBMP(0, 1, 60,"vaCopy", 2)

   @If ( (!@CIDBypass(@qForceCopyright)) && (@StrCmp(@qCopyrightBitmap, "")!=0) && (@StrCmp(@qCopyrightText1, "")!=0))
//      @iDialogRes = @DialogBitmap@qCopyrightTitle,@qCopyrightBitmap,@iCopyrightBitmapID
//                    ,@qNext,@qCancel,"","","")
      @iDialogRes = @DialogText(@qCopyrightTitle,
@qCopyrightBitmap,
@iCopyrightBitmapID,
                    "@qCopyrightText1",
                    "@qCopyrightText2\n@qCopyrightText3",
                    "@qCopyrightText4\n@qCopyrightText5",
                    "@qCopyrightText6\n@qCopyrightText7\n@qCopyrightText8",
                    "","",
                    "",@qNext,@qCancel,"","")
      @If (@iDialogRes == 2)
         @iDialogRes = @iNext
      @ElseIf (@iDialogRes == 3)
         @ConfirmCancel()
         @Goto laDisplayCopyright
      @Else
         @ErrorExit(@qCopyrightError1,@iAbort)
      @EndIf
   @Else
      @iDialogRes = @iNext
   @EndIf

//@EraseBMP(0)
   @Return(@iDialogRes)
@EndFunc



//
//
//
//File: Welcome /////////////////////////////////////
//
//CIDVars: none
//
//Globals changed: none
//
@DefineProto
   @Integer @DisplayWelcome(@Void)
@EndProto
//
//


//----------------------------------------------------------
@DefineFunc @Integer @DisplayWelcome(@Void)
laDisplayWelcome:

   @If (!@CIDBypass(@qForceWelcome))
      @iDialogRes = @DialogText(@qWelcomeTitle,@qWelcomeBitmap,
                    @iWelcomeBitmapID,@qWelcomeText1,@qWelcomeText2,
                    @qWelcomeText4,"",@qWelcomeCopyright1,
                    @qWelcomeCopyright2,"",@qNext,@qCancel,
                    "","")


      @If (@iDialogRes == 1)
         @ShowAll("Welcome", "Remove 1st button test")
         @Goto laDisplayWelcome

      @ElseIf (@iDialogRes == 2)
         @iDialogRes = @iNext

      @ElseIf (@iDialogRes == 3)
         @ConfirmCancel()
         @Goto laDisplayWelcome

      @ElseIf (@iDialogRes == 4)
         @ShowAll("Welcome", "Remove 4th button test")
         @Goto laDisplayWelcome

      @ElseIf (@iDialogRes == 5)
         @ShowAll("Welcome", "Remove 5th button test")
         @Goto laDisplayWelcome

      @Else
         @ErrorExit(@qWelcomeError1,@iAbort)
      @EndIf
   @Else
      @iDialogRes = @iNext
   @EndIf

   @Return(@iDialogRes)
@EndFunc








//
//
//
//File: ChkExist /////////////////////////////////////
//
//CIDVars: TBD
//
//Globals changed: none
//
@DefineProto
   @Integer @CheckExisting(@Void)
@EndProto
//
//

//----------------------------------------------------
@DefineFunc @Integer @CheckExisting(@Void)
   //@iDialogRes = @iNext
   @Return(@iDialogRes)
@EndFunc
//
//
//
//File: ChkReqs /////////////////////////////////////
//
//CIDVars: TBD
//
//Globals changed: none
//
@DefineProto
   @Integer @CheckPrereqs(@Void)
   @Void @CheckPrereqOS(@Void)
   @QString @GetPrereqOS(@Void)
   @Void @CheckPrereqCPU(@Void)
   @Void @CheckPrereqRAM(@Void)
   @Void @CheckPrereqRes(@Void)
   @Void @CheckPrereqColours(@Void)
   @Void @DisplayPrereqWarning(@In @QString @WarningMessage)
   @QString @GetTargetSystemPlatform(@Void)
@EndProto
//
//

//----------------------------------------------------
@DefineFunc @Integer @CheckPrereqs(@Void)

   @If (@iFuncRes == @iBack)
        @Return (@iBack)
   @Else
      @CheckPrereqOS()
      @CheckPrereqCPU()
      @CheckPrereqRAM()
      @CheckPrereqRes()
//      @CheckPrereqColours()
   @EndIf
   @Return(@iNext)

@EndFunc


//----------------------------------------------------
@DefineFunc @Void @CheckPrereqOS(@Void)

   //Ensure that the operating system meets the requirements
   @ShowAll("@@CheckPrereqOS()", "@@GetPrereqOS()")
   @If (@Platform == @iPrereqOS)
      @If(@iPrereqOS == @Windows)
         @If(@SubPlatform == @WindowsNT && @iPrereqNTVer != 0)
            @If (((@WinMajor * 100) + @WinMinor) < @iPrereqNTVer)
               @If (((@WinMajor * 100) + @WinMinor) < @iMinPrereqNTVer)
                  @ErrorExit(@GetPrereqOS(), @iAbort)
               @Else
                  @DisplayPrereqWarning(@GetPrereqOS())
               @EndIf
            @EndIf
         @ElseIf (@SubPlatform == @Windows95 && @iPrereqWin95Ver != 0)
         @Else
            @ErrorExit(@GetPrereqOS(), @iAbort)
         @EndIf
      @ElseIf(@iPrereqOS == @OS2)
         @If (((@OSMajor * 10) + @OSMinor) < @iPrereqOS2Ver)
            @If (((@OSMajor * 10) + @OSMinor) < @iMinPrereqOS2Ver)
               @ErrorExit(@GetPrereqOS(), @iAbort)
            @Else
               @DisplayPrereqWarning(@GetPrereqOS())
            @EndIf
         @EndIf
      @EndIf
   @Else
      @ErrorExit(@GetPrereqOS(), @iAbort)
   @EndIf

  @Return()
@EndFunc


//----------------------------------------------------
@DefineFunc @Void @CheckPrereqCPU(@Void)

   //Ensure that the processor meets the requirements
   @ShowAll("@@CheckPrereqCPU()", "@qCheckSysReqsCPU1 80@iPrereqCPU.@qCRLF@qCheckSysReqsCPU2 80@CPU.")
   @If (@CPU < @iPrereqCPU)
      @If (@CPU < @iMinPrereqCPU)
         @ErrorExit("@qCheckSysReqsCPU1 80@iPrereqCPU.@qCRLF@qCheckSysReqsCPU2 80@CPU.", @iAbort)
      @Else
         @DisplayPrereqWarning("@qCheckSysReqsCPU1 80@iPrereqCPU.@qCRLF@qCheckSysReqsCPU2 80@CPU.")
      @EndIf
   @EndIf

  @Return()
@EndFunc


//----------------------------------------------------
@DefineFunc @Void @CheckPrereqRAM(@Void)

   //Ensure that the memory meets the requirements
   @ShowAll("@@CheckPrereqRAM()", "@qCheckSysReqsRAM1 @iPrereqRAM.@qCRLF@qCheckSysReqsRAM2 @Eval((@RAMTotal/1024)/1000).")
   @If (@Eval (((@RAMTotal/1024)/1000) + 2) < @iPrereqRAM)
      @If (@Eval ((@RAMTotal/1024)/1000) < @iMinPrereqRAM)
         @ErrorExit("@qCheckSysReqsRAM1 @iPrereqRAM.@qCRLF@qCheckSysReqsRAM2 @Eval((@RAMTotal/1024)/1000).", @iAbort)
      @Else
         @DisplayPrereqWarning("@qCheckSysReqsRAM1 @iPrereqRAM.@qCRLF@qCheckSysReqsRAM2 @Eval((@RAMTotal/1024)/1000).")
      @EndIf
   @EndIf

  @Return()
@EndFunc


//----------------------------------------------------
@DefineFunc @Void @CheckPrereqRes(@Void)

   //Ensure that the screen resolution meets the requirements
   @ShowAll("@@CheckPrereqRes()", "@qCheckSysReqsRes1 @iPrereqResWidth X @iPrereqResHeight.@qCRLF@qCheckSysReqsRes2 @XRes X @YRes.")
   @If (@XRes < @iPrereqResWidth)
      @If (@XRes < @iMinPrereqResWidth)
         @ErrorExit("@qCheckSysReqsRes1 @iPrereqResWidth X @iPrereqResHeight.@qCRLF@qCheckSysReqsRes2 @XRes X @YRes.", @iAbort)
      @Else
         @DisplayPrereqWarning("@qCheckSysReqsRes1 @iPrereqResWidth X @iPrereqResHeight.@qCRLF@qCheckSysReqsRes2 @XRes X @YRes.")
      @EndIf
   @EndIf

   @Return()
@EndFunc


//----------------------------------------------------
@DefineFunc @Void @CheckPrereqColours(@Void)

   //Ensure that the number of colors meets the requirements
   @ShowAll("@@CheckPrereqColours()", "@qCheckSysReqsColours1 @iPrereqColours.@qCRLF@qCheckSysReqsColours2 @NColours.")
   @If (@NColours < @iPrereqColours)
      @If (@NColours < @iMinPrereqColours)
         @ErrorExit("@qCheckSysReqsColours1 @iPrereqColours.@qCRLF@qCheckSysReqsColours2 @NColours.", @iAbort)
      @Else
         @DisplayPrereqWarning("@qCheckSysReqsColours1 @iPrereqColours.@qCRLF@qCheckSysReqsColours2 @NColours.")
      @EndIf
   @EndIf

   @Return()
@EndFunc


//----------------------------------------------------
@DefineFunc @Void @DisplayPrereqWarning(@In @QString @qWarningMessage)

   @If (!@iResponseFile)
      @iFuncRes = @Ask(@qWarningTitle, @qCheckReqsBitmap, @iCheckReqsBitmapID,
                           "@qWarningMessage@qCRLF@qCRLF@qContinueORNot", "", "")
      @If (@iFuncRes == 1)
      @ElseIf (@iFuncRes == 2)
         @ErrorExit(@qCheckPrereqsError, @iAbort)
      @Else
         @MsgBox(@qErrorInvalidReturn)
      @EndIf
   @EndIf

   @Return()
@EndFunc


//----------------------------------------------------
@DefineFunc @QString @GetPrereqOS(@Void)

   @If (@iPrereqOS == @Windows)
      @If (@iPrereqWin95Ver != 0 && @iPrereqNTVer == 0)
         @qCheckSysReqsOSVer = @qPrereqOSWin95
      @ElseIf (@iPrereqWin95Ver != 0 && @iPrereqNTVer == @WinNTv35)
         @qCheckSysReqsOSVer = @qPrereqOSWin95NTv35
      @ElseIf (@iPrereqWin95Ver != 0 && @iPrereqNTVer == @WinNTv40)
         @qCheckSysReqsOSVer = @qPrereqOSWin95NTv40
      @ElseIf (@iPrereqWin95Ver == 0 && @iPrereqNTVer == @WinNTv35)
         @qCheckSysReqsOSVer = @qPrereqOSNTv35
      @ElseIf (@iPrereqWin95Ver == 0 && @iPrereqNTVer == @WinNTv40)
         @qCheckSysReqsOSVer = @qPrereqOSNTv40
      @Else
         @ErrorExit(@qPrereqOSError, @iAbort)
      @EndIf
   @ElseIf (@iPrereqOS == @OS2)
      @If (@iPrereqOS2Ver == @OS2v3)
         @qCheckSysReqsOSVer = @qPrereqOSOS2v3
      @ElseIf (@iPrereqOS2Ver == @OS2v4)
         @qCheckSysReqsOSVer = @qPrereqOSOS2v4
      @Else
         @ErrorExit(@qPrereqOSError, @iAbort)
      @EndIf
   @EndIf
   @Return("@qCheckSysReqsOSVer@qCRLF@GetTargetSystemPlatform()")

@EndFunc


//----------------------------------------------------
@DefineFunc @QString @GetTargetSystemPlatform(@Void)

      @If (@Platform == 1)
           @qTargetSystemPlatform = @qDOSTargetPlatform
      @ElseIf (@Platform == 2)
           @qTargetSystemPlatform = @qOS2TargetPlatform
      @ElseIf (@Platform == 3)
           @If(@SubPlatform == @WindowsNT)
              @qTargetSystemPlatform = @qWinNTTargetPlatform
           @ElseIf (@SubPlatform == @Windows95)
              @qTargetSystemPlatform = @qWin95TargetPlatform
           @Else
              @qTargetSystemPlatform = @qWindowsTargetPlatform
           @EndIf
      @Else
           @ErrorExit(@qPrereqOSError, @iAbort)
      @EndIf

  @Return(@qTargetSystemPlatform)
@EndFunc


//
//
//
//File: InstType /////////////////////////////////////
//
//CIDVars: iInstallType
//
//Globals changed: iInstallType,groups and options
//
@DefineProto
   @Integer @GetInstallType(@Void)
   @Void @InstallTypeSetHelp(@Void)
   @QString @TypeToFeatures(@Void)
   @Void @SetCustomFeatures(@Void)
   @Void @CalcInstallSize(@Void)
   @Void @SetGroupsString(@In @qString @Str)
   @Void @EventHandler @InstTypeRBHandler(@In @Int @OldSelected, @In @Int @NewSelected, @In @Int @RangeStart, @In @Int @RangeEnd)
@EndProto
//
//


//----------------------------------------------------------
@DefineFunc @Void @EventHandler @InstTypeRBHandler(@In @Int @OldSelected,
            @In @Int @NewSelected,  @In @Int @RangeStart,
            @In @Int @RangeEnd)
  @If    (@NewSelected == 1410)
     @iInstallType = 1
  @ElseIf(@NewSelected == 1420)
     @iInstallType = 2
  @ElseIf(@NewSelected == 1430)
     @iInstallType = 3
  @ElseIf(@NewSelected == 1440)
     @iInstallType = 4
  @ElseIf(@NewSelected == 1450)
     @iInstallType = 5
  @ElseIf(@NewSelected == 1460)
     @iInstallType = 6
  @Else
     @ErrorExit("@qInstallTypeError4")
  @EndIf

  @qTMP3 = @TypeToFeatures()
  @qTMP4 = @CustomFeaturesToGroups(@qTMP3)
  @SetGroupsString(@qTMP4)
  @CalcInstallSize()
  @InstallTypeSetHelp()
  @StaticText(510, "@qInstallTypeReqKB @Eval(@InstallSize/1024) @qCRLF@qCRLF@qInstallTypeText3 ")
  @Return()
@EndFunc
//----------------------------------------------------------
@DefineFunc @Integer @GetInstallType(@Void)

laInstallTypeDialog:

   @If (!@CIDBypass(@qForceGetInstallType))
      @iTMP1 = (@IsNull(@qInstallType1) && @IsNull(@qInstallType2) &&
              @IsNull(@qInstallType3) && @IsNull(@qInstallType4) &&
              @IsNull(@qInstallType5))

      @If (!@iTMP1)
         @qTMP3 = @TypeToFeatures()
         @qTMP4 = @CustomFeaturesToGroups(@qTMP3)
         @SetGroupsString(@qTMP4)
         @CalcInstallSize()
         @InstallTypeSetHelp()

         @MapEventToFunc(@DlgRBEvent, @InstTypeRBHandler)
         @EnableEventMap(@DlgRBEvent)
         @qInstallTypeText2 = "@qInstallTypeReqKB @Eval(@InstallSize/1024)"

         @iDialogRes = @DialogRadio(@qInstallTypeTitle, @qInstallTypeBitmap,
                   @iInstallTypeBitmapID, @qInstallTypeText1,
                   @qInstallTypeText2, @qInstallTypeText3,
                   @qInstallType1, @qInstallType2, @qInstallType3,
                   @qInstallType4, @qInstallType5, @qInstallType6,
                   @qBack,@qNext,@qCancel, "","",@iInstallType)
         @DisableEventMap(@DlgRBEvent)

         @If (@iDialogRes == 1)
            @iDialogRes = @iBack
         @ElseIf (@iDialogRes == 2)
            @iDialogRes = @iNext
         @ElseIf (@iDialogRes == 3)
            @ConfirmCancel()
            @Goto laInstallTypeDialog
         @ElseIf (@iDialogRes == 4)
            @ShowAll("GetInstallType", "Remove 4th button test")
            @Goto laInstallTypeDialog
         @ElseIf (@iDialogRes == 5)
            @ShowAll("GetInstallType", "Remove 5th button test")
            @Goto laInstallTypeDialog
         @Else
            @ErrorExit(@qInstallTypeError1, @iAbort)
         @EndIf
      @EndIf
   @Else
      @iDialogRes = @iNext
   @EndIf

laInstallTypePostprocessing:

   @qTMP3 = @TypeToFeatures()
   @qTMP4 = @CustomFeaturesToGroups(@qTMP3)
   @SetGroupsString(@qTMP4)
   @qCustomFeatures = @qTMP3
   @CalcInstallSize()

   @Return(@iDialogRes)
@EndFunc

//------------------------------------------------

@DefineFunc @Void @SetCustomFeatures(@Void)

   //@qCustomFeatures was already set if the type is custom
   @If (@iInstallType == @iInstallTypeCustom)
      @Return()
   @EndIf
   @If (@iInstallType == 1)
      @qCustomFeatures = @qInstallType1Features
   @ElseIf (@iInstallType == 2)
      @qCustomFeatures = @qInstallType2Features
   @ElseIf (@iInstallType == 3)
      @qCustomFeatures = @qInstallType3Features
   @ElseIf (@iInstallType == 4)
      @qCustomFeatures = @qInstallType4Features
   @ElseIf (@iInstallType == 5)
      @qCustomFeatures = @qInstallType5Features
   @Else
      @qCustomFeatures = @qInstallType6Features
   @EndIf

   @Return()
@EndFunc
//------------------------------------------------

@DefineFunc @Void @InstallTypeSetHelp(@Void)

   @If (@iInstallType == 1)
      @qInstallTypeText3 = @qInstallTypeHelp1
   @ElseIf (@iInstallType == 2)
      @qInstallTypeText3 = @qInstallTypeHelp2
   @ElseIf (@iInstallType == 3)
      @qInstallTypeText3 = @qInstallTypeHelp3
   @ElseIf (@iInstallType == 4)
      @qInstallTypeText3 = @qInstallTypeHelp4
   @ElseIf (@iInstallType == 5)
      @qInstallTypeText3 = @qInstallTypeHelp5
   @ElseIf (@iInstallType == 6)
      @qInstallTypeText3 = @qInstallTypeHelp6
   @Else
      @ErrorExit(@qInstallTypeError3, @iAbort)
   @EndIf

   @Return()
@EndFunc

//----------------------------------------------------------

@DefineFunc @QString @TypeToFeatures(@Void)
   @If (@iInstallType == 1)
      @qTMP4 = @qInstallType1Features
   @ElseIf  (@iInstallType == 2)
      @qTMP4 = @qInstallType2Features
   @ElseIf  (@iInstallType == 3)
      @qTMP4 = @qInstallType3Features
   @ElseIf  (@iInstallType == 4)
      @qTMP4 = @qInstallType4Features
   @ElseIf  (@iInstallType == 5)
      @qTMP4 = @qInstallType5Features
   @Else
      @qTMP4 = @qInstallType6Features
   @Endif

   @Return(@qTMP4)
@EndFunc

//----------------------------------------------------------
@DefineFunc @Void @SetGroupsString(@In @qString @Str)
//@Display setgroupsstring: @str @pause @enddisplay
@FlushGroups()
@qTMP1=@StrUpr(@Str)
@If (@StrFind(@qTMP1,"A")>=0)    @SetGroup(A)   @Endif
@If (@StrFind(@qTMP1,"B")>=0)    @SetGroup(B)   @Endif
@If (@StrFind(@qTMP1,"C")>=0)    @SetGroup(C)   @Endif
@If (@StrFind(@qTMP1,"D")>=0)    @SetGroup(D)   @Endif
@If (@StrFind(@qTMP1,"E")>=0)    @SetGroup(E)   @Endif
@If (@StrFind(@qTMP1,"F")>=0)    @SetGroup(F)   @Endif
@If (@StrFind(@qTMP1,"G")>=0)    @SetGroup(G)   @Endif
@If (@StrFind(@qTMP1,"H")>=0)    @SetGroup(H)   @Endif
@If (@StrFind(@qTMP1,"I")>=0)    @SetGroup(I)   @Endif
@If (@StrFind(@qTMP1,"J")>=0)    @SetGroup(J)   @Endif
@If (@StrFind(@qTMP1,"K")>=0)    @SetGroup(K)   @Endif
@If (@StrFind(@qTMP1,"L")>=0)    @SetGroup(L)   @Endif
@If (@StrFind(@qTMP1,"M")>=0)    @SetGroup(M)   @Endif
@If (@StrFind(@qTMP1,"N")>=0)    @SetGroup(N)   @Endif
@If (@StrFind(@qTMP1,"O")>=0)    @SetGroup(O)   @Endif
@If (@StrFind(@qTMP1,"P")>=0)    @SetGroup(P)   @Endif
@If (@StrFind(@qTMP1,"Q")>=0)    @SetGroup(Q)   @Endif
@If (@StrFind(@qTMP1,"R")>=0)    @SetGroup(R)   @Endif
@If (@StrFind(@qTMP1,"S")>=0)    @SetGroup(S)   @Endif
@If (@StrFind(@qTMP1,"T")>=0)    @SetGroup(T)   @Endif
@If (@StrFind(@qTMP1,"U")>=0)    @SetGroup(U)   @Endif
@If (@StrFind(@qTMP1,"V")>=0)    @SetGroup(V)   @Endif
@If (@StrFind(@qTMP1,"W")>=0)    @SetGroup(W)   @Endif
@If (@StrFind(@qTMP1,"X")>=0)    @SetGroup(X)   @Endif
@If (@StrFind(@qTMP1,"Y")>=0)    @SetGroup(Y)   @Endif
@If (@StrFind(@qTMP1,"Z")>=0)    @SetGroup(Z)   @Endif

  @Return()
@EndFunc

//----------------------------------------------------------
@DefineFunc @Void @CalcInstallSize(@Void)
   @InstallSize = 0

// The next value is an estimate of the percentage of a cluster that is wasted per file.
   @iTMP1 = 80

   @iNoGroupsSet = @True

   @If(@GroupIsSet(A))
      @iNoGroupsSet = @False
      @InstallSize = (@InstallSize+@iGroupSizeA+@ClusterOverhead(@OutDrive, @iGroupFilesA, @iTMP1))
   @EndIf

   @If(@GroupIsSet(B))
      @iNoGroupsSet = @False
      @InstallSize = (@InstallSize+@iGroupSizeB+@ClusterOverhead(@OutDrive, @iGroupFilesB, @iTMP1))
   @EndIf

   @If(@GroupIsSet(C))
      @iNoGroupsSet = @False
      @InstallSize = (@InstallSize+@iGroupSizeC+@ClusterOverhead(@OutDrive, @iGroupFilesC, @iTMP1))
   @EndIf

   @If(@GroupIsSet(D))
      @iNoGroupsSet = @False
      @InstallSize = (@InstallSize+@iGroupSizeD+@ClusterOverhead(@OutDrive, @iGroupFilesD, @iTMP1))
   @EndIf

   @If(@GroupIsSet(E))
      @iNoGroupsSet = @False
      @InstallSize = (@InstallSize+@iGroupSizeE+@ClusterOverhead(@OutDrive, @iGroupFilesE, @iTMP1))
   @EndIf

   @If(@GroupIsSet(F))
      @iNoGroupsSet = @False
      @InstallSize = (@InstallSize+@iGroupSizeF+@ClusterOverhead(@OutDrive, @iGroupFilesF, @iTMP1))
   @EndIf

   @If(@GroupIsSet(G))
      @iNoGroupsSet = @False
      @InstallSize = (@InstallSize+@iGroupSizeG+@ClusterOverhead(@OutDrive, @iGroupFilesG, @iTMP1))
   @EndIf

   @If(@GroupIsSet(H))
      @iNoGroupsSet = @False
      @InstallSize = (@InstallSize+@iGroupSizeH+@ClusterOverhead(@OutDrive, @iGroupFilesH, @iTMP1))
   @EndIf

   @If(@GroupIsSet(I))
      @iNoGroupsSet = @False
      @InstallSize = (@InstallSize+@iGroupSizeI+@ClusterOverhead(@OutDrive, @iGroupFilesI, @iTMP1))
   @EndIf

   @If(@GroupIsSet(J))
      @iNoGroupsSet = @False
      @InstallSize = (@InstallSize+@iGroupSizeJ+@ClusterOverhead(@OutDrive, @iGroupFilesJ, @iTMP1))
   @EndIf

   @If(@GroupIsSet(K))
      @iNoGroupsSet = @False
      @InstallSize = (@InstallSize+@iGroupSizeK+@ClusterOverhead(@OutDrive, @iGroupFilesK, @iTMP1))
   @EndIf

   @If(@GroupIsSet(L))
      @iNoGroupsSet = @False
      @InstallSize = (@InstallSize+@iGroupSizeL+@ClusterOverhead(@OutDrive, @iGroupFilesL, @iTMP1))
   @EndIf

   @If(@GroupIsSet(M))
      @iNoGroupsSet = @False
      @InstallSize = (@InstallSize+@iGroupSizeM+@ClusterOverhead(@OutDrive, @iGroupFilesM, @iTMP1))
   @EndIf

   @If(@GroupIsSet(N))
      @iNoGroupsSet = @False
      @InstallSize = (@InstallSize+@iGroupSizeN+@ClusterOverhead(@OutDrive, @iGroupFilesN, @iTMP1))
   @EndIf

   @If(@GroupIsSet(O))
      @iNoGroupsSet = @False
      @InstallSize = (@InstallSize+@iGroupSizeO+@ClusterOverhead(@OutDrive, @iGroupFilesO, @iTMP1))
   @EndIf

   @If(@GroupIsSet(P))
      @iNoGroupsSet = @False
      @InstallSize = (@InstallSize+@iGroupSizeP+@ClusterOverhead(@OutDrive, @iGroupFilesP, @iTMP1))
   @EndIf

   @If(@GroupIsSet(Q))
      @iNoGroupsSet = @False
      @InstallSize = (@InstallSize+@iGroupSizeQ+@ClusterOverhead(@OutDrive, @iGroupFilesQ, @iTMP1))
   @EndIf

   @If(@GroupIsSet(R))
      @iNoGroupsSet = @False
      @InstallSize = (@InstallSize+@iGroupSizeR+@ClusterOverhead(@OutDrive, @iGroupFilesR, @iTMP1))
   @EndIf

   @If(@GroupIsSet(S))
      @iNoGroupsSet = @False
      @InstallSize = (@InstallSize+@iGroupSizeS+@ClusterOverhead(@OutDrive, @iGroupFilesS, @iTMP1))
   @EndIf

   @If(@GroupIsSet(T))
      @iNoGroupsSet = @False
      @InstallSize = (@InstallSize+@iGroupSizeT+@ClusterOverhead(@OutDrive, @iGroupFilesT, @iTMP1))
   @EndIf

   @If(@GroupIsSet(U))
      @iNoGroupsSet = @False
      @InstallSize = (@InstallSize+@iGroupSizeU+@ClusterOverhead(@OutDrive, @iGroupFilesU, @iTMP1))
   @EndIf

   @If(@GroupIsSet(V))
      @iNoGroupsSet = @False
      @InstallSize = (@InstallSize+@iGroupSizeV+@ClusterOverhead(@OutDrive, @iGroupFilesV, @iTMP1))
   @EndIf

   @If(@GroupIsSet(W))
      @iNoGroupsSet = @False
      @InstallSize = (@InstallSize+@iGroupSizeW+@ClusterOverhead(@OutDrive, @iGroupFilesW, @iTMP1))
   @EndIf

   @If(@GroupIsSet(X))
      @iNoGroupsSet = @False
      @InstallSize = (@InstallSize+@iGroupSizeX+@ClusterOverhead(@OutDrive, @iGroupFilesX, @iTMP1))
   @EndIf

   @If(@GroupIsSet(Y))
      @iNoGroupsSet = @False
      @InstallSize = (@InstallSize+@iGroupSizeY+@ClusterOverhead(@OutDrive, @iGroupFilesY, @iTMP1))
   @EndIf

   @If(@GroupIsSet(Z))
      @iNoGroupsSet = @False
      @InstallSize = (@InstallSize+@iGroupSizeZ+@ClusterOverhead(@OutDrive, @iGroupFilesZ, @iTMP1))
   @EndIf

//    @If(@iNoGroupsSet)
//       @InstallSize = (@iTotalSize + @ClusterOverhead(@OutDrive, @iTotalFiles, @iTMP1))
//    @EndIf
//
//    @If(@InstallSize == 0) @Display "Warning: @@InstallSize is 0" @pause @enddisplay @EndIf

   @Return()
@EndFunc

//
//
//
//File: Custom /////////////////////////////////////
//
//CIDVars: TBD
//
//Globals changed:
//   @qCustomFeatures
//   @iCustom<x>
//
@DefineProto
   @Integer @CustomSelect(@Void)
   @Void @EventHandler @CustomSelectCBHandler(@IN @Int @CtrlID, @In @Integer @OldState, @In @Integer @NewState)
   @Void @CustomSelectSetHelp(@Void)
   @Void @SetFeaturesFromString(@In @QString @FeaturesString)
@EndProto
//
//

//----------------------------------------------------------
@DefineFunc @Void @EventHandler @CustomSelectCBHandler(@IN @Int @CtrlID, @In @Integer @OldState, @In @Integer @NewState)

   @If    (@CtrlID == 1000)
      @iCustom = 1
   @ElseIf (@CtrlID == 1001)
      @iCustom = 2
   @ElseIf (@CtrlID == 1002)
      @iCustom = 3
   @ElseIf (@CtrlID == 1003)
      @iCustom = 4
   @ElseIf (@CtrlID == 1004)
      @iCustom = 5
   @ElseIf (@CtrlID == 1005)
      @iCustom = 6
   @ElseIf (@CtrlID == 1006)
      @iCustom = 7
   @ElseIf (@CtrlID == 1007)
      @iCustom = 8
   @ElseIf (@CtrlID == 1008)
      @iCustom = 9
   @ElseIf (@CtrlID == 1009)
      @iCustom = 10
   @ElseIf (@CtrlID == 1010)
      @iCustom = 11
   @ElseIf (@CtrlID == 1011)
      @iCustom = 12
   @ElseIf (@CtrlID == 1012)
      @iCustom = 13
   @ElseIf (@CtrlID == 1013)
      @iCustom = 14
   @ElseIf (@CtrlID == 1014)
      @iCustom = 15
   @ElseIf (@CtrlID == 1015)
      @iCustom = 16
   @Else
      @ErrorExit(@qCustomError1,@iAbort)
   @EndIf

   @If (@icustom < 10)
      @qTMP5 = "0@icustom"
   @Else
      @qTMP5 = "@icustom"
   @EndIf
   @If (@NewState)
      @If (@StrFind(@qCustomFeatures,@qTMP5) >= 0)
         //noop
      @Else
         @qCustomFeatures = "@qTMP5 @qCustomFeatures"
      @EndIf
   @Else
      @iTMP1 = @StrFind(@qCustomFeatures,@qTMP5)
      @If (@iTMP1 >= 0)
         @qCustomFeatures = @StrDel(@qCustomFeatures,@iTMP1,3)
      @Else
         //noop
      @EndIf
   @Endif

   @qTMP2 = @CustomFeaturesToGroups(@qCustomFeatures)
   @SetGroupsString(@qTMP2)
   @CalcInstallSize()
   @If(@IsNULL(@qCustomFeatures))
      @DlgCtrlEnable(110, @False)
   @Else
      @DlgCtrlEnable(110, @True)
   @EndIf
   @CustomSelectSetHelp()
   @StaticText(510, "@qInstallTypeReqKB @eval(@InstallSize/1024)@qCRLF@qCRLF@qCustomText2")
   @Return()
@EndFunc


//----------------------------------------------------------
@DefineFunc @Integer @CustomSelect(@Void)
   @If (@iInstallType != @iInstallTypeCustom)
      @Return(@iDialogRes)
   @Endif

laCustomSelectDialog:
   @If (!@CIDBypass(@qForceGetInstallType))

      @SetFeaturesFromString(@qCustomFeatures)
      @qTMP2 = @CustomFeaturesToGroups(@qCustomFeatures)
      @SetGroupsString(@qTMP2)
      @CalcInstallSize()
      @CustomSelectSetHelp()
      @qTMP1 = "@qInstallTypeReqKB @eval(@InstallSize/1024)@qCRLF@qCRLF@qCustomText2"
      @MapEventToFunc(@DlgCBEvent, @CustomSelectCBHandler)
      @EnableEventMap(@DlgCBEvent)
      @iDialogRes = @DialogCheck(@qCustomTitle, @qCustomBitmap,
           @iCustomBitmapID,
           @qCustomText1, @qTMP1,
           @qFeature01, @qFeature02, @qFeature03,
           @qFeature04, @qFeature05, @qFeature06,
           @qFeature07, @qFeature08, @qFeature09,
           @qFeature10, @qFeature11, @qFeature12,
           @qFeature13, @qFeature14, @qFeature15,
           @qFeature16,
           @iCustom1,@iCustom2,@iCustom3,@iCustom4,
           @iCustom5,@iCustom6,@iCustom7,@iCustom8,
           @iCustom9,@iCustom10,@iCustom11,@iCustom12,
           @iCustom13,@iCustom14,@iCustom15,@iCustom16,
           @iCustom1Enable,@iCustom2Enable,@iCustom3Enable,@iCustom4Enable,
           @iCustom5Enable,@iCustom6Enable,@iCustom7Enable,@iCustom8Enable,
           @iCustom9Enable,@iCustom10Enable,@iCustom11Enable,@iCustom12Enable,
           @iCustom13Enable,@iCustom14Enable,@iCustom15Enable,@iCustom16Enable,
           @qBack,@qNext,@qCancel,"","")

      @DisableEventMap(@DlgCBEvent)

            @If (@iDialogRes == 1)
               @iDialogRes = @iBack
            @ElseIf (@iDialogRes == 2)
               @iDialogRes = @iNext
            @ElseIf (@iDialogRes == 3)
               @ConfirmCancel()
               @Goto laCustomSelectDialog
            @ElseIf (@iDialogRes == 4)
               @DisplayHelp("@qCustomHelpFile")
               @Goto laCustomSelectDialog
            @ElseIf (@iDialogRes == 5)
               @ShowAll("GetInstallType", "Remove 5th button test")
               @Goto laCustomSelectDialog
            @Else
               @ErrorExit(@qCustomError1, @iAbort)
            @EndIf

   @Else
      // set  the custom features string to be the one from the response file
      @qCustomFeatures = @qCustomSelections
      @iDialogRes = @iNext
   @EndIf

   @Return(@iDialogRes)
@EndFunc


//----------------------------------------------------------
@DefineFunc @Void @CustomSelectSetHelp(@Void)
   @If     (@iCustom == 1)
      @qCustomText2 = @qFeature01Help
   @ElseIf (@iCustom == 2)
      @qCustomText2 = @qFeature02Help
   @ElseIf (@iCustom == 3)
      @qCustomText2 = @qFeature03Help
   @ElseIf (@iCustom == 4)
      @qCustomText2 = @qFeature04Help
   @ElseIf (@iCustom == 5)
      @qCustomText2 = @qFeature05Help
   @ElseIf (@iCustom == 6)
      @qCustomText2 = @qFeature06Help
   @ElseIf (@iCustom == 7)
      @qCustomText2 = @qFeature07Help
   @ElseIf (@iCustom == 8)
      @qCustomText2 = @qFeature08Help
   @ElseIf (@iCustom == 9)
      @qCustomText2 = @qFeature09Help
   @ElseIf (@iCustom == 10)
      @qCustomText2 = @qFeature10Help
   @ElseIf (@iCustom == 11)
      @qCustomText2 = @qFeature11Help
   @ElseIf (@iCustom == 12)
      @qCustomText2 = @qFeature12Help
   @ElseIf (@iCustom == 13)
      @qCustomText2 = @qFeature13Help
   @ElseIf (@iCustom == 14)
      @qCustomText2 = @qFeature14Help
   @ElseIf (@iCustom == 15)
      @qCustomText2 = @qFeature15Help
   @ElseIf (@iCustom == 16)
      @qCustomText2 = @qFeature16Help
   @Else
      @ErrorExit(@qCustomError3,@iAbort)
   @Endif
   @Return()
@EndFunc


//----------------------------------------------------------

@DefineFunc @Void @SetFeaturesFromString(@In @QString @FeaturesString)

   @If (@StrFind(@FeaturesString,"01") >= 0)
      @iCustom1 = 1
   @Else
      @iCustom1 = 0
   @EndIf
   @If (@StrFind(@FeaturesString,"02") >= 0)
      @iCustom2 = 1
   @Else
      @iCustom2 = 0
   @EndIf
   @If (@StrFind(@FeaturesString,"03") >= 0)
      @iCustom3 = 1
   @Else
      @iCustom3 = 0
   @EndIf
   @If (@StrFind(@FeaturesString,"04") >= 0)
      @iCustom4 = 1
   @Else
      @iCustom4 = 0
   @EndIf
   @If (@StrFind(@FeaturesString,"05") >= 0)
      @iCustom5 = 1
   @Else
      @iCustom5 = 0
   @EndIf
   @If (@StrFind(@FeaturesString,"06") >= 0)
      @iCustom6 = 1
   @Else
      @iCustom6 = 0
   @EndIf
   @If (@StrFind(@FeaturesString,"07") >= 0)
      @iCustom7 = 1
   @Else
      @iCustom7 = 0
   @EndIf
   @If (@StrFind(@FeaturesString,"08") >= 0)
      @iCustom8 = 1
   @Else
      @iCustom8 = 0
   @EndIf
   @If (@StrFind(@FeaturesString,"09") >= 0)
      @iCustom9 = 1
   @Else
      @iCustom9 = 0
   @EndIf
   @If (@StrFind(@FeaturesString,"10") >= 0)
      @iCustom10 = 1
   @Else
      @iCustom10 = 0
   @EndIf
   @If (@StrFind(@FeaturesString,"11") >= 0)
      @iCustom11 = 1
   @Else
      @iCustom11 = 0
   @EndIf
   @If (@StrFind(@FeaturesString,"12") >= 0)
      @iCustom12 = 1
   @Else
      @iCustom12 = 0
   @EndIf
   @Return()
@EndFunc

//
//
//
//File: InstPath /////////////////////////////////////
//
//CIDVars: @qForceGetInstallPath
//
//Globals changed: @qInstallPath1-@qInstallPath6
//
@DefineProto
   @Integer @GetInstallPath(@Void)
   @Void @CheckPath(@InOut @QString @PathName, @InOut @Integer @PreviousResult)
   @Void @FillDriveList(@In @QString @DriveandSize)
@EndProto
//
//

//----------------------------------------------------
@DefineFunc @Integer @GetInstallPath(@Void)

   @If(!@CIDBypass(@qForceGetInstallPath))

laCreateDriveListTop:
      @TempInt = 0
      @iTMP5 = 0
      @qGetInstDirDriveList = ""
      @qGetInstDirDriveList1 = ""
      @qGetInstDirDriveList2 = ""
      @qGetInstDirDriveList3 = ""
      @iDriveList1Count = 0
      @iDriveList2Count = 0
      @iDriveList3Count = 0


loop:
      @dGetInstDirDriveLetter = @StrIndex("ABCDEFGHIJKLMNOPQRSTUVWXYZ", @TempInt)
      @TempInt = (@TempInt + 1)

      @If(@DriveExists(@dGetInstDirDriveLetter))
         @If(!@Removable(@dGetInstDirDriveLetter) /* &&!@DriveRemote(@dGetInstDirDriveLetter) */ )
            @FillDriveList("@Eval(@DiskFree(@dGetInstDirDriveLetter)/1048576)")
//            @qGetInstDirDriveList = "@qGetInstDirDriveList@dGetInstDirDriveLetter: @Eval(@DiskFree(@dGetInstDirDriveLetter)/1048576) @qGetInstDirFreeSpace@qCRLF"
            @iTMP5=(@iTMP5 + 1)
            //Can only fit 17 drives on a 800x600, 18 on 1024x768
            @If (((@iTMP5 >= 17) && (@XRes == 800)) ||
                 ((@iTMP5 >= 18) && (@XRes == 1024)))
               @Goto endloop
            @EndIf
         @EndIf
      @EndIf

      @If(@TempInt < 26)
         @Goto loop
      @EndIf

endloop:
      @If(@OptionGroupsNotEmpty(@qOption1Groups))
         @qProduct1Text = @qProduct1
      @Else
         @qProduct1Text = ""
      @EndIf
      @If(@OptionGroupsNotEmpty(@qOption2Groups))
         @qProduct2Text = @qProduct2
      @Else
         @qProduct2Text = ""
      @EndIf
      @If(@OptionGroupsNotEmpty(@qOption3Groups))
         @qProduct3Text = @qProduct3
      @Else
         @qProduct3Text = ""
      @EndIf
      @If(@OptionGroupsNotEmpty(@qOption4Groups))
         @qProduct4Text = @qProduct4
      @Else
         @qProduct4Text = ""
      @EndIf
      @If(@OptionGroupsNotEmpty(@qOption5Groups))
         @qProduct5Text = @qProduct5
      @Else
         @qProduct5Text = ""
      @EndIf
      @If(@OptionGroupsNotEmpty(@qOption6Groups))
         @qProduct6Text = @qProduct6
      @Else
         @qProduct6Text = ""
      @EndIf
      @If(@OptionGroupsNotEmpty(@qOption7Groups))
         @qProduct7Text = @qProduct7
      @Else
         @qProduct7Text = ""
      @EndIf
      @If(@OptionGroupsNotEmpty(@qOption8Groups))
         @qProduct8Text = @qProduct8
      @Else
         @qProduct8Text = ""
      @EndIf
      @If(@OptionGroupsNotEmpty(@qOption9Groups))
         @qProduct9Text = @qProduct9
      @Else
         @qProduct9Text = ""
      @EndIf
      @If(@OptionGroupsNotEmpty(@qOption10Groups))
         @qProduct10Text = @qProduct10
      @Else
         @qProduct10Text = ""
      @EndIf

laGetInstallDirTop:
      @If (@iSingleDriveEntry && (@Platform == @OS2))
         @iDialogRes = @Dialog1Edit(@qGetInstDirTitle, @qGetInstDirBitmap,
                                @iGetInstDirBitmapID,
                                @qGetInstDirHeader, "",
                                @qGetInstDirDriveList1,@qGetInstDirDriveList2,
                                @qGetInstDirDriveList3,
                                @qBack,@qNext,@qCancel,"","",
                                @qInstallPath1)

      @Else
         @iDialogRes = @DialogEdit(@qGetInstDirTitle, @qGetInstDirBitmap,
                                @iGetInstDirBitmapID,
                                @qGetInstDirHeader,
                                @qProduct1Text, @qProduct2Text, @qProduct3Text, @qProduct4Text,
                                @qProduct5Text, @qProduct6Text, @qProduct7Text, @qProduct8Text,
                                @qProduct9Text, @qProduct10Text,
                                @qGetInstDirDriveBox,
                                @qBack, @qNext, @qCancel, "", "",
                                @qInstallPath1, @qInstallPath2, @qInstallPath3,
                                @qInstallPath4, @qInstallPath5, @qInstallPath6,
                                @qInstallPath7, @qInstallPath8, @qInstallPath9,
                                @qInstallPath10,
                                @qGetInstDirDriveList)

      @EndIf
      @If (@iDialogRes == 1)
         @iDialogRes = @iBack
      @ElseIf (@iDialogRes == 2)
         @iDialogRes = @iNext
      @ElseIf (@iDialogRes == 3)
          @ConfirmCancel()
          @Goto laGetInstallDirTop
      @ElseIf (@iDialogRes == 4)
         @ErrorExit(@qGetInstDirDialogResultError, @iAbort)
      @Else
         @ErrorExit(@qGetInstDirDialogResultError, @iAbort)
      @EndIf

   @Else
      @iDialogRes = @iNext
   @EndIf

laGetInstallDirPostProcessing:
   @If(@iDialogRes == @iNext)
      @iCheckPathResult = @iGetInstDirPathOK

                @If(!@IsNULL(@qProduct1))
              @CheckPath(@qInstallPath1, @iCheckPathResult)
                @EndIf

                @If(!@IsNULL(@qProduct2))
              @CheckPath(@qInstallPath2, @iCheckPathResult)
                @EndIf

                @If(!@IsNULL(@qProduct3))
              @CheckPath(@qInstallPath3, @iCheckPathResult)
                @EndIf

                @If(!@IsNULL(@qProduct4))
              @CheckPath(@qInstallPath4, @iCheckPathResult)
                @EndIf

                @If(!@IsNULL(@qProduct5))
              @CheckPath(@qInstallPath5, @iCheckPathResult)
                @EndIf

                @If(!@IsNULL(@qProduct6))
              @CheckPath(@qInstallPath6, @iCheckPathResult)
                @EndIf

                @If(!@IsNULL(@qProduct7))
              @CheckPath(@qInstallPath7, @iCheckPathResult)
                @EndIf

                @If(!@IsNULL(@qProduct8))
              @CheckPath(@qInstallPath8, @iCheckPathResult)
                @EndIf

                @If(!@IsNULL(@qProduct9))
              @CheckPath(@qInstallPath9, @iCheckPathResult)
                @EndIf

                @If(!@IsNULL(@qProduct10))
              @CheckPath(@qInstallPath10, @iCheckPathResult)
                @EndIf

      @If(!@CIDByPass(@qForceGetInstallPath))
         @If(@iCheckPathResult == @iGetInstDirPathOK)
            //Do nothing
         @ElseIf(@iCheckPathResult == @iGetInstDirBadPath)
            @MsgBox("@qInvalidPath@qGetInstDirError1")
            @Goto laGetInstallDirTop
         @ElseIf(@iCheckPathResult == @iGetInstDirBadDrive)
            @MsgBox("@dInvalidDrive@qGetInstDirError2")
            @Goto laGetInstallDirTop
         @ElseIf(@iCheckPathResult == @iGetInstDirNoRoot)
            @MsgBox("@dInvalidDrive@qGetInstDirError3")
            @Goto laGetInstallDirTop
         @ElseIf(@iCheckPathResult == @iGetInstDirInvalidCharacterInPath)
            @MsgBox("@qInvalidPath@qGetInstDirError4")
            @Goto laGetInstallDirTop
         @ElseIf(@iCheckPathResult == @iGetInstDirDriveNotHPFS)
            @MsgBox("@dInvalidDrive@qGetInstDirError5")
            @Goto laGetInstallDirTop
         @ElseIf(@iCheckPathResult == @iGetInstDirLongPath)
            @MsgBox("@qInvalidPath@qGetInstDirError6")
            @Goto laGetInstallDirTop
         @Else
            @ErrorExit(@qCheckPathResultError, @iAbort)
         @EndIf
      @Else
         @If(@iCheckPathResult != @iGetInstDirPathOK)
            @ErrorExit(@qGetInstDirCIDError, @iAbort)
         @EndIf
      @EndIf
   @EndIf

   @Return (@iDialogRes)
@EndFunc

//////////////////////////////////////////////////////

@DefineFunc @Void @CheckPath(@InOut @QString @PathStr, @InOut @Integer @PreviousResult)
   @If(@PreviousResult == @iGetInstDirPathOK)
      @qInvalidPath = ""
      @dInvalidDrive = A

laStripDoubleQuotes:
      @TempInt = @StrFind(@PathStr, "\"")
      @If(@TempInt != -1)
         @PathStr = @StrDel(@PathStr, @TempInt, 1)
         @Goto laStripDoubleQuotes
      @EndIf

      //Not Valid if : is not the second character
      @If (@StrFind(@PathStr,":") != 1)
         @qInvalidPath = @PathStr
         @PreviousResult = @iGetInstDirBadPath

      //Not Valid if there is another : in the path
      @ElseIf (@StrRFind(@PathStr,":") != 1)
         @qInvalidPath = @PathStr
         @PreviousResult = @iGetInstDirBadPath

      //Not Valid if there is are 2 \'s in a row in the path
      @ElseIf (@StrFind(@PathStr,"\\\\") >= 0)
         @qInvalidPath = @PathStr
         @PreviousResult = @iGetInstDirBadPath

      //Not Valid if there is a * in the path
      @ElseIf (@StrFind(@PathStr,"*") >= 0)
         @qInvalidPath = @PathStr
         @PreviousResult = @iGetInstDirBadPath

      //Not Valid if there is a ? in the path
      @ElseIf (@StrFind(@PathStr,"?") >= 0)
         @qInvalidPath = @PathStr
         @PreviousResult = @iGetInstDirBadPath

      //Only 27 characters allowed, for Java
      @ElseIf (@StrLen(@PathStr) > 27)
         @qInvalidPath = @PathStr
         @PreviousResult = @iGetInstDirLongPath

      //Not Valid if the first character is not a letter
      @ElseIf (!(((@StrIndex(@PathStr,0) >= @Eval('a')) &&
                 (@StrIndex(@PathStr,0) <= @Eval('z'))) ||
                ((@StrIndex(@PathStr,0) >= @Eval('A')) &&
                 (@StrIndex(@PathStr,0) <= @Eval('Z')))))
         @qInvalidPath = @PathStr
         @PreviousResult = @iGetInstDirBadPath

      //Do no allow install if there is a " " in the path
      @ElseIf (@StrFind(@PathStr," ") >= 0)
         @qInvalidPath = @PathStr
         @PreviousResult = @iGetInstDirBadPath

      //Bad path entry
      @ElseIf(!( (@StrFind(@PathStr,":\\") == @StrRFind(@PathStr,":\\")) && (@StrFind(@PathStr,":\\") > 0) ))
         @qInvalidPath = @PathStr
         @PreviousResult = @iGetInstDirBadPath

      //Drive is not a letter
      @ElseIf(@StrFind("ABCDEFGHIJKLMNOPQRSTUVWXYZ", "@StrIndex(@StrUpr(@PathStr),(@StrFind(@PathStr, ":\\") - 1))") == -1)
         @dInvalidDrive = @StrIndex(@StrUpr(@PathStr),(@StrFind(@PathStr, ":\\") - 1))
         @PreviousResult = @iGetInstDirBadDrive

      //Not Valid if \ is the last character
      @ElseIf (@StrRFind(@PathStr,"\\") == (@StrLen(@PathStr) - 1))
         @qInvalidPath = @PathStr
         @PreviousResult = @iGetInstDirBadPath

      //Drive doesn't exist
      @ElseIf(!@DriveExists(@StrIndex(@StrUpr(@PathStr),(@StrFind(@PathStr, ":\\") - 1))))
         @dInvalidDrive = @StrIndex(@StrUpr(@PathStr),(@StrFind(@PathStr, ":\\") - 1))
         @PreviousResult = @iGetInstDirBadDrive

      //Drive is removeable
      @ElseIf(@Removable(@StrIndex(@StrUpr(@PathStr),(@StrFind(@PathStr, ":\\") - 1))))
         @dInvalidDrive = @StrIndex(@StrUpr(@PathStr),(@StrFind(@PathStr, ":\\") - 1))
         @PreviousResult = @iGetInstDirBadDrive

      //Can't install to root
      @ElseIf(@StrFind(@PathStr, ":\\") == (@StrLen(@PathStr) - 2))
         @dInvalidDrive = @StrIndex(@StrUpr(@PathStr),(@StrFind(@PathStr, ":\\") - 1))
         @PreviousResult = @iGetInstDirNoRoot

      //The path is almost valid
      @Else
         //Strip the path
         @PathStr = @StrDel(@PathStr, 0, (@StrFind(@PathStr, ":\\") - 1))
         @qTMP1 = @StrDel(@PathStr, 0, (@StrFind(@PathStr, ":\\") + 1))
         @If(@StrFind(@qTMP1, ":") > 0)
            @qInvalidPath = @PathStr
            @PreviousResult = @iGetInstDirInvalidCharacterInPath
         @Else
            @PreviousResult = @iGetInstDirPathOK
         @EndIf

      @EndIf

      //Check long-filename support
      @If ((@PreviousResult == @iGetInstDirPathOK) && (@iHPFSonly) && (@Platform == @OS2))
         @dTMP1 = @StrIndex(@StrUpr(@PathStr),(@StrFind(@PathStr, ":\\") - 1))
         @If (!@Exists("@dTMP1:\\longdirname.ext1.ext2"))
            @System("mkdir @dTMP1:\\longdirname.ext1.ext2 > NUL 2> NUL",2,-1)
            @If (!@Exists("@dTMP1:\\longdirname.ext1.ext2"))
               @dInvalidDrive = @StrIndex(@StrUpr(@PathStr),(@StrFind(@PathStr, ":\\") - 1))
               @PreviousResult=@iGetInstDirDriveNotHPFS
            @Else
               @RmDir("@dTMP1:\\longdirname.ext1.ext2")
            @EndIf
         @EndIf
      @EndIf

   @EndIf

   @Return()
@EndFunc

//-----------------------------------------------------------------

@DefineFunc @Void @FillDriveList(@In @QString @DriveandSize)


   @If (@iSingleDriveEntry && (@Platform == @OS2))
      @If ((@iDriveList1Count >= 8) && (@iDriveList2Count >= 8) && (@iDriveList3Count < 8))
         @qGetInstDirDriveList3 = "@qGetInstDirDriveList3@dGetInstDirDriveLetter: @Eval(@DiskFree(@dGetInstDirDriveLetter)/1048576) @qGetInstDirFreeSpace@qCRLF"
         @iDriveList3Count = (@iDriveList3Count + 1)
      @ElseIf ((@iDriveList1Count >= 8) && (@iDriveList2Count < 8))
         @qGetInstDirDriveList2 = "@qGetInstDirDriveList2@dGetInstDirDriveLetter: @Eval(@DiskFree(@dGetInstDirDriveLetter)/1048576) @qGetInstDirFreeSpace@qCRLF"
         @iDriveList2Count = (@iDriveList2Count + 1)
      @ElseIf (@iDriveList1Count < 8)
          @qGetInstDirDriveList1 = "@qGetInstDirDriveList1@dGetInstDirDriveLetter: @Eval(@DiskFree(@dGetInstDirDriveLetter)/1048576) @qGetInstDirFreeSpace@qCRLF"
         @iDriveList1Count = (@iDriveList1Count + 1)
      @EndIf
   @Else
      @qGetInstDirDriveList = "@qGetInstDirDriveList@dGetInstDirDriveLetter: @Eval(@DiskFree(@dGetInstDirDriveLetter)/1048576) @qGetInstDirFreeSpace@qCRLF"
   @EndIf

   @Return()
@EndFunc
//
//
//
//File: ChkFree /////////////////////////////////////
//
//CIDVars: TBD
//
//Globals changed:
//  @qDrive<x>Drive      (in SetDriveInfo)
//  @iDrive<x>SpaceReq   (in SetDriveInfo)
//
@DefineProto
   @Integer @CheckFreeSpace(@Void)
   @QString @GetInstallPathDrives(@Void)
   @QString @AddPathDriveToList(@In @QString @qDriveList,
                                @In @QString @qOption,
                                @In @QString @qInstallPath)
   @Integer @GetRequiredDriveSpace(@In @QString @qDrive,
                                   @In @Integer @iDriveNumber)
   @Void @SetDriveInfo(@In @QString @DriveList)
   @QString @DriveToOptions(@In @QString @DriveLetter)
   @QString @OptionsToGroups(@In @QString @OptionString)
   @QString @GroupIntersection(@In @QString @Instring1,
                               @In @QString @Instring2)
@EndProto
//
//
//----------------------------------------------------
@DefineFunc @Integer @CheckFreeSpace(@Void)

   //If back pushbutton pressed from confirm install dialog,
   //go back to installpath dialog.
   @If (@iFuncRes == @iBack)
        @Return (@iBack)
   @EndIf

   @qDrives = @GetInstallPathDrives()
   @ShowAll("@@GetInstallPathDrives()", "All of the drive letters are: @qDrives")
//   @MsgBox("All of the drive letters are: @qDrives")
   @SetDriveInfo(@qDrives)
   @iNumDrives = @StrLen(@qDrives)
   @iIndex = 0

loop:
   @If (@iIndex < @iNumDrives)
      @dCurrentDrive = @StrIndex(@qDrives, @iIndex)
      @iIndex = @Eval(@iIndex + 1)
      @iSpaceRequired = @GetRequiredDriveSpace("@dCurrentDrive", @iIndex)
      @iSpaceAvailable = @Eval(@DiskFree(@dCurrentDrive))
      @ShowAll("@@CheckFreeSpace()", "Drive: @dCurrentDrive , Space Required: @iSpaceRequired , Space Avail: @iSpaceAvailable")
//      @MsgBox("Drive: "@dCurrentDrive" , Space Required: @iSpaceRequired , Space Avail: @iSpaceAvailable")
      @If (@iSpaceRequired > @iSpaceAvailable)
         @qInsufficientSpaceText = "@qInsufficientSpaceText1 @dCurrentDrive.@qCRLF@qCRLF@qInsufficientSpaceText2 @iSpaceRequired @lBytes@qCRLF@qInsufficientSpaceText3 @iSpaceAvailable @lBytes"

laInsufficientSpaceDlg:
         @If (!@CIDBypass("N"))
            @iFuncRes = @Ask(@qWarningTitle, @qCheckFreeSpaceBitmap,
                          @iCheckFreeSpaceBitmapID,
                          "@qInsufficientSpaceText@qCRLF@qCRLF@qContinueORNot",
                           "", "")

            @If (@iFuncRes == 1)
               //User chose to continue.
            @ElseIf (@iFuncRes == 2)
               //User does not wish to continue. Go back to InstallPath dialog.
               @Return(@iBack)
            @Else
               @ErrorExit(@qErrorInvalidReturn, 1)
            @EndIf
         @Else  //CID - Error - no recovery possible
            @If (!@UpdateMode)
               @ErrorExit("@@CheckFreeSpace: @qInsufficientSpaceText",@iAbort)
            @EndIf
         @EndIf
      @EndIf
      @Goto loop
   @EndIf
   @Return(@iNext)
@EndFunc


//----------------------------------------------------
@DefineFunc @QString @GetInstallPathDrives(@Void)

   @qTMP1 = ""
   @qTMP1 = @AddPathDriveToList(@qTMP1, @qProduct1, @qInstallPath1)
   @qTMP1 = @AddPathDriveToList(@qTMP1, @qProduct2, @qInstallPath2)
   @qTMP1 = @AddPathDriveToList(@qTMP1, @qProduct3, @qInstallPath3)
   @qTMP1 = @AddPathDriveToList(@qTMP1, @qProduct4, @qInstallPath4)
   @qTMP1 = @AddPathDriveToList(@qTMP1, @qProduct5, @qInstallPath5)
   @qTMP1 = @AddPathDriveToList(@qTMP1, @qProduct6, @qInstallPath6)
   @qTMP1 = @AddPathDriveToList(@qTMP1, @qProduct7, @qInstallPath7)
   @qTMP1 = @AddPathDriveToList(@qTMP1, @qProduct8, @qInstallPath8)
   @qTMP1 = @AddPathDriveToList(@qTMP1, @qProduct9, @qInstallPath9)
   @qTMP1 = @AddPathDriveToList(@qTMP1, @qProduct10, @qInstallPath10)
   @Return(@StrUpr(@qTMP1))

@EndFunc

//----------------------------------------------------
@DefineFunc @QString @AddPathDriveToList(@In @QString @qDriveList,
                                         @In @QString @qOption,
                                         @In @QString @qInstallPath)

   @If (@StrCmp(@qOption, "") != 0)
      @If ((@StrFind(@qDriveList, @StrLwr(@StrHead(@qInstallPath, 1))) == -1) && (@StrFind(@qDriveList, @StrUpr(@StrHead(@qInstallPath, 1))) == -1))
         @qDriveList = "@qDriveList@!@StrHead(@qInstallPath, 1)"
      @EndIf
   @EndIf
   @Return(@qDriveList)

@EndFunc


//----------------------------------------------------
@DefineFunc @Integer @GetRequiredDriveSpace(@In @QString @qDrive,
                                            @In @Integer @iDriveNumber)

   @If (@iDriveNumber == 1)
      @iTMP1 = @iDrive1SpaceReq
   @ElseIf (@iDriveNumber == 2)
      @iTMP1 = @iDrive2SpaceReq
   @ElseIf (@iDriveNumber == 3)
      @iTMP1 = @iDrive3SpaceReq
   @ElseIf (@iDriveNumber == 4)
      @iTMP1 = @iDrive4SpaceReq
   @ElseIf (@iDriveNumber == 5)
      @iTMP1 = @iDrive5SpaceReq
   @ElseIf (@iDriveNumber == 6)
      @iTMP1 = @iDrive6SpaceReq
   @ElseIf (@iDriveNumber == 7)
      @iTMP1 = @iDrive7SpaceReq
   @ElseIf (@iDriveNumber == 8)
      @iTMP1 = @iDrive8SpaceReq
   @ElseIf (@iDriveNumber == 9)
      @iTMP1 = @iDrive9SpaceReq
   @ElseIf (@iDriveNumber == 10)
      @iTMP1 = @iDrive10SpaceReq
   @Else
      @ErrorExit(@qErrorInvalidDriveNumber, 1)
   @EndIf

   @Return(@iTMP1)

@EndFunc


//-----------------------------------------------

@DefineFunc @Void @SetDriveInfo(@In @QString @DriveList)

   @qDrive1Drive = ""
   @qDrive2Drive = ""
   @qDrive3Drive = ""
   @qDrive4Drive = ""
   @qDrive5Drive = ""
   @qDrive6Drive = ""
   @qDrive7Drive = ""
   @qDrive8Drive = ""
   @qDrive9Drive = ""
   @qDrive10Drive = ""
   @iDrive1SpaceReq = 0
   @iDrive2SpaceReq = 0
   @iDrive3SpaceReq = 0
   @iDrive4SpaceReq = 0
   @iDrive5SpaceReq = 0
   @iDrive6SpaceReq = 0
   @iDrive7SpaceReq = 0
   @iDrive8SpaceReq = 0
   @iDrive9SpaceReq = 0
   @iDrive10SpaceReq = 0

   @iIndex = 0
   @qSetGroups = @CustomFeaturesToGroups(@qCustomFeatures)

loop:
   @If (@iIndex >= @Strlen(@DriveList))
      @Goto endloop
   @EndIf
//   @qCurrentDrive = "@StrIndex(@DriveList, @iIndex)"
   @qCurrentDrive = @StrMid(@DriveList, @iIndex, 1)
   @qDriveOptions = @DriveToOptions(@qCurrentDrive)
   @ShowAll("@@SetDriveInfo()", "Drive: @qCurrentDrive , DriveOptions = @qDriveOptions")
//   @MsgBox ("Drive: @qCurrentDrive , DriveOptions = @qDriveOptions")
   @If (!@IsNull(@qDriveOptions))
      @qOptionGroups = @OptionsToGroups(@qDriveOptions)
      @If (@IsNULL(@qOptionGroups))
         @InstallSize = 0
      @Else
         @If (@IsNULL(@qSetGroups))
            //noop. All groups from option to be installed.
         @Else
            @qOptionGroups = @GroupIntersection(@qOptionGroups, @qSetGroups)
         @EndIf
         // Need to check for NULL again - the intersection might be empty
         @If (@IsNull(@qOptionGroups))
            @InstallSize = 0
         @Else
            @SetGroupsString(@qOptionGroups)
            @CalcInstallSize()
         @EndIf
      @EndIf
      @iIndex = @Eval(@iIndex + 1)
      @If (@iIndex == 1)
         @qDrive1Drive = "@qCurrentDrive"
         @iDrive1SpaceReq = @InstallSize
      @ElseIf (@iIndex == 2)
         @qDrive2Drive = "@qCurrentDrive"
         @iDrive2SpaceReq = @InstallSize
      @ElseIf (@iIndex == 3)
         @qDrive3Drive = "@qCurrentDrive"
         @iDrive3SpaceReq = @InstallSize
      @ElseIf (@iIndex == 4)
         @qDrive4Drive = "@qCurrentDrive"
         @iDrive4SpaceReq = @InstallSize
      @ElseIf (@iIndex == 5)
         @qDrive5Drive = "@qCurrentDrive"
         @iDrive5SpaceReq = @InstallSize
      @ElseIf (@iIndex == 6)
         @qDrive6Drive = "@qCurrentDrive"
         @iDrive6SpaceReq = @InstallSize
      @ElseIf (@iIndex == 7)
         @qDrive7Drive = "@qCurrentDrive"
         @iDrive7SpaceReq = @InstallSize
      @ElseIf (@iIndex == 8)
         @qDrive8Drive = "@qCurrentDrive"
         @iDrive8SpaceReq = @InstallSize
      @ElseIf (@iIndex == 9)
         @qDrive9Drive = "@qCurrentDrive"
         @iDrive9SpaceReq = @InstallSize
      @ElseIf (@iIndex == 10)
         @qDrive10Drive = "@qCurrentDrive"
         @iDrive10SpaceReq = @InstallSize
      @EndIf
   @Else
      @iIndex = @Eval(@iIndex + 1)   //empty string for Options (qDriveOptions)
   @EndIf
   @Goto loop
endloop:
   // Reset all the groups
   @SetGroupsString(@qSetGroups)
   @Return ()
@EndFunc

//-----------------------------------------------

@DefineFunc @QString @DriveToOptions(@In @QString @DriveLetter)

   @qTMP6 = ""

   @If (!@IsNULL(@qProduct10))
      @If (@StrIndex(@DriveLetter,0) == @StrIndex(@StrUpr(@qInstallPath10),0))
         @qTMP6 = "10 @qTMP6"
      @EndIf
   @EndIf
   @If (!@IsNULL(@qProduct9))
      @If (@StrIndex(@DriveLetter,0) == @StrIndex(@StrUpr(@qInstallPath9),0))
         @qTMP6 = "09 @qTMP6"
      @EndIf
   @EndIf
   @If (!@IsNULL(@qProduct8))
      @If (@StrIndex(@DriveLetter,0) == @StrIndex(@StrUpr(@qInstallPath8),0))
         @qTMP6 = "08 @qTMP6"
      @EndIf
   @EndIf
   @If (!@IsNULL(@qProduct7))
      @If (@StrIndex(@DriveLetter,0) == @StrIndex(@StrUpr(@qInstallPath7),0))
         @qTMP6 = "07 @qTMP6"
      @EndIf
   @EndIf
   @If (!@IsNULL(@qProduct6))
      @If (@StrIndex(@DriveLetter,0) == @StrIndex(@StrUpr(@qInstallPath6),0))
         @qTMP6 = "06 @qTMP6"
      @EndIf
   @EndIf
   @If (!@IsNULL(@qProduct5))
      @If (@StrIndex(@DriveLetter,0) == @StrIndex(@StrUpr(@qInstallPath5),0))
         @qTMP6 = "05 @qTMP6"
      @EndIf
   @EndIf
   @If (!@IsNULL(@qProduct4))
      @If (@StrIndex(@DriveLetter,0) == @StrIndex(@StrUpr(@qInstallPath4),0))
         @qTMP6 = "04 @qTMP6"
      @EndIf
   @EndIf
   @If (!@IsNULL(@qProduct3))
      @If (@StrIndex(@DriveLetter,0) == @StrIndex(@StrUpr(@qInstallPath3),0))
         @qTMP6 = "03 @qTMP6"
      @EndIf
   @EndIf
   @If (!@IsNULL(@qProduct2))
      @If (@StrIndex(@DriveLetter,0) == @StrIndex(@StrUpr(@qInstallPath2),0))
         @qTMP6 = "02 @qTMP6"
      @EndIf
   @EndIf
   @If (!@IsNULL(@qProduct1))
      @If (@StrIndex(@DriveLetter,0) == @StrIndex(@StrUpr(@qInstallPath1),0))
         @qTMP6 = "01 @qTMP6"
      @EndIf
   @EndIf
   @Return(@qTMP6)
@EndFunc

//----------------------------------------------

@DefineFunc @QString @OptionsToGroups(@In @QString @OptionsString)

   @qTMP6 = ""
   @If (@StrFind(@OptionsString, "10") >= 0)
      @qTMP6 = "@qOption10Groups @qTMP6"
   @EndIf
   @If (@StrFind(@OptionsString, "09") >= 0)
      @qTMP6 = "@qOption9Groups @qTMP6"
   @EndIf
   @If (@StrFind(@OptionsString, "08") >= 0)
      @qTMP6 = "@qOption8Groups @qTMP6"
   @EndIf
   @If (@StrFind(@OptionsString, "07") >= 0)
      @qTMP6 = "@qOption7Groups @qTMP6"
   @EndIf
   @If (@StrFind(@OptionsString, "06") >= 0)
      @qTMP6 = "@qOption6Groups @qTMP6"
   @EndIf
   @If (@StrFind(@OptionsString, "05") >= 0)
      @qTMP6 = "@qOption5Groups @qTMP6"
   @EndIf
   @If (@StrFind(@OptionsString, "04") >= 0)
      @qTMP6 = "@qOption4Groups @qTMP6"
   @EndIf
   @If (@StrFind(@OptionsString, "03") >= 0)
      @qTMP6 = "@qOption3Groups @qTMP6"
   @EndIf
   @If (@StrFind(@OptionsString, "02") >= 0)
      @qTMP6 = "@qOption2Groups @qTMP6"
   @EndIf
   @If (@StrFind(@OptionsString, "01") >= 0)
      @qTMP6 = "@qOption1Groups @qTMP6"
   @EndIf

   @Return(@qTMP6)
@EndFunc

//---------------------------------------------------
// Returns the intersection of two sets of groups
@DefineFunc @QString @GroupIntersection(@In @QString @Instring1,
            @In @QString @Instring2)

   @qTMP1 = ""
   @iTMP1 = 0

loop:
   @If (@iTMP1 < @StrLen(@InString1))
      @If ((@StrFind(@StrUpr(@InString2), @StrUpr(@StrMid(@InString1, @iTMP1, 1))) >= 0) &&
           (@StrCmp(@StrMid(@InString1,@iTMP1,1)," ") != 0))
         @qTMP1 = "@StrMid(@InString1, @iTMP1, 1) @qTMP1"
      @EndIf
      @iTMP1 = @Eval(@iTMP1 + 1)
      @Goto loop
   @EndIf
   @Return(@qTMP1)

@EndFunc
//
//
//
//File: ChkInuse /////////////////////////////////////
//
//CIDVars: TBD
//
//Globals changed: none
//
@DefineProto
   @Integer @CheckInUse(@Void)
@EndProto
//
//

//----------------------------------------------------
@DefineFunc @Integer @CheckInUse(@Void)
   //@iDialogRes = @iNext
   @Return(@iDialogRes)
@EndFunc
//
//
//
//File: Confirm /////////////////////////////////////
//
//CIDVars: NONE
//
//Globals changed: NONE
//
@DefineProto
   @Integer @ConfirmInstall(@Void)
   @Void @SetConfirmText(@Void)
@EndProto
//
//

//----------------------------------------------------
@DefineFunc @Integer @ConfirmInstall(@Void)

laConfirmInstall:

@If ( !@CIDBypass("N") )
   @SetConfirmText()

   @iDialogRes = @DialogReadOnlyBmp(@qConfirmTitle,
                 @qConfirmBitmap, @iConfirmBitmapID,
                 @qConfirmText1, @qConfirmText2, @qConfirmText3,
                 @qBack, @qInstall, @qCancel, "", "")

   @If     (@iDialogRes == 1)
      @iDialogRes = @iBack
   @ElseIf (@iDialogRes == 2)
      @iDialogRes = @iNext
   @ElseIf (@iDialogRes == 3)
      @ConfirmCancel()
      @Goto laConfirmInstall
   @ElseIf (@iDialogRes == 4)
      @ShowAll("ConfirmInstall", "Remove 4th button test")
      @Goto laConfirmInstall
   @ElseIf (@iDialogRes == 5)
   @Else
      @ErrorExit(@qConfirmError, @iAbort)
   @EndIf
@Endif

   @Return(@iDialogRes)
@EndFunc


////////////////////////////////////////////////

@DefineFunc @Void @SetConfirmText(@Void)

   @If (@iJavaInstall)
      @If (@iProductClass == @iEnterPrise)
         @qConfirmText3 = "@qCRLF Product Type:  Enterprise@qCRLF"
      @ElseIf (@iProductClass == @iProfessional)
         @qConfirmText3 = "@qCRLF Product Type:  Professional@qCRLF"
      @Else
         @qConfirmText3 = "@qCRLF Product Type:  Entry@qCRLF"
      @EndIf

   @EndIf

   @qConfirmText3 = "@qConfirmText3 @qConfirmType"
   @If (@iInstallType == 1)
      @qConfirmText3 = "     @qConfirmText3     @qInstallType1@qCRLF"
   @ElseIf (@iInstallType == 2)
      @qConfirmText3 = "     @qConfirmText3     @qInstallType2@qCRLF"
   @ElseIf (@iInstallType == 3)
      @qConfirmText3 = "     @qConfirmText3     @qInstallType3@qCRLF"
   @ElseIf (@iInstallType == 4)
      @qConfirmText3 = "     @qConfirmText3     @qInstallType4@qCRLF"
   @ElseIf (@iInstallType == 5)
      @qConfirmText3 = "     @qConfirmText3     @qInstallType5@qCRLF"
   @Else
      @qConfirmText3 = "     @qConfirmText3     @qInstallType6@qCRLF"
   @EndIf

   @If (@iJavaInstall)
      @qConfirmText3 = "@qConfirmText3@qCRLF Required (Autoselected) Features@qCRLF"
      @qConfirmText3 = "@qConfirmText3     Integrated Development Environment@qCRLF"
      @If (@iProductClass != @iEntry)
         @qConfirmText3 = "@qConfirmText3     Integrated Development Environment Help@qCRLF"
         @qConfirmText3 = "@qConfirmText3     HTML Search Engine@qCRLF"
         @qConfirmText3 = "@qConfirmText3     Product Registration, Uninstall@qCRLF"
      @EndIf
   @EndIf

   @qConfirmText3 = "@qConfirmText3@qCRLF@qConfirmFeatures@qCRLF"
   @If (@StrFind(@qCustomFeatures,"01") >= 0)
      @qConfirmText3 = "@qConfirmText3     @qFeature01@qCRLF"
   @EndIf
   @If (@StrFind(@qCustomFeatures,"02") >= 0)
      @qConfirmText3 = "@qConfirmText3     @qFeature02@qCRLF"
   @EndIf
   @If (@StrFind(@qCustomFeatures,"03") >= 0)
      @qConfirmText3 = "@qConfirmText3     @qFeature03@qCRLF"
   @EndIf
   @If (@StrFind(@qCustomFeatures,"04") >= 0)
      @qConfirmText3 = "@qConfirmText3     @qFeature04@qCRLF"
   @EndIf
   @If (@StrFind(@qCustomFeatures,"05") >= 0)
      @qConfirmText3 = "@qConfirmText3     @qFeature05@qCRLF"
   @EndIf
   @If (@StrFind(@qCustomFeatures,"06") >= 0)
      @qConfirmText3 = "@qConfirmText3     @qFeature06@qCRLF"
   @EndIf
   @If (@StrFind(@qCustomFeatures,"07") >= 0)
      @qConfirmText3 = "@qConfirmText3     @qFeature07@qCRLF"
   @EndIf
   @If (@StrFind(@qCustomFeatures,"08") >= 0)
      @qConfirmText3 = "@qConfirmText3     @qFeature08@qCRLF"
   @EndIf
   @If (@StrFind(@qCustomFeatures,"09") >= 0)
      @qConfirmText3 = "@qConfirmText3     @qFeature09@qCRLF"
   @EndIf
   @If (@StrFind(@qCustomFeatures,"10") >= 0)
      @qConfirmText3 = "@qConfirmText3     @qFeature10@qCRLF"
   @EndIf
   @If (@StrFind(@qCustomFeatures,"11") >= 0)
      @qConfirmText3 = "@qConfirmText3     @qFeature11@qCRLF"
   @EndIf
   @If (@StrFind(@qCustomFeatures,"12") >= 0)
      @qConfirmText3 = "@qConfirmText3     @qFeature12@qCRLF"
   @EndIf
   @If (@StrFind(@qCustomFeatures,"13") >= 0)
      @qConfirmText3 = "@qConfirmText3     @qFeature13@qCRLF"
   @EndIf
   @If (@StrFind(@qCustomFeatures,"14") >= 0)
      @qConfirmText3 = "@qConfirmText3     @qFeature14@qCRLF"
   @EndIf
   @If (@StrFind(@qCustomFeatures,"15") >= 0)
      @qConfirmText3 = "@qConfirmText3     @qFeature15@qCRLF"
   @EndIf
   @If (@StrFind(@qCustomFeatures,"16") >= 0)
      @qConfirmText3 = "@qConfirmText3     @qFeature16@qCRLF"
   @EndIf


 @If (@iJavaInstall)
      @qConfirmText3 = "@qConfirmText3@qProduct1:     @qInstallPath1@qCRLF"
 @Else
   @qConfirmText3 = "@qConfirmText3@qConfirmPaths@qCRLF"
   @If (!@IsNull(@qProduct1))
      @qConfirmText3 = "@qConfirmText3     @qProduct1@qCRLF          @qInstallPath1@qCRLF"
   @EndIf
   @If (!@IsNull(@qProduct2))
      @qConfirmText3 = "@qConfirmText3     @qProduct2@qCRLF          @qInstallPath2@qCRLF"
   @EndIf
   @If (!@IsNull(@qProduct3))
      @qConfirmText3 = "@qConfirmText3     @qProduct3@qCRLF          @qInstallPath3@qCRLF"
   @EndIf
   @If (!@IsNull(@qProduct4))
      @qConfirmText3 = "@qConfirmText3     @qProduct4@qCRLF          @qInstallPath4@qCRLF"
   @EndIf
   @If (!@IsNull(@qProduct5))
      @qConfirmText3 = "@qConfirmText3     @qProduct5@qCRLF          @qInstallPath5@qCRLF"
   @EndIf
   @If (!@IsNull(@qProduct6))
      @qConfirmText3 = "@qConfirmText3     @qProduct6@qCRLF          @qInstallPath6@qCRLF"
   @EndIf
   @If (!@IsNull(@qProduct7))
      @qConfirmText3 = "@qConfirmText3     @qProduct7@qCRLF          @qInstallPath7@qCRLF"
   @EndIf
   @If (!@IsNull(@qProduct8))
      @qConfirmText3 = "@qConfirmText3     @qProduct8@qCRLF          @qInstallPath8@qCRLF"
   @EndIf
   @If (!@IsNull(@qProduct9))
      @qConfirmText3 = "@qConfirmText3     @qProduct9@qCRLF          @qInstallPath9@qCRLF"
   @EndIf
   @If (!@IsNull(@qProduct10))
      @qConfirmText3 = "@qConfirmText3     @qProduct10@qCRLF          @qInstallPath10@qCRLF"
   @EndIf
 @EndIf

   @qConfirmText3 = "@qConfirmText3@qCRLF@qConfirmSpace@qCRLF"
   @If (!@IsNull(@qDrive1Drive))
      @qConfirmText3 = "@qConfirmText3     @qDrive1Drive:     @Eval(@iDrive1SpaceReq/1024) KB@qCRLF"
   @EndIf
   @If (!@IsNull(@qDrive2Drive))
      @qConfirmText3 = "@qConfirmText3     @qDrive2Drive:     @Eval(@iDrive2SpaceReq/1024) KB@qCRLF"
   @EndIf
   @If (!@IsNull(@qDrive3Drive))
      @qConfirmText3 = "@qConfirmText3     @qDrive3Drive:     @Eval(@iDrive3SpaceReq/1024) KB@qCRLF"
   @EndIf
   @If (!@IsNull(@qDrive4Drive))
      @qConfirmText3 = "@qConfirmText3     @qDrive4Drive:     @Eval(@iDrive4SpaceReq/1024) KB@qCRLF"
   @EndIf
   @If (!@IsNull(@qDrive5Drive))
      @qConfirmText3 = "@qConfirmText3     @qDrive5Drive:     @Eval(@iDrive5SpaceReq/1024) KB@qCRLF"
   @EndIf
   @If (!@IsNull(@qDrive6Drive))
      @qConfirmText3 = "@qConfirmText3     @qDrive6Drive:     @Eval(@iDrive6SpaceReq/1024) KB@qCRLF"
   @EndIf
   @If (!@IsNull(@qDrive7Drive))
      @qConfirmText3 = "@qConfirmText3     @qDrive7Drive:     @Eval(@iDrive7SpaceReq/1024) KB@qCRLF"
   @EndIf
   @If (!@IsNull(@qDrive8Drive))
      @qConfirmText3 = "@qConfirmText3     @qDrive8Drive:     @Eval(@iDrive8SpaceReq/1024) KB@qCRLF"
   @EndIf
   @If (!@IsNull(@qDrive9Drive))
      @qConfirmText3 = "@qConfirmText3     @qDrive9Drive:     @Eval(@iDrive9SpaceReq/1024) KB@qCRLF"
   @EndIf
   @If (!@IsNull(@qDrive10Drive))
      @qConfirmText3 = "@qConfirmText3     @qDrive10Drive:     @Eval(@iDrive10SpaceReq/1024) KB@qCRLF"
   @EndIf

   @Return()
@EndFunc
//
//
//
//File: SetEnv /////////////////////////////////////
//
//CIDVars: TBD
//
//Globals changed: qOldValue
//
@DefineProto
   @Integer @SetEnvironment(@Void)
   @Void @CreateNextEnvVarsItem(@In @QString @qName, @In @QString @qValue,
                                @In @QString @qMethod, @InOut @QString @qOldValue)
   @Void @SetEnvAutoexecBat(@In @QString @qName, @In @QString @qValue,
                            @In @QString @qMethod, @InOut @QString @qOldValue)
   @Void @SetEnvNTRegistry(@In @QString @qName, @In @QString @qValue,
                           @In @QString @qMethod, @InOut @QString @qOldValue)
   @Void @SetEnvConfigSys(@In @QString @qName, @In @QString @qValue,
                          @In @QString @qMethod, @InOut @QString @qOldValue)
   @Void @EventHandler @SetEnvRBHandler(@In @Int @OldSelected, @In @Int @NewSelected, @In @Int @RangeStart, @In @Int @RangeEnd)
   @Void @SetEnvSetHelpText(@Void)

   @QString @QueryVar(@In @QString @Filename, @In @QString @VarName)
   @Void @WriteVar(@In @QString @InFile, @In @QString @VarName, @In @QString @Value)
   @Void @DeleteVar(@InOut @QString @Buffer, @In @QString @Value)
   @Void @PrependVar(@InOut @QString @Buffer, @In @QString @Value)
   @Void @AppendVar(@InOut @QString @Buffer, @In @QString @Value)
   @QString @CreateBackupFilename(@In @QString @Filename)
   @Void @ModifyBatFile(@In @QString @qBatchStem, @In @QString @qName, @In @QString @qValue)
@EndProto
//
//
//----------------------------------------------------------
@DefineFunc @Void @EventHandler @SetEnvRBHandler(@In @Int @OldSelected,
                                                 @In @Int @NewSelected,
                                                 @In @Int @RangeStart,
                                                 @In @Int @RangeEnd)
  @If (@NewSelected == 1410)
     @iSetEnvRBSelected = 1
  @ElseIf(@NewSelected == 1420)
     @iSetEnvRBSelected = 2
  @ElseIf(@NewSelected == 1430)
     @iSetEnvRBSelected = 3
  @Else
     @ErrorExit(@qSetEnvTypeError1, @iAbort)
  @EndIf
  @SetEnvSetHelpText()
  @StaticText(510, @qSetEnvTypeHelpText)
  @Return()
@EndFunc

//----------------------------------------------------------
@DefineFunc @Integer @SetEnvironment(@Void)


   // @DisplayEnvvarChoice is a variable which allows a product to
   // suppress the displaying of the envvar choice dialog

   @If ((!@CIDBypass(@qForceSetEnvironment)) && (@iDisplayEnvvarChoice))
      @If (@Platform == @Windows)
         @If(@SubPlatform == @Windows95)
            @qSetEnvMessage = "@qSetBypassMessageWin95 @qSetEnvBatMessage"
            @qSetEnvRBText2 = @qSetEnvText
            @qSetEnvRBText3 = ""
         @ElseIf(@SubPlatform == @WindowsNT)
            @qSetEnvMessage = "@qSetBypassMessageNT @qSetEnvBatMessage"
            @If (@WinIsAdmin())
               @qSetEnvRBText2 = @qSetForCurrentUserText
               @qSetEnvRBText3 = @qSetForAllUsersText
            @Else
               @qSetEnvRBText2 = @qSetEnvText
               @qSetEnvRBText3 = ""
            @EndIf
         @Else
            @ErrorExit(@qInvalidOSError, @iAbort)
         @EndIf
      @ElseIf (@Platform == @OS2)
         @qSetEnvMessage = "@qSetBypassMessageOS2 @qSetEnvBatMessage"
         @qSetEnvRBText2 = @qSetEnvText
         @qSetEnvRBText3 = ""
      @Else
         @ErrorExit(@qInvalidOSError, @iAbort)
      @EndIf
      @SetEnvSetHelpText()

laSetEnvDialog:

      @MapEventToFunc(@DlgRBEvent, @SetEnvRBHandler)
      @EnableEventMap(@DlgRBEvent)

      @If(@Platform == @Windows)
         @If(@SubPlatform == @Windows95)
            @qSetEnvBackupMessage = "AUTOEXEC.BAT will be backed up."
         @Else
            @qSetEnvBackupMessage = ""
         @EndIf
      @ElseIf(@Platform == @OS2)
         @qSetEnvBackupMessage = "CONFIG.SYS will be backed up."
      @Else
         @qSetEnvBackupMessage = ""
      @EndIf

      @iDialogRes = @DialogRadio(@qSetEnvTitle, @qSetEnvBitmap, @iSetEnvBitmapID,
                                 @qSetEnvMessage, @qSetEnvTypeHelpText, @qSetEnvBackupMessage,
                                 @qBypassRBText, @qSetEnvRBText2,
                                 @qSetEnvRBText3, "", "", "", @qHelp, @qNext,
                                 @qCancel, "", "", @iSetEnvRBSelected)

      @DisableEventMap(@DlgRBEvent)

      @If (@iDialogRes == 1)
         @DisplayHelp("@qSetEnvHelpFile")
         @Goto laSetEnvDialog
      @ElseIf (@iDialogRes == 2)
         //Bypass
      @ElseIf (@iDialogRes == 3)
         @ConfirmCancel()
         @Goto laSetEnvDialog
      @Else
            @MsgBox(@qErrorInvalidReturn)
            @Goto laSetEnvDialog
      @EndIf

laSetEnvPostprocessing:

      @If (@iSetEnvRBSelected == 1)
         @Goto laModifySetEnvBat
      @ElseIf(@iSetEnvRBSelected == 2)
         @qEnvVarLoc = @qRegSetForCurrentUser
         @iSetEnvForAllUsers = @FALSE
      @ElseIf(@iSetEnvRBSelected == 3)
         @qEnvVarLoc = @qRegSetForAllUsers
         @iSetEnvForAllUsers = @TRUE
      @Else
         @ErrorExit(@qSetEnvTypeError1)
      @EndIf

   @Else
      @qEnvvarLoc = @qRegSetForAllUsers
      @iSetEnvForAllUsers = @TRUE
   @EndIf

//   @ShowBMP(0, @Eval((@WinScreenCaps(8) - 350) / 2), @Eval((@WinScreenCaps(10) - 60) / 2), "@qSetEnvBMPFile", 2)

   // The following function (@DoEnvvars() from the file envvars.dat)
   // reads info from install.ini and calls the function
   // @CreateNextEnvVarsItem() which sets the specified environment variable.
   @DoEnvvars(@qDefaultsfilename)

   // Set the value which states where environment variables were set in the
   // in the Windows registry (i.e. current user space, system space, or bypassed).
   @If((@Platform == @Windows) && (@SubPlatform == @WindowsNT))
      @SetRegProdValue(@lEnvVarLoc, @qEnvVarLoc)
   @EndIf

//   @EraseBMP(0)

laModifySetEnvBat:
   @ModifyBatFile("SETENV", @qMainProdVar, @qInstallPath1)

laModifyUninstalBat:
   @ModifyBatFile("\\INSTALL\\UNINSTAL", "INSTDIR", "@qInstallPath1\\INSTALL")

   @Return(@iNext)

@EndFunc


//----------------------------------------------------------
@DefineFunc @Void @CreateNextEnvVarsItem(@In @QString @qName,
                                         @In @QString @qValue,
                                         @In @QString @qMethod
                                         @InOut @QString @qOldValue)

   @qValue = @ReplaceMagicVariable(@qValue)
   @If (@Platform == @Windows)
      @If (@SubPlatform == @Windows95)
         @If(@iMakeAutoexecBatBackup)
            @qBackupAutoexecBatFile = @CreateBackupFilename("AUTOEXEC.BAT")
            @qBackupAutoexecBatFile = "@BootDrive:\\@qBackupAutoexecBatFile"
            @Copy(@qAutoexecBatFile, @qBackupAutoexecBatFile)
            @iMakeAutoexecBatBackup = @False
         @EndIf
         @SetEnvAutoexecBat(@qName, @qValue, @qMethod, @qOldValue)
      @ElseIf (@SubPlatform == @WindowsNT)
         @SetEnvNTRegistry(@qName, @qValue, @qMethod, @qOldValue)
      @Else
         @ErrorExit(@qInvalidOSError, @iAbort)
      @EndIf
   @ElseIf (@Platform == @OS2)
      @If(@iMakeConfigSysBackup)
         @qBackupConfigSysFile = @CreateBackupFilename("CONFIG.SYS")
         @qBackupConfigSysFile = "@BootDrive:\\@qBackupConfigSysFile"
         @Copy(@qConfigSysFile, @qBackupConfigSysFile)
         @iMakeConfigSysBackup = @False
      @EndIf
      @SetEnvConfigSys(@qName, @qValue, @qMethod, @qOldValue)
   @Else
      @ErrorExit(@qInvalidOSError, @iAbort)
   @EndIf

   @Return()

@EndFunc


//----------------------------------------------------------
@DefineFunc @Void @SetEnvAutoexecBat(@In @QString @qName, @In @QString @qValue,
                                     @In @QString @qMethod, @InOut @QString @qOldValue)

   @ShowAll("@@SetEnvAutoexecBat","Setting @qName")

   @qOldValue = ""

   @If(@StrCmp(@qMethod, @qSetEnvReplaceVar) == 0)
      @qOldValue = @QueryVar(@qAutoexecBatFile, @qName)
      @qTMP1 = @qValue
   @Else
      @qTMP1 = @QueryVar(@qAutoexecBatFile, @qName)
      @PrependVar(@qTMP1, @qValue)
   @EndIf
   @WriteVar(@qAutoexecBatFile, @qName, @qTMP1)

   @Return()
@EndFunc


//----------------------------------------------------------
@DefineFunc @Void @SetEnvNTRegistry(@In @QString @qName, @In @QString @qValue,
                                    @In @QString @qMethod, @InOut @QString @qOldValue)

    @qOldValue = ""

   @If (@iSetEnvForAllUsers)
      @iEnvVarKeyHandle = @HKeyLocalMachine
      @qTMP1 = "System\\CurrentControlSet\\Control\\Session Manager\\Environment"
   @Else
      @iEnvVarKeyHandle = @HKeyCurrentUser
      @qTMP1 = "Environment"
   @EndIf

   @If (@WinRegOpenKeyEx(@iEnvVarKeyHandle, @qTMP1, @iRegKeyAllAccess,
                         @iKeyHandle) != 0)
      @ErrorExit(@qRegOpenEnvVarKeyError, 1)
   @Else
      @If (@WinRegQueryValueEx(@iKeyHandle, @qName, @iRegValueType,
                               @qEnvVarSetting, @iTMP1) != 0)
         //env var name does not exist so set it.
         @If (@WinRegSetValueEx(@iKeyHandle, @qName, @iRegString,
                                @qValue, @StrLen(@qValue) + 1) != 0)
            @ErrorExit("@qRegSetValueError Name:@qName, Value:@qValue", 2)
         @EndIf
      @Else
         @If (@StrCmp(@qEnvVarSetting, "") == 0)
            //Null value so set it.
            @If (@WinRegSetValueEx(@iKeyHandle, @qName, @iRegValueType,
                                   @qValue, @StrLen(@qValue) + 1) != 0)
               @ErrorExit("@qRegSetValueError Name:@qName, Value:@qValue", 2)
            @EndIf
         @ElseIf (@StrCmp(@qMethod, @qSetEnvReplaceVar) == 0)
            @qOldValue = @qEnvVarSetting
            //set value but keep the oldvalue.
            @If (@WinRegSetValueEx(@iKeyHandle, @qName, @iRegValueType,
                                @qValue, @StrLen(@qValue) + 1) != 0)
               @ErrorExit("@qRegSetValueError Name:@qName, Value:@qValue", 2)
            @EndIf
         @Else
            //prepend the value to the environment variable.
            @PrependVar(@qEnvVarSetting, @qValue)
            @If (@WinRegSetValueEx(@iKeyHandle, @qName, @iRegValueType,
                                @qEnvVarSetting, @StrLen(@qEnvVarSetting) + 1) != 0)
               @ErrorExit("@qRegSetValueError Name:@qName, Value:@qValue", 2)
            @EndIf
         @EndIf
      @EndIf
      //Ensure that we don't write empty string to install.sys
      @If (@StrCmp(@qOldValue, "") == 0)
         @qOldValue = @qDoubleQuotes
      @EndIf
   @EndIf

   @Return()
@EndFunc


//----------------------------------------------------------
@DefineFunc @Void @SetEnvConfigSys(@In @QString @qName, @In @QString @qValue,
                                   @In @QString @qMethod, @InOut @QString @qOldValue)

   @ShowAll("@@SetEnvConfigSys","Setting @qName")

   @qOldValue = ""

   @If(@StrCmp(@qMethod, @qSetEnvReplaceVar) == 0)
      @qOldValue = @QueryVar(@qConfigSysFile, @qName)
      @qTMP1 = @qValue
   @Else
      @qTMP1 = @QueryVar(@qConfigSysFile, @qName)
      @PrependVar(@qTMP1, @qValue)
   @EndIf
   @WriteVar(@qConfigSysFile, @qName, @qTMP1)

   @Return()
@EndFunc


//----------------------------------------------------------
@DefineFunc @Void @SetEnvSetHelpText(@Void)

  @If (@iSetEnvRBSelected == 1)
     @qSetEnvTypeHelpText = @qSetEnvTypeHelp1
  @ElseIf (@iSetEnvRBSelected == 2)
     @If ((@SubPlatform == @WindowsNT) && (@WinIsAdmin())
        @qSetEnvTypeHelpText = @qSetEnvTypeHelp2a
     @Else
        @qSetEnvTypeHelpText = @qSetEnvTypeHelp2
     @EndIf
  @ElseIf (@iSetEnvRBSelected == 3)
     @qSetEnvTypeHelpText = @qSetEnvTypeHelp3
  @Else
     @ErrorExit(@qSetEnvTypeError1, @iAbort)
  @EndIf

  @Return()

@EndFunc

@DefineFunc @QString @QueryVar(@In @QString @Filename, @In @QString @VarName)
   @If(@Exists(@Filename))
      @iRetVal = @ReadLine(@Filename, @qTempStr, 2048, 0)

laNextLineLoop:

      @If(@iRetVal != -1)
         @If(@StrLen(@qTempStr) > 0)
            @qTempStr2 = @StrUpr(@StrToken(@qTempStr, 0))
            @If(@StrCmp(@qTempStr2, "SET") == 0)
               @qTempStr2 = @StrToken(@StrTail(@qTempStr, (@StrLen(@qTempStr) - @StrLen(@qTempStr2) - 1)), 0, "=")
            @ElseIf(@Strcmp(@qTempStr2, "REM") == 0)
               @qTempStr2 = ""
            @Else
               @qTempStr2 = @StrToken(@qTempStr, 0, "=")
            @EndIf
         @Else
            @iRetVal = @ReadLine(@Filename, @qTempStr, 2048)
            @Goto laNextLineLoop
         @EndIf

         @If(@StrCmp(@StrUpr(@qTempStr2), @StrUpr(@VarName)) != 0)
            @iRetVal = @ReadLine(@Filename, @qTempStr, 2048)
            @Goto laNextLineLoop
         @Else
            @qRetVal = @StrToken(@qTempStr, 1, "=")
         @EndIf

      @Else
         @qRetVal = ""
      @EndIf

   @Else
      @qRetVal = ""
   @EndIf

   @Return(@qRetVal)
@EndFunc


//----------------------------------------------------------
@DefineFunc @Void @WriteVar(@In @QString @InFile, @In @QString @VarName, @In @QString @Value)

   @If(@Exists(@InFile))

      @iVarWritten = @False
      @iRetVal = @ReadLine(@InFile, @qTempStr, 2048, 0)
      @Write("@qTempPath\\@qTempTextFile", "wt", "")

laNextLineLoop:

      @If(@iRetVal != -1)
         @If(@StrLen(@qTempStr) > 0)

            @qTempStr2 = @StrUpr(@StrToken(@qTempStr, 0))
            @If(@StrCmp(@qTempStr2, "SET") == 0)
               @qTempStr2 = @StrToken(@StrTail(@qTempStr, (@StrLen(@qTempStr) - @StrLen(@qTempStr2) - 1)), 0, "=")
               @iRetVal = -2
            @ElseIf(@Strcmp(@qTempStr2, "REM") == 0)
               @qTempStr2 = ""
            @Else
               @qTempStr2 = @StrToken(@qTempStr, 0, "=")
            @EndIf
         @EndIf

         @If((@StrCmp(@StrUpr(@qTempStr2), @StrUpr(@VarName)) != 0) || @iVarWritten)
            @Write("@qTempPath\\@qTempTextFile", "at", "@qTempStr\n")
         @Else
            @If(!@IsNULL(@Value))
               @If(@iRetVal == -2)
                  @Write("@qTempPath\\@qTempTextFile", "at", "SET @VarName=@Value\n")
               @Else
                  @Write("@qTempPath\\@qTempTextFile", "at", "@VarName=@Value\n")
               @EndIf
            @EndIf

            @If((@StrLen(@Value) > @iSetEnvVarMaxLength) && (@Platform == @Windows) && (@SubPlatform == @Windows95))
               @MsgBox("@VarName@qSetEnvVarMaxLengthWarning@qAutoexecBatFile.")
            @EndIf

            @iVarWritten = @True
         @EndIf

         @iRetVal = @ReadLine(@InFile, @qTempStr, 2048)
         @Goto laNextLineLoop

      @EndIf

      @If(!@iVarWritten)
         @Write("@qTempPath\\@qTempTextFile", "at", "SET @VarName=@Value\n")
         @iVarWritten = @True
      @EndIf

      // @Delete(@InFile)
      @Copy("@qTempPath\\@qTempTextFile", @InFile)

   @Else
      @Write(@InFile, "wt", "SET @VarName=@Value\n")
      @iVarWritten = @True
   @EndIf

   @Return()
@EndFunc


//----------------------------------------------------------
@DefineFunc @Void @DeleteVar(@InOut @QString @Buffer, @In @QString @Value)

//Add leading and ending semicolons

   @qTempStr2 = ";@Value;"
   @qTempStr3 = ";@Buffer;"
   @iPos = @StrFind(@StrUpr(@qTempStr3), @StrUpr(@qTempStr2))

   @If(@iPos != -1)
      @qTempStr3 = @StrDel(@qTempStr3, @iPos, (@StrLen(@qTempStr2) - 1))

//Remove leading and trailing semicolon that was added initially
//for the check. Special case exists when the value is the only
//entry.
      @qTempStr3 = @StrTail(@qTempStr3, (@StrLen(@qTempStr3) - 1))
      @If(@StrLen(@qTempStr3) > 0)
         @qTempStr3 = @StrHead(@qTempStr3, (@StrLen(@qTempStr3) - 1))
      @EndIf
      @Buffer = @qTempStr3
   @EndIf

   @Return()
@EndFunc


//----------------------------------------------------------
@DefineFunc @Void @PrependVar(@InOut @QString @Buffer, @In @QString @Value)
   @qTempStr = @Value
   @DeleteVar(@Buffer, @qTempStr)
   @If(@IsNull(@Buffer))
      @Buffer = @Value
   @Else
      @Buffer = "@Value;@Buffer"
   @EndIf

   @Return()
@EndFunc


//----------------------------------------------------------
@DefineFunc @Void @AppendVar(@InOut @QString @Buffer, @In @QString @Value)
   @qTempStr = @Value
   @DeleteVar(@Buffer, @qTempStr)
   @If(@IsNull(@Buffer))
      @Buffer = @Value
   @Else
      @Buffer = "@Buffer;@Value"
   @EndIf

   @Return()
@EndFunc


//----------------------------------------------------------
@DefineFunc @QString @CreateBackupFilename(@In @QString @Filename)
   @qTMP1 = @Filename
   @If(@StrFind(@qTMP1, ".") != -1)
      @qTMP1 = @StrHead(@qTMP1, @StrFind(@qTMP1, "."))
   @EndIf

   @If(@StrLen(@qTMP1) > 8)
      @qTMP1 = @StrHead(@qTMP1, 8)
   @EndIf

   @If(@StrLen(@qTMP1) > 0)

      @iTMP1 = 0

laCreateExtension:
      @If (@iTMP1 > 100)
         @iTMP1 = 100
         @qTMP2 = "@iTMP1"
         @If (@Exists("@BootDrive:\\@qTMP1.@qTMP2"))
            @Delete("@BootDrive:\\@qTMP1.@qTMP2")
         @EndIf
      @EndIf
      @qTMP2 = "@iTMP1"

laZeroPad:
      @If(@StrLen(@qTMP2) < 3)
         @qTMP2 = "0@qTMP2"
         @Goto laZeroPad
      @EndIf

      @If(@Exists("@BootDrive:\\@qTMP1.@qTMP2"))
         @iTMP1 = (@iTMP1 + 1)
         @Goto laCreateExtension
      @Else
         @qTMP1 = "@qTMP1.@qTMP2"
      @EndIf

   @EndIf

   @qRetVal = @qTMP1

   @Return(@qRetVal)
@EndFunc

//---------------------------------------------------------------
@DefineFunc @Void @ModifyBatFile(@In @QString @qBatchStem, @In @QString @qName, @In @QString @qValue)
   @If(@Platform == @OS2)
      @qTMP1 = "@qInstallPath1\\@qBatchStem.CMD"
   @Else
      @qTMP1 = "@qInstallPath1\\@qBatchStem.BAT"
   @EndIf
   @If(@Exists(@qTMP1))
      @WriteVar(@qTMP1, @qName, @qValue)
   @EndIf
   @Return()
@EndFunc
//
//
//
//File: SetPVar /////////////////////////////////////
//
//CIDVars: TBD
//
//Globals changed:
//
@DefineProto
   @Integer @SetProductVariables(@Void)
   @Void @CreateNextProdVarsItem(@In @QString @qName, @In @QString @qValue,
                                 @In @QString @qDataType,
                                 @In @QString @qComponent, @In @QString @qMethod)
   @Void @SetWinProdVar(@In @QString @qName, @In @QString @qValue,
                        @In @Integer @iDataType,
                        @In @QString @qComponent, @In @QString @qMethod)
   @Void @SetOS2ProdVar(@In @QString @qName, @In @QString @qValue,
                        @In @Integer @iDataType,
                        @In @QString @qComponent, @In @QString @qMethod)
   @Void @SetOS2ProductINIString(@In @QString @qComponent,
            @In @QString @qName, @In @QString @qValue)

   @QString @GetOS2ProductINIString(@In @QString @qComponent
            @In @QString @qName)
   @QString @GetOS2ExtProductINIString(@In @QString @qComponent
            @In @QString @qName)


@EndProto
//
//
//----------------------------------------------------------
@DefineFunc @Integer @SetProductVariables(@Void)

//   @ShowBMP(0, @Eval((@WinScreenCaps(8) - 350) / 2), @Eval((@WinScreenCaps(10) - 60) / 2), "@qSetPVarBMPFile", 2)

   // The following function (@DoProdvars() from the file Prodvar.dat)
   // reads info from install.ini and calls the function
   // @CreateNextProdVarsItem() which sets the specified product variable.
   @DoProdVars(@qDefaultsfilename)

//   @EraseBMP(0)

   @Return(@iNext)

@EndFunc


//----------------------------------------------------------
@DefineFunc @Void @CreateNextProdVarsItem(@In @QString @qName,
                                          @In @QString @qValue,
                                          @In @QString @qDataType,
                                          @In @QString @qComponent,
                                          @In @QString @qMethod)

   @ShowAll("@@CreateNextProdVarsItem","What is default behaviour if no group specified?")
   @qValue = @ReplaceMagicVariable(@qValue)
   @If ((@StrCmpNos(@qDataType, @lString) == 0) || (@StrCmp(@qDataType, "") == 0))
      @iDataType = @iRegString
   @ElseIf (@StrCmpNos(@qDataType, @lExpandString) == 0)
      @iDataType = @iRegExpandString
   @ElseIf (@StrCmpNos(@qDataType, @lBinary) == 0)
      @iDataType = @iRegBinary
   @ElseIf (@StrCmpNos(@qDataType, @lDWORD) == 0)
      @iDataType = @iRegDword
   @ElseIf (@StrCmpNos(@qDataType, @lMultiString) == 0)
      @iDataType = @iRegMultiString
   @Else
      @ErrorExit("@qInvalidDataType @qName , @qComponent", 2)
   @EndIf

   @If (@Platform == @Windows)
      @SetWinProdVar(@qName, @qValue, @iDataType, @qComponent, @qMethod)
   @ElseIf (@Platform == @OS2)
      @SetOS2ProdVar(@qName, @qValue, @iDataType, @qComponent, @qMethod)
   @Else
      @ErrorExit(@qInvalidOSError, @iAbort)
   @EndIf
   @Return()

@EndFunc


//----------------------------------------------------------
@DefineFunc @Void @SetWinProdVar(@In @QString @qName,
                                 @In @QString @qValue,
                                 @In @Integer @iDataType,
                                 @In @QString @qComponent,
                                 @In @QString @qMethod)

   @qTMP1 = "SOFTWARE\\@qCompanyName\\@qProductName\\@qProductVersion\\@qComponent"

   @If (@WinRegCreateKeyEx(@HKeyLocalMachine, @qTMP1, "", 0, @iRegKeyAllAccess,
                           @Null, @iKeyHandle, @iDisposition) != 0)
      @ErrorExit("@qRegCreateProdVarKeyError Component: @qComponent", 1)
   @EndIf

   @If ((@iDataType == @iRegString) || (@iDataType == @iRegExpandString))
      @If (@WinRegQueryValueEx(@iKeyHandle, @qName, @iRegValueType,
                               @qProdVarSetting, @iTMP1, @iTMP2) != 0)
         //Prod var name does not exist so set it.
         @If (@WinRegSetValueEx(@iKeyHandle, @qName, @iDataType,
                                @qValue, @StrLen(@qValue) + 1) != 0)
            @ErrorExit("@qRegSetValueError Name:@qName, Value:@qValue", 2)
         @EndIf
      @Else
         @If (@StrCmpNos(@qMethod, @qAppendProdVar) == 0)
            //Append value
            @AppendVar(@qProdVarSetting, @qValue)
            @If (@WinRegSetValueEx(@iKeyHandle, @qName, @iRegValueType,
                                @qProdVarSetting, @StrLen(@qProdVarSetting) + 1) != 0)
               @ErrorExit("@qRegSetValueError Name:@qName, Value:@qValue", 2)
            @EndIf
         @Else
            @If (@WinRegSetValueEx(@iKeyHandle, @qName, @iDataType,
                                   @qValue, @StrLen(@qValue) + 1) != 0)
               @ErrorExit("@qRegSetValueError Name:@qName, Value:@qValue", 2)
            @EndIf
         @EndIf
      @EndIf
   @Else //datatype is not string or expandstring
      @If (@WinRegSetValueEx(@iKeyHandle, @qName, @iDataType,
                             @qValue, @StrLen(@qValue) + 1) != 0)
         @ErrorExit("@qRegSetValueError Name:@qName, Value:@qValue", 2)
      @EndIf
   @EndIf

   @Return()
@EndFunc


//----------------------------------------------------------
@DefineFunc @Void @SetOS2ProdVar(@In @QString @qName,
                                 @In @QString @qValue,
                                 @In @Integer @iDataType,
                                 @In @QString @qComponent,
                                 @In @QString @qMethod)

   @ShowAll("@@SetOS2ProdVar","Setting Component: @qComponent , Name: @qName")
   @If (@iDataType == @iRegString)
      @SetOS2ProductINIString(@qComponent,@qName,@qValue)
   @EndIf

   @Return()
@EndFunc

//--------------------------------------------------------

@DefineFunc @Void @SetOS2ProductINIString(@In @QString @qComponent,
            @In @QString @qName, @In @QString @qValue)

   @OS2SetIni(@qComponent, @qName,@QValue,@qProductINI)

   @Return()
@EndFunc

//---------------------------------------------------------

@DefineFunc @QString @GetOS2ProductINIString(@In @QString @qComponent,
            @In @QString @qName)


   @Return(@OS2GetINI(@qComponent, @qName, @qProductINI))

@EndFunc

//---------------------------------------------------------

@DefineFunc @QString @GetOS2ExtProductINIString(@In @QString @qComponent,
            @In @QString @qName)

   @Return(@OS2GetINI(@qComponent, @qName, @qExtProductINI))

@EndFunc
//
//
//
//File: ODBC /////////////////////////////////////
//
//CIDVars: TBD
//
//Globals changed: none
//
@DefineProto
   @Void @SetEnvODBC(@Void)
   @Void @SetEnvODBCWindows(@Void)
   @Void @SetEnvODBCOS2(@Void)
@EndProto
//
//

//----------------------------------------------------------
@DefineFunc @Void @SetEnvODBC(@Void)

   @If (!@iBypassODBC)
//      @ShowBMP(0, @Eval((@WinScreenCaps(8) - 350) / 2), @Eval((@WinScreenCaps(10) - 60) / 2), "@qSetODBCBMPFile", 2)
      @ShowAll("@@SetEnvODBC()", "ODBC Env vars set here.")
      @If (@Platform == @Windows)
         @SetEnvODBCWindows()
      @ElseIf (@Platform == @OS2)
         @SetEnvODBCOS2()
      @Else
         @ErrorExit(@qInvalidOSError, @iAbort)
      @EndIf
//      @EraseBMP(0)
   @EndIf
   @Return()

@EndFunc


//----------------------------------------------------------
@DefineFunc @Void @SetEnvODBCWindows(@Void)

   // Create the ODBC key
   @qTMP1 = "SOFTWARE\\ODBC\\ODBCINST.INI"
   @If (@WinRegCreateKeyEx(@HKeyLocalMachine, @qTMP1, "", 0, @iRegKeyAllAccess,
                           @Null, @iKeyHandle, @iDisposition) != 0)
      @MsgBox(@qRegCreateODBCKeyError)
   @Else
      @If (@WinRegFlushKey(@iKeyHandle) != 0)
         @MsgBox(@qRegODBCKeyWriteError)
      @EndIf
      @If (@WinRegCloseKey(@iKeyHandle) != 0)
         @MsgBox(@qRegODBCKeyCloseError)
      @EndIf
   @EndIf

// ---------- ODBC driver - dBase -----------

   @qTMP2 = "@qTMP1\\INTERSOLV 2.11 32-bit dBASEFile (*.dbf)"
   @If (@WinRegCreateKeyEx(@HKeyLocalMachine, @qTMP2, "", 0, @iRegKeyAllAccess,
                           @Null, @iKeyHandle, @iDisposition) != 0)
      @MsgBox(@qRegCreateODBCKeyError)
   @Else
      @If (@WinRegSetValueEx(@iKeyHandle, "APILevel", @iRegString,
                             "1", @StrLen("1") + 1) != 0)
         @MsgBox(@qRegSetODBCValueError)
      @EndIf
      @If (@WinRegSetValueEx(@iKeyHandle, "ConnectFunctions", @iRegString,
                             "YYN", @StrLen("YYN") + 1) != 0)
         @MsgBox(@qRegSetODBCValueError)
      @EndIf
      @If (@WinRegSetValueEx(@iKeyHandle, "Driver", @iRegString,
                             "@qInstallPath1\\ODBC32\\IBDBF08.DLL",
                             @StrLen("@qInstallPath1\\ODBC32\\IBDBF08.DLL") + 1) != 0)
         @MsgBox(@qRegSetODBCValueError)
      @EndIf
      @If (@WinRegSetValueEx(@iKeyHandle, "DriverODBCVer", @iRegString,
                             "02.10", @StrLen("02.10") + 1) != 0)
         @MsgBox(@qRegSetODBCValueError)
      @EndIf
      @If (@WinRegSetValueEx(@iKeyHandle, "FileExtns", @iRegString,
                             "*.dbf", @StrLen("*.dbf") + 1) != 0)
         @MsgBox(@qRegSetODBCValueError)
      @EndIf

      @If (@WinRegSetValueEx(@iKeyHandle, "FileUsage", @iRegString,
                             "1", @StrLen("1") + 1) != 0)
         @MsgBox(@qRegSetODBCValueError)
      @EndIf
      @If (@WinRegSetValueEx(@iKeyHandle, "Setup", @iRegString,
                             "@qInstallPath1\\ODBC32\\IBDBF08.DLL",
                             @StrLen("@qInstallPath1\\ODBC32\\IBDBF08.DLL") + 1) != 0)
         @MsgBox(@qRegSetODBCValueError)
      @EndIf
      @If (@WinRegSetValueEx(@iKeyHandle, "smProcessPerConnect", @iRegString,
                             "N", @StrLen("N") + 1) != 0)
         @MsgBox(@qRegSetODBCValueError)
      @EndIf
      @If (@WinRegSetValueEx(@iKeyHandle, "SQLLevel", @iRegString,
                             "0", @StrLen("0") + 1) != 0)
         @MsgBox(@qRegSetODBCValueError)
      @EndIf
      @If (@WinRegFlushKey(@iKeyHandle) != 0)
         @MsgBox(@qRegODBCKeyWriteError)
      @EndIf
      @If (@WinRegCloseKey(@iKeyHandle) != 0)
         @MsgBox(@qRegODBCKeyCloseError)
      @EndIf

      @qTMP2 = "@qTMP1\\ODBC Drivers"
      @If (@WinRegCreateKeyEx(@HKeyLocalMachine, @qTMP2, "", 0, @iRegKeyAllAccess,
                              @Null, @iKeyHandle, @iDisposition) != 0)
         @MsgBox(@qRegCreateODBCKeyError)
      @Else
         @If (@WinRegSetValueEx(@iKeyHandle, "INTERSOLV 2.11 32-bit dBASEFile (*.dbf)",
                                @iRegString, "Installed", @StrLen("Installed") + 1) != 0)
            @MsgBox(@qRegSetODBCValueError)
         @EndIf
         @If (@WinRegFlushKey(@iKeyHandle) != 0)
            @MsgBox(@qRegODBCKeyWriteError)
         @EndIf
         @If (@WinRegCloseKey(@iKeyHandle) != 0)
            @MsgBox(@qRegODBCKeyCloseError)
         @EndIf
      @EndIf
   @EndIf

// ---------- ODBC driver - Oracle 7 -----------

   @qTMP2 = "@qTMP1\\INTERSOLV 2.11 32-bit Oracle 7"
   @If (@WinRegCreateKeyEx(@HKeyLocalMachine, @qTMP2, "", 0, @iRegKeyAllAccess,
                           @Null, @iKeyHandle, @iDisposition) != 0)
      @MsgBox(@qRegCreateODBCKeyError)
   @Else
      @If (@WinRegSetValueEx(@iKeyHandle, "APILevel", @iRegString,
                             "1", @StrLen("1") + 1) != 0)
         @MsgBox(@qRegSetODBCValueError)
      @EndIf
      @If (@WinRegSetValueEx(@iKeyHandle, "ConnectFunctions", @iRegString,
                             "YYY", @StrLen("YYY") + 1) != 0)
         @MsgBox(@qRegSetODBCValueError)
      @EndIf
      @If (@WinRegSetValueEx(@iKeyHandle, "Driver", @iRegString,
                             "@qInstallPath1\\ODBC32\\IBOR708.DLL",
                             @StrLen("@qInstallPath1\\ODBC32\\IBOR708.DLL") + 1) != 0)
         @MsgBox(@qRegSetODBCValueError)
      @EndIf
      @If (@WinRegSetValueEx(@iKeyHandle, "DriverODBCVer", @iRegString,
                             "02.10", @StrLen("02.10") + 1) != 0)
         @MsgBox(@qRegSetODBCValueError)
      @EndIf
      @If (@WinRegSetValueEx(@iKeyHandle, "FileUsage", @iRegString,
                             "0", @StrLen("0") + 1) != 0)
         @MsgBox(@qRegSetODBCValueError)
      @EndIf
      @If (@WinRegSetValueEx(@iKeyHandle, "Setup", @iRegString,
                             "@qInstallPath1\\ODBC32\\IBOR708.DLL",
                             @StrLen("@qInstallPath1\\ODBC32\\IBOR708.DLL") + 1) != 0)
         @MsgBox(@qRegSetODBCValueError)
      @EndIf
      @If (@WinRegSetValueEx(@iKeyHandle, "smProcessPerConnect", @iRegString,
                             "N", @StrLen("N") + 1) != 0)
         @MsgBox(@qRegSetODBCValueError)
      @EndIf
      @If (@WinRegSetValueEx(@iKeyHandle, "SQLLevel", @iRegString,
                             "1", @StrLen("1") + 1) != 0)
         @MsgBox(@qRegSetODBCValueError)
      @EndIf
      @If (@WinRegFlushKey(@iKeyHandle) != 0)
         @MsgBox(@qRegODBCKeyWriteError)
      @EndIf
      @If (@WinRegCloseKey(@iKeyHandle) != 0)
         @MsgBox(@qRegODBCKeyCloseError)
      @EndIf
      @qTMP2 = "@qTMP1\\ODBC Drivers"
      @If (@WinRegCreateKeyEx(@HKeyLocalMachine, @qTMP2, "", 0, @iRegKeyAllAccess,
                              @Null, @iKeyHandle, @iDisposition) != 0)
         @MsgBox(@qRegCreateODBCKeyError)
      @Else
         @If (@WinRegSetValueEx(@iKeyHandle, "INTERSOLV 2.11 32-bit Oracle 7",
                                @iRegString, "Installed", @StrLen("Installed") + 1) != 0)
            @MsgBox(@qRegSetODBCValueError)
         @EndIf
         @If (@WinRegFlushKey(@iKeyHandle) != 0)
            @MsgBox(@qRegODBCKeyWriteError)
         @EndIf
         @If (@WinRegCloseKey(@iKeyHandle) != 0)
            @MsgBox(@qRegODBCKeyCloseError)
         @EndIf
      @EndIf
   @EndIf

// ---------- ODBC driver - Sybase -----------

   @qTMP2 = "@qTMP1\\INTERSOLV 2.11 32-bit Sybase System 10"
   @If (@WinRegCreateKeyEx(@HKeyLocalMachine, @qTMP2, "", 0, @iRegKeyAllAccess,
                           @Null, @iKeyHandle, @iDisposition) != 0)
      @MsgBox(@qRegCreateODBCKeyError)
   @Else
      @If (@WinRegSetValueEx(@iKeyHandle, "APILevel", @iRegString,
                             "1", @StrLen("1") + 1) != 0)
         @MsgBox(@qRegSetODBCValueError)
      @EndIf
      @If (@WinRegSetValueEx(@iKeyHandle, "ConnectFunctions", @iRegString,
                             "YYY", @StrLen("YYY") + 1) != 0)
         @MsgBox(@qRegSetODBCValueError)
      @EndIf
      @If (@WinRegSetValueEx(@iKeyHandle, "Driver", @iRegString,
                             "@qInstallPath1\\ODBC32\\IBSYB08.DLL",
                             @StrLen("@qInstallPath1\\ODBC32\\IBSYB08.DLL") + 1) != 0)
         @MsgBox(@qRegSetODBCValueError)
      @EndIf
      @If (@WinRegSetValueEx(@iKeyHandle, "DriverODBCVer", @iRegString,
                             "02.10", @StrLen("02.10") + 1) != 0)
         @MsgBox(@qRegSetODBCValueError)
      @EndIf
      @If (@WinRegSetValueEx(@iKeyHandle, "FileUsage", @iRegString,
                             "0", @StrLen("0") + 1) != 0)
         @MsgBox(@qRegSetODBCValueError)
      @EndIf
      @If (@WinRegSetValueEx(@iKeyHandle, "Setup", @iRegString,
                             "@qInstallPath1\\ODBC32\\IBSYB08.DLL",
                             @StrLen("@qInstallPath1\\ODBC32\\IBSYB08.DLL") + 1) != 0)
         @MsgBox(@qRegSetODBCValueError)
      @EndIf
      @If (@WinRegSetValueEx(@iKeyHandle, "smProcessPerConnect", @iRegString,
                             "Y", @StrLen("Y") + 1) != 0)
         @MsgBox(@qRegSetODBCValueError)
      @EndIf
      @If (@WinRegSetValueEx(@iKeyHandle, "SQLLevel", @iRegString,
                             "0", @StrLen("0") + 1) != 0)
         @MsgBox(@qRegSetODBCValueError)
      @EndIf
      @If (@WinRegFlushKey(@iKeyHandle) != 0)
         @MsgBox(@qRegODBCKeyWriteError)
      @EndIf
      @If (@WinRegCloseKey(@iKeyHandle) != 0)
         @MsgBox(@qRegODBCKeyCloseError)
      @EndIf
      @qTMP2 = "@qTMP1\\ODBC Drivers"
      @If (@WinRegCreateKeyEx(@HKeyLocalMachine, @qTMP2, "", 0, @iRegKeyAllAccess,
                              @Null, @iKeyHandle, @iDisposition) != 0)
         @MsgBox(@qRegCreateODBCKeyError)
      @Else
         @If (@WinRegSetValueEx(@iKeyHandle, "INTERSOLV 2.11 32-bit Sybase System 10",
                                @iRegString, "Installed", @StrLen("Installed") + 1) != 0)
            @MsgBox(@qRegSetODBCValueError)
         @EndIf
         @If (@WinRegFlushKey(@iKeyHandle) != 0)
            @MsgBox(@qRegODBCKeyWriteError)
         @EndIf
         @If (@WinRegCloseKey(@iKeyHandle) != 0)
            @MsgBox(@qRegODBCKeyCloseError)
         @EndIf
         @EndIf
   @EndIf

// ---------- ODBC driver - Text -----------

   @qTMP2 = "@qTMP1\\INTERSOLV 2.11 32-bit Textfile (*.*)"
   @If (@WinRegCreateKeyEx(@HKeyLocalMachine, @qTMP2, "", 0, @iRegKeyAllAccess,
                           @Null, @iKeyHandle, @iDisposition) != 0)
      @MsgBox(@qRegCreateODBCKeyError)
   @Else
      @If (@WinRegSetValueEx(@iKeyHandle, "APILevel", @iRegString,
                             "1", @StrLen("1") + 1) != 0)
         @MsgBox(@qRegSetODBCValueError)
      @EndIf
      @If (@WinRegSetValueEx(@iKeyHandle, "ConnectFunctions", @iRegString,
                             "YYN", @StrLen("YYN") + 1) != 0)
         @MsgBox(@qRegSetODBCValueError)
      @EndIf
      @If (@WinRegSetValueEx(@iKeyHandle, "Driver", @iRegString,
                             "@qInstallPath1\\ODBC32\\IBTXT08.DLL",
                             @StrLen("@qInstallPath1\\ODBC32\\IBTXT08.DLL") + 1) != 0)
         @MsgBox(@qRegSetODBCValueError)
      @EndIf
      @If (@WinRegSetValueEx(@iKeyHandle, "DriverODBCVer", @iRegString,
                             "02.10", @StrLen("02.10") + 1) != 0)
         @MsgBox(@qRegSetODBCValueError)
      @EndIf
      @If (@WinRegSetValueEx(@iKeyHandle, "FileUsage", @iRegString,
                             "1", @StrLen("1") + 1) != 0)
         @MsgBox(@qRegSetODBCValueError)
      @EndIf
      @If (@WinRegSetValueEx(@iKeyHandle, "Setup", @iRegString,
                             "@qInstallPath1\\ODBC32\\IBTXT08.DLL",
                             @StrLen("@qInstallPath1\\ODBC32\\IBTXT08.DLL") + 1) != 0)
         @MsgBox(@qRegSetODBCValueError)
      @EndIf
      @If (@WinRegSetValueEx(@iKeyHandle, "smProcessPerConnect", @iRegString,
                             "N", @StrLen("N") + 1) != 0)
         @MsgBox(@qRegSetODBCValueError)
      @EndIf
      @If (@WinRegSetValueEx(@iKeyHandle, "SQLLevel", @iRegString,
                             "0", @StrLen("0") + 1) != 0)
         @MsgBox(@qRegSetODBCValueError)
      @EndIf
      @If (@WinRegSetValueEx(@iKeyHandle, "FileExtns", @iRegString,
                             "*.*", @StrLen("*.*") + 1) != 0)
         @MsgBox(@qRegSetODBCValueError)
      @EndIf
      @If (@WinRegFlushKey(@iKeyHandle) != 0)
         @MsgBox(@qRegODBCKeyWriteError)
      @EndIf
      @If (@WinRegCloseKey(@iKeyHandle) != 0)
         @MsgBox(@qRegODBCKeyCloseError)
      @EndIf
      @qTMP2 = "@qTMP1\\ODBC Drivers"
      @If (@WinRegCreateKeyEx(@HKeyLocalMachine, @qTMP2, "", 0, @iRegKeyAllAccess,
                              @Null, @iKeyHandle, @iDisposition) != 0)
         @MsgBox(@qRegCreateODBCKeyError)
      @Else
         @If (@WinRegSetValueEx(@iKeyHandle, "INTERSOLV 2.11 32-bit Textfile (*.*)",
                                @iRegString, "Installed", @StrLen("Installed") + 1) != 0)
            @MsgBox(@qRegSetODBCValueError)
         @EndIf
         @If (@WinRegFlushKey(@iKeyHandle) != 0)
            @MsgBox(@qRegODBCKeyWriteError)
         @EndIf
         @If (@WinRegCloseKey(@iKeyHandle) != 0)
            @MsgBox(@qRegODBCKeyCloseError)
         @EndIf
      @EndIf
   @EndIf

// ---------- ODBC driver - Excel 5 -----------

   @qTMP2 = "@qTMP1\\INTERSOLV 2.11 32-bit Excel5Workbook (*.xls)"
   @If (@WinRegCreateKeyEx(@HKeyLocalMachine, @qTMP2, "", 0, @iRegKeyAllAccess,
                           @Null, @iKeyHandle, @iDisposition) != 0)
      @MsgBox(@qRegCreateODBCKeyError)
   @Else
      @If (@WinRegSetValueEx(@iKeyHandle, "APILevel", @iRegString,
                             "1", @StrLen("1") + 1) != 0)
         @MsgBox(@qRegSetODBCValueError)
      @EndIf
      @If (@WinRegSetValueEx(@iKeyHandle, "ConnectFunctions", @iRegString,
                             "YYN", @StrLen("YYN") + 1) != 0)
         @MsgBox(@qRegSetODBCValueError)
      @EndIf
      @If (@WinRegSetValueEx(@iKeyHandle, "Driver", @iRegString,
                             "@qInstallPath1\\ODBC32\\IBXLS508.DLL",
                             @StrLen("@qInstallPath1\\ODBC32\\IBXLS508.DLL") + 1) != 0)
         @MsgBox(@qRegSetODBCValueError)
      @EndIf
      @If (@WinRegSetValueEx(@iKeyHandle, "DriverODBCVer", @iRegString,
                             "02.10", @StrLen("02.10") + 1) != 0)
         @MsgBox(@qRegSetODBCValueError)
      @EndIf
      @If (@WinRegSetValueEx(@iKeyHandle, "FileUsage", @iRegString,
                             "2", @StrLen("2") + 1) != 0)
         @MsgBox(@qRegSetODBCValueError)
      @EndIf
      @If (@WinRegSetValueEx(@iKeyHandle, "Setup", @iRegString,
                             "@qInstallPath1\\ODBC32\\IBXLS508.DLL",
                             @StrLen("@qInstallPath1\\ODBC32\\IBXLS508.DLL") + 1) != 0)
         @MsgBox(@qRegSetODBCValueError)
      @EndIf
      @If (@WinRegSetValueEx(@iKeyHandle, "smProcessPerConnect", @iRegString,
                             "Y", @StrLen("Y") + 1) != 0)
         @MsgBox(@qRegSetODBCValueError)
      @EndIf
      @If (@WinRegSetValueEx(@iKeyHandle, "SQLLevel", @iRegString,
                             "0", @StrLen("0") + 1) != 0)
         @MsgBox(@qRegSetODBCValueError)
      @EndIf
      @If (@WinRegSetValueEx(@iKeyHandle, "FileExtns", @iRegString,
                             "*.xls", @StrLen("*.xls") + 1) != 0)
         @MsgBox(@qRegSetODBCValueError)
      @EndIf
      @If (@WinRegFlushKey(@iKeyHandle) != 0)
         @MsgBox(@qRegODBCKeyWriteError)
      @EndIf
      @If (@WinRegCloseKey(@iKeyHandle) != 0)
         @MsgBox(@qRegODBCKeyCloseError)
      @EndIf

      @qTMP2 = "@qTMP1\\ODBC Drivers"
      @If (@WinRegCreateKeyEx(@HKeyLocalMachine, @qTMP2, "", 0, @iRegKeyAllAccess,
                              @Null, @iKeyHandle, @iDisposition) != 0)
         @MsgBox(@qRegCreateODBCKeyError)
      @Else
         @If (@WinRegSetValueEx(@iKeyHandle, "INTERSOLV 2.11 32-bit Excel5Workbook (*.xls)",
                                @iRegString, "Installed", @StrLen("Installed") + 1) != 0)
            @MsgBox(@qRegSetODBCValueError)
         @EndIf
         @If (@WinRegFlushKey(@iKeyHandle) != 0)
            @MsgBox(@qRegODBCKeyWriteError)
         @EndIf
         @If (@WinRegCloseKey(@iKeyHandle) != 0)
            @MsgBox(@qRegODBCKeyCloseError)
         @EndIf
      @EndIf
   @EndIf

// ---------- ODBC driver - Excel 4 -----------

   @qTMP2 = "@qTMP1\\INTERSOLV 2.11 32-bit ExcelFile (*.xls)"
   @If (@WinRegCreateKeyEx(@HKeyLocalMachine, @qTMP2, "", 0, @iRegKeyAllAccess,
                           @Null, @iKeyHandle, @iDisposition) != 0)
      @MsgBox(@qRegCreateODBCKeyError)
   @Else
      @If (@WinRegSetValueEx(@iKeyHandle, "APILevel", @iRegString,
                             "1", @StrLen("1") + 1) != 0)
         @MsgBox(@qRegSetODBCValueError)
      @EndIf
      @If (@WinRegSetValueEx(@iKeyHandle, "ConnectFunctions", @iRegString,
                             "YYN", @StrLen("YYN") + 1) != 0)
         @MsgBox(@qRegSetODBCValueError)
      @EndIf
      @If (@WinRegSetValueEx(@iKeyHandle, "Driver", @iRegString,
                             "@qInstallPath1\\ODBC32\\IBXLS08.DLL",
                             @StrLen("@qInstallPath1\\ODBC32\\IBXLS08.DLL") + 1) != 0)
         @MsgBox(@qRegSetODBCValueError)
      @EndIf
      @If (@WinRegSetValueEx(@iKeyHandle, "DriverODBCVer", @iRegString,
                             "02.10", @StrLen("02.10") + 1) != 0)
         @MsgBox(@qRegSetODBCValueError)
      @EndIf
      @If (@WinRegSetValueEx(@iKeyHandle, "FileUsage", @iRegString,
                             "1", @StrLen("1") + 1) != 0)
         @MsgBox(@qRegSetODBCValueError)
      @EndIf
      @If (@WinRegSetValueEx(@iKeyHandle, "Setup", @iRegString,
                             "@qInstallPath1\\ODBC32\\IBXLS08.DLL",
                             @StrLen("@qInstallPath1\\ODBC32\\IBXLS08.DLL") + 1) != 0)
         @MsgBox(@qRegSetODBCValueError)
      @EndIf
      @If (@WinRegSetValueEx(@iKeyHandle, "smProcessPerConnect", @iRegString,
                             "Y", @StrLen("Y") + 1) != 0)
         @MsgBox(@qRegSetODBCValueError)
      @EndIf
      @If (@WinRegSetValueEx(@iKeyHandle, "SQLLevel", @iRegString,
                             "0", @StrLen("0") + 1) != 0)
         @MsgBox(@qRegSetODBCValueError)
      @EndIf
      @If (@WinRegSetValueEx(@iKeyHandle, "FileExtns", @iRegString,
                             "*.xls", @StrLen("*.xls") + 1) != 0)
         @MsgBox(@qRegSetODBCValueError)
      @EndIf
      @If (@WinRegFlushKey(@iKeyHandle) != 0)
         @MsgBox(@qRegODBCKeyWriteError)
      @EndIf
      @If (@WinRegCloseKey(@iKeyHandle) != 0)
         @MsgBox(@qRegODBCKeyCloseError)
      @EndIf
      @qTMP2 = "@qTMP1\\ODBC Drivers"
      @If (@WinRegCreateKeyEx(@HKeyLocalMachine, @qTMP2, "", 0, @iRegKeyAllAccess,
                              @Null, @iKeyHandle, @iDisposition) != 0)
         @MsgBox(@qRegCreateODBCKeyError)
      @Else
         @If (@WinRegSetValueEx(@iKeyHandle, "INTERSOLV 2.11 32-bit ExcelFile (*.xls)",
                                @iRegString, "Installed", @StrLen("Installed") + 1) != 0)
            @MsgBox(@qRegSetODBCValueError)
         @EndIf
         @If (@WinRegFlushKey(@iKeyHandle) != 0)
            @MsgBox(@qRegODBCKeyWriteError)
         @EndIf
         @If (@WinRegCloseKey(@iKeyHandle) != 0)
            @MsgBox(@qRegODBCKeyCloseError)
         @EndIf
      @EndIf
   @EndIf

// ---------- ODBC driver - Informix -----------

   @qTMP2 = "@qTMP1\\INTERSOLV 2.11 32-bit INFORMIX5"
   @If (@WinRegCreateKeyEx(@HKeyLocalMachine, @qTMP2, "", 0, @iRegKeyAllAccess,
                           @Null, @iKeyHandle, @iDisposition) != 0)
      @MsgBox(@qRegCreateODBCKeyError)
   @Else
      @If (@WinRegSetValueEx(@iKeyHandle, "APILevel", @iRegString,
                             "1", @StrLen("1") + 1) != 0)
         @MsgBox(@qRegSetODBCValueError)
      @EndIf
      @If (@WinRegSetValueEx(@iKeyHandle, "ConnectFunctions", @iRegString,
                             "YYY", @StrLen("YYY") + 1) != 0)
         @MsgBox(@qRegSetODBCValueError)
      @EndIf
      @If (@WinRegSetValueEx(@iKeyHandle, "Driver", @iRegString,
                             "@qInstallPath1\\ODBC32\\IBINF508.DLL",
                             @StrLen("@qInstallPath1\\ODBC32\\IBINF508.DLL") + 1) != 0)
         @MsgBox(@qRegSetODBCValueError)
      @EndIf
      @If (@WinRegSetValueEx(@iKeyHandle, "DriverODBCVer", @iRegString,
                             "02.10", @StrLen("02.10") + 1) != 0)
         @MsgBox(@qRegSetODBCValueError)
      @EndIf
      @If (@WinRegSetValueEx(@iKeyHandle, "FileUsage", @iRegString,
                             "0", @StrLen("0") + 1) != 0)
         @MsgBox(@qRegSetODBCValueError)
      @EndIf
      @If (@WinRegSetValueEx(@iKeyHandle, "Setup", @iRegString,
                             "@qInstallPath1\\ODBC32\\IBINF508.DLL",
                             @StrLen("@qInstallPath1\\ODBC32\\IBINF508.DLL") + 1) != 0)
         @MsgBox(@qRegSetODBCValueError)
      @EndIf
      @If (@WinRegSetValueEx(@iKeyHandle, "smProcessPerConnect", @iRegString,
                             "Y", @StrLen("Y") + 1) != 0)
         @MsgBox(@qRegSetODBCValueError)
      @EndIf
      @If (@WinRegSetValueEx(@iKeyHandle, "SQLLevel", @iRegString,
                             "1", @StrLen("1") + 1) != 0)
         @MsgBox(@qRegSetODBCValueError)
      @EndIf
      @If (@WinRegFlushKey(@iKeyHandle) != 0)
         @MsgBox(@qRegODBCKeyWriteError)
      @EndIf
      @If (@WinRegCloseKey(@iKeyHandle) != 0)
         @MsgBox(@qRegODBCKeyCloseError)
      @EndIf
      @qTMP2 = "@qTMP1\\ODBC Drivers"
      @If (@WinRegCreateKeyEx(@HKeyLocalMachine, @qTMP2, "", 0, @iRegKeyAllAccess,
                              @Null, @iKeyHandle, @iDisposition) != 0)
         @MsgBox(@qRegCreateODBCKeyError)
      @Else
         @If (@WinRegSetValueEx(@iKeyHandle, "INTERSOLV 2.11 32-bit INFORMIX5",
                                @iRegString, "Installed", @StrLen("Installed") + 1) != 0)
            @MsgBox(@qRegSetODBCValueError)
         @EndIf
         @If (@WinRegFlushKey(@iKeyHandle) != 0)
            @MsgBox(@qRegODBCKeyWriteError)
         @EndIf
         @If (@WinRegCloseKey(@iKeyHandle) != 0)
            @MsgBox(@qRegODBCKeyCloseError)
         @EndIf
      @EndIf
   @EndIf

// ---------- ODBC driver - Ingres ----------

   @qTMP2 = "@qTMP1\\INTERSOLV 2.11 32-bit INGRES 6.4/04"
   @If (@WinRegCreateKeyEx(@HKeyLocalMachine, @qTMP2, "", 0, @iRegKeyAllAccess,
                           @Null, @iKeyHandle, @iDisposition) != 0)
      @MsgBox(@qRegCreateODBCKeyError)
   @Else
      @If (@WinRegSetValueEx(@iKeyHandle, "APILevel", @iRegString,
                             "1", @StrLen("1") + 1) != 0)
         @MsgBox(@qRegSetODBCValueError)
      @EndIf
      @If (@WinRegSetValueEx(@iKeyHandle, "ConnectFunctions", @iRegString,
                             "YYY", @StrLen("YYY") + 1) != 0)
         @MsgBox(@qRegSetODBCValueError)
      @EndIf
      @If (@WinRegSetValueEx(@iKeyHandle, "Driver", @iRegString,
                             "@qInstallPath1\\ODBC32\\IBING408.DLL",
                             @StrLen("@qInstallPath1\\ODBC32\\IBING408.DLL") + 1) != 0)
         @MsgBox(@qRegSetODBCValueError)
      @EndIf
      @If (@WinRegSetValueEx(@iKeyHandle, "DriverODBCVer", @iRegString,
                             "02.10", @StrLen("02.10") + 1) != 0)
         @MsgBox(@qRegSetODBCValueError)
      @EndIf
      @If (@WinRegSetValueEx(@iKeyHandle, "FileUsage", @iRegString,
                             "0", @StrLen("0") + 1) != 0)
         @MsgBox(@qRegSetODBCValueError)
      @EndIf
      @If (@WinRegSetValueEx(@iKeyHandle, "Setup", @iRegString,
                             "@qInstallPath1\\ODBC32\\IBING408.DLL",
                             @StrLen("@qInstallPath1\\ODBC32\\IBING408.DLL") + 1) != 0)
         @MsgBox(@qRegSetODBCValueError)
      @EndIf
      @If (@WinRegSetValueEx(@iKeyHandle, "smProcessPerConnect", @iRegString,
                             "Y", @StrLen("Y") + 1) != 0)
         @MsgBox(@qRegSetODBCValueError)
      @EndIf
      @If (@WinRegSetValueEx(@iKeyHandle, "SQLLevel", @iRegString,
                             "0", @StrLen("0") + 1) != 0)
         @MsgBox(@qRegSetODBCValueError)
      @EndIf
      @If (@WinRegFlushKey(@iKeyHandle) != 0)
         @MsgBox(@qRegODBCKeyWriteError)
      @EndIf
      @If (@WinRegCloseKey(@iKeyHandle) != 0)
         @MsgBox(@qRegODBCKeyCloseError)
      @EndIf
      @qTMP2 = "@qTMP1\\ODBC Drivers"
      @If (@WinRegCreateKeyEx(@HKeyLocalMachine, @qTMP2, "", 0, @iRegKeyAllAccess,
                              @Null, @iKeyHandle, @iDisposition) != 0)
         @MsgBox(@qRegCreateODBCKeyError)
      @Else
         @If (@WinRegSetValueEx(@iKeyHandle, "INTERSOLV 2.11 32-bit INGRES 6.4/04",
                                @iRegString, "Installed", @StrLen("Installed") + 1) != 0)
            @MsgBox(@qRegSetODBCValueError)
         @EndIf
         @If (@WinRegFlushKey(@iKeyHandle) != 0)
            @MsgBox(@qRegODBCKeyWriteError)
         @EndIf
         @If (@WinRegCloseKey(@iKeyHandle) != 0)
            @MsgBox(@qRegODBCKeyCloseError)
         @EndIf
      @EndIf
   @EndIf

// ---------- ODBC driver - SQLBase ----------

   @qTMP2 = "@qTMP1\\INTERSOLV 2.11 32-bit SQLBase"
   @If (@WinRegCreateKeyEx(@HKeyLocalMachine, @qTMP2, "", 0, @iRegKeyAllAccess,
                           @Null, @iKeyHandle, @iDisposition) != 0)
      @MsgBox(@qRegCreateODBCKeyError)
   @Else
      @If (@WinRegSetValueEx(@iKeyHandle, "APILevel", @iRegString,
                             "1", @StrLen("1") + 1) != 0)
         @MsgBox(@qRegSetODBCValueError)
      @EndIf
      @If (@WinRegSetValueEx(@iKeyHandle, "ConnectFunctions", @iRegString,
                             "YYY", @StrLen("YYY") + 1) != 0)
         @MsgBox(@qRegSetODBCValueError)
      @EndIf
      @If (@WinRegSetValueEx(@iKeyHandle, "Driver", @iRegString,
                             "@qInstallPath1\\ODBC32\\IBGUP08.DLL",
                             @StrLen("@qInstallPath1\\ODBC32\\IBGUP08.DLL") + 1) != 0)
         @MsgBox(@qRegSetODBCValueError)
      @EndIf
      @If (@WinRegSetValueEx(@iKeyHandle, "DriverODBCVer", @iRegString,
                             "02.10", @StrLen("02.10") + 1) != 0)
         @MsgBox(@qRegSetODBCValueError)
      @EndIf
      @If (@WinRegSetValueEx(@iKeyHandle, "FileUsage", @iRegString,
                             "0", @StrLen("0") + 1) != 0)
         @MsgBox(@qRegSetODBCValueError)
      @EndIf
      @If (@WinRegSetValueEx(@iKeyHandle, "Setup", @iRegString,
                             "@qInstallPath1\\ODBC32\\IBGUP08.DLL",
                             @StrLen("@qInstallPath1\\ODBC32\\IBGUP08.DLL") + 1) != 0)
         @MsgBox(@qRegSetODBCValueError)
      @EndIf
      @If (@WinRegSetValueEx(@iKeyHandle, "smProcessPerConnect", @iRegString,
                             "Y", @StrLen("Y") + 1) != 0)
         @MsgBox(@qRegSetODBCValueError)
      @EndIf
      @If (@WinRegSetValueEx(@iKeyHandle, "SQLLevel", @iRegString,
                             "1", @StrLen("1") + 1) != 0)
         @MsgBox(@qRegSetODBCValueError)
      @EndIf
      @If (@WinRegFlushKey(@iKeyHandle) != 0)
         @MsgBox(@qRegODBCKeyWriteError)
      @EndIf
      @If (@WinRegCloseKey(@iKeyHandle) != 0)
         @MsgBox(@qRegODBCKeyCloseError)
      @EndIf
      @qTMP2 = "@qTMP1\\ODBC Drivers"
      @If (@WinRegCreateKeyEx(@HKeyLocalMachine, @qTMP2, "", 0, @iRegKeyAllAccess,
                              @Null, @iKeyHandle, @iDisposition) != 0)
         @MsgBox(@qRegCreateODBCKeyError)
      @Else
         @If (@WinRegSetValueEx(@iKeyHandle, "INTERSOLV 2.11 32-bit SQLBase",
                                @iRegString, "Installed", @StrLen("Installed") + 1) != 0)
            @MsgBox(@qRegSetODBCValueError)
         @EndIf
         @If (@WinRegFlushKey(@iKeyHandle) != 0)
            @MsgBox(@qRegODBCKeyWriteError)
         @EndIf
         @If (@WinRegCloseKey(@iKeyHandle) != 0)
            @MsgBox(@qRegODBCKeyCloseError)
         @EndIf
      @EndIf
   @EndIf

// ---------- ODBC driver - SQLServer ----------

   @qTMP2 = "@qTMP1\\INTERSOLV 2.11 32-bit SQLServer"
   @If (@WinRegCreateKeyEx(@HKeyLocalMachine, @qTMP2, "", 0, @iRegKeyAllAccess,
                           @Null, @iKeyHandle, @iDisposition) != 0)
      @MsgBox(@qRegCreateODBCKeyError)
   @Else
      @If (@WinRegSetValueEx(@iKeyHandle, "APILevel", @iRegString,
                             "1", @StrLen("1") + 1) != 0)
         @MsgBox(@qRegSetODBCValueError)
      @EndIf
      @If (@WinRegSetValueEx(@iKeyHandle, "ConnectFunctions", @iRegString,
                             "YYY", @StrLen("YYY") + 1) != 0)
         @MsgBox(@qRegSetODBCValueError)
      @EndIf
      @If (@WinRegSetValueEx(@iKeyHandle, "Driver", @iRegString,
                             "@qInstallPath1\\ODBC32\\IBSS08.DLL",
                             @StrLen("@qInstallPath1\\ODBC32\\IBSS08.DLL") + 1) != 0)
         @MsgBox(@qRegSetODBCValueError)
      @EndIf
      @If (@WinRegSetValueEx(@iKeyHandle, "DriverODBCVer", @iRegString,
                             "02.10", @StrLen("02.10") + 1) != 0)
         @MsgBox(@qRegSetODBCValueError)
      @EndIf
      @If (@WinRegSetValueEx(@iKeyHandle, "FileUsage", @iRegString,
                             "0", @StrLen("0") + 1) != 0)
         @MsgBox(@qRegSetODBCValueError)
      @EndIf
      @If (@WinRegSetValueEx(@iKeyHandle, "Setup", @iRegString,
                             "@qInstallPath1\\ODBC32\\IBSS08.DLL",
                             @StrLen("@qInstallPath1\\ODBC32\\IBSS08.DLL") + 1) != 0)
         @MsgBox(@qRegSetODBCValueError)
      @EndIf
      @If (@WinRegSetValueEx(@iKeyHandle, "smProcessPerConnect", @iRegString,
                             "Y", @StrLen("Y") + 1) != 0)
         @MsgBox(@qRegSetODBCValueError)
      @EndIf
      @If (@WinRegSetValueEx(@iKeyHandle, "SQLLevel", @iRegString,
                             "1", @StrLen("1") + 1) != 0)
         @MsgBox(@qRegSetODBCValueError)
      @EndIf
      @If (@WinRegFlushKey(@iKeyHandle) != 0)
         @MsgBox(@qRegODBCKeyWriteError)
      @EndIf
      @If (@WinRegCloseKey(@iKeyHandle) != 0)
         @MsgBox(@qRegODBCKeyCloseError)
      @EndIf
      @qTMP2 = "@qTMP1\\ODBC Drivers"
      @If (@WinRegCreateKeyEx(@HKeyLocalMachine, @qTMP2, "", 0, @iRegKeyAllAccess,
                              @Null, @iKeyHandle, @iDisposition) != 0)
         @MsgBox(@qRegCreateODBCKeyError)
      @Else
         @If (@WinRegSetValueEx(@iKeyHandle, "INTERSOLV 2.11 32-bit SQLServer",
                                @iRegString, "Installed", @StrLen("Installed") + 1) != 0)
            @MsgBox(@qRegSetODBCValueError)
         @EndIf
         @If (@WinRegFlushKey(@iKeyHandle) != 0)
            @MsgBox(@qRegODBCKeyWriteError)
         @EndIf
         @If (@WinRegCloseKey(@iKeyHandle) != 0)
            @MsgBox(@qRegODBCKeyCloseError)
         @EndIf
      @EndIf
   @EndIf

   @Return()

@EndFunc


//----------------------------------------------------------
@DefineFunc @Void @SetEnvODBCOS2(@Void)

  @ShowAll("@@SetEnvODBCOS2()", "No special ODBC setup for OS2 at present.")
  @Return()

@EndFunc
//
//
//
//File: SetDesk /////////////////////////////////////
//
//CIDVars: TBD
//
//Globals changed: none
//
@DefineProto
   @Integer @SetDesktop(@Void)
   @Void @CreateDeskTopItem(@In @QString @qTitle, @In @QString @qFolder,
                            @In @QString @qType, @In @QString @qExePath,
                            @In @QString @qIconPath, @In @QString @qIconNumber,
                            @In @QString @qParameters, @In @QString @qWorkingDir,
                            @In @QString @qOS2ObjectID, @In @QString @qOS2ProgType,
                            @In @QString @qOption1, @In @QString @qOption2)
   @QString @ReplaceMagicVariable(@In @QString @qPathString)
   @Void @CreateWPSObject(@In @QString @Class,
                          @In @QString @Title,
                          @In @QString @Folder,
                          @In @QString @ProgType,
                          @In @QString @ExePath,
                          @In @QString @ObjectID,
                          @In @QString @StartupDir,
                          @In @QString @Parameters,
                          @In @QString @IconFile)
   @Integer @IsNULL(@In @QString @InValue)
@EndProto
//
//

//----------------------------------------------------------
@DefineFunc @Integer @SetDesktop(@Void)
//   @ShowBMP(0, @Eval((@WinScreenCaps(8) - 350) / 2), @Eval((@WinScreenCaps(10) - 60) / 2), "@qSetDeskBMPFile", 2)
   @DoIcon(@qDefaultsFilename)
//   @EraseBMP(0)
   @iDialogRes = @iNext
   @Return(@iDialogRes)
@EndFunc


//----------------------------------------------------------
@DefineFunc @Void @CreateDeskTopItem(@In @QString @qTitle, @In @QString @qFolder,
                     @In @QString @qType, @In @QString @qExePath,
                     @In @QString @qIconPath, @In @QString @qIconNumber,
                     @In @QString @qParameters, @In @QString @qWorkingDir,
                     @In @QString @qOS2ObjectID, @In @QString @qOS2ProgType,
                     @In @QString @qOption1, @In @QString @qOption2)

   @ShowAll("@@CreateDeskTopItem()", "Need capability to create current user folders when user is admin on NT.")
   @ShowAll("@@CreateDeskTopItem()", "Creating @qType")

   @qTitle = @ReplaceMagicVariable(@qTitle)
   @qFolder = @ReplaceMagicVariable(@qFolder)
   @qIconPath = @ReplaceMagicVariable(@qIconPath)
   @qExePath = @ReplaceMagicVariable(@qExePath)
   @qParameters = @ReplaceMagicVariable(@qParameters)
   @qWorkingDir = @ReplaceMagicVariable(@qWorkingDir)


   @If (@StrCmp(@qType, @qFolderType) == 0)
      @If (@Platform == @Windows)
         @ProgramManager("[CreateGroup(@qTitle)]")
      @ElseIf(@Platform == @OS2)
         @If(@StrLen(@qInstallFolderID) == 0)
            @qInstallFolderID = @qOS2ObjectID
         @EndIf
         @CreateWPSObject("WPFolder", @qTitle, @qOption1, @qOS2ProgType,
            @qExePath, @qOS2ObjectID, @qWorkingDir, @qParameters, @qIconPath)
         @qInstallFolderID  = @qOS2ObjectID
      @Else
         @ErrorExit(@qInvalidOSError)
      @EndIf
   @ElseIf (@StrCmp(@qType, @qProgramType) == 0)
      //Create the icon only if the file exists
      @If (@Exists(@qExePath) == @TRUE)
         @If (@Platform == @Windows)
            @If (!@IsNull(@qParameters))
               @qExePath = "@qExePath @qParameters"
            @EndIf
            @ProgramManager("[CreateGroup(@qFolder)]")
            @ProgramManager("[AddItem(@qExePath, @qTitle, @qIconPath, @qIconNumber,,,
                            @qWorkingDir)]")
         @ElseIf(@Platform == @OS2)
            @CreateWPSObject("WPProgram", @qTitle, @qOption1, @qOS2ProgType,
               @qExePath, @qOS2ObjectID, @qWorkingDir, @qParameters, @qIconPath)
         @Else
            @ErrorExit(@qInvalidOSError)
         @EndIf
      @EndIf
   @ElseIf (@StrCmp(@qType, @qCommandType) == 0)
      @qExePath = @GetEnv("COMSPEC")
      //Create the icon only if the file exists
      @If (@Exists(@qExePath))
        @If (@Platform == @Windows)
            @If ((@SubPlatform == @Windows95) && (@IsNULL(@qIconPath)))
               @qIconPath = "@WinSystemDrive:@WinSystemDir\\pifmgr.dll"
            @ElseIf ((@SubPlatform == @WindowsNT) && (@IsNULL(@qIconPath)))
               @qIconPath = "@WinSystemDrive:@WinSystemDir\\CMD.EXE"
            @EndIf
            @If (!@IsNull(@qParameters))
               @qExePath = "@qExePath @qParameters"
            @EndIf
            @ProgramManager("[CreateGroup(@qFolder)]")
            @ProgramManager("[AddItem(@qExePath, @qTitle,@qIconPath,@qIconNumber,,,
                            @qWorkingDir)]")
         @ElseIf(@Platform == @OS2)
            @CreateWPSObject("WPProgram", @qTitle, @qOption1, @qOS2ProgType,
               @qExePath, @qOS2ObjectID, @qWorkingDir, @qParameters, @qIconPath)
         @Else
            @ErrorExit(@qInvalidOSError)
         @EndIf
      @Else
        @MsgBox(@qCommandTypeError)
      @EndIf
   @ElseIf (@StrCmp(@qType, @qTextFileType) == 0)
      //Create the icon only if the file exists
      @If (@Exists(@qParameters))
        @If (@Platform == @Windows)
            @qExePath = "Notepad.exe @qParameters"
            @ProgramManager("[CreateGroup(@qFolder)]")
            @ProgramManager("[AddItem(@qExePath, @qTitle, @qIconPath, @qIconNumber,,, @qWorkingDir)]")
         @ElseIf(@Platform == @OS2)
            @qExePath = "E.EXE"
            @CreateWPSObject("WPProgram", @qTitle, @qOption1, @qOS2ProgType,
               @qExePath, @qOS2ObjectID, @qWorkingDir, @qParameters, @qIconPath)
         @Else
            @ErrorExit(@qInvalidOSError)
         @EndIf
      @EndIf
   @ElseIf (@StrCmp(@qType, "URL") == 0)
      @If(@Platform == @OS2)
//         @If (@OSMajor < 4)   //Not Merlin
//            @qExePath="netscape.exe"
//            @CreateWPSObject("WPProgram",@qTitle,@qOption1,@qOS2ProgType,
//              @qExePath,@qOS2ObjectID, @qWorkingDir, @qParameters, @qIconPath)
//         @Else //Merlin
            @qExePath = ""
            @CreateWPSObject("WPURL", @qTitle, @qOption1, @qOS2ProgType,
              @qExePath, @qOS2ObjectID, @qWorkingDir, @qParameters, @qIconPath)
//         @EndIf
      @EndIf
   @ElseIf (@StrCmp(@qType, @qLinkToFolderType) == 0)
      @MsgBox("Need to create link to folder here.")
   @Else
      @MsgBox (@qInvalidDesktopItemType)
   @EndIf
   @Return()

@EndFunc


//----------------------------------------------------------
@DefineFunc @QString @ReplaceMagicVariable(@In @QString @qPathString)

loop:
   //Get the beginning of the magic variable
   @iTMP1 = @StrFind(@qPathString, "*!")
   //Get the end of the magic variable
   @iTMP4 = @StrFind(@qPathString, "!*")
   @If ( (@iTMP1 != -1) && (@iTMP4 != -1) && (@iTMP4 > @iTMP1) )
      @iTMP2 = @StrLen(@qPathString)
      @iTMP3 = @Eval(@iTMP2-@iTMP4 - 2)
      //Get the beginning of @qPathString (before the magic variable)
      @qTMP1 = @StrHead(@qPathString, @iTMP1)
      //Get the magic variable
      @qTMP2 = @StrMid(@qPathString, @Eval(@iTMP1+2), @Eval(@iTMP4-@iTMP1- 2) )
      //Get the ending of q PathString (afger the magic variable)
      @qTMP3 = @StrMid(@qPathString, @Eval(@iTMP4+2), @iTMP3 )

      //Get the real value of the magic variable.
      @If (@StrCmp(@qTMP2, "InstallPath1") == 0)
          @qTMP2 = @qInstallPath1
      @ElseIf (@StrCmp(@qTMP2, "InstallPath2") == 0)
          @qTMP2 = @qInstallPath2
      @ElseIf (@StrCmp(@qTMP2, "InstallPath3") == 0)
          @qTMP2 = @qInstallPath3
      @ElseIf (@StrCmp(@qTMP2, "InstallPath4") == 0)
          @qTMP2 = @qInstallPath4
      @ElseIf (@StrCmp(@qTMP2, "InstallPath5") == 0)
          @qTMP2 = @qInstallPath5
      @ElseIf (@StrCmp(@qTMP2, "InstallPath6") == 0)
          @qTMP2 = @qInstallPath6
      @ElseIf (@StrCmp(@qTMP2, "InstallPath7") == 0)
          @qTMP2 = @qInstallPath7
      @ElseIf (@StrCmp(@qTMP2, "InstallPath8") == 0)
          @qTMP2 = @qInstallPath8
      @ElseIf (@StrCmp(@qTMP2, "InstallPath9") == 0)
          @qTMP2 = @qInstallPath9
      @ElseIf (@StrCmp(@qTMP2, "InstallPath10") == 0)
          @qTMP2 = @qInstallPath10
      @ElseIf (@StrCmp(@qTMP2, "ProductName") == 0)
          @qTMP2 = @qProductName
      @Else
          @MsgBox(@qInvalidInstallPath)
      @EndIf
      @qPathString = "@qTMP1@qTMP2@qTMP3"
      @Goto loop
   @EndIf
   @Return("@qPathString")

@EndFunc


//----------------------------------------------------------
@DefineFunc @Void @CreateWPSObject(@In @QString @Class,
                                    @In @QString @Title,
                                    @In @QString @Folder,
                                    @In @QString @ProgType,
                                    @In @QString @ExePath,
                                    @In @QString @ObjectID,
                                    @In @QString @StartupDir,
                                    @In @QString @Parameters,
                                    @In @QString @IconFile)

   @If (@Exists("@qTempPath\\@qREXXScriptFile"))
      @Write("@qTempPath\\@qREXXScriptFile", "at", "/* REXX CMD Script */\n\n")
   @Else
      @Write("@qTempPath\\@qREXXScriptFile", "wt", "/* REXX CMD Script */\n\n")
      @Write(,,"CALL RxFuncAdd 'SysLoadFuncs', 'REXXUtil', 'SysLoadFuncs'\n")
      @Write(,,"CALL SysLoadFuncs\n\n")
   @EndIf
   @Write(,,"classname = '@Class'\n")
   @Write(,,"title = '@Title'\n")
   @If(@IsNULL(@Folder))
      @Write(,,"location = <WP_DESKTOP>"
   @Else
      @Write(,,"location = '<@Folder>'\n")
   @EndIf

   @If(!@IsNull(@ObjectID))
      @Write(,,"setup = 'OBJECTID=<@ObjectID>")
   @Else
      @ErrorExit("WPS Object '@Title' does not have an ObjectID")
   @EndIf

   @If(!@IsNull(@ProgType))
      @Write(,,";PROGTYPE=@ProgType")
   @EndIf

   @If(!@IsNULL(@ExePath))
      @Write(,,";EXENAME=@ExePath")
   @EndIf

   @If(!@IsNULL(@StartupDir))
      @Write(,,";STARTUPDIR=@StartupDir")
   @EndIf

   @If(!@IsNULL(@Parameters))
      @If(@StrCmp(@Class,"WPURL") == 0)
         @Write(,,";URL=@Parameters")
      @Else
         @Write(,,";PARAMETERS=@Parameters")
      @EndIf
   @EndIf

   @If(!@IsNULL(@IconFile))
      @Write(,,";ICONFILE=@IconFile")
   @EndIf

   @Write(,,"'\n")
   @Write(,,"return = SysCreateObject(classname, title, location, setup)\n\n")
//   @Write(,, "EXIT\n")

//   @OS2Exec("@qTempPath\\@qREXXScriptFile","","",1,3,"Creating @Class @Title","",0,0,0,0,-1,0)

   @Return()
@EndFunc


//----------------------------------------------------------
@DefineFunc @Integer @IsNULL(@In @QString @InValue)
   @Return((@StrLen(@InValue) == 0) || (@StrCmp(@InValue, @qDoubleQuotes) == 0))
@EndFunc
//
//
//
//File: RegProd /////////////////////////////////////
//
//CIDVars: TBD
//
//Globals changed: none
//
@DefineProto
   @Integer @RegisterProduct(@Void)
   @Void @RegProdWindows(@Void)
   @Void @RegProdOS2(@Void)
   @Void @SetRegProdValue(@In @QString @qName, @In @QString @qValue)
   @Void @SetRegProdValueOS2(@In @QString @qName, @In @QString @qValue)
   @Void @InitRegProdEnvVarLoc(@Void)
   @Void @SetProductINI(@Void)
   @Void @BackupConfigSys(@Void)
   @Void @SetProductINIPointer(@Void)
   @QString @GetProductINIPointer(@Void)
   @QString @GetExtProductINIPointer(@In @QString @qExtProductINIPointerApp,@In @QString @qExtProductINIPointerKey)
   @Void @DeleteProductINIPointer(@Void)

@EndProto
//
//

//----------------------------------------------------------
@DefineFunc @Integer @RegisterProduct(@Void)

   @If(@Platform == @Windows)
      @RegProdWindows()
   @ElseIf(@Platform == @OS2)
      @RegProdOS2()
   @Else
      @MsgBox(@qInvalidOSError)
   @EndIf

   //Write Product Info to install.sys
   @AddSectionInstallSys(@lProductInfo)
   @WritelnInstallSys("@lDirectory=@qInstallPath1")
   @WritelnInstallSys("@lFolder=@qFolderName")
   @WritelnInstallSys("@lFixPak=@qFixPakLevel")
   @WritelnInstallSys("@lLanguage=@qLanguage")
   @If ((@Platform == @Windows) && (@SubPlatform == @WindowsNT))
      @WritelnInstallSys("@lEnvVarLoc=@qEnvVarLoc")
   @EndIf

   @Return(@iNext)

@EndFunc


//----------------------------------------------------------
@DefineFunc @Void @RegProdWindows(@Void)

   @ShowAll("@@RegProdWindows()", "Register product info done here.")
   @ShowAll("@@RegProdWindows()", "Nothing into AppPath.")

   @SetRegProdValue(@lDirectory, @qInstallPath1)
   @SetRegProdValue(@lFolder, @qFolderName)
   @SetRegProdValue(@lLanguage, @qLanguage)
   @SetRegProdValue(@lFixPak, @qFixPakLevel)
   //set the value for where env. vars. are to be set (Only for WinNT)
   @If (@SubPlatform == @WindowsNT)
      @InitRegProdEnvVarLoc()
   @EndIf

   @Return()

@EndFunc


//----------------------------------------------------------
@DefineFunc @Void @SetRegProdValue(@In @QString @qName, @In @QString @qValue)

   @If(@Platform == @Windows)
      //This string contains the key to be created in the Windows 95/NT registry
      @qTMP1 = "SOFTWARE\\@qCompanyName\\@qProductName\\@qProductVersion\\@qInstallKey"

      @If (@WinRegCreateKeyEx(@HKeyLocalMachine, @qTMP1, "", 0, @iRegKeyAllAccess,
                              @Null, @iKeyHandle, @iDisposition) != 0)
         @ErrorExit(@qRegCreateProdKeyError, 1)
      @EndIf

      //After creating the key set the Product Info value
      @If (@WinRegSetValueEx(@iKeyHandle, @qName, @iRegString, @qValue,
                            @StrLen(@qValue) + 1) != 0)
         @ErrorExit("@qRegSetProdValueError Name: @qName, Value: @qValue", 2)
      @EndIf

      @If (@WinRegFlushKey(@iKeyHandle) != 0)
         @MsgBox(@qRegWriteProdInfoError)
      @EndIf
      @If (@WinRegCloseKey(@iKeyHandle) != 0)
         @MsgBox(@qRegCloseProdKeyError)
      @EndIf
   @ElseIf(@Platform == @OS2)
      @SetProductINI()
      @SetRegProdValueOS2(@qName, @qValue)
   @EndIf
   @Return()

@EndFunc


//----------------------------------------------------------
@DefineFunc @Void @InitRegProdEnvVarLoc(@Void)

   //This string contains the key to be created in the Windows 95/NT registry
   @qTMP1 = "SOFTWARE\\@qCompanyName\\@qProductName\\@qProductVersion\\@qInstallKey"

   @If (@WinRegCreateKeyEx(@HKeyLocalMachine, @qTMP1, "", 0, @iRegKeyAllAccess,
                           @Null, @iKeyHandle, @iDisposition) != 0)
      @ErrorExit(@qRegCreateProdKeyError, 1)
   @EndIf

   @If (@WinRegQueryValueEx(@iKeyHandle, @lEnvVarLoc, @Null,
                            @qTMP2, @iTMP1) != 0)
      @If (@WinRegSetValueEx(@iKeyHandle, @lEnvVarLoc, @iRegString,
                             @qRegEnvVarsNotSet, @StrLen(@qRegEnvVarsNotSet) + 1) != 0)
         @ErrorExit("@qRegSetProdValueError Name: @lEnvVarLoc Value: @qRegEnvVarsNotSet", 2)
      @EndIf
   @EndIf

   @If (@WinRegFlushKey(@iKeyHandle) != 0)
      @MsgBox(@qRegWriteProdInfoError)
   @EndIf
   @If (@WinRegCloseKey(@iKeyHandle) != 0)
      @MsgBox(@qRegCloseProdKeyError)
   @EndIf

   @Return()

@EndFunc


//----------------------------------------------------------
@DefineFunc @Void @RegProdOS2(@Void)

   @ShowAll("@@RegProdOS2()", "OS/2 RegProd in alpha stage")
   @BackupConfigSys()
   @SetProductIni()
   @SetRegProdValueOS2(@lDirectory, @qInstallPath1)
   @SetRegProdValueOS2(@lFolder, @qInstallFolderID)
   @SetRegProdValueOS2(@lLanguage, @qLanguage)
   @SetRegProdValueOS2(@lFixpak, @qFixpaklevel)

   @Return()
@EndFunc

//---------------------------------------------------------

@DefineFunc @Void @SetProductINI(@Void)
   @If(@Platform == @OS2)
      @If (!@iProductInstalled)
         @qProductINI = "@qInstallPath1\\@qProductINIBase.INI"
         @SetProductINIPointer()
//         @WriteVar(@qConfigSysFile, "@lProductINIVar@Version", @qProductINI)
      @EndIf
   @EndIf
   @Return()
@EndFunc

//---------------------------------------------------------

@DefineFunc @Void @BackupConfigSys(@Void)

   @If(@iMakeConfigSysBackup)
      @qBackupConfigSysFile = @CreateBackupFilename("CONFIG.SYS")
      @qBackupConfigSysFile = "@BootDrive:\\@qBackupConfigSysFile"
      @Copy(@qConfigSysFile, @qBackupConfigSysFile)
      @iMakeConfigSysBackup = @False
   @EndIf
   @Return()
@EndFunc

//----------------------------------------------------------

@DefineFunc @Void @SetRegProdValueOS2(@In @QString @qName, @In @QString @qValue)

   @SetOS2ProductINIString(@qInstallKey, @qName, @qValue)
   @Return()
@EndFunc

//--------------------------------------------------

@DefineFunc @Void @SetProductINIPointer(@Void)


   @If (@OS2SetINI("@qProductINIPointerApp","@qProductINIPointerKey",
                   "@qProductINI","HINI_USERPROFILE"))
      @MsgBox("CreateProductINIPointer: Error writing to OS2.INI")
   @EndIf

   @Return()
@EndFunc

//--------------------------------------------------

@DefineFunc @QString @GetProductINIPointer(@Void)

   @Return("@OS2GetINI("@qProductINIPointerApp","@qProductINIPointerKey",
                       "HINI_USERPROFILE")")
@EndFunc

//---------------------------------------------------

@DefineFunc @Void @DeleteProductINIPointer(@Void)

   @If (@OS2SetINI("@qProductINIPointerApp","@qProductINIPointerKey",
                   "","HINI_USERPROFILE"))
      @MsgBox("CreateProductINIPointer: Error writing to OS2.INI")
   @EndIf

   @Return()
@EndFunc

//--------------------------------------------------

@DefineFunc @QString @GetExtProductINIPointer(@In @QString @qExtProductINIPointerApp,@In @QString @qExtProductINIPointerKey)

   @Return("@OS2GetINI("@qExtProductINIPointerApp","@qExtProductINIPointerKey",
                       "HINI_USERPROFILE")")
@EndFunc



//
//
//
//File: GoodBye /////////////////////////////////////
//
//CIDVars: TBD
//
//Globals changed: none
//
@DefineProto
  @Void @DisplayReadme(@Void)
  @Void @DisplayGoodbye(@Void)
@EndProto
//
//


//----------------------------------------------------
@DefineFunc @Void @DisplayGoodbye(@Void)
   @If (@iResponseFile==@TRUE)
      @Return ()
   @Endif

   @DisplayReadme()

   @TempStr = "@qDisGbyeSuccess
   @OutDrive:@Subdir"
   @Message("@qDisGbyeTitle","",,@TempStr,"","")

   @Return()
@EndFunc


//----------------------------------------------------
@DefineFunc @Void @DisplayReadme(@Void)
   @if (@Message("@qDisReadmeTitle","",,"@qDisReadmeText","@qYes","@qNo") == 1)
      @WinExec("notepad @OutDrive:\\@Subdir\\@qReadmeFile",1)  //1 means SW_SHOWNORMAL
   @Endif
   @Return()
@EndFunc
//
//
//
//File: RegArt /////////////////////////////////////
//
//CIDVars: TBD
//
//Globals changed: none
//
@DefineProto
   @Integer @RegisterART(@Void)
@EndProto
//
//

//----------------------------------------------------------
@DefineFunc @Integer @RegisterART(@Void)
   @iDialogRes = @iNext
   @Return(@iDialogRes)
@EndFunc
//
//
//
//File: Reboot  /////////////////////////////////////
//
//CIDVars: TBD
//
//Globals changed: none
//
@DefineProto
   @Integer @AskReboot(@Void)
   @Void @EventHandler @AskRebootRBHandler(@In @Int @OldSelected, @In @Int @NewSelected, @In @Int @RangeStart, @In @Int @RangeEnd)
   @Void @AskRebootSetHelp(@Void)
@EndProto
//
//
//----------------------------------------------------
@DefineFunc @Void @EventHandler @AskRebootRBHandler(@In @Int @OldSelected, @In @Int @NewSelected,
                                 @In @Int @RangeStart,  @In @Int @RangeEnd)
   @If    (@NewSelected == 1410)
      @iAskReboot = 1
   @ElseIf(@NewSelected == 1420)
      @iAskReboot = 2
   @Else
      @ErrorExit("@qAskRebootErrorMsg1")
   @EndIf

   @AskRebootSetHelp()
   @StaticText(510, "@qAskRebootStringText2 \n\n @qAskRebootStringText3 ")
   @Return()
@EndFunc

//----------------------------------------------------
@DefineFunc @Integer @AskReboot(@Void)

   @if (@CIDBypass(@qForceReboot))
      @return(@iDialogRes)
   @endif

   @AskRebootSetHelp()
   @MapEventToFunc(@DlgRBEvent, @AskRebootRBHandler)
   @EnableEventMap(@DlgRBEvent)
   @iDialogRes = @DialogRadio(@qAskRebootTitle, @qAskRebootBitMap,
                              @iAskRebootBitmapID,
                              @qAskRebootStringText1, @qAskRebootStringText2,
                              @qAskRebootStringText3,
                              @qAskRebootRadioButton1Text,
                              @qAskRebootRadioButton2Text, "", "", "", "",
                              "", @qAskRebootPushButton1Text, "", "", "",
                              @iAskReboot)
   @DisableEventMap(@DlgRBEvent)

   @if (!(@iDialogRes == 2))
      @ErrorExit(@qAskRebootErrorMsg2,@iAbort)
   @endif

   @iDialogRes = @iNext
   @Return(@iDialogRes)

@EndFunc

@DefineFunc @Void @AskRebootSetHelp(@Void)
   @If     (@iAskReboot == 1)
      @qAskRebootStringText2 = @qAskRebootHelp1
   @ElseIf (@iAskReboot == 2)
      @qAskRebootStringText2 = @qAskRebootHelp2
   @Else
      @ErrorExit(@qAskRebootErrorMsg3,@iAbort)
   @Endif
   @Return()
@EndFunc
//
//
//
//File: RegUnin /////////////////////////////////////
//
//CIDVars: TBD
//
//Globals changed: none
//
@DefineProto
   @Integer @RegisterUninstall(@Void)
   @Void @RegUninWindows(@Void)
   @Void @RegUninOS2(@Void)
@EndProto
//
//

//----------------------------------------------------------
@DefineFunc @Integer @RegisterUninstall(@Void)

   @If(@Platform == @Windows)
      @RegUninWindows()
   @ElseIf(@Platform == @OS2)
      @RegUninOS2()
   @Else
      @MsgBox(@qRegProdOSError)
   @EndIf
   @Return(@iNext)

@EndFunc

@DefineFunc @Void @RegUninWindows(@Void)

   @ShowAll("@@RegUninWindows()", "Register Uninstall done here.")
//   @ShowAll("@@RegUninWindows()", "Creating product uninstall key.")
//   @ShowAll("@@RegUninWindows()", "setting DisplayName value.")
//   @ShowAll("@@RegUninWindows()", "Setting UninstallString value.")

   // Set Uninstall Information Key
   // This string contains the key to be created in the Windows 95/NT registry
   @qTempStr1 = "SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Uninstall\\@qProductName"

   // This string contains the name which will appear as the product to
   // uninstall in the Add/Remove components list of the Settings dialog
   // from the Start menu.
   @qTempStr2 = @qProductName

   // This string is the path and name of the uninstall routine
   @qTempStr3 = "@qInstallPath1\\@qUninstallCmdLine"

   // Create the key
   @If (@WinRegCreateKeyEx(@HKeyLocalMachine, @qTempStr1, "", 0, @iRegKeyAllAccess,
                           @Null, @iKeyHandle, @iDisposition) != 0)
      @MsgBox(@qRegCreateUninstallKeyError)
   @Else
      //After creating the key set the Uninstall Info -- DisplayName & UninstallString
      //DisplayName contains the Title of the software.  UninstallString points to the program
      //path and command line to uninstall the application.
      @If (@WinRegSetValueEx(@iKeyHandle, @lDisplayName, @iRegString, @qTempStr2,
                            @StrLen(@qTempStr2) + 1) != 0)
         @MsgBox(@qRegSetDisplayNameError)
      @EndIf
      @If (@WinRegSetValueEx(@iKeyHandle, @lUninstallString, @iRegString, @qTempStr3,
                             @StrLen(@qTempStr3) + 1) != 0)
         @MsgBox(@qRegSetUninstallStringError)
      @EndIf
      @If (@WinRegFlushKey(@iKeyHandle) != 0)
         @MsgBox(@qRegWriteUninstallInfoError)
      @EndIf
      @If (@WinRegCloseKey(@iKeyHandle) != 0)
         @MsgBox(@qRegCloseUninstallKeyError)
      @EndIf
   @EndIf
   @Return()

@EndFunc

@DefineFunc @Void @RegUninOS2(@Void)

   @ShowAll("@@RegUninOS2()", "Need function to register uninstall info for OS2 here.")
   @Return()

@EndFunc
//
//
//
//File: DispHelp /////////////////////////////////////
//
//CIDVars: NONE
//
//Globals changed: NONE
//
@DefineProto
   @Void @DisplayHelp(@In @QString @qHelpFileName)
@EndProto
//
//

//----------------------------------------------------
@DefineFunc @Void @DisplayHelp(@In @QString @qHelpFileName)
   @If (@iResponseFile==@TRUE)
      @return()
   @EndIf

   @If ( @Exists("@qTempPath\\@qHelpFileName") )
      @WinExec("notepad @qTempPath\\@qHelpFileName",1)  //1 means SW_SHOWNORMAL
   @Else
      @MsgBox("@qDisplayHelpError @qHelpFileName")
   @Endif

   @Return()
@EndFunc
//
//
//
//File: Util /////////////////////////////////////
//
//CIDVars: NONE
//
//Globals changed: NONE
//
@DefineProto
   @Integer @CIDBypass(@In @QString @qForceFlag)

   @Integer @CueSection(@In @QString @filename, @In @QString @qSection)
   @QString @StripBlanks(@In @QString @InString)
   @Void @Parse2(@In @QString @InString, @In @QString @qDelimiter,
                            @Out @QString @qtok1, @Out @QString @qtok2)
   @Void @CreateInstallSys(@Void)
   @Void @WritelnInstallSys(@In @QString @Instring)
   @Void @AddSectionInstallSys(@In @QString @Sectionname)
   @Void @AddNewlineInstallSys(@Void)
   @Integer @ClusterOverhead(@In @Drive @DriveLetter, @In @Integer @NumFiles, @In @Integer @Percent)
   @Void @DetermineInstallSysFilename(@Void)
   @QString @CustomFeaturesToGroups(@In @QString @qFeaturesString)
   @Void @SetInstallPathsFromFile(@In @QString @Filename)
   @Void @SetCustomFeaturesStringFromFile(@In @QString @filename,
            @Out @QString @qCustomFeaturesString)
   @Integer @OptionGroupsNotEmpty(@In @QString @qOptionsToGroup)
   @QString @GetGroupPath(@In @QString @qGroup)
   @Void @SetOutPath(@In @QString @qGroup)
   @Void @SetOutDriveSubdir(@In @QString @qPath)
   @Void @CheckMultipleRedFiles(@Void)
   @Void @SetNumberOfDisks(@Void)
   @Void @LoadBMPBackground(@In @QString @filename)
   @Void @LoadBMPBillBoard(@Void)
   @Void @LoadBMPProdLogo(@In @QString @filename)
   @Void @LoadBMPMsg(@In @QString @filename)
@EndProto
//
//

//----------------------------------------------------
@DefineFunc @Integer @CIDBypass(@In @QString @qForceFlag)
   @If (@iResponseFile &&  @StrCmp(@qForceFlag,@lY)!=0 )
      @Return(@TRUE)
   @Else
      @Return(@FALSE)
@EndFunc

//----------------------------------------------------------------------------

@DefineFunc @Integer @CueSection(@In @QString @Filename, @In @QString @Section)

   @If (!@Exists(@Filename))
      @ErrorExit(@qCueSectionErrorFileNotExist,@iAbort)
   @EndIf

   @If (@StrCmp(@Section,"") == 0)
      @ErrorExit(@qCueSectionErrorSectionNull,@iAbort)
   @EndIf

   @iReturnVal = @ReadInfo(@filename,@qReadStr,@True,0)

CueSectionTop:
   @If (@iReturnVal == -1)
      @iReturnVal = @iEOF
   @Else
      @If (@StrFind(@qReadStr,"[@Section]") != -1)
         @iReturnVal = @iSuccess
      @Else
         @iReturnVal = @ReadInfo(@filename, @qReadStr, @False,0)
         @Goto CueSectionTop
      @EndIf
   @EndIf

CueSectionEnd:
   @Return(@iReturnVal)
@EndFunc

//---------------------------------------------------------------

//Parse2 tokenizes @InString into 2 tokens delimited by the first occurence
//of @qDelimiter.
//The strings are returned in @qtok1 and @qtok2. Leading and trailing
//blanks are removed from both strings.

@DefineFunc @Void @Parse2(@In @QString @InString, @In @QString @qDelimiter,
                            @Out @QString @qtok1, @Out @QString @qtok2)

   @qtok1 = @StrToken("@InString",0,"@qDelimiter")

   //@qtok2 cannot be generated with StrToken, because it needs to preserve
   //any @qDelimiters after the first one
   @qtok2 = @StrDel(@InString, 0, @StrLen(@qtok1)+1)

   @If (@StrCmp(@qtok1,"") != 0)
      @qtok1 = @StripBlanks(@qtok1)
   @EndIf

   @If (@StrCmp(@qtok2,"") != 0)
      @qtok2 = @StripBlanks(@qtok2)
   @EndIf

   @Return()
@EndFunc
//---------------------------------------------------------------

@DefineFunc @QString @StripBlanks(@In @QString @InString)

   //Check for a null string
   @If (@StrLen(@InString) == 0)
      @Return(@InString)
   @EndIf

StripLeading:
   @If (@StrIndex(@InString,0) == @bBlank)
      @InString = @StrDel(@InString,0,1)
      @Goto StripLeading
   @EndIf


StripTrailing:
   //Check again for a null string
   @If (@StrLen(@InString) == 0)
      @Return(@InString)
   @EndIf

   @If (@StrIndex(@InString,@StrLen(@InString) - 1) == @bBlank)
      @InString = @StrDel(@InString,@StrLen(@InString) - 1,1)
      @Goto StripTrailing
   @EndIf

   @Return(@InString)
@EndFunc

//---------------------------------------------------------------
@DefineFunc @Void @CreateInstallSys(@Void)
   @If (@StrFind(@qInstallPath1,"@qInstallPath1NoQuotes") == 1)
      @If (!@Exists(@qInstallPath1NoQuotes))
         @MkDir(@qInstallPath1NoQuotes)
      @EndIf
   @Else
      @If (!@Exists(@qInstallPath1))
         @MkDir(@qInstallPath1)
      @EndIf
   @EndIf

   @DetermineInstallSysFilename()
   @If (@Write(@qInstallSysFilename,"wt",""))
      @ErrorExit(@qInstallSysErrorWrite1,@iAbort)
   @EndIf

   @Return()
@EndFunc
//---------------------------------------------------------------
@DefineFunc @Void @WritelnInstallSys(@In @QString @Instring)
   @If (@Write(@qInstallSysFilename,,"@Instring\n"))
      @ErrorExit(@qInstallSysErrorWrite2,@iAbort)
   @EndIf

   @Return()
@EndFunc
//---------------------------------------------------------------
@DefineFunc @Void @AddSectionInstallSys(@In @QString @Sectionname)
   @If (@Write(@qInstallSysFilename,,"[@Sectionname]\n"))
      @ErrorExit(@qInstallSysErrorWrite3,@iAbort)
   @EndIf

   @Return()
@EndFunc
//---------------------------------------------------------------
@DefineFunc @Void @AddNewlineInstallSys(@Void)
   @If (@Write(@qInstallSysFilename,,"\n"))
      @ErrorExit(@qInstallSysErrorWrite4,@iAbort)
   @EndIf

   @Return()
@EndFunc

//---------------------------------------------------------------
@DefineFunc @Integer @ClusterOverhead(@In @Drive @DriveLetter, @In @Integer @NumFiles,@In @Integer @Percent)
   @Return(@DriveCluster(@DriveLetter)*@NumFiles/100*@Percent)
@EndFunc



//---------------------------------------------------------------
@DefineFunc @Void @DetermineInstallSysFilename(@Void)

   @If (@StrCmp(@qInstallSysFilename,"") == 0)
      @If (@StrFind(@qInstallPath1,"@qInstallPath1NoQuotes") == 1)
         @qInstallSysfilename = "@qInstallPath1NoQuotes\\@lInstallSys"
      @Else
         @qInstallSysfilename = "@qInstallPath1\\@lInstallSys"
      @EndIf
   @EndIf
   @Return()
@EndFunc


//----------------------------------------------------------------
@DefineFunc @QString @CustomFeaturesToGroups(@In @QString @qFeaturesString)
   @qTMP1 = "16"
   @qGroupsString = ""
   @iTMP2 = @StrFind("@qFeaturesString","@qTMP1")
   @If (@iTMP2 >= 0)
      @qGroupsString = "@qGroupsString @qFeature16GroupString"
   @Endif
   @qTMP1 = "15"
   @iTMP2 = @StrFind("@qFeaturesString","@qTMP1")
   @If (@iTMP2 >= 0)
      @qGroupsString = "@qGroupsString @qFeature15GroupString"
   @Endif
   @qTMP1 = "14"
   @iTMP2 = @StrFind("@qFeaturesString","@qTMP1")
   @If (@iTMP2 >= 0)
      @qGroupsString = "@qGroupsString @qFeature14GroupString"
   @Endif
   @qTMP1 = "13"
   @iTMP2 = @StrFind("@qFeaturesString","@qTMP1")
   @If (@iTMP2 >= 0)
      @qGroupsString = "@qGroupsString @qFeature13GroupString"
   @Endif
   @qTMP1 = "12"
   @iTMP2 = @StrFind("@qFeaturesString","@qTMP1")
   @If (@iTMP2 >= 0)
      @qGroupsString = "@qGroupsString @qFeature12GroupString"
   @Endif
   @qTMP1 = "11"
   @iTMP2 = @StrFind("@qFeaturesString","@qTMP1")
   @If (@iTMP2 >= 0)
      @qGroupsString = "@qGroupsString @qFeature11GroupString"
   @Endif
   @qTMP1 = "10"
   @iTMP2 = @StrFind("@qFeaturesString","@qTMP1")
   @If (@iTMP2 >= 0)
      @qGroupsString = "@qGroupsString @qFeature10GroupString"
   @Endif
   @qTMP1 = "09"
   @iTMP2 = @StrFind("@qFeaturesString","@qTMP1")
   @If (@iTMP2 >= 0)
      @qGroupsString = "@qGroupsString @qFeature09GroupString"
   @Endif
   @qTMP1 = "08"
   @iTMP2 = @StrFind("@qFeaturesString","@qTMP1")
   @If (@iTMP2 >= 0)
      @qGroupsString = "@qGroupsString @qFeature08GroupString"
   @Endif
   @qTMP1 = "07"
   @iTMP2 = @StrFind("@qFeaturesString","@qTMP1")
   @If (@iTMP2 >= 0)
      @qGroupsString = "@qGroupsString @qFeature07GroupString"
   @Endif
   @qTMP1 = "06"
   @iTMP2 = @StrFind("@qFeaturesString","@qTMP1")
   @If (@iTMP2 >= 0)
      @qGroupsString = "@qGroupsString @qFeature06GroupString"
   @Endif
   @qTMP1 = "05"
   @iTMP2 = @StrFind("@qFeaturesString","@qTMP1")
   @If (@iTMP2 >= 0)
      @qGroupsString = "@qGroupsString @qFeature05GroupString"
   @Endif
   @qTMP1 = "04"
   @iTMP2 = @StrFind("@qFeaturesString","@qTMP1")
   @If (@iTMP2 >= 0)
      @qGroupsString = "@qGroupsString @qFeature04GroupString"
   @Endif
   @qTMP1 = "03"
   @iTMP2 = @StrFind("@qFeaturesString","@qTMP1")
   @If (@iTMP2 >= 0)
      @qGroupsString = "@qGroupsString @qFeature03GroupString"
   @Endif
   @qTMP1 = "02"
   @iTMP2 = @StrFind("@qFeaturesString","@qTMP1")
   @If (@iTMP2 >= 0)
      @qGroupsString = "@qGroupsString @qFeature02GroupString"
   @Endif
   @qTMP1 = "01"
   @iTMP2 = @StrFind("@qFeaturesString","@qTMP1")
   @If (@iTMP2 >= 0)
      @qGroupsString = "@qGroupsString @qFeature01GroupString"
   @Endif
   @Return(@qGroupsString)
@EndFunc



//----------------------------------------------------------------
@DefineFunc @Void @SetInstallPathsFromFile(@In @QString @Filename)

   @qInstallPath1 = @GetIni("@lInstallOptions","@lInstallPath@l1",@Filename)
   @qInstallPath2 = @GetIni("@lInstallOptions","@lInstallPath@l2",@Filename)
   @qInstallPath3 = @GetIni("@lInstallOptions","@lInstallPath@l3",@Filename)
   @qInstallPath4 = @GetIni("@lInstallOptions","@lInstallPath@l4",@Filename)
   @qInstallPath5 = @GetIni("@lInstallOptions","@lInstallPath@l5",@Filename)
   @qInstallPath6 = @GetIni("@lInstallOptions","@lInstallPath@l6",@Filename)
   @qInstallPath7 = @GetIni("@lInstallOptions","@lInstallPath@l7",@Filename)
   @qInstallPath8 = @GetIni("@lInstallOptions","@lInstallPath@l8",@Filename)
   @qInstallPath9 = @GetIni("@lInstallOptions","@lInstallPath@l9",@Filename)
   @qInstallPath10 = @GetIni("@lInstallOptions","@lInstallPath@l10",@Filename)

   @Return()
@EndFunc

//----------------------------------------------------------
@DefineFunc @Void @SetCustomFeaturesStringFromFile(@In @QString @filename,
            @Out @QString @qCustomFeaturesString)

   @qCustomFeaturesString = @GetINI(@lInstallOptions,@lCustom,@filename)

   @Return()
@EndFunc

//----------------------------------------------------------
@DefineFunc @Integer @OptionGroupsNotEmpty(@In @QString @qOptionsToGroup)
   @iTMP1 = @False
   @iTMP1 = (@iTMP1 || (@GroupIsSet(A) && (@StrFind(@StrUpr(@qOptionsToGroup), "A") != -1)))
   @iTMP1 = (@iTMP1 || (@GroupIsSet(B) && (@StrFind(@StrUpr(@qOptionsToGroup), "B") != -1)))
   @iTMP1 = (@iTMP1 || (@GroupIsSet(C) && (@StrFind(@StrUpr(@qOptionsToGroup), "C") != -1)))
   @iTMP1 = (@iTMP1 || (@GroupIsSet(D) && (@StrFind(@StrUpr(@qOptionsToGroup), "D") != -1)))
   @iTMP1 = (@iTMP1 || (@GroupIsSet(E) && (@StrFind(@StrUpr(@qOptionsToGroup), "E") != -1)))
   @iTMP1 = (@iTMP1 || (@GroupIsSet(F) && (@StrFind(@StrUpr(@qOptionsToGroup), "F") != -1)))
   @iTMP1 = (@iTMP1 || (@GroupIsSet(G) && (@StrFind(@StrUpr(@qOptionsToGroup), "G") != -1)))
   @iTMP1 = (@iTMP1 || (@GroupIsSet(H) && (@StrFind(@StrUpr(@qOptionsToGroup), "H") != -1)))
   @iTMP1 = (@iTMP1 || (@GroupIsSet(I) && (@StrFind(@StrUpr(@qOptionsToGroup), "I") != -1)))
   @iTMP1 = (@iTMP1 || (@GroupIsSet(J) && (@StrFind(@StrUpr(@qOptionsToGroup), "J") != -1)))
   @iTMP1 = (@iTMP1 || (@GroupIsSet(K) && (@StrFind(@StrUpr(@qOptionsToGroup), "K") != -1)))
   @iTMP1 = (@iTMP1 || (@GroupIsSet(L) && (@StrFind(@StrUpr(@qOptionsToGroup), "L") != -1)))
   @iTMP1 = (@iTMP1 || (@GroupIsSet(M) && (@StrFind(@StrUpr(@qOptionsToGroup), "M") != -1)))
   @iTMP1 = (@iTMP1 || (@GroupIsSet(N) && (@StrFind(@StrUpr(@qOptionsToGroup), "N") != -1)))
   @iTMP1 = (@iTMP1 || (@GroupIsSet(O) && (@StrFind(@StrUpr(@qOptionsToGroup), "O") != -1)))
   @iTMP1 = (@iTMP1 || (@GroupIsSet(P) && (@StrFind(@StrUpr(@qOptionsToGroup), "P") != -1)))
   @iTMP1 = (@iTMP1 || (@GroupIsSet(Q) && (@StrFind(@StrUpr(@qOptionsToGroup), "Q") != -1)))
   @iTMP1 = (@iTMP1 || (@GroupIsSet(R) && (@StrFind(@StrUpr(@qOptionsToGroup), "R") != -1)))
   @iTMP1 = (@iTMP1 || (@GroupIsSet(S) && (@StrFind(@StrUpr(@qOptionsToGroup), "S") != -1)))
   @iTMP1 = (@iTMP1 || (@GroupIsSet(T) && (@StrFind(@StrUpr(@qOptionsToGroup), "T") != -1)))
   @iTMP1 = (@iTMP1 || (@GroupIsSet(U) && (@StrFind(@StrUpr(@qOptionsToGroup), "U") != -1)))
   @iTMP1 = (@iTMP1 || (@GroupIsSet(V) && (@StrFind(@StrUpr(@qOptionsToGroup), "V") != -1)))
   @iTMP1 = (@iTMP1 || (@GroupIsSet(W) && (@StrFind(@StrUpr(@qOptionsToGroup), "W") != -1)))
   @iTMP1 = (@iTMP1 || (@GroupIsSet(X) && (@StrFind(@StrUpr(@qOptionsToGroup), "X") != -1)))
   @iTMP1 = (@iTMP1 || (@GroupIsSet(Y) && (@StrFind(@StrUpr(@qOptionsToGroup), "Y") != -1)))
   @iTMP1 = (@iTMP1 || (@GroupIsSet(Z) && (@StrFind(@StrUpr(@qOptionsToGroup), "Z") != -1)))
   @Return(@iTMP1)
@EndFunc

//---------------------------------------------------

@DefineFunc @QString @GetGroupPath(@In @QString @qGroup)

   @If (@StrFind(@qOption1Groups,"@qGroup") >= 0)
      @Return (@qInstallPath1)
   @ElseIf (@StrFind(@qOption2Groups,"@qGroup") >= 0)
      @Return (@qInstallPath2)
   @ElseIf (@StrFind(@qOption3Groups,"@qGroup") >= 0)
      @Return (@qInstallPath3)
   @ElseIf (@StrFind(@qOption4Groups,"@qGroup") >= 0)
      @Return (@qInstallPath4)
   @ElseIf (@StrFind(@qOption5Groups,"@qGroup") >= 0)
      @Return (@qInstallPath5)
   @ElseIf (@StrFind(@qOption6Groups,"@qGroup") >= 0)
      @Return (@qInstallPath6)
   @ElseIf (@StrFind(@qOption7Groups,"@qGroup") >= 0)
      @Return (@qInstallPath7)
   @ElseIf (@StrFind(@qOption8Groups,"@qGroup") >= 0)
      @Return (@qInstallPath8)
   @ElseIf (@StrFind(@qOption9Groups,"@qGroup") >= 0)
      @Return (@qInstallPath9)
   @Else
      @Return (@qInstallPath10)
   @EndIf

   @Return (@qInstallPath1)
@EndFunc

//---------------------------------------------------

@DefineFunc @Void @SetOutPath(@In @QString @qGroup)

   @SetOutDriveSubdir(@GetGroupPath(@qGroup))
   @Return()
@EndFunc

//---------------------------------------------------

@DefineFunc @Void @SetOutDriveSubdir(@In @QString @qPath)

   @OutDrive = @StrIndex(@StrUpr(@qPath), (@StrFind(@qPath, ":\\") - 1))
   @Subdir = @StrDel("@qPath", 0, (@StrFind(@qPath, ":\\") + 1))

   @Return()
@EndFunc

//---------------------------------------------------

@DefineFunc @Void @CheckMultipleRedFiles(@Void)
   @iMultipleRedFiles = @TRUE
   @Return()
@EndFunc

//---------------------------------------------------

@DefineFunc @Void @SetNumberOfDisks(@Void)

   @qTMP3 = @CustomFeaturesToGroups(@qCustomFeatures)

   @If (@iMultipleRedFiles)
      @NumberofDisks = 1   //start at 1 for uninstall
      @NumberofDisks = (@NumberofDisks +
            ((@StrFind(@qTMP3,"A") >= 0) && (@FileSize(@GroupARedFile) != 0)))
      @NumberofDisks = (@NumberofDisks +
            ((@StrFind(@qTMP3,"B") >= 0) && (@FileSize(@GroupBRedFile) != 0)))
      @NumberofDisks = (@NumberofDisks +
            ((@StrFind(@qTMP3,"C") >= 0) && (@FileSize(@GroupCRedFile) != 0)))
      @NumberofDisks = (@NumberofDisks +
            ((@StrFind(@qTMP3,"D") >= 0) && (@FileSize(@GroupDRedFile) != 0)))
      @NumberofDisks = (@NumberofDisks +
            ((@StrFind(@qTMP3,"E") >= 0) && (@FileSize(@GroupERedFile) != 0)))
      @NumberofDisks = (@NumberofDisks +
            ((@StrFind(@qTMP3,"F") >= 0) && (@FileSize(@GroupFRedFile) != 0)))
      @NumberofDisks = (@NumberofDisks +
            ((@StrFind(@qTMP3,"G") >= 0) && (@FileSize(@GroupGRedFile) != 0)))
      @NumberofDisks = (@NumberofDisks +
            ((@StrFind(@qTMP3,"H") >= 0) && (@FileSize(@GroupHRedFile) != 0)))
      @NumberofDisks = (@NumberofDisks +
            ((@StrFind(@qTMP3,"I") >= 0) && (@FileSize(@GroupIRedFile) != 0)))
      @NumberofDisks = (@NumberofDisks +
            ((@StrFind(@qTMP3,"J") >= 0) && (@FileSize(@GroupJRedFile) != 0)))
      @NumberofDisks = (@NumberofDisks +
            ((@StrFind(@qTMP3,"K") >= 0) && (@FileSize(@GroupKRedFile) != 0)))
      @NumberofDisks = (@NumberofDisks +
            ((@StrFind(@qTMP3,"L") >= 0) && (@FileSize(@GroupLRedFile) != 0)))
      @NumberofDisks = (@NumberofDisks +
            ((@StrFind(@qTMP3,"M") >= 0) && (@FileSize(@GroupMRedFile) != 0)))
      @NumberofDisks = (@NumberofDisks +
            ((@StrFind(@qTMP3,"N") >= 0) && (@FileSize(@GroupNRedFile) != 0)))
      @NumberofDisks = (@NumberofDisks +
            ((@StrFind(@qTMP3,"O") >= 0) && (@FileSize(@GroupORedFile) != 0)))
      @NumberofDisks = (@NumberofDisks +
            ((@StrFind(@qTMP3,"P") >= 0) && (@FileSize(@GroupPRedFile) != 0)))
      @NumberofDisks = (@NumberofDisks +
            ((@StrFind(@qTMP3,"Q") >= 0) && (@FileSize(@GroupQRedFile) != 0)))
      @NumberofDisks = (@NumberofDisks +
            ((@StrFind(@qTMP3,"R") >= 0) && (@FileSize(@GroupRRedFile) != 0)))
      @NumberofDisks = (@NumberofDisks +
            ((@StrFind(@qTMP3,"S") >= 0) && (@FileSize(@GroupSRedFile) != 0)))
      @NumberofDisks = (@NumberofDisks +
            ((@StrFind(@qTMP3,"T") >= 0) && (@FileSize(@GroupTRedFile) != 0)))
      @NumberofDisks = (@NumberofDisks +
            ((@StrFind(@qTMP3,"U") >= 0) && (@FileSize(@GroupURedFile) != 0)))
      @NumberofDisks = (@NumberofDisks +
            ((@StrFind(@qTMP3,"V") >= 0) && (@FileSize(@GroupVRedFile) != 0)))
      @NumberofDisks = (@NumberofDisks +
            ((@StrFind(@qTMP3,"W") >= 0) && (@FileSize(@GroupWRedFile) != 0)))
      @NumberofDisks = (@NumberofDisks +
            ((@StrFind(@qTMP3,"X") >= 0) && (@FileSize(@GroupXRedFile) != 0)))
      @NumberofDisks = (@NumberofDisks +
            ((@StrFind(@qTMP3,"Y") >= 0) && (@FileSize(@GroupYRedFile) != 0)))
      @NumberofDisks = (@NumberofDisks +
            ((@StrFind(@qTMP3,"Z") >= 0) && (@FileSize(@GroupZRedFile) != 0)))

   @Else
      @NumberofDisks = 0
      @NumberofDisks = (@NumberofDisks + @OptionGroupsNotEmpty(@qOption1Groups))
      @NumberofDisks = (@NumberofDisks + @OptionGroupsNotEmpty(@qOption2Groups))
      @NumberofDisks = (@NumberofDisks + @OptionGroupsNotEmpty(@qOption3Groups))
      @NumberofDisks = (@NumberofDisks + @OptionGroupsNotEmpty(@qOption4Groups))
      @NumberofDisks = (@NumberofDisks + @OptionGroupsNotEmpty(@qOption5Groups))
      @NumberofDisks = (@NumberofDisks + @OptionGroupsNotEmpty(@qOption6Groups))
      @NumberofDisks = (@NumberofDisks + @OptionGroupsNotEmpty(@qOption7Groups))
      @NumberofDisks = (@NumberofDisks + @OptionGroupsNotEmpty(@qOption8Groups))
      @NumberofDisks = (@NumberofDisks + @OptionGroupsNotEmpty(@qOption9Groups))
      @NumberofDisks = (@NumberofDisks + @OptionGroupsNotEmpty(@qOption10Groups))

   @EndIf

   @Return()
@EndFunc

//--------------------------------------------------
@DefineFunc @Void @LoadBMPBackground(@In @QString @filename)

   //Background bitmap is level 1
//   @EraseBMP(1)
//   @If (@XRes == 800)
      @iTMPBMP2 = (@YRes - (15))
//   @Else
//      @iTMPBMP2 = @YRes
//   @EndIf

   @If (!@IsNULL(@filename))
      @ShowBMP(1,0,0,"@filename",2,@XRes,@iTMPBMP2)
   @EndIf
   @Return()
@EndFunc
//--------------------------------------------------
@DefineFunc @Void @LoadBMPBillBoard(@Void)
   //billboard is level 2

   @iTMPBMP1=@Eval((@XRes - (800)) / (2))
   @iTMPBMP2=@Eval((@YRes - (600)) / (2))

   @If (@XRes == 1024)
      @iTMPBMP2 = (@iTMPBMP2 - (8))
   @ElseIf (@XRes == 1280)
      @iTMPBMP2 = (@iTMPBMP2 - (8))
   @EndIf



   //@iTMPBMP6 is a state variable for the billboards
   @iTMPBMP6 = (@iTMPBMP6 + (1))
   @If (@iTMPBMP6 == 1)
      @qTMPBMP6 = "@qBBoardBMPFile1"
   @ElseIf(@iTMPBMP6 == 2)
      @qTMPBMP6 = "@qBBoardBMPFile2"
   @ElseIf(@iTMPBMP6 == 3)
      @qTMPBMP6 = "@qBBoardBMPFile3"
   @ElseIf(@iTMPBMP6 == 4)
      @qTMPBMP6 = "@qBBoardBMPFile4"
   @ElseIf(@iTMPBMP6 == 5)
      @qTMPBMP6 = "@qBBoardBMPFile5"
   @ElseIf(@iTMPBMP6 == 6)
      @qTMPBMP6 = "@qBBoardBMPFile6"
   @ElseIf(@iTMPBMP6 == 7)
      @qTMPBMP6 = "@qBBoardBMPFile7"
   @ElseIf(@iTMPBMP6 == 8)
      @qTMPBMP6 = "@qBBoardBMPFile8"
   @ElseIf(@iTMPBMP6 == 9)
      @qTMPBMP6 = "@qBBoardBMPFile9"
   @ElseIf(@iTMPBMP6 == 10)
      @qTMPBMP6 = "@qBBoardBMPFile10"
   @ElseIf(@iTMPBMP6 == 11)
      @qTMPBMP6 = "@qBBoardBMPFile11"
   @ElseIf(@iTMPBMP6 == 12)
      @qTMPBMP6 = "@qBBoardBMPFile12"
   @ElseIf(@iTMPBMP6 == 13)
      @qTMPBMP6 = "@qBBoardBMPFile13"
   @ElseIf(@iTMPBMP6 == 14)
      @qTMPBMP6 = "@qBBoardBMPFile14"
   @Else
      @qTMpBMp6 = "@qBBoardBMPFile14"
   @EndIf

   @If (!@IsNULL(@qTMPBMP6))
      @If (@XRes < 800)
         @ShowBMP(2,0,0,"@qTMPBMp6",2,@XRes,@YRes)
      @Else
         @ShowBMP(2,@iTMPBMP1,@iTMPBMP2,"@qTMPBMp6",2)
      @EndIf
   @EndIf

   @Return()

@EndFunc
//--------------------------------------------------
@DefineFunc @Void @LoadBMPProdLogo(@In @QString @filename)

//   @EraseBMP(2)
   @If (!@IsNULL(@filename))
      @ShowBMP(2,10,20,"@filename",2)
   @EndIf
   @Return()
@EndFunc
//--------------------------------------------------
@DefineFunc @Void @LoadBMPMsg(@In @QString @filename)

//   @EraseBMP(3)
   @If (!@IsNULL(@filename))
      @ShowBMP(3,10,@Eval(@YRes - (200)),"@filename",2)
   @EndIf
   @Return()
@EndFunc

//
// FILE: INSTOPT
//
//
//
@DefineProto

   @Integer @WriteInstallOptions(@Void)
@EndProto

///////////////////////////////////////////////////////

@DefineFunc @Integer @WriteInstallOptions(@Void)

   @AddSectionInstallSys("@lInstallOptions")
   @WritelnInstallSys("@lCustom@!=@qCustomFeatures")

   @If (@StrCmp(@qInstallPath1,"") != 0)
      @WritelnInstallSys("@lInstallPath@l1@!=@qInstallPath1")
   @EndIf
   @If (@StrCmp(@qInstallPath2,"") != 0)
      @WritelnInstallSys("@lInstallPath@l2@!=@qInstallPath2")
   @EndIf
   @If (@StrCmp(@qInstallPath3,"") != 0)
      @WritelnInstallSys("@lInstallPath@l3@!=@qInstallPath3")
   @EndIf
   @If (@StrCmp(@qInstallPath4,"") != 0)
      @WritelnInstallSys("@lInstallPath@l4@!=@qInstallPath4")
   @EndIf
   @If (@StrCmp(@qInstallPath5,"") != 0)
      @WritelnInstallSys("@lInstallPath@l5@!=@qInstallPath5")
   @EndIf
   @If (@StrCmp(@qInstallPath6,"") != 0)
      @WritelnInstallSys("@lInstallPath@l6@!=@qInstallPath6")
   @EndIf
   @If (@StrCmp(@qInstallPath7,"") != 0)
      @WritelnInstallSys("@lInstallPath@l7@!=@qInstallPath7")
   @EndIf
   @If (@StrCmp(@qInstallPath8,"") != 0)
      @WritelnInstallSys("@lInstallPath@l8@!=@qInstallPath8")
   @EndIf
   @If (@StrCmp(@qInstallPath9,"") != 0)
      @WritelnInstallSys("@lInstallPath@l9@!=@qInstallPath9")
   @EndIf
   @If (@StrCmp(@qInstallPath10,"") != 0)
      @WritelnInstallSys("@lInstallPath@l10@!=@qInstallPath10")
   @EndIf

   @Return(@iNext)
@EndFunc
//
//
//
//File: Err_Exit /////////////////////////////////////
//
//CIDVars: NONE (iResponseFile)
//
//Globals changed: NONE (install return code)
//
@DefineProto
   @Void @ErrorExit(@In @QString @qErrorMsg, @In @Integer @iErrorCode)
@EndProto
//
//

//----------------------------------------------------
@DefineFunc @Void @ErrorExit(@In @QString @qErrorMsg, @In @Integer @iErrorCode)

   @If (!@iResponseFile||@ShowAllToggle)
//      @Display "@qErrorText1 @qErrorMsg @Eval(@iErrorCode)"  @pause @enddisplay
      @MsgBox("@qErrorText1@qcrlf @qErrorMsg@qcrlf @Eval(@iErrorCode)")
   @EndIf

   @ShowAll("ErrorExit","Need to ensure ErrorCode != 0 ")
   //@If (@iErrorCode==0)
   //   @iErrorCode=5000
   //@EndIf

   @If ((!@IsNull(@qErrFile)) && (!@IsNull(@qTempPath)))
      @Write("@qTempPath\\@qErrFile","wt","@qErrorMsg @iErrorCode\n")
   @Endif

   @CleanTemp()
//   @EraseBMP(3)
//   @EraseBMP(2)
//   @EraseBMP(1)
//   @EraseBMP(0)

   @If (@Platform == @OS2)
      @Abort
   @EndIf
   @Exit
   @return()
@EndFunc

//
//
//
//File: Cancel /////////////////////////////////////
//
//CIDVars: NONE (iResponseFile)
//
//Globals changed: NONE
//
@DefineProto
   @Void @ConfirmCancel(@Void)
@EndProto
//
//

//----------------------------------------------------
@DefineFunc @Void @ConfirmCancel(@Void)

   @If (@iResponseFile==@TRUE)
      @ErrorExit("User Cancel",5000)
   @EndIf

   @iFuncRes = @Dialog1s2p(@qCancelTitle, @qCancelText1, @qYes, @qNo )
   @If (@iFuncRes == 1)
      //@ErrorExit(@qCancelText2,5000)
      @Exit
   @Endif

   @Return()
@EndFunc
//
//
//
//File: SetTemp /////////////////////////////////////
//
//CIDVars: none
//
//Globals changed: @qTempPath
//
@DefineProto
   @Void @SetTemp(@Void)
   @Void @CleanTemp(@Void)
   @Void @TempDelete(@IN @QString @qFileName)
   @Integer @IsDirectory(@IN @QString @qDirName)
@EndProto
//
//

//----------------------------------------------------------
@DefineFunc @Void @SetTemp(@Void)
   @qTempPath = @GetEnv("TEMP")
   @iTMP1 = 1
   @If(@StrLen(@qTempPath) == 0)
      @qTempPath = @GetEnv("TMP")
      @iTMP1 = 2
   @EndIf
   @If(@StrLen(@qTempPath) == 0)
      @ErrorExit(@qSetTempError, @iAbort)
   @EndIf

   @If (!@Exists(@qTempPath))
      @If (@iTMP1 == 1)
         @ErrorExit(@qSetTempError2_1,@iAbort)
      @Else
         @ErrorExit(@qSetTempError2_2,@iAbort)
      @EndIf
   @EndIf

   //@If (!@IsDirectory(@qTempPath))
   //   @If (@iTMP1 == 1)
   //      @ErrorExit(@qSettempError3_1,@iAbort)
   //   @Else
   //      @ErrorExit(@qSettempError3_2,@iAbort)
   //   @EndIf
   //@EndIf

   @If (@Exists("@qTempPath\\@qTempTextFile"))
      //fileattr doesn't work, so try deleting it.
      @Delete("@qTempPath\\@qTempTextFile")
      //  @DeleteTree("@qTempPath\\@qTempTextFile", 99999, "--DANGER--")
      //2 bugs: fileattr doesn't work, and after using deletetree, you can't
      //rmdir a directory
      @If (@Exists("@qTempPath\\@qTempTextFile")
          @Delete("@qTempPath\\@qTempTextFile\\*")
          @RmDir("@qTempPath\\@qTempTextFile")
      @EndIf
      @If (@Exists("@qTempPath\\@qTempTextFile"))
         @If (@iTMP1 == 1)
            @ErrorExit(@qSetTempError4_1,@iAbort)
         @Else
            @ErrorExit(@qSetTempError4_2,@iAbort)
         @EndIf
      @EndIf
   @Else
      @Write("@qTempPath\\@qTempTextFile", "wt", "")
      @If (!@Exists("@qTempPath\\@qTempTextFile"))
         @If (@iTMP1 == 1)
            @ErrorExit(@qSetTempError5_1,@iAbort)
         @Else
            @ErrorExit(@qSetTempError5_2,@iAbort)
         @EndIf
      @EndIf
      @Delete("@qTempPath\\@qTempTextFile")
      @If (@Exists("@qTempPath\\@qTempTextFile"))
         @If (@iTMP1 == 1)
            @ErrorExit(@qSetTempError4_1,@iAbort)
         @Else
            @ErrorExit(@qSetTempError4_2,@iAbort)
         @EndIf
      @EndIf
   @EndIf



   @Return()
@EndFunc

//----------------------------------------------------------
@DefineFunc @Void @CleanTemp(@Void)
   @If(@StrCmp(@qTempPath, "") != 0)
      @TempDelete("install.ini")
      @TempDelete("install.dat")
      @TempDelete("disk.id")
      @TempDelete("*._T_")
      @TempDelete("@DataRED")
      @qTempPath = ""
   @EndIf
   @Return()
@EndFunc

//----------------------------------------------------
@DefineFunc @Void @TempDelete(@IN @QString @qFileName)
   @If(@Exists("@qTempPath\\@qFileName"))
      @Delete ("@qTempPath\\@qFileName")
   @endif
   @return()
@EndFunc

//----------------------------------------------------
@DefineFunc @Integer @IsDirectory(@IN @QString @qDirName)
   @Return(@FileAttr("@qDirname") & 0x10)
@EndFunc
//
//
//
//File: Debug ///////////////////////////////////////
//
//CIDVars: TBD
//
//Globals changed: none
//
@DefineProto
    //ShowAll
   @Void @ShowAll(@In @QString @ProcName, @In @QString @Comment)
@EndProto
//
//

//----------------------------------------------------------
@DefineFunc @Void @ShowAll(@In @QString @ProcName, @In @QString @Comment)
   @If(@ShowAllToggle)
      @MsgBox("@ProcName: @Comment")
   @EndIf
   @Return()
@EndFunc
//
//
//
//File: readresp.dat ////////////////////////////////
//
//CIDVars: All (See below)
//
//Globals changed: @qResponseFilename
//
@DefineProto
   @Void @DoResponse(@In @QString @Filename)
   @Void @StringResponse(@In @QString @InValue, @InOut @QString @OutValue)
   @Void @IntegerResponse(@In @QString @InValue, @InOut @Integer @OutValue)
@EndProto
//
//

//----------------------------------------------------------
@DefineFunc @Void @StringResponse(@In @QString @InValue, @InOut @QString @OutValue)
   @If(@StrLen(@qResponseFilename) == 0)
      @ErrorExit(@qDoResponseError2, @iAbort)
   @Else //Do nothing otherwise
   @EndIf

   @qTempStr2 = @GetINI(@qSectionResponseFile, @InValue, @qResponseFilename)
   @If(@StrLen(@qTempStr2) > 0)
      @OutValue = @qTempStr2
   @Else //Do nothing for a null string
   @EndIf
   @Return()
@EndFunc

//----------------------------------------------------------
@DefineFunc @Void @IntegerResponse(@In @QString @InValue, @InOut @Integer @OutValue)
   @StringResponse(@InValue, @qTempStr3)
   @If(@StrLen(@qTempStr2) > 0)
      @OutValue = @StrToInt(@qTempStr3)
      @If(@OutValue < 0)
         @ErrorExit("@qDoResponseError3: Input = @InValue", @iAbort)
      @Else //Do nothing otherwise
      @EndIf
   @Else //Do nothing for a null value
   @EndIf
   @Return()
@EndFunc

//----------------------------------------------------------
@DefineFunc @Void @DoResponse(@In @QString @Filename)
   //Set the filename to get information from
   @If(@StrLen(@Filename) != 0)
      @qResponseFilename = @Filename
   @Else
      @ErrorExit(@qDoResponseError1, @iAbort)
   @EndIf

   @If(!@Exists(@Filename))
      @ErrorExit("@qDoResponseError4@Filename", @iAbort)
   @EndIf

   @StringResponse ( "OverwriteAutoexec",          @qOverwriteAutoexec   )
   @StringResponse ( "OverwriteConfig",            @qOverwriteConfig     )
   @StringResponse ( "OverwriteProduct",           @qOverwriteProduct    )
   @StringResponse ( "Reboot",                     @qReboot              )

   //Get Path settings
   @StringResponse ( "Path1",                      @qInstallPath1        )
   @StringResponse ( "Path2",                      @qInstallPath2        )
   @StringResponse ( "Path3",                      @qInstallPath3        )
   @StringResponse ( "Path4",                      @qInstallPath4        )
   @StringResponse ( "Path5",                      @qInstallPath5        )
   @StringResponse ( "Path6",                      @qInstallPath6        )
   @StringResponse ( "Path7",                      @qInstallPath7        )
   @StringResponse ( "Path8",                      @qInstallPath8        )
   @StringResponse ( "Path9",                      @qInstallPath9        )
   @StringResponse ( "Path10",                     @qInstallPath10       )

   //Read Install type and Custom Settings
   @StringResponse ( "Custom",                     @qCustomSelections    )
   @IntegerResponse( "InstallType",                @iInstallType         )

   //Force stuff
   @StringResponse ( "ForceInstallType",           @qForceGetInstallType )
   @StringResponse ( "ForceInstallPath",           @qForceGetInstallPath )
   @StringResponse ( "ForceWelcome",               @qForceWelcome        )

   @Return()
@EndFunc
//
//
//
//File: License /////////////////////////////////////
//
//CIDVars: none
//
//Globals changed: none
//
@DefineProto
   @Integer @DisplayLicense(@Void)
   @QString @ReadLicense(@In @QString @Filename)
@EndProto
//
//

//----------------------------------------------------------
@DefineFunc @Integer @DisplayLicense(@Void)

  @If (!@iBypassLicense)
   @If (!@CIDBypass(@qForceLicense))
      @qLicenseAgreement = @ReadLicense(@qLicenseFile)

laDisplayLicense:
      @If(!@IsNULL(@qLicenseAgreement))
         @iDialogRes = @DialogReadOnly(@qLicenseTitle,@qLicenseText1, @qLicenseText2,
                                       @qLicenseAgreement, @qBack,
                                       @qAccept,@qDoNotAccept, "", "")

         @If (@iDialogRes == 1)
            @iDialogRes = @iBack
         @ElseIf (@iDialogRes == 2)
            @iDialogRes = @iNext
         @ElseIf (@iDialogRes == 3)
            @ConfirmCancel()
            @Goto laDisplayLicense
         @Else
            @ErrorExit(@qLicenseDialogError,@iAbort)
         @EndIf
      @Else
         @iDialogRes = @iFuncRes
      @EndIf
   @Else
      @iDialogRes = @iNext
   @EndIf
  @EndIf //@iBypasslicense
   @Return(@iDialogRes)
@EndFunc

//----------------------------------------------------------
@DefineFunc @QString @ReadLicense(@In @QString @Filename)
   @If(@Exists(@Filename))
      @qTempStr2 = ""
      @TempInt = @ReadLine(@Filename, @TempStr,, 0)

laReadLicense:
      @If(@TempInt != -1)
         @If(@StrLen("@qTempStr2@TempStr") < 5000)
            @qTempStr2 = "@qTempStr2@TempStr@qCRLF"
            @TempInt = @ReadLine(@Filename, @TempStr,,)
            @Goto laReadLicense
         @EndIf
      @EndIf
      @qRetVal = @qTempStr2
   @Else
      @qRetVal = ""
   @EndIf

   @Return(@qRetVal)
@EndFunc
//
//
//
//File: Icon //////////////////////////////////////////////////
//
//CIDVars: NONE
//
//Globals changed: NONE
//
@DefineProto
   @Void @DoIcon(@In @QString @filename)
   @Integer @GetNextIconItem(@In @QString @filename, @Out @QString @qTitle,
                 @Out @QString @qFolder,
                 @Out @QString @qType, @Out @QString @qExePath,
                 @Out @QString @qIconPath, @Out @QString @qIconNumber,
                 @Out @QString @qParameters, @Out @QString @qWorkingDir,
                 @Out @QString @qOS2ObjectID, @Out @QString @qOS2ProgType,
                 @Out @QString @qOption1, @Out @QString @qOption2,
                 @Out @QString @qItemFeature)

   @Void @WriteIconItemInstallSys(@In @QString @qTitle,
            @In @QString @qFolder,@In @QString @qType,@In @QString @qExePath,
            @In @QString @qIconPath,@In @QString @qIconNumber,
            @In @QString @qParameters,@In @QString @qWorkingDir,
            @In @QString @qOS2ObjectID,@In @QString @qOS2ProgType,
            @In @QString @qOption1,@In @QString @qOption2,
            @In @QString @qItemFeature)

@EndProto

//-------------------------------------------------------------------------

@DefineFunc @Void @DoIcon(@In @QString @filename)

   @If (!@Exists(@filename))
      @ErrorExit(@qIconErrorFileNotExist,@iAbort)
   @EndIf

   @AddSectionInstallSys(@lIcon)

   //Delete REXX icon construction file
   @If (@Platform == @OS2)
      @If (@Exists("@qTempPath\\@qREXXScriptFile"))
         @FileAttr("@qTempPath\\@qREXXScriptFile","r-")
         @Delete("@qTempPath\\@qREXXScriptFile")
      @EndIf
   @EndIf

   //Make sure icon section found
   @If (@CueSection(@filename, @lIcon) != @iEOF)

DoIconTop:
      @iReturnVal = @GetNextIconItem(@filename, @qTitle,@qFolder,@qType,
                    @qExePath,@qIconPath,
                    @qIconNumber,@qParameters,@qWorkingDir,@qOS2ObjectID,
                    @qOS2ProgType,@qOption1,@qOption2,@qItemFeature)

      @If ((@iReturnVal == @iSuccess) || (@iReturnVal == @iSuccessSectionDone))
         // Only create if the feature it was in was set
         @If (@IsNull(@qItemFeature) ||
              (@StrFind(@qCustomFeatures,@qItemFeature) >= 0))
            @CreateDeskTopItem(@qTitle,@qFolder,@qType,@qExePath,@qIconPath,
                       @qIconNumber,@qParameters,@qWorkingDir,@qOS2ObjectID,
                       @qOS2ProgType,@qOption1,@qOption2)
         @EndIf
         @WriteIconItemInstallSys(@qTitle,@qFolder,@qType,@qExePath,@qIconPath,
                    @qIconNumber,@qParameters,@qWorkingDir,@qOS2ObjectID,
                    @qOS2ProgType,@qOption1,@qOption2,@qItemFeature)

      @EndIf
      @If ((@iReturnVal == @iSuccess) || (@iReturnVal == @iNoItem))
         @Goto DoIconTop
      @Else        //Section done
      @EndIf
   @Else           //Icon section not found
   @EndIf

   //Run Rexx icon construction file
   @If (@Platform == @OS2)
      @If (@Exists("@qTempPath\\@qREXXScriptFile"))
         @Write("@qTempPath\\@qREXXScriptFile", "at", "EXIT\n")
//         @qTMP5 = @getenv("COMSPEC")
         @OS2Exec("@qTempPath\\@qREXXScriptFile","","",0,0," ","",0,0,0,0,0,0)
      @EndIf
   @EndIf

   @Return()
@EndFunc


//-------------------------------------------------------------

@DefineFunc @Integer @GetNextIconItem(@In @QString @filename,
                 @Out @QString @qTitle, @Out @QString @qFolder,
                 @Out @QString @qType, @Out @QString @qExePath,
                 @Out @QString @qIconPath, @Out @QString @qIconNumber,
                 @Out @QString @qParameters, @Out @QString @qWorkingDir,
                 @Out @QString @qOS2ObjectID, @Out @QString @qOS2ProgType,
                 @Out @QString @qOption1, @Out @QString @qOption2,
                 @Out @QString @qItemFeature)

   //This function is called after CueSection, and so the filename is left
   //out of the calls to ReadLine

   @iDoLoop     = @True
   @iSectionDone = @False

   @qTitle       = ""
   @qFolder      = ""
   @qType        = ""
   @qExePath     = ""
   @qIconPath    = ""
   @qIconNumber  = ""
   @qParameters  = ""
   @qWorkingDir  = ""
   @qOS2ObjectID = ""
   @qOS2ProgType = ""
   @qOption1     = ""
   @qOption2     = ""
   @qItemFeature = ""

GetNextIconItemTop:
   @If (@iDoLoop == @False)
      @Goto GetNextIconItemEnd

   //Check if Not (EOF and empty line)
   @ElseIf (!((@ReadInfo(@filename, @qReadStr,@false,0) == -1) && (@StrCmp(@qReadStr,"") == 0)))

      @Parse2(@qReadStr,"=",@qToken1,@qToken2)

      @If (@StrIndex(@qToken1,0) != @bBeginSection)
         @If (@StrCmp(@qToken1,"") != 0)
            @If (@StrCmp(@qToken1,@lTitle) == 0)
               @If (@StrCmp(@qTitle,"") == 0)
                  @qTitle = @qToken2
               @Else
                  @ErrorExit(@qIconErrorDuplicateTitle,@iAbort)
               @Endif
            @ElseIf (@StrCmp(@qToken1,@lFolder) == 0)
               @If (@StrCmp(@qFolder,"") == 0)
                  @qFolder = @qToken2
               @Else
                  @ErrorExit(@qIconErrorDuplicateFolder,@iAbort)
               @Endif
            @ElseIf (@StrCmp(@qToken1,@lType) == 0)
               @If (@StrCmp(@qType,"") == 0)
                  @qType = @qToken2
               @Else
                  @ErrorExit(@qIconErrorDuplicateType,@iAbort)
               @Endif
            @ElseIf (@StrCmp(@qToken1,@lExePath) == 0)
               @If (@StrCmp(@qExePath,"") == 0)
                  @qExePath = @qToken2
               @Else
                  @ErrorExit(@qIconErrorDuplicateExePath,@iAbort)
               @Endif
            @ElseIf (@StrCmp(@qToken1,@lIconPath) == 0)
               @If (@StrCmp(@qIconPath,"") == 0)
                  @qIconPath = @qToken2
               @Else
                  @ErrorExit(@qIconErrorDuplicateIconPath,@iAbort)
               @Endif
            @ElseIf (@StrCmp(@qToken1,@lIconNumber) == 0)
               @If (@StrCmp(@qIconNumber,"") == 0)
                  @qIconNumber = @qToken2
               @Else
                  @ErrorExit(@qIconErrorDuplicateIconNumber,@iAbort)
               @Endif
            @ElseIf (@StrCmp(@qToken1,@lParameters) == 0)
               @If (@StrCmp(@qParameters,"") == 0)
                  @qParameters = @qToken2
               @Else
                  @ErrorExit(@qIconErrorDuplicateParameters,@iAbort)
               @Endif
            @ElseIf (@StrCmp(@qToken1,@lWorkingDir) == 0)
               @If (@StrCmp(@qWorkingDir,"") == 0)
                  @qWorkingDir = @qToken2
               @Else
                  @ErrorExit(@qIconErrorDuplicateWorkingDir,@iAbort)
               @Endif
            @ElseIf (@StrCmp(@qToken1,@lOS2ObjectID) == 0)
               @If (@StrCmp(@qOS2ObjectID,"") == 0)
                  @qOS2ObjectID = @qToken2
               @Else
                  @ErrorExit(@qIconErrorDuplicateOS2ObjectID,@iAbort)
               @Endif
            @ElseIf (@StrCmp(@qToken1,@lOS2ProgType) == 0)
               @If (@StrCmp(@qOS2ProgType,"") == 0)
                  @qOS2ProgType = @qToken2
               @Else
                  @ErrorExit(@qIconErrorDuplicateOS2ProgType,@iAbort)
               @Endif
            @ElseIf (@StrCmp(@qToken1,@lOption1) == 0)
               @If (@StrCmp(@qOption1,"") == 0)
                  @qOption1 = @qToken2
               @Else
                  @ErrorExit(@qIconErrorDuplicateOption1,@iAbort)
               @Endif
            @ElseIf (@StrCmp(@qToken1,@lOption2) == 0)
               @If (@StrCmp(@qOption2,"") == 0)
                  @qOption2 = @qToken2
               @Else
                  @ErrorExit(@qIconErrorDuplicateOption2,@iAbort)
               @Endif
            @ElseIf (@StrCmp(@qToken1,@lFeature) == 0)
               @If (@StrCmp(@qItemFeature,"") == 0)
                  @qItemFeature = @qToken2
               @Else
                  @ErrorExit(@qIconErrorDuplicateFeature,@iAbort)
               @Endif
            @Else   //token 1 not identified as a valid keyword
               @ErrorExit(@qIconErrorUnknownKeyword,@iAbort)
            @EndIf
         @Else      //empty line reached
            @iDoLoop = @False
         @EndIf
      @Else         //new section reached
         @iSectionDone = @True
         @iDoLoop = @False
      @EndIf
   @Else            //EOF reached and line is empty
      @iSectionDone = @True
      @iDoLoop = @False
   @EndIf

   @Goto GetNextIconItemTop

GetNextIconItemEnd:
   //Check if all neededvalues were set - option1 and option2 are optional
   @If ((@StrCmp(@qTitle,"") != 0) && (@StrCmp(@qFolder,"") != 0) &&
        (@StrCmp(@qType,"") != 0) && (@StrCmp(@qExePath,"") != 0) &&
        (@StrCmp(@qIconPath,"") != 0) && (@StrCmp(@qIconNumber,"") != 0) &&
        (@StrCmp(@qParameters,"") != 0) && (@StrCmp(@qWorkingDir,"") != 0) &&
        (@StrCmp(@qOS2ObjectID,"") != 0) && (@StrCmp(@qOS2ProgType,"") != 0))
      @If (@iSectionDone == @True)
         @iReturnVal = @iSuccessSectionDone
      @Else
         @iReturnVal = @iSuccess
      @EndIf
   //Check if no values were set
   @ElseIf ((@StrCmp(@qTitle,"") == 0) && (@StrCmp(@qFolder,"") == 0) &&
        (@StrCmp(@qType,"") == 0) && (@StrCmp(@qExePath,"") == 0) &&
        (@StrCmp(@qIconPath,"") == 0) && (@StrCmp(@qIconNumber,"") == 0) &&
        (@StrCmp(@qParameters,"") == 0) && (@StrCmp(@qWorkingDir,"") == 0) &&
        (@StrCmp(@qOS2ObjectID,"") == 0) && (@StrCmp(@qOS2ProgType,"") == 0) &&
        (@StrCmp(@qOption1,"") == 0) && (@StrCmp(@qOption2,"") == 0) &&
        (@StrCmp(@qItemFeature,"") == 0))

      @If (@iSectionDone == @True)
         @iReturnVal = @iNoItemSectionDone
      @Else
         @iReturnVal = @iNoItem
      @EndIf

   @Else
      @ErrorExit(@qIconErrorIncompleteItem,@iAbort)
   @EndIf

   @Return(@iReturnVal)
@EndFunc

//-----------------------------------------------------------------------
@DefineFunc @Void @WriteIconItemInstallSys(@In @QString @qTitle,
            @In @QString @qFolder,@In @QString @qType,@In @QString @qExePath,
            @In @QString @qIconPath,@In @QString @qIconNumber,
            @In @QString @qParameters,@In @QString @qWorkingDir,
            @In @QString @qOS2ObjectID,@In @QString @qOS2ProgType,
            @In @QString @qOption1,@In @QString @qOption2,
            @In @QString @qItemFeature)

   @WritelnInstallSys("@lTitle=@qTitle")
   @WritelnInstallSys("@lFolder=@qFolder")
   @WritelnInstallSys("@lType=@qType")
   @WritelnInstallSys("@lExePath=@qExePath")
   @WritelnInstallSys("@lIconPath=@qIconPath")
   @WritelnInstallSys("@lIconNumber=@qIconNumber")
   @WritelnInstallSys("@lParameters=@qParameters")
   @WritelnInstallSys("@lWorkingDir=@qWorkingDir")
   @WritelnInstallSys("@lOS2ObjectID=@qOS2ObjectID")
   @WritelnInstallSys("@lOS2ProgType=@qOS2ProgType")

   @If (@StrCmp(@qOption1,"") != 0)
      @WritelnInstallSys("@lOption1=@qOption1")
   @EndIf
   @If (@StrCmp(@qOption2,"") != 0)
      @WritelnInstallSys("@lOption2=@qOption2")
   @EndIf
   @If (@StrCmp(@qItemFeature,"") != 0)
      @WritelnInstallSys("@lFeature=@qItemFeature")
   @EndIf

   @AddNewlineInstallSys()

   @Return()
@EndFunc
//
//
//
//File: Envvar //////////////////////////////////////////////////
//
//CIDVars: NONE
//
//Globals changed: NONE
//
@DefineProto
   @Void @DoEnvVars(@In @QString @filename)
   @Integer @GetNextEnvVarsItem(@In @QString @filename, @Out @QString @qName,
                 @Out @QString @qValue, @Out @QString @qMethod,
                 @Out @QString @qOldValue,@Out @QString @qItemFeature)
   @Void @WriteEnvVarsItemInstallSys(@In @QString @qName,
            @In @QString @qValue, @In @QString @qMethod,
            @In @QString @qOldValue,@In @QString @qItemFeature)

@EndProto

//-------------------------------------------------------------------------

@DefineFunc @Void @DoEnvVars(@In @QString @filename)

   @If (!(@Exists(@filename)))
      @ErrorExit(@qEnvVarsErrorFileNotExist,@iAbort)
   @EndIf

   @AddSectionInstallSys(@lEnvironmentVars)

   //Make sure environment section found
   @If (@CueSection(@filename, @lEnvironmentVars) != @iEOF)

DoEnvVarsTop:
      @iReturnVal = @GetNextEnvVarsItem(@filename, @qName,@qValue,@qMethod,@qOldValue,@qItemFeature)

      @If ((@iReturnVal == @iSuccess) || (@iReturnVal == @iSuccessSectionDone))
         // Only create it if the feature it's in was set
         @If (@IsNull(@qItemFeature) ||
              (@StrFind(@qCustomFeatures,@qItemFeature) >= 0))
            @CreateNextEnvVarsItem(@qName,@qValue,@qMethod,@qOldValue)
         @EndIf
         @WriteEnvVarsItemInstallSys(@qName,@qValue,@qMethod,@qOldValue,
                                     @qItemFeature)
      @EndIf

      @If ((@iReturnVal == @iSuccess) || (@iReturnVal == @iNoItem))
         @Goto DoEnvVarsTop
      @Else      //Section done
      @EndIf
   @Else         //Environment variables section not found
   @EndIf

   @Return()
@EndFunc


//-------------------------------------------------------------

@DefineFunc @Integer @GetNextEnvVarsItem(@In @QString @filename,
            @Out @QString @qName, @Out @QString @qValue,
            @Out @QString @qMethod, @Out @QString @qOldValue,
            @Out @QString @qItemFeature)


   @iDoLoop     = @True
   @iSectionDone = @False

   @qName       = ""
   @qValue      = ""
   @qMethod     = ""
   @qOldValue   = ""
   @qItemFeature= ""

GetNextEnvVarsItemTop:
   @If (@iDoLoop == @False)
      @Goto GetNextEnvVarsItemEnd

   //Check if Not (EOF and empty line)
   @ElseIf (!((@Readinfo(@filename, @qReadStr,@false,0) == -1) && (@StrCmp(@qReadStr,"") == 0)))

      @Parse2(@qReadStr,"=",@qToken1,@qToken2)

      @If (@StrIndex(@qToken1,0) != @bBeginSection)
         @If (@StrCmp(@qToken1,"") != 0)
            @If (@StrCmp(@qToken1,@lName) == 0)
               @If (@StrCmp(@qName,"") == 0)
                  @qName = @qToken2
               @Else
                  @ErrorExit(@qEnvVarsErrorDuplicateName,@iAbort)
               @Endif
            @ElseIf (@StrCmp(@qToken1,@lValue) == 0)
               @If (@StrCmp(@qValue,"") == 0)
                  @qValue = @qToken2
               @Else
                  @ErrorExit(@qEnvVarsErrorDuplicateValue,@iAbort)
               @Endif
            @ElseIf (@StrCmp(@qToken1,@lMethod) == 0)
               @If (@StrCmp(@qMethod,"") == 0)
                  @qMethod = @qToken2
               @Else
                  @ErrorExit(@qEnvVarsErrorDuplicateMethod,@iAbort)
               @Endif
            @ElseIf (@StrCmp(@qToken1,@lOldValue) == 0)
               @If (@StrCmp(@qOldValue,"") == 0)
                  @qOldValue = @qToken2
               @Else
                  @ErrorExit(@qEnvVarsErrorDuplicateOldValue,@iAbort)
               @Endif
            @ElseIf (@StrCmp(@qToken1,@lFeature) == 0)
               @If (@StrCmp(@qItemFeature,"") == 0)
                  @qItemFeature = @qToken2
               @Else
                  @ErrorExit(@qEnvVarsErrorDuplicateFeature,@iAbort)
               @Endif
            @Else   //token 1 not identified as a valid keyword
               @ErrorExit(@qEnvVarsErrorUnknownKeyword,@iAbort)
            @EndIf
         @Else      //empty line reached
            @iDoLoop = @False
         @EndIf
      @Else         //new section reached
         @iSectionDone = @True
         @iDoLoop = @False
      @EndIf
   @Else            //EOF reached and line is empty
      @iSectionDone = @True
      @iDoLoop = @False
   @EndIf

   @Goto GetNextEnvVarsItemTop

GetNextEnvVarsItemEnd:
   //Check if all needed values were set - method (oldvalue) is not required
   @If ((@StrCmp(@qName,"") != 0) && (@StrCmp(@qValue,"") != 0))

      @If (@iSectionDone == @True)
         @iReturnVal = @iSuccessSectionDone
      @Else
         @iReturnVal = @iSuccess
      @EndIf
   //Check if no values were set
   @ElseIf ((@StrCmp(@qName,"") == 0) && (@StrCmp(@qValue,"") == 0) &&
        (@StrCmp(@qMethod,"") == 0) && (@StrCmp(@qOldValue,"") == 0) &&
        (@StrCmp(@qItemFeature,"") == 0))

      @If (@iSectionDone == @True)
         @iReturnVal = @iNoItemSectionDone
      @Else
         @iReturnVal = @iNoItem
      @EndIf

   @Else
      @ErrorExit(@qEnvVarsErrorIncompleteItem,@iAbort)
   @EndIf

   @Return(@iReturnVal)
@EndFunc

//-------------------------------------------------------------
@DefineFunc @Void @WriteEnvVarsItemInstallSys(@In @QString @qName,
            @In @QString @qValue, @In @QString @qMethod, @In @QString @qOldValue,
            @In @QString @qItemFeature)
   @WritelnInstallSys("@lName=@qName")
   @WritelnInstallSys("@lValue=@qValue")

   //Method is an optional parameter - don't write it if it wasn't in install.ini
   @If (@StrCmp(@qMethod,"") != 0)
      @WritelnInstallSys("@lMethod=@qMethod")
      //If the method was overwrite, store the old value
      @If (@StrCmp(@qMethod, @qSetEnvReplaceVar) == 0)
         @WritelnInstallSys("@lOldValue=@qOldValue")
      @EndIf
   @EndIf
   @If (@StrCmp(@qItemFeature,"") != 0)
      @WritelnInstallSys("@lFeature=@qItemFeature")
   @EndIf
   @AddNewlineInstallSys()

   @Return()
@EndFunc
//
//
//
//File: Prodvar //////////////////////////////////////////////////
//
//CIDVars: NONE
//
//Globals changed: NONE
//
@DefineProto
   @Void @DoProdVars(@In @QString @filename)
   @Integer @GetNextProdVarsItem(@In @QString @filename, @Out @QString @qName,
                 @Out @QString @qValue, @Out @QString @qDataType,
                 @Out @QString @qComponent,
                 @Out @QString @qMethod, @Out @QString @qItemFeature)
   @Void @WriteProdVarsItemInstallSys(@In @QString @qName,
            @In @QString @qValue, @In @QString @qDataType,
            @In @QString @qComponent,
            @In @QString @qMethod, @In @QString @qItemFeature)

@EndProto

//-------------------------------------------------------------------------

@DefineFunc @Void @DoProdVars(@In @QString @filename)

   @If (!(@Exists(@filename)))
      @ErrorExit(@qProdVarsErrorFileNotExist,@iAbort)
   @EndIf

   @AddSectionInstallSys(@lProductVars)

   //Make sure Product vars section found
   @If (@CueSection(@filename, @lProductVars) != @iEOF)

DoProdVarsTop:
      @iReturnVal = @GetNextProdVarsItem(@filename, @qName, @qValue,
                    @qDataType, @qComponent, @qMethod, @qItemFeature)

      @If ((@iReturnVal == @iSuccess) || (@iReturnVal == @iSuccessSectionDone))
         // Only create if the feature it was in was set
         @If (@IsNull(@qItemFeature) ||
              (@StrFind(@qCustomFeatures,@qItemFeature) >= 0))
            @CreateNextProdVarsItem(@qName,@qValue, @qDataType,
                                    @qComponent,@qMethod)
         @EndIf
         @WriteProdVarsItemInstallSys(@qName,@qValue,@qDataType,
                                 @qComponent,@qMethod,@qItemFeature)
      @EndIf

      @If ((@iReturnVal == @iSuccess) || (@iReturnVal == @iNoItem))
         @Goto DoProdVarsTop
      @Else      //Section done
      @EndIf
   @Else         //Product variables section not found
   @EndIf

   @Return()
@EndFunc


//-------------------------------------------------------------

@DefineFunc @Integer @GetNextProdVarsItem(@In @QString @filename,
            @Out @QString @qName, @Out @QString @qValue,
            @Out @QString @qDataType,
            @Out @QString @qComponent, @Out @QString @qMethod,
            @Out @QString @qItemFeature)


   @iDoLoop     = @True
   @iSectionDone = @False

   @qName       = ""
   @qValue      = ""
   @qDataType   = ""
   @qComponent  = ""
   @qMethod     = ""
   @qItemFeature= ""

GetNextProdVarsItemTop:
   @If (@iDoLoop == @False)
      @Goto GetNextProdVarsItemEnd

   //Check if Not (EOF and empty line)
   @ElseIf (!((@Readinfo(@filename, @qReadStr,@false,0) == -1) && (@StrCmp(@qReadStr,"") == 0)))

      @Parse2(@qReadStr,"=",@qToken1,@qToken2)

      @If (@StrIndex(@qToken1,0) != @bBeginSection)
         @If (@StrCmp(@qToken1,"") != 0)
            @If (@StrCmp(@qToken1,@lName) == 0)
               @If (@StrCmp(@qName,"") == 0)
                  @qName = @qToken2
               @Else
                  @ErrorExit(@qProdVarsErrorDuplicateName,@iAbort)
               @Endif
            @ElseIf (@StrCmp(@qToken1,@lValue) == 0)
               @If (@StrCmp(@qValue,"") == 0)
                  @qValue = @qToken2
               @Else
                  @ErrorExit(@qProdVarsErrorDuplicateValue,@iAbort)
               @Endif
            @ElseIf (@StrCmp(@qToken1,@lDataType) == 0)
               @If (@StrCmp(@qDataType,"") == 0)
                  @qDataType = @qToken2
               @Else
                  @ErrorExit(@qProdVarsErrorDuplicateDataType,@iAbort)
               @Endif
            @ElseIf (@StrCmp(@qToken1,@lComponent) == 0)
               @If (@StrCmp(@qComponent,"") == 0)
                  @qComponent = @qToken2
               @Else
                  @ErrorExit(@qProdVarsErrorDuplicateComponent,@iAbort)
               @Endif
            @ElseIf (@StrCmp(@qToken1,@lMethod) == 0)
               @If (@StrCmp(@qMethod,"") == 0)
                  @qMethod = @qToken2
               @Else
                  @ErrorExit(@qProdVarsErrorDuplicateMethod,@iAbort)
               @Endif
            @ElseIf (@StrCmp(@qToken1,@lFeature) == 0)
               @If (@StrCmp(@qItemFeature,"") == 0)
                  @qItemFeature = @qToken2
               @Else
                  @ErrorExit(@qProdVarsErrorDuplicateFeature,@iAbort)
               @Endif
            @Else   //token 1 not identified as a valid keyword
               @ErrorExit(@qProdVarsErrorUnknownKeyword,@iAbort)
            @EndIf
         @Else      //empty line reached
            @iDoLoop = @False
         @EndIf
      @Else         //new section reached
         @iSectionDone = @True
         @iDoLoop = @False
      @EndIf
   @Else            //EOF reached and line is empty
      @iSectionDone = @True
      @iDoLoop = @False
   @EndIf

   @Goto GetNextProdVarsItemTop

GetNextProdVarsItemEnd:
   //Check if all needed values were set-method,group,datatype not required
   @If ((@StrCmp(@qName,"") != 0) && (@StrCmp(@qValue,"") != 0) &&
        (@StrCmp(@qComponent,"") != 0))

      @If (@iSectionDone == @True)
         @iReturnVal = @iSuccessSectionDone
      @Else
         @iReturnVal = @iSuccess
      @EndIf
   //Check if no values were set
   @ElseIf ((@StrCmp(@qName,"") == 0) && (@StrCmp(@qValue,"") == 0) &&
        (@StrCmp(@qDataType,"") == 0) &&
        (@StrCmp(@qComponent,"") == 0) && (@StrCmp(@qMethod,"") == 0) &&
        (@StrCmp(@qItemFeature,"") == 0))

      @If (@iSectionDone == @True)
         @iReturnVal = @iNoItemSectionDone
      @Else
         @iReturnVal = @iNoItem
      @EndIf

   @Else
      @ErrorExit(@qProdVarsErrorIncompleteItem,@iAbort)
   @EndIf

   @Return(@iReturnVal)
@EndFunc

//-------------------------------------------------------------
@DefineFunc @Void @WriteProdVarsItemInstallSys(@In @QString @qName,
            @In @QString @qValue, @In @QString @qDataType,
            @In @QString @qComponent,
            @In @QString @qMethod, @In @QString @qItemFeature)
   @WritelnInstallSys("@lName=@qName")
   @WritelnInstallSys("@lValue=@qValue")

   @If (@StrCmp(@qDataType,"") != 0)
      @WritelnInstallSys("@lDataType=@qDataType")
   @EndIf

   @WritelnInstallSys("@lComponent=@qComponent")


   //Method is an optional parameter - don't write it if it wasn't in install.ini
   @If (@StrCmp(@qMethod,"") != 0)
      @WritelnInstallSys("@lMethod=@qMethod")
   @EndIf

   //Group is an optional parameter - don't write it if it wasn't in install.ini
   @If (@StrCmp(@qItemFeature,"") != 0)
      @WritelnInstallSys("@lFeature=@qItemFeature")
   @EndIf

   @AddNewlineInstallSys()

   @Return()
@EndFunc
//
//
//
//File: Uninstal /////////////////////////////////////
//
//CIDVars: TBD
//
//Globals changed: none
//
@DefineProto
   @Void @GetInstallStatus(@Void)
   @QString @GetExtInstallDirectory(@In @QString @qExtProductName,
                                    @In @QString @qExtProductVersion,
                                    @In @QString @qExtProductINIPointerApp,
                                    @In @QString @qExtProductINIPointerKey)
   @QString @GetRegValue(@In @Integer @iRegKey, @In @QString @qRegString)
   @Integer @UninstallProduct(@Void)
   @Void @RemoveDesktopItems(@Void)
   @Void @RemoveProductFiles(@Void)
   @Void @GetInstallPathInfo(@Void)
   @Void @RemoveDirTree(@In @QString @qOption, @In @QString @qInstallPath)
   @Void @HandleSharedFiles(@Void)
   @Void @RemoveEnvVars(@Void)
   @Void @RemoveEnvVarItem(@In @QString @qName, @In @QString @qValue,
                           @In @QString @qMethod, @In @QString @qOldValue)
   @Void @RemoveWin95EnvVars(@In @QString @qName, @In @QString @qValue,
                             @In @QString @qMethod, @In @QString @qOldValue)
   @Void @RemoveWinNTEnvVars(@In @QString @qName, @In @QString @qValue,
                             @In @QString @qMethod, @In @QString @qOldValue)
   @Void @RemoveOS2EnvVars(@In @QString @qName, @In @QString @qValue,
                           @In @QString @qMethod, @In @QString @qOldValue)
   @Void @RemoveProdVars(@Void)
   @Void @RemoveProdVarItem(@In @QString @qName,
            @In @QString @qValue, @In @QString @qDataType,
            @In @QString @qComponent, @In @QString @qMethod)
   @Void @RemoveRegProdInfo(@Void)
   @Void @RemoveRegUninInfo(@Void)
   @Void @DestroyWPSObject(@In @QString @ObjectID)
@EndProto
//
//
//----------------------------------------------------
@DefineFunc @Void @GetInstallStatus(@Void)

   @If (@Platform == @Windows)
      @qTMP1 = "SOFTWARE\\@qCompanyName\\@qProductName\\@qProductVersion\\@qInstallKey"
      @If (@WinRegOpenKeyEx(@HKeyLocalMachine, @qTMP1, @iRegKeyAllAccess,
                            @iKeyHandle) != 0)
         @iProductInstalled = @False
      @Else
         @qInstallPath1TMP = @GetRegValue(@iKeyHandle, @lDirectory)
         @qFolderName   = @GetRegValue(@iKeyHandle, @lFolder)
         @If(@IsNULL(@qInstallPath1TMP))
            @iProductInstalled = @False
         @Else
            @iProductInstalled = @True
            @qInstallPath1 = @qInstallPath1TMP
         @EndIf
         //On WinNT, determine where the env vars were set.
         @If(@SubPlatform == @WindowsNT && @iProductInstalled)
            @qEnvVarLoc = @GetRegValue(@iKeyHandle, @lEnvVarLoc)
            @If(@IsNULL(@qEnvVarLoc))
               @iProductInstalled = @False
            @Else
               @iProductInstalled = @True
            @EndIf
         @EndIf
      @EndIf
   @ElseIf (@Platform == @OS2)
      @qProductINI = @GetProductINIPointer()
      @If(@StrLen(@qProductINI) == 0)
         @iProductInstalled = @False
      @Else
         @If(!@Exists(@qProductINI))
            @iProductInstalled = @False
         @Else
            // Get Installation information from
            // product ini file.
            @qInstallPath1TMP = @GetOS2ProductINIString(@qInstallKey, @lDirectory)
            @qOS2ObjectID = @GetOS2ProductINIString(@qInstallKey, @lFolder)

            @If(@IsNULL(@qInstallPath1TMP))
               @iProductInstalled = @False
            @Else
               @iProductInstalled = @True
               @qInstallPath1 = @qInstallPath1TMP
            @EndIf
         @EndIf
      @EndIf
   @Else
      @ErrorExit(@qInvalidOSError, @iAbort)
   @EndIf
   @Return()

@EndFunc

//
//
//----------------------------------------------------
@DefineFunc @QString @GetExtInstallDirectory(@In @QString @qExtProductName,
                                             @In @QString @qExtProductVersion,
                                             @In @QString @qExtProductINIPointerApp,
                                             @In @QString @qExtProductINIPointerKey)

   @If (@Platform == @Windows)
      @qTMP1 = "SOFTWARE\\@qCompanyName\\@qExtProductName\\@qExtProductVersion\\@qInstallKey"
      @If (@WinRegOpenKeyEx(@HKeyLocalMachine, @qTMP1, @iRegKeyAllAccess,
                            @iKeyHandle) != 0)
         @iExtProductInstalled = @False
         @Return("")
      @Else
         @qExtInstallPath1 = @GetRegValue(@iKeyHandle, @lDirectory)
         @qExtFolderName   = @GetRegValue(@iKeyHandle, @lFolder)
         @If(@IsNULL(@qExtInstallPath1))
            @iExtProductInstalled = @False
         @Else
            @iExtProductInstalled = @True
         @EndIf
         //On WinNT, determine where the env vars were set.
         @If(@SubPlatform == @WindowsNT && @iExtProductInstalled)
            @qExtEnvVarLoc = @GetRegValue(@iKeyHandle, @lEnvVarLoc)
            @If(@IsNULL(@qExtEnvVarLoc))
               @iExtProductInstalled = @False
            @Else
               @iExtProductInstalled = @True
            @EndIf
         @EndIf
         @If (@iExtProductInstalled)
             @Return(@qExtInstallPath1)
         @Else
             @Return("")
         @Endif
      @EndIf
   @ElseIf (@Platform == @OS2)
      @qExtProductINI = @GetExtProductINIPointer(@qExtProductINIPointerApp,@qExtProductINIPointerKey)
      @If(@StrLen(@qExtProductINI) == 0)
         @iExtProductInstalled = @False
         @Return("")
      @Else
         @If(!@Exists(@qExtProductINI))
            @iExtProductInstalled = @False
            @Return("")
         @Else
// Get Installation information from
// product ini file.
            @qExtInstallPath1 = @GetOS2ExtProductINIString(@qInstallKey, @lDirectory)
            @If(!@IsNULL(@qExtInstallPath1))
               @iExtProductInstalled = @True
               @Return(@qExtInstallPath1)
            @Else
               @iExtProductInstalled = @False
               @Return("")
            @EndIf
         @EndIf
      @EndIf
   @Else
      @ErrorExit(@qInvalidOSError, @iAbort)
   @EndIf
   @Return()

@EndFunc

//----------------------------------------------------
@DefineFunc @QString @GetRegValue(@In @Integer @iRegKey, @In @QString @qRegString)

   @If (@WinRegQueryValueEx(@iRegKey, @qRegString, @iRegValueType,
                            @qTMP1, @iTMP1) != 0)
      @qTMP1 = ""
   @EndIf

   @Return(@qTMP1)

@EndFunc


//----------------------------------------------------
@DefineFunc @Integer @UninstallProduct(@Void)

   @UninstallExitPre()
   @If (!@iProductInstalled)
      @ErrorExit(@qErrorProductNotInstalled , 1)
   @EndIf

   @If ((@Platform == @Windows) && (@SubPlatform == @WindowsNT))
      @If (!@WinIsAdmin() && @StrCmp(@qEnvVarLoc, @qRegSetForAllUsers) == 0)
         @ErrorExit (@qErrorAdminOnlyUninstall, 1)
      @EndIf
   @EndIf

   @If (!@CIDBypass(@qForceUninstall))
laUninstallDlg:

      @iDialogRes = @DialogText(@qUninstallTitle,@qUninstallBitmap,
                                @iUninstallBitmapID, @qUninstallText1,
                                @qUninstallText2, "", "", "", "",
                                @qBack, @qUninstall, @qCancel, "", "")


      @If (@iDialogRes == 1)
         @Return(@iBack)
      @ElseIf (@iDialogRes == 2)
         //Uninstall button pressed. Fall through to PostProcessing.
      @ElseIf (@iDialogRes == 3)
         @ConfirmCancel()
         @Goto laUninstallDlg
      @ElseIf (@iDialogRes == 4)
         @ErrorExit(@qErrorInvalidReturn, @iAbort)
      @Else
         @ErrorExit(@qErrorInvalidReturn, @iAbort)
      @EndIf
   @EndIf
laUninstallPostProcessing:

   @DetermineInstallSysFilename()
   @SetCustomFeaturesStringFromFile(@qInstallSysFileName, @qCustomFeatures)

   @LoadBMPMsg(@qWaitMsgBMPFile4)

   @RemoveDesktopItems()
   @HandleSharedFiles()
   @RemoveEnvVars()
   // Do not need to remove Prodvars - the product reg key/ini file will
   // be deleted anyway
   // @RemoveProdVars()
   @RemoveRegProdInfo()
   @RemoveRegUninInfo()

   @EraseBMP(3)
   @RemoveProductFiles()

   @UninstallExitPost()

   @If (!@CIDBypass(@qForceUninstall))
      @iDialogRes = @DialogText(@qUninstallTitle, @qUninstallBitmap,
                                @iUninstallBitmapID,
                                "", @qUninstallText3, "", "", "", "",
                               "", @qFinish, "", "", "")
   @EndIf
   @Return(@iNext)

@EndFunc


//----------------------------------------------------
@DefineFunc @Void @RemoveDesktopItems(@Void)

//   Delete Program Folder.

   @If (@Platform == @Windows)
      @ProgramManager("[DeleteGroup(@qFolderName)]")
   @ElseIf(@Platform == @OS2)
      @DestroyWPSObject(@qOS2ObjectID)
   @Else
      @ErrorExit(@qInvalidOSError, @iAbort)
   @EndIf
   @Return()

@EndFunc


//----------------------------------------------------
@DefineFunc @Void @RemoveProductFiles(@Void)

   //Recursive delete of all directories.
   @GetInstallPathInfo()
   @RemoveDirTree(@qProduct1, @qInstallPath1)
   @RemoveDirTree(@qProduct2, @qInstallPath2)
   @RemoveDirTree(@qProduct3, @qInstallPath3)
   @RemoveDirTree(@qProduct4, @qInstallPath4)
   @RemoveDirTree(@qProduct5, @qInstallPath5)
   @RemoveDirTree(@qProduct6, @qInstallPath6)
   @RemoveDirTree(@qProduct7, @qInstallPath7)
   @RemoveDirTree(@qProduct8, @qInstallPath8)
   @RemoveDirTree(@qProduct9, @qInstallPath9)
   @RemoveDirTree(@qProduct10, @qInstallPath10)
   @Return()

@EndFunc


//----------------------------------------------------
@DefineFunc @Void @GetInstallPathInfo(@Void)

   @If (!@Exists(@qInstallSysFilename))
      @ErrorExit("@qErrorInstallSysNotFound@qInstallSysFilename", 1)
   @EndIf
   @qInstallPath1 = @GetINI(@lInstallOptions, "@lInstallPath@l1", @qInstallSysFilename)
   @qInstallPath2 = @GetINI(@lInstallOptions, "@lInstallPath@l2", @qInstallSysFilename)
   @qInstallPath3 = @GetINI(@lInstallOptions, "@lInstallPath@l3", @qInstallSysFilename)
   @qInstallPath4 = @GetINI(@lInstallOptions, "@lInstallPath@l4", @qInstallSysFilename)
   @qInstallPath5 = @GetINI(@lInstallOptions, "@lInstallPath@l5", @qInstallSysFilename)
   @qInstallPath6 = @GetINI(@lInstallOptions, "@lInstallPath@l6", @qInstallSysFilename)
   @qInstallPath7 = @GetINI(@lInstallOptions, "@lInstallPath@l7", @qInstallSysFilename)
   @qInstallPath8 = @GetINI(@lInstallOptions, "@lInstallPath@l8", @qInstallSysFilename)
   @qInstallPath9 = @GetINI(@lInstallOptions, "@lInstallPath@l9", @qInstallSysFilename)
   @qInstallPath10 = @GetINI(@lInstallOptions, "@lInstallPath@l10", @qInstallSysFilename)

   @Return()

@EndFunc


//----------------------------------------------------
@DefineFunc @Void @RemoveDirTree(@In @QString @qOption,
                                 @In @QString @qInstallPath)

   @If (!@IsNULL(@qOption) && !@IsNULL(@qInstallPath) && @Exists(@qInstallPath))
      @If (!@CIDBypass("N"))
         @iFuncRes = @Ask(@qWarningTitle, @qAskRemoveDirBitmap,
                       @iAskRemoveDirBitmapID,
                       "@qRemoveDirText1 @qInstallPath. @qRemoveDirText2@qCRLF@qCRLF@qRemoveDirText3",
                       "", "")
         @If (@iFuncRes == 1)
            @LoadBMPMsg(@qWaitMsgBMPFile5)
            @DeleteTree(@qInstallPath, 99999, "--DANGER--")
            @RmDir("@qInstallPath\\install")
            @RmDir("@qInstallPath")
            @EraseBMP(3)
         @ElseIf (@iFuncRes == 2)
            @Return()
         @Else
            @ErrorExit(@qErrorInvalidReturn)
         @EndIf
      @Else  //CID default is to delete the tree
            @LoadBMPMsg(@qWaitMsgBMPFile5)
            @DeleteTree(@qInstallPath, 99999, "--DANGER--")
            @RmDir("@qInstallPath\\install")
            @RmDir("@qInstallPath")
            @EraseBMP(3)
      @EndIf
   @EndIf
   @Return()

@EndFunc


//----------------------------------------------------
@DefineFunc @Void @HandleSharedFiles(@Void)

   //Decrement the shared file count for shared files and delete file if 0.

   //*** ISSUES ***
   //?? Location of shared files --> winsystem dir for windows? system dir for OS2?
   //?? Need to get a list of all shared files from Martin, Tony
   //?? How do we handle for OS2
   @Return()

@EndFunc


//----------------------------------------------------
@DefineFunc @Void @RemoveEnvVars(@Void)

   //Remove all Environment variables taking into account env vars set with
   //method = @qSetEnvReplaceVar (i.e. restore old value).

   @If (!@Exists(@qInstallSysFilename))
      @ErrorExit("@qErrorInstallSysNotFound@qInstallSysFilename", 1)
   @EndIf

   //Make sure environment section found
   @If (@CueSection(@qInstallSysFilename, @lEnvironmentVars) != @iEOF)

laGetEnvVar:
      @iReturnVal = @GetNextEnvVarsItem(@qInstallSysFilename, @qName, @qValue, @qMethod, @qOldValue, @qItemFeature)

      @If ((@iReturnVal == @iSuccess) || (@iReturnVal == @iSuccessSectionDone))
         //Convert oldvalue to an empty string, if it is returned as double quotes.
         @If(@StrCmp(@qOldValue, @qDoubleQuotes) == 0)
            @qOldValue = ""
         @EndIf
         @If (@IsNull(@qItemFeature) ||
              (@StrFind(@qCustomFeatures,@qItemFeature) >= 0))
            @RemoveEnvVarItem(@qName,@qValue,@qMethod,@qOldValue)
         @EndIf
      @EndIf
      @If ((@iReturnVal == @iSuccess) || (@iReturnVal == @iNoItem))
         @Goto laGetEnvVar
      @Else   //No more items to process
      @EndIf
   @Else         //Environment variables section not found
   @EndIf

   @Return()
@EndFunc


//----------------------------------------------------------
@DefineFunc @Void @RemoveEnvVarItem(@In @QString @qName,
                                    @In @QString @qValue,
                                    @In @QString @qMethod,
                                    @In @QString @qOldValue)

   @qValue = @ReplaceMagicVariable(@qValue)
   @If (@Platform == @Windows)
      @If (@SubPlatform == @Windows95)
         @If(@iMakeAutoexecBatBackup)
            @qBackupAutoexecBatFile = @CreateBackupFilename("AUTOEXEC.BAT")
            @qBackupAutoexecBatFile = "@BootDrive:\\@qBackupAutoexecBatFile"
            @Copy(@qAutoexecBatFile, @qBackupAutoexecBatFile)
            @iMakeAutoexecBatBackup = @False
         @EndIf
         @RemoveWin95EnvVars(@qName, @qValue, @qMethod, @qOldValue)
      @ElseIf (@SubPlatform == @WindowsNT)
         @RemoveWinNTEnvVars(@qName, @qValue, @qMethod, @qOldValue)
      @Else
         @ErrorExit(@qInvalidOSError, @iAbort)
      @EndIf
   @ElseIf (@Platform == @OS2)
      @If(@iMakeConfigSysBackup)
         @qBackupConfigSysFile = @CreateBackupFilename("CONFIG.SYS")
         @qBackupConfigSysFile = "@BootDrive:\\@qBackupConfigSysFile"
         @Copy(@qConfigSysFile, @qBackupConfigSysFile)
         @iMakeConfigSysBackup = @False
      @EndIf
      @RemoveOS2EnvVars(@qName, @qValue, @qMethod, @qOldValue)
   @Else
      @ErrorExit(@qInvalidOSError, @iAbort)
   @EndIf

   @Return()

@EndFunc


//----------------------------------------------------------
@DefineFunc @Void @RemoveWin95EnvVars(@In @QString @qName, @In @QString @qValue,
                                     @In @QString @qMethod, @In @QString @qOldValue)

   @ShowAll("@@RemoveWin95EnvVars()", "In the works.")
   @qTMP1 = @QueryVar(@qAutoexecBatFile, @qName)
   @If(@StrCmp(@qMethod, @qSetEnvReplaceVar) == 0)
      @qTMP1 = @qOldValue
   @Else
      @DeleteVar(@qTMP1, @qValue)
   @EndIF
   @WriteVar(@qAutoexecBatFile, @qName, @qTMP1)
   @Return()
@EndFunc


//----------------------------------------------------------
@DefineFunc @Void @RemoveWinNTEnvVars(@In @QString @qName, @In @QString @qValue,
                                      @In @QString @qMethod, @In @QString @qOldValue)

   @qTMP3 = ""
   @qTMP4 = ""

   @If(@StrCmp(@qEnvVarLoc, @qRegSetForAllUsers) == 0)
      @iSetEnvForAllUsers = @True
   @Else
      @iSetEnvForAllUsers = @False
   @EndIf

   @If (@iSetEnvForAllUsers)
      @iEnvVarKeyHandle = @HKeyLocalMachine
      @qTMP1 = "System\\CurrentControlSet\\Control\\Session Manager\\Environment"
   @Else
      @iEnvVarKeyHandle = @HKeyCurrentUser
      @qTMP1 = "Environment"
   @EndIf

   @If (@WinRegOpenKeyEx(@iEnvVarKeyHandle, @qTMP1, @iRegKeyAllAccess,
                         @iKeyHandle) != 0)
      @ErrorExit(@qRegOpenEnvVarKeyError, 1)
   @EndIf

   @If (@WinRegQueryValueEx(@iKeyHandle, @qName, @iRegValueType,
                            @qEnvVarSetting, @iTMP1) != 0)
        //Env var not set.
   @Else
      @If (@StrCmp(@qMethod, @qSetEnvReplaceVar) == 0)
         @If (@WinRegSetValueEx(@iKeyHandle, @qName, @iRegValueType,
                                @qOldValue, @StrLen(@qOldValue) + 1) != 0)
            @ErrorExit(@qRegSetValueError, 1)
         @EndIf
      @Else
         @DeleteVar(@qEnvVarSetting, @qValue)

            @If (@WinRegSetValueEx(@iKeyHandle, @qName, @iRegValueType,
                                @qEnvVarSetting, @StrLen(@qEnvVarSetting) + 1) != 0)
               @ErrorExit("@qRegSetValueError Name:@qName, Value:@qValue", 2)
            @EndIf
      @EndIf
      @If (@WinRegQueryValueEx(@iKeyHandle, @qName, @iRegValueType,
                               @qEnvVarSetting, @iTMP1) != 0)
         @ErrorExit("@qRegQueryValueError @qName.", 2)
      @Else
         @If (@StrCmp(@qEnvVarSetting, "") == 0)
            @WinRegDeleteValue(@iKeyHandle, @qName)
         @EndIf
      @EndIf
   @EndIf

   @If (@WinRegFlushKey(@iKeyHandle) != 0)
      @MsgBox(@qRegWriteEnvVarsKeyError)
   @EndIf
   @If (@WinRegCloseKey(@iKeyHandle) != 0)
      @MsgBox(@qRegCloseEnvVarsKeyError)
   @EndIf

   @Return()
@EndFunc


//----------------------------------------------------------
@DefineFunc @Void @RemoveOS2EnvVars(@In @QString @qName, @In @QString @qValue,
                                    @In @QString @qMethod, @In @QString @qOldValue)

   @ShowAll("@@RemoveOS2EnvVars()", "In the works.")
   @qTMP1 = @QueryVar(@qConfigSysFile, @qName)
   @If(@StrCmp(@qMethod, @qSetEnvReplaceVar) == 0)
      @qTMP1 = @qOldValue
   @Else
      @DeleteVar(@qTMP1, @qValue)
   @EndIf
   @WriteVar(@qConfigSysFile, @qName, @qTMP1)
   @Return()

@EndFunc


//----------------------------------------------------
@DefineFunc @Void @RemoveRegProdInfo(@Void)

   @If(@Platform == @Windows)
      //Remove all keys under "SOFTWARE\IBM\<Productname>\<ProductVersion>"
      @qTMP1= "SOFTWARE\\@qCompanyName\\@qProductName\\@qProductVersion"
      @If (@WinRegOpenKeyEx(@HKeyLocalMachine, @qTMP1, @iRegKeyAllAccess,
                            @iKeyHandle) != 0)
         @ErrorExit(@qRegOpenProdKeyError, 1)
      @EndIf
loop1:
      @If (@WinRegEnumKeyEx(@iKeyHandle, 0, @qSubKeyName, @iTMP1,
                            @qTMP3, @iTMP2, @iTMP3) == 0)
         @If (@WinRegDeleteKey(@iKeyHandle, @qSubKeyName) != 0)
            @ErrorExit("@qRegDeleteProdSubKeyError SubKey: @qSubKeyName", 1)
         @EndIf
         @Goto loop1
      @EndIf

      //Remove Product info key ("SOFTWARE\IBM\<Productname>\<ProductVersion>").
      @qTMP1 = "SOFTWARE\\@qCompanyName\\@qProductName\\@qProductVersion"
      @If (@WinRegDeleteKey(@HKeyLocalMachine, @qTMP1) != 0)
         @ErrorExit(@qRegDeleteProdVersionError, 1)
      @EndIf

      @qTMP2= "SOFTWARE\\@qCompanyName\\@qProductName"
      @iIndex = 0
      @If (@WinRegOpenKeyEx(@HKeyLocalMachine, @qTMP2, @iRegKeyAllAccess,
                            @iKeyHandle) != 0)
         @ErrorExit(@qRegOpenProdKeyError, 1)
      @EndIf
loop2:
      @If (@WinRegEnumKeyEx(@iKeyHandle, @iIndex, @qSubKeyName, @iTMP1,
                            @qTMP3, @iTMP2, @iTMP3) == 0)
         @iIndex = @Eval(@iIndex + 1)
         @Goto loop2
      @EndIf

      @If (@iIndex == 0)
         @If (@WinRegDeleteKey(@HKeyLocalMachine, @qTMP2) != 0)
            @ErrorExit(@qRegDeleteProdKeyError, 1)
         @EndIf

         @qTMP4= "SOFTWARE\\@qCompanyName"
         @iIndex = 0
         @If (@WinRegOpenKeyEx(@HKeyLocalMachine, @qTMP4, @iRegKeyAllAccess,
                               @iKeyHandle) != 0)
            @ErrorExit(@qRegOpenCompanyKeyError, 1)
         @EndIf
loop3:
         @If (@WinRegEnumKeyEx(@iKeyHandle, @iIndex, @qSubKeyName, @iTMP1,
                         @qTMP3, @iTMP2, @iTMP3) == 0)
            @iIndex = @Eval(@iIndex + 1)
            @Goto loop3
         @EndIf

         @If (@iIndex == 0)
            @If (@WinRegDeleteKey(@HKeyLocalMachine, @qTMP4) != 0)
               @ErrorExit(@qRegDeleteCompanyKeyError, 1)
            @EndIf
         @EndIf
      @EndIf

   @ElseIf(@Platform == @OS2)
//      @SetRegProdValue(@lDirectory, "\"\"")
//      @SetRegProdValue(@lFolder, "\"\"")
//     @SetRegProdValue(@lLanguage, "\"\"")
//      @SetRegProdValue(@lFixPak, "\"\"")
      @FileAttr("@qProductINI","r-")
      @Delete(@qProductINI)
      @DeleteProductINIPointer()
   @EndIf

   @Return()

@EndFunc


//----------------------------------------------------
@DefineFunc @Void @RemoveRegUninInfo(@Void)

   @If(@Platform == @Windows)
      //Remove Uninstall key.
      @qTMP1 = "SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Uninstall\\@qProductName"
      @If (@WinRegDeleteKey(@HKeyLocalMachine, @qTMP1) != 0)
         @ErrorExit(@qRegDeleteUninKeyError, 1)
      @EndIf
   @EndIf

   @Return()

@EndFunc


//----------------------------------------------------------
@DefineFunc @Void @DestroyWPSObject(@In @QString @ObjectID)
   @If(!@IsNull(@ObjectID))
      @Write("@qTempPath\\@qREXXScriptFile", "wt", "/* REXX CMD Script */\n\n")
      @Write(,,"CALL RxFuncAdd 'SysLoadFuncs', 'REXXUtil', 'SysLoadFuncs'\n")
      @Write(,,"CALL SysLoadFuncs\n\n")
      @Write(,,"name = '<@ObjectID>")
      @Write(,,"'\n")
      @Write(,,"return = SysDestroyObject(name)\n\n")
      @Write(,, "EXIT\n")
      @OS2Exec("@qTempPath\\@qREXXScriptFile","","",1,3,"Deleting @ObjectID","",0,0,0,0,-1,0)
   @Else
      @ShowAll("@@DestroyWPSObject", "Need to specify Object ID")
   @EndIf

   @Return()
@EndFunc

//------------------------------------------------------
@DefineFunc @Void @RemoveProdVars(@Void)

   //Remove all Product variables taking into account prod vars set with
   //method = @qSetProdReplaceVar (i.e. restore old value).

   @If (!@Exists(@qInstallSysFilename))
      @ErrorExit("@qErrorInstallSysNotFound@qInstallSysFilename", 1)
   @EndIf

   //Make sure environment section found
   @If (@CueSection(@qInstallSysFilename, @lProductVars) != @iEOF)

DoProdVarsTop:
      @iReturnVal = @GetNextProdVarsItem(@qInstallSysFilename, @qName, @qValue,
                    @qDataType, @qComponent, @qMethod, @qItemFeature)

      @If ((@iReturnVal == @iSuccess) || (@iReturnVal == @iSuccessSectionDone))

         @If (@IsNull(@qItemFeature) ||
              (@StrFind(@qCustomFeatures,@qItemFeature) >= 0))
            @RemoveProdVarItem(@qName,@qValue, @qDataType,
                                    @qComponent,@qMethod)
         @EndIf
      @EndIf

      @If ((@iReturnVal == @iSuccess) || (@iReturnVal == @iNoItem))
         @Goto DoProdVarsTop
      @Else      //Section done
      @EndIf
   @Else         //Product variables section not found
   @EndIf

   @Return()
@EndFunc


//--------------------------------------------------

@DefineFunc @Void @RemoveProdVarItem(@In @QString @qName,
            @In @QString @qValue, @In @QString @qDataType,
            @In @QString @qComponent, @In @QString @qMethod)

   @If (@Platform == @OS2)
      @ShowAll("RemoveProdVarItem","Need to remove os2 prodvars")

      // Only handle strings - set to doublequotes
      @SetOS2ProductINIString(@qComponent, @qName, "\"\"")
   @EndIf
   @Return()
@EndFunc


//
//
//
//File: IO ///////////////////////////////
//
//CIDVars: NONE
//
//Globals changed:
//   iDefaultsFilePos   (Readinfo)
//   iInstallSysfilepos (Readinfo)
//

@DefineProto
   @Integer @ReadInfo(@In @QString @Filename, @Out @QString @Outstr,
            @In @Integer @OverwritePos, @In @Integer @Newpos)
   @Integer @ReadConditional(@In @QString @filename,
            @Out @QString @Outstr, @In @Integer @FilePos)

@EndProto


// ReadInfo() is a wrapper for wrapper for ReadConditional.
// It maintains a read position for the files which are called with it.
// The position can be overwritten by calling Readinfo with parameter
// OverwritePos set to True, and Newpos set to a value.
// It currently works 2 files:
//    @qDefaultsFilename
//    @qInstallSysFilename
// More files can be added by modifying the function.
// Return values are the same as from ReadFile: the file position,
//    and -1 for EOF or an error
//
@DefineFunc @Integer @ReadInfo(@In @QString @Filename, @Out @QString @Outstr,
            @In @Integer @OverwritePos, @In @Integer @NewPos)

   @If (@StrCmp(@StrUpr(@Filename), @StrUpr(@qDefaultsFilename)) == 0)
      @If (@OverwritePos == @TRUE)
         @iDefaultsFilepos = @NewPos
      @EndIf
      @iDefaultsFilepos = @ReadConditional(@qDefaultsFilename, @Outstr,
                                    @iDefaultsFilepos)
      @Return(@iDefaultsFilepos)
   @ElseIf (@StrCmp(@StrUpr(@Filename), @StrUpr(@qInstallSysFilename)) == 0)
      @If (@OverwritePos == @TRUE)
         @iInstallSysFilepos = @NewPos
      @EndIf
      @iInstallSysFilepos = @ReadConditional(@qInstallSysFilename, @Outstr,
                                    @iInstallSysFilepos)
      @Return(@iInstallSysFilepos)
   @Else
      @ErrorExit(@qReadInfoErrorBadFilename,@iAbort)
   @EndIf
      @Return(0)
@EndFunc


// ReadConditional() is a wrapper for ReadFile.
// It reads a text file line by line and handles the conditional
// statements #ifwin, #ifos2, and #endif
// If it is on the wrong platform for the conditional (windows for
// and #ifos2), it keeps reading until the line after the next endif.
// If it is on the correct platform for the conditional, it sets a
// flag iCondlReadMode, so that the next time an #endif is found
// it is ignored.
// All conditional markers are converted to uppercase before comparison
// so they should not be case sensitive.
// Return values are the same as for ReadFile: the file position
//   or -1 for an error or EOF.
/////////////////////////////////////////////////////////////

@DefineFunc @Integer @ReadConditional(@In @QString @filename,
            @Out @QString @Outstr, @In @Integer @FilePos)

   @iTMP1 = @FilePos
laReadConditionalTop:
   @iTMP1 = @ReadLine(@filename, @qTMP1,,@iTMP1)
   @qTMP2 = "@qTMP1"
   @StripBlanks(@qTMP1)

   @If (@iCondlReadMode)
      @If (@StrCmpNos(@qTMP1, @lEndif) == 0)
         @iCondlReadMode = @False
         @iTMP1 = @ReadLine(@filename,@qTMP2,,@iTMP1)
      @ElseIf (((@StrCmpNos(@qTMP1, @lIfOS2) == 0) ||
                (@StrCmpNos(@qTMP1, @lIfWin) == 0)) &&
                (@iTMP1 != -1))
         @ErrorExit("@qErrorReadConditionalCondlNotExpected",@iAbort)
      @ElseIf (@iCondlReadMode != @Platform)
         @Goto laReadConditionalTop
      @EndIf

   //Check for the start of a conditional OS2 section
   @ElseIf ((@StrCmpNos(@qTMP1, @lIfOS2) == 0) &&
            (@iTMP1 != -1))
      @iCondlReadMode = @OS2
      @If (@Platform != @iCondlReadMode)
         @Goto laReadConditionalTop
      @Else
         @iTMP1 = @ReadLine(@filename, @qTMP2,,@iTMP1)
      @EndIf

   //Check for the start of a conditional Windows section
   @ElseIf ((@StrCmpNos(@qTMP1,@lIfWin) == 0) &&
            (@iTMP1 != -1))
      @iCondlReadMode = @Windows
      @If (@Platform != @iCondlReadMode)
         @Goto laReadConditionalTop
      @Else
         @iTMP1 = @ReadLine(@filename, @qTMP2,,@iTMP1)
      @EndIf

   //Check for the end of a conditional section
   @ElseIf (@StrCmpNos(@qTMP1, @lEndif) == 0)
      // Error - no #If found
      @If (!@iCondlReadMode)
         @ErrorExit("@qErrorReadConditionalEndCondlNotExpected",@iAbort)
      @Else  //this code should not be reached
         @iCondlReadMode = @False
      @EndIf
   @EndIf

   @Outstr = @qTMP2

   @Return(@iTMP1)
@EndFunc
//
//
//
//File: Actions /////////////////////////////////////
//
//CIDVars: TBD
//
//Globals changed: none
//
@DefineProto
   @Integer @DetermineInstallDirectory(@Void)
   @Void @EventHandler @DetInstDirRBHandler(@In @Int @OldSelected,
                                            @In @Int @NewSelected,
                                            @In @Int @RangeStart,
                                            @In @Int @RangeEnd)
   @Void @DetInstDirSetHelpText(@Void)
   @Integer @GetProductDir(@Void)
   @Void @DoInstallActions(@Void)
   @Void @EventHandler @InstallActionsRBHandler(@In @Int @OldSelected,
                                                  @In @Int @NewSelected,
                                                  @In @Int @RangeStart,
                                                  @In @Int @RangeEnd)
   @Void @InstallActionsSetHelpText(@Void)

@EndProto
//
//
//----------------------------------------------------------
@DefineFunc @Integer @DetermineInstallDirectory(@Void)

   @DetermineInstallSysFilename()

   @If (!@iProductInstalled || @IsNULL(@qInstallPath1) || !@Exists(@qInstallSysFileName))

      @If (!@CIDBypass(@qForceDetInstDir))
         @DetInstDirSetHelpText()

laDetInstDirDlg:

         @MapEventToFunc(@DlgRBEvent, @DetInstDirRBHandler)
         @EnableEventMap(@DlgRBEvent)

         @iDialogRes = @DialogRadio(@qDetInstDirTitle, @qDetInstDirBitmap,
                                    @iDetInstDirBitmapID, @qDetInstDirText1,
                                    @qDetInstDirText2, @qDetInstDirHelpText,
                                    @qEnterInstDirRBText, @qRemoveProdRBText,
                                    "", "", "", "", "", @qNext,
                                    @qCancel, "", "", @iDetInstDirRBSelected)

         @DisableEventMap(@DlgRBEvent)

         @If (@iDialogRes == 1)
            @MsgBox(@qErrorInvalidReturn)
            @Goto laDetInstDirDlg
         @ElseIf (@iDialogRes == 2)
            //Next pushbutton pressed. Fall through to postprocessing.
         @ElseIf (@iDialogRes == 3)
            @ConfirmCancel()
            @Goto laDetInstDirDlg
         @Else
            @MsgBox(@qErrorInvalidReturn)
            @Goto laDetInstDirDlg
         @EndIf
      @Else
         @ErrorExit("@qErrorInstallSysNotFound@qInstallSysFilename", 1)
      @EndIf

laDetInstDirPostProcessing:

      @If (@iDetInstDirRBSelected == 1)
         @iFuncRes = @GetProductDir()
         @If (@iFuncRes == @iBack)
            @Goto laDetInstDirDlg
         @ElseIf (@iFuncRes != @iNext)
            @MsgBox("@qErrorInvalidReturn GetProductDir")
            @Goto laDetInstDirPostProcessing
         @Endif
      @ElseIf(@iDetInstDirRBSelected == 2)
         @RemoveDesktopItems()
         @RemoveRegProdInfo()
         @RemoveRegUninInfo()
         @If (!@CIDBypass(@qForceDetInstDir))
            @iDialogRes = @DialogText(@qProdInfoRemovedTitle,
                                      @qProdInfoRemovedBitmap,
                                      @iProdInfoRemovedBitmapID,
                                      "", @qProdInfoRemovedText, "", "",
                                      "", "", "", @qFinish, "", "", "")
         @EndIf
         @Exit
      @Else
         @ErrorExit(@qErrorInvalidReturn, @iAbort)
      @EndIf
   @EndIf

   @Return(@iNext)

@EndFunc

//----------------------------------------------------------
@DefineFunc @Void @EventHandler @DetInstDirRBHandler(@In @Int @OldSelected,
                                                     @In @Int @NewSelected,
                                                     @In @Int @RangeStart,
                                                     @In @Int @RangeEnd)
  @If (@NewSelected == 1410)
     @iDetInstDirRBSelected = 1
  @ElseIf(@NewSelected == 1420)
     @iDetInstDirRBSelected = 2
  @Else
     @ErrorExit(@qErrorInvalidReturn, @iAbort)
  @EndIf
  @DetInstDirSetHelpText()
  @StaticText(510, "@qDetInstDirText2 \n\n @qDetInstDirHelpText")
  @Return()
@EndFunc


//----------------------------------------------------------
@DefineFunc @Void @DetInstDirSetHelpText(@Void)

  @If (@iDetInstDirRBSelected == 1)
     @qDetInstDirHelpText = @qDetInstDirHelp1
  @ElseIf (@iDetInstDirRBSelected == 2)
     @qDetInstDirHelpText = @qDetInstDirHelp2
  @Else
     @ErrorExit(@qErrorInvalidReturn, @iAbort)
  @EndIf

  @Return()

@EndFunc


//----------------------------------------------------------
@DefineFunc @Integer @GetProductDir(@Void)

   @If (!@CIDBypass(@qForceDetInstDir))

      @qInstallPath1 = ""
      @qInstallPath2 = ""
      @qInstallPath3 = ""
      @qInstallPath4 = ""
      @qInstallPath5 = ""
      @qInstallPath6 = ""
      @qInstallPath7 = ""
      @qInstallPath8 = ""
      @qInstallPath9 = ""
      @qInstallPath10 = ""

laGetProductDirDlg:

      @iDialogRes = @DialogEdit(@qGetProductDirTitle, @qGetProductDirBitmap,
                                 @iGetProductDirBitmapID, @qGetProductDirText1,
                                 @qProduct1,
                                 "", "", "", "", "", "", "", "", "", "",
                                 @qBack, @qNext, @qCancel, "", "",
                                 @qInstallPath1, @qInstallPath2,
                                 @qInstallPath3, @qInstallPath4,
                                 @qInstallPath5, @qInstallPath6,
                                 @qInstallPath7, @qInstallPath8,
                                 @qInstallPath9, @qInstallPath10, "")


      @If (@iDialogRes == 1)
         @iDialogRes = @iBack
      @ElseIf (@iDialogRes == 2)
         @iDialogRes = @iNext
      @ElseIf (@iDialogRes == 3)
          @ConfirmCancel()
          @Goto laGetProductDirDlg
      @ElseIf (@iDialogRes == 4)
         @ErrorExit(@qErrorInvalidReturn, @iAbort)
      @Else
         @ErrorExit(@qErrorInvalidReturn, @iAbort)
      @EndIf

laGetProductDirPostProcessing:
      @If(@iDialogRes == @iNext)
         @iCheckPathResult = @iGetInstDirPathOK

         @CheckPath(@qInstallPath1, @iCheckPathResult)

         @If(@iCheckPathResult == @iGetInstDirPathOK)
            //Do nothing
         @ElseIf(@iCheckPathResult == @iGetInstDirBadPath)
            @MsgBox("@qInvalidPath@qGetInstDirError1")
            @Goto laGetProductDirDlg
         @ElseIf(@iCheckPathResult == @iGetInstDirBadDrive)
            @MsgBox("@dInvalidDrive@qGetInstDirError2")
            @Goto laGetProductDirDlg
         @ElseIf(@iCheckPathResult == @iGetInstDirNoRoot)
            @MsgBox("@dInvalidDrive@qGetInstDirError3")
            @Goto laGetProductDirDlg
         @ElseIf(@iCheckPathResult == @iGetInstDirInvalidCharacterInPath)
            @MsgBox("@qInvalidPath@qGetInstDirError4")
            @Goto laGetProductDirDlg
         @ElseIf(@iCheckPathResult == @iGetInstDirDriveNotHPFS)
            @MsgBox("@dInvalidDrive@qGetInstDirError5")
            @Goto laGetProductDirDlg
         @ElseIf(@iCheckPathResult == @iGetInstDirLongPath)
            @MsgBox("@qInvalidPath@qGetInstDirError6")
            @Goto laGetProductDirDlg
         @Else
            @ErrorExit(@qCheckPathResultError, @iAbort)
         @EndIf

         //Make sure that the file install.sys exists in the entered directory.
         @qInstallSysFileName = ""
         @DetermineInstallSysFilename()
         @If (!@Exists(@qInstallSysFileName))
            @MsgBox("@qErrorInstallSysNotFound@qInstallSysFilename@qCRLF@qCRLF@qErrorInstallSysMustRemove")
            @Goto laGetProductDirDlg
         @Else
            @iProductInstalled = @True
            @RebuildOnlyMode =   @True
         @EndIf
      @EndIf
   @EndIf
   @Return (@iDialogRes)
@EndFunc


//----------------------------------------------------------
@DefineFunc @Void @DoInstallActions(@Void)

laInstallActionsDlg:
   @If (@RebuildMode)
      @iInstallActionRBSelected = 4
   @ElseIf (@UninstallMode)
      @iInstallActionRBSelected = 5
   @ElseIf (@AddMode)
      @iInstallActionRBSelected = 2
   @Else
      @iInstallActionRBSelected = 3
   @EndIf

   @If (!@CIDBypass(@qForceInstallActions))
      // If rebuild only, then don't display the other radio buttons
      @If (@RebuildOnlyMode)
         @qAddRBText = ""
         @qDeleteRBText = ""
         @qUpdateRBText = ""
         @qUninstallRBText = ""
         @iInstallActionRBSelected = 4
      @EndIf

      @InstallActionsSetHelpText()

      //Disable the actions but uninstall if this is run from the local version
      @If (!@Exists(@UninstallRedFile))
         @iInstallActionRBSelected = 5
         @DialogRadioDisableRB(1,1,1,1,0,1)
         @InstallActionsSetHelpText()
      @ElseIf (@iJavaInstall)
         @DialogRadioDisableRB(0,0,1,0,0,0)
         @iInstallActionRBSelected = 4
         @InstallActionsSetHelpText()
      @EndIf


      @MapEventToFunc(@DlgRBEvent, @InstallActionsRBHandler)
      @EnableEventMap(@DlgRBEvent)

      @iDialogRes = @DialogRadio(@qInstallActionsTitle, @qInstallActionsBitmap,
                                 @iInstallActionsBitmapID, @qInstallActionsText1,
                                 @qInstallActionsText2, @qInstallActionHelpText,
                                 @qDeleteRBText, @qAddRBText, @qUpdateRBText,
                                 @qRebuildRBText, @qUninstallRBText, "",
                                 "", @qNext, @qCancel, "", "",
                                 @iInstallActionRBSelected)

      @DisableEventMap(@DlgRBEvent)

      //Reenable the RBs
      @DialogRadioDisableRB(0,0,0,0,0,0)

      @If (@iDialogRes == 1)
         @MsgBox(@qErrorInvalidReturn)
         @Goto laInstallActionsDlg
      @ElseIf (@iDialogRes == 2)
         //Next pushbutton pressed. Fall through to postprocessing.
      @ElseIf (@iDialogRes == 3)
         @ConfirmCancel()
         @Goto laInstallActionsDlg
      @Else
         @MsgBox(@qErrorInvalidReturn)
         @Goto laInstallActionsDlg
      @EndIf
   @EndIf

laInstallActionsPostProcessing:

   @If(@iInstallActionRBSelected == 1)
      @AddMode = @False
      @DeleteMode = @True
      @UpdateMode = @False
      @RebuildMode = @False
      @UninstallMode = @False
      @IfNewerMode = @False
   @ElseIf (@iInstallActionRBSelected == 2)
      @AddMode = @True
      @DeleteMode = @False
      @UpdateMode = @False
      @RebuildMode = @False
      @UninstallMode = @False
      @IfNewerMode = @False
   @ElseIf(@iInstallActionRBSelected == 3)
      @AddMode = @False
      @DeleteMode = @False
      @UpdateMode = @True
      @RebuildMode = @False
      @UninstallMode = @False
      @IfNewerMode = @True
   @ElseIf(@iInstallActionRBSelected == 4)
      @AddMode = @False
      @DeleteMode = @False
      @UpdateMode = @False
      @RebuildMode = @True
      @UninstallMode = @False
      @IfNewerMode = @False
   @ElseIf(@iInstallActionRBSelected == 5)
      @AddMode = @False
      @DeleteMode = @False
      @UpdateMode = @False
      @RebuildMode = @False
      @UninstallMode = @True
      @IfNewerMode = @False
   @Else
      @ErrorExit(@qErrorInvalidReturn, @iAbort)
   @EndIf
   @Return()

@EndFunc


//----------------------------------------------------------
@DefineFunc @Void @EventHandler @InstallActionsRBHandler(@In @Int @OldSelected,
                                                         @In @Int @NewSelected,
                                                         @In @Int @RangeStart,
                                                         @In @Int @RangeEnd)
  @If (@NewSelected == 1410)
     @iInstallActionRBSelected = 1
  @ElseIf(@NewSelected == 1420)
     @iInstallActionRBSelected = 2
  @ElseIf(@NewSelected == 1430)
     @iInstallActionRBSelected = 3
  @ElseIf(@NewSelected == 1440)
     @iInstallActionRBSelected = 4
  @ElseIf(@NewSelected == 1450)
     @iInstallActionRBSelected = 5
  @Else
     @ErrorExit(@qErrorInvalidReturn, @iAbort)
  @EndIf
  @InstallActionsSetHelpText()
  @StaticText(510, "@qInstallActionsText2 \n\n @qInstallActionHelpText")
  @Return()
@EndFunc


//----------------------------------------------------------
@DefineFunc @Void @InstallActionsSetHelpText(@Void)

  @If (@iInstallActionRBSelected == 1)
     @qInstallActionHelpText = @qInstallActionHelp1
  @ElseIf (@iInstallActionRBSelected == 2)
     @qInstallActionHelpText = @qInstallActionHelp2
  @ElseIf (@iInstallActionRBSelected == 3)
     @qInstallActionHelpText = @qInstallActionHelp3
  @ElseIf (@iInstallActionRBSelected == 4)
     @qInstallActionHelpText = @qInstallActionHelp4
  @ElseIf (@iInstallActionRBSelected == 5)
     @qInstallActionHelpText = @qInstallActionHelp5
  @Else
     @ErrorExit(@qErrorInvalidReturn, @iAbort)
  @EndIf

  @Return()

@EndFunc
//
//
//  FILE: UPDATE
//
//
//--------------------------------------------------------

@DefineProto

   @Integer @PrepareUpdate(@Void)
   @Void @GetCurrentFixpakLevel(@Out @QString @qLevel)
   @Integer @ConfirmUpdate(@Void)
   @Integer @ProceedWithUpdate(@Void)
   @Void @WriteFixpakLevel(@Void)

@EndProto

//----------------------------------------------------------

@DefineFunc @Integer @PrepareUpdate(@Void)

   @SetCustomFeaturesStringFromFile(@qInstallSysFilename,@qCustomFeatures)
   @If (@IsNULL(@qCustomFeatures))
      @ErrorExit("@@PrepareUpdate: @qErrorReadingCustomFeatures", @iAbort)
   @EndIf
   @SetGroupsString(@CustomFeaturesToGroups(@qCustomFeatures))

   @GetCurrentFixpakLevel(@qTMP6)

   @iTMP6 = @StrtoInt(@qTMP6)
   @iTMP5 = @StrtoInt(@qFixpakLevel)

   // If this version is newer, proceed
   @If (@iTMP5 > @iTMP6)
      @iDialogRes = @iNext
   // If the versions are the same, ask
   @ElseIf (@iTMP5 == @iTMP6)
      // If it's a CID install, exit
      @If (@CIDBypass("N"))
         @Exit
      @EndIf
      @If (@ProceedWithUpdate())
         @iDialogRes = @iNext
      @Else
         @iDialogRes = @iBack
      @EndIf
   // If the version is older, do not allow to proceed
   @Else
      // If it's a CID install, exit
      @If (@CIDBypass("N"))
         @Exit
      @EndIf
      @MsgBox("@qUpdateErrorOlderVersion")
      @iDialogRes = @iBack
   @EndIf

   @Return(@iDialogRes)
@EndFunc

//----------------------------------------------------------

@DefineFunc @Void @GetCurrentFixpakLevel(@Out @QString @qLevel)

   @iTMP2 = @Success
   @If (@Platform == @Windows)
      @qTMP1 = "SOFTWARE\\@qCompanyName\\@qProductName\\@qProductVersion\\@qInstallKey"
      @If (@WinRegOpenKeyEx(@HKeyLocalMachine, @qTMP1, @iRegKeyAllAccess,
                            @iKeyHandle) != 0)
         @ErrorExit("@GetCurrentFixpakLevelCantOpenKey", @iAbort)
      @EndIf
      @qLevel = @GetRegValue(@iKeyHandle, @lFixpak)
      @WinRegCloseKey(@iKeyHandle)
   @Else
      @qLevel = @GetOS2ProductINIString(@qInstallKey,@lFixpak)
   @EndIf

   @Return()
@EndFunc



//----------------------------------------------------
@DefineFunc @Integer @ConfirmUpdate(@Void)

laConfirmInstall:

@If ( !@CIDBypass("N") )

   @iDialogRes = @DialogText(@qConfirmTitle,
                 @qConfirmBitmap, @iConfirmBitmapID,
                 @qConfirmUpdateText1, "", "","","","",
                 "@qBack", @qInstall, @qCancel, "", "")

   @If     (@iDialogRes == 1)
      @iDialogRes = @iBack
   @ElseIf (@iDialogRes == 2)
      @iDialogRes = @iNext
   @ElseIf (@iDialogRes == 3)
      @ConfirmCancel()
      @Goto laConfirmInstall
   @ElseIf (@iDialogRes == 4)
      @ShowAll("ConfirmInstall", "Remove 4th button test")
      @Goto laConfirmInstall
   @ElseIf (@iDialogRes == 5)
      @ShowAll("ConfirmInstall", "Remove 5th button test")
      @Goto laConfirmInstall
   @Else
      @ErrorExit(@qConfirmError, @iAbort)
   @EndIf
@Endif

   @Return(@iDialogRes)
@EndFunc

//-----------------------------------------------------

@DefineFunc @Integer @ProceedWithUpdate(@Void)
   @iDialogRes = @True
   @If (!@CIDBypass("@qNO"))
      @iFuncRes = @Ask(@qProceedWithUpdateTitle, "", 0,
                       @qProceedWithUpdateText1,
                       "@lYes", "@lNo")
      @If (@iFuncRes == 1)
         @iDialogRes = @True
      @ElseIf (@iFuncRes == 2)
         @iDialogRes = @False
      @Else
         @ErrorExit("@ProceedWithUpdateBadReturn", @iAbort)
      @EndIf
   @EndIf
   @Return(@iDialogRes)
@EndFunc

//------------------------------------------------------

@DefineFunc @Void @WriteFixpakLevel(@Void)

   @If (@Platform == @Windows)
      @SetRegProdValue(@lFixPak, @qFixPakLevel)
   @Else
      @SetRegProdValueOS2(@lFixpak, @qFixpakLevel)
   @EndIf

   @Return()
@EndFunc
//
//
//
//File: Rebuild /////////////////////////////////////
//
//CIDVars: TBD
//
//Globals changed: none
//
@DefineProto
   @Integer @DoRebuildDialog(@Void)
   @Void @EventHandler @RebuildRBHandler(@In @Int @OldSelected,
                                               @In @Int @NewSelected,
                                               @In @Int @RangeStart,
                                               @In @Int @RangeEnd)
   @Void @RebuildSetHelpText(@Void)
   @Integer @RebuildConfirmInstallPaths(@Void)
@EndProto
//
//
//----------------------------------------------------------
@DefineFunc @Integer @DoRebuildDialog(@Void)

   @If (!@CIDBypass(@qForceRebuild))
      @RebuildSetHelpText()

laRebuildDlg:

      @If (@iJavaInstall)
         @DialogRadioDisableRB(0,0,1,0,0,0)
         @iRebuildRBSelected = 2
         @RebuildSetHelpText()
      @EndIf
      @MapEventToFunc(@DlgRBEvent, @RebuildRBHandler)
      @EnableEventMap(@DlgRBEvent)

      @iDialogRes = @DialogRadio(@qRebuildDialogTitle, @qRebuildDialogBitmap,
                                 @iRebuildDialogBitmapID, @qRebuildDialogText1,
                                 @qRebuildDialogText2, @qRebuildDialogHelpText,
                                 @qRebuildDesktopRBText, @qRebuildIfNewerRBText,
                                 @qRebuildAllRBText,
                                 "", "", "",
                                 @qBack, @qNext, @qCancel, "", "",
                                 @iRebuildRBSelected)

      @DisableEventMap(@DlgRBEvent)

      @If (@iJavaInstall)
         @DialogRadioDisableRB(0,0,0,0,0,0)
      @EndIf

      @If (@iDialogRes == 1)
         @iDialogRes = @iBack
      @ElseIf (@iDialogRes == 2)
         @iDialogRes = @iNext
      @ElseIf (@iDialogRes == 3)
         @ConfirmCancel()
         @Goto laRebuildDlg
      @ElseIf (@iDialogRes == 4)
         @ErrorExit(@qErrorInvalidReturn, 1)
      @Else
         @ErrorExit(@qErrorInvalidReturn, 1)
      @EndIf
   @EndIf

laRebuildPostProcessing:

   @If (@iRebuildRBSelected == 1)
      @RebuildDesktopMode = @True
      @RebuildAllMode = @False
      @RebuildIfNewerMode = @False
   @ElseIf (@iRebuildRBSelected == 2)
      @RebuildDesktopMode = @False
      @RebuildIfNewerMode = @True
      @RebuildAllMode = @False
      @IfNewerMode = @True
   @ElseIf (@iRebuildRBSelected == 3)
      @RebuildDesktopMode = @False
      @RebuildIfNewerMode = @False
      @RebuildAllMode = @True
   @Else
      @ErrorExit(@qErrorInvalidReturn, @iAbort)
   @EndIf
   @Return(@iDialogRes)

@EndFunc


//----------------------------------------------------------
@DefineFunc @Void @EventHandler @RebuildRBHandler(@In @Int @OldSelected,
                                                         @In @Int @NewSelected,
                                                         @In @Int @RangeStart,
                                                         @In @Int @RangeEnd)
  @If (@NewSelected == 1410)
     @iRebuildRBSelected = 1
  @ElseIf(@NewSelected == 1420)
     @iRebuildRBSelected = 2
  @ElseIf ((@NewSelected == 1430) && @iJavaInstall)
     @iRebuildRBSelected = 3
  @Else
     @ErrorExit(@qErrorInvalidReturn, @iAbort)
  @EndIf
  @RebuildSetHelpText()
  @StaticText(510, "@qRebuildDialogText2 \n\n @qRebuildDialogHelpText")
  @Return()
@EndFunc


//----------------------------------------------------------
@DefineFunc @Void @RebuildSetHelpText(@Void)

  @If (@iRebuildRBSelected == 1)
     @qRebuildDialogHelpText = @qRebuildDialogHelp1
  @ElseIf (@iRebuildRBSelected == 2)
     @qRebuildDialogHelpText = @qRebuildDialogHelp2
  @ElseIf (@iRebuildRBSelected == 3)
     @qRebuildDialogHelpText = @qRebuildDialogHelp3
  @Else
     @ErrorExit(@qErrorInvalidReturn, @iAbort)
  @EndIf

  @Return()

@EndFunc


//----------------------------------------------------------
@DefineFunc @Integer @RebuildConfirmInstallPaths(@Void)

   @If (!@CIDBypass(@qForceRebuildConfirm))
      @SetInstallPathsFromFile(@qInstallSysFilename)

laConfirmPathsDlg:

      @If (@iSingleDriveEntry && (@Platform == @OS2))
         @iDialogRes = @Dialog1Edit(@qGetInstDirTitle, @qGetInstDirBitmap,
                                @iGetInstDirBitmapID,
                                @qConfirmPathsText1, "","","","",
                                @qBack,@qNext,@qCancel,"","",
                                @qInstallPath1)
      @Else
         @iDialogRes = @DialogEdit(@qConfirmPathsTitle, @qConfirmPathsBitmap,
                                @iConfirmPathsBitmapID, @qConfirmPathsText1,
                                @qProduct1, @qProduct2, @qProduct3,
                                @qProduct4, @qProduct5, @qProduct6, @qProduct7,
                                @qProduct8, @qProduct9, @qProduct10, "",
                                @qBack, @qRebuild, @qCancel, "", "",
                                @qInstallPath1, @qInstallPath2,
                                @qInstallPath3, @qInstallPath4,
                                @qInstallPath5, @qInstallPath6,
                                @qInstallPath7, @qInstallPath8,
                                @qInstallPath9, @qInstallPath10, "")
      @EndIf


      @If (@iDialogRes == 1)
         @iDialogRes = @iBack
      @ElseIf (@iDialogRes == 2)
         @iDialogRes = @iNext
      @ElseIf (@iDialogRes == 3)
          @ConfirmCancel()
          @Goto laConfirmPathsDlg
      @ElseIf (@iDialogRes == 4)
         @ErrorExit(@qErrorInvalidReturn, @iAbort)
      @Else
         @ErrorExit(@qErrorInvalidReturn, @iAbort)
      @EndIf

laRebuildConfirmPostProcessing:
      @If(@iDialogRes == @iNext)
         @iCheckPathResult = @iGetInstDirPathOK

         @CheckPath(@qInstallPath1, @iCheckPathResult)


         @If(@iCheckPathResult == @iGetInstDirPathOK)
            //Do nothing
         @ElseIf(@iCheckPathResult == @iGetInstDirBadPath)
            @MsgBox("@qInvalidPath@qGetInstDirError1")
            @Goto laConfirmPathsDlg
         @ElseIf(@iCheckPathResult == @iGetInstDirBadDrive)
            @MsgBox("@dInvalidDrive@qGetInstDirError2")
            @Goto laConfirmPathsDlg
         @ElseIf(@iCheckPathResult == @iGetInstDirNoRoot)
            @MsgBox("@dInvalidDrive@qGetInstDirError3")
            @Goto laConfirmPathsDlg
         @ElseIf(@iCheckPathResult == @iGetInstDirInvalidCharacterInPath)
            @MsgBox("@qInvalidPath@qGetInstDirError4")
            @Goto laConfirmPathsDlg
         @ElseIf(@iCheckPathResult == @iGetInstDirDriveNotHPFS)
            @MsgBox("@dInvalidDrive@qGetInstDirError5")
            @Goto laConfirmPathsDlg
         @ElseIf(@iCheckPathResult == @iGetInstDirLongPath)
            @MsgBox("@qInvalidPath@qGetInstDirError6")
            @Goto laConfirmPathsDlg
         @Else
            @ErrorExit(@qCheckPathResultError, @iAbort)
         @EndIf

      @EndIf
   @Else
      @iDialogRes = @iNext
   @EndIf
   @Return (@iDialogRes)
@EndFunc

//
//
//  FILE: ADD
//
//
//--------------------------------------------------------

@DefineProto

   @Integer @PrepareAdd(@Void)
   @Void @DisableSelected(@In @QString @qFeatures)

@EndProto

//----------------------------------------------------------

@DefineFunc @Integer @PrepareAdd(@Void)

   @SetCustomFeaturesStringFromFile(@qInstallSysFileName, @qOldFeatures)
   @If (@IsNULL(@qOldFeatures))
      @ErrorExit("@@PrepareAdd: @qErrorReadingCustomFeatures", @iAbort)
   @EndIf
   @qCustomFeatures = ""

   @iInstallType = @iInstallTypeCustom

   @GetCurrentFixpakLevel(@qTMP6)

   @iTMP6 = @StrtoInt(@qTMP6)
   @iTMP5 = @StrtoInt(@qFixpakLevel)

   // If this version is the same, proceed
   @If (@iTMP5 == @iTMP6)
      @DisableSelected(@qOldFeatures)
      @iDialogRes = @iNext
   // If this version is newer, deny and tell to update
   @ElseIf (@iTMP5 > @iTMP6)
      // If it's a CID install, exit
      @If (@CIDBypass("N"))
         @ErrorExit("@@PrepareAdd: @qAddErrorNewerVersion",@iAbort)
      @EndIf
      @MsgBox("@qAddErrorNewerVersion")
      @iDialogRes = @iBack
   // If the version is older, do not allow to proceed
   @Else
      @If (@CIDBypass("N"))
         @ErrorExit("@@PrepareAdd: @qAddErrorOlderVersion",@iAbort)
      @EndIf
      @MsgBox("@qAddErrorOlderVersion")
      @iDialogRes = @iBack
   @EndIf

   @Return(@iDialogRes)
@EndFunc

//---------------------------------------------------------


@DefineFunc @Void @DisableSelected(@In @QString @qFeatures)

   @If (@Strfind(@qFeatures,"01") >= 0)
      @iCustom1Enable=0
   @EndIf
   @If (@Strfind(@qFeatures,"02") >= 0)
      @iCustom2Enable=0
   @EndIf
   @If (@Strfind(@qFeatures,"03") >= 0)
      @iCustom3Enable=0
   @EndIf
   @If (@Strfind(@qFeatures,"04") >= 0)
      @iCustom4Enable=0
   @EndIf
   @If (@Strfind(@qFeatures,"05") >= 0)
      @iCustom5Enable=0
   @EndIf
   @If (@Strfind(@qFeatures,"06") >= 0)
      @iCustom6Enable=0
   @EndIf
   @If (@Strfind(@qFeatures,"07") >= 0)
      @iCustom7Enable=0
   @EndIf
   @If (@Strfind(@qFeatures,"08") >= 0)
      @iCustom8Enable=0
   @EndIf
   @If (@Strfind(@qFeatures,"09") >= 0)
      @iCustom9Enable=0
   @EndIf
   @If (@Strfind(@qFeatures,"10") >= 0)
      @iCustom10Enable=0
   @EndIf
   @If (@Strfind(@qFeatures,"11") >= 0)
      @iCustom11Enable=0
   @EndIf
   @If (@Strfind(@qFeatures,"12") >= 0)
      @iCustom12Enable=0
   @EndIf
   @If (@Strfind(@qFeatures,"13") >= 0)
      @iCustom13Enable=0
   @EndIf
   @If (@Strfind(@qFeatures,"14") >= 0)
      @iCustom14Enable=0
   @EndIf
   @If (@Strfind(@qFeatures,"15") >= 0)
      @iCustom15Enable=0
   @EndIf
   @If (@Strfind(@qFeatures,"16") >= 0)
      @iCustom16Enable=0
   @EndIf

   @Return()
@EndFunc
//
//
//
//File: Main
//CIDVars: n/a
//
//Globals changed: none
//
@DefineProto
  //none
@EndProto
//
//

//
////////////////////// MAIN ////////////////////////
//
//----------------------------------------------------------

laSetupTemp:
   @SetTemp()

laInitProd:
   @InitProd()

laSetBackground:   //Set text, background, bmp of the main window
   @iFuncRes = @SetDisplay()
   @LoadBMPBackground(@qBackgroundBMPFile)
   @LoadBMPProdLogo(@qProdLogoBMPfile)

laDefaultResponses:
   @DoResponse(@qDefaultsFilename)

laProcessCmdLine:
   @ProcessCmdLine()

   @iAlreadyRunInstallPre = @False

laGetInstallStatus:
   @GetInstallStatus()

laInstallExitPre:
   @If (!@iAlreadyRunInstallPre)
      @InstallExitPre()
      @iAlreadyRunInstallPre = @True
   @EndIf

laJavaUpgradeMode:
   //For VAJava install, iJavaUpgradeMode might be set by installexitpre
   @If (@iJavaUpgradeMode)
      @Goto laDisplayLicense
   @EndIf

   @If (@iProductInstalled || @UninstallMode || @RebuildMode || @UpdateMode || @AddMode)
      @iFuncRes = @DetermineInstallDirectory()
      @If (@iFuncRes != @iNext)
         @MsgBox("@qErrorInvalidReturn DetermineInstallDirectory")
         @Goto laGetInstallStatus
      @Endif
      @DetermineInstallSysFilename()
      @SetInstallPathsFromFile(@qInstallSysFilename)
      @DoInstallActions()
   @EndIf

laAdd:
   @If (@AddMode)
      @iFuncRes = @PrepareAdd()
      @If (@iFuncRes == @iBack)
         @Goto laGetInstallStatus
      @ElseIf (@iFuncRes != @iNext)
         @MsgBox("@qErrorInvalidReturn PrepareUpdate")
         @Goto laGetInstallStatus
      @EndIf
      @Goto laCustomSelect
   @EndIf

laUninstall:
   @If (@UninstallMode)
      @iFuncRes = @UninstallProduct()
      @If(@iFuncRes == @iBack)
         @Goto laGetInstallStatus
      @ElseIf(@iFuncRes != @iNext)
         @MsgBox("@qErrorInvalidReturn UninstallProduct")
         @Goto laUninstall
      @EndIf
      @Exit
   @EndIf

laRebuild:
   @If (@RebuildMode)
      @iFuncRes = @DoRebuildDialog()
      @If(@iFuncRes == @iBack)
         @Goto laGetInstallStatus
      @ElseIf(@iFuncRes != @iNext)
         @MsgBox("@qErrorInvalidReturn DoRebuildDialog")
         @Goto laRebuild
      @EndIf
      @SetCustomFeaturesStringFromFile(@qInstallSysFileName, @qCustomFeatures)
      @If (@IsNULL(@qCustomFeatures))
         @ErrorExit("Rebuild: @qErrorReadingCustomFeatures", @iAbort)
      @EndIf
      @SetGroupsString(@CustomFeaturesToGroups(@qCustomFeatures))
      @If (@RebuildDesktopMode)
         @Goto laInstallFiles
      @Else
         @Goto laCheckInUse
      @EndIf
   @EndIf

laUpdate:
   @If (@UpdateMode)
      @iFuncRes = @PrepareUpdate()
      @If (@iFuncRes == @iBack)
         @Goto laGetInstallStatus
      @ElseIf (@iFuncRes != @iNext)
         @MsgBox("@qErrorInvalidReturn PrepareUpdate")
         @Goto laUpdate
      @EndIf
      @Goto laCheckInUse
   @EndIf

laDisplayAutorun:
   @If (@AutorunMode == @True)
      @iFuncRes = @DisplayAutorun()
      @If (@iFuncRes != @iNext)
          @MsgBox("@qErrorInvalidReturn DisplayAutorun")
          @Goto laDisplayAutorun
      @Endif
   @Endif

laDisplayCopyright:   //Display the Copyright screen
   @iFuncRes = @DisplayCopyright()
   @If (@iFuncRes != @iNext)
      @MsgBox("@qErrorInvalidReturn DisplayCopyright")
      @Goto laDisplayCopyright
   @Endif

laDisplayWelcome:   //Display the welcome screen
   @iFuncRes = @DisplayWelcome()
   @If (@iFuncRes != @iNext)
      @MsgBox("@qErrorInvalidReturn DisplayWelcome")
      @Goto laDisplayWelcome
   @Endif

laDisplayLicense:
  //NEW FOR JAVA
   @If (@iJavaInstall && ((@iProductClass == @iProfessional) || (@iProductClass == @iEnterprise)))
      @If (@Ask(@qAskReadInstallTxtTitle,"",0,@qAskReadInstallTxtQu,@qNo,@qYes) != 2)
         @ConfirmCancel()
         @Goto laInstallExitPre
      @EndIf
   @EndIf


   @iFuncRes = @DisplayLicense()
   @If(@iFuncRes == @iBack)
      @If (@iJavaUpgradeMode)
         @iAlreadyRunInstallPre = @False
         @Goto laInstallExitPre
      @EndIf
      @Goto laDisplayWelcome
   @ElseIf(@iFuncRes != @iNext)
      @MsgBox("@qErrorInvalidReturn DisplayLicense")
      @Goto laDisplayLicense
   @EndIf

laCheckPrereqs:
   @iFuncRes = @CheckPrereqs()
   @If (@iFuncRes == @iBack)
      @Goto laDisplayLicense
   @ElseIf (@iFuncRes != @iNext)
      @MsgBox("@qErrorInvalidReturn CheckPrereqs")
      @Goto laCheckPrereqs
   @Endif

//laCheckExist:
//   @iFuncRes = @CheckExisting()
//   @If (@iFuncRes == @iBack)
//      @Goto laCheckPrereqs
//   @ElseIf (@iFuncRes != @iNext)
//      @MsgBox("@qErrorInvalidReturn CheckExist")
//      @Goto laCheckExist
//   @Endif

laGetInstallType:   //Get the Install type (custom, typical, ...)
   @iFuncRes = @GetInstallType()
   @If (@iFuncRes == @iBack)
      @Goto laCheckPrereqs
   @ElseIf (@iFuncRes != @iNext)
      @MsgBox("@qErrorInvalidReturn GetInstallType")
      @Goto laGetInstallType
   @Endif

laCustomSelect:   //Custom Selections
   @iFuncRes = @CustomSelect()
   @If (@iFuncRes == @iBack)
      @If (@AddMode)
         @Goto laGetInstallStatus
      @Else
         @Goto laGetInstallType
      @EndIf
   @ElseIf (@iFuncRes != @iNext)
      @MsgBox("@qErrorInvalidReturn CustomSelect")
      @Goto laCustomSelect
   @Endif

laGetInstallPath:
   @iFuncRes = @GetInstallPath()
   @If (@iFuncRes == @iBack)
      @Goto laCustomSelect
   @ElseIf (@iFuncRes != @iNext)
      @MsgBox("@qErrorInvalidReturn GetInstallPath @Eval(@iFuncRes) ")
      @Goto laGetInstallPath
   @Endif
   @ShowAll("MAIN.DAT", "Must write function to set path.  Remove temporary settings.")
   @OutDrive = @StrIndex(@StrUpr(@qInstallPath1), (@StrFind(@qInstallPath1, ":\\") - 1))
   @Subdir = @StrDel("@qInstallPath1", 0, (@StrFind(@qInstallPath1, ":\\") + 1))

laCheckFreeSpace:
   @iFuncRes = @CheckFreeSpace()
   @If (@iFuncRes == @iBack)
      @Goto laGetInstallPath
   @ElseIf (@iFuncRes != @iNext)
      @MsgBox("@qErrorInvalidReturn CheckFreeSpace")
      @Goto laCheckFreeSpace
   @Endif

laCheckInUse:
   @iFuncRes = @CheckInUse()
   @If (@iFuncRes == @iBack)
      @Goto laCheckFreeSpace
   @ElseIf (@iFuncRes != @iNext)
      @MsgBox("@qErrorInvalidReturn CheckInUse")
      @Goto laCheckInUse
   @Endif

laConfirmInstall:
   @If (@RebuildMode)
      @iFuncRes = @RebuildConfirmInstallPaths()
      @If(@iFuncRes == @iBack)
         @Goto laRebuild
      @ElseIf(@iFuncRes != @iNext)
         @MsgBox("@qErrorInvalidReturn @RebuildConfirmInstallPaths")
         @Goto laRebuild
      @EndIf
   @ElseIf (@UpdateMode)
      @iFuncRes = @ConfirmUpdate()
      @If (@iFuncRes == @iBack)
         @Goto laGetInstallStatus
      @ElseIf (@iFuncRes != @iNext)
         @MsgBox("@qErrorInvalidReturn ConfirmUpdate")
         @Goto laGetInstallStatus
      @Endif
   @Else   //First-time install mode
      @iFuncRes = @ConfirmInstall()
      @If (@iFuncRes == @iBack)
         @Goto laCheckInUse
      @ElseIf (@iFuncRes != @iNext)
         @MsgBox("@qErrorInvalidReturn ConfirmInstall")
         @Goto laConfirmInstall
      @Endif
   @EndIf


laInstallFiles:
 @If (!@RebuildDesktopMode)
//   @ShowBMP(0, @Eval((@WinScreenCaps(8) - 350) / 2), @Eval((@WinScreenCaps(10) - 60) / 2), "@qCopyFileBMPFile", 2)

   @CheckMultipleRedFiles()
   @SetNumberofDisks()
   @If (@iMultipleRedFiles)
      @FlushGroups()
      @FlushOptions()

      @qGroupsSet = @CustomFeaturesToGroups(@qCustomFeatures)

      @CopyFilesExitPre()

      @SetOutDriveSubdir(@qInstallPath1)

      @DefineDisk
         @Label = "Disk 1"
         @BeginLib @UninstallRedFile
            @File *.*
         @EndLib
      @EndDisk

      @If ((@StrFind(@qGroupsSet,"A") >= 0) && (@FileSize(@GroupARedFile) != 0))
         @If (@iGroupAExternalInstall)
            @SetOutDriveSubDir(@qGroupAExternalInstall)
         @Else
            @SetOutPath("A")
         @Endif
         @DefineDisk
            @Label = "Disk 1"
            @BeginLib @GroupARedFile
               @File *.*
            @EndLib
         @EndDisk
      @EndIf
      @If ((@StrFind(@qGroupsSet,"B") >= 0) && (@FileSize(@GroupBRedFile) != 0))
         @If (@iGroupBExternalInstall)
            @SetOutDriveSubDir(@qGroupBExternalInstall)
         @Else
            @SetOutPath("B")
         @Endif
         @DefineDisk
            @Label = "Disk 1"
            @BeginLib @GroupBRedFile
               @File *.*
            @EndLib
         @EndDisk
      @EndIf
      @If ((@StrFind(@qGroupsSet,"C") >= 0) && (@FileSize(@GroupCRedFile) != 0))
         @If (@iGroupCExternalInstall)
            @SetOutDriveSubDir(@qGroupCExternalInstall)
         @Else
            @SetOutPath("C")
         @Endif
         @DefineDisk
            @Label = "Disk 1"
            @BeginLib @GroupCRedFile
               @File *.*
            @EndLib
         @EndDisk
      @EndIf
      @If ((@StrFind(@qGroupsSet,"D") >= 0) && (@FileSize(@GroupDRedFile) != 0))
         @If (@iGroupDExternalInstall)
            @SetOutDriveSubDir(@qGroupDExternalInstall)
         @Else
            @SetOutPath("D")
         @Endif
         @DefineDisk
            @Label = "Disk 1"
            @BeginLib @GroupDRedFile
               @File *.*
            @EndLib
         @EndDisk
      @EndIf
      @If ((@StrFind(@qGroupsSet,"E") >= 0) && (@FileSize(@GroupERedFile) != 0))
         @If (@iGroupEExternalInstall)
            @SetOutDriveSubDir(@qGroupEExternalInstall)
         @Else
            @SetOutPath("E")
         @Endif
         @DefineDisk
            @Label = "Disk 1"
            @BeginLib @GroupERedFile
               @File *.*
            @EndLib
         @EndDisk
      @EndIf
      @If ((@StrFind(@qGroupsSet,"F") >= 0) && (@FileSize(@GroupFRedFile) != 0))
         @If (@iGroupFExternalInstall)
            @SetOutDriveSubDir(@qGroupFExternalInstall)
         @Else
            @SetOutPath("F")
         @Endif
         @DefineDisk
            @Label = "Disk 1"
            @BeginLib @GroupFRedFile
               @File *.*
            @EndLib
         @EndDisk
      @EndIf
      @If ((@StrFind(@qGroupsSet,"G") >= 0) && (@FileSize(@GroupGRedFile) != 0))
         @If (@iGroupGExternalInstall)
            @SetOutDriveSubDir(@qGroupGExternalInstall)
         @Else
            @SetOutPath("G")
         @Endif
         @DefineDisk
            @Label = "Disk 1"
            @BeginLib @GroupGRedFile
               @File *.*
            @EndLib
         @EndDisk
      @EndIf
      @If ((@StrFind(@qGroupsSet,"H") >= 0) && (@FileSize(@GroupHRedFile) != 0))
         @If (@iGroupHExternalInstall)
            @SetOutDriveSubDir(@qGroupHExternalInstall)
         @Else
            @SetOutPath("H")
         @Endif
         @DefineDisk
            @Label = "Disk 1"
            @BeginLib @GroupHRedFile
               @File *.*
            @EndLib
         @EndDisk
      @EndIf

@If (@iJavaInstall && (@iProductClass != @iEntry))
   @LoadBMPBillboard()
@EndIf
      @If ((@StrFind(@qGroupsSet,"I") >= 0) && (@FileSize(@GroupIRedFile) != 0))
         @If (@iGroupIExternalInstall)
            @SetOutDriveSubDir(@qGroupIExternalInstall)
         @Else
            @SetOutPath("I")
         @Endif
         @DefineDisk
            @Label = "Disk 1"
            @BeginLib @GroupIRedFile
               @File *.*
            @EndLib
         @EndDisk
      @EndIf

      @If ((@StrFind(@qGroupsSet,"J") >= 0) && (@FileSize(@GroupJRedFile) != 0))
@LoadBMPBillboard()
         @If (@iGroupJExternalInstall)
            @SetOutDriveSubDir(@qGroupJExternalInstall)
         @Else
            @SetOutPath("J")
         @Endif
         @DefineDisk
            @Label = "Disk 1"
            @BeginLib @GroupJRedFile
               @File *.*
            @EndLib
         @EndDisk
      @EndIf
      @If ((@StrFind(@qGroupsSet,"K") >= 0) && (@FileSize(@GroupKRedFile) != 0))
         @If (@iGroupKExternalInstall)
            @SetOutDriveSubDir(@qGroupKExternalInstall)
         @Else
            @SetOutPath("K")
         @Endif
         @DefineDisk
            @Label = "Disk 1"
            @BeginLib @GroupKRedFile
               @File *.*
            @EndLib
         @EndDisk
      @EndIf
      @If ((@StrFind(@qGroupsSet,"L") >= 0) && (@FileSize(@GroupLRedFile) != 0))
         @If (@iGroupLExternalInstall)
            @SetOutDriveSubDir(@qGroupLExternalInstall)
         @Else
            @SetOutPath("L")
         @Endif
         @DefineDisk
            @Label = "Disk 1"
            @BeginLib @GroupLRedFile
               @File *.*
            @EndLib
         @EndDisk
      @EndIf
      @If ((@StrFind(@qGroupsSet,"M") >= 0) && (@FileSize(@GroupMRedFile) != 0))
         @If (@iGroupMExternalInstall)
            @SetOutDriveSubDir(@qGroupMExternalInstall)
         @Else
            @SetOutPath("M")
         @Endif
         @DefineDisk
            @Label = "Disk 1"
            @BeginLib @GroupMRedFile
               @File *.*
            @EndLib
         @EndDisk
      @EndIf
      @If ((@StrFind(@qGroupsSet,"N") >= 0) && (@FileSize(@GroupNRedFile) != 0))
         @If (@iGroupNExternalInstall)
            @SetOutDriveSubDir(@qGroupNExternalInstall)
         @Else
            @SetOutPath("N")
         @Endif
         @DefineDisk
            @Label = "Disk 1"
            @BeginLib @GroupNRedFile
               @File *.*
            @EndLib
         @EndDisk
      @EndIf
      @If ((@StrFind(@qGroupsSet,"O") >= 0) && (@FileSize(@GroupORedFile) != 0))
         @If (@iGroupOExternalInstall)
            @SetOutDriveSubDir(@qGroupOExternalInstall)
         @Else
            @SetOutPath("O")
         @Endif
         @DefineDisk
            @Label = "Disk 1"
            @BeginLib @GroupORedFile
               @File *.*
            @EndLib
         @EndDisk
      @EndIf
      @If ((@StrFind(@qGroupsSet,"P") >= 0) && (@FileSize(@GroupPRedFile) != 0))
         @If (@iGroupPExternalInstall)
            @SetOutDriveSubDir(@qGroupPExternalInstall)
         @Else
            @SetOutPath("P")
         @Endif
         @DefineDisk
            @Label = "Disk 1"
            @BeginLib @GroupPRedFile
               @File *.*
            @EndLib
         @EndDisk
      @EndIf

      @If ((@StrFind(@qGroupsSet,"Q") >= 0) && (@FileSize(@GroupQRedFile) != 0))
@LoadBMPBillboard()
         @If (@iGroupQExternalInstall)
            @SetOutDriveSubDir(@qGroupQExternalInstall)
         @Else
            @SetOutPath("Q")
         @Endif
         @DefineDisk
            @Label = "Disk 1"
            @BeginLib @GroupQRedFile
               @File *.*
            @EndLib
         @EndDisk
      @EndIf
      @If ((@StrFind(@qGroupsSet,"R") >= 0) && (@FileSize(@GroupRRedFile) != 0))
         @If (@iGroupRExternalInstall)
            @SetOutDriveSubDir(@qGroupRExternalInstall)
         @Else
            @SetOutPath("R")
         @Endif
         @DefineDisk
            @Label = "Disk 1"
            @BeginLib @GroupRRedFile
               @File *.*
            @EndLib
         @EndDisk
      @EndIf
      @If ((@StrFind(@qGroupsSet,"S") >= 0) && (@FileSize(@GroupSRedFile) != 0))
         @If (@iGroupSExternalInstall)
            @SetOutDriveSubDir(@qGroupSExternalInstall)
         @Else
            @SetOutPath("S")
         @Endif
         @DefineDisk
            @Label = "Disk 1"
            @BeginLib @GroupSRedFile
               @File *.*
            @EndLib
         @EndDisk
      @EndIf
      @If ((@StrFind(@qGroupsSet,"T") >= 0) && (@FileSize(@GroupTRedFile) != 0))
         @If (@iGroupTExternalInstall)
            @SetOutDriveSubDir(@qGroupTExternalInstall)
         @Else
            @SetOutPath("T")
         @Endif
         @DefineDisk
            @Label = "Disk 1"
            @BeginLib @GroupTRedFile
               @File *.*
            @EndLib
         @EndDisk
      @EndIf
      @If ((@StrFind(@qGroupsSet,"U") >= 0) && (@FileSize(@GroupURedFile) != 0))
         @If (@iGroupUExternalInstall)
            @SetOutDriveSubDir(@qGroupUExternalInstall)
         @Else
            @SetOutPath("U")
         @Endif
         @DefineDisk
            @Label = "Disk 1"
            @BeginLib @GroupURedFile
               @File *.*
            @EndLib
         @EndDisk
      @EndIf
      @If ((@StrFind(@qGroupsSet,"V") >= 0) && (@FileSize(@GroupVRedFile) != 0))
         @If (@iGroupVExternalInstall)
            @SetOutDriveSubDir(@qGroupVExternalInstall)
         @Else
            @SetOutPath("V")
         @Endif
         @DefineDisk
            @Label = "Disk 1"
            @BeginLib @GroupVRedFile
               @File *.*
            @EndLib
         @EndDisk
      @EndIf
      @If ((@StrFind(@qGroupsSet,"W") >= 0) && (@FileSize(@GroupWRedFile) != 0))
         @If (@iGroupWExternalInstall)
            @SetOutDriveSubDir(@qGroupWExternalInstall)
         @Else
            @SetOutPath("W")
         @Endif
         @DefineDisk
            @Label = "Disk 1"
            @BeginLib @GroupWRedFile
               @File *.*
            @EndLib
         @EndDisk
      @EndIf

      @If ((@StrFind(@qGroupsSet,"X") >= 0) && (@FileSize(@GroupXRedFile) != 0))
@LoadBMPBillboard()
         @If (@iGroupXExternalInstall)
            @SetOutDriveSubDir(@qGroupXExternalInstall)
         @Else
            @SetOutPath("X")
         @Endif
         @DefineDisk
            @Label = "Disk 1"
            @BeginLib @GroupXRedFile
               @File *.*
            @EndLib
         @EndDisk
      @EndIf
      @If ((@StrFind(@qGroupsSet,"Y") >= 0) && (@FileSize(@GroupYRedFile) != 0))
         @If (@iGroupYExternalInstall)
            @SetOutDriveSubDir(@qGroupYExternalInstall)
         @Else
            @SetOutPath("Y")
         @Endif
         @DefineDisk
            @Label = "Disk 1"
            @BeginLib @GroupYRedFile
               @File *.*
            @EndLib
         @EndDisk
      @EndIf
      @If ((@StrFind(@qGroupsSet,"Z") >= 0) && (@FileSize(@GroupZRedFile) != 0))
         @If (@iGroupZExternalInstall)
            @SetOutDriveSubDir(@qGroupZExternalInstall)
         @Else
            @SetOutPath("Z")
         @Endif
         @DefineDisk
            @Label = "Disk 1"
            @BeginLib @GroupZRedFile
               @File *.*
            @EndLib
         @EndDisk
      @EndIf

      @CopyFilesExitPost()
      // Reset the groups that had been set
      @qGroupsSet = @CustomFeaturesToGroups(@qCustomFeatures)
      @SetGroupsString(@qGroupsSet)


   @Else    // !iMultipleRedFiles
      @If(@OptionGroupsNotEmpty(@qOption1Groups))
         @SetOutDriveSubdir(@qInstallPath1)
         @FlushOptions()
         @SetOption(1)
         @DefineDisk
            @Label = "Disk 1"
            @BeginLib @DataRED
                @File *.*
            @EndLib
         @EndDisk
      @EndIf

      @If(@OptionGroupsNotEmpty(@qOption2Groups))
         @SetOutDriveSubdir(@qInstallPath2)
         @FlushOptions()
         @SetOption(2)
         @DefineDisk
            @Label = "Disk 1"
            @BeginLib @DataRED
               @File *.*
            @EndLib
         @EndDisk
      @Endif

      @If(@OptionGroupsNotEmpty(@qOption3Groups))
         @SetOutDriveSubdir(@qInstallPath3)
         @FlushOptions()
         @SetOption(3)
         @DefineDisk
            @Label = "Disk 1"
            @BeginLib @DataRED
               @File *.*
            @EndLib
         @EndDisk
      @EndIf

      @If(@OptionGroupsNotEmpty(@qOption4Groups))
         @SetOutDriveSubdir(@qInstallPath4)
         @FlushOptions()
         @SetOption(4)
         @DefineDisk
            @Label = "Disk 1"
            @BeginLib @DataRED
               @File *.*
            @EndLib
         @EndDisk
      @EndIf

      @If(@OptionGroupsNotEmpty(@qOption5Groups))
         @SetOutDriveSubdir(@qInstallPath5)
         @FlushOptions()
         @SetOption(5)
         @DefineDisk
            @Label = "Disk 1"
            @BeginLib @DataRED
               @File *.*
            @EndLib
         @EndDisk
      @EndIf

      @If(@OptionGroupsNotEmpty(@qOption6Groups))
         @SetOutDriveSubdir(@qInstallPath6)
         @FlushOptions()
         @SetOption(6)
         @DefineDisk
            @Label = "Disk 1"
            @BeginLib @DataRED
               @File *.*
            @EndLib
         @EndDisk
      @EndIf

      @If(@OptionGroupsNotEmpty(@qOption7Groups))
         @SetOutDriveSubdir(@qInstallPath7)
         @FlushOptions()
         @SetOption(7)
         @DefineDisk
            @Label = "Disk 1"
            @BeginLib @DataRED
               @File *.*
            @EndLib
         @EndDisk
      @EndIf

      @If(@OptionGroupsNotEmpty(@qOption8Groups))
         @SetOutDriveSubdir(@qInstallPath8)
         @FlushOptions()
         @SetOption(8)
         @DefineDisk
            @Label = "Disk 1"
            @BeginLib @DataRED
               @File *.*
            @EndLib
         @EndDisk
      @EndIf

      @If(@OptionGroupsNotEmpty(@qOption9Groups))
         @SetOutDriveSubdir(@qInstallPath9)
         @FlushOptions()
         @SetOption(9)
         @DefineDisk
            @Label = "Disk 1"
            @BeginLib @DataRED
               @File *.*
            @EndLib
         @EndDisk
      @EndIf

      @If(@OptionGroupsNotEmpty(@qOption10Groups))
         @SetOutDriveSubdir(@qInstallPath10)
         @FlushOptions()
         @SetOption(10)
         @DefineDisk
            @Label = "Disk 1"
            @BeginLib @DataRED
               @File *.*
            @EndLib
         @EndDisk
      @EndIf

   @EndIf    // !iMultipleRedFiles

//   @EraseBMP(0)
 @EndIf     //  RebuildDeskTopMode
 @If (@UpdateMode)
    @WriteFixpakLevel()
    @Goto laReboot
 @EndIf


   @If (@AddMode)
      @qCustomFeatures = "@qCustomFeatures @qOldFeatures"
   @ElseIf (@RebuildIfNewerMode)
      @Goto laInstallExitPost
   @EndIf


laInstallSys:

   @LoadBMPMsg(@qwaitMSGBMPFile1)

//create the Install.sys file to contain installation information
   @If (@RebuildMode)
      @qInstallSysFileName = ""
   @EndIf
   @CreateInstallSys()

laSetDesk:
   @iFuncRes = @SetDesktop()

laRegisterProduct:
   @iFuncRes = @RegisterProduct()

   @LoadBMPBillboard()

laSetEnvironment:
   @iFuncRes = @SetEnvironment()

laSetProductVars:
   @iFuncRes = @SetProductVariables()

laWriteInstallOptions:
   @iFuncRes = @WriteInstallOptions()

laRegisterUninstall:
   @iFuncRes = @RegisterUninstall()

laRegisterART:   //register with IBM (ART)
   @iFuncRes = @RegisterART()

//
///////////////////////////// FINISH /////////////////////////////////
//
//----------------------------------------------------------
//??@Finish

laInstallExitPost:
   @InstallExitPost()

laFinish:
@ShowAll("MainLine:", "@@Finish not working")
   @If (!@iBypassReadme)
      @If(!@CIDBypass(@qForceReadme))
         @If(@Exists("@qInstallPath1\\@qReadmeFile"))
            @If(@Platform == @OS2)
               @OS2Exec("e.exe","@qInstallPath1\\@qReadmeFile","",1,3,"","",0,0,0,0,0,0)
            @Else
               @WinExec("notepad @qInstallPath1\\@qReadmeFile",1)  //1 means SW_SHOWNORMAL
            @EndIf
         @EndIf
      @EndIf
   @EndIf

laReboot:
   @CleanTemp()

   @iFuncRes = @AskReboot()
   @if     (@iAskReboot == 1)
      @ReBoot("",2)
   @elseif (@iAskReboot == 2)
      //Dont reboot
   @else
      @ErrorExit("@qAskRebootErrorMsg3",@iAbort)
   @endif

//   @EraseBMP(3)
//   @EraseBMP(2)
//   @EraseBMP(1)
//   @EraseBMP(0)

   @Abort
//   @Exit()
//??@EndFinish