PRO mprocess,first,last,tape,year0,month0,day0,utstop,utstart

@isitdos

saved=rfindfile(tmproot+dd+'mprocess.dat',count=nsaved)

IF nsaved GT 0 THEN BEGIN

    s=qgetfile(saved(0))
    READS,s,first,last,tape,year0,month0,day0 $
         ,FORMAT='(2I4,A8,3I6)'
    tape=STRTRIM(tape,2)

    ENDIF ELSE BEGIN

    IF N_ELEMENTS(tape) EQ 0 THEN BEGIN
        tape=''
        READ,'Enter tape name: ',tape
        ENDIF

    IF N_ELEMENTS(year0)+N_ELEMENTS(month0) $
                        +N_ELEMENTS(day0) LT 3 THEN BEGIN
        PRINT,'Enter the year, month, and day corresponding ' $
             +'to the creation time of set 0 on the tape:'
        READ,year0,month0,day0
        ENDIF

    ENDELSE

IF N_ELEMENTS(utstop) EQ 0 THEN utstop=50400	; 8 am CST
IF N_ELEMENTS(utstart) EQ 0 THEN utstart=3600	; 7 pm CST
HELP,utstart,utstop

jday0=julday(month0,day0,year0)

FOR i=first,last DO BEGIN
    t0=systime(0)
    dt_tm_brk,t0,dt,tm
    utnow=secstr(tm)
    HELP,utstart,utnow,utstop
    IF (utstart LE utnow) AND (utnow LT utstop) THEN 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
        process,tape,set1,set2,year,month,day,/nopause
        t0=[t0,systime(0)]

        ENDIF ELSE BEGIN

        mputfile,tmproot+dd+'mprocess.dat' $
                ,STRING(i,last,tape,year0,month0,day0 $
                       ,FORMAT='(2I4,A8,3I6)')
        RETURN
        ENDELSE

    ENDFOR

FOR i=0,N_ELEMENTS(t0)-1 DO PRINT,i,'  ',t0(i)
del,tmproot+dd+'mprocess.dat'

RETURN
END