pro waittest,t0,t1,istart

PRINT,strsec(t0),FORMAT='("Stop processing at ",A," UT.")'
PRINT,strsec(t1),FORMAT='("Start processing at ",A," UT.")'
resp=''
READ,'Okay to go on? ([Y]/N) ',resp
IF STRUPCASE(resp) EQ 'N' THEN RETURN

IF N_ELEMENTS(istart) EQ 0 THEN istart=0 ELSE BEGIN
    RESTORE,FILENAME='waittest.dat'
    HELP,istart
    istart=i
    HELP,istart
    ENDELSE

FOR i=istart,999 DO BEGIN
    t=SYSTIME(0)
    dt_tm_brk,t,dt,tm
    utsec=secstr(tm)
    IF (t1 LT utsec) AND (utsec LT t0) THEN time_test ELSE BEGIN
        SAVE,/ALL,FILENAME='waittest.dat'
        restring=STRING(t0,t1,i $
                       ,FORMAT='("Type WAITTEST",3(",",I0)' $
                              +'," to resume.")')
        MESSAGE,restring,/INFORMATIONAL
        RETURN
        ENDELSE
    ENDFOR

RETURN
END