C***********************************************************************
C
C	PROGRAMME GENERAL DE SORTIE PROPRE 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	LA SORTIE DU FICHIER.
C
C
C	3 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	SY:[ggg,mmm]XXXXX.REF
C	CONTIENT LA LISTE DES REFERENCES A SORTIR
C	ELLE EST CREE PAR REF
C	
C		3	SY:[ggg,mmm]XXXXX.TYP
C	CONTIENT LEL'ORDRE TYPOGRAPHIQUE DE SORTIE.
C
C
C
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 ENTRE
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
C		12/ 1 A  10 NUMEROS DE MOTS CLE
C
C
C
C	POUR ACCEDER LE FICHIER 1 ON DEVRA PREALABLEMENT MONTER LE DL1 PAR
C	MCR>MOU DL1:BIBLIO1
C
C
C**********************************************************************
	PROGRAM REFER
	DIMENSION LA(512),COMM(132),NOM(30),OR(25)
	BYTE COMM,NOM
	COMMON /ASVAR/L
31	FORMAT(//)
110	TYPE 31
	TYPE *,'****PROGRAMME DE SORTIE DU FICHIER BIBLIOGRAPHIQUE****'
	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 50
	GO TO 100
50	TYPE 31
	TYPE *,' ***** MODE D''EMPLOI DE L''EDITION DES LISTES DE 
	2 REFERENCES *****'
	TYPE 31
	TYPE *,'     REF POUR CREER OU MODIFIER UNE FILE DE REFERENCES'
	TYPE *,'     ORD POUR LISTER REF SEQUENTIELLEMENT'
	TYPE *,'     ALP POUR LISTER REF PAR ORDRE ALPHABETIQUE'
	TYPE *,'     DAT POUR LISTER REF PAR ORDRE CHRONOLOGIQUE'
	TYPE *,'     TYP POUR INDIQUER LA TYPOGRAPHIE DU LISTING'
	TYPE *,'     SOS POUR REOBTENIR CE MODE D''EMPLOI'
	TYPE *,'     FIN POUR TERMINER LA SESSION DE TRAVAIL'
	TYPE 31
	GO TO 20
100	CONTINUE
	IF (REP.EQ.'REF') CALL REFER(NDF,LA,NOM,OR,COMM)
	IF (REP.EQ.'ORD') CALL ORDRE(NDF,LA,NOM,OR,COMM)
	IF (REP.EQ.'ALP') CALL ALPHA(NDF,LA,NOM,OR,COMM)
	IF (REP.EQ.'DAT') CALL DATER(NDF,LA,NOM,OR,COMM)
	IF ((REP.EQ.'DAT').OR.(REP.EQ.'ALP').OR.(REP.EQ.'ORD')) CALL
	2 SORTI(NDF,LA,NOM,OR,COMM)
	IF (REP.EQ.'TYP') CALL TYPOG
	IF (REP.EQ.'FIN') GO TO 120
	GO TO 110
120	TYPE 31
	TYPE *,'AU REVOIR ET A BIENTOT'
	CALL EXIT
	END