# FIXDATE -- Make sure leading zeros are in the date keyword.
# Written by Ed Anderson 8/10/2005
#
# USAGE:
#          cl> files *.fit > inlist
#          cl> fixdate inlist
#

procedure fixdate2 (input)

string  input   {prompt="Input file for list of images"}

begin
	string  img, keystring, s1
	int     dd, mm, yy

	list = input

       while (fscan(list,img) != EOF) {
       hselect (img, "DATE-OBS", yes) | scanf("%1s%d-%d-%d", s1,yy, mm, dd)
#      hselect (img, "DATE-OBSD", yes) | scanf("%d-%d-%d", yy, mm, dd)
       printf ("%04d-%02d-%02d\n", yy, mm, dd) | scanf ("%s",keystring)
       hedit (img, "KEYWORD", keystring, ver-, show+)
	}

end