PRO rdqlook,day,trange=trange

name='qlook.'+STRING(day,FORMAT='(I2.2)')

nl=nlines(name)
t=FLTARR(10,nl)
d=t
p=REPLICATE(0L,10)

s=qgetfile(name)
FOR i=0,nl-1 DO BEGIN
    READS,s(i),c,f,exp,hr,min,sec,cts $
	 ,FORMAT='(I1,1X,I1,2X,I3,3(1X,I2),I6)'
    j=5*c+f
    t(j,p(j))=(hr*60.+min)*60.+sec
    d(j,p(j))=FLOAT(cts)
    p(j)=p(j)+1
    ENDFOR

lastrow=MAX(p)-1
t=t(*,0:lastrow)
d=d(*,0:lastrow)
IF KEYWORD_SET(trange) THEN tlims=trange ELSE tlims=[MIN(t,MAX=tmx),tmx]
dlims=[MIN(d,MAX=dmx),dmx]

!P.MULTI=[0,1,2,0,0]
FOR c=0,1 DO BEGIN
    PLOT,[0,1],/NODATA,XRANGE=tlims/3600.,YRANGE=dlims $
	,XTITLE='UT Hours',YTITLE='Zenith Counts' $
	,TITLE='Camera '+STRTRIM(c,2)+' data from day ' $
	      +STRTRIM(day,2)+' of the month'
    FOR f=0,4 DO BEGIN
	j=5*c+f
	IF MAX(d(j,*),MIN=dmn)-dmn GT 0 $
	    THEN OPLOT,t(j,*)/3600.,d(j,*),PSYM=f+1
        ENDFOR
    ENDFOR

STOP

RETURN
END