rem *********
rem * MOVER *
rem *********
rem Scans until hit then move to new location.  Repeat.

   d=dmge
10 if dmge<>d then x=random(500):y=random(500):gosub 200:d=dmge
   rng = scan(aim):if rng>0 then aim=aim+17:goto 10

20 shot = -rng
40 rng = scan(aim):if rng<0 then 20
50 aim=aim+17:goto 10

200 xvel = (x-xpos)*10: yvel = (y - ypos)*10
    if abs(x-xpos)<30 and abs(y-ypos)<30 then xvel=0:yvel=0:return
    goto 200


