rem KBHIT

   aim = 90
10 t = kbhit(0):if t then gosub 100
   rng=scan(aim):if rng>0 then 10
   shot=-rng:xvel=0:yvel=0:goto 10

100 if t>91 then t=t-32
    xvel = xvel - 100*(t=74) + 100*(t=76) - xvel*(t=32)
    yvel = yvel - 100*(t=73) + 100*(t=75) - yvel*(t=32)
    return
