pro m_mov_g wx=128 wy=128 openr,1,'fan.128_ascii' openw,2,'fan128_g.byt' u=intarr(wx,wy) p=assoc(2,bytarr(wx,wy)) window,1,xsize=wx,ysize=wy for i=1,62 do begin readf,1,u tvscl,u p(i)=tvrd(0,0,wx,wy) endfor close,1 close,2 return end