7 lines
150 B
Fortran
7 lines
150 B
Fortran
IVALUE = 0
|
|
10 CONTINUE
|
|
IVALUE=IVALUE+1
|
|
WRITE(6,301) IVALUE
|
|
301 FORMAT(I5)
|
|
IF(MOD(IVALUE,6).NE.0) GOTO 10
|
|
END
|