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