; SortMergeExamples>Install.jcl
; Install the SortMerge Examples subpackage

; Except for yesno strings, this message is the only nationalizable string
; in this file.
ErrorMsg     = 'Cannot access message file'
FirstDisk    = 'Development Utilities Diskette 3 of 3 (B25U223)'

FromFloppy   = 0
FromServer   = 2
FloppySpec   = ConcatStrings(DeviceFrom, '<SM>')
ToSpec       = ConcatStrings(VolumeTo,   DirectoryTo)
FromSpec     = ConcatStrings(FloppySpec, '*')

If InstallType = FromFloppy
    NextFloppy(FirstDisk)
    EndIf

Command Create Directory           ,
          ToSpec

If InstallType = FromServer
    Command LCopy                                      ,
                                                       ,
              @[Scr]<$>InstallOverwriteOkFrom.fls      ,
              @[Scr]<$>InstallOverwriteOkTo.fls        ,
                                                       ,
              Yes                                      ,
              No                                       ,
              No                                       
    GoTo EndIt
    Endif

Command LCopy                      ,
          FromSpec                 ,
                                   ,
          ToSpec                   ,
                                   ,
          Yes                      ,
          No                       ,
          No                       

EndIt:

End
    


EndIt:

End
   
    GoTo EndIt
    Endif

Command LCopy                      ,
          FromSpec               