13 May 2023 9:35
#30308
The objective is to list strings 40 characters wide The skip back up isn't working. Please help.
program test character(200) :: strIn integer::single_character
strIn= 'the kat kissed the dog and ate his banana. The banana was too big for its mouth so it had to sneeze. '
do i = 1, len(strIn), 1 single_character = ichar(strIn(i:i)) write(,) achar(single_character) if (i < 40) print *, achar(43)!skip back up
end do end program