PRO mstorlog

jday0=julday(9,14,1995)
;tape='eu9500'

FOR i=4,38 do begin
;   set1=i
;   set2=set1+1
    jday=jday0+i
    caldat,jday,month,day,year
;   cmd=STRING(tape,set1,set2,year,month,day $
;             ,FORMAT='(A,5(",",I0),",/nopause")')
;   MESSAGE,cmd,/INFORMATIONAL
    storlogs,year,month,day
    ENDFOR

RETURN
END