pro chek4x4  
  
OPENW,log,'\idl\data\chek4x4.log',/GET_LUN
rdilist,0,1993,10,18,0,0,0,n,t,f  
; window,0,xs=768,ys=512 
for i=0,n-1 do begin  
    IF strpos(f(i),'No') LT 0 THEN BEGIN  
        rdkimg,f(i),hb,im  
        h=gethd(hb)  
        printf,log,i,h.misc.tm.hour $  
                    ,h.misc.tm.minute $  
                    ,h.misc.tm.second $  
                    ,h.misc.acpower $
                    ,h.misc.temp.td.mean $  
                    ,h.misc.temp.tfw.mean $  
                    ,h.misc.temp.tei.mean $  
                    ,h.misc.temp.tee.mean $  
                    ,h.misc.temp.tcf.mean $  
                    ,h.misc.pixel_max $
                    ,h.exp.exposure $
                    ,h.exp.gain $
                    ,h.exp.mpp_mode $ 
                    ,h.exp.sbin $
                    ,h.exp.pbin  $
                    ,format='(i4,3I3,6I5,I6,I3,4I2)'
;       im24=i MOD 24 
;       tvscl,im<pcentile(im,0.99),im24 
;       xim=(im24 MOD 6)*128+16 
;       yim=(3-(im24/6))*128+16 
;       xyouts,xim,yim,STRTRIM(i,2) $
;             ,color=1,/device,alignment=0
        endif  
;   IF im24 EQ 23 THEN BEGIN
;       k=get_kbrd(1) 
;       IF STRUPCASE(k) EQ 'Q' THEN GOTO,done
;       ENDIF
    endfor  
DONE:
FREE_LUN,log
; WDELETE,0
end