--- a
+++ b/BaseLib.def
@@ -0,0 +1,23 @@
+DEFINITION MODULE BaseLib;
+
+ (*------------------------------------------------------------------------*)
+ (* Module um einige sehr elementate Routinen "zu sammeln" *)
+ (*------------------------------------------------------------------------*)
+ (* Implementation : Michael Riedl *)
+ (* Licence : GNU Lesser General Public License (LGPL) *)
+ (*------------------------------------------------------------------------*)
+
+ (* $Id: BaseLib.def,v 1.1 2018/01/16 09:20:42 mriedl Exp $ *)
+
+FROM SYSTEM IMPORT BYTE;
+
+PROCEDURE Swap(VAR A,B : ARRAY OF BYTE;
+ n : CARDINAL);
+
+ (*----------------------------------------------------------------*)
+ (* Vertauscht die Elemente A und B wobei n die Anzahl der zu ver- *)
+ (* tauschenden Bytes angibt. *)
+ (*----------------------------------------------------------------*)
+
+END BaseLib.
+