PROGRAM ENCRYPT
C
C Does the reverse of DECRYPT - translates into FK5.BIN from ascii
C file
C Created 13-Feb-1992 DFB
C
      IMPLICIT NONE
      INTEGER*4 ISTAR, FKCAT, I, IERR, N, HUMCAT
C     INTEGER *4 SPECTRUM
      REAL *8 RAM, DECM
      REAL *4 PAR, RV, BV, PMRA, PMDEC, ANGDIA, VMAG
      CHARACTER * 8 NAME
      CHARACTER*4 SPECTRUM
      DATA FKCAT, HUMCAT   / 2, 3 /
C.......................................................................
      OPEN ( UNIT = FKCAT, FILE='fk5.bin', FORM='UNFORMATTED',
     $       ACCESS='DIRECT', STATUS='NEW', RECL =60, IOSTAT=IERR )
      IF ( IERR .NE. 0 ) THEN
          WRITE(*,*) ' CANNOT OPEN BINARY FK5 CATALOG - ',
     $     'MAY NEED TO DELETE OLD ONE'
          STOP
      END IF
      OPEN ( UNIT = HUMCAT, FILE='fk5.txt', STATUS='OLD')
      DO 250 I = 1, 2000
            READ(HUMCAT,*,END=900)ISTAR, NAME, RAM, DECM, PMRA, PMDEC,
     $              PAR, RV, VMAG, BV, SPECTRUM, ANGDIA
C	    WRITE(*,*)  ISTAR, NAME, RAM, DECM, SPECTRUM, ANGDIA

            WRITE(FKCAT,REC=ISTAR)ISTAR, NAME, RAM, DECM, PMRA, PMDEC,
     $              PAR, RV, VMAG, BV, SPECTRUM, ANGDIA
  250 CONTINUE
  900 CONTINUE
      PRINT*,I-1,' RECORDS ENTERED'
C***********************************************************************
      END