forums.silverfrost.com

[Zach]

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

[mecej4]

Duplicate of post http://forums.silverfrost.com/viewtopic.php?t=4792 by same poster.