>>258
DO 10 I=1,10
WRITE(6,'(1I2)') I
10 CONTINUE

ですか?