C-----CALCULATING 99
      INTEGER i, j
      DO 100 i=1, 9
      DO 100 j=1, 9
         PRINT *, i, j, i*j
  100 CONTINUE
      END