PRO backup

dates=['951012','951013','951015','951016','951017','951018' $
      ,'951019','951020']

sets_on=9

FOR j=0,N_ELEMENTS(dates)-1 DO BEGIN
    i=sets_on+1+j
    novastor,'bkp',tape='eu9520',set=i,/toend,/therm,log=2,unit=27,quick=-1 $
                  ,files='d:\images\save\'+dates(j)+'??.ray'
    wait,60
    novastor,'bver',tape='eu9520',set=i,log=2,unit=27,/rewind
    wait,60
    ENDFOR

RETURN
END