SUBROUTINE EBASE(WHO,L)
C
C      HANDLES ATTACKING ENEMY BASES
C
	INCLUDE 'TRKCOMMON.FTN'
	REAL LAUNCH
	INTEGER SCAN,WHOM,CREW,HYPER,TORPS,WHO
	LOGICAL*1 THRU,XSHIP,CLOAK,CLON,OK,FBASE
	BYTE MESSAG,INITLS,CLRIT(2)
	DATA CLRIT/"33,'K'/
C
C
	CALL CPOS(L)
	IF (DOCKED(WHO)) GOTO 21000
	IF (FBASE(WHO)) GOTO 10015
10001	WRITE (5,10003) CLRIT
10003	FORMAT ('$Course for phasers, sir? ',2A1)
	CALL GETREL(VALUE,OK,0.,12.)
	IF (.NOT.OK) GO TO 20000
	IF (VALUE.LT.3) GO TO 10004
	VALUE = (15-VALUE)*30
	GO TO 10005
10004	VALUE = (3-VALUE)*30
10005	WRITE (5,10010) CLRIT
10010	FORMAT ('$Energy to direct to phasers? ',2A1)
	CALL GETREL(AMT,OK,0.,10000.)
	IF (.NOT.OK) GOTO 20000
	IF (ENERGY(WHO).LT.AMT) GOTO 10011
	BASPHA(WHO) = AMT
	FBASE(WHO) = .TRUE.
	PHA(WHO) = VALUE
	ENERGY(WHO) = ENERGY(WHO)-AMT
	CALL CPOS(L)
	WRITE (5,10006) CLRIT
10006	FORMAT (' Phasers fired, sir',2A1)
	GOTO 20000
10011	WRITE (5,10002) CLRIT
10002	FORMAT (' ** Engineering reports insufficient energy sir **',2A1)
	GOTO 20000
C
10015	WRITE (5,10016) CLRIT
10016	FORMAT (' ** Phasers are already active firing on base **',2A1)
	GOTO 20000
C
21000	WRITE (5,21001) CLRIT
21001	FORMAT (' ** We cannot fire while docked, sir **',2A1)
C
20000	RETURN
	END