c read a dos date and create a batch file that will copy a
c specified file into a file with a name like 20041231.jpg (yearmody.jpg)
        character*80 infile
        character*80 arcdir
c
c open the parameter file
        open(9, file='savefile.ini', status='old')
c read the name of the input file
20      read(9, '(a)') infile
        if(infile(1:1) .eq. '*') goto 20
c read the name of the archive directory
30      read(9, '(a)') arcdir
        if(arcdir(1:1) .eq. '*') goto 30
        call getdat(iryr, irmo, irdy)
        write(6, '(5a, i4.4, i2.2, i2.2, a4)') ' copy ',
     *    infile(1:lentru(infile)), ' ',
     *    arcdir(1:lentru(arcdir)), '\', iryr, irmo, irdy,
     *    infile(lentru(infile)-3:lentru(infile))

        end

        integer function lentru(alph)
c finds the ture length of a character variable
        character alph*(*)
        l = len(alph)
        do 100 i = l, 1, -1
          if(alph(i:i) .ne. ' ' .and. alph(i:i) .ne. '\0') then
            lentru = i
            return
          endif
100     continue
        lentru = 0
        return
        end