C..	BITRED.FTN   BOHDEN CMAYLO DEC 1981
	SUBROUTINE BITRED(IN,ACCNT,NUMDOC,INDOC1)
C..
C..	THIS ROUTINE READS IN ONE BLOCK OF BITMAP.W11 AND
C..	DETERMINES WHETHER OR NOT DOCS EXIST
C..
C..	INDOC1:  1=EXISTS, 0=NOEXISTS, -1=NO BITMAP.W11
C..
	DOUBLE PRECISION ACCNT
	COMMON /INPUTX/INPUT(512)
	BYTE INPUT
	K=0
	INDOC1=0
	IENC=23
	ENCODE(IENC,5,INPUT)ACCNT
5	FORMAT('WP:[',A7,']BITMAP.W11 ')
	CALL RIDBLK(INPUT,IENC)
C**	TYPE 10,IN,(INPUT(I),I=1,IENC)
C**10	FORMAT(' ASSIGN ',I2,',',80A1)
C.. ASSIGN AND READ FIRST BLOCK TO GET NUMBER OF DOCS
C.. CHECK FOR ERRORS IN ASSIGN
	CALL ASSIGN(IN,INPUT)
	READ(IN,1,END=3,ERR=4)IQ,(INPUT(I),I=1,IQ)
1	FORMAT(Q,132A1,132A1,132A1,132A1)
	CALL CLOSE(IN)
C.. CHECK FOR DOCUMENT 1 EXISTENCE
	IF(INPUT(1).NE.0) INDOC1=1
C.. CHECK FOR EMPTY DOCUMENT
	DO 2 K=2,IQ
	IF(INPUT(K).EQ.0) GO TO 3
2	CONTINUE
	K=0
C.. GET NEXT DOCUMENT NUMBER
3	NUMDOC=K
33	CALL CLOSE(IN)
	RETURN
C..   NO BITMAP.W11 DOC
4	NUMDOC=0
	INDOC1=-1
	GO TO 33
	END