Joined: 13 Mar 2023
Location: Groningen, Netherlands
|Posted: Sat May 13, 2023 10:35 pm Post subject: Lsiting question
|The objective is to list strings 40 characters wide
The skip back up isn't working. Please help.
character(200) :: strIn
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))
if (i < 40) print *, achar(43)!skip back up