C**********************************************************************
C
C
C	BIBTYPOG.FTN EST LA SOUSROUTINE PERMETTANT DE CREER
C	UNE FILE DANS LAQUELLE ON AURA INDIQUE QUEL EST L'ORDRE
C	TYPOGRAPHIQUE DANS LEQUEL ON VEUT OBTENIR UN E FILE DE
C	REFENCES BIBLIOGRAPHIQUES.
C
C
C**********************************************************************
	SUBROUTINE TYPOG
	DIMENSION ORDR(25)
	DIMENSION NOM(30)
	BYTE NOM
	TYPE 12
12	FORMAT(/'$NOM DE LA FILE POUR LA TYPOGRAPHIE<SANS EXTENSION>:')
	ACCEPT 14,NCHA,(NOM(I),I=4,30)
14	FORMAT(Q,30A1)
	NOM(1)='S'
	NOM(2)='Y'
	NOM(3)=':'
	NOM(NCHA+4)='.'
	NOM(NCHA+5)='T'
	NOM(NCHA+6)='Y'
	NOM(NCHA+7)='P'
	NOM(NCHA+8)=0
	OPEN (UNIT=2,NAME=NOM,ACCESS='SEQUENTIAL',FORM='UNFORMATTED')
400	TYPE 49
49	FORMAT(//,' CODES A TAPER POUR INDIQUER L''ORDRE DE SORTIE:'/
	2' N   POUR LE NUMERO DE REFERENCE'/' A1  POUR LE PREMIER
	3 AUTEUR'/' P1  POUR LE PREMIER PRENOM'/' AP  POUR AUTEUR
	4 PUIS PRENOM'/' PA  POUR PRENOM PUIS AUTEUR'/' AF  POUR
	5 AUTEUR FINAL'/' PF  POUR PRENOM FINAL')
	TYPE 50
50	FORMAT(' T   POUR LE TITRE'/' J   POUR LE NOM DU JOURNAL'/
	2' V   POUR LE NUMERO DU VOLUME'/' P   POUR LES PAGES'/
	3' AN  POUR L''ANNEE'/' SJ  POUR SOULIGNER LE JOURNAL<ITAL>'/
	4' RETURN LORSQUE C''EST TERMINE.'/' POUR LES SEPARATEURS NE PAS
	5 COMMENCER PAR UN BLANC!'///)
	DO 200 I=1,25,2
	TYPE 45,I
45	FORMAT(//,'$CODE ',I3,' :')
	ACCEPT 47,ORDR(I)
	IF (ORDR(I).EQ.'   ') GO TO 210
	TYPE 46
46	FORMAT(//,'$SEPARATEUR <A3>: ')
	II=I+1
	ACCEPT 47,ORDR(II)
47	FORMAT(A3)
200	CONTINUE
210	TYPE 300,(ORDR(KI),KI=1,25)
300	FORMAT(/' VOUS AVEZ RENTRE:'/1X,25A3,//)
	TYPE 350
350	FORMAT(/'$C''EST BIEN CE QUE VOUS DESIREZ?<OUI OU NON>:')
	ACCEPT 47,REP
	IF (REP.EQ.'NON') GO TO 400
	WRITE(2)ORDR
	CLOSE (UNIT=2)
	RETURN
	END