m_512_ascii.pro

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