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]\v631pf.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]\WIN31UL.EXE "AvanceLogic,Inc 2228/2301"
      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
 TextBox @xy(Center,Center)
   Copying Installation Files ...
 EndTextBox
  QueAllFiles to [WindowsSystemDirectory]
  GetQuedFiles Quietly

  SetMouseCursor Wait
  CopyFiles from [InstallationDirectory] to [TempDirectory] Quietly
    ALI.BMP
    ALGUL.INF
    WIN31UL.EXE
  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

;;:Again
ClearScreen
TextBox @xy(0,4)
  Thank you for purchasing
  [ProductName].
EndTextBox
GetMenuChoice @xy(Center,10) UseHeader "MAIN MENU <Ver. 1.5F>"
  1024x768 256 Colors (L Font)
  1024x768 256 Colors (S Font)
  1024x768 16 Colors  (L Font) 
  1024x768 16 Colors  (S Font) 
  800x600 256 Colors
  800x600 64K Colors
  800x600 16 Colors
  640x480 256 Colors
  640x480 64K Colors
  640x480 16M Colors
  640x480 16 Colors (VGA)
  1280x1024 16 Colors
  1280x1024 256 Colors (2MB)
  ;;1600x1200 16 Colors
EndGetMenuChoice

ClearScreen

InCase choice is
  =1:  Do ALI1KLNI
  =2:  Do ALI1KSNI
;;  =3:  Do ALI1KLI
;;  =4:  Do ALI1KSI
  =3:  Do ALI1KL16
  =4:  Do ALI1KS16
  =5:  Do ALI8
  =6:  Do ALI864K
  =7:  Do ALI816
  =8:  Do ALI6
  ;;=6:  Do ALI4
  =9: Do ALI664K
  =10: Do ALI16M
  =11: Do ALIVGA
  =12: Do ALI1280
  =13: Do ALI12808
  ;;=10:  Do ALI1600
       ;;GoTo Continue
EndInCase

;;ChangeDirectoryTo [InstallationDirectory]
;;Run C:\ALI\PKUNZIP.EXE -o C:\ALI\[String1] NoPrompt
Dialog [YesOrNo1] @xy(Center,Center) WhiteOnBlack
    Would you like to RESTART WINDOWS ?
    Choose YES to activate the change you made!
    Or choose NO to keep unchanged and exit to
    windows!
EndDialog
If [YesOrNo1] = Y
  Do SetUp
  ReBoot Windows
else
  SoLong Quietly
EndIf

Procedure SetUp
[Installed] := YesCharacter
ModifyTextFile [WindowsDirectory]\SYSTEM.INI NoBackup
 InSection [boot]
  AddOrChangeLineWith (386grabber=,,) as "386grabber=[String1]" at Beginning
  AddOrChangeLineWith (oemfonts.fon=,,oem) as "oemfonts.fon=[String2]" at Beginning
  AddOrChangeLineWith (286grabber=,,) as "286grabber=[String3]" at Beginning
  AddOrChangeLineWith (fixedfon.fon=,,) as "fixedfon.fon=[String4]" at Beginning
  AddOrChangeLineWith (fonts.fon=,,sys) as "fonts.fon=[String5]" at Beginning
  AddOrChangeLineWith (display.drv=,,.drv) as "display.drv=[String6]" at Beginning
 InSection [boot.description]
  AddOrChangeLineWith (aspect=,,) as "aspect=[String7]" at Beginning
  AddOrChangeLineWith (display.drv=,,) as "display.drv=[String8]" at Beginning
 InSection [386Enh]
  AddOrChangeLineWith (display=,,) as "display=[String9]" at Beginning
