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.

