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(1,FILE='lod-1.txT',STATUS='unknown')
      OPEN(2,FILE='lod-2.txT',STATUS='unknown')
      OPEN(3,FILE='lod-3.txT',STATUS='unknown')
      OPEN(4,FILE='lod-4.txT',STATUS='unknown')
      OPEN(5,FILE='lod-5.txT',STATUS='unknown')
      OPEN(6,FILE='lod-6.txT',STATUS='unknown')
      OPEN(7,FILE='lod-7.txT',STATUS='unknown')
      OPEN(8,FILE='lod-8.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. '1 ' .or. chr .eq. ' 1')write(1,5)chr,tab,
     - sted,tab,l1,l2,l3,pu,l4
      if(chr .eq. ' 2' .or. chr .eq. ' 2')WRITE(2,5)chr,tab,
     -sted,tab,l1,l2,l3,pu,l4
      if(chr .eq. ' 3' .or. chr .eq. ' 3')write(3,5)chr,tab,
     -sted,tab,l1,l2,l3,pu,l4
      if(chr .eq. ' 4' .or. chr .eq. ' 4')WRITE(4,5)chr,tab,
     -sted,tab,l1,l2,l3,pu,l4
      if(chr .eq. ' 5' .or. chr .eq. ' 5')write(5,5)chr,tab,
     -sted,tab,l1,l2,l3,pu,l4
      if(chr .eq. ' 6' .or. chr .eq. ' 6')WRITE(6,5)chr,tab,
     -sted,tab,l1,l2,l3,pu,l4
      if(chr .eq. ' 7' .or. chr .eq. ' 7')write(7,5)chr,tab,
     -sted,tab,l1,l2,l3,pu,l4
      if(chr .eq. ' 8' .or. chr .eq. ' 8')WRITE(8,5)chr,tab,
     -sted,tab,l1,l2,l3,pu,l4
       GOTO 4
  
   8  if(chr .eq. '1 ' .or. chr .eq. ' 1')write(1,7)chr,tab,
     -sted,tab,l2,l3,pu,l4
      if(chr .eq. '2 ' .or. chr .eq. ' 2')WRITE(2,7)chr,tab,
     -sted,tab,l2,l3,pu,l4
      if(chr .eq. '3 ' .or. chr .eq. ' 3')write(3,7)chr,tab,
     -sted,tab,l2,l3,pu,l4
      if(chr .eq. '4 ' .or. chr .eq. ' 4')WRITE(4,7)chr,tab,
     -sted,tab,l2,l3,pu,l4
      if(chr .eq. '5 ' .or. chr .eq. ' 5')write(5,7)chr,tab,
     -sted,tab,l2,l3,pu,l4
      if(chr .eq. '6 ' .or. chr .eq. ' 6')WRITE(6,7)chr,tab,
     -sted,tab,l2,l3,pu,l4
      if(chr .eq. '7 ' .or. chr .eq. ' 7')write(7,7)chr,tab,
     -sted,tab,l2,l3,pu,l4
      if(chr .eq. '8 ' .or. chr .eq. ' 8')WRITE(8,7)chr,tab,
     -sted,tab,l2,l3,pu,l4
       GOTO 4

  20   STOP
      END