Data commit

Task/String-concatenation/Action-/string-concatenation.action

@@ -0,0 +1,31 @@
+PROC Append(CHAR ARRAY text,suffix)
+  BYTE POINTER srcPtr,dstPtr
+  BYTE len
+
+  len=suffix(0)
+  IF text(0)+len>255 THEN
+    len=255-text(0)
+  FI
+  IF len THEN
+    srcPtr=suffix+1
+    dstPtr=text+text(0)+1
+    MoveBlock(dstPtr,srcPtr,len)
+    text(0)==+suffix(0)
+  FI
+RETURN
+
+PROC Concatenate(CHAR ARRAY text,left,right)
+  SCopy(text,left)
+  Append(text,right)
+RETURN
+
+PROC TestConcatenate(CHAR ARRAY left,right)
+  CHAR ARRAY text(256)
+
+  Concatenate(text,left,right)
+  PrintF("""%S""+""%S""=""%S""%E",left,right,text)
+RETURN
+
+PROC Main()
+  TestConcatenate("Hello", " World!")
+RETURN