FUNCTION anahead, filename ;returns just the header from a Rice compressed f0 file. OPENR,unit,filename,/GET_LUN rf = ASSOC(unit,BYTARR(256)) h = BYTARR(256) h = rf(1) FREE_LUN,unit RETURN,STRING(h) END