DefineVariables
Text [CompanyName] := AVANCE LOGIC, INC.
Text [ProductName] := Avance Logic,Inc. ALG 2228/2301
Logical [OfferInstallationDirectoryChoice] := Y
Directory [DefaultInstallationDirectory] := \WIN\SYSTEM
Directory [TempDirectory]
Text [Bitmap1] := ali.bmp
Text [TempDriveLetter]
Text [ModifyMode] := MODIFY
Number [MinimumFilesSetting] := 20
Number [MinimumBuffersSetting] := 20
Directory [ReadmeFileName]
Logical [InquireAboutSystemFileLocation] := Y
Logical [AskBeforeFileReplacement] := N
Text [ExitMessage] := Thank again!
Directory [ProgramToRun]
Logical [AddInstallDirectoryToPath] := N
Text [MinimumOSVersion]
Number [MinimumSystemMemoryRequiredPresent]
Number [SpaceWeNeedToInstall] := 700000
Logical [AllowCGA] := N
Logical [AllowMDA] := N
Logical [Allow808x] := N
Logical [Allow80286] := Y
Logical [MathCoprocessorRecommended] := N
Logical [FixedDiskRequired] := Y
Text [NetWorkInstallation] := DisallowNetwork
Logical [UseShadows] := Y
Text [MainBorder] := None
Text [PopupBorder] := Single
Text [TopLine] := Installing Avance Logic 2228/2301 Resolutions
Text [TopLineColors] := WhiteOnBrown
Text [BottomLineColors] := WhiteOnLightGray
Text [PopupColors] := WhiteOnCyan
Text [AttentionColors] := WhiteOnRed
Text [SpecialPopupColors] := WhiteOnBrown
Text [Module1Name] := Windows 3.0
Text [Module1Groups] := 1
Text [Module1Description] := Windows 3.0 Drivers
Text [Module2Name] := Windows 3.1
Text [Module2Groups] := 2
Text [Module2Description] := Windows 3.1 Drivers
Text [ExpressSetupDescription]
Text [CustomSetupDescription] := Please Sellect Which Which Windows Version
Text [ExtractionOptions]
;; remaining variables are not initialized from external Script Data File
Logical [NeedToTerminate] := N
Logical [Installed] := N
Text [DisplayAdapterSummary]
Text [CPUTypeSummary]
Text [NetworkActive]
Text [MathCoprocessorStatus]
Text [InstallationDriveSummary]
Text [OSVersionSummary]
Text [SystemMemorySummary]
Logical [InsufficientSystem] := N
Logical [CompatibilityNoticeGiven] := N
Logical [NeedToModify] := N
Text [PathTask]
Text [BuffersTask]
Text [FilesTask]
Text [BackgroundCharacter] := B0
Text [ScreenColors] := WhiteOnBlue
Text [BottomLine]
Number [Black]
Number [White]
Number [TempDirSpaceRequired] := 300000
EndDefineVariables
;; Set up basic screen appearance since there will be a brief delay
;; before the external data is ready to use
;;SetScreenAttrTo Default
;;SetBackgroundCharTo [BackgroundCharacter]
;;ClearScreen
;;[TempDirectory] := [TempDriveLetter]:

Procedure Logo
LoadBitMap 1 [InstallationDirectory]\[Bitmap1] @xy(Center,2)
ShowBitMap 1
EndProcedure

Do InstallSupportFiles

Procedure InstallSupportFiles
       If DriveIsRemoveable [InstallFromDrive]
         [InstallationDirectory] := [InstallFromDrive]:
         SetMouseCursor Wait
         Do Logo
         Do Install
         SetMouseCursor Arrow
         Do InstallProgramGroup
       Else
           [InstallationDirectory] := [InstallFromDirectory]
           If [InstallFromDirectory] Contains \ALGUL\
             If FileExists [InstallFromDirectory]\V631P.DRV
                Dialog @xy(Center,Center) WhiteOnBlack
                  Please copy windows drivers into another
                  directory except [InstallFromDirectory]
                EndDialog
                SoLong Quietly
             Else
               Do Logo
             EndIf
           Else
             SetMouseCursor Wait
             Do Logo
             Do Install
             SetMouseCursor Wait
             Do InstallProgramGroup
           EndIf

        EndIf
EndProcedure

Procedure InstallProgramGroup
    Dialog [YesOrNo1] @xy(Center,Center) WhiteOnBlack UseHeader "INSTALL for Windows Program Manager Group"
      Would you like to place INSTALL in a Windows program group?
   EndDialog
   If [YesOrNo1] = Y
      BuildProgramGroup "Avance Logic 2228/2301-Resolutions" ALGUL.GRP
        [TempDirectory]\VMASTER.EXE "AvanceLogic,Inc 2228/2301"
        [TempDirectory]\VPM.EXE
      EndBuildProgramGroup
   EndIf
