1 rem zagruzka gelej
10 for anim%=0 to 3
20 gl "buf"+str$(anim%),str$(anim%)+".png"
25 next anim%

99 rem animacija
100 for anim%=0 to 3
110 sg "jaja","buf"+str$(anim%)
120 if inkey(0) th stop
130 sleep 400:repaint:next anim%
140 goto 100