indir = '/md66/log/sci160k'
ff = file_list(indir, '*_04.tfr', file=file)
seq = strmid(file, 0, 13)
;
ss = wmenu_sel(seq)
seq = seq(ss)
ff = ff(ss)
;
for i=0,n_elements(seq)-1 do begin
    outfil = str_replace(ff(i), '.tfr', '.list_tfi')
    list_tfi, concat_dir(indir, seq(i)), outfil=outfil
end
;
;ff=findfile('*_01.tfr')
;break_file,ff,a,b,c,d
;for i=104,113 do list_tfi,strmid(c(i),0,13),outfil=strmid(c(i),0,13)+'.list_tfi'
;
end