C-----------------------------------------------------------------------------
C
C Program:	B A T S T
C
C Purpose:	Tests BADRV.
C
C Author:	Han Lasance
C		Digital Equipment B.V., Utrecht, Holland
C		for Neurophysiology Group, Organon Intern. B.V., Oss, Holland
C
C Date:		Dec-81
C
C Language:	Fortran-77
C
C Modified by:	Name			Date		Ident.	Version
C		Jan H. Belgraver	20-Mar-89	JB01	V1.1
C		Completed DOC-header, F77 style, and annotated.
C
C Calls to:	ASSIGN, EXIT, GETADR, QIO
C 
C LUNs used:	Number	Description
C		1	BA:
C		5	TI:
C
C-----------------------------------------------------------------------------



	PROGRAM BATST
 
 
	DIMENSION IBUF(2),IPARM(6)
	LOGICAL*1 IOST(4)
 
 
	CALL ASSIGN(1,'BA:')
	CALL GETADR(IPARM(1),IBUF)
	IPARM(2)=4
	CALL QIO("1000,1,1,,IOST,IPARM,IDS)
	WRITE(5,10) IDS,IOST(1),IBUF
10	FORMAT(/' IDS: ',O6,' --  IOST: ',O3,' -- FLAG CONTAINS: ',O6,' --
     $TT UNIT: ',O2/)
	CALL EXIT
	END