Nested function: Difference between revisions
Content deleted Content added
→{{header|Fortran}}: Less messing about... |
|||
| Line 151: | Line 151: | ||
CHARACTER*(*) X !The text of the item to add. |
CHARACTER*(*) X !The text of the item to add. |
||
N = N + 1 !Count another item in. |
N = N + 1 !Count another item in. |
||
WRITE (TEXT(N),1) N,SEP,X !Place the N'th text, |
WRITE (TEXT(N),1) N,SEP,X !Place the N'th text, suitably decorated.. |
||
1 FORMAT (I1,2A) !Allowing only a single digit. |
1 FORMAT (I1,2A) !Allowing only a single digit. |
||
END SUBROUTINE ADDITEM !That was simple. |
END SUBROUTINE ADDITEM !That was simple. |
||
END SUBROUTINE POOBAH !Still worth a subroutine |
END SUBROUTINE POOBAH !Still worth a subroutine. |
||
PROGRAM POKE |
PROGRAM POKE |
||