--- a/StringsLib.def
+++ b/StringsLib.def
@@ -9,7 +9,7 @@
   (* Licence        : GNU Lesser General Public License (LGPL)              *)
   (*------------------------------------------------------------------------*)
 
-  (* $Id: StringsLib.def,v 1.2 2018/03/24 23:38:09 mriedl Exp mriedl $ *)
+  (* $Id: StringsLib.def,v 1.5 2018/07/03 07:51:05 mriedl Exp mriedl $ *)
 
 PROCEDURE Length(Str : ARRAY OF CHAR) : CARDINAL;
 
@@ -43,6 +43,29 @@
           (* terminated                                                     *)
           (*----------------------------------------------------------------*)
 
+PROCEDURE SubString(VAR Quelle : ARRAY OF CHAR;
+                        s,e    : CARDINAL;
+                    VAR SubStr : ARRAY OF CHAR);
+
+          (*----------------------------------------------------------------*)
+          (* Kopiert Zeichen von Quelle in "SubStr", beginnend an der       *)
+          (* Position "s" bis zur Position "e". Im Fehlerfall wird 0C       *)
+          (* zurueckgegeben.                                                *)
+          (*                                                                *)
+          (* Copies characters from source to destination starting from     *)
+          (* position "s" to end position "e" in Quelle to target "SubStr". *)
+          (* In case of an error "0C" isreturned                            *)
+          (*----------------------------------------------------------------*)
+
+PROCEDURE AppendChar(VAR str  : ARRAY OF CHAR;
+                         char : CHAR);
+
+          (*----------------------------------------------------------------*)
+          (* Haengt das zeichen "char" an die Zeichenkette "str"            *)
+          (*                                                                *)
+          (* Append character "char" to string "str"                        *)
+          (*----------------------------------------------------------------*)
+
 PROCEDURE Append(VAR Str1 : ARRAY OF CHAR;
                      Str2 : ARRAY OF CHAR);