C**********************************************************************
C
C
C	BIBORDRE.FTN PERMET D'EDITER UNE FILE DE REFERENCES DL0:*.REF
C	CETTE BIBLIOGRAPHIE SERA TAPEE AVEC LA TYPOGRAPHIE  DL0:*.TYP.
C
C	UNE FILE DE MEME NOM QUE LES REFERENCES SERA SPOOLEE
C	ON POURRA LA RETAPER SUR UN AUTRE DEVICE PAR PIP
C
C	LA FILE A RETAPER SERA TROUVEE EN DL0:*.LST 
C
C
C**********************************************************************
	SUBROUTINE ORDRE(NDFA,LB,NOMA,ORDR,COM)
	DIMENSION LB(512)
	DIMENSION NOMA(30),NOMB(30),ORDR(25),COM(132)
	BYTE NOMA,NOMB,COM
	TYPE 12
12	FORMAT(/'$NOM DE LA FILE DES REFERENCES(SANS EXTENSION):')
	ACCEPT 14,NCHA,(NOMA(I),I=4,30)
14	FORMAT(Q,30A1)
	NOMA(1)='S'
	NOMA(2)='Y'
	NOMA(3)=':'
	NOMA(NCHA+4)='.'
	NOMA(NCHA+5)='R'
	NOMA(NCHA+6)='E'
	NOMA(NCHA+7)='F'
	NOMA(NCHA+8)=0
	TYPE 13
13	FORMAT(/'$NOM DE LA FILE POUR LA TYPOGRAPHIE<SANS EXTENSION>:')
	ACCEPT 14,NCHB,(NOMB(I),I=4,30)
	NOMB(1)='S'
	NOMB(2)='Y'
	NOMB(3)=':'
	NOMB(NCHB+4)='.'
	NOMB(NCHB+5)='T'
	NOMB(NCHB+6)='Y'
	NOMB(NCHB+7)='P'
	NOMB(NCHB+8)=0
	TYPE 20
20	FORMAT(/' TITRE A IMPRIMER EN EN-TETE<72 CARACTERES MAXI>:'/)
	ACCEPT 21,(COM(KI),KI=1,72)
21	FORMAT(72A1)
	TYPE 22
22	FORMAT(/,' APRES ETRE SORTI DE REF,VOUS DEVREZ, SI VOUS
	4 DESIREZ PLUS D''UNE COPIE:'
	2/' SUR L''IMPRIMANTE:>PIP XXXX.LST/SP:n POUR n COPIES'/
	3' SUR UN TTY:>PIP TTY:=XXXX.LST A FAIRE n FOIS!'//)
	OPEN (UNIT=1,NAME=NOMA,TYPE='OLD',ACCESS='SEQUENTIAL'
	2,FORM='UNFORMATTED')
	OPEN (UNIT=2,NAME=NOMB,ACCESS='SEQUENTIAL',FORM='UNFORMATTED',
	2TYPE='OLD')
	READ(1)NDFA,LB
	READ(2)ORDR
	NOMA(NCHA+5)='L'
	NOMA(NCHA+6)='S'
	NOMA(NCHA+7)='T'
	CLOSE (UNIT=1)
	CLOSE (UNIT=2)
	RETURN
	END