From 3d3e75fa15be7088dd456c001a411ff5953c85b1 Mon Sep 17 00:00:00 2001
From: Erich Eckner <git@eckner.net>
Date: Thu, 24 May 2018 09:53:16 +0200
Subject: ermittleMittelwert neu

---
 epost.lpr | 7 +++++++
 1 file changed, 7 insertions(+)

(limited to 'epost.lpr')

diff --git a/epost.lpr b/epost.lpr
index 718eb2c..2cea78d 100644
--- a/epost.lpr
+++ b/epost.lpr
@@ -474,6 +474,13 @@ begin
         end;
         continue;
       end;
+      if istDasBefehl('ermittle Mittelwert',s,bekannteBefehle,true) then begin
+        if not ermittleMittelwert(syntaxTest,s) then begin
+          aufraeumen;
+          halt(1);
+        end;
+        continue;
+      end;
       if istDasBefehl('skaliere',s,bekannteBefehle,true) then begin
         i:=findeWerte(s,nil,@wertes,@konturen,false);
         if i<0 then begin
-- 
cgit v1.2.3-70-g09d2