22 lines
398 B
Text
22 lines
398 B
Text
MODULE Concat;
|
|
|
|
IMPORT Out,Strings;
|
|
|
|
VAR
|
|
S1:ARRAY 16 OF CHAR;
|
|
S2:ARRAY 8 OF CHAR;
|
|
PS1,PS2:POINTER TO ARRAY OF CHAR;
|
|
BEGIN
|
|
(* Static *)
|
|
S1 := "Hello ";
|
|
S2 := "literal";
|
|
Strings.Append(S2, S1);
|
|
Out.String(S1); Out.Ln;
|
|
(* Dynamic *)
|
|
NEW(PS1, 16);
|
|
NEW(PS2, 8);
|
|
COPY("Hello ", PS1^);
|
|
COPY("literal", PS2^);
|
|
Strings.Append(PS2^, PS1^);
|
|
Out.String(PS1^); Out.Ln;
|
|
END Concat.
|