home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 16 / 16.iso / t / t480 / 1.ddi / I210.INF < prev    next >
Encoding:
INI File  |  1991-03-09  |  2.4 KB  |  99 lines
  1. ;; This is the installation script INSTALIT uses to install itself,
  2. ;; MediaBuilder and related utilities.
  3.  
  4. Do SetupINSTALIT
  5.  
  6. Dialog
  7.   .cThanks for purchasing INSTALIT and MediaBuilder.
  8.   .cLet's do the installation!
  9.  
  10.   .cIf you purchased a non-English installer, note
  11.   .cthat the installer's innate text is in the
  12.   .clanguage you specified, while the script text
  13.   .cis in English.  See your Multilingual documentation
  14.   .cfor further information.
  15. EndDialog
  16.  
  17. [Point1]
  18.  
  19. GoToXY @xy(1,3)
  20.  
  21. GetMenuChoice
  22.   Install INSTALIT and MediaBuilder
  23.     ; Use this choice initially for a
  24.     ; complete installation.
  25.   Get another copy of EXAMPLE.PVD
  26.     ; Use this choice if your copy
  27.     ; of EXAMPLE.PVD is changed or
  28.     ; damaged.
  29.   Finished
  30.     ; Exit this installation process
  31. EndGetMenuChoice
  32.  
  33. InCase Choice is
  34.   =1:  Do Install
  35.   =2:  QueFiles
  36.          EXAMPLE.PVD
  37.        EndQueFiles
  38.        GetQuedFiles
  39.   =3:  Do ByeBye
  40. EndInCase
  41.  
  42. GoTo [Point1]
  43.  
  44.  
  45. Procedure Install
  46.   QueAllFiles
  47.   [AdditionalSpaceRequired] := 95000
  48.   DetermineInstallationDrive QueSize
  49.   DetermineInstallationDirectory QueSize
  50.   GetQuedFiles
  51.   OpenCopyWindow
  52.   CopyFiles
  53.     INSTALIT.EXE
  54.     I210.INF
  55.     NEWSTUFF.DOC
  56.   EndCopyFiles
  57.   CloseCopyWindow
  58.   ChangeDirectoryTo [InstallationDirectory]
  59.   ;; Set up MediaBuilder's configuration files for the chosen directories,
  60.   ;; etc.
  61.  
  62.   ClearScreen
  63.   TextBox
  64.     .cSetting up your default configuration file
  65.     .cfor MediaBuilder.  One moment, please.
  66.   EndTextBox
  67.  
  68.   Delay 1000
  69.  
  70.   ModifyTextFile [InstallationDirectory]\MEDIA.CFG Quietly
  71.     AddOrChangeLineWith (WorkingDirectory,=,) As "WorkingDirectory=[InstallationDirectory]" at End
  72.     AddOrChangeLineWith (OutputDrive,=,) As "OutputDrive=A" at End
  73.   EndModifyTextFile
  74.  
  75.   ClearScreen
  76. EndProcedure
  77.  
  78. Procedure ByeBye
  79.   Dialog PressAKey WhiteOnBrown
  80.     Thanks again and best wishes.  You'll find new
  81.     information in file NEWSTUFF.DOC.
  82.   EndDialog
  83.   SoLong
  84. EndProcedure
  85.  
  86.  
  87. Procedure SetupINSTALIT
  88.   SetBackgroundCharTo B0
  89.   SetShadowAttrTo BlackOnBlack
  90.   SetScreenAttrTo WhiteOnBlue
  91.   SetTopLineAttrTo WhiteOnBrown
  92.   SetTopLineTo " INSTALLING INSTALIT AND MEDIABUILDER "
  93.   SetBottomLineAttrTo WhiteOnLightGray
  94.   SetBottomLineTo "  Call (800)448-4154 for assistance. Use <Ctrl+X> to quit.  "
  95.   SetExitMessageTo  Thanks again!
  96. EndProcedure
  97.  
  98. EndScript
  99.