SUBROUTINE SENT(I,NUM)
C
C     * SEND MESSAGES TO THE PLAYERS
C
	INCLUDE 'TRKCOMMON.FTN'
	REAL LAUNCH
	INTEGER SCAN,WHOM,CREW,HYPER,TORPS
	LOGICAL*1 THRU,XSHIP,CLOAK,CLON,FBASE
	BYTE MESSAG,INITLS
C
	DO 10001 K=1,10
	IF (ISENT(I,K).NE.0) GOTO 10001
	ISENT(I,K)=NUM
	GOTO 10003
10001	CONTINUE
C
C     * MESSAGE BUFFER IS FULL SO COPY IT UP TO KEEP MOST RECENT
C
	DO 10007 K=1,9
	ISENT(I,K)=ISENT(I,K+1)
10007	CONTINUE
	ISENT(I,10)=NUM
10003	RETURN
	END