;; INSTALIT SCRIPT TEMPLATE FILE STANDRDW.STF
;;  Compatible with:  INSTALIT/W version 3.0 and higher
;;  Incompatible with:  INSTALIT/P (uses DefineVariables)
;;  Shipped as script version 1.0

;;  Designed for general use with products a single offering two optional
;;  modules and possibly requiring basic changes to AUTOEXEC.BAT
;;  and/or CONFIG.SYS.  Reads a Script Data File in order to adapt
;;  to the job at hand.

DefineVariables

Text [CompanyName] := Azimuth   
Text [Azimuth] := [companyName]
Text [ProductName] := Interactive Computing: Concepts and Skills
Text [ProductNameShort] := Interactive Computing
Logical [OfferInstallationDirectoryChoice] := N
Directory [DefaultInstallationDirectory] := [WindowsSystemDirectory]
Text [ModifyMode] := UNDECIDED
Number [MinimumFilesSetting] := 0
Number [MinimumBuffersSetting] := 0
Directory [ReadmeFileName] :=
Logical [InquireAboutSystemFileLocation] := N
Logical [AskBeforeFileReplacement] := Y
Text [ExitMessage] := 
Directory [ProgramToRun] := 
Logical [AddInstallDirectoryToPath] := N
Text [MinimumOSVersion] := 0
Number [MinimumSystemMemoryRequiredPresent] := 0
Logical [AllowCGA] := Y
Logical [AllowMDA] := Y
Logical [Allow808x] := Y
Logical [Allow80286] := Y
Logical [MathCoprocessorRecommended] := N
Logical [FixedDiskRequired] := Y
Text [NetWorkInstallation] := AllowNetwork
Logical [UseShadows] := Y
Text [MainBorder] := NONE
Text [PopupBorder] := SINGLE
Text [TopLine] := "  INSTALLING [ProductName]  "
Text [TopLineColors] := WhiteOnBrown
Text [BottomLineColors] := WhiteOnLightGray
Text [PopupColors] := WhiteOnCyan
Text [AttentionColors] := WhiteOnRed
Text [SpecialPopupColors] := WhiteOnBrown
Text [ExpressSetupDescription] := Install ITS
Text [ExtractionOptions] := ShowJustOne  ;; See GetQuedFiles
Logical [NeedToTerminate] := N
Logical [Installed] := N
Text [DisplayAdapterSummary] :=
Text [CPUTypeSummary] :=
Text [NetworkActive] :=
Text [MathCoprocessorStatus] :=
Text [InstallationDriveSummary] :=
Text [OSVersionSummary] :=
Text [SystemMemorySummary] :=
Logical [InsufficientSystem] := N
Logical [CompatibilityNoticeGiven] := N
Logical [NeedToModify] := N
Text [PathTask] :=
Text [BuffersTask] :=
Text [FilesTask] :=
Text [BackgroundCharacter] := B0
Text [ScreenColors] := WhiteOnBlue

EndDefineVariables

If [CommandLine1] = -ReplaceFiles
  SetReplacementInquiry Off
EndIf
If [CommandLine2] = -ReplaceFiles
  SetReplacementInquiry Off
EndIf
If [CommandLine3] = -ReplaceFiles
  SetReplacementInquiry Off
EndIf

If [InquireAboutSystemFileLocation] = NoCharacter
  If DriveIsPresent [BootDrive]  ;; if not, COMSPEC has been changed
    NoSysFileConfirmation
  EndIf
EndIf

If [AskBeforeFileReplacement] = NoCharacter
  SetReplacementInquiry Off
EndIf

Do SetupInstalit


:Again
;;SetBackgroundColor 0 0 255 0 0 64 TopToBottom 
SetBackgroundColor 0 0 255 0 0 64 TopToBottom 

ClearScreen  
GetMenuChoice @xy(Center,5)  useheader "[ProductNameShort]"
 Install [ProductName]
 Exit
EndGetMenuChoice

ClearScreen

InCase choice is
  =1:  
;;QueAllFiles
    quefiles
        *.fon
    endquefiles

  =2:  Do ExitInstallation
EndInCase

If QueSize = 0
  GoTo Continue
EndIf

If [InsufficientSystem] = YesCharacter
  Dialog [YesOrNo1] WhiteOnRed ;; Insufficient system notice
    Analysis of your system has determined that it is
    not compatible with [ProductName].  For a complete
    summary, press YesCharacter.

    Do you wish to continue anyway?
  EndDialog
  If [YesOrNo1] = NoCharacter
    GoTo Again
  Else
    Do ShowSystemSummary
  EndIf
EndIf

If [Installed] = YesCharacter
else
;;  If [FixedDiskRequired] = YesCharacter
;;    DetermineInstallationDrive QueSize RequireFixed
;;  else
;;    DetermineInstallationDrive QueSize
;;  EndIf

  [InstallationDirectory] :=  [WindowsSystemDirectory]\

  If [OfferInstallationDirectoryChoice] = YesCharacter
    If [FixedDiskRequired] = YesCharacter
      DetermineInstallationDirectory QueSize RequireFixed
    else
      DetermineInstallationDirectory QueSize
    EndIf
  else
  EndIf
EndIf



GetquedFiles

GetQuedFiles [ExtractionOptions]

[Installed] := YesCharacter
If QueSize <> 0  ;; Some files were selected but not installed if <> 0
  [Installed] := NoCharacter
  UnqueAllFiles  ;; Remove uninstalled files from que
  Dialog ;; Message when unable to get all necessary files
    Unable to successfully complete this option.
  EndDialog
EndIf

