あれ、なんかちゃんと当らないんだが、なぜよ？

screen 0,640,480
sx=250;発射位置？
sy=350
ex=450;ターゲット座標
ey=200
*ss
x=sx : y=sy
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 0,0,0
boxf
pos ex,ey
color 0,0,255 : boxf ex,ey,ex+10,ey-10;ターゲット描画
color 255,0,0
pset x,y;弾描画
pset x+1,y+1
pset x+1,y-1
pset x-1,y-1
pset x-1,y+1
if(ex=x|ey=y){break}else{x-=xv : y-=yv} ;消える条件？
await 1
redraw 1
loop
goto *ss