C-----------------------------------------------------------------------------
C
C Program:	B I T T S T
C
C Purpose:	Test program for routine BITMAP
C
C Author:	Han Lasance
C		DEC Software Services
C
C Date:		31-JUL-80
C
C Version:	V1.1	25-FEB-86
C
C Input  files:	None
C
C Output files:	None
C
C LUNs:		Number	I/O	Description
C		   1	I/O	For free blocks info.
C
C Event flags:	Number	Description
C		See	BITMAP
C
C Calls to:	BITMAP
C
C Building:	TKB @BITTSTBLD.CMD
C
C Description:	
C
C Modified by:	Name			Date		Ident.	Vers.
C		Jan H. Belgraver	25-FEB-86	JB01	V1.1
C		1. For testing BITMAP V2.0 that now can access any disk, 
C		especially our 'new' the RP06.	
C				W a r n i n g
C		This version of BITMAP is incompatible with previous one.
C-----------------------------------------------------------------------------
C
C

	PROGRAM		B I T T S T
C
C
	INTEGER*4	IFREE, ICNTG

	LOGICAL*1	DEV(6)						! JB01

	DATA	LUN	/1/						! JB01


5	WRITE	(5, 10)
10	FORMAT	(/'$Enter disk; format ddnn:', T35, ': ')		! JB01
	READ	(5, 15, ERR=5, END=100)	NB, (DEV(I),I=1,NB)		! JB01
15	FORMAT	(Q, 5A1)						! JB01
	IF	(NB .EQ. 0 .OR. NB .LT. 3)	GOTO	5		! JB01
	DEV(NB+1)	= 0
	WRITE	(5,16)	DEV
16	FORMAT	(/' Device', T35, '= ', 6A1)

	CALL	BITMAP	(LUN, DEV, IFREE, ICNTG, IER)			! JB01
	IF	(IER .LT. 0)	STOP	'ERROR'

	WRITE	(5,40) IUN, IFREE, ICNTG
40	FORMAT	(/' Number of free blocks on disk',I2, T35, '= ', I6,	! JB01
	1	 /' Largest contiguous space', T35, '= ', I6,' blocks')	! JB01
	GOTO	5

100	STOP
	END