24 lines
962 B
Fortran
24 lines
962 B
Fortran
SUBROUTINE POOBAH(TEXT,N,SEP) !I've got a little list!
|
|
CHARACTER*(*) TEXT(*) !The supplied scratchpad.
|
|
INTEGER N !Entry count.
|
|
CHARACTER*(*) SEP !The separator to be used.
|
|
N = 0 !No items added.
|
|
CALL ADDITEM("first") !Here we go.
|
|
CALL ADDITEM("second")
|
|
CALL ADDITEM("third")
|
|
CONTAINS !Madly, defined after usage.
|
|
SUBROUTINE ADDITEM(X) !A contained routine.
|
|
CHARACTER*(*) X !The text of the item to add.
|
|
N = N + 1 !Count another item in.
|
|
WRITE (TEXT(N),1) N,SEP,X !Place the N'th text, suitably decorated..
|
|
1 FORMAT (I1,2A) !Allowing only a single digit.
|
|
END SUBROUTINE ADDITEM !That was simple.
|
|
END SUBROUTINE POOBAH !Still worth a subroutine.
|
|
|
|
PROGRAM POKE
|
|
CHARACTER*28 TEXT(9) !Surely sufficient.
|
|
INTEGER N
|
|
CALL POOBAH(TEXT,N,". ")
|
|
WRITE (6,"(A)") (TEXT(I)(1:LEN_TRIM(TEXT(I))), I = 1,N)
|
|
END
|