C-----------------------------------------------------------------------------
C Program:	B A T T S T
C
C Purpose:	Tests Batch processing package.
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	24-Mar-89	JB01	V1.1
C		Completed DOC-header, F77 style, and annotated.
C
C Calls to:	BATCH, EXIT
C
C Event flags:	None
C
C LUNs:		Number	Description
C		3	Terminal output
C		4	BA:, answer files
C		5	Terminal input
C		6	Terminal output
C-----------------------------------------------------------------------------



	PROGRAM BATTST


	LOGICAL		PRCFLG,	BATFLG

	LOGICAL*1	STRING(32)


	CALL	BATCH	(4,PRCFLG,BATFLG,IER)
	IF	(IER.NE.1) GO TO 500
	WRITE	(6,10)
10	FORMAT	(/'$ENTER STRING: ')
	READ	(5,20,END=1000) NCH,(STRING(I),I=1,NCH)
20	FORMAT	(Q,32A1)
	WRITE	(4,20) NCH,(STRING(I),I=1,NCH)
	WRITE	(6,30)
30	FORMAT	(/'$ENTER REAL,INTEGER: ')
	READ	(5,40,END=1000) REAL,INT
40	FORMAT	(F12.5,I6)
	WRITE	(4,40) REAL,INT
	CLOSE	(UNIT=4)
	IF	(.NOT.PRCFLG) GO TO 100
	WRITE	(3,45) (STRING(I),I=1,NCH)
45	FORMAT	(/' STRING: ',32A1)
	RESULT	= REAL*FLOAT(INT)
	WRITE	(3,50) RESULT
50	FORMAT	(/' RESULT: ',F15.7)
100	STOP

500	WRITE	(6,510) IER
510	FORMAT	(/' *** FATAL *** "BATCH" ERROR: ',O6/)
1000	CALL	EXIT
	END