From 20a1969b4d2c2162364d9348d158fff004399ea8 Mon Sep 17 00:00:00 2001 From: Erich Eckner Date: Thu, 10 Jan 2019 13:34:46 +0100 Subject: disable logs --- markov.lpr | 3 ++- markov.lps | 43 +++++++++++++++++++++++++++++++++++++------ 2 files changed, 39 insertions(+), 7 deletions(-) diff --git a/markov.lpr b/markov.lpr index adf09db..c2d27a0 100644 --- a/markov.lpr +++ b/markov.lpr @@ -8,7 +8,7 @@ uses {$ENDIF}{$ENDIF} Classes { you can add units after this }, - sysutils, math, mystringlistunit; + sysutils, math, mystringlistunit, lowlevelunit; var wordFileName,s: string; @@ -22,6 +22,7 @@ var i2c: string; begin + __ausgabenMaske:=3; // no logs randomize; if paramCount<>3 then begin writeln(stderr,'usage: markov word-file chain-depth count'); diff --git a/markov.lps b/markov.lps index f9a0deb..a3874e6 100644 --- a/markov.lps +++ b/markov.lps @@ -3,19 +3,20 @@ - + - + + - + @@ -24,7 +25,7 @@ - + @@ -33,14 +34,36 @@ - + + + + + + + + + + + + + + + + + + + + + + + - + @@ -109,6 +132,14 @@ + + + + + + + + -- cgit v1.2.3-70-g09d2