C;+
C - L I S T E N
C****NAME:   ...LSN
C    IDENT:  22-JAN-79
C    FILE:   DP1:[322,21]LISTEN.FLX
C    TKB:    DP1:[322,21]LISTEN.BLD
C
C****PURPOSE:   TEST TASK TO DO A READ THROUGH MAILBOX HANDLER (MB)
C
C****RESTRICTIONS:  
C
C SYSTEM:     RSX11D V6.2
C LANGUAGE:   FLECS/F4P
C AUTHOR:     T. KOZLOWSKI
C DATE:       22-JAN-79
C REVISIONS:
C
C****CALLING SEQUENCE:  
C
C		INPUT: 
C
C 
C	       OUTPUT:  
C
C
C       CMN BLOCK I/O: 
C
C
C****DIALOG: 
C
C	    RESOURCES:
C LIBRARIES:   
C OTHER SUBR:  WTQIO
C DISK FILES:  
C DEVICES:     TI:,MB:
C SGAS:        
C EVENT FLAGS: 
C SYSTEM DIR:  
C LENGTH/PAR:  
C
C****NOTES:  
C
C;-
 	BYTE BUFFER,BPARAM,TTNO,FLGS
	REAL TLK
C
	DIMENSION BUFFER(80),BPARAM(2),ITNAME(2),IPRM(5),ISTAT(2)
C
	EQUIVALENCE (BPARAM(1),IPARAM),(TTNO,BPARAM(1)),(FLGS,BPARAM(2))
	EQUIVALENCE (ITNAME(1),TNAME)
C
	DATA TLK /6R...TLK/
	DATA IORVB /"010400/
C
CCCCCCCCCCCCCCCCCCC
C
C INITIALIZATION
C
CCCCCCCCCCCCCCCCCCC
C
C	READ NAME OF DESTINATION TASK (DEFAULT=...TLK)
C
	WRITE(2,2000)
2000	FORMAT(' ENTER DESTINATION TASK NAME (<CR> FOR DEFAULT)')
	READ(1,1000) IQ,BUFFER
1000	FORMAT(Q,80A1)
	IF (IQ.GT.6) IQ=6
	WHEN (IQ.EQ.0) TNAME=TLK
	ELSE TNAME=IRAD50(IQ,BUFFER,TNAME)
C
C READ IN TERMINAL NUMBER OF DESTINATION TASK
C
	WRITE(2,2001)
2001	FORMAT(' ENTER TT NUMBER OF DESTINATION TASK (<CR> IF NONE)')
	READ(1,1001) IQ,TTNO
1001	FORMAT(Q,I2)
	WHEN (IQ.EQ.0) TTNO=0
	ELSE TTNO=TTNO+1
C
C READ IN FLAG BYTE (DEFAULT =0)
C
	WRITE(2,2002)
2002	FORMAT(' ENTER FLAG BYTE:'/'     BIT 0 SET IF DESTINATION TASK',
	1 ' MUST BE INSTALLED'/'     BIT 1 SET IF COMPLIMENTARY QIO',
	2 ' MUST HAVE BEEN ISSUED')
	READ(1,1002) IQ,FLGS
1002	FORMAT(Q,I3)
	IF (IQ.EQ.0) FLGS=0
C
CCCCCCCCCCCCCCCCCCC
C
C READ-WRITE LOOP
C
CCCCCCCCCCCCCCCCCCC
C
1	CONTINUE
	WRITE(2,2003)
2003	FORMAT(' WAITING FOR MESSAGE . . .')
	CALL GETADR(IPRM(1),BUFFER)
	IPRM(2)=60
	IPRM(3)=ITNAME(1)
	IPRM(4)=ITNAME(2)
	IPRM(5)=IPARAM
	CALL WTQIO(IORVB,3,1,,ISTAT,IPRM)
	WRITE(2,2004) ISTAT
2004	FORMAT(' I/O STATUS DOUBLE WORD = 'O6,1X,O6)
	IF (ISTAT(1).EQ.1) WRITE(2,2005) (BUFFER(I),I=1,ISTAT(2))
2005	FORMAT(1X,80A1)
	GO TO 1
	END