EndProcedure


Procedure Install
[String1] := C
[TempDriveLetter] := BlankString
[Number1] := [TempDirSpaceRequired]
 :CheckNextDrive
 If [String1] > B
  If DriveIsPresent [String1]
   If DriveIsRemoveable [String1]
    ;;do nothing
   Else
    If FreeSpaceOnDrive [String1] > [Number1]
     [TempDriveLetter] := [String1]
     [Number1] := FreeSpaceOnDrive [String1]

    Else
       :NextDrive
         IncrementString [String1]
         If DriveIsCDROM [String1]
           GoTo NextDrive
         EndIf
         If DriveIsRemote [String1]
           GoTo NextDrive
         EndIf
      GoTo CheckNextDrive

    EndIf
   EndIf
  EndIf
 EndIf
 If [String1] = Z
  GoTo ExitGetTempDir
 EndIf
 :ExitGetTempDir
;; ClearScreen
;; UpdateWindow
 If [TempDriveLetter] = BlankString
   Dialog @xy(Center,Center) UseHeader "Disk Space Error"
    .LSorry, This Installation requires at least [TempDirSpaceRequired] bytes of Fixed Disk
    .LSpace in order to successfully install!
   EndDialog
   SoLong
 Else
   [TempDirectory] := [TempDriveLetter]:\ALGUL
   CreateDirectoryIfNecessary [TempDirectory]
   Delay 2000
   ;;ClearScreen
   ;;UpdateWindow
 EndIf

  SetReplacementInquiry off
  SetMouseCursor Wait
 TextBox @xy(Center,Center)
   Copying Installation Files ...
 EndTextBox
 ;; QueAllFiles to [WindowsSystemDirectory]
  QueFileGroup 1 to [WindowsSystemDirectory]
  GetQuedFiles Quietly

  SetMouseCursor Wait
  QueFileGroup 2 to [TempDirectory] Quietly
  GetQuedFiles Quietly
  CopyFiles from [InstallationDirectory] to [TempDirectory] Quietly
    VMASTER.EXE
    CTL3D.DLL
    VPM.EXE
    VPMDLL.DLL
  EndCopyFiles
  SetMouseCursor Wait
  If FileExists [WindowsSystemDirectory]\OEM5.INF
  SetMouseCursor Wait
     DeleteFiles from [WindowsSystemDirectory] Quietly
       OEM5.INF
     EndDeleteFiles
  EndIf
  SetMouseCursor Wait
  CopyFiles from [InstallationDirectory] to [WindowsSystemDirectory] Quietly
    OEMALG.ALI
  EndCopyFiles
  If FileExists [WindowsSystemDirectory]\OEMALG.INF
  SetMouseCursor Wait
     DeleteFiles from [WindowsSystemDirectory] Quietly
       OEMALG.INF
     EndDeleteFiles
     RenameFile [WindowsSystemDirectory]\OEMALG.ALI to OEMALG.INF
  else
  SetMouseCursor Wait
     RenameFile [WindowsSystemDirectory]\OEMALG.ALI to OEMALG.INF
  EndIf
  ClearScreen
  UpdateWindow
EndProcedure

Do SetupInstalit
;;Do PrepareSystemReport

If [CommandLine1] = -ReplaceFiles
  SetReplacementInquiry Off
EndIf
If [CommandLine2] = -ReplaceFiles
  SetReplacementInquiry Off
EndIf
If [CommandLine3] = -ReplaceFiles
  SetReplacementInquiry Off
EndIf

If [InquireAboutSystemFileLocation] = NoCharacter
  If DriveIsPresent [BootDrive]  ;; if not, COMSPEC has been changed
    NoSysFileConfirmation
  EndIf
EndIf

If [AskBeforeFileReplacement] = NoCharacter
  SetReplacementInquiry Off
EndIf
SoLong

Procedure SetupInstalit
  SetCoordinatesTo 80x25
  If [UseShadows] = YesCharacter
    SetShadows On
  else
    SetShadows Off
  EndIf
  If [InquireAboutSystemFileLocation] = NoCharacter
    NoSysFileConfirmation
  EndIf
  [Black] := RGB(0,0,0)
  [White] := RGB(255,255,255)
  ;;SetMainBorderTo     [MainBorder]
  SetPopupBorderTo    [PopupBorder]
  SetModifyModeTo     [ModifyMode]
  ;;SetShadowAttrTo     DarkGrayOnBlack
  ;;SetScreenAttrTo [White]On[Black]
  ;;SetPopupAttrTo      [PopupColors]
  SetAttentionAttrTo  [AttentionColors]
  ;;SetTopLineAttrTo WhiteOnBrown
  SetTopLineTo        [TopLine]
  ;;SetExitMessageTo "Installation complete!"
  ;;SetAllowExit
EndProcedure