Split a character string based on change of character: Difference between revisions
Content added Content deleted
(→{{header|Fortran}}: Aha!) |
|||
Line 250: | Line 250: | ||
1 FORMAT (A,$) !The $ sez: do not end the line. |
1 FORMAT (A,$) !The $ sez: do not end the line. |
||
END DO !On to the next character. |
END DO !On to the next character. |
||
WRITE (6, |
WRITE (6,1) !Thus end the line. No output item means that the $ is not reached, so the line is ended. |
||
END SUBROUTINE SPLATTER !TEXT with spaces, or worse, commas, will produce an odd-looking list. |
END SUBROUTINE SPLATTER !TEXT with spaces, or worse, commas, will produce an odd-looking list. |
||