infil = 'tel21'
strec = 100
enrec = 1000
;
for irec = strec, enrec,10 do begin
    rdrec, infil, irec, rec1, err
    if (err ne 36) then begin
	tim_str 	= decom(rec1, 'timehead', 1)
	dp_mode 	= decom(rec1, 'dpmode', 1)
	dp_rate 	= decom(rec1, 'dprate', 1)
	;
	print, ' '
	print, 'REC: ', irec, 'TIME: ', tim_str, '  MODE: ', dp_mode, '  RATE: ', dp_rate
	for i=0,63 do begin
	    minor_f = byte(rec1(*,i), 16, 16, 8)	;skip 16 bytes
	    arr = minor_f(5,*)
	    ss = where(arr eq 255)
	    flag = ' '
	    if (ss(0) ne -1) then flag = '     <<<<<'
	    print, '$(10x, i4, 8(2x, z2.2), a)', i, arr, flag
	end
    end
end
;
end