C**********************************************************************
C
C
C	BIBSAVFIC.FTN EST LE PROGRAMME QUI PERMET
C	DE SAUVER LES FICHES SUR DISQUETTE.
C	 DE LA FICHE NFDA A LA FICHE NFDB 
C
C***********************************************************************
	PROGRAM SAVFIC
	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),DAY(9)
	BYTE T,TD,P,PD,A,AD,BOOK,PAGE,VOL,TAP,NSD,DAY
	COMMON /ASVAR/L
	CALL ASSIGN(4,'DL1:[204,100]FICHES.BIB')
	CALL FDBSET(4,'OLD')
	DEFINE FILE 4(8000,256,U,L)
	CALL ASSIGN(3,'DY1:[204,100]FICHES.BIB')
	CALL FDBSET(3,'NEW')
	DEFINE FILE 3(8000,256,U,LB)
	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 87 NFX=NFDA,NFDB
	NX=NFX
	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
	WRITE(3'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
	WRITE(3'NFB)NSD,NF,P,PD,TD,BOOK,VOL,PAGE,NAN,TAP,ICB,DAY,MCLE
	NFX=NFX+1
86	WRITE(3'NX)NSD,NF,NA,A,P,T,BOOK,VOL,PAGE,NAN,TAP,ICB,DAY,MCLE
87	CONTINUE
	CLOSE (UNIT=4)
	CLOSE (UNIT=3)
	CALL EXIT
	END