SUBROUTINE SNDMES(WHO,L)
C
C     SEND MESSAGE TO ANOTHER 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),TMPBUF(60)
	DATA CLRIT/"33,'K'/
C
C
	CALL CPOS(L)
	WRITE(5,10206)
10206	FORMAT ('$Uhura here, Captain, to whom are we sending? ')
	CALL GETINT(IVAL,OK,1,9)
	IF (.NOT.OK) GO TO 10207
	WRITE(5,10210) CLRIT
10210	FORMAT ('$Message, Captain ? ',2A1)
	READ (5,10211) NCHAR,TMPBUF
10211	FORMAT (Q,60A1)
	CALL CPOS(L)
	J=0
	IF (IVAL.NE.9) GOTO 10260
	DO 10300 J=1,8
	IF (J.EQ.WHO.OR..NOT.XSHIP(J)) GOTO 10300
	IVAL=J
10260	DO 10250 K=1,NCHAR
	MESSAG(IVAL*60-59+K)=TMPBUF(K)
10250	CONTINUE
	ENERGY(WHO)=ENERGY(WHO)-10.
	ENCODE(1,10212,IXXXX) WHO
10212	FORMAT (I1)
	CALL STRMOV(IXXXX,1,1,MESSAG,IVAL*60-59)
	IF (J.EQ.0) GOTO 10207
10300	CONTINUE
10207	RETURN
	END