CHAR ARRAY S1,S2

Proc Main()
 S1="Hello, "
 S2="world!";
 Sassign(S1,S2,S1(0)+1)
 Print(S1)
Return