C**********************************************************************
C
C
C	BIBSUPFIC.FTN EST LA SOUSROUTINE QUI PERMET
C	DE SOUMETTRE DES FICHES A LA SUPPRESSION DU FICHIER
C
C***********************************************************************
	SUBROUTINE SUPFI
	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),DAYB(9),TAP(10)
	DIMENSION MCLE(10),IAKIL(10)
	BYTE T,TD,P,PD,A,AD,BOOK,PAGE,VOL,DAYB,TAP
	BYTE NSD,CR
	COMMON /ASVAR/L,J
	COMMON /FKIL/NAKIL,IAKIL
	CALL ASSIGN(4,'DL1:[204,100]FICHES.BIB')
	CALL FDBSET(4,'OLD')
	DEFINE FILE 4(8000,256,U,L)
8100	TYPE 1902
1902	FORMAT('$Numero de la fiche a supprimer du fichier:')
	ACCEPT 1903,NF
1903	FORMAT(I5)
	TYPE 1,NF
1	FORMAT(//,' FICHE #',I6,//)
4	FORMAT(I4)
	READ(4'NF)NSD,NF,NA,A,P,T,BOOK,VOL,PAGE,NAN,TAP,ICB,DAYB,MCLE
	IF (NSD.EQ.'S') GO TO 86
	READ(4'NF)NSD,NF,NA,A,AD,T
	NFB=NF+1
	READ(4'NFB)NSD,NF,P,PD,TD,BOOK,VOL,PAGE,NAN,TAP,ICB,DAYB,MCLE
86	DO 10 I=1,NA
2	FORMAT(/,' AUTEUR #',I3)
3	FORMAT(/,' AUTEUR #',I3,1X,18A1,1X,6A1)
	IF (I.LE.5) TYPE 3,I,(A(K,I),K=1,18),(P(K,I),K=1,6)
	IF (I.GT.5) TYPE 3,I,(AD(K,I-5),K=1,18),(PD(K,I-5),K=1,6)
31	FORMAT(18A1)
6	FORMAT(6A1)
10	CONTINUE
	TYPE 7
7	FORMAT(//,' TITRE',/)
691	FORMAT(1X,72A1)
8	FORMAT(72A1)
	I=1
18	TYPE 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	TYPE 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	TYPE 9,BOOK,VOL,PAGE,NAN
9	FORMAT(/,' ',36A1,';',4A1,':',10A1,'(',I4,')')
	TYPE 105,TAP
105	FORMAT(/,' T-A-P:',10A1)
	TYPE 700,DAYB,ICB
700	FORMAT(/,' FICHE ENTREE OU MODIFIEE LE ',9A1,
	2' SOUS L''UIC NUMERO [ 204,',O3,' ]')
100	FORMAT(36A1)
103	FORMAT(10A1)
	TYPE 8026
8026	FORMAT(/'$Vous desirez vraiment "KILLER" la fiche?<O ou [N]>:')
	ACCEPT 507,CR
	IF (CR.NE.'O') GO TO 8100
	NAKIL=NAKIL+1
	IAKIL(NAKIL)=NF
	TYPE 8030
8030	FORMAT(/'$Desirez vous supprimer une autre fiche?<O ou [N]>:')
	ACCEPT 507,CR
507	FORMAT(A1)
	IF (CR.EQ.'O') GO TO 8100
	CLOSE (UNIT=4)
	RETURN
	END