8 lines
100 B
Text
8 lines
100 B
Text
CHAR ARRAY S1,S2
|
|
|
|
Proc Main()
|
|
S1="Hello, "
|
|
S2="world!";
|
|
Sassign(S1,S2,S1(0)+1)
|
|
Print(S1)
|
|
Return
|