program loop 1 format ('+',I5,$) do i = 1, 1000 write (6,1) I enddo end