pro table, infil0, dir=dir, year=year
;
;
;
if (n_elements(dir) eq 0) then dir = ''
if (n_elements(year) eq 0) then year = 91
;
print, 'Now Processing ', infil0
;
infil0 = filnam_fix(infil0)
infil = findfile(infil0)
infil = infil(0)
;
irec = 0
repeat begin
    rd_telem, infil, irec, rec1, err
    if (err ne 36) then begin
	telemmode = decom(rec1, 'telemmode', 0)
	hard_reset = decom(rec1, 'u_hard_r', 0)		;added 12-jun
	;;if (telemmode eq 2) then begin
	if ((telemmode eq 2) and (irec ne 0) and (not hard_reset)) then begin
	    table1, infil, irec+1, year=year, dir=dir	;second record has what we want
	    irec = irec + 3
	end
    end
    irec = irec + 1
end until (err eq 36)
;
end