c
c  reformat conformation data
c
      parameter (no=25)
      character*12 anim,farm,blnk
      character*6 judgID
      real*8 tm(no,5),x,z,dx,dx2
      integer parity,jdate,bdate,cdate
      integer jyy,jmm,jdd,byy,bmm,bdd,cyy,cmm,cdd
      integer tr(no),tlast,pard(10),agej,agec
      integer jug,birth,calv,erv(no)

      open(10,file='TYP02S.d',form='formatted',status='old')
      open(15,file='missings.d',form='formatted',status='unknown')

      nol=0
      mam=0
      blnk='            '
 10   read(10,1510,end=50)anim,farm,jdate,bdate,cdate,agej,
     x agec,judgID,parity,tr
      mam=mam+1
      erv=0
      do 13 k=1,no
         if(tr(k).gt.0)erv(k)=1
 13   continue   
      write(15,1540)erv
 1510 format(1x,a12,1x,a12,3i9,2i7,a6,i3,25i3)
c               13  14  26 53  67  73 76 151
c  -r152 -ka2a12a27a9  animal, judge date
 1540 format(1x,25i1)
      go to 10
 50   print *,mam,' Records'
      close(10)
      close(15)
      stop
      end