Geocities is not working on my PC for some bizarre reason, so I couldn't put this up for download. But here's the code instead:
hide mouse:Sync on:ink rgb(255,255,255),rgb(100,135,135):x=10:y=10
im E(3,2):time=500:for b=1 to 3:E(b,1)=640-rnd(320):E(b,2)=480-rnd(240):next b
Cls:center text 320,240,"Ready?":sync:sync:wait 2000
do:cls:if upkey() then y=y-5
if downkey() then y=y+5
if leftkey() then x=x-5
if rightkey() then x=x+5
if x637 then x=637
if y477 then y=477
for l=1 to 3
if xe(l,1) then e(l,1)=e(l,1)+4
if ye(l,2) then e(l,2)=e(l,2)+4
box e(l,1)-2,e(l,2)-2,e(l,1)+2,e(l,2)+2
if x>e(l,1)-4 and xe(l,2)-4 and y