50 TO RANDOM
START
  DAMAGE TO D
SCAN
  IF DAMAGE # D GOTO MOVE
  AIM+17 TO AIM
SPOT
  AIM TO RADAR
  IF RADAR > 0 GOTO SCAN
  0-RADAR TO SHOT
  GOTO SPOT
MOVE
  RANDOM TO H
  RANDOM TO V
MOVEX
 H-X*100 TO SPEEDX
 IF H-X>10 GOTO MOVEX
  IF H-X<-10GOTO MOVEX
  0 TO SPEEDX
MOVEY
  V-Y*100 TO SPEEDY
  IF V-Y>10 GOTO MOVEY
  IF V-Y<-10 GOTO MOVEY
  0 TO SPEEDY
  GOTO START