C***********************************************************************
C
C	PROGRAMME ANCILLAIRE DE GESTION DU 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 GESTION DU FICHIER.
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 BIBANC
	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 ANCILLAIRE DE GESTION DU
	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 changer la liste des
	2 abbreviations.'
	TYPE 31
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 ancillaire*****'
	TYPE 31
	IF (ICG.NE.-124) GO TO 55
	TYPE *,'     ABB pour creer,modifier,ou obtenir la liste des
	2 abbreviations'
55	TYPE *,'     OUT pour lister tout ou partie du fichier (se
	2quentiellement)'
	TYPE *,'     THE pour obtenir une copie du thesaurus'
	TYPE *,'     TAP pour editer des demandes de tires-a-part'
	TYPE *,'     SOS pour reobtenir ce mode d''emploi'
	TYPE *,'     FIN pour terminer la session de travail'
	TYPE 31
	GO TO 20
100	IF (ICG.NE.-124) GO TO 56
	IF (REP.EQ.'ABB') CALL ABBRE
56	IF (REP.EQ.'OUT') CALL OUTFI(DAY)
	IF (REP.EQ.'THE') CALL THESO(DAY)
	IF (REP.EQ.'TAP') CALL TAPRE(DAY)
	IF (REP.EQ.'FIN') GO TO 120
	GO TO 110
120	TYPE 31
	TYPE *,'AU REVOIR , A BIENTOT... '
	CALL EXIT
	END