10 for anim%=0 to 3
20 gl "buf",str$(anim%)+".png"
30 sg "jaja","buf"
40 if inkey(0) th stop
50 sleep 400:repaint:next anim%
60 goto 10