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

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

