J=7
      K=10-J
      L=-6+J
      J=0
      DO 10 I=1,10
      J=J+I*10
   10 CONTINUE
      WRITE(6,100)J
  100 FORMAT(1H ,I6)
      END