s_mov_c.pro

pro s_mov_c
wx=128
wy=128
openr,1,'fan128_c.byt'
p=assoc(1,bytarr(128,128))
window,1,xsize=128,ysize=128,xpos=300,ypos=470
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