home *** CD-ROM | disk | FTP | other *** search
/ Chip: Special Sound & MIDI / Chip-Special_Sound-und-Midi-auf-dem-PC.bin / dostools / gravis / gussdk.inf < prev    next >
INI File  |  1993-05-25  |  11KB  |  376 lines
  1. ;;===========================================================================
  2. ;;            Title:     Gravis UltraSound SDK Install
  3. ;;            Version:   2.01
  4. ;;            Date:      05/20/93
  5. ;;
  6. ;; Revision History
  7. ;; 05/20/93 - First Install - Use the same script as the V2.06 disks but
  8. ;;            strip out all the unnecessary stuff.
  9. ;;
  10. ;;===========================================================================
  11.  
  12. ;;  -----------------
  13. ;;    What Variables Are Used For
  14. ;;  -----------------
  15. ;;   [Dir1]     <UNUSED>
  16. ;;   [Dir2]     Install From Drive Letter
  17. ;;   [Dir3]     Where README is Located
  18. ;;   [Dir4]     <UNUSED>
  19. ;;   [Dir5]     <UNUSED>
  20. ;;   [Dir6]     <UNUSED>
  21. ;;   [Dir7]     <UNUSED>
  22. ;;   [Dir8]     <UNUSED>
  23. ;;   [Dir9]     <UNUSED>
  24.  
  25. ;;   [Number1]  <UNUSED>
  26. ;;   [Number2]  <UNUSED>
  27. ;;   [Number3]  Actual byte size of users install
  28. ;;   [Number4]  <UNUSED>
  29. ;;   [Number5]  <UNUSED>
  30. ;;   [Number6]  <UNUSED>
  31. ;;   [Number7]  <UNUSED>
  32. ;;   [Number8]  <UNUSED>
  33. ;;   [Number9]  <UNUSED>
  34.  
  35. ;;   [String1]  File name to restore
  36. ;;   [String2]  <UNUSED>
  37. ;;   [String3]  <UNUSED>
  38. ;;   [String4]  <UNUSED>
  39. ;;   [String5]  <UNUSED>
  40. ;;   [String6]  <UNUSED>
  41. ;;   [String7]  <UNUSED>
  42. ;;   [String8]  <UNUSED>
  43. ;;   [String9]  <UNUSED>
  44.  
  45. ;;   [YesorNo1] <UNUSED>
  46. ;;   [YesorNo2] Hide function keys
  47. ;;   [YesorNo3] <UNUSED>
  48. ;;   [YesorNo4] Overwrite files?
  49. ;;   [YesorNo5] <UNUSED>
  50. ;;   [YesorNo6] <UNUSED>
  51. ;;   [YesorNo7] <UNUSED>
  52. ;;   [YesorNo8] <UNUSED>
  53. ;;   [YesorNo9] <UNUSED>
  54.  
  55. ;;   [Point1]   <UNUSED>
  56. ;;   [Point2]   <UNUSED>
  57. ;;   [Point3]   <UNUSED>
  58. ;;   [Point4]   Ask where to install again?
  59. ;;   [Point5]   <UNUSED>
  60. ;;   [Point6]   File not there
  61. ;;   [Point7]   <UNUSED>
  62. ;;   [Point8]   <UNUSED>
  63. ;;   [Point9]   <UNUSED>
  64.  
  65. ;;======================================
  66. ;; Author:   John Smith
  67. ;; Date:     04/06/93
  68. ;; Purpose:  Define Variables
  69. ;;======================================
  70.  
  71. [Dir1] := [WindowsDirectory]
  72. [Dir2] := [InstallFromDrive]:
  73. [Dir3] := InstalitDirectory
  74.  
  75. ;;======================================
  76. ;; Author:   Forte
  77. ;; Date:     03/xx/93
  78. ;; Rev:      05/20/93 - Make a mention of the GRAVNODE list
  79. ;; Purpose:  What to Show user if they have a bad disk
  80. ;;======================================
  81. SetSupportInformation
  82.   You may have a corrupted disk. Please try installing again.  If
  83.   unsuccessful, please call Advanced Gravis Tech Support for a
  84.   replacement disk or download the disk from one of the BBS nodes
  85.   listed in GRAVNODE.TXT.
  86.  
  87.   .cTechnical Support (9am-4pm PST)......1-604-431-1807
  88.   .cBulletin Board System (V32bis N81)...1-604-431-5927
  89. EndSetSupportInformation
  90.  
  91. ;;======================================
  92. ;; Author:   John Smith
  93. ;; Date:     04/06/93
  94. ;; Purpose:  Show Title Screen
  95. ;;======================================
  96.  
  97. Do OpeningScreen                                 ;; Call the Opening Screen
  98.  
  99. ClearScreen
  100. SetBackgroundCharTo B0                           ;; Set Bkgrd to Blue/White
  101.  
  102. ChangeDirectoryTo [Dir2]                         ;; Goto Install From Drive
  103.  
  104. LetButton <F1> Do ShowHelp
  105. LetButton <F2> Do GetReadme
  106.  
  107. :MAIN
  108. [YesorNo2] := YesCharacter                       ;; Show Function Keys
  109. Do TitleScreen
  110.  
  111. QueAllFiles                                      ;; Determine Total Size
  112. [Number3] := QueSize                             ;; of Install.  Handy cause
  113. UnQueAllFiles                                    ;; independate of version
  114.  
  115. TextBox WhiteOnBlue @xy(Center,3)
  116. A complete install requires [Number3] bytes of hard disk space
  117. "NOTE: Programs such as STACKER, and DOUBLE SPACE may not"
  118. "      accurately report the true drive space remaining."
  119. EndTextBox
  120.  
  121. GetMenuChoice WhiteOnLightBlue @xy(Center,9) Highlight 1 UseHeader "Installation Main Menu"
  122. Install All UltraSound SDK Software
  123. Restore File(s)
  124.         ; Restore a single or group of files
  125. Exit
  126.         ; Exit the Install and return to DOS
  127. EndGetMenuChoice
  128.  
  129. [YesorNo2] := NoCharacter                        ;; Hide Function Keys
  130.  
  131. InCase Choice is
  132.         =1: UnQueAllFiles
  133.             QueAllFiles
  134.         =2: Do GetUserFile
  135.             Goto MAIN
  136.         =3: UnQueAllFiles
  137.             Do Bye
  138. EndInCase
  139.  
  140. ClearScreen
  141.  
  142. Do TitleScreen
  143.  
  144. Do CopyQueFiles                                  ;; Copy Requested File Groups
  145.  
  146. Goto MAIN                                        ;; Goto Main Menu
  147.  
  148. ;;===========================================================================
  149. ;;
  150. ;;                           Start of Procedures
  151. ;;
  152. ;;===========================================================================
  153.  
  154. ;;======================================
  155. ;; Author:   John Smith
  156. ;; Date:     04/20/93
  157. ;; Rev:      05/20/93 - Strip out stuff from V2.06 Install Disk
  158. ;; Purpose:  Determine Where to Copy Files then do It
  159. ;;======================================
  160. Procedure CopyQueFiles
  161. ;;-----------------
  162. ;; Now that we know what we are to copy, lets figure out where to put it all
  163. ;;-----------------
  164.     [Number3] := QueSize                             ;; How Much to Copy?
  165.     If [Number3] > 0
  166.  
  167.         Do DetermineWhere                            ;; Where to Copy Files
  168.  
  169.         SetReplacementInquiry off
  170.  
  171.         ;;-----------------
  172.         ;; Copy README Stuff if Not already there
  173.         ;;-----------------
  174.         If FileExists [InstallationDirectory]\README
  175.         Else
  176.             CopyFiles From [InstallFromDrive]:\ To [InstallationDirectory] Quietly
  177.                   GV.EXE
  178.                   README
  179.             EndCopyFiles
  180.         EndIf
  181.  
  182.         [Dir3] := [InstallationDirectory]
  183.  
  184.         ;;-----------------
  185.         ;; Copy QUED Files
  186.         ;;-----------------
  187.  
  188.         GetQuedFiles
  189.  
  190.         Do TitleScreen
  191.     EndIf
  192.  
  193. EndProcedure
  194.  
  195. ;;======================================
  196. ;; Author:   John Smith
  197. ;; Date:     04/09/93
  198. ;; Purpose:  Figure Out Destination
  199. ;;======================================
  200. Procedure DetermineWhere
  201.     DetermineInstallationDrive [Number3] RequireFixed ConfirmRAM AllowNetwork
  202.  
  203.     ClearScreen
  204.     Do TitleScreen
  205.  
  206.     TextBox WhiteOnBlue @xy(Center,19)
  207.             NOTE: The default directory is recommended so
  208.             that future upgrades are easier to perform.
  209.     EndTextBox
  210.  
  211.     [Point4]
  212.     SetBottomLineAttrTo YellowOnRed
  213.     SetBottomLineTo     "              Press RETURN to Accept and Proceed with Installation              "
  214.  
  215.     DetermineInstallationDirectory [String3] [Number3] NoCreate
  216.  
  217.     [String3] := [InstallationDirectory]
  218.  
  219.     ClearScreen
  220.     DO TitleScreen
  221.  
  222.     ;; If directory exists inform user files will be overwritten
  223.     If DirectoryExists [InstallationDirectory]
  224.         Dialog [YesOrNo4] WhiteOnRed @xy(Center,Center)
  225.             This directory already exists.  If you continue files may
  226.             be overwritten.  Would you like to continue?
  227.         EndDialog
  228.         If [YesOrNo4] = N
  229.             GoTo [Point4]
  230.         EndIf
  231.     EndIf
  232.  
  233. EndProcedure
  234.  
  235. ;;======================================
  236. ;; Author:   John Smith
  237. ;; Date:     04/07/93
  238. ;; Purpose:  Restore a Single File
  239. ;;======================================
  240. Procedure GetUserFile
  241.   Dialog [String1] YellowOnRed @xy(5,7) 12
  242.       Which file(s) do you wish to restore? (Wild Cards are accepted)
  243.   EndDialog
  244.   If [String1] = BlankString
  245.       Goto [Point6]
  246.   Endif
  247.   If [String1] Contains \
  248.       PopUp Please enter the file name with no path.
  249.       Goto [Point6]
  250.   EndIf
  251.   If FileIsInLibrary [String1]
  252.   else
  253.      PopUp That file name is not available.  Please try again.
  254.      Goto [Point6]
  255.   EndIf
  256.   QueFiles
  257.       [String1]
  258.   EndQueFiles
  259.   [Number3] := QueSize
  260.   Do DetermineWhere
  261.   GetQuedFiles
  262.   [Point6]
  263. EndProcedure
  264.  
  265. ;;======================================
  266. ;; Author:   John Smith
  267. ;; Date:     04/09/93
  268. ;; Purpose:  What to Show User if they Select HELP
  269. ;;======================================
  270. Procedure ShowHelp
  271.   If [YesorNo2] = YesCharacter
  272.       Dialog PressAnyKey YellowOnRed @xy(Center,Center)
  273.           Should you experience any difficulties with the UltraSound
  274.           SDK Install you may contact Gravis customer service at:
  275.  
  276.           Advanced Gravis
  277.           3750 North Fraser Way, #101
  278.           Burnaby, BC, Canada
  279.           V5J 5E9
  280.  
  281.           Technical Support (9am-4pm PST)......1-604-431-1807
  282.           Bulletin Board System (V32bis N81)...1-604-431-5927
  283.           Fax..................................1-604-451-9358
  284.  
  285.           NOTE: These calls are to Canada!! We strongly recommend
  286.           you read the README file and the MANUAL before calling
  287.           to save time and money.
  288.       EndDialog
  289.   EndIf
  290. EndProcedure
  291.  
  292. ;;======================================
  293. ;; Author:   John Smith
  294. ;; Date:     04/07/93
  295. ;; Purpose:  View README file
  296. ;;======================================
  297. Procedure GetReadme  ;; To read the Readme file for latest updated info
  298.     If [YesorNo2] = YesCharacter
  299.         [Dir6] := CurrentDirectory
  300.         ChangeDirectoryTo [Dir3]
  301.         Run GV README NoPrompt
  302.         ChangeDirectoryTo [Dir6]
  303.     EndIf
  304. EndProcedure
  305.  
  306. ;;======================================
  307. ;; Author:   John Smith
  308. ;; Date:     04/09/93
  309. ;; Purpose:  Display Exit Message
  310. ;;======================================
  311. Procedure Bye
  312.   SoLong
  313. EndProcedure
  314.  
  315. ;;======================================
  316. ;; Author:   John Smith
  317. ;; Date:     04/27/93
  318. ;; Purpose:  Put Title Bars on the Screen
  319. ;;======================================
  320. Procedure TitleScreen
  321.     SetTopLineAttrTo YellowOnRed
  322.     SetTopLineTo "                 Gravis UltraSound SDK (GUS) Installation - V2.01               "
  323.  
  324.     TextBox WhiteOnRed @xy(Center,19)
  325.     .cUltraSound by
  326.     .cAdvanced Gravis Computer Technology Ltd.
  327.     .cBurnaby, BC, Canada
  328.     EndTextBox
  329.  
  330.     SetBottomLineAttrTo WhiteOnRed
  331.     If [YesorNo2] = NoCharacter
  332.         SetBottomLineTo     "                                                                   CTRL+X=Exit  "
  333.     Else
  334.         SetBottomLineTo     "  F1=Help  F2=View ReadMe                                          CTRL+X=Exit  "
  335.     EndIf
  336.  
  337. EndProcedure
  338.  
  339. ;;======================================
  340. ;; Author:   John Smith
  341. ;; Date:     05/05/93
  342. ;; Purpose:  Throw up a dialog box welcoming user to Install
  343. ;;======================================
  344. Procedure OpeningScreen
  345.     ClearScreen
  346.  
  347.     SetTopLineAttrTo YellowOnRed
  348.     SetTopLineTo "                 Gravis UltraSound SDK (GUS) Installation - V2.01               "
  349.  
  350. TextBox WhiteOnRed @xy(7,4)
  351. .cManufactured by
  352. .cA d v a n c e d
  353. " ▄▄▄ ▄▄▄▄   ▄▄▄  ▄▄   ▄▄ ▄  ▄▄▄▄ "
  354. "▐ ▄▄ ▐   ▌ ▐█ █▌ ▐█   █▌ █ ▐▄▄▄▄ "
  355. "▐   ▌▐▀█▀ ▐█   █▌ ▐█ █▌  █      ▌"
  356. " ▀▀▀ ▀  ▀ ▀     ▀  ▀▀▀   ▀  ▀▀▀▀ "
  357. .cBurnaby, BC, Canada
  358. EndTextBox
  359.  
  360. TextBox WhiteOnRed @xy(42,15)
  361. .cDesigned by
  362. .cFORTE Technologies Inc.
  363. .cRochester, NY, USA
  364. EndTextBox
  365.  
  366. TextBox WhiteOnRed @xy(5,20)
  367.     ________________________
  368. EndTextBox
  369.  
  370. GoToXY @xy(7,21)
  371. PressAnyKey
  372.  
  373. EndProcedure
  374.  
  375. EndScript
  376.