home *** CD-ROM | disk | FTP | other *** search
/ MPC Wizard 3.0 / WIZARD3_0.ISO / drivers / graf_a_g / av_2301 / algul.inf < prev    next >
INI File  |  1994-07-27  |  17KB  |  623 lines
  1. DefineVariables
  2. Text [CompanyName] := AVANCE LOGIC, INC.
  3. Text [ProductName] := Avance Logic,Inc. ALG 2228/2301
  4. Logical [OfferInstallationDirectoryChoice] := Y
  5. Directory [DefaultInstallationDirectory] := \WIN\SYSTEM
  6. Directory [TempDirectory]
  7. Text [Bitmap1] := ali.bmp
  8. Text [TempDriveLetter]
  9. Text [ModifyMode] := MODIFY
  10. Number [MinimumFilesSetting] := 20
  11. Number [MinimumBuffersSetting] := 20
  12. Directory [ReadmeFileName]
  13. Logical [InquireAboutSystemFileLocation] := Y
  14. Logical [AskBeforeFileReplacement] := N
  15. Text [ExitMessage] := Thank again!
  16. Directory [ProgramToRun]
  17. Logical [AddInstallDirectoryToPath] := N
  18. Text [MinimumOSVersion]
  19. Number [MinimumSystemMemoryRequiredPresent]
  20. Number [SpaceWeNeedToInstall] := 700000
  21. Logical [AllowCGA] := N
  22. Logical [AllowMDA] := N
  23. Logical [Allow808x] := N
  24. Logical [Allow80286] := Y
  25. Logical [MathCoprocessorRecommended] := N
  26. Logical [FixedDiskRequired] := Y
  27. Text [NetWorkInstallation] := DisallowNetwork
  28. Logical [UseShadows] := Y
  29. Text [MainBorder] := None
  30. Text [PopupBorder] := Single
  31. Text [TopLine] := Installing Avance Logic 2228/2301 Resolutions
  32. Text [TopLineColors] := WhiteOnBrown
  33. Text [BottomLineColors] := WhiteOnLightGray
  34. Text [PopupColors] := WhiteOnCyan
  35. Text [AttentionColors] := WhiteOnRed
  36. Text [SpecialPopupColors] := WhiteOnBrown
  37. Text [Module1Name] := Windows 3.0
  38. Text [Module1Groups] := 1
  39. Text [Module1Description] := Windows 3.0 Drivers
  40. Text [Module2Name] := Windows 3.1
  41. Text [Module2Groups] := 2
  42. Text [Module2Description] := Windows 3.1 Drivers
  43. Text [ExpressSetupDescription]
  44. Text [CustomSetupDescription] := Please Sellect Which Which Windows Version
  45. Text [ExtractionOptions]
  46. ;; remaining variables are not initialized from external Script Data File
  47. Logical [NeedToTerminate] := N
  48. Logical [Installed] := N
  49. Text [DisplayAdapterSummary]
  50. Text [CPUTypeSummary]
  51. Text [NetworkActive]
  52. Text [MathCoprocessorStatus]
  53. Text [InstallationDriveSummary]
  54. Text [OSVersionSummary]
  55. Text [SystemMemorySummary]
  56. Logical [InsufficientSystem] := N
  57. Logical [CompatibilityNoticeGiven] := N
  58. Logical [NeedToModify] := N
  59. Text [PathTask]
  60. Text [BuffersTask]
  61. Text [FilesTask]
  62. Text [BackgroundCharacter] := B0
  63. Text [ScreenColors] := WhiteOnBlue
  64. Text [BottomLine]
  65. Number [Black]
  66. Number [White]
  67. Number [TempDirSpaceRequired] := 300000
  68. EndDefineVariables
  69. ;; Set up basic screen appearance since there will be a brief delay
  70. ;; before the external data is ready to use
  71. ;;SetScreenAttrTo Default
  72. ;;SetBackgroundCharTo [BackgroundCharacter]
  73. ;;ClearScreen
  74. ;;[TempDirectory] := [TempDriveLetter]:
  75.  
  76. Procedure Logo
  77. LoadBitMap 1 [InstallationDirectory]\[Bitmap1] @xy(Center,2)
  78. ShowBitMap 1
  79. EndProcedure
  80.  
  81. Do InstallSupportFiles
  82.  
  83. Procedure InstallSupportFiles
  84.        If DriveIsRemoveable [InstallFromDrive]
  85.          [InstallationDirectory] := [InstallFromDrive]:
  86.          SetMouseCursor Wait
  87.          Do Logo
  88.          Do Install
  89.          SetMouseCursor Arrow
  90.          Do InstallProgramGroup
  91.        Else
  92.            [InstallationDirectory] := [InstallFromDirectory]
  93.            If [InstallFromDirectory] Contains \ALGUL\
  94.              If FileExists [InstallFromDirectory]\V631P.DRV
  95.                 Dialog @xy(Center,Center) WhiteOnBlack
  96.                   Please copy windows drivers into another
  97.                   directory except [InstallFromDirectory]
  98.                 EndDialog
  99.                 SoLong Quietly
  100.              Else
  101.                Do Logo
  102.              EndIf
  103.            Else
  104.              SetMouseCursor Wait
  105.              Do Logo
  106.              Do Install
  107.              SetMouseCursor Wait
  108.              Do InstallProgramGroup
  109.            EndIf
  110.  
  111.         EndIf
  112. EndProcedure
  113.  
  114. Procedure InstallProgramGroup
  115.     Dialog [YesOrNo1] @xy(Center,Center) WhiteOnBlack UseHeader "INSTALL for Windows Program Manager Group"
  116.       Would you like to place INSTALL in a Windows program group?
  117.     EndDialog
  118.     If [YesOrNo1] = Y
  119.       BuildProgramGroup "Avance Logic 2228/2301-Resolutions" ALGUL.GRP
  120.         [TempDirectory]\WIN31UL.EXE "AvanceLogic,Inc 2228/2301"
  121.       EndBuildProgramGroup
  122.     EndIf
  123. EndProcedure
  124.  
  125.  
  126. Procedure Install
  127. [String1] := C
  128. [TempDriveLetter] := BlankString
  129. [Number1] := [TempDirSpaceRequired]
  130.  :CheckNextDrive
  131.  If [String1] > B
  132.   If DriveIsPresent [String1]
  133.    If DriveIsRemoveable [String1]
  134.     ;;do nothing
  135.    Else
  136.     If FreeSpaceOnDrive [String1] > [Number1]
  137.      [TempDriveLetter] := [String1]
  138.      [Number1] := FreeSpaceOnDrive [String1]
  139.  
  140.     Else
  141.        :NextDrive
  142.          IncrementString [String1]
  143.          If DriveIsCDROM [String1]
  144.            GoTo NextDrive
  145.          EndIf
  146.          If DriveIsRemote [String1]
  147.            GoTo NextDrive
  148.          EndIf
  149.       GoTo CheckNextDrive
  150.  
  151.     EndIf
  152.    EndIf
  153.   EndIf
  154.  EndIf
  155.  If [String1] = Z
  156.   GoTo ExitGetTempDir
  157.  EndIf
  158.  :ExitGetTempDir
  159. ;; ClearScreen
  160. ;; UpdateWindow
  161.  If [TempDriveLetter] = BlankString
  162.    Dialog @xy(Center,Center) UseHeader "Disk Space Error"
  163.     .LSorry, This Installation requires at least [TempDirSpaceRequired] bytes of Fixed Disk
  164.     .LSpace in order to successfully install!
  165.    EndDialog
  166.    SoLong
  167.  Else
  168.    [TempDirectory] := [TempDriveLetter]:\ALGUL
  169.    CreateDirectoryIfNecessary [TempDirectory]
  170.    Delay 2000
  171.    ;;ClearScreen
  172.    ;;UpdateWindow
  173.  EndIf
  174.  
  175.   SetReplacementInquiry off
  176.  TextBox @xy(Center,Center)
  177.    Copying Installation Files ...
  178.  EndTextBox
  179.   QueAllFiles to [WindowsSystemDirectory]
  180.   GetQuedFiles Quietly
  181.  
  182.   SetMouseCursor Wait
  183.   CopyFiles from [InstallationDirectory] to [TempDirectory] Quietly
  184.     ALI.BMP
  185.     ALGUL.INF
  186.     WIN31UL.EXE
  187.   EndCopyFiles
  188.   SetMouseCursor Wait
  189.   If FileExists [WindowsSystemDirectory]\OEM5.INF
  190.   SetMouseCursor Wait
  191.      DeleteFiles from [WindowsSystemDirectory] Quietly
  192.        OEM5.INF
  193.      EndDeleteFiles
  194.   EndIf
  195.   SetMouseCursor Wait
  196.   CopyFiles from [InstallationDirectory] to [WindowsSystemDirectory] Quietly
  197.     OEMALG.ALI
  198.   EndCopyFiles
  199.   If FileExists [WindowsSystemDirectory]\OEMALG.INF
  200.   SetMouseCursor Wait
  201.      DeleteFiles from [WindowsSystemDirectory] Quietly
  202.        OEMALG.INF
  203.      EndDeleteFiles
  204.      RenameFile [WindowsSystemDirectory]\OEMALG.ALI to OEMALG.INF
  205.   else
  206.   SetMouseCursor Wait
  207.      RenameFile [WindowsSystemDirectory]\OEMALG.ALI to OEMALG.INF
  208.   EndIf
  209.   ClearScreen
  210.   UpdateWindow
  211. EndProcedure
  212.  
  213. Do SetupInstalit
  214. ;;Do PrepareSystemReport
  215.  
  216. If [CommandLine1] = -ReplaceFiles
  217.   SetReplacementInquiry Off
  218. EndIf
  219. If [CommandLine2] = -ReplaceFiles
  220.   SetReplacementInquiry Off
  221. EndIf
  222. If [CommandLine3] = -ReplaceFiles
  223.   SetReplacementInquiry Off
  224. EndIf
  225.  
  226. If [InquireAboutSystemFileLocation] = NoCharacter
  227.   If DriveIsPresent [BootDrive]  ;; if not, COMSPEC has been changed
  228.     NoSysFileConfirmation
  229.   EndIf
  230. EndIf
  231.  
  232. If [AskBeforeFileReplacement] = NoCharacter
  233.   SetReplacementInquiry Off
  234. EndIf
  235.  
  236. ;;:Again
  237. ClearScreen
  238. TextBox @xy(0,4)
  239.   Thank you for purchasing
  240.   [ProductName].
  241. EndTextBox
  242. GetMenuChoice @xy(Center,10) UseHeader "MAIN MENU <Ver. 1.6>"
  243.   1024x768 256 Colors (L Font)
  244.   1024x768 256 Colors (S Font)
  245.   1024x768 16 Colors  (L Font) 
  246.   1024x768 16 Colors  (S Font) 
  247.   800x600 256 Colors
  248.   800x600 64K Colors
  249.   800x600 16 Colors
  250.   640x480 256 Colors
  251.   640x480 64K Colors
  252.   640x480 16M Colors
  253.   640x480 16 Colors (VGA)
  254.   1280x1024 16 Colors
  255.   1280x1024 256 Colors (2MB)
  256.   ;;1600x1200 16 Colors
  257. EndGetMenuChoice
  258.  
  259. ClearScreen
  260.  
  261. InCase choice is
  262.   =1:  Do ALI1KLNI
  263.   =2:  Do ALI1KSNI
  264. ;;  =3:  Do ALI1KLI
  265. ;;  =4:  Do ALI1KSI
  266.   =3:  Do ALI1KL16
  267.   =4:  Do ALI1KS16
  268.   =5:  Do ALI8
  269.   =6:  Do ALI864K
  270.   =7:  Do ALI816
  271.   =8:  Do ALI6
  272.   ;;=6:  Do ALI4
  273.   =9: Do ALI664K
  274.   =10: Do ALI16M
  275.   =11: Do ALIVGA
  276.   =12: Do ALI1280
  277.   =13: Do ALI12808
  278.   ;;=10:  Do ALI1600
  279.        ;;GoTo Continue
  280. EndInCase
  281.  
  282. ;;ChangeDirectoryTo [InstallationDirectory]
  283. ;;Run C:\ALI\PKUNZIP.EXE -o C:\ALI\[String1] NoPrompt
  284. Dialog [YesOrNo1] @xy(Center,Center) WhiteOnBlack
  285.     Would you like to RESTART WINDOWS ?
  286.     Choose YES to activate the change you made!
  287.     Or choose NO to keep unchanged and exit to
  288.     windows!
  289. EndDialog
  290. If [YesOrNo1] = Y
  291.   Do SetUp
  292.   ReBoot Windows
  293. else
  294.   SoLong Quietly
  295. EndIf
  296.  
  297. Procedure SetUp
  298. [Installed] := YesCharacter
  299. ModifyTextFile [WindowsDirectory]\SYSTEM.INI NoBackup
  300.  InSection [boot]
  301.   AddOrChangeLineWith (386grabber=,,) as "386grabber=[String1]" at Beginning
  302.   AddOrChangeLineWith (oemfonts.fon=,,oem) as "oemfonts.fon=[String2]" at Beginning
  303.   AddOrChangeLineWith (286grabber=,,) as "286grabber=[String3]" at Beginning
  304.   AddOrChangeLineWith (fixedfon.fon=,,) as "fixedfon.fon=[String4]" at Beginning
  305.   AddOrChangeLineWith (fonts.fon=,,sys) as "fonts.fon=[String5]" at Beginning
  306.   AddOrChangeLineWith (display.drv=,,.drv) as "display.drv=[String6]" at Beginning
  307.  InSection [boot.description]
  308.   AddOrChangeLineWith (aspect=,,) as "aspect=[String7]" at Beginning
  309.   AddOrChangeLineWith (display.drv=,,) as "display.drv=[String8]" at Beginning
  310.  InSection [386Enh]
  311.   AddOrChangeLineWith (display=,,) as "display=[String9]" at Beginning
  312. EndModifyTextFile
  313. If [String6] = avga800.drv
  314. else
  315.  If [String6] = al16M.DRV
  316.   else
  317.    If [String6] = avga1280.drv
  318.    else
  319.      ExamineTextFile [WindowsDirectory]\SYSTEM.INI
  320.      If [String6] Contains v631p.drv
  321.        [String13] := LineWith ([,v631P.drv,])
  322.        [Number1] := LineNumberWith ([,v631P.drv,])
  323.      else
  324.      If [String6] Contains al314p.drv
  325.        [String13] := LineWith ([,al314p.drv,])
  326.        [Number1] := LineNumberWith ([,al314p.drv,])
  327.      else
  328.        If [String6] Contains al3164p.drv
  329.          [String13] := LineWith ([,al3164p.drv,])
  330.          [Number1] := LineNumberWith ([,al3164p.drv,])
  331.        else
  332.          If [String6] Contains v631f8s.drv
  333.             [String13] := LineWith ([,v631f8s.drv,])
  334.             [Number1] := LineNumberWith ([,v631f8s.drv,])
  335.          Endif
  336.        EndIf
  337.        EndIf
  338.      EndIf
  339.      If [String13] = BlankString
  340.        AppendFile [WindowsDirectory]\SYSTEM.INI
  341.  
  342.          [[String6]]
  343.          [String10]
  344.          [String11]
  345.          [String12]
  346.        EndAppendFile
  347.      else
  348.        If [String13] Contains [String6]
  349.        IncrementNumber [Number1]
  350.     :Check
  351.        ExamineTextFile [WindowsDirectory]\SYSTEM.INI
  352.        [String13] := Line [Number1]
  353.        If [String13] = BlankString
  354.          ModifyTextFile [WindowsDirectory]\SYSTEM.INI NoBackup
  355.            InSection [[String6]]
  356.              InsertAtLine 1 [String10]
  357.              InsertAtLine 2 [String11]
  358.              InsertAtLine 3 [String12]
  359.          EndModifyTextFile
  360.        else
  361.          If [String13] Contains [
  362.            ModifyTextFile [WindowsDirectory]\SYSTEM.INI NoBackup
  363.              InSection [[String6]]
  364.                InsertAtLine 1 [String10]
  365.                InsertAtLine 2 [String11]
  366.                InsertAtLine 3 [String12]
  367.                InsertAtLine 4
  368.            EndModifyTextFile
  369.          else
  370.            ModifyTextFile [WindowsDirectory]\SYSTEM.INI NoBackup
  371.              DeleteLine [Number1]
  372.            EndModifyTextFile
  373.            GoTo Check
  374.          EndIf
  375.        EndIf
  376.      EndIf
  377.    EndIf
  378.  EndIf
  379. EndIf
  380. EndIf
  381. EndProcedure
  382. ;;:Continue
  383. ;;GoTo Again
  384.  
  385. Procedure ALI1KLNI
  386.  Do Same
  387.  [String2] := 8514oem.fon
  388.  [String4] := 8514fix.fon
  389.  [String5] := 8514sys.fon
  390.  [String6] := v631P.drv   
  391.  [String7] := 100,120,120
  392.  [String8] := ALG 2228/2301,1024x768 256C(L Font)
  393.  [String11] := FontSize=large
  394.  [String12] := WidthXHeight=1024x768
  395. EndProcedure
  396.  
  397. Procedure ALI1KSNI
  398.  Do Same
  399.  Do Same1
  400.  [String6] := v631P.drv   
  401.  [String7] := 100,96,96
  402.  [String8] := ALG 2228/2301,1024x768 256C ( S Font )
  403.  [String11] := FontSize=small
  404.  [String12] := WidthXHeight=1024x768
  405. EndProcedure
  406.  
  407. Procedure ALI1KLI
  408.  Do Same
  409.  [String2] := 8514oem.fon
  410.  [String4] := 8514fix.fon
  411.  [String5] := 8514sys.fon
  412.  [String6] := v631p.drv
  413.  [String7] := 100,120,120
  414.  [String8] := ALG 2228/2301,1024x768 256C (L Font )
  415.  [String10] := EnableHwCursor=1
  416.  [String11] := FontSize=large
  417.  [String12] := WidthXHeight=1024x768
  418. EndProcedure
  419.  
  420. Procedure ALI1KSI
  421.  Do Same
  422.  Do Same1
  423.  [String6] := v631P.drv   
  424.  [String7] := 100,96,96
  425.  [String8] := ALG 2228/2301,1024x768 256C ( S Font ) 
  426.  [String10] := EnableHwCursor=1
  427.  [String11] := FontSize=small
  428.  [String12] := WidthXHeight=1024x768
  429. EndProcedure
  430.  
  431. Procedure ALI1KL16
  432.  Do Same
  433.  [String2] := 8514oem.fon
  434.  [String4] := 8514fix.fon
  435.  [String5] := 8514sys.fon
  436.  [String6] := al314p.drv
  437.  [String7] := 100,120,120
  438.  [String8] := ALG 2228/2301, 1024x768 16C ( L Font )
  439.  [String11] := FontSize=large
  440.  [String12] := WidthXHeight=1024x768
  441. EndProcedure
  442.  
  443. Procedure ALI1KS16
  444.  Do Same
  445.  Do Same1
  446.  [String6] := al314p.drv
  447.  [String7] := 100,96,96
  448.  [String8] := ALG 2228/2301, 1024x768 16C ( S Font )
  449.  [String11] := FontSize=small
  450.  [String12] := WidthXHeight=1024x768
  451. EndProcedure
  452.  
  453.  
  454. Procedure ALI8
  455.  Do Same
  456.  Do Same1
  457.  [String6] := v631P.drv
  458.  [String7] := 100,96,96
  459.  [String8] := ALG 2228/2301, 800x600 256C
  460.  [String10] := EnableHwCursor=1
  461.  [String11] := FontSize=small
  462.  [String12] := WidthXHeight=800x600
  463. EndProcedure
  464.  
  465. Procedure ALI6
  466.  Do Same
  467.  Do Same1
  468.  [String6] := v631P.drv
  469.  [String7] := 100,96,96
  470.  [String8] := ALG 2228/2301, 640x480 256C
  471.  [String10] := EnableHwCursor=1
  472.  [String11] := FontSize=small
  473.  [String12] := WidthXHeight=640x480
  474. EndProcedure
  475.  
  476. Procedure ALI816
  477.  Do Same
  478.  Do Same1
  479.  [String6] := avga800.drv
  480.  [String7] := 100,96,96
  481.  [String8] := ALG 2228/2301, 800x600 16C
  482. EndProcedure
  483.  
  484. Procedure ALI4
  485.  Do Same
  486.  Do Same1
  487.  [String7] := 100,96,96
  488.  [String8] := ALG 2228/2301, 640x400 256C
  489.  [String11] := FontSize=small
  490.  [String12] := WidthXHeight=640x400
  491. EndProcedure
  492.  
  493. Procedure ALI864K
  494.  Do Same
  495.  Do Same1
  496.  [String6] := al3164p.drv
  497.  [String7] := 100,96,96
  498.  [String8] := ALG 2228/2301, 800x600 64KC
  499.  [String10] := EnableHwCursor=0
  500.  [String11] := FontSize=small
  501.  [String12] := WidthXHeight=800x600
  502. EndProcedure
  503.  
  504. Procedure ALI664K
  505.  Do Same
  506.  Do Same1
  507.  [String6] := al3164p.drv
  508.  [String7] := 100,96,96
  509.  [String8] := ALG 2228/2301, 640x480 64KC
  510.  [String10] := EnableHwCursor=0
  511.  [String11] := FontSize=small
  512.  [String12] := WidthXHeight=640x480
  513. EndProcedure
  514.  
  515. Procedure ALI16M
  516.  Do Same
  517.  Do Same1
  518.  [String6] := al16m.DRV
  519.  [String7] := 100,96,96
  520.  [String8] := ALG 2228/2301, 640x480 16MC
  521. EndProcedure
  522.  
  523. Procedure ALI1280
  524.  Do Same
  525.  [String2] := 8514oem.fon
  526.  [String4] := 8514fix.fon
  527.  [String5] := 8514sys.fon
  528.  [String6] := avga1280.drv
  529.  [String7] := 100,120,120
  530.  [String8] := ALG 2228/2301, 1280x1024 16C
  531. EndProcedure
  532.  
  533. Procedure ALI12808
  534.  Do Same
  535.  [String2] := 8514oem.fon
  536.  [String4] := 8514fix.fon
  537.  [String5] := 8514sys.fon
  538.  [String6] := v631f8s.drv
  539.  [String7] := 100,120,120
  540.  [String8] := ALG 2228/2301,1280x1024 256C(2MB)
  541.  [String10] := EnableHwCursor=0
  542.  [String11] := FontSize=large
  543.  [String12] := WidthXHeight=1280x1024
  544. EndProcedure
  545.  
  546. Procedure ALIVGA
  547.  Do Same
  548.  Do Same1
  549.  [String6] := VGA.DRV
  550.  [String7] := 100,96,96
  551.  [String8] := ALG 2228/2301, 640x480 16C
  552. EndProcedure
  553.  
  554.  
  555.  
  556.  
  557. Procedure ALI1600
  558.  Do Same
  559.  [String2] := 8514oem.fon
  560.  [String4] := 8514fix.fon
  561.  [String5] := 8514sys.fon
  562.  [String6] := avs1600.drv
  563.  [String9] := alvddpci.386
  564.  [String7] := 100,120,120
  565.  [String8] := ALG 2228/2301, 1600x1200 16C
  566. EndProcedure
  567.  
  568. Procedure Same
  569.  [String1] :=alvga.3gr
  570.  [String3] := vgacolor.2gr
  571. ;;;;;; [String6] := v631p.drv
  572.  [String9] := alvddpci.386
  573.  [String10] := EnableHwCursor=1
  574. EndProcedure
  575.  
  576. Procedure Same1
  577.  [String2] := vgaoem.fon
  578.  [String4] := vgafix.fon
  579.  [String5] := vgasys.fon
  580. EndProcedure
  581.  
  582. Procedure ExitInstallation
  583. ClearScreen
  584. If [Installed] = YesCharacter
  585.   Dialog ;; Final Farewell
  586.     Thanks for using [ProductName]!
  587.     After exit, Please change to your Windows
  588.     Directory and run SETUP to select the
  589.     screen resolution you want!
  590.   EndDialog
  591. else
  592.   Dialog ;; Final Farewell
  593.     Thanks for using [ProductName]!
  594.   EndDialog
  595. EndIf
  596. SoLong
  597. EndProcedure
  598.  
  599. Procedure SetupInstalit
  600.   SetCoordinatesTo 80x25
  601.   If [UseShadows] = YesCharacter
  602.     SetShadows On
  603.   else
  604.     SetShadows Off
  605.   EndIf
  606.   If [InquireAboutSystemFileLocation] = NoCharacter
  607.     NoSysFileConfirmation
  608.   EndIf
  609.   [Black] := RGB(0,0,0)
  610.   [White] := RGB(255,255,255)
  611.   ;;SetMainBorderTo     [MainBorder]
  612.   SetPopupBorderTo    [PopupBorder]
  613.   SetModifyModeTo     [ModifyMode]
  614.   ;;SetShadowAttrTo     DarkGrayOnBlack
  615.   ;;SetScreenAttrTo [White]On[Black]
  616.   ;;SetPopupAttrTo      [PopupColors]
  617.   SetAttentionAttrTo  [AttentionColors]
  618.   ;;SetTopLineAttrTo WhiteOnBrown
  619.   SetTopLineTo        [TopLine]
  620.   ;;SetExitMessageTo "Installation complete!"
  621.   ;;SetAllowExit
  622. EndProcedure
  623.