USGS InfoBank program -- copyfiles

copyfiles

  Subroutine to write and execute a command procedure to copy files.

       

  Clint Steele     1/25/95


    

      read (5, '(q,a)', end = 99) 
     *         SaveLength,SaveOption(1:SaveLength)

      write (FileFlag, 525)

          call stringlen (SaveOption, SaveLength)
      call changecase ('CAPITALS', SaveOption)
          call helper ('OUTPUTMENU','??')
          call helper ('OUTPUTMENU','?')
          call commenter ('CopyFiles Menu')
      call setcopyflags (SaveOption, FileFlag)
      call makefilelist
     *    (Activity, KeepFlag, 
     *     FileList, FileFlag, FileCount, 'COPY')
      call commaker
     *    (FileList, FileCount, SaveOption, SaveOptionKeep)