; TOJO

  180 TO A
  IF X>128 -180 TO A
  GOTO HORIZ

HTURN

  0 TO B TO SPEEDY
  C TO A TO SPEEDX
  I+1 TO I

HORIZ

  180 TO C
  IF Y>128 -180 TO C

HSCAN

  0-A/2+180 TO AIM
  AIM TO RADAR
  IF RADAR<0 -20-RADAR TO SHOT
  IF RADAR<55 GOTO VTURN
  GOSUB MOVE
  GOTO HSCAN

VTURN
  0 TO A TO SPEEDX
  IF I=2 GOTO KILL
  C TO B TO SPEEDY

VERT

  180 TO C
  IF X>128 -180 TO C

VSCAN

  B/2+90 TO AIM
  AIM TO RADAR
  IF RADAR<0 -20-RADAR TO SHOT
  IF RADAR<55 GOTO HTURN
  GOSUB MOVE
  GOTO VSCAN

KILL

  C TO B TO SPEEDY
  8 TO RANDOM

KVERT

  180 TO C
  IF X>128 -180 TO C
  
KVSCAN

  B/2+90+J TO AIM
  AIM TO RADAR
  IF RADAR<0 GOSUB SHOOT
  IF RADAR<60 GOTO KHTURN
  IF RANDOM=0 GOTO KHTURN
  AIM+180 TO AIM
  AIM TO RADAR
  IF RADAR<0 GOTO BFIREV
  IF RADAR>195 GOTO KHTURN
  IF RANDOM=0 GOTO KHTURN
  0-J TO J
  GOSUB MOVE
  GOTO KVSCAN

MOVE

  A TO SPEEDX
  B TO SPEEDY
  ENDSUB

KHTURN

  0 TO B TO SPEEDY
  C TO A TO SPEEDX
  GOSUB SETJ

KHORIZ

  180 TO C
  IF Y>128 -180 TO C
  
KHSCAN

  0-A/2+180+J TO AIM
  AIM TO RADAR
  IF RADAR<0 GOSUB SHOOT
  IF RADAR<60 GOTO KVTURN
  IF RANDOM=0 GOTO KVTURN
  AIM+180 TO AIM
  AIM TO RADAR
  IF RADAR<0 GOTO BFIREH
  IF RADAR>195 GOTO KVTURN
  IF RANDOM=0 GOTO KVTURN
  GOSUB MOVE
  0-J TO J
  GOTO KHSCAN

KVTURN

  0 TO A TO SPEEDX
  C TO B TO SPEEDY
  GOSUB SETJ
  GOTO KVERT

SHOOT

  0 TO SPEEDX TO SPEEDY
  -10 -RADAR TO SHOT
  ENDSUB

BFIREH

  0 TO SPEEDX
  10-RADAR TO SHOT
  GOTO KVTURN

BFIREV

  0 TO SPEEDY
  10-RADAR TO SHOT
  GOTO KHTURN

SETJ

  IF J<0 GOTO SETJ2
  IF J>5 ENDSUB
  1/4+J TO J
  ENDSUB

SETJ2

  IF J<-5 ENDSUB
  0-1/4+J TO J
  ENDSUB