LDI  1
  STOR F
  LDI  900
  STOR R
  JMP  RIGHT

MOVE:
  LDI  300
  LOAD Y
  SUB
  LDI  5
  MUL
  STOR SPEEDY

  LOAD R
  STOR RADAR
  LOAD RADAR
  DUP
  STOR L
  LDI  0
  JGT  SCANLOCK
  LOAD R
  LDI  70
  ADD
  LDI  1800
  MOD
  STOR R
  LOAD F
  JZR  LEFT

RIGHT:
  LAB  RIGHT
  LDI  15000
  STOR SPEEDX
  LOAD X
  LDI  5000
  JLT  MOVE
  LDI  0
  STOR F
  LDI  -15000
  STOR SPEEDX
  JMP  MOVE

LEFT:
  LAB  LEFT
  LDI  -15000
  STOR SPEEDX
  LOAD X
  LDI  1000
  JGT  MOVE
  LDI  1
  STOR F
  LDI  15000
  STOR SPEEDX
  JMP  MOVE

SCANLOCK:
  LAB SCANLOCK
  LDI  0
  DUP
  STOR SPEEDX
  STOR SPEEDY

SCANLOOP:              ;"Lock" onto target.
  LOAD R
  LDI  10
  ADD
  DUP
  STOR R
  STOR RADAR
  LOAD RADAR
  LDI  0
  JGT  SCANLOOP
  LOAD R
  LDI  50
  SUB
  STOR R

SHOOT:                 ;If so, shoot the mother.
  LAB  SHOOT
  LOAD R               ;Check to see if turret correct.
  LOAD T
  SUB
  ABS
  LDI  10
  JLE  FIRE            ;If within ONE degrees, fire.
  LOAD R
  DUP
  STOR T
  STOR TURRET          ;Bye for now, probably swapped, so
  JMP  MOVE            ;go back and wide angle in again.

FIRE:
  LOAD TURRET          ;Is turret cool?
  LDI  100
  JGT  MOVE            ;If not, go scan again.

  LAB  FIRE!
  LOAD L               ;Get current distance guess.
  STOR SHOT            ;Finally shoot.
  LDI  1800
  STOR RANDOM
  LOAD RANDOM
  STOR R
  JMP  MOVE            ;Go back and do it again.