C**********************************************************************
C
C
C	BIBDETECT.FTN PERMET
C	DE TESTER QUANT A LEUR VALIDITE TOUTES LES FICHES
C	BIBLIOGRAPHIQUES RENTREES DE LA FICHE NFDA A LA FICHE NFDB 
C
C***********************************************************************
	PROGRAM DETECT
	DIMENSION T(72,4),TD(72,4),P(6,5),PD(6,5),A(18,5)
	DIMENSION AD(18,5),BOOK(36),CLE(1000,12)
	DIMENSION PAGE(10),VOL(4),MOC(12,10),TAP(10)
	DIMENSION MCLE(10),DAY(9)
	BYTE T,TD,P,PD,A,AD,BOOK,CLE,PAGE,VOL,MOC,TAP,NSD,DAY
	COMMON /ASVAR/L
	OPEN (UNIT=2,NAME='DL1:[204,100]CODCLE.BIB',TYPE='OLD',
	2ACCESS='SEQUENTIAL',FORM='UNFORMATTED',SHARED)
	READ(2)NMC,NFZ,CLE
	CALL ASSIGN(4,'DL1:[204,100]FICHES.BIB')
	CALL FDBSET(4,'OLD')
	DEFINE FILE 4(8000,256,U,L)
	TYPE 400
400	FORMAT(/,'$NUMERO DE LA PREMIERE FICHE A TESTER<RETURN=DEBUT>:')
	ACCEPT 410,NFDA
	IF (NFDA.EQ.0) NFDA=1
410	FORMAT(I5)
	TYPE 420
420	FORMAT(/,'$NUMERO DE LA DERNIERE FICHE A TESTER<RETURN=FIN>:')
	ACCEPT 410,NFDB
	IF (NFDB.EQ.0) NFDB=NFZ
	IP=0
	DO 87 NFX=NFDA,NFDB
	IP=IP+1
	IF (IP.GE.3) IP=0
	NX=NFX
1	FORMAT(///,1X,' FICHE #',I6,1X,120(1H=))
2	FORMAT(1H1,' FICHE #',I6,1X,120(1H=))
691	FORMAT(1X,72A1)
	READ(4'NX,ERR=50)NSD,NF,NA,A,P,T,BOOK,VOL,PAGE,NAN,TAP,ICB,DAY,MCLE
	IF (NSD.EQ.'S') GO TO 86
	IF (NSD.EQ.'K') TYPE 51,NFX
	IF (NSD.EQ.'K') GO TO 87
51	FORMAT(/' LA FICHE ',I10,'  EST MISE A KILLER.'/)
	READ(4'NX,ERR=50)NSD,NF,NA,A,AD,T
	NFB=NX+1
	READ(4'NFB,ERR=50)NSD,NF,P,PD,TD,BOOK,VOL,PAGE,NAN,TAP,ICB,DAY,MCLE
3	FORMAT(/,1X,5(18A1,', ',6A1,'; '))
	NFX=NFX+1
86	DO 60 I=1,10
	IF ((MCLE(I).GT.NMC).OR.(MCLE(I).LT.0)) TYPE 52,NF
60	CONTINUE
52	FORMAT(/' LA LISTE DES MOTS CLES DE LA FICHE ',I10,'  EST
	2MAUVAISE.',/)
	GO TO 87
50	TYPE 53,NFX
53	FORMAT(/' LA FICHE ',I10,' EST ILLISIBLE'/)
87	CONTINUE
	CLOSE (UNIT=2)
	CLOSE (UNIT=4)
	CALL EXIT
	END