PRO chkqlook,year,month,day,cam,debug=debug,coff=coff,roff=roff

IF N_ELEMENTS(coff) EQ 0 THEN coff=0
IF N_ELEMENTS(roff) EQ 0 THEN roff=0

rdilist,cam,year,month,day,0,0,0,n,t,f
FOR i=0,n-1 DO BEGIN
    IF STRPOS(f(i),'No_Cam') EQ -1 THEN BEGIN	; good file name
        rdkimg,f(i),hb,img
        IF KEYWORD_SET(debug) THEN hlp,img
        h=gethd(hb)
        out=STRING(h.misc.cam,h.misc.fw,h.misc.exp_scale*h.exp.exposure/1000 $
	          ,FORMAT='(I1,I2,I5)')
        out=out+STRING(h.misc.tm.hour,h.misc.tm.minute,h.misc.tm.second $
		      ,FORMAT='(I3,":",I2.2,":",I2.2)')
        edge=LONG(h.exp.cols)/h.exp.sbin
        out=out+STRING(edge,edge,FORMAT='(2I4)')
        IF (i EQ 0) AND KEYWORD_SET(debug) THEN HELP,edge
        lolim=edge/2-edge/128
        hilim=edge/2+edge/128-1
	cllim=lolim+coff
	chlim=hilim+coff
	rllim=lolim+roff
	rhlim=hilim+roff
        IF KEYWORD_SET(debug) THEN HELP,cllim,chlim,rllim,rhlim
        centmean=TOTAL(img(cllim:chlim,rllim:rhlim))/((hilim-lolim+1)^2)
        IF KEYWORD_SET(debug) THEN PRINT,img(cllim:chlim,rllim:rhlim),centmean
        out=out+STRING(centmean,FORMAT='(I5)')
        PRINT,out
        IF KEYWORD_SET(debug) THEN BEGIN
	    k=GET_KBRD(1)
	    IF STRUPCASE(k) EQ 'N' THEN debug=0B
	    ENDIF ELSE BEGIN
	    k=GET_KBRD(0)
	    CASE STRUPCASE(k) OF
	   'D': debug=1B
	   'Q': GOTO,DONE
	  ELSE: 
		ENDCASE
	    ENDELSE
	ENDIF
    ENDFOR
DONE:
RETURN
END