d c. DO	SEND {terminal {message}}
È c.		To send a message or set of messages to another terminal
,c.
c.	This procedure requests the terminal, and the message.
ôc. If either are null, it EXITS. Otherwise it sends the message to
Xc. the terminal. It the message is contained in the command line,
¼c. then it EXITS. Otherwise it requests an other message.
 c.
„c. ..note.. This must be Installed with OPER privledge.
èc.
Lc. end.of.info
°c.
c.uses JJCMD, JJLEN, JJMESS from DO LINK library
xc.
Ü	character*80 line, term, chterm, usr
@c.
¤	common /jpi/ lenusr, icode, locusr, zero1, zero2
	integer*2 lenusr, icode
l	integer*4 zero1, zero2
Ð	data lenusr/15/,icode/z202/,zero1/0/,zero2/0/
4c.
˜41	format(132a)
üc.
`		locusr = %loc(usr)
Ä		call jjcmd( line )
(
	icmd = jjlen( line )
Œ
c.
ð
	ipos = 1
T	call jjwrd( line, ipos, term )
¸	if( term.eq.' ' ) then
200	  continue
€	  write(6,41)'$Send to? '
ä	  read (5,41,end=9000)line
H	  if( line.eq.' ' ) goto 9000
¬	  ipos = 1
	  call jjwrd( line, ipos, term )
t	endif
Ø	call jjupp(term)
<	line = line(ipos+1:)
 	if( line.eq.' ' ) then
300	  continue
h	  write(6,41)'$Send to  ',term(1:jjlen(term)),'? '
Ì	  read( 5,41,end=9000) line
0	  if( line.eq.' ' ) goto 9000
”	endif
øc.
\	call jjmess(sys$trnlog('TT',lterm,chterm,,,))
À	call jjmess(sys$getjpi(,,,lenusr,,,))
$	line = usr(1:8)//chterm(1:lterm)//' '//line
ˆ	if(.not. jjmess(sys$brdcst(line(1:jjlen(line))
ì	1	,term(1:jjlen(term)))) ) goto 200
P	line = ' '
´c.
	if( icmd.le.1 ) goto 300
|c.
à9000	continue
D	end