	PROGRAM SENDIT
	LOGICAL*1 LINE(82),MSG(80)
C
C ENABLE LOWER CASE INPUT
C
	CALL SETLOW
C
C  READ A LINE # AND MESSAGE.
C
   10	CALL GTLIN(LINE)
	DECODE(2,1001,LINE) ILINE
 1001	FORMAT(I2)
C
C SET UP THE MESSAGE FOR SENDING
C
   19	MSG(1)=7
	MSG(2)=13
	MSG(3)=10
	I=3
	J=4
   20	IF(LINE(I).EQ.0) GOTO 25
	MSG(J)=LINE(I)
	I=I+1
	J=J+1
	GOTO 20
   25	MSG(J)=13
	J=J+1
	MSG(J)=10
	J=J+1
	MSG(J)=7
	J=J+1
	MSG(J)=0
C
C  SEND MSG TO ALL TERMINALS
C
	I=ILINE
	J=I
	IF(I.NE.0) GO TO 15
	I=1
	J=32
   15	CALL ILNSTS(I,IRET,IERR)
	IF(IERR.GE.0) GOTO 18
	CALL TRMMSG(I,MSG)
   18	I=I+1
	IF(I.LE.J) GOTO 15
	GO TO 10
   99	CALL EXIT
	END
