Here you go:
save this image as small.png:
here's the code to bounce loads of sprites around screen:
sync on : sync rate 0 : randomize timer() : hide mouse
sw=screen width()
sh=screen height()
load image "small.png",1,1
size=64
sprites=200
type spr
x as float
y as float
dx as float
dy as float
endtype
dim s(sprites-1) as spr
for f=0 to sprites-1
s(f).x=rnd(sw-size)
s(f).y=rnd(sh-size)
s(f).dx=(-10.0+rnd(20))/2.0
s(f).dy=(-10.0+rnd(20))/2.0
next f
do
cls
for f=0 to sprites-1
x#=s(f).x + s(f).dx
y#=s(f).y + s(f).dy
if x# < 0 then x#=0 : s(f).dx=-s(f).dx
if x# > (sw-size) then x#=sw-size : s(f).dx=-s(f).dx
if y# < 0 then y#=0 : s(f).dy=-s(f).dy
if y# > (sh-size) then y#=sh-size : s(f).dy=-s(f).dy
s(f).x=x#
s(f).y=y#
sprite f+1,x#,y#,1
next f
text 0,0,str$(screen fps())
sync
loop
Boo!