DEFINITION MODULE Base37;
(*
  Dieses Modul enthält einige nützliche Funktionen, die ich in meinen
  Programmen verwende. Es führt gleichzeitig eine Test aus, ob mindestens
  Kickstart 37 vorliegt.
*)

FROM SYSTEM IMPORT ADDRESS;

PROCEDURE A(cond:BOOLEAN; error:ARRAY OF CHAR);
(*
  Ein Assert Ersatz, der mit einem String auskommt.
*)
PROCEDURE B;
(*
  BreakPoint(NIL);
*)
PROCEDURE N(adr:ADDRESS; error:ARRAY OF CHAR);
(*
  =A(adr#NIL,error);
*)
END Base37.