CHARACTER*2 Chr,l4
      Character*9 sted
      character*1 l1,l2,l3
      character*1 tab,pu
      OPEN(24,FILE='SKE-snp6.txt',STATUS='OLD')
      OPEN(9,FILE='lod-9.txT',STATUS='unknown')
      OPEN(10,FILE='lod-10.txT',STATUS='unknown')
      OPEN(11,FILE='lod-11.txT',STATUS='unknown')
      OPEN(12,FILE='lod-12.txT',STATUS='unknown')
      OPEN(13,FILE='lod-13.txT',STATUS='unknown')
      OPEN(14,FILE='lod-14.txT',STATUS='unknown')
      OPEN(15,FILE='lod-15.txT',STATUS='unknown')
      OPEN(16,FILE='lod-16.txT',STATUS='unknown')

      tab=char(9)

  3   FORMAT(A2,2x,a9,5x,3A1,a1,a2)
  5   FORMAT(A2,a1,a9,a1,3a1,a1,a2)
  7   FORMAT(A2,a1,a9,a1,2a1,a1,a2)

  4   read(24,3,END=20)chr,sted,l1,l2,l3,pu,l4
      if(pu .eq. '.') pu =','
      if(l1 .eq.' ')goto 8
    
      if(chr .eq. '9 ' .or. chr .eq. ' 9')write(9,5)chr,tab,sted,
     -tab,l1,l2,l3,pu,l4
      if(chr .eq. '10')WRITE(10,5)chr,tab,sted,tab,l1,l2,l3,pu,l4
      if(chr .eq. '11')write(11,5)chr,tab,sted,tab,l1,l2,l3,pu,l4
      if(chr .eq. '12')WRITE(12,5)chr,tab,sted,tab,l1,l2,l3,pu,l4
      if(chr .eq. '13')write(13,5)chr,tab,sted,tab,l1,l2,l3,pu,l4
      if(chr .eq. '14')WRITE(14,5)chr,tab,sted,tab,l1,l2,l3,pu,l4
      if(chr .eq. '15')write(15,5)chr,tab,sted,tab,l1,l2,l3,pu,l4
      if(chr .eq. '16')WRITE(16,5)chr,tab,sted,tab,l1,l2,l3,pu,l4
       GOTO 4
  
   8  if(chr .eq. '9 ' .or. chr .eq. ' 9')write(9,7)chr,tab,sted,
     -tab,l2,l3,pu,l4
      if(chr .eq. '10')WRITE(10,7)chr,tab,sted,tab,l2,l3,pu,l4
      if(chr .eq. '11')write(11,7)chr,tab,sted,tab,l2,l3,pu,l4
      if(chr .eq. '12')WRITE(12,7)chr,tab,sted,tab,l2,l3,pu,l4
      if(chr .eq. '13')write(13,7)chr,tab,sted,tab,l2,l3,pu,l4
      if(chr .eq. '14')WRITE(14,7)chr,tab,sted,tab,l2,l3,pu,l4
      if(chr .eq. '15')write(15,7)chr,tab,sted,tab,l2,l3,pu,l4
      if(chr .eq. '16')WRITE(16,7)chr,tab,sted,tab,l2,l3,pu,l4
       GOTO 4

  20   STOP
      END