SUBROUTINE SHLDC(WHO,L)
C
C      SHIELD COMMAND FOR PLAYER
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 (IDAMGE(WHO,8).LE.50) GOTO 30000
	WRITE (5,30001) CLRIT
30001	FORMAT (' Shields out of commission',2A1)
	GOTO 10096
30000	IF (IDAMGE(WHO,8).GT.0) WRITE (5,30002) CLRIT
30002	FORMAT (' Shields damaged -',
	1 ' energy levels difficult to maintain',2A1)
	WRITE(5,10095) CLRIT
10095	FORMAT ('$Engineering to bridge, how much energy, sir ? ',2A1)
	CALL GETREL(VALUE,OK,-1.E36,1.E36)
	IF (.NOT.OK) GO TO 10096
	IF (ENERGY(WHO)-VALUE.GE.0.AND.SHIELD(WHO)+VALUE.GE.0) GO TO 10101
	GO TO  10099
10101	ENERGY(WHO)=ENERGY(WHO)-VALUE
	SHIELD(WHO)=SHIELD(WHO)+VALUE
	WRITE(5,10102) CLRIT
10102	FORMAT (' Aye, Captain.',2A1)
	GO TO  10096
10099	WRITE(5,10103) CLRIT
10103	FORMAT (' Sorry, Captain, but that''s impossible.',2A1)
10096	RETURN
	END