C***********************************************************************C
C									C
C									C
C	BIBTHESAU.FTN PERMET DE CORRIGER LE THESAURUS			C
C									C
C									C
C***********************************************************************C
	PROGRAM THESAU
	DIMENSION CLE(1000,12)
	BYTE CLE
	OPEN (UNIT=2,NAME='DL1:[204,100]CODCLE.BIB',TYPE='OLD',
	2ACCESS='SEQUENTIAL',FORM='UNFORMATTED',SHARED)
	READ(2)NMC,NFZ,CLE
400	TYPE 1,NFZ,NMC
1	FORMAT(/' NOMBRE DE FICHES DEJA RENTREES:',I5/
	2' NOMBRE DE MOTS CLES:',I5//)
	TYPE 4
4	FORMAT(/'$VOULEZ VOUS CORRIGER OU AJOUTER DES MOTS CLE?
	2<COR=0,FIN=1>:')
	ACCEPT 5,IREP
5	FORMAT(I5)
	IF (IREP)300,300,500
300	TYPE 8
8	FORMAT(/'$NUMERO DU MOT CLE A CORRIGER:')
	ACCEPT 5,NCOR
	IF (NCOR) 400,400,310
310	TYPE 9,(CLE(NCOR,KI),KI=1,12)
9	FORMAT(/' ANCIEN LIBELLE:',12A1/)
	TYPE 10
10	FORMAT('$NOUVEAU LIBELLE:')
	ACCEPT 7,(CLE(NCOR,KI),KI=1,12)
7	FORMAT(12A1)
	GO TO 300
500	TYPE  11,NFZ
11	FORMAT(/,' NOMBRE DE FICHES ACTUELLEMENT:',I6,/
	2'$NOMBRE DE FICHES:')
	ACCEPT 5,NFZ
	REWIND 2
	WRITE(2)NMC,NFZ,CLE
	CLOSE (UNIT=2)
	CALL EXIT
	END