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