C******************************************************************
C
C
C	FICHALPHA.FTN EST LE PROGRAMME POUR SORTIR LE FICHIER
C	COMPLET PAR ORDRE ALPHABETIQUE SUR LES 6 PREMIERES LETTRES
C	DU PREMIER AUTEUR,LE 4 PREMIERES DU SECOND, ET LES 2 PREMIERES
C	DU TROISIEME.
C
C********************************************************************
	PROGRAM FICHALPHA
	INTEGER AUT(2259),LB(1000)
	BYTE LETTRE,A(18,5),NSD,LLET,LALETR
	COMMON LB,AUT
	TYPE *,'PROGRAMME DE SORTIE DU FICHIER PAR ORDRE ALPHABETIQUE'
	TYPE 1
1	FORMAT(/'$PREMIERE LETTRE A CLASSER:')
	ACCEPT 2,LETTRE
2	FORMAT(1A1)
	TYPE 3
3	FORMAT(/'$DERNIERE LETTRE A CLASSER:')
	ACCEPT 2,LLET
	ILA=LETTRE-64
	ILB=LLET-64
	DO 100 ILK=ILA,ILB
	OPEN (UNIT=1,NAME='DL1:[204,100]AUTALPH.BIB',TYPE='OLD'
	2,ACCESS='DIRECT',SHARED,FORM='UNFORMATTED',RECORDSIZE=1280
	3,ASSOCIATEVARIABLE=JAK,MAXREC=26)
	IL=ILK
	LALETR=IL+64
	READ(1'IL)NFC,AUT
	CLOSE (UNIT=1)
	CALL ASSIGN(4,'DL1:[204,100]FICHES.BIB')
	CALL FDBSET(4,'OLD')
	DEFINE FILE 4(8000,256,U,L)
	I=0
	DO 1000 NFD=1,NFC
	NFK=AUT(NFD)
	READ(4'NFK)NSD,NF,NA,A,P,T,BOOK,VOL,PAGE,NAN,TAP,ICM,DAY,MCLE
	IF (NSD.EQ.'K') GO TO 1000
	IF (A(1,1).NE.LALETR) GO TO 1000
	I=I+1
	IF (I.LT.1000) GO TO 86
	TYPE *,'===> PLUS DE 1000 FICHES <==='
	GO TO 87
86	LB(I)=NFK
1000	CONTINUE
87	CONTINUE
	CLOSE (UNIT=4)
	CALL FCLAS(I,LALETR)
	CALL PRTAL(I,LALETR)
	TYPE 4,LALETR
4	FORMAT(' JE VIENS DE TERMINER LA LETTRE ',A1/)
100	CONTINUE
	STOP
	END