C**********************************************************************
C
C
C	BIBOUTFIC.FTN EST LA SOUSROUTINE QUI PERMET
C	DE PRINTER TOUTES LES FICHES
C	BIBLIOGRAPHIQUES RENTREES DE LA FICHE NFDA A LA FICHE NFDB 
C
C***********************************************************************
	SUBROUTINE OUTFI(DAY)
	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)
	OPEN (UNIT=6,NAME='SY:LP.LST',DISP='PRINT',TYPE='NEW')
	TYPE 400
400	FORMAT(/,'$NUMERO DE LA PREMIERE FICHE A SORTIR<RETURN=DEBUT>:')
	ACCEPT 410,NFDA
	IF (NFDA.EQ.0) NFDA=1
410	FORMAT(I5)
	TYPE 420
420	FORMAT(/,'$NUMERO DE LA DERNIERE FICHE A SORTIR<RETURN=FIN>:')
	ACCEPT 410,NFDB
	IF (NFDB.EQ.0) NFDB=NFZ
	DO 7000 ICL=1,12
7000	CLE(1000,ICL)=' '
	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)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') GO TO 87

	READ(4'NX)NSD,NF,NA,A,AD,T
	NFB=NX+1
	READ(4'NFB)NSD,NF,P,PD,TD,BOOK,VOL,PAGE,NAN,TAP,ICB,DAY,MCLE
3	FORMAT(/,1X,5(18A1,', ',6A1,'; '))
	NFX=NFX+1
86	IF (IP.EQ.1) PRINT 2,NF
	IF (IP.NE.1) PRINT 1,NF
	IF (NA.LE.5) PRINT 3,((A(K,I),K=1,18),(P(K,I),K=1,6),I=1,NA)
	IF (NA.GT.5) PRINT 3,((A(K,I),K=1,18),(P(K,I),K=1,6),I=1,5)
	IF(NA.GT.5)PRINT 3,((AD(K,I-5),K=1,18),(PD(K,I-5),K=1,6),I=6,NA)
8	FORMAT(72A1)
	I=1
18	PRINT 691,(T(K,I),K=1,72)
	IF (T(1,I).EQ.' ') GO TO 17
	I=I+1
	IF (I-4) 18,18,17
17	CONTINUE
	IF (NSD.EQ.'S') GO TO 701
	I=1
19	PRINT 691,(TD(K,I),K=1,72)
	IF (TD(1,I).EQ.' ') GO TO 701
	I=I+1
	IF (I-4) 19,19,701
701	PRINT 9,BOOK,VOL,PAGE,NAN
9	FORMAT(1X,36A1,' ; ',4A1,' : ',10A1,' ;',I5)
	PRINT 105,TAP
105	FORMAT(/,' T-A-P:',10A1)
700	FORMAT(/,' Fiche entree ou modifiee le ',9A1,
	2' sous l''UIC numero [ 204,',O3,' ]')
	DO 350 NCL=1,10
	IF (MCLE(NCL).EQ.0) MCLE(NCL)=1000
350	CONTINUE
360	PRINT 355
355	FORMAT(' Mots cles :')
	PRINT 358,((CLE(MCLE(NCL),K),K=1,12),NCL=1,10)
358	FORMAT(1X,10(12A1,' '))
	PRINT 700,DAY,ICB
87	CONTINUE
	CLOSE (UNIT=2)
	CLOSE (UNIT=6,DISP='PRINT')
	CLOSE (UNIT=4)
	RETURN
	END