C
C	PROGRAM TO CONVERT THE CODENS.DAT (CODENS FOR INORG AND ORG)
C	FROM THE SEQUENTIAL FILE WHICH WAS SUPPLIED TO A DIRECT
C	ACCESS FILE WHICH IS NEEDED FOR SEARCHING.
C
C
	INTEGER UNIT1,UNIT2
	CHARACTER*80 RESLTS
	UNIT1=1
	OPEN (UNIT=UNIT1,FILE='CODENS.DAT',STATUS='OLD',
     $  ACCESS='SEQUENTIAL',FORM='FORMATTED')
	UNIT2=2
	OPEN (UNIT=UNIT2,FILE='CODENS.DAT',STATUS='NEW',ACCESS='DIRECT',
     $  FORM='FORMATTED',RECL=80)
	IRECNO=0
5	IRECNO=IRECNO+1
	READ(UNIT1,10,END=100) RESLTS
10	FORMAT(A)
	WRITE(UNIT2,10,REC=IRECNO) RESLTS
	GO TO 5
100	CLOSE (UNIT=UNIT1)
	CLOSE (UNIT=UNIT2)
	CALL EXIT
	END
