[pdp8.git] / sw / src / f4 / EINMA.FT

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