SUBROUTINE ANTIM(WHO,L,COMMND)
C
C      ANTIMATTER 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'/
	CHARACTER*2 COMMND
C
C
	CALL CPOS(L)
	IF (IDAMGE(WHO,7).LE.50) GOTO 10001
	WRITE (5,10000) CLRIT
10000	FORMAT (' Anti-matter equipment inoperative, sir',2A1)
	GOTO 10240
C
10001	IF (COMMND(1:1).NE.'X') GOTO 10223
	CALL CPOS(L)
	IF (IPOD(WHO).NE.2) GO TO 10225
	IPOD(WHO)=3
	WRITE(5,10228) CLRIT
10228	FORMAT(' Detonation signaled, sir!',2A1)
	GO TO 10240
C
10225	WRITE(5,10229) CLRIT
10229	FORMAT(' No active anti matter device',2A1)
	GO TO 10240
C
C     CONVERT MOVING ANTI-MATTER POD TO A STATIC MINE
C
10223	IF (COMMND(1:1).NE.'N') GO TO 10230
	CALL CPOS(L)
	IF (IPOD(WHO).NE.2) GO TO 10232
	WPOD(WHO)=0.
	ICNTRL(8) = 1
	WRITE(5,10235) CLRIT
10235	FORMAT(' Anti-matter mine in position, sir!',2A1)
	GO TO  10233
10232	WRITE(5,10236) CLRIT
10236	FORMAT(' No active anti-matter device',2A1)
10233	GO TO 10240
C
C     LAUNCH ANTI-MATTER DEVICE
C
10230	IF (COMMND(1:1).NE.'Z') GO TO 10240
	CALL CPOS(L)
	IF (DOCKED(WHO)) GOTO 10130
	IF (IPOD(WHO).NE.0)  GO TO 10239
	IF (IACTN(WHO).GE.ICNTRL(6)) GOTO 10250
	WRITE(5,10242) CLRIT
10242	FORMAT('$Anti matter device ready sir, course ? ',2A1)
	CALL GETREL(VALUE,OK,0.,12.)
	IF (.NOT.OK) GO TO 10243
	IF (VALUE.LT.3) GO TO 10246
	DPOD(WHO)=(15.-VALUE)*30.
	IACTN(WHO)=IACTN(WHO)+1
	IF (CLON(WHO)) CLOAK(WHO)=.FALSE.
	GO TO  10247
10246	DPOD(WHO)=(3.-VALUE)*30.
10247	IPOD(WHO)=1
10243	GO TO 10240
C
10239	WRITE(5,10249) CLRIT
10249	FORMAT(' Anti-matter pod is currently active, sir',2A1)
	GOTO 10240
C
10250	WRITE (5,10251) CLRIT
10251	FORMAT (' We have used up all our anti-matter pods, sir',2A1)
	GOTO 10240
C
10130	WRITE (5,10131) CLRIT
10131	FORMAT(' We cannot fire while docked, sir',2A1)
C
10240	RETURN
	END