;;;; delete any previous book mark file
if FileExists [Windowsdirectory]\a3w_data\bookmark.dat
  deletefiles from [Windowsdirectory]\a3w_data\ quietly
     bookmark.dat
  enddeletefiles
endif

;;if WindowsVersion <3.3
;;  BuildProgramGroup "[azimuth]" [azimuth].grp
;;     [InstallFromDirectory]\ICCStoc.exe "[ProductNameShort]" [InstallFromDirectory]\azi.ico 1
;;  EndBuildProgramGroup
;;
;;ModifyTextFile  [windowsdirectory]\win.ini quietly
;;InSection [FONTS]
;;  addorchangelinewith (Mac Geneva,=,MGENEVA.FON) as "Mac Geneva 9,12,14=MGENEVA.FON" at end
;;  addorchangelinewith (Mac Palatino,=,MPALTINO.FON) as "Mac Palatino 10,12,14,18,24=MPALTINO.FON " at end
;;
;;endmodifytextfile


;;else
  BuildProgramGroup "[azimuth]" [azimuth].grp
     [InstallFromDirectory]\ICS95toc.exe "[ProductNameShort]" [InstallFromDirectory]\azi.ico 1
  EndBuildProgramGroup

   deletefiles from [Windowssystemdirectory]\ quietly
      MGENEVA.FON
      MPALTINO.FON
   enddeletefiles



RUN [InstallFromDirectory]\instfont.exe


;;endif
  



if WindowsVersion <3.3

   ;; install vidieo for windows

    Run [InstallFromDirectory]\winvid\setup.exe

   Dialog
     Installation Complete. Windows must be restarted for the changes to take effect. 
     Click OK to restart windows.
   EndDialog

   reboot windows
endif
SoLong quietly

 

:Continue
GoTo Again



Procedure ShowHelpInfo
Dialog PressAKey [SpecialPopupColors]  ;; How to reach technical support
For assistance, dial (555)555-1212 and ask for
Customer Service.  You are installing
[ProductName].

You can get a summary of your computer system
by pressing YesCharacter.  This information will be
important should you call Customer Service.
EndDialog
If [YesOrNo1] = YesCharacter
  Do ShowSystemSummary
EndIf
EndProcedure

Procedure ShowSystemSummary  ;; System summary - change with care.
  If [InstallationDirectory] <> BlankString
    [InstallationDriveSummary] := InstallationDrive (FreeSpaceOnDrive InstallationDrive bytes free)
  else
    [InstallationDriveSummary] := (Not Selected)
  EndIf
  Dialog PressAKey [SpecialPopupColors]
    .cHERE IS A SUMMARY OF YOUR SYSTEM
    .c[String8]  ;; notes whether any incompatibilities were found

    Operating System Version:  [OSVersionSummary]
    CPU Type:  [CPUTypeSummary]
    Display Adapter:  [DisplayAdapterSummary]
    Math Coprocessor:  [MathCoprocessorStatus]
    Main Memory Present:  [SystemMemorySummary]
    Extended Memory Present:  ExtendedMemoryPresentK
    Installation Drive:  [InstallationDriveSummary]
    Network:  [NetworkActive]
    [String9]  ;; information about network suitability
  EndDialog
EndProcedure

Procedure Share_warning
    Dialog
        WARNING.. Your machine has the program SHARE.EXE (or similar network
        file sharing program) loaded. This may cause problems while running 
        Computer Concepts. To avoid these problems we recommend that you disable
        the command loading SHARE.EXE (usually in your AUTOEXEC.BAT file) and reboot.
        
        For additional information, see the file READ.ME
  EndDialog
EndProcedure

Procedure ExitInstallation
ClearScreen

If [ProgramToRun] <> BlankString
  Dialog [YesOrNo1]  ;; Explains purpose of program to be run, if any
    [ProgramToRun] does <insert purpose here>.
    Do you wish to run it now?
  EndDialog
  If [YesOrNo1] = YesCharacter
    Run [ProgramToRun] SwapOut
    If OSErrorCode <> 0
      Dialog  ;; Message if OS unable to Run program
        Unable to run [ProgramToRun].
        Error code was OSErrorCode.
      EndDialog
    else
      If OSExitCode <> 0
        Dialog ;; Message if program ran but returned non-zero code
          [ProgramToRun] executed but was not successful.
          Return code OSExitCode.
        EndDialog
      EndIf
    EndIf
  EndIf
EndIf

If [ReadmeFileName] <> BlankString
  ChangeDirectoryTo [InstallationDirectory]
  Dialog [YesOrNo1] ;; Ask whether to browse readme file, if any
    [ReadmeFileName] contains important information.
    Do you wish to read it now?
  EndDialog
  If [YesOrNo1] = YesCharacter
    If FileExists [ReadmeFileName]
      BrowseFile [ReadmeFileName]
    else
      Popup Sorry, readme file [ReadMeFileName] is missing.
    EndIf
  EndIf
EndIf

SoLong

EndProcedure



Procedure SetupInstalit
  SetDefaultBitmap OFF
  SetCoordinatesTo 80x25
  SetScreenAttrTo [ScreenColors]
  SetBackgroundCharTo [BackgroundCharacter]
  If [UseShadows] = YesCharacter
    SetShadows On
  else
    SetShadows Off
  EndIf
  If [InquireAboutSystemFileLocation] = NoCharacter
    NoSysFileConfirmation
  EndIf
  SetMainBorderTo     [MainBorder]
  SetPopupBorderTo    [PopupBorder]
  SetModifyModeTo     [ModifyMode]
  SetShadowAttrTo     DarkGrayOnBlack
  SetPopupAttrTo      [PopupColors]
  SetAttentionAttrTo  [AttentionColors]
  SetTopLineTo        [TopLine]

EndProcedure