	SUBROUTINE SEND(THECMD)
C
C	Send a command line to the player.
C
	INCLUDE 'COMMND.COM/-LI'
	INCLUDE 'BUFFER.COM/-LI'
	BYTE THECMD
	INTEGER*2 IVALUE
	REAL XVALUE
C
C	A command with no value
C
	ENCODE(10,10100,CMD)THECMD
10100	FORMAT(A1,'^        ')
	CNT=2
	GOTO 10600
C
C	A command with an integer value
C
	ENTRY SENDI(THECMD,IVALUE)
	CMD(1)=THECMD
	ENCODE(20,10200,IBUF)IVALUE
10200	FORMAT(I11,'^++++++++')
	GOTO 10500
C
C	A command with an real value
C
	ENTRY SENDX(THECMD,XVALUE)
	CMD(1)=THECMD
	ENCODE(25,10300,IBUF)XVALUE
10300	FORMAT(F16.6'^++++++++')
C
C	Do a little clean up here
C
10500	J=0
	DO 10520 I=2,10
10510	J=J+1
	IF(IBUF(J).EQ.' ')GOTO 10510
	IF(IBUF(J).EQ.'^')CNT=I
	IF(IBUF(J).EQ.'+')GOTO 10540
	CMD(I)=IBUF(J)
	GOTO 10520
10540	CMD(I)=' '
10520	CONTINUE
C
C	Now write out the command
C
10600	CALL WRITE(16,1,CMD,10)
	CMD(CNT)="15
	RETURN
	END
