SaveVidLevel = VideoLevel
EchoOff

; pClusterOs>Install.jcl
; Install the ProtectedMode Cluster Operating System subpackage

; Except for yesno strings, these two messages are the only nationalizable
; strings in this file.
ErrorMsg     = 'Cannot access pClusterOs>InstallMsg.bin'
FirstDisk    = 'Protected Mode OS Diskette 1 of 6 (B25POS1)'

FromFloppy   = 0
FromServer   = 2
TotalNoise   = 0
TotalSilence = 2
NotFound     = 65535
ClearScreen  = 'PF'

If SaveVidLevel = TotalNoise
   Display(ClearScreen)
EndIf

OsName       = 'pClstr.img'
FloppySpec   = ConcatStrings(DeviceFrom, '<CTOS>')
OsFrom       = ConcatStrings(FloppySpec, OsName)
ToSpec       = ConcatStrings(VolumeTo, DirectoryTo)
PublicOsTo   = ConcatStrings(ToSpec, OsName)
WsSpec       = ConcatStrings(DeviceFrom, '<Clstr>*')
EtcFromSpec  = ConcatStrings(DeviceFrom, '<OsInstall>')
ConfigFile   = 'Config.sys'
NlsKbdFile   = 'NlsKbd.sys'

If InstallType = FromFloppy
   NextFloppy(FirstDisk)
EndIf

InitErc = InitMsgFile(MsgFile)
If InitErc <> 0
   DisplayLine(ErrorMsg)
   Cancel
EndIf

If InstallType = FromServer
   Msg = GetMsg(3)
   DisplayLine(Msg)
   DisplayLine
   Msg = GetMsg(5)
   DisplayAndWait(Msg)
   GoTo ChkPkgs
EndIf

If Not Public
   Msg = GetMsg(4)
   DisplayLine(Msg)
   DisplayLine
   Msg = GetMsg(5)
   DisplayAndWait(Msg)
   GoTo ChkPkgs
EndIf

If SaveVidLevel = TotalNoise
   EchoSome
EndIf
DisplayLine
Command LCopy          ,
           ConfigFile  ,
           EtcFromSpec ,
           ToSpec      ,
                       ,
           No          ,
           No          ,
           No          ,
           Yes
Msg = GetMsg(12)
ConfigSpec = ConcatStrings(ToSpec, Msg)
DisplayLine
Command LCopy          ,
           ConfigFile  ,
           EtcFromSpec ,
           ConfigSpec  ,
                       ,
           Yes         ,
           No          ,
           No          ,
           Yes
FileName = ConcatStrings(ToSpec, NlsKbdFile)
Ver = FileVersion(FileName)
If Ver <> '0'
   Msg = GetMsg(11)
   SaveSpec = ConcatStrings(ToSpec, Msg)
   FileName = ConcatStrings(SaveSpec, NlsKbdFile)
   Ver = FileVersion(FileName)
   If Ver = '0'
      DisplayLine
      Command LCopy         ,
                 NlsKbdFile ,
                 ToSpec     ,
                 SaveSpec   ,
                            ,
                 No         ,
                 No         ,
                 No         ,
                 Yes
      DisplayLine
      Msg = ConcatStrings(ToSpec, NlsKbdFile)
      Display(Msg)
      Msg = GetMsg(10)
      Display(Msg)
      Display(ToSpec)
      Msg = GetMsg(11)
      Display(Msg)
      DisplayLine(NlsKbdFile)
   EndIf
EndIf
DisplayLine
Command LCopy          ,
           NlsKbdFile  ,
           EtcFromSpec ,
           ToSpec      ,
                       ,
           Yes         ,
           No          ,
           No          ,
           Yes
DisplayLine
Command LCopy         ,
                      ,
           OsFrom     ,
           PublicOsTo ,
                      ,
           Yes        ,
           No         ,
           No         ,
           Yes
DisplayLine
Command LCopy     ,
           WsSpec ,
                  ,
           ToSpec ,
                  ,
           Yes    ,
           No     ,
           No     ,
           Yes
If SaveVidLevel = TotalNoise
   EchoOff
EndIf

ChkPkgs:
DisplayLine

Pkg = GetMsg(6)
If SubString(Pkg, Pkgs) <> NotFound
   Diskette = GetMsg(1)
   NextFloppy(Diskette)
   GoTo EndIt
EndIf

Pkg = GetMsg(7)
If SubString(Pkg, Pkgs) <> NotFound
   Diskette = GetMsg(2)
   NextFloppy(Diskette)
   GoTo EndIt
EndIf

Pkg = GetMsg(8)
If SubString(Pkg, Pkgs) <> NotFound
   Diskette = GetMsg(9)
   NextFloppy(Diskette)
   GoTo EndIt
EndIf

EndIt:

End
g = ConcatStrings(ToSpec, NlsKbdFile)
         Display(Msg)
         Msg = GetMsg(23)
         Display(Msg)
         Display(ToSpec)
         Msg = GetMsg(24)
         Display(Msg)
         DisplayLine(NlsKbdFile)
      EndIf
   EndIf
   DisplayLine
   Command LCopy         ,
              NlsKbdFile ,
           