WRITE (6,1) (I,I = 1,10)
    1 FORMAT (4(1X,I0,","),1X,I0)
      END