;; This is the installation script StarTrack 1.2 -  09/21/1992

DefineVariables
  Logical [InstallBoundVersion] := Y
;;  Logical [BrowseReadMe] := Y
  Logical [Installed] := N
EndDefineVariables

Do SetupINSTALIT

Dialog
  .cThanks for using StarTrack.
  .cLet's do the installation!

  .cThis is a Sharware program.

  .cIf you have any problem with installation,
  .cplease call APEX Computer Services at
  .c(818) 458-3344
EndDialog


:Main

GoToXY @xy(1,3)


Do Install

Do ByeBye


Procedure Install
  QueAllFiles
;;;;  DetermineInstallationDrive QueSize RequireFixed
  DetermineInstallationDrive 1,600,000 RequireFixed
  DetermineInstallationDirectory 1,600,000 RequireFixed InstallationDrive:\STARTRK
  GetQuedFiles
  [Installed] := Y
  ChangeDirectoryTo [InstallationDirectory]
  ;; Set up MediaBuilder's configuration files for the chosen directories,
  ;; etc.

  ClearScreen
EndProcedure



Procedure ByeBye
  Dialog WhiteOnBrown
    Thanks again and best wishes.

  EndDialog
  SoLong
EndProcedure



Procedure SetupINSTALIT
  LetButton <F9> Do Terminate
  SetBackgroundCharTo B0
  SetShadowAttrTo BlackOnBlack
  SetScreenAttrTo WhiteOnBlue
  SetTopLineAttrTo WhiteOnRed
  SetTopLineTo " INSTALLING   S t a r T r a c k "
  SetBottomLineAttrTo WhiteOnLightGray
  SetBottomLineTo "  Call (818)458-3344 for assistance.     <Ctrl - X> = Quit  "
  SetExitMessageTo  Thanks again!
EndProcedure


EndScript