少しは頭使おうぜ？
randomize
#define sx200.0
#define sy200.0
screen 0,400,400
*@
x=sx : y=sy
ex=rnd(200) : if(ex>99) : ex+=200
ey=rnd(200) : if(ey>99) : ey+=200
tmp1=sx-ex : tmp2=sy-ey :tmp3=sqrt((tmp1*tmp1)+(tmp2*tmp2))
xv=0.0+tmp1*3/tmp3 : yv=0.0+tmp2*3/tmp3

repeat : redraw 0 : color 0xFF,0xFF,0xFF : boxf
pos ex,ey : color 0xFF,0,0 : print "●"
pos x,y : color 0,0,0 : print "●"
if(x<0|x>400|y<0|y>400){break}else{x-=xv : y-=yv}
await 10 : redraw 1 : loop

goto *@back