s_mov_g.pro

pro s_mov_g
wx=128
wy=128
openr,1,'fan128_g.byt'
p=assoc(1,bytarr(wx,wy))
window,0,xsize=wx,ysize=wy,xpos=300,ypos=170
for iloop=1,10 do begin
for k=1,62 do begin
tv,p(k)
empty
cursor,xd,yd,0,/device
while(!err eq 2)do begin
la: cursor,xd,yd,0,/device
if(!err eq 4)then goto, lb
if(!err eq 1)then goto, lc
if(!err eq 0)then goto, la
endwhile
lb: !err=0
endfor
endfor
lc: close,1
return
end