sw/src/f4/EINMA.FT

   1 1000  DO 5000 I=0,30
   2       I2=2*I
   3       I3=3*I
   4       I4=4*I
   5       I5=5*I
   6       WRITE(5,1200)I,I2,I3,I4,I5
   7 1200  FORMAT(5I10)
   8 5000  CONTINUE
   9       END
  10 $
  11 \f