C***********************************************************************
C
C	PROGRAMME DE MODIFICATION OU D'INDEXATION DES FICHES 
C	DANS LE FICHIER BIBLIOGRAPHIQUE
C	SUR PDP 11/34   SOUS RSX 11 M V3.2
C
C	CE PROGRAMME PERMET DE DIRIGER  VERS LE SOUS PROGRAMME DESIRE
C	DE MODIFICATION DES FICHES.
C
C
C	6 FICHIERS DE TYPE FILE11 SONT UTILISES:
C
C		1	DL1:[204,100]FICHES.BIB
C	CONTIENT LE LIBELLE DES FICHES BIBLIOGRAPHIQUES,
C	AVEC LEURS MOTS CLE,L'UIC ET LA DATE D'ENTREE.
C	
C		2	DL1:[204,100]CODCLE.BIB
C	CONTIENT LE LIBELLE DES 1000 MOTS CLE POSSIBLES
C	AVEC LE NOMBRE ACTUEL DES MOTS CLES DANS LE 1 ER MOT
C	ET LE NOMBRE DE FICHES DANS LE SECOND MOT
C	
C		3	DL1:[204,100]MOTCLE.BIB
C	CONTIENT LES NUMEROS DES FICHES APPARTENANT
C	AU MOT CLE CONSIDERE;CHAQUE RECORD CORRESPOND A
C	UN MOT CLE;DANS CHAQUE RECORD,LE 1ER MOT EST LE NOMBRE
C	DE FICHES DANS CE MOT CLE,ET LES 511 AUTRES SONT LES
C	NUMEROS DES FICHES REPERTORIEES.
C
C		4	DL1:[204,100]ABBAUT.BIB
C	CONTIENT LA LISTE DES ABBREVIATIONS ET LEURS CORRESPONDANCE
C	EN NOM DE JOURNAL,ANSI QUE LA LISTE DES AUTEURS A METTRE
C	AUTOMATIQUEMENT EN MOT CLE.
C
C		5	DL1:[204,100]NONINDX.BIB
C	CONTIENT LE NOMBRE DE FICHES RENTREES SANS MOT CLE DANS
C	LE 1ER MOT  ET LES NUMEROS DE CES FICHES DANS LES
C	MOTS SUIVANTS,
C
C		6	DL1:[204,100]AUTALPH.BIB
C	EST CONSTITUE DE 26 RECORDS DE 2560 MOTS.CHAQUE RECORD
C	CORRESPOND A UNE LETTRE DE L'ALPHABET.LE 1ER MOT EST
C	LE NOMBRE DE FICHES INDEXEES POUR CETTE LETTRE,ET LES
C	2559 SUIVANTS LES NUMEROS DES FICHES POSSEDANT AU MOINS
C	UN AUTEUR COMMENCANT PAR CETTE LETTRE.
C
C	
C	UNE FICHE BIBLIOGRAPHIQUE EST CONSTITUEE DE:
C
C		0/ SON TYPE ,SIMPLE ('S') OU DOUBLE ('D')
C		1/ SON NUMERO
C		2/ LE NOMBRE D'AUTEURS(1 A 10)
C		3/ 1 A 10 NOMS ET PRENOMS D'AUTEURS
C		4/ 1 A 8 LIGNES DE TITRE
C		5/ LE NOM DU JOURNAL
C		6/ LE NUMERO DU VOLUME <EN ASCII>
C		7/ LES NUMERO DE PAGE <EN ASCII>
C		8/ L'ANNEE DE PARUTION EN I4
C		9/ L'UIC SOUS LEQUEL ELLE A ETE RENTREE
C		    ET/OU INDEXEE
C		10/ LA DATE A LAQUELLE ELLE A ETE RENTREE
C		    ET/OU INDEXEE
C		11/ UNE INDICATION CONCERNANT LES T-A-P<10 LETTRES>
C		12/ 1 A  10 NUMEROS DE MOTS CLE
C
C
C	CES 6 FICHIERS SONT SAUVES SOUS L'UIC [204,100]
C	ET BENEFICIENT DE LA PROTECTION SUIVANTE:
C	(RWED,RWED,RWE,R)
C
C	POUR LES ACCEDER ON DEVRA PREALABLEMENT MONTER LE DL1 PAR
C	MCR>MOU DL1:BIBLIO1
C
C
C
C
C			Version du 23 AVRIL 1980
C			par
C
C			Dr J.-F. VIBERT
C			
C			Laboratoire de physiologie du tronc cerebral
C			Pr A. HUGELIN
C			CHU Saint Antoine
C			Universite Pierre et Marie CURIE /PARIS 
C			&
C			LA 204 CESN/CNRS 		 /GIF-SUR-YVETTE
C			FRANCE
C**********************************************************************
	PROGRAM BIBMIS
	DIMENSION IBUF(32),DAY(9)
	BYTE IBUF,DAY
	COMMON /ASVAR/L,J,JAK
	CALL GETTSK(IBUF)
	CALL DATE(DAY)
	ICG=IBUF(16)
	ICM=IBUF(15)
31	FORMAT(//)
110	TYPE 31
	TYPE *,'****PROGRAMME POUR MODIFIER LES FICHES DANS LE
	2 FICHIER BIBLIOGRAPHIQUE****'
	TYPE 31
C	-124 EST LA VALEUR DECIMALE DU NUMERO DE GROUPE 204
	IF (ICG.EQ.-124) GO TO 20
	TYPE *,' Vous n''appartenez pas au LA 204'
	TYPE *,' Vous n''etes pas autorise a ecrire sur le fichier.'
	CALL EXIT
20	TYPE *,' POUR CHOISIR LE PROGRAMME DE TRAVAIL,TAPER 3 LETTRES'
	TYPE 11
11	FORMAT(/'$     ou bien SOS pour obtenir le mode d''emploi:')
	ACCEPT 10,REP
10	FORMAT(A3)
	IF (REP.EQ.'SOS') GO TO 60
	GO TO 100
60	TYPE 31
	TYPE *,'*****Mode d''emploi du programme de modification*****'
	TYPE 31
	TYPE *,'     COR pour corriger des fiches deja entrees'
	TYPE *,'     IND pour indexer/corriger les fiches sans mot cle'
	TYPE *,'     SOS pour reobtenir ce mode d''emploi'
	TYPE *,'     FIN pour terminer la session de travail'
	TYPE 31
	GO TO 20
100	IF (REP.EQ.'IND') CALL INDEX(ICM,DAY)
	IF (REP.EQ.'COR') CALL CORRE(ICM,DAY)
	IF (REP.EQ.'FIN') GO TO 120
	GO TO 110
120	TYPE 31
	TYPE *,'AU REVOIR , A BIENTOT... '
	CALL EXIT
	END