pro comphead

OPENR,a,'\images\airglow\cam0\filt2\g0202060.399',/GET
ha=BYTARR(512)
READU,a,ha
FREE_LUN,a

OPENR,b,'\images\save\93120202.bgs',/GET
hb=BYTARR(512)
READU,b,hb
FREE_LUN,b

OPENR,c,'\images\save\93012002.bgs',/GET
hc=BYTARR(512)
READU,c,hc
FREE_LUN,c

hbr=hb
BYTEORDER,hbr
diff=(ha NE hbr)

OPENW,c,'comphead.txt',/GET
PRINTF,c,'L# g0202060.399    93120202.bgs    Different?  93012002.bgs'
FOR i=0,511 DO PRINTF,c,i,ha(i),hbr(i),diff(i),hc(i) $
                       ,FORMAT='(I3,9X,I3,4X,I3,13X,I1,11X,I3)'
FREE_LUN,c

RETURN
END