;
;
;
log = rd_ref_log()
;
for i=0,n_elements(log)-1 do begin
    print, i, '  ', log(i).day, log(i).progver, '  ', log(i).day_done, '  ', log(i).qdone
end
;
ss = where(log.qdone eq 'Done')
if (ss(0) eq -1) then iday = 0 else iday = ss(n_elements(ss)-1) + 1	;one past last day done
;
input, 'Which day to do (1-20) ', iday, iday
;
tarr = timstr2ex(log(iday).day)
week = ex2week(tarr)
dow = ex2dow(tarr)
;
print, 'Doing day ', dow+1, ' of week ', week
;
ref_super, week, days=dow+1
;
end