;
;
;
infil = filnam_fix('bdr_dir:910902_1.TEL')
;
strec = 10
nrec = 512
;
npmf = 12*4*64l
img = bytarr(npmf*nrec)
for irec=strec,strec+nrec-1 do begin
    print, string(13b), irec, format='(a,i6)'
    rdrec, infil, irec, rec1
    mat = byte(rec1(16:*,*),0, 16,8,64)
    mat = mat(4:15,0:3,*)
    mat = byte(mat, 0, npmf)
    ;if (max(mat) ne 0) then stop
    ;
    img( (irec-strec)*npmf ) = mat
end
;
nx = 768
ny = long(512)
;img2 = byte(img,0, nx,ny)
;img2 = fix(img,0, nx,ny)
;img2 = fix(img,1, nx,ny)
;img2 = long(img,0, nx,ny)
 img2 = fix(img,nx*ny, nx,ny)
;
end