      PROGRAM ASCI2D00
      IMPLICIT REAL*8(A-H,O-Z)
C

      OPEN(4,FILE='D00',STATUS='UNKNOWN',FORM='UNFORMATTED')
      OPEN(3,FILE='D00.ASCI',STATUS='OLD',FORM='FORMATTED')
C
      READ(3,*)KOUNT
      WRITE(4)KOUNT
      DO K=1,KOUNT
        READ(3,*)IS1,IL1,IP1,IS2,IL2,IP2
        WRITE(4)IS1,IL1,IP1,IS2,IL2,IP2
      ENDDO
      CLOSE(4)
      CLOSE(3)
      WRITE(*,*)'D00 WRITTEN'
C
      END

