Ausgaben jetzt optional in lowlevelunit.pas

1 files changed, 5 insertions, 2 deletions

diff --git a/lowlevelunit.pas b/lowlevelunit.pas
index 27d7d85..3472049 100644
--- a/lowlevelunit.pas
+++ b/lowlevelunit.pas
@@ -99,6 +99,9 @@ var
   base64Chars: array[0..63] of char;
   base64CharsInvers: array[char] of byte;
 
+const
+  __ausgabenMaske: byte = 0;
+
 implementation
 
 uses matheunit;
@@ -469,8 +472,8 @@ end;
 
 procedure gibAus(s: string; ausgaben: byte);
 begin
-  if odd(ausgaben) then myDebugLnThreadLog(s);
-  if odd(ausgaben div 2) then writeln(s);
+  if odd(ausgaben) and not odd(__ausgabenMaske) then myDebugLnThreadLog(s);
+  if odd(ausgaben div 2) and not odd(__ausgabenMaske div 2) then writeln(s);
 end;
 
 function strToGen(out gen: tGenauigkeit; s: string): boolean;