15 lines
483 B
Plaintext
15 lines
483 B
Plaintext
TEXT PROCEDURE concatenate(head, tail);
|
|
TEXT head, tail;
|
|
BEGIN TEXT c;
|
|
c :- blanks(head.length + tail.length);
|
|
c.sub(c.start, head.length) := head; ! putText(), anyone?;
|
|
c.sub(c.start + head.length, tail.length) := tail;
|
|
concatenate:- c;
|
|
END;
|
|
|
|
TEXT stringVariable, another;
|
|
stringVariable :- "head ";
|
|
another :- concatenate(stringVariable, "and tail");
|
|
OutText("stringVariable: """); OutText(stringVariable);
|
|
OutText(""", another: "); OutText(another); Outimage;
|