IMPLEMENTATION MODULE BaseLib;
(*------------------------------------------------------------------------*)
(* Module um einige sehr elementate Routinen "zu sammeln" *)
(*------------------------------------------------------------------------*)
(* Letzte Veraenderung *)
(* *)
(* 26.07.16, MRi: Initial Version *)
(*------------------------------------------------------------------------*)
(* Implementation : Michael Riedl *)
(* Licence : GNU Lesser General Public License (LGPL) *)
(*------------------------------------------------------------------------*)
(* $Id: BaseLib.mod,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);
VAR i : CARDINAL;
z : BYTE;
BEGIN
IF (n # HIGH(A) + 1) THEN
ELSE
FOR i:=0 TO n-1 DO
z:=A[i]; A[i]:=B[i]; B[i]:=z;
END;
END;
END Swap;
END BaseLib.