pro nov96red,ps=ps

IF N_Elements(ps) GT 0 THEN ps=1 ELSE ps=0

f='c:\data\zenith\96111325.txt'
d=DDRead(f)
uts=Transpose(d(0,*))
bz=Transpose(d(1,*))

xt='UT Hours, Nov. 13, 1996'
yt='Background-Corrected Brightness (R)'
pt='630.0 nm Zenith Brightness, Eureka, Nov. 13, 1996'

IF ps THEN psopen,'c:\papers\prikryl\nov96red.ps'

Plot,uts/3600.,bz,XRange=[19,24],/XStyle,XTitle=xt $
                 ,YTitle=yt,Title=pt

IF ps THEN psclose

Return
END