C**********************************************************************
C
C
C	BIBPRTALP.FTN EST LA SOUSROUTINE QUI PERMET
C	DE PRINTER TOUTES LES FICHES
C	BIBLIOGRAPHIQUES CLASSES PAR FCLASALPH.FTN
C
C***********************************************************************
	SUBROUTINE PRTAL(NBF,LETTRE)
	DIMENSION T(72,4),TD(72,4),P(6,5),PD(6,5),A(18,5)
	DIMENSION AD(18,5),BOOK(36)
	DIMENSION PAGE(10),VOL(4),TAP(10)
	DIMENSION MCLE(10),LB(1000),LA(1000)
	BYTE T,TD,P,PD,A,AD,BOOK,PAGE,VOL,TAP,NSD
	COMMON LB,LA
	OPEN (UNIT=2,NAME='DL1:[204,100]CODCLE.BIB',TYPE='OLD',
	2ACCESS='SEQUENTIAL',FORM='UNFORMATTED',SHARED)
	READ(2)NMC,NFZ,CLE
	CLOSE (UNIT=2)
	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')
	IP=0
	DO 87 NFX=1,NBF
	IP=IP+1
	IF (IP.GE.7) IP=0
	NX=LB(LA(NFX))
1	FORMAT(/,1X,' FICHE #',I6,1X,120(1H=))
2	FORMAT(1H1,//1X' FICHE #',I6,1X,120(1H=))
691	FORMAT(1X,72A1)
	READ(4'NX)NSD,NF,NA,A,P,T,BOOK,VOL,PAGE,NAN,TAP
	IF (NSD.EQ.'S') GO TO 86
	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
3	FORMAT(1X,5(18A1,', ',6A1,'; '))
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)
	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,TAP
9	FORMAT(1X,36A1,' ; ',4A1,' : ',10A1,' ;',I5,'  *** T-A-P :',10A1)
87	CONTINUE
	CLOSE (UNIT=6,DISP='PRINT')
	CLOSE (UNIT=4)
	RETURN
	END