pro m_64_ascii nl=62 openr,1,'fan.ub' openw,2,'fan.64_ascii' z=bytarr(512,512) int=intarr(64,64) window,1,xsize=64,ysize=64 for k=1,nl do begin readu,1,z int=rebin(z,512/8,512/8) tvscl,int empty printf,2,format='(20(1x,i3))',int endfor close,1 close,2 return end