home *** CD-ROM | disk | FTP | other *** search
/ PC Gamer 13 / 1995-12_Disc_13.iso / ur96 / ur96demo.inf < prev   
INI File  |  1995-09-20  |  8KB  |  322 lines
  1. DefineVariables
  2. ;; Global variables for this installation.
  3.  
  4.   Number    [nCounter]     ;; Variable used as a counter for While loop 
  5.   Number    [nInUse]       ;; Variable which indicates number of in use files
  6.   Number    [nInstallationPathDefined]
  7.  
  8.   TextArray [taBackUpName]         ;; Variable used for in use files
  9.   TextArray [taInUseArray]        ;; Variable used for in use files
  10.   Text      [tInuseLine]          ;; Variable used to write inuse file to INUSE.BAT
  11.   Text      [tInUseFileName]
  12.   Text     [tDispType]
  13.   Text     [tNetLoaded]
  14.   Text     [tExtMemAvailable]
  15.   Text     [tExtMemPresent]
  16.   Text     [tDOSVersion]
  17.   Text     [tDisplayAdapter]
  18.   Text     [tNetwork]
  19.   Text     [tMainMemory]
  20.   Text     [tWinDir]
  21.   Text     [tWinSysDir]
  22.   Text     [tMathCoprocessor]
  23.   Text       [tMathCoprocessorLoaded]
  24.  
  25. EndDefineVariables
  26.  
  27.  
  28. ;;---------------------------------------------------------------------------
  29. Procedure SetupDisplay
  30.  
  31.   SetMainBorderTo Single
  32.   SetShadowAttrTo BlackOnBlack
  33.   SetScreenAttrTo WhiteOnLightBlue
  34.   SetPopupAttrTo WhiteOnBlue
  35.   SetAttentionAttrTo WhiteOnBlue
  36.   SetTopLineAttrTo WhiteOnRed
  37. EndProcedure
  38.  
  39.  
  40. ;;---------------------------------------------------------------------------
  41. Procedure Install_Files_All
  42.  
  43. DetermineInstallationDrive 750000 RequireFixed     ;;about 750K bytes required
  44. DetermineInstallationDirectory InstallationDrive:\ur96demo
  45. QueAllFiles Always
  46. GetQuedFiles ShowJustOne
  47.  
  48. [tinuseFileName] := [InstallationDirectory]\INUSE.BAT
  49.  
  50. If [nInUse] > 0
  51.     [nCounter] := 1
  52.     While [nCounter] <= [nInUse]
  53.       [tInUseLine] := Copy [taBackUpName][[nCounter]] [taInUseArray][[nCounter]]
  54.       AppendFile [tinuseFileName]
  55.       [tInUseLine]
  56.       EndAppendFile
  57.       IncrementNumber [nCounter]
  58.     EndWhile
  59. EndIf
  60. EndProcedure
  61.  
  62.  
  63. ;;---------------------------------------------------------------------------
  64.  
  65.  
  66.  
  67.  
  68.  
  69. ;;***************************************************************************
  70. ;;********************************* MAIN ************************************
  71. ;;***************************************************************************
  72.  
  73. DOSCommand mode con cols=80 lines=25 quietly       ;;use standard screen config
  74. Do SetupDisplay
  75. SetModifyModeTo Modify
  76. [nInstallationPathDefined] := 0        ;;assume no installation path 
  77. Dialog 400
  78.   Welcome to Install!
  79. EndDialog
  80.  
  81.  
  82.  
  83. :MainLoop       
  84.  
  85.  
  86. SetTopLineTo BlankString
  87.  
  88. SetCheckmarks off
  89.  
  90. GetMenuChoice UseHeader "Main Menu"
  91.  
  92.   1. INSTALL UR96 DEMO 
  93.     ;Install UR96 demo onto your hard drive.
  94.     ;Requires 750 KBytes of space.
  95.  
  96.   2. BOOT MAKER
  97.     ;Make a custom boot diskette for your system -
  98.     ;blank diskette required.
  99.     ;
  100.     ;IMPORTANT: this is not required for Windows 95.
  101.  
  102.   3. IF ALL ELSE FAILS
  103.     ;help!
  104.  
  105.   4. QUIT
  106.     ;Exit to DOS.
  107.  
  108. EndGetMenuChoice
  109.  
  110.  
  111.  
  112.  
  113. ClearScreen
  114.  
  115.  
  116. InCase Choice Is
  117.  
  118.  
  119.     =1: ;;max install:
  120.  
  121.     SetTopLineTo - UR96 DEMO INSTALLATION -
  122.  
  123.         Do Install_Files_All
  124.  
  125.     ChangeDirectoryTo [InstallationDirectory]
  126.  
  127.     DOSCommand [InstallFromDrive]: quietly
  128.  
  129.          ChangeDirectoryTo ur96    
  130.  
  131.     SetTopLineTo BlankString
  132.  
  133.     ClearScreen
  134.  
  135.       SetScreenAttrTo WhiteOnBlack
  136.  
  137.     DOSCommand setup [InstallationDirectory] quietly    ;;sound card setup
  138.  
  139.     ClearScreen
  140.  
  141.       SetScreenAttrTo WhiteOnLightBlue
  142.  
  143.     DOSCommand del [InstallationDirectory]\setup.bat quietly
  144.  
  145.     ModifyTextFile [InstallationDirectory]\setup.bat noinquiry quietly
  146.         InsertAtLine End @[InstallFromDrive]:
  147.         InsertAtLine End @cd \ur96
  148.         InsertAtLine End @setup [InstallationDirectory]
  149.         InsertAtLine End @InstallationDrive:
  150.     EndModifyTextFile
  151.  
  152.     DOSCommand del [InstallationDirectory]\ur96demo.bat quietly
  153.  
  154.     ModifyTextFile [InstallationDirectory]\ur96demo.bat noinquiry quietly
  155.         InsertAtLine End @[InstallFromDrive]:
  156.         InsertAtLine End @cd \ur96
  157.       InsertAtLine End @echo Loading UR96 demo
  158.         InsertAtLine End @ur96demo [InstallationDirectory]
  159.         InsertAtLine End @InstallationDrive:
  160.     EndModifyTextFile
  161.  
  162.         ChangeDirectoryTo ..
  163.  
  164.     ClearScreen
  165.  
  166.         Dialog 
  167.       Installation complete, to run the UR96 demo type
  168.       UR96DEMO<enter> from the installation directory. 
  169.         EndDialog
  170.  
  171.     [nInstallationPathDefined] := 1
  172.  
  173.         GoTo MainLoop
  174.  
  175.  
  176.  
  177.  
  178.     =2:    ;;make boot diskette:
  179.  
  180.     SetTopLineTo -    BOOT MAKER    -
  181.  
  182.     Dialog
  183.       Please insert a diskette into drive A.
  184.     EndDialog
  185.  
  186.     Dialog [YesOrNo1] WhiteOnRed
  187.       WARNING: this procedure will destroy all information
  188.       on this diskette. 
  189.  
  190.       Do you wish to continue?
  191.     EndDialog
  192.  
  193.     If [YesOrNo1] = NoCharacter    ;;this is the "N" response
  194.       Goto MainLoop       
  195.     EndIf
  196.  
  197.     Dialog
  198.       After the format you will be asked if you want to
  199.       format another diskette.  At that time please press the
  200.       <N> key and then the <enter> key for the "no" response.
  201.     EndDialog
  202.  
  203.       SetScreenAttrTo WhiteOnBlack
  204.  
  205.     DOSCommand format a:/s/u/v:Accolade
  206.  
  207.     ClearScreen
  208.  
  209.       SetScreenAttrTo WhiteOnLightBlue
  210.  
  211.     CopyFiles from c:\ to a:
  212.       autoexec.bat 
  213.       config.sys
  214.     EndCopyFiles
  215.  
  216.     [BootDrive] := a
  217.     ModifyTextFile a:autoexec.bat noinquiry
  218.       AddOrChangeLineWith (prompt ,,) as " " At End
  219.       AddOrChangeLineWith (@prompt ,,) as " " At End
  220.       InsertAtLine 1 PROMPT UR96 DEMO BOOT DISK $P$G
  221.       AddOrChangeLineWith (smartdrv.exe,,) as " " At End IncludeDisabled
  222.       AddOrChangeLineWith (doskey,,) as " " at End IncludeDisabled
  223.       AddOrChangeLineWith (share.exe,,) as " " at End IncludeDisabled
  224.       AddOrChangeLineWith (windows\win,,) as " " at End IncludeDisabled
  225.     EndModifyTextFile
  226.  
  227.     ModifyTextFile a:config.sys noinquiry
  228.       AddOrChangeLineWith (files=,,) as "FILES=40" At End IncludeDisabled
  229.       AddOrChangeLineWith (buffers=,,) as " " at End IncludeDisabled
  230.       AddOrChangeLineWith (command,,) as " " At End
  231.       AddOrChangeLineWith (shell=,,) as " " At End IncludeDisabled
  232.       AddOrChangeLineWith (emm386.exe,,) as " " At End IncludeDisabled
  233.       AddOrChangeLineWith (smartdrv.exe,,) as " " At End IncludeDisabled
  234.       AddOrChangeLineWith (ramdrive.sys,,) as " " At End IncludeDisabled
  235.       AddOrChangeLineWith (share.exe,,) as " " at End IncludeDisabled
  236.       AddOrChangeLineWith (stacks=,,) as " " at End
  237.       AddOrChangeLineWith (fcbs,,) as " " at End
  238.       AddOrChangeLineWith (plugplay,,) as " " At End IncludeDisabled
  239.       AddOrChangeLineWith (plug_play,,) as " " At End IncludeDisabled
  240.     EndModifyTextFile
  241.  
  242. ;;    remove VR's housekeeping garbage:
  243.  
  244.     If FileExists c:\adaltoi\instalit.exe
  245.       If FileExists c:\adaltoi\norcimo.ate
  246.         RemoveDirectoryTree c:\adaltoi
  247.       EndIf 
  248.     EndIf 
  249.  
  250.     If FileExists d:\adaltoi\instalit.exe
  251.       If FileExists d:\adaltoi\norcimo.ate
  252.         RemoveDirectoryTree d:\adaltoi
  253.       EndIf 
  254.     EndIf 
  255.  
  256.     If FileExists e:\adaltoi\instalit.exe
  257.       If FileExists e:\adaltoi\norcimo.ate
  258.         RemoveDirectoryTree e:\adaltoi
  259.       EndIf 
  260.     EndIf 
  261.  
  262.     If FileExists f:\adaltoi\instalit.exe
  263.       If FileExists f:\adaltoi\norcimo.ate
  264.         RemoveDirectoryTree f:\adaltoi
  265.       EndIf 
  266.     EndIf 
  267.  
  268.  
  269.     Dialog [YesOrNo1]
  270.       Your UR96 demo boot disk is ready.  
  271.  
  272.       Would you like to reboot now?
  273.     EndDialog
  274.  
  275.     If [YesOrNo1] = NoCharacter    ;;this is the "N" response
  276.       GoTo MainLoop
  277.     EndIf
  278.  
  279.     Dialog
  280.       After the format, you will be asked if you want to
  281.       format another diskette.  At that time please press
  282.       the <N> key for the "no" response.
  283.     EndDialog
  284.  
  285. :infiniteLoop
  286.  
  287.     TextBox
  288.       With the drive A: door still closed,
  289.       simultaneously press the <ctrl>, 
  290.       <alt>, & <del> keys.
  291.     EndTextBox
  292.  
  293.     goto infiniteLoop
  294.  
  295.  
  296.  
  297.  
  298.     =3: ;;display help
  299.  
  300.     BrowseFile \ur96\help.me
  301.  
  302.         GoTo MainLoop
  303.  
  304.  
  305.     
  306.  
  307.     =4: ;;exit
  308.  
  309.     If [nInstallationPathDefined] = 0
  310.       Goto Exit
  311.     EndIf
  312.       DOSCommand  InstallationDrive: quietly
  313.       DOSCommand CD [InstallationDirectory] quietly
  314.  
  315. :Exit
  316.     SoLong
  317.  
  318.  
  319. EndInCase
  320.  
  321.  
  322.