for i=0L,n-1 do begin
   index=((m(19,i))/256 +1) mod 20
   evec = where (map(*,index) ne m(0:15,i),count)
   if count ne 0 then begin
       print,i,index,format='("Sample #",i5," Frame #",i5," is bad ")'
       print,index,map(*,index),format='("Should be   ",i5,2x,16z1)'
       print,m(0:15,i),         format='("Actually is ",7x,16z1)'
     end
   end
end