m=intarr(20,n)
for i = 0L,n-1 do begin
  read_mdi,f,i,im,h,tfr_head=t
  m(0,i) = t(423:442)
  print,i,m(0:15,i),m(18,i) and 1,(m(19,i)/256 + 1) mod 20,format='("#",i5,5x,16z1,2x,"QA=",i1,4x,"F=",i2)'
end
end