EndModifyTextFile
If [String6] = avga800.drv
else
 If [String6] = al16mf.DRV
  else
   If [String6] = avga1280.drv
   else
     ExamineTextFile [WindowsDirectory]\SYSTEM.INI
     If [String6] Contains v631pf.drv
       [String13] := LineWith ([,v631pf.drv,])
       [Number1] := LineNumberWith ([,v631pf.drv,])
     else
     If [String6] Contains al314p.drv
       [String13] := LineWith ([,al314p.drv,])
       [Number1] := LineNumberWith ([,al314p.drv,])
     else
       If [String6] Contains al3164pf.drv
         [String13] := LineWith ([,al3164pf.drv,])
         [Number1] := LineNumberWith ([,al3164pf.drv,])
       else
         If [String6] Contains v631f8s.drv
            [String13] := LineWith ([,v631f8s.drv,])
            [Number1] := LineNumberWith ([,v631f8s.drv,])
         Endif
       EndIf
       EndIf
     EndIf
     If [String13] = BlankString
       AppendFile [WindowsDirectory]\SYSTEM.INI

         [[String6]]
         [String10]
         [String11]
         [String12]
       EndAppendFile
     else
       If [String13] Contains [String6]
       IncrementNumber [Number1]
    :Check
       ExamineTextFile [WindowsDirectory]\SYSTEM.INI
       [String13] := Line [Number1]
       If [String13] = BlankString
         ModifyTextFile [WindowsDirectory]\SYSTEM.INI NoBackup
           InSection [[String6]]
             InsertAtLine 1 [String10]
             InsertAtLine 2 [String11]
             InsertAtLine 3 [String12]
         EndModifyTextFile
       else
         If [String13] Contains [
           ModifyTextFile [WindowsDirectory]\SYSTEM.INI NoBackup
             InSection [[String6]]
               InsertAtLine 1 [String10]
               InsertAtLine 2 [String11]
               InsertAtLine 3 [String12]
               InsertAtLine 4
           EndModifyTextFile
         else
           ModifyTextFile [WindowsDirectory]\SYSTEM.INI NoBackup
             DeleteLine [Number1]
           EndModifyTextFile
           GoTo Check
         EndIf
       EndIf
     EndIf
   EndIf
 EndIf
EndIf
EndIf
EndProcedure
;;:Continue
;;GoTo Again

Procedure ALI1KLNI
 Do Same
 [String2] := 8514oem.fon
 [String4] := 8514fix.fon
 [String5] := 8514sys.fon
 [String6] := v631pf.drv   
 [String7] := 100,120,120
 [String8] := ALG 2228/2301,1024x768 256C(L Font)
 [String11] := FontSize=large
 [String12] := WidthXHeight=1024x768
EndProcedure

Procedure ALI1KSNI
 Do Same
 Do Same1
 [String6] := v631pf.drv   
 [String7] := 100,96,96
 [String8] := ALG 2228/2301,1024x768 256C ( S Font )
 [String11] := FontSize=small
 [String12] := WidthXHeight=1024x768
EndProcedure

Procedure ALI1KLI
 Do Same
 [String2] := 8514oem.fon
 [String4] := 8514fix.fon
 [String5] := 8514sys.fon
 [String6] := v631pf.drv
 [String7] := 100,120,120
 [String8] := ALG 2228/2301,1024x768 256C (L Font )
 [String10] := EnableHwCursor=1
 [String11] := FontSize=large
 [String12] := WidthXHeight=1024x768
EndProcedure

Procedure ALI1KSI
 Do Same
 Do Same1
 [String6] := v631pf.drv   
 [String7] := 100,96,96
 [String8] := ALG 2228/2301,1024x768 256C ( S Font ) 
 [String10] := EnableHwCursor=1
 [String11] := FontSize=small
 [String12] := WidthXHeight=1024x768
EndProcedure

Procedure ALI1KL16
 Do Same
 [String2] := 8514oem.fon
 [String4] := 8514fix.fon
 [String5] := 8514sys.fon
 [String6] := al314p.drv
 [String7] := 100,120,120
 [String8] := ALG 2228/2301, 1024x768 16C ( L Font )
 [String11] := FontSize=large
 [String12] := WidthXHeight=1024x768
EndProcedure

Procedure ALI1KS16
 Do Same
 Do Same1
 [String6] := al314p.drv
 [String7] := 100,96,96
 [String8] := ALG 2228/2301, 1024x768 16C ( S Font )
 [String11] := FontSize=small
 [String12] := WidthXHeight=1024x768
EndProcedure


Procedure ALI8
 Do Same
 Do Same1
 [String6] := v631pf.drv
 [String7] := 100,96,96
 [String8] := ALG 2228/2301, 800x600 256C
 [String10] := EnableHwCursor=1
 [String11] := FontSize=small
 [String12] := WidthXHeight=800x600
EndProcedure

Procedure ALI6
 Do Same
 Do Same1
 [String6] := v631pf.drv
 [String7] := 100,96,96
 [String8] := ALG 2228/2301, 640x480 256C
 [String10] := EnableHwCursor=1
 [String11] := FontSize=small
 [String12] := WidthXHeight=640x480
EndProcedure

Procedure ALI816
 Do Same
 Do Same1
 [String6] := avga800.drv
 [String7] := 100,96,96
 [String8] := ALG 2228/2301, 800x600 16C
EndProcedure

Procedure ALI4
 Do Same
 Do Same1
 [String7] := 100,96,96
 [String8] := ALG 2228/2301, 640x400 256C
 [String11] := FontSize=small
 [String12] := WidthXHeight=640x400
EndProcedure

Procedure ALI864K
 Do Same
 Do Same1
 [String6] := al3164pf.drv
 [String7] := 100,96,96
 [String8] := ALG 2228/2301, 800x600 64KC
 [String10] := EnableHwCursor=0
 [String11] := FontSize=small
 [String12] := WidthXHeight=800x600
EndProcedure

Procedure ALI664K
 Do Same
 Do Same1
 [String6] := al3164pf.drv
 [String7] := 100,96,96
 [String8] := ALG 2228/2301, 640x480 64KC
 [String10] := EnableHwCursor=0
 [String11] := FontSize=small
 [String12] := WidthXHeight=640x480
EndProcedure

Procedure ALI16M
 Do Same
 Do Same1
 [String6] := al16mf.DRV
 [String7] := 100,96,96
 [String8] := ALG 2228/2301, 640x480 16MC
EndProcedure

Procedure ALI1280
 Do Same
 [String2] := 8514oem.fon
 [String4] := 8514fix.fon
 [String5] := 8514sys.fon
 [String6] := avga1280.drv
 [String7] := 100,120,120
 [String8] := ALG 2228/2301, 1280x1024 16C
EndProcedure

Procedure ALI12808
 Do Same
 [String2] := 8514oem.fon
 [String4] := 8514fix.fon
 [String5] := 8514sys.fon
 [String6] := v631f8s.drv
 [String7] := 100,120,120
 [String8] := ALG 2228/2301,1280x1024 256C(2MB)
 [String10] := EnableHwCursor=0
 [String11] := FontSize=large
 [String12] := WidthXHeight=1280x1024
EndProcedure

Procedure ALIVGA
 Do Same
 Do Same1
 [String6] := VGA.DRV
 [String7] := 100,96,96
 [String8] := ALG 2228/2301, 640x480 16C
EndProcedure




Procedure ALI1600
 Do Same
 [String2] := 8514oem.fon
 [String4] := 8514fix.fon
 [String5] := 8514sys.fon
 [String6] := avs1600.drv
 [String9] := alvddpci.386
 [String7] := 100,120,120
 [String8] := ALG 2228/2301, 1600x1200 16C
EndProcedure

Procedure Same
 [String1] :=alvga.3gr
 [String3] := vgacolor.2gr
;;;;;; [String6] := v631pf.drv
 [String9] := alvddpci.386
 [String10] := EnableHwCursor=1
EndProcedure

Procedure Same1
 [String2] := vgaoem.fon
 [String4] := vgafix.fon
 [String5] := vgasys.fon
EndProcedure

Procedure ExitInstallation
ClearScreen
If [Installed] = YesCharacter
  Dialog ;; Final Farewell
    Thanks for using [ProductName]!
    After exit, Please change to your Windows
    Directory and run SETUP to select the
    screen resolution you want!
  EndDialog
else
  Dialog ;; Final Farewell
    Thanks for using [ProductName]!
  EndDialog
EndIf
SoLong
EndProcedure

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